/*===========================================================================*/
/*   (Unsafe/intext.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 Unsafe/intext.scm -indent -o objs/obj_u/Unsafe/intext.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___INTEXT_TYPE_DEFINITIONS
#define BGL___INTEXT_TYPE_DEFINITIONS

/* object type definitions */

#endif													// BGL___INTEXT_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_symbol2720z00zz__intextz00 = BUNSPEC;
	static obj_t BGl_symbol2722z00zz__intextz00 = BUNSPEC;
	extern obj_t BGl_makezd2u8vectorzd2zz__srfi4z00(long, uint8_t);
	static obj_t BGl_checkzd2siza7ez12ze70z80zz__intextz00(obj_t, obj_t, long,
		long, obj_t);
	static obj_t
		BGl_z62zc3z04za2stringzd2ze3processza2za31323ze3zd4zz__intextz00(obj_t,
		obj_t);
	static obj_t BGl_objectzd2serializa7erz75zz__intextz00(BgL_objectz00_bglt,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_getzd2opaquezd2serializa7ationza7zz__intextz00(void);
	static obj_t BGl_symbol2733z00zz__intextz00 = BUNSPEC;
	static obj_t BGl_symbol2736z00zz__intextz00 = BUNSPEC;
	static BGL_LONGLONG_T BGl_readzd2longzd2wordze70ze7zz__intextz00(obj_t, obj_t,
		long, obj_t, int);
	static obj_t BGl_requirezd2initializa7ationz75zz__intextz00 = BUNSPEC;
	extern obj_t BGl_makezd2s16vectorzd2zz__srfi4z00(long, int16_t);
	static obj_t BGl_symbol2741z00zz__intextz00 = BUNSPEC;
	static long BGl_siza7ezd2ofzd2wordza7zz__intextz00(long);
	static obj_t BGl_symbol2744z00zz__intextz00 = BUNSPEC;
	static long BGl_za2maxzd2siza7ezd2wordza2za7zz__intextz00 = 0L;
	static obj_t BGl_z62printzd2pairzb0zz__intextz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_registerzd2classzd2serializa7ationz12zb5zz__intextz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_printzd2objzd2zz__intextz00(obj_t, long, obj_t);
	extern ucs2_t BGl_integerzd2ze3ucs2z31zz__ucs2z00(int);
	extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_getzd2procedurezd2serializa7ationza7zz__intextz00(void);
	extern bool_t BGl_classzd2fieldzd2defaultzd2valuezf3z21zz__objectz00(obj_t);
	extern obj_t BGl_za2classesza2z00zz__objectz00;
	static obj_t BGl_symbol2679z00zz__intextz00 = BUNSPEC;
	extern obj_t BGl_registerzd2genericz12zc0zz__objectz00(obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
	static obj_t BGl__stringzd2ze3objz31zz__intextz00(obj_t, obj_t);
	extern obj_t bgl_seconds_to_date(long);
	extern obj_t BGl_vectorzd2ze3tvectorz31zz__tvectorz00(obj_t, obj_t);
	static obj_t BGl_stringzd2guardz12ze70z27zz__intextz00(obj_t, long, obj_t,
		long);
	static obj_t BGl_symbol2681z00zz__intextz00 = BUNSPEC;
	static obj_t BGl_toplevelzd2initzd2zz__intextz00(void);
	static obj_t BGl_z62zc3z04anonymousza31971ze3ze5zz__intextz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_getzd2classzd2serializa7ationza7zz__intextz00(obj_t);
	static obj_t BGl_z62setzd2objzd2stringzd2modez12za2zz__intextz00(obj_t,
		obj_t);
	extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62getzd2customzd2serializa7ationzc5zz__intextz00(obj_t,
		obj_t);
	extern obj_t BGl_assvz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_genericzd2initzd2zz__intextz00(void);
	extern obj_t
		BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, obj_t);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_z62printzd2cellzb0zz__intextz00(obj_t, obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04za2opaquezd2ze3stringza2za31330ze3zd4zz__intextz00(obj_t,
		obj_t);
	extern void bgl_weakptr_data_set(obj_t, obj_t);
	extern obj_t BGl_tvectorzd2ze3vectorz31zz__tvectorz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31965ze3ze5zz__intextz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_objectzd2initzd2zz__intextz00(void);
	BGL_EXPORTED_DECL obj_t string_to_obj(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_registerzd2procedurezd2serializa7ationz12zb5zz__intextz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_setzd2objzd2stringzd2modez12zc0zz__intextz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza32106ze3ze5zz__intextz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_createzd2hashtablezd2zz__hashz00(obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_readzd2stringze70z35zz__intextz00(obj_t, obj_t, obj_t, obj_t,
		long, obj_t);
	extern bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_za2inheritancesza2z00zz__objectz00;
	extern obj_t BGl_makezd2u32vectorzd2zz__srfi4z00(long, uint32_t);
	static obj_t BGl_markze70ze7zz__intextz00(obj_t, obj_t, obj_t, obj_t);
	extern BGL_LONGLONG_T bgl_date_to_nanoseconds(obj_t);
	static obj_t BGl_excerptz00zz__intextz00(obj_t);
	extern obj_t BGl_pregexpz00zz__regexpz00(obj_t, obj_t);
	static long BGl_markedzd2pairzd2lengthz00zz__intextz00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04za2stringzd2ze3opaqueza2za31332ze3zd4zz__intextz00(obj_t,
		obj_t);
	extern obj_t bgl_weakptr_data(obj_t);
	static obj_t BGl_z62zc3z04anonymousza32107ze3ze5zz__intextz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_makezd2u64vectorzd2zz__srfi4z00(long, uint64_t);
	static double BGl_readzd2floatze70z35zz__intextz00(obj_t, obj_t, long, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31976ze3ze5zz__intextz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31968ze3ze5zz__intextz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl__objzd2ze3stringz31zz__intextz00(obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	extern obj_t BGl_classzd2fieldzd2mutatorz00zz__objectz00(obj_t);
	extern obj_t make_vector(long, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32109ze3ze5zz__intextz00(obj_t, obj_t,
		obj_t);
	extern bool_t BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(obj_t);
	static obj_t BGl_methodzd2initzd2zz__intextz00(void);
	static obj_t BGl_z62getzd2procedurezd2serializa7ationzc5zz__intextz00(obj_t);
	extern obj_t BGl_classzd2fieldzd2namez00zz__objectz00(obj_t);
	static obj_t BGl_z62printzd2customzb0zz__intextz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_tvectorzd2idzd2zz__tvectorz00(obj_t);
	BGL_EXPORTED_DECL obj_t obj_to_string(obj_t, obj_t);
	static obj_t BGl_z62objectzd2serializa7erz17zz__intextz00(obj_t, obj_t,
		obj_t);
	extern obj_t make_string(long, unsigned char);
	extern long BGl_classzd2hashzd2zz__objectz00(obj_t);
	extern obj_t string_append(obj_t, obj_t);
	extern obj_t BGl_classzd2fieldzd2accessorz00zz__objectz00(obj_t);
	extern obj_t BGl_makezd2f32vectorzd2zz__srfi4z00(long, float);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62printzd2itemzb0zz__intextz00(obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_getzd2customzd2serializa7ationza7zz__intextz00(obj_t);
	static long BGl_markzd2objz12zc0zz__intextz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_makezd2serializa7ationzd2substringza7zz__intextz00(obj_t, long, long);
	extern obj_t BGl_classzd2fieldzd2infoz00zz__objectz00(obj_t);
	extern obj_t BGl_makezd2f64vectorzd2zz__srfi4z00(long, double);
	static obj_t BGl_z62zc3z04anonymousza32082ze3ze5zz__intextz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62registerzd2customzd2serializa7ationz12zd7zz__intextz00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t bstring_to_keyword(obj_t);
	static obj_t BGl_za2classzd2serializa7ationza2z75zz__intextz00 = BUNSPEC;
	extern obj_t BGl_classzd2fieldzd2typez00zz__objectz00(obj_t);
	extern obj_t BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long,
		obj_t);
	extern obj_t BGl_makezd2u16vectorzd2zz__srfi4z00(long, uint16_t);
	extern obj_t BGl_bignumzd2ze3stringz31zz__bignumz00(obj_t, long);
	static bool_t BGl_z62printzd2wordzf2siza7eze5zz__intextz00(obj_t, obj_t,
		obj_t, long);
	extern BgL_objectz00_bglt BGl_allocatezd2instancezd2zz__objectz00(obj_t);
	extern obj_t BGl_makezd2s8vectorzd2zz__srfi4z00(long, int8_t);
	static obj_t
		BGl_z62zc3z04za2stringzd2ze3procedure1299ze3zd5zz__intextz00(obj_t, obj_t);
	static obj_t
		BGl_z62registerzd2opaquezd2serializa7ationz12zd7zz__intextz00(obj_t, obj_t,
		obj_t);
	extern obj_t string_for_read(obj_t);
	static obj_t BGl_z62printzd2hvectorzb0zz__intextz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__intextz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bignumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__urlz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__hashz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	extern obj_t ucs2_string_to_utf8_string(obj_t);
	extern obj_t bgl_nanoseconds_to_date(BGL_LONGLONG_T);
	static obj_t
		BGl_z62registerzd2procedurezd2serializa7ationz12zd7zz__intextz00(obj_t,
		obj_t, obj_t);
	extern bool_t BGl_classzf3zf3zz__objectz00(obj_t);
	static obj_t BGl_za2stringzd2ze3procedureza2z31zz__intextz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31640ze3ze5zz__intextz00(obj_t, obj_t,
		obj_t);
	extern int bgl_debug(void);
	static obj_t BGl_z62printzd2classzb0zz__intextz00(obj_t, obj_t, obj_t);
	extern obj_t utf8_string_to_ucs2_string(obj_t);
	extern obj_t create_struct(obj_t, int);
	static obj_t BGl_findzd2classzd2unserializa7erza7zz__intextz00(obj_t, obj_t);
	static obj_t BGl_z62getzd2classzd2serializa7ationzc5zz__intextz00(obj_t,
		obj_t);
	static obj_t BGl_z62printzd2objectzb0zz__intextz00(obj_t, obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__intextz00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_registerzd2processzd2serializa7ationz12zb5zz__intextz00(obj_t, obj_t);
	static obj_t
		BGl_z62registerzd2processzd2serializa7ationz12zd7zz__intextz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__intextz00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__intextz00(void);
	static obj_t BGl_z62z12printzd2markupza2zz__intextz00(obj_t, obj_t,
		unsigned char);
	BGL_EXPORTED_DECL obj_t
		BGl_registerzd2customzd2serializa7ationz12zb5zz__intextz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62registerzd2classzd2serializa7ationz12zd7zz__intextz00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(obj_t);
	extern obj_t BGl_findzd2classzd2zz__objectz00(obj_t);
	static obj_t BGl_readzd2itemze70z35zz__intextz00(obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, long);
	static obj_t BGl_z62getzd2opaquezd2serializa7ationzc5zz__intextz00(obj_t);
	extern obj_t BGl_makezd2s32vectorzd2zz__srfi4z00(long, int32_t);
	extern obj_t BGl_objectz00zz__objectz00;
	BGL_EXPORTED_DECL obj_t
		BGl_registerzd2opaquezd2serializa7ationz12zb5zz__intextz00(obj_t, obj_t);
	static obj_t BGl_za2processzd2ze3stringza2z31zz__intextz00 = BUNSPEC;
	extern obj_t BGl_makezd2s64vectorzd2zz__srfi4z00(long, int64_t);
	extern obj_t BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(obj_t);
	extern obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
	static obj_t
		BGl_z62zc3z04za2procedurezd2ze3string1296ze3zd5zz__intextz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31912ze3ze5zz__intextz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04za2processzd2ze3stringza2za31302ze3zd4zz__intextz00(obj_t,
		obj_t);
	extern obj_t BGl_stringzd2ze3bignumz31zz__bignumz00(obj_t, long);
	extern obj_t c_substring(obj_t, long, long);
	static obj_t BGl_z62checkzd2bufferz12za2zz__intextz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62printzd2vectorzb0zz__intextz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_hashtablezd2putz12zc0zz__hashz00(obj_t, obj_t, obj_t);
	extern obj_t make_struct(obj_t, int, obj_t);
	static obj_t BGl_za2stringzd2ze3processza2z31zz__intextz00 = BUNSPEC;
	static obj_t BGl_za2stringzd2ze3opaqueza2z31zz__intextz00 = BUNSPEC;
	static obj_t BGl_za2opaquezd2ze3stringza2z31zz__intextz00 = BUNSPEC;
	extern obj_t BGl_genericzd2addzd2methodz12z12zz__objectz00(obj_t, obj_t,
		obj_t, obj_t);
	static bool_t BGl_za2epairzf3za2zf3zz__intextz00;
	extern obj_t BGl_urlzd2decodezd2zz__urlz00(obj_t);
	static obj_t BGl_z62printzd2tvectorzb0zz__intextz00(obj_t, obj_t, obj_t);
	extern obj_t bgl_make_weakptr(obj_t, obj_t);
	extern obj_t blit_string(obj_t, long, obj_t, long, long);
	extern BGL_LONGLONG_T
		BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(obj_t, long);
	static obj_t BGl_keyword2739z00zz__intextz00 = BUNSPEC;
	static obj_t BGl_z62printzd2wordzb0zz__intextz00(obj_t, obj_t, long);
	static obj_t BGl_z62printzd2weakptrzb0zz__intextz00(obj_t, obj_t, obj_t);
	static obj_t BGl_vector2687z00zz__intextz00 = BUNSPEC;
	static obj_t BGl_za2customzd2serializa7ationza2z75zz__intextz00 = BUNSPEC;
	static obj_t BGl_z62makezd2serializa7ationzd2substringzc5zz__intextz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_za2procedurezd2ze3stringza2z31zz__intextz00 = BUNSPEC;
	static obj_t BGl_symbol2704z00zz__intextz00 = BUNSPEC;
	static obj_t BGl_symbol2706z00zz__intextz00 = BUNSPEC;
	extern obj_t bgl_real_to_string(double);
	static obj_t BGl_symbol2708z00zz__intextz00 = BUNSPEC;
	static obj_t BGl_z62objectzd2serializa7er1203z17zz__intextz00(obj_t, obj_t,
		obj_t);
	extern obj_t make_string_sans_fill(long);
	static obj_t BGl_z62printzd2epairzb0zz__intextz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62z12printzd2charsza2zz__intextz00(obj_t, obj_t, obj_t,
		long);
	static obj_t BGl_z62zc3z04anonymousza31941ze3ze5zz__intextz00(obj_t, obj_t,
		obj_t);
	static long BGl_readzd2wordze70z35zz__intextz00(obj_t, obj_t, long, obj_t,
		int);
	static obj_t BGl_symbol2710z00zz__intextz00 = BUNSPEC;
	static obj_t BGl_symbol2712z00zz__intextz00 = BUNSPEC;
	static long BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00(obj_t, obj_t, long,
		obj_t);
	static obj_t BGl_symbol2714z00zz__intextz00 = BUNSPEC;
	static obj_t BGl_symbol2716z00zz__intextz00 = BUNSPEC;
	static obj_t BGl_symbol2718z00zz__intextz00 = BUNSPEC;
	extern long BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t, long);
	extern obj_t BGl_hashtablezd2getzd2zz__hashz00(obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_registerzd2procedurezd2serializa7ationz12zd2envz67zz__intextz00,
		BgL_bgl_za762registerza7d2pr2767z00,
		BGl_z62registerzd2procedurezd2serializa7ationz12zd7zz__intextz00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_getzd2procedurezd2serializa7ationzd2envz75zz__intextz00,
		BgL_bgl_za762getza7d2procedu2768z00,
		BGl_z62getzd2procedurezd2serializa7ationzc5zz__intextz00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_registerzd2processzd2serializa7ationz12zd2envz67zz__intextz00,
		BgL_bgl_za762registerza7d2pr2769z00,
		BGl_z62registerzd2processzd2serializa7ationz12zd7zz__intextz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2700z00zz__intextz00,
		BgL_bgl_string2700za700za7za7_2770za7, "list", 4);
	      BGL_DEFINE_STRING(BGl_string2701z00zz__intextz00,
		BgL_bgl_string2701za700za7za7_2771za7, "tagged-vector", 13);
	      BGL_DEFINE_STRING(BGl_string2702z00zz__intextz00,
		BgL_bgl_string2702za700za7za7_2772za7, "hvector", 7);
	      BGL_DEFINE_STRING(BGl_string2703z00zz__intextz00,
		BgL_bgl_string2703za700za7za7_2773za7, "hvector-size", 12);
	      BGL_DEFINE_STRING(BGl_string2705z00zz__intextz00,
		BgL_bgl_string2705za700za7za7_2774za7, "s8", 2);
	      BGL_DEFINE_STRING(BGl_string2707z00zz__intextz00,
		BgL_bgl_string2707za700za7za7_2775za7, "u8", 2);
	      BGL_DEFINE_STRING(BGl_string2709z00zz__intextz00,
		BgL_bgl_string2709za700za7za7_2776za7, "s16", 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_makezd2serializa7ationzd2substringzd2envz75zz__intextz00,
		BgL_bgl_za762makeza7d2serial2777z00,
		BGl_z62makezd2serializa7ationzd2substringzc5zz__intextz00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string2711z00zz__intextz00,
		BgL_bgl_string2711za700za7za7_2778za7, "u16", 3);
	      BGL_DEFINE_STRING(BGl_string2713z00zz__intextz00,
		BgL_bgl_string2713za700za7za7_2779za7, "s32", 3);
	      BGL_DEFINE_STRING(BGl_string2715z00zz__intextz00,
		BgL_bgl_string2715za700za7za7_2780za7, "u32", 3);
	      BGL_DEFINE_STRING(BGl_string2717z00zz__intextz00,
		BgL_bgl_string2717za700za7za7_2781za7, "s64", 3);
	      BGL_DEFINE_STRING(BGl_string2719z00zz__intextz00,
		BgL_bgl_string2719za700za7za7_2782za7, "u64", 3);
	      BGL_DEFINE_REAL(BGl_real2735z00zz__intextz00,
		BgL_bgl_real2735za700za7za7__i2783za7, 1.2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_getzd2opaquezd2serializa7ationzd2envz75zz__intextz00,
		BgL_bgl_za762getza7d2opaqueza72784za7,
		BGl_z62getzd2opaquezd2serializa7ationzc5zz__intextz00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2721z00zz__intextz00,
		BgL_bgl_string2721za700za7za7_2785za7, "f32", 3);
	      BGL_DEFINE_STRING(BGl_string2723z00zz__intextz00,
		BgL_bgl_string2723za700za7za7_2786za7, "f64", 3);
	      BGL_DEFINE_STRING(BGl_string2724z00zz__intextz00,
		BgL_bgl_string2724za700za7za7_2787za7, "llong", 5);
	      BGL_DEFINE_STRING(BGl_string2725z00zz__intextz00,
		BgL_bgl_string2725za700za7za7_2788za7, "elong", 5);
	      BGL_DEFINE_STRING(BGl_string2726z00zz__intextz00,
		BgL_bgl_string2726za700za7za7_2789za7, "Cannot find custom unserializer",
		31);
	      BGL_DEFINE_STRING(BGl_string2727z00zz__intextz00,
		BgL_bgl_string2727za700za7za7_2790za7, "Cannot unserialize custom object",
		32);
	      BGL_DEFINE_STRING(BGl_string2728z00zz__intextz00,
		BgL_bgl_string2728za700za7za7_2791za7, "bignum", 6);
	      BGL_DEFINE_STRING(BGl_string2729z00zz__intextz00,
		BgL_bgl_string2729za700za7za7_2792za7,
		"Corrupted string (~a) at index ~a/~a", 36);
	      BGL_DEFINE_STRING(BGl_string2730z00zz__intextz00,
		BgL_bgl_string2730za700za7za7_2793za7,
		"Corrupted string (~a) at index ~a/~a ~a", 39);
	      BGL_DEFINE_STRING(BGl_string2731z00zz__intextz00,
		BgL_bgl_string2731za700za7za7_2794za7, "_obj->string", 12);
	      BGL_DEFINE_STRING(BGl_string2734z00zz__intextz00,
		BgL_bgl_string2734za700za7za7_2795za7, "none", 4);
	      BGL_DEFINE_STRING(BGl_string2737z00zz__intextz00,
		BgL_bgl_string2737za700za7za7_2796za7, "__serialization-substring", 25);
	      BGL_DEFINE_STRING(BGl_string2738z00zz__intextz00,
		BgL_bgl_string2738za700za7za7_2797za7, "Unknown object", 14);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2732z00zz__intextz00,
		BgL_bgl_za762za7c3za704anonymo2798za7,
		BGl_z62zc3z04anonymousza31640ze3ze5zz__intextz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2740z00zz__intextz00,
		BgL_bgl_string2740za700za7za7_2799za7, "serialize", 9);
	      BGL_DEFINE_STRING(BGl_string2742z00zz__intextz00,
		BgL_bgl_string2742za700za7za7_2800za7, "obj", 3);
	      BGL_DEFINE_STRING(BGl_string2743z00zz__intextz00,
		BgL_bgl_string2743za700za7za7_2801za7,
		"Bad type \"~a\" for unserialized field", 36);
	      BGL_DEFINE_STRING(BGl_string2745z00zz__intextz00,
		BgL_bgl_string2745za700za7za7_2802za7, "mark", 4);
	      BGL_DEFINE_STRING(BGl_string2746z00zz__intextz00,
		BgL_bgl_string2746za700za7za7_2803za7, "Cannot find custom serializer", 29);
	      BGL_DEFINE_STRING(BGl_string2747z00zz__intextz00,
		BgL_bgl_string2747za700za7za7_2804za7, "&make-serialization-substring", 29);
	      BGL_DEFINE_STRING(BGl_string2748z00zz__intextz00,
		BgL_bgl_string2748za700za7za7_2805za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string2749z00zz__intextz00,
		BgL_bgl_string2749za700za7za7_2806za7, "register-custom-serialization!",
		30);
	      BGL_DEFINE_STRING(BGl_string2750z00zz__intextz00,
		BgL_bgl_string2750za700za7za7_2807za7, "bad arity", 9);
	      BGL_DEFINE_STRING(BGl_string2751z00zz__intextz00,
		BgL_bgl_string2751za700za7za7_2808za7, "&register-custom-serialization!",
		31);
	      BGL_DEFINE_STRING(BGl_string2752z00zz__intextz00,
		BgL_bgl_string2752za700za7za7_2809za7, "procedure", 9);
	      BGL_DEFINE_STRING(BGl_string2671z00zz__intextz00,
		BgL_bgl_string2671za700za7za7_2810za7, "string->obj", 11);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2665z00zz__intextz00,
		BgL_bgl_za762za7c3za704za7a2proc2811z00,
		BGl_z62zc3z04za2procedurezd2ze3string1296ze3zd5zz__intextz00, 0L, BUNSPEC,
		1);
	      BGL_DEFINE_STRING(BGl_string2753z00zz__intextz00,
		BgL_bgl_string2753za700za7za7_2812za7, "...", 3);
	      BGL_DEFINE_STRING(BGl_string2672z00zz__intextz00,
		BgL_bgl_string2672za700za7za7_2813za7, "Cannot intern opaque item", 25);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2666z00zz__intextz00,
		BgL_bgl_za762za7c3za704za7a2stri2814z00,
		BGl_z62zc3z04za2stringzd2ze3procedure1299ze3zd5zz__intextz00, 0L, BUNSPEC,
		1);
	      BGL_DEFINE_STRING(BGl_string2754z00zz__intextz00,
		BgL_bgl_string2754za700za7za7_2815za7, "&get-custom-serialization", 25);
	      BGL_DEFINE_STRING(BGl_string2673z00zz__intextz00,
		BgL_bgl_string2673za700za7za7_2816za7, "obj->string", 11);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2667z00zz__intextz00,
		BgL_bgl_za762za7c3za704za7a2proc2817z00,
		BGl_z62zc3z04za2processzd2ze3stringza2za31302ze3zd4zz__intextz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2755z00zz__intextz00,
		BgL_bgl_string2755za700za7za7_2818za7, "&register-procedure-serialization!",
		34);
	      BGL_DEFINE_STRING(BGl_string2674z00zz__intextz00,
		BgL_bgl_string2674za700za7za7_2819za7, "Cannot extern opaque", 20);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2668z00zz__intextz00,
		BgL_bgl_za762za7c3za704za7a2stri2820z00,
		BGl_z62zc3z04za2stringzd2ze3processza2za31323ze3zd4zz__intextz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2756z00zz__intextz00,
		BgL_bgl_string2756za700za7za7_2821za7, "&register-process-serialization!",
		32);
	      BGL_DEFINE_STRING(BGl_string2675z00zz__intextz00,
		BgL_bgl_string2675za700za7za7_2822za7, "Cannot intern process item", 26);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2669z00zz__intextz00,
		BgL_bgl_za762za7c3za704za7a2opaq2823z00,
		BGl_z62zc3z04za2opaquezd2ze3stringza2za31330ze3zd4zz__intextz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2757z00zz__intextz00,
		BgL_bgl_string2757za700za7za7_2824za7, "&register-opaque-serialization!",
		31);
	      BGL_DEFINE_STRING(BGl_string2676z00zz__intextz00,
		BgL_bgl_string2676za700za7za7_2825za7, "cannot extern process", 21);
	      BGL_DEFINE_STRING(BGl_string2758z00zz__intextz00,
		BgL_bgl_string2758za700za7za7_2826za7, "register-class-serialization!", 29);
	      BGL_DEFINE_STRING(BGl_string2677z00zz__intextz00,
		BgL_bgl_string2677za700za7za7_2827za7, "Cannot intern procedure item", 28);
	      BGL_DEFINE_STRING(BGl_string2759z00zz__intextz00,
		BgL_bgl_string2759za700za7za7_2828za7, "-serializer", 11);
	      BGL_DEFINE_STRING(BGl_string2678z00zz__intextz00,
		BgL_bgl_string2678za700za7za7_2829za7, "Cannot extern procedure", 23);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2670z00zz__intextz00,
		BgL_bgl_za762za7c3za704za7a2stri2830z00,
		BGl_z62zc3z04za2stringzd2ze3opaqueza2za31332ze3zd4zz__intextz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2760z00zz__intextz00,
		BgL_bgl_string2760za700za7za7_2831za7, "&register-class-serialization!",
		30);
	      BGL_DEFINE_STRING(BGl_string2761z00zz__intextz00,
		BgL_bgl_string2761za700za7za7_2832za7, "Cannot find ~s class unserializer",
		33);
	      BGL_DEFINE_STRING(BGl_string2680z00zz__intextz00,
		BgL_bgl_string2680za700za7za7_2833za7, "epair", 5);
	      BGL_DEFINE_STRING(BGl_string2763z00zz__intextz00,
		BgL_bgl_string2763za700za7za7_2834za7, "object-serializer1203", 21);
	      BGL_DEFINE_STRING(BGl_string2682z00zz__intextz00,
		BgL_bgl_string2682za700za7za7_2835za7, "pair", 4);
	      BGL_DEFINE_STRING(BGl_string2764z00zz__intextz00,
		BgL_bgl_string2764za700za7za7_2836za7, "&object-serializer", 18);
	      BGL_DEFINE_STRING(BGl_string2683z00zz__intextz00,
		BgL_bgl_string2683za700za7za7_2837za7,
		"/tmp/bigloo/runtime/Unsafe/intext.scm", 37);
	      BGL_DEFINE_STRING(BGl_string2765z00zz__intextz00,
		BgL_bgl_string2765za700za7za7_2838za7, "__intext", 8);
	      BGL_DEFINE_STRING(BGl_string2684z00zz__intextz00,
		BgL_bgl_string2684za700za7za7_2839za7, "_string->obj", 12);
	      BGL_DEFINE_STRING(BGl_string2685z00zz__intextz00,
		BgL_bgl_string2685za700za7za7_2840za7, "vector", 6);
	      BGL_DEFINE_STRING(BGl_string2686z00zz__intextz00,
		BgL_bgl_string2686za700za7za7_2841za7, "bstring", 7);
	      BGL_DEFINE_STRING(BGl_string2688z00zz__intextz00,
		BgL_bgl_string2688za700za7za7_2842za7, "definitions", 11);
	      BGL_DEFINE_STRING(BGl_string2689z00zz__intextz00,
		BgL_bgl_string2689za700za7za7_2843za7, "float", 5);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2762z00zz__intextz00,
		BgL_bgl_za762objectza7d2seri2844z00,
		BGl_z62objectzd2serializa7er1203z17zz__intextz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2690z00zz__intextz00,
		BgL_bgl_string2690za700za7za7_2845za7, "+nan.0", 6);
	      BGL_DEFINE_STRING(BGl_string2691z00zz__intextz00,
		BgL_bgl_string2691za700za7za7_2846za7, "+inf.0", 6);
	      BGL_DEFINE_STRING(BGl_string2692z00zz__intextz00,
		BgL_bgl_string2692za700za7za7_2847za7, "-inf.0", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_registerzd2classzd2serializa7ationz12zd2envz67zz__intextz00,
		BgL_bgl_za762registerza7d2cl2848z00,
		BGl_z62registerzd2classzd2serializa7ationz12zd7zz__intextz00, 0L, BUNSPEC,
		3);
	      BGL_DEFINE_STRING(BGl_string2693z00zz__intextz00,
		BgL_bgl_string2693za700za7za7_2849za7, "string", 6);
	      BGL_DEFINE_STRING(BGl_string2694z00zz__intextz00,
		BgL_bgl_string2694za700za7za7_2850za7, "Cannot find class unserializer",
		30);
	      BGL_DEFINE_STRING(BGl_string2695z00zz__intextz00,
		BgL_bgl_string2695za700za7za7_2851za7, "object", 6);
	      BGL_DEFINE_STRING(BGl_string2696z00zz__intextz00,
		BgL_bgl_string2696za700za7za7_2852za7, "corrupted class, wrong fields", 29);
	      BGL_DEFINE_STRING(BGl_string2697z00zz__intextz00,
		BgL_bgl_string2697za700za7za7_2853za7, "corrupted class, bad signature",
		30);
	      BGL_DEFINE_STRING(BGl_string2698z00zz__intextz00,
		BgL_bgl_string2698za700za7za7_2854za7, "structure", 9);
	      BGL_DEFINE_STRING(BGl_string2699z00zz__intextz00,
		BgL_bgl_string2699za700za7za7_2855za7, "extended-list", 13);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_setzd2objzd2stringzd2modez12zd2envz12zz__intextz00,
		BgL_bgl_za762setza7d2objza7d2s2856za7,
		BGl_z62setzd2objzd2stringzd2modez12za2zz__intextz00, 0L, BUNSPEC, 1);
	     
		DEFINE_STATIC_BGL_GENERIC(BGl_objectzd2serializa7erzd2envza7zz__intextz00,
		BgL_bgl_za762objectza7d2seri2857z00,
		BGl_z62objectzd2serializa7erz17zz__intextz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_registerzd2customzd2serializa7ationz12zd2envz67zz__intextz00,
		BgL_bgl_za762registerza7d2cu2858z00,
		BGl_z62registerzd2customzd2serializa7ationz12zd7zz__intextz00, 0L, BUNSPEC,
		3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2ze3objzd2envze3zz__intextz00,
		BgL_bgl__stringza7d2za7e3obj2859z00, opt_generic_entry,
		BGl__stringzd2ze3objz31zz__intextz00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_getzd2customzd2serializa7ationzd2envz75zz__intextz00,
		BgL_bgl_za762getza7d2customza72860za7,
		BGl_z62getzd2customzd2serializa7ationzc5zz__intextz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_registerzd2opaquezd2serializa7ationz12zd2envz67zz__intextz00,
		BgL_bgl_za762registerza7d2op2861z00,
		BGl_z62registerzd2opaquezd2serializa7ationz12zd7zz__intextz00, 0L, BUNSPEC,
		2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_getzd2classzd2serializa7ationzd2envz75zz__intextz00,
		BgL_bgl_za762getza7d2classza7d2862za7,
		BGl_z62getzd2classzd2serializa7ationzc5zz__intextz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_objzd2ze3stringzd2envze3zz__intextz00,
		BgL_bgl__objza7d2za7e3string2863z00, opt_generic_entry,
		BGl__objzd2ze3stringz31zz__intextz00, BFALSE, -1);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_objzd2ze3stringzd2envze3zz__intextz00,
			BgL_bgl__objza7d2za7e3string2863z00);
		BGL_BIND_PROCEDURE(BGl_getzd2classzd2serializa7ationzd2envz75zz__intextz00,
			BgL_bgl_za762getza7d2classza7d2862za7);
		BGL_BIND_PROCEDURE
			(BGl_registerzd2opaquezd2serializa7ationz12zd2envz67zz__intextz00,
			BgL_bgl_za762registerza7d2op2861z00);
		BGL_BIND_PROCEDURE(BGl_getzd2customzd2serializa7ationzd2envz75zz__intextz00,
			BgL_bgl_za762getza7d2customza72860za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2ze3objzd2envze3zz__intextz00,
			BgL_bgl__stringza7d2za7e3obj2859z00);
		BGL_BIND_PROCEDURE
			(BGl_registerzd2customzd2serializa7ationz12zd2envz67zz__intextz00,
			BgL_bgl_za762registerza7d2cu2858z00);
		BGL_BIND_PROCEDURE(BGl_objectzd2serializa7erzd2envza7zz__intextz00,
			BgL_bgl_za762objectza7d2seri2857z00);
		BGL_BIND_PROCEDURE(BGl_setzd2objzd2stringzd2modez12zd2envz12zz__intextz00,
			BgL_bgl_za762setza7d2objza7d2s2856za7);
		BGL_BIND_STRING(BGl_string2699z00zz__intextz00,
			BgL_bgl_string2699za700za7za7_2855za7);
		BGL_BIND_STRING(BGl_string2698z00zz__intextz00,
			BgL_bgl_string2698za700za7za7_2854za7);
		BGL_BIND_STRING(BGl_string2697z00zz__intextz00,
			BgL_bgl_string2697za700za7za7_2853za7);
		BGL_BIND_STRING(BGl_string2696z00zz__intextz00,
			BgL_bgl_string2696za700za7za7_2852za7);
		BGL_BIND_STRING(BGl_string2695z00zz__intextz00,
			BgL_bgl_string2695za700za7za7_2851za7);
		BGL_BIND_STRING(BGl_string2694z00zz__intextz00,
			BgL_bgl_string2694za700za7za7_2850za7);
		BGL_BIND_STRING(BGl_string2693z00zz__intextz00,
			BgL_bgl_string2693za700za7za7_2849za7);
		BGL_BIND_PROCEDURE
			(BGl_registerzd2classzd2serializa7ationz12zd2envz67zz__intextz00,
			BgL_bgl_za762registerza7d2cl2848z00);
		BGL_BIND_STRING(BGl_string2692z00zz__intextz00,
			BgL_bgl_string2692za700za7za7_2847za7);
		BGL_BIND_STRING(BGl_string2691z00zz__intextz00,
			BgL_bgl_string2691za700za7za7_2846za7);
		BGL_BIND_STRING(BGl_string2690z00zz__intextz00,
			BgL_bgl_string2690za700za7za7_2845za7);
		BGL_BIND_PROCEDURE(BGl_proc2762z00zz__intextz00,
			BgL_bgl_za762objectza7d2seri2844z00);
		BGL_BIND_STRING(BGl_string2689z00zz__intextz00,
			BgL_bgl_string2689za700za7za7_2843za7);
		BGL_BIND_STRING(BGl_string2688z00zz__intextz00,
			BgL_bgl_string2688za700za7za7_2842za7);
		BGL_BIND_STRING(BGl_string2686z00zz__intextz00,
			BgL_bgl_string2686za700za7za7_2841za7);
		BGL_BIND_STRING(BGl_string2685z00zz__intextz00,
			BgL_bgl_string2685za700za7za7_2840za7);
		BGL_BIND_STRING(BGl_string2684z00zz__intextz00,
			BgL_bgl_string2684za700za7za7_2839za7);
		BGL_BIND_STRING(BGl_string2765z00zz__intextz00,
			BgL_bgl_string2765za700za7za7_2838za7);
		BGL_BIND_STRING(BGl_string2683z00zz__intextz00,
			BgL_bgl_string2683za700za7za7_2837za7);
		BGL_BIND_STRING(BGl_string2764z00zz__intextz00,
			BgL_bgl_string2764za700za7za7_2836za7);
		BGL_BIND_STRING(BGl_string2682z00zz__intextz00,
			BgL_bgl_string2682za700za7za7_2835za7);
		BGL_BIND_STRING(BGl_string2763z00zz__intextz00,
			BgL_bgl_string2763za700za7za7_2834za7);
		BGL_BIND_STRING(BGl_string2680z00zz__intextz00,
			BgL_bgl_string2680za700za7za7_2833za7);
		BGL_BIND_STRING(BGl_string2761z00zz__intextz00,
			BgL_bgl_string2761za700za7za7_2832za7);
		BGL_BIND_STRING(BGl_string2760z00zz__intextz00,
			BgL_bgl_string2760za700za7za7_2831za7);
		BGL_BIND_PROCEDURE(BGl_proc2670z00zz__intextz00,
			BgL_bgl_za762za7c3za704za7a2stri2830z00);
		BGL_BIND_STRING(BGl_string2678z00zz__intextz00,
			BgL_bgl_string2678za700za7za7_2829za7);
		BGL_BIND_STRING(BGl_string2759z00zz__intextz00,
			BgL_bgl_string2759za700za7za7_2828za7);
		BGL_BIND_STRING(BGl_string2677z00zz__intextz00,
			BgL_bgl_string2677za700za7za7_2827za7);
		BGL_BIND_STRING(BGl_string2758z00zz__intextz00,
			BgL_bgl_string2758za700za7za7_2826za7);
		BGL_BIND_STRING(BGl_string2676z00zz__intextz00,
			BgL_bgl_string2676za700za7za7_2825za7);
		BGL_BIND_STRING(BGl_string2757z00zz__intextz00,
			BgL_bgl_string2757za700za7za7_2824za7);
		BGL_BIND_PROCEDURE(BGl_proc2669z00zz__intextz00,
			BgL_bgl_za762za7c3za704za7a2opaq2823z00);
		BGL_BIND_STRING(BGl_string2675z00zz__intextz00,
			BgL_bgl_string2675za700za7za7_2822za7);
		BGL_BIND_STRING(BGl_string2756z00zz__intextz00,
			BgL_bgl_string2756za700za7za7_2821za7);
		BGL_BIND_PROCEDURE(BGl_proc2668z00zz__intextz00,
			BgL_bgl_za762za7c3za704za7a2stri2820z00);
		BGL_BIND_STRING(BGl_string2674z00zz__intextz00,
			BgL_bgl_string2674za700za7za7_2819za7);
		BGL_BIND_STRING(BGl_string2755z00zz__intextz00,
			BgL_bgl_string2755za700za7za7_2818za7);
		BGL_BIND_PROCEDURE(BGl_proc2667z00zz__intextz00,
			BgL_bgl_za762za7c3za704za7a2proc2817z00);
		BGL_BIND_STRING(BGl_string2673z00zz__intextz00,
			BgL_bgl_string2673za700za7za7_2816za7);
		BGL_BIND_STRING(BGl_string2754z00zz__intextz00,
			BgL_bgl_string2754za700za7za7_2815za7);
		BGL_BIND_PROCEDURE(BGl_proc2666z00zz__intextz00,
			BgL_bgl_za762za7c3za704za7a2stri2814z00);
		BGL_BIND_STRING(BGl_string2672z00zz__intextz00,
			BgL_bgl_string2672za700za7za7_2813za7);
		BGL_BIND_STRING(BGl_string2753z00zz__intextz00,
			BgL_bgl_string2753za700za7za7_2812za7);
		BGL_BIND_PROCEDURE(BGl_proc2665z00zz__intextz00,
			BgL_bgl_za762za7c3za704za7a2proc2811z00);
		BGL_BIND_STRING(BGl_string2671z00zz__intextz00,
			BgL_bgl_string2671za700za7za7_2810za7);
		BGL_BIND_STRING(BGl_string2752z00zz__intextz00,
			BgL_bgl_string2752za700za7za7_2809za7);
		BGL_BIND_STRING(BGl_string2751z00zz__intextz00,
			BgL_bgl_string2751za700za7za7_2808za7);
		BGL_BIND_STRING(BGl_string2750z00zz__intextz00,
			BgL_bgl_string2750za700za7za7_2807za7);
		BGL_BIND_STRING(BGl_string2749z00zz__intextz00,
			BgL_bgl_string2749za700za7za7_2806za7);
		BGL_BIND_STRING(BGl_string2748z00zz__intextz00,
			BgL_bgl_string2748za700za7za7_2805za7);
		BGL_BIND_STRING(BGl_string2747z00zz__intextz00,
			BgL_bgl_string2747za700za7za7_2804za7);
		BGL_BIND_STRING(BGl_string2746z00zz__intextz00,
			BgL_bgl_string2746za700za7za7_2803za7);
		BGL_BIND_STRING(BGl_string2745z00zz__intextz00,
			BgL_bgl_string2745za700za7za7_2802za7);
		BGL_BIND_STRING(BGl_string2743z00zz__intextz00,
			BgL_bgl_string2743za700za7za7_2801za7);
		BGL_BIND_STRING(BGl_string2742z00zz__intextz00,
			BgL_bgl_string2742za700za7za7_2800za7);
		BGL_BIND_STRING(BGl_string2740z00zz__intextz00,
			BgL_bgl_string2740za700za7za7_2799za7);
		BGL_BIND_PROCEDURE(BGl_proc2732z00zz__intextz00,
			BgL_bgl_za762za7c3za704anonymo2798za7);
		BGL_BIND_STRING(BGl_string2738z00zz__intextz00,
			BgL_bgl_string2738za700za7za7_2797za7);
		BGL_BIND_STRING(BGl_string2737z00zz__intextz00,
			BgL_bgl_string2737za700za7za7_2796za7);
		BGL_BIND_STRING(BGl_string2734z00zz__intextz00,
			BgL_bgl_string2734za700za7za7_2795za7);
		BGL_BIND_STRING(BGl_string2731z00zz__intextz00,
			BgL_bgl_string2731za700za7za7_2794za7);
		BGL_BIND_STRING(BGl_string2730z00zz__intextz00,
			BgL_bgl_string2730za700za7za7_2793za7);
		BGL_BIND_STRING(BGl_string2729z00zz__intextz00,
			BgL_bgl_string2729za700za7za7_2792za7);
		BGL_BIND_STRING(BGl_string2728z00zz__intextz00,
			BgL_bgl_string2728za700za7za7_2791za7);
		BGL_BIND_STRING(BGl_string2727z00zz__intextz00,
			BgL_bgl_string2727za700za7za7_2790za7);
		BGL_BIND_STRING(BGl_string2726z00zz__intextz00,
			BgL_bgl_string2726za700za7za7_2789za7);
		BGL_BIND_STRING(BGl_string2725z00zz__intextz00,
			BgL_bgl_string2725za700za7za7_2788za7);
		BGL_BIND_STRING(BGl_string2724z00zz__intextz00,
			BgL_bgl_string2724za700za7za7_2787za7);
		BGL_BIND_STRING(BGl_string2723z00zz__intextz00,
			BgL_bgl_string2723za700za7za7_2786za7);
		BGL_BIND_STRING(BGl_string2721z00zz__intextz00,
			BgL_bgl_string2721za700za7za7_2785za7);
		BGL_BIND_PROCEDURE(BGl_getzd2opaquezd2serializa7ationzd2envz75zz__intextz00,
			BgL_bgl_za762getza7d2opaqueza72784za7);
		BGL_BIND_REAL(BGl_real2735z00zz__intextz00,
			BgL_bgl_real2735za700za7za7__i2783za7);
		BGL_BIND_STRING(BGl_string2719z00zz__intextz00,
			BgL_bgl_string2719za700za7za7_2782za7);
		BGL_BIND_STRING(BGl_string2717z00zz__intextz00,
			BgL_bgl_string2717za700za7za7_2781za7);
		BGL_BIND_STRING(BGl_string2715z00zz__intextz00,
			BgL_bgl_string2715za700za7za7_2780za7);
		BGL_BIND_STRING(BGl_string2713z00zz__intextz00,
			BgL_bgl_string2713za700za7za7_2779za7);
		BGL_BIND_STRING(BGl_string2711z00zz__intextz00,
			BgL_bgl_string2711za700za7za7_2778za7);
		BGL_BIND_PROCEDURE
			(BGl_makezd2serializa7ationzd2substringzd2envz75zz__intextz00,
			BgL_bgl_za762makeza7d2serial2777z00);
		BGL_BIND_STRING(BGl_string2709z00zz__intextz00,
			BgL_bgl_string2709za700za7za7_2776za7);
		BGL_BIND_STRING(BGl_string2707z00zz__intextz00,
			BgL_bgl_string2707za700za7za7_2775za7);
		BGL_BIND_STRING(BGl_string2705z00zz__intextz00,
			BgL_bgl_string2705za700za7za7_2774za7);
		BGL_BIND_STRING(BGl_string2703z00zz__intextz00,
			BgL_bgl_string2703za700za7za7_2773za7);
		BGL_BIND_STRING(BGl_string2702z00zz__intextz00,
			BgL_bgl_string2702za700za7za7_2772za7);
		BGL_BIND_STRING(BGl_string2701z00zz__intextz00,
			BgL_bgl_string2701za700za7za7_2771za7);
		BGL_BIND_STRING(BGl_string2700z00zz__intextz00,
			BgL_bgl_string2700za700za7za7_2770za7);
		BGL_BIND_PROCEDURE
			(BGl_registerzd2processzd2serializa7ationz12zd2envz67zz__intextz00,
			BgL_bgl_za762registerza7d2pr2769z00);
		BGL_BIND_PROCEDURE
			(BGl_getzd2procedurezd2serializa7ationzd2envz75zz__intextz00,
			BgL_bgl_za762getza7d2procedu2768z00);
		BGL_BIND_PROCEDURE
			(BGl_registerzd2procedurezd2serializa7ationz12zd2envz67zz__intextz00,
			BgL_bgl_za762registerza7d2pr2767z00);
	}

/* 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_symbol2720z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_symbol2722z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_symbol2733z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_symbol2736z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__intextz00));
		ADD_ROOT((void *) (&BGl_symbol2741z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_symbol2744z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_symbol2679z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_symbol2681z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_za2classzd2serializa7ationza2z75zz__intextz00));
		ADD_ROOT((void *) (&BGl_za2stringzd2ze3procedureza2z31zz__intextz00));
		ADD_ROOT((void *) (&BGl_za2processzd2ze3stringza2z31zz__intextz00));
		ADD_ROOT((void *) (&BGl_za2stringzd2ze3processza2z31zz__intextz00));
		ADD_ROOT((void *) (&BGl_za2stringzd2ze3opaqueza2z31zz__intextz00));
		ADD_ROOT((void *) (&BGl_za2opaquezd2ze3stringza2z31zz__intextz00));
		ADD_ROOT((void *) (&BGl_keyword2739z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_vector2687z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_za2customzd2serializa7ationza2z75zz__intextz00));
		ADD_ROOT((void *) (&BGl_za2procedurezd2ze3stringza2z31zz__intextz00));
		ADD_ROOT((void *) (&BGl_symbol2704z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_symbol2706z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_symbol2708z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_symbol2710z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_symbol2712z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_symbol2714z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_symbol2716z00zz__intextz00));
		ADD_ROOT((void *) (&BGl_symbol2718z00zz__intextz00));
#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__intextz00(long
		BgL_checksumz00_7100, char *BgL_fromz00_7101)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__intextz00))
				{
					BGl_requirezd2initializa7ationz75zz__intextz00 = BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__intextz00();
					BGl_cnstzd2initzd2zz__intextz00();
					BGl_importedzd2moduleszd2initz00zz__intextz00();
					BGl_genericzd2initzd2zz__intextz00();
					return BGl_toplevelzd2initzd2zz__intextz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__intextz00(void)
	{
		{	/* Unsafe/intext.scm 20 */
			BGl_symbol2679z00zz__intextz00 =
				bstring_to_symbol(BGl_string2680z00zz__intextz00);
			BGl_symbol2681z00zz__intextz00 =
				bstring_to_symbol(BGl_string2682z00zz__intextz00);
			BGl_vector2687z00zz__intextz00 =
				BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BNIL);
			BGl_symbol2704z00zz__intextz00 =
				bstring_to_symbol(BGl_string2705z00zz__intextz00);
			BGl_symbol2706z00zz__intextz00 =
				bstring_to_symbol(BGl_string2707z00zz__intextz00);
			BGl_symbol2708z00zz__intextz00 =
				bstring_to_symbol(BGl_string2709z00zz__intextz00);
			BGl_symbol2710z00zz__intextz00 =
				bstring_to_symbol(BGl_string2711z00zz__intextz00);
			BGl_symbol2712z00zz__intextz00 =
				bstring_to_symbol(BGl_string2713z00zz__intextz00);
			BGl_symbol2714z00zz__intextz00 =
				bstring_to_symbol(BGl_string2715z00zz__intextz00);
			BGl_symbol2716z00zz__intextz00 =
				bstring_to_symbol(BGl_string2717z00zz__intextz00);
			BGl_symbol2718z00zz__intextz00 =
				bstring_to_symbol(BGl_string2719z00zz__intextz00);
			BGl_symbol2720z00zz__intextz00 =
				bstring_to_symbol(BGl_string2721z00zz__intextz00);
			BGl_symbol2722z00zz__intextz00 =
				bstring_to_symbol(BGl_string2723z00zz__intextz00);
			BGl_symbol2733z00zz__intextz00 =
				bstring_to_symbol(BGl_string2734z00zz__intextz00);
			BGl_symbol2736z00zz__intextz00 =
				bstring_to_symbol(BGl_string2737z00zz__intextz00);
			BGl_keyword2739z00zz__intextz00 =
				bstring_to_keyword(BGl_string2740z00zz__intextz00);
			BGl_symbol2741z00zz__intextz00 =
				bstring_to_symbol(BGl_string2742z00zz__intextz00);
			return (BGl_symbol2744z00zz__intextz00 =
				bstring_to_symbol(BGl_string2745z00zz__intextz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__intextz00(void)
	{
		{	/* Unsafe/intext.scm 20 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__intextz00(void)
	{
		{	/* Unsafe/intext.scm 20 */
			BGl_za2epairzf3za2zf3zz__intextz00 = ((bool_t) 1);
			BGl_za2maxzd2siza7ezd2wordza2za7zz__intextz00 = sizeof(long);
			BGl_za2customzd2serializa7ationza2z75zz__intextz00 = BNIL;
			BGl_za2procedurezd2ze3stringza2z31zz__intextz00 =
				BGl_proc2665z00zz__intextz00;
			BGl_za2stringzd2ze3procedureza2z31zz__intextz00 =
				BGl_proc2666z00zz__intextz00;
			BGl_za2processzd2ze3stringza2z31zz__intextz00 =
				BGl_proc2667z00zz__intextz00;
			BGl_za2stringzd2ze3processza2z31zz__intextz00 =
				BGl_proc2668z00zz__intextz00;
			BGl_za2opaquezd2ze3stringza2z31zz__intextz00 =
				BGl_proc2669z00zz__intextz00;
			BGl_za2stringzd2ze3opaqueza2z31zz__intextz00 =
				BGl_proc2670z00zz__intextz00;
			return (BGl_za2classzd2serializa7ationza2z75zz__intextz00 =
				BNIL, BUNSPEC);
		}

	}



/* &<@*string->opaque*:1332> */
	obj_t BGl_z62zc3z04za2stringzd2ze3opaqueza2za31332ze3zd4zz__intextz00(obj_t
		BgL_envz00_6218, obj_t BgL_stringz00_6219)
	{
		{	/* Unsafe/intext.scm 1501 */
			return
				BGl_errorz00zz__errorz00(BGl_string2671z00zz__intextz00,
				BGl_string2672z00zz__intextz00, BgL_stringz00_6219);
		}

	}



/* &<@*opaque->string*:1330> */
	obj_t BGl_z62zc3z04za2opaquezd2ze3stringza2za31330ze3zd4zz__intextz00(obj_t
		BgL_envz00_6220, obj_t BgL_itemz00_6221)
	{
		{	/* Unsafe/intext.scm 1494 */
			return
				BGl_errorz00zz__errorz00(BGl_string2673z00zz__intextz00,
				BGl_string2674z00zz__intextz00,
				BGl_excerptz00zz__intextz00(BgL_itemz00_6221));
		}

	}



/* &<@*string->process*:1323> */
	obj_t BGl_z62zc3z04za2stringzd2ze3processza2za31323ze3zd4zz__intextz00(obj_t
		BgL_envz00_6222, obj_t BgL_stringz00_6223)
	{
		{	/* Unsafe/intext.scm 1474 */
			return
				BGl_errorz00zz__errorz00(BGl_string2671z00zz__intextz00,
				BGl_string2675z00zz__intextz00,
				BGl_excerptz00zz__intextz00(BgL_stringz00_6223));
		}

	}



/* &<@*process->string*:1302> */
	obj_t BGl_z62zc3z04za2processzd2ze3stringza2za31302ze3zd4zz__intextz00(obj_t
		BgL_envz00_6224, obj_t BgL_itemz00_6225)
	{
		{	/* Unsafe/intext.scm 1467 */
			return
				BGl_errorz00zz__errorz00(BGl_string2673z00zz__intextz00,
				BGl_string2676z00zz__intextz00,
				BGl_excerptz00zz__intextz00(BgL_itemz00_6225));
		}

	}



/* &<@*string->procedure1299> */
	obj_t BGl_z62zc3z04za2stringzd2ze3procedure1299ze3zd5zz__intextz00(obj_t
		BgL_envz00_6226, obj_t BgL_stringz00_6227)
	{
		{	/* Unsafe/intext.scm 1447 */
			return
				BGl_errorz00zz__errorz00(BGl_string2671z00zz__intextz00,
				BGl_string2677z00zz__intextz00,
				BGl_excerptz00zz__intextz00(BgL_stringz00_6227));
		}

	}



/* &<@*procedure->string1296> */
	obj_t BGl_z62zc3z04za2procedurezd2ze3string1296ze3zd5zz__intextz00(obj_t
		BgL_envz00_6228, obj_t BgL_itemz00_6229)
	{
		{	/* Unsafe/intext.scm 1440 */
			return
				BGl_errorz00zz__errorz00(BGl_string2673z00zz__intextz00,
				BGl_string2678z00zz__intextz00,
				BGl_excerptz00zz__intextz00(BgL_itemz00_6229));
		}

	}



/* set-obj-string-mode! */
	BGL_EXPORTED_DEF obj_t BGl_setzd2objzd2stringzd2modez12zc0zz__intextz00(obj_t
		BgL_modez00_17)
	{
		{	/* Unsafe/intext.scm 148 */
			if ((BgL_modez00_17 == BGl_symbol2679z00zz__intextz00))
				{	/* Unsafe/intext.scm 149 */
					return (BGl_za2epairzf3za2zf3zz__intextz00 = ((bool_t) 1), BUNSPEC);
				}
			else
				{	/* Unsafe/intext.scm 149 */
					if ((BgL_modez00_17 == BGl_symbol2681z00zz__intextz00))
						{	/* Unsafe/intext.scm 149 */
							return (BGl_za2epairzf3za2zf3zz__intextz00 =
								((bool_t) 0), BUNSPEC);
						}
					else
						{	/* Unsafe/intext.scm 149 */
							return BUNSPEC;
						}
				}
		}

	}



/* &set-obj-string-mode! */
	obj_t BGl_z62setzd2objzd2stringzd2modez12za2zz__intextz00(obj_t
		BgL_envz00_6230, obj_t BgL_modez00_6231)
	{
		{	/* Unsafe/intext.scm 148 */
			return BGl_setzd2objzd2stringzd2modez12zc0zz__intextz00(BgL_modez00_6231);
		}

	}



/* _string->obj */
	obj_t BGl__stringzd2ze3objz31zz__intextz00(obj_t BgL_env1194z00_22,
		obj_t BgL_opt1193z00_21)
	{
		{	/* Unsafe/intext.scm 158 */
			{	/* Unsafe/intext.scm 158 */
				obj_t BgL_g1195z00_1535;

				{
					obj_t BgL_auxz00_7146;

					if (VECTORP(BgL_opt1193z00_21))
						{	/* Unsafe/intext.scm 158 */
							BgL_auxz00_7146 = BgL_opt1193z00_21;
						}
					else
						{
							obj_t BgL_auxz00_7149;

							BgL_auxz00_7149 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
								BINT(5662L), BGl_string2684z00zz__intextz00,
								BGl_string2685z00zz__intextz00, BgL_opt1193z00_21);
							FAILURE(BgL_auxz00_7149, BFALSE, BFALSE);
						}
					BgL_g1195z00_1535 = VECTOR_REF(BgL_auxz00_7146, 0L);
				}
				{	/* Unsafe/intext.scm 158 */
					long BgL_aux1197z00_1537;

					{
						obj_t BgL_auxz00_7154;

						if (VECTORP(BgL_opt1193z00_21))
							{	/* Unsafe/intext.scm 158 */
								BgL_auxz00_7154 = BgL_opt1193z00_21;
							}
						else
							{
								obj_t BgL_auxz00_7157;

								BgL_auxz00_7157 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2683z00zz__intextz00, BINT(5662L),
									BGl_string2684z00zz__intextz00,
									BGl_string2685z00zz__intextz00, BgL_opt1193z00_21);
								FAILURE(BgL_auxz00_7157, BFALSE, BFALSE);
							}
						BgL_aux1197z00_1537 = VECTOR_LENGTH(BgL_auxz00_7154);
					}
					switch (BgL_aux1197z00_1537)
						{
						case 1L:

							{	/* Unsafe/intext.scm 158 */

								{	/* Unsafe/intext.scm 158 */
									obj_t BgL_auxz00_7162;

									if (STRINGP(BgL_g1195z00_1535))
										{	/* Unsafe/intext.scm 158 */
											BgL_auxz00_7162 = BgL_g1195z00_1535;
										}
									else
										{
											obj_t BgL_auxz00_7165;

											BgL_auxz00_7165 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2683z00zz__intextz00, BINT(5662L),
												BGl_string2684z00zz__intextz00,
												BGl_string2686z00zz__intextz00, BgL_g1195z00_1535);
											FAILURE(BgL_auxz00_7165, BFALSE, BFALSE);
										}
									return string_to_obj(BgL_auxz00_7162, BFALSE, BFALSE);
								}
							}
							break;
						case 2L:

							{	/* Unsafe/intext.scm 158 */
								obj_t BgL_extensionz00_1540;

								{
									obj_t BgL_auxz00_7170;

									if (VECTORP(BgL_opt1193z00_21))
										{	/* Unsafe/intext.scm 158 */
											BgL_auxz00_7170 = BgL_opt1193z00_21;
										}
									else
										{
											obj_t BgL_auxz00_7173;

											BgL_auxz00_7173 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2683z00zz__intextz00, BINT(5662L),
												BGl_string2684z00zz__intextz00,
												BGl_string2685z00zz__intextz00, BgL_opt1193z00_21);
											FAILURE(BgL_auxz00_7173, BFALSE, BFALSE);
										}
									BgL_extensionz00_1540 = VECTOR_REF(BgL_auxz00_7170, 1L);
								}
								{	/* Unsafe/intext.scm 158 */

									{	/* Unsafe/intext.scm 158 */
										obj_t BgL_auxz00_7178;

										if (STRINGP(BgL_g1195z00_1535))
											{	/* Unsafe/intext.scm 158 */
												BgL_auxz00_7178 = BgL_g1195z00_1535;
											}
										else
											{
												obj_t BgL_auxz00_7181;

												BgL_auxz00_7181 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2683z00zz__intextz00, BINT(5662L),
													BGl_string2684z00zz__intextz00,
													BGl_string2686z00zz__intextz00, BgL_g1195z00_1535);
												FAILURE(BgL_auxz00_7181, BFALSE, BFALSE);
											}
										return
											string_to_obj(BgL_auxz00_7178, BgL_extensionz00_1540,
											BFALSE);
									}
								}
							}
							break;
						case 3L:

							{	/* Unsafe/intext.scm 158 */
								obj_t BgL_extensionz00_1542;

								{
									obj_t BgL_auxz00_7186;

									if (VECTORP(BgL_opt1193z00_21))
										{	/* Unsafe/intext.scm 158 */
											BgL_auxz00_7186 = BgL_opt1193z00_21;
										}
									else
										{
											obj_t BgL_auxz00_7189;

											BgL_auxz00_7189 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2683z00zz__intextz00, BINT(5662L),
												BGl_string2684z00zz__intextz00,
												BGl_string2685z00zz__intextz00, BgL_opt1193z00_21);
											FAILURE(BgL_auxz00_7189, BFALSE, BFALSE);
										}
									BgL_extensionz00_1542 = VECTOR_REF(BgL_auxz00_7186, 1L);
								}
								{	/* Unsafe/intext.scm 158 */
									obj_t BgL_unserializa7ezd2argz75_1543;

									{
										obj_t BgL_auxz00_7194;

										if (VECTORP(BgL_opt1193z00_21))
											{	/* Unsafe/intext.scm 158 */
												BgL_auxz00_7194 = BgL_opt1193z00_21;
											}
										else
											{
												obj_t BgL_auxz00_7197;

												BgL_auxz00_7197 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2683z00zz__intextz00, BINT(5662L),
													BGl_string2684z00zz__intextz00,
													BGl_string2685z00zz__intextz00, BgL_opt1193z00_21);
												FAILURE(BgL_auxz00_7197, BFALSE, BFALSE);
											}
										BgL_unserializa7ezd2argz75_1543 =
											VECTOR_REF(BgL_auxz00_7194, 2L);
									}
									{	/* Unsafe/intext.scm 158 */

										{	/* Unsafe/intext.scm 158 */
											obj_t BgL_auxz00_7202;

											if (STRINGP(BgL_g1195z00_1535))
												{	/* Unsafe/intext.scm 158 */
													BgL_auxz00_7202 = BgL_g1195z00_1535;
												}
											else
												{
													obj_t BgL_auxz00_7205;

													BgL_auxz00_7205 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2683z00zz__intextz00, BINT(5662L),
														BGl_string2684z00zz__intextz00,
														BGl_string2686z00zz__intextz00, BgL_g1195z00_1535);
													FAILURE(BgL_auxz00_7205, BFALSE, BFALSE);
												}
											return
												string_to_obj(BgL_auxz00_7202, BgL_extensionz00_1542,
												BgL_unserializa7ezd2argz75_1543);
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string->obj */
	BGL_EXPORTED_DEF obj_t string_to_obj(obj_t BgL_sz00_18,
		obj_t BgL_extensionz00_19, obj_t BgL_unserializa7ezd2argz75_20)
	{
		{	/* Unsafe/intext.scm 158 */
			{	/* Unsafe/intext.scm 92 */
				struct bgl_unsafe_cell BgL_box2875_6696z00;
				obj_t BgL_za2pointerza2z00_6696;

				BgL_za2pointerza2z00_6696 =
					BGL_MAKE_UNSAFE_CELL_STACK(BINT(0L), BgL_box2875_6696z00);
				{	/* Unsafe/intext.scm 167 */
					struct bgl_unsafe_cell BgL_box2876_6697z00;
					obj_t BgL_za2definitionsza2z00_6697;

					BgL_za2definitionsza2z00_6697 =
						BGL_MAKE_UNSAFE_CELL_STACK(BGl_vector2687z00zz__intextz00,
						BgL_box2876_6697z00);
					{	/* Unsafe/intext.scm 92 */
						struct bgl_unsafe_cell BgL_box2877_6698z00;
						obj_t BgL_za2definingza2z00_6698;

						BgL_za2definingza2z00_6698 =
							BGL_MAKE_UNSAFE_CELL_STACK(BFALSE, BgL_box2877_6698z00);
						{	/* Unsafe/intext.scm 164 */
							long BgL_za2strlenza2z00_1547;

							BgL_za2strlenza2z00_1547 = STRING_LENGTH(BgL_sz00_18);
							BGl_stringzd2guardz12ze70z27zz__intextz00(BgL_sz00_18,
								BgL_za2strlenza2z00_1547, BgL_za2pointerza2z00_6696, 1L);
							{	/* Unsafe/intext.scm 641 */
								unsigned char BgL_dz00_1593;

								BgL_dz00_1593 =
									STRING_REF(BgL_sz00_18,
									(long) CINT(
										((obj_t)
											((obj_t)
												BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6696)))));
								if ((BgL_dz00_1593 == ((unsigned char) 'c')))
									{	/* Unsafe/intext.scm 642 */
										{	/* Unsafe/intext.scm 643 */
											obj_t BgL_auxz00_6699;

											BgL_auxz00_6699 =
												ADDFX(
												((obj_t)
													((obj_t)
														BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6696))),
												BINT(1L));
											BGL_UNSAFE_CELL_SET(BgL_za2pointerza2z00_6696,
												BgL_auxz00_6699);
										}
										{	/* Unsafe/intext.scm 644 */
											obj_t BgL_auxz00_6700;

											{	/* Unsafe/intext.scm 644 */
												long BgL_arg1353z00_1595;

												{	/* Unsafe/intext.scm 239 */
													long BgL_siza7eza7_4051;

													BgL_siza7eza7_4051 =
														BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
														(BgL_za2pointerza2z00_6696, BgL_sz00_18,
														BgL_za2strlenza2z00_1547, BgL_sz00_18);
													BGl_checkzd2siza7ez12ze70z80zz__intextz00(BgL_sz00_18,
														BgL_za2pointerza2z00_6696, BgL_za2strlenza2z00_1547,
														BgL_siza7eza7_4051, BGl_string2688z00zz__intextz00);
													BgL_arg1353z00_1595 = BgL_siza7eza7_4051;
												}
												BgL_auxz00_6700 =
													make_vector(BgL_arg1353z00_1595, BUNSPEC);
											}
											BGL_UNSAFE_CELL_SET(BgL_za2definitionsza2z00_6697,
												BgL_auxz00_6700);
									}}
								else
									{	/* Unsafe/intext.scm 642 */
										BFALSE;
									}
							}
							return
								BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_19,
								BgL_sz00_18, BgL_za2definitionsza2z00_6697,
								BgL_unserializa7ezd2argz75_20, BgL_za2definingza2z00_6698,
								BgL_za2pointerza2z00_6696, BgL_za2strlenza2z00_1547);
						}
					}
				}
			}
		}

	}



/* read-float~0 */
	double BGl_readzd2floatze70z35zz__intextz00(obj_t BgL_za2pointerza2z00_6642,
		obj_t BgL_sz00_6641, long BgL_za2strlenza2z00_6640, obj_t BgL_sz00_1622)
	{
		{	/* Unsafe/intext.scm 196 */
			{	/* Unsafe/intext.scm 193 */
				long BgL_sza7za7_1624;

				{	/* Unsafe/intext.scm 239 */
					long BgL_siza7eza7_3552;

					BgL_siza7eza7_3552 =
						BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
						(BgL_za2pointerza2z00_6642, BgL_sz00_6641, BgL_za2strlenza2z00_6640,
						BgL_sz00_1622);
					BGl_checkzd2siza7ez12ze70z80zz__intextz00(BgL_sz00_6641,
						BgL_za2pointerza2z00_6642, BgL_za2strlenza2z00_6640,
						BgL_siza7eza7_3552, BGl_string2689z00zz__intextz00);
					BgL_sza7za7_1624 = BgL_siza7eza7_3552;
				}
				{	/* Unsafe/intext.scm 193 */
					double BgL_resz00_1625;

					{	/* Unsafe/intext.scm 194 */
						obj_t BgL_arg1377z00_1626;

						{	/* Unsafe/intext.scm 194 */
							long BgL_arg1378z00_1627;

							{	/* Unsafe/intext.scm 194 */
								long BgL_za71za7_3553;

								BgL_za71za7_3553 =
									(long) CINT(
									((obj_t)
										((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6642))));
								BgL_arg1378z00_1627 = (BgL_za71za7_3553 + BgL_sza7za7_1624);
							}
							{	/* Unsafe/intext.scm 194 */
								long BgL_startz00_3556;

								BgL_startz00_3556 =
									(long) CINT(
									((obj_t)
										((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6642))));
								BgL_arg1377z00_1626 =
									c_substring(BgL_sz00_1622, BgL_startz00_3556,
									BgL_arg1378z00_1627);
						}}
						{	/* Unsafe/intext.scm 194 */
							bool_t BgL_test2879z00_7234;

							{	/* Unsafe/intext.scm 194 */
								long BgL_l1z00_3564;

								BgL_l1z00_3564 = STRING_LENGTH(BgL_arg1377z00_1626);
								if ((BgL_l1z00_3564 == 6L))
									{	/* Unsafe/intext.scm 194 */
										int BgL_arg2239z00_3567;

										{	/* Unsafe/intext.scm 194 */
											char *BgL_auxz00_7240;
											char *BgL_tmpz00_7238;

											BgL_auxz00_7240 =
												BSTRING_TO_STRING(BGl_string2690z00zz__intextz00);
											BgL_tmpz00_7238 = BSTRING_TO_STRING(BgL_arg1377z00_1626);
											BgL_arg2239z00_3567 =
												memcmp(BgL_tmpz00_7238, BgL_auxz00_7240,
												BgL_l1z00_3564);
										}
										BgL_test2879z00_7234 = ((long) (BgL_arg2239z00_3567) == 0L);
									}
								else
									{	/* Unsafe/intext.scm 194 */
										BgL_test2879z00_7234 = ((bool_t) 0);
									}
							}
							if (BgL_test2879z00_7234)
								{	/* Unsafe/intext.scm 194 */
									BgL_resz00_1625 = BGL_NAN;
								}
							else
								{	/* Unsafe/intext.scm 194 */
									bool_t BgL_test2881z00_7245;

									{	/* Unsafe/intext.scm 194 */
										long BgL_l1z00_3575;

										BgL_l1z00_3575 = STRING_LENGTH(BgL_arg1377z00_1626);
										if ((BgL_l1z00_3575 == 6L))
											{	/* Unsafe/intext.scm 194 */
												int BgL_arg2239z00_3578;

												{	/* Unsafe/intext.scm 194 */
													char *BgL_auxz00_7251;
													char *BgL_tmpz00_7249;

													BgL_auxz00_7251 =
														BSTRING_TO_STRING(BGl_string2691z00zz__intextz00);
													BgL_tmpz00_7249 =
														BSTRING_TO_STRING(BgL_arg1377z00_1626);
													BgL_arg2239z00_3578 =
														memcmp(BgL_tmpz00_7249, BgL_auxz00_7251,
														BgL_l1z00_3575);
												}
												BgL_test2881z00_7245 =
													((long) (BgL_arg2239z00_3578) == 0L);
											}
										else
											{	/* Unsafe/intext.scm 194 */
												BgL_test2881z00_7245 = ((bool_t) 0);
											}
									}
									if (BgL_test2881z00_7245)
										{	/* Unsafe/intext.scm 194 */
											BgL_resz00_1625 = BGL_INFINITY;
										}
									else
										{	/* Unsafe/intext.scm 194 */
											bool_t BgL_test2883z00_7256;

											{	/* Unsafe/intext.scm 194 */
												long BgL_l1z00_3586;

												BgL_l1z00_3586 = STRING_LENGTH(BgL_arg1377z00_1626);
												if ((BgL_l1z00_3586 == 6L))
													{	/* Unsafe/intext.scm 194 */
														int BgL_arg2239z00_3589;

														{	/* Unsafe/intext.scm 194 */
															char *BgL_auxz00_7262;
															char *BgL_tmpz00_7260;

															BgL_auxz00_7262 =
																BSTRING_TO_STRING
																(BGl_string2692z00zz__intextz00);
															BgL_tmpz00_7260 =
																BSTRING_TO_STRING(BgL_arg1377z00_1626);
															BgL_arg2239z00_3589 =
																memcmp(BgL_tmpz00_7260, BgL_auxz00_7262,
																BgL_l1z00_3586);
														}
														BgL_test2883z00_7256 =
															((long) (BgL_arg2239z00_3589) == 0L);
													}
												else
													{	/* Unsafe/intext.scm 194 */
														BgL_test2883z00_7256 = ((bool_t) 0);
													}
											}
											if (BgL_test2883z00_7256)
												{	/* Unsafe/intext.scm 194 */
													BgL_resz00_1625 = (-BGL_INFINITY);
												}
											else
												{	/* Unsafe/intext.scm 194 */
													char *BgL_tmpz00_7267;

													BgL_tmpz00_7267 =
														BSTRING_TO_STRING(BgL_arg1377z00_1626);
													BgL_resz00_1625 = STRTOD(BgL_tmpz00_7267);
					}}}}}
					{	/* Unsafe/intext.scm 194 */

						{	/* Unsafe/intext.scm 195 */
							obj_t BgL_auxz00_6643;

							BgL_auxz00_6643 =
								ADDFX(
								((obj_t)
									((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6642))),
								BINT(BgL_sza7za7_1624));
							BGL_UNSAFE_CELL_SET(BgL_za2pointerza2z00_6642, BgL_auxz00_6643);
						}
						return BgL_resz00_1625;
					}
				}
			}
		}

	}



/* read-long-word~0 */
	BGL_LONGLONG_T BGl_readzd2longzd2wordze70ze7zz__intextz00(obj_t
		BgL_za2pointerza2z00_6646, obj_t BgL_sz00_6645,
		long BgL_za2strlenza2z00_6644, obj_t BgL_sz00_1652, int BgL_sza7za7_1653)
	{
		{	/* Unsafe/intext.scm 228 */
			{	/* Unsafe/intext.scm 221 */
				BGL_LONGLONG_T BgL_accz00_1655;

				BgL_accz00_1655 = LONG_TO_LLONG(0L);
				BGl_stringzd2guardz12ze70z27zz__intextz00(BgL_sz00_6645,
					BgL_za2strlenza2z00_6644, BgL_za2pointerza2z00_6646,
					(long) (BgL_sza7za7_1653));
				{
					long BgL_iz00_1657;

					BgL_iz00_1657 = 0L;
				BgL_zc3z04anonymousza31392ze3z87_1658:
					if ((BgL_iz00_1657 < (long) (BgL_sza7za7_1653)))
						{	/* Unsafe/intext.scm 223 */
							{	/* Unsafe/intext.scm 224 */
								unsigned char BgL_dz00_1660;

								{	/* Unsafe/intext.scm 224 */
									long BgL_kz00_3620;

									BgL_kz00_3620 =
										(long) CINT(
										((obj_t)
											((obj_t)
												BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6646))));
									BgL_dz00_1660 = STRING_REF(BgL_sz00_1652, BgL_kz00_3620);
								}
								{	/* Unsafe/intext.scm 225 */
									BGL_LONGLONG_T BgL_arg1395z00_1661;
									BGL_LONGLONG_T BgL_arg1396z00_1662;

									BgL_arg1395z00_1661 =
										(((BGL_LONGLONG_T) 256) * BgL_accz00_1655);
									{	/* Unsafe/intext.scm 226 */
										long BgL_tmpz00_7283;

										BgL_tmpz00_7283 = (BgL_dz00_1660);
										BgL_arg1396z00_1662 = LONG_TO_LLONG(BgL_tmpz00_7283);
									}
									BgL_accz00_1655 = (BgL_arg1395z00_1661 + BgL_arg1396z00_1662);
								}
								{	/* Unsafe/intext.scm 227 */
									obj_t BgL_auxz00_6647;

									BgL_auxz00_6647 =
										ADDFX(
										((obj_t)
											((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6646))),
										BINT(1L));
									BGL_UNSAFE_CELL_SET(BgL_za2pointerza2z00_6646,
										BgL_auxz00_6647);
							}}
							{
								long BgL_iz00_7290;

								BgL_iz00_7290 = (BgL_iz00_1657 + 1L);
								BgL_iz00_1657 = BgL_iz00_7290;
								goto BgL_zc3z04anonymousza31392ze3z87_1658;
							}
						}
					else
						{	/* Unsafe/intext.scm 223 */
							((bool_t) 0);
						}
				}
				return BgL_accz00_1655;
			}
		}

	}



/* read-string~0 */
	obj_t BGl_readzd2stringze70z35zz__intextz00(obj_t BgL_za2definingza2z00_6652,
		obj_t BgL_za2definitionsza2z00_6651, obj_t BgL_za2pointerza2z00_6650,
		obj_t BgL_sz00_6649, long BgL_za2strlenza2z00_6648, obj_t BgL_sz00_1674)
	{
		{	/* Unsafe/intext.scm 251 */
			{	/* Unsafe/intext.scm 245 */
				long BgL_sza7za7_1676;

				{	/* Unsafe/intext.scm 239 */
					long BgL_siza7eza7_3642;

					BgL_siza7eza7_3642 =
						BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
						(BgL_za2pointerza2z00_6650, BgL_sz00_6649, BgL_za2strlenza2z00_6648,
						BgL_sz00_1674);
					BGl_checkzd2siza7ez12ze70z80zz__intextz00(BgL_sz00_6649,
						BgL_za2pointerza2z00_6650, BgL_za2strlenza2z00_6648,
						BgL_siza7eza7_3642, BGl_string2693z00zz__intextz00);
					BgL_sza7za7_1676 = BgL_siza7eza7_3642;
				}
				{	/* Unsafe/intext.scm 245 */
					obj_t BgL_resz00_1677;

					{	/* Unsafe/intext.scm 246 */
						long BgL_arg1404z00_1679;

						{	/* Unsafe/intext.scm 246 */
							long BgL_za71za7_3643;

							BgL_za71za7_3643 =
								(long) CINT(
								((obj_t)
									((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6650))));
							BgL_arg1404z00_1679 = (BgL_za71za7_3643 + BgL_sza7za7_1676);
						}
						{	/* Unsafe/intext.scm 246 */
							long BgL_startz00_3646;

							BgL_startz00_3646 =
								(long) CINT(
								((obj_t)
									((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6650))));
							BgL_resz00_1677 =
								c_substring(BgL_sz00_1674, BgL_startz00_3646,
								BgL_arg1404z00_1679);
					}}
					{	/* Unsafe/intext.scm 246 */

						{	/* Unsafe/intext.scm 247 */
							bool_t BgL_test2886z00_7300;

							{	/* Unsafe/intext.scm 247 */
								obj_t BgL_objz00_3648;

								BgL_objz00_3648 =
									BGL_UNSAFE_CELL_REF(BgL_za2definingza2z00_6652);
								BgL_test2886z00_7300 = INTEGERP(BgL_objz00_3648);
							}
							if (BgL_test2886z00_7300)
								{	/* Unsafe/intext.scm 247 */
									{	/* Unsafe/intext.scm 248 */
										obj_t BgL_vectorz00_3649;
										long BgL_kz00_3650;

										BgL_vectorz00_3649 =
											((obj_t)
											((obj_t)
												BGL_UNSAFE_CELL_REF(BgL_za2definitionsza2z00_6651)));
										BgL_kz00_3650 =
											(long)
											CINT(BGL_UNSAFE_CELL_REF(BgL_za2definingza2z00_6652));
										VECTOR_SET(BgL_vectorz00_3649, BgL_kz00_3650,
											BgL_resz00_1677);
									}
									{	/* Unsafe/intext.scm 249 */
										obj_t BgL_auxz00_6653;

										BgL_auxz00_6653 = BFALSE;
										BGL_UNSAFE_CELL_SET(BgL_za2definingza2z00_6652,
											BgL_auxz00_6653);
								}}
							else
								{	/* Unsafe/intext.scm 247 */
									BFALSE;
								}
						}
						{	/* Unsafe/intext.scm 250 */
							obj_t BgL_auxz00_6654;

							BgL_auxz00_6654 =
								ADDFX(
								((obj_t)
									((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6650))),
								BINT(BgL_sza7za7_1676));
							BGL_UNSAFE_CELL_SET(BgL_za2pointerza2z00_6650, BgL_auxz00_6654);
						}
						return BgL_resz00_1677;
					}
				}
			}
		}

	}



/* read-item~0 */
	obj_t BGl_readzd2itemze70z35zz__intextz00(obj_t BgL_extensionz00_6661,
		obj_t BgL_sz00_6660, obj_t BgL_za2definitionsza2z00_6659,
		obj_t BgL_unserializa7ezd2argz75_6658, obj_t BgL_za2definingza2z00_6657,
		obj_t BgL_za2pointerza2z00_6656, long BgL_za2strlenza2z00_6655)
	{
		{	/* Unsafe/intext.scm 585 */
		BGl_readzd2itemze70z35zz__intextz00:
			{
				obj_t BgL_sz00_1628;
				obj_t BgL_sz00_1925;
				obj_t BgL_sz00_2012;
				obj_t BgL_sz00_2025;

				BGl_stringzd2guardz12ze70z27zz__intextz00(BgL_sz00_6660,
					BgL_za2strlenza2z00_6655, BgL_za2pointerza2z00_6656, 1L);
				{	/* Unsafe/intext.scm 586 */
					unsigned char BgL_dz00_2039;

					{	/* Unsafe/intext.scm 586 */
						long BgL_kz00_4005;

						BgL_kz00_4005 =
							(long) CINT(
							((obj_t)
								((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6656))));
						BgL_dz00_2039 = (char) (STRING_REF(BgL_sz00_6660, BgL_kz00_4005));
					}
					{	/* Unsafe/intext.scm 587 */
						obj_t BgL_auxz00_6662;

						BgL_auxz00_6662 =
							ADDFX(
							((obj_t)
								((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6656))),
							BINT(1L));
						BGL_UNSAFE_CELL_SET(BgL_za2pointerza2z00_6656, BgL_auxz00_6662);
					}
					switch ((unsigned char) (BgL_dz00_2039))
						{
						case ((unsigned char) '='):

							{	/* Unsafe/intext.scm 255 */
								obj_t BgL_auxz00_6663;

								BgL_auxz00_6663 =
									BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
									BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
									BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
									BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
								BGL_UNSAFE_CELL_SET(BgL_za2definingza2z00_6657,
									BgL_auxz00_6663);
							}
							{

								goto BGl_readzd2itemze70z35zz__intextz00;
							}
							break;
						case ((unsigned char) '#'):

							{	/* Unsafe/intext.scm 260 */
								obj_t BgL_arg1407z00_4008;

								BgL_arg1407z00_4008 =
									BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
									BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
									BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
									BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
								{	/* Unsafe/intext.scm 260 */
									obj_t BgL_vectorz00_4009;
									long BgL_kz00_4010;

									BgL_vectorz00_4009 =
										((obj_t)
										((obj_t)
											BGL_UNSAFE_CELL_REF(BgL_za2definitionsza2z00_6659)));
									BgL_kz00_4010 = (long) CINT(BgL_arg1407z00_4008);
									return VECTOR_REF(BgL_vectorz00_4009, BgL_kz00_4010);
								}
							}
							break;
						case ((unsigned char) '\''):

							{	/* Unsafe/intext.scm 264 */
								obj_t BgL_arg1409z00_4011;

								BgL_arg1409z00_4011 =
									BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
									BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
									BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
									BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
								return bstring_to_symbol(((obj_t) BgL_arg1409z00_4011));
							}
							break;
						case ((unsigned char) ':'):

							{	/* Unsafe/intext.scm 268 */
								obj_t BgL_arg1411z00_4013;

								BgL_arg1411z00_4013 =
									BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
									BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
									BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
									BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
								return bstring_to_keyword(((obj_t) BgL_arg1411z00_4013));
							}
							break;
						case ((unsigned char) 'a'):

							{	/* Unsafe/intext.scm 207 */
								long BgL_arg1384z00_4015;

								BgL_arg1384z00_4015 =
									BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
									(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
									BgL_za2strlenza2z00_6655, BgL_sz00_6660);
								return BCHAR((BgL_arg1384z00_4015));
							}
							break;
						case ((unsigned char) 'F'):

							return BFALSE;
							break;
						case ((unsigned char) 'T'):

							return BTRUE;
							break;
						case ((unsigned char) ';'):

							return BUNSPEC;
							break;
						case ((unsigned char) '.'):

							return BNIL;
							break;
						case ((unsigned char) '<'):

							{	/* Unsafe/intext.scm 272 */
								long BgL_tmpz00_7330;

								BgL_tmpz00_7330 =
									BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
									(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
									BgL_za2strlenza2z00_6655, BgL_sz00_6660);
								return BCNST(BgL_tmpz00_7330);
							}
							break;
						case ((unsigned char) '"'):

							return
								BGl_readzd2stringze70z35zz__intextz00
								(BgL_za2definingza2z00_6657, BgL_za2definitionsza2z00_6659,
								BgL_za2pointerza2z00_6656, BgL_sz00_6660,
								BgL_za2strlenza2z00_6655, BgL_sz00_6660);
							break;
						case ((unsigned char) '`'):

							return
								BGl_readzd2stringze70z35zz__intextz00
								(BgL_za2definingza2z00_6657, BgL_za2definitionsza2z00_6659,
								BgL_za2pointerza2z00_6656, BgL_sz00_6660,
								BgL_za2strlenza2z00_6655, BgL_sz00_6660);
							break;
						case ((unsigned char) '%'):

							return
								BGl_urlzd2decodezd2zz__urlz00
								(BGl_readzd2stringze70z35zz__intextz00
								(BgL_za2definingza2z00_6657, BgL_za2definitionsza2z00_6659,
									BgL_za2pointerza2z00_6656, BgL_sz00_6660,
									BgL_za2strlenza2z00_6655, BgL_sz00_6660));
							break;
						case ((unsigned char) 'U'):

							return
								utf8_string_to_ucs2_string(BGl_readzd2stringze70z35zz__intextz00
								(BgL_za2definingza2z00_6657, BgL_za2definitionsza2z00_6659,
									BgL_za2pointerza2z00_6656, BgL_sz00_6660,
									BgL_za2strlenza2z00_6655, BgL_sz00_6660));
							break;
						case ((unsigned char) '['):

							{	/* Unsafe/intext.scm 310 */
								long BgL_sza7za7_1714;

								{	/* Unsafe/intext.scm 239 */
									long BgL_siza7eza7_3687;

									BgL_siza7eza7_3687 =
										BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
										(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
										BgL_za2strlenza2z00_6655, BgL_sz00_6660);
									BGl_checkzd2siza7ez12ze70z80zz__intextz00(BgL_sz00_6660,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655,
										BgL_siza7eza7_3687, BGl_string2685z00zz__intextz00);
									BgL_sza7za7_1714 = BgL_siza7eza7_3687;
								}
								{	/* Unsafe/intext.scm 310 */
									obj_t BgL_resz00_1715;

									BgL_resz00_1715 = create_vector(BgL_sza7za7_1714);
									{	/* Unsafe/intext.scm 311 */

										{	/* Unsafe/intext.scm 312 */
											bool_t BgL_test2887z00_7342;

											{	/* Unsafe/intext.scm 312 */
												obj_t BgL_objz00_3688;

												BgL_objz00_3688 =
													BGL_UNSAFE_CELL_REF(BgL_za2definingza2z00_6657);
												BgL_test2887z00_7342 = INTEGERP(BgL_objz00_3688);
											}
											if (BgL_test2887z00_7342)
												{	/* Unsafe/intext.scm 312 */
													{	/* Unsafe/intext.scm 313 */
														obj_t BgL_vectorz00_3689;
														long BgL_kz00_3690;

														BgL_vectorz00_3689 =
															((obj_t)
															((obj_t)
																BGL_UNSAFE_CELL_REF
																(BgL_za2definitionsza2z00_6659)));
														BgL_kz00_3690 =
															(long)
															CINT(BGL_UNSAFE_CELL_REF
															(BgL_za2definingza2z00_6657));
														VECTOR_SET(BgL_vectorz00_3689, BgL_kz00_3690,
															BgL_resz00_1715);
													}
													{	/* Unsafe/intext.scm 314 */
														obj_t BgL_auxz00_6678;

														BgL_auxz00_6678 = BFALSE;
														BGL_UNSAFE_CELL_SET(BgL_za2definingza2z00_6657,
															BgL_auxz00_6678);
												}}
											else
												{	/* Unsafe/intext.scm 312 */
													BFALSE;
												}
										}
										{
											long BgL_iz00_3697;

											BgL_iz00_3697 = 0L;
										BgL_for1044z00_3696:
											if ((BgL_iz00_3697 < BgL_sza7za7_1714))
												{	/* Unsafe/intext.scm 315 */
													VECTOR_SET(BgL_resz00_1715, BgL_iz00_3697,
														BGl_readzd2itemze70z35zz__intextz00
														(BgL_extensionz00_6661, BgL_sz00_6660,
															BgL_za2definitionsza2z00_6659,
															BgL_unserializa7ezd2argz75_6658,
															BgL_za2definingza2z00_6657,
															BgL_za2pointerza2z00_6656,
															BgL_za2strlenza2z00_6655));
													{
														long BgL_iz00_7351;

														BgL_iz00_7351 = (BgL_iz00_3697 + 1L);
														BgL_iz00_3697 = BgL_iz00_7351;
														goto BgL_for1044z00_3696;
													}
												}
											else
												{	/* Unsafe/intext.scm 315 */
													((bool_t) 0);
												}
										}
										return BgL_resz00_1715;
									}
								}
							}
							break;
						case ((unsigned char) 't'):

							{	/* Unsafe/intext.scm 368 */
								obj_t BgL_tagz00_1841;

								BgL_tagz00_1841 =
									BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
									BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
									BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
									BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
								{	/* Unsafe/intext.scm 368 */
									long BgL_sza7za7_1842;

									{	/* Unsafe/intext.scm 239 */
										long BgL_siza7eza7_3836;

										BgL_siza7eza7_3836 =
											BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
											(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
											BgL_za2strlenza2z00_6655, BgL_sz00_6660);
										BGl_checkzd2siza7ez12ze70z80zz__intextz00(BgL_sz00_6660,
											BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655,
											BgL_siza7eza7_3836, BGl_string2701z00zz__intextz00);
										BgL_sza7za7_1842 = BgL_siza7eza7_3836;
									}
									{	/* Unsafe/intext.scm 369 */
										obj_t BgL_resz00_1843;

										BgL_resz00_1843 = create_vector(BgL_sza7za7_1842);
										{	/* Unsafe/intext.scm 370 */

											{	/* Unsafe/intext.scm 371 */
												int BgL_tmpz00_7357;

												BgL_tmpz00_7357 = CINT(BgL_tagz00_1841);
												VECTOR_TAG_SET(BgL_resz00_1843, BgL_tmpz00_7357);
											}
											{	/* Unsafe/intext.scm 372 */
												bool_t BgL_test2889z00_7360;

												{	/* Unsafe/intext.scm 372 */
													obj_t BgL_objz00_3839;

													BgL_objz00_3839 =
														BGL_UNSAFE_CELL_REF(BgL_za2definingza2z00_6657);
													BgL_test2889z00_7360 = INTEGERP(BgL_objz00_3839);
												}
												if (BgL_test2889z00_7360)
													{	/* Unsafe/intext.scm 372 */
														{	/* Unsafe/intext.scm 373 */
															obj_t BgL_vectorz00_3840;
															long BgL_kz00_3841;

															BgL_vectorz00_3840 =
																((obj_t)
																((obj_t)
																	BGL_UNSAFE_CELL_REF
																	(BgL_za2definitionsza2z00_6659)));
															BgL_kz00_3841 =
																(long)
																CINT(BGL_UNSAFE_CELL_REF
																(BgL_za2definingza2z00_6657));
															VECTOR_SET(BgL_vectorz00_3840, BgL_kz00_3841,
																BgL_resz00_1843);
														}
														{	/* Unsafe/intext.scm 374 */
															obj_t BgL_auxz00_6677;

															BgL_auxz00_6677 = BFALSE;
															BGL_UNSAFE_CELL_SET(BgL_za2definingza2z00_6657,
																BgL_auxz00_6677);
													}}
												else
													{	/* Unsafe/intext.scm 372 */
														BFALSE;
													}
											}
											{
												long BgL_iz00_3848;

												BgL_iz00_3848 = 0L;
											BgL_for1055z00_3847:
												if ((BgL_iz00_3848 < BgL_sza7za7_1842))
													{	/* Unsafe/intext.scm 375 */
														VECTOR_SET(BgL_resz00_1843, BgL_iz00_3848,
															BGl_readzd2itemze70z35zz__intextz00
															(BgL_extensionz00_6661, BgL_sz00_6660,
																BgL_za2definitionsza2z00_6659,
																BgL_unserializa7ezd2argz75_6658,
																BgL_za2definingza2z00_6657,
																BgL_za2pointerza2z00_6656,
																BgL_za2strlenza2z00_6655));
														{
															long BgL_iz00_7369;

															BgL_iz00_7369 = (BgL_iz00_3848 + 1L);
															BgL_iz00_3848 = BgL_iz00_7369;
															goto BgL_for1055z00_3847;
														}
													}
												else
													{	/* Unsafe/intext.scm 375 */
														((bool_t) 0);
													}
											}
											return BgL_resz00_1843;
										}
									}
								}
							}
							break;
						case ((unsigned char) 'V'):

							{	/* Unsafe/intext.scm 380 */
								obj_t BgL_idz00_1853;

								BgL_idz00_1853 =
									BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
									BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
									BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
									BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
								{	/* Unsafe/intext.scm 380 */
									obj_t BgL_vz00_1854;

									BgL_vz00_1854 =
										BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
										BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
										BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
									{	/* Unsafe/intext.scm 381 */
										obj_t BgL_tvz00_1855;

										BgL_tvz00_1855 =
											BGl_vectorzd2ze3tvectorz31zz__tvectorz00(BgL_idz00_1853,
											BgL_vz00_1854);
										{	/* Unsafe/intext.scm 382 */

											{	/* Unsafe/intext.scm 383 */
												bool_t BgL_test2891z00_7374;

												{	/* Unsafe/intext.scm 383 */
													obj_t BgL_objz00_3857;

													BgL_objz00_3857 =
														BGL_UNSAFE_CELL_REF(BgL_za2definingza2z00_6657);
													BgL_test2891z00_7374 = INTEGERP(BgL_objz00_3857);
												}
												if (BgL_test2891z00_7374)
													{	/* Unsafe/intext.scm 383 */
														{	/* Unsafe/intext.scm 384 */
															obj_t BgL_vectorz00_3858;
															long BgL_kz00_3859;

															BgL_vectorz00_3858 =
																((obj_t)
																((obj_t)
																	BGL_UNSAFE_CELL_REF
																	(BgL_za2definitionsza2z00_6659)));
															BgL_kz00_3859 =
																(long)
																CINT(BGL_UNSAFE_CELL_REF
																(BgL_za2definingza2z00_6657));
															VECTOR_SET(BgL_vectorz00_3858, BgL_kz00_3859,
																BgL_tvz00_1855);
														}
														{	/* Unsafe/intext.scm 385 */
															obj_t BgL_auxz00_6676;

															BgL_auxz00_6676 = BFALSE;
															BGL_UNSAFE_CELL_SET(BgL_za2definingza2z00_6657,
																BgL_auxz00_6676);
													}}
												else
													{	/* Unsafe/intext.scm 383 */
														BFALSE;
													}
											}
											return BgL_tvz00_1855;
										}
									}
								}
							}
							break;
						case ((unsigned char) 'h'):

							{	/* Unsafe/intext.scm 320 */
								long BgL_lenz00_1725;
								long BgL_bsiza7eza7_1726;

								{	/* Unsafe/intext.scm 239 */
									long BgL_siza7eza7_3706;

									BgL_siza7eza7_3706 =
										BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
										(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
										BgL_za2strlenza2z00_6655, BgL_sz00_6660);
									BGl_checkzd2siza7ez12ze70z80zz__intextz00(BgL_sz00_6660,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655,
										BgL_siza7eza7_3706, BGl_string2702z00zz__intextz00);
									BgL_lenz00_1725 = BgL_siza7eza7_3706;
								}
								{	/* Unsafe/intext.scm 239 */
									long BgL_siza7eza7_3707;

									BgL_siza7eza7_3707 =
										BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
										(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
										BgL_za2strlenza2z00_6655, BgL_sz00_6660);
									BGl_checkzd2siza7ez12ze70z80zz__intextz00(BgL_sz00_6660,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655,
										BgL_siza7eza7_3707, BGl_string2703z00zz__intextz00);
									BgL_bsiza7eza7_1726 = BgL_siza7eza7_3707;
								}
								{	/* Unsafe/intext.scm 322 */
									obj_t BgL_casezd2valuezd2_1727;

									{	/* Unsafe/intext.scm 264 */
										obj_t BgL_arg1409z00_3708;

										BgL_arg1409z00_3708 =
											BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
											BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
											BgL_unserializa7ezd2argz75_6658,
											BgL_za2definingza2z00_6657, BgL_za2pointerza2z00_6656,
											BgL_za2strlenza2z00_6655);
										BgL_casezd2valuezd2_1727 =
											bstring_to_symbol(((obj_t) BgL_arg1409z00_3708));
									}
									if (
										(BgL_casezd2valuezd2_1727 ==
											BGl_symbol2704z00zz__intextz00))
										{	/* Unsafe/intext.scm 324 */
											obj_t BgL_resz00_1729;

											{	/* Llib/srfi4.scm 446 */

												BgL_resz00_1729 =
													BGl_makezd2s8vectorzd2zz__srfi4z00(BgL_lenz00_1725,
													(int8_t) (0));
											}
											{
												long BgL_iz00_3716;

												BgL_iz00_3716 = 0L;
											BgL_for1045z00_3715:
												if ((BgL_iz00_3716 < BgL_lenz00_1725))
													{	/* Unsafe/intext.scm 325 */
														{	/* Unsafe/intext.scm 326 */
															int8_t BgL_arg1438z00_3720;

															{	/* Unsafe/intext.scm 326 */
																long BgL_tmpz00_7391;

																BgL_tmpz00_7391 =
																	BGl_readzd2wordze70z35zz__intextz00
																	(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
																	BgL_za2strlenza2z00_6655, BgL_sz00_6660,
																	(int) (BgL_bsiza7eza7_1726));
																BgL_arg1438z00_3720 =
																	(int8_t) (BgL_tmpz00_7391);
															}
															BGL_S8VSET(BgL_resz00_1729, BgL_iz00_3716,
																BgL_arg1438z00_3720);
															BUNSPEC;
														}
														{
															long BgL_iz00_7396;

															BgL_iz00_7396 = (BgL_iz00_3716 + 1L);
															BgL_iz00_3716 = BgL_iz00_7396;
															goto BgL_for1045z00_3715;
														}
													}
												else
													{	/* Unsafe/intext.scm 325 */
														((bool_t) 0);
													}
											}
											return BgL_resz00_1729;
										}
									else
										{	/* Unsafe/intext.scm 322 */
											if (
												(BgL_casezd2valuezd2_1727 ==
													BGl_symbol2706z00zz__intextz00))
												{	/* Unsafe/intext.scm 329 */
													obj_t BgL_resz00_1741;

													{	/* Llib/srfi4.scm 447 */

														BgL_resz00_1741 =
															BGl_makezd2u8vectorzd2zz__srfi4z00
															(BgL_lenz00_1725, (uint8_t) (0));
													}
													{
														long BgL_iz00_3731;

														BgL_iz00_3731 = 0L;
													BgL_for1046z00_3730:
														if ((BgL_iz00_3731 < BgL_lenz00_1725))
															{	/* Unsafe/intext.scm 330 */
																{	/* Unsafe/intext.scm 331 */
																	uint8_t BgL_arg1447z00_3735;

																	{	/* Unsafe/intext.scm 331 */
																		long BgL_tmpz00_7403;

																		BgL_tmpz00_7403 =
																			BGl_readzd2wordze70z35zz__intextz00
																			(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
																			BgL_za2strlenza2z00_6655, BgL_sz00_6660,
																			(int) (BgL_bsiza7eza7_1726));
																		BgL_arg1447z00_3735 =
																			(uint8_t) (BgL_tmpz00_7403);
																	}
																	BGL_U8VSET(BgL_resz00_1741, BgL_iz00_3731,
																		BgL_arg1447z00_3735);
																	BUNSPEC;
																}
																{
																	long BgL_iz00_7408;

																	BgL_iz00_7408 = (BgL_iz00_3731 + 1L);
																	BgL_iz00_3731 = BgL_iz00_7408;
																	goto BgL_for1046z00_3730;
																}
															}
														else
															{	/* Unsafe/intext.scm 330 */
																((bool_t) 0);
															}
													}
													return BgL_resz00_1741;
												}
											else
												{	/* Unsafe/intext.scm 322 */
													if (
														(BgL_casezd2valuezd2_1727 ==
															BGl_symbol2708z00zz__intextz00))
														{	/* Unsafe/intext.scm 334 */
															obj_t BgL_resz00_1753;

															{	/* Llib/srfi4.scm 448 */

																BgL_resz00_1753 =
																	BGl_makezd2s16vectorzd2zz__srfi4z00
																	(BgL_lenz00_1725, (int16_t) (0));
															}
															{
																long BgL_iz00_3745;

																BgL_iz00_3745 = 0L;
															BgL_for1047z00_3744:
																if ((BgL_iz00_3745 < BgL_lenz00_1725))
																	{	/* Unsafe/intext.scm 335 */
																		{	/* Unsafe/intext.scm 335 */
																			long BgL_arg1455z00_3749;

																			BgL_arg1455z00_3749 =
																				BGl_readzd2wordze70z35zz__intextz00
																				(BgL_za2pointerza2z00_6656,
																				BgL_sz00_6660, BgL_za2strlenza2z00_6655,
																				BgL_sz00_6660,
																				(int) (BgL_bsiza7eza7_1726));
																			{	/* Unsafe/intext.scm 335 */
																				int16_t BgL_tmpz00_7417;

																				BgL_tmpz00_7417 =
																					(int16_t) (BgL_arg1455z00_3749);
																				BGL_S16VSET(BgL_resz00_1753,
																					BgL_iz00_3745, BgL_tmpz00_7417);
																			} BUNSPEC;
																		}
																		{
																			long BgL_iz00_7420;

																			BgL_iz00_7420 = (BgL_iz00_3745 + 1L);
																			BgL_iz00_3745 = BgL_iz00_7420;
																			goto BgL_for1047z00_3744;
																		}
																	}
																else
																	{	/* Unsafe/intext.scm 335 */
																		((bool_t) 0);
																	}
															}
															return BgL_resz00_1753;
														}
													else
														{	/* Unsafe/intext.scm 322 */
															if (
																(BgL_casezd2valuezd2_1727 ==
																	BGl_symbol2710z00zz__intextz00))
																{	/* Unsafe/intext.scm 338 */
																	obj_t BgL_resz00_1764;

																	{	/* Llib/srfi4.scm 449 */

																		BgL_resz00_1764 =
																			BGl_makezd2u16vectorzd2zz__srfi4z00
																			(BgL_lenz00_1725, (uint16_t) (0));
																	}
																	{
																		long BgL_iz00_3757;

																		BgL_iz00_3757 = 0L;
																	BgL_for1048z00_3756:
																		if ((BgL_iz00_3757 < BgL_lenz00_1725))
																			{	/* Unsafe/intext.scm 339 */
																				{	/* Unsafe/intext.scm 339 */
																					long BgL_arg1461z00_3761;

																					BgL_arg1461z00_3761 =
																						BGl_readzd2wordze70z35zz__intextz00
																						(BgL_za2pointerza2z00_6656,
																						BgL_sz00_6660,
																						BgL_za2strlenza2z00_6655,
																						BgL_sz00_6660,
																						(int) (BgL_bsiza7eza7_1726));
																					{	/* Unsafe/intext.scm 339 */
																						uint16_t BgL_tmpz00_7429;

																						BgL_tmpz00_7429 =
																							(uint16_t) (BgL_arg1461z00_3761);
																						BGL_U16VSET(BgL_resz00_1764,
																							BgL_iz00_3757, BgL_tmpz00_7429);
																					} BUNSPEC;
																				}
																				{
																					long BgL_iz00_7432;

																					BgL_iz00_7432 = (BgL_iz00_3757 + 1L);
																					BgL_iz00_3757 = BgL_iz00_7432;
																					goto BgL_for1048z00_3756;
																				}
																			}
																		else
																			{	/* Unsafe/intext.scm 339 */
																				((bool_t) 0);
																			}
																	}
																	return BgL_resz00_1764;
																}
															else
																{	/* Unsafe/intext.scm 322 */
																	if (
																		(BgL_casezd2valuezd2_1727 ==
																			BGl_symbol2712z00zz__intextz00))
																		{	/* Unsafe/intext.scm 342 */
																			obj_t BgL_resz00_1775;

																			{	/* Llib/srfi4.scm 450 */

																				BgL_resz00_1775 =
																					BGl_makezd2s32vectorzd2zz__srfi4z00
																					(BgL_lenz00_1725, (int32_t) (0));
																			}
																			{
																				long BgL_iz00_3769;

																				BgL_iz00_3769 = 0L;
																			BgL_for1049z00_3768:
																				if ((BgL_iz00_3769 < BgL_lenz00_1725))
																					{	/* Unsafe/intext.scm 343 */
																						{	/* Unsafe/intext.scm 343 */
																							long BgL_arg1467z00_3773;

																							BgL_arg1467z00_3773 =
																								BGl_readzd2wordze70z35zz__intextz00
																								(BgL_za2pointerza2z00_6656,
																								BgL_sz00_6660,
																								BgL_za2strlenza2z00_6655,
																								BgL_sz00_6660,
																								(int) (BgL_bsiza7eza7_1726));
																							{	/* Unsafe/intext.scm 343 */
																								int32_t BgL_tmpz00_7441;

																								BgL_tmpz00_7441 =
																									(int32_t)
																									(BgL_arg1467z00_3773);
																								BGL_S32VSET(BgL_resz00_1775,
																									BgL_iz00_3769,
																									BgL_tmpz00_7441);
																							} BUNSPEC;
																						}
																						{
																							long BgL_iz00_7444;

																							BgL_iz00_7444 =
																								(BgL_iz00_3769 + 1L);
																							BgL_iz00_3769 = BgL_iz00_7444;
																							goto BgL_for1049z00_3768;
																						}
																					}
																				else
																					{	/* Unsafe/intext.scm 343 */
																						((bool_t) 0);
																					}
																			}
																			return BgL_resz00_1775;
																		}
																	else
																		{	/* Unsafe/intext.scm 322 */
																			if (
																				(BgL_casezd2valuezd2_1727 ==
																					BGl_symbol2714z00zz__intextz00))
																				{	/* Unsafe/intext.scm 346 */
																					obj_t BgL_resz00_1786;

																					{	/* Llib/srfi4.scm 451 */

																						BgL_resz00_1786 =
																							BGl_makezd2u32vectorzd2zz__srfi4z00
																							(BgL_lenz00_1725, (uint32_t) (0));
																					}
																					{
																						long BgL_iz00_3781;

																						BgL_iz00_3781 = 0L;
																					BgL_for1050z00_3780:
																						if (
																							(BgL_iz00_3781 < BgL_lenz00_1725))
																							{	/* Unsafe/intext.scm 347 */
																								{	/* Unsafe/intext.scm 347 */
																									long BgL_arg1473z00_3785;

																									BgL_arg1473z00_3785 =
																										BGl_readzd2wordze70z35zz__intextz00
																										(BgL_za2pointerza2z00_6656,
																										BgL_sz00_6660,
																										BgL_za2strlenza2z00_6655,
																										BgL_sz00_6660,
																										(int)
																										(BgL_bsiza7eza7_1726));
																									{	/* Unsafe/intext.scm 347 */
																										uint32_t BgL_tmpz00_7453;

																										BgL_tmpz00_7453 =
																											(uint32_t)
																											(BgL_arg1473z00_3785);
																										BGL_U32VSET(BgL_resz00_1786,
																											BgL_iz00_3781,
																											BgL_tmpz00_7453);
																									} BUNSPEC;
																								}
																								{
																									long BgL_iz00_7456;

																									BgL_iz00_7456 =
																										(BgL_iz00_3781 + 1L);
																									BgL_iz00_3781 = BgL_iz00_7456;
																									goto BgL_for1050z00_3780;
																								}
																							}
																						else
																							{	/* Unsafe/intext.scm 347 */
																								((bool_t) 0);
																							}
																					}
																					return BgL_resz00_1786;
																				}
																			else
																				{	/* Unsafe/intext.scm 322 */
																					if (
																						(BgL_casezd2valuezd2_1727 ==
																							BGl_symbol2716z00zz__intextz00))
																						{	/* Unsafe/intext.scm 350 */
																							obj_t BgL_resz00_1797;

																							{	/* Llib/srfi4.scm 452 */

																								BgL_resz00_1797 =
																									BGl_makezd2s64vectorzd2zz__srfi4z00
																									(BgL_lenz00_1725,
																									(int64_t) (0));
																							}
																							{
																								long BgL_iz00_3793;

																								BgL_iz00_3793 = 0L;
																							BgL_for1051z00_3792:
																								if (
																									(BgL_iz00_3793 <
																										BgL_lenz00_1725))
																									{	/* Unsafe/intext.scm 351 */
																										{	/* Unsafe/intext.scm 351 */
																											BGL_LONGLONG_T
																												BgL_arg1479z00_3797;
																											BgL_arg1479z00_3797 =
																												BGl_readzd2longzd2wordze70ze7zz__intextz00
																												(BgL_za2pointerza2z00_6656,
																												BgL_sz00_6660,
																												BgL_za2strlenza2z00_6655,
																												BgL_sz00_6660,
																												(int)
																												(BgL_bsiza7eza7_1726));
																											{	/* Unsafe/intext.scm 351 */
																												int64_t BgL_tmpz00_7465;

																												BgL_tmpz00_7465 =
																													(int64_t)
																													(BgL_arg1479z00_3797);
																												BGL_S64VSET
																													(BgL_resz00_1797,
																													BgL_iz00_3793,
																													BgL_tmpz00_7465);
																											} BUNSPEC;
																										}
																										{
																											long BgL_iz00_7468;

																											BgL_iz00_7468 =
																												(BgL_iz00_3793 + 1L);
																											BgL_iz00_3793 =
																												BgL_iz00_7468;
																											goto BgL_for1051z00_3792;
																										}
																									}
																								else
																									{	/* Unsafe/intext.scm 351 */
																										((bool_t) 0);
																									}
																							}
																							return BgL_resz00_1797;
																						}
																					else
																						{	/* Unsafe/intext.scm 322 */
																							if (
																								(BgL_casezd2valuezd2_1727 ==
																									BGl_symbol2718z00zz__intextz00))
																								{	/* Unsafe/intext.scm 354 */
																									obj_t BgL_resz00_1808;

																									{	/* Llib/srfi4.scm 453 */

																										BgL_resz00_1808 =
																											BGl_makezd2u64vectorzd2zz__srfi4z00
																											(BgL_lenz00_1725,
																											(uint64_t) (0));
																									}
																									{
																										long BgL_iz00_3805;

																										BgL_iz00_3805 = 0L;
																									BgL_for1052z00_3804:
																										if (
																											(BgL_iz00_3805 <
																												BgL_lenz00_1725))
																											{	/* Unsafe/intext.scm 355 */
																												{	/* Unsafe/intext.scm 355 */
																													BGL_LONGLONG_T
																														BgL_arg1486z00_3809;
																													BgL_arg1486z00_3809 =
																														BGl_readzd2longzd2wordze70ze7zz__intextz00
																														(BgL_za2pointerza2z00_6656,
																														BgL_sz00_6660,
																														BgL_za2strlenza2z00_6655,
																														BgL_sz00_6660,
																														(int)
																														(BgL_bsiza7eza7_1726));
																													{	/* Unsafe/intext.scm 355 */
																														uint64_t
																															BgL_tmpz00_7477;
																														BgL_tmpz00_7477 =
																															(uint64_t)
																															(BgL_arg1486z00_3809);
																														BGL_U64VSET
																															(BgL_resz00_1808,
																															BgL_iz00_3805,
																															BgL_tmpz00_7477);
																													} BUNSPEC;
																												}
																												{
																													long BgL_iz00_7480;

																													BgL_iz00_7480 =
																														(BgL_iz00_3805 +
																														1L);
																													BgL_iz00_3805 =
																														BgL_iz00_7480;
																													goto
																														BgL_for1052z00_3804;
																												}
																											}
																										else
																											{	/* Unsafe/intext.scm 355 */
																												((bool_t) 0);
																											}
																									}
																									return BgL_resz00_1808;
																								}
																							else
																								{	/* Unsafe/intext.scm 322 */
																									if (
																										(BgL_casezd2valuezd2_1727 ==
																											BGl_symbol2720z00zz__intextz00))
																										{	/* Unsafe/intext.scm 358 */
																											obj_t BgL_resz00_1819;

																											{	/* Llib/srfi4.scm 454 */

																												BgL_resz00_1819 =
																													BGl_makezd2f32vectorzd2zz__srfi4z00
																													(BgL_lenz00_1725,
																													(float) (0.0));
																											}
																											{
																												long BgL_iz00_3817;

																												BgL_iz00_3817 = 0L;
																											BgL_for1053z00_3816:
																												if (
																													(BgL_iz00_3817 <
																														BgL_lenz00_1725))
																													{	/* Unsafe/intext.scm 359 */
																														{	/* Unsafe/intext.scm 359 */
																															double
																																BgL_arg1492z00_3821;
																															BgL_arg1492z00_3821
																																=
																																BGl_readzd2floatze70z35zz__intextz00
																																(BgL_za2pointerza2z00_6656,
																																BgL_sz00_6660,
																																BgL_za2strlenza2z00_6655,
																																BgL_sz00_6660);
																															{	/* Unsafe/intext.scm 359 */
																																float
																																	BgL_tmpz00_7489;
																																BgL_tmpz00_7489
																																	=
																																	(float)
																																	(BgL_arg1492z00_3821);
																																BGL_F32VSET
																																	(BgL_resz00_1819,
																																	BgL_iz00_3817,
																																	BgL_tmpz00_7489);
																															} BUNSPEC;
																														}
																														{
																															long
																																BgL_iz00_7492;
																															BgL_iz00_7492 =
																																(BgL_iz00_3817 +
																																1L);
																															BgL_iz00_3817 =
																																BgL_iz00_7492;
																															goto
																																BgL_for1053z00_3816;
																														}
																													}
																												else
																													{	/* Unsafe/intext.scm 359 */
																														((bool_t) 0);
																													}
																											}
																											return BgL_resz00_1819;
																										}
																									else
																										{	/* Unsafe/intext.scm 322 */
																											if (
																												(BgL_casezd2valuezd2_1727
																													==
																													BGl_symbol2722z00zz__intextz00))
																												{	/* Unsafe/intext.scm 362 */
																													obj_t BgL_resz00_1830;

																													{	/* Llib/srfi4.scm 455 */

																														BgL_resz00_1830 =
																															BGl_makezd2f64vectorzd2zz__srfi4z00
																															(BgL_lenz00_1725,
																															0.0);
																													}
																													{
																														long BgL_iz00_3829;

																														BgL_iz00_3829 = 0L;
																													BgL_for1054z00_3828:
																														if (
																															(BgL_iz00_3829 <
																																BgL_lenz00_1725))
																															{	/* Unsafe/intext.scm 363 */
																																{	/* Unsafe/intext.scm 363 */
																																	double
																																		BgL_arg1499z00_3833;
																																	BgL_arg1499z00_3833
																																		=
																																		BGl_readzd2floatze70z35zz__intextz00
																																		(BgL_za2pointerza2z00_6656,
																																		BgL_sz00_6660,
																																		BgL_za2strlenza2z00_6655,
																																		BgL_sz00_6660);
																																	BGL_F64VSET
																																		(BgL_resz00_1830,
																																		BgL_iz00_3829,
																																		BgL_arg1499z00_3833);
																																	BUNSPEC;
																																}
																																{
																																	long
																																		BgL_iz00_7501;
																																	BgL_iz00_7501
																																		=
																																		(BgL_iz00_3829
																																		+ 1L);
																																	BgL_iz00_3829
																																		=
																																		BgL_iz00_7501;
																																	goto
																																		BgL_for1054z00_3828;
																																}
																															}
																														else
																															{	/* Unsafe/intext.scm 363 */
																																((bool_t) 0);
																															}
																													}
																													return
																														BgL_resz00_1830;
																												}
																											else
																												{	/* Unsafe/intext.scm 322 */
																													return BUNSPEC;
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
							}
							break;
						case ((unsigned char) '('):

							{	/* Unsafe/intext.scm 390 */
								long BgL_sza7za7_1858;

								{	/* Unsafe/intext.scm 239 */
									long BgL_siza7eza7_3860;

									BgL_siza7eza7_3860 =
										BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
										(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
										BgL_za2strlenza2z00_6655, BgL_sz00_6660);
									BGl_checkzd2siza7ez12ze70z80zz__intextz00(BgL_sz00_6660,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655,
										BgL_siza7eza7_3860, BGl_string2700z00zz__intextz00);
									BgL_sza7za7_1858 = BgL_siza7eza7_3860;
								}
								{	/* Unsafe/intext.scm 390 */
									obj_t BgL_resz00_1859;

									BgL_resz00_1859 = MAKE_YOUNG_PAIR(BNIL, BNIL);
									{	/* Unsafe/intext.scm 391 */

										{	/* Unsafe/intext.scm 392 */
											bool_t BgL_test2912z00_7506;

											{	/* Unsafe/intext.scm 392 */
												obj_t BgL_objz00_3861;

												BgL_objz00_3861 =
													BGL_UNSAFE_CELL_REF(BgL_za2definingza2z00_6657);
												BgL_test2912z00_7506 = INTEGERP(BgL_objz00_3861);
											}
											if (BgL_test2912z00_7506)
												{	/* Unsafe/intext.scm 392 */
													{	/* Unsafe/intext.scm 393 */
														obj_t BgL_vectorz00_3862;
														long BgL_kz00_3863;

														BgL_vectorz00_3862 =
															((obj_t)
															((obj_t)
																BGL_UNSAFE_CELL_REF
																(BgL_za2definitionsza2z00_6659)));
														BgL_kz00_3863 =
															(long)
															CINT(BGL_UNSAFE_CELL_REF
															(BgL_za2definingza2z00_6657));
														VECTOR_SET(BgL_vectorz00_3862, BgL_kz00_3863,
															BgL_resz00_1859);
													}
													{	/* Unsafe/intext.scm 394 */
														obj_t BgL_auxz00_6675;

														BgL_auxz00_6675 = BFALSE;
														BGL_UNSAFE_CELL_SET(BgL_za2definingza2z00_6657,
															BgL_auxz00_6675);
												}}
											else
												{	/* Unsafe/intext.scm 392 */
													BFALSE;
												}
										}
										{
											long BgL_iz00_1862;
											obj_t BgL_hdz00_1863;

											BgL_iz00_1862 = 0L;
											BgL_hdz00_1863 = BgL_resz00_1859;
										BgL_zc3z04anonymousza31512ze3z87_1864:
											if ((BgL_iz00_1862 == (BgL_sza7za7_1858 - 2L)))
												{	/* Unsafe/intext.scm 397 */
													{	/* Unsafe/intext.scm 399 */
														obj_t BgL_arg1515z00_1867;

														BgL_arg1515z00_1867 =
															BGl_readzd2itemze70z35zz__intextz00
															(BgL_extensionz00_6661, BgL_sz00_6660,
															BgL_za2definitionsza2z00_6659,
															BgL_unserializa7ezd2argz75_6658,
															BgL_za2definingza2z00_6657,
															BgL_za2pointerza2z00_6656,
															BgL_za2strlenza2z00_6655);
														{	/* Unsafe/intext.scm 399 */
															obj_t BgL_tmpz00_7515;

															BgL_tmpz00_7515 = ((obj_t) BgL_hdz00_1863);
															SET_CAR(BgL_tmpz00_7515, BgL_arg1515z00_1867);
														}
													}
													{	/* Unsafe/intext.scm 400 */
														obj_t BgL_arg1516z00_1868;

														BgL_arg1516z00_1868 =
															BGl_readzd2itemze70z35zz__intextz00
															(BgL_extensionz00_6661, BgL_sz00_6660,
															BgL_za2definitionsza2z00_6659,
															BgL_unserializa7ezd2argz75_6658,
															BgL_za2definingza2z00_6657,
															BgL_za2pointerza2z00_6656,
															BgL_za2strlenza2z00_6655);
														{	/* Unsafe/intext.scm 400 */
															obj_t BgL_tmpz00_7519;

															BgL_tmpz00_7519 = ((obj_t) BgL_hdz00_1863);
															SET_CDR(BgL_tmpz00_7519, BgL_arg1516z00_1868);
														}
													}
												}
											else
												{	/* Unsafe/intext.scm 397 */
													{	/* Unsafe/intext.scm 402 */
														obj_t BgL_arg1517z00_1869;

														BgL_arg1517z00_1869 =
															BGl_readzd2itemze70z35zz__intextz00
															(BgL_extensionz00_6661, BgL_sz00_6660,
															BgL_za2definitionsza2z00_6659,
															BgL_unserializa7ezd2argz75_6658,
															BgL_za2definingza2z00_6657,
															BgL_za2pointerza2z00_6656,
															BgL_za2strlenza2z00_6655);
														{	/* Unsafe/intext.scm 402 */
															obj_t BgL_tmpz00_7523;

															BgL_tmpz00_7523 = ((obj_t) BgL_hdz00_1863);
															SET_CAR(BgL_tmpz00_7523, BgL_arg1517z00_1869);
														}
													}
													{	/* Unsafe/intext.scm 403 */
														obj_t BgL_arg1520z00_1870;

														BgL_arg1520z00_1870 = MAKE_YOUNG_PAIR(BNIL, BNIL);
														{	/* Unsafe/intext.scm 403 */
															obj_t BgL_tmpz00_7527;

															BgL_tmpz00_7527 = ((obj_t) BgL_hdz00_1863);
															SET_CDR(BgL_tmpz00_7527, BgL_arg1520z00_1870);
														}
													}
													{	/* Unsafe/intext.scm 404 */
														long BgL_arg1521z00_1871;
														obj_t BgL_arg1522z00_1872;

														BgL_arg1521z00_1871 = (BgL_iz00_1862 + 1L);
														BgL_arg1522z00_1872 = CDR(((obj_t) BgL_hdz00_1863));
														{
															obj_t BgL_hdz00_7534;
															long BgL_iz00_7533;

															BgL_iz00_7533 = BgL_arg1521z00_1871;
															BgL_hdz00_7534 = BgL_arg1522z00_1872;
															BgL_hdz00_1863 = BgL_hdz00_7534;
															BgL_iz00_1862 = BgL_iz00_7533;
															goto BgL_zc3z04anonymousza31512ze3z87_1864;
														}
													}
												}
										}
										return BgL_resz00_1859;
									}
								}
							}
							break;
						case ((unsigned char) '^'):

							{	/* Unsafe/intext.scm 409 */
								long BgL_sza7za7_1876;

								{	/* Unsafe/intext.scm 239 */
									long BgL_siza7eza7_3873;

									BgL_siza7eza7_3873 =
										BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
										(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
										BgL_za2strlenza2z00_6655, BgL_sz00_6660);
									BGl_checkzd2siza7ez12ze70z80zz__intextz00(BgL_sz00_6660,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655,
										BgL_siza7eza7_3873, BGl_string2699z00zz__intextz00);
									BgL_sza7za7_1876 = BgL_siza7eza7_3873;
								}
								{	/* Unsafe/intext.scm 409 */
									obj_t BgL_resz00_1877;

									{	/* Unsafe/intext.scm 410 */
										obj_t BgL_res2566z00_3874;

										BgL_res2566z00_3874 = MAKE_YOUNG_EPAIR(BNIL, BNIL, BUNSPEC);
										BgL_resz00_1877 = BgL_res2566z00_3874;
									}
									{	/* Unsafe/intext.scm 410 */

										{	/* Unsafe/intext.scm 411 */
											bool_t BgL_test2914z00_7538;

											{	/* Unsafe/intext.scm 411 */
												obj_t BgL_objz00_3875;

												BgL_objz00_3875 =
													BGL_UNSAFE_CELL_REF(BgL_za2definingza2z00_6657);
												BgL_test2914z00_7538 = INTEGERP(BgL_objz00_3875);
											}
											if (BgL_test2914z00_7538)
												{	/* Unsafe/intext.scm 411 */
													{	/* Unsafe/intext.scm 412 */
														obj_t BgL_vectorz00_3876;
														long BgL_kz00_3877;

														BgL_vectorz00_3876 =
															((obj_t)
															((obj_t)
																BGL_UNSAFE_CELL_REF
																(BgL_za2definitionsza2z00_6659)));
														BgL_kz00_3877 =
															(long)
															CINT(BGL_UNSAFE_CELL_REF
															(BgL_za2definingza2z00_6657));
														VECTOR_SET(BgL_vectorz00_3876, BgL_kz00_3877,
															BgL_resz00_1877);
													}
													{	/* Unsafe/intext.scm 413 */
														obj_t BgL_auxz00_6674;

														BgL_auxz00_6674 = BFALSE;
														BGL_UNSAFE_CELL_SET(BgL_za2definingza2z00_6657,
															BgL_auxz00_6674);
												}}
											else
												{	/* Unsafe/intext.scm 411 */
													BFALSE;
												}
										}
										{
											long BgL_iz00_1880;
											obj_t BgL_hdz00_1881;

											BgL_iz00_1880 = 0L;
											BgL_hdz00_1881 = BgL_resz00_1877;
										BgL_zc3z04anonymousza31526ze3z87_1882:
											if ((BgL_iz00_1880 == (BgL_sza7za7_1876 - 2L)))
												{	/* Unsafe/intext.scm 416 */
													{	/* Unsafe/intext.scm 418 */
														obj_t BgL_arg1532z00_1885;

														BgL_arg1532z00_1885 =
															BGl_readzd2itemze70z35zz__intextz00
															(BgL_extensionz00_6661, BgL_sz00_6660,
															BgL_za2definitionsza2z00_6659,
															BgL_unserializa7ezd2argz75_6658,
															BgL_za2definingza2z00_6657,
															BgL_za2pointerza2z00_6656,
															BgL_za2strlenza2z00_6655);
														{	/* Unsafe/intext.scm 418 */
															obj_t BgL_tmpz00_7547;

															BgL_tmpz00_7547 = ((obj_t) BgL_hdz00_1881);
															SET_CAR(BgL_tmpz00_7547, BgL_arg1532z00_1885);
														}
													}
													{	/* Unsafe/intext.scm 419 */
														obj_t BgL_arg1533z00_1886;

														BgL_arg1533z00_1886 =
															BGl_readzd2itemze70z35zz__intextz00
															(BgL_extensionz00_6661, BgL_sz00_6660,
															BgL_za2definitionsza2z00_6659,
															BgL_unserializa7ezd2argz75_6658,
															BgL_za2definingza2z00_6657,
															BgL_za2pointerza2z00_6656,
															BgL_za2strlenza2z00_6655);
														{	/* Unsafe/intext.scm 419 */
															obj_t BgL_tmpz00_7551;

															BgL_tmpz00_7551 = ((obj_t) BgL_hdz00_1881);
															SET_CER(BgL_tmpz00_7551, BgL_arg1533z00_1886);
														}
													}
													{	/* Unsafe/intext.scm 420 */
														obj_t BgL_arg1534z00_1887;

														BgL_arg1534z00_1887 =
															BGl_readzd2itemze70z35zz__intextz00
															(BgL_extensionz00_6661, BgL_sz00_6660,
															BgL_za2definitionsza2z00_6659,
															BgL_unserializa7ezd2argz75_6658,
															BgL_za2definingza2z00_6657,
															BgL_za2pointerza2z00_6656,
															BgL_za2strlenza2z00_6655);
														{	/* Unsafe/intext.scm 420 */
															obj_t BgL_tmpz00_7555;

															BgL_tmpz00_7555 = ((obj_t) BgL_hdz00_1881);
															SET_CDR(BgL_tmpz00_7555, BgL_arg1534z00_1887);
														}
													}
												}
											else
												{	/* Unsafe/intext.scm 416 */
													{	/* Unsafe/intext.scm 422 */
														obj_t BgL_arg1537z00_1888;

														BgL_arg1537z00_1888 =
															BGl_readzd2itemze70z35zz__intextz00
															(BgL_extensionz00_6661, BgL_sz00_6660,
															BgL_za2definitionsza2z00_6659,
															BgL_unserializa7ezd2argz75_6658,
															BgL_za2definingza2z00_6657,
															BgL_za2pointerza2z00_6656,
															BgL_za2strlenza2z00_6655);
														{	/* Unsafe/intext.scm 422 */
															obj_t BgL_tmpz00_7559;

															BgL_tmpz00_7559 = ((obj_t) BgL_hdz00_1881);
															SET_CAR(BgL_tmpz00_7559, BgL_arg1537z00_1888);
														}
													}
													{	/* Unsafe/intext.scm 423 */
														obj_t BgL_arg1538z00_1889;

														BgL_arg1538z00_1889 =
															BGl_readzd2itemze70z35zz__intextz00
															(BgL_extensionz00_6661, BgL_sz00_6660,
															BgL_za2definitionsza2z00_6659,
															BgL_unserializa7ezd2argz75_6658,
															BgL_za2definingza2z00_6657,
															BgL_za2pointerza2z00_6656,
															BgL_za2strlenza2z00_6655);
														{	/* Unsafe/intext.scm 423 */
															obj_t BgL_tmpz00_7563;

															BgL_tmpz00_7563 = ((obj_t) BgL_hdz00_1881);
															SET_CER(BgL_tmpz00_7563, BgL_arg1538z00_1889);
														}
													}
													{	/* Unsafe/intext.scm 424 */
														obj_t BgL_arg1540z00_1890;

														{	/* Unsafe/intext.scm 424 */
															obj_t BgL_res2567z00_3886;

															BgL_res2567z00_3886 =
																MAKE_YOUNG_EPAIR(BNIL, BNIL, BUNSPEC);
															BgL_arg1540z00_1890 = BgL_res2567z00_3886;
														}
														{	/* Unsafe/intext.scm 424 */
															obj_t BgL_tmpz00_7567;

															BgL_tmpz00_7567 = ((obj_t) BgL_hdz00_1881);
															SET_CDR(BgL_tmpz00_7567, BgL_arg1540z00_1890);
														}
													}
													{	/* Unsafe/intext.scm 425 */
														long BgL_arg1541z00_1891;
														obj_t BgL_arg1542z00_1892;

														BgL_arg1541z00_1891 = (BgL_iz00_1880 + 1L);
														BgL_arg1542z00_1892 = CDR(((obj_t) BgL_hdz00_1881));
														{
															obj_t BgL_hdz00_7574;
															long BgL_iz00_7573;

															BgL_iz00_7573 = BgL_arg1541z00_1891;
															BgL_hdz00_7574 = BgL_arg1542z00_1892;
															BgL_hdz00_1881 = BgL_hdz00_7574;
															BgL_iz00_1880 = BgL_iz00_7573;
															goto BgL_zc3z04anonymousza31526ze3z87_1882;
														}
													}
												}
										}
										return BgL_resz00_1877;
									}
								}
							}
							break;
						case ((unsigned char) '{'):

							{	/* Unsafe/intext.scm 463 */
								obj_t BgL_definingz00_1912;

								{	/* Unsafe/intext.scm 463 */
									obj_t BgL_oldz00_1924;

									BgL_oldz00_1924 =
										BGL_UNSAFE_CELL_REF(BgL_za2definingza2z00_6657);
									{	/* Unsafe/intext.scm 464 */
										obj_t BgL_auxz00_6671;

										BgL_auxz00_6671 = BFALSE;
										BGL_UNSAFE_CELL_SET(BgL_za2definingza2z00_6657,
											BgL_auxz00_6671);
									}
									BgL_definingz00_1912 = BgL_oldz00_1924;
								}
								{	/* Unsafe/intext.scm 463 */
									obj_t BgL_keyz00_1913;

									BgL_keyz00_1913 =
										BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
										BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
										BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
									{	/* Unsafe/intext.scm 466 */
										long BgL_sza7za7_1914;

										{	/* Unsafe/intext.scm 239 */
											long BgL_siza7eza7_3901;

											BgL_siza7eza7_3901 =
												BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
												(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
												BgL_za2strlenza2z00_6655, BgL_sz00_6660);
											BGl_checkzd2siza7ez12ze70z80zz__intextz00(BgL_sz00_6660,
												BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655,
												BgL_siza7eza7_3901, BGl_string2698z00zz__intextz00);
											BgL_sza7za7_1914 = BgL_siza7eza7_3901;
										}
										{	/* Unsafe/intext.scm 467 */
											obj_t BgL_resz00_1915;

											{	/* Unsafe/intext.scm 468 */
												int BgL_lenz00_3903;

												BgL_lenz00_3903 = (int) (BgL_sza7za7_1914);
												BgL_resz00_1915 =
													make_struct(
													((obj_t) BgL_keyz00_1913), BgL_lenz00_3903, BUNSPEC);
											}
											{	/* Unsafe/intext.scm 468 */

												if (INTEGERP(BgL_definingz00_1912))
													{	/* Unsafe/intext.scm 470 */
														obj_t BgL_vectorz00_3904;
														long BgL_kz00_3905;

														BgL_vectorz00_3904 =
															((obj_t)
															((obj_t)
																BGL_UNSAFE_CELL_REF
																(BgL_za2definitionsza2z00_6659)));
														BgL_kz00_3905 = (long) CINT(BgL_definingz00_1912);
														VECTOR_SET(BgL_vectorz00_3904, BgL_kz00_3905,
															BgL_resz00_1915);
													}
												else
													{	/* Unsafe/intext.scm 469 */
														BFALSE;
													}
												{
													long BgL_iz00_3912;

													BgL_iz00_3912 = 0L;
												BgL_for1056z00_3911:
													if ((BgL_iz00_3912 < BgL_sza7za7_1914))
														{	/* Unsafe/intext.scm 471 */
															{	/* Unsafe/intext.scm 471 */
																obj_t BgL_auxz00_7590;
																int BgL_tmpz00_7588;

																BgL_auxz00_7590 =
																	BGl_readzd2itemze70z35zz__intextz00
																	(BgL_extensionz00_6661, BgL_sz00_6660,
																	BgL_za2definitionsza2z00_6659,
																	BgL_unserializa7ezd2argz75_6658,
																	BgL_za2definingza2z00_6657,
																	BgL_za2pointerza2z00_6656,
																	BgL_za2strlenza2z00_6655);
																BgL_tmpz00_7588 = (int) (BgL_iz00_3912);
																STRUCT_SET(BgL_resz00_1915, BgL_tmpz00_7588,
																	BgL_auxz00_7590);
															}
															{
																long BgL_iz00_7593;

																BgL_iz00_7593 = (BgL_iz00_3912 + 1L);
																BgL_iz00_3912 = BgL_iz00_7593;
																goto BgL_for1056z00_3911;
															}
														}
													else
														{	/* Unsafe/intext.scm 471 */
															((bool_t) 0);
														}
												}
												return BgL_resz00_1915;
											}
										}
									}
								}
							}
							break;
						case ((unsigned char) '|'):

							BgL_sz00_1925 = BgL_sz00_6660;
							{	/* Unsafe/intext.scm 476 */
								obj_t BgL_definingz00_1927;

								{	/* Unsafe/intext.scm 476 */
									obj_t BgL_oldz00_1955;

									BgL_oldz00_1955 =
										BGL_UNSAFE_CELL_REF(BgL_za2definingza2z00_6657);
									{	/* Unsafe/intext.scm 477 */
										obj_t BgL_auxz00_6670;

										BgL_auxz00_6670 = BFALSE;
										BGL_UNSAFE_CELL_SET(BgL_za2definingza2z00_6657,
											BgL_auxz00_6670);
									}
									BgL_definingz00_1927 = BgL_oldz00_1955;
								}
								{	/* Unsafe/intext.scm 476 */
									obj_t BgL_cnamez00_1928;

									BgL_cnamez00_1928 =
										BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
										BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
										BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
									{	/* Unsafe/intext.scm 479 */
										long BgL_sza7za7_1929;

										{	/* Unsafe/intext.scm 239 */
											long BgL_siza7eza7_3921;

											BgL_siza7eza7_3921 =
												BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
												(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
												BgL_za2strlenza2z00_6655, BgL_sz00_1925);
											BGl_checkzd2siza7ez12ze70z80zz__intextz00(BgL_sz00_6660,
												BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655,
												BgL_siza7eza7_3921, BGl_string2695z00zz__intextz00);
											BgL_sza7za7_1929 = BgL_siza7eza7_3921;
										}
										{	/* Unsafe/intext.scm 480 */
											BgL_objectz00_bglt BgL_objz00_1930;

											BgL_objz00_1930 =
												BGl_allocatezd2instancezd2zz__objectz00
												(BgL_cnamez00_1928);
											{	/* Unsafe/intext.scm 481 */
												obj_t BgL_klassz00_1931;

												{	/* Unsafe/intext.scm 482 */
													obj_t BgL_arg2555z00_3923;
													long BgL_arg2557z00_3924;

													BgL_arg2555z00_3923 =
														(BGl_za2classesza2z00zz__objectz00);
													{	/* Unsafe/intext.scm 482 */
														long BgL_arg2558z00_3925;

														BgL_arg2558z00_3925 =
															BGL_OBJECT_CLASS_NUM(BgL_objz00_1930);
														BgL_arg2557z00_3924 =
															(BgL_arg2558z00_3925 - OBJECT_TYPE);
													}
													BgL_klassz00_1931 =
														VECTOR_REF(BgL_arg2555z00_3923,
														BgL_arg2557z00_3924);
												}
												{	/* Unsafe/intext.scm 482 */
													obj_t BgL_fieldsz00_1932;

													{	/* Unsafe/intext.scm 483 */
														obj_t BgL_tmpz00_7603;

														BgL_tmpz00_7603 = ((obj_t) BgL_klassz00_1931);
														BgL_fieldsz00_1932 =
															BGL_CLASS_ALL_FIELDS(BgL_tmpz00_7603);
													}
													{	/* Unsafe/intext.scm 483 */

														if (
															((BgL_sza7za7_1929 - 1L) ==
																VECTOR_LENGTH(BgL_fieldsz00_1932)))
															{	/* Unsafe/intext.scm 484 */
																BFALSE;
															}
														else
															{	/* Unsafe/intext.scm 484 */
																BGl_errorz00zz__errorz00
																	(BGl_string2671z00zz__intextz00,
																	BGl_string2696z00zz__intextz00,
																	BgL_cnamez00_1928);
															}
														if (INTEGERP(BgL_definingz00_1927))
															{	/* Unsafe/intext.scm 487 */
																obj_t BgL_vectorz00_3936;
																long BgL_kz00_3937;

																BgL_vectorz00_3936 =
																	((obj_t)
																	((obj_t)
																		BGL_UNSAFE_CELL_REF
																		(BgL_za2definitionsza2z00_6659)));
																BgL_kz00_3937 =
																	(long) CINT(BgL_definingz00_1927);
																VECTOR_SET(BgL_vectorz00_3936, BgL_kz00_3937,
																	((obj_t) BgL_objz00_1930));
															}
														else
															{	/* Unsafe/intext.scm 486 */
																BFALSE;
															}
														BGl_readzd2itemze70z35zz__intextz00
															(BgL_extensionz00_6661, BgL_sz00_6660,
															BgL_za2definitionsza2z00_6659,
															BgL_unserializa7ezd2argz75_6658,
															BgL_za2definingza2z00_6657,
															BgL_za2pointerza2z00_6656,
															BgL_za2strlenza2z00_6655);
														{
															long BgL_iz00_1940;

															BgL_iz00_1940 = 0L;
														BgL_zc3z04anonymousza31570ze3z87_1941:
															if ((BgL_iz00_1940 < (BgL_sza7za7_1929 - 1L)))
																{	/* Unsafe/intext.scm 491 */
																	{	/* Unsafe/intext.scm 493 */
																		obj_t BgL_fz00_1944;

																		BgL_fz00_1944 =
																			VECTOR_REF(BgL_fieldsz00_1932,
																			BgL_iz00_1940);
																		if (BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(BgL_fz00_1944))
																			{	/* Unsafe/intext.scm 494 */
																				BFALSE;
																			}
																		else
																			{	/* Unsafe/intext.scm 495 */
																				obj_t BgL_fun1578z00_1946;

																				BgL_fun1578z00_1946 =
																					BGl_classzd2fieldzd2mutatorz00zz__objectz00
																					(BgL_fz00_1944);
																				{	/* Unsafe/intext.scm 495 */
																					obj_t BgL_arg1577z00_1947;

																					BgL_arg1577z00_1947 =
																						BGl_readzd2itemze70z35zz__intextz00
																						(BgL_extensionz00_6661,
																						BgL_sz00_6660,
																						BgL_za2definitionsza2z00_6659,
																						BgL_unserializa7ezd2argz75_6658,
																						BgL_za2definingza2z00_6657,
																						BgL_za2pointerza2z00_6656,
																						BgL_za2strlenza2z00_6655);
																					BGL_PROCEDURE_CALL2
																						(BgL_fun1578z00_1946,
																						((obj_t) BgL_objz00_1930),
																						BgL_arg1577z00_1947);
																				}
																			}
																	}
																	{
																		long BgL_iz00_7632;

																		BgL_iz00_7632 = (BgL_iz00_1940 + 1L);
																		BgL_iz00_1940 = BgL_iz00_7632;
																		goto BgL_zc3z04anonymousza31570ze3z87_1941;
																	}
																}
															else
																{	/* Unsafe/intext.scm 491 */
																	((bool_t) 0);
																}
														}
														{	/* Unsafe/intext.scm 496 */
															long BgL_hashz00_1951;

															BgL_hashz00_1951 =
																BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
																(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
																BgL_za2strlenza2z00_6655, BgL_sz00_1925);
															if ((BgL_hashz00_1951 ==
																	BGl_classzd2hashzd2zz__objectz00
																	(BgL_klassz00_1931)))
																{	/* Unsafe/intext.scm 497 */
																	return ((obj_t) BgL_objz00_1930);
																}
															else
																{	/* Unsafe/intext.scm 497 */
																	return
																		BGl_errorz00zz__errorz00
																		(BGl_string2671z00zz__intextz00,
																		BGl_string2697z00zz__intextz00,
																		BgL_cnamez00_1928);
																}
														}
													}
												}
											}
										}
									}
								}
							}
							break;
						case ((unsigned char) 'O'):

							{	/* Unsafe/intext.scm 503 */
								obj_t BgL_definingz00_1957;

								{	/* Unsafe/intext.scm 503 */
									obj_t BgL_oldz00_1965;

									BgL_oldz00_1965 =
										BGL_UNSAFE_CELL_REF(BgL_za2definingza2z00_6657);
									{	/* Unsafe/intext.scm 504 */
										obj_t BgL_auxz00_6669;

										BgL_auxz00_6669 = BFALSE;
										BGL_UNSAFE_CELL_SET(BgL_za2definingza2z00_6657,
											BgL_auxz00_6669);
									}
									BgL_definingz00_1957 = BgL_oldz00_1965;
								}
								{	/* Unsafe/intext.scm 503 */
									obj_t BgL_hashobjz00_1958;

									BgL_hashobjz00_1958 =
										BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
										BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
										BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
									{	/* Unsafe/intext.scm 506 */
										obj_t BgL_hash_z00_1959;

										BgL_hash_z00_1959 =
											BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
											BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
											BgL_unserializa7ezd2argz75_6658,
											BgL_za2definingza2z00_6657, BgL_za2pointerza2z00_6656,
											BgL_za2strlenza2z00_6655);
										{	/* Unsafe/intext.scm 507 */
											obj_t BgL_hashz00_1960;

											BgL_hashz00_1960 = CAR(((obj_t) BgL_hashobjz00_1958));
											{	/* Unsafe/intext.scm 508 */
												obj_t BgL_objz00_1961;

												BgL_objz00_1961 = CDR(((obj_t) BgL_hashobjz00_1958));
												{	/* Unsafe/intext.scm 509 */
													obj_t BgL_unserializa7erza7_1962;

													{	/* Unsafe/intext.scm 1574 */
														obj_t BgL_hz00_3948;

														if (((long) CINT(BgL_hashz00_1960) == 0L))
															{	/* Unsafe/intext.scm 1574 */
																BgL_hz00_3948 =
																	BINT(BGl_classzd2hashzd2zz__objectz00
																	(BGl_objectz00zz__objectz00));
															}
														else
															{	/* Unsafe/intext.scm 1574 */
																BgL_hz00_3948 = BgL_hashz00_1960;
															}
														{	/* Unsafe/intext.scm 1574 */
															obj_t BgL_cellz00_3950;

															BgL_cellz00_3950 =
																BGl_assvz00zz__r4_pairs_and_lists_6_3z00
																(BgL_hz00_3948,
																BGl_za2classzd2serializa7ationza2z75zz__intextz00);
															{	/* Unsafe/intext.scm 1575 */

																if (PAIRP(BgL_cellz00_3950))
																	{	/* Unsafe/intext.scm 1576 */
																		BgL_unserializa7erza7_1962 =
																			CAR(CDR(CDR(BgL_cellz00_3950)));
																	}
																else
																	{	/* Unsafe/intext.scm 1576 */
																		BgL_unserializa7erza7_1962 =
																			BGl_errorz00zz__errorz00
																			(BGl_string2671z00zz__intextz00,
																			BGl_string2694z00zz__intextz00,
																			BgL_hashz00_1960);
																	}
															}
														}
													}
													{	/* Unsafe/intext.scm 510 */
														obj_t BgL_valz00_1963;

														BgL_valz00_1963 =
															BGL_PROCEDURE_CALL2(BgL_unserializa7erza7_1962,
															BgL_objz00_1961, BgL_unserializa7ezd2argz75_6658);
														{	/* Unsafe/intext.scm 511 */

															if (INTEGERP(BgL_definingz00_1957))
																{	/* Unsafe/intext.scm 513 */
																	obj_t BgL_vectorz00_3961;
																	long BgL_kz00_3962;

																	BgL_vectorz00_3961 =
																		((obj_t)
																		((obj_t)
																			BGL_UNSAFE_CELL_REF
																			(BgL_za2definitionsza2z00_6659)));
																	BgL_kz00_3962 =
																		(long) CINT(BgL_definingz00_1957);
																	VECTOR_SET(BgL_vectorz00_3961, BgL_kz00_3962,
																		BgL_valz00_1963);
																}
															else
																{	/* Unsafe/intext.scm 512 */
																	BFALSE;
																}
															return BgL_valz00_1963;
														}
													}
												}
											}
										}
									}
								}
							}
							break;
						case ((unsigned char) 'G'):

							{	/* Unsafe/intext.scm 518 */
								obj_t BgL_definingz00_1967;

								{	/* Unsafe/intext.scm 518 */
									obj_t BgL_oldz00_1976;

									BgL_oldz00_1976 =
										BGL_UNSAFE_CELL_REF(BgL_za2definingza2z00_6657);
									{	/* Unsafe/intext.scm 519 */
										obj_t BgL_auxz00_6668;

										BgL_auxz00_6668 = BFALSE;
										BGL_UNSAFE_CELL_SET(BgL_za2definingza2z00_6657,
											BgL_auxz00_6668);
									}
									BgL_definingz00_1967 = BgL_oldz00_1976;
								}
								{	/* Unsafe/intext.scm 518 */
									obj_t BgL_claza7za7z00_1968;

									BgL_claza7za7z00_1968 =
										BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
										BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
										BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
									{	/* Unsafe/intext.scm 521 */
										obj_t BgL_hashobjz00_1969;

										BgL_hashobjz00_1969 =
											BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
											BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
											BgL_unserializa7ezd2argz75_6658,
											BgL_za2definingza2z00_6657, BgL_za2pointerza2z00_6656,
											BgL_za2strlenza2z00_6655);
										{	/* Unsafe/intext.scm 522 */
											obj_t BgL_hash_z00_1970;

											BgL_hash_z00_1970 =
												BGl_readzd2itemze70z35zz__intextz00
												(BgL_extensionz00_6661, BgL_sz00_6660,
												BgL_za2definitionsza2z00_6659,
												BgL_unserializa7ezd2argz75_6658,
												BgL_za2definingza2z00_6657, BgL_za2pointerza2z00_6656,
												BgL_za2strlenza2z00_6655);
											{	/* Unsafe/intext.scm 523 */
												obj_t BgL_hashz00_1971;

												BgL_hashz00_1971 = CAR(((obj_t) BgL_hashobjz00_1969));
												{	/* Unsafe/intext.scm 524 */
													obj_t BgL_objz00_1972;

													BgL_objz00_1972 = CDR(((obj_t) BgL_hashobjz00_1969));
													{	/* Unsafe/intext.scm 525 */
														obj_t BgL_unserializa7erza7_1973;

														BgL_unserializa7erza7_1973 =
															BGl_findzd2classzd2unserializa7erza7zz__intextz00
															(BgL_hashz00_1971, BgL_claza7za7z00_1968);
														{	/* Unsafe/intext.scm 526 */
															obj_t BgL_valz00_1974;

															BgL_valz00_1974 =
																BGL_PROCEDURE_CALL2(BgL_unserializa7erza7_1973,
																BgL_objz00_1972,
																BgL_unserializa7ezd2argz75_6658);
															{	/* Unsafe/intext.scm 527 */

																if (INTEGERP(BgL_definingz00_1967))
																	{	/* Unsafe/intext.scm 529 */
																		obj_t BgL_vectorz00_3965;
																		long BgL_kz00_3966;

																		BgL_vectorz00_3965 =
																			((obj_t)
																			((obj_t)
																				BGL_UNSAFE_CELL_REF
																				(BgL_za2definitionsza2z00_6659)));
																		BgL_kz00_3966 =
																			(long) CINT(BgL_definingz00_1967);
																		VECTOR_SET(BgL_vectorz00_3965,
																			BgL_kz00_3966, BgL_valz00_1974);
																	}
																else
																	{	/* Unsafe/intext.scm 528 */
																		BFALSE;
																	}
																return BgL_valz00_1974;
															}
														}
													}
												}
											}
										}
									}
								}
							}
							break;
						case ((unsigned char) 'f'):

							{	/* Unsafe/intext.scm 613 */
								double BgL_tmpz00_7686;

								BgL_tmpz00_7686 =
									BGl_readzd2floatze70z35zz__intextz00
									(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
									BgL_za2strlenza2z00_6655, BgL_sz00_6660);
								return DOUBLE_TO_REAL(BgL_tmpz00_7686);
							}
							break;
						case ((unsigned char) 'z'):

							BgL_sz00_1628 = BgL_sz00_6660;
							{	/* Unsafe/intext.scm 200 */
								long BgL_sza7za7_1630;

								{	/* Unsafe/intext.scm 239 */
									long BgL_siza7eza7_3597;

									BgL_siza7eza7_3597 =
										BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
										(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
										BgL_za2strlenza2z00_6655, BgL_sz00_1628);
									BGl_checkzd2siza7ez12ze70z80zz__intextz00(BgL_sz00_6660,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655,
										BgL_siza7eza7_3597, BGl_string2728z00zz__intextz00);
									BgL_sza7za7_1630 = BgL_siza7eza7_3597;
								}
								{	/* Unsafe/intext.scm 200 */
									obj_t BgL_resz00_1631;

									{	/* Unsafe/intext.scm 201 */
										obj_t BgL_arg1380z00_1632;

										{	/* Unsafe/intext.scm 201 */
											long BgL_arg1382z00_1635;

											{	/* Unsafe/intext.scm 201 */
												long BgL_za71za7_3598;

												BgL_za71za7_3598 =
													(long) CINT(
													((obj_t)
														((obj_t)
															BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6656))));
												BgL_arg1382z00_1635 =
													(BgL_za71za7_3598 + BgL_sza7za7_1630);
											}
											{	/* Unsafe/intext.scm 201 */
												long BgL_startz00_3601;

												BgL_startz00_3601 =
													(long) CINT(
													((obj_t)
														((obj_t)
															BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6656))));
												BgL_arg1380z00_1632 =
													c_substring(BgL_sz00_1628, BgL_startz00_3601,
													BgL_arg1382z00_1635);
										}}
										{	/* Unsafe/bignumber.scm 215 */

											BgL_resz00_1631 =
												BGl_stringzd2ze3bignumz31zz__bignumz00
												(BgL_arg1380z00_1632, 10L);
									}}
									{	/* Unsafe/intext.scm 201 */

										{	/* Unsafe/intext.scm 202 */
											obj_t BgL_auxz00_6681;

											BgL_auxz00_6681 =
												ADDFX(
												((obj_t)
													((obj_t)
														BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6656))),
												BINT(BgL_sza7za7_1630));
											BGL_UNSAFE_CELL_SET(BgL_za2pointerza2z00_6656,
												BgL_auxz00_6681);
										}
										return BgL_resz00_1631;
									}
								}
							}
							break;
						case ((unsigned char) '-'):

							{	/* Unsafe/intext.scm 615 */
								long BgL_arg1632z00_2045;

								BgL_arg1632z00_2045 =
									BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
									(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
									BgL_za2strlenza2z00_6655, BgL_sz00_6660);
								return BINT(NEG(BgL_arg1632z00_2045));
							}
							break;
						case ((unsigned char) '!'):

							{	/* Unsafe/intext.scm 430 */
								obj_t BgL_resz00_1896;

								BgL_resz00_1896 = MAKE_YOUNG_CELL(BUNSPEC);
								{	/* Unsafe/intext.scm 431 */
									bool_t BgL_test2927z00_7705;

									{	/* Unsafe/intext.scm 431 */
										obj_t BgL_objz00_3891;

										BgL_objz00_3891 =
											BGL_UNSAFE_CELL_REF(BgL_za2definingza2z00_6657);
										BgL_test2927z00_7705 = INTEGERP(BgL_objz00_3891);
									}
									if (BgL_test2927z00_7705)
										{	/* Unsafe/intext.scm 431 */
											{	/* Unsafe/intext.scm 432 */
												obj_t BgL_vectorz00_3892;
												long BgL_kz00_3893;

												BgL_vectorz00_3892 =
													((obj_t)
													((obj_t)
														BGL_UNSAFE_CELL_REF
														(BgL_za2definitionsza2z00_6659)));
												BgL_kz00_3893 =
													(long)
													CINT(BGL_UNSAFE_CELL_REF(BgL_za2definingza2z00_6657));
												VECTOR_SET(BgL_vectorz00_3892, BgL_kz00_3893,
													BgL_resz00_1896);
											}
											{	/* Unsafe/intext.scm 433 */
												obj_t BgL_auxz00_6673;

												BgL_auxz00_6673 = BFALSE;
												BGL_UNSAFE_CELL_SET(BgL_za2definingza2z00_6657,
													BgL_auxz00_6673);
										}}
									else
										{	/* Unsafe/intext.scm 431 */
											BFALSE;
										}
								}
								CELL_SET(BgL_resz00_1896,
									BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
										BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
										BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655));
								return BgL_resz00_1896;
							}
							break;
						case ((unsigned char) 'w'):

							{	/* Unsafe/intext.scm 439 */
								obj_t BgL_resz00_1901;

								{	/* Unsafe/intext.scm 439 */

									BgL_resz00_1901 = bgl_make_weakptr(BUNSPEC, BFALSE);
								}
								{	/* Unsafe/intext.scm 440 */
									bool_t BgL_test2928z00_7713;

									{	/* Unsafe/intext.scm 440 */
										obj_t BgL_objz00_3896;

										BgL_objz00_3896 =
											BGL_UNSAFE_CELL_REF(BgL_za2definingza2z00_6657);
										BgL_test2928z00_7713 = INTEGERP(BgL_objz00_3896);
									}
									if (BgL_test2928z00_7713)
										{	/* Unsafe/intext.scm 440 */
											{	/* Unsafe/intext.scm 441 */
												obj_t BgL_vectorz00_3897;
												long BgL_kz00_3898;

												BgL_vectorz00_3897 =
													((obj_t)
													((obj_t)
														BGL_UNSAFE_CELL_REF
														(BgL_za2definitionsza2z00_6659)));
												BgL_kz00_3898 =
													(long)
													CINT(BGL_UNSAFE_CELL_REF(BgL_za2definingza2z00_6657));
												VECTOR_SET(BgL_vectorz00_3897, BgL_kz00_3898,
													BgL_resz00_1901);
											}
											{	/* Unsafe/intext.scm 442 */
												obj_t BgL_auxz00_6672;

												BgL_auxz00_6672 = BFALSE;
												BGL_UNSAFE_CELL_SET(BgL_za2definingza2z00_6657,
													BgL_auxz00_6672);
										}}
									else
										{	/* Unsafe/intext.scm 440 */
											BFALSE;
										}
								}
								{	/* Unsafe/intext.scm 443 */
									obj_t BgL_arg1551z00_1903;

									BgL_arg1551z00_1903 =
										BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
										BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
										BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
									bgl_weakptr_data_set(BgL_resz00_1901, BgL_arg1551z00_1903);
									BUNSPEC;
									BUNSPEC;
								}
								return BgL_resz00_1901;
							}
							break;
						case ((unsigned char) '+'):

							{	/* Unsafe/intext.scm 280 */
								obj_t BgL_strz00_1692;

								BgL_strz00_1692 =
									BGl_readzd2stringze70z35zz__intextz00
									(BgL_za2definingza2z00_6657, BgL_za2definitionsza2z00_6659,
									BgL_za2pointerza2z00_6656, BgL_sz00_6660,
									BgL_za2strlenza2z00_6655, BgL_sz00_6660);
								{	/* Unsafe/intext.scm 280 */
									obj_t BgL_str2z00_1693;

									BgL_str2z00_1693 =
										BGl_readzd2stringze70z35zz__intextz00
										(BgL_za2definingza2z00_6657, BgL_za2definitionsza2z00_6659,
										BgL_za2pointerza2z00_6656, BgL_sz00_6660,
										BgL_za2strlenza2z00_6655, BgL_sz00_6660);
									{	/* Unsafe/intext.scm 281 */
										obj_t BgL_unserializa7erza7_1694;

										{	/* Unsafe/intext.scm 1423 */
											obj_t BgL_cellz00_3662;

											BgL_cellz00_3662 =
												BGl_assocz00zz__r4_pairs_and_lists_6_3z00
												(BgL_strz00_1692,
												BGl_za2customzd2serializa7ationza2z75zz__intextz00);
											if (PAIRP(BgL_cellz00_3662))
												{	/* Unsafe/intext.scm 1424 */
													BgL_unserializa7erza7_1694 =
														CAR(CDR(CDR(BgL_cellz00_3662)));
												}
											else
												{	/* Unsafe/intext.scm 1424 */
													BgL_unserializa7erza7_1694 =
														BGl_errorz00zz__errorz00
														(BGl_string2671z00zz__intextz00,
														BGl_string2726z00zz__intextz00,
														BGl_excerptz00zz__intextz00(BgL_strz00_1692));
												}
										}
										{	/* Unsafe/intext.scm 282 */

											if (PROCEDUREP(BgL_unserializa7erza7_1694))
												{	/* Unsafe/intext.scm 283 */
													return
														BGL_PROCEDURE_CALL1(BgL_unserializa7erza7_1694,
														BgL_str2z00_1693);
												}
											else
												{	/* Unsafe/intext.scm 283 */
													return
														BGl_errorz00zz__errorz00
														(BGl_string2671z00zz__intextz00,
														BGl_string2727z00zz__intextz00, BgL_strz00_1692);
												}
										}
									}
								}
							}
							break;
						case ((unsigned char) 'E'):

							{	/* Unsafe/intext.scm 619 */
								long BgL_tmpz00_7737;

								{	/* Unsafe/intext.scm 296 */
									long BgL_sza7za7_1700;

									{	/* Unsafe/intext.scm 239 */
										long BgL_siza7eza7_3671;

										BgL_siza7eza7_3671 =
											BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
											(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
											BgL_za2strlenza2z00_6655, BgL_sz00_6660);
										BGl_checkzd2siza7ez12ze70z80zz__intextz00(BgL_sz00_6660,
											BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655,
											BgL_siza7eza7_3671, BGl_string2725z00zz__intextz00);
										BgL_sza7za7_1700 = BgL_siza7eza7_3671;
									}
									{	/* Unsafe/intext.scm 296 */
										long BgL_resz00_1701;

										{	/* Unsafe/intext.scm 297 */
											obj_t BgL_arg1421z00_1702;

											{	/* Unsafe/intext.scm 297 */
												long BgL_arg1423z00_1705;

												{	/* Unsafe/intext.scm 297 */
													long BgL_za71za7_3672;

													BgL_za71za7_3672 =
														(long) CINT(
														((obj_t)
															((obj_t)
																BGL_UNSAFE_CELL_REF
																(BgL_za2pointerza2z00_6656))));
													BgL_arg1423z00_1705 =
														(BgL_za71za7_3672 + BgL_sza7za7_1700);
												}
												{	/* Unsafe/intext.scm 297 */
													long BgL_startz00_3675;

													BgL_startz00_3675 =
														(long) CINT(
														((obj_t)
															((obj_t)
																BGL_UNSAFE_CELL_REF
																(BgL_za2pointerza2z00_6656))));
													BgL_arg1421z00_1702 =
														c_substring(BgL_sz00_6660, BgL_startz00_3675,
														BgL_arg1423z00_1705);
											}}
											{	/* Ieee/fixnum.scm 984 */

												BgL_resz00_1701 =
													BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00
													(BgL_arg1421z00_1702, 10L);
										}}
										{	/* Unsafe/intext.scm 297 */

											{	/* Unsafe/intext.scm 298 */
												obj_t BgL_auxz00_6680;

												BgL_auxz00_6680 =
													ADDFX(
													((obj_t)
														((obj_t)
															BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6656))),
													BINT(BgL_sza7za7_1700));
												BGL_UNSAFE_CELL_SET(BgL_za2pointerza2z00_6656,
													BgL_auxz00_6680);
											}
											BgL_tmpz00_7737 = BgL_resz00_1701;
								}}}
								return make_belong(BgL_tmpz00_7737);
							}
							break;
						case ((unsigned char) 'L'):

							{	/* Unsafe/intext.scm 620 */
								BGL_LONGLONG_T BgL_tmpz00_7751;

								{	/* Unsafe/intext.scm 303 */
									long BgL_sza7za7_1707;

									{	/* Unsafe/intext.scm 239 */
										long BgL_siza7eza7_3679;

										BgL_siza7eza7_3679 =
											BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
											(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
											BgL_za2strlenza2z00_6655, BgL_sz00_6660);
										BGl_checkzd2siza7ez12ze70z80zz__intextz00(BgL_sz00_6660,
											BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655,
											BgL_siza7eza7_3679, BGl_string2724z00zz__intextz00);
										BgL_sza7za7_1707 = BgL_siza7eza7_3679;
									}
									{	/* Unsafe/intext.scm 303 */
										BGL_LONGLONG_T BgL_resz00_1708;

										{	/* Unsafe/intext.scm 304 */
											obj_t BgL_arg1425z00_1709;

											{	/* Unsafe/intext.scm 304 */
												long BgL_arg1427z00_1712;

												{	/* Unsafe/intext.scm 304 */
													long BgL_za71za7_3680;

													BgL_za71za7_3680 =
														(long) CINT(
														((obj_t)
															((obj_t)
																BGL_UNSAFE_CELL_REF
																(BgL_za2pointerza2z00_6656))));
													BgL_arg1427z00_1712 =
														(BgL_za71za7_3680 + BgL_sza7za7_1707);
												}
												{	/* Unsafe/intext.scm 304 */
													long BgL_startz00_3683;

													BgL_startz00_3683 =
														(long) CINT(
														((obj_t)
															((obj_t)
																BGL_UNSAFE_CELL_REF
																(BgL_za2pointerza2z00_6656))));
													BgL_arg1425z00_1709 =
														c_substring(BgL_sz00_6660, BgL_startz00_3683,
														BgL_arg1427z00_1712);
											}}
											{	/* Ieee/fixnum.scm 986 */

												BgL_resz00_1708 =
													BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00
													(BgL_arg1425z00_1709, 10L);
										}}
										{	/* Unsafe/intext.scm 304 */

											{	/* Unsafe/intext.scm 305 */
												obj_t BgL_auxz00_6679;

												BgL_auxz00_6679 =
													ADDFX(
													((obj_t)
														((obj_t)
															BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6656))),
													BINT(BgL_sza7za7_1707));
												BGL_UNSAFE_CELL_SET(BgL_za2pointerza2z00_6656,
													BgL_auxz00_6679);
											}
											BgL_tmpz00_7751 = BgL_resz00_1708;
								}}}
								return make_bllong(BgL_tmpz00_7751);
							}
							break;
						case ((unsigned char) 'd'):

							{	/* Unsafe/intext.scm 621 */
								long BgL_arg1633z00_2046;

								{	/* Unsafe/intext.scm 621 */
									obj_t BgL_arg1634z00_2047;

									BgL_arg1634z00_2047 =
										BGl_readzd2stringze70z35zz__intextz00
										(BgL_za2definingza2z00_6657, BgL_za2definitionsza2z00_6659,
										BgL_za2pointerza2z00_6656, BgL_sz00_6660,
										BgL_za2strlenza2z00_6655, BgL_sz00_6660);
									{	/* Ieee/fixnum.scm 984 */

										BgL_arg1633z00_2046 =
											BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00
											(BgL_arg1634z00_2047, 10L);
								}}
								return bgl_seconds_to_date(BgL_arg1633z00_2046);
							}
							break;
						case ((unsigned char) 'D'):

							{	/* Unsafe/intext.scm 622 */
								BGL_LONGLONG_T BgL_arg1635z00_2050;

								{	/* Unsafe/intext.scm 622 */
									obj_t BgL_arg1636z00_2051;

									BgL_arg1636z00_2051 =
										BGl_readzd2stringze70z35zz__intextz00
										(BgL_za2definingza2z00_6657, BgL_za2definitionsza2z00_6659,
										BgL_za2pointerza2z00_6656, BgL_sz00_6660,
										BgL_za2strlenza2z00_6655, BgL_sz00_6660);
									{	/* Ieee/fixnum.scm 986 */

										BgL_arg1635z00_2050 =
											BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00
											(BgL_arg1636z00_2051, 10L);
								}}
								return bgl_nanoseconds_to_date(BgL_arg1635z00_2050);
							}
							break;
						case ((unsigned char) 'k'):

							{	/* Unsafe/intext.scm 533 */
								obj_t BgL_namez00_4022;

								{	/* Unsafe/intext.scm 264 */
									obj_t BgL_arg1409z00_4023;

									BgL_arg1409z00_4023 =
										BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
										BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
										BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
									BgL_namez00_4022 =
										bstring_to_symbol(((obj_t) BgL_arg1409z00_4023));
								}
								BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
									BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
									BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
									BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
								return BGl_findzd2classzd2zz__objectz00(BgL_namez00_4022);
							}
							break;
						case ((unsigned char) 'r'):

							return
								BGl_pregexpz00zz__regexpz00
								(BGl_readzd2stringze70z35zz__intextz00
								(BgL_za2definingza2z00_6657, BgL_za2definitionsza2z00_6659,
									BgL_za2pointerza2z00_6656, BgL_sz00_6660,
									BgL_za2strlenza2z00_6655, BgL_sz00_6660), BNIL);
							break;
						case ((unsigned char) 'u'):

							{	/* Unsafe/intext.scm 276 */
								long BgL_arg1415z00_4025;

								BgL_arg1415z00_4025 =
									BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
									(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
									BgL_za2strlenza2z00_6655, BgL_sz00_6660);
								return
									BUCS2(BGl_integerzd2ze3ucs2z31zz__ucs2z00((int)
										(BgL_arg1415z00_4025)));
							} break;
						case ((unsigned char) 'p'):

							{	/* Unsafe/intext.scm 626 */
								obj_t BgL_converterz00_4026;

								BgL_converterz00_4026 =
									BGl_za2stringzd2ze3procedureza2z31zz__intextz00;
								{	/* Unsafe/intext.scm 450 */
									obj_t BgL_sz00_4027;

									BgL_sz00_4027 =
										BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
										BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
										BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
									return BGL_PROCEDURE_CALL1(BgL_converterz00_4026,
										BgL_sz00_4027);
								}
							}
							break;
						case ((unsigned char) 'e'):

							{	/* Unsafe/intext.scm 627 */
								obj_t BgL_converterz00_4028;

								BgL_converterz00_4028 =
									BGl_za2stringzd2ze3processza2z31zz__intextz00;
								{	/* Unsafe/intext.scm 450 */
									obj_t BgL_sz00_4029;

									BgL_sz00_4029 =
										BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
										BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
										BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
									return BGL_PROCEDURE_CALL1(BgL_converterz00_4028,
										BgL_sz00_4029);
								}
							}
							break;
						case ((unsigned char) 'o'):

							{	/* Unsafe/intext.scm 628 */
								obj_t BgL_converterz00_4030;

								BgL_converterz00_4030 =
									BGl_za2stringzd2ze3opaqueza2z31zz__intextz00;
								{	/* Unsafe/intext.scm 450 */
									obj_t BgL_sz00_4031;

									BgL_sz00_4031 =
										BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
										BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
										BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
										BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
									return BGL_PROCEDURE_CALL1(BgL_converterz00_4030,
										BgL_sz00_4031);
								}
							}
							break;
						case ((unsigned char) 'X'):

							{	/* Unsafe/intext.scm 289 */
								obj_t BgL_itemz00_1697;

								BgL_itemz00_1697 =
									BGl_readzd2itemze70z35zz__intextz00(BgL_extensionz00_6661,
									BgL_sz00_6660, BgL_za2definitionsza2z00_6659,
									BgL_unserializa7ezd2argz75_6658, BgL_za2definingza2z00_6657,
									BgL_za2pointerza2z00_6656, BgL_za2strlenza2z00_6655);
								if (PROCEDUREP(BgL_extensionz00_6661))
									{	/* Unsafe/intext.scm 290 */
										return
											BGL_PROCEDURE_CALL1(BgL_extensionz00_6661,
											BgL_itemz00_1697);
									}
								else
									{	/* Unsafe/intext.scm 290 */
										return BgL_itemz00_1697;
									}
							}
							break;
						case ((unsigned char) 'b'):

							{	/* Unsafe/intext.scm 549 */
								long BgL_arg1600z00_4032;

								BgL_arg1600z00_4032 =
									BGl_readzd2wordze70z35zz__intextz00(BgL_za2pointerza2z00_6656,
									BgL_sz00_6660, BgL_za2strlenza2z00_6655, BgL_sz00_6660,
									(int) (1L));
								{	/* Unsafe/intext.scm 549 */
									int8_t BgL_tmpz00_7806;

									BgL_tmpz00_7806 = (int8_t) (BgL_arg1600z00_4032);
									return BGL_INT8_TO_BINT8(BgL_tmpz00_7806);
								}
							}
							break;
						case ((unsigned char) 'B'):

							{	/* Unsafe/intext.scm 551 */
								long BgL_arg1602z00_4034;

								BgL_arg1602z00_4034 =
									BGl_readzd2wordze70z35zz__intextz00(BgL_za2pointerza2z00_6656,
									BgL_sz00_6660, BgL_za2strlenza2z00_6655, BgL_sz00_6660,
									(int) (1L));
								{	/* Unsafe/intext.scm 551 */
									uint8_t BgL_tmpz00_7811;

									BgL_tmpz00_7811 = (uint8_t) (BgL_arg1602z00_4034);
									return BGL_UINT8_TO_BUINT8(BgL_tmpz00_7811);
								}
							}
							break;
						case ((unsigned char) 's'):

							{	/* Unsafe/intext.scm 554 */
								long BgL_arg1604z00_4036;

								BgL_arg1604z00_4036 =
									BGl_readzd2wordze70z35zz__intextz00(BgL_za2pointerza2z00_6656,
									BgL_sz00_6660, BgL_za2strlenza2z00_6655, BgL_sz00_6660,
									(int) (2L));
								{	/* Unsafe/intext.scm 554 */
									int16_t BgL_tmpz00_7816;

									BgL_tmpz00_7816 = (int16_t) (BgL_arg1604z00_4036);
									return BGL_INT16_TO_BINT16(BgL_tmpz00_7816);
								}
							}
							break;
						case ((unsigned char) 'S'):

							{	/* Unsafe/intext.scm 556 */
								long BgL_arg1608z00_4038;

								BgL_arg1608z00_4038 =
									BGl_readzd2wordze70z35zz__intextz00(BgL_za2pointerza2z00_6656,
									BgL_sz00_6660, BgL_za2strlenza2z00_6655, BgL_sz00_6660,
									(int) (2L));
								{	/* Unsafe/intext.scm 556 */
									uint16_t BgL_tmpz00_7821;

									BgL_tmpz00_7821 = (uint16_t) (BgL_arg1608z00_4038);
									return BGL_UINT16_TO_BUINT16(BgL_tmpz00_7821);
								}
							}
							break;
						case ((unsigned char) 'i'):

							{	/* Unsafe/intext.scm 559 */
								long BgL_arg1610z00_4040;

								BgL_arg1610z00_4040 =
									BGl_readzd2wordze70z35zz__intextz00(BgL_za2pointerza2z00_6656,
									BgL_sz00_6660, BgL_za2strlenza2z00_6655, BgL_sz00_6660,
									(int) (4L));
								{	/* Unsafe/intext.scm 559 */
									int32_t BgL_tmpz00_7826;

									BgL_tmpz00_7826 = (int32_t) (BgL_arg1610z00_4040);
									return BGL_INT32_TO_BINT32(BgL_tmpz00_7826);
								}
							}
							break;
						case ((unsigned char) 'I'):

							{	/* Unsafe/intext.scm 561 */
								long BgL_arg1612z00_4042;

								BgL_arg1612z00_4042 =
									BGl_readzd2wordze70z35zz__intextz00(BgL_za2pointerza2z00_6656,
									BgL_sz00_6660, BgL_za2strlenza2z00_6655, BgL_sz00_6660,
									(int) (4L));
								{	/* Unsafe/intext.scm 561 */
									uint32_t BgL_tmpz00_7831;

									BgL_tmpz00_7831 = (uint32_t) (BgL_arg1612z00_4042);
									return BGL_UINT32_TO_BUINT32(BgL_tmpz00_7831);
								}
							}
							break;
						case ((unsigned char) 'l'):

							{	/* Unsafe/intext.scm 636 */
								int64_t BgL_tmpz00_7834;

								BgL_sz00_2012 = BgL_sz00_6660;
								{	/* Unsafe/intext.scm 564 */
									int64_t BgL_accz00_2014;

									BgL_accz00_2014 = (int64_t) (0);
									BGl_stringzd2guardz12ze70z27zz__intextz00(BgL_sz00_6660,
										BgL_za2strlenza2z00_6655, BgL_za2pointerza2z00_6656, 8L);
									{
										long BgL_iz00_2016;

										BgL_iz00_2016 = 0L;
									BgL_zc3z04anonymousza31614ze3z87_2017:
										if ((BgL_iz00_2016 < 8L))
											{	/* Unsafe/intext.scm 566 */
												{	/* Unsafe/intext.scm 567 */
													unsigned char BgL_dz00_2019;

													{	/* Unsafe/intext.scm 567 */
														long BgL_kz00_3984;

														BgL_kz00_3984 =
															(long) CINT(
															((obj_t)
																((obj_t)
																	BGL_UNSAFE_CELL_REF
																	(BgL_za2pointerza2z00_6656))));
														BgL_dz00_2019 =
															STRING_REF(BgL_sz00_2012, BgL_kz00_3984);
													}
													{	/* Unsafe/intext.scm 568 */
														int64_t BgL_arg1616z00_2020;
														int64_t BgL_arg1617z00_2021;

														BgL_arg1616z00_2020 =
															((int64_t) (256) * BgL_accz00_2014);
														{	/* Unsafe/intext.scm 569 */
															long BgL_tmpz00_7842;

															BgL_tmpz00_7842 = (BgL_dz00_2019);
															BgL_arg1617z00_2021 = (int64_t) (BgL_tmpz00_7842);
														}
														BgL_accz00_2014 =
															(BgL_arg1616z00_2020 + BgL_arg1617z00_2021);
													}
													{	/* Unsafe/intext.scm 570 */
														obj_t BgL_auxz00_6667;

														BgL_auxz00_6667 =
															ADDFX(
															((obj_t)
																((obj_t)
																	BGL_UNSAFE_CELL_REF
																	(BgL_za2pointerza2z00_6656))), BINT(1L));
														BGL_UNSAFE_CELL_SET(BgL_za2pointerza2z00_6656,
															BgL_auxz00_6667);
												}}
												{
													long BgL_iz00_7849;

													BgL_iz00_7849 = (BgL_iz00_2016 + 1L);
													BgL_iz00_2016 = BgL_iz00_7849;
													goto BgL_zc3z04anonymousza31614ze3z87_2017;
												}
											}
										else
											{	/* Unsafe/intext.scm 566 */
												((bool_t) 0);
											}
									}
									BgL_tmpz00_7834 = BgL_accz00_2014;
								}
								return BGL_INT64_TO_BINT64(BgL_tmpz00_7834);
							}
							break;
						case ((unsigned char) 'W'):

							{	/* Unsafe/intext.scm 637 */
								uint64_t BgL_tmpz00_7852;

								BgL_sz00_2025 = BgL_sz00_6660;
								{	/* Unsafe/intext.scm 574 */
									uint64_t BgL_accz00_2027;

									BgL_accz00_2027 = (uint64_t) (0);
									BGl_stringzd2guardz12ze70z27zz__intextz00(BgL_sz00_6660,
										BgL_za2strlenza2z00_6655, BgL_za2pointerza2z00_6656, 8L);
									{
										long BgL_iz00_2029;

										BgL_iz00_2029 = 0L;
									BgL_zc3z04anonymousza31622ze3z87_2030:
										if ((BgL_iz00_2029 < 8L))
											{	/* Unsafe/intext.scm 576 */
												{	/* Unsafe/intext.scm 577 */
													unsigned char BgL_dz00_2032;

													{	/* Unsafe/intext.scm 577 */
														long BgL_kz00_3995;

														BgL_kz00_3995 =
															(long) CINT(
															((obj_t)
																((obj_t)
																	BGL_UNSAFE_CELL_REF
																	(BgL_za2pointerza2z00_6656))));
														BgL_dz00_2032 =
															STRING_REF(BgL_sz00_2025, BgL_kz00_3995);
													}
													{	/* Unsafe/intext.scm 578 */
														uint64_t BgL_arg1624z00_2033;
														int64_t BgL_arg1625z00_2034;

														BgL_arg1624z00_2033 =
															((uint64_t) (256) * BgL_accz00_2027);
														{	/* Unsafe/intext.scm 579 */
															long BgL_tmpz00_7860;

															BgL_tmpz00_7860 = (BgL_dz00_2032);
															BgL_arg1625z00_2034 = (int64_t) (BgL_tmpz00_7860);
														}
														{	/* Unsafe/intext.scm 578 */
															uint64_t BgL_za72za7_4001;

															BgL_za72za7_4001 =
																(uint64_t) (BgL_arg1625z00_2034);
															BgL_accz00_2027 =
																(BgL_arg1624z00_2033 + BgL_za72za7_4001);
													}}
													{	/* Unsafe/intext.scm 580 */
														obj_t BgL_auxz00_6666;

														BgL_auxz00_6666 =
															ADDFX(
															((obj_t)
																((obj_t)
																	BGL_UNSAFE_CELL_REF
																	(BgL_za2pointerza2z00_6656))), BINT(1L));
														BGL_UNSAFE_CELL_SET(BgL_za2pointerza2z00_6656,
															BgL_auxz00_6666);
												}}
												{
													long BgL_iz00_7868;

													BgL_iz00_7868 = (BgL_iz00_2029 + 1L);
													BgL_iz00_2029 = BgL_iz00_7868;
													goto BgL_zc3z04anonymousza31622ze3z87_2030;
												}
											}
										else
											{	/* Unsafe/intext.scm 576 */
												((bool_t) 0);
											}
									}
									BgL_tmpz00_7852 = BgL_accz00_2027;
								}
								return BGL_UINT64_TO_BUINT64(BgL_tmpz00_7852);
							}
							break;
						default:
							{	/* Unsafe/intext.scm 638 */
								obj_t BgL_auxz00_6664;

								BgL_auxz00_6664 =
									SUBFX(
									((obj_t)
										((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6656))),
									BINT(1L));
								BGL_UNSAFE_CELL_SET(BgL_za2pointerza2z00_6656, BgL_auxz00_6664);
							}
							return
								BINT(BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00
								(BgL_za2pointerza2z00_6656, BgL_sz00_6660,
									BgL_za2strlenza2z00_6655, BgL_sz00_6660));
						}
				}
			}
		}

	}



/* read-word~0 */
	long BGl_readzd2wordze70z35zz__intextz00(obj_t BgL_za2pointerza2z00_6684,
		obj_t BgL_sz00_6683, long BgL_za2strlenza2z00_6682, obj_t BgL_sz00_1639,
		int BgL_sza7za7_1640)
	{
		{	/* Unsafe/intext.scm 217 */
			{	/* Unsafe/intext.scm 211 */
				long BgL_accz00_1642;

				BgL_accz00_1642 = 0L;
				BGl_stringzd2guardz12ze70z27zz__intextz00(BgL_sz00_6683,
					BgL_za2strlenza2z00_6682, BgL_za2pointerza2z00_6684,
					(long) (BgL_sza7za7_1640));
				{
					long BgL_iz00_1644;

					BgL_iz00_1644 = 0L;
				BgL_zc3z04anonymousza31386ze3z87_1645:
					if ((BgL_iz00_1644 < (long) (BgL_sza7za7_1640)))
						{	/* Unsafe/intext.scm 213 */
							{	/* Unsafe/intext.scm 214 */
								unsigned char BgL_dz00_1647;

								{	/* Unsafe/intext.scm 214 */
									long BgL_kz00_3610;

									BgL_kz00_3610 =
										(long) CINT(
										((obj_t)
											((obj_t)
												BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6684))));
									BgL_dz00_1647 = STRING_REF(BgL_sz00_1639, BgL_kz00_3610);
								}
								BgL_accz00_1642 = ((256L * BgL_accz00_1642) + (BgL_dz00_1647));
								{	/* Unsafe/intext.scm 216 */
									obj_t BgL_auxz00_6685;

									BgL_auxz00_6685 =
										ADDFX(
										((obj_t)
											((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6684))),
										BINT(1L));
									BGL_UNSAFE_CELL_SET(BgL_za2pointerza2z00_6684,
										BgL_auxz00_6685);
							}}
							{
								long BgL_iz00_7892;

								BgL_iz00_7892 = (BgL_iz00_1644 + 1L);
								BgL_iz00_1644 = BgL_iz00_7892;
								goto BgL_zc3z04anonymousza31386ze3z87_1645;
							}
						}
					else
						{	/* Unsafe/intext.scm 213 */
							((bool_t) 0);
						}
				}
				return BgL_accz00_1642;
			}
		}

	}



/* string-guard!~0 */
	obj_t BGl_stringzd2guardz12ze70z27zz__intextz00(obj_t BgL_sz00_6688,
		long BgL_za2strlenza2z00_6687, obj_t BgL_za2pointerza2z00_6686,
		long BgL_sza7za7_1597)
	{
		{	/* Unsafe/intext.scm 178 */
			{	/* Unsafe/intext.scm 174 */
				bool_t BgL_test2935z00_7894;

				{	/* Unsafe/intext.scm 174 */
					long BgL_tmpz00_7895;

					{	/* Unsafe/intext.scm 174 */
						long BgL_za72za7_3536;

						BgL_za72za7_3536 =
							(long) CINT(
							((obj_t)
								((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6686))));
						BgL_tmpz00_7895 = (BgL_sza7za7_1597 + BgL_za72za7_3536);
					}
					BgL_test2935z00_7894 = (BgL_tmpz00_7895 > BgL_za2strlenza2z00_6687);
				}
				if (BgL_test2935z00_7894)
					{	/* Unsafe/intext.scm 176 */
						obj_t BgL_arg1359z00_1601;

						{	/* Unsafe/intext.scm 176 */
							long BgL_arg1360z00_1602;

							{	/* Unsafe/intext.scm 176 */
								long BgL_za72za7_3540;

								BgL_za72za7_3540 =
									(long) CINT(
									((obj_t)
										((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6686))));
								BgL_arg1360z00_1602 = (BgL_sza7za7_1597 + BgL_za72za7_3540);
							}
							{	/* Unsafe/intext.scm 176 */
								obj_t BgL_list1361z00_1603;

								{	/* Unsafe/intext.scm 176 */
									obj_t BgL_arg1362z00_1604;

									{	/* Unsafe/intext.scm 176 */
										obj_t BgL_arg1363z00_1605;

										BgL_arg1363z00_1605 =
											MAKE_YOUNG_PAIR(BINT(BgL_za2strlenza2z00_6687), BNIL);
										BgL_arg1362z00_1604 =
											MAKE_YOUNG_PAIR(
											((obj_t)
												((obj_t)
													BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6686))),
											BgL_arg1363z00_1605);
									}
									BgL_list1361z00_1603 =
										MAKE_YOUNG_PAIR(BINT(BgL_arg1360z00_1602),
										BgL_arg1362z00_1604);
								}
								BgL_arg1359z00_1601 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string2729z00zz__intextz00, BgL_list1361z00_1603);
						}}
						return
							BGl_errorz00zz__errorz00(BGl_string2671z00zz__intextz00,
							BgL_arg1359z00_1601, BgL_sz00_6688);
					}
				else
					{	/* Unsafe/intext.scm 174 */
						return BFALSE;
					}
			}
		}

	}



/* read-size/unsafe~0 */
	long BGl_readzd2siza7ezf2unsafeze70z60zz__intextz00(obj_t
		BgL_za2pointerza2z00_6691, obj_t BgL_sz00_6690,
		long BgL_za2strlenza2z00_6689, obj_t BgL_sz00_1666)
	{
		{	/* Unsafe/intext.scm 232 */
			BGl_stringzd2guardz12ze70z27zz__intextz00(BgL_sz00_6690,
				BgL_za2strlenza2z00_6689, BgL_za2pointerza2z00_6691, 1L);
			{	/* Unsafe/intext.scm 233 */
				long BgL_sza7za7_3629;

				{	/* Unsafe/intext.scm 233 */
					unsigned char BgL_tmpz00_7912;

					{	/* Unsafe/intext.scm 233 */
						long BgL_kz00_3632;

						BgL_kz00_3632 =
							(long) CINT(
							((obj_t)
								((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6691))));
						BgL_tmpz00_7912 = STRING_REF(BgL_sz00_1666, BgL_kz00_3632);
					}
					BgL_sza7za7_3629 = (BgL_tmpz00_7912);
				}
				{	/* Unsafe/intext.scm 234 */
					obj_t BgL_auxz00_6692;

					BgL_auxz00_6692 =
						ADDFX(
						((obj_t)
							((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6691))),
						BINT(1L));
					BGL_UNSAFE_CELL_SET(BgL_za2pointerza2z00_6691, BgL_auxz00_6692);
				}
				return
					BGl_readzd2wordze70z35zz__intextz00(BgL_za2pointerza2z00_6691,
					BgL_sz00_6690, BgL_za2strlenza2z00_6689, BgL_sz00_1666,
					(int) (BgL_sza7za7_3629));
		}}

	}



/* check-size!~0 */
	obj_t BGl_checkzd2siza7ez12ze70z80zz__intextz00(obj_t BgL_sz00_6695,
		obj_t BgL_za2pointerza2z00_6694, long BgL_za2strlenza2z00_6693,
		long BgL_sza7za7_1607, obj_t BgL_lblz00_1608)
	{
		{	/* Unsafe/intext.scm 185 */
			{	/* Unsafe/intext.scm 182 */
				bool_t BgL_test2936z00_7922;

				if ((BgL_sza7za7_1607 < 0L))
					{	/* Unsafe/intext.scm 182 */
						BgL_test2936z00_7922 = ((bool_t) 1);
					}
				else
					{	/* Unsafe/intext.scm 182 */
						long BgL_tmpz00_7925;

						{	/* Unsafe/intext.scm 182 */
							long BgL_za72za7_3543;

							BgL_za72za7_3543 =
								(long) CINT(
								((obj_t)
									((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6694))));
							BgL_tmpz00_7925 = (BgL_za2strlenza2z00_6693 - BgL_za72za7_3543);
						}
						BgL_test2936z00_7922 = (BgL_sza7za7_1607 > BgL_tmpz00_7925);
					}
				if (BgL_test2936z00_7922)
					{	/* Unsafe/intext.scm 184 */
						obj_t BgL_arg1369z00_1613;

						{	/* Unsafe/intext.scm 184 */
							obj_t BgL_list1370z00_1614;

							{	/* Unsafe/intext.scm 184 */
								obj_t BgL_arg1371z00_1615;

								{	/* Unsafe/intext.scm 184 */
									obj_t BgL_arg1372z00_1616;

									{	/* Unsafe/intext.scm 184 */
										obj_t BgL_arg1373z00_1617;

										BgL_arg1373z00_1617 =
											MAKE_YOUNG_PAIR(BINT(BgL_sza7za7_1607), BNIL);
										BgL_arg1372z00_1616 =
											MAKE_YOUNG_PAIR(BINT(BgL_za2strlenza2z00_6693),
											BgL_arg1373z00_1617);
									}
									BgL_arg1371z00_1615 =
										MAKE_YOUNG_PAIR(
										((obj_t)
											((obj_t) BGL_UNSAFE_CELL_REF(BgL_za2pointerza2z00_6694))),
										BgL_arg1372z00_1616);
								}
								BgL_list1370z00_1614 =
									MAKE_YOUNG_PAIR(BgL_lblz00_1608, BgL_arg1371z00_1615);
							}
							BgL_arg1369z00_1613 =
								BGl_formatz00zz__r4_output_6_10_3z00
								(BGl_string2730z00zz__intextz00, BgL_list1370z00_1614);
						}
						return
							BGl_errorz00zz__errorz00(BGl_string2671z00zz__intextz00,
							BgL_arg1369z00_1613, BgL_sz00_6695);
					}
				else
					{	/* Unsafe/intext.scm 182 */
						return BFALSE;
					}
			}
		}

	}



/* _obj->string */
	obj_t BGl__objzd2ze3stringz31zz__intextz00(obj_t BgL_env1199z00_26,
		obj_t BgL_opt1198z00_25)
	{
		{	/* Unsafe/intext.scm 651 */
			{	/* Unsafe/intext.scm 651 */
				obj_t BgL_g1200z00_2101;

				{
					obj_t BgL_auxz00_7939;

					if (VECTORP(BgL_opt1198z00_25))
						{	/* Unsafe/intext.scm 651 */
							BgL_auxz00_7939 = BgL_opt1198z00_25;
						}
					else
						{
							obj_t BgL_auxz00_7942;

							BgL_auxz00_7942 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
								BINT(19945L), BGl_string2731z00zz__intextz00,
								BGl_string2685z00zz__intextz00, BgL_opt1198z00_25);
							FAILURE(BgL_auxz00_7942, BFALSE, BFALSE);
						}
					BgL_g1200z00_2101 = VECTOR_REF(BgL_auxz00_7939, 0L);
				}
				{	/* Unsafe/intext.scm 651 */
					long BgL_aux1202z00_2103;

					{
						obj_t BgL_auxz00_7947;

						if (VECTORP(BgL_opt1198z00_25))
							{	/* Unsafe/intext.scm 651 */
								BgL_auxz00_7947 = BgL_opt1198z00_25;
							}
						else
							{
								obj_t BgL_auxz00_7950;

								BgL_auxz00_7950 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2683z00zz__intextz00, BINT(19945L),
									BGl_string2731z00zz__intextz00,
									BGl_string2685z00zz__intextz00, BgL_opt1198z00_25);
								FAILURE(BgL_auxz00_7950, BFALSE, BFALSE);
							}
						BgL_aux1202z00_2103 = VECTOR_LENGTH(BgL_auxz00_7947);
					}
					switch (BgL_aux1202z00_2103)
						{
						case 1L:

							{	/* Unsafe/intext.scm 651 */

								return obj_to_string(BgL_g1200z00_2101, BFALSE);
							}
							break;
						case 2L:

							{	/* Unsafe/intext.scm 651 */
								obj_t BgL_markzd2argzd2_2105;

								{
									obj_t BgL_auxz00_7956;

									if (VECTORP(BgL_opt1198z00_25))
										{	/* Unsafe/intext.scm 651 */
											BgL_auxz00_7956 = BgL_opt1198z00_25;
										}
									else
										{
											obj_t BgL_auxz00_7959;

											BgL_auxz00_7959 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2683z00zz__intextz00, BINT(19945L),
												BGl_string2731z00zz__intextz00,
												BGl_string2685z00zz__intextz00, BgL_opt1198z00_25);
											FAILURE(BgL_auxz00_7959, BFALSE, BFALSE);
										}
									BgL_markzd2argzd2_2105 = VECTOR_REF(BgL_auxz00_7956, 1L);
								}
								{	/* Unsafe/intext.scm 651 */

									return
										obj_to_string(BgL_g1200z00_2101, BgL_markzd2argzd2_2105);
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* obj->string */
	BGL_EXPORTED_DEF obj_t obj_to_string(obj_t BgL_objz00_23,
		obj_t BgL_markzd2argzd2_24)
	{
		{	/* Unsafe/intext.scm 651 */
			{	/* Unsafe/intext.scm 652 */
				obj_t BgL_tablez00_2106;

				BgL_tablez00_2106 =
					BGl_createzd2hashtablezd2zz__hashz00(BGL_REAL_CNST
					(BGl_real2735z00zz__intextz00), BGl_proc2732z00zz__intextz00, BFALSE,
					BINT(10L), BINT((-1L)), BFALSE, BINT(128L),
					BGl_symbol2733z00zz__intextz00);
				{	/* Unsafe/intext.scm 652 */
					long BgL_nbrefz00_2107;

					BgL_nbrefz00_2107 =
						BGl_markzd2objz12zc0zz__intextz00(BgL_tablez00_2106, BgL_objz00_23,
						BgL_markzd2argzd2_24);
					{	/* Unsafe/intext.scm 662 */

						return
							BGl_printzd2objzd2zz__intextz00(BgL_tablez00_2106,
							BgL_nbrefz00_2107, BgL_objz00_23);
					}
				}
			}
		}

	}



/* &<@anonymous:1640> */
	obj_t BGl_z62zc3z04anonymousza31640ze3ze5zz__intextz00(obj_t BgL_envz00_6233,
		obj_t BgL_az00_6234, obj_t BgL_bz00_6235)
	{
		{	/* Unsafe/intext.scm 653 */
			{	/* Unsafe/intext.scm 655 */
				bool_t BgL_tmpz00_7972;

				if (STRINGP(BgL_az00_6234))
					{	/* Unsafe/intext.scm 655 */
						if (STRINGP(BgL_bz00_6235))
							{	/* Unsafe/intext.scm 656 */
								long BgL_l1z00_6779;

								BgL_l1z00_6779 = STRING_LENGTH(BgL_az00_6234);
								if ((BgL_l1z00_6779 == STRING_LENGTH(BgL_bz00_6235)))
									{	/* Unsafe/intext.scm 656 */
										int BgL_arg2239z00_6780;

										{	/* Unsafe/intext.scm 656 */
											char *BgL_auxz00_7983;
											char *BgL_tmpz00_7981;

											BgL_auxz00_7983 = BSTRING_TO_STRING(BgL_bz00_6235);
											BgL_tmpz00_7981 = BSTRING_TO_STRING(BgL_az00_6234);
											BgL_arg2239z00_6780 =
												memcmp(BgL_tmpz00_7981, BgL_auxz00_7983,
												BgL_l1z00_6779);
										}
										BgL_tmpz00_7972 = ((long) (BgL_arg2239z00_6780) == 0L);
									}
								else
									{	/* Unsafe/intext.scm 656 */
										BgL_tmpz00_7972 = ((bool_t) 0);
									}
							}
						else
							{	/* Unsafe/intext.scm 656 */
								BgL_tmpz00_7972 = ((bool_t) 0);
							}
					}
				else
					{	/* Unsafe/intext.scm 655 */
						if (UCS2_STRINGP(BgL_az00_6234))
							{	/* Unsafe/intext.scm 657 */
								BgL_tmpz00_7972 =
									BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_6234,
									BgL_bz00_6235);
							}
						else
							{	/* Unsafe/intext.scm 657 */
								BgL_tmpz00_7972 = (BgL_az00_6234 == BgL_bz00_6235);
							}
					}
				return BBOOL(BgL_tmpz00_7972);
			}
		}

	}



/* size-of-word */
	long BGl_siza7ezd2ofzd2wordza7zz__intextz00(long BgL_mz00_51)
	{
		{	/* Unsafe/intext.scm 696 */
			{
				long BgL_siza7eza7_4105;
				long BgL_mz00_4106;

				BgL_siza7eza7_4105 = 0L;
				BgL_mz00_4106 = BgL_mz00_51;
			BgL_loopz00_4104:
				if ((BgL_mz00_4106 == 0L))
					{	/* Unsafe/intext.scm 699 */
						return BgL_siza7eza7_4105;
					}
				else
					{
						long BgL_mz00_7997;
						long BgL_siza7eza7_7995;

						BgL_siza7eza7_7995 = (BgL_siza7eza7_4105 + 1L);
						BgL_mz00_7997 = (BgL_mz00_4106 >> (int) (8L));
						BgL_mz00_4106 = BgL_mz00_7997;
						BgL_siza7eza7_4105 = BgL_siza7eza7_7995;
						goto BgL_loopz00_4104;
					}
			}
		}

	}



/* print-obj */
	obj_t BGl_printzd2objzd2zz__intextz00(obj_t BgL_tablez00_52,
		long BgL_nbrefz00_53, obj_t BgL_objz00_54)
	{
		{	/* Unsafe/intext.scm 706 */
			{	/* Unsafe/intext.scm 706 */
				obj_t BgL_ptrz00_6569;
				obj_t BgL_refz00_6570;

				BgL_ptrz00_6569 = BGL_MAKE_UNSAFE_CELL(BINT(0L));
				BgL_refz00_6570 = BGL_MAKE_UNSAFE_CELL(BINT(0L));
				{	/* Unsafe/intext.scm 708 */
					obj_t BgL_bufferz00_6571;

					{	/* Unsafe/intext.scm 708 */
						obj_t BgL_cellvalz00_8002;

						BgL_cellvalz00_8002 = make_string_sans_fill(100L);
						BgL_bufferz00_6571 = BGL_MAKE_UNSAFE_CELL(BgL_cellvalz00_8002);
					}
					{	/* Unsafe/intext.scm 714 */
						obj_t BgL_printzd2customzd2_6244;
						obj_t BgL_printzd2tvectorzd2_6245;
						obj_t BgL_printzd2hvectorzd2_6247;
						obj_t BgL_printzd2vectorzd2_6248;
						obj_t BgL_printzd2weakptrzd2_6249;
						obj_t BgL_printzd2cellzd2_6250;
						obj_t BgL_printzd2objectzd2_6253;
						obj_t BgL_printzd2classzd2_6252;
						obj_t BgL_printzd2pairzd2_6255;
						obj_t BgL_printzd2epairzd2_6256;

						{
							int BgL_tmpz00_8004;

							BgL_tmpz00_8004 = (int) (2L);
							BgL_printzd2customzd2_6244 =
								MAKE_L_PROCEDURE(BGl_z62printzd2customzb0zz__intextz00,
								BgL_tmpz00_8004);
						}
						{
							int BgL_tmpz00_8007;

							BgL_tmpz00_8007 = (int) (13L);
							BgL_printzd2tvectorzd2_6245 =
								MAKE_L_PROCEDURE(BGl_z62printzd2tvectorzb0zz__intextz00,
								BgL_tmpz00_8007);
						}
						{
							int BgL_tmpz00_8010;

							BgL_tmpz00_8010 = (int) (2L);
							BgL_printzd2hvectorzd2_6247 =
								MAKE_L_PROCEDURE(BGl_z62printzd2hvectorzb0zz__intextz00,
								BgL_tmpz00_8010);
						}
						{
							int BgL_tmpz00_8013;

							BgL_tmpz00_8013 = (int) (13L);
							BgL_printzd2vectorzd2_6248 =
								MAKE_L_PROCEDURE(BGl_z62printzd2vectorzb0zz__intextz00,
								BgL_tmpz00_8013);
						}
						{
							int BgL_tmpz00_8016;

							BgL_tmpz00_8016 = (int) (13L);
							BgL_printzd2weakptrzd2_6249 =
								MAKE_L_PROCEDURE(BGl_z62printzd2weakptrzb0zz__intextz00,
								BgL_tmpz00_8016);
						}
						{
							int BgL_tmpz00_8019;

							BgL_tmpz00_8019 = (int) (13L);
							BgL_printzd2cellzd2_6250 =
								MAKE_L_PROCEDURE(BGl_z62printzd2cellzb0zz__intextz00,
								BgL_tmpz00_8019);
						}
						{
							int BgL_tmpz00_8022;

							BgL_tmpz00_8022 = (int) (13L);
							BgL_printzd2objectzd2_6253 =
								MAKE_L_PROCEDURE(BGl_z62printzd2objectzb0zz__intextz00,
								BgL_tmpz00_8022);
						}
						{
							int BgL_tmpz00_8025;

							BgL_tmpz00_8025 = (int) (13L);
							BgL_printzd2classzd2_6252 =
								MAKE_L_PROCEDURE(BGl_z62printzd2classzb0zz__intextz00,
								BgL_tmpz00_8025);
						}
						{
							int BgL_tmpz00_8028;

							BgL_tmpz00_8028 = (int) (13L);
							BgL_printzd2pairzd2_6255 =
								MAKE_L_PROCEDURE(BGl_z62printzd2pairzb0zz__intextz00,
								BgL_tmpz00_8028);
						}
						{
							int BgL_tmpz00_8031;

							BgL_tmpz00_8031 = (int) (13L);
							BgL_printzd2epairzd2_6256 =
								MAKE_L_PROCEDURE(BGl_z62printzd2epairzb0zz__intextz00,
								BgL_tmpz00_8031);
						}
						PROCEDURE_L_SET(BgL_printzd2customzd2_6244,
							(int) (0L), ((obj_t) BgL_bufferz00_6571));
						PROCEDURE_L_SET(BgL_printzd2customzd2_6244,
							(int) (1L), ((obj_t) BgL_ptrz00_6569));
						PROCEDURE_L_SET(BgL_printzd2tvectorzd2_6245,
							(int) (0L), BgL_tablez00_52);
						PROCEDURE_L_SET(BgL_printzd2tvectorzd2_6245,
							(int) (1L), ((obj_t) BgL_refz00_6570));
						PROCEDURE_L_SET(BgL_printzd2tvectorzd2_6245,
							(int) (2L), BgL_printzd2customzd2_6244);
						PROCEDURE_L_SET(BgL_printzd2tvectorzd2_6245,
							(int) (3L), BgL_printzd2hvectorzd2_6247);
						PROCEDURE_L_SET(BgL_printzd2tvectorzd2_6245,
							(int) (4L), BgL_printzd2vectorzd2_6248);
						PROCEDURE_L_SET(BgL_printzd2tvectorzd2_6245,
							(int) (5L), BgL_printzd2weakptrzd2_6249);
						PROCEDURE_L_SET(BgL_printzd2tvectorzd2_6245,
							(int) (6L), BgL_printzd2cellzd2_6250);
						PROCEDURE_L_SET(BgL_printzd2tvectorzd2_6245,
							(int) (7L), BgL_printzd2classzd2_6252);
						PROCEDURE_L_SET(BgL_printzd2tvectorzd2_6245,
							(int) (8L), BgL_printzd2objectzd2_6253);
						PROCEDURE_L_SET(BgL_printzd2tvectorzd2_6245,
							(int) (9L), BgL_printzd2pairzd2_6255);
						PROCEDURE_L_SET(BgL_printzd2tvectorzd2_6245,
							(int) (10L), BgL_printzd2epairzd2_6256);
						PROCEDURE_L_SET(BgL_printzd2tvectorzd2_6245,
							(int) (11L), ((obj_t) BgL_bufferz00_6571));
						PROCEDURE_L_SET(BgL_printzd2tvectorzd2_6245,
							(int) (12L), ((obj_t) BgL_ptrz00_6569));
						PROCEDURE_L_SET(BgL_printzd2hvectorzd2_6247,
							(int) (0L), ((obj_t) BgL_bufferz00_6571));
						PROCEDURE_L_SET(BgL_printzd2hvectorzd2_6247,
							(int) (1L), ((obj_t) BgL_ptrz00_6569));
						PROCEDURE_L_SET(BgL_printzd2vectorzd2_6248,
							(int) (0L), BgL_tablez00_52);
						PROCEDURE_L_SET(BgL_printzd2vectorzd2_6248,
							(int) (1L), ((obj_t) BgL_refz00_6570));
						PROCEDURE_L_SET(BgL_printzd2vectorzd2_6248,
							(int) (2L), BgL_printzd2customzd2_6244);
						PROCEDURE_L_SET(BgL_printzd2vectorzd2_6248,
							(int) (3L), BgL_printzd2tvectorzd2_6245);
						PROCEDURE_L_SET(BgL_printzd2vectorzd2_6248,
							(int) (4L), BgL_printzd2hvectorzd2_6247);
						PROCEDURE_L_SET(BgL_printzd2vectorzd2_6248,
							(int) (5L), BgL_printzd2weakptrzd2_6249);
						PROCEDURE_L_SET(BgL_printzd2vectorzd2_6248,
							(int) (6L), BgL_printzd2cellzd2_6250);
						PROCEDURE_L_SET(BgL_printzd2vectorzd2_6248,
							(int) (7L), BgL_printzd2classzd2_6252);
						PROCEDURE_L_SET(BgL_printzd2vectorzd2_6248,
							(int) (8L), BgL_printzd2objectzd2_6253);
						PROCEDURE_L_SET(BgL_printzd2vectorzd2_6248,
							(int) (9L), BgL_printzd2pairzd2_6255);
						PROCEDURE_L_SET(BgL_printzd2vectorzd2_6248,
							(int) (10L), BgL_printzd2epairzd2_6256);
						PROCEDURE_L_SET(BgL_printzd2vectorzd2_6248,
							(int) (11L), ((obj_t) BgL_bufferz00_6571));
						PROCEDURE_L_SET(BgL_printzd2vectorzd2_6248,
							(int) (12L), ((obj_t) BgL_ptrz00_6569));
						PROCEDURE_L_SET(BgL_printzd2weakptrzd2_6249,
							(int) (0L), BgL_tablez00_52);
						PROCEDURE_L_SET(BgL_printzd2weakptrzd2_6249,
							(int) (1L), ((obj_t) BgL_refz00_6570));
						PROCEDURE_L_SET(BgL_printzd2weakptrzd2_6249,
							(int) (2L), BgL_printzd2customzd2_6244);
						PROCEDURE_L_SET(BgL_printzd2weakptrzd2_6249,
							(int) (3L), BgL_printzd2tvectorzd2_6245);
						PROCEDURE_L_SET(BgL_printzd2weakptrzd2_6249,
							(int) (4L), BgL_printzd2hvectorzd2_6247);
						PROCEDURE_L_SET(BgL_printzd2weakptrzd2_6249,
							(int) (5L), BgL_printzd2vectorzd2_6248);
						PROCEDURE_L_SET(BgL_printzd2weakptrzd2_6249,
							(int) (6L), BgL_printzd2cellzd2_6250);
						PROCEDURE_L_SET(BgL_printzd2weakptrzd2_6249,
							(int) (7L), BgL_printzd2classzd2_6252);
						PROCEDURE_L_SET(BgL_printzd2weakptrzd2_6249,
							(int) (8L), BgL_printzd2objectzd2_6253);
						PROCEDURE_L_SET(BgL_printzd2weakptrzd2_6249,
							(int) (9L), BgL_printzd2pairzd2_6255);
						PROCEDURE_L_SET(BgL_printzd2weakptrzd2_6249,
							(int) (10L), BgL_printzd2epairzd2_6256);
						PROCEDURE_L_SET(BgL_printzd2weakptrzd2_6249,
							(int) (11L), ((obj_t) BgL_bufferz00_6571));
						PROCEDURE_L_SET(BgL_printzd2weakptrzd2_6249,
							(int) (12L), ((obj_t) BgL_ptrz00_6569));
						PROCEDURE_L_SET(BgL_printzd2cellzd2_6250,
							(int) (0L), BgL_tablez00_52);
						PROCEDURE_L_SET(BgL_printzd2cellzd2_6250,
							(int) (1L), ((obj_t) BgL_refz00_6570));
						PROCEDURE_L_SET(BgL_printzd2cellzd2_6250,
							(int) (2L), BgL_printzd2customzd2_6244);
						PROCEDURE_L_SET(BgL_printzd2cellzd2_6250,
							(int) (3L), BgL_printzd2tvectorzd2_6245);
						PROCEDURE_L_SET(BgL_printzd2cellzd2_6250,
							(int) (4L), BgL_printzd2hvectorzd2_6247);
						PROCEDURE_L_SET(BgL_printzd2cellzd2_6250,
							(int) (5L), BgL_printzd2vectorzd2_6248);
						PROCEDURE_L_SET(BgL_printzd2cellzd2_6250,
							(int) (6L), BgL_printzd2weakptrzd2_6249);
						PROCEDURE_L_SET(BgL_printzd2cellzd2_6250,
							(int) (7L), BgL_printzd2classzd2_6252);
						PROCEDURE_L_SET(BgL_printzd2cellzd2_6250,
							(int) (8L), BgL_printzd2objectzd2_6253);
						PROCEDURE_L_SET(BgL_printzd2cellzd2_6250,
							(int) (9L), BgL_printzd2pairzd2_6255);
						PROCEDURE_L_SET(BgL_printzd2cellzd2_6250,
							(int) (10L), BgL_printzd2epairzd2_6256);
						PROCEDURE_L_SET(BgL_printzd2cellzd2_6250,
							(int) (11L), ((obj_t) BgL_bufferz00_6571));
						PROCEDURE_L_SET(BgL_printzd2cellzd2_6250,
							(int) (12L), ((obj_t) BgL_ptrz00_6569));
						PROCEDURE_L_SET(BgL_printzd2objectzd2_6253,
							(int) (0L), BgL_tablez00_52);
						PROCEDURE_L_SET(BgL_printzd2objectzd2_6253,
							(int) (1L), ((obj_t) BgL_refz00_6570));
						PROCEDURE_L_SET(BgL_printzd2objectzd2_6253,
							(int) (2L), BgL_printzd2customzd2_6244);
						PROCEDURE_L_SET(BgL_printzd2objectzd2_6253,
							(int) (3L), BgL_printzd2tvectorzd2_6245);
						PROCEDURE_L_SET(BgL_printzd2objectzd2_6253,
							(int) (4L), BgL_printzd2hvectorzd2_6247);
						PROCEDURE_L_SET(BgL_printzd2objectzd2_6253,
							(int) (5L), BgL_printzd2vectorzd2_6248);
						PROCEDURE_L_SET(BgL_printzd2objectzd2_6253,
							(int) (6L), BgL_printzd2weakptrzd2_6249);
						PROCEDURE_L_SET(BgL_printzd2objectzd2_6253,
							(int) (7L), BgL_printzd2cellzd2_6250);
						PROCEDURE_L_SET(BgL_printzd2objectzd2_6253,
							(int) (8L), BgL_printzd2classzd2_6252);
						PROCEDURE_L_SET(BgL_printzd2objectzd2_6253,
							(int) (9L), BgL_printzd2pairzd2_6255);
						PROCEDURE_L_SET(BgL_printzd2objectzd2_6253,
							(int) (10L), BgL_printzd2epairzd2_6256);
						PROCEDURE_L_SET(BgL_printzd2objectzd2_6253,
							(int) (11L), ((obj_t) BgL_bufferz00_6571));
						PROCEDURE_L_SET(BgL_printzd2objectzd2_6253,
							(int) (12L), ((obj_t) BgL_ptrz00_6569));
						PROCEDURE_L_SET(BgL_printzd2classzd2_6252,
							(int) (0L), BgL_tablez00_52);
						PROCEDURE_L_SET(BgL_printzd2classzd2_6252,
							(int) (1L), ((obj_t) BgL_refz00_6570));
						PROCEDURE_L_SET(BgL_printzd2classzd2_6252,
							(int) (2L), BgL_printzd2customzd2_6244);
						PROCEDURE_L_SET(BgL_printzd2classzd2_6252,
							(int) (3L), BgL_printzd2tvectorzd2_6245);
						PROCEDURE_L_SET(BgL_printzd2classzd2_6252,
							(int) (4L), BgL_printzd2hvectorzd2_6247);
						PROCEDURE_L_SET(BgL_printzd2classzd2_6252,
							(int) (5L), BgL_printzd2vectorzd2_6248);
						PROCEDURE_L_SET(BgL_printzd2classzd2_6252,
							(int) (6L), BgL_printzd2weakptrzd2_6249);
						PROCEDURE_L_SET(BgL_printzd2classzd2_6252,
							(int) (7L), BgL_printzd2cellzd2_6250);
						PROCEDURE_L_SET(BgL_printzd2classzd2_6252,
							(int) (8L), BgL_printzd2objectzd2_6253);
						PROCEDURE_L_SET(BgL_printzd2classzd2_6252,
							(int) (9L), BgL_printzd2pairzd2_6255);
						PROCEDURE_L_SET(BgL_printzd2classzd2_6252,
							(int) (10L), BgL_printzd2epairzd2_6256);
						PROCEDURE_L_SET(BgL_printzd2classzd2_6252,
							(int) (11L), ((obj_t) BgL_bufferz00_6571));
						PROCEDURE_L_SET(BgL_printzd2classzd2_6252,
							(int) (12L), ((obj_t) BgL_ptrz00_6569));
						PROCEDURE_L_SET(BgL_printzd2pairzd2_6255,
							(int) (0L), ((obj_t) BgL_refz00_6570));
						PROCEDURE_L_SET(BgL_printzd2pairzd2_6255,
							(int) (1L), BgL_printzd2customzd2_6244);
						PROCEDURE_L_SET(BgL_printzd2pairzd2_6255,
							(int) (2L), BgL_printzd2tvectorzd2_6245);
						PROCEDURE_L_SET(BgL_printzd2pairzd2_6255,
							(int) (3L), BgL_printzd2hvectorzd2_6247);
						PROCEDURE_L_SET(BgL_printzd2pairzd2_6255,
							(int) (4L), BgL_printzd2vectorzd2_6248);
						PROCEDURE_L_SET(BgL_printzd2pairzd2_6255,
							(int) (5L), BgL_printzd2weakptrzd2_6249);
						PROCEDURE_L_SET(BgL_printzd2pairzd2_6255,
							(int) (6L), BgL_printzd2cellzd2_6250);
						PROCEDURE_L_SET(BgL_printzd2pairzd2_6255,
							(int) (7L), BgL_printzd2classzd2_6252);
						PROCEDURE_L_SET(BgL_printzd2pairzd2_6255,
							(int) (8L), BgL_printzd2objectzd2_6253);
						PROCEDURE_L_SET(BgL_printzd2pairzd2_6255,
							(int) (9L), BgL_printzd2epairzd2_6256);
						PROCEDURE_L_SET(BgL_printzd2pairzd2_6255,
							(int) (10L), ((obj_t) BgL_bufferz00_6571));
						PROCEDURE_L_SET(BgL_printzd2pairzd2_6255,
							(int) (11L), ((obj_t) BgL_ptrz00_6569));
						PROCEDURE_L_SET(BgL_printzd2pairzd2_6255,
							(int) (12L), BgL_tablez00_52);
						PROCEDURE_L_SET(BgL_printzd2epairzd2_6256,
							(int) (0L), ((obj_t) BgL_refz00_6570));
						PROCEDURE_L_SET(BgL_printzd2epairzd2_6256,
							(int) (1L), BgL_printzd2customzd2_6244);
						PROCEDURE_L_SET(BgL_printzd2epairzd2_6256,
							(int) (2L), BgL_printzd2tvectorzd2_6245);
						PROCEDURE_L_SET(BgL_printzd2epairzd2_6256,
							(int) (3L), BgL_printzd2hvectorzd2_6247);
						PROCEDURE_L_SET(BgL_printzd2epairzd2_6256,
							(int) (4L), BgL_printzd2vectorzd2_6248);
						PROCEDURE_L_SET(BgL_printzd2epairzd2_6256,
							(int) (5L), BgL_printzd2weakptrzd2_6249);
						PROCEDURE_L_SET(BgL_printzd2epairzd2_6256,
							(int) (6L), BgL_printzd2cellzd2_6250);
						PROCEDURE_L_SET(BgL_printzd2epairzd2_6256,
							(int) (7L), BgL_printzd2classzd2_6252);
						PROCEDURE_L_SET(BgL_printzd2epairzd2_6256,
							(int) (8L), BgL_printzd2objectzd2_6253);
						PROCEDURE_L_SET(BgL_printzd2epairzd2_6256,
							(int) (9L), BgL_printzd2pairzd2_6255);
						PROCEDURE_L_SET(BgL_printzd2epairzd2_6256,
							(int) (10L), ((obj_t) BgL_bufferz00_6571));
						PROCEDURE_L_SET(BgL_printzd2epairzd2_6256,
							(int) (11L), ((obj_t) BgL_ptrz00_6569));
						PROCEDURE_L_SET(BgL_printzd2epairzd2_6256,
							(int) (12L), BgL_tablez00_52);
						if ((BgL_nbrefz00_53 > 0L))
							{	/* Unsafe/intext.scm 1162 */
								BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6571,
									BgL_ptrz00_6569, BINT(1L));
								{	/* Unsafe/intext.scm 724 */
									obj_t BgL_stringz00_5397;
									long BgL_kz00_5398;

									BgL_stringz00_5397 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6571);
									BgL_kz00_5398 =
										(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6569));
									STRING_SET(BgL_stringz00_5397, BgL_kz00_5398,
										((unsigned char) 'c'));
								}
								{	/* Unsafe/intext.scm 725 */
									obj_t BgL_auxz00_6572;

									BgL_auxz00_6572 =
										ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6569));
									BGL_UNSAFE_CELL_SET(BgL_ptrz00_6569, BgL_auxz00_6572);
								}
								if ((BgL_nbrefz00_53 < 0L))
									{	/* Unsafe/intext.scm 807 */
										BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6571,
											BgL_ptrz00_6569, BINT(1L));
										{	/* Unsafe/intext.scm 724 */
											obj_t BgL_stringz00_5405;
											long BgL_kz00_5406;

											BgL_stringz00_5405 =
												BGL_UNSAFE_CELL_REF(BgL_bufferz00_6571);
											BgL_kz00_5406 =
												(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6569));
											STRING_SET(BgL_stringz00_5405, BgL_kz00_5406,
												((unsigned char) '-'));
										}
										{	/* Unsafe/intext.scm 725 */
											obj_t BgL_auxz00_6573;

											BgL_auxz00_6573 =
												ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6569));
											BGL_UNSAFE_CELL_SET(BgL_ptrz00_6569, BgL_auxz00_6573);
										}
										BGl_z62printzd2wordzb0zz__intextz00(BgL_ptrz00_6569,
											BgL_bufferz00_6571, NEG(BgL_nbrefz00_53));
									}
								else
									{	/* Unsafe/intext.scm 807 */
										BGl_z62printzd2wordzb0zz__intextz00(BgL_ptrz00_6569,
											BgL_bufferz00_6571, BgL_nbrefz00_53);
									}
							}
						else
							{	/* Unsafe/intext.scm 1162 */
								BFALSE;
							}
						BGl_z62printzd2itemzb0zz__intextz00(BgL_printzd2epairzd2_6256,
							BgL_printzd2pairzd2_6255, BgL_printzd2objectzd2_6253,
							BgL_printzd2classzd2_6252, BgL_printzd2cellzd2_6250,
							BgL_printzd2weakptrzd2_6249, BgL_printzd2vectorzd2_6248,
							BgL_printzd2hvectorzd2_6247, BgL_printzd2tvectorzd2_6245,
							BgL_printzd2customzd2_6244, BgL_refz00_6570, BgL_tablez00_52,
							BgL_ptrz00_6569, BgL_bufferz00_6571, BgL_objz00_54);
						{	/* Unsafe/intext.scm 1168 */
							obj_t BgL_sz00_5410;
							long BgL_lz00_5411;

							BgL_sz00_5410 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6571);
							BgL_lz00_5411 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6569));
							return bgl_string_shrink(BgL_sz00_5410, BgL_lz00_5411);
						}
					}
				}
			}
		}

	}



/* &print-word/size */
	bool_t BGl_z62printzd2wordzf2siza7eze5zz__intextz00(obj_t BgL_ptrz00_6259,
		obj_t BgL_bufferz00_6258, obj_t BgL_mz00_2210, long BgL_siza7eza7_2211)
	{
		{	/* Unsafe/intext.scm 761 */
			{	/* Unsafe/intext.scm 757 */
				long BgL_g1065z00_2213;

				BgL_g1065z00_2213 = (BgL_siza7eza7_2211 - 1L);
				{
					long BgL_iz00_2215;

					BgL_iz00_2215 = BgL_g1065z00_2213;
				BgL_zc3z04anonymousza31683ze3z87_2216:
					if ((BgL_iz00_2215 >= 0L))
						{	/* Unsafe/intext.scm 759 */
							long BgL_dz00_2218;

							BgL_dz00_2218 =
								(
								((long) CINT(BgL_mz00_2210) >>
									(int) ((8L * BgL_iz00_2215))) & 255L);
							{	/* Unsafe/intext.scm 753 */
								unsigned char BgL_arg1681z00_4173;

								BgL_arg1681z00_4173 = (BgL_dz00_2218);
								BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6259,
									BgL_bufferz00_6258, BgL_arg1681z00_4173);
							}
							{
								long BgL_iz00_8310;

								BgL_iz00_8310 = (BgL_iz00_2215 - 1L);
								BgL_iz00_2215 = BgL_iz00_8310;
								goto BgL_zc3z04anonymousza31683ze3z87_2216;
							}
						}
					else
						{	/* Unsafe/intext.scm 758 */
							return ((bool_t) 0);
						}
				}
			}
		}

	}



/* &!print-markup */
	obj_t BGl_z62z12printzd2markupza2zz__intextz00(obj_t BgL_ptrz00_6261,
		obj_t BgL_bufferz00_6260, unsigned char BgL_cz00_2193)
	{
		{	/* Unsafe/intext.scm 723 */
			BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6260,
				BgL_ptrz00_6261, BINT(1L));
			{	/* Unsafe/intext.scm 724 */
				obj_t BgL_stringz00_4129;
				long BgL_kz00_4130;

				BgL_stringz00_4129 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6260);
				BgL_kz00_4130 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6261));
				STRING_SET(BgL_stringz00_4129, BgL_kz00_4130, BgL_cz00_2193);
			}
			{	/* Unsafe/intext.scm 725 */
				obj_t BgL_auxz00_6262;

				BgL_auxz00_6262 = ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6261));
				return BGL_UNSAFE_CELL_SET(BgL_ptrz00_6261, BgL_auxz00_6262);
			}
		}

	}



/* &check-buffer! */
	obj_t BGl_z62checkzd2bufferz12za2zz__intextz00(obj_t BgL_bufferz00_6264,
		obj_t BgL_ptrz00_6263, obj_t BgL_siza7eza7_2182)
	{
		{	/* Unsafe/intext.scm 719 */
			{	/* Unsafe/intext.scm 714 */
				long BgL_lz00_2184;
				long BgL_blz00_2185;

				{	/* Unsafe/intext.scm 714 */
					long BgL_za71za7_4118;

					BgL_za71za7_4118 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6263));
					BgL_lz00_2184 =
						(BgL_za71za7_4118 +
						((long) CINT(BgL_siza7eza7_2182) +
							BGl_za2maxzd2siza7ezd2wordza2za7zz__intextz00));
				}
				{	/* Unsafe/intext.scm 715 */
					obj_t BgL_stringz00_4120;

					BgL_stringz00_4120 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6264);
					BgL_blz00_2185 = STRING_LENGTH(BgL_stringz00_4120);
				}
				if ((BgL_lz00_2184 >= BgL_blz00_2185))
					{	/* Unsafe/intext.scm 717 */
						obj_t BgL_nbufz00_2187;

						{	/* Unsafe/intext.scm 717 */
							long BgL_arg1671z00_2188;

							BgL_arg1671z00_2188 = (2L * (BgL_lz00_2184 + 100L));
							{	/* Ieee/string.scm 172 */

								BgL_nbufz00_2187 =
									make_string(BgL_arg1671z00_2188, ((unsigned char) ' '));
						}}
						{	/* Unsafe/intext.scm 718 */
							obj_t BgL_s1z00_4126;

							BgL_s1z00_4126 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6264);
							blit_string(BgL_s1z00_4126, 0L, BgL_nbufz00_2187, 0L,
								BgL_blz00_2185);
						}
						{	/* Unsafe/intext.scm 719 */
							obj_t BgL_auxz00_6265;

							BgL_auxz00_6265 = BgL_nbufz00_2187;
							return BGL_UNSAFE_CELL_SET(BgL_bufferz00_6264, BgL_auxz00_6265);
						}
					}
				else
					{	/* Unsafe/intext.scm 716 */
						return BFALSE;
					}
			}
		}

	}



/* &print-item */
	obj_t BGl_z62printzd2itemzb0zz__intextz00(obj_t BgL_printzd2epairzd2_6279,
		obj_t BgL_printzd2pairzd2_6278, obj_t BgL_printzd2objectzd2_6277,
		obj_t BgL_printzd2classzd2_6276, obj_t BgL_printzd2cellzd2_6275,
		obj_t BgL_printzd2weakptrzd2_6274, obj_t BgL_printzd2vectorzd2_6273,
		obj_t BgL_printzd2hvectorzd2_6272, obj_t BgL_printzd2tvectorzd2_6271,
		obj_t BgL_printzd2customzd2_6270, obj_t BgL_refz00_6269,
		obj_t BgL_tablez00_6268, obj_t BgL_ptrz00_6267, obj_t BgL_bufferz00_6266,
		obj_t BgL_itemz00_2557)
	{
		{	/* Unsafe/intext.scm 1160 */
		BGl_z62printzd2itemzb0zz__intextz00:
			{
				obj_t BgL_mz00_2223;
				obj_t BgL_mz00_2236;
				obj_t BgL_itemz00_2198;
				obj_t BgL_itemz00_2289;
				obj_t BgL_printerz00_2290;

				{	/* Unsafe/intext.scm 1050 */
					bool_t BgL_test2950z00_8329;

					if (EPAIRP(BgL_itemz00_2557))
						{	/* Unsafe/intext.scm 1050 */
							BgL_test2950z00_8329 = BGl_za2epairzf3za2zf3zz__intextz00;
						}
					else
						{	/* Unsafe/intext.scm 1050 */
							BgL_test2950z00_8329 = ((bool_t) 0);
						}
					if (BgL_test2950z00_8329)
						{	/* Unsafe/intext.scm 1050 */
							BgL_itemz00_2289 = BgL_itemz00_2557;
							BgL_printerz00_2290 = BgL_printzd2epairzd2_6279;
						BgL_zc3z04anonymousza31733ze3z87_2291:
							{	/* Unsafe/intext.scm 820 */
								obj_t BgL_markz00_2292;

								BgL_markz00_2292 =
									BGl_hashtablezd2getzd2zz__hashz00(BgL_tablez00_6268,
									BgL_itemz00_2289);
								if (((long) CINT(STRUCT_REF(((obj_t) BgL_markz00_2292),
												(int) (3L))) >= 0L))
									{	/* Unsafe/intext.scm 822 */
										BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6266,
											BgL_ptrz00_6267, BINT(1L));
										{	/* Unsafe/intext.scm 724 */
											obj_t BgL_stringz00_4267;
											long BgL_kz00_4268;

											BgL_stringz00_4267 =
												BGL_UNSAFE_CELL_REF(BgL_bufferz00_6266);
											BgL_kz00_4268 =
												(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6267));
											STRING_SET(BgL_stringz00_4267, BgL_kz00_4268,
												((unsigned char) '#'));
										}
										{	/* Unsafe/intext.scm 725 */
											obj_t BgL_auxz00_6315;

											BgL_auxz00_6315 =
												ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6267));
											BGL_UNSAFE_CELL_SET(BgL_ptrz00_6267, BgL_auxz00_6315);
										}
										{	/* Unsafe/intext.scm 824 */
											obj_t BgL_arg1735z00_2294;

											BgL_arg1735z00_2294 =
												STRUCT_REF(((obj_t) BgL_markz00_2292), (int) (3L));
											{	/* Unsafe/intext.scm 824 */
												long BgL_iz00_4272;

												BgL_iz00_4272 = (long) CINT(BgL_arg1735z00_2294);
												if ((BgL_iz00_4272 < 0L))
													{	/* Unsafe/intext.scm 807 */
														BGl_z62checkzd2bufferz12za2zz__intextz00
															(BgL_bufferz00_6266, BgL_ptrz00_6267, BINT(1L));
														{	/* Unsafe/intext.scm 724 */
															obj_t BgL_stringz00_4276;
															long BgL_kz00_4277;

															BgL_stringz00_4276 =
																BGL_UNSAFE_CELL_REF(BgL_bufferz00_6266);
															BgL_kz00_4277 =
																(long)
																CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6267));
															STRING_SET(BgL_stringz00_4276, BgL_kz00_4277,
																((unsigned char) '-'));
														}
														{	/* Unsafe/intext.scm 725 */
															obj_t BgL_auxz00_6316;

															BgL_auxz00_6316 =
																ADDFX(BINT(1L),
																BGL_UNSAFE_CELL_REF(BgL_ptrz00_6267));
															BGL_UNSAFE_CELL_SET(BgL_ptrz00_6267,
																BgL_auxz00_6316);
														}
														{	/* Unsafe/intext.scm 810 */
															long BgL_arg1730z00_4274;

															BgL_arg1730z00_4274 = NEG(BgL_iz00_4272);
															return
																BGl_z62printzd2wordzb0zz__intextz00
																(BgL_ptrz00_6267, BgL_bufferz00_6266,
																BgL_arg1730z00_4274);
														}
													}
												else
													{	/* Unsafe/intext.scm 807 */
														return
															BGl_z62printzd2wordzb0zz__intextz00
															(BgL_ptrz00_6267, BgL_bufferz00_6266,
															BgL_iz00_4272);
													}
											}
										}
									}
								else
									{	/* Unsafe/intext.scm 822 */
										if (
											((long) CINT(STRUCT_REF(
														((obj_t) BgL_markz00_2292), (int) (2L))) == 0L))
											{	/* Unsafe/intext.scm 825 */
												return
													((obj_t(*)(obj_t, obj_t,
															obj_t))
													PROCEDURE_L_ENTRY(BgL_printerz00_2290))
													(BgL_printerz00_2290, BgL_itemz00_2289,
													BgL_markz00_2292);
											}
										else
											{	/* Unsafe/intext.scm 825 */
												{	/* Unsafe/intext.scm 828 */
													obj_t BgL_vz00_4283;

													BgL_vz00_4283 = BGL_UNSAFE_CELL_REF(BgL_refz00_6269);
													{	/* Unsafe/intext.scm 668 */
														int BgL_auxz00_8373;
														obj_t BgL_tmpz00_8371;

														BgL_auxz00_8373 = (int) (3L);
														BgL_tmpz00_8371 = ((obj_t) BgL_markz00_2292);
														STRUCT_SET(BgL_tmpz00_8371, BgL_auxz00_8373,
															BgL_vz00_4283);
												}}
												BGl_z62checkzd2bufferz12za2zz__intextz00
													(BgL_bufferz00_6266, BgL_ptrz00_6267, BINT(1L));
												{	/* Unsafe/intext.scm 724 */
													obj_t BgL_stringz00_4285;
													long BgL_kz00_4286;

													BgL_stringz00_4285 =
														BGL_UNSAFE_CELL_REF(BgL_bufferz00_6266);
													BgL_kz00_4286 =
														(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6267));
													STRING_SET(BgL_stringz00_4285, BgL_kz00_4286,
														((unsigned char) '='));
												}
												{	/* Unsafe/intext.scm 725 */
													obj_t BgL_auxz00_6317;

													BgL_auxz00_6317 =
														ADDFX(BINT(1L),
														BGL_UNSAFE_CELL_REF(BgL_ptrz00_6267));
													BGL_UNSAFE_CELL_SET(BgL_ptrz00_6267, BgL_auxz00_6317);
												}
												{	/* Unsafe/intext.scm 830 */
													long BgL_iz00_4289;

													BgL_iz00_4289 =
														(long) CINT(BGL_UNSAFE_CELL_REF(BgL_refz00_6269));
													if ((BgL_iz00_4289 < 0L))
														{	/* Unsafe/intext.scm 807 */
															BGl_z62checkzd2bufferz12za2zz__intextz00
																(BgL_bufferz00_6266, BgL_ptrz00_6267, BINT(1L));
															{	/* Unsafe/intext.scm 724 */
																obj_t BgL_stringz00_4293;
																long BgL_kz00_4294;

																BgL_stringz00_4293 =
																	BGL_UNSAFE_CELL_REF(BgL_bufferz00_6266);
																BgL_kz00_4294 =
																	(long)
																	CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6267));
																STRING_SET(BgL_stringz00_4293, BgL_kz00_4294,
																	((unsigned char) '-'));
															}
															{	/* Unsafe/intext.scm 725 */
																obj_t BgL_auxz00_6318;

																BgL_auxz00_6318 =
																	ADDFX(BINT(1L),
																	BGL_UNSAFE_CELL_REF(BgL_ptrz00_6267));
																BGL_UNSAFE_CELL_SET(BgL_ptrz00_6267,
																	BgL_auxz00_6318);
															}
															{	/* Unsafe/intext.scm 810 */
																long BgL_arg1730z00_4291;

																BgL_arg1730z00_4291 = NEG(BgL_iz00_4289);
																BGl_z62printzd2wordzb0zz__intextz00
																	(BgL_ptrz00_6267, BgL_bufferz00_6266,
																	BgL_arg1730z00_4291);
														}}
													else
														{	/* Unsafe/intext.scm 807 */
															BGl_z62printzd2wordzb0zz__intextz00
																(BgL_ptrz00_6267, BgL_bufferz00_6266,
																BgL_iz00_4289);
														}
												}
												{	/* Unsafe/intext.scm 831 */
													obj_t BgL_auxz00_6319;

													BgL_auxz00_6319 =
														ADDFX(BINT(1L),
														BGL_UNSAFE_CELL_REF(BgL_refz00_6269));
													BGL_UNSAFE_CELL_SET(BgL_refz00_6269, BgL_auxz00_6319);
												}
												return
													((obj_t(*)(obj_t, obj_t,
															obj_t))
													PROCEDURE_L_ENTRY(BgL_printerz00_2290))
													(BgL_printerz00_2290, BgL_itemz00_2289,
													BgL_markz00_2292);
											}
									}
							}
						}
					else
						{	/* Unsafe/intext.scm 1050 */
							if (PAIRP(BgL_itemz00_2557))
								{
									obj_t BgL_printerz00_8404;
									obj_t BgL_itemz00_8403;

									BgL_itemz00_8403 = BgL_itemz00_2557;
									BgL_printerz00_8404 = BgL_printzd2pairzd2_6278;
									BgL_printerz00_2290 = BgL_printerz00_8404;
									BgL_itemz00_2289 = BgL_itemz00_8403;
									goto BgL_zc3z04anonymousza31733ze3z87_2291;
								}
							else
								{	/* Unsafe/intext.scm 1052 */
									if (SYMBOLP(BgL_itemz00_2557))
										{	/* Unsafe/intext.scm 1054 */
											BGl_z62checkzd2bufferz12za2zz__intextz00
												(BgL_bufferz00_6266, BgL_ptrz00_6267, BINT(1L));
											{	/* Unsafe/intext.scm 724 */
												obj_t BgL_stringz00_5026;
												long BgL_kz00_5027;

												BgL_stringz00_5026 =
													BGL_UNSAFE_CELL_REF(BgL_bufferz00_6266);
												BgL_kz00_5027 =
													(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6267));
												STRING_SET(BgL_stringz00_5026, BgL_kz00_5027,
													((unsigned char) '\''));
											}
											{	/* Unsafe/intext.scm 725 */
												obj_t BgL_auxz00_6280;

												BgL_auxz00_6280 =
													ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6267));
												BGL_UNSAFE_CELL_SET(BgL_ptrz00_6267, BgL_auxz00_6280);
											}
											{	/* Unsafe/intext.scm 1056 */
												obj_t BgL_arg1905z00_2563;

												BgL_arg1905z00_2563 =
													SYMBOL_TO_STRING(BgL_itemz00_2557);
												{
													obj_t BgL_itemz00_8414;

													BgL_itemz00_8414 = BgL_arg1905z00_2563;
													BgL_itemz00_2557 = BgL_itemz00_8414;
													goto BGl_z62printzd2itemzb0zz__intextz00;
												}
											}
										}
									else
										{	/* Unsafe/intext.scm 1054 */
											if (KEYWORDP(BgL_itemz00_2557))
												{	/* Unsafe/intext.scm 1057 */
													BGl_z62checkzd2bufferz12za2zz__intextz00
														(BgL_bufferz00_6266, BgL_ptrz00_6267, BINT(1L));
													{	/* Unsafe/intext.scm 724 */
														obj_t BgL_stringz00_5031;
														long BgL_kz00_5032;

														BgL_stringz00_5031 =
															BGL_UNSAFE_CELL_REF(BgL_bufferz00_6266);
														BgL_kz00_5032 =
															(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6267));
														STRING_SET(BgL_stringz00_5031, BgL_kz00_5032,
															((unsigned char) ':'));
													}
													{	/* Unsafe/intext.scm 725 */
														obj_t BgL_auxz00_6281;

														BgL_auxz00_6281 =
															ADDFX(BINT(1L),
															BGL_UNSAFE_CELL_REF(BgL_ptrz00_6267));
														BGL_UNSAFE_CELL_SET(BgL_ptrz00_6267,
															BgL_auxz00_6281);
													}
													{	/* Unsafe/intext.scm 1059 */
														obj_t BgL_arg1907z00_2565;

														{	/* Unsafe/intext.scm 1059 */
															obj_t BgL_arg2519z00_5036;

															BgL_arg2519z00_5036 =
																KEYWORD_TO_STRING(BgL_itemz00_2557);
															BgL_arg1907z00_2565 =
																BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																(BgL_arg2519z00_5036);
														}
														{
															obj_t BgL_itemz00_8425;

															BgL_itemz00_8425 = BgL_arg1907z00_2565;
															BgL_itemz00_2557 = BgL_itemz00_8425;
															goto BGl_z62printzd2itemzb0zz__intextz00;
														}
													}
												}
											else
												{	/* Unsafe/intext.scm 1057 */
													if (STRINGP(BgL_itemz00_2557))
														{	/* Unsafe/intext.scm 1061 */
															obj_t BgL_zc3z04anonymousza31912ze3z87_6254;

															{
																int BgL_tmpz00_8428;

																BgL_tmpz00_8428 = (int) (2L);
																BgL_zc3z04anonymousza31912ze3z87_6254 =
																	MAKE_L_PROCEDURE
																	(BGl_z62zc3z04anonymousza31912ze3ze5zz__intextz00,
																	BgL_tmpz00_8428);
															}
															PROCEDURE_L_SET
																(BgL_zc3z04anonymousza31912ze3z87_6254,
																(int) (0L), ((obj_t) BgL_bufferz00_6266));
															PROCEDURE_L_SET
																(BgL_zc3z04anonymousza31912ze3z87_6254,
																(int) (1L), ((obj_t) BgL_ptrz00_6267));
															{
																obj_t BgL_printerz00_8438;
																obj_t BgL_itemz00_8437;

																BgL_itemz00_8437 = BgL_itemz00_2557;
																BgL_printerz00_8438 =
																	BgL_zc3z04anonymousza31912ze3z87_6254;
																BgL_printerz00_2290 = BgL_printerz00_8438;
																BgL_itemz00_2289 = BgL_itemz00_8437;
																goto BgL_zc3z04anonymousza31733ze3z87_2291;
															}
														}
													else
														{	/* Unsafe/intext.scm 1060 */
															if (BGL_OBJECTP(BgL_itemz00_2557))
																{
																	obj_t BgL_printerz00_8442;
																	obj_t BgL_itemz00_8441;

																	BgL_itemz00_8441 = BgL_itemz00_2557;
																	BgL_printerz00_8442 =
																		BgL_printzd2objectzd2_6277;
																	BgL_printerz00_2290 = BgL_printerz00_8442;
																	BgL_itemz00_2289 = BgL_itemz00_8441;
																	goto BgL_zc3z04anonymousza31733ze3z87_2291;
																}
															else
																{	/* Unsafe/intext.scm 1062 */
																	if (BGl_classzf3zf3zz__objectz00
																		(BgL_itemz00_2557))
																		{
																			obj_t BgL_printerz00_8446;
																			obj_t BgL_itemz00_8445;

																			BgL_itemz00_8445 = BgL_itemz00_2557;
																			BgL_printerz00_8446 =
																				BgL_printzd2classzd2_6276;
																			BgL_printerz00_2290 = BgL_printerz00_8446;
																			BgL_itemz00_2289 = BgL_itemz00_8445;
																			goto
																				BgL_zc3z04anonymousza31733ze3z87_2291;
																		}
																	else
																		{	/* Unsafe/intext.scm 1064 */
																			if (CHARP(BgL_itemz00_2557))
																				{	/* Unsafe/intext.scm 1066 */
																					BGl_z62checkzd2bufferz12za2zz__intextz00
																						(BgL_bufferz00_6266,
																						BgL_ptrz00_6267, BINT(1L));
																					{	/* Unsafe/intext.scm 724 */
																						obj_t BgL_stringz00_5043;
																						long BgL_kz00_5044;

																						BgL_stringz00_5043 =
																							BGL_UNSAFE_CELL_REF
																							(BgL_bufferz00_6266);
																						BgL_kz00_5044 =
																							(long)
																							CINT(BGL_UNSAFE_CELL_REF
																							(BgL_ptrz00_6267));
																						STRING_SET(BgL_stringz00_5043,
																							BgL_kz00_5044,
																							((unsigned char) 'a'));
																					}
																					{	/* Unsafe/intext.scm 725 */
																						obj_t BgL_auxz00_6282;

																						BgL_auxz00_6282 =
																							ADDFX(BINT(1L),
																							BGL_UNSAFE_CELL_REF
																							(BgL_ptrz00_6267));
																						BGL_UNSAFE_CELL_SET(BgL_ptrz00_6267,
																							BgL_auxz00_6282);
																					}
																					{	/* Unsafe/intext.scm 1068 */
																						long BgL_arg1916z00_2575;

																						BgL_arg1916z00_2575 =
																							(CCHAR(BgL_itemz00_2557));
																						if ((BgL_arg1916z00_2575 < 0L))
																							{	/* Unsafe/intext.scm 807 */
																								BGl_z62checkzd2bufferz12za2zz__intextz00
																									(BgL_bufferz00_6266,
																									BgL_ptrz00_6267, BINT(1L));
																								{	/* Unsafe/intext.scm 724 */
																									obj_t BgL_stringz00_5052;
																									long BgL_kz00_5053;

																									BgL_stringz00_5052 =
																										BGL_UNSAFE_CELL_REF
																										(BgL_bufferz00_6266);
																									BgL_kz00_5053 =
																										(long)
																										CINT(BGL_UNSAFE_CELL_REF
																										(BgL_ptrz00_6267));
																									STRING_SET(BgL_stringz00_5052,
																										BgL_kz00_5053,
																										((unsigned char) '-'));
																								}
																								{	/* Unsafe/intext.scm 725 */
																									obj_t BgL_auxz00_6283;

																									BgL_auxz00_6283 =
																										ADDFX(BINT(1L),
																										BGL_UNSAFE_CELL_REF
																										(BgL_ptrz00_6267));
																									BGL_UNSAFE_CELL_SET
																										(BgL_ptrz00_6267,
																										BgL_auxz00_6283);
																								}
																								{	/* Unsafe/intext.scm 810 */
																									long BgL_arg1730z00_5050;

																									BgL_arg1730z00_5050 =
																										NEG(BgL_arg1916z00_2575);
																									return
																										BGl_z62printzd2wordzb0zz__intextz00
																										(BgL_ptrz00_6267,
																										BgL_bufferz00_6266,
																										BgL_arg1730z00_5050);
																								}
																							}
																						else
																							{	/* Unsafe/intext.scm 807 */
																								return
																									BGl_z62printzd2wordzb0zz__intextz00
																									(BgL_ptrz00_6267,
																									BgL_bufferz00_6266,
																									BgL_arg1916z00_2575);
																							}
																					}
																				}
																			else
																				{	/* Unsafe/intext.scm 1066 */
																					if (UCS2P(BgL_itemz00_2557))
																						{	/* Unsafe/intext.scm 1069 */
																							BGl_z62checkzd2bufferz12za2zz__intextz00
																								(BgL_bufferz00_6266,
																								BgL_ptrz00_6267, BINT(1L));
																							{	/* Unsafe/intext.scm 724 */
																								obj_t BgL_stringz00_5057;
																								long BgL_kz00_5058;

																								BgL_stringz00_5057 =
																									BGL_UNSAFE_CELL_REF
																									(BgL_bufferz00_6266);
																								BgL_kz00_5058 =
																									(long)
																									CINT(BGL_UNSAFE_CELL_REF
																									(BgL_ptrz00_6267));
																								STRING_SET(BgL_stringz00_5057,
																									BgL_kz00_5058,
																									((unsigned char) 'u'));
																							}
																							{	/* Unsafe/intext.scm 725 */
																								obj_t BgL_auxz00_6284;

																								BgL_auxz00_6284 =
																									ADDFX(BINT(1L),
																									BGL_UNSAFE_CELL_REF
																									(BgL_ptrz00_6267));
																								BGL_UNSAFE_CELL_SET
																									(BgL_ptrz00_6267,
																									BgL_auxz00_6284);
																							}
																							{	/* Unsafe/intext.scm 1071 */
																								int BgL_arg1918z00_2577;

																								{	/* Unsafe/intext.scm 1071 */
																									ucs2_t BgL_ucs2z00_5061;

																									BgL_ucs2z00_5061 =
																										CUCS2(BgL_itemz00_2557);
																									{	/* Unsafe/intext.scm 1071 */
																										obj_t BgL_tmpz00_8477;

																										BgL_tmpz00_8477 =
																											BUCS2(BgL_ucs2z00_5061);
																										BgL_arg1918z00_2577 =
																											CUCS2(BgL_tmpz00_8477);
																								}}
																								{	/* Unsafe/intext.scm 1071 */
																									long BgL_iz00_5062;

																									BgL_iz00_5062 =
																										(long)
																										(BgL_arg1918z00_2577);
																									if ((BgL_iz00_5062 < 0L))
																										{	/* Unsafe/intext.scm 807 */
																											BGl_z62checkzd2bufferz12za2zz__intextz00
																												(BgL_bufferz00_6266,
																												BgL_ptrz00_6267,
																												BINT(1L));
																											{	/* Unsafe/intext.scm 724 */
																												obj_t
																													BgL_stringz00_5066;
																												long BgL_kz00_5067;

																												BgL_stringz00_5066 =
																													BGL_UNSAFE_CELL_REF
																													(BgL_bufferz00_6266);
																												BgL_kz00_5067 =
																													(long)
																													CINT
																													(BGL_UNSAFE_CELL_REF
																													(BgL_ptrz00_6267));
																												STRING_SET
																													(BgL_stringz00_5066,
																													BgL_kz00_5067,
																													((unsigned char)
																														'-'));
																											}
																											{	/* Unsafe/intext.scm 725 */
																												obj_t BgL_auxz00_6285;

																												BgL_auxz00_6285 =
																													ADDFX(BINT(1L),
																													BGL_UNSAFE_CELL_REF
																													(BgL_ptrz00_6267));
																												BGL_UNSAFE_CELL_SET
																													(BgL_ptrz00_6267,
																													BgL_auxz00_6285);
																											}
																											{	/* Unsafe/intext.scm 810 */
																												long
																													BgL_arg1730z00_5064;
																												BgL_arg1730z00_5064 =
																													NEG(BgL_iz00_5062);
																												return
																													BGl_z62printzd2wordzb0zz__intextz00
																													(BgL_ptrz00_6267,
																													BgL_bufferz00_6266,
																													BgL_arg1730z00_5064);
																											}
																										}
																									else
																										{	/* Unsafe/intext.scm 807 */
																											return
																												BGl_z62printzd2wordzb0zz__intextz00
																												(BgL_ptrz00_6267,
																												BgL_bufferz00_6266,
																												BgL_iz00_5062);
																										}
																								}
																							}
																						}
																					else
																						{	/* Unsafe/intext.scm 1069 */
																							if ((BgL_itemz00_2557 == BUNSPEC))
																								{	/* Unsafe/intext.scm 1072 */
																									BGl_z62checkzd2bufferz12za2zz__intextz00
																										(BgL_bufferz00_6266,
																										BgL_ptrz00_6267, BINT(1L));
																									{	/* Unsafe/intext.scm 724 */
																										obj_t BgL_stringz00_5071;
																										long BgL_kz00_5072;

																										BgL_stringz00_5071 =
																											BGL_UNSAFE_CELL_REF
																											(BgL_bufferz00_6266);
																										BgL_kz00_5072 =
																											(long)
																											CINT(BGL_UNSAFE_CELL_REF
																											(BgL_ptrz00_6267));
																										STRING_SET
																											(BgL_stringz00_5071,
																											BgL_kz00_5072,
																											((unsigned char) ';'));
																									}
																									{	/* Unsafe/intext.scm 725 */
																										obj_t BgL_auxz00_6286;

																										BgL_auxz00_6286 =
																											ADDFX(BINT(1L),
																											BGL_UNSAFE_CELL_REF
																											(BgL_ptrz00_6267));
																										return
																											BGL_UNSAFE_CELL_SET
																											(BgL_ptrz00_6267,
																											BgL_auxz00_6286);
																									}
																								}
																							else
																								{	/* Unsafe/intext.scm 1072 */
																									if (
																										(BgL_itemz00_2557 == BNIL))
																										{	/* Unsafe/intext.scm 1074 */
																											BGl_z62checkzd2bufferz12za2zz__intextz00
																												(BgL_bufferz00_6266,
																												BgL_ptrz00_6267,
																												BINT(1L));
																											{	/* Unsafe/intext.scm 724 */
																												obj_t
																													BgL_stringz00_5075;
																												long BgL_kz00_5076;

																												BgL_stringz00_5075 =
																													BGL_UNSAFE_CELL_REF
																													(BgL_bufferz00_6266);
																												BgL_kz00_5076 =
																													(long)
																													CINT
																													(BGL_UNSAFE_CELL_REF
																													(BgL_ptrz00_6267));
																												STRING_SET
																													(BgL_stringz00_5075,
																													BgL_kz00_5076,
																													((unsigned char)
																														'.'));
																											}
																											{	/* Unsafe/intext.scm 725 */
																												obj_t BgL_auxz00_6287;

																												BgL_auxz00_6287 =
																													ADDFX(BINT(1L),
																													BGL_UNSAFE_CELL_REF
																													(BgL_ptrz00_6267));
																												return
																													BGL_UNSAFE_CELL_SET
																													(BgL_ptrz00_6267,
																													BgL_auxz00_6287);
																											}
																										}
																									else
																										{	/* Unsafe/intext.scm 1074 */
																											if (
																												(BgL_itemz00_2557 ==
																													BTRUE))
																												{	/* Unsafe/intext.scm 1076 */
																													BGl_z62checkzd2bufferz12za2zz__intextz00
																														(BgL_bufferz00_6266,
																														BgL_ptrz00_6267,
																														BINT(1L));
																													{	/* Unsafe/intext.scm 724 */
																														obj_t
																															BgL_stringz00_5079;
																														long BgL_kz00_5080;

																														BgL_stringz00_5079 =
																															BGL_UNSAFE_CELL_REF
																															(BgL_bufferz00_6266);
																														BgL_kz00_5080 =
																															(long)
																															CINT
																															(BGL_UNSAFE_CELL_REF
																															(BgL_ptrz00_6267));
																														STRING_SET
																															(BgL_stringz00_5079,
																															BgL_kz00_5080,
																															((unsigned char)
																																'T'));
																													}
																													{	/* Unsafe/intext.scm 725 */
																														obj_t
																															BgL_auxz00_6288;
																														BgL_auxz00_6288 =
																															ADDFX(BINT(1L),
																															BGL_UNSAFE_CELL_REF
																															(BgL_ptrz00_6267));
																														return
																															BGL_UNSAFE_CELL_SET
																															(BgL_ptrz00_6267,
																															BgL_auxz00_6288);
																													}
																												}
																											else
																												{	/* Unsafe/intext.scm 1076 */
																													if (
																														(BgL_itemz00_2557 ==
																															BFALSE))
																														{	/* Unsafe/intext.scm 1078 */
																															BGl_z62checkzd2bufferz12za2zz__intextz00
																																(BgL_bufferz00_6266,
																																BgL_ptrz00_6267,
																																BINT(1L));
																															{	/* Unsafe/intext.scm 724 */
																																obj_t
																																	BgL_stringz00_5083;
																																long
																																	BgL_kz00_5084;
																																BgL_stringz00_5083
																																	=
																																	BGL_UNSAFE_CELL_REF
																																	(BgL_bufferz00_6266);
																																BgL_kz00_5084 =
																																	(long)
																																	CINT
																																	(BGL_UNSAFE_CELL_REF
																																	(BgL_ptrz00_6267));
																																STRING_SET
																																	(BgL_stringz00_5083,
																																	BgL_kz00_5084,
																																	((unsigned
																																			char)
																																		'F'));
																															}
																															{	/* Unsafe/intext.scm 725 */
																																obj_t
																																	BgL_auxz00_6289;
																																BgL_auxz00_6289
																																	=
																																	ADDFX(BINT
																																	(1L),
																																	BGL_UNSAFE_CELL_REF
																																	(BgL_ptrz00_6267));
																																return
																																	BGL_UNSAFE_CELL_SET
																																	(BgL_ptrz00_6267,
																																	BgL_auxz00_6289);
																															}
																														}
																													else
																														{	/* Unsafe/intext.scm 1078 */
																															if (BGL_INT8P
																																(BgL_itemz00_2557))
																																{	/* Unsafe/intext.scm 1080 */
																																	BGl_z62checkzd2bufferz12za2zz__intextz00
																																		(BgL_bufferz00_6266,
																																		BgL_ptrz00_6267,
																																		BINT(1L));
																																	{	/* Unsafe/intext.scm 724 */
																																		obj_t
																																			BgL_stringz00_5087;
																																		long
																																			BgL_kz00_5088;
																																		BgL_stringz00_5087
																																			=
																																			BGL_UNSAFE_CELL_REF
																																			(BgL_bufferz00_6266);
																																		BgL_kz00_5088
																																			=
																																			(long)
																																			CINT
																																			(BGL_UNSAFE_CELL_REF
																																			(BgL_ptrz00_6267));
																																		STRING_SET
																																			(BgL_stringz00_5087,
																																			BgL_kz00_5088,
																																			((unsigned
																																					char)
																																				'b'));
																																	}
																																	{	/* Unsafe/intext.scm 725 */
																																		obj_t
																																			BgL_auxz00_6290;
																																		BgL_auxz00_6290
																																			=
																																			ADDFX(BINT
																																			(1L),
																																			BGL_UNSAFE_CELL_REF
																																			(BgL_ptrz00_6267));
																																		BGL_UNSAFE_CELL_SET
																																			(BgL_ptrz00_6267,
																																			BgL_auxz00_6290);
																																	}
																																	{	/* Unsafe/intext.scm 1082 */
																																		long
																																			BgL_arg1920z00_2579;
																																		{	/* Unsafe/intext.scm 1082 */
																																			int8_t
																																				BgL_xz00_5091;
																																			BgL_xz00_5091
																																				=
																																				BGL_BINT8_TO_INT8
																																				(BgL_itemz00_2557);
																																			{	/* Unsafe/intext.scm 1082 */
																																				long
																																					BgL_arg2391z00_5092;
																																				BgL_arg2391z00_5092
																																					=
																																					(long)
																																					(BgL_xz00_5091);
																																				BgL_arg1920z00_2579
																																					=
																																					(long)
																																					(BgL_arg2391z00_5092);
																																		}}
																																		{	/* Unsafe/intext.scm 757 */
																																			long
																																				BgL_g1065z00_5094;
																																			BgL_g1065z00_5094
																																				=
																																				(1L -
																																				1L);
																																			{
																																				long
																																					BgL_iz00_5097;
																																				{	/* Unsafe/intext.scm 757 */
																																					bool_t
																																						BgL_tmpz00_8536;
																																					BgL_iz00_5097
																																						=
																																						BgL_g1065z00_5094;
																																				BgL_loopz00_5096:
																																					if (
																																						(BgL_iz00_5097
																																							>=
																																							0L))
																																						{	/* Unsafe/intext.scm 759 */
																																							long
																																								BgL_dz00_5100;
																																							BgL_dz00_5100
																																								=
																																								(
																																								(BgL_arg1920z00_2579
																																									>>
																																									(int)
																																									((8L * BgL_iz00_5097))) & 255L);
																																							{	/* Unsafe/intext.scm 753 */
																																								unsigned
																																									char
																																									BgL_arg1681z00_5107;
																																								BgL_arg1681z00_5107
																																									=
																																									(BgL_dz00_5100);
																																								BGl_z62z12printzd2markupza2zz__intextz00
																																									(BgL_ptrz00_6267,
																																									BgL_bufferz00_6266,
																																									BgL_arg1681z00_5107);
																																							}
																																							{
																																								long
																																									BgL_iz00_8545;
																																								BgL_iz00_8545
																																									=
																																									(BgL_iz00_5097
																																									-
																																									1L);
																																								BgL_iz00_5097
																																									=
																																									BgL_iz00_8545;
																																								goto
																																									BgL_loopz00_5096;
																																							}
																																						}
																																					else
																																						{	/* Unsafe/intext.scm 758 */
																																							BgL_tmpz00_8536
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					return
																																						BBOOL
																																						(BgL_tmpz00_8536);
																																				}
																																			}
																																		}
																																	}
																																}
																															else
																																{	/* Unsafe/intext.scm 1080 */
																																	if (BGL_UINT8P
																																		(BgL_itemz00_2557))
																																		{	/* Unsafe/intext.scm 1083 */
																																			BGl_z62checkzd2bufferz12za2zz__intextz00
																																				(BgL_bufferz00_6266,
																																				BgL_ptrz00_6267,
																																				BINT
																																				(1L));
																																			{	/* Unsafe/intext.scm 724 */
																																				obj_t
																																					BgL_stringz00_5111;
																																				long
																																					BgL_kz00_5112;
																																				BgL_stringz00_5111
																																					=
																																					BGL_UNSAFE_CELL_REF
																																					(BgL_bufferz00_6266);
																																				BgL_kz00_5112
																																					=
																																					(long)
																																					CINT
																																					(BGL_UNSAFE_CELL_REF
																																					(BgL_ptrz00_6267));
																																				STRING_SET
																																					(BgL_stringz00_5111,
																																					BgL_kz00_5112,
																																					((unsigned char) 'B'));
																																			}
																																			{	/* Unsafe/intext.scm 725 */
																																				obj_t
																																					BgL_auxz00_6291;
																																				BgL_auxz00_6291
																																					=
																																					ADDFX
																																					(BINT
																																					(1L),
																																					BGL_UNSAFE_CELL_REF
																																					(BgL_ptrz00_6267));
																																				BGL_UNSAFE_CELL_SET
																																					(BgL_ptrz00_6267,
																																					BgL_auxz00_6291);
																																			}
																																			{	/* Unsafe/intext.scm 1085 */
																																				long
																																					BgL_arg1922z00_2581;
																																				{	/* Unsafe/intext.scm 1085 */
																																					uint8_t
																																						BgL_xz00_5115;
																																					BgL_xz00_5115
																																						=
																																						BGL_BUINT8_TO_UINT8
																																						(BgL_itemz00_2557);
																																					{	/* Unsafe/intext.scm 1085 */
																																						long
																																							BgL_arg2390z00_5116;
																																						BgL_arg2390z00_5116
																																							=
																																							(long)
																																							(BgL_xz00_5115);
																																						BgL_arg1922z00_2581
																																							=
																																							(long)
																																							(BgL_arg2390z00_5116);
																																				}}
																																				{	/* Unsafe/intext.scm 757 */
																																					long
																																						BgL_g1065z00_5118;
																																					BgL_g1065z00_5118
																																						=
																																						(1L
																																						-
																																						1L);
																																					{
																																						long
																																							BgL_iz00_5121;
																																						{	/* Unsafe/intext.scm 757 */
																																							bool_t
																																								BgL_tmpz00_8560;
																																							BgL_iz00_5121
																																								=
																																								BgL_g1065z00_5118;
																																						BgL_loopz00_5120:
																																							if ((BgL_iz00_5121 >= 0L))
																																								{	/* Unsafe/intext.scm 759 */
																																									long
																																										BgL_dz00_5124;
																																									BgL_dz00_5124
																																										=
																																										(
																																										(BgL_arg1922z00_2581
																																											>>
																																											(int)
																																											((8L * BgL_iz00_5121))) & 255L);
																																									{	/* Unsafe/intext.scm 753 */
																																										unsigned
																																											char
																																											BgL_arg1681z00_5131;
																																										BgL_arg1681z00_5131
																																											=
																																											(BgL_dz00_5124);
																																										BGl_z62z12printzd2markupza2zz__intextz00
																																											(BgL_ptrz00_6267,
																																											BgL_bufferz00_6266,
																																											BgL_arg1681z00_5131);
																																									}
																																									{
																																										long
																																											BgL_iz00_8569;
																																										BgL_iz00_8569
																																											=
																																											(BgL_iz00_5121
																																											-
																																											1L);
																																										BgL_iz00_5121
																																											=
																																											BgL_iz00_8569;
																																										goto
																																											BgL_loopz00_5120;
																																									}
																																								}
																																							else
																																								{	/* Unsafe/intext.scm 758 */
																																									BgL_tmpz00_8560
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							return
																																								BBOOL
																																								(BgL_tmpz00_8560);
																																						}
																																					}
																																				}
																																			}
																																		}
																																	else
																																		{	/* Unsafe/intext.scm 1083 */
																																			if (BGL_INT16P(BgL_itemz00_2557))
																																				{	/* Unsafe/intext.scm 1086 */
																																					BGl_z62checkzd2bufferz12za2zz__intextz00
																																						(BgL_bufferz00_6266,
																																						BgL_ptrz00_6267,
																																						BINT
																																						(1L));
																																					{	/* Unsafe/intext.scm 724 */
																																						obj_t
																																							BgL_stringz00_5135;
																																						long
																																							BgL_kz00_5136;
																																						BgL_stringz00_5135
																																							=
																																							BGL_UNSAFE_CELL_REF
																																							(BgL_bufferz00_6266);
																																						BgL_kz00_5136
																																							=
																																							(long)
																																							CINT
																																							(BGL_UNSAFE_CELL_REF
																																							(BgL_ptrz00_6267));
																																						STRING_SET
																																							(BgL_stringz00_5135,
																																							BgL_kz00_5136,
																																							((unsigned char) 's'));
																																					}
																																					{	/* Unsafe/intext.scm 725 */
																																						obj_t
																																							BgL_auxz00_6292;
																																						BgL_auxz00_6292
																																							=
																																							ADDFX
																																							(BINT
																																							(1L),
																																							BGL_UNSAFE_CELL_REF
																																							(BgL_ptrz00_6267));
																																						BGL_UNSAFE_CELL_SET
																																							(BgL_ptrz00_6267,
																																							BgL_auxz00_6292);
																																					}
																																					{	/* Unsafe/intext.scm 1088 */
																																						long
																																							BgL_arg1924z00_2583;
																																						{	/* Unsafe/intext.scm 1088 */
																																							int16_t
																																								BgL_xz00_5139;
																																							BgL_xz00_5139
																																								=
																																								BGL_BINT16_TO_INT16
																																								(BgL_itemz00_2557);
																																							{	/* Unsafe/intext.scm 1088 */
																																								long
																																									BgL_arg2389z00_5140;
																																								BgL_arg2389z00_5140
																																									=
																																									(long)
																																									(BgL_xz00_5139);
																																								BgL_arg1924z00_2583
																																									=
																																									(long)
																																									(BgL_arg2389z00_5140);
																																						}}
																																						{	/* Unsafe/intext.scm 757 */
																																							long
																																								BgL_g1065z00_5142;
																																							BgL_g1065z00_5142
																																								=
																																								(2L
																																								-
																																								1L);
																																							{
																																								long
																																									BgL_iz00_5145;
																																								{	/* Unsafe/intext.scm 757 */
																																									bool_t
																																										BgL_tmpz00_8584;
																																									BgL_iz00_5145
																																										=
																																										BgL_g1065z00_5142;
																																								BgL_loopz00_5144:
																																									if ((BgL_iz00_5145 >= 0L))
																																										{	/* Unsafe/intext.scm 759 */
																																											long
																																												BgL_dz00_5148;
																																											BgL_dz00_5148
																																												=
																																												(
																																												(BgL_arg1924z00_2583
																																													>>
																																													(int)
																																													((8L * BgL_iz00_5145))) & 255L);
																																											{	/* Unsafe/intext.scm 753 */
																																												unsigned
																																													char
																																													BgL_arg1681z00_5155;
																																												BgL_arg1681z00_5155
																																													=
																																													(BgL_dz00_5148);
																																												BGl_z62z12printzd2markupza2zz__intextz00
																																													(BgL_ptrz00_6267,
																																													BgL_bufferz00_6266,
																																													BgL_arg1681z00_5155);
																																											}
																																											{
																																												long
																																													BgL_iz00_8593;
																																												BgL_iz00_8593
																																													=
																																													(BgL_iz00_5145
																																													-
																																													1L);
																																												BgL_iz00_5145
																																													=
																																													BgL_iz00_8593;
																																												goto
																																													BgL_loopz00_5144;
																																											}
																																										}
																																									else
																																										{	/* Unsafe/intext.scm 758 */
																																											BgL_tmpz00_8584
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									return
																																										BBOOL
																																										(BgL_tmpz00_8584);
																																								}
																																							}
																																						}
																																					}
																																				}
																																			else
																																				{	/* Unsafe/intext.scm 1086 */
																																					if (BGL_UINT16P(BgL_itemz00_2557))
																																						{	/* Unsafe/intext.scm 1089 */
																																							BGl_z62checkzd2bufferz12za2zz__intextz00
																																								(BgL_bufferz00_6266,
																																								BgL_ptrz00_6267,
																																								BINT
																																								(1L));
																																							{	/* Unsafe/intext.scm 724 */
																																								obj_t
																																									BgL_stringz00_5159;
																																								long
																																									BgL_kz00_5160;
																																								BgL_stringz00_5159
																																									=
																																									BGL_UNSAFE_CELL_REF
																																									(BgL_bufferz00_6266);
																																								BgL_kz00_5160
																																									=
																																									(long)
																																									CINT
																																									(BGL_UNSAFE_CELL_REF
																																									(BgL_ptrz00_6267));
																																								STRING_SET
																																									(BgL_stringz00_5159,
																																									BgL_kz00_5160,
																																									((unsigned char) 'S'));
																																							}
																																							{	/* Unsafe/intext.scm 725 */
																																								obj_t
																																									BgL_auxz00_6293;
																																								BgL_auxz00_6293
																																									=
																																									ADDFX
																																									(BINT
																																									(1L),
																																									BGL_UNSAFE_CELL_REF
																																									(BgL_ptrz00_6267));
																																								BGL_UNSAFE_CELL_SET
																																									(BgL_ptrz00_6267,
																																									BgL_auxz00_6293);
																																							}
																																							{	/* Unsafe/intext.scm 1091 */
																																								long
																																									BgL_arg1926z00_2585;
																																								{	/* Unsafe/intext.scm 1091 */
																																									uint16_t
																																										BgL_xz00_5163;
																																									BgL_xz00_5163
																																										=
																																										BGL_BUINT16_TO_UINT16
																																										(BgL_itemz00_2557);
																																									{	/* Unsafe/intext.scm 1091 */
																																										long
																																											BgL_arg2388z00_5164;
																																										BgL_arg2388z00_5164
																																											=
																																											(long)
																																											(BgL_xz00_5163);
																																										BgL_arg1926z00_2585
																																											=
																																											(long)
																																											(BgL_arg2388z00_5164);
																																								}}
																																								{	/* Unsafe/intext.scm 757 */
																																									long
																																										BgL_g1065z00_5166;
																																									BgL_g1065z00_5166
																																										=
																																										(2L
																																										-
																																										1L);
																																									{
																																										long
																																											BgL_iz00_5169;
																																										{	/* Unsafe/intext.scm 757 */
																																											bool_t
																																												BgL_tmpz00_8608;
																																											BgL_iz00_5169
																																												=
																																												BgL_g1065z00_5166;
																																										BgL_loopz00_5168:
																																											if ((BgL_iz00_5169 >= 0L))
																																												{	/* Unsafe/intext.scm 759 */
																																													long
																																														BgL_dz00_5172;
																																													BgL_dz00_5172
																																														=
																																														(
																																														(BgL_arg1926z00_2585
																																															>>
																																															(int)
																																															((8L * BgL_iz00_5169))) & 255L);
																																													{	/* Unsafe/intext.scm 753 */
																																														unsigned
																																															char
																																															BgL_arg1681z00_5179;
																																														BgL_arg1681z00_5179
																																															=
																																															(BgL_dz00_5172);
																																														BGl_z62z12printzd2markupza2zz__intextz00
																																															(BgL_ptrz00_6267,
																																															BgL_bufferz00_6266,
																																															BgL_arg1681z00_5179);
																																													}
																																													{
																																														long
																																															BgL_iz00_8617;
																																														BgL_iz00_8617
																																															=
																																															(BgL_iz00_5169
																																															-
																																															1L);
																																														BgL_iz00_5169
																																															=
																																															BgL_iz00_8617;
																																														goto
																																															BgL_loopz00_5168;
																																													}
																																												}
																																											else
																																												{	/* Unsafe/intext.scm 758 */
																																													BgL_tmpz00_8608
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																											return
																																												BBOOL
																																												(BgL_tmpz00_8608);
																																										}
																																									}
																																								}
																																							}
																																						}
																																					else
																																						{	/* Unsafe/intext.scm 1089 */
																																							if (BGL_INT32P(BgL_itemz00_2557))
																																								{	/* Unsafe/intext.scm 1092 */
																																									BGl_z62checkzd2bufferz12za2zz__intextz00
																																										(BgL_bufferz00_6266,
																																										BgL_ptrz00_6267,
																																										BINT
																																										(1L));
																																									{	/* Unsafe/intext.scm 724 */
																																										obj_t
																																											BgL_stringz00_5183;
																																										long
																																											BgL_kz00_5184;
																																										BgL_stringz00_5183
																																											=
																																											BGL_UNSAFE_CELL_REF
																																											(BgL_bufferz00_6266);
																																										BgL_kz00_5184
																																											=
																																											(long)
																																											CINT
																																											(BGL_UNSAFE_CELL_REF
																																											(BgL_ptrz00_6267));
																																										STRING_SET
																																											(BgL_stringz00_5183,
																																											BgL_kz00_5184,
																																											((unsigned char) 'i'));
																																									}
																																									{	/* Unsafe/intext.scm 725 */
																																										obj_t
																																											BgL_auxz00_6294;
																																										BgL_auxz00_6294
																																											=
																																											ADDFX
																																											(BINT
																																											(1L),
																																											BGL_UNSAFE_CELL_REF
																																											(BgL_ptrz00_6267));
																																										BGL_UNSAFE_CELL_SET
																																											(BgL_ptrz00_6267,
																																											BgL_auxz00_6294);
																																									}
																																									{	/* Unsafe/intext.scm 1094 */
																																										long
																																											BgL_arg1928z00_2587;
																																										{	/* Unsafe/intext.scm 1094 */
																																											int32_t
																																												BgL_xz00_5187;
																																											BgL_xz00_5187
																																												=
																																												BGL_BINT32_TO_INT32
																																												(BgL_itemz00_2557);
																																											{	/* Unsafe/intext.scm 1094 */
																																												long
																																													BgL_arg2387z00_5188;
																																												BgL_arg2387z00_5188
																																													=
																																													(long)
																																													(BgL_xz00_5187);
																																												BgL_arg1928z00_2587
																																													=
																																													(long)
																																													(BgL_arg2387z00_5188);
																																										}}
																																										{	/* Unsafe/intext.scm 757 */
																																											long
																																												BgL_g1065z00_5190;
																																											BgL_g1065z00_5190
																																												=
																																												(4L
																																												-
																																												1L);
																																											{
																																												long
																																													BgL_iz00_5193;
																																												{	/* Unsafe/intext.scm 757 */
																																													bool_t
																																														BgL_tmpz00_8632;
																																													BgL_iz00_5193
																																														=
																																														BgL_g1065z00_5190;
																																												BgL_loopz00_5192:
																																													if ((BgL_iz00_5193 >= 0L))
																																														{	/* Unsafe/intext.scm 759 */
																																															long
																																																BgL_dz00_5196;
																																															BgL_dz00_5196
																																																=
																																																(
																																																(BgL_arg1928z00_2587
																																																	>>
																																																	(int)
																																																	((8L * BgL_iz00_5193))) & 255L);
																																															{	/* Unsafe/intext.scm 753 */
																																																unsigned
																																																	char
																																																	BgL_arg1681z00_5203;
																																																BgL_arg1681z00_5203
																																																	=
																																																	(BgL_dz00_5196);
																																																BGl_z62z12printzd2markupza2zz__intextz00
																																																	(BgL_ptrz00_6267,
																																																	BgL_bufferz00_6266,
																																																	BgL_arg1681z00_5203);
																																															}
																																															{
																																																long
																																																	BgL_iz00_8641;
																																																BgL_iz00_8641
																																																	=
																																																	(BgL_iz00_5193
																																																	-
																																																	1L);
																																																BgL_iz00_5193
																																																	=
																																																	BgL_iz00_8641;
																																																goto
																																																	BgL_loopz00_5192;
																																															}
																																														}
																																													else
																																														{	/* Unsafe/intext.scm 758 */
																																															BgL_tmpz00_8632
																																																=
																																																(
																																																(bool_t)
																																																0);
																																														}
																																													return
																																														BBOOL
																																														(BgL_tmpz00_8632);
																																												}
																																											}
																																										}
																																									}
																																								}
																																							else
																																								{	/* Unsafe/intext.scm 1092 */
																																									if (BGL_UINT32P(BgL_itemz00_2557))
																																										{	/* Unsafe/intext.scm 1095 */
																																											BGl_z62checkzd2bufferz12za2zz__intextz00
																																												(BgL_bufferz00_6266,
																																												BgL_ptrz00_6267,
																																												BINT
																																												(1L));
																																											{	/* Unsafe/intext.scm 724 */
																																												obj_t
																																													BgL_stringz00_5207;
																																												long
																																													BgL_kz00_5208;
																																												BgL_stringz00_5207
																																													=
																																													BGL_UNSAFE_CELL_REF
																																													(BgL_bufferz00_6266);
																																												BgL_kz00_5208
																																													=
																																													(long)
																																													CINT
																																													(BGL_UNSAFE_CELL_REF
																																													(BgL_ptrz00_6267));
																																												STRING_SET
																																													(BgL_stringz00_5207,
																																													BgL_kz00_5208,
																																													((unsigned char) 'I'));
																																											}
																																											{	/* Unsafe/intext.scm 725 */
																																												obj_t
																																													BgL_auxz00_6295;
																																												BgL_auxz00_6295
																																													=
																																													ADDFX
																																													(BINT
																																													(1L),
																																													BGL_UNSAFE_CELL_REF
																																													(BgL_ptrz00_6267));
																																												BGL_UNSAFE_CELL_SET
																																													(BgL_ptrz00_6267,
																																													BgL_auxz00_6295);
																																											}
																																											{	/* Unsafe/intext.scm 1097 */
																																												long
																																													BgL_arg1931z00_2589;
																																												{	/* Unsafe/intext.scm 1097 */
																																													uint32_t
																																														BgL_xz00_5211;
																																													BgL_xz00_5211
																																														=
																																														BGL_BUINT32_TO_UINT32
																																														(BgL_itemz00_2557);
																																													BgL_arg1931z00_2589
																																														=
																																														(long)
																																														(BgL_xz00_5211);
																																												}
																																												{	/* Unsafe/intext.scm 757 */
																																													long
																																														BgL_g1065z00_5212;
																																													BgL_g1065z00_5212
																																														=
																																														(4L
																																														-
																																														1L);
																																													{
																																														long
																																															BgL_iz00_5215;
																																														{	/* Unsafe/intext.scm 757 */
																																															bool_t
																																																BgL_tmpz00_8655;
																																															BgL_iz00_5215
																																																=
																																																BgL_g1065z00_5212;
																																														BgL_loopz00_5214:
																																															if ((BgL_iz00_5215 >= 0L))
																																																{	/* Unsafe/intext.scm 759 */
																																																	long
																																																		BgL_dz00_5218;
																																																	BgL_dz00_5218
																																																		=
																																																		(
																																																		(BgL_arg1931z00_2589
																																																			>>
																																																			(int)
																																																			((8L * BgL_iz00_5215))) & 255L);
																																																	{	/* Unsafe/intext.scm 753 */
																																																		unsigned
																																																			char
																																																			BgL_arg1681z00_5225;
																																																		BgL_arg1681z00_5225
																																																			=
																																																			(BgL_dz00_5218);
																																																		BGl_z62z12printzd2markupza2zz__intextz00
																																																			(BgL_ptrz00_6267,
																																																			BgL_bufferz00_6266,
																																																			BgL_arg1681z00_5225);
																																																	}
																																																	{
																																																		long
																																																			BgL_iz00_8664;
																																																		BgL_iz00_8664
																																																			=
																																																			(BgL_iz00_5215
																																																			-
																																																			1L);
																																																		BgL_iz00_5215
																																																			=
																																																			BgL_iz00_8664;
																																																		goto
																																																			BgL_loopz00_5214;
																																																	}
																																																}
																																															else
																																																{	/* Unsafe/intext.scm 758 */
																																																	BgL_tmpz00_8655
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															return
																																																BBOOL
																																																(BgL_tmpz00_8655);
																																														}
																																													}
																																												}
																																											}
																																										}
																																									else
																																										{	/* Unsafe/intext.scm 1095 */
																																											if (BGL_INT64P(BgL_itemz00_2557))
																																												{	/* Unsafe/intext.scm 1098 */
																																													BGl_z62checkzd2bufferz12za2zz__intextz00
																																														(BgL_bufferz00_6266,
																																														BgL_ptrz00_6267,
																																														BINT
																																														(1L));
																																													{	/* Unsafe/intext.scm 724 */
																																														obj_t
																																															BgL_stringz00_5229;
																																														long
																																															BgL_kz00_5230;
																																														BgL_stringz00_5229
																																															=
																																															BGL_UNSAFE_CELL_REF
																																															(BgL_bufferz00_6266);
																																														BgL_kz00_5230
																																															=
																																															(long)
																																															CINT
																																															(BGL_UNSAFE_CELL_REF
																																															(BgL_ptrz00_6267));
																																														STRING_SET
																																															(BgL_stringz00_5229,
																																															BgL_kz00_5230,
																																															((unsigned char) 'l'));
																																													}
																																													{	/* Unsafe/intext.scm 725 */
																																														obj_t
																																															BgL_auxz00_6296;
																																														BgL_auxz00_6296
																																															=
																																															ADDFX
																																															(BINT
																																															(1L),
																																															BGL_UNSAFE_CELL_REF
																																															(BgL_ptrz00_6267));
																																														BGL_UNSAFE_CELL_SET
																																															(BgL_ptrz00_6267,
																																															BgL_auxz00_6296);
																																													}
																																													{	/* Unsafe/intext.scm 1100 */
																																														bool_t
																																															BgL_tmpz00_8675;
																																														BgL_mz00_2223
																																															=
																																															BgL_itemz00_2557;
																																														{
																																															long
																																																BgL_iz00_2227;
																																															BgL_iz00_2227
																																																=
																																																7L;
																																														BgL_zc3z04anonymousza31692ze3z87_2228:
																																															if ((BgL_iz00_2227 >= 0L))
																																																{	/* Unsafe/intext.scm 767 */
																																																	long
																																																		BgL_dz00_2230;
																																																	{	/* Unsafe/intext.scm 767 */
																																																		int64_t
																																																			BgL_arg1698z00_2232;
																																																		{	/* Unsafe/intext.scm 767 */
																																																			int64_t
																																																				BgL_tmpz00_8678;
																																																			{	/* Unsafe/intext.scm 767 */
																																																				int64_t
																																																					BgL_xz00_4178;
																																																				BgL_xz00_4178
																																																					=
																																																					BGL_BINT64_TO_INT64
																																																					(BgL_mz00_2223);
																																																				BgL_tmpz00_8678
																																																					=
																																																					(BgL_xz00_4178
																																																					>>
																																																					(int)
																																																					((8L * BgL_iz00_2227)));
																																																			}
																																																			BgL_arg1698z00_2232
																																																				=
																																																				(BgL_tmpz00_8678
																																																				&
																																																				(int64_t)
																																																				(255L));
																																																		}
																																																		{	/* Unsafe/intext.scm 767 */
																																																			long
																																																				BgL_arg2385z00_4183;
																																																			BgL_arg2385z00_4183
																																																				=
																																																				(long)
																																																				(BgL_arg1698z00_2232);
																																																			BgL_dz00_2230
																																																				=
																																																				(long)
																																																				(BgL_arg2385z00_4183);
																																																	}}
																																																	{	/* Unsafe/intext.scm 753 */
																																																		unsigned
																																																			char
																																																			BgL_arg1681z00_4185;
																																																		BgL_arg1681z00_4185
																																																			=
																																																			(BgL_dz00_2230);
																																																		BGl_z62z12printzd2markupza2zz__intextz00
																																																			(BgL_ptrz00_6267,
																																																			BgL_bufferz00_6266,
																																																			BgL_arg1681z00_4185);
																																																	}
																																																	{
																																																		long
																																																			BgL_iz00_8689;
																																																		BgL_iz00_8689
																																																			=
																																																			(BgL_iz00_2227
																																																			-
																																																			1L);
																																																		BgL_iz00_2227
																																																			=
																																																			BgL_iz00_8689;
																																																		goto
																																																			BgL_zc3z04anonymousza31692ze3z87_2228;
																																																	}
																																																}
																																															else
																																																{	/* Unsafe/intext.scm 766 */
																																																	BgL_tmpz00_8675
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																														}
																																														return
																																															BBOOL
																																															(BgL_tmpz00_8675);
																																													}
																																												}
																																											else
																																												{	/* Unsafe/intext.scm 1098 */
																																													if (BGL_UINT64P(BgL_itemz00_2557))
																																														{	/* Unsafe/intext.scm 1101 */
																																															BGl_z62checkzd2bufferz12za2zz__intextz00
																																																(BgL_bufferz00_6266,
																																																BgL_ptrz00_6267,
																																																BINT
																																																(1L));
																																															{	/* Unsafe/intext.scm 724 */
																																																obj_t
																																																	BgL_stringz00_5233;
																																																long
																																																	BgL_kz00_5234;
																																																BgL_stringz00_5233
																																																	=
																																																	BGL_UNSAFE_CELL_REF
																																																	(BgL_bufferz00_6266);
																																																BgL_kz00_5234
																																																	=
																																																	(long)
																																																	CINT
																																																	(BGL_UNSAFE_CELL_REF
																																																	(BgL_ptrz00_6267));
																																																STRING_SET
																																																	(BgL_stringz00_5233,
																																																	BgL_kz00_5234,
																																																	((unsigned char) 'W'));
																																															}
																																															{	/* Unsafe/intext.scm 725 */
																																																obj_t
																																																	BgL_auxz00_6297;
																																																BgL_auxz00_6297
																																																	=
																																																	ADDFX
																																																	(BINT
																																																	(1L),
																																																	BGL_UNSAFE_CELL_REF
																																																	(BgL_ptrz00_6267));
																																																BGL_UNSAFE_CELL_SET
																																																	(BgL_ptrz00_6267,
																																																	BgL_auxz00_6297);
																																															}
																																															{	/* Unsafe/intext.scm 1103 */
																																																bool_t
																																																	BgL_tmpz00_8700;
																																																BgL_mz00_2236
																																																	=
																																																	BgL_itemz00_2557;
																																																{
																																																	long
																																																		BgL_iz00_2240;
																																																	BgL_iz00_2240
																																																		=
																																																		7L;
																																																BgL_zc3z04anonymousza31705ze3z87_2241:
																																																	if ((BgL_iz00_2240 >= 0L))
																																																		{	/* Unsafe/intext.scm 775 */
																																																			long
																																																				BgL_dz00_2243;
																																																			{	/* Unsafe/intext.scm 775 */
																																																				uint64_t
																																																					BgL_arg1708z00_2245;
																																																				{	/* Unsafe/intext.scm 775 */
																																																					uint64_t
																																																						BgL_tmpz00_8703;
																																																					{	/* Unsafe/intext.scm 775 */
																																																						uint64_t
																																																							BgL_xz00_4190;
																																																						BgL_xz00_4190
																																																							=
																																																							BGL_BINT64_TO_INT64
																																																							(BgL_mz00_2236);
																																																						BgL_tmpz00_8703
																																																							=
																																																							(BgL_xz00_4190
																																																							>>
																																																							(int)
																																																							((8L * BgL_iz00_2240)));
																																																					}
																																																					BgL_arg1708z00_2245
																																																						=
																																																						(BgL_tmpz00_8703
																																																						&
																																																						(uint64_t)
																																																						(255L));
																																																				}
																																																				{	/* Unsafe/intext.scm 775 */
																																																					long
																																																						BgL_arg2384z00_4195;
																																																					BgL_arg2384z00_4195
																																																						=
																																																						(long)
																																																						(BgL_arg1708z00_2245);
																																																					BgL_dz00_2243
																																																						=
																																																						(long)
																																																						(BgL_arg2384z00_4195);
																																																			}}
																																																			{	/* Unsafe/intext.scm 753 */
																																																				unsigned
																																																					char
																																																					BgL_arg1681z00_4197;
																																																				BgL_arg1681z00_4197
																																																					=
																																																					(BgL_dz00_2243);
																																																				BGl_z62z12printzd2markupza2zz__intextz00
																																																					(BgL_ptrz00_6267,
																																																					BgL_bufferz00_6266,
																																																					BgL_arg1681z00_4197);
																																																			}
																																																			{
																																																				long
																																																					BgL_iz00_8714;
																																																				BgL_iz00_8714
																																																					=
																																																					(BgL_iz00_2240
																																																					-
																																																					1L);
																																																				BgL_iz00_2240
																																																					=
																																																					BgL_iz00_8714;
																																																				goto
																																																					BgL_zc3z04anonymousza31705ze3z87_2241;
																																																			}
																																																		}
																																																	else
																																																		{	/* Unsafe/intext.scm 774 */
																																																			BgL_tmpz00_8700
																																																				=
																																																				(
																																																				(bool_t)
																																																				0);
																																																		}
																																																}
																																																return
																																																	BBOOL
																																																	(BgL_tmpz00_8700);
																																															}
																																														}
																																													else
																																														{	/* Unsafe/intext.scm 1101 */
																																															if (CNSTP(BgL_itemz00_2557))
																																																{	/* Unsafe/intext.scm 1104 */
																																																	BGl_z62checkzd2bufferz12za2zz__intextz00
																																																		(BgL_bufferz00_6266,
																																																		BgL_ptrz00_6267,
																																																		BINT
																																																		(1L));
																																																	{	/* Unsafe/intext.scm 724 */
																																																		obj_t
																																																			BgL_stringz00_5237;
																																																		long
																																																			BgL_kz00_5238;
																																																		BgL_stringz00_5237
																																																			=
																																																			BGL_UNSAFE_CELL_REF
																																																			(BgL_bufferz00_6266);
																																																		BgL_kz00_5238
																																																			=
																																																			(long)
																																																			CINT
																																																			(BGL_UNSAFE_CELL_REF
																																																			(BgL_ptrz00_6267));
																																																		STRING_SET
																																																			(BgL_stringz00_5237,
																																																			BgL_kz00_5238,
																																																			((unsigned char) '<'));
																																																	}
																																																	{	/* Unsafe/intext.scm 725 */
																																																		obj_t
																																																			BgL_auxz00_6298;
																																																		BgL_auxz00_6298
																																																			=
																																																			ADDFX
																																																			(BINT
																																																			(1L),
																																																			BGL_UNSAFE_CELL_REF
																																																			(BgL_ptrz00_6267));
																																																		BGL_UNSAFE_CELL_SET
																																																			(BgL_ptrz00_6267,
																																																			BgL_auxz00_6298);
																																																	}
																																																	{	/* Unsafe/intext.scm 1106 */
																																																		long
																																																			BgL_arg1935z00_2593;
																																																		BgL_arg1935z00_2593
																																																			=
																																																			CCNST
																																																			(BgL_itemz00_2557);
																																																		if ((BgL_arg1935z00_2593 < 0L))
																																																			{	/* Unsafe/intext.scm 807 */
																																																				BGl_z62checkzd2bufferz12za2zz__intextz00
																																																					(BgL_bufferz00_6266,
																																																					BgL_ptrz00_6267,
																																																					BINT
																																																					(1L));
																																																				{	/* Unsafe/intext.scm 724 */
																																																					obj_t
																																																						BgL_stringz00_5245;
																																																					long
																																																						BgL_kz00_5246;
																																																					BgL_stringz00_5245
																																																						=
																																																						BGL_UNSAFE_CELL_REF
																																																						(BgL_bufferz00_6266);
																																																					BgL_kz00_5246
																																																						=
																																																						(long)
																																																						CINT
																																																						(BGL_UNSAFE_CELL_REF
																																																						(BgL_ptrz00_6267));
																																																					STRING_SET
																																																						(BgL_stringz00_5245,
																																																						BgL_kz00_5246,
																																																						((unsigned char) '-'));
																																																				}
																																																				{	/* Unsafe/intext.scm 725 */
																																																					obj_t
																																																						BgL_auxz00_6299;
																																																					BgL_auxz00_6299
																																																						=
																																																						ADDFX
																																																						(BINT
																																																						(1L),
																																																						BGL_UNSAFE_CELL_REF
																																																						(BgL_ptrz00_6267));
																																																					BGL_UNSAFE_CELL_SET
																																																						(BgL_ptrz00_6267,
																																																						BgL_auxz00_6299);
																																																				}
																																																				{	/* Unsafe/intext.scm 810 */
																																																					long
																																																						BgL_arg1730z00_5243;
																																																					BgL_arg1730z00_5243
																																																						=
																																																						NEG
																																																						(BgL_arg1935z00_2593);
																																																					return
																																																						BGl_z62printzd2wordzb0zz__intextz00
																																																						(BgL_ptrz00_6267,
																																																						BgL_bufferz00_6266,
																																																						BgL_arg1730z00_5243);
																																																				}
																																																			}
																																																		else
																																																			{	/* Unsafe/intext.scm 807 */
																																																				return
																																																					BGl_z62printzd2wordzb0zz__intextz00
																																																					(BgL_ptrz00_6267,
																																																					BgL_bufferz00_6266,
																																																					BgL_arg1935z00_2593);
																																																			}
																																																	}
																																																}
																																															else
																																																{	/* Unsafe/intext.scm 1104 */
																																																	if (INTEGERP(BgL_itemz00_2557))
																																																		{	/* Unsafe/intext.scm 1108 */
																																																			long
																																																				BgL_iz00_5250;
																																																			BgL_iz00_5250
																																																				=
																																																				(long)
																																																				CINT
																																																				(BgL_itemz00_2557);
																																																			if ((BgL_iz00_5250 < 0L))
																																																				{	/* Unsafe/intext.scm 807 */
																																																					BGl_z62checkzd2bufferz12za2zz__intextz00
																																																						(BgL_bufferz00_6266,
																																																						BgL_ptrz00_6267,
																																																						BINT
																																																						(1L));
																																																					{	/* Unsafe/intext.scm 724 */
																																																						obj_t
																																																							BgL_stringz00_5254;
																																																						long
																																																							BgL_kz00_5255;
																																																						BgL_stringz00_5254
																																																							=
																																																							BGL_UNSAFE_CELL_REF
																																																							(BgL_bufferz00_6266);
																																																						BgL_kz00_5255
																																																							=
																																																							(long)
																																																							CINT
																																																							(BGL_UNSAFE_CELL_REF
																																																							(BgL_ptrz00_6267));
																																																						STRING_SET
																																																							(BgL_stringz00_5254,
																																																							BgL_kz00_5255,
																																																							((unsigned char) '-'));
																																																					}
																																																					{	/* Unsafe/intext.scm 725 */
																																																						obj_t
																																																							BgL_auxz00_6300;
																																																						BgL_auxz00_6300
																																																							=
																																																							ADDFX
																																																							(BINT
																																																							(1L),
																																																							BGL_UNSAFE_CELL_REF
																																																							(BgL_ptrz00_6267));
																																																						BGL_UNSAFE_CELL_SET
																																																							(BgL_ptrz00_6267,
																																																							BgL_auxz00_6300);
																																																					}
																																																					{	/* Unsafe/intext.scm 810 */
																																																						long
																																																							BgL_arg1730z00_5252;
																																																						BgL_arg1730z00_5252
																																																							=
																																																							NEG
																																																							(BgL_iz00_5250);
																																																						return
																																																							BGl_z62printzd2wordzb0zz__intextz00
																																																							(BgL_ptrz00_6267,
																																																							BgL_bufferz00_6266,
																																																							BgL_arg1730z00_5252);
																																																					}
																																																				}
																																																			else
																																																				{	/* Unsafe/intext.scm 807 */
																																																					return
																																																						BGl_z62printzd2wordzb0zz__intextz00
																																																						(BgL_ptrz00_6267,
																																																						BgL_bufferz00_6266,
																																																						BgL_iz00_5250);
																																																				}
																																																		}
																																																	else
																																																		{	/* Unsafe/intext.scm 1107 */
																																																			if (REALP(BgL_itemz00_2557))
																																																				{	/* Unsafe/intext.scm 1109 */
																																																					BGl_z62checkzd2bufferz12za2zz__intextz00
																																																						(BgL_bufferz00_6266,
																																																						BgL_ptrz00_6267,
																																																						BINT
																																																						(1L));
																																																					{	/* Unsafe/intext.scm 724 */
																																																						obj_t
																																																							BgL_stringz00_5259;
																																																						long
																																																							BgL_kz00_5260;
																																																						BgL_stringz00_5259
																																																							=
																																																							BGL_UNSAFE_CELL_REF
																																																							(BgL_bufferz00_6266);
																																																						BgL_kz00_5260
																																																							=
																																																							(long)
																																																							CINT
																																																							(BGL_UNSAFE_CELL_REF
																																																							(BgL_ptrz00_6267));
																																																						STRING_SET
																																																							(BgL_stringz00_5259,
																																																							BgL_kz00_5260,
																																																							((unsigned char) 'f'));
																																																					}
																																																					{	/* Unsafe/intext.scm 725 */
																																																						obj_t
																																																							BgL_auxz00_6301;
																																																						BgL_auxz00_6301
																																																							=
																																																							ADDFX
																																																							(BINT
																																																							(1L),
																																																							BGL_UNSAFE_CELL_REF
																																																							(BgL_ptrz00_6267));
																																																						BGL_UNSAFE_CELL_SET
																																																							(BgL_ptrz00_6267,
																																																							BgL_auxz00_6301);
																																																					}
																																																					{	/* Unsafe/intext.scm 1111 */
																																																						obj_t
																																																							BgL_sz00_2596;
																																																						BgL_sz00_2596
																																																							=
																																																							bgl_real_to_string
																																																							(REAL_TO_DOUBLE
																																																							(BgL_itemz00_2557));
																																																						{	/* Unsafe/intext.scm 1112 */
																																																							long
																																																								BgL_arg1938z00_2597;
																																																							BgL_arg1938z00_2597
																																																								=
																																																								STRING_LENGTH
																																																								(BgL_sz00_2596);
																																																							BGl_z62printzd2wordzb0zz__intextz00
																																																								(BgL_ptrz00_6267,
																																																								BgL_bufferz00_6266,
																																																								BgL_arg1938z00_2597);
																																																							BGl_z62checkzd2bufferz12za2zz__intextz00
																																																								(BgL_bufferz00_6266,
																																																								BgL_ptrz00_6267,
																																																								BINT
																																																								(BgL_arg1938z00_2597));
																																																							{	/* Unsafe/intext.scm 731 */
																																																								obj_t
																																																									BgL_s2z00_5265;
																																																								long
																																																									BgL_o2z00_5266;
																																																								BgL_s2z00_5265
																																																									=
																																																									BGL_UNSAFE_CELL_REF
																																																									(BgL_bufferz00_6266);
																																																								BgL_o2z00_5266
																																																									=
																																																									(long)
																																																									CINT
																																																									(BGL_UNSAFE_CELL_REF
																																																									(BgL_ptrz00_6267));
																																																								blit_string
																																																									(BgL_sz00_2596,
																																																									0L,
																																																									BgL_s2z00_5265,
																																																									BgL_o2z00_5266,
																																																									BgL_arg1938z00_2597);
																																																							}
																																																							{	/* Unsafe/intext.scm 732 */
																																																								obj_t
																																																									BgL_auxz00_6302;
																																																								BgL_auxz00_6302
																																																									=
																																																									ADDFX
																																																									(BGL_UNSAFE_CELL_REF
																																																									(BgL_ptrz00_6267),
																																																									BINT
																																																									(BgL_arg1938z00_2597));
																																																								return
																																																									BGL_UNSAFE_CELL_SET
																																																									(BgL_ptrz00_6267,
																																																									BgL_auxz00_6302);
																																																							}
																																																						}
																																																					}
																																																				}
																																																			else
																																																				{	/* Unsafe/intext.scm 1109 */
																																																					if (UCS2_STRINGP(BgL_itemz00_2557))
																																																						{	/* Unsafe/intext.scm 1115 */
																																																							obj_t
																																																								BgL_zc3z04anonymousza31941ze3z87_6251;
																																																							{
																																																								int
																																																									BgL_tmpz00_8771;
																																																								BgL_tmpz00_8771
																																																									=
																																																									(int)
																																																									(2L);
																																																								BgL_zc3z04anonymousza31941ze3z87_6251
																																																									=
																																																									MAKE_L_PROCEDURE
																																																									(BGl_z62zc3z04anonymousza31941ze3ze5zz__intextz00,
																																																									BgL_tmpz00_8771);
																																																							}
																																																							PROCEDURE_L_SET
																																																								(BgL_zc3z04anonymousza31941ze3z87_6251,
																																																								(int)
																																																								(0L),
																																																								((obj_t) BgL_bufferz00_6266));
																																																							PROCEDURE_L_SET
																																																								(BgL_zc3z04anonymousza31941ze3z87_6251,
																																																								(int)
																																																								(1L),
																																																								((obj_t) BgL_ptrz00_6267));
																																																							{
																																																								obj_t
																																																									BgL_printerz00_8781;
																																																								obj_t
																																																									BgL_itemz00_8780;
																																																								BgL_itemz00_8780
																																																									=
																																																									BgL_itemz00_2557;
																																																								BgL_printerz00_8781
																																																									=
																																																									BgL_zc3z04anonymousza31941ze3z87_6251;
																																																								BgL_printerz00_2290
																																																									=
																																																									BgL_printerz00_8781;
																																																								BgL_itemz00_2289
																																																									=
																																																									BgL_itemz00_8780;
																																																								goto
																																																									BgL_zc3z04anonymousza31733ze3z87_2291;
																																																							}
																																																						}
																																																					else
																																																						{	/* Unsafe/intext.scm 1113 */
																																																							if (CELLP(BgL_itemz00_2557))
																																																								{
																																																									obj_t
																																																										BgL_printerz00_8785;
																																																									obj_t
																																																										BgL_itemz00_8784;
																																																									BgL_itemz00_8784
																																																										=
																																																										BgL_itemz00_2557;
																																																									BgL_printerz00_8785
																																																										=
																																																										BgL_printzd2cellzd2_6275;
																																																									BgL_printerz00_2290
																																																										=
																																																										BgL_printerz00_8785;
																																																									BgL_itemz00_2289
																																																										=
																																																										BgL_itemz00_8784;
																																																									goto
																																																										BgL_zc3z04anonymousza31733ze3z87_2291;
																																																								}
																																																							else
																																																								{	/* Unsafe/intext.scm 1116 */
																																																									if (BGL_WEAKPTRP(BgL_itemz00_2557))
																																																										{
																																																											obj_t
																																																												BgL_printerz00_8789;
																																																											obj_t
																																																												BgL_itemz00_8788;
																																																											BgL_itemz00_8788
																																																												=
																																																												BgL_itemz00_2557;
																																																											BgL_printerz00_8789
																																																												=
																																																												BgL_printzd2weakptrzd2_6274;
																																																											BgL_printerz00_2290
																																																												=
																																																												BgL_printerz00_8789;
																																																											BgL_itemz00_2289
																																																												=
																																																												BgL_itemz00_8788;
																																																											goto
																																																												BgL_zc3z04anonymousza31733ze3z87_2291;
																																																										}
																																																									else
																																																										{	/* Unsafe/intext.scm 1118 */
																																																											if (VECTORP(BgL_itemz00_2557))
																																																												{
																																																													obj_t
																																																														BgL_printerz00_8793;
																																																													obj_t
																																																														BgL_itemz00_8792;
																																																													BgL_itemz00_8792
																																																														=
																																																														BgL_itemz00_2557;
																																																													BgL_printerz00_8793
																																																														=
																																																														BgL_printzd2vectorzd2_6273;
																																																													BgL_printerz00_2290
																																																														=
																																																														BgL_printerz00_8793;
																																																													BgL_itemz00_2289
																																																														=
																																																														BgL_itemz00_8792;
																																																													goto
																																																														BgL_zc3z04anonymousza31733ze3z87_2291;
																																																												}
																																																											else
																																																												{	/* Unsafe/intext.scm 1120 */
																																																													if (BGL_HVECTORP(BgL_itemz00_2557))
																																																														{
																																																															obj_t
																																																																BgL_printerz00_8797;
																																																															obj_t
																																																																BgL_itemz00_8796;
																																																															BgL_itemz00_8796
																																																																=
																																																																BgL_itemz00_2557;
																																																															BgL_printerz00_8797
																																																																=
																																																																BgL_printzd2hvectorzd2_6272;
																																																															BgL_printerz00_2290
																																																																=
																																																																BgL_printerz00_8797;
																																																															BgL_itemz00_2289
																																																																=
																																																																BgL_itemz00_8796;
																																																															goto
																																																																BgL_zc3z04anonymousza31733ze3z87_2291;
																																																														}
																																																													else
																																																														{	/* Unsafe/intext.scm 1122 */
																																																															if (TVECTORP(BgL_itemz00_2557))
																																																																{
																																																																	obj_t
																																																																		BgL_printerz00_8801;
																																																																	obj_t
																																																																		BgL_itemz00_8800;
																																																																	BgL_itemz00_8800
																																																																		=
																																																																		BgL_itemz00_2557;
																																																																	BgL_printerz00_8801
																																																																		=
																																																																		BgL_printzd2tvectorzd2_6271;
																																																																	BgL_printerz00_2290
																																																																		=
																																																																		BgL_printerz00_8801;
																																																																	BgL_itemz00_2289
																																																																		=
																																																																		BgL_itemz00_8800;
																																																																	goto
																																																																		BgL_zc3z04anonymousza31733ze3z87_2291;
																																																																}
																																																															else
																																																																{	/* Unsafe/intext.scm 1124 */
																																																																	if (ELONGP(BgL_itemz00_2557))
																																																																		{	/* Unsafe/intext.scm 1126 */
																																																																			BGl_z62checkzd2bufferz12za2zz__intextz00
																																																																				(BgL_bufferz00_6266,
																																																																				BgL_ptrz00_6267,
																																																																				BINT
																																																																				(1L));
																																																																			{	/* Unsafe/intext.scm 724 */
																																																																				obj_t
																																																																					BgL_stringz00_5278;
																																																																				long
																																																																					BgL_kz00_5279;
																																																																				BgL_stringz00_5278
																																																																					=
																																																																					BGL_UNSAFE_CELL_REF
																																																																					(BgL_bufferz00_6266);
																																																																				BgL_kz00_5279
																																																																					=
																																																																					(long)
																																																																					CINT
																																																																					(BGL_UNSAFE_CELL_REF
																																																																					(BgL_ptrz00_6267));
																																																																				STRING_SET
																																																																					(BgL_stringz00_5278,
																																																																					BgL_kz00_5279,
																																																																					((unsigned char) 'E'));
																																																																			}
																																																																			{	/* Unsafe/intext.scm 725 */
																																																																				obj_t
																																																																					BgL_auxz00_6303;
																																																																				BgL_auxz00_6303
																																																																					=
																																																																					ADDFX
																																																																					(BINT
																																																																					(1L),
																																																																					BGL_UNSAFE_CELL_REF
																																																																					(BgL_ptrz00_6267));
																																																																				BGL_UNSAFE_CELL_SET
																																																																					(BgL_ptrz00_6267,
																																																																					BgL_auxz00_6303);
																																																																			}
																																																																			{	/* Unsafe/intext.scm 1128 */
																																																																				obj_t
																																																																					BgL_sz00_2611;
																																																																				BgL_sz00_2611
																																																																					=
																																																																					BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00
																																																																					(BELONG_TO_LONG
																																																																					(BgL_itemz00_2557),
																																																																					BNIL);
																																																																				{	/* Unsafe/intext.scm 1129 */
																																																																					long
																																																																						BgL_arg1949z00_2612;
																																																																					BgL_arg1949z00_2612
																																																																						=
																																																																						STRING_LENGTH
																																																																						(BgL_sz00_2611);
																																																																					BGl_z62printzd2wordzb0zz__intextz00
																																																																						(BgL_ptrz00_6267,
																																																																						BgL_bufferz00_6266,
																																																																						BgL_arg1949z00_2612);
																																																																					BGl_z62checkzd2bufferz12za2zz__intextz00
																																																																						(BgL_bufferz00_6266,
																																																																						BgL_ptrz00_6267,
																																																																						BINT
																																																																						(BgL_arg1949z00_2612));
																																																																					{	/* Unsafe/intext.scm 731 */
																																																																						obj_t
																																																																							BgL_s2z00_5284;
																																																																						long
																																																																							BgL_o2z00_5285;
																																																																						BgL_s2z00_5284
																																																																							=
																																																																							BGL_UNSAFE_CELL_REF
																																																																							(BgL_bufferz00_6266);
																																																																						BgL_o2z00_5285
																																																																							=
																																																																							(long)
																																																																							CINT
																																																																							(BGL_UNSAFE_CELL_REF
																																																																							(BgL_ptrz00_6267));
																																																																						blit_string
																																																																							(BgL_sz00_2611,
																																																																							0L,
																																																																							BgL_s2z00_5284,
																																																																							BgL_o2z00_5285,
																																																																							BgL_arg1949z00_2612);
																																																																					}
																																																																					{	/* Unsafe/intext.scm 732 */
																																																																						obj_t
																																																																							BgL_auxz00_6304;
																																																																						BgL_auxz00_6304
																																																																							=
																																																																							ADDFX
																																																																							(BGL_UNSAFE_CELL_REF
																																																																							(BgL_ptrz00_6267),
																																																																							BINT
																																																																							(BgL_arg1949z00_2612));
																																																																						return
																																																																							BGL_UNSAFE_CELL_SET
																																																																							(BgL_ptrz00_6267,
																																																																							BgL_auxz00_6304);
																																																																					}
																																																																				}
																																																																			}
																																																																		}
																																																																	else
																																																																		{	/* Unsafe/intext.scm 1126 */
																																																																			if (LLONGP(BgL_itemz00_2557))
																																																																				{	/* Unsafe/intext.scm 1130 */
																																																																					BGl_z62checkzd2bufferz12za2zz__intextz00
																																																																						(BgL_bufferz00_6266,
																																																																						BgL_ptrz00_6267,
																																																																						BINT
																																																																						(1L));
																																																																					{	/* Unsafe/intext.scm 724 */
																																																																						obj_t
																																																																							BgL_stringz00_5289;
																																																																						long
																																																																							BgL_kz00_5290;
																																																																						BgL_stringz00_5289
																																																																							=
																																																																							BGL_UNSAFE_CELL_REF
																																																																							(BgL_bufferz00_6266);
																																																																						BgL_kz00_5290
																																																																							=
																																																																							(long)
																																																																							CINT
																																																																							(BGL_UNSAFE_CELL_REF
																																																																							(BgL_ptrz00_6267));
																																																																						STRING_SET
																																																																							(BgL_stringz00_5289,
																																																																							BgL_kz00_5290,
																																																																							((unsigned char) 'L'));
																																																																					}
																																																																					{	/* Unsafe/intext.scm 725 */
																																																																						obj_t
																																																																							BgL_auxz00_6305;
																																																																						BgL_auxz00_6305
																																																																							=
																																																																							ADDFX
																																																																							(BINT
																																																																							(1L),
																																																																							BGL_UNSAFE_CELL_REF
																																																																							(BgL_ptrz00_6267));
																																																																						BGL_UNSAFE_CELL_SET
																																																																							(BgL_ptrz00_6267,
																																																																							BgL_auxz00_6305);
																																																																					}
																																																																					{	/* Unsafe/intext.scm 1132 */
																																																																						obj_t
																																																																							BgL_sz00_2615;
																																																																						BgL_sz00_2615
																																																																							=
																																																																							BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00
																																																																							(BLLONG_TO_LLONG
																																																																							(BgL_itemz00_2557),
																																																																							BNIL);
																																																																						{	/* Unsafe/intext.scm 1133 */
																																																																							long
																																																																								BgL_arg1953z00_2616;
																																																																							BgL_arg1953z00_2616
																																																																								=
																																																																								STRING_LENGTH
																																																																								(BgL_sz00_2615);
																																																																							BGl_z62printzd2wordzb0zz__intextz00
																																																																								(BgL_ptrz00_6267,
																																																																								BgL_bufferz00_6266,
																																																																								BgL_arg1953z00_2616);
																																																																							BGl_z62checkzd2bufferz12za2zz__intextz00
																																																																								(BgL_bufferz00_6266,
																																																																								BgL_ptrz00_6267,
																																																																								BINT
																																																																								(BgL_arg1953z00_2616));
																																																																							{	/* Unsafe/intext.scm 731 */
																																																																								obj_t
																																																																									BgL_s2z00_5295;
																																																																								long
																																																																									BgL_o2z00_5296;
																																																																								BgL_s2z00_5295
																																																																									=
																																																																									BGL_UNSAFE_CELL_REF
																																																																									(BgL_bufferz00_6266);
																																																																								BgL_o2z00_5296
																																																																									=
																																																																									(long)
																																																																									CINT
																																																																									(BGL_UNSAFE_CELL_REF
																																																																									(BgL_ptrz00_6267));
																																																																								blit_string
																																																																									(BgL_sz00_2615,
																																																																									0L,
																																																																									BgL_s2z00_5295,
																																																																									BgL_o2z00_5296,
																																																																									BgL_arg1953z00_2616);
																																																																							}
																																																																							{	/* Unsafe/intext.scm 732 */
																																																																								obj_t
																																																																									BgL_auxz00_6306;
																																																																								BgL_auxz00_6306
																																																																									=
																																																																									ADDFX
																																																																									(BGL_UNSAFE_CELL_REF
																																																																									(BgL_ptrz00_6267),
																																																																									BINT
																																																																									(BgL_arg1953z00_2616));
																																																																								return
																																																																									BGL_UNSAFE_CELL_SET
																																																																									(BgL_ptrz00_6267,
																																																																									BgL_auxz00_6306);
																																																																							}
																																																																						}
																																																																					}
																																																																				}
																																																																			else
																																																																				{	/* Unsafe/intext.scm 1130 */
																																																																					if (BGL_DATEP(BgL_itemz00_2557))
																																																																						{	/* Unsafe/intext.scm 1134 */
																																																																							BGl_z62checkzd2bufferz12za2zz__intextz00
																																																																								(BgL_bufferz00_6266,
																																																																								BgL_ptrz00_6267,
																																																																								BINT
																																																																								(1L));
																																																																							{	/* Unsafe/intext.scm 724 */
																																																																								obj_t
																																																																									BgL_stringz00_5300;
																																																																								long
																																																																									BgL_kz00_5301;
																																																																								BgL_stringz00_5300
																																																																									=
																																																																									BGL_UNSAFE_CELL_REF
																																																																									(BgL_bufferz00_6266);
																																																																								BgL_kz00_5301
																																																																									=
																																																																									(long)
																																																																									CINT
																																																																									(BGL_UNSAFE_CELL_REF
																																																																									(BgL_ptrz00_6267));
																																																																								STRING_SET
																																																																									(BgL_stringz00_5300,
																																																																									BgL_kz00_5301,
																																																																									((unsigned char) 'D'));
																																																																							}
																																																																							{	/* Unsafe/intext.scm 725 */
																																																																								obj_t
																																																																									BgL_auxz00_6307;
																																																																								BgL_auxz00_6307
																																																																									=
																																																																									ADDFX
																																																																									(BINT
																																																																									(1L),
																																																																									BGL_UNSAFE_CELL_REF
																																																																									(BgL_ptrz00_6267));
																																																																								BGL_UNSAFE_CELL_SET
																																																																									(BgL_ptrz00_6267,
																																																																									BgL_auxz00_6307);
																																																																							}
																																																																							{	/* Unsafe/intext.scm 1136 */
																																																																								obj_t
																																																																									BgL_sz00_2619;
																																																																								BgL_sz00_2619
																																																																									=
																																																																									BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00
																																																																									(bgl_date_to_nanoseconds
																																																																									(BgL_itemz00_2557),
																																																																									BNIL);
																																																																								{	/* Unsafe/intext.scm 1137 */
																																																																									long
																																																																										BgL_arg1956z00_2620;
																																																																									BgL_arg1956z00_2620
																																																																										=
																																																																										STRING_LENGTH
																																																																										(BgL_sz00_2619);
																																																																									BGl_z62printzd2wordzb0zz__intextz00
																																																																										(BgL_ptrz00_6267,
																																																																										BgL_bufferz00_6266,
																																																																										BgL_arg1956z00_2620);
																																																																									BGl_z62checkzd2bufferz12za2zz__intextz00
																																																																										(BgL_bufferz00_6266,
																																																																										BgL_ptrz00_6267,
																																																																										BINT
																																																																										(BgL_arg1956z00_2620));
																																																																									{	/* Unsafe/intext.scm 731 */
																																																																										obj_t
																																																																											BgL_s2z00_5307;
																																																																										long
																																																																											BgL_o2z00_5308;
																																																																										BgL_s2z00_5307
																																																																											=
																																																																											BGL_UNSAFE_CELL_REF
																																																																											(BgL_bufferz00_6266);
																																																																										BgL_o2z00_5308
																																																																											=
																																																																											(long)
																																																																											CINT
																																																																											(BGL_UNSAFE_CELL_REF
																																																																											(BgL_ptrz00_6267));
																																																																										blit_string
																																																																											(BgL_sz00_2619,
																																																																											0L,
																																																																											BgL_s2z00_5307,
																																																																											BgL_o2z00_5308,
																																																																											BgL_arg1956z00_2620);
																																																																									}
																																																																									{	/* Unsafe/intext.scm 732 */
																																																																										obj_t
																																																																											BgL_auxz00_6308;
																																																																										BgL_auxz00_6308
																																																																											=
																																																																											ADDFX
																																																																											(BGL_UNSAFE_CELL_REF
																																																																											(BgL_ptrz00_6267),
																																																																											BINT
																																																																											(BgL_arg1956z00_2620));
																																																																										return
																																																																											BGL_UNSAFE_CELL_SET
																																																																											(BgL_ptrz00_6267,
																																																																											BgL_auxz00_6308);
																																																																									}
																																																																								}
																																																																							}
																																																																						}
																																																																					else
																																																																						{	/* Unsafe/intext.scm 1134 */
																																																																							if (BIGNUMP(BgL_itemz00_2557))
																																																																								{	/* Unsafe/intext.scm 1138 */
																																																																									BGl_z62checkzd2bufferz12za2zz__intextz00
																																																																										(BgL_bufferz00_6266,
																																																																										BgL_ptrz00_6267,
																																																																										BINT
																																																																										(1L));
																																																																									{	/* Unsafe/intext.scm 724 */
																																																																										obj_t
																																																																											BgL_stringz00_5312;
																																																																										long
																																																																											BgL_kz00_5313;
																																																																										BgL_stringz00_5312
																																																																											=
																																																																											BGL_UNSAFE_CELL_REF
																																																																											(BgL_bufferz00_6266);
																																																																										BgL_kz00_5313
																																																																											=
																																																																											(long)
																																																																											CINT
																																																																											(BGL_UNSAFE_CELL_REF
																																																																											(BgL_ptrz00_6267));
																																																																										STRING_SET
																																																																											(BgL_stringz00_5312,
																																																																											BgL_kz00_5313,
																																																																											((unsigned char) 'z'));
																																																																									}
																																																																									{	/* Unsafe/intext.scm 725 */
																																																																										obj_t
																																																																											BgL_auxz00_6309;
																																																																										BgL_auxz00_6309
																																																																											=
																																																																											ADDFX
																																																																											(BINT
																																																																											(1L),
																																																																											BGL_UNSAFE_CELL_REF
																																																																											(BgL_ptrz00_6267));
																																																																										BGL_UNSAFE_CELL_SET
																																																																											(BgL_ptrz00_6267,
																																																																											BgL_auxz00_6309);
																																																																									}
																																																																									{	/* Unsafe/intext.scm 1140 */
																																																																										obj_t
																																																																											BgL_sz00_2624;
																																																																										{	/* Unsafe/bignumber.scm 214 */

																																																																											BgL_sz00_2624
																																																																												=
																																																																												BGl_bignumzd2ze3stringz31zz__bignumz00
																																																																												(BgL_itemz00_2557,
																																																																												10L);
																																																																										}
																																																																										{	/* Unsafe/intext.scm 1141 */
																																																																											long
																																																																												BgL_arg1960z00_2625;
																																																																											BgL_arg1960z00_2625
																																																																												=
																																																																												STRING_LENGTH
																																																																												(BgL_sz00_2624);
																																																																											BGl_z62printzd2wordzb0zz__intextz00
																																																																												(BgL_ptrz00_6267,
																																																																												BgL_bufferz00_6266,
																																																																												BgL_arg1960z00_2625);
																																																																											BGl_z62checkzd2bufferz12za2zz__intextz00
																																																																												(BgL_bufferz00_6266,
																																																																												BgL_ptrz00_6267,
																																																																												BINT
																																																																												(BgL_arg1960z00_2625));
																																																																											{	/* Unsafe/intext.scm 731 */
																																																																												obj_t
																																																																													BgL_s2z00_5318;
																																																																												long
																																																																													BgL_o2z00_5319;
																																																																												BgL_s2z00_5318
																																																																													=
																																																																													BGL_UNSAFE_CELL_REF
																																																																													(BgL_bufferz00_6266);
																																																																												BgL_o2z00_5319
																																																																													=
																																																																													(long)
																																																																													CINT
																																																																													(BGL_UNSAFE_CELL_REF
																																																																													(BgL_ptrz00_6267));
																																																																												blit_string
																																																																													(BgL_sz00_2624,
																																																																													0L,
																																																																													BgL_s2z00_5318,
																																																																													BgL_o2z00_5319,
																																																																													BgL_arg1960z00_2625);
																																																																											}
																																																																											{	/* Unsafe/intext.scm 732 */
																																																																												obj_t
																																																																													BgL_auxz00_6310;
																																																																												BgL_auxz00_6310
																																																																													=
																																																																													ADDFX
																																																																													(BGL_UNSAFE_CELL_REF
																																																																													(BgL_ptrz00_6267),
																																																																													BINT
																																																																													(BgL_arg1960z00_2625));
																																																																												return
																																																																													BGL_UNSAFE_CELL_SET
																																																																													(BgL_ptrz00_6267,
																																																																													BgL_auxz00_6310);
																																																																											}
																																																																										}
																																																																									}
																																																																								}
																																																																							else
																																																																								{	/* Unsafe/intext.scm 1138 */
																																																																									if (CUSTOMP(BgL_itemz00_2557))
																																																																										{
																																																																											obj_t
																																																																												BgL_printerz00_8876;
																																																																											obj_t
																																																																												BgL_itemz00_8875;
																																																																											BgL_itemz00_8875
																																																																												=
																																																																												BgL_itemz00_2557;
																																																																											BgL_printerz00_8876
																																																																												=
																																																																												BgL_printzd2customzd2_6270;
																																																																											BgL_printerz00_2290
																																																																												=
																																																																												BgL_printerz00_8876;
																																																																											BgL_itemz00_2289
																																																																												=
																																																																												BgL_itemz00_8875;
																																																																											goto
																																																																												BgL_zc3z04anonymousza31733ze3z87_2291;
																																																																										}
																																																																									else
																																																																										{	/* Unsafe/intext.scm 1142 */
																																																																											if (PROCEDUREP(BgL_itemz00_2557))
																																																																												{	/* Unsafe/intext.scm 1145 */
																																																																													obj_t
																																																																														BgL_zc3z04anonymousza31965ze3z87_6242;
																																																																													{
																																																																														int
																																																																															BgL_tmpz00_8879;
																																																																														BgL_tmpz00_8879
																																																																															=
																																																																															(int)
																																																																															(14L);
																																																																														BgL_zc3z04anonymousza31965ze3z87_6242
																																																																															=
																																																																															MAKE_L_PROCEDURE
																																																																															(BGl_z62zc3z04anonymousza31965ze3ze5zz__intextz00,
																																																																															BgL_tmpz00_8879);
																																																																													}
																																																																													PROCEDURE_L_SET
																																																																														(BgL_zc3z04anonymousza31965ze3z87_6242,
																																																																														(int)
																																																																														(0L),
																																																																														BgL_tablez00_6268);
																																																																													PROCEDURE_L_SET
																																																																														(BgL_zc3z04anonymousza31965ze3z87_6242,
																																																																														(int)
																																																																														(1L),
																																																																														((obj_t) BgL_refz00_6269));
																																																																													PROCEDURE_L_SET
																																																																														(BgL_zc3z04anonymousza31965ze3z87_6242,
																																																																														(int)
																																																																														(2L),
																																																																														BgL_printzd2customzd2_6270);
																																																																													PROCEDURE_L_SET
																																																																														(BgL_zc3z04anonymousza31965ze3z87_6242,
																																																																														(int)
																																																																														(3L),
																																																																														BgL_printzd2tvectorzd2_6271);
																																																																													PROCEDURE_L_SET
																																																																														(BgL_zc3z04anonymousza31965ze3z87_6242,
																																																																														(int)
																																																																														(4L),
																																																																														BgL_printzd2hvectorzd2_6272);
																																																																													PROCEDURE_L_SET
																																																																														(BgL_zc3z04anonymousza31965ze3z87_6242,
																																																																														(int)
																																																																														(5L),
																																																																														BgL_printzd2vectorzd2_6273);
																																																																													PROCEDURE_L_SET
																																																																														(BgL_zc3z04anonymousza31965ze3z87_6242,
																																																																														(int)
																																																																														(6L),
																																																																														BgL_printzd2weakptrzd2_6274);
																																																																													PROCEDURE_L_SET
																																																																														(BgL_zc3z04anonymousza31965ze3z87_6242,
																																																																														(int)
																																																																														(7L),
																																																																														BgL_printzd2cellzd2_6275);
																																																																													PROCEDURE_L_SET
																																																																														(BgL_zc3z04anonymousza31965ze3z87_6242,
																																																																														(int)
																																																																														(8L),
																																																																														BgL_printzd2classzd2_6276);
																																																																													PROCEDURE_L_SET
																																																																														(BgL_zc3z04anonymousza31965ze3z87_6242,
																																																																														(int)
																																																																														(9L),
																																																																														BgL_printzd2objectzd2_6277);
																																																																													PROCEDURE_L_SET
																																																																														(BgL_zc3z04anonymousza31965ze3z87_6242,
																																																																														(int)
																																																																														(10L),
																																																																														BgL_printzd2pairzd2_6278);
																																																																													PROCEDURE_L_SET
																																																																														(BgL_zc3z04anonymousza31965ze3z87_6242,
																																																																														(int)
																																																																														(11L),
																																																																														BgL_printzd2epairzd2_6279);
																																																																													PROCEDURE_L_SET
																																																																														(BgL_zc3z04anonymousza31965ze3z87_6242,
																																																																														(int)
																																																																														(12L),
																																																																														((obj_t) BgL_bufferz00_6266));
																																																																													PROCEDURE_L_SET
																																																																														(BgL_zc3z04anonymousza31965ze3z87_6242,
																																																																														(int)
																																																																														(13L),
																																																																														((obj_t) BgL_ptrz00_6267));
																																																																													{
																																																																														obj_t
																																																																															BgL_printerz00_8914;
																																																																														obj_t
																																																																															BgL_itemz00_8913;
																																																																														BgL_itemz00_8913
																																																																															=
																																																																															BgL_itemz00_2557;
																																																																														BgL_printerz00_8914
																																																																															=
																																																																															BgL_zc3z04anonymousza31965ze3z87_6242;
																																																																														BgL_printerz00_2290
																																																																															=
																																																																															BgL_printerz00_8914;
																																																																														BgL_itemz00_2289
																																																																															=
																																																																															BgL_itemz00_8913;
																																																																														goto
																																																																															BgL_zc3z04anonymousza31733ze3z87_2291;
																																																																													}
																																																																												}
																																																																											else
																																																																												{	/* Unsafe/intext.scm 1144 */
																																																																													if (PROCESSP(BgL_itemz00_2557))
																																																																														{	/* Unsafe/intext.scm 1147 */
																																																																															obj_t
																																																																																BgL_zc3z04anonymousza31968ze3z87_6241;
																																																																															{
																																																																																int
																																																																																	BgL_tmpz00_8917;
																																																																																BgL_tmpz00_8917
																																																																																	=
																																																																																	(int)
																																																																																	(14L);
																																																																																BgL_zc3z04anonymousza31968ze3z87_6241
																																																																																	=
																																																																																	MAKE_L_PROCEDURE
																																																																																	(BGl_z62zc3z04anonymousza31968ze3ze5zz__intextz00,
																																																																																	BgL_tmpz00_8917);
																																																																															}
																																																																															PROCEDURE_L_SET
																																																																																(BgL_zc3z04anonymousza31968ze3z87_6241,
																																																																																(int)
																																																																																(0L),
																																																																																BgL_tablez00_6268);
																																																																															PROCEDURE_L_SET
																																																																																(BgL_zc3z04anonymousza31968ze3z87_6241,
																																																																																(int)
																																																																																(1L),
																																																																																((obj_t) BgL_refz00_6269));
																																																																															PROCEDURE_L_SET
																																																																																(BgL_zc3z04anonymousza31968ze3z87_6241,
																																																																																(int)
																																																																																(2L),
																																																																																BgL_printzd2customzd2_6270);
																																																																															PROCEDURE_L_SET
																																																																																(BgL_zc3z04anonymousza31968ze3z87_6241,
																																																																																(int)
																																																																																(3L),
																																																																																BgL_printzd2tvectorzd2_6271);
																																																																															PROCEDURE_L_SET
																																																																																(BgL_zc3z04anonymousza31968ze3z87_6241,
																																																																																(int)
																																																																																(4L),
																																																																																BgL_printzd2hvectorzd2_6272);
																																																																															PROCEDURE_L_SET
																																																																																(BgL_zc3z04anonymousza31968ze3z87_6241,
																																																																																(int)
																																																																																(5L),
																																																																																BgL_printzd2vectorzd2_6273);
																																																																															PROCEDURE_L_SET
																																																																																(BgL_zc3z04anonymousza31968ze3z87_6241,
																																																																																(int)
																																																																																(6L),
																																																																																BgL_printzd2weakptrzd2_6274);
																																																																															PROCEDURE_L_SET
																																																																																(BgL_zc3z04anonymousza31968ze3z87_6241,
																																																																																(int)
																																																																																(7L),
																																																																																BgL_printzd2cellzd2_6275);
																																																																															PROCEDURE_L_SET
																																																																																(BgL_zc3z04anonymousza31968ze3z87_6241,
																																																																																(int)
																																																																																(8L),
																																																																																BgL_printzd2classzd2_6276);
																																																																															PROCEDURE_L_SET
																																																																																(BgL_zc3z04anonymousza31968ze3z87_6241,
																																																																																(int)
																																																																																(9L),
																																																																																BgL_printzd2objectzd2_6277);
																																																																															PROCEDURE_L_SET
																																																																																(BgL_zc3z04anonymousza31968ze3z87_6241,
																																																																																(int)
																																																																																(10L),
																																																																																BgL_printzd2pairzd2_6278);
																																																																															PROCEDURE_L_SET
																																																																																(BgL_zc3z04anonymousza31968ze3z87_6241,
																																																																																(int)
																																																																																(11L),
																																																																																BgL_printzd2epairzd2_6279);
																																																																															PROCEDURE_L_SET
																																																																																(BgL_zc3z04anonymousza31968ze3z87_6241,
																																																																																(int)
																																																																																(12L),
																																																																																((obj_t) BgL_bufferz00_6266));
																																																																															PROCEDURE_L_SET
																																																																																(BgL_zc3z04anonymousza31968ze3z87_6241,
																																																																																(int)
																																																																																(13L),
																																																																																((obj_t) BgL_ptrz00_6267));
																																																																															{
																																																																																obj_t
																																																																																	BgL_printerz00_8952;
																																																																																obj_t
																																																																																	BgL_itemz00_8951;
																																																																																BgL_itemz00_8951
																																																																																	=
																																																																																	BgL_itemz00_2557;
																																																																																BgL_printerz00_8952
																																																																																	=
																																																																																	BgL_zc3z04anonymousza31968ze3z87_6241;
																																																																																BgL_printerz00_2290
																																																																																	=
																																																																																	BgL_printerz00_8952;
																																																																																BgL_itemz00_2289
																																																																																	=
																																																																																	BgL_itemz00_8951;
																																																																																goto
																																																																																	BgL_zc3z04anonymousza31733ze3z87_2291;
																																																																															}
																																																																														}
																																																																													else
																																																																														{	/* Unsafe/intext.scm 1146 */
																																																																															if (OPAQUEP(BgL_itemz00_2557))
																																																																																{	/* Unsafe/intext.scm 1149 */
																																																																																	obj_t
																																																																																		BgL_zc3z04anonymousza31971ze3z87_6240;
																																																																																	{
																																																																																		int
																																																																																			BgL_tmpz00_8955;
																																																																																		BgL_tmpz00_8955
																																																																																			=
																																																																																			(int)
																																																																																			(14L);
																																																																																		BgL_zc3z04anonymousza31971ze3z87_6240
																																																																																			=
																																																																																			MAKE_L_PROCEDURE
																																																																																			(BGl_z62zc3z04anonymousza31971ze3ze5zz__intextz00,
																																																																																			BgL_tmpz00_8955);
																																																																																	}
																																																																																	PROCEDURE_L_SET
																																																																																		(BgL_zc3z04anonymousza31971ze3z87_6240,
																																																																																		(int)
																																																																																		(0L),
																																																																																		BgL_tablez00_6268);
																																																																																	PROCEDURE_L_SET
																																																																																		(BgL_zc3z04anonymousza31971ze3z87_6240,
																																																																																		(int)
																																																																																		(1L),
																																																																																		((obj_t) BgL_refz00_6269));
																																																																																	PROCEDURE_L_SET
																																																																																		(BgL_zc3z04anonymousza31971ze3z87_6240,
																																																																																		(int)
																																																																																		(2L),
																																																																																		BgL_printzd2customzd2_6270);
																																																																																	PROCEDURE_L_SET
																																																																																		(BgL_zc3z04anonymousza31971ze3z87_6240,
																																																																																		(int)
																																																																																		(3L),
																																																																																		BgL_printzd2tvectorzd2_6271);
																																																																																	PROCEDURE_L_SET
																																																																																		(BgL_zc3z04anonymousza31971ze3z87_6240,
																																																																																		(int)
																																																																																		(4L),
																																																																																		BgL_printzd2hvectorzd2_6272);
																																																																																	PROCEDURE_L_SET
																																																																																		(BgL_zc3z04anonymousza31971ze3z87_6240,
																																																																																		(int)
																																																																																		(5L),
																																																																																		BgL_printzd2vectorzd2_6273);
																																																																																	PROCEDURE_L_SET
																																																																																		(BgL_zc3z04anonymousza31971ze3z87_6240,
																																																																																		(int)
																																																																																		(6L),
																																																																																		BgL_printzd2weakptrzd2_6274);
																																																																																	PROCEDURE_L_SET
																																																																																		(BgL_zc3z04anonymousza31971ze3z87_6240,
																																																																																		(int)
																																																																																		(7L),
																																																																																		BgL_printzd2cellzd2_6275);
																																																																																	PROCEDURE_L_SET
																																																																																		(BgL_zc3z04anonymousza31971ze3z87_6240,
																																																																																		(int)
																																																																																		(8L),
																																																																																		BgL_printzd2classzd2_6276);
																																																																																	PROCEDURE_L_SET
																																																																																		(BgL_zc3z04anonymousza31971ze3z87_6240,
																																																																																		(int)
																																																																																		(9L),
																																																																																		BgL_printzd2objectzd2_6277);
																																																																																	PROCEDURE_L_SET
																																																																																		(BgL_zc3z04anonymousza31971ze3z87_6240,
																																																																																		(int)
																																																																																		(10L),
																																																																																		BgL_printzd2pairzd2_6278);
																																																																																	PROCEDURE_L_SET
																																																																																		(BgL_zc3z04anonymousza31971ze3z87_6240,
																																																																																		(int)
																																																																																		(11L),
																																																																																		BgL_printzd2epairzd2_6279);
																																																																																	PROCEDURE_L_SET
																																																																																		(BgL_zc3z04anonymousza31971ze3z87_6240,
																																																																																		(int)
																																																																																		(12L),
																																																																																		((obj_t) BgL_bufferz00_6266));
																																																																																	PROCEDURE_L_SET
																																																																																		(BgL_zc3z04anonymousza31971ze3z87_6240,
																																																																																		(int)
																																																																																		(13L),
																																																																																		((obj_t) BgL_ptrz00_6267));
																																																																																	{
																																																																																		obj_t
																																																																																			BgL_printerz00_8990;
																																																																																		obj_t
																																																																																			BgL_itemz00_8989;
																																																																																		BgL_itemz00_8989
																																																																																			=
																																																																																			BgL_itemz00_2557;
																																																																																		BgL_printerz00_8990
																																																																																			=
																																																																																			BgL_zc3z04anonymousza31971ze3z87_6240;
																																																																																		BgL_printerz00_2290
																																																																																			=
																																																																																			BgL_printerz00_8990;
																																																																																		BgL_itemz00_2289
																																																																																			=
																																																																																			BgL_itemz00_8989;
																																																																																		goto
																																																																																			BgL_zc3z04anonymousza31733ze3z87_2291;
																																																																																	}
																																																																																}
																																																																															else
																																																																																{	/* Unsafe/intext.scm 1150 */
																																																																																	bool_t
																																																																																		BgL_test3005z00_8991;
																																																																																	if (STRUCTP(BgL_itemz00_2557))
																																																																																		{	/* Unsafe/intext.scm 134 */
																																																																																			BgL_test3005z00_8991
																																																																																				=
																																																																																				(STRUCT_KEY
																																																																																				(BgL_itemz00_2557)
																																																																																				==
																																																																																				BGl_symbol2736z00zz__intextz00);
																																																																																		}
																																																																																	else
																																																																																		{	/* Unsafe/intext.scm 134 */
																																																																																			BgL_test3005z00_8991
																																																																																				=
																																																																																				(
																																																																																				(bool_t)
																																																																																				0);
																																																																																		}
																																																																																	if (BgL_test3005z00_8991)
																																																																																		{	/* Unsafe/intext.scm 1150 */
																																																																																			BGl_z62checkzd2bufferz12za2zz__intextz00
																																																																																				(BgL_bufferz00_6266,
																																																																																				BgL_ptrz00_6267,
																																																																																				BINT
																																																																																				(1L));
																																																																																			{	/* Unsafe/intext.scm 724 */
																																																																																				obj_t
																																																																																					BgL_stringz00_5345;
																																																																																				long
																																																																																					BgL_kz00_5346;
																																																																																				BgL_stringz00_5345
																																																																																					=
																																																																																					BGL_UNSAFE_CELL_REF
																																																																																					(BgL_bufferz00_6266);
																																																																																				BgL_kz00_5346
																																																																																					=
																																																																																					(long)
																																																																																					CINT
																																																																																					(BGL_UNSAFE_CELL_REF
																																																																																					(BgL_ptrz00_6267));
																																																																																				STRING_SET
																																																																																					(BgL_stringz00_5345,
																																																																																					BgL_kz00_5346,
																																																																																					((unsigned char) '"'));
																																																																																			}
																																																																																			{	/* Unsafe/intext.scm 725 */
																																																																																				obj_t
																																																																																					BgL_auxz00_6311;
																																																																																				BgL_auxz00_6311
																																																																																					=
																																																																																					ADDFX
																																																																																					(BINT
																																																																																					(1L),
																																																																																					BGL_UNSAFE_CELL_REF
																																																																																					(BgL_ptrz00_6267));
																																																																																				BGL_UNSAFE_CELL_SET
																																																																																					(BgL_ptrz00_6267,
																																																																																					BgL_auxz00_6311);
																																																																																			}
																																																																																			BgL_itemz00_2198
																																																																																				=
																																																																																				BgL_itemz00_2557;
																																																																																			{	/* Unsafe/intext.scm 736 */
																																																																																				obj_t
																																																																																					BgL_sz00_2200;
																																																																																				obj_t
																																																																																					BgL_offsetz00_2201;
																																																																																				obj_t
																																																																																					BgL_siza7eza7_2202;
																																																																																				BgL_sz00_2200
																																																																																					=
																																																																																					STRUCT_REF
																																																																																					(BgL_itemz00_2198,
																																																																																					(int)
																																																																																					(0L));
																																																																																				BgL_offsetz00_2201
																																																																																					=
																																																																																					STRUCT_REF
																																																																																					(BgL_itemz00_2198,
																																																																																					(int)
																																																																																					(1L));
																																																																																				BgL_siza7eza7_2202
																																																																																					=
																																																																																					STRUCT_REF
																																																																																					(BgL_itemz00_2198,
																																																																																					(int)
																																																																																					(2L));
																																																																																				{	/* Unsafe/intext.scm 798 */
																																																																																					long
																																																																																						BgL_siza7eza7_4148;
																																																																																					BgL_siza7eza7_4148
																																																																																						=
																																																																																						BGl_siza7ezd2ofzd2wordza7zz__intextz00
																																																																																						(
																																																																																						(long)
																																																																																						CINT
																																																																																						(BgL_siza7eza7_2202));
																																																																																					if ((BgL_siza7eza7_4148 == 0L))
																																																																																						{	/* Unsafe/intext.scm 753 */
																																																																																							unsigned
																																																																																								char
																																																																																								BgL_arg1681z00_4151;
																																																																																							BgL_arg1681z00_4151
																																																																																								=
																																																																																								(0L);
																																																																																							BGl_z62z12printzd2markupza2zz__intextz00
																																																																																								(BgL_ptrz00_6267,
																																																																																								BgL_bufferz00_6266,
																																																																																								BgL_arg1681z00_4151);
																																																																																						}
																																																																																					else
																																																																																						{	/* Unsafe/intext.scm 799 */
																																																																																							{	/* Unsafe/intext.scm 753 */
																																																																																								unsigned
																																																																																									char
																																																																																									BgL_arg1681z00_4152;
																																																																																								BgL_arg1681z00_4152
																																																																																									=
																																																																																									(BgL_siza7eza7_4148);
																																																																																								BGl_z62z12printzd2markupza2zz__intextz00
																																																																																									(BgL_ptrz00_6267,
																																																																																									BgL_bufferz00_6266,
																																																																																									BgL_arg1681z00_4152);
																																																																																							}
																																																																																							BBOOL
																																																																																								(BGl_z62printzd2wordzf2siza7eze5zz__intextz00
																																																																																								(BgL_ptrz00_6267,
																																																																																									BgL_bufferz00_6266,
																																																																																									BgL_siza7eza7_2202,
																																																																																									BgL_siza7eza7_4148));
																																																																																				}}
																																																																																				BGl_z62checkzd2bufferz12za2zz__intextz00
																																																																																					(BgL_bufferz00_6266,
																																																																																					BgL_ptrz00_6267,
																																																																																					BgL_siza7eza7_2202);
																																																																																				{	/* Unsafe/intext.scm 741 */
																																																																																					long
																																																																																						BgL_o1z00_4155;
																																																																																					obj_t
																																																																																						BgL_s2z00_4156;
																																																																																					long
																																																																																						BgL_o2z00_4157;
																																																																																					long
																																																																																						BgL_lz00_4158;
																																																																																					BgL_o1z00_4155
																																																																																						=
																																																																																						(long)
																																																																																						CINT
																																																																																						(BgL_offsetz00_2201);
																																																																																					BgL_s2z00_4156
																																																																																						=
																																																																																						BGL_UNSAFE_CELL_REF
																																																																																						(BgL_bufferz00_6266);
																																																																																					BgL_o2z00_4157
																																																																																						=
																																																																																						(long)
																																																																																						CINT
																																																																																						(BGL_UNSAFE_CELL_REF
																																																																																						(BgL_ptrz00_6267));
																																																																																					BgL_lz00_4158
																																																																																						=
																																																																																						(long)
																																																																																						CINT
																																																																																						(BgL_siza7eza7_2202);
																																																																																					blit_string
																																																																																						(
																																																																																						((obj_t) BgL_sz00_2200), BgL_o1z00_4155, BgL_s2z00_4156, BgL_o2z00_4157, BgL_lz00_4158);
																																																																																				}
																																																																																				{	/* Unsafe/intext.scm 742 */
																																																																																					obj_t
																																																																																						BgL_auxz00_6314;
																																																																																					BgL_auxz00_6314
																																																																																						=
																																																																																						ADDFX
																																																																																						(BGL_UNSAFE_CELL_REF
																																																																																						(BgL_ptrz00_6267),
																																																																																						BgL_siza7eza7_2202);
																																																																																					return
																																																																																						BGL_UNSAFE_CELL_SET
																																																																																						(BgL_ptrz00_6267,
																																																																																						BgL_auxz00_6314);
																																																																																				}
																																																																																			}
																																																																																		}
																																																																																	else
																																																																																		{	/* Unsafe/intext.scm 1150 */
																																																																																			if (STRUCTP(BgL_itemz00_2557))
																																																																																				{	/* Unsafe/intext.scm 1154 */
																																																																																					obj_t
																																																																																						BgL_zc3z04anonymousza31976ze3z87_6239;
																																																																																					{
																																																																																						int
																																																																																							BgL_tmpz00_9027;
																																																																																						BgL_tmpz00_9027
																																																																																							=
																																																																																							(int)
																																																																																							(14L);
																																																																																						BgL_zc3z04anonymousza31976ze3z87_6239
																																																																																							=
																																																																																							MAKE_L_PROCEDURE
																																																																																							(BGl_z62zc3z04anonymousza31976ze3ze5zz__intextz00,
																																																																																							BgL_tmpz00_9027);
																																																																																					}
																																																																																					PROCEDURE_L_SET
																																																																																						(BgL_zc3z04anonymousza31976ze3z87_6239,
																																																																																						(int)
																																																																																						(0L),
																																																																																						BgL_tablez00_6268);
																																																																																					PROCEDURE_L_SET
																																																																																						(BgL_zc3z04anonymousza31976ze3z87_6239,
																																																																																						(int)
																																																																																						(1L),
																																																																																						((obj_t) BgL_refz00_6269));
																																																																																					PROCEDURE_L_SET
																																																																																						(BgL_zc3z04anonymousza31976ze3z87_6239,
																																																																																						(int)
																																																																																						(2L),
																																																																																						BgL_printzd2customzd2_6270);
																																																																																					PROCEDURE_L_SET
																																																																																						(BgL_zc3z04anonymousza31976ze3z87_6239,
																																																																																						(int)
																																																																																						(3L),
																																																																																						BgL_printzd2tvectorzd2_6271);
																																																																																					PROCEDURE_L_SET
																																																																																						(BgL_zc3z04anonymousza31976ze3z87_6239,
																																																																																						(int)
																																																																																						(4L),
																																																																																						BgL_printzd2hvectorzd2_6272);
																																																																																					PROCEDURE_L_SET
																																																																																						(BgL_zc3z04anonymousza31976ze3z87_6239,
																																																																																						(int)
																																																																																						(5L),
																																																																																						BgL_printzd2vectorzd2_6273);
																																																																																					PROCEDURE_L_SET
																																																																																						(BgL_zc3z04anonymousza31976ze3z87_6239,
																																																																																						(int)
																																																																																						(6L),
																																																																																						BgL_printzd2weakptrzd2_6274);
																																																																																					PROCEDURE_L_SET
																																																																																						(BgL_zc3z04anonymousza31976ze3z87_6239,
																																																																																						(int)
																																																																																						(7L),
																																																																																						BgL_printzd2cellzd2_6275);
																																																																																					PROCEDURE_L_SET
																																																																																						(BgL_zc3z04anonymousza31976ze3z87_6239,
																																																																																						(int)
																																																																																						(8L),
																																																																																						BgL_printzd2classzd2_6276);
																																																																																					PROCEDURE_L_SET
																																																																																						(BgL_zc3z04anonymousza31976ze3z87_6239,
																																																																																						(int)
																																																																																						(9L),
																																																																																						BgL_printzd2objectzd2_6277);
																																																																																					PROCEDURE_L_SET
																																																																																						(BgL_zc3z04anonymousza31976ze3z87_6239,
																																																																																						(int)
																																																																																						(10L),
																																																																																						BgL_printzd2pairzd2_6278);
																																																																																					PROCEDURE_L_SET
																																																																																						(BgL_zc3z04anonymousza31976ze3z87_6239,
																																																																																						(int)
																																																																																						(11L),
																																																																																						BgL_printzd2epairzd2_6279);
																																																																																					PROCEDURE_L_SET
																																																																																						(BgL_zc3z04anonymousza31976ze3z87_6239,
																																																																																						(int)
																																																																																						(12L),
																																																																																						((obj_t) BgL_bufferz00_6266));
																																																																																					PROCEDURE_L_SET
																																																																																						(BgL_zc3z04anonymousza31976ze3z87_6239,
																																																																																						(int)
																																																																																						(13L),
																																																																																						((obj_t) BgL_ptrz00_6267));
																																																																																					{
																																																																																						obj_t
																																																																																							BgL_printerz00_9062;
																																																																																						obj_t
																																																																																							BgL_itemz00_9061;
																																																																																						BgL_itemz00_9061
																																																																																							=
																																																																																							BgL_itemz00_2557;
																																																																																						BgL_printerz00_9062
																																																																																							=
																																																																																							BgL_zc3z04anonymousza31976ze3z87_6239;
																																																																																						BgL_printerz00_2290
																																																																																							=
																																																																																							BgL_printerz00_9062;
																																																																																						BgL_itemz00_2289
																																																																																							=
																																																																																							BgL_itemz00_9061;
																																																																																						goto
																																																																																							BgL_zc3z04anonymousza31733ze3z87_2291;
																																																																																					}
																																																																																				}
																																																																																			else
																																																																																				{	/* Unsafe/intext.scm 1153 */
																																																																																					if (BGL_REGEXPP(BgL_itemz00_2557))
																																																																																						{	/* Unsafe/intext.scm 1155 */
																																																																																							BGl_z62checkzd2bufferz12za2zz__intextz00
																																																																																								(BgL_bufferz00_6266,
																																																																																								BgL_ptrz00_6267,
																																																																																								BINT
																																																																																								(1L));
																																																																																							{	/* Unsafe/intext.scm 724 */
																																																																																								obj_t
																																																																																									BgL_stringz00_5384;
																																																																																								long
																																																																																									BgL_kz00_5385;
																																																																																								BgL_stringz00_5384
																																																																																									=
																																																																																									BGL_UNSAFE_CELL_REF
																																																																																									(BgL_bufferz00_6266);
																																																																																								BgL_kz00_5385
																																																																																									=
																																																																																									(long)
																																																																																									CINT
																																																																																									(BGL_UNSAFE_CELL_REF
																																																																																									(BgL_ptrz00_6267));
																																																																																								STRING_SET
																																																																																									(BgL_stringz00_5384,
																																																																																									BgL_kz00_5385,
																																																																																									((unsigned char) 'r'));
																																																																																							}
																																																																																							{	/* Unsafe/intext.scm 725 */
																																																																																								obj_t
																																																																																									BgL_auxz00_6312;
																																																																																								BgL_auxz00_6312
																																																																																									=
																																																																																									ADDFX
																																																																																									(BINT
																																																																																									(1L),
																																																																																									BGL_UNSAFE_CELL_REF
																																																																																									(BgL_ptrz00_6267));
																																																																																								BGL_UNSAFE_CELL_SET
																																																																																									(BgL_ptrz00_6267,
																																																																																									BgL_auxz00_6312);
																																																																																							}
																																																																																							{	/* Unsafe/intext.scm 1157 */
																																																																																								obj_t
																																																																																									BgL_sz00_2655;
																																																																																								{	/* Unsafe/intext.scm 1157 */
																																																																																									obj_t
																																																																																										BgL_tmpz00_9071;
																																																																																									BgL_tmpz00_9071
																																																																																										=
																																																																																										(
																																																																																										(obj_t)
																																																																																										BgL_itemz00_2557);
																																																																																									BgL_sz00_2655
																																																																																										=
																																																																																										BGL_REGEXP_PAT
																																																																																										(BgL_tmpz00_9071);
																																																																																								}
																																																																																								{	/* Unsafe/intext.scm 1158 */
																																																																																									long
																																																																																										BgL_arg1978z00_2656;
																																																																																									BgL_arg1978z00_2656
																																																																																										=
																																																																																										STRING_LENGTH
																																																																																										(BgL_sz00_2655);
																																																																																									BGl_z62printzd2wordzb0zz__intextz00
																																																																																										(BgL_ptrz00_6267,
																																																																																										BgL_bufferz00_6266,
																																																																																										BgL_arg1978z00_2656);
																																																																																									BGl_z62checkzd2bufferz12za2zz__intextz00
																																																																																										(BgL_bufferz00_6266,
																																																																																										BgL_ptrz00_6267,
																																																																																										BINT
																																																																																										(BgL_arg1978z00_2656));
																																																																																									{	/* Unsafe/intext.scm 731 */
																																																																																										obj_t
																																																																																											BgL_s2z00_5391;
																																																																																										long
																																																																																											BgL_o2z00_5392;
																																																																																										BgL_s2z00_5391
																																																																																											=
																																																																																											BGL_UNSAFE_CELL_REF
																																																																																											(BgL_bufferz00_6266);
																																																																																										BgL_o2z00_5392
																																																																																											=
																																																																																											(long)
																																																																																											CINT
																																																																																											(BGL_UNSAFE_CELL_REF
																																																																																											(BgL_ptrz00_6267));
																																																																																										blit_string
																																																																																											(BgL_sz00_2655,
																																																																																											0L,
																																																																																											BgL_s2z00_5391,
																																																																																											BgL_o2z00_5392,
																																																																																											BgL_arg1978z00_2656);
																																																																																									}
																																																																																									{	/* Unsafe/intext.scm 732 */
																																																																																										obj_t
																																																																																											BgL_auxz00_6313;
																																																																																										BgL_auxz00_6313
																																																																																											=
																																																																																											ADDFX
																																																																																											(BGL_UNSAFE_CELL_REF
																																																																																											(BgL_ptrz00_6267),
																																																																																											BINT
																																																																																											(BgL_arg1978z00_2656));
																																																																																										return
																																																																																											BGL_UNSAFE_CELL_SET
																																																																																											(BgL_ptrz00_6267,
																																																																																											BgL_auxz00_6313);
																																																																																									}
																																																																																								}
																																																																																							}
																																																																																						}
																																																																																					else
																																																																																						{	/* Unsafe/intext.scm 1155 */
																																																																																							return
																																																																																								BGl_errorz00zz__errorz00
																																																																																								(BGl_string2673z00zz__intextz00,
																																																																																								BGl_string2738z00zz__intextz00,
																																																																																								BgL_itemz00_2557);
																																																																																						}
																																																																																				}
																																																																																		}
																																																																																}
																																																																														}
																																																																												}
																																																																										}
																																																																								}
																																																																						}
																																																																				}
																																																																		}
																																																																}
																																																														}
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																										}
																																								}
																																						}
																																				}
																																		}
																																}
																														}
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
						}
				}
			}
		}

	}



/* &print-word */
	obj_t BGl_z62printzd2wordzb0zz__intextz00(obj_t BgL_ptrz00_6321,
		obj_t BgL_bufferz00_6320, long BgL_mz00_2277)
	{
		{	/* Unsafe/intext.scm 803 */
			{	/* Unsafe/intext.scm 798 */
				long BgL_siza7eza7_4226;

				BgL_siza7eza7_4226 =
					BGl_siza7ezd2ofzd2wordza7zz__intextz00(BgL_mz00_2277);
				if ((BgL_siza7eza7_4226 == 0L))
					{	/* Unsafe/intext.scm 753 */
						unsigned char BgL_arg1681z00_4229;

						BgL_arg1681z00_4229 = (0L);
						return
							BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6321,
							BgL_bufferz00_6320, BgL_arg1681z00_4229);
					}
				else
					{	/* Unsafe/intext.scm 799 */
						{	/* Unsafe/intext.scm 753 */
							unsigned char BgL_arg1681z00_4230;

							BgL_arg1681z00_4230 = (BgL_siza7eza7_4226);
							BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6321,
								BgL_bufferz00_6320, BgL_arg1681z00_4230);
						}
						return
							BBOOL(BGl_z62printzd2wordzf2siza7eze5zz__intextz00
							(BgL_ptrz00_6321, BgL_bufferz00_6320, BINT(BgL_mz00_2277),
								BgL_siza7eza7_4226));
					}
			}
		}

	}



/* &!print-chars */
	obj_t BGl_z62z12printzd2charsza2zz__intextz00(obj_t BgL_ptrz00_6323,
		obj_t BgL_bufferz00_6322, obj_t BgL_sz00_2195, long BgL_siza7eza7_2196)
	{
		{	/* Unsafe/intext.scm 729 */
			{	/* Unsafe/intext.scm 798 */
				long BgL_siza7eza7_4133;

				BgL_siza7eza7_4133 =
					BGl_siza7ezd2ofzd2wordza7zz__intextz00(BgL_siza7eza7_2196);
				if ((BgL_siza7eza7_4133 == 0L))
					{	/* Unsafe/intext.scm 753 */
						unsigned char BgL_arg1681z00_4136;

						BgL_arg1681z00_4136 = (0L);
						BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6323,
							BgL_bufferz00_6322, BgL_arg1681z00_4136);
					}
				else
					{	/* Unsafe/intext.scm 799 */
						{	/* Unsafe/intext.scm 753 */
							unsigned char BgL_arg1681z00_4137;

							BgL_arg1681z00_4137 = (BgL_siza7eza7_4133);
							BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6323,
								BgL_bufferz00_6322, BgL_arg1681z00_4137);
						}
						BBOOL(BGl_z62printzd2wordzf2siza7eze5zz__intextz00(BgL_ptrz00_6323,
								BgL_bufferz00_6322, BINT(BgL_siza7eza7_2196),
								BgL_siza7eza7_4133));
			}}
			BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6322,
				BgL_ptrz00_6323, BINT(BgL_siza7eza7_2196));
			{	/* Unsafe/intext.scm 731 */
				obj_t BgL_s2z00_4140;
				long BgL_o2z00_4141;

				BgL_s2z00_4140 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6322);
				BgL_o2z00_4141 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6323));
				blit_string(
					((obj_t) BgL_sz00_2195), 0L, BgL_s2z00_4140, BgL_o2z00_4141,
					BgL_siza7eza7_2196);
			}
			{	/* Unsafe/intext.scm 732 */
				obj_t BgL_auxz00_6324;

				BgL_auxz00_6324 =
					ADDFX(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6323), BINT(BgL_siza7eza7_2196));
				return BGL_UNSAFE_CELL_SET(BgL_ptrz00_6323, BgL_auxz00_6324);
			}
		}

	}



/* &print-epair */
	obj_t BGl_z62printzd2epairzb0zz__intextz00(obj_t BgL_envz00_6325,
		obj_t BgL_itemz00_6339, obj_t BgL_markz00_6340)
	{
		{	/* Unsafe/intext.scm 836 */
			{	/* Unsafe/intext.scm 836 */
				obj_t BgL_refz00_6326;
				obj_t BgL_printzd2customzd2_6327;
				obj_t BgL_printzd2tvectorzd2_6328;
				obj_t BgL_printzd2hvectorzd2_6329;
				obj_t BgL_printzd2vectorzd2_6330;
				obj_t BgL_printzd2weakptrzd2_6331;
				obj_t BgL_printzd2cellzd2_6332;
				obj_t BgL_printzd2classzd2_6333;
				obj_t BgL_printzd2objectzd2_6334;
				obj_t BgL_printzd2pairzd2_6335;
				obj_t BgL_bufferz00_6336;
				obj_t BgL_ptrz00_6337;
				obj_t BgL_tablez00_6338;

				BgL_refz00_6326 = PROCEDURE_L_REF(BgL_envz00_6325, (int) (0L));
				BgL_printzd2customzd2_6327 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6325, (int) (1L)));
				BgL_printzd2tvectorzd2_6328 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6325, (int) (2L)));
				BgL_printzd2hvectorzd2_6329 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6325, (int) (3L)));
				BgL_printzd2vectorzd2_6330 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6325, (int) (4L)));
				BgL_printzd2weakptrzd2_6331 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6325, (int) (5L)));
				BgL_printzd2cellzd2_6332 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6325, (int) (6L)));
				BgL_printzd2classzd2_6333 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6325, (int) (7L)));
				BgL_printzd2objectzd2_6334 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6325, (int) (8L)));
				BgL_printzd2pairzd2_6335 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6325, (int) (9L)));
				BgL_bufferz00_6336 = PROCEDURE_L_REF(BgL_envz00_6325, (int) (10L));
				BgL_ptrz00_6337 = PROCEDURE_L_REF(BgL_envz00_6325, (int) (11L));
				BgL_tablez00_6338 = PROCEDURE_L_REF(BgL_envz00_6325, (int) (12L));
				BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6336,
					BgL_ptrz00_6337, BINT(1L));
				{	/* Unsafe/intext.scm 724 */
					obj_t BgL_stringz00_6781;
					long BgL_kz00_6782;

					BgL_stringz00_6781 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6336);
					BgL_kz00_6782 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6337));
					STRING_SET(BgL_stringz00_6781, BgL_kz00_6782, ((unsigned char) '^'));
				}
				{	/* Unsafe/intext.scm 725 */
					obj_t BgL_auxz00_6783;

					BgL_auxz00_6783 =
						ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6337));
					BGL_UNSAFE_CELL_SET(BgL_ptrz00_6337, BgL_auxz00_6783);
				}
				{	/* Unsafe/intext.scm 837 */
					long BgL_lenz00_6784;

					BgL_lenz00_6784 =
						BGl_markedzd2pairzd2lengthz00zz__intextz00(BgL_tablez00_6338,
						BgL_itemz00_6339);
					{	/* Unsafe/intext.scm 798 */
						long BgL_siza7eza7_6785;

						BgL_siza7eza7_6785 =
							BGl_siza7ezd2ofzd2wordza7zz__intextz00(BgL_lenz00_6784);
						if ((BgL_siza7eza7_6785 == 0L))
							{	/* Unsafe/intext.scm 799 */
								BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6337,
									BgL_bufferz00_6336, (0L));
							}
						else
							{	/* Unsafe/intext.scm 799 */
								BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6337,
									BgL_bufferz00_6336, (BgL_siza7eza7_6785));
								BBOOL(BGl_z62printzd2wordzf2siza7eze5zz__intextz00
									(BgL_ptrz00_6337, BgL_bufferz00_6336, BINT(BgL_lenz00_6784),
										BgL_siza7eza7_6785));
							}
					}
					{
						long BgL_iz00_6787;
						obj_t BgL_pz00_6788;

						BgL_iz00_6787 = 0L;
						BgL_pz00_6788 = BgL_itemz00_6339;
					BgL_loopz00_6786:
						if ((BgL_iz00_6787 == (BgL_lenz00_6784 - 1L)))
							{	/* Unsafe/intext.scm 842 */
								if (PAIRP(BgL_pz00_6788))
									{	/* Unsafe/intext.scm 843 */
										BGl_z62printzd2itemzb0zz__intextz00(BgL_envz00_6325,
											BgL_printzd2pairzd2_6335, BgL_printzd2objectzd2_6334,
											BgL_printzd2classzd2_6333, BgL_printzd2cellzd2_6332,
											BgL_printzd2weakptrzd2_6331, BgL_printzd2vectorzd2_6330,
											BgL_printzd2hvectorzd2_6329, BgL_printzd2tvectorzd2_6328,
											BgL_printzd2customzd2_6327, BgL_refz00_6326,
											BgL_tablez00_6338, BgL_ptrz00_6337, BgL_bufferz00_6336,
											CAR(BgL_pz00_6788));
										if (EPAIRP(BgL_pz00_6788))
											{	/* Unsafe/intext.scm 846 */
												BGl_z62printzd2itemzb0zz__intextz00(BgL_envz00_6325,
													BgL_printzd2pairzd2_6335, BgL_printzd2objectzd2_6334,
													BgL_printzd2classzd2_6333, BgL_printzd2cellzd2_6332,
													BgL_printzd2weakptrzd2_6331,
													BgL_printzd2vectorzd2_6330,
													BgL_printzd2hvectorzd2_6329,
													BgL_printzd2tvectorzd2_6328,
													BgL_printzd2customzd2_6327, BgL_refz00_6326,
													BgL_tablez00_6338, BgL_ptrz00_6337,
													BgL_bufferz00_6336, CER(BgL_pz00_6788));
											}
										else
											{	/* Unsafe/intext.scm 846 */
												BGl_z62printzd2itemzb0zz__intextz00(BgL_envz00_6325,
													BgL_printzd2pairzd2_6335, BgL_printzd2objectzd2_6334,
													BgL_printzd2classzd2_6333, BgL_printzd2cellzd2_6332,
													BgL_printzd2weakptrzd2_6331,
													BgL_printzd2vectorzd2_6330,
													BgL_printzd2hvectorzd2_6329,
													BgL_printzd2tvectorzd2_6328,
													BgL_printzd2customzd2_6327, BgL_refz00_6326,
													BgL_tablez00_6338, BgL_ptrz00_6337,
													BgL_bufferz00_6336, BUNSPEC);
											}
										return
											BGl_z62printzd2itemzb0zz__intextz00(BgL_envz00_6325,
											BgL_printzd2pairzd2_6335, BgL_printzd2objectzd2_6334,
											BgL_printzd2classzd2_6333, BgL_printzd2cellzd2_6332,
											BgL_printzd2weakptrzd2_6331, BgL_printzd2vectorzd2_6330,
											BgL_printzd2hvectorzd2_6329, BgL_printzd2tvectorzd2_6328,
											BgL_printzd2customzd2_6327, BgL_refz00_6326,
											BgL_tablez00_6338, BgL_ptrz00_6337, BgL_bufferz00_6336,
											BNIL);
									}
								else
									{	/* Unsafe/intext.scm 843 */
										return
											BGl_z62printzd2itemzb0zz__intextz00(BgL_envz00_6325,
											BgL_printzd2pairzd2_6335, BgL_printzd2objectzd2_6334,
											BgL_printzd2classzd2_6333, BgL_printzd2cellzd2_6332,
											BgL_printzd2weakptrzd2_6331, BgL_printzd2vectorzd2_6330,
											BgL_printzd2hvectorzd2_6329, BgL_printzd2tvectorzd2_6328,
											BgL_printzd2customzd2_6327, BgL_refz00_6326,
											BgL_tablez00_6338, BgL_ptrz00_6337, BgL_bufferz00_6336,
											BgL_pz00_6788);
									}
							}
						else
							{	/* Unsafe/intext.scm 842 */
								{	/* Unsafe/intext.scm 852 */
									obj_t BgL_arg1750z00_6789;

									BgL_arg1750z00_6789 = CAR(((obj_t) BgL_pz00_6788));
									BGl_z62printzd2itemzb0zz__intextz00(BgL_envz00_6325,
										BgL_printzd2pairzd2_6335, BgL_printzd2objectzd2_6334,
										BgL_printzd2classzd2_6333, BgL_printzd2cellzd2_6332,
										BgL_printzd2weakptrzd2_6331, BgL_printzd2vectorzd2_6330,
										BgL_printzd2hvectorzd2_6329, BgL_printzd2tvectorzd2_6328,
										BgL_printzd2customzd2_6327, BgL_refz00_6326,
										BgL_tablez00_6338, BgL_ptrz00_6337, BgL_bufferz00_6336,
										BgL_arg1750z00_6789);
								}
								if (EPAIRP(BgL_pz00_6788))
									{	/* Unsafe/intext.scm 854 */
										obj_t BgL_arg1754z00_6790;

										BgL_arg1754z00_6790 = CER(((obj_t) BgL_pz00_6788));
										BGl_z62printzd2itemzb0zz__intextz00(BgL_envz00_6325,
											BgL_printzd2pairzd2_6335, BgL_printzd2objectzd2_6334,
											BgL_printzd2classzd2_6333, BgL_printzd2cellzd2_6332,
											BgL_printzd2weakptrzd2_6331, BgL_printzd2vectorzd2_6330,
											BgL_printzd2hvectorzd2_6329, BgL_printzd2tvectorzd2_6328,
											BgL_printzd2customzd2_6327, BgL_refz00_6326,
											BgL_tablez00_6338, BgL_ptrz00_6337, BgL_bufferz00_6336,
											BgL_arg1754z00_6790);
									}
								else
									{	/* Unsafe/intext.scm 853 */
										BGl_z62printzd2itemzb0zz__intextz00(BgL_envz00_6325,
											BgL_printzd2pairzd2_6335, BgL_printzd2objectzd2_6334,
											BgL_printzd2classzd2_6333, BgL_printzd2cellzd2_6332,
											BgL_printzd2weakptrzd2_6331, BgL_printzd2vectorzd2_6330,
											BgL_printzd2hvectorzd2_6329, BgL_printzd2tvectorzd2_6328,
											BgL_printzd2customzd2_6327, BgL_refz00_6326,
											BgL_tablez00_6338, BgL_ptrz00_6337, BgL_bufferz00_6336,
											BUNSPEC);
									}
								{	/* Unsafe/intext.scm 856 */
									obj_t BgL_vcdrz00_6791;

									BgL_vcdrz00_6791 = CDR(((obj_t) BgL_pz00_6788));
									{	/* Unsafe/intext.scm 857 */
										bool_t BgL_test3017z00_9187;

										if (PAIRP(BgL_vcdrz00_6791))
											{	/* Unsafe/intext.scm 858 */
												obj_t BgL_markz00_6792;

												BgL_markz00_6792 =
													BGl_hashtablezd2getzd2zz__hashz00(BgL_tablez00_6338,
													BgL_vcdrz00_6791);
												{	/* Unsafe/intext.scm 859 */
													bool_t BgL__ortest_1070z00_6793;

													{	/* Unsafe/intext.scm 859 */
														obj_t BgL_a1157z00_6794;

														BgL_a1157z00_6794 =
															STRUCT_REF(
															((obj_t) BgL_markz00_6792), (int) (2L));
														if (INTEGERP(BgL_a1157z00_6794))
															{	/* Unsafe/intext.scm 859 */
																BgL__ortest_1070z00_6793 =
																	((long) CINT(BgL_a1157z00_6794) > 0L);
															}
														else
															{	/* Unsafe/intext.scm 859 */
																BgL__ortest_1070z00_6793 =
																	BGl_2ze3ze3zz__r4_numbers_6_5z00
																	(BgL_a1157z00_6794, BINT(0L));
															}
													}
													if (BgL__ortest_1070z00_6793)
														{	/* Unsafe/intext.scm 859 */
															BgL_test3017z00_9187 = BgL__ortest_1070z00_6793;
														}
													else
														{	/* Unsafe/intext.scm 859 */
															BgL_test3017z00_9187 =
																(
																(long) CINT(STRUCT_REF(
																		((obj_t) BgL_markz00_6792),
																		(int) (3L))) >= 0L);
											}}}
										else
											{	/* Unsafe/intext.scm 857 */
												BgL_test3017z00_9187 = ((bool_t) 0);
											}
										if (BgL_test3017z00_9187)
											{	/* Unsafe/intext.scm 857 */
												return
													BGl_z62printzd2itemzb0zz__intextz00(BgL_envz00_6325,
													BgL_printzd2pairzd2_6335, BgL_printzd2objectzd2_6334,
													BgL_printzd2classzd2_6333, BgL_printzd2cellzd2_6332,
													BgL_printzd2weakptrzd2_6331,
													BgL_printzd2vectorzd2_6330,
													BgL_printzd2hvectorzd2_6329,
													BgL_printzd2tvectorzd2_6328,
													BgL_printzd2customzd2_6327, BgL_refz00_6326,
													BgL_tablez00_6338, BgL_ptrz00_6337,
													BgL_bufferz00_6336, BgL_vcdrz00_6791);
											}
										else
											{
												obj_t BgL_pz00_9209;
												long BgL_iz00_9207;

												BgL_iz00_9207 = (BgL_iz00_6787 + 1L);
												BgL_pz00_9209 = BgL_vcdrz00_6791;
												BgL_pz00_6788 = BgL_pz00_9209;
												BgL_iz00_6787 = BgL_iz00_9207;
												goto BgL_loopz00_6786;
											}
									}
								}
							}
					}
				}
			}
		}

	}



/* &print-pair */
	obj_t BGl_z62printzd2pairzb0zz__intextz00(obj_t BgL_envz00_6342,
		obj_t BgL_itemz00_6356, obj_t BgL_markz00_6357)
	{
		{	/* Unsafe/intext.scm 866 */
			{	/* Unsafe/intext.scm 866 */
				obj_t BgL_refz00_6343;
				obj_t BgL_printzd2customzd2_6344;
				obj_t BgL_printzd2tvectorzd2_6345;
				obj_t BgL_printzd2hvectorzd2_6346;
				obj_t BgL_printzd2vectorzd2_6347;
				obj_t BgL_printzd2weakptrzd2_6348;
				obj_t BgL_printzd2cellzd2_6349;
				obj_t BgL_printzd2classzd2_6350;
				obj_t BgL_printzd2objectzd2_6351;
				obj_t BgL_printzd2epairzd2_6352;
				obj_t BgL_bufferz00_6353;
				obj_t BgL_ptrz00_6354;
				obj_t BgL_tablez00_6355;

				BgL_refz00_6343 = PROCEDURE_L_REF(BgL_envz00_6342, (int) (0L));
				BgL_printzd2customzd2_6344 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6342, (int) (1L)));
				BgL_printzd2tvectorzd2_6345 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6342, (int) (2L)));
				BgL_printzd2hvectorzd2_6346 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6342, (int) (3L)));
				BgL_printzd2vectorzd2_6347 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6342, (int) (4L)));
				BgL_printzd2weakptrzd2_6348 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6342, (int) (5L)));
				BgL_printzd2cellzd2_6349 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6342, (int) (6L)));
				BgL_printzd2classzd2_6350 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6342, (int) (7L)));
				BgL_printzd2objectzd2_6351 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6342, (int) (8L)));
				BgL_printzd2epairzd2_6352 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6342, (int) (9L)));
				BgL_bufferz00_6353 = PROCEDURE_L_REF(BgL_envz00_6342, (int) (10L));
				BgL_ptrz00_6354 = PROCEDURE_L_REF(BgL_envz00_6342, (int) (11L));
				BgL_tablez00_6355 = PROCEDURE_L_REF(BgL_envz00_6342, (int) (12L));
				BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6353,
					BgL_ptrz00_6354, BINT(1L));
				{	/* Unsafe/intext.scm 724 */
					obj_t BgL_stringz00_6795;
					long BgL_kz00_6796;

					BgL_stringz00_6795 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6353);
					BgL_kz00_6796 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6354));
					STRING_SET(BgL_stringz00_6795, BgL_kz00_6796, ((unsigned char) '('));
				}
				{	/* Unsafe/intext.scm 725 */
					obj_t BgL_auxz00_6797;

					BgL_auxz00_6797 =
						ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6354));
					BGL_UNSAFE_CELL_SET(BgL_ptrz00_6354, BgL_auxz00_6797);
				}
				{	/* Unsafe/intext.scm 867 */
					long BgL_lenz00_6798;

					BgL_lenz00_6798 =
						BGl_markedzd2pairzd2lengthz00zz__intextz00(BgL_tablez00_6355,
						BgL_itemz00_6356);
					{	/* Unsafe/intext.scm 798 */
						long BgL_siza7eza7_6799;

						BgL_siza7eza7_6799 =
							BGl_siza7ezd2ofzd2wordza7zz__intextz00(BgL_lenz00_6798);
						if ((BgL_siza7eza7_6799 == 0L))
							{	/* Unsafe/intext.scm 799 */
								BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6354,
									BgL_bufferz00_6353, (0L));
							}
						else
							{	/* Unsafe/intext.scm 799 */
								BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6354,
									BgL_bufferz00_6353, (BgL_siza7eza7_6799));
								BBOOL(BGl_z62printzd2wordzf2siza7eze5zz__intextz00
									(BgL_ptrz00_6354, BgL_bufferz00_6353, BINT(BgL_lenz00_6798),
										BgL_siza7eza7_6799));
							}
					}
					{
						long BgL_iz00_6801;
						obj_t BgL_pz00_6802;

						BgL_iz00_6801 = 0L;
						BgL_pz00_6802 = BgL_itemz00_6356;
					BgL_loopz00_6800:
						if ((BgL_iz00_6801 == (BgL_lenz00_6798 - 1L)))
							{	/* Unsafe/intext.scm 872 */
								if (PAIRP(BgL_pz00_6802))
									{	/* Unsafe/intext.scm 873 */
										BGl_z62printzd2itemzb0zz__intextz00
											(BgL_printzd2epairzd2_6352, BgL_envz00_6342,
											BgL_printzd2objectzd2_6351, BgL_printzd2classzd2_6350,
											BgL_printzd2cellzd2_6349, BgL_printzd2weakptrzd2_6348,
											BgL_printzd2vectorzd2_6347, BgL_printzd2hvectorzd2_6346,
											BgL_printzd2tvectorzd2_6345, BgL_printzd2customzd2_6344,
											BgL_refz00_6343, BgL_tablez00_6355, BgL_ptrz00_6354,
											BgL_bufferz00_6353, CAR(BgL_pz00_6802));
										return
											BGl_z62printzd2itemzb0zz__intextz00
											(BgL_printzd2epairzd2_6352, BgL_envz00_6342,
											BgL_printzd2objectzd2_6351, BgL_printzd2classzd2_6350,
											BgL_printzd2cellzd2_6349, BgL_printzd2weakptrzd2_6348,
											BgL_printzd2vectorzd2_6347, BgL_printzd2hvectorzd2_6346,
											BgL_printzd2tvectorzd2_6345, BgL_printzd2customzd2_6344,
											BgL_refz00_6343, BgL_tablez00_6355, BgL_ptrz00_6354,
											BgL_bufferz00_6353, BNIL);
									}
								else
									{	/* Unsafe/intext.scm 873 */
										return
											BGl_z62printzd2itemzb0zz__intextz00
											(BgL_printzd2epairzd2_6352, BgL_envz00_6342,
											BgL_printzd2objectzd2_6351, BgL_printzd2classzd2_6350,
											BgL_printzd2cellzd2_6349, BgL_printzd2weakptrzd2_6348,
											BgL_printzd2vectorzd2_6347, BgL_printzd2hvectorzd2_6346,
											BgL_printzd2tvectorzd2_6345, BgL_printzd2customzd2_6344,
											BgL_refz00_6343, BgL_tablez00_6355, BgL_ptrz00_6354,
											BgL_bufferz00_6353, BgL_pz00_6802);
									}
							}
						else
							{	/* Unsafe/intext.scm 872 */
								{	/* Unsafe/intext.scm 879 */
									obj_t BgL_arg1765z00_6803;

									BgL_arg1765z00_6803 = CAR(((obj_t) BgL_pz00_6802));
									BGl_z62printzd2itemzb0zz__intextz00(BgL_printzd2epairzd2_6352,
										BgL_envz00_6342, BgL_printzd2objectzd2_6351,
										BgL_printzd2classzd2_6350, BgL_printzd2cellzd2_6349,
										BgL_printzd2weakptrzd2_6348, BgL_printzd2vectorzd2_6347,
										BgL_printzd2hvectorzd2_6346, BgL_printzd2tvectorzd2_6345,
										BgL_printzd2customzd2_6344, BgL_refz00_6343,
										BgL_tablez00_6355, BgL_ptrz00_6354, BgL_bufferz00_6353,
										BgL_arg1765z00_6803);
								}
								{	/* Unsafe/intext.scm 880 */
									obj_t BgL_vcdrz00_6804;

									BgL_vcdrz00_6804 = CDR(((obj_t) BgL_pz00_6802));
									{	/* Unsafe/intext.scm 881 */
										bool_t BgL_test3024z00_9276;

										if (PAIRP(BgL_vcdrz00_6804))
											{	/* Unsafe/intext.scm 882 */
												obj_t BgL_markz00_6805;

												BgL_markz00_6805 =
													BGl_hashtablezd2getzd2zz__hashz00(BgL_tablez00_6355,
													BgL_vcdrz00_6804);
												{	/* Unsafe/intext.scm 883 */
													bool_t BgL__ortest_1071z00_6806;

													BgL__ortest_1071z00_6806 =
														(
														(long) CINT(STRUCT_REF(
																((obj_t) BgL_markz00_6805), (int) (2L))) > 0L);
													if (BgL__ortest_1071z00_6806)
														{	/* Unsafe/intext.scm 883 */
															BgL_test3024z00_9276 = BgL__ortest_1071z00_6806;
														}
													else
														{	/* Unsafe/intext.scm 883 */
															BgL_test3024z00_9276 =
																(
																(long) CINT(STRUCT_REF(
																		((obj_t) BgL_markz00_6805),
																		(int) (3L))) >= 0L);
											}}}
										else
											{	/* Unsafe/intext.scm 881 */
												BgL_test3024z00_9276 = ((bool_t) 0);
											}
										if (BgL_test3024z00_9276)
											{	/* Unsafe/intext.scm 881 */
												return
													BGl_z62printzd2itemzb0zz__intextz00
													(BgL_printzd2epairzd2_6352, BgL_envz00_6342,
													BgL_printzd2objectzd2_6351, BgL_printzd2classzd2_6350,
													BgL_printzd2cellzd2_6349, BgL_printzd2weakptrzd2_6348,
													BgL_printzd2vectorzd2_6347,
													BgL_printzd2hvectorzd2_6346,
													BgL_printzd2tvectorzd2_6345,
													BgL_printzd2customzd2_6344, BgL_refz00_6343,
													BgL_tablez00_6355, BgL_ptrz00_6354,
													BgL_bufferz00_6353, BgL_vcdrz00_6804);
											}
										else
											{
												obj_t BgL_pz00_9294;
												long BgL_iz00_9292;

												BgL_iz00_9292 = (BgL_iz00_6801 + 1L);
												BgL_pz00_9294 = BgL_vcdrz00_6804;
												BgL_pz00_6802 = BgL_pz00_9294;
												BgL_iz00_6801 = BgL_iz00_9292;
												goto BgL_loopz00_6800;
											}
									}
								}
							}
					}
				}
			}
		}

	}



/* &<@anonymous:1912> */
	obj_t BGl_z62zc3z04anonymousza31912ze3ze5zz__intextz00(obj_t BgL_envz00_6359,
		obj_t BgL_itemz00_6362, obj_t BgL_markz00_6363)
	{
		{	/* Unsafe/intext.scm 1061 */
			{	/* Unsafe/intext.scm 815 */
				obj_t BgL_bufferz00_6360;
				obj_t BgL_ptrz00_6361;

				BgL_bufferz00_6360 = PROCEDURE_L_REF(BgL_envz00_6359, (int) (0L));
				BgL_ptrz00_6361 = PROCEDURE_L_REF(BgL_envz00_6359, (int) (1L));
				BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6360,
					BgL_ptrz00_6361, BINT(1L));
				{	/* Unsafe/intext.scm 724 */
					obj_t BgL_stringz00_6807;
					long BgL_kz00_6808;

					BgL_stringz00_6807 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6360);
					BgL_kz00_6808 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6361));
					STRING_SET(BgL_stringz00_6807, BgL_kz00_6808, ((unsigned char) '"'));
				}
				{	/* Unsafe/intext.scm 725 */
					obj_t BgL_auxz00_6809;

					BgL_auxz00_6809 =
						ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6361));
					BGL_UNSAFE_CELL_SET(BgL_ptrz00_6361, BgL_auxz00_6809);
				}
				{	/* Unsafe/intext.scm 816 */
					long BgL_arg1732z00_6810;

					BgL_arg1732z00_6810 = STRING_LENGTH(((obj_t) BgL_itemz00_6362));
					return
						BGl_z62z12printzd2charsza2zz__intextz00(BgL_ptrz00_6361,
						BgL_bufferz00_6360, BgL_itemz00_6362, BgL_arg1732z00_6810);
				}
			}
		}

	}



/* &print-object */
	obj_t BGl_z62printzd2objectzb0zz__intextz00(obj_t BgL_envz00_6365,
		obj_t BgL_itemz00_6379, obj_t BgL_markz00_6380)
	{
		{	/* Unsafe/intext.scm 903 */
			{	/* Unsafe/intext.scm 896 */
				obj_t BgL_tablez00_6366;
				obj_t BgL_refz00_6367;
				obj_t BgL_printzd2customzd2_6368;
				obj_t BgL_printzd2tvectorzd2_6369;
				obj_t BgL_printzd2hvectorzd2_6370;
				obj_t BgL_printzd2vectorzd2_6371;
				obj_t BgL_printzd2weakptrzd2_6372;
				obj_t BgL_printzd2cellzd2_6373;
				obj_t BgL_printzd2classzd2_6374;
				obj_t BgL_printzd2pairzd2_6375;
				obj_t BgL_printzd2epairzd2_6376;
				obj_t BgL_bufferz00_6377;
				obj_t BgL_ptrz00_6378;

				BgL_tablez00_6366 = PROCEDURE_L_REF(BgL_envz00_6365, (int) (0L));
				BgL_refz00_6367 = PROCEDURE_L_REF(BgL_envz00_6365, (int) (1L));
				BgL_printzd2customzd2_6368 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6365, (int) (2L)));
				BgL_printzd2tvectorzd2_6369 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6365, (int) (3L)));
				BgL_printzd2hvectorzd2_6370 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6365, (int) (4L)));
				BgL_printzd2vectorzd2_6371 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6365, (int) (5L)));
				BgL_printzd2weakptrzd2_6372 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6365, (int) (6L)));
				BgL_printzd2cellzd2_6373 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6365, (int) (7L)));
				BgL_printzd2classzd2_6374 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6365, (int) (8L)));
				BgL_printzd2pairzd2_6375 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6365, (int) (9L)));
				BgL_printzd2epairzd2_6376 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6365, (int) (10L)));
				BgL_bufferz00_6377 = PROCEDURE_L_REF(BgL_envz00_6365, (int) (11L));
				BgL_ptrz00_6378 = PROCEDURE_L_REF(BgL_envz00_6365, (int) (12L));
				{
					obj_t BgL_itemz00_6820;
					obj_t BgL_oz00_6821;
					long BgL_iz00_6813;

					{	/* Unsafe/intext.scm 896 */
						obj_t BgL_vz00_6850;

						BgL_vz00_6850 = STRUCT_REF(((obj_t) BgL_markz00_6380), (int) (1L));
						if ((BgL_itemz00_6379 == BgL_vz00_6850))
							{	/* Unsafe/intext.scm 898 */
								BgL_itemz00_6820 = BgL_itemz00_6379;
								BgL_oz00_6821 = BgL_vz00_6850;
								{	/* Unsafe/intext.scm 907 */
									obj_t BgL_klassz00_6822;

									{	/* Unsafe/intext.scm 907 */
										obj_t BgL_arg2555z00_6823;
										long BgL_arg2557z00_6824;

										BgL_arg2555z00_6823 = (BGl_za2classesza2z00zz__objectz00);
										{	/* Unsafe/intext.scm 907 */
											long BgL_arg2558z00_6825;

											BgL_arg2558z00_6825 =
												BGL_OBJECT_CLASS_NUM(
												((BgL_objectz00_bglt) BgL_itemz00_6820));
											BgL_arg2557z00_6824 = (BgL_arg2558z00_6825 - OBJECT_TYPE);
										}
										BgL_klassz00_6822 =
											VECTOR_REF(BgL_arg2555z00_6823, BgL_arg2557z00_6824);
									}
									{	/* Unsafe/intext.scm 907 */
										obj_t BgL_fieldsz00_6826;

										{	/* Unsafe/intext.scm 908 */
											obj_t BgL_tmpz00_9353;

											BgL_tmpz00_9353 = ((obj_t) BgL_klassz00_6822);
											BgL_fieldsz00_6826 =
												BGL_CLASS_ALL_FIELDS(BgL_tmpz00_9353);
										}
										{	/* Unsafe/intext.scm 909 */

											BGl_z62checkzd2bufferz12za2zz__intextz00
												(BgL_bufferz00_6377, BgL_ptrz00_6378, BINT(1L));
											{	/* Unsafe/intext.scm 724 */
												obj_t BgL_stringz00_6827;
												long BgL_kz00_6828;

												BgL_stringz00_6827 =
													BGL_UNSAFE_CELL_REF(BgL_bufferz00_6377);
												BgL_kz00_6828 =
													(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6378));
												STRING_SET(BgL_stringz00_6827, BgL_kz00_6828,
													((unsigned char) '|'));
											}
											{	/* Unsafe/intext.scm 725 */
												obj_t BgL_auxz00_6829;

												BgL_auxz00_6829 =
													ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6378));
												BGL_UNSAFE_CELL_SET(BgL_ptrz00_6378, BgL_auxz00_6829);
											}
											BGl_z62printzd2itemzb0zz__intextz00
												(BgL_printzd2epairzd2_6376, BgL_printzd2pairzd2_6375,
												BgL_envz00_6365, BgL_printzd2classzd2_6374,
												BgL_printzd2cellzd2_6373, BgL_printzd2weakptrzd2_6372,
												BgL_printzd2vectorzd2_6371, BgL_printzd2hvectorzd2_6370,
												BgL_printzd2tvectorzd2_6369, BgL_printzd2customzd2_6368,
												BgL_refz00_6367, BgL_tablez00_6366, BgL_ptrz00_6378,
												BgL_bufferz00_6377,
												BGl_classzd2namezd2zz__objectz00(BgL_klassz00_6822));
											{	/* Unsafe/intext.scm 912 */
												long BgL_arg1784z00_6830;

												BgL_arg1784z00_6830 =
													(1L + VECTOR_LENGTH(BgL_fieldsz00_6826));
												{	/* Unsafe/intext.scm 798 */
													long BgL_siza7eza7_6831;

													BgL_siza7eza7_6831 =
														BGl_siza7ezd2ofzd2wordza7zz__intextz00
														(BgL_arg1784z00_6830);
													if ((BgL_siza7eza7_6831 == 0L))
														{	/* Unsafe/intext.scm 799 */
															BGl_z62z12printzd2markupza2zz__intextz00
																(BgL_ptrz00_6378, BgL_bufferz00_6377, (0L));
														}
													else
														{	/* Unsafe/intext.scm 799 */
															BGl_z62z12printzd2markupza2zz__intextz00
																(BgL_ptrz00_6378, BgL_bufferz00_6377,
																(BgL_siza7eza7_6831));
															BBOOL(BGl_z62printzd2wordzf2siza7eze5zz__intextz00
																(BgL_ptrz00_6378, BgL_bufferz00_6377,
																	BINT(BgL_arg1784z00_6830),
																	BgL_siza7eza7_6831));
														}
												}
											}
											BGl_z62printzd2itemzb0zz__intextz00
												(BgL_printzd2epairzd2_6376, BgL_printzd2pairzd2_6375,
												BgL_envz00_6365, BgL_printzd2classzd2_6374,
												BgL_printzd2cellzd2_6373, BgL_printzd2weakptrzd2_6372,
												BgL_printzd2vectorzd2_6371, BgL_printzd2hvectorzd2_6370,
												BgL_printzd2tvectorzd2_6369, BgL_printzd2customzd2_6368,
												BgL_refz00_6367, BgL_tablez00_6366, BgL_ptrz00_6378,
												BgL_bufferz00_6377, BgL_klassz00_6822);
											{
												long BgL_iz00_6833;

												BgL_iz00_6833 = 0L;
											BgL_for1072z00_6832:
												if ((BgL_iz00_6833 < VECTOR_LENGTH(BgL_fieldsz00_6826)))
													{	/* Unsafe/intext.scm 914 */
														{	/* Unsafe/intext.scm 915 */
															obj_t BgL_fz00_6834;

															BgL_fz00_6834 =
																VECTOR_REF(BgL_fieldsz00_6826, BgL_iz00_6833);
															{	/* Unsafe/intext.scm 915 */
																obj_t BgL_ivz00_6835;

																BgL_ivz00_6835 =
																	BGl_classzd2fieldzd2infoz00zz__objectz00
																	(BgL_fz00_6834);
																{	/* Unsafe/intext.scm 916 */

																	{	/* Unsafe/intext.scm 918 */
																		obj_t BgL_g1074z00_6836;

																		if (PAIRP(BgL_ivz00_6835))
																			{	/* Unsafe/intext.scm 918 */
																				BgL_g1074z00_6836 =
																					BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																					(BGl_keyword2739z00zz__intextz00,
																					BgL_ivz00_6835);
																			}
																		else
																			{	/* Unsafe/intext.scm 918 */
																				BgL_g1074z00_6836 = BFALSE;
																			}
																		if (CBOOL(BgL_g1074z00_6836))
																			{	/* Unsafe/intext.scm 923 */
																				obj_t BgL_arg1787z00_6837;

																				{	/* Unsafe/intext.scm 923 */
																					bool_t BgL_test3032z00_9387;

																					{	/* Unsafe/intext.scm 923 */
																						obj_t BgL_tmpz00_9388;

																						BgL_tmpz00_9388 =
																							CDR(((obj_t) BgL_g1074z00_6836));
																						BgL_test3032z00_9387 =
																							PAIRP(BgL_tmpz00_9388);
																					}
																					if (BgL_test3032z00_9387)
																						{	/* Unsafe/intext.scm 924 */
																							obj_t BgL_pairz00_6838;

																							BgL_pairz00_6838 =
																								CDR(
																								((obj_t) BgL_g1074z00_6836));
																							BgL_arg1787z00_6837 =
																								CAR(BgL_pairz00_6838);
																						}
																					else
																						{	/* Unsafe/intext.scm 923 */
																							if (BGl_classzd2fieldzd2defaultzd2valuezf3z21zz__objectz00(BgL_fz00_6834))
																								{	/* Unsafe/intext.scm 925 */
																									BgL_arg1787z00_6837 =
																										BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																										(BgL_fz00_6834);
																								}
																							else
																								{	/* Unsafe/intext.scm 927 */
																									bool_t BgL_test3034z00_9398;

																									{	/* Unsafe/intext.scm 927 */
																										obj_t BgL_arg1798z00_6839;

																										BgL_arg1798z00_6839 =
																											BGl_classzd2fieldzd2typez00zz__objectz00
																											(BgL_fz00_6834);
																										BgL_test3034z00_9398 =
																											(BgL_arg1798z00_6839 ==
																											BGl_symbol2741z00zz__intextz00);
																									}
																									if (BgL_test3034z00_9398)
																										{	/* Unsafe/intext.scm 927 */
																											BgL_arg1787z00_6837 =
																												BFALSE;
																										}
																									else
																										{	/* Unsafe/intext.scm 931 */
																											obj_t BgL_arg1793z00_6840;
																											obj_t BgL_arg1794z00_6841;

																											{	/* Unsafe/intext.scm 931 */
																												obj_t
																													BgL_arg1795z00_6842;
																												BgL_arg1795z00_6842 =
																													BGl_classzd2fieldzd2typez00zz__objectz00
																													(BgL_fz00_6834);
																												{	/* Unsafe/intext.scm 929 */
																													obj_t
																														BgL_list1796z00_6843;
																													BgL_list1796z00_6843 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1795z00_6842,
																														BNIL);
																													BgL_arg1793z00_6840 =
																														BGl_formatz00zz__r4_output_6_10_3z00
																														(BGl_string2743z00zz__intextz00,
																														BgL_list1796z00_6843);
																												}
																											}
																											BgL_arg1794z00_6841 =
																												BGl_classzd2fieldzd2namez00zz__objectz00
																												(BgL_fz00_6834);
																											BgL_arg1787z00_6837 =
																												BGl_errorz00zz__errorz00
																												(BGl_string2673z00zz__intextz00,
																												BgL_arg1793z00_6840,
																												BgL_arg1794z00_6841);
																										}
																								}
																						}
																				}
																				BGl_z62printzd2itemzb0zz__intextz00
																					(BgL_printzd2epairzd2_6376,
																					BgL_printzd2pairzd2_6375,
																					BgL_envz00_6365,
																					BgL_printzd2classzd2_6374,
																					BgL_printzd2cellzd2_6373,
																					BgL_printzd2weakptrzd2_6372,
																					BgL_printzd2vectorzd2_6371,
																					BgL_printzd2hvectorzd2_6370,
																					BgL_printzd2tvectorzd2_6369,
																					BgL_printzd2customzd2_6368,
																					BgL_refz00_6367, BgL_tablez00_6366,
																					BgL_ptrz00_6378, BgL_bufferz00_6377,
																					BgL_arg1787z00_6837);
																			}
																		else
																			{	/* Unsafe/intext.scm 936 */
																				obj_t BgL_arg1800z00_6844;

																				{	/* Unsafe/intext.scm 936 */
																					obj_t BgL_fun1801z00_6845;

																					BgL_fun1801z00_6845 =
																						BGl_classzd2fieldzd2accessorz00zz__objectz00
																						(BgL_fz00_6834);
																					BgL_arg1800z00_6844 =
																						BGL_PROCEDURE_CALL1
																						(BgL_fun1801z00_6845,
																						BgL_itemz00_6820);
																				}
																				BGl_z62printzd2itemzb0zz__intextz00
																					(BgL_printzd2epairzd2_6376,
																					BgL_printzd2pairzd2_6375,
																					BgL_envz00_6365,
																					BgL_printzd2classzd2_6374,
																					BgL_printzd2cellzd2_6373,
																					BgL_printzd2weakptrzd2_6372,
																					BgL_printzd2vectorzd2_6371,
																					BgL_printzd2hvectorzd2_6370,
																					BgL_printzd2tvectorzd2_6369,
																					BgL_printzd2customzd2_6368,
																					BgL_refz00_6367, BgL_tablez00_6366,
																					BgL_ptrz00_6378, BgL_bufferz00_6377,
																					BgL_arg1800z00_6844);
																			}
																	}
																}
															}
														}
														{
															long BgL_iz00_9413;

															BgL_iz00_9413 = (BgL_iz00_6833 + 1L);
															BgL_iz00_6833 = BgL_iz00_9413;
															goto BgL_for1072z00_6832;
														}
													}
												else
													{	/* Unsafe/intext.scm 914 */
														((bool_t) 0);
													}
											}
											{	/* Unsafe/intext.scm 937 */
												long BgL_arg1804z00_6846;

												BgL_arg1804z00_6846 =
													BGl_classzd2hashzd2zz__objectz00(BgL_klassz00_6822);
												if ((BgL_arg1804z00_6846 < 0L))
													{	/* Unsafe/intext.scm 807 */
														BGl_z62checkzd2bufferz12za2zz__intextz00
															(BgL_bufferz00_6377, BgL_ptrz00_6378, BINT(1L));
														{	/* Unsafe/intext.scm 724 */
															obj_t BgL_stringz00_6847;
															long BgL_kz00_6848;

															BgL_stringz00_6847 =
																BGL_UNSAFE_CELL_REF(BgL_bufferz00_6377);
															BgL_kz00_6848 =
																(long)
																CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6378));
															STRING_SET(BgL_stringz00_6847, BgL_kz00_6848,
																((unsigned char) '-'));
														}
														{	/* Unsafe/intext.scm 725 */
															obj_t BgL_auxz00_6849;

															BgL_auxz00_6849 =
																ADDFX(BINT(1L),
																BGL_UNSAFE_CELL_REF(BgL_ptrz00_6378));
															BGL_UNSAFE_CELL_SET(BgL_ptrz00_6378,
																BgL_auxz00_6849);
														}
														return
															BGl_z62printzd2wordzb0zz__intextz00
															(BgL_ptrz00_6378, BgL_bufferz00_6377,
															NEG(BgL_arg1804z00_6846));
													}
												else
													{	/* Unsafe/intext.scm 807 */
														return
															BGl_z62printzd2wordzb0zz__intextz00
															(BgL_ptrz00_6378, BgL_bufferz00_6377,
															BgL_arg1804z00_6846);
													}
											}
										}
									}
								}
							}
						else
							{	/* Unsafe/intext.scm 900 */
								bool_t BgL_test3036z00_9427;

								{	/* Unsafe/intext.scm 900 */
									int BgL_arg1781z00_6851;

									BgL_arg1781z00_6851 = bgl_debug();
									BgL_test3036z00_9427 = ((long) (BgL_arg1781z00_6851) >= 1L);
								}
								if (BgL_test3036z00_9427)
									{	/* Unsafe/intext.scm 900 */
										BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6377,
											BgL_ptrz00_6378, BINT(1L));
										{	/* Unsafe/intext.scm 724 */
											obj_t BgL_stringz00_6852;
											long BgL_kz00_6853;

											BgL_stringz00_6852 =
												BGL_UNSAFE_CELL_REF(BgL_bufferz00_6377);
											BgL_kz00_6853 =
												(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6378));
											STRING_SET(BgL_stringz00_6852, BgL_kz00_6853,
												((unsigned char) 'X'));
										}
										{	/* Unsafe/intext.scm 725 */
											obj_t BgL_auxz00_6854;

											BgL_auxz00_6854 =
												ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6378));
											BGL_UNSAFE_CELL_SET(BgL_ptrz00_6378, BgL_auxz00_6854);
										}
										BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6377,
											BgL_ptrz00_6378, BINT(1L));
										{	/* Unsafe/intext.scm 724 */
											obj_t BgL_stringz00_6855;
											long BgL_kz00_6856;

											BgL_stringz00_6855 =
												BGL_UNSAFE_CELL_REF(BgL_bufferz00_6377);
											BgL_kz00_6856 =
												(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6378));
											STRING_SET(BgL_stringz00_6855, BgL_kz00_6856,
												((unsigned char) 'G'));
										}
										{	/* Unsafe/intext.scm 725 */
											obj_t BgL_auxz00_6857;

											BgL_auxz00_6857 =
												ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6378));
											BGL_UNSAFE_CELL_SET(BgL_ptrz00_6378, BgL_auxz00_6857);
										}
										{	/* Unsafe/intext.scm 954 */
											obj_t BgL_arg1811z00_6858;

											{	/* Unsafe/intext.scm 954 */
												obj_t BgL_arg1812z00_6859;

												{	/* Unsafe/intext.scm 954 */
													obj_t BgL_arg2555z00_6860;
													long BgL_arg2557z00_6861;

													BgL_arg2555z00_6860 =
														(BGl_za2classesza2z00zz__objectz00);
													{	/* Unsafe/intext.scm 954 */
														long BgL_arg2558z00_6862;

														BgL_arg2558z00_6862 =
															BGL_OBJECT_CLASS_NUM(
															((BgL_objectz00_bglt) BgL_itemz00_6379));
														BgL_arg2557z00_6861 =
															(BgL_arg2558z00_6862 - OBJECT_TYPE);
													}
													BgL_arg1812z00_6859 =
														VECTOR_REF(BgL_arg2555z00_6860,
														BgL_arg2557z00_6861);
												}
												BgL_arg1811z00_6858 =
													BGl_classzd2namezd2zz__objectz00(BgL_arg1812z00_6859);
											}
											BGl_z62printzd2itemzb0zz__intextz00
												(BgL_printzd2epairzd2_6376, BgL_printzd2pairzd2_6375,
												BgL_envz00_6365, BgL_printzd2classzd2_6374,
												BgL_printzd2cellzd2_6373, BgL_printzd2weakptrzd2_6372,
												BgL_printzd2vectorzd2_6371, BgL_printzd2hvectorzd2_6370,
												BgL_printzd2tvectorzd2_6369, BgL_printzd2customzd2_6368,
												BgL_refz00_6367, BgL_tablez00_6366, BgL_ptrz00_6378,
												BgL_bufferz00_6377, BgL_arg1811z00_6858);
										}
										BGl_z62printzd2itemzb0zz__intextz00
											(BgL_printzd2epairzd2_6376, BgL_printzd2pairzd2_6375,
											BgL_envz00_6365, BgL_printzd2classzd2_6374,
											BgL_printzd2cellzd2_6373, BgL_printzd2weakptrzd2_6372,
											BgL_printzd2vectorzd2_6371, BgL_printzd2hvectorzd2_6370,
											BgL_printzd2tvectorzd2_6369, BgL_printzd2customzd2_6368,
											BgL_refz00_6367, BgL_tablez00_6366, BgL_ptrz00_6378,
											BgL_bufferz00_6377, BgL_vz00_6850);
										{	/* Unsafe/intext.scm 956 */
											long BgL_arg1813z00_6863;

											{	/* Unsafe/intext.scm 956 */
												obj_t BgL_arg1814z00_6864;

												{	/* Unsafe/intext.scm 956 */
													obj_t BgL_arg2555z00_6865;
													long BgL_arg2557z00_6866;

													BgL_arg2555z00_6865 =
														(BGl_za2classesza2z00zz__objectz00);
													{	/* Unsafe/intext.scm 956 */
														long BgL_arg2558z00_6867;

														BgL_arg2558z00_6867 =
															BGL_OBJECT_CLASS_NUM(
															((BgL_objectz00_bglt) BgL_itemz00_6379));
														BgL_arg2557z00_6866 =
															(BgL_arg2558z00_6867 - OBJECT_TYPE);
													}
													BgL_arg1814z00_6864 =
														VECTOR_REF(BgL_arg2555z00_6865,
														BgL_arg2557z00_6866);
												}
												BgL_arg1813z00_6863 =
													BGl_classzd2hashzd2zz__objectz00(BgL_arg1814z00_6864);
											}
											BgL_iz00_6813 = BgL_arg1813z00_6863;
										BgL_printzd2fixnumzd2_6811:
											if ((BgL_iz00_6813 < 0L))
												{	/* Unsafe/intext.scm 807 */
													BGl_z62checkzd2bufferz12za2zz__intextz00
														(BgL_bufferz00_6377, BgL_ptrz00_6378, BINT(1L));
													{	/* Unsafe/intext.scm 724 */
														obj_t BgL_stringz00_6814;
														long BgL_kz00_6815;

														BgL_stringz00_6814 =
															BGL_UNSAFE_CELL_REF(BgL_bufferz00_6377);
														BgL_kz00_6815 =
															(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6378));
														STRING_SET(BgL_stringz00_6814, BgL_kz00_6815,
															((unsigned char) '-'));
													}
													{	/* Unsafe/intext.scm 725 */
														obj_t BgL_auxz00_6816;

														BgL_auxz00_6816 =
															ADDFX(BINT(1L),
															BGL_UNSAFE_CELL_REF(BgL_ptrz00_6378));
														BGL_UNSAFE_CELL_SET(BgL_ptrz00_6378,
															BgL_auxz00_6816);
													}
													{	/* Unsafe/intext.scm 810 */
														long BgL_arg1730z00_6817;

														BgL_arg1730z00_6817 = NEG(BgL_iz00_6813);
														{	/* Unsafe/intext.scm 798 */
															long BgL_siza7eza7_6818;

															BgL_siza7eza7_6818 =
																BGl_siza7ezd2ofzd2wordza7zz__intextz00
																(BgL_arg1730z00_6817);
															if ((BgL_siza7eza7_6818 == 0L))
																{	/* Unsafe/intext.scm 799 */
																	return
																		BGl_z62z12printzd2markupza2zz__intextz00
																		(BgL_ptrz00_6378, BgL_bufferz00_6377, (0L));
																}
															else
																{	/* Unsafe/intext.scm 799 */
																	BGl_z62z12printzd2markupza2zz__intextz00
																		(BgL_ptrz00_6378, BgL_bufferz00_6377,
																		(BgL_siza7eza7_6818));
																	return
																		BBOOL
																		(BGl_z62printzd2wordzf2siza7eze5zz__intextz00
																		(BgL_ptrz00_6378, BgL_bufferz00_6377,
																			BINT(BgL_arg1730z00_6817),
																			BgL_siza7eza7_6818));
																}
														}
													}
												}
											else
												{	/* Unsafe/intext.scm 798 */
													long BgL_siza7eza7_6819;

													BgL_siza7eza7_6819 =
														BGl_siza7ezd2ofzd2wordza7zz__intextz00
														(BgL_iz00_6813);
													if ((BgL_siza7eza7_6819 == 0L))
														{	/* Unsafe/intext.scm 799 */
															return
																BGl_z62z12printzd2markupza2zz__intextz00
																(BgL_ptrz00_6378, BgL_bufferz00_6377, (0L));
														}
													else
														{	/* Unsafe/intext.scm 799 */
															BGl_z62z12printzd2markupza2zz__intextz00
																(BgL_ptrz00_6378, BgL_bufferz00_6377,
																(BgL_siza7eza7_6819));
															return
																BBOOL
																(BGl_z62printzd2wordzf2siza7eze5zz__intextz00
																(BgL_ptrz00_6378, BgL_bufferz00_6377,
																	BINT(BgL_iz00_6813), BgL_siza7eza7_6819));
														}
												}
										}
									}
								else
									{	/* Unsafe/intext.scm 900 */
										BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6377,
											BgL_ptrz00_6378, BINT(1L));
										{	/* Unsafe/intext.scm 724 */
											obj_t BgL_stringz00_6868;
											long BgL_kz00_6869;

											BgL_stringz00_6868 =
												BGL_UNSAFE_CELL_REF(BgL_bufferz00_6377);
											BgL_kz00_6869 =
												(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6378));
											STRING_SET(BgL_stringz00_6868, BgL_kz00_6869,
												((unsigned char) 'X'));
										}
										{	/* Unsafe/intext.scm 725 */
											obj_t BgL_auxz00_6870;

											BgL_auxz00_6870 =
												ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6378));
											BGL_UNSAFE_CELL_SET(BgL_ptrz00_6378, BgL_auxz00_6870);
										}
										BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6377,
											BgL_ptrz00_6378, BINT(1L));
										{	/* Unsafe/intext.scm 724 */
											obj_t BgL_stringz00_6871;
											long BgL_kz00_6872;

											BgL_stringz00_6871 =
												BGL_UNSAFE_CELL_REF(BgL_bufferz00_6377);
											BgL_kz00_6872 =
												(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6378));
											STRING_SET(BgL_stringz00_6871, BgL_kz00_6872,
												((unsigned char) 'O'));
										}
										{	/* Unsafe/intext.scm 725 */
											obj_t BgL_auxz00_6873;

											BgL_auxz00_6873 =
												ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6378));
											BGL_UNSAFE_CELL_SET(BgL_ptrz00_6378, BgL_auxz00_6873);
										}
										BGl_z62printzd2itemzb0zz__intextz00
											(BgL_printzd2epairzd2_6376, BgL_printzd2pairzd2_6375,
											BgL_envz00_6365, BgL_printzd2classzd2_6374,
											BgL_printzd2cellzd2_6373, BgL_printzd2weakptrzd2_6372,
											BgL_printzd2vectorzd2_6371, BgL_printzd2hvectorzd2_6370,
											BgL_printzd2tvectorzd2_6369, BgL_printzd2customzd2_6368,
											BgL_refz00_6367, BgL_tablez00_6366, BgL_ptrz00_6378,
											BgL_bufferz00_6377, BgL_vz00_6850);
										{	/* Unsafe/intext.scm 946 */
											long BgL_arg1807z00_6874;

											{	/* Unsafe/intext.scm 946 */
												obj_t BgL_arg1808z00_6875;

												{	/* Unsafe/intext.scm 946 */
													obj_t BgL_arg2555z00_6876;
													long BgL_arg2557z00_6877;

													BgL_arg2555z00_6876 =
														(BGl_za2classesza2z00zz__objectz00);
													{	/* Unsafe/intext.scm 946 */
														long BgL_arg2558z00_6878;

														BgL_arg2558z00_6878 =
															BGL_OBJECT_CLASS_NUM(
															((BgL_objectz00_bglt) BgL_itemz00_6379));
														BgL_arg2557z00_6877 =
															(BgL_arg2558z00_6878 - OBJECT_TYPE);
													}
													BgL_arg1808z00_6875 =
														VECTOR_REF(BgL_arg2555z00_6876,
														BgL_arg2557z00_6877);
												}
												BgL_arg1807z00_6874 =
													BGl_classzd2hashzd2zz__objectz00(BgL_arg1808z00_6875);
											}
											{
												long BgL_iz00_9505;

												BgL_iz00_9505 = BgL_arg1807z00_6874;
												BgL_iz00_6813 = BgL_iz00_9505;
												goto BgL_printzd2fixnumzd2_6811;
											}
										}
									}
							}
					}
				}
			}
		}

	}



/* &print-class */
	obj_t BGl_z62printzd2classzb0zz__intextz00(obj_t BgL_envz00_6388,
		obj_t BgL_itemz00_6402, obj_t BgL_markz00_6403)
	{
		{	/* Unsafe/intext.scm 890 */
			{	/* Unsafe/intext.scm 890 */
				obj_t BgL_tablez00_6389;
				obj_t BgL_refz00_6390;
				obj_t BgL_printzd2customzd2_6391;
				obj_t BgL_printzd2tvectorzd2_6392;
				obj_t BgL_printzd2hvectorzd2_6393;
				obj_t BgL_printzd2vectorzd2_6394;
				obj_t BgL_printzd2weakptrzd2_6395;
				obj_t BgL_printzd2cellzd2_6396;
				obj_t BgL_printzd2objectzd2_6397;
				obj_t BgL_printzd2pairzd2_6398;
				obj_t BgL_printzd2epairzd2_6399;
				obj_t BgL_bufferz00_6400;
				obj_t BgL_ptrz00_6401;

				BgL_tablez00_6389 = PROCEDURE_L_REF(BgL_envz00_6388, (int) (0L));
				BgL_refz00_6390 = PROCEDURE_L_REF(BgL_envz00_6388, (int) (1L));
				BgL_printzd2customzd2_6391 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6388, (int) (2L)));
				BgL_printzd2tvectorzd2_6392 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6388, (int) (3L)));
				BgL_printzd2hvectorzd2_6393 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6388, (int) (4L)));
				BgL_printzd2vectorzd2_6394 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6388, (int) (5L)));
				BgL_printzd2weakptrzd2_6395 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6388, (int) (6L)));
				BgL_printzd2cellzd2_6396 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6388, (int) (7L)));
				BgL_printzd2objectzd2_6397 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6388, (int) (8L)));
				BgL_printzd2pairzd2_6398 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6388, (int) (9L)));
				BgL_printzd2epairzd2_6399 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6388, (int) (10L)));
				BgL_bufferz00_6400 = PROCEDURE_L_REF(BgL_envz00_6388, (int) (11L));
				BgL_ptrz00_6401 = PROCEDURE_L_REF(BgL_envz00_6388, (int) (12L));
				BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6400,
					BgL_ptrz00_6401, BINT(1L));
				{	/* Unsafe/intext.scm 724 */
					obj_t BgL_stringz00_6879;
					long BgL_kz00_6880;

					BgL_stringz00_6879 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6400);
					BgL_kz00_6880 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6401));
					STRING_SET(BgL_stringz00_6879, BgL_kz00_6880, ((unsigned char) 'k'));
				}
				{	/* Unsafe/intext.scm 725 */
					obj_t BgL_auxz00_6881;

					BgL_auxz00_6881 =
						ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6401));
					BGL_UNSAFE_CELL_SET(BgL_ptrz00_6401, BgL_auxz00_6881);
				}
				{	/* Unsafe/intext.scm 891 */
					obj_t BgL_arg1773z00_6882;

					BgL_arg1773z00_6882 =
						SYMBOL_TO_STRING(BGl_classzd2namezd2zz__objectz00
						(BgL_itemz00_6402));
					BGl_z62printzd2itemzb0zz__intextz00(BgL_printzd2epairzd2_6399,
						BgL_printzd2pairzd2_6398, BgL_printzd2objectzd2_6397,
						BgL_envz00_6388, BgL_printzd2cellzd2_6396,
						BgL_printzd2weakptrzd2_6395, BgL_printzd2vectorzd2_6394,
						BgL_printzd2hvectorzd2_6393, BgL_printzd2tvectorzd2_6392,
						BgL_printzd2customzd2_6391, BgL_refz00_6390, BgL_tablez00_6389,
						BgL_ptrz00_6401, BgL_bufferz00_6400, BgL_arg1773z00_6882);
				}
				{	/* Unsafe/intext.scm 892 */
					obj_t BgL_arg1776z00_6883;

					BgL_arg1776z00_6883 =
						STRUCT_REF(((obj_t) BgL_markz00_6403), (int) (1L));
					return
						BGl_z62printzd2itemzb0zz__intextz00(BgL_printzd2epairzd2_6399,
						BgL_printzd2pairzd2_6398, BgL_printzd2objectzd2_6397,
						BgL_envz00_6388, BgL_printzd2cellzd2_6396,
						BgL_printzd2weakptrzd2_6395, BgL_printzd2vectorzd2_6394,
						BgL_printzd2hvectorzd2_6393, BgL_printzd2tvectorzd2_6392,
						BgL_printzd2customzd2_6391, BgL_refz00_6390, BgL_tablez00_6389,
						BgL_ptrz00_6401, BgL_bufferz00_6400, BgL_arg1776z00_6883);
				}
			}
		}

	}



/* &<@anonymous:1941> */
	obj_t BGl_z62zc3z04anonymousza31941ze3ze5zz__intextz00(obj_t BgL_envz00_6405,
		obj_t BgL_itemz00_6408, obj_t BgL_markz00_6409)
	{
		{	/* Unsafe/intext.scm 1114 */
			{	/* Unsafe/intext.scm 1115 */
				obj_t BgL_bufferz00_6406;
				obj_t BgL_ptrz00_6407;

				BgL_bufferz00_6406 = PROCEDURE_L_REF(BgL_envz00_6405, (int) (0L));
				BgL_ptrz00_6407 = PROCEDURE_L_REF(BgL_envz00_6405, (int) (1L));
				{	/* Unsafe/intext.scm 1115 */
					obj_t BgL_arg1942z00_6884;

					BgL_arg1942z00_6884 =
						STRUCT_REF(((obj_t) BgL_markz00_6409), (int) (1L));
					BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6406,
						BgL_ptrz00_6407, BINT(1L));
					{	/* Unsafe/intext.scm 724 */
						obj_t BgL_stringz00_6885;
						long BgL_kz00_6886;

						BgL_stringz00_6885 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6406);
						BgL_kz00_6886 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6407));
						STRING_SET(BgL_stringz00_6885, BgL_kz00_6886,
							((unsigned char) 'U'));
					}
					{	/* Unsafe/intext.scm 725 */
						obj_t BgL_auxz00_6887;

						BgL_auxz00_6887 =
							ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6407));
						BGL_UNSAFE_CELL_SET(BgL_ptrz00_6407, BgL_auxz00_6887);
					}
					{	/* Unsafe/intext.scm 816 */
						long BgL_arg1732z00_6888;

						BgL_arg1732z00_6888 = STRING_LENGTH(((obj_t) BgL_arg1942z00_6884));
						return
							BGl_z62z12printzd2charsza2zz__intextz00(BgL_ptrz00_6407,
							BgL_bufferz00_6406, BgL_arg1942z00_6884, BgL_arg1732z00_6888);
					}
				}
			}
		}

	}



/* &print-cell */
	obj_t BGl_z62printzd2cellzb0zz__intextz00(obj_t BgL_envz00_6411,
		obj_t BgL_itemz00_6425, obj_t BgL_markz00_6426)
	{
		{	/* Unsafe/intext.scm 968 */
			{	/* Unsafe/intext.scm 968 */
				obj_t BgL_tablez00_6412;
				obj_t BgL_refz00_6413;
				obj_t BgL_printzd2customzd2_6414;
				obj_t BgL_printzd2tvectorzd2_6415;
				obj_t BgL_printzd2hvectorzd2_6416;
				obj_t BgL_printzd2vectorzd2_6417;
				obj_t BgL_printzd2weakptrzd2_6418;
				obj_t BgL_printzd2classzd2_6419;
				obj_t BgL_printzd2objectzd2_6420;
				obj_t BgL_printzd2pairzd2_6421;
				obj_t BgL_printzd2epairzd2_6422;
				obj_t BgL_bufferz00_6423;
				obj_t BgL_ptrz00_6424;

				BgL_tablez00_6412 = PROCEDURE_L_REF(BgL_envz00_6411, (int) (0L));
				BgL_refz00_6413 = PROCEDURE_L_REF(BgL_envz00_6411, (int) (1L));
				BgL_printzd2customzd2_6414 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6411, (int) (2L)));
				BgL_printzd2tvectorzd2_6415 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6411, (int) (3L)));
				BgL_printzd2hvectorzd2_6416 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6411, (int) (4L)));
				BgL_printzd2vectorzd2_6417 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6411, (int) (5L)));
				BgL_printzd2weakptrzd2_6418 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6411, (int) (6L)));
				BgL_printzd2classzd2_6419 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6411, (int) (7L)));
				BgL_printzd2objectzd2_6420 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6411, (int) (8L)));
				BgL_printzd2pairzd2_6421 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6411, (int) (9L)));
				BgL_printzd2epairzd2_6422 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6411, (int) (10L)));
				BgL_bufferz00_6423 = PROCEDURE_L_REF(BgL_envz00_6411, (int) (11L));
				BgL_ptrz00_6424 = PROCEDURE_L_REF(BgL_envz00_6411, (int) (12L));
				BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6423,
					BgL_ptrz00_6424, BINT(1L));
				{	/* Unsafe/intext.scm 724 */
					obj_t BgL_stringz00_6889;
					long BgL_kz00_6890;

					BgL_stringz00_6889 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6423);
					BgL_kz00_6890 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6424));
					STRING_SET(BgL_stringz00_6889, BgL_kz00_6890, ((unsigned char) '!'));
				}
				{	/* Unsafe/intext.scm 725 */
					obj_t BgL_auxz00_6891;

					BgL_auxz00_6891 =
						ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6424));
					BGL_UNSAFE_CELL_SET(BgL_ptrz00_6424, BgL_auxz00_6891);
				}
				{	/* Unsafe/intext.scm 969 */
					obj_t BgL_arg1822z00_6892;

					BgL_arg1822z00_6892 = CELL_REF(((obj_t) BgL_itemz00_6425));
					return
						BGl_z62printzd2itemzb0zz__intextz00(BgL_printzd2epairzd2_6422,
						BgL_printzd2pairzd2_6421, BgL_printzd2objectzd2_6420,
						BgL_printzd2classzd2_6419, BgL_envz00_6411,
						BgL_printzd2weakptrzd2_6418, BgL_printzd2vectorzd2_6417,
						BgL_printzd2hvectorzd2_6416, BgL_printzd2tvectorzd2_6415,
						BgL_printzd2customzd2_6414, BgL_refz00_6413, BgL_tablez00_6412,
						BgL_ptrz00_6424, BgL_bufferz00_6423, BgL_arg1822z00_6892);
				}
			}
		}

	}



/* &print-weakptr */
	obj_t BGl_z62printzd2weakptrzb0zz__intextz00(obj_t BgL_envz00_6428,
		obj_t BgL_oz00_6442, obj_t BgL_markz00_6443)
	{
		{	/* Unsafe/intext.scm 973 */
			{	/* Unsafe/intext.scm 973 */
				obj_t BgL_tablez00_6429;
				obj_t BgL_refz00_6430;
				obj_t BgL_printzd2customzd2_6431;
				obj_t BgL_printzd2tvectorzd2_6432;
				obj_t BgL_printzd2hvectorzd2_6433;
				obj_t BgL_printzd2vectorzd2_6434;
				obj_t BgL_printzd2cellzd2_6435;
				obj_t BgL_printzd2classzd2_6436;
				obj_t BgL_printzd2objectzd2_6437;
				obj_t BgL_printzd2pairzd2_6438;
				obj_t BgL_printzd2epairzd2_6439;
				obj_t BgL_bufferz00_6440;
				obj_t BgL_ptrz00_6441;

				BgL_tablez00_6429 = PROCEDURE_L_REF(BgL_envz00_6428, (int) (0L));
				BgL_refz00_6430 = PROCEDURE_L_REF(BgL_envz00_6428, (int) (1L));
				BgL_printzd2customzd2_6431 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6428, (int) (2L)));
				BgL_printzd2tvectorzd2_6432 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6428, (int) (3L)));
				BgL_printzd2hvectorzd2_6433 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6428, (int) (4L)));
				BgL_printzd2vectorzd2_6434 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6428, (int) (5L)));
				BgL_printzd2cellzd2_6435 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6428, (int) (6L)));
				BgL_printzd2classzd2_6436 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6428, (int) (7L)));
				BgL_printzd2objectzd2_6437 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6428, (int) (8L)));
				BgL_printzd2pairzd2_6438 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6428, (int) (9L)));
				BgL_printzd2epairzd2_6439 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6428, (int) (10L)));
				BgL_bufferz00_6440 = PROCEDURE_L_REF(BgL_envz00_6428, (int) (11L));
				BgL_ptrz00_6441 = PROCEDURE_L_REF(BgL_envz00_6428, (int) (12L));
				BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6440,
					BgL_ptrz00_6441, BINT(1L));
				{	/* Unsafe/intext.scm 724 */
					obj_t BgL_stringz00_6893;
					long BgL_kz00_6894;

					BgL_stringz00_6893 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6440);
					BgL_kz00_6894 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6441));
					STRING_SET(BgL_stringz00_6893, BgL_kz00_6894, ((unsigned char) 'w'));
				}
				{	/* Unsafe/intext.scm 725 */
					obj_t BgL_auxz00_6895;

					BgL_auxz00_6895 =
						ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6441));
					BGL_UNSAFE_CELL_SET(BgL_ptrz00_6441, BgL_auxz00_6895);
				}
				{	/* Unsafe/intext.scm 974 */
					obj_t BgL_arg1824z00_6896;

					BgL_arg1824z00_6896 = bgl_weakptr_data(((obj_t) BgL_oz00_6442));
					return
						BGl_z62printzd2itemzb0zz__intextz00(BgL_printzd2epairzd2_6439,
						BgL_printzd2pairzd2_6438, BgL_printzd2objectzd2_6437,
						BgL_printzd2classzd2_6436, BgL_printzd2cellzd2_6435,
						BgL_envz00_6428, BgL_printzd2vectorzd2_6434,
						BgL_printzd2hvectorzd2_6433, BgL_printzd2tvectorzd2_6432,
						BgL_printzd2customzd2_6431, BgL_refz00_6430, BgL_tablez00_6429,
						BgL_ptrz00_6441, BgL_bufferz00_6440, BgL_arg1824z00_6896);
				}
			}
		}

	}



/* &print-vector */
	obj_t BGl_z62printzd2vectorzb0zz__intextz00(obj_t BgL_envz00_6445,
		obj_t BgL_itemz00_6459, obj_t BgL_markz00_6460)
	{
		{	/* Unsafe/intext.scm 986 */
			{	/* Unsafe/intext.scm 978 */
				obj_t BgL_tablez00_6446;
				obj_t BgL_refz00_6447;
				obj_t BgL_printzd2customzd2_6448;
				obj_t BgL_printzd2tvectorzd2_6449;
				obj_t BgL_printzd2hvectorzd2_6450;
				obj_t BgL_printzd2weakptrzd2_6451;
				obj_t BgL_printzd2cellzd2_6452;
				obj_t BgL_printzd2classzd2_6453;
				obj_t BgL_printzd2objectzd2_6454;
				obj_t BgL_printzd2pairzd2_6455;
				obj_t BgL_printzd2epairzd2_6456;
				obj_t BgL_bufferz00_6457;
				obj_t BgL_ptrz00_6458;

				BgL_tablez00_6446 = PROCEDURE_L_REF(BgL_envz00_6445, (int) (0L));
				BgL_refz00_6447 = PROCEDURE_L_REF(BgL_envz00_6445, (int) (1L));
				BgL_printzd2customzd2_6448 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6445, (int) (2L)));
				BgL_printzd2tvectorzd2_6449 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6445, (int) (3L)));
				BgL_printzd2hvectorzd2_6450 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6445, (int) (4L)));
				BgL_printzd2weakptrzd2_6451 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6445, (int) (5L)));
				BgL_printzd2cellzd2_6452 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6445, (int) (6L)));
				BgL_printzd2classzd2_6453 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6445, (int) (7L)));
				BgL_printzd2objectzd2_6454 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6445, (int) (8L)));
				BgL_printzd2pairzd2_6455 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6445, (int) (9L)));
				BgL_printzd2epairzd2_6456 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6445, (int) (10L)));
				BgL_bufferz00_6457 = PROCEDURE_L_REF(BgL_envz00_6445, (int) (11L));
				BgL_ptrz00_6458 = PROCEDURE_L_REF(BgL_envz00_6445, (int) (12L));
				{	/* Unsafe/intext.scm 978 */
					bool_t BgL_tmpz00_9693;

					{	/* Unsafe/intext.scm 978 */
						int BgL_tagz00_6897;

						{	/* Unsafe/intext.scm 978 */
							obj_t BgL_tmpz00_9694;

							BgL_tmpz00_9694 = ((obj_t) BgL_itemz00_6459);
							BgL_tagz00_6897 = VECTOR_TAG(BgL_tmpz00_9694);
						}
						if (((long) (BgL_tagz00_6897) > 0L))
							{	/* Unsafe/intext.scm 980 */
								BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6457,
									BgL_ptrz00_6458, BINT(1L));
								{	/* Unsafe/intext.scm 724 */
									obj_t BgL_stringz00_6898;
									long BgL_kz00_6899;

									BgL_stringz00_6898 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6457);
									BgL_kz00_6899 =
										(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6458));
									STRING_SET(BgL_stringz00_6898, BgL_kz00_6899,
										((unsigned char) 't'));
								}
								{	/* Unsafe/intext.scm 725 */
									obj_t BgL_auxz00_6900;

									BgL_auxz00_6900 =
										ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6458));
									BGL_UNSAFE_CELL_SET(BgL_ptrz00_6458, BgL_auxz00_6900);
								}
								{	/* Unsafe/intext.scm 983 */
									long BgL_iz00_6901;

									BgL_iz00_6901 = (long) (BgL_tagz00_6897);
									if ((BgL_iz00_6901 < 0L))
										{	/* Unsafe/intext.scm 807 */
											BGl_z62checkzd2bufferz12za2zz__intextz00
												(BgL_bufferz00_6457, BgL_ptrz00_6458, BINT(1L));
											{	/* Unsafe/intext.scm 724 */
												obj_t BgL_stringz00_6902;
												long BgL_kz00_6903;

												BgL_stringz00_6902 =
													BGL_UNSAFE_CELL_REF(BgL_bufferz00_6457);
												BgL_kz00_6903 =
													(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6458));
												STRING_SET(BgL_stringz00_6902, BgL_kz00_6903,
													((unsigned char) '-'));
											}
											{	/* Unsafe/intext.scm 725 */
												obj_t BgL_auxz00_6904;

												BgL_auxz00_6904 =
													ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6458));
												BGL_UNSAFE_CELL_SET(BgL_ptrz00_6458, BgL_auxz00_6904);
											}
											BGl_z62printzd2wordzb0zz__intextz00(BgL_ptrz00_6458,
												BgL_bufferz00_6457, NEG(BgL_iz00_6901));
										}
									else
										{	/* Unsafe/intext.scm 807 */
											BGl_z62printzd2wordzb0zz__intextz00(BgL_ptrz00_6458,
												BgL_bufferz00_6457, BgL_iz00_6901);
										}
								}
							}
						else
							{	/* Unsafe/intext.scm 980 */
								BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6457,
									BgL_ptrz00_6458, BINT(1L));
								{	/* Unsafe/intext.scm 724 */
									obj_t BgL_stringz00_6905;
									long BgL_kz00_6906;

									BgL_stringz00_6905 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6457);
									BgL_kz00_6906 =
										(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6458));
									STRING_SET(BgL_stringz00_6905, BgL_kz00_6906,
										((unsigned char) '['));
								}
								{	/* Unsafe/intext.scm 725 */
									obj_t BgL_auxz00_6907;

									BgL_auxz00_6907 =
										ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6458));
									BGL_UNSAFE_CELL_SET(BgL_ptrz00_6458, BgL_auxz00_6907);
							}}
						{	/* Unsafe/intext.scm 798 */
							long BgL_siza7eza7_6908;

							BgL_siza7eza7_6908 =
								BGl_siza7ezd2ofzd2wordza7zz__intextz00(VECTOR_LENGTH(
									((obj_t) BgL_itemz00_6459)));
							if ((BgL_siza7eza7_6908 == 0L))
								{	/* Unsafe/intext.scm 799 */
									BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6458,
										BgL_bufferz00_6457, (0L));
								}
							else
								{	/* Unsafe/intext.scm 799 */
									BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6458,
										BgL_bufferz00_6457, (BgL_siza7eza7_6908));
									BBOOL(BGl_z62printzd2wordzf2siza7eze5zz__intextz00
										(BgL_ptrz00_6458, BgL_bufferz00_6457,
											BINT(VECTOR_LENGTH(((obj_t) BgL_itemz00_6459))),
											BgL_siza7eza7_6908));
								}
						}
						{
							long BgL_iz00_6910;

							BgL_iz00_6910 = 0L;
						BgL_for1077z00_6909:
							if ((BgL_iz00_6910 < VECTOR_LENGTH(((obj_t) BgL_itemz00_6459))))
								{	/* Unsafe/intext.scm 986 */
									{	/* Unsafe/intext.scm 986 */
										obj_t BgL_arg1829z00_6911;

										BgL_arg1829z00_6911 =
											VECTOR_REF(((obj_t) BgL_itemz00_6459), BgL_iz00_6910);
										BGl_z62printzd2itemzb0zz__intextz00
											(BgL_printzd2epairzd2_6456, BgL_printzd2pairzd2_6455,
											BgL_printzd2objectzd2_6454, BgL_printzd2classzd2_6453,
											BgL_printzd2cellzd2_6452, BgL_printzd2weakptrzd2_6451,
											BgL_envz00_6445, BgL_printzd2hvectorzd2_6450,
											BgL_printzd2tvectorzd2_6449, BgL_printzd2customzd2_6448,
											BgL_refz00_6447, BgL_tablez00_6446, BgL_ptrz00_6458,
											BgL_bufferz00_6457, BgL_arg1829z00_6911);
									}
									{
										long BgL_iz00_9745;

										BgL_iz00_9745 = (BgL_iz00_6910 + 1L);
										BgL_iz00_6910 = BgL_iz00_9745;
										goto BgL_for1077z00_6909;
									}
								}
							else
								{	/* Unsafe/intext.scm 986 */
									BgL_tmpz00_9693 = ((bool_t) 0);
								}
						}
					}
					return BBOOL(BgL_tmpz00_9693);
				}
			}
		}

	}



/* &print-hvector */
	obj_t BGl_z62printzd2hvectorzb0zz__intextz00(obj_t BgL_envz00_6464,
		obj_t BgL_itemz00_6467, obj_t BgL_markz00_6468)
	{
		{	/* Unsafe/intext.scm 1025 */
			{	/* Unsafe/intext.scm 990 */
				obj_t BgL_bufferz00_6465;
				obj_t BgL_ptrz00_6466;

				BgL_bufferz00_6465 = PROCEDURE_L_REF(BgL_envz00_6464, (int) (0L));
				BgL_ptrz00_6466 = PROCEDURE_L_REF(BgL_envz00_6464, (int) (1L));
				{
					uint64_t BgL_mz00_6922;
					long BgL_siza7eza7_6923;
					int64_t BgL_mz00_6914;
					long BgL_siza7eza7_6915;

					{	/* Unsafe/intext.scm 990 */
						obj_t BgL_tagz00_6930;

						BgL_tagz00_6930 =
							BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(BgL_itemz00_6467);
						{	/* Unsafe/intext.scm 991 */
							obj_t BgL_bsiza7eza7_6931;
							obj_t BgL_refz00_6932;
							obj_t BgL__z00_6933;
							obj_t BgL__z00_6934;

							{	/* Unsafe/intext.scm 992 */
								obj_t BgL_tmpz00_6935;

								{	/* Unsafe/intext.scm 992 */
									int BgL_tmpz00_9753;

									BgL_tmpz00_9753 = (int) (1L);
									BgL_tmpz00_6935 = BGL_MVALUES_VAL(BgL_tmpz00_9753);
								}
								{	/* Unsafe/intext.scm 992 */
									int BgL_tmpz00_9756;

									BgL_tmpz00_9756 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_9756, BUNSPEC);
								}
								BgL_bsiza7eza7_6931 = BgL_tmpz00_6935;
							}
							{	/* Unsafe/intext.scm 992 */
								obj_t BgL_tmpz00_6936;

								{	/* Unsafe/intext.scm 992 */
									int BgL_tmpz00_9759;

									BgL_tmpz00_9759 = (int) (2L);
									BgL_tmpz00_6936 = BGL_MVALUES_VAL(BgL_tmpz00_9759);
								}
								{	/* Unsafe/intext.scm 992 */
									int BgL_tmpz00_9762;

									BgL_tmpz00_9762 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_9762, BUNSPEC);
								}
								BgL_refz00_6932 = BgL_tmpz00_6936;
							}
							{	/* Unsafe/intext.scm 992 */
								obj_t BgL_tmpz00_6937;

								{	/* Unsafe/intext.scm 992 */
									int BgL_tmpz00_9765;

									BgL_tmpz00_9765 = (int) (3L);
									BgL_tmpz00_6937 = BGL_MVALUES_VAL(BgL_tmpz00_9765);
								}
								{	/* Unsafe/intext.scm 992 */
									int BgL_tmpz00_9768;

									BgL_tmpz00_9768 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_9768, BUNSPEC);
								}
								BgL__z00_6933 = BgL_tmpz00_6937;
							}
							{	/* Unsafe/intext.scm 992 */
								obj_t BgL_tmpz00_6938;

								{	/* Unsafe/intext.scm 992 */
									int BgL_tmpz00_9771;

									BgL_tmpz00_9771 = (int) (4L);
									BgL_tmpz00_6938 = BGL_MVALUES_VAL(BgL_tmpz00_9771);
								}
								{	/* Unsafe/intext.scm 992 */
									int BgL_tmpz00_9774;

									BgL_tmpz00_9774 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_9774, BUNSPEC);
								}
								BgL__z00_6934 = BgL_tmpz00_6938;
							}
							{	/* Unsafe/intext.scm 992 */
								long BgL_lenz00_6939;

								BgL_lenz00_6939 = BGL_HVECTOR_LENGTH(BgL_itemz00_6467);
								BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6465,
									BgL_ptrz00_6466, BINT(1L));
								{	/* Unsafe/intext.scm 724 */
									obj_t BgL_stringz00_6940;
									long BgL_kz00_6941;

									BgL_stringz00_6940 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6465);
									BgL_kz00_6941 =
										(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6466));
									STRING_SET(BgL_stringz00_6940, BgL_kz00_6941,
										((unsigned char) 'h'));
								}
								{	/* Unsafe/intext.scm 725 */
									obj_t BgL_auxz00_6942;

									BgL_auxz00_6942 =
										ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6466));
									BGL_UNSAFE_CELL_SET(BgL_ptrz00_6466, BgL_auxz00_6942);
								}
								{	/* Unsafe/intext.scm 798 */
									long BgL_siza7eza7_6943;

									BgL_siza7eza7_6943 =
										BGl_siza7ezd2ofzd2wordza7zz__intextz00(BgL_lenz00_6939);
									if ((BgL_siza7eza7_6943 == 0L))
										{	/* Unsafe/intext.scm 799 */
											BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6466,
												BgL_bufferz00_6465, (0L));
										}
									else
										{	/* Unsafe/intext.scm 799 */
											BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6466,
												BgL_bufferz00_6465, (BgL_siza7eza7_6943));
											BBOOL(BGl_z62printzd2wordzf2siza7eze5zz__intextz00
												(BgL_ptrz00_6466, BgL_bufferz00_6465,
													BINT(BgL_lenz00_6939), BgL_siza7eza7_6943));
										}
								}
								{	/* Unsafe/intext.scm 798 */
									long BgL_siza7eza7_6944;

									BgL_siza7eza7_6944 =
										BGl_siza7ezd2ofzd2wordza7zz__intextz00(
										(long) CINT(BgL_bsiza7eza7_6931));
									if ((BgL_siza7eza7_6944 == 0L))
										{	/* Unsafe/intext.scm 799 */
											BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6466,
												BgL_bufferz00_6465, (0L));
										}
									else
										{	/* Unsafe/intext.scm 799 */
											BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6466,
												BgL_bufferz00_6465, (BgL_siza7eza7_6944));
											BBOOL(BGl_z62printzd2wordzf2siza7eze5zz__intextz00
												(BgL_ptrz00_6466, BgL_bufferz00_6465,
													BgL_bsiza7eza7_6931, BgL_siza7eza7_6944));
										}
								}
								{	/* Unsafe/intext.scm 996 */
									obj_t BgL_arg1832z00_6945;

									BgL_arg1832z00_6945 =
										SYMBOL_TO_STRING(((obj_t) BgL_tagz00_6930));
									BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6465,
										BgL_ptrz00_6466, BINT(1L));
									{	/* Unsafe/intext.scm 724 */
										obj_t BgL_stringz00_6946;
										long BgL_kz00_6947;

										BgL_stringz00_6946 =
											BGL_UNSAFE_CELL_REF(BgL_bufferz00_6465);
										BgL_kz00_6947 =
											(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6466));
										STRING_SET(BgL_stringz00_6946, BgL_kz00_6947,
											((unsigned char) '"'));
									}
									{	/* Unsafe/intext.scm 725 */
										obj_t BgL_auxz00_6948;

										BgL_auxz00_6948 =
											ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6466));
										BGL_UNSAFE_CELL_SET(BgL_ptrz00_6466, BgL_auxz00_6948);
									}
									BGl_z62z12printzd2charsza2zz__intextz00(BgL_ptrz00_6466,
										BgL_bufferz00_6465, BgL_arg1832z00_6945,
										STRING_LENGTH(BgL_arg1832z00_6945));
								}
								if ((BgL_tagz00_6930 == BGl_symbol2704z00zz__intextz00))
									{
										long BgL_iz00_6950;

										{	/* Unsafe/intext.scm 999 */
											bool_t BgL_tmpz00_9816;

											BgL_iz00_6950 = 0L;
										BgL_for1078z00_6949:
											if ((BgL_iz00_6950 < BgL_lenz00_6939))
												{	/* Unsafe/intext.scm 999 */
													{	/* Unsafe/intext.scm 1000 */
														long BgL_arg1836z00_6951;

														{	/* Unsafe/intext.scm 1000 */
															int8_t BgL_arg1837z00_6952;

															BgL_arg1837z00_6952 =
																BGL_S8VREF(BgL_itemz00_6467, BgL_iz00_6950);
															{	/* Unsafe/intext.scm 1000 */
																long BgL_arg2391z00_6953;

																BgL_arg2391z00_6953 =
																	(long) (BgL_arg1837z00_6952);
																BgL_arg1836z00_6951 =
																	(long) (BgL_arg2391z00_6953);
														}}
														{	/* Unsafe/intext.scm 757 */
															long BgL_g1065z00_6954;

															BgL_g1065z00_6954 = (1L - 1L);
															{
																long BgL_iz00_6956;

																BgL_iz00_6956 = BgL_g1065z00_6954;
															BgL_loopz00_6955:
																if ((BgL_iz00_6956 >= 0L))
																	{	/* Unsafe/intext.scm 759 */
																		long BgL_dz00_6957;

																		BgL_dz00_6957 =
																			(
																			(BgL_arg1836z00_6951 >>
																				(int) ((8L * BgL_iz00_6956))) & 255L);
																		BGl_z62z12printzd2markupza2zz__intextz00
																			(BgL_ptrz00_6466, BgL_bufferz00_6465,
																			(BgL_dz00_6957));
																		{
																			long BgL_iz00_9831;

																			BgL_iz00_9831 = (BgL_iz00_6956 - 1L);
																			BgL_iz00_6956 = BgL_iz00_9831;
																			goto BgL_loopz00_6955;
																		}
																	}
																else
																	{	/* Unsafe/intext.scm 758 */
																		((bool_t) 0);
																	}
															}
														}
													}
													{
														long BgL_iz00_9833;

														BgL_iz00_9833 = (BgL_iz00_6950 + 1L);
														BgL_iz00_6950 = BgL_iz00_9833;
														goto BgL_for1078z00_6949;
													}
												}
											else
												{	/* Unsafe/intext.scm 999 */
													BgL_tmpz00_9816 = ((bool_t) 0);
												}
											return BBOOL(BgL_tmpz00_9816);
										}
									}
								else
									{	/* Unsafe/intext.scm 997 */
										if ((BgL_tagz00_6930 == BGl_symbol2706z00zz__intextz00))
											{
												long BgL_iz00_6959;

												{	/* Unsafe/intext.scm 1002 */
													bool_t BgL_tmpz00_9838;

													BgL_iz00_6959 = 0L;
												BgL_for1079z00_6958:
													if ((BgL_iz00_6959 < BgL_lenz00_6939))
														{	/* Unsafe/intext.scm 1002 */
															{	/* Unsafe/intext.scm 1003 */
																long BgL_arg1845z00_6960;

																{	/* Unsafe/intext.scm 1003 */
																	uint8_t BgL_arg1846z00_6961;

																	BgL_arg1846z00_6961 =
																		BGL_U8VREF(BgL_itemz00_6467, BgL_iz00_6959);
																	{	/* Unsafe/intext.scm 1003 */
																		long BgL_arg2390z00_6962;

																		BgL_arg2390z00_6962 =
																			(long) (BgL_arg1846z00_6961);
																		BgL_arg1845z00_6960 =
																			(long) (BgL_arg2390z00_6962);
																}}
																{	/* Unsafe/intext.scm 757 */
																	long BgL_g1065z00_6963;

																	BgL_g1065z00_6963 = (1L - 1L);
																	{
																		long BgL_iz00_6965;

																		BgL_iz00_6965 = BgL_g1065z00_6963;
																	BgL_loopz00_6964:
																		if ((BgL_iz00_6965 >= 0L))
																			{	/* Unsafe/intext.scm 759 */
																				long BgL_dz00_6966;

																				BgL_dz00_6966 =
																					(
																					(BgL_arg1845z00_6960 >>
																						(int) (
																							(8L * BgL_iz00_6965))) & 255L);
																				BGl_z62z12printzd2markupza2zz__intextz00
																					(BgL_ptrz00_6466, BgL_bufferz00_6465,
																					(BgL_dz00_6966));
																				{
																					long BgL_iz00_9853;

																					BgL_iz00_9853 = (BgL_iz00_6965 - 1L);
																					BgL_iz00_6965 = BgL_iz00_9853;
																					goto BgL_loopz00_6964;
																				}
																			}
																		else
																			{	/* Unsafe/intext.scm 758 */
																				((bool_t) 0);
																			}
																	}
																}
															}
															{
																long BgL_iz00_9855;

																BgL_iz00_9855 = (BgL_iz00_6959 + 1L);
																BgL_iz00_6959 = BgL_iz00_9855;
																goto BgL_for1079z00_6958;
															}
														}
													else
														{	/* Unsafe/intext.scm 1002 */
															BgL_tmpz00_9838 = ((bool_t) 0);
														}
													return BBOOL(BgL_tmpz00_9838);
												}
											}
										else
											{	/* Unsafe/intext.scm 997 */
												if ((BgL_tagz00_6930 == BGl_symbol2708z00zz__intextz00))
													{
														long BgL_iz00_6968;

														{	/* Unsafe/intext.scm 1005 */
															bool_t BgL_tmpz00_9860;

															BgL_iz00_6968 = 0L;
														BgL_for1080z00_6967:
															if ((BgL_iz00_6968 < BgL_lenz00_6939))
																{	/* Unsafe/intext.scm 1005 */
																	{	/* Unsafe/intext.scm 1006 */
																		long BgL_arg1851z00_6969;

																		{	/* Unsafe/intext.scm 1006 */
																			int16_t BgL_arg1852z00_6970;

																			BgL_arg1852z00_6970 =
																				BGL_S16VREF(BgL_itemz00_6467,
																				BgL_iz00_6968);
																			{	/* Unsafe/intext.scm 1006 */
																				long BgL_arg2389z00_6971;

																				BgL_arg2389z00_6971 =
																					(long) (BgL_arg1852z00_6970);
																				BgL_arg1851z00_6969 =
																					(long) (BgL_arg2389z00_6971);
																		}}
																		{	/* Unsafe/intext.scm 757 */
																			long BgL_g1065z00_6972;

																			BgL_g1065z00_6972 = (2L - 1L);
																			{
																				long BgL_iz00_6974;

																				BgL_iz00_6974 = BgL_g1065z00_6972;
																			BgL_loopz00_6973:
																				if ((BgL_iz00_6974 >= 0L))
																					{	/* Unsafe/intext.scm 759 */
																						long BgL_dz00_6975;

																						BgL_dz00_6975 =
																							(
																							(BgL_arg1851z00_6969 >>
																								(int) (
																									(8L *
																										BgL_iz00_6974))) & 255L);
																						BGl_z62z12printzd2markupza2zz__intextz00
																							(BgL_ptrz00_6466,
																							BgL_bufferz00_6465,
																							(BgL_dz00_6975));
																						{
																							long BgL_iz00_9875;

																							BgL_iz00_9875 =
																								(BgL_iz00_6974 - 1L);
																							BgL_iz00_6974 = BgL_iz00_9875;
																							goto BgL_loopz00_6973;
																						}
																					}
																				else
																					{	/* Unsafe/intext.scm 758 */
																						((bool_t) 0);
																					}
																			}
																		}
																	}
																	{
																		long BgL_iz00_9877;

																		BgL_iz00_9877 = (BgL_iz00_6968 + 1L);
																		BgL_iz00_6968 = BgL_iz00_9877;
																		goto BgL_for1080z00_6967;
																	}
																}
															else
																{	/* Unsafe/intext.scm 1005 */
																	BgL_tmpz00_9860 = ((bool_t) 0);
																}
															return BBOOL(BgL_tmpz00_9860);
														}
													}
												else
													{	/* Unsafe/intext.scm 997 */
														if (
															(BgL_tagz00_6930 ==
																BGl_symbol2710z00zz__intextz00))
															{
																long BgL_iz00_6977;

																{	/* Unsafe/intext.scm 1008 */
																	bool_t BgL_tmpz00_9882;

																	BgL_iz00_6977 = 0L;
																BgL_for1081z00_6976:
																	if ((BgL_iz00_6977 < BgL_lenz00_6939))
																		{	/* Unsafe/intext.scm 1008 */
																			{	/* Unsafe/intext.scm 1009 */
																				long BgL_arg1857z00_6978;

																				{	/* Unsafe/intext.scm 1009 */
																					uint16_t BgL_arg1858z00_6979;

																					BgL_arg1858z00_6979 =
																						BGL_U16VREF(BgL_itemz00_6467,
																						BgL_iz00_6977);
																					{	/* Unsafe/intext.scm 1009 */
																						long BgL_arg2388z00_6980;

																						BgL_arg2388z00_6980 =
																							(long) (BgL_arg1858z00_6979);
																						BgL_arg1857z00_6978 =
																							(long) (BgL_arg2388z00_6980);
																				}}
																				{	/* Unsafe/intext.scm 757 */
																					long BgL_g1065z00_6981;

																					BgL_g1065z00_6981 = (2L - 1L);
																					{
																						long BgL_iz00_6983;

																						BgL_iz00_6983 = BgL_g1065z00_6981;
																					BgL_loopz00_6982:
																						if ((BgL_iz00_6983 >= 0L))
																							{	/* Unsafe/intext.scm 759 */
																								long BgL_dz00_6984;

																								BgL_dz00_6984 =
																									(
																									(BgL_arg1857z00_6978 >>
																										(int) (
																											(8L *
																												BgL_iz00_6983))) &
																									255L);
																								BGl_z62z12printzd2markupza2zz__intextz00
																									(BgL_ptrz00_6466,
																									BgL_bufferz00_6465,
																									(BgL_dz00_6984));
																								{
																									long BgL_iz00_9897;

																									BgL_iz00_9897 =
																										(BgL_iz00_6983 - 1L);
																									BgL_iz00_6983 = BgL_iz00_9897;
																									goto BgL_loopz00_6982;
																								}
																							}
																						else
																							{	/* Unsafe/intext.scm 758 */
																								((bool_t) 0);
																							}
																					}
																				}
																			}
																			{
																				long BgL_iz00_9899;

																				BgL_iz00_9899 = (BgL_iz00_6977 + 1L);
																				BgL_iz00_6977 = BgL_iz00_9899;
																				goto BgL_for1081z00_6976;
																			}
																		}
																	else
																		{	/* Unsafe/intext.scm 1008 */
																			BgL_tmpz00_9882 = ((bool_t) 0);
																		}
																	return BBOOL(BgL_tmpz00_9882);
																}
															}
														else
															{	/* Unsafe/intext.scm 997 */
																if (
																	(BgL_tagz00_6930 ==
																		BGl_symbol2712z00zz__intextz00))
																	{
																		long BgL_iz00_6986;

																		{	/* Unsafe/intext.scm 1011 */
																			bool_t BgL_tmpz00_9904;

																			BgL_iz00_6986 = 0L;
																		BgL_for1082z00_6985:
																			if ((BgL_iz00_6986 < BgL_lenz00_6939))
																				{	/* Unsafe/intext.scm 1011 */
																					{	/* Unsafe/intext.scm 1012 */
																						long BgL_arg1863z00_6987;

																						{	/* Unsafe/intext.scm 1012 */
																							int32_t BgL_arg1864z00_6988;

																							BgL_arg1864z00_6988 =
																								BGL_S32VREF(BgL_itemz00_6467,
																								BgL_iz00_6986);
																							{	/* Unsafe/intext.scm 1012 */
																								long BgL_arg2387z00_6989;

																								BgL_arg2387z00_6989 =
																									(long) (BgL_arg1864z00_6988);
																								BgL_arg1863z00_6987 =
																									(long) (BgL_arg2387z00_6989);
																						}}
																						{	/* Unsafe/intext.scm 757 */
																							long BgL_g1065z00_6990;

																							BgL_g1065z00_6990 = (4L - 1L);
																							{
																								long BgL_iz00_6992;

																								BgL_iz00_6992 =
																									BgL_g1065z00_6990;
																							BgL_loopz00_6991:
																								if ((BgL_iz00_6992 >= 0L))
																									{	/* Unsafe/intext.scm 759 */
																										long BgL_dz00_6993;

																										BgL_dz00_6993 =
																											(
																											(BgL_arg1863z00_6987 >>
																												(int) (
																													(8L *
																														BgL_iz00_6992))) &
																											255L);
																										BGl_z62z12printzd2markupza2zz__intextz00
																											(BgL_ptrz00_6466,
																											BgL_bufferz00_6465,
																											(BgL_dz00_6993));
																										{
																											long BgL_iz00_9919;

																											BgL_iz00_9919 =
																												(BgL_iz00_6992 - 1L);
																											BgL_iz00_6992 =
																												BgL_iz00_9919;
																											goto BgL_loopz00_6991;
																										}
																									}
																								else
																									{	/* Unsafe/intext.scm 758 */
																										((bool_t) 0);
																									}
																							}
																						}
																					}
																					{
																						long BgL_iz00_9921;

																						BgL_iz00_9921 =
																							(BgL_iz00_6986 + 1L);
																						BgL_iz00_6986 = BgL_iz00_9921;
																						goto BgL_for1082z00_6985;
																					}
																				}
																			else
																				{	/* Unsafe/intext.scm 1011 */
																					BgL_tmpz00_9904 = ((bool_t) 0);
																				}
																			return BBOOL(BgL_tmpz00_9904);
																		}
																	}
																else
																	{	/* Unsafe/intext.scm 997 */
																		if (
																			(BgL_tagz00_6930 ==
																				BGl_symbol2714z00zz__intextz00))
																			{
																				long BgL_iz00_6995;

																				{	/* Unsafe/intext.scm 1014 */
																					bool_t BgL_tmpz00_9926;

																					BgL_iz00_6995 = 0L;
																				BgL_for1083z00_6994:
																					if ((BgL_iz00_6995 < BgL_lenz00_6939))
																						{	/* Unsafe/intext.scm 1014 */
																							{	/* Unsafe/intext.scm 1015 */
																								long BgL_arg1869z00_6996;

																								{	/* Unsafe/intext.scm 1015 */
																									uint32_t BgL_arg1870z00_6997;

																									BgL_arg1870z00_6997 =
																										BGL_U32VREF
																										(BgL_itemz00_6467,
																										BgL_iz00_6995);
																									BgL_arg1869z00_6996 =
																										(long)
																										(BgL_arg1870z00_6997);
																								}
																								{	/* Unsafe/intext.scm 757 */
																									long BgL_g1065z00_6998;

																									BgL_g1065z00_6998 = (4L - 1L);
																									{
																										long BgL_iz00_7000;

																										BgL_iz00_7000 =
																											BgL_g1065z00_6998;
																									BgL_loopz00_6999:
																										if ((BgL_iz00_7000 >= 0L))
																											{	/* Unsafe/intext.scm 759 */
																												long BgL_dz00_7001;

																												BgL_dz00_7001 =
																													(
																													(BgL_arg1869z00_6996
																														>> (int) ((8L *
																																BgL_iz00_7000)))
																													& 255L);
																												BGl_z62z12printzd2markupza2zz__intextz00
																													(BgL_ptrz00_6466,
																													BgL_bufferz00_6465,
																													(BgL_dz00_7001));
																												{
																													long BgL_iz00_9940;

																													BgL_iz00_9940 =
																														(BgL_iz00_7000 -
																														1L);
																													BgL_iz00_7000 =
																														BgL_iz00_9940;
																													goto BgL_loopz00_6999;
																												}
																											}
																										else
																											{	/* Unsafe/intext.scm 758 */
																												((bool_t) 0);
																											}
																									}
																								}
																							}
																							{
																								long BgL_iz00_9942;

																								BgL_iz00_9942 =
																									(BgL_iz00_6995 + 1L);
																								BgL_iz00_6995 = BgL_iz00_9942;
																								goto BgL_for1083z00_6994;
																							}
																						}
																					else
																						{	/* Unsafe/intext.scm 1014 */
																							BgL_tmpz00_9926 = ((bool_t) 0);
																						}
																					return BBOOL(BgL_tmpz00_9926);
																				}
																			}
																		else
																			{	/* Unsafe/intext.scm 997 */
																				if (
																					(BgL_tagz00_6930 ==
																						BGl_symbol2716z00zz__intextz00))
																					{
																						long BgL_iz00_7003;

																						{	/* Unsafe/intext.scm 1017 */
																							bool_t BgL_tmpz00_9947;

																							BgL_iz00_7003 = 0L;
																						BgL_for1084z00_7002:
																							if (
																								(BgL_iz00_7003 <
																									BgL_lenz00_6939))
																								{	/* Unsafe/intext.scm 1017 */
																									{	/* Unsafe/intext.scm 1018 */
																										int64_t BgL_arg1878z00_7004;

																										BgL_arg1878z00_7004 =
																											BGL_S64VREF
																											(BgL_itemz00_6467,
																											BgL_iz00_7003);
																										BgL_mz00_6914 =
																											BgL_arg1878z00_7004;
																										BgL_siza7eza7_6915 = 8L;
																										{	/* Unsafe/intext.scm 781 */
																											long BgL_g1068z00_6916;

																											BgL_g1068z00_6916 =
																												(BgL_siza7eza7_6915 -
																												1L);
																											{
																												long BgL_iz00_6918;

																												BgL_iz00_6918 =
																													BgL_g1068z00_6916;
																											BgL_loopz00_6917:
																												if (
																													(BgL_iz00_6918 >= 0L))
																													{	/* Unsafe/intext.scm 783 */
																														long BgL_dz00_6919;

																														{	/* Unsafe/intext.scm 784 */
																															int64_t
																																BgL_arg1715z00_6920;
																															BgL_arg1715z00_6920
																																=
																																((BgL_mz00_6914
																																	>> (int) ((8L
																																			*
																																			BgL_iz00_6918)))
																																&
																																(int64_t)
																																(255));
																															{	/* Unsafe/intext.scm 783 */
																																long
																																	BgL_arg2385z00_6921;
																																BgL_arg2385z00_6921
																																	=
																																	(long)
																																	(BgL_arg1715z00_6920);
																																BgL_dz00_6919 =
																																	(long)
																																	(BgL_arg2385z00_6921);
																														}}
																														BGl_z62z12printzd2markupza2zz__intextz00
																															(BgL_ptrz00_6466,
																															BgL_bufferz00_6465,
																															(BgL_dz00_6919));
																														{
																															long
																																BgL_iz00_9962;
																															BgL_iz00_9962 =
																																(BgL_iz00_6918 -
																																1L);
																															BgL_iz00_6918 =
																																BgL_iz00_9962;
																															goto
																																BgL_loopz00_6917;
																														}
																													}
																												else
																													{	/* Unsafe/intext.scm 782 */
																														((bool_t) 0);
																													}
																											}
																										}
																									}
																									{
																										long BgL_iz00_9964;

																										BgL_iz00_9964 =
																											(BgL_iz00_7003 + 1L);
																										BgL_iz00_7003 =
																											BgL_iz00_9964;
																										goto BgL_for1084z00_7002;
																									}
																								}
																							else
																								{	/* Unsafe/intext.scm 1017 */
																									BgL_tmpz00_9947 =
																										((bool_t) 0);
																								}
																							return BBOOL(BgL_tmpz00_9947);
																						}
																					}
																				else
																					{	/* Unsafe/intext.scm 997 */
																						if (
																							(BgL_tagz00_6930 ==
																								BGl_symbol2718z00zz__intextz00))
																							{
																								long BgL_iz00_7006;

																								{	/* Unsafe/intext.scm 1020 */
																									bool_t BgL_tmpz00_9969;

																									BgL_iz00_7006 = 0L;
																								BgL_for1085z00_7005:
																									if (
																										(BgL_iz00_7006 <
																											BgL_lenz00_6939))
																										{	/* Unsafe/intext.scm 1020 */
																											{	/* Unsafe/intext.scm 1021 */
																												uint64_t
																													BgL_arg1883z00_7007;
																												BgL_arg1883z00_7007 =
																													BGL_U64VREF
																													(BgL_itemz00_6467,
																													BgL_iz00_7006);
																												BgL_mz00_6922 =
																													BgL_arg1883z00_7007;
																												BgL_siza7eza7_6923 = 8L;
																												{	/* Unsafe/intext.scm 789 */
																													long
																														BgL_g1069z00_6924;
																													BgL_g1069z00_6924 =
																														(BgL_siza7eza7_6923
																														- 1L);
																													{
																														long BgL_iz00_6926;

																														BgL_iz00_6926 =
																															BgL_g1069z00_6924;
																													BgL_loopz00_6925:
																														if (
																															(BgL_iz00_6926 >=
																																0L))
																															{	/* Unsafe/intext.scm 791 */
																																long
																																	BgL_dz00_6927;
																																{	/* Unsafe/intext.scm 792 */
																																	uint64_t
																																		BgL_arg1723z00_6928;
																																	BgL_arg1723z00_6928
																																		=
																																		(
																																		(BgL_mz00_6922
																																			>>
																																			(int) ((8L
																																					*
																																					BgL_iz00_6926)))
																																		&
																																		(uint64_t)
																																		(255));
																																	{	/* Unsafe/intext.scm 791 */
																																		long
																																			BgL_arg2384z00_6929;
																																		BgL_arg2384z00_6929
																																			=
																																			(long)
																																			(BgL_arg1723z00_6928);
																																		BgL_dz00_6927
																																			=
																																			(long)
																																			(BgL_arg2384z00_6929);
																																}}
																																BGl_z62z12printzd2markupza2zz__intextz00
																																	(BgL_ptrz00_6466,
																																	BgL_bufferz00_6465,
																																	(BgL_dz00_6927));
																																{
																																	long
																																		BgL_iz00_9984;
																																	BgL_iz00_9984
																																		=
																																		(BgL_iz00_6926
																																		- 1L);
																																	BgL_iz00_6926
																																		=
																																		BgL_iz00_9984;
																																	goto
																																		BgL_loopz00_6925;
																																}
																															}
																														else
																															{	/* Unsafe/intext.scm 790 */
																																((bool_t) 0);
																															}
																													}
																												}
																											}
																											{
																												long BgL_iz00_9986;

																												BgL_iz00_9986 =
																													(BgL_iz00_7006 + 1L);
																												BgL_iz00_7006 =
																													BgL_iz00_9986;
																												goto
																													BgL_for1085z00_7005;
																											}
																										}
																									else
																										{	/* Unsafe/intext.scm 1020 */
																											BgL_tmpz00_9969 =
																												((bool_t) 0);
																										}
																									return BBOOL(BgL_tmpz00_9969);
																								}
																							}
																						else
																							{	/* Unsafe/intext.scm 997 */
																								bool_t BgL_test3070z00_9989;

																								{	/* Unsafe/intext.scm 997 */
																									bool_t
																										BgL__ortest_1086z00_7008;
																									BgL__ortest_1086z00_7008 =
																										(BgL_tagz00_6930 ==
																										BGl_symbol2720z00zz__intextz00);
																									if (BgL__ortest_1086z00_7008)
																										{	/* Unsafe/intext.scm 997 */
																											BgL_test3070z00_9989 =
																												BgL__ortest_1086z00_7008;
																										}
																									else
																										{	/* Unsafe/intext.scm 997 */
																											BgL_test3070z00_9989 =
																												(BgL_tagz00_6930 ==
																												BGl_symbol2722z00zz__intextz00);
																										}
																								}
																								if (BgL_test3070z00_9989)
																									{
																										long BgL_iz00_7010;

																										{	/* Unsafe/intext.scm 1023 */
																											bool_t BgL_tmpz00_9993;

																											BgL_iz00_7010 = 0L;
																										BgL_for1087z00_7009:
																											if (
																												(BgL_iz00_7010 <
																													BgL_lenz00_6939))
																												{	/* Unsafe/intext.scm 1023 */
																													{	/* Unsafe/intext.scm 1024 */
																														obj_t BgL_sz00_7011;

																														{	/* Unsafe/intext.scm 1024 */
																															obj_t
																																BgL_arg1889z00_7012;
																															BgL_arg1889z00_7012
																																=
																																BGL_PROCEDURE_CALL2
																																(BgL_refz00_6932,
																																BgL_itemz00_6467,
																																BINT
																																(BgL_iz00_7010));
																															BgL_sz00_7011 =
																																bgl_real_to_string
																																(REAL_TO_DOUBLE
																																(BgL_arg1889z00_7012));
																														}
																														{	/* Unsafe/intext.scm 1025 */
																															long
																																BgL_arg1888z00_7013;
																															BgL_arg1888z00_7013
																																=
																																STRING_LENGTH
																																(BgL_sz00_7011);
																															BGl_z62printzd2wordzb0zz__intextz00
																																(BgL_ptrz00_6466,
																																BgL_bufferz00_6465,
																																BgL_arg1888z00_7013);
																															BGl_z62checkzd2bufferz12za2zz__intextz00
																																(BgL_bufferz00_6465,
																																BgL_ptrz00_6466,
																																BINT
																																(BgL_arg1888z00_7013));
																															{	/* Unsafe/intext.scm 731 */
																																obj_t
																																	BgL_s2z00_7014;
																																long
																																	BgL_o2z00_7015;
																																BgL_s2z00_7014 =
																																	BGL_UNSAFE_CELL_REF
																																	(BgL_bufferz00_6465);
																																BgL_o2z00_7015 =
																																	(long)
																																	CINT
																																	(BGL_UNSAFE_CELL_REF
																																	(BgL_ptrz00_6466));
																																blit_string
																																	(BgL_sz00_7011,
																																	0L,
																																	BgL_s2z00_7014,
																																	BgL_o2z00_7015,
																																	BgL_arg1888z00_7013);
																															}
																															{	/* Unsafe/intext.scm 732 */
																																obj_t
																																	BgL_auxz00_7016;
																																BgL_auxz00_7016
																																	=
																																	ADDFX
																																	(BGL_UNSAFE_CELL_REF
																																	(BgL_ptrz00_6466),
																																	BINT
																																	(BgL_arg1888z00_7013));
																																BGL_UNSAFE_CELL_SET
																																	(BgL_ptrz00_6466,
																																	BgL_auxz00_7016);
																													}}}
																													{
																														long BgL_iz00_10012;

																														BgL_iz00_10012 =
																															(BgL_iz00_7010 +
																															1L);
																														BgL_iz00_7010 =
																															BgL_iz00_10012;
																														goto
																															BgL_for1087z00_7009;
																													}
																												}
																											else
																												{	/* Unsafe/intext.scm 1023 */
																													BgL_tmpz00_9993 =
																														((bool_t) 0);
																												}
																											return
																												BBOOL(BgL_tmpz00_9993);
																										}
																									}
																								else
																									{	/* Unsafe/intext.scm 997 */
																										return BUNSPEC;
																									}
																							}
																					}
																			}
																	}
															}
													}
											}
									}
							}
						}
					}
				}
			}
		}

	}



/* &print-tvector */
	obj_t BGl_z62printzd2tvectorzb0zz__intextz00(obj_t BgL_envz00_6472,
		obj_t BgL_itemz00_6486, obj_t BgL_markz00_6487)
	{
		{	/* Unsafe/intext.scm 1032 */
			{	/* Unsafe/intext.scm 1029 */
				obj_t BgL_tablez00_6473;
				obj_t BgL_refz00_6474;
				obj_t BgL_printzd2customzd2_6475;
				obj_t BgL_printzd2hvectorzd2_6476;
				obj_t BgL_printzd2vectorzd2_6477;
				obj_t BgL_printzd2weakptrzd2_6478;
				obj_t BgL_printzd2cellzd2_6479;
				obj_t BgL_printzd2classzd2_6480;
				obj_t BgL_printzd2objectzd2_6481;
				obj_t BgL_printzd2pairzd2_6482;
				obj_t BgL_printzd2epairzd2_6483;
				obj_t BgL_bufferz00_6484;
				obj_t BgL_ptrz00_6485;

				BgL_tablez00_6473 = PROCEDURE_L_REF(BgL_envz00_6472, (int) (0L));
				BgL_refz00_6474 = PROCEDURE_L_REF(BgL_envz00_6472, (int) (1L));
				BgL_printzd2customzd2_6475 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6472, (int) (2L)));
				BgL_printzd2hvectorzd2_6476 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6472, (int) (3L)));
				BgL_printzd2vectorzd2_6477 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6472, (int) (4L)));
				BgL_printzd2weakptrzd2_6478 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6472, (int) (5L)));
				BgL_printzd2cellzd2_6479 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6472, (int) (6L)));
				BgL_printzd2classzd2_6480 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6472, (int) (7L)));
				BgL_printzd2objectzd2_6481 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6472, (int) (8L)));
				BgL_printzd2pairzd2_6482 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6472, (int) (9L)));
				BgL_printzd2epairzd2_6483 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6472, (int) (10L)));
				BgL_bufferz00_6484 = PROCEDURE_L_REF(BgL_envz00_6472, (int) (11L));
				BgL_ptrz00_6485 = PROCEDURE_L_REF(BgL_envz00_6472, (int) (12L));
				{	/* Unsafe/intext.scm 1029 */
					obj_t BgL_vz00_7017;

					BgL_vz00_7017 = STRUCT_REF(((obj_t) BgL_itemz00_6486), (int) (1L));
					BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6484,
						BgL_ptrz00_6485, BINT(1L));
					{	/* Unsafe/intext.scm 724 */
						obj_t BgL_stringz00_7018;
						long BgL_kz00_7019;

						BgL_stringz00_7018 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6484);
						BgL_kz00_7019 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6485));
						STRING_SET(BgL_stringz00_7018, BgL_kz00_7019,
							((unsigned char) 'V'));
					}
					{	/* Unsafe/intext.scm 725 */
						obj_t BgL_auxz00_7020;

						BgL_auxz00_7020 =
							ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6485));
						BGL_UNSAFE_CELL_SET(BgL_ptrz00_6485, BgL_auxz00_7020);
					}
					BGl_z62printzd2itemzb0zz__intextz00(BgL_printzd2epairzd2_6483,
						BgL_printzd2pairzd2_6482, BgL_printzd2objectzd2_6481,
						BgL_printzd2classzd2_6480, BgL_printzd2cellzd2_6479,
						BgL_printzd2weakptrzd2_6478, BgL_printzd2vectorzd2_6477,
						BgL_printzd2hvectorzd2_6476, BgL_envz00_6472,
						BgL_printzd2customzd2_6475, BgL_refz00_6474, BgL_tablez00_6473,
						BgL_ptrz00_6485, BgL_bufferz00_6484,
						BGl_tvectorzd2idzd2zz__tvectorz00(BgL_itemz00_6486));
					return BGl_z62printzd2itemzb0zz__intextz00(BgL_printzd2epairzd2_6483,
						BgL_printzd2pairzd2_6482, BgL_printzd2objectzd2_6481,
						BgL_printzd2classzd2_6480, BgL_printzd2cellzd2_6479,
						BgL_printzd2weakptrzd2_6478, BgL_printzd2vectorzd2_6477,
						BgL_printzd2hvectorzd2_6476, BgL_envz00_6472,
						BgL_printzd2customzd2_6475, BgL_refz00_6474, BgL_tablez00_6473,
						BgL_ptrz00_6485, BgL_bufferz00_6484, BgL_vz00_7017);
				}
			}
		}

	}



/* &print-custom */
	obj_t BGl_z62printzd2customzb0zz__intextz00(obj_t BgL_envz00_6489,
		obj_t BgL_itemz00_6492, obj_t BgL_markz00_6493)
	{
		{	/* Unsafe/intext.scm 1036 */
			{	/* Unsafe/intext.scm 1036 */
				obj_t BgL_bufferz00_6490;
				obj_t BgL_ptrz00_6491;

				BgL_bufferz00_6490 = PROCEDURE_L_REF(BgL_envz00_6489, (int) (0L));
				BgL_ptrz00_6491 = PROCEDURE_L_REF(BgL_envz00_6489, (int) (1L));
				BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6490,
					BgL_ptrz00_6491, BINT(1L));
				{	/* Unsafe/intext.scm 724 */
					obj_t BgL_stringz00_7021;
					long BgL_kz00_7022;

					BgL_stringz00_7021 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6490);
					BgL_kz00_7022 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6491));
					STRING_SET(BgL_stringz00_7021, BgL_kz00_7022, ((unsigned char) '+'));
				}
				{	/* Unsafe/intext.scm 725 */
					obj_t BgL_auxz00_7023;

					BgL_auxz00_7023 =
						ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6491));
					BGL_UNSAFE_CELL_SET(BgL_ptrz00_6491, BgL_auxz00_7023);
				}
				{	/* Unsafe/intext.scm 1037 */
					char *BgL_identz00_7024;

					BgL_identz00_7024 = CUSTOM_IDENTIFIER(((obj_t) BgL_itemz00_6492));
					{	/* Unsafe/intext.scm 1037 */

						{	/* Unsafe/intext.scm 1038 */
							long BgL_arg1894z00_7025;

							BgL_arg1894z00_7025 =
								STRING_LENGTH(string_to_bstring(BgL_identz00_7024));
							BGl_z62printzd2wordzb0zz__intextz00(BgL_ptrz00_6491,
								BgL_bufferz00_6490, BgL_arg1894z00_7025);
							BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6490,
								BgL_ptrz00_6491, BINT(BgL_arg1894z00_7025));
							{	/* Unsafe/intext.scm 731 */
								obj_t BgL_s1z00_7026;
								obj_t BgL_s2z00_7027;
								long BgL_o2z00_7028;

								BgL_s1z00_7026 = string_to_bstring(BgL_identz00_7024);
								BgL_s2z00_7027 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6490);
								BgL_o2z00_7028 =
									(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6491));
								blit_string(BgL_s1z00_7026, 0L, BgL_s2z00_7027, BgL_o2z00_7028,
									BgL_arg1894z00_7025);
							}
							{	/* Unsafe/intext.scm 732 */
								obj_t BgL_auxz00_7029;

								BgL_auxz00_7029 =
									ADDFX(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6491),
									BINT(BgL_arg1894z00_7025));
								BGL_UNSAFE_CELL_SET(BgL_ptrz00_6491, BgL_auxz00_7029);
						}}
						{	/* Unsafe/intext.scm 1039 */
							obj_t BgL_sz00_7030;

							BgL_sz00_7030 =
								STRUCT_REF(((obj_t) BgL_markz00_6493), (int) (1L));
							{	/* Unsafe/intext.scm 1040 */
								long BgL_arg1896z00_7031;

								BgL_arg1896z00_7031 = STRING_LENGTH(((obj_t) BgL_sz00_7030));
								BGl_z62printzd2wordzb0zz__intextz00(BgL_ptrz00_6491,
									BgL_bufferz00_6490, BgL_arg1896z00_7031);
								BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6490,
									BgL_ptrz00_6491, BINT(BgL_arg1896z00_7031));
								{	/* Unsafe/intext.scm 731 */
									obj_t BgL_s2z00_7032;
									long BgL_o2z00_7033;

									BgL_s2z00_7032 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6490);
									BgL_o2z00_7033 =
										(long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6491));
									blit_string(
										((obj_t) BgL_sz00_7030), 0L, BgL_s2z00_7032, BgL_o2z00_7033,
										BgL_arg1896z00_7031);
								}
								{	/* Unsafe/intext.scm 732 */
									obj_t BgL_auxz00_7034;

									BgL_auxz00_7034 =
										ADDFX(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6491),
										BINT(BgL_arg1896z00_7031));
									return BGL_UNSAFE_CELL_SET(BgL_ptrz00_6491, BgL_auxz00_7034);
								}
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1965> */
	obj_t BGl_z62zc3z04anonymousza31965ze3ze5zz__intextz00(obj_t BgL_envz00_6497,
		obj_t BgL_iz00_6512, obj_t BgL_mz00_6513)
	{
		{	/* Unsafe/intext.scm 1145 */
			{	/* Unsafe/intext.scm 1044 */
				obj_t BgL_tablez00_6498;
				obj_t BgL_refz00_6499;
				obj_t BgL_printzd2customzd2_6500;
				obj_t BgL_printzd2tvectorzd2_6501;
				obj_t BgL_printzd2hvectorzd2_6502;
				obj_t BgL_printzd2vectorzd2_6503;
				obj_t BgL_printzd2weakptrzd2_6504;
				obj_t BgL_printzd2cellzd2_6505;
				obj_t BgL_printzd2classzd2_6506;
				obj_t BgL_printzd2objectzd2_6507;
				obj_t BgL_printzd2pairzd2_6508;
				obj_t BgL_printzd2epairzd2_6509;
				obj_t BgL_bufferz00_6510;
				obj_t BgL_ptrz00_6511;

				BgL_tablez00_6498 = PROCEDURE_L_REF(BgL_envz00_6497, (int) (0L));
				BgL_refz00_6499 = PROCEDURE_L_REF(BgL_envz00_6497, (int) (1L));
				BgL_printzd2customzd2_6500 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6497, (int) (2L)));
				BgL_printzd2tvectorzd2_6501 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6497, (int) (3L)));
				BgL_printzd2hvectorzd2_6502 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6497, (int) (4L)));
				BgL_printzd2vectorzd2_6503 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6497, (int) (5L)));
				BgL_printzd2weakptrzd2_6504 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6497, (int) (6L)));
				BgL_printzd2cellzd2_6505 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6497, (int) (7L)));
				BgL_printzd2classzd2_6506 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6497, (int) (8L)));
				BgL_printzd2objectzd2_6507 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6497, (int) (9L)));
				BgL_printzd2pairzd2_6508 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6497, (int) (10L)));
				BgL_printzd2epairzd2_6509 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6497, (int) (11L)));
				BgL_bufferz00_6510 = PROCEDURE_L_REF(BgL_envz00_6497, (int) (12L));
				BgL_ptrz00_6511 = PROCEDURE_L_REF(BgL_envz00_6497, (int) (13L));
				BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6510,
					BgL_ptrz00_6511, BINT(1L));
				{	/* Unsafe/intext.scm 724 */
					obj_t BgL_stringz00_7035;
					long BgL_kz00_7036;

					BgL_stringz00_7035 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6510);
					BgL_kz00_7036 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6511));
					STRING_SET(BgL_stringz00_7035, BgL_kz00_7036, ((unsigned char) 'p'));
				}
				{	/* Unsafe/intext.scm 725 */
					obj_t BgL_auxz00_7037;

					BgL_auxz00_7037 =
						ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6511));
					BGL_UNSAFE_CELL_SET(BgL_ptrz00_6511, BgL_auxz00_7037);
				}
				{	/* Unsafe/intext.scm 1045 */
					obj_t BgL_arg1898z00_7038;

					BgL_arg1898z00_7038 = STRUCT_REF(((obj_t) BgL_mz00_6513), (int) (1L));
					return
						BGl_z62printzd2itemzb0zz__intextz00(BgL_printzd2epairzd2_6509,
						BgL_printzd2pairzd2_6508, BgL_printzd2objectzd2_6507,
						BgL_printzd2classzd2_6506, BgL_printzd2cellzd2_6505,
						BgL_printzd2weakptrzd2_6504, BgL_printzd2vectorzd2_6503,
						BgL_printzd2hvectorzd2_6502, BgL_printzd2tvectorzd2_6501,
						BgL_printzd2customzd2_6500, BgL_refz00_6499, BgL_tablez00_6498,
						BgL_ptrz00_6511, BgL_bufferz00_6510, BgL_arg1898z00_7038);
				}
			}
		}

	}



/* &<@anonymous:1968> */
	obj_t BGl_z62zc3z04anonymousza31968ze3ze5zz__intextz00(obj_t BgL_envz00_6515,
		obj_t BgL_iz00_6530, obj_t BgL_mz00_6531)
	{
		{	/* Unsafe/intext.scm 1147 */
			{	/* Unsafe/intext.scm 1044 */
				obj_t BgL_tablez00_6516;
				obj_t BgL_refz00_6517;
				obj_t BgL_printzd2customzd2_6518;
				obj_t BgL_printzd2tvectorzd2_6519;
				obj_t BgL_printzd2hvectorzd2_6520;
				obj_t BgL_printzd2vectorzd2_6521;
				obj_t BgL_printzd2weakptrzd2_6522;
				obj_t BgL_printzd2cellzd2_6523;
				obj_t BgL_printzd2classzd2_6524;
				obj_t BgL_printzd2objectzd2_6525;
				obj_t BgL_printzd2pairzd2_6526;
				obj_t BgL_printzd2epairzd2_6527;
				obj_t BgL_bufferz00_6528;
				obj_t BgL_ptrz00_6529;

				BgL_tablez00_6516 = PROCEDURE_L_REF(BgL_envz00_6515, (int) (0L));
				BgL_refz00_6517 = PROCEDURE_L_REF(BgL_envz00_6515, (int) (1L));
				BgL_printzd2customzd2_6518 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6515, (int) (2L)));
				BgL_printzd2tvectorzd2_6519 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6515, (int) (3L)));
				BgL_printzd2hvectorzd2_6520 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6515, (int) (4L)));
				BgL_printzd2vectorzd2_6521 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6515, (int) (5L)));
				BgL_printzd2weakptrzd2_6522 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6515, (int) (6L)));
				BgL_printzd2cellzd2_6523 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6515, (int) (7L)));
				BgL_printzd2classzd2_6524 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6515, (int) (8L)));
				BgL_printzd2objectzd2_6525 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6515, (int) (9L)));
				BgL_printzd2pairzd2_6526 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6515, (int) (10L)));
				BgL_printzd2epairzd2_6527 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6515, (int) (11L)));
				BgL_bufferz00_6528 = PROCEDURE_L_REF(BgL_envz00_6515, (int) (12L));
				BgL_ptrz00_6529 = PROCEDURE_L_REF(BgL_envz00_6515, (int) (13L));
				BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6528,
					BgL_ptrz00_6529, BINT(1L));
				{	/* Unsafe/intext.scm 724 */
					obj_t BgL_stringz00_7039;
					long BgL_kz00_7040;

					BgL_stringz00_7039 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6528);
					BgL_kz00_7040 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6529));
					STRING_SET(BgL_stringz00_7039, BgL_kz00_7040, ((unsigned char) 'e'));
				}
				{	/* Unsafe/intext.scm 725 */
					obj_t BgL_auxz00_7041;

					BgL_auxz00_7041 =
						ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6529));
					BGL_UNSAFE_CELL_SET(BgL_ptrz00_6529, BgL_auxz00_7041);
				}
				{	/* Unsafe/intext.scm 1045 */
					obj_t BgL_arg1898z00_7042;

					BgL_arg1898z00_7042 = STRUCT_REF(((obj_t) BgL_mz00_6531), (int) (1L));
					return
						BGl_z62printzd2itemzb0zz__intextz00(BgL_printzd2epairzd2_6527,
						BgL_printzd2pairzd2_6526, BgL_printzd2objectzd2_6525,
						BgL_printzd2classzd2_6524, BgL_printzd2cellzd2_6523,
						BgL_printzd2weakptrzd2_6522, BgL_printzd2vectorzd2_6521,
						BgL_printzd2hvectorzd2_6520, BgL_printzd2tvectorzd2_6519,
						BgL_printzd2customzd2_6518, BgL_refz00_6517, BgL_tablez00_6516,
						BgL_ptrz00_6529, BgL_bufferz00_6528, BgL_arg1898z00_7042);
				}
			}
		}

	}



/* &<@anonymous:1971> */
	obj_t BGl_z62zc3z04anonymousza31971ze3ze5zz__intextz00(obj_t BgL_envz00_6533,
		obj_t BgL_iz00_6548, obj_t BgL_mz00_6549)
	{
		{	/* Unsafe/intext.scm 1149 */
			{	/* Unsafe/intext.scm 1044 */
				obj_t BgL_tablez00_6534;
				obj_t BgL_refz00_6535;
				obj_t BgL_printzd2customzd2_6536;
				obj_t BgL_printzd2tvectorzd2_6537;
				obj_t BgL_printzd2hvectorzd2_6538;
				obj_t BgL_printzd2vectorzd2_6539;
				obj_t BgL_printzd2weakptrzd2_6540;
				obj_t BgL_printzd2cellzd2_6541;
				obj_t BgL_printzd2classzd2_6542;
				obj_t BgL_printzd2objectzd2_6543;
				obj_t BgL_printzd2pairzd2_6544;
				obj_t BgL_printzd2epairzd2_6545;
				obj_t BgL_bufferz00_6546;
				obj_t BgL_ptrz00_6547;

				BgL_tablez00_6534 = PROCEDURE_L_REF(BgL_envz00_6533, (int) (0L));
				BgL_refz00_6535 = PROCEDURE_L_REF(BgL_envz00_6533, (int) (1L));
				BgL_printzd2customzd2_6536 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6533, (int) (2L)));
				BgL_printzd2tvectorzd2_6537 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6533, (int) (3L)));
				BgL_printzd2hvectorzd2_6538 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6533, (int) (4L)));
				BgL_printzd2vectorzd2_6539 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6533, (int) (5L)));
				BgL_printzd2weakptrzd2_6540 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6533, (int) (6L)));
				BgL_printzd2cellzd2_6541 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6533, (int) (7L)));
				BgL_printzd2classzd2_6542 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6533, (int) (8L)));
				BgL_printzd2objectzd2_6543 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6533, (int) (9L)));
				BgL_printzd2pairzd2_6544 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6533, (int) (10L)));
				BgL_printzd2epairzd2_6545 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6533, (int) (11L)));
				BgL_bufferz00_6546 = PROCEDURE_L_REF(BgL_envz00_6533, (int) (12L));
				BgL_ptrz00_6547 = PROCEDURE_L_REF(BgL_envz00_6533, (int) (13L));
				BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6546,
					BgL_ptrz00_6547, BINT(1L));
				{	/* Unsafe/intext.scm 724 */
					obj_t BgL_stringz00_7043;
					long BgL_kz00_7044;

					BgL_stringz00_7043 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6546);
					BgL_kz00_7044 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6547));
					STRING_SET(BgL_stringz00_7043, BgL_kz00_7044, ((unsigned char) 'o'));
				}
				{	/* Unsafe/intext.scm 725 */
					obj_t BgL_auxz00_7045;

					BgL_auxz00_7045 =
						ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6547));
					BGL_UNSAFE_CELL_SET(BgL_ptrz00_6547, BgL_auxz00_7045);
				}
				{	/* Unsafe/intext.scm 1045 */
					obj_t BgL_arg1898z00_7046;

					BgL_arg1898z00_7046 = STRUCT_REF(((obj_t) BgL_mz00_6549), (int) (1L));
					return
						BGl_z62printzd2itemzb0zz__intextz00(BgL_printzd2epairzd2_6545,
						BgL_printzd2pairzd2_6544, BgL_printzd2objectzd2_6543,
						BgL_printzd2classzd2_6542, BgL_printzd2cellzd2_6541,
						BgL_printzd2weakptrzd2_6540, BgL_printzd2vectorzd2_6539,
						BgL_printzd2hvectorzd2_6538, BgL_printzd2tvectorzd2_6537,
						BgL_printzd2customzd2_6536, BgL_refz00_6535, BgL_tablez00_6534,
						BgL_ptrz00_6547, BgL_bufferz00_6546, BgL_arg1898z00_7046);
				}
			}
		}

	}



/* &<@anonymous:1976> */
	obj_t BGl_z62zc3z04anonymousza31976ze3ze5zz__intextz00(obj_t BgL_envz00_6551,
		obj_t BgL_itemz00_6566, obj_t BgL_markz00_6567)
	{
		{	/* Unsafe/intext.scm 1154 */
			{	/* Unsafe/intext.scm 960 */
				obj_t BgL_tablez00_6552;
				obj_t BgL_refz00_6553;
				obj_t BgL_printzd2customzd2_6554;
				obj_t BgL_printzd2tvectorzd2_6555;
				obj_t BgL_printzd2hvectorzd2_6556;
				obj_t BgL_printzd2vectorzd2_6557;
				obj_t BgL_printzd2weakptrzd2_6558;
				obj_t BgL_printzd2cellzd2_6559;
				obj_t BgL_printzd2classzd2_6560;
				obj_t BgL_printzd2objectzd2_6561;
				obj_t BgL_printzd2pairzd2_6562;
				obj_t BgL_printzd2epairzd2_6563;
				obj_t BgL_bufferz00_6564;
				obj_t BgL_ptrz00_6565;

				BgL_tablez00_6552 = PROCEDURE_L_REF(BgL_envz00_6551, (int) (0L));
				BgL_refz00_6553 = PROCEDURE_L_REF(BgL_envz00_6551, (int) (1L));
				BgL_printzd2customzd2_6554 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6551, (int) (2L)));
				BgL_printzd2tvectorzd2_6555 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6551, (int) (3L)));
				BgL_printzd2hvectorzd2_6556 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6551, (int) (4L)));
				BgL_printzd2vectorzd2_6557 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6551, (int) (5L)));
				BgL_printzd2weakptrzd2_6558 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6551, (int) (6L)));
				BgL_printzd2cellzd2_6559 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6551, (int) (7L)));
				BgL_printzd2classzd2_6560 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6551, (int) (8L)));
				BgL_printzd2objectzd2_6561 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6551, (int) (9L)));
				BgL_printzd2pairzd2_6562 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6551, (int) (10L)));
				BgL_printzd2epairzd2_6563 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_6551, (int) (11L)));
				BgL_bufferz00_6564 = PROCEDURE_L_REF(BgL_envz00_6551, (int) (12L));
				BgL_ptrz00_6565 = PROCEDURE_L_REF(BgL_envz00_6551, (int) (13L));
				{	/* Unsafe/intext.scm 960 */
					bool_t BgL_tmpz00_10279;

					BGl_z62checkzd2bufferz12za2zz__intextz00(BgL_bufferz00_6564,
						BgL_ptrz00_6565, BINT(1L));
					{	/* Unsafe/intext.scm 724 */
						obj_t BgL_stringz00_7047;
						long BgL_kz00_7048;

						BgL_stringz00_7047 = BGL_UNSAFE_CELL_REF(BgL_bufferz00_6564);
						BgL_kz00_7048 = (long) CINT(BGL_UNSAFE_CELL_REF(BgL_ptrz00_6565));
						STRING_SET(BgL_stringz00_7047, BgL_kz00_7048,
							((unsigned char) '{'));
					}
					{	/* Unsafe/intext.scm 725 */
						obj_t BgL_auxz00_7049;

						BgL_auxz00_7049 =
							ADDFX(BINT(1L), BGL_UNSAFE_CELL_REF(BgL_ptrz00_6565));
						BGL_UNSAFE_CELL_SET(BgL_ptrz00_6565, BgL_auxz00_7049);
					}
					{	/* Unsafe/intext.scm 961 */
						obj_t BgL_arg1816z00_7050;

						{	/* Unsafe/intext.scm 961 */
							obj_t BgL_res2572z00_7051;

							BgL_res2572z00_7051 = STRUCT_KEY(((obj_t) BgL_itemz00_6566));
							BgL_arg1816z00_7050 = BgL_res2572z00_7051;
						}
						BGl_z62printzd2itemzb0zz__intextz00(BgL_printzd2epairzd2_6563,
							BgL_printzd2pairzd2_6562, BgL_printzd2objectzd2_6561,
							BgL_printzd2classzd2_6560, BgL_printzd2cellzd2_6559,
							BgL_printzd2weakptrzd2_6558, BgL_printzd2vectorzd2_6557,
							BgL_printzd2hvectorzd2_6556, BgL_printzd2tvectorzd2_6555,
							BgL_printzd2customzd2_6554, BgL_refz00_6553, BgL_tablez00_6552,
							BgL_ptrz00_6565, BgL_bufferz00_6564, BgL_arg1816z00_7050);
					}
					{	/* Unsafe/intext.scm 962 */
						int BgL_lenz00_7052;

						BgL_lenz00_7052 = STRUCT_LENGTH(((obj_t) BgL_itemz00_6566));
						{	/* Unsafe/intext.scm 798 */
							long BgL_siza7eza7_7053;

							BgL_siza7eza7_7053 =
								BGl_siza7ezd2ofzd2wordza7zz__intextz00(
								(long) (BgL_lenz00_7052));
							if ((BgL_siza7eza7_7053 == 0L))
								{	/* Unsafe/intext.scm 799 */
									BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6565,
										BgL_bufferz00_6564, (0L));
								}
							else
								{	/* Unsafe/intext.scm 799 */
									BGl_z62z12printzd2markupza2zz__intextz00(BgL_ptrz00_6565,
										BgL_bufferz00_6564, (BgL_siza7eza7_7053));
									BBOOL(BGl_z62printzd2wordzf2siza7eze5zz__intextz00
										(BgL_ptrz00_6565, BgL_bufferz00_6564, BINT(BgL_lenz00_7052),
											BgL_siza7eza7_7053));
								}
						}
						{
							long BgL_iz00_7055;

							BgL_iz00_7055 = 0L;
						BgL_for1076z00_7054:
							if ((BgL_iz00_7055 < (long) (BgL_lenz00_7052)))
								{	/* Unsafe/intext.scm 964 */
									{	/* Unsafe/intext.scm 964 */
										obj_t BgL_arg1819z00_7056;

										BgL_arg1819z00_7056 =
											STRUCT_REF(
											((obj_t) BgL_itemz00_6566), (int) (BgL_iz00_7055));
										BGl_z62printzd2itemzb0zz__intextz00
											(BgL_printzd2epairzd2_6563, BgL_printzd2pairzd2_6562,
											BgL_printzd2objectzd2_6561, BgL_printzd2classzd2_6560,
											BgL_printzd2cellzd2_6559, BgL_printzd2weakptrzd2_6558,
											BgL_printzd2vectorzd2_6557, BgL_printzd2hvectorzd2_6556,
											BgL_printzd2tvectorzd2_6555, BgL_printzd2customzd2_6554,
											BgL_refz00_6553, BgL_tablez00_6552, BgL_ptrz00_6565,
											BgL_bufferz00_6564, BgL_arg1819z00_7056);
									}
									{
										long BgL_iz00_10309;

										BgL_iz00_10309 = (BgL_iz00_7055 + 1L);
										BgL_iz00_7055 = BgL_iz00_10309;
										goto BgL_for1076z00_7054;
									}
								}
							else
								{	/* Unsafe/intext.scm 964 */
									BgL_tmpz00_10279 = ((bool_t) 0);
								}
						}
					}
					return BBOOL(BgL_tmpz00_10279);
				}
			}
		}

	}



/* mark-obj! */
	long BGl_markzd2objz12zc0zz__intextz00(obj_t BgL_tablez00_55,
		obj_t BgL_objz00_56, obj_t BgL_markzd2argzd2_57)
	{
		{	/* Unsafe/intext.scm 1173 */
			{	/* Unsafe/intext.scm 1173 */
				struct bgl_unsafe_cell BgL_box3075_6638z00;
				obj_t BgL_nbrefz00_6638;

				BgL_nbrefz00_6638 =
					BGL_MAKE_UNSAFE_CELL_STACK(BINT(0L), BgL_box3075_6638z00);
				BGl_markze70ze7zz__intextz00(BgL_nbrefz00_6638, BgL_markzd2argzd2_57,
					BgL_tablez00_55, BgL_objz00_56);
				return (long) CINT(((obj_t) ((obj_t)
							BGL_UNSAFE_CELL_REF(BgL_nbrefz00_6638))));
		}}

	}



/* mark~0 */
	obj_t BGl_markze70ze7zz__intextz00(obj_t BgL_nbrefz00_6636,
		obj_t BgL_markzd2argzd2_6635, obj_t BgL_tablez00_6634,
		obj_t BgL_objz00_2825)
	{
		{	/* Unsafe/intext.scm 1351 */
		BGl_markze70ze7zz__intextz00:
			{
				obj_t BgL_mz00_2710;
				obj_t BgL_objz00_2720;
				obj_t BgL_objz00_2727;
				obj_t BgL_objz00_2733;
				obj_t BgL_objz00_2759;
				obj_t BgL_objz00_2775;
				obj_t BgL_objz00_2786;
				obj_t BgL_objz00_2789;
				obj_t BgL_objz00_2792;
				obj_t BgL_objz00_2802;
				obj_t BgL_objz00_2810;
				obj_t BgL_objz00_2813;
				obj_t BgL_objz00_2818;

				{	/* Unsafe/intext.scm 1313 */
					bool_t BgL_test3076z00_10316;

					if (EPAIRP(BgL_objz00_2825))
						{	/* Unsafe/intext.scm 1313 */
							BgL_test3076z00_10316 = BGl_za2epairzf3za2zf3zz__intextz00;
						}
					else
						{	/* Unsafe/intext.scm 1313 */
							BgL_test3076z00_10316 = ((bool_t) 0);
						}
					if (BgL_test3076z00_10316)
						{	/* Unsafe/intext.scm 1189 */
							obj_t BgL_mz00_5618;

							BgL_mz00_5618 =
								BGl_hashtablezd2getzd2zz__hashz00(BgL_tablez00_6634,
								BgL_objz00_2825);
							{	/* Unsafe/intext.scm 1190 */
								bool_t BgL_test3078z00_10320;

								if (STRUCTP(BgL_mz00_5618))
									{	/* Unsafe/intext.scm 668 */
										BgL_test3078z00_10320 =
											(STRUCT_KEY(BgL_mz00_5618) ==
											BGl_symbol2744z00zz__intextz00);
									}
								else
									{	/* Unsafe/intext.scm 668 */
										BgL_test3078z00_10320 = ((bool_t) 0);
									}
								if (BgL_test3078z00_10320)
									{	/* Unsafe/intext.scm 1190 */
										BgL_mz00_2710 = BgL_mz00_5618;
									BgL_zc3z04anonymousza31979ze3z87_2711:
										{	/* Unsafe/intext.scm 1183 */
											obj_t BgL_omz00_2712;

											BgL_omz00_2712 = STRUCT_REF(BgL_mz00_2710, (int) (2L));
											{	/* Unsafe/intext.scm 1184 */
												long BgL_arg1980z00_2713;

												BgL_arg1980z00_2713 =
													(1L + (long) CINT(BgL_omz00_2712));
												{	/* Unsafe/intext.scm 668 */
													obj_t BgL_auxz00_10331;
													int BgL_tmpz00_10329;

													BgL_auxz00_10331 = BINT(BgL_arg1980z00_2713);
													BgL_tmpz00_10329 = (int) (2L);
													STRUCT_SET(BgL_mz00_2710, BgL_tmpz00_10329,
														BgL_auxz00_10331);
											}}
											if (((long) CINT(BgL_omz00_2712) == 0L))
												{	/* Unsafe/intext.scm 1185 */
													obj_t BgL_auxz00_6637;

													BgL_auxz00_6637 =
														ADDFX(
														((obj_t)
															((obj_t) BGL_UNSAFE_CELL_REF(BgL_nbrefz00_6636))),
														BINT(1L));
													return
														BGL_UNSAFE_CELL_SET(BgL_nbrefz00_6636,
														BgL_auxz00_6637);
												}
											else
												{	/* Unsafe/intext.scm 1185 */
													return BFALSE;
												}
										}
									}
								else
									{	/* Unsafe/intext.scm 1190 */
										BgL_objz00_2720 = BgL_objz00_2825;
										{	/* Unsafe/intext.scm 1196 */
											obj_t BgL_mz00_2722;

											BgL_mz00_2722 =
												BGl_hashtablezd2getzd2zz__hashz00(BgL_tablez00_6634,
												BgL_objz00_2720);
											{	/* Unsafe/intext.scm 1197 */
												bool_t BgL_test3081z00_10341;

												if (STRUCTP(BgL_mz00_2722))
													{	/* Unsafe/intext.scm 668 */
														BgL_test3081z00_10341 =
															(STRUCT_KEY(BgL_mz00_2722) ==
															BGl_symbol2744z00zz__intextz00);
													}
												else
													{	/* Unsafe/intext.scm 668 */
														BgL_test3081z00_10341 = ((bool_t) 0);
													}
												if (BgL_test3081z00_10341)
													{
														obj_t BgL_mz00_10346;

														BgL_mz00_10346 = BgL_mz00_2722;
														BgL_mz00_2710 = BgL_mz00_10346;
														goto BgL_zc3z04anonymousza31979ze3z87_2711;
													}
												else
													{	/* Unsafe/intext.scm 1197 */
														{	/* Unsafe/intext.scm 680 */
															obj_t BgL_arg1659z00_5427;

															{	/* Unsafe/intext.scm 668 */
																obj_t BgL_newz00_5428;

																BgL_newz00_5428 =
																	create_struct(BGl_symbol2744z00zz__intextz00,
																	(int) (4L));
																{	/* Unsafe/intext.scm 668 */
																	obj_t BgL_auxz00_10351;
																	int BgL_tmpz00_10349;

																	BgL_auxz00_10351 = BINT((-1L));
																	BgL_tmpz00_10349 = (int) (3L);
																	STRUCT_SET(BgL_newz00_5428, BgL_tmpz00_10349,
																		BgL_auxz00_10351);
																}
																{	/* Unsafe/intext.scm 668 */
																	obj_t BgL_auxz00_10356;
																	int BgL_tmpz00_10354;

																	BgL_auxz00_10356 = BINT(0L);
																	BgL_tmpz00_10354 = (int) (2L);
																	STRUCT_SET(BgL_newz00_5428, BgL_tmpz00_10354,
																		BgL_auxz00_10356);
																}
																{	/* Unsafe/intext.scm 668 */
																	int BgL_tmpz00_10359;

																	BgL_tmpz00_10359 = (int) (1L);
																	STRUCT_SET(BgL_newz00_5428, BgL_tmpz00_10359,
																		BFALSE);
																}
																{	/* Unsafe/intext.scm 668 */
																	int BgL_tmpz00_10362;

																	BgL_tmpz00_10362 = (int) (0L);
																	STRUCT_SET(BgL_newz00_5428, BgL_tmpz00_10362,
																		BgL_objz00_2720);
																}
																BgL_arg1659z00_5427 = BgL_newz00_5428;
															}
															BGl_hashtablezd2putz12zc0zz__hashz00
																(BgL_tablez00_6634, BgL_objz00_2720,
																BgL_arg1659z00_5427);
														}
														{	/* Unsafe/intext.scm 1201 */
															obj_t BgL_arg1987z00_2724;

															BgL_arg1987z00_2724 =
																CAR(((obj_t) BgL_objz00_2720));
															BGl_markze70ze7zz__intextz00(BgL_nbrefz00_6636,
																BgL_markzd2argzd2_6635, BgL_tablez00_6634,
																BgL_arg1987z00_2724);
														}
														{	/* Unsafe/intext.scm 1202 */
															obj_t BgL_arg1988z00_2725;

															BgL_arg1988z00_2725 =
																CDR(((obj_t) BgL_objz00_2720));
															BGl_markze70ze7zz__intextz00(BgL_nbrefz00_6636,
																BgL_markzd2argzd2_6635, BgL_tablez00_6634,
																BgL_arg1988z00_2725);
														}
														{	/* Unsafe/intext.scm 1203 */
															obj_t BgL_arg1989z00_2726;

															BgL_arg1989z00_2726 =
																CER(((obj_t) BgL_objz00_2720));
															{
																obj_t BgL_objz00_10374;

																BgL_objz00_10374 = BgL_arg1989z00_2726;
																BgL_objz00_2825 = BgL_objz00_10374;
																goto BGl_markze70ze7zz__intextz00;
															}
														}
													}
											}
										}
									}
							}
						}
					else
						{	/* Unsafe/intext.scm 1313 */
							if (PAIRP(BgL_objz00_2825))
								{	/* Unsafe/intext.scm 1189 */
									obj_t BgL_mz00_5624;

									BgL_mz00_5624 =
										BGl_hashtablezd2getzd2zz__hashz00(BgL_tablez00_6634,
										BgL_objz00_2825);
									{	/* Unsafe/intext.scm 1190 */
										bool_t BgL_test3084z00_10378;

										if (STRUCTP(BgL_mz00_5624))
											{	/* Unsafe/intext.scm 668 */
												BgL_test3084z00_10378 =
													(STRUCT_KEY(BgL_mz00_5624) ==
													BGl_symbol2744z00zz__intextz00);
											}
										else
											{	/* Unsafe/intext.scm 668 */
												BgL_test3084z00_10378 = ((bool_t) 0);
											}
										if (BgL_test3084z00_10378)
											{
												obj_t BgL_mz00_10383;

												BgL_mz00_10383 = BgL_mz00_5624;
												BgL_mz00_2710 = BgL_mz00_10383;
												goto BgL_zc3z04anonymousza31979ze3z87_2711;
											}
										else
											{	/* Unsafe/intext.scm 1190 */
												BgL_objz00_2727 = BgL_objz00_2825;
												{	/* Unsafe/intext.scm 1207 */
													obj_t BgL_mz00_2729;

													BgL_mz00_2729 =
														BGl_hashtablezd2getzd2zz__hashz00(BgL_tablez00_6634,
														BgL_objz00_2727);
													{	/* Unsafe/intext.scm 1208 */
														bool_t BgL_test3086z00_10385;

														if (STRUCTP(BgL_mz00_2729))
															{	/* Unsafe/intext.scm 668 */
																BgL_test3086z00_10385 =
																	(STRUCT_KEY(BgL_mz00_2729) ==
																	BGl_symbol2744z00zz__intextz00);
															}
														else
															{	/* Unsafe/intext.scm 668 */
																BgL_test3086z00_10385 = ((bool_t) 0);
															}
														if (BgL_test3086z00_10385)
															{
																obj_t BgL_mz00_10390;

																BgL_mz00_10390 = BgL_mz00_2729;
																BgL_mz00_2710 = BgL_mz00_10390;
																goto BgL_zc3z04anonymousza31979ze3z87_2711;
															}
														else
															{	/* Unsafe/intext.scm 1208 */
																{	/* Unsafe/intext.scm 680 */
																	obj_t BgL_arg1659z00_5440;

																	{	/* Unsafe/intext.scm 668 */
																		obj_t BgL_newz00_5441;

																		BgL_newz00_5441 =
																			create_struct
																			(BGl_symbol2744z00zz__intextz00,
																			(int) (4L));
																		{	/* Unsafe/intext.scm 668 */
																			obj_t BgL_auxz00_10395;
																			int BgL_tmpz00_10393;

																			BgL_auxz00_10395 = BINT((-1L));
																			BgL_tmpz00_10393 = (int) (3L);
																			STRUCT_SET(BgL_newz00_5441,
																				BgL_tmpz00_10393, BgL_auxz00_10395);
																		}
																		{	/* Unsafe/intext.scm 668 */
																			obj_t BgL_auxz00_10400;
																			int BgL_tmpz00_10398;

																			BgL_auxz00_10400 = BINT(0L);
																			BgL_tmpz00_10398 = (int) (2L);
																			STRUCT_SET(BgL_newz00_5441,
																				BgL_tmpz00_10398, BgL_auxz00_10400);
																		}
																		{	/* Unsafe/intext.scm 668 */
																			int BgL_tmpz00_10403;

																			BgL_tmpz00_10403 = (int) (1L);
																			STRUCT_SET(BgL_newz00_5441,
																				BgL_tmpz00_10403, BFALSE);
																		}
																		{	/* Unsafe/intext.scm 668 */
																			int BgL_tmpz00_10406;

																			BgL_tmpz00_10406 = (int) (0L);
																			STRUCT_SET(BgL_newz00_5441,
																				BgL_tmpz00_10406, BgL_objz00_2727);
																		}
																		BgL_arg1659z00_5440 = BgL_newz00_5441;
																	}
																	BGl_hashtablezd2putz12zc0zz__hashz00
																		(BgL_tablez00_6634, BgL_objz00_2727,
																		BgL_arg1659z00_5440);
																}
																{	/* Unsafe/intext.scm 1212 */
																	obj_t BgL_arg1992z00_2731;

																	BgL_arg1992z00_2731 =
																		CAR(((obj_t) BgL_objz00_2727));
																	BGl_markze70ze7zz__intextz00
																		(BgL_nbrefz00_6636, BgL_markzd2argzd2_6635,
																		BgL_tablez00_6634, BgL_arg1992z00_2731);
																}
																{	/* Unsafe/intext.scm 1213 */
																	obj_t BgL_arg1993z00_2732;

																	BgL_arg1993z00_2732 =
																		CDR(((obj_t) BgL_objz00_2727));
																	{
																		obj_t BgL_objz00_10415;

																		BgL_objz00_10415 = BgL_arg1993z00_2732;
																		BgL_objz00_2825 = BgL_objz00_10415;
																		goto BGl_markze70ze7zz__intextz00;
																	}
																}
															}
													}
												}
											}
									}
								}
							else
								{	/* Unsafe/intext.scm 1315 */
									if (BGL_OBJECTP(BgL_objz00_2825))
										{	/* Unsafe/intext.scm 1189 */
											obj_t BgL_mz00_5630;

											BgL_mz00_5630 =
												BGl_hashtablezd2getzd2zz__hashz00(BgL_tablez00_6634,
												BgL_objz00_2825);
											{	/* Unsafe/intext.scm 1190 */
												bool_t BgL_test3089z00_10419;

												if (STRUCTP(BgL_mz00_5630))
													{	/* Unsafe/intext.scm 668 */
														BgL_test3089z00_10419 =
															(STRUCT_KEY(BgL_mz00_5630) ==
															BGl_symbol2744z00zz__intextz00);
													}
												else
													{	/* Unsafe/intext.scm 668 */
														BgL_test3089z00_10419 = ((bool_t) 0);
													}
												if (BgL_test3089z00_10419)
													{
														obj_t BgL_mz00_10424;

														BgL_mz00_10424 = BgL_mz00_5630;
														BgL_mz00_2710 = BgL_mz00_10424;
														goto BgL_zc3z04anonymousza31979ze3z87_2711;
													}
												else
													{	/* Unsafe/intext.scm 1190 */
														BgL_objz00_2733 = BgL_objz00_2825;
														{	/* Unsafe/intext.scm 1217 */
															obj_t BgL_klassz00_2735;
															obj_t BgL_customz00_2736;

															{	/* Unsafe/intext.scm 1217 */
																obj_t BgL_arg2555z00_5449;
																long BgL_arg2557z00_5450;

																BgL_arg2555z00_5449 =
																	(BGl_za2classesza2z00zz__objectz00);
																{	/* Unsafe/intext.scm 1217 */
																	long BgL_arg2558z00_5451;

																	BgL_arg2558z00_5451 =
																		BGL_OBJECT_CLASS_NUM(
																		((BgL_objectz00_bglt) BgL_objz00_2733));
																	BgL_arg2557z00_5450 =
																		(BgL_arg2558z00_5451 - OBJECT_TYPE);
																}
																BgL_klassz00_2735 =
																	VECTOR_REF(BgL_arg2555z00_5449,
																	BgL_arg2557z00_5450);
															}
															BgL_customz00_2736 =
																BGl_objectzd2serializa7erz75zz__intextz00(
																((BgL_objectz00_bglt) BgL_objz00_2733),
																BgL_markzd2argzd2_6635);
															{	/* Unsafe/intext.scm 680 */
																obj_t BgL_arg1659z00_5457;

																{	/* Unsafe/intext.scm 668 */
																	obj_t BgL_newz00_5458;

																	BgL_newz00_5458 =
																		create_struct
																		(BGl_symbol2744z00zz__intextz00,
																		(int) (4L));
																	{	/* Unsafe/intext.scm 668 */
																		obj_t BgL_auxz00_10436;
																		int BgL_tmpz00_10434;

																		BgL_auxz00_10436 = BINT((-1L));
																		BgL_tmpz00_10434 = (int) (3L);
																		STRUCT_SET(BgL_newz00_5458,
																			BgL_tmpz00_10434, BgL_auxz00_10436);
																	}
																	{	/* Unsafe/intext.scm 668 */
																		obj_t BgL_auxz00_10441;
																		int BgL_tmpz00_10439;

																		BgL_auxz00_10441 = BINT(0L);
																		BgL_tmpz00_10439 = (int) (2L);
																		STRUCT_SET(BgL_newz00_5458,
																			BgL_tmpz00_10439, BgL_auxz00_10441);
																	}
																	{	/* Unsafe/intext.scm 668 */
																		int BgL_tmpz00_10444;

																		BgL_tmpz00_10444 = (int) (1L);
																		STRUCT_SET(BgL_newz00_5458,
																			BgL_tmpz00_10444, BgL_customz00_2736);
																	}
																	{	/* Unsafe/intext.scm 668 */
																		int BgL_tmpz00_10447;

																		BgL_tmpz00_10447 = (int) (0L);
																		STRUCT_SET(BgL_newz00_5458,
																			BgL_tmpz00_10447, BgL_objz00_2733);
																	}
																	BgL_arg1659z00_5457 = BgL_newz00_5458;
																}
																BGl_hashtablezd2putz12zc0zz__hashz00
																	(BgL_tablez00_6634, BgL_objz00_2733,
																	BgL_arg1659z00_5457);
															}
															BGl_markze70ze7zz__intextz00(BgL_nbrefz00_6636,
																BgL_markzd2argzd2_6635, BgL_tablez00_6634,
																BgL_klassz00_2735);
															{	/* Unsafe/intext.scm 1221 */
																long BgL_arg1995z00_2737;

																BgL_arg1995z00_2737 =
																	BGl_classzd2hashzd2zz__objectz00
																	(BgL_klassz00_2735);
																BGl_markze70ze7zz__intextz00(BgL_nbrefz00_6636,
																	BgL_markzd2argzd2_6635, BgL_tablez00_6634,
																	BINT(BgL_arg1995z00_2737));
															}
															{	/* Unsafe/intext.scm 1222 */
																obj_t BgL_arg1996z00_2738;

																BgL_arg1996z00_2738 =
																	BGl_classzd2namezd2zz__objectz00
																	(BgL_klassz00_2735);
																BGl_markze70ze7zz__intextz00(BgL_nbrefz00_6636,
																	BgL_markzd2argzd2_6635, BgL_tablez00_6634,
																	BgL_arg1996z00_2738);
															}
															if ((BgL_objz00_2733 == BgL_customz00_2736))
																{	/* Unsafe/intext.scm 1225 */
																	obj_t BgL_fieldsz00_2739;

																	{	/* Unsafe/intext.scm 1225 */
																		obj_t BgL_tmpz00_10459;

																		BgL_tmpz00_10459 =
																			((obj_t) BgL_klassz00_2735);
																		BgL_fieldsz00_2739 =
																			BGL_CLASS_ALL_FIELDS(BgL_tmpz00_10459);
																	}
																	{	/* Unsafe/intext.scm 1226 */

																		{
																			long BgL_iz00_2742;

																			{	/* Unsafe/intext.scm 1227 */
																				bool_t BgL_tmpz00_10462;

																				BgL_iz00_2742 = 0L;
																			BgL_zc3z04anonymousza31997ze3z87_2743:
																				if (
																					(BgL_iz00_2742 <
																						VECTOR_LENGTH(BgL_fieldsz00_2739)))
																					{	/* Unsafe/intext.scm 1227 */
																						{	/* Unsafe/intext.scm 1228 */
																							obj_t BgL_fz00_2745;

																							BgL_fz00_2745 =
																								VECTOR_REF(BgL_fieldsz00_2739,
																								BgL_iz00_2742);
																							{	/* Unsafe/intext.scm 1228 */
																								obj_t BgL_ivz00_2746;

																								BgL_ivz00_2746 =
																									BGl_classzd2fieldzd2infoz00zz__objectz00
																									(BgL_fz00_2745);
																								{	/* Unsafe/intext.scm 1229 */

																									{	/* Unsafe/intext.scm 1231 */
																										obj_t BgL_g1090z00_2747;

																										if (PAIRP(BgL_ivz00_2746))
																											{	/* Unsafe/intext.scm 1231 */
																												BgL_g1090z00_2747 =
																													BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																													(BGl_keyword2739z00zz__intextz00,
																													BgL_ivz00_2746);
																											}
																										else
																											{	/* Unsafe/intext.scm 1231 */
																												BgL_g1090z00_2747 =
																													BFALSE;
																											}
																										if (CBOOL
																											(BgL_g1090z00_2747))
																											{	/* Unsafe/intext.scm 1234 */
																												bool_t
																													BgL_test3095z00_10473;
																												{	/* Unsafe/intext.scm 1234 */
																													obj_t
																														BgL_tmpz00_10474;
																													BgL_tmpz00_10474 =
																														CDR(((obj_t)
																															BgL_g1090z00_2747));
																													BgL_test3095z00_10473
																														=
																														PAIRP
																														(BgL_tmpz00_10474);
																												}
																												if (BgL_test3095z00_10473)
																													{	/* Unsafe/intext.scm 1234 */
																														obj_t
																															BgL_arg2002z00_2752;
																														{	/* Unsafe/intext.scm 1234 */
																															obj_t
																																BgL_pairz00_5473;
																															BgL_pairz00_5473 =
																																CDR(((obj_t)
																																	BgL_g1090z00_2747));
																															BgL_arg2002z00_2752
																																=
																																CAR
																																(BgL_pairz00_5473);
																														}
																														BGl_markze70ze7zz__intextz00
																															(BgL_nbrefz00_6636,
																															BgL_markzd2argzd2_6635,
																															BgL_tablez00_6634,
																															BgL_arg2002z00_2752);
																													}
																												else
																													{	/* Unsafe/intext.scm 1234 */
																														BFALSE;
																													}
																											}
																										else
																											{	/* Unsafe/intext.scm 1236 */
																												obj_t
																													BgL_arg2004z00_2754;
																												{	/* Unsafe/intext.scm 1236 */
																													obj_t
																														BgL_fun2005z00_2755;
																													BgL_fun2005z00_2755 =
																														BGl_classzd2fieldzd2accessorz00zz__objectz00
																														(BgL_fz00_2745);
																													BgL_arg2004z00_2754 =
																														BGL_PROCEDURE_CALL1
																														(BgL_fun2005z00_2755,
																														BgL_objz00_2733);
																												}
																												BGl_markze70ze7zz__intextz00
																													(BgL_nbrefz00_6636,
																													BgL_markzd2argzd2_6635,
																													BgL_tablez00_6634,
																													BgL_arg2004z00_2754);
																											}
																									}
																								}
																							}
																						}
																						{
																							long BgL_iz00_10488;

																							BgL_iz00_10488 =
																								(BgL_iz00_2742 + 1L);
																							BgL_iz00_2742 = BgL_iz00_10488;
																							goto
																								BgL_zc3z04anonymousza31997ze3z87_2743;
																						}
																					}
																				else
																					{	/* Unsafe/intext.scm 1227 */
																						BgL_tmpz00_10462 = ((bool_t) 0);
																					}
																				return BBOOL(BgL_tmpz00_10462);
																			}
																		}
																	}
																}
															else
																{
																	obj_t BgL_objz00_10491;

																	BgL_objz00_10491 = BgL_customz00_2736;
																	BgL_objz00_2825 = BgL_objz00_10491;
																	goto BGl_markze70ze7zz__intextz00;
																}
														}
													}
											}
										}
									else
										{	/* Unsafe/intext.scm 1317 */
											if (BGl_classzf3zf3zz__objectz00(BgL_objz00_2825))
												{	/* Unsafe/intext.scm 1319 */
													{	/* Unsafe/intext.scm 1320 */
														obj_t BgL_arg2047z00_2832;

														BgL_arg2047z00_2832 =
															SYMBOL_TO_STRING(BGl_classzd2namezd2zz__objectz00
															(BgL_objz00_2825));
														BGl_markze70ze7zz__intextz00(BgL_nbrefz00_6636,
															BgL_markzd2argzd2_6635, BgL_tablez00_6634,
															BgL_arg2047z00_2832);
													}
													{	/* Unsafe/intext.scm 1189 */
														obj_t BgL_mz00_5637;

														BgL_mz00_5637 =
															BGl_hashtablezd2getzd2zz__hashz00
															(BgL_tablez00_6634, BgL_objz00_2825);
														{	/* Unsafe/intext.scm 1190 */
															bool_t BgL_test3097z00_10498;

															if (STRUCTP(BgL_mz00_5637))
																{	/* Unsafe/intext.scm 668 */
																	BgL_test3097z00_10498 =
																		(STRUCT_KEY(BgL_mz00_5637) ==
																		BGl_symbol2744z00zz__intextz00);
																}
															else
																{	/* Unsafe/intext.scm 668 */
																	BgL_test3097z00_10498 = ((bool_t) 0);
																}
															if (BgL_test3097z00_10498)
																{
																	obj_t BgL_mz00_10503;

																	BgL_mz00_10503 = BgL_mz00_5637;
																	BgL_mz00_2710 = BgL_mz00_10503;
																	goto BgL_zc3z04anonymousza31979ze3z87_2711;
																}
															else
																{	/* Unsafe/intext.scm 1190 */
																	BgL_objz00_2759 = BgL_objz00_2825;
																	{	/* Unsafe/intext.scm 1241 */
																		obj_t BgL_fz00_2761;

																		{	/* Unsafe/intext.scm 1241 */
																			obj_t BgL_v1159z00_2762;

																			{	/* Unsafe/intext.scm 1241 */
																				obj_t BgL_tmpz00_10504;

																				BgL_tmpz00_10504 =
																					((obj_t) BgL_objz00_2759);
																				BgL_v1159z00_2762 =
																					BGL_CLASS_ALL_FIELDS
																					(BgL_tmpz00_10504);
																			}
																			{	/* Unsafe/intext.scm 1241 */
																				obj_t BgL_nv1160z00_2764;

																				{	/* Ieee/vector.scm 95 */

																					BgL_nv1160z00_2764 =
																						make_vector(VECTOR_LENGTH
																						(BgL_v1159z00_2762), BUNSPEC);
																				}
																				{	/* Unsafe/intext.scm 1241 */

																					{
																						long BgL_i1158z00_5486;

																						BgL_i1158z00_5486 = 0L;
																					BgL_zc3z04anonymousza32009ze3z87_5485:
																						if (
																							(BgL_i1158z00_5486 ==
																								VECTOR_LENGTH
																								(BgL_v1159z00_2762)))
																							{	/* Unsafe/intext.scm 1241 */
																								BgL_fz00_2761 =
																									BgL_nv1160z00_2764;
																							}
																						else
																							{	/* Unsafe/intext.scm 1241 */
																								VECTOR_SET(BgL_nv1160z00_2764,
																									BgL_i1158z00_5486,
																									BGl_classzd2fieldzd2namez00zz__objectz00
																									(VECTOR_REF(BgL_v1159z00_2762,
																											BgL_i1158z00_5486)));
																								{
																									long BgL_i1158z00_10515;

																									BgL_i1158z00_10515 =
																										(BgL_i1158z00_5486 + 1L);
																									BgL_i1158z00_5486 =
																										BgL_i1158z00_10515;
																									goto
																										BgL_zc3z04anonymousza32009ze3z87_5485;
																								}
																							}
																					}
																				}
																			}
																		}
																		{	/* Unsafe/intext.scm 680 */
																			obj_t BgL_arg1659z00_5498;

																			{	/* Unsafe/intext.scm 668 */
																				obj_t BgL_newz00_5499;

																				BgL_newz00_5499 =
																					create_struct
																					(BGl_symbol2744z00zz__intextz00,
																					(int) (4L));
																				{	/* Unsafe/intext.scm 668 */
																					obj_t BgL_auxz00_10521;
																					int BgL_tmpz00_10519;

																					BgL_auxz00_10521 = BINT((-1L));
																					BgL_tmpz00_10519 = (int) (3L);
																					STRUCT_SET(BgL_newz00_5499,
																						BgL_tmpz00_10519, BgL_auxz00_10521);
																				}
																				{	/* Unsafe/intext.scm 668 */
																					obj_t BgL_auxz00_10526;
																					int BgL_tmpz00_10524;

																					BgL_auxz00_10526 = BINT(0L);
																					BgL_tmpz00_10524 = (int) (2L);
																					STRUCT_SET(BgL_newz00_5499,
																						BgL_tmpz00_10524, BgL_auxz00_10526);
																				}
																				{	/* Unsafe/intext.scm 668 */
																					int BgL_tmpz00_10529;

																					BgL_tmpz00_10529 = (int) (1L);
																					STRUCT_SET(BgL_newz00_5499,
																						BgL_tmpz00_10529, BgL_fz00_2761);
																				}
																				{	/* Unsafe/intext.scm 668 */
																					int BgL_tmpz00_10532;

																					BgL_tmpz00_10532 = (int) (0L);
																					STRUCT_SET(BgL_newz00_5499,
																						BgL_tmpz00_10532, BgL_objz00_2759);
																				}
																				BgL_arg1659z00_5498 = BgL_newz00_5499;
																			}
																			BGl_hashtablezd2putz12zc0zz__hashz00
																				(BgL_tablez00_6634, BgL_objz00_2759,
																				BgL_arg1659z00_5498);
																		}
																		{
																			obj_t BgL_objz00_10536;

																			BgL_objz00_10536 = BgL_fz00_2761;
																			BgL_objz00_2825 = BgL_objz00_10536;
																			goto BGl_markze70ze7zz__intextz00;
																		}
																	}
																}
														}
													}
												}
											else
												{	/* Unsafe/intext.scm 1319 */
													if (STRUCTP(BgL_objz00_2825))
														{	/* Unsafe/intext.scm 1189 */
															obj_t BgL_mz00_5643;

															BgL_mz00_5643 =
																BGl_hashtablezd2getzd2zz__hashz00
																(BgL_tablez00_6634, BgL_objz00_2825);
															{	/* Unsafe/intext.scm 1190 */
																bool_t BgL_test3101z00_10540;

																if (STRUCTP(BgL_mz00_5643))
																	{	/* Unsafe/intext.scm 668 */
																		BgL_test3101z00_10540 =
																			(STRUCT_KEY(BgL_mz00_5643) ==
																			BGl_symbol2744z00zz__intextz00);
																	}
																else
																	{	/* Unsafe/intext.scm 668 */
																		BgL_test3101z00_10540 = ((bool_t) 0);
																	}
																if (BgL_test3101z00_10540)
																	{
																		obj_t BgL_mz00_10545;

																		BgL_mz00_10545 = BgL_mz00_5643;
																		BgL_mz00_2710 = BgL_mz00_10545;
																		goto BgL_zc3z04anonymousza31979ze3z87_2711;
																	}
																else
																	{	/* Unsafe/intext.scm 1192 */
																		bool_t BgL_tmpz00_10546;

																		BgL_objz00_2775 = BgL_objz00_2825;
																		{	/* Unsafe/intext.scm 680 */
																			obj_t BgL_arg1659z00_5504;

																			{	/* Unsafe/intext.scm 668 */
																				obj_t BgL_newz00_5505;

																				BgL_newz00_5505 =
																					create_struct
																					(BGl_symbol2744z00zz__intextz00,
																					(int) (4L));
																				{	/* Unsafe/intext.scm 668 */
																					obj_t BgL_auxz00_10551;
																					int BgL_tmpz00_10549;

																					BgL_auxz00_10551 = BINT((-1L));
																					BgL_tmpz00_10549 = (int) (3L);
																					STRUCT_SET(BgL_newz00_5505,
																						BgL_tmpz00_10549, BgL_auxz00_10551);
																				}
																				{	/* Unsafe/intext.scm 668 */
																					obj_t BgL_auxz00_10556;
																					int BgL_tmpz00_10554;

																					BgL_auxz00_10556 = BINT(0L);
																					BgL_tmpz00_10554 = (int) (2L);
																					STRUCT_SET(BgL_newz00_5505,
																						BgL_tmpz00_10554, BgL_auxz00_10556);
																				}
																				{	/* Unsafe/intext.scm 668 */
																					int BgL_tmpz00_10559;

																					BgL_tmpz00_10559 = (int) (1L);
																					STRUCT_SET(BgL_newz00_5505,
																						BgL_tmpz00_10559, BFALSE);
																				}
																				{	/* Unsafe/intext.scm 668 */
																					int BgL_tmpz00_10562;

																					BgL_tmpz00_10562 = (int) (0L);
																					STRUCT_SET(BgL_newz00_5505,
																						BgL_tmpz00_10562, BgL_objz00_2775);
																				}
																				BgL_arg1659z00_5504 = BgL_newz00_5505;
																			}
																			BGl_hashtablezd2putz12zc0zz__hashz00
																				(BgL_tablez00_6634, BgL_objz00_2775,
																				BgL_arg1659z00_5504);
																		}
																		{	/* Unsafe/intext.scm 1248 */
																			obj_t BgL_keyz00_2777;
																			int BgL_lenz00_2778;

																			{	/* Unsafe/intext.scm 1248 */
																				obj_t BgL_res2577z00_5511;

																				BgL_res2577z00_5511 =
																					STRUCT_KEY(((obj_t) BgL_objz00_2775));
																				BgL_keyz00_2777 = BgL_res2577z00_5511;
																			}
																			BgL_lenz00_2778 =
																				STRUCT_LENGTH(
																				((obj_t) BgL_objz00_2775));
																			BGl_markze70ze7zz__intextz00
																				(BgL_nbrefz00_6636,
																				BgL_markzd2argzd2_6635,
																				BgL_tablez00_6634, BgL_keyz00_2777);
																			{
																				long BgL_iz00_5519;

																				BgL_iz00_5519 = 0L;
																			BgL_for1092z00_5518:
																				if (
																					(BgL_iz00_5519 <
																						(long) (BgL_lenz00_2778)))
																					{	/* Unsafe/intext.scm 1251 */
																						{	/* Unsafe/intext.scm 1251 */
																							obj_t BgL_arg2017z00_5523;

																							BgL_arg2017z00_5523 =
																								STRUCT_REF(
																								((obj_t) BgL_objz00_2775),
																								(int) (BgL_iz00_5519));
																							BGl_markze70ze7zz__intextz00
																								(BgL_nbrefz00_6636,
																								BgL_markzd2argzd2_6635,
																								BgL_tablez00_6634,
																								BgL_arg2017z00_5523);
																						}
																						{
																							long BgL_iz00_10578;

																							BgL_iz00_10578 =
																								(BgL_iz00_5519 + 1L);
																							BgL_iz00_5519 = BgL_iz00_10578;
																							goto BgL_for1092z00_5518;
																						}
																					}
																				else
																					{	/* Unsafe/intext.scm 1251 */
																						BgL_tmpz00_10546 = ((bool_t) 0);
																					}
																			}
																		}
																		return BBOOL(BgL_tmpz00_10546);
																	}
															}
														}
													else
														{	/* Unsafe/intext.scm 1322 */
															if (CELLP(BgL_objz00_2825))
																{	/* Unsafe/intext.scm 1189 */
																	obj_t BgL_mz00_5649;

																	BgL_mz00_5649 =
																		BGl_hashtablezd2getzd2zz__hashz00
																		(BgL_tablez00_6634, BgL_objz00_2825);
																	{	/* Unsafe/intext.scm 1190 */
																		bool_t BgL_test3105z00_10584;

																		if (STRUCTP(BgL_mz00_5649))
																			{	/* Unsafe/intext.scm 668 */
																				BgL_test3105z00_10584 =
																					(STRUCT_KEY(BgL_mz00_5649) ==
																					BGl_symbol2744z00zz__intextz00);
																			}
																		else
																			{	/* Unsafe/intext.scm 668 */
																				BgL_test3105z00_10584 = ((bool_t) 0);
																			}
																		if (BgL_test3105z00_10584)
																			{
																				obj_t BgL_mz00_10589;

																				BgL_mz00_10589 = BgL_mz00_5649;
																				BgL_mz00_2710 = BgL_mz00_10589;
																				goto
																					BgL_zc3z04anonymousza31979ze3z87_2711;
																			}
																		else
																			{	/* Unsafe/intext.scm 1190 */
																				BgL_objz00_2786 = BgL_objz00_2825;
																				{	/* Unsafe/intext.scm 680 */
																					obj_t BgL_arg1659z00_5529;

																					{	/* Unsafe/intext.scm 668 */
																						obj_t BgL_newz00_5530;

																						BgL_newz00_5530 =
																							create_struct
																							(BGl_symbol2744z00zz__intextz00,
																							(int) (4L));
																						{	/* Unsafe/intext.scm 668 */
																							obj_t BgL_auxz00_10594;
																							int BgL_tmpz00_10592;

																							BgL_auxz00_10594 = BINT((-1L));
																							BgL_tmpz00_10592 = (int) (3L);
																							STRUCT_SET(BgL_newz00_5530,
																								BgL_tmpz00_10592,
																								BgL_auxz00_10594);
																						}
																						{	/* Unsafe/intext.scm 668 */
																							obj_t BgL_auxz00_10599;
																							int BgL_tmpz00_10597;

																							BgL_auxz00_10599 = BINT(0L);
																							BgL_tmpz00_10597 = (int) (2L);
																							STRUCT_SET(BgL_newz00_5530,
																								BgL_tmpz00_10597,
																								BgL_auxz00_10599);
																						}
																						{	/* Unsafe/intext.scm 668 */
																							int BgL_tmpz00_10602;

																							BgL_tmpz00_10602 = (int) (1L);
																							STRUCT_SET(BgL_newz00_5530,
																								BgL_tmpz00_10602, BFALSE);
																						}
																						{	/* Unsafe/intext.scm 668 */
																							int BgL_tmpz00_10605;

																							BgL_tmpz00_10605 = (int) (0L);
																							STRUCT_SET(BgL_newz00_5530,
																								BgL_tmpz00_10605,
																								BgL_objz00_2786);
																						}
																						BgL_arg1659z00_5529 =
																							BgL_newz00_5530;
																					}
																					BGl_hashtablezd2putz12zc0zz__hashz00
																						(BgL_tablez00_6634, BgL_objz00_2786,
																						BgL_arg1659z00_5529);
																				}
																				{	/* Unsafe/intext.scm 1256 */
																					obj_t BgL_arg2020z00_5528;

																					BgL_arg2020z00_5528 =
																						CELL_REF(((obj_t) BgL_objz00_2786));
																					{
																						obj_t BgL_objz00_10611;

																						BgL_objz00_10611 =
																							BgL_arg2020z00_5528;
																						BgL_objz00_2825 = BgL_objz00_10611;
																						goto BGl_markze70ze7zz__intextz00;
																					}
																				}
																			}
																	}
																}
															else
																{	/* Unsafe/intext.scm 1324 */
																	if (BGL_WEAKPTRP(BgL_objz00_2825))
																		{	/* Unsafe/intext.scm 1189 */
																			obj_t BgL_mz00_5655;

																			BgL_mz00_5655 =
																				BGl_hashtablezd2getzd2zz__hashz00
																				(BgL_tablez00_6634, BgL_objz00_2825);
																			{	/* Unsafe/intext.scm 1190 */
																				bool_t BgL_test3108z00_10615;

																				if (STRUCTP(BgL_mz00_5655))
																					{	/* Unsafe/intext.scm 668 */
																						BgL_test3108z00_10615 =
																							(STRUCT_KEY(BgL_mz00_5655) ==
																							BGl_symbol2744z00zz__intextz00);
																					}
																				else
																					{	/* Unsafe/intext.scm 668 */
																						BgL_test3108z00_10615 =
																							((bool_t) 0);
																					}
																				if (BgL_test3108z00_10615)
																					{
																						obj_t BgL_mz00_10620;

																						BgL_mz00_10620 = BgL_mz00_5655;
																						BgL_mz00_2710 = BgL_mz00_10620;
																						goto
																							BgL_zc3z04anonymousza31979ze3z87_2711;
																					}
																				else
																					{	/* Unsafe/intext.scm 1190 */
																						BgL_objz00_2789 = BgL_objz00_2825;
																						{	/* Unsafe/intext.scm 680 */
																							obj_t BgL_arg1659z00_5537;

																							{	/* Unsafe/intext.scm 668 */
																								obj_t BgL_newz00_5538;

																								BgL_newz00_5538 =
																									create_struct
																									(BGl_symbol2744z00zz__intextz00,
																									(int) (4L));
																								{	/* Unsafe/intext.scm 668 */
																									obj_t BgL_auxz00_10625;
																									int BgL_tmpz00_10623;

																									BgL_auxz00_10625 =
																										BINT((-1L));
																									BgL_tmpz00_10623 = (int) (3L);
																									STRUCT_SET(BgL_newz00_5538,
																										BgL_tmpz00_10623,
																										BgL_auxz00_10625);
																								}
																								{	/* Unsafe/intext.scm 668 */
																									obj_t BgL_auxz00_10630;
																									int BgL_tmpz00_10628;

																									BgL_auxz00_10630 = BINT(0L);
																									BgL_tmpz00_10628 = (int) (2L);
																									STRUCT_SET(BgL_newz00_5538,
																										BgL_tmpz00_10628,
																										BgL_auxz00_10630);
																								}
																								{	/* Unsafe/intext.scm 668 */
																									int BgL_tmpz00_10633;

																									BgL_tmpz00_10633 = (int) (1L);
																									STRUCT_SET(BgL_newz00_5538,
																										BgL_tmpz00_10633, BFALSE);
																								}
																								{	/* Unsafe/intext.scm 668 */
																									int BgL_tmpz00_10636;

																									BgL_tmpz00_10636 = (int) (0L);
																									STRUCT_SET(BgL_newz00_5538,
																										BgL_tmpz00_10636,
																										BgL_objz00_2789);
																								}
																								BgL_arg1659z00_5537 =
																									BgL_newz00_5538;
																							}
																							BGl_hashtablezd2putz12zc0zz__hashz00
																								(BgL_tablez00_6634,
																								BgL_objz00_2789,
																								BgL_arg1659z00_5537);
																						}
																						{	/* Unsafe/intext.scm 1261 */
																							obj_t BgL_arg2022z00_5536;

																							BgL_arg2022z00_5536 =
																								bgl_weakptr_data(
																								((obj_t) BgL_objz00_2789));
																							{
																								obj_t BgL_objz00_10642;

																								BgL_objz00_10642 =
																									BgL_arg2022z00_5536;
																								BgL_objz00_2825 =
																									BgL_objz00_10642;
																								goto
																									BGl_markze70ze7zz__intextz00;
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Unsafe/intext.scm 1326 */
																			if (STRINGP(BgL_objz00_2825))
																				{	/* Unsafe/intext.scm 1189 */
																					obj_t BgL_mz00_5661;

																					BgL_mz00_5661 =
																						BGl_hashtablezd2getzd2zz__hashz00
																						(BgL_tablez00_6634,
																						BgL_objz00_2825);
																					{	/* Unsafe/intext.scm 1190 */
																						bool_t BgL_test3111z00_10646;

																						if (STRUCTP(BgL_mz00_5661))
																							{	/* Unsafe/intext.scm 668 */
																								BgL_test3111z00_10646 =
																									(STRUCT_KEY(BgL_mz00_5661) ==
																									BGl_symbol2744z00zz__intextz00);
																							}
																						else
																							{	/* Unsafe/intext.scm 668 */
																								BgL_test3111z00_10646 =
																									((bool_t) 0);
																							}
																						if (BgL_test3111z00_10646)
																							{
																								obj_t BgL_mz00_10651;

																								BgL_mz00_10651 = BgL_mz00_5661;
																								BgL_mz00_2710 = BgL_mz00_10651;
																								goto
																									BgL_zc3z04anonymousza31979ze3z87_2711;
																							}
																						else
																							{	/* Unsafe/intext.scm 680 */
																								obj_t BgL_arg1659z00_5667;

																								{	/* Unsafe/intext.scm 668 */
																									obj_t BgL_newz00_5668;

																									BgL_newz00_5668 =
																										create_struct
																										(BGl_symbol2744z00zz__intextz00,
																										(int) (4L));
																									{	/* Unsafe/intext.scm 668 */
																										obj_t BgL_auxz00_10656;
																										int BgL_tmpz00_10654;

																										BgL_auxz00_10656 =
																											BINT((-1L));
																										BgL_tmpz00_10654 =
																											(int) (3L);
																										STRUCT_SET(BgL_newz00_5668,
																											BgL_tmpz00_10654,
																											BgL_auxz00_10656);
																									}
																									{	/* Unsafe/intext.scm 668 */
																										obj_t BgL_auxz00_10661;
																										int BgL_tmpz00_10659;

																										BgL_auxz00_10661 = BINT(0L);
																										BgL_tmpz00_10659 =
																											(int) (2L);
																										STRUCT_SET(BgL_newz00_5668,
																											BgL_tmpz00_10659,
																											BgL_auxz00_10661);
																									}
																									{	/* Unsafe/intext.scm 668 */
																										int BgL_tmpz00_10664;

																										BgL_tmpz00_10664 =
																											(int) (1L);
																										STRUCT_SET(BgL_newz00_5668,
																											BgL_tmpz00_10664, BFALSE);
																									}
																									{	/* Unsafe/intext.scm 668 */
																										int BgL_tmpz00_10667;

																										BgL_tmpz00_10667 =
																											(int) (0L);
																										STRUCT_SET(BgL_newz00_5668,
																											BgL_tmpz00_10667,
																											BgL_objz00_2825);
																									}
																									BgL_arg1659z00_5667 =
																										BgL_newz00_5668;
																								}
																								return
																									BGl_hashtablezd2putz12zc0zz__hashz00
																									(BgL_tablez00_6634,
																									BgL_objz00_2825,
																									BgL_arg1659z00_5667);
																							}
																					}
																				}
																			else
																				{	/* Unsafe/intext.scm 1328 */
																					if (SYMBOLP(BgL_objz00_2825))
																						{	/* Unsafe/intext.scm 1331 */
																							obj_t BgL_arg2054z00_2839;

																							BgL_arg2054z00_2839 =
																								SYMBOL_TO_STRING
																								(BgL_objz00_2825);
																							{
																								obj_t BgL_objz00_10674;

																								BgL_objz00_10674 =
																									BgL_arg2054z00_2839;
																								BgL_objz00_2825 =
																									BgL_objz00_10674;
																								goto
																									BGl_markze70ze7zz__intextz00;
																							}
																						}
																					else
																						{	/* Unsafe/intext.scm 1330 */
																							if (KEYWORDP(BgL_objz00_2825))
																								{	/* Unsafe/intext.scm 1333 */
																									obj_t BgL_arg2056z00_2841;

																									BgL_arg2056z00_2841 =
																										KEYWORD_TO_STRING
																										(BgL_objz00_2825);
																									{
																										obj_t BgL_objz00_10678;

																										BgL_objz00_10678 =
																											BgL_arg2056z00_2841;
																										BgL_objz00_2825 =
																											BgL_objz00_10678;
																										goto
																											BGl_markze70ze7zz__intextz00;
																									}
																								}
																							else
																								{	/* Unsafe/intext.scm 1332 */
																									if (UCS2_STRINGP
																										(BgL_objz00_2825))
																										{	/* Unsafe/intext.scm 1189 */
																											obj_t BgL_mz00_5675;

																											BgL_mz00_5675 =
																												BGl_hashtablezd2getzd2zz__hashz00
																												(BgL_tablez00_6634,
																												BgL_objz00_2825);
																											{	/* Unsafe/intext.scm 1190 */
																												bool_t
																													BgL_test3116z00_10682;
																												if (STRUCTP
																													(BgL_mz00_5675))
																													{	/* Unsafe/intext.scm 668 */
																														BgL_test3116z00_10682
																															=
																															(STRUCT_KEY
																															(BgL_mz00_5675) ==
																															BGl_symbol2744z00zz__intextz00);
																													}
																												else
																													{	/* Unsafe/intext.scm 668 */
																														BgL_test3116z00_10682
																															= ((bool_t) 0);
																													}
																												if (BgL_test3116z00_10682)
																													{
																														obj_t
																															BgL_mz00_10687;
																														BgL_mz00_10687 =
																															BgL_mz00_5675;
																														BgL_mz00_2710 =
																															BgL_mz00_10687;
																														goto
																															BgL_zc3z04anonymousza31979ze3z87_2711;
																													}
																												else
																													{	/* Unsafe/intext.scm 1190 */
																														BgL_objz00_2810 =
																															BgL_objz00_2825;
																														{	/* Unsafe/intext.scm 1286 */
																															obj_t
																																BgL_strz00_5586;
																															BgL_strz00_5586 =
																																ucs2_string_to_utf8_string
																																(((obj_t)
																																	BgL_objz00_2810));
																															{	/* Unsafe/intext.scm 680 */
																																obj_t
																																	BgL_arg1659z00_5588;
																																{	/* Unsafe/intext.scm 668 */
																																	obj_t
																																		BgL_newz00_5589;
																																	BgL_newz00_5589
																																		=
																																		create_struct
																																		(BGl_symbol2744z00zz__intextz00,
																																		(int) (4L));
																																	{	/* Unsafe/intext.scm 668 */
																																		obj_t
																																			BgL_auxz00_10694;
																																		int
																																			BgL_tmpz00_10692;
																																		BgL_auxz00_10694
																																			=
																																			BINT(
																																			(-1L));
																																		BgL_tmpz00_10692
																																			=
																																			(int)
																																			(3L);
																																		STRUCT_SET
																																			(BgL_newz00_5589,
																																			BgL_tmpz00_10692,
																																			BgL_auxz00_10694);
																																	}
																																	{	/* Unsafe/intext.scm 668 */
																																		obj_t
																																			BgL_auxz00_10699;
																																		int
																																			BgL_tmpz00_10697;
																																		BgL_auxz00_10699
																																			=
																																			BINT(0L);
																																		BgL_tmpz00_10697
																																			=
																																			(int)
																																			(2L);
																																		STRUCT_SET
																																			(BgL_newz00_5589,
																																			BgL_tmpz00_10697,
																																			BgL_auxz00_10699);
																																	}
																																	{	/* Unsafe/intext.scm 668 */
																																		int
																																			BgL_tmpz00_10702;
																																		BgL_tmpz00_10702
																																			=
																																			(int)
																																			(1L);
																																		STRUCT_SET
																																			(BgL_newz00_5589,
																																			BgL_tmpz00_10702,
																																			BgL_strz00_5586);
																																	}
																																	{	/* Unsafe/intext.scm 668 */
																																		int
																																			BgL_tmpz00_10705;
																																		BgL_tmpz00_10705
																																			=
																																			(int)
																																			(0L);
																																		STRUCT_SET
																																			(BgL_newz00_5589,
																																			BgL_tmpz00_10705,
																																			BgL_objz00_2810);
																																	}
																																	BgL_arg1659z00_5588
																																		=
																																		BgL_newz00_5589;
																																}
																																BGl_hashtablezd2putz12zc0zz__hashz00
																																	(BgL_tablez00_6634,
																																	BgL_objz00_2810,
																																	BgL_arg1659z00_5588);
																															}
																															{
																																obj_t
																																	BgL_objz00_10709;
																																BgL_objz00_10709
																																	=
																																	BgL_strz00_5586;
																																BgL_objz00_2825
																																	=
																																	BgL_objz00_10709;
																																goto
																																	BGl_markze70ze7zz__intextz00;
																															}
																														}
																													}
																											}
																										}
																									else
																										{	/* Unsafe/intext.scm 1334 */
																											if (VECTORP
																												(BgL_objz00_2825))
																												{	/* Unsafe/intext.scm 1189 */
																													obj_t BgL_mz00_5681;

																													BgL_mz00_5681 =
																														BGl_hashtablezd2getzd2zz__hashz00
																														(BgL_tablez00_6634,
																														BgL_objz00_2825);
																													{	/* Unsafe/intext.scm 1190 */
																														bool_t
																															BgL_test3119z00_10713;
																														if (STRUCTP
																															(BgL_mz00_5681))
																															{	/* Unsafe/intext.scm 668 */
																																BgL_test3119z00_10713
																																	=
																																	(STRUCT_KEY
																																	(BgL_mz00_5681)
																																	==
																																	BGl_symbol2744z00zz__intextz00);
																															}
																														else
																															{	/* Unsafe/intext.scm 668 */
																																BgL_test3119z00_10713
																																	=
																																	((bool_t) 0);
																															}
																														if (BgL_test3119z00_10713)
																															{
																																obj_t
																																	BgL_mz00_10718;
																																BgL_mz00_10718 =
																																	BgL_mz00_5681;
																																BgL_mz00_2710 =
																																	BgL_mz00_10718;
																																goto
																																	BgL_zc3z04anonymousza31979ze3z87_2711;
																															}
																														else
																															{	/* Unsafe/intext.scm 1192 */
																																bool_t
																																	BgL_tmpz00_10719;
																																BgL_objz00_2792
																																	=
																																	BgL_objz00_2825;
																																{	/* Unsafe/intext.scm 680 */
																																	obj_t
																																		BgL_arg1659z00_5544;
																																	{	/* Unsafe/intext.scm 668 */
																																		obj_t
																																			BgL_newz00_5545;
																																		BgL_newz00_5545
																																			=
																																			create_struct
																																			(BGl_symbol2744z00zz__intextz00,
																																			(int)
																																			(4L));
																																		{	/* Unsafe/intext.scm 668 */
																																			obj_t
																																				BgL_auxz00_10724;
																																			int
																																				BgL_tmpz00_10722;
																																			BgL_auxz00_10724
																																				=
																																				BINT(
																																				(-1L));
																																			BgL_tmpz00_10722
																																				=
																																				(int)
																																				(3L);
																																			STRUCT_SET
																																				(BgL_newz00_5545,
																																				BgL_tmpz00_10722,
																																				BgL_auxz00_10724);
																																		}
																																		{	/* Unsafe/intext.scm 668 */
																																			obj_t
																																				BgL_auxz00_10729;
																																			int
																																				BgL_tmpz00_10727;
																																			BgL_auxz00_10729
																																				=
																																				BINT
																																				(0L);
																																			BgL_tmpz00_10727
																																				=
																																				(int)
																																				(2L);
																																			STRUCT_SET
																																				(BgL_newz00_5545,
																																				BgL_tmpz00_10727,
																																				BgL_auxz00_10729);
																																		}
																																		{	/* Unsafe/intext.scm 668 */
																																			int
																																				BgL_tmpz00_10732;
																																			BgL_tmpz00_10732
																																				=
																																				(int)
																																				(1L);
																																			STRUCT_SET
																																				(BgL_newz00_5545,
																																				BgL_tmpz00_10732,
																																				BFALSE);
																																		}
																																		{	/* Unsafe/intext.scm 668 */
																																			int
																																				BgL_tmpz00_10735;
																																			BgL_tmpz00_10735
																																				=
																																				(int)
																																				(0L);
																																			STRUCT_SET
																																				(BgL_newz00_5545,
																																				BgL_tmpz00_10735,
																																				BgL_objz00_2792);
																																		}
																																		BgL_arg1659z00_5544
																																			=
																																			BgL_newz00_5545;
																																	}
																																	BGl_hashtablezd2putz12zc0zz__hashz00
																																		(BgL_tablez00_6634,
																																		BgL_objz00_2792,
																																		BgL_arg1659z00_5544);
																																}
																																{
																																	long
																																		BgL_iz00_5557;
																																	BgL_iz00_5557
																																		= 0L;
																																BgL_for1093z00_5556:
																																	if (
																																		(BgL_iz00_5557
																																			<
																																			VECTOR_LENGTH
																																			(((obj_t)
																																					BgL_objz00_2792))))
																																		{	/* Unsafe/intext.scm 1267 */
																																			{	/* Unsafe/intext.scm 1267 */
																																				obj_t
																																					BgL_arg2026z00_5561;
																																				BgL_arg2026z00_5561
																																					=
																																					VECTOR_REF
																																					(((obj_t) BgL_objz00_2792), BgL_iz00_5557);
																																				BGl_markze70ze7zz__intextz00
																																					(BgL_nbrefz00_6636,
																																					BgL_markzd2argzd2_6635,
																																					BgL_tablez00_6634,
																																					BgL_arg2026z00_5561);
																																			}
																																			{
																																				long
																																					BgL_iz00_10746;
																																				BgL_iz00_10746
																																					=
																																					(BgL_iz00_5557
																																					+ 1L);
																																				BgL_iz00_5557
																																					=
																																					BgL_iz00_10746;
																																				goto
																																					BgL_for1093z00_5556;
																																			}
																																		}
																																	else
																																		{	/* Unsafe/intext.scm 1267 */
																																			BgL_tmpz00_10719
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																																return
																																	BBOOL
																																	(BgL_tmpz00_10719);
																															}
																													}
																												}
																											else
																												{	/* Unsafe/intext.scm 1336 */
																													if (BGL_HVECTORP
																														(BgL_objz00_2825))
																														{	/* Unsafe/intext.scm 1189 */
																															obj_t
																																BgL_mz00_5687;
																															BgL_mz00_5687 =
																																BGl_hashtablezd2getzd2zz__hashz00
																																(BgL_tablez00_6634,
																																BgL_objz00_2825);
																															{	/* Unsafe/intext.scm 1190 */
																																bool_t
																																	BgL_test3123z00_10752;
																																if (STRUCTP
																																	(BgL_mz00_5687))
																																	{	/* Unsafe/intext.scm 668 */
																																		BgL_test3123z00_10752
																																			=
																																			(STRUCT_KEY
																																			(BgL_mz00_5687)
																																			==
																																			BGl_symbol2744z00zz__intextz00);
																																	}
																																else
																																	{	/* Unsafe/intext.scm 668 */
																																		BgL_test3123z00_10752
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test3123z00_10752)
																																	{
																																		obj_t
																																			BgL_mz00_10757;
																																		BgL_mz00_10757
																																			=
																																			BgL_mz00_5687;
																																		BgL_mz00_2710
																																			=
																																			BgL_mz00_10757;
																																		goto
																																			BgL_zc3z04anonymousza31979ze3z87_2711;
																																	}
																																else
																																	{	/* Unsafe/intext.scm 680 */
																																		obj_t
																																			BgL_arg1659z00_5693;
																																		{	/* Unsafe/intext.scm 668 */
																																			obj_t
																																				BgL_newz00_5694;
																																			BgL_newz00_5694
																																				=
																																				create_struct
																																				(BGl_symbol2744z00zz__intextz00,
																																				(int)
																																				(4L));
																																			{	/* Unsafe/intext.scm 668 */
																																				obj_t
																																					BgL_auxz00_10762;
																																				int
																																					BgL_tmpz00_10760;
																																				BgL_auxz00_10762
																																					=
																																					BINT(
																																					(-1L));
																																				BgL_tmpz00_10760
																																					=
																																					(int)
																																					(3L);
																																				STRUCT_SET
																																					(BgL_newz00_5694,
																																					BgL_tmpz00_10760,
																																					BgL_auxz00_10762);
																																			}
																																			{	/* Unsafe/intext.scm 668 */
																																				obj_t
																																					BgL_auxz00_10767;
																																				int
																																					BgL_tmpz00_10765;
																																				BgL_auxz00_10767
																																					=
																																					BINT
																																					(0L);
																																				BgL_tmpz00_10765
																																					=
																																					(int)
																																					(2L);
																																				STRUCT_SET
																																					(BgL_newz00_5694,
																																					BgL_tmpz00_10765,
																																					BgL_auxz00_10767);
																																			}
																																			{	/* Unsafe/intext.scm 668 */
																																				int
																																					BgL_tmpz00_10770;
																																				BgL_tmpz00_10770
																																					=
																																					(int)
																																					(1L);
																																				STRUCT_SET
																																					(BgL_newz00_5694,
																																					BgL_tmpz00_10770,
																																					BFALSE);
																																			}
																																			{	/* Unsafe/intext.scm 668 */
																																				int
																																					BgL_tmpz00_10773;
																																				BgL_tmpz00_10773
																																					=
																																					(int)
																																					(0L);
																																				STRUCT_SET
																																					(BgL_newz00_5694,
																																					BgL_tmpz00_10773,
																																					BgL_objz00_2825);
																																			}
																																			BgL_arg1659z00_5693
																																				=
																																				BgL_newz00_5694;
																																		}
																																		return
																																			BGl_hashtablezd2putz12zc0zz__hashz00
																																			(BgL_tablez00_6634,
																																			BgL_objz00_2825,
																																			BgL_arg1659z00_5693);
																																	}
																															}
																														}
																													else
																														{	/* Unsafe/intext.scm 1338 */
																															if (TVECTORP
																																(BgL_objz00_2825))
																																{	/* Unsafe/intext.scm 1189 */
																																	obj_t
																																		BgL_mz00_5699;
																																	BgL_mz00_5699
																																		=
																																		BGl_hashtablezd2getzd2zz__hashz00
																																		(BgL_tablez00_6634,
																																		BgL_objz00_2825);
																																	{	/* Unsafe/intext.scm 1190 */
																																		bool_t
																																			BgL_test3126z00_10780;
																																		if (STRUCTP
																																			(BgL_mz00_5699))
																																			{	/* Unsafe/intext.scm 668 */
																																				BgL_test3126z00_10780
																																					=
																																					(STRUCT_KEY
																																					(BgL_mz00_5699)
																																					==
																																					BGl_symbol2744z00zz__intextz00);
																																			}
																																		else
																																			{	/* Unsafe/intext.scm 668 */
																																				BgL_test3126z00_10780
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test3126z00_10780)
																																			{
																																				obj_t
																																					BgL_mz00_10785;
																																				BgL_mz00_10785
																																					=
																																					BgL_mz00_5699;
																																				BgL_mz00_2710
																																					=
																																					BgL_mz00_10785;
																																				goto
																																					BgL_zc3z04anonymousza31979ze3z87_2711;
																																			}
																																		else
																																			{	/* Unsafe/intext.scm 1190 */
																																				BgL_objz00_2802
																																					=
																																					BgL_objz00_2825;
																																				{	/* Unsafe/intext.scm 1271 */
																																					obj_t
																																						BgL_vz00_5566;
																																					BgL_vz00_5566
																																						=
																																						BGl_tvectorzd2ze3vectorz31zz__tvectorz00
																																						(BgL_objz00_2802);
																																					{	/* Unsafe/intext.scm 680 */
																																						obj_t
																																							BgL_arg1659z00_5568;
																																						{	/* Unsafe/intext.scm 668 */
																																							obj_t
																																								BgL_newz00_5569;
																																							BgL_newz00_5569
																																								=
																																								create_struct
																																								(BGl_symbol2744z00zz__intextz00,
																																								(int)
																																								(4L));
																																							{	/* Unsafe/intext.scm 668 */
																																								obj_t
																																									BgL_auxz00_10791;
																																								int
																																									BgL_tmpz00_10789;
																																								BgL_auxz00_10791
																																									=
																																									BINT
																																									(
																																									(-1L));
																																								BgL_tmpz00_10789
																																									=
																																									(int)
																																									(3L);
																																								STRUCT_SET
																																									(BgL_newz00_5569,
																																									BgL_tmpz00_10789,
																																									BgL_auxz00_10791);
																																							}
																																							{	/* Unsafe/intext.scm 668 */
																																								obj_t
																																									BgL_auxz00_10796;
																																								int
																																									BgL_tmpz00_10794;
																																								BgL_auxz00_10796
																																									=
																																									BINT
																																									(0L);
																																								BgL_tmpz00_10794
																																									=
																																									(int)
																																									(2L);
																																								STRUCT_SET
																																									(BgL_newz00_5569,
																																									BgL_tmpz00_10794,
																																									BgL_auxz00_10796);
																																							}
																																							{	/* Unsafe/intext.scm 668 */
																																								int
																																									BgL_tmpz00_10799;
																																								BgL_tmpz00_10799
																																									=
																																									(int)
																																									(1L);
																																								STRUCT_SET
																																									(BgL_newz00_5569,
																																									BgL_tmpz00_10799,
																																									BgL_vz00_5566);
																																							}
																																							{	/* Unsafe/intext.scm 668 */
																																								int
																																									BgL_tmpz00_10802;
																																								BgL_tmpz00_10802
																																									=
																																									(int)
																																									(0L);
																																								STRUCT_SET
																																									(BgL_newz00_5569,
																																									BgL_tmpz00_10802,
																																									BgL_objz00_2802);
																																							}
																																							BgL_arg1659z00_5568
																																								=
																																								BgL_newz00_5569;
																																						}
																																						BGl_hashtablezd2putz12zc0zz__hashz00
																																							(BgL_tablez00_6634,
																																							BgL_objz00_2802,
																																							BgL_arg1659z00_5568);
																																					}
																																					{	/* Unsafe/intext.scm 1273 */
																																						obj_t
																																							BgL_arg2030z00_5567;
																																						BgL_arg2030z00_5567
																																							=
																																							BGl_tvectorzd2idzd2zz__tvectorz00
																																							(BgL_objz00_2802);
																																						BGl_markze70ze7zz__intextz00
																																							(BgL_nbrefz00_6636,
																																							BgL_markzd2argzd2_6635,
																																							BgL_tablez00_6634,
																																							BgL_arg2030z00_5567);
																																					}
																																					{
																																						obj_t
																																							BgL_objz00_10808;
																																						BgL_objz00_10808
																																							=
																																							BgL_vz00_5566;
																																						BgL_objz00_2825
																																							=
																																							BgL_objz00_10808;
																																						goto
																																							BGl_markze70ze7zz__intextz00;
																																					}
																																				}
																																			}
																																	}
																																}
																															else
																																{	/* Unsafe/intext.scm 1340 */
																																	if (PROCEDUREP
																																		(BgL_objz00_2825))
																																		{	/* Unsafe/intext.scm 1189 */
																																			obj_t
																																				BgL_mz00_5705;
																																			BgL_mz00_5705
																																				=
																																				BGl_hashtablezd2getzd2zz__hashz00
																																				(BgL_tablez00_6634,
																																				BgL_objz00_2825);
																																			{	/* Unsafe/intext.scm 1190 */
																																				bool_t
																																					BgL_test3129z00_10812;
																																				if (STRUCTP(BgL_mz00_5705))
																																					{	/* Unsafe/intext.scm 668 */
																																						BgL_test3129z00_10812
																																							=
																																							(STRUCT_KEY
																																							(BgL_mz00_5705)
																																							==
																																							BGl_symbol2744z00zz__intextz00);
																																					}
																																				else
																																					{	/* Unsafe/intext.scm 668 */
																																						BgL_test3129z00_10812
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test3129z00_10812)
																																					{
																																						obj_t
																																							BgL_mz00_10817;
																																						BgL_mz00_10817
																																							=
																																							BgL_mz00_5705;
																																						BgL_mz00_2710
																																							=
																																							BgL_mz00_10817;
																																						goto
																																							BgL_zc3z04anonymousza31979ze3z87_2711;
																																					}
																																				else
																																					{	/* Unsafe/intext.scm 1190 */
																																						BgL_objz00_2818
																																							=
																																							BgL_objz00_2825;
																																						{	/* Unsafe/intext.scm 1298 */
																																							obj_t
																																								BgL_customz00_5611;
																																							BgL_customz00_5611
																																								=
																																								BGL_PROCEDURE_CALL1
																																								(BGl_za2procedurezd2ze3stringza2z31zz__intextz00,
																																								BgL_objz00_2818);
																																							{	/* Unsafe/intext.scm 680 */
																																								obj_t
																																									BgL_arg1659z00_5612;
																																								{	/* Unsafe/intext.scm 668 */
																																									obj_t
																																										BgL_newz00_5613;
																																									BgL_newz00_5613
																																										=
																																										create_struct
																																										(BGl_symbol2744z00zz__intextz00,
																																										(int)
																																										(4L));
																																									{	/* Unsafe/intext.scm 668 */
																																										obj_t
																																											BgL_auxz00_10826;
																																										int
																																											BgL_tmpz00_10824;
																																										BgL_auxz00_10826
																																											=
																																											BINT
																																											(
																																											(-1L));
																																										BgL_tmpz00_10824
																																											=
																																											(int)
																																											(3L);
																																										STRUCT_SET
																																											(BgL_newz00_5613,
																																											BgL_tmpz00_10824,
																																											BgL_auxz00_10826);
																																									}
																																									{	/* Unsafe/intext.scm 668 */
																																										obj_t
																																											BgL_auxz00_10831;
																																										int
																																											BgL_tmpz00_10829;
																																										BgL_auxz00_10831
																																											=
																																											BINT
																																											(0L);
																																										BgL_tmpz00_10829
																																											=
																																											(int)
																																											(2L);
																																										STRUCT_SET
																																											(BgL_newz00_5613,
																																											BgL_tmpz00_10829,
																																											BgL_auxz00_10831);
																																									}
																																									{	/* Unsafe/intext.scm 668 */
																																										int
																																											BgL_tmpz00_10834;
																																										BgL_tmpz00_10834
																																											=
																																											(int)
																																											(1L);
																																										STRUCT_SET
																																											(BgL_newz00_5613,
																																											BgL_tmpz00_10834,
																																											BgL_customz00_5611);
																																									}
																																									{	/* Unsafe/intext.scm 668 */
																																										int
																																											BgL_tmpz00_10837;
																																										BgL_tmpz00_10837
																																											=
																																											(int)
																																											(0L);
																																										STRUCT_SET
																																											(BgL_newz00_5613,
																																											BgL_tmpz00_10837,
																																											BgL_objz00_2818);
																																									}
																																									BgL_arg1659z00_5612
																																										=
																																										BgL_newz00_5613;
																																								}
																																								BGl_hashtablezd2putz12zc0zz__hashz00
																																									(BgL_tablez00_6634,
																																									BgL_objz00_2818,
																																									BgL_arg1659z00_5612);
																																							}
																																							{
																																								obj_t
																																									BgL_objz00_10841;
																																								BgL_objz00_10841
																																									=
																																									BgL_customz00_5611;
																																								BgL_objz00_2825
																																									=
																																									BgL_objz00_10841;
																																								goto
																																									BGl_markze70ze7zz__intextz00;
																																							}
																																						}
																																					}
																																			}
																																		}
																																	else
																																		{	/* Unsafe/intext.scm 1342 */
																																			if (CUSTOMP(BgL_objz00_2825))
																																				{	/* Unsafe/intext.scm 1189 */
																																					obj_t
																																						BgL_mz00_5711;
																																					BgL_mz00_5711
																																						=
																																						BGl_hashtablezd2getzd2zz__hashz00
																																						(BgL_tablez00_6634,
																																						BgL_objz00_2825);
																																					{	/* Unsafe/intext.scm 1190 */
																																						bool_t
																																							BgL_test3132z00_10845;
																																						if (STRUCTP(BgL_mz00_5711))
																																							{	/* Unsafe/intext.scm 668 */
																																								BgL_test3132z00_10845
																																									=
																																									(STRUCT_KEY
																																									(BgL_mz00_5711)
																																									==
																																									BGl_symbol2744z00zz__intextz00);
																																							}
																																						else
																																							{	/* Unsafe/intext.scm 668 */
																																								BgL_test3132z00_10845
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test3132z00_10845)
																																							{
																																								obj_t
																																									BgL_mz00_10850;
																																								BgL_mz00_10850
																																									=
																																									BgL_mz00_5711;
																																								BgL_mz00_2710
																																									=
																																									BgL_mz00_10850;
																																								goto
																																									BgL_zc3z04anonymousza31979ze3z87_2711;
																																							}
																																						else
																																							{	/* Unsafe/intext.scm 1190 */
																																								BgL_objz00_2813
																																									=
																																									BgL_objz00_2825;
																																								{	/* Unsafe/intext.scm 1292 */
																																									obj_t
																																										BgL_vz00_5594;
																																									{	/* Unsafe/intext.scm 1292 */
																																										obj_t
																																											BgL_fun2037z00_5595;
																																										{	/* Unsafe/intext.scm 1292 */
																																											char
																																												*BgL_arg2035z00_5596;
																																											BgL_arg2035z00_5596
																																												=
																																												CUSTOM_IDENTIFIER
																																												(
																																												((obj_t) BgL_objz00_2813));
																																											{	/* Unsafe/intext.scm 1414 */
																																												obj_t
																																													BgL_cellz00_5598;
																																												BgL_cellz00_5598
																																													=
																																													BGl_assocz00zz__r4_pairs_and_lists_6_3z00
																																													(string_to_bstring
																																													(BgL_arg2035z00_5596),
																																													BGl_za2customzd2serializa7ationza2z75zz__intextz00);
																																												if (PAIRP(BgL_cellz00_5598))
																																													{	/* Unsafe/intext.scm 1415 */
																																														BgL_fun2037z00_5595
																																															=
																																															CAR
																																															(CDR
																																															(BgL_cellz00_5598));
																																													}
																																												else
																																													{	/* Unsafe/intext.scm 1415 */
																																														BgL_fun2037z00_5595
																																															=
																																															BGl_errorz00zz__errorz00
																																															(BGl_string2673z00zz__intextz00,
																																															BGl_string2746z00zz__intextz00,
																																															BGl_excerptz00zz__intextz00
																																															(string_to_bstring
																																																(BgL_arg2035z00_5596)));
																																													}
																																											}
																																										}
																																										BgL_vz00_5594
																																											=
																																											BGL_PROCEDURE_CALL2
																																											(BgL_fun2037z00_5595,
																																											BgL_objz00_2813,
																																											BgL_markzd2argzd2_6635);
																																									}
																																									{	/* Unsafe/intext.scm 680 */
																																										obj_t
																																											BgL_arg1659z00_5605;
																																										{	/* Unsafe/intext.scm 668 */
																																											obj_t
																																												BgL_newz00_5606;
																																											BgL_newz00_5606
																																												=
																																												create_struct
																																												(BGl_symbol2744z00zz__intextz00,
																																												(int)
																																												(4L));
																																											{	/* Unsafe/intext.scm 668 */
																																												obj_t
																																													BgL_auxz00_10871;
																																												int
																																													BgL_tmpz00_10869;
																																												BgL_auxz00_10871
																																													=
																																													BINT
																																													(
																																													(-1L));
																																												BgL_tmpz00_10869
																																													=
																																													(int)
																																													(3L);
																																												STRUCT_SET
																																													(BgL_newz00_5606,
																																													BgL_tmpz00_10869,
																																													BgL_auxz00_10871);
																																											}
																																											{	/* Unsafe/intext.scm 668 */
																																												obj_t
																																													BgL_auxz00_10876;
																																												int
																																													BgL_tmpz00_10874;
																																												BgL_auxz00_10876
																																													=
																																													BINT
																																													(0L);
																																												BgL_tmpz00_10874
																																													=
																																													(int)
																																													(2L);
																																												STRUCT_SET
																																													(BgL_newz00_5606,
																																													BgL_tmpz00_10874,
																																													BgL_auxz00_10876);
																																											}
																																											{	/* Unsafe/intext.scm 668 */
																																												int
																																													BgL_tmpz00_10879;
																																												BgL_tmpz00_10879
																																													=
																																													(int)
																																													(1L);
																																												STRUCT_SET
																																													(BgL_newz00_5606,
																																													BgL_tmpz00_10879,
																																													BgL_vz00_5594);
																																											}
																																											{	/* Unsafe/intext.scm 668 */
																																												int
																																													BgL_tmpz00_10882;
																																												BgL_tmpz00_10882
																																													=
																																													(int)
																																													(0L);
																																												STRUCT_SET
																																													(BgL_newz00_5606,
																																													BgL_tmpz00_10882,
																																													BgL_objz00_2813);
																																											}
																																											BgL_arg1659z00_5605
																																												=
																																												BgL_newz00_5606;
																																										}
																																										BGl_hashtablezd2putz12zc0zz__hashz00
																																											(BgL_tablez00_6634,
																																											BgL_objz00_2813,
																																											BgL_arg1659z00_5605);
																																									}
																																									{
																																										obj_t
																																											BgL_objz00_10886;
																																										BgL_objz00_10886
																																											=
																																											BgL_vz00_5594;
																																										BgL_objz00_2825
																																											=
																																											BgL_objz00_10886;
																																										goto
																																											BGl_markze70ze7zz__intextz00;
																																									}
																																								}
																																							}
																																					}
																																				}
																																			else
																																				{	/* Unsafe/intext.scm 1344 */
																																					if (PROCESSP(BgL_objz00_2825))
																																						{	/* Unsafe/intext.scm 1189 */
																																							obj_t
																																								BgL_mz00_5717;
																																							BgL_mz00_5717
																																								=
																																								BGl_hashtablezd2getzd2zz__hashz00
																																								(BgL_tablez00_6634,
																																								BgL_objz00_2825);
																																							{	/* Unsafe/intext.scm 1190 */
																																								bool_t
																																									BgL_test3136z00_10890;
																																								if (STRUCTP(BgL_mz00_5717))
																																									{	/* Unsafe/intext.scm 668 */
																																										BgL_test3136z00_10890
																																											=
																																											(STRUCT_KEY
																																											(BgL_mz00_5717)
																																											==
																																											BGl_symbol2744z00zz__intextz00);
																																									}
																																								else
																																									{	/* Unsafe/intext.scm 668 */
																																										BgL_test3136z00_10890
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test3136z00_10890)
																																									{
																																										obj_t
																																											BgL_mz00_10895;
																																										BgL_mz00_10895
																																											=
																																											BgL_mz00_5717;
																																										BgL_mz00_2710
																																											=
																																											BgL_mz00_10895;
																																										goto
																																											BgL_zc3z04anonymousza31979ze3z87_2711;
																																									}
																																								else
																																									{	/* Unsafe/intext.scm 1190 */
																																										return
																																											BGL_PROCEDURE_CALL1
																																											(BGl_za2processzd2ze3stringza2z31zz__intextz00,
																																											BgL_objz00_2825);
																																									}
																																							}
																																						}
																																					else
																																						{	/* Unsafe/intext.scm 1346 */
																																							if (OPAQUEP(BgL_objz00_2825))
																																								{	/* Unsafe/intext.scm 1189 */
																																									obj_t
																																										BgL_mz00_5723;
																																									BgL_mz00_5723
																																										=
																																										BGl_hashtablezd2getzd2zz__hashz00
																																										(BgL_tablez00_6634,
																																										BgL_objz00_2825);
																																									{	/* Unsafe/intext.scm 1190 */
																																										bool_t
																																											BgL_test3139z00_10903;
																																										if (STRUCTP(BgL_mz00_5723))
																																											{	/* Unsafe/intext.scm 668 */
																																												BgL_test3139z00_10903
																																													=
																																													(STRUCT_KEY
																																													(BgL_mz00_5723)
																																													==
																																													BGl_symbol2744z00zz__intextz00);
																																											}
																																										else
																																											{	/* Unsafe/intext.scm 668 */
																																												BgL_test3139z00_10903
																																													=
																																													(
																																													(bool_t)
																																													0);
																																											}
																																										if (BgL_test3139z00_10903)
																																											{
																																												obj_t
																																													BgL_mz00_10908;
																																												BgL_mz00_10908
																																													=
																																													BgL_mz00_5723;
																																												BgL_mz00_2710
																																													=
																																													BgL_mz00_10908;
																																												goto
																																													BgL_zc3z04anonymousza31979ze3z87_2711;
																																											}
																																										else
																																											{	/* Unsafe/intext.scm 1190 */
																																												return
																																													BGL_PROCEDURE_CALL1
																																													(BGl_za2opaquezd2ze3stringza2z31zz__intextz00,
																																													BgL_objz00_2825);
																																											}
																																									}
																																								}
																																							else
																																								{	/* Unsafe/intext.scm 1348 */
																																									if (POINTERP(BgL_objz00_2825))
																																										{	/* Unsafe/intext.scm 1189 */
																																											obj_t
																																												BgL_mz00_5729;
																																											BgL_mz00_5729
																																												=
																																												BGl_hashtablezd2getzd2zz__hashz00
																																												(BgL_tablez00_6634,
																																												BgL_objz00_2825);
																																											{	/* Unsafe/intext.scm 1190 */
																																												bool_t
																																													BgL_test3142z00_10916;
																																												if (STRUCTP(BgL_mz00_5729))
																																													{	/* Unsafe/intext.scm 668 */
																																														BgL_test3142z00_10916
																																															=
																																															(STRUCT_KEY
																																															(BgL_mz00_5729)
																																															==
																																															BGl_symbol2744z00zz__intextz00);
																																													}
																																												else
																																													{	/* Unsafe/intext.scm 668 */
																																														BgL_test3142z00_10916
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																												if (BgL_test3142z00_10916)
																																													{
																																														obj_t
																																															BgL_mz00_10921;
																																														BgL_mz00_10921
																																															=
																																															BgL_mz00_5729;
																																														BgL_mz00_2710
																																															=
																																															BgL_mz00_10921;
																																														goto
																																															BgL_zc3z04anonymousza31979ze3z87_2711;
																																													}
																																												else
																																													{	/* Unsafe/intext.scm 1190 */
																																														return
																																															BFALSE;
																																													}
																																											}
																																										}
																																									else
																																										{	/* Unsafe/intext.scm 1350 */
																																											return
																																												BFALSE;
																																										}
																																								}
																																						}
																																				}
																																		}
																																}
																														}
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
						}
				}
			}
		}

	}



/* marked-pair-length */
	long BGl_markedzd2pairzd2lengthz00zz__intextz00(obj_t BgL_tablez00_58,
		obj_t BgL_lz00_59)
	{
		{	/* Unsafe/intext.scm 1360 */
			{
				obj_t BgL_lz00_2876;
				long BgL_rz00_2877;

				BgL_lz00_2876 = BgL_lz00_59;
				BgL_rz00_2877 = 1L;
			BgL_zc3z04anonymousza32069ze3z87_2878:
				{	/* Unsafe/intext.scm 1363 */
					obj_t BgL_vcdrz00_2879;

					BgL_vcdrz00_2879 = CDR(((obj_t) BgL_lz00_2876));
					if (PAIRP(BgL_vcdrz00_2879))
						{	/* Unsafe/intext.scm 1365 */
							obj_t BgL_markz00_2881;

							BgL_markz00_2881 =
								BGl_hashtablezd2getzd2zz__hashz00(BgL_tablez00_58,
								BgL_vcdrz00_2879);
							{	/* Unsafe/intext.scm 1366 */
								bool_t BgL_test3145z00_10927;

								if (
									((long) CINT(STRUCT_REF(
												((obj_t) BgL_markz00_2881), (int) (2L))) > 0L))
									{	/* Unsafe/intext.scm 1366 */
										BgL_test3145z00_10927 = ((bool_t) 1);
									}
								else
									{	/* Unsafe/intext.scm 1366 */
										BgL_test3145z00_10927 =
											(
											(long) CINT(STRUCT_REF(
													((obj_t) BgL_markz00_2881), (int) (3L))) >= 0L);
									}
								if (BgL_test3145z00_10927)
									{	/* Unsafe/intext.scm 1366 */
										return (BgL_rz00_2877 + 1L);
									}
								else
									{
										long BgL_rz00_10941;
										obj_t BgL_lz00_10940;

										BgL_lz00_10940 = BgL_vcdrz00_2879;
										BgL_rz00_10941 = (BgL_rz00_2877 + 1L);
										BgL_rz00_2877 = BgL_rz00_10941;
										BgL_lz00_2876 = BgL_lz00_10940;
										goto BgL_zc3z04anonymousza32069ze3z87_2878;
									}
							}
						}
					else
						{	/* Unsafe/intext.scm 1364 */
							return (BgL_rz00_2877 + 1L);
						}
				}
			}
		}

	}



/* make-serialization-substring */
	BGL_EXPORTED_DEF obj_t
		BGl_makezd2serializa7ationzd2substringza7zz__intextz00(obj_t BgL_strz00_60,
		long BgL_offsetz00_61, long BgL_siza7eza7_62)
	{
		{	/* Unsafe/intext.scm 1375 */
			{	/* Unsafe/intext.scm 134 */
				obj_t BgL_newz00_5744;

				BgL_newz00_5744 =
					create_struct(BGl_symbol2736z00zz__intextz00, (int) (3L));
				{	/* Unsafe/intext.scm 134 */
					obj_t BgL_auxz00_10948;
					int BgL_tmpz00_10946;

					BgL_auxz00_10948 = BINT(BgL_siza7eza7_62);
					BgL_tmpz00_10946 = (int) (2L);
					STRUCT_SET(BgL_newz00_5744, BgL_tmpz00_10946, BgL_auxz00_10948);
				}
				{	/* Unsafe/intext.scm 134 */
					obj_t BgL_auxz00_10953;
					int BgL_tmpz00_10951;

					BgL_auxz00_10953 = BINT(BgL_offsetz00_61);
					BgL_tmpz00_10951 = (int) (1L);
					STRUCT_SET(BgL_newz00_5744, BgL_tmpz00_10951, BgL_auxz00_10953);
				}
				{	/* Unsafe/intext.scm 134 */
					int BgL_tmpz00_10956;

					BgL_tmpz00_10956 = (int) (0L);
					STRUCT_SET(BgL_newz00_5744, BgL_tmpz00_10956, BgL_strz00_60);
				}
				return BgL_newz00_5744;
			}
		}

	}



/* &make-serialization-substring */
	obj_t BGl_z62makezd2serializa7ationzd2substringzc5zz__intextz00(obj_t
		BgL_envz00_6577, obj_t BgL_strz00_6578, obj_t BgL_offsetz00_6579,
		obj_t BgL_siza7eza7_6580)
	{
		{	/* Unsafe/intext.scm 1375 */
			{	/* Unsafe/intext.scm 134 */
				long BgL_auxz00_10975;
				long BgL_auxz00_10966;
				obj_t BgL_auxz00_10959;

				{	/* Unsafe/intext.scm 134 */
					obj_t BgL_tmpz00_10976;

					if (INTEGERP(BgL_siza7eza7_6580))
						{	/* Unsafe/intext.scm 134 */
							BgL_tmpz00_10976 = BgL_siza7eza7_6580;
						}
					else
						{
							obj_t BgL_auxz00_10979;

							BgL_auxz00_10979 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
								BINT(4483L), BGl_string2747z00zz__intextz00,
								BGl_string2748z00zz__intextz00, BgL_siza7eza7_6580);
							FAILURE(BgL_auxz00_10979, BFALSE, BFALSE);
						}
					BgL_auxz00_10975 = (long) CINT(BgL_tmpz00_10976);
				}
				{	/* Unsafe/intext.scm 134 */
					obj_t BgL_tmpz00_10967;

					if (INTEGERP(BgL_offsetz00_6579))
						{	/* Unsafe/intext.scm 134 */
							BgL_tmpz00_10967 = BgL_offsetz00_6579;
						}
					else
						{
							obj_t BgL_auxz00_10970;

							BgL_auxz00_10970 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
								BINT(4483L), BGl_string2747z00zz__intextz00,
								BGl_string2748z00zz__intextz00, BgL_offsetz00_6579);
							FAILURE(BgL_auxz00_10970, BFALSE, BFALSE);
						}
					BgL_auxz00_10966 = (long) CINT(BgL_tmpz00_10967);
				}
				if (STRINGP(BgL_strz00_6578))
					{	/* Unsafe/intext.scm 134 */
						BgL_auxz00_10959 = BgL_strz00_6578;
					}
				else
					{
						obj_t BgL_auxz00_10962;

						BgL_auxz00_10962 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
							BINT(4483L), BGl_string2747z00zz__intextz00,
							BGl_string2686z00zz__intextz00, BgL_strz00_6578);
						FAILURE(BgL_auxz00_10962, BFALSE, BFALSE);
					}
				return
					BGl_makezd2serializa7ationzd2substringza7zz__intextz00
					(BgL_auxz00_10959, BgL_auxz00_10966, BgL_auxz00_10975);
			}
		}

	}



/* register-custom-serialization! */
	BGL_EXPORTED_DEF obj_t
		BGl_registerzd2customzd2serializa7ationz12zb5zz__intextz00(obj_t
		BgL_identz00_63, obj_t BgL_serializa7erza7_64,
		obj_t BgL_unserializa7erza7_65)
	{
		{	/* Unsafe/intext.scm 1386 */
			{	/* Unsafe/intext.scm 1387 */
				obj_t BgL_cellz00_2890;

				BgL_cellz00_2890 =
					BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_identz00_63,
					BGl_za2customzd2serializa7ationza2z75zz__intextz00);
				if (PAIRP(BgL_cellz00_2890))
					{	/* Unsafe/intext.scm 1388 */
						return BFALSE;
					}
				else
					{	/* Unsafe/intext.scm 1389 */
						obj_t BgL_procz00_2892;

						{	/* Unsafe/intext.scm 1389 */
							int BgL_aux1095z00_2898;

							BgL_aux1095z00_2898 = PROCEDURE_ARITY(BgL_serializa7erza7_64);
							switch ((long) (BgL_aux1095z00_2898))
								{
								case 1L:

									{	/* Unsafe/intext.scm 1391 */
										obj_t BgL_zc3z04anonymousza32082ze3z87_6581;

										BgL_zc3z04anonymousza32082ze3z87_6581 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32082ze3ze5zz__intextz00,
											(int) (2L), (int) (1L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32082ze3z87_6581,
											(int) (0L), BgL_serializa7erza7_64);
										BgL_procz00_2892 = BgL_zc3z04anonymousza32082ze3z87_6581;
									} break;
								case 2L:

									BgL_procz00_2892 = BgL_serializa7erza7_64;
									break;
								default:
									BgL_procz00_2892 =
										BGl_errorz00zz__errorz00(BGl_string2749z00zz__intextz00,
										BGl_string2750z00zz__intextz00, BgL_serializa7erza7_64);
								}
						}
						{	/* Unsafe/intext.scm 1398 */
							obj_t BgL_arg2078z00_2893;

							{	/* Unsafe/intext.scm 1398 */
								obj_t BgL_list2079z00_2894;

								{	/* Unsafe/intext.scm 1398 */
									obj_t BgL_arg2080z00_2895;

									{	/* Unsafe/intext.scm 1398 */
										obj_t BgL_arg2081z00_2896;

										BgL_arg2081z00_2896 =
											MAKE_YOUNG_PAIR(BgL_unserializa7erza7_65, BNIL);
										BgL_arg2080z00_2895 =
											MAKE_YOUNG_PAIR(BgL_procz00_2892, BgL_arg2081z00_2896);
									}
									BgL_list2079z00_2894 =
										MAKE_YOUNG_PAIR(BgL_identz00_63, BgL_arg2080z00_2895);
								}
								BgL_arg2078z00_2893 = BgL_list2079z00_2894;
							}
							return (BGl_za2customzd2serializa7ationza2z75zz__intextz00 =
								MAKE_YOUNG_PAIR(BgL_arg2078z00_2893,
									BGl_za2customzd2serializa7ationza2z75zz__intextz00), BUNSPEC);
						}
					}
			}
		}

	}



/* &register-custom-serialization! */
	obj_t BGl_z62registerzd2customzd2serializa7ationz12zd7zz__intextz00(obj_t
		BgL_envz00_6582, obj_t BgL_identz00_6583, obj_t BgL_serializa7erza7_6584,
		obj_t BgL_unserializa7erza7_6585)
	{
		{	/* Unsafe/intext.scm 1386 */
			{	/* Unsafe/intext.scm 1387 */
				obj_t BgL_auxz00_11015;
				obj_t BgL_auxz00_11008;
				obj_t BgL_auxz00_11001;

				if (PROCEDUREP(BgL_unserializa7erza7_6585))
					{	/* Unsafe/intext.scm 1387 */
						BgL_auxz00_11015 = BgL_unserializa7erza7_6585;
					}
				else
					{
						obj_t BgL_auxz00_11018;

						BgL_auxz00_11018 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
							BINT(41350L), BGl_string2751z00zz__intextz00,
							BGl_string2752z00zz__intextz00, BgL_unserializa7erza7_6585);
						FAILURE(BgL_auxz00_11018, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_serializa7erza7_6584))
					{	/* Unsafe/intext.scm 1387 */
						BgL_auxz00_11008 = BgL_serializa7erza7_6584;
					}
				else
					{
						obj_t BgL_auxz00_11011;

						BgL_auxz00_11011 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
							BINT(41350L), BGl_string2751z00zz__intextz00,
							BGl_string2752z00zz__intextz00, BgL_serializa7erza7_6584);
						FAILURE(BgL_auxz00_11011, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_identz00_6583))
					{	/* Unsafe/intext.scm 1387 */
						BgL_auxz00_11001 = BgL_identz00_6583;
					}
				else
					{
						obj_t BgL_auxz00_11004;

						BgL_auxz00_11004 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
							BINT(41350L), BGl_string2751z00zz__intextz00,
							BGl_string2686z00zz__intextz00, BgL_identz00_6583);
						FAILURE(BgL_auxz00_11004, BFALSE, BFALSE);
					}
				return
					BGl_registerzd2customzd2serializa7ationz12zb5zz__intextz00
					(BgL_auxz00_11001, BgL_auxz00_11008, BgL_auxz00_11015);
			}
		}

	}



/* &<@anonymous:2082> */
	obj_t BGl_z62zc3z04anonymousza32082ze3ze5zz__intextz00(obj_t BgL_envz00_6586,
		obj_t BgL_oz00_6588, obj_t BgL_markzd2argzd2_6589)
	{
		{	/* Unsafe/intext.scm 1391 */
			{	/* Unsafe/intext.scm 1391 */
				obj_t BgL_serializa7erza7_6587;

				BgL_serializa7erza7_6587 =
					((obj_t) PROCEDURE_REF(BgL_envz00_6586, (int) (0L)));
				return BGL_PROCEDURE_CALL1(BgL_serializa7erza7_6587, BgL_oz00_6588);
			}
		}

	}



/* excerpt */
	obj_t BGl_excerptz00zz__intextz00(obj_t BgL_objz00_66)
	{
		{	/* Unsafe/intext.scm 1404 */
			if (STRINGP(BgL_objz00_66))
				{	/* Unsafe/intext.scm 1406 */
					if ((STRING_LENGTH(BgL_objz00_66) <= 80L))
						{	/* Unsafe/intext.scm 1407 */
							return string_for_read(BgL_objz00_66);
						}
					else
						{	/* Unsafe/intext.scm 1407 */
							return
								string_append(string_for_read(c_substring(BgL_objz00_66, 0L,
										80L)), BGl_string2753z00zz__intextz00);
						}
				}
			else
				{	/* Unsafe/intext.scm 1406 */
					return BgL_objz00_66;
				}
		}

	}



/* get-custom-serialization */
	BGL_EXPORTED_DEF obj_t
		BGl_getzd2customzd2serializa7ationza7zz__intextz00(obj_t BgL_identz00_69)
	{
		{	/* Unsafe/intext.scm 1431 */
			{	/* Unsafe/intext.scm 1432 */
				obj_t BgL_cellz00_2914;

				BgL_cellz00_2914 =
					BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_identz00_69,
					BGl_za2customzd2serializa7ationza2z75zz__intextz00);
				if (PAIRP(BgL_cellz00_2914))
					{	/* Unsafe/intext.scm 1434 */
						obj_t BgL_val0_1163z00_2916;
						obj_t BgL_val1_1164z00_2917;

						BgL_val0_1163z00_2916 = CAR(CDR(BgL_cellz00_2914));
						BgL_val1_1164z00_2917 = CAR(CDR(CDR(BgL_cellz00_2914)));
						{	/* Unsafe/intext.scm 1434 */
							int BgL_tmpz00_11047;

							BgL_tmpz00_11047 = (int) (2L);
							BGL_MVALUES_NUMBER_SET(BgL_tmpz00_11047);
						}
						{	/* Unsafe/intext.scm 1434 */
							int BgL_tmpz00_11050;

							BgL_tmpz00_11050 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_11050, BgL_val1_1164z00_2917);
						}
						return BgL_val0_1163z00_2916;
					}
				else
					{	/* Unsafe/intext.scm 1433 */
						{	/* Unsafe/intext.scm 1435 */
							int BgL_tmpz00_11053;

							BgL_tmpz00_11053 = (int) (2L);
							BGL_MVALUES_NUMBER_SET(BgL_tmpz00_11053);
						}
						{	/* Unsafe/intext.scm 1435 */
							int BgL_tmpz00_11056;

							BgL_tmpz00_11056 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_11056, BFALSE);
						}
						return BFALSE;
					}
			}
		}

	}



/* &get-custom-serialization */
	obj_t BGl_z62getzd2customzd2serializa7ationzc5zz__intextz00(obj_t
		BgL_envz00_6590, obj_t BgL_identz00_6591)
	{
		{	/* Unsafe/intext.scm 1431 */
			{	/* Unsafe/intext.scm 1432 */
				obj_t BgL_auxz00_11059;

				if (STRINGP(BgL_identz00_6591))
					{	/* Unsafe/intext.scm 1432 */
						BgL_auxz00_11059 = BgL_identz00_6591;
					}
				else
					{
						obj_t BgL_auxz00_11062;

						BgL_auxz00_11062 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
							BINT(43315L), BGl_string2754z00zz__intextz00,
							BGl_string2686z00zz__intextz00, BgL_identz00_6591);
						FAILURE(BgL_auxz00_11062, BFALSE, BFALSE);
					}
				return
					BGl_getzd2customzd2serializa7ationza7zz__intextz00(BgL_auxz00_11059);
			}
		}

	}



/* register-procedure-serialization! */
	BGL_EXPORTED_DEF obj_t
		BGl_registerzd2procedurezd2serializa7ationz12zb5zz__intextz00(obj_t
		BgL_serializa7erza7_70, obj_t BgL_unserializa7erza7_71)
	{
		{	/* Unsafe/intext.scm 1454 */
			BGl_za2procedurezd2ze3stringza2z31zz__intextz00 = BgL_serializa7erza7_70;
			return (BGl_za2stringzd2ze3procedureza2z31zz__intextz00 =
				BgL_unserializa7erza7_71, BUNSPEC);
		}

	}



/* &register-procedure-serialization! */
	obj_t BGl_z62registerzd2procedurezd2serializa7ationz12zd7zz__intextz00(obj_t
		BgL_envz00_6592, obj_t BgL_serializa7erza7_6593,
		obj_t BgL_unserializa7erza7_6594)
	{
		{	/* Unsafe/intext.scm 1454 */
			{	/* Unsafe/intext.scm 1455 */
				obj_t BgL_auxz00_11074;
				obj_t BgL_auxz00_11067;

				if (PROCEDUREP(BgL_unserializa7erza7_6594))
					{	/* Unsafe/intext.scm 1455 */
						BgL_auxz00_11074 = BgL_unserializa7erza7_6594;
					}
				else
					{
						obj_t BgL_auxz00_11077;

						BgL_auxz00_11077 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
							BINT(44469L), BGl_string2755z00zz__intextz00,
							BGl_string2752z00zz__intextz00, BgL_unserializa7erza7_6594);
						FAILURE(BgL_auxz00_11077, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_serializa7erza7_6593))
					{	/* Unsafe/intext.scm 1455 */
						BgL_auxz00_11067 = BgL_serializa7erza7_6593;
					}
				else
					{
						obj_t BgL_auxz00_11070;

						BgL_auxz00_11070 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
							BINT(44469L), BGl_string2755z00zz__intextz00,
							BGl_string2752z00zz__intextz00, BgL_serializa7erza7_6593);
						FAILURE(BgL_auxz00_11070, BFALSE, BFALSE);
					}
				return
					BGl_registerzd2procedurezd2serializa7ationz12zb5zz__intextz00
					(BgL_auxz00_11067, BgL_auxz00_11074);
			}
		}

	}



/* get-procedure-serialization */
	BGL_EXPORTED_DEF obj_t
		BGl_getzd2procedurezd2serializa7ationza7zz__intextz00(void)
	{
		{	/* Unsafe/intext.scm 1461 */
			return
				MAKE_YOUNG_PAIR(BGl_za2procedurezd2ze3stringza2z31zz__intextz00,
				BGl_za2stringzd2ze3procedureza2z31zz__intextz00);
		}

	}



/* &get-procedure-serialization */
	obj_t BGl_z62getzd2procedurezd2serializa7ationzc5zz__intextz00(obj_t
		BgL_envz00_6595)
	{
		{	/* Unsafe/intext.scm 1461 */
			return BGl_getzd2procedurezd2serializa7ationza7zz__intextz00();
		}

	}



/* register-process-serialization! */
	BGL_EXPORTED_DEF obj_t
		BGl_registerzd2processzd2serializa7ationz12zb5zz__intextz00(obj_t
		BgL_serializa7erza7_72, obj_t BgL_unserializa7erza7_73)
	{
		{	/* Unsafe/intext.scm 1481 */
			BGl_za2processzd2ze3stringza2z31zz__intextz00 = BgL_serializa7erza7_72;
			return (BGl_za2stringzd2ze3processza2z31zz__intextz00 =
				BgL_unserializa7erza7_73, BUNSPEC);
		}

	}



/* &register-process-serialization! */
	obj_t BGl_z62registerzd2processzd2serializa7ationz12zd7zz__intextz00(obj_t
		BgL_envz00_6596, obj_t BgL_serializa7erza7_6597,
		obj_t BgL_unserializa7erza7_6598)
	{
		{	/* Unsafe/intext.scm 1481 */
			{	/* Unsafe/intext.scm 1482 */
				obj_t BgL_auxz00_11091;
				obj_t BgL_auxz00_11084;

				if (PROCEDUREP(BgL_unserializa7erza7_6598))
					{	/* Unsafe/intext.scm 1482 */
						BgL_auxz00_11091 = BgL_unserializa7erza7_6598;
					}
				else
					{
						obj_t BgL_auxz00_11094;

						BgL_auxz00_11094 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
							BINT(45840L), BGl_string2756z00zz__intextz00,
							BGl_string2752z00zz__intextz00, BgL_unserializa7erza7_6598);
						FAILURE(BgL_auxz00_11094, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_serializa7erza7_6597))
					{	/* Unsafe/intext.scm 1482 */
						BgL_auxz00_11084 = BgL_serializa7erza7_6597;
					}
				else
					{
						obj_t BgL_auxz00_11087;

						BgL_auxz00_11087 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
							BINT(45840L), BGl_string2756z00zz__intextz00,
							BGl_string2752z00zz__intextz00, BgL_serializa7erza7_6597);
						FAILURE(BgL_auxz00_11087, BFALSE, BFALSE);
					}
				return
					BGl_registerzd2processzd2serializa7ationz12zb5zz__intextz00
					(BgL_auxz00_11084, BgL_auxz00_11091);
			}
		}

	}



/* register-opaque-serialization! */
	BGL_EXPORTED_DEF obj_t
		BGl_registerzd2opaquezd2serializa7ationz12zb5zz__intextz00(obj_t
		BgL_serializa7erza7_74, obj_t BgL_unserializa7erza7_75)
	{
		{	/* Unsafe/intext.scm 1508 */
			BGl_za2opaquezd2ze3stringza2z31zz__intextz00 = BgL_serializa7erza7_74;
			return (BGl_za2stringzd2ze3opaqueza2z31zz__intextz00 =
				BgL_unserializa7erza7_75, BUNSPEC);
		}

	}



/* &register-opaque-serialization! */
	obj_t BGl_z62registerzd2opaquezd2serializa7ationz12zd7zz__intextz00(obj_t
		BgL_envz00_6599, obj_t BgL_serializa7erza7_6600,
		obj_t BgL_unserializa7erza7_6601)
	{
		{	/* Unsafe/intext.scm 1508 */
			{	/* Unsafe/intext.scm 1509 */
				obj_t BgL_auxz00_11106;
				obj_t BgL_auxz00_11099;

				if (PROCEDUREP(BgL_unserializa7erza7_6601))
					{	/* Unsafe/intext.scm 1509 */
						BgL_auxz00_11106 = BgL_unserializa7erza7_6601;
					}
				else
					{
						obj_t BgL_auxz00_11109;

						BgL_auxz00_11109 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
							BINT(47186L), BGl_string2757z00zz__intextz00,
							BGl_string2752z00zz__intextz00, BgL_unserializa7erza7_6601);
						FAILURE(BgL_auxz00_11109, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_serializa7erza7_6600))
					{	/* Unsafe/intext.scm 1509 */
						BgL_auxz00_11099 = BgL_serializa7erza7_6600;
					}
				else
					{
						obj_t BgL_auxz00_11102;

						BgL_auxz00_11102 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
							BINT(47186L), BGl_string2757z00zz__intextz00,
							BGl_string2752z00zz__intextz00, BgL_serializa7erza7_6600);
						FAILURE(BgL_auxz00_11102, BFALSE, BFALSE);
					}
				return
					BGl_registerzd2opaquezd2serializa7ationz12zb5zz__intextz00
					(BgL_auxz00_11099, BgL_auxz00_11106);
			}
		}

	}



/* get-opaque-serialization */
	BGL_EXPORTED_DEF obj_t
		BGl_getzd2opaquezd2serializa7ationza7zz__intextz00(void)
	{
		{	/* Unsafe/intext.scm 1515 */
			{	/* Unsafe/intext.scm 1516 */
				obj_t BgL_val0_1169z00_2922;
				obj_t BgL_val1_1170z00_2923;

				BgL_val0_1169z00_2922 = BGl_za2opaquezd2ze3stringza2z31zz__intextz00;
				BgL_val1_1170z00_2923 = BGl_za2stringzd2ze3opaqueza2z31zz__intextz00;
				{	/* Unsafe/intext.scm 1516 */
					int BgL_tmpz00_11114;

					BgL_tmpz00_11114 = (int) (2L);
					BGL_MVALUES_NUMBER_SET(BgL_tmpz00_11114);
				}
				{	/* Unsafe/intext.scm 1516 */
					int BgL_tmpz00_11117;

					BgL_tmpz00_11117 = (int) (1L);
					BGL_MVALUES_VAL_SET(BgL_tmpz00_11117, BgL_val1_1170z00_2923);
				}
				return BgL_val0_1169z00_2922;
			}
		}

	}



/* &get-opaque-serialization */
	obj_t BGl_z62getzd2opaquezd2serializa7ationzc5zz__intextz00(obj_t
		BgL_envz00_6602)
	{
		{	/* Unsafe/intext.scm 1515 */
			return BGl_getzd2opaquezd2serializa7ationza7zz__intextz00();
		}

	}



/* register-class-serialization! */
	BGL_EXPORTED_DEF obj_t
		BGl_registerzd2classzd2serializa7ationz12zb5zz__intextz00(obj_t
		BgL_classz00_78, obj_t BgL_serializa7erza7_79,
		obj_t BgL_unserializa7erza7_80)
	{
		{	/* Unsafe/intext.scm 1532 */
			{
				obj_t BgL_unserializa7erza7_2951;
				long BgL_hashz00_2938;
				obj_t BgL_serializa7erza7_2939;

				{	/* Unsafe/intext.scm 1557 */
					long BgL_hashz00_2926;

					BgL_hashz00_2926 = BGl_classzd2hashzd2zz__objectz00(BgL_classz00_78);
					{	/* Unsafe/intext.scm 1557 */
						obj_t BgL_cellz00_2927;

						BgL_cellz00_2927 =
							BGl_assvz00zz__r4_pairs_and_lists_6_3z00(BINT(BgL_hashz00_2926),
							BGl_za2classzd2serializa7ationza2z75zz__intextz00);
						{	/* Unsafe/intext.scm 1558 */

							if (CBOOL(BgL_serializa7erza7_79))
								{	/* Unsafe/intext.scm 1563 */
									obj_t BgL_arg2094z00_2928;
									obj_t BgL_arg2095z00_2929;

									BgL_hashz00_2938 = BgL_hashz00_2926;
									BgL_serializa7erza7_2939 = BgL_serializa7erza7_79;
									{	/* Unsafe/intext.scm 1535 */
										int BgL_aux1097z00_2942;

										BgL_aux1097z00_2942 =
											PROCEDURE_ARITY(((obj_t) BgL_serializa7erza7_2939));
										switch ((long) (BgL_aux1097z00_2942))
											{
											case 1L:

												{	/* Unsafe/intext.scm 1537 */
													obj_t BgL_zc3z04anonymousza32106ze3z87_6605;

													BgL_zc3z04anonymousza32106ze3z87_6605 =
														MAKE_FX_PROCEDURE
														(BGl_z62zc3z04anonymousza32106ze3ze5zz__intextz00,
														(int) (2L), (int) (2L));
													PROCEDURE_SET(BgL_zc3z04anonymousza32106ze3z87_6605,
														(int) (0L), BgL_serializa7erza7_2939);
													PROCEDURE_SET(BgL_zc3z04anonymousza32106ze3z87_6605,
														(int) (1L), BINT(BgL_hashz00_2938));
													BgL_arg2094z00_2928 =
														BgL_zc3z04anonymousza32106ze3z87_6605;
												} break;
											case 2L:

												{	/* Unsafe/intext.scm 1541 */
													obj_t BgL_zc3z04anonymousza32107ze3z87_6604;

													BgL_zc3z04anonymousza32107ze3z87_6604 =
														MAKE_FX_PROCEDURE
														(BGl_z62zc3z04anonymousza32107ze3ze5zz__intextz00,
														(int) (2L), (int) (2L));
													PROCEDURE_SET(BgL_zc3z04anonymousza32107ze3z87_6604,
														(int) (0L), BgL_serializa7erza7_2939);
													PROCEDURE_SET(BgL_zc3z04anonymousza32107ze3z87_6604,
														(int) (1L), BINT(BgL_hashz00_2938));
													BgL_arg2094z00_2928 =
														BgL_zc3z04anonymousza32107ze3z87_6604;
												} break;
											default:
												BgL_arg2094z00_2928 =
													BGl_errorz00zz__errorz00
													(BGl_string2758z00zz__intextz00,
													BGl_string2750z00zz__intextz00,
													BgL_serializa7erza7_2939);
											}
									}
									{	/* Unsafe/intext.scm 1564 */
										obj_t BgL_arg2096z00_2930;

										BgL_arg2096z00_2930 =
											SYMBOL_TO_STRING(BGl_classzd2namezd2zz__objectz00
											(BgL_classz00_78));
										BgL_arg2095z00_2929 =
											string_append(BgL_arg2096z00_2930,
											BGl_string2759z00zz__intextz00);
									}
									BGl_genericzd2addzd2methodz12z12zz__objectz00
										(BGl_objectzd2serializa7erzd2envza7zz__intextz00,
										BgL_classz00_78, BgL_arg2094z00_2928, BgL_arg2095z00_2929);
								}
							else
								{	/* Unsafe/intext.scm 1559 */
									BFALSE;
								}
							if (PAIRP(BgL_cellz00_2927))
								{	/* Unsafe/intext.scm 1565 */
									return BFALSE;
								}
							else
								{	/* Unsafe/intext.scm 1567 */
									obj_t BgL_arg2100z00_2933;

									{	/* Unsafe/intext.scm 1567 */
										obj_t BgL_arg2101z00_2934;

										BgL_unserializa7erza7_2951 = BgL_unserializa7erza7_80;
										{	/* Unsafe/intext.scm 1548 */
											int BgL_aux1099z00_2954;

											BgL_aux1099z00_2954 =
												PROCEDURE_ARITY(BgL_unserializa7erza7_2951);
											switch ((long) (BgL_aux1099z00_2954))
												{
												case 1L:

													{	/* Unsafe/intext.scm 1550 */
														obj_t BgL_zc3z04anonymousza32109ze3z87_6603;

														BgL_zc3z04anonymousza32109ze3z87_6603 =
															MAKE_FX_PROCEDURE
															(BGl_z62zc3z04anonymousza32109ze3ze5zz__intextz00,
															(int) (2L), (int) (1L));
														PROCEDURE_SET(BgL_zc3z04anonymousza32109ze3z87_6603,
															(int) (0L), BgL_unserializa7erza7_2951);
														BgL_arg2101z00_2934 =
															BgL_zc3z04anonymousza32109ze3z87_6603;
													} break;
												case 2L:

													BgL_arg2101z00_2934 = BgL_unserializa7erza7_2951;
													break;
												default:
													BgL_arg2101z00_2934 =
														BGl_errorz00zz__errorz00
														(BGl_string2758z00zz__intextz00,
														BGl_string2750z00zz__intextz00,
														BgL_unserializa7erza7_2951);
												}
										}
										{	/* Unsafe/intext.scm 1567 */
											obj_t BgL_list2102z00_2935;

											{	/* Unsafe/intext.scm 1567 */
												obj_t BgL_arg2103z00_2936;

												{	/* Unsafe/intext.scm 1567 */
													obj_t BgL_arg2104z00_2937;

													BgL_arg2104z00_2937 =
														MAKE_YOUNG_PAIR(BgL_arg2101z00_2934, BNIL);
													BgL_arg2103z00_2936 =
														MAKE_YOUNG_PAIR(BgL_serializa7erza7_79,
														BgL_arg2104z00_2937);
												}
												BgL_list2102z00_2935 =
													MAKE_YOUNG_PAIR(BINT(BgL_hashz00_2926),
													BgL_arg2103z00_2936);
											}
											BgL_arg2100z00_2933 = BgL_list2102z00_2935;
										}
									}
									return (BGl_za2classzd2serializa7ationza2z75zz__intextz00 =
										MAKE_YOUNG_PAIR(BgL_arg2100z00_2933,
											BGl_za2classzd2serializa7ationza2z75zz__intextz00),
										BUNSPEC);
								}
						}
					}
				}
			}
		}

	}



/* &register-class-serialization! */
	obj_t BGl_z62registerzd2classzd2serializa7ationz12zd7zz__intextz00(obj_t
		BgL_envz00_6606, obj_t BgL_classz00_6607, obj_t BgL_serializa7erza7_6608,
		obj_t BgL_unserializa7erza7_6609)
	{
		{	/* Unsafe/intext.scm 1532 */
			{	/* Unsafe/intext.scm 1535 */
				obj_t BgL_auxz00_11167;

				if (PROCEDUREP(BgL_unserializa7erza7_6609))
					{	/* Unsafe/intext.scm 1535 */
						BgL_auxz00_11167 = BgL_unserializa7erza7_6609;
					}
				else
					{
						obj_t BgL_auxz00_11170;

						BgL_auxz00_11170 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
							BINT(48431L), BGl_string2760z00zz__intextz00,
							BGl_string2752z00zz__intextz00, BgL_unserializa7erza7_6609);
						FAILURE(BgL_auxz00_11170, BFALSE, BFALSE);
					}
				return
					BGl_registerzd2classzd2serializa7ationz12zb5zz__intextz00
					(BgL_classz00_6607, BgL_serializa7erza7_6608, BgL_auxz00_11167);
			}
		}

	}



/* &<@anonymous:2109> */
	obj_t BGl_z62zc3z04anonymousza32109ze3ze5zz__intextz00(obj_t BgL_envz00_6610,
		obj_t BgL_oz00_6612, obj_t BgL_argz00_6613)
	{
		{	/* Unsafe/intext.scm 1550 */
			{	/* Unsafe/intext.scm 1551 */
				obj_t BgL_unserializa7erza7_6611;

				BgL_unserializa7erza7_6611 =
					((obj_t) PROCEDURE_REF(BgL_envz00_6610, (int) (0L)));
				return BGL_PROCEDURE_CALL1(BgL_unserializa7erza7_6611, BgL_oz00_6612);
			}
		}

	}



/* &<@anonymous:2107> */
	obj_t BGl_z62zc3z04anonymousza32107ze3ze5zz__intextz00(obj_t BgL_envz00_6614,
		obj_t BgL_oz00_6617, obj_t BgL_markzd2argzd2_6618)
	{
		{	/* Unsafe/intext.scm 1541 */
			{	/* Unsafe/intext.scm 1542 */
				obj_t BgL_serializa7erza7_6615;
				obj_t BgL_hashz00_6616;

				BgL_serializa7erza7_6615 = PROCEDURE_REF(BgL_envz00_6614, (int) (0L));
				BgL_hashz00_6616 = PROCEDURE_REF(BgL_envz00_6614, (int) (1L));
				{	/* Unsafe/intext.scm 1542 */
					obj_t BgL_soz00_7057;

					BgL_soz00_7057 =
						BGL_PROCEDURE_CALL2(BgL_serializa7erza7_6615, BgL_oz00_6617,
						BgL_markzd2argzd2_6618);
					if ((BgL_soz00_7057 == BgL_oz00_6617))
						{	/* Unsafe/intext.scm 1543 */
							return BgL_soz00_7057;
						}
					else
						{	/* Unsafe/intext.scm 1543 */
							return MAKE_YOUNG_PAIR(BgL_hashz00_6616, BgL_soz00_7057);
						}
				}
			}
		}

	}



/* &<@anonymous:2106> */
	obj_t BGl_z62zc3z04anonymousza32106ze3ze5zz__intextz00(obj_t BgL_envz00_6619,
		obj_t BgL_oz00_6622, obj_t BgL_markzd2argzd2_6623)
	{
		{	/* Unsafe/intext.scm 1537 */
			{	/* Unsafe/intext.scm 1538 */
				obj_t BgL_serializa7erza7_6620;
				obj_t BgL_hashz00_6621;

				BgL_serializa7erza7_6620 = PROCEDURE_REF(BgL_envz00_6619, (int) (0L));
				BgL_hashz00_6621 = PROCEDURE_REF(BgL_envz00_6619, (int) (1L));
				{	/* Unsafe/intext.scm 1538 */
					obj_t BgL_soz00_7058;

					BgL_soz00_7058 =
						BGL_PROCEDURE_CALL1(BgL_serializa7erza7_6620, BgL_oz00_6622);
					if ((BgL_soz00_7058 == BgL_oz00_6622))
						{	/* Unsafe/intext.scm 1539 */
							return BgL_oz00_6622;
						}
					else
						{	/* Unsafe/intext.scm 1539 */
							return MAKE_YOUNG_PAIR(BgL_hashz00_6621, BgL_soz00_7058);
						}
				}
			}
		}

	}



/* find-class-unserializer */
	obj_t BGl_findzd2classzd2unserializa7erza7zz__intextz00(obj_t BgL_hashz00_81,
		obj_t BgL_namez00_82)
	{
		{	/* Unsafe/intext.scm 1573 */
			{	/* Unsafe/intext.scm 1574 */
				obj_t BgL_hz00_2960;

				if (((long) CINT(BgL_hashz00_81) == 0L))
					{	/* Unsafe/intext.scm 1574 */
						BgL_hz00_2960 =
							BINT(BGl_classzd2hashzd2zz__objectz00
							(BGl_objectz00zz__objectz00));
					}
				else
					{	/* Unsafe/intext.scm 1574 */
						BgL_hz00_2960 = BgL_hashz00_81;
					}
				{	/* Unsafe/intext.scm 1574 */
					obj_t BgL_cellz00_2961;

					BgL_cellz00_2961 =
						BGl_assvz00zz__r4_pairs_and_lists_6_3z00(BgL_hz00_2960,
						BGl_za2classzd2serializa7ationza2z75zz__intextz00);
					{	/* Unsafe/intext.scm 1575 */

						if (PAIRP(BgL_cellz00_2961))
							{	/* Unsafe/intext.scm 1576 */
								return CAR(CDR(CDR(BgL_cellz00_2961)));
							}
						else
							{	/* Unsafe/intext.scm 1579 */
								obj_t BgL_arg2111z00_2963;

								if (CBOOL(BgL_namez00_82))
									{	/* Unsafe/intext.scm 1580 */
										obj_t BgL_list2112z00_2964;

										BgL_list2112z00_2964 =
											MAKE_YOUNG_PAIR(BgL_namez00_82, BNIL);
										BgL_arg2111z00_2963 =
											BGl_formatz00zz__r4_output_6_10_3z00
											(BGl_string2761z00zz__intextz00, BgL_list2112z00_2964);
									}
								else
									{	/* Unsafe/intext.scm 1579 */
										BgL_arg2111z00_2963 = BGl_string2694z00zz__intextz00;
									}
								return
									BGl_errorz00zz__errorz00(BGl_string2671z00zz__intextz00,
									BgL_arg2111z00_2963, BgL_hashz00_81);
							}
					}
				}
			}
		}

	}



/* get-class-serialization */
	BGL_EXPORTED_DEF obj_t BGl_getzd2classzd2serializa7ationza7zz__intextz00(obj_t
		BgL_classz00_83)
	{
		{	/* Unsafe/intext.scm 1587 */
			{	/* Unsafe/intext.scm 1588 */
				long BgL_hashz00_2966;

				BgL_hashz00_2966 = BGl_classzd2hashzd2zz__objectz00(BgL_classz00_83);
				{	/* Unsafe/intext.scm 1588 */
					obj_t BgL_cellz00_2967;

					BgL_cellz00_2967 =
						BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BINT(BgL_hashz00_2966),
						BGl_za2classzd2serializa7ationza2z75zz__intextz00);
					{	/* Unsafe/intext.scm 1589 */

						if (PAIRP(BgL_cellz00_2967))
							{	/* Unsafe/intext.scm 1591 */
								obj_t BgL_val0_1171z00_2969;
								obj_t BgL_val1_1172z00_2970;

								BgL_val0_1171z00_2969 = CAR(CDR(BgL_cellz00_2967));
								BgL_val1_1172z00_2970 = CAR(CDR(CDR(BgL_cellz00_2967)));
								{	/* Unsafe/intext.scm 1591 */
									int BgL_tmpz00_11231;

									BgL_tmpz00_11231 = (int) (2L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_11231);
								}
								{	/* Unsafe/intext.scm 1591 */
									int BgL_tmpz00_11234;

									BgL_tmpz00_11234 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_11234, BgL_val1_1172z00_2970);
								}
								return BgL_val0_1171z00_2969;
							}
						else
							{	/* Unsafe/intext.scm 1590 */
								{	/* Unsafe/intext.scm 1592 */
									int BgL_tmpz00_11237;

									BgL_tmpz00_11237 = (int) (2L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_11237);
								}
								{	/* Unsafe/intext.scm 1592 */
									int BgL_tmpz00_11240;

									BgL_tmpz00_11240 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_11240, BFALSE);
								}
								return BFALSE;
							}
					}
				}
			}
		}

	}



/* &get-class-serialization */
	obj_t BGl_z62getzd2classzd2serializa7ationzc5zz__intextz00(obj_t
		BgL_envz00_6627, obj_t BgL_classz00_6628)
	{
		{	/* Unsafe/intext.scm 1587 */
			return
				BGl_getzd2classzd2serializa7ationza7zz__intextz00(BgL_classz00_6628);
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__intextz00(void)
	{
		{	/* Unsafe/intext.scm 20 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__intextz00(void)
	{
		{	/* Unsafe/intext.scm 20 */
			return
				BGl_registerzd2genericz12zc0zz__objectz00
				(BGl_objectzd2serializa7erzd2envza7zz__intextz00,
				BGl_proc2762z00zz__intextz00, BGl_objectz00zz__objectz00,
				BGl_string2763z00zz__intextz00);
		}

	}



/* &object-serializer1203 */
	obj_t BGl_z62objectzd2serializa7er1203z17zz__intextz00(obj_t BgL_envz00_6630,
		obj_t BgL_objz00_6631, obj_t BgL_markzd2argzd2_6632)
	{
		{	/* Unsafe/intext.scm 1521 */
			return ((obj_t) ((BgL_objectz00_bglt) BgL_objz00_6631));
		}

	}



/* object-serializer */
	obj_t BGl_objectzd2serializa7erz75zz__intextz00(BgL_objectz00_bglt
		BgL_objz00_76, obj_t BgL_markzd2argzd2_77)
	{
		{	/* Unsafe/intext.scm 1521 */
			{	/* Unsafe/intext.scm 1521 */
				obj_t BgL_method1204z00_2978;

				{	/* Unsafe/intext.scm 1521 */
					obj_t BgL_res2601z00_5834;

					{	/* Unsafe/intext.scm 1521 */
						long BgL_objzd2classzd2numz00_5805;

						BgL_objzd2classzd2numz00_5805 = BGL_OBJECT_CLASS_NUM(BgL_objz00_76);
						{	/* Unsafe/intext.scm 1521 */
							obj_t BgL_arg2549z00_5806;

							BgL_arg2549z00_5806 =
								PROCEDURE_REF(BGl_objectzd2serializa7erzd2envza7zz__intextz00,
								(int) (1L));
							{	/* Unsafe/intext.scm 1521 */
								int BgL_offsetz00_5809;

								BgL_offsetz00_5809 = (int) (BgL_objzd2classzd2numz00_5805);
								{	/* Unsafe/intext.scm 1521 */
									long BgL_offsetz00_5810;

									BgL_offsetz00_5810 =
										((long) (BgL_offsetz00_5809) - OBJECT_TYPE);
									{	/* Unsafe/intext.scm 1521 */
										long BgL_modz00_5811;

										BgL_modz00_5811 =
											(BgL_offsetz00_5810 >> (int) ((long) ((int) (4L))));
										{	/* Unsafe/intext.scm 1521 */
											long BgL_restz00_5813;

											BgL_restz00_5813 =
												(BgL_offsetz00_5810 &
												(long) (
													(int) (
														((long) (
																(int) (
																	(1L <<
																		(int) ((long) ((int) (4L)))))) - 1L))));
											{	/* Unsafe/intext.scm 1521 */

												{	/* Unsafe/intext.scm 1521 */
													obj_t BgL_bucketz00_5815;

													BgL_bucketz00_5815 =
														VECTOR_REF(
														((obj_t) BgL_arg2549z00_5806), BgL_modz00_5811);
													BgL_res2601z00_5834 =
														VECTOR_REF(
														((obj_t) BgL_bucketz00_5815), BgL_restz00_5813);
					}}}}}}}}
					BgL_method1204z00_2978 = BgL_res2601z00_5834;
				}
				return
					BGL_PROCEDURE_CALL2(BgL_method1204z00_2978,
					((obj_t) BgL_objz00_76), BgL_markzd2argzd2_77);
			}
		}

	}



/* &object-serializer */
	obj_t BGl_z62objectzd2serializa7erz17zz__intextz00(obj_t BgL_envz00_6624,
		obj_t BgL_objz00_6625, obj_t BgL_markzd2argzd2_6626)
	{
		{	/* Unsafe/intext.scm 1521 */
			{	/* Unsafe/intext.scm 1521 */
				BgL_objectz00_bglt BgL_auxz00_11277;

				{	/* Unsafe/intext.scm 1521 */
					bool_t BgL_test3173z00_11278;

					{	/* Unsafe/intext.scm 1521 */
						obj_t BgL_classz00_7060;

						BgL_classz00_7060 = BGl_objectz00zz__objectz00;
						if (BGL_OBJECTP(BgL_objz00_6625))
							{	/* Unsafe/intext.scm 1521 */
								BgL_objectz00_bglt BgL_arg2547z00_7062;
								long BgL_arg2548z00_7063;

								BgL_arg2547z00_7062 = (BgL_objectz00_bglt) (BgL_objz00_6625);
								BgL_arg2548z00_7063 = BGL_CLASS_DEPTH(BgL_classz00_7060);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Unsafe/intext.scm 1521 */
										long BgL_idxz00_7071;

										BgL_idxz00_7071 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg2547z00_7062);
										{	/* Unsafe/intext.scm 1521 */
											obj_t BgL_arg2537z00_7072;

											{	/* Unsafe/intext.scm 1521 */
												long BgL_arg2539z00_7073;

												BgL_arg2539z00_7073 =
													(BgL_idxz00_7071 + BgL_arg2548z00_7063);
												BgL_arg2537z00_7072 =
													VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													BgL_arg2539z00_7073);
											}
											BgL_test3173z00_11278 =
												(BgL_arg2537z00_7072 == BgL_classz00_7060);
									}}
								else
									{	/* Unsafe/intext.scm 1521 */
										bool_t BgL_res2766z00_7099;

										{	/* Unsafe/intext.scm 1521 */
											obj_t BgL_oclassz00_7081;

											{	/* Unsafe/intext.scm 1521 */
												obj_t BgL_arg2555z00_7089;
												long BgL_arg2557z00_7090;

												BgL_arg2555z00_7089 =
													(BGl_za2classesza2z00zz__objectz00);
												{	/* Unsafe/intext.scm 1521 */
													long BgL_arg2558z00_7091;

													BgL_arg2558z00_7091 =
														BGL_OBJECT_CLASS_NUM(BgL_arg2547z00_7062);
													BgL_arg2557z00_7090 =
														(BgL_arg2558z00_7091 - OBJECT_TYPE);
												}
												BgL_oclassz00_7081 =
													VECTOR_REF(BgL_arg2555z00_7089, BgL_arg2557z00_7090);
											}
											{	/* Unsafe/intext.scm 1521 */
												bool_t BgL__ortest_1152z00_7082;

												BgL__ortest_1152z00_7082 =
													(BgL_classz00_7060 == BgL_oclassz00_7081);
												if (BgL__ortest_1152z00_7082)
													{	/* Unsafe/intext.scm 1521 */
														BgL_res2766z00_7099 = BgL__ortest_1152z00_7082;
													}
												else
													{	/* Unsafe/intext.scm 1521 */
														long BgL_odepthz00_7083;

														{	/* Unsafe/intext.scm 1521 */
															obj_t BgL_arg2542z00_7084;

															BgL_arg2542z00_7084 = (BgL_oclassz00_7081);
															BgL_odepthz00_7083 =
																BGL_CLASS_DEPTH(BgL_arg2542z00_7084);
														}
														if ((BgL_arg2548z00_7063 < BgL_odepthz00_7083))
															{	/* Unsafe/intext.scm 1521 */
																obj_t BgL_arg2540z00_7086;

																{	/* Unsafe/intext.scm 1521 */
																	obj_t BgL_arg2541z00_7087;

																	BgL_arg2541z00_7087 = (BgL_oclassz00_7081);
																	BgL_arg2540z00_7086 =
																		BGL_CLASS_ANCESTORS_REF(BgL_arg2541z00_7087,
																		BgL_arg2548z00_7063);
																}
																BgL_res2766z00_7099 =
																	(BgL_arg2540z00_7086 == BgL_classz00_7060);
															}
														else
															{	/* Unsafe/intext.scm 1521 */
																BgL_res2766z00_7099 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test3173z00_11278 = BgL_res2766z00_7099;
									}
							}
						else
							{	/* Unsafe/intext.scm 1521 */
								BgL_test3173z00_11278 = ((bool_t) 0);
							}
					}
					if (BgL_test3173z00_11278)
						{	/* Unsafe/intext.scm 1521 */
							BgL_auxz00_11277 = ((BgL_objectz00_bglt) BgL_objz00_6625);
						}
					else
						{
							obj_t BgL_auxz00_11303;

							BgL_auxz00_11303 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2683z00zz__intextz00,
								BINT(47760L), BGl_string2764z00zz__intextz00,
								BGl_string2695z00zz__intextz00, BgL_objz00_6625);
							FAILURE(BgL_auxz00_11303, BFALSE, BFALSE);
						}
				}
				return
					BGl_objectzd2serializa7erz75zz__intextz00(BgL_auxz00_11277,
					BgL_markzd2argzd2_6626);
			}
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__intextz00(void)
	{
		{	/* Unsafe/intext.scm 20 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__intextz00(void)
	{
		{	/* Unsafe/intext.scm 20 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2765z00zz__intextz00));
			BGl_modulezd2initializa7ationz75zz__hashz00(254893342L,
				BSTRING_TO_STRING(BGl_string2765z00zz__intextz00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string2765z00zz__intextz00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string2765z00zz__intextz00));
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(115192690L,
				BSTRING_TO_STRING(BGl_string2765z00zz__intextz00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L,
				BSTRING_TO_STRING(BGl_string2765z00zz__intextz00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string2765z00zz__intextz00));
			BGl_modulezd2initializa7ationz75zz__urlz00(337061926L,
				BSTRING_TO_STRING(BGl_string2765z00zz__intextz00));
			return
				BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L,
				BSTRING_TO_STRING(BGl_string2765z00zz__intextz00));
		}

	}

#ifdef __cplusplus
}
#endif
