/*===========================================================================*/
/*   (Llib/intext.scm)                                                       */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c Llib/intext.scm -indent -o objs/obj_u/Llib/intext.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>
#include <signal.h>


/* Object type definitions */

extern BgL_objectz00_bglt BGl_allocatezd2instancezd2zz__objectz00(obj_t);
extern bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__intextz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__hashz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
static obj_t BGl_cellzd2markz12zc0zz__intextz00(obj_t);
static obj_t BGl_printzd2marqueurzd2zz__intextz00(unsigned char);
extern obj_t make_string(int, unsigned char);
static obj_t BGl_methodzd2initzd2zz__intextz00();
static obj_t BGl_za2bufferza2z00zz__intextz00 = BUNSPEC;
static long BGl_za2pointeurza2z00zz__intextz00;
extern obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static long BGl_taillezd2duzd2motz00zz__intextz00(obj_t);
static obj_t BGl_za2customzd2serializa7ationza2z75zz__intextz00 = BUNSPEC;
static obj_t BGl_za2opaquezd2tableza2zd2zz__intextz00 = BUNSPEC;
static obj_t BGl_za2stringzd2ze3opaqueza2z31zz__intextz00 = BUNSPEC;
static long BGl_za2bufferzd2lenza2zd2zz__intextz00;
extern obj_t real_to_string(double);
extern obj_t string_to_symbol(char *);
static obj_t BGl_zc3anonymousza31021ze3z83zz__intextz00(obj_t, obj_t);
static obj_t BGl_getzd2ucs2zd2stringzd2markzd2zz__intextz00(obj_t);
static obj_t BGl__registerzd2customzd2serializa7ationza7zz__intextz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_za2processzd2tableza2zd2zz__intextz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31023ze3z83zz__intextz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t obj_to_string(obj_t);
static obj_t BGl_readzd2stringzd2zz__intextz00(obj_t);
static obj_t BGl_za2stringzd2markzd2tableza2z00zz__intextz00 = BUNSPEC;
static double BGl_readzd2nombrezd2flottantz00zz__intextz00(obj_t);
static obj_t BGl_zc3anonymousza31025ze3z83zz__intextz00(obj_t, obj_t);
extern obj_t ucs2_string_to_utf8_string(obj_t);
static obj_t BGl__stringzd2ze3objz31zz__intextz00(obj_t, obj_t);
static obj_t BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(obj_t);
extern obj_t make_vector(int, obj_t);
extern BgL_objectz00_bglt BGl_structzb2objectzd2ze3objectz83zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl__registerzd2procedurezd2serializa7ationza7zz__intextz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31027ze3z83zz__intextz00(obj_t, obj_t);
extern obj_t BGl_objectzd2ze3structz31zz__objectz00(BgL_objectz00_bglt);
extern obj_t BGl_customzd2hashzd2zz__customz00(obj_t, int);
static obj_t BGl_getzd2customzd2hashzd2tablezd2zz__intextz00();
extern obj_t BGl_vectorzd2ze3tvectorz31zz__tvectorz00(obj_t, obj_t);
extern obj_t blit_string(obj_t, int, obj_t, int, int);
static obj_t BGl_zc3anonymousza31029ze3z83zz__intextz00(obj_t, obj_t);
static long BGl_markedzd2pairzd2lengthz00zz__intextz00(obj_t);
static obj_t BGl_za2customzd2markzd2tableza2z00zz__intextz00 = BUNSPEC;
static obj_t BGl_tvectorzd2markz12zc0zz__intextz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31031ze3z83zz__intextz00(obj_t, obj_t);
static obj_t BGl_za2pointerzd2tableza2zd2zz__intextz00 = BUNSPEC;
static obj_t BGl_printzd2itemzd2zz__intextz00(obj_t, obj_t);
static obj_t BGl_vectorzd2markz12zc0zz__intextz00(obj_t);
extern obj_t BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_za2tvectorzd2tableza2zd2zz__intextz00 = BUNSPEC;
extern obj_t string_to_bstring(char *);
static obj_t BGl_za2refzd2vectorza2zd2zz__intextz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31810ze3z83zz__intextz00(obj_t, obj_t);
extern obj_t BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_getzd2customzd2markz00zz__intextz00(obj_t);
static obj_t BGl_printzd2motzd2zz__intextz00(obj_t);
static long BGl_za2refza2z00zz__intextz00;
extern long get_hash_power_number_from_pointer(obj_t, long);
static obj_t BGl_zc3anonymousza31603ze3z83zz__intextz00(obj_t, obj_t);
extern ucs2_t BGl_integerzd2ze3ucs2z31zz__ucs2z00(int);
static obj_t BGl__setzd2objzd2stringzd2modez12zc0zz__intextz00(obj_t, obj_t);
extern obj_t BGl_za2classesza2z00zz__objectz00;
BGL_EXPORTED_DECL obj_t BGl_registerzd2opaquezd2serializa7ationza7zz__intextz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_registerzd2processzd2serializa7ationza7zz__intextz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_setzd2objzd2stringzd2modez12zc0zz__intextz00(obj_t);
static obj_t BGl_vector4519z00zz__intextz00 = BUNSPEC;
extern obj_t BGl_getzd2hashzd2zz__hashz00(obj_t, obj_t);
static obj_t BGl_pairzd2markz12zc0zz__intextz00(obj_t);
static obj_t BGl_printzd2structzd2zz__intextz00(obj_t, unsigned char, obj_t);
static obj_t BGl_za2inputzd2bufferza2zd2zz__intextz00 = BUNSPEC;
static obj_t BGl_za2stringzd2ze3procedureza2z31zz__intextz00 = BUNSPEC;
static obj_t BGl_readzd2itemzd2zz__intextz00(obj_t);
static obj_t BGl_loopz00zz__intextz00(obj_t);
static obj_t BGl_ucs2zd2stringzd2markz12z12zz__intextz00(obj_t);
static obj_t BGl_printzd2charszd2zz__intextz00(obj_t, obj_t);
extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_registerzd2procedurezd2serializa7ationza7zz__intextz00(obj_t, obj_t);
static obj_t BGl_za2stringzd2ze3processza2z31zz__intextz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t string_to_obj(obj_t);
static long BGl_za2taillezd2duzd2motzd2maximumza2zd2zz__intextz00;
static obj_t BGl_cnstzd2initzd2zz__intextz00();
static obj_t BGl_za2opaquezd2ze3stringza2z31zz__intextz00 = BUNSPEC;
extern obj_t utf8_string_to_ucs2_string(obj_t);
static obj_t BGl_printzd2dizd2zz__intextz00(long);
extern long BGl_classzd2hashzd2zz__objectz00(obj_t);
static obj_t BGl_customzd2markz12zc0zz__intextz00(obj_t);
static obj_t BGl_za2procedurezd2ze3stringza2z31zz__intextz00 = BUNSPEC;
extern obj_t BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static bool_t BGl_za2epairzf3za2zf3zz__intextz00;
extern obj_t c_substring(obj_t, int, int);
extern obj_t BGl_tvectorzd2ze3vectorz31zz__tvectorz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_registerzd2customzd2serializa7ationza7zz__intextz00(obj_t, obj_t, obj_t);
static obj_t BGl_structzd2markz12zc0zz__intextz00(obj_t);
static int BGl_readzd2taillezd2zz__intextz00(obj_t);
extern obj_t BGl_putzd2hashz12zc0zz__hashz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__intextz00();
extern obj_t BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_stringzd2markz12zc0zz__intextz00(obj_t);
extern obj_t make_struct(obj_t, int, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__intextz00 = BUNSPEC;
static obj_t BGl_za2procedurezd2tableza2zd2zz__intextz00 = BUNSPEC;
static obj_t BGl_za2processzd2ze3stringza2z31zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4540z00zz__intextz00 = BUNSPEC;
static obj_t BGl__objzd2ze3stringz31zz__intextz00(obj_t, obj_t);
static obj_t BGl_symbol4537z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4536z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4535z00zz__intextz00 = BUNSPEC;
static obj_t BGl_objectzd2markz12zc0zz__intextz00(obj_t, obj_t);
extern obj_t BGl_tvectorzd2idzd2zz__tvectorz00(obj_t);
extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
static long BGl_za2nbzd2refza2zd2zz__intextz00;
extern obj_t string_to_keyword(char *);
extern bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_za2definingza2z00zz__intextz00 = BUNSPEC;
static obj_t BGl__registerzd2processzd2serializa7ationza7zz__intextz00(obj_t, obj_t, obj_t);
extern obj_t BGl_makezd2hashzd2tablez00zz__hashz00(long, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__registerzd2opaquezd2serializa7ationza7zz__intextz00(obj_t, obj_t, obj_t);
extern bool_t BGl_hashzd2tablezf3z21zz__hashz00(obj_t);
static obj_t BGl_toplevelzd2initzd2zz__intextz00();
static obj_t BGl_pairzd2markzd2gcz12z12zz__intextz00(obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_registerzd2procedurezd2serializa7ationzd2envz75zz__intextz00, BgL_bgl__registerza7d2procedureza7d2serializa7a7ationza7a7za7za7__intextza7004555za7, BGl__registerzd2procedurezd2serializa7ationza7zz__intextz00, 0L, 2 );
extern obj_t BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00;
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2ze3objzd2envze3zz__intextz00, BgL_bgl__stringza7d2za7e3objza731za7za7__intextza7004556z00, BGl__stringzd2ze3objz31zz__intextz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2objzd2stringzd2modez12zd2envz12zz__intextz00, BgL_bgl__setza7d2objza7d2stringza7d2modeza712za7c0za7za7__intextza7004557z00, BGl__setzd2objzd2stringzd2modez12zc0zz__intextz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_registerzd2processzd2serializa7ationzd2envz75zz__intextz00, BgL_bgl__registerza7d2processza7d2serializa7a7ationza7a7za7za7__intextza7004558za7, BGl__registerzd2processzd2serializa7ationza7zz__intextz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_registerzd2opaquezd2serializa7ationzd2envz75zz__intextz00, BgL_bgl__registerza7d2opaqueza7d2serializa7a7ationza7a7za7za7__intextza7004559za7, BGl__registerzd2opaquezd2serializa7ationza7zz__intextz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4521z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31021za7e3za783za7za7__intextza7004560za7, BGl_zc3anonymousza31021ze3z83zz__intextz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4522z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31023za7e3za783za7za7__intextza7004561za7, BGl_zc3anonymousza31023ze3z83zz__intextz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4523z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31025za7e3za783za7za7__intextza7004562za7, BGl_zc3anonymousza31025ze3z83zz__intextz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4524z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31027za7e3za783za7za7__intextza7004563za7, BGl_zc3anonymousza31027ze3z83zz__intextz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4525z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31029za7e3za783za7za7__intextza7004564za7, BGl_zc3anonymousza31029ze3z83zz__intextz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4526z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31031za7e3za783za7za7__intextza7004565za7, BGl_zc3anonymousza31031ze3z83zz__intextz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4542z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31603za7e3za783za7za7__intextza7004566za7, BGl_zc3anonymousza31603ze3z83zz__intextz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4544z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31810za7e3za783za7za7__intextza7004567za7, BGl_zc3anonymousza31810ze3z83zz__intextz00, 0L, 1 );
DEFINE_STRING( BGl_string4547z00zz__intextz00, BgL_bgl_string4547za700za7za7__intextza7004568z00, "Unknown object", 14 );
extern obj_t BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00;
DEFINE_STRING( BGl_string4546z00zz__intextz00, BgL_bgl_string4546za700za7za7__intextza7004569z00, "unregistered custom", 19 );
DEFINE_STRING( BGl_string4545z00zz__intextz00, BgL_bgl_string4545za700za7za7__intextza7004570z00, "Illegal string", 14 );
DEFINE_STRING( BGl_string4543z00zz__intextz00, BgL_bgl_string4543za700za7za7__intextza7004571z00, "Illegal ucs2-string", 19 );
DEFINE_STRING( BGl_string4541z00zz__intextz00, BgL_bgl_string4541za700za7za7__intextza7004572z00, "Illegal custom", 14 );
DEFINE_STRING( BGl_string4539z00zz__intextz00, BgL_bgl_string4539za700za7za7__intextza7004573z00, "corrupted class", 15 );
DEFINE_STRING( BGl_string4538z00zz__intextz00, BgL_bgl_string4538za700za7za7__intextza7004574z00, "Can't unserialize custom object", 31 );
DEFINE_STRING( BGl_string4534z00zz__intextz00, BgL_bgl_string4534za700za7za7__intextza7004575z00, "can't extern procedure", 22 );
DEFINE_STRING( BGl_string4533z00zz__intextz00, BgL_bgl_string4533za700za7za7__intextza7004576z00, "Can't intern procedure item", 27 );
DEFINE_STRING( BGl_string4532z00zz__intextz00, BgL_bgl_string4532za700za7za7__intextza7004577z00, "can't extern process", 20 );
DEFINE_STRING( BGl_string4531z00zz__intextz00, BgL_bgl_string4531za700za7za7__intextza7004578z00, "Can't intern process item", 25 );
DEFINE_STRING( BGl_string4530z00zz__intextz00, BgL_bgl_string4530za700za7za7__intextza7004579z00, "can't extern opaque", 19 );
DEFINE_STRING( BGl_string4529z00zz__intextz00, BgL_bgl_string4529za700za7za7__intextza7004580z00, "obj->string", 11 );
DEFINE_STRING( BGl_string4528z00zz__intextz00, BgL_bgl_string4528za700za7za7__intextza7004581z00, "Can't intern opaque item", 24 );
DEFINE_STRING( BGl_string4527z00zz__intextz00, BgL_bgl_string4527za700za7za7__intextza7004582z00, "string->obj", 11 );
DEFINE_EXPORT_PROCEDURE( BGl_registerzd2customzd2serializa7ationzd2envz75zz__intextz00, BgL_bgl__registerza7d2customza7d2serializa7a7ationza7a7za7za7__intextza7004583za7, BGl__registerzd2customzd2serializa7ationza7zz__intextz00, 0L, 3 );
DEFINE_STRING( BGl_string4520z00zz__intextz00, BgL_bgl_string4520za700za7za7__intextza7004584z00, "", 0 );
DEFINE_EXPORT_PROCEDURE( BGl_objzd2ze3stringzd2envze3zz__intextz00, BgL_bgl__objza7d2za7e3stringza731za7za7__intextza7004585z00, BGl__objzd2ze3stringz31zz__intextz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__intextz00(long BgL_checksumz00_4354, char * BgL_fromz00_4355)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__intextz00))
{ 
BGl_requirezd2initializa7ationz75zz__intextz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__intextz00(); 
BGl_importedzd2moduleszd2initz00zz__intextz00(); 
BGl_toplevelzd2initzd2zz__intextz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__intextz00()
{ AN_OBJECT;
{ /* ./Llib/intext.scm 19 */
BGl_vector4519z00zz__intextz00 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BNIL); 
BGl_symbol4535z00zz__intextz00 = 
string_to_symbol("epair"); 
BGl_symbol4536z00zz__intextz00 = 
string_to_symbol("pair"); 
BGl_symbol4537z00zz__intextz00 = 
string_to_symbol("done"); 
return ( 
BGl_symbol4540z00zz__intextz00 = 
string_to_symbol("mark"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__intextz00()
{ AN_OBJECT;
{ /* ./Llib/intext.scm 19 */
BGl_za2refzd2vectorza2zd2zz__intextz00 = BGl_vector4519z00zz__intextz00; 
BGl_za2definingza2z00zz__intextz00 = BFALSE; 
BGl_za2pointeurza2z00zz__intextz00 = ((long)0); 
BGl_za2nbzd2refza2zd2zz__intextz00 = ((long)0); 
BGl_za2refza2z00zz__intextz00 = ((long)0); 
BGl_za2epairzf3za2zf3zz__intextz00 = ((bool_t)1); 
BGl_za2bufferza2z00zz__intextz00 = BGl_string4520z00zz__intextz00; 
BGl_za2bufferzd2lenza2zd2zz__intextz00 = ((long)0); 
BGl_za2inputzd2bufferza2zd2zz__intextz00 = BGl_string4520z00zz__intextz00; 
BGl_za2pointerzd2tableza2zd2zz__intextz00 = BNIL; 
BGl_za2stringzd2markzd2tableza2z00zz__intextz00 = BNIL; 
BGl_za2customzd2markzd2tableza2z00zz__intextz00 = BUNSPEC; 
BGl_za2tvectorzd2tableza2zd2zz__intextz00 = BNIL; 
BGl_za2taillezd2duzd2motzd2maximumza2zd2zz__intextz00 = sizeof( long ); 
BGl_za2customzd2serializa7ationza2z75zz__intextz00 = BNIL; 
BGl_za2procedurezd2ze3stringza2z31zz__intextz00 = BGl_proc4521z00zz__intextz00; 
BGl_za2stringzd2ze3procedureza2z31zz__intextz00 = BGl_proc4522z00zz__intextz00; 
BGl_za2procedurezd2tableza2zd2zz__intextz00 = BNIL; 
BGl_za2processzd2ze3stringza2z31zz__intextz00 = BGl_proc4523z00zz__intextz00; 
BGl_za2stringzd2ze3processza2z31zz__intextz00 = BGl_proc4524z00zz__intextz00; 
BGl_za2processzd2tableza2zd2zz__intextz00 = BNIL; 
BGl_za2opaquezd2ze3stringza2z31zz__intextz00 = BGl_proc4525z00zz__intextz00; 
BGl_za2stringzd2ze3opaqueza2z31zz__intextz00 = BGl_proc4526z00zz__intextz00; 
return ( 
BGl_za2opaquezd2tableza2zd2zz__intextz00 = BNIL, BUNSPEC) ;} 
}



/* <anonymous:1031> */
obj_t BGl_zc3anonymousza31031ze3z83zz__intextz00(obj_t BgL_envz00_4293, obj_t BgL_stringz00_4294)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1689 */
{ 
obj_t BgL_stringz00_604;
BgL_stringz00_604 = BgL_stringz00_4294; 
FAILURE(BGl_string4527z00zz__intextz00,BGl_string4528z00zz__intextz00,BgL_stringz00_604);} } 
}



/* <anonymous:1029> */
obj_t BGl_zc3anonymousza31029ze3z83zz__intextz00(obj_t BgL_envz00_4295, obj_t BgL_itemz00_4296)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1682 */
{ 
obj_t BgL_itemz00_602;
BgL_itemz00_602 = BgL_itemz00_4296; 
FAILURE(BGl_string4529z00zz__intextz00,BGl_string4530z00zz__intextz00,BgL_itemz00_602);} } 
}



/* <anonymous:1027> */
obj_t BGl_zc3anonymousza31027ze3z83zz__intextz00(obj_t BgL_envz00_4297, obj_t BgL_stringz00_4298)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1657 */
{ 
obj_t BgL_stringz00_600;
BgL_stringz00_600 = BgL_stringz00_4298; 
FAILURE(BGl_string4527z00zz__intextz00,BGl_string4531z00zz__intextz00,BgL_stringz00_600);} } 
}



/* <anonymous:1025> */
obj_t BGl_zc3anonymousza31025ze3z83zz__intextz00(obj_t BgL_envz00_4299, obj_t BgL_itemz00_4300)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1650 */
{ 
obj_t BgL_itemz00_598;
BgL_itemz00_598 = BgL_itemz00_4300; 
FAILURE(BGl_string4529z00zz__intextz00,BGl_string4532z00zz__intextz00,BgL_itemz00_598);} } 
}



/* <anonymous:1023> */
obj_t BGl_zc3anonymousza31023ze3z83zz__intextz00(obj_t BgL_envz00_4301, obj_t BgL_stringz00_4302)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1625 */
{ 
obj_t BgL_stringz00_596;
BgL_stringz00_596 = BgL_stringz00_4302; 
FAILURE(BGl_string4527z00zz__intextz00,BGl_string4533z00zz__intextz00,BgL_stringz00_596);} } 
}



/* <anonymous:1021> */
obj_t BGl_zc3anonymousza31021ze3z83zz__intextz00(obj_t BgL_envz00_4303, obj_t BgL_itemz00_4304)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1618 */
{ 
obj_t BgL_itemz00_594;
BgL_itemz00_594 = BgL_itemz00_4304; 
FAILURE(BGl_string4529z00zz__intextz00,BGl_string4534z00zz__intextz00,BgL_itemz00_594);} } 
}



/* verifie-taille-buffer! */
obj_t BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(obj_t BgL_taillez00_1)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 162 */
{ /* ./Llib/intext.scm 163 */
long BgL_lz00_606;
{ /* ./Llib/intext.scm 163 */
long BgL_arg1044z00_613;
{ /* ./Llib/intext.scm 163 */
long BgL_auxz00_4375;long BgL_auxz00_4373;
BgL_auxz00_4375 = 
(BGl_za2taillezd2duzd2motzd2maximumza2zd2zz__intextz00+((long)1)); 
BgL_auxz00_4373 = 
(long)CINT(BgL_taillez00_1); 
BgL_arg1044z00_613 = 
(BgL_auxz00_4373+BgL_auxz00_4375); } 
BgL_lz00_606 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_arg1044z00_613); } 
if(
(BgL_lz00_606>=BGl_za2bufferzd2lenza2zd2zz__intextz00))
{ /* ./Llib/intext.scm 164 */
{ /* ./Llib/intext.scm 166 */
long BgL_vieillezd2longeurzd2_608;obj_t BgL_vieuxzd2bufferzd2_609;
BgL_vieillezd2longeurzd2_608 = BGl_za2bufferzd2lenza2zd2zz__intextz00; 
BgL_vieuxzd2bufferzd2_609 = BGl_za2bufferza2z00zz__intextz00; 
{ /* ./Llib/intext.scm 168 */
long BgL_auxz00_4381;
BgL_auxz00_4381 = 
(BgL_lz00_606+((long)100)); 
BGl_za2bufferzd2lenza2zd2zz__intextz00 = 
(((long)2)*BgL_auxz00_4381); } 
{ /* ./Llib/intext.scm 169 */
int BgL_auxz00_4384;
BgL_auxz00_4384 = 
(int)(BGl_za2bufferzd2lenza2zd2zz__intextz00); 
BGl_za2bufferza2z00zz__intextz00 = 
make_string(BgL_auxz00_4384, ((unsigned char)' ')); } 
{ /* ./Llib/intext.scm 170 */
int BgL_auxz00_4391;int BgL_auxz00_4389;int BgL_auxz00_4387;
BgL_auxz00_4391 = 
(int)(BgL_vieillezd2longeurzd2_608); 
BgL_auxz00_4389 = 
(int)(((long)0)); 
BgL_auxz00_4387 = 
(int)(((long)0)); 
return 
blit_string(BgL_vieuxzd2bufferzd2_609, BgL_auxz00_4387, BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_4389, BgL_auxz00_4391);} } }  else 
{ /* ./Llib/intext.scm 164 */
return BFALSE;} } } 
}



/* set-obj-string-mode! */
BGL_EXPORTED_DEF obj_t BGl_setzd2objzd2stringzd2modez12zc0zz__intextz00(obj_t BgL_modez00_2)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 180 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_modez00_2, BGl_symbol4535z00zz__intextz00))
{ /* ./Llib/intext.scm 181 */
return ( 
BGl_za2epairzf3za2zf3zz__intextz00 = ((bool_t)1), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 181 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_modez00_2, BGl_symbol4536z00zz__intextz00))
{ /* ./Llib/intext.scm 181 */
return ( 
BGl_za2epairzf3za2zf3zz__intextz00 = ((bool_t)0), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 181 */
return BUNSPEC;} } } 
}



/* _set-obj-string-mode! */
obj_t BGl__setzd2objzd2stringzd2modez12zc0zz__intextz00(obj_t BgL_envz00_4305, obj_t BgL_modez00_4306)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 180 */
return 
BGl_setzd2objzd2stringzd2modez12zc0zz__intextz00(BgL_modez00_4306);} 
}



/* read-taille */
int BGl_readzd2taillezd2zz__intextz00(obj_t BgL_sz00_3)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 190 */
{ /* ./Llib/intext.scm 191 */
int BgL_accuzd2entierzd2_618;
BgL_accuzd2entierzd2_618 = 
(int)(((long)0)); 
{ /* ./Llib/intext.scm 192 */
int BgL_taillez00_619;
{ /* ./Llib/intext.scm 192 */
unsigned char BgL_arg1079z00_628;
{ /* ./Llib/intext.scm 192 */
int BgL_auxz00_4400;
BgL_auxz00_4400 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_arg1079z00_628 = 
STRING_REF(BgL_sz00_3, BgL_auxz00_4400); } 
{ /* ./Llib/intext.scm 192 */
long BgL_auxz00_4403;
BgL_auxz00_4403 = 
(BgL_arg1079z00_628); 
BgL_taillez00_619 = 
(int)(BgL_auxz00_4403); } } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ 
long BgL_iz00_620;
BgL_iz00_620 = ((long)0); 
BgL_for1007z00_621:
{ /* ./Llib/intext.scm 194 */
bool_t BgL_testz00_4407;
{ /* ./Llib/intext.scm 194 */
long BgL_auxz00_4408;
{ /* ./Llib/intext.scm 194 */
long BgL_auxz00_4409;
BgL_auxz00_4409 = 
(long)(BgL_taillez00_619); 
BgL_auxz00_4408 = 
(BgL_auxz00_4409-((long)1)); } 
BgL_testz00_4407 = 
(BgL_iz00_620<=BgL_auxz00_4408); } 
if(BgL_testz00_4407)
{ /* ./Llib/intext.scm 194 */
{ /* ./Llib/intext.scm 195 */
unsigned char BgL_dz00_623;
{ /* ./Llib/intext.scm 195 */
int BgL_auxz00_4413;
BgL_auxz00_4413 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_dz00_623 = 
STRING_REF(BgL_sz00_3, BgL_auxz00_4413); } 
{ /* ./Llib/intext.scm 196 */
long BgL_arg1058z00_624;long BgL_arg1059z00_625;
{ /* ./Llib/intext.scm 196 */
long BgL_auxz00_4416;
BgL_auxz00_4416 = 
(long)(BgL_accuzd2entierzd2_618); 
BgL_arg1058z00_624 = 
(((long)256)*BgL_auxz00_4416); } 
BgL_arg1059z00_625 = 
(BgL_dz00_623); 
{ /* ./Llib/intext.scm 196 */
long BgL_auxz00_4420;
BgL_auxz00_4420 = 
(BgL_arg1058z00_624+BgL_arg1059z00_625); 
BgL_accuzd2entierzd2_618 = 
(int)(BgL_auxz00_4420); } } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); } 
{ 
long BgL_iz00_4424;
BgL_iz00_4424 = 
(BgL_iz00_620+((long)1)); 
BgL_iz00_620 = BgL_iz00_4424; 
goto BgL_for1007z00_621;} }  else 
{ /* ./Llib/intext.scm 194 */BGl_symbol4537z00zz__intextz00; } } } 
return BgL_accuzd2entierzd2_618;} } } 
}



/* read-nombre-flottant */
double BGl_readzd2nombrezd2flottantz00zz__intextz00(obj_t BgL_sz00_5)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 216 */
{ /* ./Llib/intext.scm 217 */
int BgL_taillez00_629;
BgL_taillez00_629 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_5); 
{ /* ./Llib/intext.scm 217 */
double BgL_resz00_630;
{ /* ./Llib/intext.scm 220 */
obj_t BgL_arg1086z00_631;
{ /* ./Llib/intext.scm 220 */
long BgL_arg1089z00_632;
{ /* ./Llib/intext.scm 220 */
long BgL_auxz00_4427;
BgL_auxz00_4427 = 
(long)(BgL_taillez00_629); 
BgL_arg1089z00_632 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4427); } 
{ /* ./Llib/intext.scm 218 */
int BgL_auxz00_4432;int BgL_auxz00_4430;
BgL_auxz00_4432 = 
(int)(BgL_arg1089z00_632); 
BgL_auxz00_4430 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_arg1086z00_631 = 
c_substring(BgL_sz00_5, BgL_auxz00_4430, BgL_auxz00_4432); } } 
{ /* ./Llib/intext.scm 218 */
char * BgL_auxz00_4435;
BgL_auxz00_4435 = 
BSTRING_TO_STRING(BgL_arg1086z00_631); 
BgL_resz00_630 = 
strtod(BgL_auxz00_4435, ((long)0)); } } 
{ /* ./Llib/intext.scm 218 */

{ /* ./Llib/intext.scm 221 */
long BgL_auxz00_4438;
BgL_auxz00_4438 = 
(long)(BgL_taillez00_629); 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4438); } 
return BgL_resz00_630;} } } } 
}



/* read-string */
obj_t BGl_readzd2stringzd2zz__intextz00(obj_t BgL_sz00_7)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 245 */
{ /* ./Llib/intext.scm 246 */
int BgL_taillez00_634;
BgL_taillez00_634 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_7); 
{ /* ./Llib/intext.scm 246 */
obj_t BgL_resz00_635;
{ /* ./Llib/intext.scm 247 */
long BgL_arg1104z00_637;
{ /* ./Llib/intext.scm 247 */
long BgL_auxz00_4442;
BgL_auxz00_4442 = 
(long)(BgL_taillez00_634); 
BgL_arg1104z00_637 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4442); } 
{ /* ./Llib/intext.scm 247 */
int BgL_auxz00_4447;int BgL_auxz00_4445;
BgL_auxz00_4447 = 
(int)(BgL_arg1104z00_637); 
BgL_auxz00_4445 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_resz00_635 = 
c_substring(BgL_sz00_7, BgL_auxz00_4445, BgL_auxz00_4447); } } 
{ /* ./Llib/intext.scm 247 */

if(
INTEGERP(BGl_za2definingza2z00zz__intextz00))
{ /* ./Llib/intext.scm 248 */
{ 
int BgL_auxz00_4452;
BgL_auxz00_4452 = 
CINT(BGl_za2definingza2z00zz__intextz00); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4452,BgL_resz00_635); } 
BGl_za2definingza2z00zz__intextz00 = BFALSE; }  else 
{ /* ./Llib/intext.scm 248 */BFALSE; } 
{ /* ./Llib/intext.scm 252 */
long BgL_auxz00_4455;
BgL_auxz00_4455 = 
(long)(BgL_taillez00_634); 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4455); } 
return BgL_resz00_635;} } } } 
}



/* string->obj */
BGL_EXPORTED_DEF obj_t string_to_obj(obj_t BgL_sz00_8)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 267 */
BGl_za2pointeurza2z00zz__intextz00 = ((long)0); 
{ /* ./Llib/intext.scm 460 */
unsigned char BgL_dz00_658;
{ /* ./Llib/intext.scm 460 */
int BgL_auxz00_4458;
BgL_auxz00_4458 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_dz00_658 = 
STRING_REF(BgL_sz00_8, BgL_auxz00_4458); } 
if(
(BgL_dz00_658==((unsigned char)'c')))
{ /* ./Llib/intext.scm 461 */
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 464 */
obj_t BgL_auxz00_4466;int BgL_auxz00_4464;
BgL_auxz00_4466 = BUNSPEC; 
BgL_auxz00_4464 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_8); 
BGl_za2refzd2vectorza2zd2zz__intextz00 = 
make_vector(BgL_auxz00_4464, BgL_auxz00_4466); } }  else 
{ /* ./Llib/intext.scm 461 */BFALSE; } } 
return 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_8);} 
}



/* read-item */
obj_t BGl_readzd2itemzd2zz__intextz00(obj_t BgL_sz00_4339)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 458 */
BGl_readzd2itemzd2zz__intextz00:
{ 
obj_t BgL_sz00_701;obj_t BgL_converterz00_702;
{ /* ./Llib/intext.scm 425 */
unsigned char BgL_dz00_663;
{ /* ./Llib/intext.scm 425 */
int BgL_auxz00_4469;
BgL_auxz00_4469 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_dz00_663 = 
STRING_REF(BgL_sz00_4339, BgL_auxz00_4469); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
switch( BgL_dz00_663) { case ((unsigned char)'=') : 

BGl_za2definingza2z00zz__intextz00 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
{ 

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

{ /* ./Llib/intext.scm 429 */
obj_t BgL_arg1429z00_1693;
BgL_arg1429z00_1693 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
{ 
int BgL_auxz00_4475;
BgL_auxz00_4475 = 
CINT(BgL_arg1429z00_1693); 
return 
VECTOR_REF(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4475);} } break;case ((unsigned char)'\'') : 

{ /* ./Llib/intext.scm 430 */
obj_t BgL_arg1424z00_1696;
BgL_arg1424z00_1696 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 430 */
char * BgL_auxz00_4479;
BgL_auxz00_4479 = 
BSTRING_TO_STRING(BgL_arg1424z00_1696); 
return 
string_to_symbol(BgL_auxz00_4479);} } break;case ((unsigned char)':') : 

{ /* ./Llib/intext.scm 431 */
obj_t BgL_arg1419z00_1698;
BgL_arg1419z00_1698 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 431 */
char * BgL_auxz00_4483;
BgL_auxz00_4483 = 
BSTRING_TO_STRING(BgL_arg1419z00_1698); 
return 
string_to_keyword(BgL_auxz00_4483);} } break;case ((unsigned char)'a') : 

{ /* ./Llib/intext.scm 432 */
int BgL_arg1095z00_1701;
BgL_arg1095z00_1701 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 432 */
unsigned char BgL_auxz00_4487;
{ /* ./Llib/intext.scm 432 */
long BgL_auxz00_4488;
BgL_auxz00_4488 = 
(long)(BgL_arg1095z00_1701); 
BgL_auxz00_4487 = 
(BgL_auxz00_4488); } 
return 
BCHAR(BgL_auxz00_4487);} } break;case ((unsigned char)'u') : 

{ /* ./Llib/intext.scm 433 */
int BgL_arg1409z00_1704;
BgL_arg1409z00_1704 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 433 */
ucs2_t BgL_auxz00_4493;
BgL_auxz00_4493 = 
BGl_integerzd2ze3ucs2z31zz__ucs2z00(BgL_arg1409z00_1704); 
return 
BUCS2(BgL_auxz00_4493);} } 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)'<') : 

{ /* ./Llib/intext.scm 438 */
int BgL_arg1414z00_1706;
BgL_arg1414z00_1706 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 438 */
long BgL_auxz00_4497;
BgL_auxz00_4497 = 
(long)(BgL_arg1414z00_1706); 
return 
BCNST(BgL_auxz00_4497);} } break;case ((unsigned char)'"') : 

return 
BGl_readzd2stringzd2zz__intextz00(BgL_sz00_4339);break;case ((unsigned char)'U') : 

{ /* ./Llib/intext.scm 440 */
obj_t BgL_auxz00_4501;
BgL_auxz00_4501 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
return 
utf8_string_to_ucs2_string(BgL_auxz00_4501);} break;case ((unsigned char)'[') : 

{ /* ./Llib/intext.scm 308 */
int BgL_taillez00_765;
BgL_taillez00_765 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 308 */
obj_t BgL_resz00_766;
BgL_resz00_766 = 
create_vector(BgL_taillez00_765); 
{ /* ./Llib/intext.scm 309 */

if(
INTEGERP(BGl_za2definingza2z00zz__intextz00))
{ /* ./Llib/intext.scm 310 */
{ 
int BgL_auxz00_4508;
BgL_auxz00_4508 = 
CINT(BGl_za2definingza2z00zz__intextz00); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4508,BgL_resz00_766); } 
BGl_za2definingza2z00zz__intextz00 = BFALSE; }  else 
{ /* ./Llib/intext.scm 310 */BFALSE; } 
{ 
long BgL_iz00_768;
BgL_iz00_768 = ((long)0); 
BgL_for1008z00_769:
{ /* ./Llib/intext.scm 314 */
bool_t BgL_testz00_4511;
{ /* ./Llib/intext.scm 314 */
long BgL_auxz00_4512;
{ /* ./Llib/intext.scm 314 */
long BgL_auxz00_4513;
BgL_auxz00_4513 = 
(long)(BgL_taillez00_765); 
BgL_auxz00_4512 = 
(BgL_auxz00_4513-((long)1)); } 
BgL_testz00_4511 = 
(BgL_iz00_768<=BgL_auxz00_4512); } 
if(BgL_testz00_4511)
{ /* ./Llib/intext.scm 314 */
{ 
obj_t BgL_auxz00_4519;int BgL_auxz00_4517;
BgL_auxz00_4519 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
BgL_auxz00_4517 = 
(int)(BgL_iz00_768); 
VECTOR_SET(BgL_resz00_766,BgL_auxz00_4517,BgL_auxz00_4519); } 
{ 
long BgL_iz00_4522;
BgL_iz00_4522 = 
(BgL_iz00_768+((long)1)); 
BgL_iz00_768 = BgL_iz00_4522; 
goto BgL_for1008z00_769;} }  else 
{ /* ./Llib/intext.scm 314 */BGl_symbol4537z00zz__intextz00; } } } 
return BgL_resz00_766;} } } break;case ((unsigned char)'t') : 

{ /* ./Llib/intext.scm 318 */
obj_t BgL_tagz00_754;
BgL_tagz00_754 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 318 */
int BgL_taillez00_755;
BgL_taillez00_755 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 319 */
obj_t BgL_resz00_756;
BgL_resz00_756 = 
create_vector(BgL_taillez00_755); 
{ /* ./Llib/intext.scm 320 */

{ /* ./Llib/intext.scm 321 */
int BgL_auxz00_4527;
BgL_auxz00_4527 = 
CINT(BgL_tagz00_754); 
VECTOR_TAG_SET(BgL_resz00_756, BgL_auxz00_4527); } 
if(
INTEGERP(BGl_za2definingza2z00zz__intextz00))
{ /* ./Llib/intext.scm 322 */
{ 
int BgL_auxz00_4532;
BgL_auxz00_4532 = 
CINT(BGl_za2definingza2z00zz__intextz00); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4532,BgL_resz00_756); } 
BGl_za2definingza2z00zz__intextz00 = BFALSE; }  else 
{ /* ./Llib/intext.scm 322 */BFALSE; } 
{ 
long BgL_iz00_758;
BgL_iz00_758 = ((long)0); 
BgL_for1009z00_759:
{ /* ./Llib/intext.scm 326 */
bool_t BgL_testz00_4535;
{ /* ./Llib/intext.scm 326 */
long BgL_auxz00_4536;
{ /* ./Llib/intext.scm 326 */
long BgL_auxz00_4537;
BgL_auxz00_4537 = 
(long)(BgL_taillez00_755); 
BgL_auxz00_4536 = 
(BgL_auxz00_4537-((long)1)); } 
BgL_testz00_4535 = 
(BgL_iz00_758<=BgL_auxz00_4536); } 
if(BgL_testz00_4535)
{ /* ./Llib/intext.scm 326 */
{ 
obj_t BgL_auxz00_4543;int BgL_auxz00_4541;
BgL_auxz00_4543 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
BgL_auxz00_4541 = 
(int)(BgL_iz00_758); 
VECTOR_SET(BgL_resz00_756,BgL_auxz00_4541,BgL_auxz00_4543); } 
{ 
long BgL_iz00_4546;
BgL_iz00_4546 = 
(BgL_iz00_758+((long)1)); 
BgL_iz00_758 = BgL_iz00_4546; 
goto BgL_for1009z00_759;} }  else 
{ /* ./Llib/intext.scm 326 */BGl_symbol4537z00zz__intextz00; } } } 
return BgL_resz00_756;} } } } break;case ((unsigned char)'V') : 

{ /* ./Llib/intext.scm 330 */
obj_t BgL_idz00_749;
BgL_idz00_749 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 330 */
obj_t BgL_vz00_750;
BgL_vz00_750 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 331 */
obj_t BgL_tvz00_751;
BgL_tvz00_751 = 
BGl_vectorzd2ze3tvectorz31zz__tvectorz00(BgL_idz00_749, BgL_vz00_750); 
{ /* ./Llib/intext.scm 332 */

if(
INTEGERP(BGl_za2definingza2z00zz__intextz00))
{ /* ./Llib/intext.scm 333 */
{ 
int BgL_auxz00_4553;
BgL_auxz00_4553 = 
CINT(BGl_za2definingza2z00zz__intextz00); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4553,BgL_tvz00_751); } 
BGl_za2definingza2z00zz__intextz00 = BFALSE; }  else 
{ /* ./Llib/intext.scm 333 */BFALSE; } 
return BgL_tvz00_751;} } } } break;case ((unsigned char)'(') : 

{ /* ./Llib/intext.scm 339 */
int BgL_taillez00_734;
BgL_taillez00_734 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 339 */
obj_t BgL_resz00_735;
BgL_resz00_735 = 
MAKE_PAIR(BNIL, BNIL); 
{ /* ./Llib/intext.scm 340 */

if(
INTEGERP(BGl_za2definingza2z00zz__intextz00))
{ /* ./Llib/intext.scm 341 */
{ 
int BgL_auxz00_4560;
BgL_auxz00_4560 = 
CINT(BGl_za2definingza2z00zz__intextz00); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4560,BgL_resz00_735); } 
BGl_za2definingza2z00zz__intextz00 = BFALSE; }  else 
{ /* ./Llib/intext.scm 341 */BFALSE; } 
{ 
long BgL_iz00_737;obj_t BgL_hdz00_738;
BgL_iz00_737 = ((long)0); 
BgL_hdz00_738 = BgL_resz00_735; 
BgL_loopz00_739:
{ /* ./Llib/intext.scm 347 */
bool_t BgL_testz00_4563;
{ /* ./Llib/intext.scm 347 */
long BgL_auxz00_4564;
{ /* ./Llib/intext.scm 347 */
long BgL_auxz00_4565;
BgL_auxz00_4565 = 
(long)(BgL_taillez00_734); 
BgL_auxz00_4564 = 
(BgL_auxz00_4565-((long)2)); } 
BgL_testz00_4563 = 
(BgL_iz00_737==BgL_auxz00_4564); } 
if(BgL_testz00_4563)
{ /* ./Llib/intext.scm 347 */
{ /* ./Llib/intext.scm 349 */
obj_t BgL_auxz00_4569;
BgL_auxz00_4569 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
SET_CAR(BgL_hdz00_738, BgL_auxz00_4569); } 
{ /* ./Llib/intext.scm 350 */
obj_t BgL_auxz00_4572;
BgL_auxz00_4572 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
SET_CDR(BgL_hdz00_738, BgL_auxz00_4572); } }  else 
{ /* ./Llib/intext.scm 347 */
{ /* ./Llib/intext.scm 352 */
obj_t BgL_auxz00_4575;
BgL_auxz00_4575 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
SET_CAR(BgL_hdz00_738, BgL_auxz00_4575); } 
{ /* ./Llib/intext.scm 353 */
obj_t BgL_arg1308z00_744;
BgL_arg1308z00_744 = 
MAKE_PAIR(BNIL, BNIL); 
SET_CDR(BgL_hdz00_738, BgL_arg1308z00_744); } 
{ 
obj_t BgL_hdz00_4582;long BgL_iz00_4580;
BgL_iz00_4580 = 
(BgL_iz00_737+((long)1)); 
BgL_hdz00_4582 = 
CDR(BgL_hdz00_738); 
BgL_hdz00_738 = BgL_hdz00_4582; 
BgL_iz00_737 = BgL_iz00_4580; 
goto BgL_loopz00_739;} } } } 
return BgL_resz00_735;} } } break;case ((unsigned char)'^') : 

{ /* ./Llib/intext.scm 357 */
int BgL_taillez00_717;
BgL_taillez00_717 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 357 */
obj_t BgL_resz00_718;
{ /* ./Llib/intext.scm 358 */
obj_t BgL_res3748z00_1791;
BgL_res3748z00_1791 = 
MAKE_EXTENDED_PAIR(BNIL, BNIL, BUNSPEC); 
BgL_resz00_718 = BgL_res3748z00_1791; } 
{ /* ./Llib/intext.scm 358 */

if(
INTEGERP(BGl_za2definingza2z00zz__intextz00))
{ /* ./Llib/intext.scm 359 */
{ 
int BgL_auxz00_4588;
BgL_auxz00_4588 = 
CINT(BGl_za2definingza2z00zz__intextz00); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4588,BgL_resz00_718); } 
BGl_za2definingza2z00zz__intextz00 = BFALSE; }  else 
{ /* ./Llib/intext.scm 359 */BFALSE; } 
{ 
long BgL_iz00_720;obj_t BgL_hdz00_721;
BgL_iz00_720 = ((long)0); 
BgL_hdz00_721 = BgL_resz00_718; 
BgL_loopz00_722:
{ /* ./Llib/intext.scm 365 */
bool_t BgL_testz00_4591;
{ /* ./Llib/intext.scm 365 */
long BgL_auxz00_4592;
{ /* ./Llib/intext.scm 365 */
long BgL_auxz00_4593;
BgL_auxz00_4593 = 
(long)(BgL_taillez00_717); 
BgL_auxz00_4592 = 
(BgL_auxz00_4593-((long)2)); } 
BgL_testz00_4591 = 
(BgL_iz00_720==BgL_auxz00_4592); } 
if(BgL_testz00_4591)
{ /* ./Llib/intext.scm 365 */
{ /* ./Llib/intext.scm 367 */
obj_t BgL_auxz00_4597;
BgL_auxz00_4597 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
SET_CAR(BgL_hdz00_721, BgL_auxz00_4597); } 
{ /* ./Llib/intext.scm 368 */
obj_t BgL_auxz00_4600;
BgL_auxz00_4600 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
SET_CER(BgL_hdz00_721, BgL_auxz00_4600); } 
{ /* ./Llib/intext.scm 369 */
obj_t BgL_auxz00_4603;
BgL_auxz00_4603 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
SET_CDR(BgL_hdz00_721, BgL_auxz00_4603); } }  else 
{ /* ./Llib/intext.scm 365 */
{ /* ./Llib/intext.scm 371 */
obj_t BgL_auxz00_4606;
BgL_auxz00_4606 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
SET_CAR(BgL_hdz00_721, BgL_auxz00_4606); } 
{ /* ./Llib/intext.scm 372 */
obj_t BgL_auxz00_4609;
BgL_auxz00_4609 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
SET_CER(BgL_hdz00_721, BgL_auxz00_4609); } 
{ /* ./Llib/intext.scm 373 */
obj_t BgL_arg1274z00_729;
{ /* ./Llib/intext.scm 373 */
obj_t BgL_res3749z00_1813;
BgL_res3749z00_1813 = 
MAKE_EXTENDED_PAIR(BNIL, BNIL, BUNSPEC); 
BgL_arg1274z00_729 = BgL_res3749z00_1813; } 
SET_CDR(BgL_hdz00_721, BgL_arg1274z00_729); } 
{ 
obj_t BgL_hdz00_4616;long BgL_iz00_4614;
BgL_iz00_4614 = 
(BgL_iz00_720+((long)1)); 
BgL_hdz00_4616 = 
CDR(BgL_hdz00_721); 
BgL_hdz00_721 = BgL_hdz00_4616; 
BgL_iz00_720 = BgL_iz00_4614; 
goto BgL_loopz00_722;} } } } 
return BgL_resz00_718;} } } break;case ((unsigned char)'{') : 

{ /* ./Llib/intext.scm 396 */
obj_t BgL_definingz00_688;
{ /* ./Llib/intext.scm 396 */
obj_t BgL_oldz00_700;
BgL_oldz00_700 = BGl_za2definingza2z00zz__intextz00; 
BGl_za2definingza2z00zz__intextz00 = BFALSE; 
BgL_definingz00_688 = BgL_oldz00_700; } 
{ /* ./Llib/intext.scm 396 */
obj_t BgL_keyz00_689;
BgL_keyz00_689 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 399 */
int BgL_taillez00_690;
BgL_taillez00_690 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 400 */
obj_t BgL_resz00_691;
{ /* ./Llib/intext.scm 401 */
obj_t BgL_auxz00_4620;
BgL_auxz00_4620 = BUNSPEC; 
BgL_resz00_691 = 
make_struct(BgL_keyz00_689, BgL_taillez00_690, BgL_auxz00_4620); } 
{ /* ./Llib/intext.scm 401 */

if(
INTEGERP(BgL_definingz00_688))
{ 
int BgL_auxz00_4624;
BgL_auxz00_4624 = 
CINT(BgL_definingz00_688); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4624,BgL_resz00_691); }  else 
{ /* ./Llib/intext.scm 402 */BFALSE; } 
{ 
long BgL_iz00_693;
BgL_iz00_693 = ((long)0); 
BgL_for1010z00_694:
{ /* ./Llib/intext.scm 404 */
bool_t BgL_testz00_4627;
{ /* ./Llib/intext.scm 404 */
long BgL_auxz00_4628;
{ /* ./Llib/intext.scm 404 */
long BgL_auxz00_4629;
BgL_auxz00_4629 = 
(long)(BgL_taillez00_690); 
BgL_auxz00_4628 = 
(BgL_auxz00_4629-((long)1)); } 
BgL_testz00_4627 = 
(BgL_iz00_693<=BgL_auxz00_4628); } 
if(BgL_testz00_4627)
{ /* ./Llib/intext.scm 404 */
{ /* ./Llib/intext.scm 406 */
obj_t BgL_auxz00_4635;int BgL_auxz00_4633;
BgL_auxz00_4635 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
BgL_auxz00_4633 = 
(int)(BgL_iz00_693); 
STRUCT_SET(BgL_resz00_691, BgL_auxz00_4633, BgL_auxz00_4635); } 
{ 
long BgL_iz00_4638;
BgL_iz00_4638 = 
(BgL_iz00_693+((long)1)); 
BgL_iz00_693 = BgL_iz00_4638; 
goto BgL_for1010z00_694;} }  else 
{ /* ./Llib/intext.scm 404 */BGl_symbol4537z00zz__intextz00; } } } 
return BgL_resz00_691;} } } } } break;case ((unsigned char)'|') : 

{ /* ./Llib/intext.scm 409 */
obj_t BgL_definingz00_669;
{ /* ./Llib/intext.scm 409 */
obj_t BgL_oldz00_686;
BgL_oldz00_686 = BGl_za2definingza2z00zz__intextz00; 
BGl_za2definingza2z00zz__intextz00 = BFALSE; 
BgL_definingz00_669 = BgL_oldz00_686; } 
{ /* ./Llib/intext.scm 409 */
obj_t BgL_keyz00_670;
BgL_keyz00_670 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 412 */
int BgL_taillez00_671;
BgL_taillez00_671 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 413 */
obj_t BgL_structz00_672;
{ /* ./Llib/intext.scm 414 */
obj_t BgL_auxz00_4642;
BgL_auxz00_4642 = BUNSPEC; 
BgL_structz00_672 = 
make_struct(BgL_keyz00_670, BgL_taillez00_671, BgL_auxz00_4642); } 
{ /* ./Llib/intext.scm 414 */
BgL_objectz00_bglt BgL_objectz00_673;
BgL_objectz00_673 = 
BGl_allocatezd2instancezd2zz__objectz00(BgL_keyz00_670); 
{ /* ./Llib/intext.scm 415 */

if(
INTEGERP(BgL_definingz00_669))
{ /* ./Llib/intext.scm 417 */
obj_t BgL_vectorz00_1726;int BgL_kz00_1727;obj_t BgL_objz00_1728;
BgL_vectorz00_1726 = BGl_za2refzd2vectorza2zd2zz__intextz00; 
BgL_kz00_1727 = 
CINT(BgL_definingz00_669); 
BgL_objz00_1728 = 
(obj_t)(BgL_objectz00_673); 
VECTOR_SET(BgL_vectorz00_1726,BgL_kz00_1727,BgL_objz00_1728); }  else 
{ /* ./Llib/intext.scm 416 */BFALSE; } 
{ 
long BgL_iz00_675;
BgL_iz00_675 = ((long)0); 
BgL_for1011z00_676:
{ /* ./Llib/intext.scm 418 */
bool_t BgL_testz00_4650;
{ /* ./Llib/intext.scm 418 */
long BgL_auxz00_4651;
{ /* ./Llib/intext.scm 418 */
long BgL_auxz00_4652;
BgL_auxz00_4652 = 
(long)(BgL_taillez00_671); 
BgL_auxz00_4651 = 
(BgL_auxz00_4652-((long)1)); } 
BgL_testz00_4650 = 
(BgL_iz00_675<=BgL_auxz00_4651); } 
if(BgL_testz00_4650)
{ /* ./Llib/intext.scm 418 */
{ /* ./Llib/intext.scm 419 */
obj_t BgL_auxz00_4658;int BgL_auxz00_4656;
BgL_auxz00_4658 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
BgL_auxz00_4656 = 
(int)(BgL_iz00_675); 
STRUCT_SET(BgL_structz00_672, BgL_auxz00_4656, BgL_auxz00_4658); } 
{ 
long BgL_iz00_4661;
BgL_iz00_4661 = 
(BgL_iz00_675+((long)1)); 
BgL_iz00_675 = BgL_iz00_4661; 
goto BgL_for1011z00_676;} }  else 
{ /* ./Llib/intext.scm 418 */BGl_symbol4537z00zz__intextz00; } } } 
{ /* ./Llib/intext.scm 420 */
obj_t BgL_hashz00_681;
BgL_hashz00_681 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 421 */
bool_t BgL_test1176z00_682;
{ /* ./Llib/intext.scm 421 */
long BgL_arg1180z00_683;
{ /* ./Llib/intext.scm 421 */
obj_t BgL_arg1183z00_684;
{ /* ./Llib/intext.scm 421 */
long BgL_arg3692z00_1739;
{ /* ./Llib/intext.scm 421 */
long BgL_arg3695z00_1740;
BgL_arg3695z00_1740 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_673); 
BgL_arg3692z00_1739 = 
(BgL_arg3695z00_1740-OBJECT_TYPE); } 
{ 
int BgL_auxz00_4666;
BgL_auxz00_4666 = 
(int)(BgL_arg3692z00_1739); 
BgL_arg1183z00_684 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_4666); } } 
BgL_arg1180z00_683 = 
BGl_classzd2hashzd2zz__objectz00(BgL_arg1183z00_684); } 
{ /* ./Llib/intext.scm 421 */
long BgL_auxz00_4670;
BgL_auxz00_4670 = 
(long)CINT(BgL_hashz00_681); 
BgL_test1176z00_682 = 
(BgL_auxz00_4670==BgL_arg1180z00_683); } } 
if(BgL_test1176z00_682)
{ /* ./Llib/intext.scm 422 */
BgL_objectz00_bglt BgL_auxz00_4674;
BgL_auxz00_4674 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(BgL_objectz00_673, BgL_structz00_672); 
return 
(obj_t)(BgL_auxz00_4674);}  else 
{ /* ./Llib/intext.scm 423 */
obj_t BgL_objectz00_1750;
BgL_objectz00_1750 = 
(obj_t)(BgL_objectz00_673); 
FAILURE(BGl_string4527z00zz__intextz00,BGl_string4539z00zz__intextz00,BgL_objectz00_1750);} } } } } } } } } break;case ((unsigned char)'f') : 

{ /* ./Llib/intext.scm 448 */
double BgL_auxz00_4679;
BgL_auxz00_4679 = 
BGl_readzd2nombrezd2flottantz00zz__intextz00(BgL_sz00_4339); 
return 
DOUBLE_TO_REAL(BgL_auxz00_4679);} break;case ((unsigned char)'-') : 

{ /* ./Llib/intext.scm 449 */
int BgL_arg1141z00_667;
BgL_arg1141z00_667 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 449 */
long BgL_auxz00_4683;
{ /* ./Llib/intext.scm 449 */
long BgL_auxz00_4684;
BgL_auxz00_4684 = 
(long)(BgL_arg1141z00_667); 
BgL_auxz00_4683 = 
NEG(BgL_auxz00_4684); } 
return 
BINT(BgL_auxz00_4683);} } break;case ((unsigned char)'!') : 

{ /* ./Llib/intext.scm 377 */
obj_t BgL_resz00_712;
{ /* ./Llib/intext.scm 377 */
obj_t BgL_auxz00_4688;
BgL_auxz00_4688 = BUNSPEC; 
BgL_resz00_712 = 
MAKE_CELL(BgL_auxz00_4688); } 
if(
INTEGERP(BGl_za2definingza2z00zz__intextz00))
{ /* ./Llib/intext.scm 378 */
{ 
int BgL_auxz00_4692;
BgL_auxz00_4692 = 
CINT(BGl_za2definingza2z00zz__intextz00); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4692,BgL_resz00_712); } 
BGl_za2definingza2z00zz__intextz00 = BFALSE; }  else 
{ /* ./Llib/intext.scm 378 */BFALSE; } 
{ /* ./Llib/intext.scm 382 */
obj_t BgL_auxz00_4695;
BgL_auxz00_4695 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4339); 
CELL_SET(BgL_resz00_712, BgL_auxz00_4695); } 
return BgL_resz00_712;} break;case ((unsigned char)'+') : 

{ /* ./Llib/intext.scm 282 */
obj_t BgL_strz00_789;
BgL_strz00_789 = 
BGl_readzd2stringzd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 282 */
obj_t BgL_unserializa7erza7_790;
{ /* ./Llib/intext.scm 283 */
obj_t BgL_cellz00_1887;
BgL_cellz00_1887 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_strz00_789, BGl_za2customzd2serializa7ationza2z75zz__intextz00); 
if(
PAIRP(BgL_cellz00_1887))
{ /* ./Llib/intext.scm 283 */
obj_t BgL_auxz00_4702;
{ /* ./Llib/intext.scm 283 */
obj_t BgL_auxz00_4703;
BgL_auxz00_4703 = 
CDR(BgL_cellz00_1887); 
BgL_auxz00_4702 = 
CDR(BgL_auxz00_4703); } 
BgL_unserializa7erza7_790 = 
CAR(BgL_auxz00_4702); }  else 
{ /* ./Llib/intext.scm 283 */
BgL_unserializa7erza7_790 = BFALSE; } } 
{ /* ./Llib/intext.scm 283 */

if(
PROCEDUREP(BgL_unserializa7erza7_790))
{ /* ./Llib/intext.scm 286 */
obj_t BgL_oldz00_792;
BgL_oldz00_792 = BGl_za2inputzd2bufferza2zd2zz__intextz00; 
BGl_za2inputzd2bufferza2zd2zz__intextz00 = BgL_sz00_4339; 
{ /* ./Llib/intext.scm 288 */
obj_t BgL_resz00_793;
BgL_resz00_793 = 
PROCEDURE_ENTRY(BgL_unserializa7erza7_790)(BgL_unserializa7erza7_790, BEOA); 
BGl_za2inputzd2bufferza2zd2zz__intextz00 = BgL_oldz00_792; 
return BgL_resz00_793;} }  else 
{ /* ./Llib/intext.scm 284 */
FAILURE(BGl_string4527z00zz__intextz00,BGl_string4538z00zz__intextz00,BgL_strz00_789);} } } } break;case ((unsigned char)'E') : 

{ /* ./Llib/intext.scm 292 */
int BgL_taillez00_783;
BgL_taillez00_783 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 292 */
obj_t BgL_resz00_784;
{ /* ./Llib/intext.scm 295 */
obj_t BgL_arg1392z00_785;
{ /* ./Llib/intext.scm 295 */
long BgL_arg1396z00_787;
{ /* ./Llib/intext.scm 295 */
long BgL_auxz00_4713;
BgL_auxz00_4713 = 
(long)(BgL_taillez00_783); 
BgL_arg1396z00_787 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4713); } 
{ /* ./Llib/intext.scm 293 */
int BgL_auxz00_4718;int BgL_auxz00_4716;
BgL_auxz00_4718 = 
(int)(BgL_arg1396z00_787); 
BgL_auxz00_4716 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_arg1392z00_785 = 
c_substring(BgL_sz00_4339, BgL_auxz00_4716, BgL_auxz00_4718); } } 
BgL_resz00_784 = 
BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1392z00_785, BNIL); } 
{ /* ./Llib/intext.scm 293 */

{ /* ./Llib/intext.scm 296 */
long BgL_auxz00_4722;
BgL_auxz00_4722 = 
(long)(BgL_taillez00_783); 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4722); } 
return BgL_resz00_784;} } } break;case ((unsigned char)'L') : 

{ /* ./Llib/intext.scm 299 */
int BgL_taillez00_777;
BgL_taillez00_777 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4339); 
{ /* ./Llib/intext.scm 299 */
obj_t BgL_resz00_778;
{ /* ./Llib/intext.scm 302 */
obj_t BgL_arg1381z00_779;
{ /* ./Llib/intext.scm 302 */
long BgL_arg1385z00_781;
{ /* ./Llib/intext.scm 302 */
long BgL_auxz00_4726;
BgL_auxz00_4726 = 
(long)(BgL_taillez00_777); 
BgL_arg1385z00_781 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4726); } 
{ /* ./Llib/intext.scm 300 */
int BgL_auxz00_4731;int BgL_auxz00_4729;
BgL_auxz00_4731 = 
(int)(BgL_arg1385z00_781); 
BgL_auxz00_4729 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_arg1381z00_779 = 
c_substring(BgL_sz00_4339, BgL_auxz00_4729, BgL_auxz00_4731); } } 
BgL_resz00_778 = 
BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1381z00_779, BNIL); } 
{ /* ./Llib/intext.scm 300 */

{ /* ./Llib/intext.scm 303 */
long BgL_auxz00_4735;
BgL_auxz00_4735 = 
(long)(BgL_taillez00_777); 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4735); } 
return BgL_resz00_778;} } } break;case ((unsigned char)'p') : 

BgL_sz00_701 = BgL_sz00_4339; 
BgL_converterz00_702 = BGl_za2stringzd2ze3procedureza2z31zz__intextz00; 
BgL_zc3anonymousza31218ze3z83_703:
{ /* ./Llib/intext.scm 386 */
int BgL_taillez00_704;
BgL_taillez00_704 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_701); 
{ /* ./Llib/intext.scm 386 */
obj_t BgL_resz00_705;
{ /* ./Llib/intext.scm 387 */
long BgL_arg1231z00_710;
{ /* ./Llib/intext.scm 387 */
long BgL_auxz00_4739;
BgL_auxz00_4739 = 
(long)(BgL_taillez00_704); 
BgL_arg1231z00_710 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4739); } 
{ /* ./Llib/intext.scm 387 */
int BgL_auxz00_4744;int BgL_auxz00_4742;
BgL_auxz00_4744 = 
(int)(BgL_arg1231z00_710); 
BgL_auxz00_4742 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_resz00_705 = 
c_substring(BgL_sz00_701, BgL_auxz00_4742, BgL_auxz00_4744); } } 
{ /* ./Llib/intext.scm 387 */

if(
INTEGERP(BGl_za2definingza2z00zz__intextz00))
{ /* ./Llib/intext.scm 388 */
{ 
int BgL_auxz00_4749;
BgL_auxz00_4749 = 
CINT(BGl_za2definingza2z00zz__intextz00); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4749,BgL_resz00_705); } 
BGl_za2definingza2z00zz__intextz00 = BFALSE; }  else 
{ /* ./Llib/intext.scm 388 */BFALSE; } 
{ /* ./Llib/intext.scm 392 */
long BgL_auxz00_4752;
BgL_auxz00_4752 = 
(long)(BgL_taillez00_704); 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4752); } 
{ /* ./Llib/intext.scm 393 */
obj_t BgL_addressz00_707;
{ /* ./Llib/intext.scm 393 */
int BgL_auxz00_4757;int BgL_auxz00_4755;
BgL_auxz00_4757 = 
STRING_LENGTH(BgL_resz00_705); 
BgL_auxz00_4755 = 
(int)(((long)2)); 
BgL_addressz00_707 = 
c_substring(BgL_resz00_705, BgL_auxz00_4755, BgL_auxz00_4757); } 
return 
PROCEDURE_ENTRY(BgL_converterz00_702)(BgL_converterz00_702, BgL_addressz00_707, BEOA);} } } } break;case ((unsigned char)'e') : 

{ 
obj_t BgL_converterz00_4763;obj_t BgL_sz00_4762;
BgL_sz00_4762 = BgL_sz00_4339; 
BgL_converterz00_4763 = BGl_za2stringzd2ze3processza2z31zz__intextz00; 
BgL_converterz00_702 = BgL_converterz00_4763; 
BgL_sz00_701 = BgL_sz00_4762; 
goto BgL_zc3anonymousza31218ze3z83_703;} break;case ((unsigned char)'o') : 

{ 
obj_t BgL_converterz00_4765;obj_t BgL_sz00_4764;
BgL_sz00_4764 = BgL_sz00_4339; 
BgL_converterz00_4765 = BGl_za2stringzd2ze3opaqueza2z31zz__intextz00; 
BgL_converterz00_702 = BgL_converterz00_4765; 
BgL_sz00_701 = BgL_sz00_4764; 
goto BgL_zc3anonymousza31218ze3z83_703;} break;
default: 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00-((long)1)); 
{ /* ./Llib/intext.scm 427 */
int BgL_auxz00_4767;
BgL_auxz00_4767 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4339); 
return 
BINT(BgL_auxz00_4767);} } } } } 
}



/* _string->obj */
obj_t BGl__stringzd2ze3objz31zz__intextz00(obj_t BgL_envz00_4307, obj_t BgL_sz00_4308)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 267 */
return 
string_to_obj(BgL_sz00_4308);} 
}



/* pair-mark! */
obj_t BGl_pairzd2markz12zc0zz__intextz00(obj_t BgL_pairz00_38)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 492 */
{ /* ./Llib/intext.scm 493 */
obj_t BgL_newz00_840;
{ /* ./Llib/intext.scm 493 */
int BgL_auxz00_4772;
BgL_auxz00_4772 = 
(int)(((long)6)); 
BgL_newz00_840 = 
make_struct(BGl_symbol4540z00zz__intextz00, BgL_auxz00_4772, BNIL); } 
{ /* ./Llib/intext.scm 494 */
int BgL_auxz00_4775;
BgL_auxz00_4775 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_840, BgL_auxz00_4775, BgL_pairz00_38); } 
{ /* ./Llib/intext.scm 495 */
obj_t BgL_auxz00_4780;int BgL_auxz00_4778;
BgL_auxz00_4780 = 
CDR(BgL_pairz00_38); 
BgL_auxz00_4778 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_840, BgL_auxz00_4778, BgL_auxz00_4780); } 
{ /* ./Llib/intext.scm 496 */
obj_t BgL_auxz00_4785;int BgL_auxz00_4783;
BgL_auxz00_4785 = 
BINT(((long)0)); 
BgL_auxz00_4783 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_840, BgL_auxz00_4783, BgL_auxz00_4785); } 
{ /* ./Llib/intext.scm 497 */
int BgL_auxz00_4788;
BgL_auxz00_4788 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_840, BgL_auxz00_4788, BFALSE); } 
SET_CDR(BgL_pairz00_38, BgL_newz00_840); 
return BgL_newz00_840;} } 
}



/* cell-mark! */
obj_t BGl_cellzd2markz12zc0zz__intextz00(obj_t BgL_cellz00_46)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 558 */
{ /* ./Llib/intext.scm 559 */
obj_t BgL_newz00_851;
{ /* ./Llib/intext.scm 559 */
int BgL_auxz00_4792;
BgL_auxz00_4792 = 
(int)(((long)6)); 
BgL_newz00_851 = 
make_struct(BGl_symbol4540z00zz__intextz00, BgL_auxz00_4792, BNIL); } 
{ /* ./Llib/intext.scm 560 */
int BgL_auxz00_4795;
BgL_auxz00_4795 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_851, BgL_auxz00_4795, BgL_cellz00_46); } 
{ /* ./Llib/intext.scm 561 */
obj_t BgL_auxz00_4800;int BgL_auxz00_4798;
BgL_auxz00_4800 = 
CELL_REF(BgL_cellz00_46); 
BgL_auxz00_4798 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_851, BgL_auxz00_4798, BgL_auxz00_4800); } 
{ /* ./Llib/intext.scm 562 */
obj_t BgL_auxz00_4805;int BgL_auxz00_4803;
BgL_auxz00_4805 = 
BINT(((long)0)); 
BgL_auxz00_4803 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_851, BgL_auxz00_4803, BgL_auxz00_4805); } 
{ /* ./Llib/intext.scm 563 */
int BgL_auxz00_4808;
BgL_auxz00_4808 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_851, BgL_auxz00_4808, BFALSE); } 
CELL_SET(BgL_cellz00_46, BgL_newz00_851); 
return BgL_newz00_851;} } 
}



/* string-mark! */
obj_t BGl_stringzd2markz12zc0zz__intextz00(obj_t BgL_ptrz00_50)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 599 */
{ /* ./Llib/intext.scm 600 */
obj_t BgL_newz00_855;
{ /* ./Llib/intext.scm 600 */
int BgL_auxz00_4812;
BgL_auxz00_4812 = 
(int)(((long)6)); 
BgL_newz00_855 = 
make_struct(BGl_symbol4540z00zz__intextz00, BgL_auxz00_4812, BNIL); } 
{ /* ./Llib/intext.scm 601 */
int BgL_auxz00_4815;
BgL_auxz00_4815 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_855, BgL_auxz00_4815, BgL_ptrz00_50); } 
{ /* ./Llib/intext.scm 602 */
obj_t BgL_auxz00_4820;int BgL_auxz00_4818;
BgL_auxz00_4820 = 
BINT(((long)0)); 
BgL_auxz00_4818 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_855, BgL_auxz00_4818, BgL_auxz00_4820); } 
{ /* ./Llib/intext.scm 603 */
int BgL_auxz00_4823;
BgL_auxz00_4823 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_855, BgL_auxz00_4823, BFALSE); } 
{ /* ./Llib/intext.scm 604 */
int BgL_arg1550z00_856;
BgL_arg1550z00_856 = 
STRING_LENGTH(BgL_ptrz00_50); 
{ /* ./Llib/intext.scm 604 */
obj_t BgL_auxz00_4829;int BgL_auxz00_4827;
BgL_auxz00_4829 = 
BINT(BgL_arg1550z00_856); 
BgL_auxz00_4827 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_855, BgL_auxz00_4827, BgL_auxz00_4829); } } 
{ /* ./Llib/intext.scm 605 */
obj_t BgL_arg1554z00_857;
BgL_arg1554z00_857 = 
MAKE_PAIR(BgL_ptrz00_50, BgL_newz00_855); 
BGl_putzd2hashz12zc0zz__hashz00(BgL_arg1554z00_857, BGl_za2stringzd2markzd2tableza2z00zz__intextz00); } 
MARK_INTEXT_STRING(BgL_ptrz00_50); 
return BgL_newz00_855;} } 
}



/* custom-mark! */
obj_t BGl_customzd2markz12zc0zz__intextz00(obj_t BgL_ptrz00_54)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 633 */
{ /* ./Llib/intext.scm 634 */
obj_t BgL_newz00_863;obj_t BgL_hashz00_864;char * BgL_idz00_865;
{ /* ./Llib/intext.scm 634 */
int BgL_auxz00_4835;
BgL_auxz00_4835 = 
(int)(((long)6)); 
BgL_newz00_863 = 
make_struct(BGl_symbol4540z00zz__intextz00, BgL_auxz00_4835, BNIL); } 
BgL_hashz00_864 = 
BGl_getzd2customzd2hashzd2tablezd2zz__intextz00(); 
BgL_idz00_865 = 
CUSTOM_IDENTIFIER(BgL_ptrz00_54); 
{ /* ./Llib/intext.scm 637 */
int BgL_auxz00_4840;
BgL_auxz00_4840 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_863, BgL_auxz00_4840, BgL_ptrz00_54); } 
{ /* ./Llib/intext.scm 638 */
obj_t BgL_auxz00_4845;int BgL_auxz00_4843;
BgL_auxz00_4845 = 
BINT(((long)0)); 
BgL_auxz00_4843 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_863, BgL_auxz00_4843, BgL_auxz00_4845); } 
{ /* ./Llib/intext.scm 639 */
int BgL_auxz00_4848;
BgL_auxz00_4848 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_863, BgL_auxz00_4848, BFALSE); } 
{ /* ./Llib/intext.scm 640 */
obj_t BgL_auxz00_4853;int BgL_auxz00_4851;
BgL_auxz00_4853 = 
string_to_bstring(BgL_idz00_865); 
BgL_auxz00_4851 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_863, BgL_auxz00_4851, BgL_auxz00_4853); } 
{ /* ./Llib/intext.scm 641 */
obj_t BgL_arg1576z00_866;
BgL_arg1576z00_866 = 
MAKE_PAIR(BgL_ptrz00_54, BgL_newz00_863); 
BGl_putzd2hashz12zc0zz__hashz00(BgL_arg1576z00_866, BgL_hashz00_864); } 
CUSTOM_IDENTIFIER_SET(BgL_newz00_863, ""); 
return BgL_newz00_863;} } 
}



/* get-custom-mark */
obj_t BGl_getzd2customzd2markz00zz__intextz00(obj_t BgL_ptrz00_56)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 656 */
{ /* ./Llib/intext.scm 657 */
obj_t BgL_cellz00_2211;
BgL_cellz00_2211 = 
BGl_getzd2hashzd2zz__hashz00(BgL_ptrz00_56, 
BGl_getzd2customzd2hashzd2tablezd2zz__intextz00()); 
if(
PAIRP(BgL_cellz00_2211))
{ /* ./Llib/intext.scm 657 */
return 
CDR(BgL_cellz00_2211);}  else 
{ /* ./Llib/intext.scm 657 */
FAILURE(BGl_string4529z00zz__intextz00,BGl_string4541z00zz__intextz00,BUNSPEC);} } } 
}



/* get-custom-hash-table */
obj_t BGl_getzd2customzd2hashzd2tablezd2zz__intextz00()
{ AN_OBJECT;
{ /* ./Llib/intext.scm 670 */
if(
BGl_hashzd2tablezf3z21zz__hashz00(BGl_za2customzd2markzd2tableza2z00zz__intextz00))
{ /* ./Llib/intext.scm 671 */BFALSE; }  else 
{ /* ./Llib/intext.scm 671 */
BGl_za2customzd2markzd2tableza2z00zz__intextz00 = 
BGl_makezd2hashzd2tablez00zz__hashz00(((long)1024), BGl_proc4542z00zz__intextz00, BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00, BNIL); } 
return BGl_za2customzd2markzd2tableza2z00zz__intextz00;} 
}



/* <anonymous:1603> */
obj_t BGl_zc3anonymousza31603ze3z83zz__intextz00(obj_t BgL_envz00_4310, obj_t BgL_cz00_4311)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 674 */
{ 
obj_t BgL_cz00_877;
BgL_cz00_877 = BgL_cz00_4311; 
return 
BGl_customzd2hashzd2zz__customz00(BgL_cz00_877, 
(int)(((long)10)));} } 
}



/* ucs2-string-mark! */
obj_t BGl_ucs2zd2stringzd2markz12z12zz__intextz00(obj_t BgL_ptrz00_58)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 691 */
{ /* ./Llib/intext.scm 692 */
obj_t BgL_newz00_880;
{ /* ./Llib/intext.scm 692 */
int BgL_auxz00_4870;
BgL_auxz00_4870 = 
(int)(((long)6)); 
BgL_newz00_880 = 
make_struct(BGl_symbol4540z00zz__intextz00, BgL_auxz00_4870, BNIL); } 
{ /* ./Llib/intext.scm 693 */
int BgL_auxz00_4873;
BgL_auxz00_4873 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_880, BgL_auxz00_4873, BgL_ptrz00_58); } 
{ /* ./Llib/intext.scm 694 */
obj_t BgL_auxz00_4878;int BgL_auxz00_4876;
BgL_auxz00_4878 = 
BINT(((long)0)); 
BgL_auxz00_4876 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_880, BgL_auxz00_4876, BgL_auxz00_4878); } 
{ /* ./Llib/intext.scm 695 */
int BgL_auxz00_4881;
BgL_auxz00_4881 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_880, BgL_auxz00_4881, BFALSE); } 
{ /* ./Llib/intext.scm 696 */
int BgL_arg1611z00_881;
BgL_arg1611z00_881 = 
UCS2_STRING_LENGTH(BgL_ptrz00_58); 
{ /* ./Llib/intext.scm 696 */
obj_t BgL_auxz00_4887;int BgL_auxz00_4885;
BgL_auxz00_4887 = 
BINT(BgL_arg1611z00_881); 
BgL_auxz00_4885 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_880, BgL_auxz00_4885, BgL_auxz00_4887); } } 
{ /* ./Llib/intext.scm 697 */
obj_t BgL_auxz00_4892;int BgL_auxz00_4890;
BgL_auxz00_4892 = 
ucs2_string_to_utf8_string(BgL_ptrz00_58); 
BgL_auxz00_4890 = 
(int)(((long)5)); 
STRUCT_SET(BgL_newz00_880, BgL_auxz00_4890, BgL_auxz00_4892); } 
{ /* ./Llib/intext.scm 698 */
obj_t BgL_arg1619z00_883;
BgL_arg1619z00_883 = 
MAKE_PAIR(BgL_ptrz00_58, BgL_newz00_880); 
BGl_putzd2hashz12zc0zz__hashz00(BgL_arg1619z00_883, BGl_za2stringzd2markzd2tableza2z00zz__intextz00); } 
MARK_INTEXT_UCS2_STRING(BgL_ptrz00_58); 
return BgL_newz00_880;} } 
}



/* get-ucs2-string-mark */
obj_t BGl_getzd2ucs2zd2stringzd2markzd2zz__intextz00(obj_t BgL_ptrz00_60)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 711 */
{ /* ./Llib/intext.scm 712 */
obj_t BgL_cellz00_2266;
BgL_cellz00_2266 = 
BGl_getzd2hashzd2zz__hashz00(BgL_ptrz00_60, BGl_za2stringzd2markzd2tableza2z00zz__intextz00); 
if(
PAIRP(BgL_cellz00_2266))
{ /* ./Llib/intext.scm 712 */
return 
CDR(BgL_cellz00_2266);}  else 
{ /* ./Llib/intext.scm 712 */
FAILURE(BGl_string4529z00zz__intextz00,BGl_string4543z00zz__intextz00,BUNSPEC);} } } 
}



/* vector-mark! */
obj_t BGl_vectorzd2markz12zc0zz__intextz00(obj_t BgL_ptrz00_63)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 733 */
{ /* ./Llib/intext.scm 734 */
obj_t BgL_newz00_890;
{ /* ./Llib/intext.scm 734 */
int BgL_auxz00_4903;
BgL_auxz00_4903 = 
(int)(((long)6)); 
BgL_newz00_890 = 
make_struct(BGl_symbol4540z00zz__intextz00, BgL_auxz00_4903, BNIL); } 
{ /* ./Llib/intext.scm 735 */
int BgL_auxz00_4906;
BgL_auxz00_4906 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_890, BgL_auxz00_4906, BgL_ptrz00_63); } 
{ /* ./Llib/intext.scm 736 */
obj_t BgL_auxz00_4911;int BgL_auxz00_4909;
{ 
int BgL_auxz00_4912;
BgL_auxz00_4912 = 
(int)(((long)0)); 
BgL_auxz00_4911 = 
VECTOR_REF(BgL_ptrz00_63,BgL_auxz00_4912); } 
BgL_auxz00_4909 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_890, BgL_auxz00_4909, BgL_auxz00_4911); } 
{ /* ./Llib/intext.scm 737 */
obj_t BgL_auxz00_4918;int BgL_auxz00_4916;
BgL_auxz00_4918 = 
BINT(((long)0)); 
BgL_auxz00_4916 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_890, BgL_auxz00_4916, BgL_auxz00_4918); } 
{ /* ./Llib/intext.scm 738 */
int BgL_auxz00_4921;
BgL_auxz00_4921 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_890, BgL_auxz00_4921, BFALSE); } 
{ 
int BgL_auxz00_4924;
BgL_auxz00_4924 = 
(int)(((long)0)); 
VECTOR_SET(BgL_ptrz00_63,BgL_auxz00_4924,BgL_newz00_890); } 
return BgL_newz00_890;} } 
}



/* tvector-mark! */
obj_t BGl_tvectorzd2markz12zc0zz__intextz00(obj_t BgL_ptrz00_67, obj_t BgL_vz00_68)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 768 */
{ /* ./Llib/intext.scm 769 */
obj_t BgL_newz00_894;
{ /* ./Llib/intext.scm 769 */
int BgL_auxz00_4927;
BgL_auxz00_4927 = 
(int)(((long)6)); 
BgL_newz00_894 = 
make_struct(BGl_symbol4540z00zz__intextz00, BgL_auxz00_4927, BNIL); } 
{ /* ./Llib/intext.scm 770 */
int BgL_auxz00_4930;
BgL_auxz00_4930 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_894, BgL_auxz00_4930, BgL_ptrz00_67); } 
{ /* ./Llib/intext.scm 771 */
int BgL_auxz00_4933;
BgL_auxz00_4933 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_894, BgL_auxz00_4933, BUNSPEC); } 
{ /* ./Llib/intext.scm 772 */
obj_t BgL_auxz00_4938;int BgL_auxz00_4936;
BgL_auxz00_4938 = 
BINT(((long)0)); 
BgL_auxz00_4936 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_894, BgL_auxz00_4936, BgL_auxz00_4938); } 
{ /* ./Llib/intext.scm 773 */
int BgL_auxz00_4941;
BgL_auxz00_4941 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_894, BgL_auxz00_4941, BFALSE); } 
{ /* ./Llib/intext.scm 774 */
int BgL_auxz00_4944;
BgL_auxz00_4944 = 
(int)(((long)5)); 
STRUCT_SET(BgL_newz00_894, BgL_auxz00_4944, BgL_vz00_68); } 
{ /* ./Llib/intext.scm 775 */
obj_t BgL_arg1661z00_895;
BgL_arg1661z00_895 = 
MAKE_PAIR(BgL_ptrz00_67, BgL_newz00_894); 
BGl_za2tvectorzd2tableza2zd2zz__intextz00 = 
MAKE_PAIR(BgL_arg1661z00_895, BGl_za2tvectorzd2tableza2zd2zz__intextz00); } 
return BgL_newz00_894;} } 
}



/* struct-mark! */
obj_t BGl_structzd2markz12zc0zz__intextz00(obj_t BgL_ptrz00_73)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 806 */
{ /* ./Llib/intext.scm 807 */
obj_t BgL_newz00_902;
{ /* ./Llib/intext.scm 807 */
int BgL_auxz00_4949;
BgL_auxz00_4949 = 
(int)(((long)6)); 
BgL_newz00_902 = 
make_struct(BGl_symbol4540z00zz__intextz00, BgL_auxz00_4949, BNIL); } 
{ /* ./Llib/intext.scm 808 */
int BgL_auxz00_4952;
BgL_auxz00_4952 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_902, BgL_auxz00_4952, BgL_ptrz00_73); } 
{ /* ./Llib/intext.scm 809 */
obj_t BgL_arg1685z00_903;
BgL_arg1685z00_903 = 
STRUCT_KEY(BgL_ptrz00_73); 
{ /* ./Llib/intext.scm 809 */
int BgL_auxz00_4956;
BgL_auxz00_4956 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_902, BgL_auxz00_4956, BgL_arg1685z00_903); } } 
{ /* ./Llib/intext.scm 810 */
obj_t BgL_auxz00_4961;int BgL_auxz00_4959;
BgL_auxz00_4961 = 
BINT(((long)0)); 
BgL_auxz00_4959 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_902, BgL_auxz00_4959, BgL_auxz00_4961); } 
{ /* ./Llib/intext.scm 811 */
int BgL_auxz00_4964;
BgL_auxz00_4964 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_902, BgL_auxz00_4964, BFALSE); } 
STRUCT_KEY_SET(BgL_ptrz00_73, BgL_newz00_902); 
return BgL_newz00_902;} } 
}



/* object-mark! */
obj_t BGl_objectzd2markz12zc0zz__intextz00(obj_t BgL_ptrz00_76, obj_t BgL_structz00_77)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 830 */
{ /* ./Llib/intext.scm 831 */
obj_t BgL_newz00_906;
{ /* ./Llib/intext.scm 831 */
int BgL_auxz00_4968;
BgL_auxz00_4968 = 
(int)(((long)6)); 
BgL_newz00_906 = 
make_struct(BGl_symbol4540z00zz__intextz00, BgL_auxz00_4968, BNIL); } 
{ /* ./Llib/intext.scm 832 */
int BgL_auxz00_4971;
BgL_auxz00_4971 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_906, BgL_auxz00_4971, BgL_ptrz00_76); } 
{ /* ./Llib/intext.scm 833 */
obj_t BgL_arg1700z00_907;
{ /* ./Llib/intext.scm 833 */
BgL_objectz00_bglt BgL_auxz00_4974;
BgL_auxz00_4974 = 
(BgL_objectz00_bglt)(BgL_ptrz00_76); 
BgL_arg1700z00_907 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4974); } 
{ /* ./Llib/intext.scm 833 */
int BgL_auxz00_4977;
BgL_auxz00_4977 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_906, BgL_auxz00_4977, BgL_arg1700z00_907); } } 
{ /* ./Llib/intext.scm 834 */
int BgL_auxz00_4980;
BgL_auxz00_4980 = 
(int)(((long)5)); 
STRUCT_SET(BgL_newz00_906, BgL_auxz00_4980, BgL_structz00_77); } 
{ /* ./Llib/intext.scm 835 */
obj_t BgL_auxz00_4985;int BgL_auxz00_4983;
BgL_auxz00_4985 = 
BINT(((long)0)); 
BgL_auxz00_4983 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_906, BgL_auxz00_4983, BgL_auxz00_4985); } 
{ /* ./Llib/intext.scm 836 */
int BgL_auxz00_4988;
BgL_auxz00_4988 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_906, BgL_auxz00_4988, BFALSE); } 
{ /* ./Llib/intext.scm 837 */
BgL_objectz00_bglt BgL_auxz00_4991;
BgL_auxz00_4991 = 
(BgL_objectz00_bglt)(BgL_ptrz00_76); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4991, BgL_newz00_906); } 
return BgL_newz00_906;} } 
}



/* taille-du-mot */
long BGl_taillezd2duzd2motz00zz__intextz00(obj_t BgL_mz00_82)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 873 */
{ 
long BgL_taillez00_2531;obj_t BgL_mz00_2532;
BgL_taillez00_2531 = ((long)0); 
BgL_mz00_2532 = BgL_mz00_82; 
BgL_loopz00_2530:
{ /* ./Llib/intext.scm 874 */
bool_t BgL_testz00_4994;
{ /* ./Llib/intext.scm 874 */
long BgL_auxz00_4995;
BgL_auxz00_4995 = 
(long)CINT(BgL_mz00_2532); 
BgL_testz00_4994 = 
(BgL_auxz00_4995==((long)0)); } 
if(BgL_testz00_4994)
{ /* ./Llib/intext.scm 874 */
return BgL_taillez00_2531;}  else 
{ 
obj_t BgL_mz00_5000;long BgL_taillez00_4998;
BgL_taillez00_4998 = 
(BgL_taillez00_2531+((long)1)); 
{ /* ./Llib/intext.scm 874 */
long BgL_auxz00_5001;
{ /* ./Llib/intext.scm 874 */
int BgL_auxz00_5004;long BgL_auxz00_5002;
BgL_auxz00_5004 = 
(int)(((long)8)); 
BgL_auxz00_5002 = 
(long)CINT(BgL_mz00_2532); 
BgL_auxz00_5001 = 
(BgL_auxz00_5002 >> BgL_auxz00_5004); } 
BgL_mz00_5000 = 
BINT(BgL_auxz00_5001); } 
BgL_mz00_2532 = BgL_mz00_5000; 
BgL_taillez00_2531 = BgL_taillez00_4998; 
goto BgL_loopz00_2530;} } } } 
}



/* print-marqueur */
obj_t BGl_printzd2marqueurzd2zz__intextz00(unsigned char BgL_cz00_83)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 884 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 886 */
int BgL_auxz00_5010;
BgL_auxz00_5010 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5010, BgL_cz00_83); } 
return ( 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)), BUNSPEC) ;} 
}



/* print-mot */
obj_t BGl_printzd2motzd2zz__intextz00(obj_t BgL_mz00_85)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 898 */
{ /* ./Llib/intext.scm 899 */
long BgL_taillez00_920;
BgL_taillez00_920 = 
BGl_taillezd2duzd2motz00zz__intextz00(BgL_mz00_85); 
if(
(BgL_taillez00_920==((long)0)))
{ /* ./Llib/intext.scm 900 */
return 
BGl_printzd2marqueurzd2zz__intextz00(
(((long)0)));}  else 
{ /* ./Llib/intext.scm 900 */
BGl_printzd2marqueurzd2zz__intextz00(
(BgL_taillez00_920)); 
{ 
long BgL_iz00_922;
BgL_iz00_922 = 
(BgL_taillez00_920-((long)1)); 
BgL_loopz00_923:
if(
(BgL_iz00_922==((long)-1)))
{ /* ./Llib/intext.scm 905 */
return BGl_symbol4537z00zz__intextz00;}  else 
{ /* ./Llib/intext.scm 905 */
{ /* ./Llib/intext.scm 908 */
long BgL_dz00_926;
{ /* ./Llib/intext.scm 908 */
long BgL_auxz00_5023;
{ /* ./Llib/intext.scm 908 */
int BgL_auxz00_5026;long BgL_auxz00_5024;
{ /* ./Llib/intext.scm 908 */
long BgL_auxz00_5027;
BgL_auxz00_5027 = 
(((long)8)*BgL_iz00_922); 
BgL_auxz00_5026 = 
(int)(BgL_auxz00_5027); } 
BgL_auxz00_5024 = 
(long)CINT(BgL_mz00_85); 
BgL_auxz00_5023 = 
(BgL_auxz00_5024 >> BgL_auxz00_5026); } 
BgL_dz00_926 = 
(BgL_auxz00_5023 & ((long)255)); } 
BGl_printzd2marqueurzd2zz__intextz00(
(BgL_dz00_926)); 
{ 
long BgL_iz00_5034;
BgL_iz00_5034 = 
(BgL_iz00_922-((long)1)); 
BgL_iz00_922 = BgL_iz00_5034; 
goto BgL_loopz00_923;} } } } } } } 
}



/* print-di */
obj_t BGl_printzd2dizd2zz__intextz00(long BgL_iz00_86)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 917 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
if(
(BgL_iz00_86<((long)0)))
{ /* ./Llib/intext.scm 919 */
{ /* ./Llib/intext.scm 921 */
int BgL_auxz00_5041;
BgL_auxz00_5041 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5041, ((unsigned char)'-')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 923 */
long BgL_arg1769z00_932;
BgL_arg1769z00_932 = 
NEG(BgL_iz00_86); 
return 
BGl_printzd2motzd2zz__intextz00(
BINT(BgL_arg1769z00_932));} }  else 
{ /* ./Llib/intext.scm 919 */
return 
BGl_printzd2motzd2zz__intextz00(
BINT(BgL_iz00_86));} } 
}



/* print-chars */
obj_t BGl_printzd2charszd2zz__intextz00(obj_t BgL_sz00_87, obj_t BgL_taillez00_88)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 929 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(BgL_taillez00_88); 
BGl_printzd2motzd2zz__intextz00(BgL_taillez00_88); 
{ /* ./Llib/intext.scm 933 */
int BgL_auxz00_5056;int BgL_auxz00_5054;int BgL_auxz00_5052;
BgL_auxz00_5056 = 
CINT(BgL_taillez00_88); 
BgL_auxz00_5054 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_auxz00_5052 = 
(int)(((long)0)); 
blit_string(BgL_sz00_87, BgL_auxz00_5052, BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5054, BgL_auxz00_5056); } 
{ /* ./Llib/intext.scm 934 */
long BgL_auxz00_5059;
BgL_auxz00_5059 = 
(long)CINT(BgL_taillez00_88); 
return ( 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_5059), BUNSPEC) ;} } 
}



/* obj->string */
BGL_EXPORTED_DEF obj_t obj_to_string(obj_t BgL_objz00_96)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 989 */
BGl_za2refza2z00zz__intextz00 = ((long)-1); 
BGl_za2nbzd2refza2zd2zz__intextz00 = ((long)0); 
BGl_za2pointeurza2z00zz__intextz00 = ((long)0); 
BGl_za2bufferzd2lenza2zd2zz__intextz00 = ((long)100); 
{ /* ./Llib/intext.scm 994 */
obj_t BgL_list1803z00_954;
{ /* ./Llib/intext.scm 994 */
obj_t BgL_auxz00_5062;
BgL_auxz00_5062 = 
BCHAR(((unsigned char)' ')); 
BgL_list1803z00_954 = 
MAKE_PAIR(BgL_auxz00_5062, BNIL); } 
{ /* ./Llib/intext.scm 994 */
obj_t BgL_res3756z00_2673;
{ /* ./Llib/intext.scm 994 */
int BgL_kz00_2667;
BgL_kz00_2667 = 
(int)(BGl_za2bufferzd2lenza2zd2zz__intextz00); 
{ /* ./Llib/intext.scm 994 */
obj_t BgL_arg3346z00_2670;
BgL_arg3346z00_2670 = 
CAR(BgL_list1803z00_954); 
{ /* ./Llib/intext.scm 994 */
unsigned char BgL_auxz00_5067;
BgL_auxz00_5067 = 
(unsigned char)CCHAR(BgL_arg3346z00_2670); 
BgL_res3756z00_2673 = 
make_string(BgL_kz00_2667, BgL_auxz00_5067); } } } 
BGl_za2bufferza2z00zz__intextz00 = BgL_res3756z00_2673; } } 
BGl_za2stringzd2markzd2tableza2z00zz__intextz00 = 
BGl_makezd2hashzd2tablez00zz__hashz00(((long)1024), BGl_proc4544z00zz__intextz00, BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00, BNIL); 
BGl_loopz00zz__intextz00(BgL_objz00_96); 
BGl_za2pointeurza2z00zz__intextz00 = ((long)0); 
if(
(BGl_za2nbzd2refza2zd2zz__intextz00>((long)0)))
{ /* ./Llib/intext.scm 1422 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1424 */
int BgL_auxz00_5076;
BgL_auxz00_5076 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5076, ((unsigned char)'c')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(BGl_za2nbzd2refza2zd2zz__intextz00); }  else 
{ /* ./Llib/intext.scm 1422 */BFALSE; } 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_96, BgL_objz00_96); 
BGl_za2stringzd2markzd2tableza2z00zz__intextz00 = BUNSPEC; 
BGl_za2customzd2markzd2tableza2z00zz__intextz00 = BUNSPEC; 
{ /* ./Llib/intext.scm 1429 */
obj_t BgL_resz00_962;
{ /* ./Llib/intext.scm 1429 */
int BgL_auxz00_5084;int BgL_auxz00_5082;
BgL_auxz00_5084 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_auxz00_5082 = 
(int)(((long)0)); 
BgL_resz00_962 = 
c_substring(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5082, BgL_auxz00_5084); } 
BGl_za2procedurezd2tableza2zd2zz__intextz00 = BNIL; 
BGl_za2processzd2tableza2zd2zz__intextz00 = BNIL; 
BGl_za2opaquezd2tableza2zd2zz__intextz00 = BNIL; 
BGl_za2tvectorzd2tableza2zd2zz__intextz00 = BNIL; 
BGl_za2pointerzd2tableza2zd2zz__intextz00 = BNIL; 
BGl_za2bufferzd2lenza2zd2zz__intextz00 = ((long)0); 
BGl_za2bufferza2z00zz__intextz00 = BGl_string4520z00zz__intextz00; 
return BgL_resz00_962;} } 
}



/* print-struct */
obj_t BGl_printzd2structzd2zz__intextz00(obj_t BgL_objz00_4337, unsigned char BgL_marqueurz00_1188, obj_t BgL_itemz00_1189)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1102 */
{ 
obj_t BgL_vz00_1270;int BgL_lenz00_1271;
{ /* ./Llib/intext.scm 1070 */
bool_t BgL_test2445z00_1191;
{ /* ./Llib/intext.scm 1070 */
obj_t BgL_arg2515z00_1215;
BgL_arg2515z00_1215 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1070 */
obj_t BgL_auxz00_5088;
{ /* ./Llib/intext.scm 1070 */
int BgL_auxz00_5089;
BgL_auxz00_5089 = 
(int)(((long)3)); 
BgL_auxz00_5088 = 
STRUCT_REF(BgL_arg2515z00_1215, BgL_auxz00_5089); } 
BgL_test2445z00_1191 = 
CBOOL(BgL_auxz00_5088); } } 
if(BgL_test2445z00_1191)
{ /* ./Llib/intext.scm 1070 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1071 */
int BgL_auxz00_5096;
BgL_auxz00_5096 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5096, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1072 */
obj_t BgL_arg2448z00_1192;
{ /* ./Llib/intext.scm 1072 */
obj_t BgL_arg2451z00_1193;
BgL_arg2451z00_1193 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1072 */
int BgL_auxz00_5101;
BgL_auxz00_5101 = 
(int)(((long)2)); 
BgL_arg2448z00_1192 = 
STRUCT_REF(BgL_arg2451z00_1193, BgL_auxz00_5101); } } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg2448z00_1192)); } 
{ /* ./Llib/intext.scm 1073 */
obj_t BgL_arg2455z00_1194;long BgL_arg2456z00_1195;
BgL_arg2455z00_1194 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1075 */
obj_t BgL_arg2460z00_1196;
{ /* ./Llib/intext.scm 1075 */
obj_t BgL_arg2464z00_1198;
BgL_arg2464z00_1198 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1074 */
int BgL_auxz00_5108;
BgL_auxz00_5108 = 
(int)(((long)4)); 
BgL_arg2460z00_1196 = 
STRUCT_REF(BgL_arg2464z00_1198, BgL_auxz00_5108); } } 
{ /* ./Llib/intext.scm 1074 */
long BgL_auxz00_5111;
BgL_auxz00_5111 = 
(long)CINT(BgL_arg2460z00_1196); 
BgL_arg2456z00_1195 = 
(BgL_auxz00_5111-((long)1)); } } 
{ /* ./Llib/intext.scm 1073 */
obj_t BgL_auxz00_5116;int BgL_auxz00_5114;
BgL_auxz00_5116 = 
BINT(BgL_arg2456z00_1195); 
BgL_auxz00_5114 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2455z00_1194, BgL_auxz00_5114, BgL_auxz00_5116); } } 
{ /* ./Llib/intext.scm 1077 */
bool_t BgL_test2467z00_1199;
{ /* ./Llib/intext.scm 1077 */
obj_t BgL_arg2470z00_1200;
{ /* ./Llib/intext.scm 1077 */
obj_t BgL_arg2474z00_1202;
BgL_arg2474z00_1202 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1077 */
int BgL_auxz00_5120;
BgL_auxz00_5120 = 
(int)(((long)4)); 
BgL_arg2470z00_1200 = 
STRUCT_REF(BgL_arg2474z00_1202, BgL_auxz00_5120); } } 
{ /* ./Llib/intext.scm 1077 */
long BgL_auxz00_5123;
BgL_auxz00_5123 = 
(long)CINT(BgL_arg2470z00_1200); 
BgL_test2467z00_1199 = 
(BgL_auxz00_5123==((long)0)); } } 
if(BgL_test2467z00_1199)
{ /* ./Llib/intext.scm 1078 */
obj_t BgL_oldzd2valuezd2_3657;
{ /* ./Llib/intext.scm 1078 */
obj_t BgL_arg1680z00_3658;
BgL_arg1680z00_3658 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1078 */
int BgL_auxz00_5128;
BgL_auxz00_5128 = 
(int)(((long)1)); 
BgL_oldzd2valuezd2_3657 = 
STRUCT_REF(BgL_arg1680z00_3658, BgL_auxz00_5128); } } 
return 
STRUCT_KEY_SET(BgL_itemz00_1189, BgL_oldzd2valuezd2_3657);}  else 
{ /* ./Llib/intext.scm 1077 */
return BFALSE;} } }  else 
{ /* ./Llib/intext.scm 1079 */
bool_t BgL_test2477z00_1203;
{ /* ./Llib/intext.scm 1079 */
obj_t BgL_arg2507z00_1212;
{ /* ./Llib/intext.scm 1079 */
obj_t BgL_arg2511z00_1214;
BgL_arg2511z00_1214 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1079 */
int BgL_auxz00_5133;
BgL_auxz00_5133 = 
(int)(((long)4)); 
BgL_arg2507z00_1212 = 
STRUCT_REF(BgL_arg2511z00_1214, BgL_auxz00_5133); } } 
{ /* ./Llib/intext.scm 1079 */
long BgL_auxz00_5136;
BgL_auxz00_5136 = 
(long)CINT(BgL_arg2507z00_1212); 
BgL_test2477z00_1203 = 
(BgL_auxz00_5136==((long)0)); } } 
if(BgL_test2477z00_1203)
{ /* ./Llib/intext.scm 1079 */
{ /* ./Llib/intext.scm 1080 */
obj_t BgL_oldzd2valuezd2_3670;
{ /* ./Llib/intext.scm 1080 */
obj_t BgL_arg1680z00_3671;
BgL_arg1680z00_3671 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1080 */
int BgL_auxz00_5141;
BgL_auxz00_5141 = 
(int)(((long)1)); 
BgL_oldzd2valuezd2_3670 = 
STRUCT_REF(BgL_arg1680z00_3671, BgL_auxz00_5141); } } 
STRUCT_KEY_SET(BgL_itemz00_1189, BgL_oldzd2valuezd2_3670); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1081 */
int BgL_auxz00_5147;
BgL_auxz00_5147 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5147, BgL_marqueurz00_1188); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1082 */
obj_t BgL_arg2481z00_1204;
BgL_arg2481z00_1204 = 
STRUCT_KEY(BgL_itemz00_1189); 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4337, BgL_arg2481z00_1204); } 
BgL_vz00_1270 = BgL_itemz00_1189; 
BgL_lenz00_1271 = 
STRUCT_LENGTH(BgL_itemz00_1189); 
BgL_zc3anonymousza32630ze3z83_1272:
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(BgL_lenz00_1271)); 
BGl_printzd2motzd2zz__intextz00(
BINT(BgL_lenz00_1271)); 
{ 
long BgL_iz00_1273;
BgL_iz00_1273 = ((long)0); 
BgL_for1015z00_1274:
{ /* ./Llib/intext.scm 1008 */
bool_t BgL_testz00_5157;
{ /* ./Llib/intext.scm 1008 */
long BgL_auxz00_5158;
{ /* ./Llib/intext.scm 1008 */
long BgL_auxz00_5159;
BgL_auxz00_5159 = 
(long)(BgL_lenz00_1271); 
BgL_auxz00_5158 = 
(BgL_auxz00_5159-((long)1)); } 
BgL_testz00_5157 = 
(BgL_iz00_1273<=BgL_auxz00_5158); } 
if(BgL_testz00_5157)
{ /* ./Llib/intext.scm 1008 */
{ /* ./Llib/intext.scm 1009 */
obj_t BgL_auxz00_5163;
{ /* ./Llib/intext.scm 1009 */
int BgL_auxz00_5164;
BgL_auxz00_5164 = 
(int)(BgL_iz00_1273); 
BgL_auxz00_5163 = 
STRUCT_REF(BgL_vz00_1270, BgL_auxz00_5164); } 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4337, BgL_auxz00_5163); } 
{ 
long BgL_iz00_5168;
BgL_iz00_5168 = 
(BgL_iz00_1273+((long)1)); 
BgL_iz00_1273 = BgL_iz00_5168; 
goto BgL_for1015z00_1274;} }  else 
{ /* ./Llib/intext.scm 1008 */
return BGl_symbol4537z00zz__intextz00;} } } }  else 
{ /* ./Llib/intext.scm 1079 */
{ /* ./Llib/intext.scm 1085 */
long BgL_refz00_1206;
BGl_za2refza2z00zz__intextz00 = 
(BGl_za2refza2z00zz__intextz00+((long)1)); 
BgL_refz00_1206 = BGl_za2refza2z00zz__intextz00; 
{ /* ./Llib/intext.scm 1085 */
obj_t BgL_markz00_1207;
BgL_markz00_1207 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1086 */
int BgL_lenz00_1208;
BgL_lenz00_1208 = 
STRUCT_LENGTH(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1087 */
obj_t BgL_keyz00_1209;
BgL_keyz00_1209 = BUNSPEC; 
{ /* ./Llib/intext.scm 1087 */

{ /* ./Llib/intext.scm 1092 */
obj_t BgL_auxz00_5174;
{ /* ./Llib/intext.scm 1092 */
int BgL_auxz00_5175;
BgL_auxz00_5175 = 
(int)(((long)1)); 
BgL_auxz00_5174 = 
STRUCT_REF(BgL_markz00_1207, BgL_auxz00_5175); } 
STRUCT_KEY_SET(BgL_itemz00_1189, BgL_auxz00_5174); } 
BgL_keyz00_1209 = 
STRUCT_KEY(BgL_itemz00_1189); 
STRUCT_KEY_SET(BgL_itemz00_1189, BgL_markz00_1207); 
{ /* ./Llib/intext.scm 1096 */
obj_t BgL_auxz00_5183;int BgL_auxz00_5181;
BgL_auxz00_5183 = 
BINT(BgL_refz00_1206); 
BgL_auxz00_5181 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1207, BgL_auxz00_5181, BgL_auxz00_5183); } 
{ /* ./Llib/intext.scm 1097 */
int BgL_auxz00_5186;
BgL_auxz00_5186 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1207, BgL_auxz00_5186, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1098 */
int BgL_auxz00_5191;
BgL_auxz00_5191 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5191, ((unsigned char)'=')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(BgL_refz00_1206); 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1100 */
int BgL_auxz00_5198;
BgL_auxz00_5198 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5198, BgL_marqueurz00_1188); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4337, BgL_keyz00_1209); 
{ 
int BgL_lenz00_5204;obj_t BgL_vz00_5203;
BgL_vz00_5203 = BgL_itemz00_1189; 
BgL_lenz00_5204 = BgL_lenz00_1208; 
BgL_lenz00_1271 = BgL_lenz00_5204; 
BgL_vz00_1270 = BgL_vz00_5203; 
goto BgL_zc3anonymousza32630ze3z83_1272;} } } } } } } } } } } 
}



/* pair-mark-gc! */
obj_t BGl_pairzd2markzd2gcz12z12zz__intextz00(obj_t BgL_pz00_1260)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1015 */
{ /* ./Llib/intext.scm 1011 */
obj_t BgL_markz00_1262;
BgL_markz00_1262 = 
CDR(BgL_pz00_1260); 
{ /* ./Llib/intext.scm 1012 */
bool_t BgL_test2612z00_1263;
{ /* ./Llib/intext.scm 1012 */
bool_t BgL_testz00_5206;
{ /* ./Llib/intext.scm 1012 */
obj_t BgL_auxz00_5207;
{ /* ./Llib/intext.scm 1012 */
int BgL_auxz00_5208;
BgL_auxz00_5208 = 
(int)(((long)3)); 
BgL_auxz00_5207 = 
STRUCT_REF(BgL_markz00_1262, BgL_auxz00_5208); } 
BgL_testz00_5206 = 
CBOOL(BgL_auxz00_5207); } 
if(BgL_testz00_5206)
{ /* ./Llib/intext.scm 1013 */
long BgL_auxz00_5212;
{ /* ./Llib/intext.scm 1013 */
obj_t BgL_auxz00_5213;
{ /* ./Llib/intext.scm 1013 */
int BgL_auxz00_5214;
BgL_auxz00_5214 = 
(int)(((long)4)); 
BgL_auxz00_5213 = 
STRUCT_REF(BgL_markz00_1262, BgL_auxz00_5214); } 
BgL_auxz00_5212 = 
(long)CINT(BgL_auxz00_5213); } 
BgL_test2612z00_1263 = 
(BgL_auxz00_5212>((long)0)); }  else 
{ /* ./Llib/intext.scm 1012 */
BgL_test2612z00_1263 = ((bool_t)0); } } 
if(BgL_test2612z00_1263)
{ /* ./Llib/intext.scm 1014 */
long BgL_arg2614z00_1264;
{ /* ./Llib/intext.scm 1014 */
long BgL_auxz00_5220;
{ /* ./Llib/intext.scm 1014 */
obj_t BgL_auxz00_5221;
{ /* ./Llib/intext.scm 1014 */
int BgL_auxz00_5222;
BgL_auxz00_5222 = 
(int)(((long)4)); 
BgL_auxz00_5221 = 
STRUCT_REF(BgL_markz00_1262, BgL_auxz00_5222); } 
BgL_auxz00_5220 = 
(long)CINT(BgL_auxz00_5221); } 
BgL_arg2614z00_1264 = 
(BgL_auxz00_5220-((long)1)); } 
{ /* ./Llib/intext.scm 1014 */
obj_t BgL_auxz00_5229;int BgL_auxz00_5227;
BgL_auxz00_5229 = 
BINT(BgL_arg2614z00_1264); 
BgL_auxz00_5227 = 
(int)(((long)4)); 
return 
STRUCT_SET(BgL_markz00_1262, BgL_auxz00_5227, BgL_auxz00_5229);} }  else 
{ /* ./Llib/intext.scm 1015 */
obj_t BgL_auxz00_5232;
{ /* ./Llib/intext.scm 1015 */
int BgL_auxz00_5233;
BgL_auxz00_5233 = 
(int)(((long)1)); 
BgL_auxz00_5232 = 
STRUCT_REF(BgL_markz00_1262, BgL_auxz00_5233); } 
return 
SET_CDR(BgL_pz00_1260, BgL_auxz00_5232);} } } } 
}



/* print-item */
obj_t BGl_printzd2itemzd2zz__intextz00(obj_t BgL_objz00_4338, obj_t BgL_itemz00_963)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1413 */
BGl_printzd2itemzd2zz__intextz00:
{ 
unsigned char BgL_marqueurz00_1131;obj_t BgL_itemz00_1132;unsigned char BgL_marqueurz00_1149;obj_t BgL_itemz00_1150;unsigned char BgL_marqueurz00_1170;obj_t BgL_itemz00_1171;obj_t BgL_pz00_1216;long BgL_lenz00_1217;obj_t BgL_pz00_1240;long BgL_lenz00_1241;obj_t BgL_vz00_1279;obj_t BgL_ref0z00_1280;obj_t BgL_lenz00_1281;
{ /* ./Llib/intext.scm 1174 */
bool_t BgL_test1820z00_965;
BgL_test1820z00_965 = 
BGL_OBJECTP(BgL_itemz00_963); 
if(BgL_test1820z00_965)
{ /* ./Llib/intext.scm 1174 */
{ /* ./Llib/intext.scm 1175 */
obj_t BgL_markz00_966;
{ /* ./Llib/intext.scm 1175 */
BgL_objectz00_bglt BgL_auxz00_5239;
BgL_auxz00_5239 = 
(BgL_objectz00_bglt)(BgL_itemz00_963); 
BgL_markz00_966 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5239); } 
{ /* ./Llib/intext.scm 1177 */
bool_t BgL_testz00_5242;
{ /* ./Llib/intext.scm 1177 */
obj_t BgL_auxz00_5243;
{ /* ./Llib/intext.scm 1177 */
int BgL_auxz00_5244;
BgL_auxz00_5244 = 
(int)(((long)3)); 
BgL_auxz00_5243 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5244); } 
BgL_testz00_5242 = 
CBOOL(BgL_auxz00_5243); } 
if(BgL_testz00_5242)
{ /* ./Llib/intext.scm 1177 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1178 */
int BgL_auxz00_5250;
BgL_auxz00_5250 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5250, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1179 */
obj_t BgL_arg1824z00_968;
{ /* ./Llib/intext.scm 1179 */
int BgL_auxz00_5254;
BgL_auxz00_5254 = 
(int)(((long)2)); 
BgL_arg1824z00_968 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5254); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg1824z00_968)); } 
{ /* ./Llib/intext.scm 1180 */
long BgL_arg1829z00_969;
{ /* ./Llib/intext.scm 1180 */
long BgL_auxz00_5259;
{ /* ./Llib/intext.scm 1180 */
obj_t BgL_auxz00_5260;
{ /* ./Llib/intext.scm 1180 */
int BgL_auxz00_5261;
BgL_auxz00_5261 = 
(int)(((long)4)); 
BgL_auxz00_5260 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5261); } 
BgL_auxz00_5259 = 
(long)CINT(BgL_auxz00_5260); } 
BgL_arg1829z00_969 = 
(BgL_auxz00_5259-((long)1)); } 
{ /* ./Llib/intext.scm 1180 */
obj_t BgL_auxz00_5268;int BgL_auxz00_5266;
BgL_auxz00_5268 = 
BINT(BgL_arg1829z00_969); 
BgL_auxz00_5266 = 
(int)(((long)4)); 
STRUCT_SET(BgL_markz00_966, BgL_auxz00_5266, BgL_auxz00_5268); } } 
{ /* ./Llib/intext.scm 1181 */
bool_t BgL_testz00_5271;
{ /* ./Llib/intext.scm 1181 */
long BgL_auxz00_5272;
{ /* ./Llib/intext.scm 1181 */
obj_t BgL_auxz00_5273;
{ /* ./Llib/intext.scm 1181 */
int BgL_auxz00_5274;
BgL_auxz00_5274 = 
(int)(((long)4)); 
BgL_auxz00_5273 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5274); } 
BgL_auxz00_5272 = 
(long)CINT(BgL_auxz00_5273); } 
BgL_testz00_5271 = 
(BgL_auxz00_5272==((long)0)); } 
if(BgL_testz00_5271)
{ /* ./Llib/intext.scm 1182 */
obj_t BgL_oldzd2valuezd2_2715;
{ /* ./Llib/intext.scm 1182 */
int BgL_auxz00_5283;obj_t BgL_auxz00_5279;
BgL_auxz00_5283 = 
(int)(((long)1)); 
{ /* ./Llib/intext.scm 1182 */
BgL_objectz00_bglt BgL_auxz00_5280;
BgL_auxz00_5280 = 
(BgL_objectz00_bglt)(BgL_itemz00_963); 
BgL_auxz00_5279 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5280); } 
BgL_oldzd2valuezd2_2715 = 
STRUCT_REF(BgL_auxz00_5279, BgL_auxz00_5283); } 
{ /* ./Llib/intext.scm 1182 */
BgL_objectz00_bglt BgL_auxz00_5286;
BgL_auxz00_5286 = 
(BgL_objectz00_bglt)(BgL_itemz00_963); 
return 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5286, BgL_oldzd2valuezd2_2715);} }  else 
{ /* ./Llib/intext.scm 1181 */
return BFALSE;} } }  else 
{ /* ./Llib/intext.scm 1183 */
bool_t BgL_testz00_5289;
{ /* ./Llib/intext.scm 1183 */
long BgL_auxz00_5290;
{ /* ./Llib/intext.scm 1183 */
obj_t BgL_auxz00_5291;
{ /* ./Llib/intext.scm 1183 */
int BgL_auxz00_5292;
BgL_auxz00_5292 = 
(int)(((long)4)); 
BgL_auxz00_5291 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5292); } 
BgL_auxz00_5290 = 
(long)CINT(BgL_auxz00_5291); } 
BgL_testz00_5289 = 
(BgL_auxz00_5290==((long)0)); } 
if(BgL_testz00_5289)
{ /* ./Llib/intext.scm 1183 */
{ /* ./Llib/intext.scm 1184 */
obj_t BgL_structz00_976;
{ /* ./Llib/intext.scm 1184 */
int BgL_auxz00_5297;
BgL_auxz00_5297 = 
(int)(((long)5)); 
BgL_structz00_976 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5297); } 
{ /* ./Llib/intext.scm 1185 */
obj_t BgL_oldzd2valuezd2_2733;
{ /* ./Llib/intext.scm 1185 */
int BgL_auxz00_5300;
BgL_auxz00_5300 = 
(int)(((long)1)); 
BgL_oldzd2valuezd2_2733 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5300); } 
{ /* ./Llib/intext.scm 1185 */
BgL_objectz00_bglt BgL_auxz00_5303;
BgL_auxz00_5303 = 
(BgL_objectz00_bglt)(BgL_itemz00_963); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5303, BgL_oldzd2valuezd2_2733); } } 
BGl_printzd2structzd2zz__intextz00(BgL_objz00_4338, ((unsigned char)'|'), BgL_structz00_976); 
{ /* ./Llib/intext.scm 1187 */
long BgL_arg1850z00_977;
{ /* ./Llib/intext.scm 1187 */
obj_t BgL_arg1853z00_978;
{ /* ./Llib/intext.scm 1187 */
BgL_objectz00_bglt BgL_objectz00_2739;
BgL_objectz00_2739 = 
(BgL_objectz00_bglt)(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1187 */
long BgL_arg3692z00_2740;
{ /* ./Llib/intext.scm 1187 */
long BgL_arg3695z00_2741;
BgL_arg3695z00_2741 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_2739); 
BgL_arg3692z00_2740 = 
(BgL_arg3695z00_2741-OBJECT_TYPE); } 
{ 
int BgL_auxz00_5310;
BgL_auxz00_5310 = 
(int)(BgL_arg3692z00_2740); 
BgL_arg1853z00_978 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_5310); } } } 
BgL_arg1850z00_977 = 
BGl_classzd2hashzd2zz__objectz00(BgL_arg1853z00_978); } 
{ 
obj_t BgL_itemz00_5314;
BgL_itemz00_5314 = 
BINT(BgL_arg1850z00_977); 
BgL_itemz00_963 = BgL_itemz00_5314; 
goto BGl_printzd2itemzd2zz__intextz00;} } } }  else 
{ /* ./Llib/intext.scm 1183 */
{ /* ./Llib/intext.scm 1189 */
long BgL_refz00_979;obj_t BgL_structz00_980;
BGl_za2refza2z00zz__intextz00 = 
(BGl_za2refza2z00zz__intextz00+((long)1)); 
BgL_refz00_979 = BGl_za2refza2z00zz__intextz00; 
{ /* ./Llib/intext.scm 1190 */
int BgL_auxz00_5317;
BgL_auxz00_5317 = 
(int)(((long)5)); 
BgL_structz00_980 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5317); } 
{ /* ./Llib/intext.scm 1191 */
obj_t BgL_auxz00_5322;int BgL_auxz00_5320;
BgL_auxz00_5322 = 
BINT(BgL_refz00_979); 
BgL_auxz00_5320 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_966, BgL_auxz00_5320, BgL_auxz00_5322); } 
{ /* ./Llib/intext.scm 1192 */
int BgL_auxz00_5325;
BgL_auxz00_5325 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_966, BgL_auxz00_5325, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1193 */
int BgL_auxz00_5330;
BgL_auxz00_5330 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5330, ((unsigned char)'=')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(BgL_refz00_979); 
BGl_printzd2structzd2zz__intextz00(BgL_objz00_4338, ((unsigned char)'|'), BgL_structz00_980); 
{ /* ./Llib/intext.scm 1196 */
long BgL_arg1864z00_981;
{ /* ./Llib/intext.scm 1196 */
obj_t BgL_arg1867z00_982;
{ /* ./Llib/intext.scm 1196 */
BgL_objectz00_bglt BgL_objectz00_2771;
BgL_objectz00_2771 = 
(BgL_objectz00_bglt)(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1196 */
long BgL_arg3692z00_2772;
{ /* ./Llib/intext.scm 1196 */
long BgL_arg3695z00_2773;
BgL_arg3695z00_2773 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_2771); 
BgL_arg3692z00_2772 = 
(BgL_arg3695z00_2773-OBJECT_TYPE); } 
{ 
int BgL_auxz00_5339;
BgL_auxz00_5339 = 
(int)(BgL_arg3692z00_2772); 
BgL_arg1867z00_982 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_5339); } } } 
BgL_arg1864z00_981 = 
BGl_classzd2hashzd2zz__objectz00(BgL_arg1867z00_982); } 
{ 
obj_t BgL_itemz00_5343;
BgL_itemz00_5343 = 
BINT(BgL_arg1864z00_981); 
BgL_itemz00_963 = BgL_itemz00_5343; 
goto BGl_printzd2itemzd2zz__intextz00;} } } } } } } }  else 
{ /* ./Llib/intext.scm 1174 */
if(
STRUCTP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1197 */
return 
BGl_printzd2structzd2zz__intextz00(BgL_objz00_4338, ((unsigned char)'{'), BgL_itemz00_963);}  else 
{ /* ./Llib/intext.scm 1197 */
if(
SYMBOLP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1199 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1200 */
int BgL_auxz00_5352;
BgL_auxz00_5352 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5352, ((unsigned char)'\'')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1201 */
obj_t BgL_arg1884z00_987;
BgL_arg1884z00_987 = 
SYMBOL_TO_STRING(BgL_itemz00_963); 
BgL_marqueurz00_1170 = ((unsigned char)'"'); 
BgL_itemz00_1171 = BgL_arg1884z00_987; 
BgL_zc3anonymousza32398ze3z83_1172:
{ /* ./Llib/intext.scm 1104 */
obj_t BgL_markz00_1173;
{ /* ./Llib/intext.scm 1104 */
obj_t BgL_cellz00_3545;
BgL_cellz00_3545 = 
BGl_getzd2hashzd2zz__hashz00(BgL_itemz00_1171, BGl_za2stringzd2markzd2tableza2z00zz__intextz00); 
if(
PAIRP(BgL_cellz00_3545))
{ /* ./Llib/intext.scm 1104 */
BgL_markz00_1173 = 
CDR(BgL_cellz00_3545); }  else 
{ /* ./Llib/intext.scm 1104 */
FAILURE(BGl_string4529z00zz__intextz00,BGl_string4545z00zz__intextz00,BUNSPEC);} } 
{ /* ./Llib/intext.scm 1106 */
bool_t BgL_testz00_5362;
{ /* ./Llib/intext.scm 1106 */
obj_t BgL_auxz00_5363;
{ /* ./Llib/intext.scm 1106 */
int BgL_auxz00_5364;
BgL_auxz00_5364 = 
(int)(((long)3)); 
BgL_auxz00_5363 = 
STRUCT_REF(BgL_markz00_1173, BgL_auxz00_5364); } 
BgL_testz00_5362 = 
CBOOL(BgL_auxz00_5363); } 
if(BgL_testz00_5362)
{ /* ./Llib/intext.scm 1106 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1107 */
int BgL_auxz00_5370;
BgL_auxz00_5370 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5370, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1108 */
obj_t BgL_arg2402z00_1175;
{ /* ./Llib/intext.scm 1108 */
int BgL_auxz00_5374;
BgL_auxz00_5374 = 
(int)(((long)2)); 
BgL_arg2402z00_1175 = 
STRUCT_REF(BgL_markz00_1173, BgL_auxz00_5374); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg2402z00_1175)); } 
{ /* ./Llib/intext.scm 1109 */
long BgL_arg2406z00_1176;
{ /* ./Llib/intext.scm 1109 */
long BgL_auxz00_5379;
{ /* ./Llib/intext.scm 1109 */
obj_t BgL_auxz00_5380;
{ /* ./Llib/intext.scm 1109 */
int BgL_auxz00_5381;
BgL_auxz00_5381 = 
(int)(((long)4)); 
BgL_auxz00_5380 = 
STRUCT_REF(BgL_markz00_1173, BgL_auxz00_5381); } 
BgL_auxz00_5379 = 
(long)CINT(BgL_auxz00_5380); } 
BgL_arg2406z00_1176 = 
(BgL_auxz00_5379-((long)1)); } 
{ /* ./Llib/intext.scm 1109 */
obj_t BgL_auxz00_5388;int BgL_auxz00_5386;
BgL_auxz00_5388 = 
BINT(BgL_arg2406z00_1176); 
BgL_auxz00_5386 = 
(int)(((long)4)); 
STRUCT_SET(BgL_markz00_1173, BgL_auxz00_5386, BgL_auxz00_5388); } } 
{ /* ./Llib/intext.scm 1110 */
bool_t BgL_testz00_5391;
{ /* ./Llib/intext.scm 1110 */
long BgL_auxz00_5392;
{ /* ./Llib/intext.scm 1110 */
obj_t BgL_auxz00_5393;
{ /* ./Llib/intext.scm 1110 */
int BgL_auxz00_5394;
BgL_auxz00_5394 = 
(int)(((long)4)); 
BgL_auxz00_5393 = 
STRUCT_REF(BgL_markz00_1173, BgL_auxz00_5394); } 
BgL_auxz00_5392 = 
(long)CINT(BgL_auxz00_5393); } 
BgL_testz00_5391 = 
(BgL_auxz00_5392==((long)0)); } 
if(BgL_testz00_5391)
{ /* ./Llib/intext.scm 1110 */
return 
UNMARK_INTEXT_STRING(BgL_itemz00_1171);}  else 
{ /* ./Llib/intext.scm 1110 */
return BFALSE;} } }  else 
{ /* ./Llib/intext.scm 1112 */
bool_t BgL_testz00_5400;
{ /* ./Llib/intext.scm 1112 */
long BgL_auxz00_5401;
{ /* ./Llib/intext.scm 1112 */
obj_t BgL_auxz00_5402;
{ /* ./Llib/intext.scm 1112 */
int BgL_auxz00_5403;
BgL_auxz00_5403 = 
(int)(((long)4)); 
BgL_auxz00_5402 = 
STRUCT_REF(BgL_markz00_1173, BgL_auxz00_5403); } 
BgL_auxz00_5401 = 
(long)CINT(BgL_auxz00_5402); } 
BgL_testz00_5400 = 
(BgL_auxz00_5401==((long)0)); } 
if(BgL_testz00_5400)
{ /* ./Llib/intext.scm 1112 */
UNMARK_INTEXT_STRING(BgL_itemz00_1171); 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1114 */
int BgL_auxz00_5411;
BgL_auxz00_5411 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5411, BgL_marqueurz00_1170); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1115 */
int BgL_arg2424z00_1183;
BgL_arg2424z00_1183 = 
STRING_LENGTH(BgL_itemz00_1171); 
return 
BGl_printzd2charszd2zz__intextz00(BgL_itemz00_1171, 
BINT(BgL_arg2424z00_1183));} }  else 
{ /* ./Llib/intext.scm 1112 */
{ /* ./Llib/intext.scm 1117 */
long BgL_refz00_1184;
BGl_za2refza2z00zz__intextz00 = 
(BGl_za2refza2z00zz__intextz00+((long)1)); 
BgL_refz00_1184 = BGl_za2refza2z00zz__intextz00; 
{ /* ./Llib/intext.scm 1118 */
obj_t BgL_auxz00_5421;int BgL_auxz00_5419;
BgL_auxz00_5421 = 
BINT(BgL_refz00_1184); 
BgL_auxz00_5419 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1173, BgL_auxz00_5419, BgL_auxz00_5421); } 
{ /* ./Llib/intext.scm 1119 */
int BgL_auxz00_5424;
BgL_auxz00_5424 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1173, BgL_auxz00_5424, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1120 */
int BgL_auxz00_5429;
BgL_auxz00_5429 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5429, ((unsigned char)'=')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(BgL_refz00_1184); 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1122 */
int BgL_auxz00_5436;
BgL_auxz00_5436 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5436, BgL_marqueurz00_1170); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1123 */
obj_t BgL_auxz00_5440;
{ /* ./Llib/intext.scm 1123 */
int BgL_auxz00_5441;
BgL_auxz00_5441 = 
(int)(((long)1)); 
BgL_auxz00_5440 = 
STRUCT_REF(BgL_markz00_1173, BgL_auxz00_5441); } 
return 
BGl_printzd2charszd2zz__intextz00(BgL_itemz00_1171, BgL_auxz00_5440);} } } } } } } }  else 
{ /* ./Llib/intext.scm 1199 */
if(
KEYWORDP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1202 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1203 */
int BgL_auxz00_5449;
BgL_auxz00_5449 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5449, ((unsigned char)':')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1204 */
obj_t BgL_arg1890z00_989;
BgL_arg1890z00_989 = 
KEYWORD_TO_STRING(BgL_itemz00_963); 
{ 
obj_t BgL_itemz00_5455;unsigned char BgL_marqueurz00_5454;
BgL_marqueurz00_5454 = ((unsigned char)'"'); 
BgL_itemz00_5455 = BgL_arg1890z00_989; 
BgL_itemz00_1171 = BgL_itemz00_5455; 
BgL_marqueurz00_1170 = BgL_marqueurz00_5454; 
goto BgL_zc3anonymousza32398ze3z83_1172;} } }  else 
{ /* ./Llib/intext.scm 1202 */
if(
CHARP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1205 */
{ /* ./Llib/intext.scm 1206 */
char BgL_cz00_2797;
BgL_cz00_2797 = 
CCHAR(BgL_itemz00_963); 
BGl_printzd2marqueurzd2zz__intextz00(((unsigned char)'a')); 
{ /* ./Llib/intext.scm 1206 */
long BgL_auxz00_5460;
{ /* ./Llib/intext.scm 1206 */
unsigned char BgL_auxz00_5461;
BgL_auxz00_5461 = 
(unsigned char)(BgL_cz00_2797); 
BgL_auxz00_5460 = 
(BgL_auxz00_5461); } 
return 
BGl_printzd2dizd2zz__intextz00(BgL_auxz00_5460);} } }  else 
{ /* ./Llib/intext.scm 1205 */
if(
UCS2P(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1207 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1208 */
int BgL_auxz00_5469;
BgL_auxz00_5469 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5469, ((unsigned char)'u')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1209 */
int BgL_arg1898z00_992;
{ /* ./Llib/intext.scm 1209 */
ucs2_t BgL_ucs2z00_2807;
BgL_ucs2z00_2807 = 
CUCS2(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1209 */
obj_t BgL_auxz00_5474;
BgL_auxz00_5474 = 
BUCS2(BgL_ucs2z00_2807); 
BgL_arg1898z00_992 = 
CUCS2(BgL_auxz00_5474); } } 
return 
BGl_printzd2dizd2zz__intextz00(
(long)(BgL_arg1898z00_992));} }  else 
{ /* ./Llib/intext.scm 1207 */
if(
(BgL_itemz00_963==BUNSPEC))
{ /* ./Llib/intext.scm 1210 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1211 */
int BgL_auxz00_5483;
BgL_auxz00_5483 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5483, ((unsigned char)';')); } 
return ( 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1210 */
if(
(BgL_itemz00_963==BNIL))
{ /* ./Llib/intext.scm 1212 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1213 */
int BgL_auxz00_5491;
BgL_auxz00_5491 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5491, ((unsigned char)'.')); } 
return ( 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1212 */
if(
(BgL_itemz00_963==BTRUE))
{ /* ./Llib/intext.scm 1214 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1215 */
int BgL_auxz00_5499;
BgL_auxz00_5499 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5499, ((unsigned char)'T')); } 
return ( 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1214 */
if(
(BgL_itemz00_963==BFALSE))
{ /* ./Llib/intext.scm 1216 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1219 */
int BgL_auxz00_5507;
BgL_auxz00_5507 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5507, ((unsigned char)'F')); } 
return ( 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1216 */
if(
CNSTP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1220 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1221 */
int BgL_auxz00_5515;
BgL_auxz00_5515 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5515, ((unsigned char)'<')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
return 
BGl_printzd2dizd2zz__intextz00(
CCNST(BgL_itemz00_963));}  else 
{ /* ./Llib/intext.scm 1223 */
bool_t BgL_test1918z00_999;
BgL_test1918z00_999 = 
INTEGERP(BgL_itemz00_963); 
if(BgL_test1918z00_999)
{ /* ./Llib/intext.scm 1223 */
return 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_itemz00_963));}  else 
{ /* ./Llib/intext.scm 1225 */
bool_t BgL_test1920z00_1000;
if(BgL_test1918z00_999)
{ /* ./Llib/intext.scm 1225 */
BgL_test1920z00_1000 = ((bool_t)1); }  else 
{ /* ./Llib/intext.scm 1225 */
BgL_test1920z00_1000 = 
REALP(BgL_itemz00_963); } 
if(BgL_test1920z00_1000)
{ /* ./Llib/intext.scm 1225 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1226 */
int BgL_auxz00_5530;
BgL_auxz00_5530 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5530, ((unsigned char)'f')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1227 */
double BgL_fz00_2849;
BgL_fz00_2849 = 
REAL_TO_DOUBLE(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1227 */
obj_t BgL_sz00_2850;
{ /* ./Llib/intext.scm 1227 */
obj_t BgL_realz00_2852;
BgL_realz00_2852 = 
DOUBLE_TO_REAL(BgL_fz00_2849); 
{ /* ./Llib/intext.scm 1227 */
double BgL_auxz00_5536;
BgL_auxz00_5536 = 
REAL_TO_DOUBLE(BgL_realz00_2852); 
BgL_sz00_2850 = 
real_to_string(BgL_auxz00_5536); } } 
{ /* ./Llib/intext.scm 1227 */
int BgL_arg1781z00_2851;
BgL_arg1781z00_2851 = 
STRING_LENGTH(BgL_sz00_2850); 
return 
BGl_printzd2charszd2zz__intextz00(BgL_sz00_2850, 
BINT(BgL_arg1781z00_2851));} } } }  else 
{ /* ./Llib/intext.scm 1225 */
if(
STRINGP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1228 */
{ 
obj_t BgL_itemz00_5545;unsigned char BgL_marqueurz00_5544;
BgL_marqueurz00_5544 = ((unsigned char)'"'); 
BgL_itemz00_5545 = BgL_itemz00_963; 
BgL_itemz00_1171 = BgL_itemz00_5545; 
BgL_marqueurz00_1170 = BgL_marqueurz00_5544; 
goto BgL_zc3anonymousza32398ze3z83_1172;} }  else 
{ /* ./Llib/intext.scm 1228 */
if(
UCS2_STRINGP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1230 */
BgL_marqueurz00_1131 = ((unsigned char)'U'); 
BgL_itemz00_1132 = BgL_itemz00_963; 
{ /* ./Llib/intext.scm 1152 */
obj_t BgL_markz00_1134;
{ /* ./Llib/intext.scm 1152 */
obj_t BgL_cellz00_3367;
BgL_cellz00_3367 = 
BGl_getzd2hashzd2zz__hashz00(BgL_itemz00_1132, BGl_za2stringzd2markzd2tableza2z00zz__intextz00); 
if(
PAIRP(BgL_cellz00_3367))
{ /* ./Llib/intext.scm 1152 */
BgL_markz00_1134 = 
CDR(BgL_cellz00_3367); }  else 
{ /* ./Llib/intext.scm 1152 */
FAILURE(BGl_string4529z00zz__intextz00,BGl_string4543z00zz__intextz00,BUNSPEC);} } 
{ /* ./Llib/intext.scm 1154 */
bool_t BgL_testz00_5553;
{ /* ./Llib/intext.scm 1154 */
obj_t BgL_auxz00_5554;
{ /* ./Llib/intext.scm 1154 */
int BgL_auxz00_5555;
BgL_auxz00_5555 = 
(int)(((long)3)); 
BgL_auxz00_5554 = 
STRUCT_REF(BgL_markz00_1134, BgL_auxz00_5555); } 
BgL_testz00_5553 = 
CBOOL(BgL_auxz00_5554); } 
if(BgL_testz00_5553)
{ /* ./Llib/intext.scm 1154 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1155 */
int BgL_auxz00_5561;
BgL_auxz00_5561 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5561, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1156 */
obj_t BgL_arg2308z00_1136;
{ /* ./Llib/intext.scm 1156 */
int BgL_auxz00_5565;
BgL_auxz00_5565 = 
(int)(((long)2)); 
BgL_arg2308z00_1136 = 
STRUCT_REF(BgL_markz00_1134, BgL_auxz00_5565); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg2308z00_1136)); } 
{ /* ./Llib/intext.scm 1157 */
long BgL_arg2312z00_1137;
{ /* ./Llib/intext.scm 1157 */
long BgL_auxz00_5570;
{ /* ./Llib/intext.scm 1157 */
obj_t BgL_auxz00_5571;
{ /* ./Llib/intext.scm 1157 */
int BgL_auxz00_5572;
BgL_auxz00_5572 = 
(int)(((long)4)); 
BgL_auxz00_5571 = 
STRUCT_REF(BgL_markz00_1134, BgL_auxz00_5572); } 
BgL_auxz00_5570 = 
(long)CINT(BgL_auxz00_5571); } 
BgL_arg2312z00_1137 = 
(BgL_auxz00_5570-((long)1)); } 
{ /* ./Llib/intext.scm 1157 */
obj_t BgL_auxz00_5579;int BgL_auxz00_5577;
BgL_auxz00_5579 = 
BINT(BgL_arg2312z00_1137); 
BgL_auxz00_5577 = 
(int)(((long)4)); 
STRUCT_SET(BgL_markz00_1134, BgL_auxz00_5577, BgL_auxz00_5579); } } 
{ /* ./Llib/intext.scm 1158 */
bool_t BgL_testz00_5582;
{ /* ./Llib/intext.scm 1158 */
long BgL_auxz00_5583;
{ /* ./Llib/intext.scm 1158 */
obj_t BgL_auxz00_5584;
{ /* ./Llib/intext.scm 1158 */
int BgL_auxz00_5585;
BgL_auxz00_5585 = 
(int)(((long)4)); 
BgL_auxz00_5584 = 
STRUCT_REF(BgL_markz00_1134, BgL_auxz00_5585); } 
BgL_auxz00_5583 = 
(long)CINT(BgL_auxz00_5584); } 
BgL_testz00_5582 = 
(BgL_auxz00_5583==((long)0)); } 
if(BgL_testz00_5582)
{ /* ./Llib/intext.scm 1158 */
return 
UNMARK_INTEXT_UCS2_STRING(BgL_itemz00_1132);}  else 
{ /* ./Llib/intext.scm 1158 */
return BFALSE;} } }  else 
{ /* ./Llib/intext.scm 1160 */
bool_t BgL_testz00_5591;
{ /* ./Llib/intext.scm 1160 */
long BgL_auxz00_5592;
{ /* ./Llib/intext.scm 1160 */
obj_t BgL_auxz00_5593;
{ /* ./Llib/intext.scm 1160 */
int BgL_auxz00_5594;
BgL_auxz00_5594 = 
(int)(((long)4)); 
BgL_auxz00_5593 = 
STRUCT_REF(BgL_markz00_1134, BgL_auxz00_5594); } 
BgL_auxz00_5592 = 
(long)CINT(BgL_auxz00_5593); } 
BgL_testz00_5591 = 
(BgL_auxz00_5592==((long)0)); } 
if(BgL_testz00_5591)
{ /* ./Llib/intext.scm 1160 */
{ /* ./Llib/intext.scm 1161 */
obj_t BgL_stringz00_1144;
{ /* ./Llib/intext.scm 1161 */
int BgL_auxz00_5601;obj_t BgL_auxz00_5599;
BgL_auxz00_5601 = 
(int)(((long)5)); 
BgL_auxz00_5599 = 
BGl_getzd2ucs2zd2stringzd2markzd2zz__intextz00(BgL_itemz00_1132); 
BgL_stringz00_1144 = 
STRUCT_REF(BgL_auxz00_5599, BgL_auxz00_5601); } 
UNMARK_INTEXT_UCS2_STRING(BgL_itemz00_1132); 
{ 
obj_t BgL_itemz00_5606;unsigned char BgL_marqueurz00_5605;
BgL_marqueurz00_5605 = ((unsigned char)'U'); 
BgL_itemz00_5606 = BgL_stringz00_1144; 
BgL_itemz00_1171 = BgL_itemz00_5606; 
BgL_marqueurz00_1170 = BgL_marqueurz00_5605; 
goto BgL_zc3anonymousza32398ze3z83_1172;} } }  else 
{ /* ./Llib/intext.scm 1160 */
{ /* ./Llib/intext.scm 1165 */
long BgL_refz00_1145;obj_t BgL_stringz00_1146;
BGl_za2refza2z00zz__intextz00 = 
(BGl_za2refza2z00zz__intextz00+((long)1)); 
BgL_refz00_1145 = BGl_za2refza2z00zz__intextz00; 
{ /* ./Llib/intext.scm 1166 */
int BgL_auxz00_5610;obj_t BgL_auxz00_5608;
BgL_auxz00_5610 = 
(int)(((long)5)); 
BgL_auxz00_5608 = 
BGl_getzd2ucs2zd2stringzd2markzd2zz__intextz00(BgL_itemz00_1132); 
BgL_stringz00_1146 = 
STRUCT_REF(BgL_auxz00_5608, BgL_auxz00_5610); } 
{ /* ./Llib/intext.scm 1167 */
obj_t BgL_auxz00_5615;int BgL_auxz00_5613;
BgL_auxz00_5615 = 
BINT(BgL_refz00_1145); 
BgL_auxz00_5613 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1134, BgL_auxz00_5613, BgL_auxz00_5615); } 
{ /* ./Llib/intext.scm 1168 */
int BgL_auxz00_5618;
BgL_auxz00_5618 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1134, BgL_auxz00_5618, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1169 */
int BgL_auxz00_5623;
BgL_auxz00_5623 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5623, ((unsigned char)'=')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(BgL_refz00_1145); 
{ 
obj_t BgL_itemz00_5629;unsigned char BgL_marqueurz00_5628;
BgL_marqueurz00_5628 = ((unsigned char)'U'); 
BgL_itemz00_5629 = BgL_stringz00_1146; 
BgL_itemz00_1171 = BgL_itemz00_5629; 
BgL_marqueurz00_1170 = BgL_marqueurz00_5628; 
goto BgL_zc3anonymousza32398ze3z83_1172;} } } } } } }  else 
{ /* ./Llib/intext.scm 1230 */
if(
CELLP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1232 */
{ /* ./Llib/intext.scm 1234 */
bool_t BgL_test1928z00_1004;
{ /* ./Llib/intext.scm 1234 */
obj_t BgL_arg1990z00_1026;
BgL_arg1990z00_1026 = 
CELL_REF(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1234 */
obj_t BgL_auxz00_5633;
{ /* ./Llib/intext.scm 1234 */
int BgL_auxz00_5634;
BgL_auxz00_5634 = 
(int)(((long)3)); 
BgL_auxz00_5633 = 
STRUCT_REF(BgL_arg1990z00_1026, BgL_auxz00_5634); } 
BgL_test1928z00_1004 = 
CBOOL(BgL_auxz00_5633); } } 
if(BgL_test1928z00_1004)
{ /* ./Llib/intext.scm 1234 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1235 */
int BgL_auxz00_5641;
BgL_auxz00_5641 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5641, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1236 */
obj_t BgL_arg1931z00_1005;
{ /* ./Llib/intext.scm 1236 */
int BgL_auxz00_5647;obj_t BgL_auxz00_5645;
BgL_auxz00_5647 = 
(int)(((long)2)); 
BgL_auxz00_5645 = 
CELL_REF(BgL_itemz00_963); 
BgL_arg1931z00_1005 = 
STRUCT_REF(BgL_auxz00_5645, BgL_auxz00_5647); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg1931z00_1005)); } 
{ /* ./Llib/intext.scm 1237 */
obj_t BgL_arg1938z00_1007;long BgL_arg1939z00_1008;
BgL_arg1938z00_1007 = 
CELL_REF(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1239 */
obj_t BgL_arg1943z00_1009;
{ /* ./Llib/intext.scm 1238 */
int BgL_auxz00_5655;obj_t BgL_auxz00_5653;
BgL_auxz00_5655 = 
(int)(((long)4)); 
BgL_auxz00_5653 = 
CELL_REF(BgL_itemz00_963); 
BgL_arg1943z00_1009 = 
STRUCT_REF(BgL_auxz00_5653, BgL_auxz00_5655); } 
{ /* ./Llib/intext.scm 1238 */
long BgL_auxz00_5658;
BgL_auxz00_5658 = 
(long)CINT(BgL_arg1943z00_1009); 
BgL_arg1939z00_1008 = 
(BgL_auxz00_5658-((long)1)); } } 
{ /* ./Llib/intext.scm 1237 */
obj_t BgL_auxz00_5663;int BgL_auxz00_5661;
BgL_auxz00_5663 = 
BINT(BgL_arg1939z00_1008); 
BgL_auxz00_5661 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg1938z00_1007, BgL_auxz00_5661, BgL_auxz00_5663); } } 
{ /* ./Llib/intext.scm 1241 */
bool_t BgL_test1951z00_1012;
{ /* ./Llib/intext.scm 1241 */
obj_t BgL_arg1954z00_1013;
{ /* ./Llib/intext.scm 1241 */
int BgL_auxz00_5668;obj_t BgL_auxz00_5666;
BgL_auxz00_5668 = 
(int)(((long)4)); 
BgL_auxz00_5666 = 
CELL_REF(BgL_itemz00_963); 
BgL_arg1954z00_1013 = 
STRUCT_REF(BgL_auxz00_5666, BgL_auxz00_5668); } 
{ /* ./Llib/intext.scm 1241 */
long BgL_auxz00_5671;
BgL_auxz00_5671 = 
(long)CINT(BgL_arg1954z00_1013); 
BgL_test1951z00_1012 = 
(BgL_auxz00_5671==((long)0)); } } 
if(BgL_test1951z00_1012)
{ /* ./Llib/intext.scm 1242 */
obj_t BgL_auxz00_5675;
{ /* ./Llib/intext.scm 1242 */
int BgL_auxz00_5678;obj_t BgL_auxz00_5676;
BgL_auxz00_5678 = 
(int)(((long)1)); 
BgL_auxz00_5676 = 
CELL_REF(BgL_itemz00_963); 
BgL_auxz00_5675 = 
STRUCT_REF(BgL_auxz00_5676, BgL_auxz00_5678); } 
return 
CELL_SET(BgL_itemz00_963, BgL_auxz00_5675);}  else 
{ /* ./Llib/intext.scm 1241 */
return BFALSE;} } }  else 
{ /* ./Llib/intext.scm 1243 */
bool_t BgL_test1961z00_1016;
{ /* ./Llib/intext.scm 1243 */
obj_t BgL_arg1982z00_1023;
{ /* ./Llib/intext.scm 1243 */
int BgL_auxz00_5684;obj_t BgL_auxz00_5682;
BgL_auxz00_5684 = 
(int)(((long)4)); 
BgL_auxz00_5682 = 
CELL_REF(BgL_itemz00_963); 
BgL_arg1982z00_1023 = 
STRUCT_REF(BgL_auxz00_5682, BgL_auxz00_5684); } 
{ /* ./Llib/intext.scm 1243 */
long BgL_auxz00_5687;
BgL_auxz00_5687 = 
(long)CINT(BgL_arg1982z00_1023); 
BgL_test1961z00_1016 = 
(BgL_auxz00_5687==((long)0)); } } 
if(BgL_test1961z00_1016)
{ /* ./Llib/intext.scm 1243 */
{ /* ./Llib/intext.scm 1244 */
obj_t BgL_auxz00_5691;
{ /* ./Llib/intext.scm 1244 */
int BgL_auxz00_5694;obj_t BgL_auxz00_5692;
BgL_auxz00_5694 = 
(int)(((long)1)); 
BgL_auxz00_5692 = 
CELL_REF(BgL_itemz00_963); 
BgL_auxz00_5691 = 
STRUCT_REF(BgL_auxz00_5692, BgL_auxz00_5694); } 
CELL_SET(BgL_itemz00_963, BgL_auxz00_5691); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1245 */
int BgL_auxz00_5700;
BgL_auxz00_5700 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5700, ((unsigned char)'!')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ 
obj_t BgL_itemz00_5704;
BgL_itemz00_5704 = 
CELL_REF(BgL_itemz00_963); 
BgL_itemz00_963 = BgL_itemz00_5704; 
goto BGl_printzd2itemzd2zz__intextz00;} }  else 
{ /* ./Llib/intext.scm 1243 */
{ /* ./Llib/intext.scm 1248 */
long BgL_refz00_1018;
BGl_za2refza2z00zz__intextz00 = 
(BGl_za2refza2z00zz__intextz00+((long)1)); 
BgL_refz00_1018 = BGl_za2refza2z00zz__intextz00; 
{ /* ./Llib/intext.scm 1248 */
obj_t BgL_markz00_1019;
BgL_markz00_1019 = 
CELL_REF(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1249 */

{ /* ./Llib/intext.scm 1252 */
obj_t BgL_auxz00_5710;int BgL_auxz00_5708;
BgL_auxz00_5710 = 
BINT(BgL_refz00_1018); 
BgL_auxz00_5708 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1019, BgL_auxz00_5708, BgL_auxz00_5710); } 
{ /* ./Llib/intext.scm 1253 */
int BgL_auxz00_5713;
BgL_auxz00_5713 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1019, BgL_auxz00_5713, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1254 */
int BgL_auxz00_5718;
BgL_auxz00_5718 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5718, ((unsigned char)'=')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(BgL_refz00_1018); 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1256 */
int BgL_auxz00_5725;
BgL_auxz00_5725 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5725, ((unsigned char)'!')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ 
obj_t BgL_itemz00_5729;
{ /* ./Llib/intext.scm 1257 */
int BgL_auxz00_5730;
BgL_auxz00_5730 = 
(int)(((long)1)); 
BgL_itemz00_5729 = 
STRUCT_REF(BgL_markz00_1019, BgL_auxz00_5730); } 
BgL_itemz00_963 = BgL_itemz00_5729; 
goto BGl_printzd2itemzd2zz__intextz00;} } } } } } } }  else 
{ /* ./Llib/intext.scm 1258 */
bool_t BgL_test1993z00_1027;
{ /* ./Llib/intext.scm 1258 */
bool_t BgL_test2286z00_1130;
BgL_test2286z00_1130 = 
EXTENDED_PAIRP(BgL_itemz00_963); 
if(BgL_test2286z00_1130)
{ /* ./Llib/intext.scm 1258 */
BgL_test1993z00_1027 = BGl_za2epairzf3za2zf3zz__intextz00; }  else 
{ /* ./Llib/intext.scm 1258 */
BgL_test1993z00_1027 = ((bool_t)0); } } 
if(BgL_test1993z00_1027)
{ /* ./Llib/intext.scm 1258 */
{ /* ./Llib/intext.scm 1260 */
bool_t BgL_testz00_5736;
{ /* ./Llib/intext.scm 1260 */
obj_t BgL_auxz00_5737;
{ /* ./Llib/intext.scm 1260 */
int BgL_auxz00_5740;obj_t BgL_auxz00_5738;
BgL_auxz00_5740 = 
(int)(((long)3)); 
BgL_auxz00_5738 = 
CDR(BgL_itemz00_963); 
BgL_auxz00_5737 = 
STRUCT_REF(BgL_auxz00_5738, BgL_auxz00_5740); } 
BgL_testz00_5736 = 
CBOOL(BgL_auxz00_5737); } 
if(BgL_testz00_5736)
{ /* ./Llib/intext.scm 1260 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1261 */
int BgL_auxz00_5746;
BgL_auxz00_5746 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5746, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1262 */
obj_t BgL_arg1997z00_1029;
{ /* ./Llib/intext.scm 1262 */
int BgL_auxz00_5752;obj_t BgL_auxz00_5750;
BgL_auxz00_5752 = 
(int)(((long)2)); 
BgL_auxz00_5750 = 
CDR(BgL_itemz00_963); 
BgL_arg1997z00_1029 = 
STRUCT_REF(BgL_auxz00_5750, BgL_auxz00_5752); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg1997z00_1029)); } 
return 
BGl_pairzd2markzd2gcz12z12zz__intextz00(BgL_itemz00_963);}  else 
{ /* ./Llib/intext.scm 1264 */
bool_t BgL_testz00_5758;
{ /* ./Llib/intext.scm 1264 */
long BgL_auxz00_5759;
{ /* ./Llib/intext.scm 1264 */
obj_t BgL_auxz00_5760;
{ /* ./Llib/intext.scm 1264 */
int BgL_auxz00_5763;obj_t BgL_auxz00_5761;
BgL_auxz00_5763 = 
(int)(((long)4)); 
BgL_auxz00_5761 = 
CDR(BgL_itemz00_963); 
BgL_auxz00_5760 = 
STRUCT_REF(BgL_auxz00_5761, BgL_auxz00_5763); } 
BgL_auxz00_5759 = 
(long)CINT(BgL_auxz00_5760); } 
BgL_testz00_5758 = 
(BgL_auxz00_5759==((long)0)); } 
if(BgL_testz00_5758)
{ /* ./Llib/intext.scm 1264 */
{ /* ./Llib/intext.scm 1265 */
long BgL_lenz00_1032;
BgL_lenz00_1032 = 
BGl_markedzd2pairzd2lengthz00zz__intextz00(BgL_itemz00_963); 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1266 */
int BgL_auxz00_5771;
BgL_auxz00_5771 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5771, ((unsigned char)'^')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1267 */
int BgL_auxz00_5777;obj_t BgL_auxz00_5775;
BgL_auxz00_5777 = 
(int)(((long)3)); 
BgL_auxz00_5775 = 
CDR(BgL_itemz00_963); 
STRUCT_SET(BgL_auxz00_5775, BgL_auxz00_5777, BTRUE); } 
BgL_pz00_1216 = BgL_itemz00_963; 
BgL_lenz00_1217 = BgL_lenz00_1032; 
BgL_zc3anonymousza32518ze3z83_1218:
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(BgL_lenz00_1217)); 
BGl_printzd2motzd2zz__intextz00(
BINT(BgL_lenz00_1217)); 
{ 
long BgL_iz00_1219;obj_t BgL_pz00_1220;
BgL_iz00_1219 = ((long)0); 
BgL_pz00_1220 = BgL_pz00_1216; 
BgL_loopz00_1221:
{ /* ./Llib/intext.scm 1044 */
bool_t BgL_testz00_5784;
{ /* ./Llib/intext.scm 1044 */
long BgL_auxz00_5785;
BgL_auxz00_5785 = 
(BgL_lenz00_1217-((long)1)); 
BgL_testz00_5784 = 
(BgL_iz00_1219==BgL_auxz00_5785); } 
if(BgL_testz00_5784)
{ /* ./Llib/intext.scm 1044 */
if(
PAIRP(BgL_pz00_1220))
{ /* ./Llib/intext.scm 1045 */
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4338, 
CAR(BgL_pz00_1220)); 
{ /* ./Llib/intext.scm 1048 */
bool_t BgL_test2527z00_1225;
BgL_test2527z00_1225 = 
EXTENDED_PAIRP(BgL_pz00_1220); 
if(BgL_test2527z00_1225)
{ /* ./Llib/intext.scm 1048 */
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4338, 
CER(BgL_pz00_1220)); }  else 
{ /* ./Llib/intext.scm 1048 */
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4338, BUNSPEC); } } 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4338, BNIL); 
return 
BGl_pairzd2markzd2gcz12z12zz__intextz00(BgL_pz00_1220);}  else 
{ 
obj_t BgL_itemz00_5799;
BgL_itemz00_5799 = BgL_pz00_1220; 
BgL_itemz00_963 = BgL_itemz00_5799; 
goto BGl_printzd2itemzd2zz__intextz00;} }  else 
{ /* ./Llib/intext.scm 1044 */
{ /* ./Llib/intext.scm 1055 */
obj_t BgL_markz00_1227;
BgL_markz00_1227 = 
CDR(BgL_pz00_1220); 
{ /* ./Llib/intext.scm 1055 */
obj_t BgL_vcdrz00_1228;
{ /* ./Llib/intext.scm 1056 */
int BgL_auxz00_5801;
BgL_auxz00_5801 = 
(int)(((long)1)); 
BgL_vcdrz00_1228 = 
STRUCT_REF(BgL_markz00_1227, BgL_auxz00_5801); } 
{ /* ./Llib/intext.scm 1056 */

BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4338, 
CAR(BgL_pz00_1220)); 
{ /* ./Llib/intext.scm 1058 */
bool_t BgL_test2543z00_1230;
BgL_test2543z00_1230 = 
EXTENDED_PAIRP(BgL_pz00_1220); 
if(BgL_test2543z00_1230)
{ /* ./Llib/intext.scm 1058 */
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4338, 
CER(BgL_pz00_1220)); }  else 
{ /* ./Llib/intext.scm 1058 */
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4338, BUNSPEC); } } 
BGl_pairzd2markzd2gcz12z12zz__intextz00(BgL_pz00_1220); 
{ /* ./Llib/intext.scm 1062 */
bool_t BgL_test2551z00_1232;
if(
PAIRP(BgL_vcdrz00_1228))
{ /* ./Llib/intext.scm 1063 */
obj_t BgL_markz00_1235;
BgL_markz00_1235 = 
CDR(BgL_vcdrz00_1228); 
{ /* ./Llib/intext.scm 1064 */
bool_t BgL__ortest_1017z00_1236;
{ /* ./Llib/intext.scm 1064 */
obj_t BgL_auxz00_5815;
{ /* ./Llib/intext.scm 1064 */
int BgL_auxz00_5816;
BgL_auxz00_5816 = 
(int)(((long)4)); 
BgL_auxz00_5815 = 
STRUCT_REF(BgL_markz00_1235, BgL_auxz00_5816); } 
BgL__ortest_1017z00_1236 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_auxz00_5815, 
BINT(((long)0))); } 
if(BgL__ortest_1017z00_1236)
{ /* ./Llib/intext.scm 1064 */
BgL_test2551z00_1232 = BgL__ortest_1017z00_1236; }  else 
{ /* ./Llib/intext.scm 1065 */
obj_t BgL_auxz00_5822;
{ /* ./Llib/intext.scm 1065 */
int BgL_auxz00_5823;
BgL_auxz00_5823 = 
(int)(((long)3)); 
BgL_auxz00_5822 = 
STRUCT_REF(BgL_markz00_1235, BgL_auxz00_5823); } 
BgL_test2551z00_1232 = 
CBOOL(BgL_auxz00_5822); } } }  else 
{ /* ./Llib/intext.scm 1062 */
BgL_test2551z00_1232 = ((bool_t)0); } 
if(BgL_test2551z00_1232)
{ 
obj_t BgL_itemz00_5828;
BgL_itemz00_5828 = BgL_vcdrz00_1228; 
BgL_itemz00_963 = BgL_itemz00_5828; 
goto BGl_printzd2itemzd2zz__intextz00;}  else 
{ 
obj_t BgL_pz00_5831;long BgL_iz00_5829;
BgL_iz00_5829 = 
(BgL_iz00_1219+((long)1)); 
BgL_pz00_5831 = BgL_vcdrz00_1228; 
BgL_pz00_1220 = BgL_pz00_5831; 
BgL_iz00_1219 = BgL_iz00_5829; 
goto BgL_loopz00_1221;} } } } } } } } } }  else 
{ /* ./Llib/intext.scm 1264 */
{ /* ./Llib/intext.scm 1270 */
long BgL_refz00_1034;obj_t BgL_markz00_1035;long BgL_lenz00_1036;
BGl_za2refza2z00zz__intextz00 = 
(BGl_za2refza2z00zz__intextz00+((long)1)); 
BgL_refz00_1034 = BGl_za2refza2z00zz__intextz00; 
BgL_markz00_1035 = 
CDR(BgL_itemz00_963); 
BgL_lenz00_1036 = 
BGl_markedzd2pairzd2lengthz00zz__intextz00(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1273 */
obj_t BgL_auxz00_5837;int BgL_auxz00_5835;
BgL_auxz00_5837 = 
BINT(BgL_refz00_1034); 
BgL_auxz00_5835 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1035, BgL_auxz00_5835, BgL_auxz00_5837); } 
{ /* ./Llib/intext.scm 1274 */
int BgL_auxz00_5840;
BgL_auxz00_5840 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1035, BgL_auxz00_5840, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1275 */
int BgL_auxz00_5845;
BgL_auxz00_5845 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5845, ((unsigned char)'=')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(BgL_refz00_1034); 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1277 */
int BgL_auxz00_5852;
BgL_auxz00_5852 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5852, ((unsigned char)'^')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ 
long BgL_lenz00_5857;obj_t BgL_pz00_5856;
BgL_pz00_5856 = BgL_itemz00_963; 
BgL_lenz00_5857 = BgL_lenz00_1036; 
BgL_lenz00_1217 = BgL_lenz00_5857; 
BgL_pz00_1216 = BgL_pz00_5856; 
goto BgL_zc3anonymousza32518ze3z83_1218;} } } } } }  else 
{ /* ./Llib/intext.scm 1258 */
if(
PAIRP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1279 */
{ /* ./Llib/intext.scm 1281 */
bool_t BgL_testz00_5860;
{ /* ./Llib/intext.scm 1281 */
obj_t BgL_auxz00_5861;
{ /* ./Llib/intext.scm 1281 */
int BgL_auxz00_5864;obj_t BgL_auxz00_5862;
BgL_auxz00_5864 = 
(int)(((long)3)); 
BgL_auxz00_5862 = 
CDR(BgL_itemz00_963); 
BgL_auxz00_5861 = 
STRUCT_REF(BgL_auxz00_5862, BgL_auxz00_5864); } 
BgL_testz00_5860 = 
CBOOL(BgL_auxz00_5861); } 
if(BgL_testz00_5860)
{ /* ./Llib/intext.scm 1281 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1282 */
int BgL_auxz00_5870;
BgL_auxz00_5870 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5870, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1283 */
obj_t BgL_arg2037z00_1043;
{ /* ./Llib/intext.scm 1283 */
int BgL_auxz00_5876;obj_t BgL_auxz00_5874;
BgL_auxz00_5876 = 
(int)(((long)2)); 
BgL_auxz00_5874 = 
CDR(BgL_itemz00_963); 
BgL_arg2037z00_1043 = 
STRUCT_REF(BgL_auxz00_5874, BgL_auxz00_5876); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg2037z00_1043)); } 
return 
BGl_pairzd2markzd2gcz12z12zz__intextz00(BgL_itemz00_963);}  else 
{ /* ./Llib/intext.scm 1285 */
bool_t BgL_testz00_5882;
{ /* ./Llib/intext.scm 1285 */
long BgL_auxz00_5883;
{ /* ./Llib/intext.scm 1285 */
obj_t BgL_auxz00_5884;
{ /* ./Llib/intext.scm 1285 */
int BgL_auxz00_5887;obj_t BgL_auxz00_5885;
BgL_auxz00_5887 = 
(int)(((long)4)); 
BgL_auxz00_5885 = 
CDR(BgL_itemz00_963); 
BgL_auxz00_5884 = 
STRUCT_REF(BgL_auxz00_5885, BgL_auxz00_5887); } 
BgL_auxz00_5883 = 
(long)CINT(BgL_auxz00_5884); } 
BgL_testz00_5882 = 
(BgL_auxz00_5883==((long)0)); } 
if(BgL_testz00_5882)
{ /* ./Llib/intext.scm 1285 */
{ /* ./Llib/intext.scm 1286 */
long BgL_lenz00_1046;
BgL_lenz00_1046 = 
BGl_markedzd2pairzd2lengthz00zz__intextz00(BgL_itemz00_963); 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1287 */
int BgL_auxz00_5895;
BgL_auxz00_5895 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5895, ((unsigned char)'(')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1288 */
int BgL_auxz00_5901;obj_t BgL_auxz00_5899;
BgL_auxz00_5901 = 
(int)(((long)3)); 
BgL_auxz00_5899 = 
CDR(BgL_itemz00_963); 
STRUCT_SET(BgL_auxz00_5899, BgL_auxz00_5901, BTRUE); } 
BgL_pz00_1240 = BgL_itemz00_963; 
BgL_lenz00_1241 = BgL_lenz00_1046; 
BgL_zc3anonymousza32572ze3z83_1242:
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(BgL_lenz00_1241)); 
BGl_printzd2motzd2zz__intextz00(
BINT(BgL_lenz00_1241)); 
{ 
long BgL_iz00_1243;obj_t BgL_pz00_1244;
BgL_iz00_1243 = ((long)0); 
BgL_pz00_1244 = BgL_pz00_1240; 
BgL_loopz00_1245:
{ /* ./Llib/intext.scm 1021 */
bool_t BgL_testz00_5908;
{ /* ./Llib/intext.scm 1021 */
long BgL_auxz00_5909;
BgL_auxz00_5909 = 
(BgL_lenz00_1241-((long)1)); 
BgL_testz00_5908 = 
(BgL_iz00_1243==BgL_auxz00_5909); } 
if(BgL_testz00_5908)
{ /* ./Llib/intext.scm 1021 */
if(
PAIRP(BgL_pz00_1244))
{ /* ./Llib/intext.scm 1022 */
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4338, 
CAR(BgL_pz00_1244)); 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4338, BNIL); 
return 
BGl_pairzd2markzd2gcz12z12zz__intextz00(BgL_pz00_1244);}  else 
{ 
obj_t BgL_itemz00_5918;
BgL_itemz00_5918 = BgL_pz00_1244; 
BgL_itemz00_963 = BgL_itemz00_5918; 
goto BGl_printzd2itemzd2zz__intextz00;} }  else 
{ /* ./Llib/intext.scm 1021 */
{ /* ./Llib/intext.scm 1029 */
obj_t BgL_markz00_1249;
BgL_markz00_1249 = 
CDR(BgL_pz00_1244); 
{ /* ./Llib/intext.scm 1029 */
obj_t BgL_vcdrz00_1250;
{ /* ./Llib/intext.scm 1030 */
int BgL_auxz00_5920;
BgL_auxz00_5920 = 
(int)(((long)1)); 
BgL_vcdrz00_1250 = 
STRUCT_REF(BgL_markz00_1249, BgL_auxz00_5920); } 
{ /* ./Llib/intext.scm 1030 */

BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4338, 
CAR(BgL_pz00_1244)); 
BGl_pairzd2markzd2gcz12z12zz__intextz00(BgL_pz00_1244); 
{ /* ./Llib/intext.scm 1033 */
bool_t BgL_test2590z00_1252;
if(
PAIRP(BgL_vcdrz00_1250))
{ /* ./Llib/intext.scm 1034 */
obj_t BgL_markz00_1255;
BgL_markz00_1255 = 
CDR(BgL_vcdrz00_1250); 
{ /* ./Llib/intext.scm 1035 */
bool_t BgL__ortest_1016z00_1256;
{ /* ./Llib/intext.scm 1035 */
obj_t BgL_auxz00_5929;
{ /* ./Llib/intext.scm 1035 */
int BgL_auxz00_5930;
BgL_auxz00_5930 = 
(int)(((long)4)); 
BgL_auxz00_5929 = 
STRUCT_REF(BgL_markz00_1255, BgL_auxz00_5930); } 
BgL__ortest_1016z00_1256 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_auxz00_5929, 
BINT(((long)0))); } 
if(BgL__ortest_1016z00_1256)
{ /* ./Llib/intext.scm 1035 */
BgL_test2590z00_1252 = BgL__ortest_1016z00_1256; }  else 
{ /* ./Llib/intext.scm 1036 */
obj_t BgL_auxz00_5936;
{ /* ./Llib/intext.scm 1036 */
int BgL_auxz00_5937;
BgL_auxz00_5937 = 
(int)(((long)3)); 
BgL_auxz00_5936 = 
STRUCT_REF(BgL_markz00_1255, BgL_auxz00_5937); } 
BgL_test2590z00_1252 = 
CBOOL(BgL_auxz00_5936); } } }  else 
{ /* ./Llib/intext.scm 1033 */
BgL_test2590z00_1252 = ((bool_t)0); } 
if(BgL_test2590z00_1252)
{ 
obj_t BgL_itemz00_5942;
BgL_itemz00_5942 = BgL_vcdrz00_1250; 
BgL_itemz00_963 = BgL_itemz00_5942; 
goto BGl_printzd2itemzd2zz__intextz00;}  else 
{ 
obj_t BgL_pz00_5945;long BgL_iz00_5943;
BgL_iz00_5943 = 
(BgL_iz00_1243+((long)1)); 
BgL_pz00_5945 = BgL_vcdrz00_1250; 
BgL_pz00_1244 = BgL_pz00_5945; 
BgL_iz00_1243 = BgL_iz00_5943; 
goto BgL_loopz00_1245;} } } } } } } } } }  else 
{ /* ./Llib/intext.scm 1285 */
{ /* ./Llib/intext.scm 1291 */
long BgL_refz00_1048;obj_t BgL_markz00_1049;long BgL_lenz00_1050;
BGl_za2refza2z00zz__intextz00 = 
(BGl_za2refza2z00zz__intextz00+((long)1)); 
BgL_refz00_1048 = BGl_za2refza2z00zz__intextz00; 
BgL_markz00_1049 = 
CDR(BgL_itemz00_963); 
BgL_lenz00_1050 = 
BGl_markedzd2pairzd2lengthz00zz__intextz00(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1294 */
obj_t BgL_auxz00_5951;int BgL_auxz00_5949;
BgL_auxz00_5951 = 
BINT(BgL_refz00_1048); 
BgL_auxz00_5949 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1049, BgL_auxz00_5949, BgL_auxz00_5951); } 
{ /* ./Llib/intext.scm 1295 */
int BgL_auxz00_5954;
BgL_auxz00_5954 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1049, BgL_auxz00_5954, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1296 */
int BgL_auxz00_5959;
BgL_auxz00_5959 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5959, ((unsigned char)'=')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(BgL_refz00_1048); 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1298 */
int BgL_auxz00_5966;
BgL_auxz00_5966 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5966, ((unsigned char)'(')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ 
long BgL_lenz00_5971;obj_t BgL_pz00_5970;
BgL_pz00_5970 = BgL_itemz00_963; 
BgL_lenz00_5971 = BgL_lenz00_1050; 
BgL_lenz00_1241 = BgL_lenz00_5971; 
BgL_pz00_1240 = BgL_pz00_5970; 
goto BgL_zc3anonymousza32572ze3z83_1242;} } } } } }  else 
{ /* ./Llib/intext.scm 1279 */
if(
VECTORP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1300 */
{ /* ./Llib/intext.scm 1302 */
bool_t BgL_test2074z00_1056;
{ /* ./Llib/intext.scm 1302 */
int BgL_arg2176z00_1090;
BgL_arg2176z00_1090 = 
VECTOR_LENGTH(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1302 */
long BgL_auxz00_5975;
BgL_auxz00_5975 = 
(long)(BgL_arg2176z00_1090); 
BgL_test2074z00_1056 = 
(BgL_auxz00_5975==((long)0)); } } 
if(BgL_test2074z00_1056)
{ /* ./Llib/intext.scm 1302 */
{ /* ./Llib/intext.scm 1303 */
int BgL_tagz00_1057;
BgL_tagz00_1057 = 
VECTOR_TAG(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1304 */
bool_t BgL_testz00_5980;
{ /* ./Llib/intext.scm 1304 */
long BgL_auxz00_5981;
BgL_auxz00_5981 = 
(long)(BgL_tagz00_1057); 
BgL_testz00_5980 = 
(BgL_auxz00_5981>((long)0)); } 
if(BgL_testz00_5980)
{ /* ./Llib/intext.scm 1304 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1306 */
int BgL_auxz00_5986;
BgL_auxz00_5986 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5986, ((unsigned char)'t')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(
(long)(BgL_tagz00_1057)); 
BgL_vz00_1279 = BgL_itemz00_963; 
BgL_ref0z00_1280 = BNIL; 
BgL_lenz00_1281 = 
BINT(((long)0)); 
BgL_zc3anonymousza32646ze3z83_1282:
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(BgL_lenz00_1281); 
BGl_printzd2motzd2zz__intextz00(BgL_lenz00_1281); 
{ /* ./Llib/intext.scm 1002 */
bool_t BgL_testz00_5994;
{ /* ./Llib/intext.scm 1002 */
long BgL_auxz00_5995;
BgL_auxz00_5995 = 
(long)CINT(BgL_lenz00_1281); 
BgL_testz00_5994 = 
(BgL_auxz00_5995>((long)0)); } 
if(BgL_testz00_5994)
{ /* ./Llib/intext.scm 1002 */
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4338, BgL_ref0z00_1280); }  else 
{ /* ./Llib/intext.scm 1002 */BFALSE; } } 
{ 
long BgL_iz00_1284;
BgL_iz00_1284 = ((long)1); 
BgL_for1014z00_1285:
{ /* ./Llib/intext.scm 1004 */
bool_t BgL_testz00_5999;
{ /* ./Llib/intext.scm 1004 */
long BgL_auxz00_6000;
{ /* ./Llib/intext.scm 1004 */
long BgL_auxz00_6001;
BgL_auxz00_6001 = 
(long)CINT(BgL_lenz00_1281); 
BgL_auxz00_6000 = 
(BgL_auxz00_6001-((long)1)); } 
BgL_testz00_5999 = 
(BgL_iz00_1284<=BgL_auxz00_6000); } 
if(BgL_testz00_5999)
{ /* ./Llib/intext.scm 1004 */
{ /* ./Llib/intext.scm 1005 */
obj_t BgL_auxz00_6005;
{ 
int BgL_auxz00_6006;
BgL_auxz00_6006 = 
(int)(BgL_iz00_1284); 
BgL_auxz00_6005 = 
VECTOR_REF(BgL_vz00_1279,BgL_auxz00_6006); } 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4338, BgL_auxz00_6005); } 
{ 
long BgL_iz00_6010;
BgL_iz00_6010 = 
(BgL_iz00_1284+((long)1)); 
BgL_iz00_1284 = BgL_iz00_6010; 
goto BgL_for1014z00_1285;} }  else 
{ /* ./Llib/intext.scm 1004 */
return BGl_symbol4537z00zz__intextz00;} } } }  else 
{ /* ./Llib/intext.scm 1304 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1310 */
int BgL_auxz00_6015;
BgL_auxz00_6015 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6015, ((unsigned char)'[')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ 
obj_t BgL_lenz00_6021;obj_t BgL_ref0z00_6020;obj_t BgL_vz00_6019;
BgL_vz00_6019 = BgL_itemz00_963; 
BgL_ref0z00_6020 = BNIL; 
BgL_lenz00_6021 = 
BINT(((long)0)); 
BgL_lenz00_1281 = BgL_lenz00_6021; 
BgL_ref0z00_1280 = BgL_ref0z00_6020; 
BgL_vz00_1279 = BgL_vz00_6019; 
goto BgL_zc3anonymousza32646ze3z83_1282;} } } } }  else 
{ /* ./Llib/intext.scm 1312 */
bool_t BgL_test2083z00_1059;
{ /* ./Llib/intext.scm 1312 */
obj_t BgL_arg2172z00_1089;
{ 
int BgL_auxz00_6023;
BgL_auxz00_6023 = 
(int)(((long)0)); 
BgL_arg2172z00_1089 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6023); } 
{ /* ./Llib/intext.scm 1312 */
obj_t BgL_auxz00_6026;
{ /* ./Llib/intext.scm 1312 */
int BgL_auxz00_6027;
BgL_auxz00_6027 = 
(int)(((long)3)); 
BgL_auxz00_6026 = 
STRUCT_REF(BgL_arg2172z00_1089, BgL_auxz00_6027); } 
BgL_test2083z00_1059 = 
CBOOL(BgL_auxz00_6026); } } 
if(BgL_test2083z00_1059)
{ /* ./Llib/intext.scm 1312 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1313 */
int BgL_auxz00_6034;
BgL_auxz00_6034 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6034, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1314 */
obj_t BgL_arg2086z00_1060;
{ /* ./Llib/intext.scm 1314 */
int BgL_auxz00_6042;obj_t BgL_auxz00_6038;
BgL_auxz00_6042 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_6039;
BgL_auxz00_6039 = 
(int)(((long)0)); 
BgL_auxz00_6038 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6039); } 
BgL_arg2086z00_1060 = 
STRUCT_REF(BgL_auxz00_6038, BgL_auxz00_6042); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg2086z00_1060)); } 
{ /* ./Llib/intext.scm 1315 */
obj_t BgL_arg2093z00_1062;long BgL_arg2094z00_1063;
{ 
int BgL_auxz00_6047;
BgL_auxz00_6047 = 
(int)(((long)0)); 
BgL_arg2093z00_1062 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6047); } 
{ /* ./Llib/intext.scm 1317 */
obj_t BgL_arg2098z00_1064;
{ /* ./Llib/intext.scm 1316 */
int BgL_auxz00_6054;obj_t BgL_auxz00_6050;
BgL_auxz00_6054 = 
(int)(((long)4)); 
{ 
int BgL_auxz00_6051;
BgL_auxz00_6051 = 
(int)(((long)0)); 
BgL_auxz00_6050 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6051); } 
BgL_arg2098z00_1064 = 
STRUCT_REF(BgL_auxz00_6050, BgL_auxz00_6054); } 
{ /* ./Llib/intext.scm 1316 */
long BgL_auxz00_6057;
BgL_auxz00_6057 = 
(long)CINT(BgL_arg2098z00_1064); 
BgL_arg2094z00_1063 = 
(BgL_auxz00_6057-((long)1)); } } 
{ /* ./Llib/intext.scm 1315 */
obj_t BgL_auxz00_6062;int BgL_auxz00_6060;
BgL_auxz00_6062 = 
BINT(BgL_arg2094z00_1063); 
BgL_auxz00_6060 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2093z00_1062, BgL_auxz00_6060, BgL_auxz00_6062); } } 
{ /* ./Llib/intext.scm 1319 */
bool_t BgL_test2105z00_1067;
{ /* ./Llib/intext.scm 1319 */
obj_t BgL_arg2108z00_1068;
{ /* ./Llib/intext.scm 1319 */
int BgL_auxz00_6069;obj_t BgL_auxz00_6065;
BgL_auxz00_6069 = 
(int)(((long)4)); 
{ 
int BgL_auxz00_6066;
BgL_auxz00_6066 = 
(int)(((long)0)); 
BgL_auxz00_6065 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6066); } 
BgL_arg2108z00_1068 = 
STRUCT_REF(BgL_auxz00_6065, BgL_auxz00_6069); } 
{ /* ./Llib/intext.scm 1319 */
long BgL_auxz00_6072;
BgL_auxz00_6072 = 
(long)CINT(BgL_arg2108z00_1068); 
BgL_test2105z00_1067 = 
(BgL_auxz00_6072==((long)0)); } } 
if(BgL_test2105z00_1067)
{ 
obj_t BgL_auxz00_6078;int BgL_auxz00_6076;
{ /* ./Llib/intext.scm 1320 */
int BgL_auxz00_6083;obj_t BgL_auxz00_6079;
BgL_auxz00_6083 = 
(int)(((long)1)); 
{ 
int BgL_auxz00_6080;
BgL_auxz00_6080 = 
(int)(((long)0)); 
BgL_auxz00_6079 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6080); } 
BgL_auxz00_6078 = 
STRUCT_REF(BgL_auxz00_6079, BgL_auxz00_6083); } 
BgL_auxz00_6076 = 
(int)(((long)0)); 
return 
VECTOR_SET(BgL_itemz00_963,BgL_auxz00_6076,BgL_auxz00_6078);}  else 
{ /* ./Llib/intext.scm 1319 */
return BFALSE;} } }  else 
{ /* ./Llib/intext.scm 1321 */
bool_t BgL_test2115z00_1071;
{ /* ./Llib/intext.scm 1321 */
obj_t BgL_arg2163z00_1086;
{ /* ./Llib/intext.scm 1321 */
int BgL_auxz00_6091;obj_t BgL_auxz00_6087;
BgL_auxz00_6091 = 
(int)(((long)4)); 
{ 
int BgL_auxz00_6088;
BgL_auxz00_6088 = 
(int)(((long)0)); 
BgL_auxz00_6087 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6088); } 
BgL_arg2163z00_1086 = 
STRUCT_REF(BgL_auxz00_6087, BgL_auxz00_6091); } 
{ /* ./Llib/intext.scm 1321 */
long BgL_auxz00_6094;
BgL_auxz00_6094 = 
(long)CINT(BgL_arg2163z00_1086); 
BgL_test2115z00_1071 = 
(BgL_auxz00_6094==((long)0)); } } 
if(BgL_test2115z00_1071)
{ /* ./Llib/intext.scm 1321 */
{ 
obj_t BgL_auxz00_6100;int BgL_auxz00_6098;
{ /* ./Llib/intext.scm 1322 */
int BgL_auxz00_6105;obj_t BgL_auxz00_6101;
BgL_auxz00_6105 = 
(int)(((long)1)); 
{ 
int BgL_auxz00_6102;
BgL_auxz00_6102 = 
(int)(((long)0)); 
BgL_auxz00_6101 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6102); } 
BgL_auxz00_6100 = 
STRUCT_REF(BgL_auxz00_6101, BgL_auxz00_6105); } 
BgL_auxz00_6098 = 
(int)(((long)0)); 
VECTOR_SET(BgL_itemz00_963,BgL_auxz00_6098,BgL_auxz00_6100); } 
{ /* ./Llib/intext.scm 1323 */
int BgL_tagz00_1072;
BgL_tagz00_1072 = 
VECTOR_TAG(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1324 */
bool_t BgL_testz00_6110;
{ /* ./Llib/intext.scm 1324 */
long BgL_auxz00_6111;
BgL_auxz00_6111 = 
(long)(BgL_tagz00_1072); 
BgL_testz00_6110 = 
(BgL_auxz00_6111>((long)0)); } 
if(BgL_testz00_6110)
{ /* ./Llib/intext.scm 1324 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1326 */
int BgL_auxz00_6116;
BgL_auxz00_6116 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6116, ((unsigned char)'t')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(
(long)(BgL_tagz00_1072)); 
{ /* ./Llib/intext.scm 1329 */
obj_t BgL_arg2122z00_1074;int BgL_arg2123z00_1075;
{ 
int BgL_auxz00_6122;
BgL_auxz00_6122 = 
(int)(((long)0)); 
BgL_arg2122z00_1074 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6122); } 
BgL_arg2123z00_1075 = 
VECTOR_LENGTH(BgL_itemz00_963); 
{ 
obj_t BgL_lenz00_6128;obj_t BgL_ref0z00_6127;obj_t BgL_vz00_6126;
BgL_vz00_6126 = BgL_itemz00_963; 
BgL_ref0z00_6127 = BgL_arg2122z00_1074; 
BgL_lenz00_6128 = 
BINT(BgL_arg2123z00_1075); 
BgL_lenz00_1281 = BgL_lenz00_6128; 
BgL_ref0z00_1280 = BgL_ref0z00_6127; 
BgL_vz00_1279 = BgL_vz00_6126; 
goto BgL_zc3anonymousza32646ze3z83_1282;} } }  else 
{ /* ./Llib/intext.scm 1324 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1332 */
int BgL_auxz00_6132;
BgL_auxz00_6132 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6132, ((unsigned char)'[')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1334 */
obj_t BgL_arg2129z00_1076;int BgL_arg2132z00_1077;
{ 
int BgL_auxz00_6136;
BgL_auxz00_6136 = 
(int)(((long)0)); 
BgL_arg2129z00_1076 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6136); } 
BgL_arg2132z00_1077 = 
VECTOR_LENGTH(BgL_itemz00_963); 
{ 
obj_t BgL_lenz00_6142;obj_t BgL_ref0z00_6141;obj_t BgL_vz00_6140;
BgL_vz00_6140 = BgL_itemz00_963; 
BgL_ref0z00_6141 = BgL_arg2129z00_1076; 
BgL_lenz00_6142 = 
BINT(BgL_arg2132z00_1077); 
BgL_lenz00_1281 = BgL_lenz00_6142; 
BgL_ref0z00_1280 = BgL_ref0z00_6141; 
BgL_vz00_1279 = BgL_vz00_6140; 
goto BgL_zc3anonymousza32646ze3z83_1282;} } } } } }  else 
{ /* ./Llib/intext.scm 1321 */
{ /* ./Llib/intext.scm 1337 */
long BgL_refz00_1078;
BGl_za2refza2z00zz__intextz00 = 
(BGl_za2refza2z00zz__intextz00+((long)1)); 
BgL_refz00_1078 = BGl_za2refza2z00zz__intextz00; 
{ /* ./Llib/intext.scm 1337 */
obj_t BgL_markz00_1079;
{ 
int BgL_auxz00_6145;
BgL_auxz00_6145 = 
(int)(((long)0)); 
BgL_markz00_1079 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6145); } 
{ /* ./Llib/intext.scm 1338 */
int BgL_tagz00_1080;
BgL_tagz00_1080 = 
VECTOR_TAG(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1339 */
int BgL_lenz00_1081;
BgL_lenz00_1081 = 
VECTOR_LENGTH(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1340 */
obj_t BgL_ref0z00_1082;
BgL_ref0z00_1082 = BUNSPEC; 
{ /* ./Llib/intext.scm 1340 */

{ 
obj_t BgL_auxz00_6152;int BgL_auxz00_6150;
{ /* ./Llib/intext.scm 1344 */
int BgL_auxz00_6153;
BgL_auxz00_6153 = 
(int)(((long)1)); 
BgL_auxz00_6152 = 
STRUCT_REF(BgL_markz00_1079, BgL_auxz00_6153); } 
BgL_auxz00_6150 = 
(int)(((long)0)); 
VECTOR_SET(BgL_itemz00_963,BgL_auxz00_6150,BgL_auxz00_6152); } 
{ 
int BgL_auxz00_6157;
BgL_auxz00_6157 = 
(int)(((long)0)); 
BgL_ref0z00_1082 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6157); } 
{ 
int BgL_auxz00_6160;
BgL_auxz00_6160 = 
(int)(((long)0)); 
VECTOR_SET(BgL_itemz00_963,BgL_auxz00_6160,BgL_markz00_1079); } 
{ /* ./Llib/intext.scm 1348 */
obj_t BgL_auxz00_6165;int BgL_auxz00_6163;
BgL_auxz00_6165 = 
BINT(BgL_refz00_1078); 
BgL_auxz00_6163 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1079, BgL_auxz00_6163, BgL_auxz00_6165); } 
{ /* ./Llib/intext.scm 1349 */
int BgL_auxz00_6168;
BgL_auxz00_6168 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1079, BgL_auxz00_6168, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1350 */
int BgL_auxz00_6173;
BgL_auxz00_6173 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6173, ((unsigned char)'=')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(BgL_refz00_1078); 
{ /* ./Llib/intext.scm 1352 */
bool_t BgL_testz00_6178;
{ /* ./Llib/intext.scm 1352 */
long BgL_auxz00_6179;
BgL_auxz00_6179 = 
(long)(BgL_tagz00_1080); 
BgL_testz00_6178 = 
(BgL_auxz00_6179>((long)0)); } 
if(BgL_testz00_6178)
{ /* ./Llib/intext.scm 1352 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1354 */
int BgL_auxz00_6184;
BgL_auxz00_6184 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6184, ((unsigned char)'t')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(
(long)(BgL_tagz00_1080)); 
{ 
obj_t BgL_lenz00_6192;obj_t BgL_ref0z00_6191;obj_t BgL_vz00_6190;
BgL_vz00_6190 = BgL_itemz00_963; 
BgL_ref0z00_6191 = BgL_ref0z00_1082; 
BgL_lenz00_6192 = 
BINT(BgL_lenz00_1081); 
BgL_lenz00_1281 = BgL_lenz00_6192; 
BgL_ref0z00_1280 = BgL_ref0z00_6191; 
BgL_vz00_1279 = BgL_vz00_6190; 
goto BgL_zc3anonymousza32646ze3z83_1282;} }  else 
{ /* ./Llib/intext.scm 1352 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1358 */
int BgL_auxz00_6196;
BgL_auxz00_6196 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6196, ((unsigned char)'[')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ 
obj_t BgL_lenz00_6202;obj_t BgL_ref0z00_6201;obj_t BgL_vz00_6200;
BgL_vz00_6200 = BgL_itemz00_963; 
BgL_ref0z00_6201 = BgL_ref0z00_1082; 
BgL_lenz00_6202 = 
BINT(BgL_lenz00_1081); 
BgL_lenz00_1281 = BgL_lenz00_6202; 
BgL_ref0z00_1280 = BgL_ref0z00_6201; 
BgL_vz00_1279 = BgL_vz00_6200; 
goto BgL_zc3anonymousza32646ze3z83_1282;} } } } } } } } } } } } } }  else 
{ /* ./Llib/intext.scm 1300 */
if(
CUSTOMP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1360 */
BgL_marqueurz00_1149 = ((unsigned char)'+'); 
BgL_itemz00_1150 = BgL_itemz00_963; 
{ /* ./Llib/intext.scm 1125 */
obj_t BgL_markz00_1152;
{ /* ./Llib/intext.scm 1125 */
obj_t BgL_cellz00_3437;
BgL_cellz00_3437 = 
BGl_getzd2hashzd2zz__hashz00(BgL_itemz00_1150, 
BGl_getzd2customzd2hashzd2tablezd2zz__intextz00()); 
if(
PAIRP(BgL_cellz00_3437))
{ /* ./Llib/intext.scm 1125 */
BgL_markz00_1152 = 
CDR(BgL_cellz00_3437); }  else 
{ /* ./Llib/intext.scm 1125 */
FAILURE(BGl_string4529z00zz__intextz00,BGl_string4541z00zz__intextz00,BUNSPEC);} } 
{ /* ./Llib/intext.scm 1127 */
bool_t BgL_testz00_6212;
{ /* ./Llib/intext.scm 1127 */
obj_t BgL_auxz00_6213;
{ /* ./Llib/intext.scm 1127 */
int BgL_auxz00_6214;
BgL_auxz00_6214 = 
(int)(((long)3)); 
BgL_auxz00_6213 = 
STRUCT_REF(BgL_markz00_1152, BgL_auxz00_6214); } 
BgL_testz00_6212 = 
CBOOL(BgL_auxz00_6213); } 
if(BgL_testz00_6212)
{ /* ./Llib/intext.scm 1127 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1128 */
int BgL_auxz00_6220;
BgL_auxz00_6220 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6220, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1129 */
obj_t BgL_arg2350z00_1154;
{ /* ./Llib/intext.scm 1129 */
int BgL_auxz00_6224;
BgL_auxz00_6224 = 
(int)(((long)2)); 
BgL_arg2350z00_1154 = 
STRUCT_REF(BgL_markz00_1152, BgL_auxz00_6224); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg2350z00_1154)); } 
{ /* ./Llib/intext.scm 1130 */
long BgL_arg2354z00_1155;
{ /* ./Llib/intext.scm 1130 */
long BgL_auxz00_6229;
{ /* ./Llib/intext.scm 1130 */
obj_t BgL_auxz00_6230;
{ /* ./Llib/intext.scm 1130 */
int BgL_auxz00_6231;
BgL_auxz00_6231 = 
(int)(((long)4)); 
BgL_auxz00_6230 = 
STRUCT_REF(BgL_markz00_1152, BgL_auxz00_6231); } 
BgL_auxz00_6229 = 
(long)CINT(BgL_auxz00_6230); } 
BgL_arg2354z00_1155 = 
(BgL_auxz00_6229-((long)1)); } 
{ /* ./Llib/intext.scm 1130 */
obj_t BgL_auxz00_6238;int BgL_auxz00_6236;
BgL_auxz00_6238 = 
BINT(BgL_arg2354z00_1155); 
BgL_auxz00_6236 = 
(int)(((long)4)); 
STRUCT_SET(BgL_markz00_1152, BgL_auxz00_6236, BgL_auxz00_6238); } } 
{ /* ./Llib/intext.scm 1131 */
bool_t BgL_testz00_6241;
{ /* ./Llib/intext.scm 1131 */
long BgL_auxz00_6242;
{ /* ./Llib/intext.scm 1131 */
obj_t BgL_auxz00_6243;
{ /* ./Llib/intext.scm 1131 */
int BgL_auxz00_6244;
BgL_auxz00_6244 = 
(int)(((long)4)); 
BgL_auxz00_6243 = 
STRUCT_REF(BgL_markz00_1152, BgL_auxz00_6244); } 
BgL_auxz00_6242 = 
(long)CINT(BgL_auxz00_6243); } 
BgL_testz00_6241 = 
(BgL_auxz00_6242==((long)0)); } 
if(BgL_testz00_6241)
{ /* ./Llib/intext.scm 1132 */
obj_t BgL_markz00_3473;
BgL_markz00_3473 = 
BGl_getzd2customzd2markz00zz__intextz00(BgL_itemz00_1150); 
{ /* ./Llib/intext.scm 1132 */
obj_t BgL_arg1585z00_3474;
{ /* ./Llib/intext.scm 1132 */
int BgL_auxz00_6250;
BgL_auxz00_6250 = 
(int)(((long)1)); 
BgL_arg1585z00_3474 = 
STRUCT_REF(BgL_markz00_3473, BgL_auxz00_6250); } 
{ /* ./Llib/intext.scm 1132 */
char * BgL_auxz00_6253;
BgL_auxz00_6253 = 
BSTRING_TO_STRING(BgL_arg1585z00_3474); 
CUSTOM_IDENTIFIER_SET(BgL_itemz00_1150, BgL_auxz00_6253); } } 
return BgL_itemz00_1150;}  else 
{ /* ./Llib/intext.scm 1131 */
return BFALSE;} } }  else 
{ /* ./Llib/intext.scm 1133 */
bool_t BgL_testz00_6256;
{ /* ./Llib/intext.scm 1133 */
long BgL_auxz00_6257;
{ /* ./Llib/intext.scm 1133 */
obj_t BgL_auxz00_6258;
{ /* ./Llib/intext.scm 1133 */
int BgL_auxz00_6259;
BgL_auxz00_6259 = 
(int)(((long)4)); 
BgL_auxz00_6258 = 
STRUCT_REF(BgL_markz00_1152, BgL_auxz00_6259); } 
BgL_auxz00_6257 = 
(long)CINT(BgL_auxz00_6258); } 
BgL_testz00_6256 = 
(BgL_auxz00_6257==((long)0)); } 
if(BgL_testz00_6256)
{ /* ./Llib/intext.scm 1133 */
{ /* ./Llib/intext.scm 1134 */
obj_t BgL_markz00_3486;
BgL_markz00_3486 = 
BGl_getzd2customzd2markz00zz__intextz00(BgL_itemz00_1150); 
{ /* ./Llib/intext.scm 1134 */
obj_t BgL_arg1585z00_3487;
{ /* ./Llib/intext.scm 1134 */
int BgL_auxz00_6265;
BgL_auxz00_6265 = 
(int)(((long)1)); 
BgL_arg1585z00_3487 = 
STRUCT_REF(BgL_markz00_3486, BgL_auxz00_6265); } 
{ /* ./Llib/intext.scm 1134 */
char * BgL_auxz00_6268;
BgL_auxz00_6268 = 
BSTRING_TO_STRING(BgL_arg1585z00_3487); 
CUSTOM_IDENTIFIER_SET(BgL_itemz00_1150, BgL_auxz00_6268); } } BgL_itemz00_1150; } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1135 */
int BgL_auxz00_6273;
BgL_auxz00_6273 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6273, BgL_marqueurz00_1149); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1136 */
char * BgL_identz00_1162;
BgL_identz00_1162 = 
CUSTOM_IDENTIFIER(BgL_itemz00_1150); 
{ /* ./Llib/intext.scm 1136 */
obj_t BgL_serializa7erza7_1163;
{ /* ./Llib/intext.scm 1137 */
obj_t BgL_cellz00_3501;
BgL_cellz00_3501 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(
string_to_bstring(BgL_identz00_1162), BGl_za2customzd2serializa7ationza2z75zz__intextz00); 
if(
PAIRP(BgL_cellz00_3501))
{ /* ./Llib/intext.scm 1137 */
obj_t BgL_auxz00_6282;
BgL_auxz00_6282 = 
CDR(BgL_cellz00_3501); 
BgL_serializa7erza7_1163 = 
CAR(BgL_auxz00_6282); }  else 
{ /* ./Llib/intext.scm 1137 */
BgL_serializa7erza7_1163 = BFALSE; } } 
{ /* ./Llib/intext.scm 1137 */

if(
PROCEDUREP(BgL_serializa7erza7_1163))
{ /* ./Llib/intext.scm 1138 */
{ /* ./Llib/intext.scm 1141 */
int BgL_arg2373z00_1165;
{ /* ./Llib/intext.scm 1141 */
obj_t BgL_auxz00_6287;
BgL_auxz00_6287 = 
string_to_bstring(BgL_identz00_1162); 
BgL_arg2373z00_1165 = 
STRING_LENGTH(BgL_auxz00_6287); } 
BGl_printzd2charszd2zz__intextz00(
string_to_bstring(BgL_identz00_1162), 
BINT(BgL_arg2373z00_1165)); } 
return 
PROCEDURE_ENTRY(BgL_serializa7erza7_1163)(BgL_serializa7erza7_1163, BgL_itemz00_1150, BEOA);}  else 
{ /* ./Llib/intext.scm 1138 */
FAILURE(BGl_string4529z00zz__intextz00,BGl_string4546z00zz__intextz00,BgL_itemz00_1150);} } } } }  else 
{ /* ./Llib/intext.scm 1133 */
{ /* ./Llib/intext.scm 1144 */
long BgL_refz00_1166;
BGl_za2refza2z00zz__intextz00 = 
(BGl_za2refza2z00zz__intextz00+((long)1)); 
BgL_refz00_1166 = BGl_za2refza2z00zz__intextz00; 
{ /* ./Llib/intext.scm 1145 */
obj_t BgL_auxz00_6299;int BgL_auxz00_6297;
BgL_auxz00_6299 = 
BINT(BgL_refz00_1166); 
BgL_auxz00_6297 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1152, BgL_auxz00_6297, BgL_auxz00_6299); } 
{ /* ./Llib/intext.scm 1146 */
int BgL_auxz00_6302;
BgL_auxz00_6302 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1152, BgL_auxz00_6302, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1147 */
int BgL_auxz00_6307;
BgL_auxz00_6307 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6307, ((unsigned char)'=')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(BgL_refz00_1166); 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1149 */
int BgL_auxz00_6314;
BgL_auxz00_6314 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6314, BgL_marqueurz00_1149); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1150 */
obj_t BgL_auxz00_6318;
{ /* ./Llib/intext.scm 1150 */
int BgL_auxz00_6319;
BgL_auxz00_6319 = 
(int)(((long)1)); 
BgL_auxz00_6318 = 
STRUCT_REF(BgL_markz00_1152, BgL_auxz00_6319); } 
return 
BGl_printzd2charszd2zz__intextz00(BgL_itemz00_1150, BgL_auxz00_6318);} } } } } } }  else 
{ /* ./Llib/intext.scm 1360 */
if(
TVECTORP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1362 */
{ /* ./Llib/intext.scm 1363 */
obj_t BgL_markz00_1094;
{ /* ./Llib/intext.scm 1363 */
obj_t BgL_auxz00_6325;
BgL_auxz00_6325 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_markz00_1094 = 
CDR(BgL_auxz00_6325); } 
{ /* ./Llib/intext.scm 1365 */
bool_t BgL_testz00_6328;
{ /* ./Llib/intext.scm 1365 */
obj_t BgL_auxz00_6329;
{ /* ./Llib/intext.scm 1365 */
int BgL_auxz00_6330;
BgL_auxz00_6330 = 
(int)(((long)3)); 
BgL_auxz00_6329 = 
STRUCT_REF(BgL_markz00_1094, BgL_auxz00_6330); } 
BgL_testz00_6328 = 
CBOOL(BgL_auxz00_6329); } 
if(BgL_testz00_6328)
{ /* ./Llib/intext.scm 1365 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1366 */
int BgL_auxz00_6336;
BgL_auxz00_6336 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6336, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1367 */
obj_t BgL_arg2187z00_1096;
{ /* ./Llib/intext.scm 1367 */
int BgL_auxz00_6344;obj_t BgL_auxz00_6340;
BgL_auxz00_6344 = 
(int)(((long)2)); 
{ /* ./Llib/intext.scm 1367 */
obj_t BgL_auxz00_6341;
BgL_auxz00_6341 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_auxz00_6340 = 
CDR(BgL_auxz00_6341); } 
BgL_arg2187z00_1096 = 
STRUCT_REF(BgL_auxz00_6340, BgL_auxz00_6344); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg2187z00_1096)); } 
{ /* ./Llib/intext.scm 1368 */
obj_t BgL_arg2194z00_1098;long BgL_arg2195z00_1099;
{ /* ./Llib/intext.scm 1368 */
obj_t BgL_auxz00_6349;
BgL_auxz00_6349 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_arg2194z00_1098 = 
CDR(BgL_auxz00_6349); } 
{ /* ./Llib/intext.scm 1370 */
obj_t BgL_arg2199z00_1100;
{ /* ./Llib/intext.scm 1369 */
int BgL_auxz00_6356;obj_t BgL_auxz00_6352;
BgL_auxz00_6356 = 
(int)(((long)4)); 
{ /* ./Llib/intext.scm 1370 */
obj_t BgL_auxz00_6353;
BgL_auxz00_6353 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_auxz00_6352 = 
CDR(BgL_auxz00_6353); } 
BgL_arg2199z00_1100 = 
STRUCT_REF(BgL_auxz00_6352, BgL_auxz00_6356); } 
{ /* ./Llib/intext.scm 1369 */
long BgL_auxz00_6359;
BgL_auxz00_6359 = 
(long)CINT(BgL_arg2199z00_1100); 
BgL_arg2195z00_1099 = 
(BgL_auxz00_6359-((long)1)); } } 
{ /* ./Llib/intext.scm 1368 */
obj_t BgL_auxz00_6364;int BgL_auxz00_6362;
BgL_auxz00_6364 = 
BINT(BgL_arg2195z00_1099); 
BgL_auxz00_6362 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2194z00_1098, BgL_auxz00_6362, BgL_auxz00_6364); } } 
{ /* ./Llib/intext.scm 1372 */
bool_t BgL_test2206z00_1103;
{ /* ./Llib/intext.scm 1372 */
obj_t BgL_arg2209z00_1104;
{ /* ./Llib/intext.scm 1372 */
int BgL_auxz00_6371;obj_t BgL_auxz00_6367;
BgL_auxz00_6371 = 
(int)(((long)4)); 
{ /* ./Llib/intext.scm 1372 */
obj_t BgL_auxz00_6368;
BgL_auxz00_6368 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_auxz00_6367 = 
CDR(BgL_auxz00_6368); } 
BgL_arg2209z00_1104 = 
STRUCT_REF(BgL_auxz00_6367, BgL_auxz00_6371); } 
{ /* ./Llib/intext.scm 1372 */
long BgL_auxz00_6374;
BgL_auxz00_6374 = 
(long)CINT(BgL_arg2209z00_1104); 
BgL_test2206z00_1103 = 
(BgL_auxz00_6374==((long)0)); } } 
if(BgL_test2206z00_1103)
{ /* ./Llib/intext.scm 1372 */
return BUNSPEC;}  else 
{ /* ./Llib/intext.scm 1372 */
return BFALSE;} } }  else 
{ /* ./Llib/intext.scm 1374 */
bool_t BgL_testz00_6378;
{ /* ./Llib/intext.scm 1374 */
long BgL_auxz00_6379;
{ /* ./Llib/intext.scm 1374 */
obj_t BgL_auxz00_6380;
{ /* ./Llib/intext.scm 1374 */
int BgL_auxz00_6381;
BgL_auxz00_6381 = 
(int)(((long)4)); 
BgL_auxz00_6380 = 
STRUCT_REF(BgL_markz00_1094, BgL_auxz00_6381); } 
BgL_auxz00_6379 = 
(long)CINT(BgL_auxz00_6380); } 
BgL_testz00_6378 = 
(BgL_auxz00_6379==((long)0)); } 
if(BgL_testz00_6378)
{ /* ./Llib/intext.scm 1374 */
{ /* ./Llib/intext.scm 1375 */
obj_t BgL_vz00_1108;
{ /* ./Llib/intext.scm 1375 */
int BgL_auxz00_6390;obj_t BgL_auxz00_6386;
BgL_auxz00_6390 = 
(int)(((long)5)); 
{ /* ./Llib/intext.scm 1375 */
obj_t BgL_auxz00_6387;
BgL_auxz00_6387 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_auxz00_6386 = 
CDR(BgL_auxz00_6387); } 
BgL_vz00_1108 = 
STRUCT_REF(BgL_auxz00_6386, BgL_auxz00_6390); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1377 */
int BgL_auxz00_6395;
BgL_auxz00_6395 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6395, ((unsigned char)'V')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4338, 
BGl_tvectorzd2idzd2zz__tvectorz00(BgL_itemz00_963)); 
{ 
obj_t BgL_itemz00_6401;
BgL_itemz00_6401 = BgL_vz00_1108; 
BgL_itemz00_963 = BgL_itemz00_6401; 
goto BGl_printzd2itemzd2zz__intextz00;} } }  else 
{ /* ./Llib/intext.scm 1374 */
{ /* ./Llib/intext.scm 1381 */
long BgL_refz00_1110;
BGl_za2refza2z00zz__intextz00 = 
(BGl_za2refza2z00zz__intextz00+((long)1)); 
BgL_refz00_1110 = BGl_za2refza2z00zz__intextz00; 
{ /* ./Llib/intext.scm 1382 */
obj_t BgL_vz00_1112;
{ /* ./Llib/intext.scm 1383 */
int BgL_auxz00_6407;obj_t BgL_auxz00_6403;
BgL_auxz00_6407 = 
(int)(((long)5)); 
{ /* ./Llib/intext.scm 1383 */
obj_t BgL_auxz00_6404;
BgL_auxz00_6404 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_auxz00_6403 = 
CDR(BgL_auxz00_6404); } 
BgL_vz00_1112 = 
STRUCT_REF(BgL_auxz00_6403, BgL_auxz00_6407); } 
{ /* ./Llib/intext.scm 1383 */
obj_t BgL_idz00_1113;
BgL_idz00_1113 = BUNSPEC; 
{ /* ./Llib/intext.scm 1383 */

BgL_idz00_1113 = 
BGl_tvectorzd2idzd2zz__tvectorz00(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1386 */
obj_t BgL_auxz00_6413;int BgL_auxz00_6411;
BgL_auxz00_6413 = 
BINT(BgL_refz00_1110); 
BgL_auxz00_6411 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1094, BgL_auxz00_6411, BgL_auxz00_6413); } 
{ /* ./Llib/intext.scm 1387 */
int BgL_auxz00_6416;
BgL_auxz00_6416 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1094, BgL_auxz00_6416, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1388 */
int BgL_auxz00_6421;
BgL_auxz00_6421 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6421, ((unsigned char)'=')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(BgL_refz00_1110); 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1390 */
int BgL_auxz00_6428;
BgL_auxz00_6428 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6428, ((unsigned char)'V')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4338, BgL_idz00_1113); 
{ 
obj_t BgL_itemz00_6433;
BgL_itemz00_6433 = BgL_vz00_1112; 
BgL_itemz00_963 = BgL_itemz00_6433; 
goto BGl_printzd2itemzd2zz__intextz00;} } } } } } } } } }  else 
{ /* ./Llib/intext.scm 1362 */
if(
CUSTOMP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1393 */
{ /* ./Llib/intext.scm 1394 */
obj_t BgL_itemz00_1117;
BgL_itemz00_1117 = 
PROCEDURE_ENTRY(BGl_za2procedurezd2ze3stringza2z31zz__intextz00)(BGl_za2procedurezd2ze3stringza2z31zz__intextz00, BgL_itemz00_963, BEOA); 
{ /* ./Llib/intext.scm 1395 */
obj_t BgL_arg2246z00_1118;
BgL_arg2246z00_1118 = 
MAKE_PAIR(BgL_objz00_4338, BgL_itemz00_1117); 
BGl_za2procedurezd2tableza2zd2zz__intextz00 = 
MAKE_PAIR(BgL_arg2246z00_1118, BGl_za2procedurezd2tableza2zd2zz__intextz00); } 
return 
BGl_loopz00zz__intextz00(BgL_itemz00_1117);} }  else 
{ /* ./Llib/intext.scm 1393 */
if(
PROCEDUREP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1397 */
{ 
obj_t BgL_itemz00_6444;unsigned char BgL_marqueurz00_6443;
BgL_marqueurz00_6443 = ((unsigned char)'p'); 
{ /* ./Llib/intext.scm 1398 */
obj_t BgL_auxz00_6445;
BgL_auxz00_6445 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2procedurezd2tableza2zd2zz__intextz00); 
BgL_itemz00_6444 = 
CDR(BgL_auxz00_6445); } 
BgL_itemz00_1171 = BgL_itemz00_6444; 
BgL_marqueurz00_1170 = BgL_marqueurz00_6443; 
goto BgL_zc3anonymousza32398ze3z83_1172;} }  else 
{ /* ./Llib/intext.scm 1397 */
if(
PROCESSP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1400 */
{ 
obj_t BgL_itemz00_6451;unsigned char BgL_marqueurz00_6450;
BgL_marqueurz00_6450 = ((unsigned char)'e'); 
{ /* ./Llib/intext.scm 1401 */
obj_t BgL_auxz00_6452;
BgL_auxz00_6452 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2processzd2tableza2zd2zz__intextz00); 
BgL_itemz00_6451 = 
CDR(BgL_auxz00_6452); } 
BgL_itemz00_1171 = BgL_itemz00_6451; 
BgL_marqueurz00_1170 = BgL_marqueurz00_6450; 
goto BgL_zc3anonymousza32398ze3z83_1172;} }  else 
{ /* ./Llib/intext.scm 1400 */
if(
OPAQUEP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1403 */
{ 
obj_t BgL_itemz00_6458;unsigned char BgL_marqueurz00_6457;
BgL_marqueurz00_6457 = ((unsigned char)'o'); 
{ /* ./Llib/intext.scm 1404 */
obj_t BgL_auxz00_6459;
BgL_auxz00_6459 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2opaquezd2tableza2zd2zz__intextz00); 
BgL_itemz00_6458 = 
CDR(BgL_auxz00_6459); } 
BgL_itemz00_1171 = BgL_itemz00_6458; 
BgL_marqueurz00_1170 = BgL_marqueurz00_6457; 
goto BgL_zc3anonymousza32398ze3z83_1172;} }  else 
{ /* ./Llib/intext.scm 1403 */
if(
ELONGP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1406 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1407 */
int BgL_auxz00_6466;
BgL_auxz00_6466 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6466, ((unsigned char)'E')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1408 */
long BgL_ez00_3346;
BgL_ez00_3346 = 
BELONG_TO_LONG(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1408 */
obj_t BgL_sz00_3347;
BgL_sz00_3347 = 
BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
LONG_TO_BELONG(BgL_ez00_3346), BNIL); 
{ /* ./Llib/intext.scm 1408 */
int BgL_arg1786z00_3349;
BgL_arg1786z00_3349 = 
STRING_LENGTH(BgL_sz00_3347); 
return 
BGl_printzd2charszd2zz__intextz00(BgL_sz00_3347, 
BINT(BgL_arg1786z00_3349));} } } }  else 
{ /* ./Llib/intext.scm 1406 */
if(
LLONGP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1409 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1410 */
int BgL_auxz00_6480;
BgL_auxz00_6480 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6480, ((unsigned char)'L')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1411 */
BGL_LONGLONG_T BgL_lz00_3358;
BgL_lz00_3358 = 
BLLONG_TO_LLONG(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1411 */
obj_t BgL_sz00_3359;
BgL_sz00_3359 = 
BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
LLONG_TO_BLLONG(BgL_lz00_3358), BNIL); 
{ /* ./Llib/intext.scm 1411 */
int BgL_arg1792z00_3361;
BgL_arg1792z00_3361 = 
STRING_LENGTH(BgL_sz00_3359); 
return 
BGl_printzd2charszd2zz__intextz00(BgL_sz00_3359, 
BINT(BgL_arg1792z00_3361));} } } }  else 
{ /* ./Llib/intext.scm 1409 */
FAILURE(BGl_string4529z00zz__intextz00,BGl_string4547z00zz__intextz00,BgL_itemz00_963);} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } 
}



/* _obj->string */
obj_t BGl__objzd2ze3stringz31zz__intextz00(obj_t BgL_envz00_4318, obj_t BgL_objz00_4319)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 989 */
return 
obj_to_string(BgL_objz00_4319);} 
}



/* <anonymous:1810> */
obj_t BGl_zc3anonymousza31810ze3z83zz__intextz00(obj_t BgL_envz00_4320, obj_t BgL_sz00_4321)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1416 */
{ 
obj_t BgL_sz00_958;
{ /* ./Llib/intext.scm 1417 */
long BgL_auxz00_6492;
BgL_sz00_958 = BgL_sz00_4321; 
BgL_auxz00_6492 = 
get_hash_power_number_from_pointer(BgL_sz00_958, ((long)10)); 
return 
BINT(BgL_auxz00_6492);} } } 
}



/* loop */
obj_t BGl_loopz00zz__intextz00(obj_t BgL_objz00_1306)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1443 */
BGl_loopz00zz__intextz00:
{ /* ./Llib/intext.scm 1445 */
bool_t BgL_test2670z00_1308;
BgL_test2670z00_1308 = 
BGL_OBJECTP(BgL_objz00_1306); 
if(BgL_test2670z00_1308)
{ /* ./Llib/intext.scm 1445 */
{ /* ./Llib/intext.scm 1446 */
bool_t BgL_test2671z00_1309;
{ /* ./Llib/intext.scm 1446 */
obj_t BgL_arg1715z00_3830;
{ /* ./Llib/intext.scm 1446 */
BgL_objectz00_bglt BgL_auxz00_6497;
BgL_auxz00_6497 = 
(BgL_objectz00_bglt)(BgL_objz00_1306); 
BgL_arg1715z00_3830 = 
BGL_OBJECT_WIDENING(BgL_auxz00_6497); } 
if(
STRUCTP(BgL_arg1715z00_3830))
{ /* ./Llib/intext.scm 1446 */
obj_t BgL_auxz00_6502;
BgL_auxz00_6502 = 
STRUCT_KEY(BgL_arg1715z00_3830); 
BgL_test2671z00_1309 = 
(BgL_auxz00_6502==BGl_symbol4540z00zz__intextz00); }  else 
{ /* ./Llib/intext.scm 1446 */
BgL_test2671z00_1309 = ((bool_t)0); } } 
if(BgL_test2671z00_1309)
{ /* ./Llib/intext.scm 1447 */
obj_t BgL_arg2673z00_1310;
{ /* ./Llib/intext.scm 1447 */
BgL_objectz00_bglt BgL_auxz00_6506;
BgL_auxz00_6506 = 
(BgL_objectz00_bglt)(BgL_objz00_1306); 
BgL_arg2673z00_1310 = 
BGL_OBJECT_WIDENING(BgL_auxz00_6506); } 
{ /* ./Llib/intext.scm 1447 */
long BgL_refz00_3841;
BgL_refz00_3841 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1447 */
obj_t BgL_oldzd2markzd2_3842;
{ /* ./Llib/intext.scm 1447 */
int BgL_auxz00_6509;
BgL_auxz00_6509 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_3842 = 
STRUCT_REF(BgL_arg2673z00_1310, BgL_auxz00_6509); } 
{ /* ./Llib/intext.scm 1447 */
long BgL_arg1478z00_3843;
{ /* ./Llib/intext.scm 1447 */
long BgL_auxz00_6512;
BgL_auxz00_6512 = 
(long)CINT(BgL_oldzd2markzd2_3842); 
BgL_arg1478z00_3843 = 
(((long)1)+BgL_auxz00_6512); } 
{ /* ./Llib/intext.scm 1447 */
obj_t BgL_auxz00_6517;int BgL_auxz00_6515;
BgL_auxz00_6517 = 
BINT(BgL_arg1478z00_3843); 
BgL_auxz00_6515 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2673z00_1310, BgL_auxz00_6515, BgL_auxz00_6517); } } 
{ /* ./Llib/intext.scm 1447 */
bool_t BgL_testz00_6520;
{ /* ./Llib/intext.scm 1447 */
long BgL_auxz00_6521;
BgL_auxz00_6521 = 
(long)CINT(BgL_oldzd2markzd2_3842); 
BgL_testz00_6520 = 
(BgL_auxz00_6521==((long)0)); } 
if(BgL_testz00_6520)
{ /* ./Llib/intext.scm 1447 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_3841+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1447 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_3841, BUNSPEC) ;} } } } }  else 
{ /* ./Llib/intext.scm 1449 */
obj_t BgL_structz00_1311;
BgL_structz00_1311 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_objz00_1306)); 
BGl_objectzd2markz12zc0zz__intextz00(BgL_objz00_1306, BgL_structz00_1311); 
{ 
obj_t BgL_objz00_6528;
BgL_objz00_6528 = BgL_structz00_1311; 
BgL_objz00_1306 = BgL_objz00_6528; 
goto BGl_loopz00zz__intextz00;} } } }  else 
{ /* ./Llib/intext.scm 1445 */
if(
STRUCTP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1452 */
{ /* ./Llib/intext.scm 1453 */
bool_t BgL_test2681z00_1313;
{ /* ./Llib/intext.scm 1453 */
obj_t BgL_arg1694z00_3861;
BgL_arg1694z00_3861 = 
STRUCT_KEY(BgL_objz00_1306); 
if(
STRUCTP(BgL_arg1694z00_3861))
{ /* ./Llib/intext.scm 1453 */
obj_t BgL_auxz00_6534;
BgL_auxz00_6534 = 
STRUCT_KEY(BgL_arg1694z00_3861); 
BgL_test2681z00_1313 = 
(BgL_auxz00_6534==BGl_symbol4540z00zz__intextz00); }  else 
{ /* ./Llib/intext.scm 1453 */
BgL_test2681z00_1313 = ((bool_t)0); } } 
if(BgL_test2681z00_1313)
{ /* ./Llib/intext.scm 1454 */
obj_t BgL_arg2683z00_1314;
BgL_arg2683z00_1314 = 
STRUCT_KEY(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1454 */
long BgL_refz00_3872;
BgL_refz00_3872 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1454 */
obj_t BgL_oldzd2markzd2_3873;
{ /* ./Llib/intext.scm 1454 */
int BgL_auxz00_6539;
BgL_auxz00_6539 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_3873 = 
STRUCT_REF(BgL_arg2683z00_1314, BgL_auxz00_6539); } 
{ /* ./Llib/intext.scm 1454 */
long BgL_arg1478z00_3874;
{ /* ./Llib/intext.scm 1454 */
long BgL_auxz00_6542;
BgL_auxz00_6542 = 
(long)CINT(BgL_oldzd2markzd2_3873); 
BgL_arg1478z00_3874 = 
(((long)1)+BgL_auxz00_6542); } 
{ /* ./Llib/intext.scm 1454 */
obj_t BgL_auxz00_6547;int BgL_auxz00_6545;
BgL_auxz00_6547 = 
BINT(BgL_arg1478z00_3874); 
BgL_auxz00_6545 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2683z00_1314, BgL_auxz00_6545, BgL_auxz00_6547); } } 
{ /* ./Llib/intext.scm 1454 */
bool_t BgL_testz00_6550;
{ /* ./Llib/intext.scm 1454 */
long BgL_auxz00_6551;
BgL_auxz00_6551 = 
(long)CINT(BgL_oldzd2markzd2_3873); 
BgL_testz00_6550 = 
(BgL_auxz00_6551==((long)0)); } 
if(BgL_testz00_6550)
{ /* ./Llib/intext.scm 1454 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_3872+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1454 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_3872, BUNSPEC) ;} } } } }  else 
{ /* ./Llib/intext.scm 1456 */
obj_t BgL_keyz00_1315;int BgL_lenz00_1316;
BgL_keyz00_1315 = 
STRUCT_KEY(BgL_objz00_1306); 
BgL_lenz00_1316 = 
STRUCT_LENGTH(BgL_objz00_1306); 
BGl_loopz00zz__intextz00(BgL_keyz00_1315); 
BGl_structzd2markz12zc0zz__intextz00(BgL_objz00_1306); 
{ 
long BgL_iz00_1317;
BgL_iz00_1317 = ((long)0); 
BgL_liipz00_1318:
{ /* ./Llib/intext.scm 1463 */
bool_t BgL_testz00_6559;
{ /* ./Llib/intext.scm 1463 */
long BgL_auxz00_6560;
BgL_auxz00_6560 = 
(long)(BgL_lenz00_1316); 
BgL_testz00_6559 = 
(BgL_iz00_1317==BgL_auxz00_6560); } 
if(BgL_testz00_6559)
{ /* ./Llib/intext.scm 1463 */
return BGl_symbol4537z00zz__intextz00;}  else 
{ /* ./Llib/intext.scm 1463 */
{ /* ./Llib/intext.scm 1466 */
obj_t BgL_auxz00_6563;
{ /* ./Llib/intext.scm 1466 */
int BgL_auxz00_6564;
BgL_auxz00_6564 = 
(int)(BgL_iz00_1317); 
BgL_auxz00_6563 = 
STRUCT_REF(BgL_objz00_1306, BgL_auxz00_6564); } 
BGl_loopz00zz__intextz00(BgL_auxz00_6563); } 
{ 
long BgL_iz00_6568;
BgL_iz00_6568 = 
(BgL_iz00_1317+((long)1)); 
BgL_iz00_1317 = BgL_iz00_6568; 
goto BgL_liipz00_1318;} } } } } } }  else 
{ /* ./Llib/intext.scm 1468 */
bool_t BgL_test2702z00_1322;
{ /* ./Llib/intext.scm 1468 */
bool_t BgL_test2860z00_1382;
BgL_test2860z00_1382 = 
EXTENDED_PAIRP(BgL_objz00_1306); 
if(BgL_test2860z00_1382)
{ /* ./Llib/intext.scm 1468 */
BgL_test2702z00_1322 = BGl_za2epairzf3za2zf3zz__intextz00; }  else 
{ /* ./Llib/intext.scm 1468 */
BgL_test2702z00_1322 = ((bool_t)0); } } 
if(BgL_test2702z00_1322)
{ /* ./Llib/intext.scm 1468 */
{ /* ./Llib/intext.scm 1469 */
bool_t BgL_test2703z00_1323;
{ /* ./Llib/intext.scm 1469 */
obj_t BgL_arg1501z00_3899;
BgL_arg1501z00_3899 = 
CDR(BgL_objz00_1306); 
if(
STRUCTP(BgL_arg1501z00_3899))
{ /* ./Llib/intext.scm 1469 */
obj_t BgL_auxz00_6576;
BgL_auxz00_6576 = 
STRUCT_KEY(BgL_arg1501z00_3899); 
BgL_test2703z00_1323 = 
(BgL_auxz00_6576==BGl_symbol4540z00zz__intextz00); }  else 
{ /* ./Llib/intext.scm 1469 */
BgL_test2703z00_1323 = ((bool_t)0); } } 
if(BgL_test2703z00_1323)
{ /* ./Llib/intext.scm 1470 */
obj_t BgL_arg2705z00_1324;
BgL_arg2705z00_1324 = 
CDR(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1470 */
long BgL_refz00_3911;
BgL_refz00_3911 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1470 */
obj_t BgL_oldzd2markzd2_3912;
{ /* ./Llib/intext.scm 1470 */
int BgL_auxz00_6581;
BgL_auxz00_6581 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_3912 = 
STRUCT_REF(BgL_arg2705z00_1324, BgL_auxz00_6581); } 
{ /* ./Llib/intext.scm 1470 */
long BgL_arg1478z00_3913;
{ /* ./Llib/intext.scm 1470 */
long BgL_auxz00_6584;
BgL_auxz00_6584 = 
(long)CINT(BgL_oldzd2markzd2_3912); 
BgL_arg1478z00_3913 = 
(((long)1)+BgL_auxz00_6584); } 
{ /* ./Llib/intext.scm 1470 */
obj_t BgL_auxz00_6589;int BgL_auxz00_6587;
BgL_auxz00_6589 = 
BINT(BgL_arg1478z00_3913); 
BgL_auxz00_6587 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2705z00_1324, BgL_auxz00_6587, BgL_auxz00_6589); } } 
{ /* ./Llib/intext.scm 1470 */
bool_t BgL_testz00_6592;
{ /* ./Llib/intext.scm 1470 */
long BgL_auxz00_6593;
BgL_auxz00_6593 = 
(long)CINT(BgL_oldzd2markzd2_3912); 
BgL_testz00_6592 = 
(BgL_auxz00_6593==((long)0)); } 
if(BgL_testz00_6592)
{ /* ./Llib/intext.scm 1470 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_3911+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1470 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_3911, BUNSPEC) ;} } } } }  else 
{ /* ./Llib/intext.scm 1472 */
obj_t BgL_ocarz00_1325;obj_t BgL_ocdrz00_1326;obj_t BgL_ocerz00_1327;
BgL_ocarz00_1325 = 
CAR(BgL_objz00_1306); 
BgL_ocdrz00_1326 = 
CDR(BgL_objz00_1306); 
BgL_ocerz00_1327 = 
CER(BgL_objz00_1306); 
BGl_pairzd2markz12zc0zz__intextz00(BgL_objz00_1306); 
BGl_loopz00zz__intextz00(BgL_ocarz00_1325); 
BGl_loopz00zz__intextz00(BgL_ocerz00_1327); 
{ 
obj_t BgL_objz00_6603;
BgL_objz00_6603 = BgL_ocdrz00_1326; 
BgL_objz00_1306 = BgL_objz00_6603; 
goto BGl_loopz00zz__intextz00;} } } }  else 
{ /* ./Llib/intext.scm 1468 */
if(
PAIRP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1481 */
{ /* ./Llib/intext.scm 1482 */
bool_t BgL_test2717z00_1329;
{ /* ./Llib/intext.scm 1482 */
obj_t BgL_arg1501z00_3934;
BgL_arg1501z00_3934 = 
CDR(BgL_objz00_1306); 
if(
STRUCTP(BgL_arg1501z00_3934))
{ /* ./Llib/intext.scm 1482 */
obj_t BgL_auxz00_6609;
BgL_auxz00_6609 = 
STRUCT_KEY(BgL_arg1501z00_3934); 
BgL_test2717z00_1329 = 
(BgL_auxz00_6609==BGl_symbol4540z00zz__intextz00); }  else 
{ /* ./Llib/intext.scm 1482 */
BgL_test2717z00_1329 = ((bool_t)0); } } 
if(BgL_test2717z00_1329)
{ /* ./Llib/intext.scm 1483 */
obj_t BgL_arg2719z00_1330;
BgL_arg2719z00_1330 = 
CDR(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1483 */
long BgL_refz00_3946;
BgL_refz00_3946 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1483 */
obj_t BgL_oldzd2markzd2_3947;
{ /* ./Llib/intext.scm 1483 */
int BgL_auxz00_6614;
BgL_auxz00_6614 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_3947 = 
STRUCT_REF(BgL_arg2719z00_1330, BgL_auxz00_6614); } 
{ /* ./Llib/intext.scm 1483 */
long BgL_arg1478z00_3948;
{ /* ./Llib/intext.scm 1483 */
long BgL_auxz00_6617;
BgL_auxz00_6617 = 
(long)CINT(BgL_oldzd2markzd2_3947); 
BgL_arg1478z00_3948 = 
(((long)1)+BgL_auxz00_6617); } 
{ /* ./Llib/intext.scm 1483 */
obj_t BgL_auxz00_6622;int BgL_auxz00_6620;
BgL_auxz00_6622 = 
BINT(BgL_arg1478z00_3948); 
BgL_auxz00_6620 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2719z00_1330, BgL_auxz00_6620, BgL_auxz00_6622); } } 
{ /* ./Llib/intext.scm 1483 */
bool_t BgL_testz00_6625;
{ /* ./Llib/intext.scm 1483 */
long BgL_auxz00_6626;
BgL_auxz00_6626 = 
(long)CINT(BgL_oldzd2markzd2_3947); 
BgL_testz00_6625 = 
(BgL_auxz00_6626==((long)0)); } 
if(BgL_testz00_6625)
{ /* ./Llib/intext.scm 1483 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_3946+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1483 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_3946, BUNSPEC) ;} } } } }  else 
{ /* ./Llib/intext.scm 1485 */
obj_t BgL_ocarz00_1331;obj_t BgL_ocdrz00_1332;
BgL_ocarz00_1331 = 
CAR(BgL_objz00_1306); 
BgL_ocdrz00_1332 = 
CDR(BgL_objz00_1306); 
BGl_pairzd2markz12zc0zz__intextz00(BgL_objz00_1306); 
BGl_loopz00zz__intextz00(BgL_ocarz00_1331); 
{ 
obj_t BgL_objz00_6634;
BgL_objz00_6634 = BgL_ocdrz00_1332; 
BgL_objz00_1306 = BgL_objz00_6634; 
goto BGl_loopz00zz__intextz00;} } } }  else 
{ /* ./Llib/intext.scm 1481 */
if(
CELLP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1492 */
{ /* ./Llib/intext.scm 1493 */
bool_t BgL_test2729z00_1334;
{ /* ./Llib/intext.scm 1493 */
obj_t BgL_arg1541z00_3967;
BgL_arg1541z00_3967 = 
CELL_REF(BgL_objz00_1306); 
if(
STRUCTP(BgL_arg1541z00_3967))
{ /* ./Llib/intext.scm 1493 */
obj_t BgL_auxz00_6640;
BgL_auxz00_6640 = 
STRUCT_KEY(BgL_arg1541z00_3967); 
BgL_test2729z00_1334 = 
(BgL_auxz00_6640==BGl_symbol4540z00zz__intextz00); }  else 
{ /* ./Llib/intext.scm 1493 */
BgL_test2729z00_1334 = ((bool_t)0); } } 
if(BgL_test2729z00_1334)
{ /* ./Llib/intext.scm 1494 */
obj_t BgL_arg2731z00_1335;
BgL_arg2731z00_1335 = 
CELL_REF(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1494 */
long BgL_refz00_3977;
BgL_refz00_3977 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1494 */
obj_t BgL_oldzd2markzd2_3978;
{ /* ./Llib/intext.scm 1494 */
int BgL_auxz00_6645;
BgL_auxz00_6645 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_3978 = 
STRUCT_REF(BgL_arg2731z00_1335, BgL_auxz00_6645); } 
{ /* ./Llib/intext.scm 1494 */
long BgL_arg1478z00_3979;
{ /* ./Llib/intext.scm 1494 */
long BgL_auxz00_6648;
BgL_auxz00_6648 = 
(long)CINT(BgL_oldzd2markzd2_3978); 
BgL_arg1478z00_3979 = 
(((long)1)+BgL_auxz00_6648); } 
{ /* ./Llib/intext.scm 1494 */
obj_t BgL_auxz00_6653;int BgL_auxz00_6651;
BgL_auxz00_6653 = 
BINT(BgL_arg1478z00_3979); 
BgL_auxz00_6651 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2731z00_1335, BgL_auxz00_6651, BgL_auxz00_6653); } } 
{ /* ./Llib/intext.scm 1494 */
bool_t BgL_testz00_6656;
{ /* ./Llib/intext.scm 1494 */
long BgL_auxz00_6657;
BgL_auxz00_6657 = 
(long)CINT(BgL_oldzd2markzd2_3978); 
BgL_testz00_6656 = 
(BgL_auxz00_6657==((long)0)); } 
if(BgL_testz00_6656)
{ /* ./Llib/intext.scm 1494 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_3977+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1494 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_3977, BUNSPEC) ;} } } } }  else 
{ /* ./Llib/intext.scm 1496 */
obj_t BgL_orefz00_1336;
BgL_orefz00_1336 = 
CELL_REF(BgL_objz00_1306); 
BGl_cellzd2markz12zc0zz__intextz00(BgL_objz00_1306); 
{ 
obj_t BgL_objz00_6663;
BgL_objz00_6663 = BgL_orefz00_1336; 
BgL_objz00_1306 = BgL_objz00_6663; 
goto BGl_loopz00zz__intextz00;} } } }  else 
{ /* ./Llib/intext.scm 1492 */
if(
SYMBOLP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1501 */
{ /* ./Llib/intext.scm 1502 */
obj_t BgL_arg2740z00_1338;
BgL_arg2740z00_1338 = 
SYMBOL_TO_STRING(BgL_objz00_1306); 
{ 
obj_t BgL_objz00_6667;
BgL_objz00_6667 = BgL_arg2740z00_1338; 
BgL_objz00_1306 = BgL_objz00_6667; 
goto BGl_loopz00zz__intextz00;} } }  else 
{ /* ./Llib/intext.scm 1501 */
if(
KEYWORDP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1503 */
{ /* ./Llib/intext.scm 1504 */
obj_t BgL_arg2745z00_1340;
BgL_arg2745z00_1340 = 
KEYWORD_TO_STRING(BgL_objz00_1306); 
{ 
obj_t BgL_objz00_6671;
BgL_objz00_6671 = BgL_arg2745z00_1340; 
BgL_objz00_1306 = BgL_objz00_6671; 
goto BGl_loopz00zz__intextz00;} } }  else 
{ /* ./Llib/intext.scm 1505 */
bool_t BgL_test2748z00_1341;
if(
INTEGERP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1505 */
BgL_test2748z00_1341 = ((bool_t)1); }  else 
{ /* ./Llib/intext.scm 1505 */
BgL_test2748z00_1341 = 
REALP(BgL_objz00_1306); } 
if(BgL_test2748z00_1341)
{ /* ./Llib/intext.scm 1505 */
return BGl_symbol4537z00zz__intextz00;}  else 
{ /* ./Llib/intext.scm 1505 */
if(
STRINGP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1507 */
{ /* ./Llib/intext.scm 1508 */
bool_t BgL_test2750z00_1343;
BgL_test2750z00_1343 = 
INTEXT_STRING_MARKED_P(BgL_objz00_1306); 
if(BgL_test2750z00_1343)
{ /* ./Llib/intext.scm 1509 */
obj_t BgL_arg2752z00_1344;
{ /* ./Llib/intext.scm 1509 */
obj_t BgL_cellz00_4005;
BgL_cellz00_4005 = 
BGl_getzd2hashzd2zz__hashz00(BgL_objz00_1306, BGl_za2stringzd2markzd2tableza2z00zz__intextz00); 
if(
PAIRP(BgL_cellz00_4005))
{ /* ./Llib/intext.scm 1509 */
BgL_arg2752z00_1344 = 
CDR(BgL_cellz00_4005); }  else 
{ /* ./Llib/intext.scm 1509 */
FAILURE(BGl_string4529z00zz__intextz00,BGl_string4545z00zz__intextz00,BUNSPEC);} } 
{ /* ./Llib/intext.scm 1509 */
long BgL_refz00_4013;
BgL_refz00_4013 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1509 */
obj_t BgL_oldzd2markzd2_4014;
{ /* ./Llib/intext.scm 1509 */
int BgL_auxz00_6685;
BgL_auxz00_6685 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_4014 = 
STRUCT_REF(BgL_arg2752z00_1344, BgL_auxz00_6685); } 
{ /* ./Llib/intext.scm 1509 */
long BgL_arg1478z00_4015;
{ /* ./Llib/intext.scm 1509 */
long BgL_auxz00_6688;
BgL_auxz00_6688 = 
(long)CINT(BgL_oldzd2markzd2_4014); 
BgL_arg1478z00_4015 = 
(((long)1)+BgL_auxz00_6688); } 
{ /* ./Llib/intext.scm 1509 */
obj_t BgL_auxz00_6693;int BgL_auxz00_6691;
BgL_auxz00_6693 = 
BINT(BgL_arg1478z00_4015); 
BgL_auxz00_6691 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2752z00_1344, BgL_auxz00_6691, BgL_auxz00_6693); } } 
{ /* ./Llib/intext.scm 1509 */
bool_t BgL_testz00_6696;
{ /* ./Llib/intext.scm 1509 */
long BgL_auxz00_6697;
BgL_auxz00_6697 = 
(long)CINT(BgL_oldzd2markzd2_4014); 
BgL_testz00_6696 = 
(BgL_auxz00_6697==((long)0)); } 
if(BgL_testz00_6696)
{ /* ./Llib/intext.scm 1509 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_4013+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1509 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_4013, BUNSPEC) ;} } } } }  else 
{ /* ./Llib/intext.scm 1508 */
return 
BGl_stringzd2markz12zc0zz__intextz00(BgL_objz00_1306);} } }  else 
{ /* ./Llib/intext.scm 1507 */
if(
UCS2_STRINGP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1512 */
{ /* ./Llib/intext.scm 1513 */
bool_t BgL_test2758z00_1346;
BgL_test2758z00_1346 = 
INTEXT_UCS2_STRING_MARKED_P(BgL_objz00_1306); 
if(BgL_test2758z00_1346)
{ /* ./Llib/intext.scm 1514 */
obj_t BgL_arg2760z00_1347;
{ /* ./Llib/intext.scm 1514 */
obj_t BgL_cellz00_4034;
BgL_cellz00_4034 = 
BGl_getzd2hashzd2zz__hashz00(BgL_objz00_1306, BGl_za2stringzd2markzd2tableza2z00zz__intextz00); 
if(
PAIRP(BgL_cellz00_4034))
{ /* ./Llib/intext.scm 1514 */
BgL_arg2760z00_1347 = 
CDR(BgL_cellz00_4034); }  else 
{ /* ./Llib/intext.scm 1514 */
FAILURE(BGl_string4529z00zz__intextz00,BGl_string4543z00zz__intextz00,BUNSPEC);} } 
{ /* ./Llib/intext.scm 1514 */
long BgL_refz00_4042;
BgL_refz00_4042 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1514 */
obj_t BgL_oldzd2markzd2_4043;
{ /* ./Llib/intext.scm 1514 */
int BgL_auxz00_6711;
BgL_auxz00_6711 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_4043 = 
STRUCT_REF(BgL_arg2760z00_1347, BgL_auxz00_6711); } 
{ /* ./Llib/intext.scm 1514 */
long BgL_arg1478z00_4044;
{ /* ./Llib/intext.scm 1514 */
long BgL_auxz00_6714;
BgL_auxz00_6714 = 
(long)CINT(BgL_oldzd2markzd2_4043); 
BgL_arg1478z00_4044 = 
(((long)1)+BgL_auxz00_6714); } 
{ /* ./Llib/intext.scm 1514 */
obj_t BgL_auxz00_6719;int BgL_auxz00_6717;
BgL_auxz00_6719 = 
BINT(BgL_arg1478z00_4044); 
BgL_auxz00_6717 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2760z00_1347, BgL_auxz00_6717, BgL_auxz00_6719); } } 
{ /* ./Llib/intext.scm 1514 */
bool_t BgL_testz00_6722;
{ /* ./Llib/intext.scm 1514 */
long BgL_auxz00_6723;
BgL_auxz00_6723 = 
(long)CINT(BgL_oldzd2markzd2_4043); 
BgL_testz00_6722 = 
(BgL_auxz00_6723==((long)0)); } 
if(BgL_testz00_6722)
{ /* ./Llib/intext.scm 1514 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_4042+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1514 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_4042, BUNSPEC) ;} } } } }  else 
{ /* ./Llib/intext.scm 1513 */
return 
BGl_ucs2zd2stringzd2markz12z12zz__intextz00(BgL_objz00_1306);} } }  else 
{ /* ./Llib/intext.scm 1512 */
if(
VECTORP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1517 */
{ /* ./Llib/intext.scm 1518 */
bool_t BgL_test2766z00_1349;
{ /* ./Llib/intext.scm 1518 */
int BgL_arg2792z00_1360;
BgL_arg2792z00_1360 = 
VECTOR_LENGTH(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1518 */
long BgL_auxz00_6731;
BgL_auxz00_6731 = 
(long)(BgL_arg2792z00_1360); 
BgL_test2766z00_1349 = 
(BgL_auxz00_6731==((long)0)); } } 
if(BgL_test2766z00_1349)
{ /* ./Llib/intext.scm 1518 */
return BGl_symbol4537z00zz__intextz00;}  else 
{ /* ./Llib/intext.scm 1520 */
bool_t BgL_test2767z00_1350;
{ /* ./Llib/intext.scm 1520 */
obj_t BgL_arg1651z00_4065;
{ 
int BgL_auxz00_6735;
BgL_auxz00_6735 = 
(int)(((long)0)); 
BgL_arg1651z00_4065 = 
VECTOR_REF(BgL_objz00_1306,BgL_auxz00_6735); } 
if(
STRUCTP(BgL_arg1651z00_4065))
{ /* ./Llib/intext.scm 1520 */
obj_t BgL_auxz00_6740;
BgL_auxz00_6740 = 
STRUCT_KEY(BgL_arg1651z00_4065); 
BgL_test2767z00_1350 = 
(BgL_auxz00_6740==BGl_symbol4540z00zz__intextz00); }  else 
{ /* ./Llib/intext.scm 1520 */
BgL_test2767z00_1350 = ((bool_t)0); } } 
if(BgL_test2767z00_1350)
{ /* ./Llib/intext.scm 1521 */
obj_t BgL_arg2769z00_1351;
{ 
int BgL_auxz00_6744;
BgL_auxz00_6744 = 
(int)(((long)0)); 
BgL_arg2769z00_1351 = 
VECTOR_REF(BgL_objz00_1306,BgL_auxz00_6744); } 
{ /* ./Llib/intext.scm 1521 */
long BgL_refz00_4080;
BgL_refz00_4080 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1521 */
obj_t BgL_oldzd2markzd2_4081;
{ /* ./Llib/intext.scm 1521 */
int BgL_auxz00_6747;
BgL_auxz00_6747 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_4081 = 
STRUCT_REF(BgL_arg2769z00_1351, BgL_auxz00_6747); } 
{ /* ./Llib/intext.scm 1521 */
long BgL_arg1478z00_4082;
{ /* ./Llib/intext.scm 1521 */
long BgL_auxz00_6750;
BgL_auxz00_6750 = 
(long)CINT(BgL_oldzd2markzd2_4081); 
BgL_arg1478z00_4082 = 
(((long)1)+BgL_auxz00_6750); } 
{ /* ./Llib/intext.scm 1521 */
obj_t BgL_auxz00_6755;int BgL_auxz00_6753;
BgL_auxz00_6755 = 
BINT(BgL_arg1478z00_4082); 
BgL_auxz00_6753 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2769z00_1351, BgL_auxz00_6753, BgL_auxz00_6755); } } 
{ /* ./Llib/intext.scm 1521 */
bool_t BgL_testz00_6758;
{ /* ./Llib/intext.scm 1521 */
long BgL_auxz00_6759;
BgL_auxz00_6759 = 
(long)CINT(BgL_oldzd2markzd2_4081); 
BgL_testz00_6758 = 
(BgL_auxz00_6759==((long)0)); } 
if(BgL_testz00_6758)
{ /* ./Llib/intext.scm 1521 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_4080+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1521 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_4080, BUNSPEC) ;} } } } }  else 
{ /* ./Llib/intext.scm 1523 */
int BgL_lenz00_1352;int BgL_tagz00_1353;
BgL_lenz00_1352 = 
VECTOR_LENGTH(BgL_objz00_1306); 
BgL_tagz00_1353 = 
VECTOR_TAG(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1525 */
obj_t BgL_auxz00_6765;
{ 
int BgL_auxz00_6766;
BgL_auxz00_6766 = 
(int)(((long)0)); 
BgL_auxz00_6765 = 
VECTOR_REF(BgL_objz00_1306,BgL_auxz00_6766); } 
BGl_loopz00zz__intextz00(BgL_auxz00_6765); } 
BGl_vectorzd2markz12zc0zz__intextz00(BgL_objz00_1306); 
{ 
long BgL_iz00_1355;
BgL_iz00_1355 = ((long)1); 
BgL_liipz00_1356:
{ /* ./Llib/intext.scm 1528 */
bool_t BgL_testz00_6771;
{ /* ./Llib/intext.scm 1528 */
long BgL_auxz00_6772;
BgL_auxz00_6772 = 
(long)(BgL_lenz00_1352); 
BgL_testz00_6771 = 
(BgL_iz00_1355>=BgL_auxz00_6772); } 
if(BgL_testz00_6771)
{ /* ./Llib/intext.scm 1528 */
return BGl_symbol4537z00zz__intextz00;}  else 
{ /* ./Llib/intext.scm 1528 */
{ /* ./Llib/intext.scm 1531 */
obj_t BgL_auxz00_6775;
{ 
int BgL_auxz00_6776;
BgL_auxz00_6776 = 
(int)(BgL_iz00_1355); 
BgL_auxz00_6775 = 
VECTOR_REF(BgL_objz00_1306,BgL_auxz00_6776); } 
BGl_loopz00zz__intextz00(BgL_auxz00_6775); } 
{ 
long BgL_iz00_6780;
BgL_iz00_6780 = 
(BgL_iz00_1355+((long)1)); 
BgL_iz00_1355 = BgL_iz00_6780; 
goto BgL_liipz00_1356;} } } } } } } }  else 
{ /* ./Llib/intext.scm 1517 */
if(
TVECTORP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1533 */
{ /* ./Llib/intext.scm 1534 */
bool_t BgL_testz00_6784;
{ /* ./Llib/intext.scm 1534 */
obj_t BgL_auxz00_6785;
BgL_auxz00_6785 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_1306, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_testz00_6784 = 
PAIRP(BgL_auxz00_6785); } 
if(BgL_testz00_6784)
{ /* ./Llib/intext.scm 1535 */
obj_t BgL_arg2799z00_1364;
{ /* ./Llib/intext.scm 1535 */
obj_t BgL_auxz00_6788;
BgL_auxz00_6788 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_1306, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_arg2799z00_1364 = 
CDR(BgL_auxz00_6788); } 
{ /* ./Llib/intext.scm 1535 */
long BgL_refz00_4116;
BgL_refz00_4116 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1535 */
obj_t BgL_oldzd2markzd2_4117;
{ /* ./Llib/intext.scm 1535 */
int BgL_auxz00_6791;
BgL_auxz00_6791 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_4117 = 
STRUCT_REF(BgL_arg2799z00_1364, BgL_auxz00_6791); } 
{ /* ./Llib/intext.scm 1535 */
long BgL_arg1478z00_4118;
{ /* ./Llib/intext.scm 1535 */
long BgL_auxz00_6794;
BgL_auxz00_6794 = 
(long)CINT(BgL_oldzd2markzd2_4117); 
BgL_arg1478z00_4118 = 
(((long)1)+BgL_auxz00_6794); } 
{ /* ./Llib/intext.scm 1535 */
obj_t BgL_auxz00_6799;int BgL_auxz00_6797;
BgL_auxz00_6799 = 
BINT(BgL_arg1478z00_4118); 
BgL_auxz00_6797 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2799z00_1364, BgL_auxz00_6797, BgL_auxz00_6799); } } 
{ /* ./Llib/intext.scm 1535 */
bool_t BgL_testz00_6802;
{ /* ./Llib/intext.scm 1535 */
long BgL_auxz00_6803;
BgL_auxz00_6803 = 
(long)CINT(BgL_oldzd2markzd2_4117); 
BgL_testz00_6802 = 
(BgL_auxz00_6803==((long)0)); } 
if(BgL_testz00_6802)
{ /* ./Llib/intext.scm 1535 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_4116+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1535 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_4116, BUNSPEC) ;} } } } }  else 
{ /* ./Llib/intext.scm 1537 */
obj_t BgL_vz00_1365;
BgL_vz00_1365 = 
BGl_tvectorzd2ze3vectorz31zz__tvectorz00(BgL_objz00_1306); 
BGl_loopz00zz__intextz00(
BGl_tvectorzd2idzd2zz__tvectorz00(BgL_objz00_1306)); 
BGl_loopz00zz__intextz00(BgL_vz00_1365); 
return 
BGl_tvectorzd2markz12zc0zz__intextz00(BgL_objz00_1306, BgL_vz00_1365);} } }  else 
{ /* ./Llib/intext.scm 1533 */
if(
CUSTOMP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1541 */
{ /* ./Llib/intext.scm 1542 */
bool_t BgL_test2811z00_1368;
{ /* ./Llib/intext.scm 1542 */
char * BgL_arg1567z00_4136;
BgL_arg1567z00_4136 = 
CUSTOM_IDENTIFIER(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1542 */
obj_t BgL_auxz00_6815;
BgL_auxz00_6815 = 
string_to_bstring(BgL_arg1567z00_4136); 
BgL_test2811z00_1368 = 
(BgL_auxz00_6815==BGl_string4520z00zz__intextz00); } } 
if(BgL_test2811z00_1368)
{ /* ./Llib/intext.scm 1543 */
obj_t BgL_arg2813z00_1369;
{ /* ./Llib/intext.scm 1543 */
obj_t BgL_cellz00_4140;
BgL_cellz00_4140 = 
BGl_getzd2hashzd2zz__hashz00(BgL_objz00_1306, 
BGl_getzd2customzd2hashzd2tablezd2zz__intextz00()); 
if(
PAIRP(BgL_cellz00_4140))
{ /* ./Llib/intext.scm 1543 */
BgL_arg2813z00_1369 = 
CDR(BgL_cellz00_4140); }  else 
{ /* ./Llib/intext.scm 1543 */
FAILURE(BGl_string4529z00zz__intextz00,BGl_string4541z00zz__intextz00,BUNSPEC);} } 
{ /* ./Llib/intext.scm 1543 */
long BgL_refz00_4149;
BgL_refz00_4149 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1543 */
obj_t BgL_oldzd2markzd2_4150;
{ /* ./Llib/intext.scm 1543 */
int BgL_auxz00_6825;
BgL_auxz00_6825 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_4150 = 
STRUCT_REF(BgL_arg2813z00_1369, BgL_auxz00_6825); } 
{ /* ./Llib/intext.scm 1543 */
long BgL_arg1478z00_4151;
{ /* ./Llib/intext.scm 1543 */
long BgL_auxz00_6828;
BgL_auxz00_6828 = 
(long)CINT(BgL_oldzd2markzd2_4150); 
BgL_arg1478z00_4151 = 
(((long)1)+BgL_auxz00_6828); } 
{ /* ./Llib/intext.scm 1543 */
obj_t BgL_auxz00_6833;int BgL_auxz00_6831;
BgL_auxz00_6833 = 
BINT(BgL_arg1478z00_4151); 
BgL_auxz00_6831 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2813z00_1369, BgL_auxz00_6831, BgL_auxz00_6833); } } 
{ /* ./Llib/intext.scm 1543 */
bool_t BgL_testz00_6836;
{ /* ./Llib/intext.scm 1543 */
long BgL_auxz00_6837;
BgL_auxz00_6837 = 
(long)CINT(BgL_oldzd2markzd2_4150); 
BgL_testz00_6836 = 
(BgL_auxz00_6837==((long)0)); } 
if(BgL_testz00_6836)
{ /* ./Llib/intext.scm 1543 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_4149+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1543 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_4149, BUNSPEC) ;} } } } }  else 
{ /* ./Llib/intext.scm 1542 */
return 
BGl_customzd2markz12zc0zz__intextz00(BgL_objz00_1306);} } }  else 
{ /* ./Llib/intext.scm 1541 */
if(
PROCEDUREP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1546 */
{ /* ./Llib/intext.scm 1547 */
obj_t BgL_itemz00_1371;
BgL_itemz00_1371 = 
PROCEDURE_ENTRY(BGl_za2procedurezd2ze3stringza2z31zz__intextz00)(BGl_za2procedurezd2ze3stringza2z31zz__intextz00, BgL_objz00_1306, BEOA); 
{ /* ./Llib/intext.scm 1548 */
obj_t BgL_arg2820z00_1372;
BgL_arg2820z00_1372 = 
MAKE_PAIR(BgL_objz00_1306, BgL_itemz00_1371); 
BGl_za2procedurezd2tableza2zd2zz__intextz00 = 
MAKE_PAIR(BgL_arg2820z00_1372, BGl_za2procedurezd2tableza2zd2zz__intextz00); } 
{ 
obj_t BgL_objz00_6848;
BgL_objz00_6848 = BgL_itemz00_1371; 
BgL_objz00_1306 = BgL_objz00_6848; 
goto BGl_loopz00zz__intextz00;} } }  else 
{ /* ./Llib/intext.scm 1546 */
if(
PROCESSP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1550 */
{ /* ./Llib/intext.scm 1551 */
obj_t BgL_itemz00_1374;
BgL_itemz00_1374 = 
PROCEDURE_ENTRY(BGl_za2processzd2ze3stringza2z31zz__intextz00)(BGl_za2processzd2ze3stringza2z31zz__intextz00, BgL_objz00_1306, BEOA); 
{ /* ./Llib/intext.scm 1552 */
obj_t BgL_arg2827z00_1375;
BgL_arg2827z00_1375 = 
MAKE_PAIR(BgL_objz00_1306, BgL_itemz00_1374); 
BGl_za2processzd2tableza2zd2zz__intextz00 = 
MAKE_PAIR(BgL_arg2827z00_1375, BGl_za2processzd2tableza2zd2zz__intextz00); } 
{ 
obj_t BgL_objz00_6855;
BgL_objz00_6855 = BgL_itemz00_1374; 
BgL_objz00_1306 = BgL_objz00_6855; 
goto BGl_loopz00zz__intextz00;} } }  else 
{ /* ./Llib/intext.scm 1550 */
if(
OPAQUEP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1554 */
{ /* ./Llib/intext.scm 1555 */
obj_t BgL_itemz00_1377;
BgL_itemz00_1377 = 
PROCEDURE_ENTRY(BGl_za2opaquezd2ze3stringza2z31zz__intextz00)(BGl_za2opaquezd2ze3stringza2z31zz__intextz00, BgL_objz00_1306, BEOA); 
{ /* ./Llib/intext.scm 1556 */
obj_t BgL_arg2834z00_1378;
BgL_arg2834z00_1378 = 
MAKE_PAIR(BgL_objz00_1306, BgL_itemz00_1377); 
BGl_za2opaquezd2tableza2zd2zz__intextz00 = 
MAKE_PAIR(BgL_arg2834z00_1378, BGl_za2opaquezd2tableza2zd2zz__intextz00); } 
{ 
obj_t BgL_objz00_6862;
BgL_objz00_6862 = BgL_itemz00_1377; 
BgL_objz00_1306 = BgL_objz00_6862; 
goto BGl_loopz00zz__intextz00;} } }  else 
{ /* ./Llib/intext.scm 1554 */
if(
POINTERP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1560 */
bool_t BgL_testz00_6865;
{ /* ./Llib/intext.scm 1560 */
obj_t BgL_auxz00_6866;
BgL_auxz00_6866 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_1306, BGl_za2pointerzd2tableza2zd2zz__intextz00); 
BgL_testz00_6865 = 
PAIRP(BgL_auxz00_6866); } 
if(BgL_testz00_6865)
{ /* ./Llib/intext.scm 1560 */
{ /* ./Llib/intext.scm 1561 */
obj_t BgL_arg2842z00_1381;
{ /* ./Llib/intext.scm 1561 */
obj_t BgL_auxz00_6869;
BgL_auxz00_6869 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_1306, BGl_za2pointerzd2tableza2zd2zz__intextz00); 
BgL_arg2842z00_1381 = 
CDR(BgL_auxz00_6869); } 
{ /* ./Llib/intext.scm 1561 */
long BgL_refz00_4177;
BgL_refz00_4177 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1561 */
obj_t BgL_oldzd2markzd2_4178;
{ /* ./Llib/intext.scm 1561 */
int BgL_auxz00_6872;
BgL_auxz00_6872 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_4178 = 
STRUCT_REF(BgL_arg2842z00_1381, BgL_auxz00_6872); } 
{ /* ./Llib/intext.scm 1561 */
long BgL_arg1478z00_4179;
{ /* ./Llib/intext.scm 1561 */
long BgL_auxz00_6875;
BgL_auxz00_6875 = 
(long)CINT(BgL_oldzd2markzd2_4178); 
BgL_arg1478z00_4179 = 
(((long)1)+BgL_auxz00_6875); } 
{ /* ./Llib/intext.scm 1561 */
obj_t BgL_auxz00_6880;int BgL_auxz00_6878;
BgL_auxz00_6880 = 
BINT(BgL_arg1478z00_4179); 
BgL_auxz00_6878 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2842z00_1381, BgL_auxz00_6878, BgL_auxz00_6880); } } 
{ /* ./Llib/intext.scm 1561 */
bool_t BgL_testz00_6883;
{ /* ./Llib/intext.scm 1561 */
long BgL_auxz00_6884;
BgL_auxz00_6884 = 
(long)CINT(BgL_oldzd2markzd2_4178); 
BgL_testz00_6883 = 
(BgL_auxz00_6884==((long)0)); } 
if(BgL_testz00_6883)
{ /* ./Llib/intext.scm 1561 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_4177+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1561 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_4177, BUNSPEC) ;} } } } } }  else 
{ /* ./Llib/intext.scm 1560 */
return BGl_symbol4537z00zz__intextz00;} }  else 
{ /* ./Llib/intext.scm 1558 */
return BGl_symbol4537z00zz__intextz00;} } } } } } } } } } } } } } } } } } } 
}



/* marked-pair-length */
long BGl_markedzd2pairzd2lengthz00zz__intextz00(obj_t BgL_lz00_98)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1569 */
{ 
obj_t BgL_lz00_1383;long BgL_rz00_1384;
BgL_lz00_1383 = BgL_lz00_98; 
BgL_rz00_1384 = ((long)1); 
BgL_loopz00_1385:
{ /* ./Llib/intext.scm 1572 */
obj_t BgL_vcdrz00_1387;
{ /* ./Llib/intext.scm 1573 */
int BgL_auxz00_6890;obj_t BgL_auxz00_6888;
BgL_auxz00_6890 = 
(int)(((long)1)); 
BgL_auxz00_6888 = 
CDR(BgL_lz00_1383); 
BgL_vcdrz00_1387 = 
STRUCT_REF(BgL_auxz00_6888, BgL_auxz00_6890); } 
{ /* ./Llib/intext.scm 1573 */

if(
PAIRP(BgL_vcdrz00_1387))
{ /* ./Llib/intext.scm 1575 */
obj_t BgL_markz00_1389;
BgL_markz00_1389 = 
CDR(BgL_vcdrz00_1387); 
{ /* ./Llib/intext.scm 1576 */
bool_t BgL_testz00_6896;
{ /* ./Llib/intext.scm 1576 */
bool_t BgL_testz00_6897;
{ /* ./Llib/intext.scm 1576 */
obj_t BgL_auxz00_6898;
{ /* ./Llib/intext.scm 1576 */
int BgL_auxz00_6899;
BgL_auxz00_6899 = 
(int)(((long)4)); 
BgL_auxz00_6898 = 
STRUCT_REF(BgL_markz00_1389, BgL_auxz00_6899); } 
BgL_testz00_6897 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_auxz00_6898, 
BINT(((long)0))); } 
if(BgL_testz00_6897)
{ /* ./Llib/intext.scm 1576 */
BgL_testz00_6896 = ((bool_t)1)
; }  else 
{ /* ./Llib/intext.scm 1577 */
obj_t BgL_auxz00_6904;
{ /* ./Llib/intext.scm 1577 */
int BgL_auxz00_6905;
BgL_auxz00_6905 = 
(int)(((long)3)); 
BgL_auxz00_6904 = 
STRUCT_REF(BgL_markz00_1389, BgL_auxz00_6905); } 
BgL_testz00_6896 = 
CBOOL(BgL_auxz00_6904); } } 
if(BgL_testz00_6896)
{ /* ./Llib/intext.scm 1576 */
return 
(BgL_rz00_1384+((long)1));}  else 
{ 
long BgL_rz00_6911;obj_t BgL_lz00_6910;
BgL_lz00_6910 = BgL_vcdrz00_1387; 
BgL_rz00_6911 = 
(BgL_rz00_1384+((long)1)); 
BgL_rz00_1384 = BgL_rz00_6911; 
BgL_lz00_1383 = BgL_lz00_6910; 
goto BgL_loopz00_1385;} } }  else 
{ /* ./Llib/intext.scm 1574 */
return 
(BgL_rz00_1384+((long)1));} } } } } 
}



/* register-custom-serialization */
BGL_EXPORTED_DEF obj_t BGl_registerzd2customzd2serializa7ationza7zz__intextz00(obj_t BgL_identz00_99, obj_t BgL_serializa7erza7_100, obj_t BgL_unserializa7erza7_101)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1590 */
{ /* ./Llib/intext.scm 1591 */
obj_t BgL_cellz00_4215;
BgL_cellz00_4215 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_identz00_99, BGl_za2customzd2serializa7ationza2z75zz__intextz00); 
if(
PAIRP(BgL_cellz00_4215))
{ /* ./Llib/intext.scm 1591 */
return BFALSE;}  else 
{ /* ./Llib/intext.scm 1591 */
obj_t BgL_arg2886z00_4217;
{ /* ./Llib/intext.scm 1591 */
obj_t BgL_list2889z00_4218;
{ /* ./Llib/intext.scm 1591 */
obj_t BgL_arg2891z00_4219;
{ /* ./Llib/intext.scm 1591 */
obj_t BgL_arg2894z00_4220;
BgL_arg2894z00_4220 = 
MAKE_PAIR(BgL_unserializa7erza7_101, BNIL); 
BgL_arg2891z00_4219 = 
MAKE_PAIR(BgL_serializa7erza7_100, BgL_arg2894z00_4220); } 
BgL_list2889z00_4218 = 
MAKE_PAIR(BgL_identz00_99, BgL_arg2891z00_4219); } 
BgL_arg2886z00_4217 = BgL_list2889z00_4218; } 
return ( 
BGl_za2customzd2serializa7ationza2z75zz__intextz00 = 
MAKE_PAIR(BgL_arg2886z00_4217, BGl_za2customzd2serializa7ationza2z75zz__intextz00), BUNSPEC) ;} } } 
}



/* _register-custom-serialization */
obj_t BGl__registerzd2customzd2serializa7ationza7zz__intextz00(obj_t BgL_envz00_4322, obj_t BgL_identz00_4323, obj_t BgL_serializa7erza7_4324, obj_t BgL_unserializa7erza7_4325)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1590 */
return 
BGl_registerzd2customzd2serializa7ationza7zz__intextz00(BgL_identz00_4323, BgL_serializa7erza7_4324, BgL_unserializa7erza7_4325);} 
}



/* register-procedure-serialization */
BGL_EXPORTED_DEF obj_t BGl_registerzd2procedurezd2serializa7ationza7zz__intextz00(obj_t BgL_serializa7erza7_104, obj_t BgL_unserializa7erza7_105)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1637 */
BGl_za2procedurezd2ze3stringza2z31zz__intextz00 = BgL_serializa7erza7_104; 
return ( 
BGl_za2stringzd2ze3procedureza2z31zz__intextz00 = BgL_unserializa7erza7_105, BUNSPEC) ;} 
}



/* _register-procedure-serialization */
obj_t BGl__registerzd2procedurezd2serializa7ationza7zz__intextz00(obj_t BgL_envz00_4326, obj_t BgL_serializa7erza7_4327, obj_t BgL_unserializa7erza7_4328)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1637 */
return 
BGl_registerzd2procedurezd2serializa7ationza7zz__intextz00(BgL_serializa7erza7_4327, BgL_unserializa7erza7_4328);} 
}



/* register-process-serialization */
BGL_EXPORTED_DEF obj_t BGl_registerzd2processzd2serializa7ationza7zz__intextz00(obj_t BgL_serializa7erza7_106, obj_t BgL_unserializa7erza7_107)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1669 */
BGl_za2processzd2ze3stringza2z31zz__intextz00 = BgL_serializa7erza7_106; 
return ( 
BGl_za2stringzd2ze3processza2z31zz__intextz00 = BgL_unserializa7erza7_107, BUNSPEC) ;} 
}



/* _register-process-serialization */
obj_t BGl__registerzd2processzd2serializa7ationza7zz__intextz00(obj_t BgL_envz00_4329, obj_t BgL_serializa7erza7_4330, obj_t BgL_unserializa7erza7_4331)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1669 */
return 
BGl_registerzd2processzd2serializa7ationza7zz__intextz00(BgL_serializa7erza7_4330, BgL_unserializa7erza7_4331);} 
}



/* register-opaque-serialization */
BGL_EXPORTED_DEF obj_t BGl_registerzd2opaquezd2serializa7ationza7zz__intextz00(obj_t BgL_serializa7erza7_108, obj_t BgL_unserializa7erza7_109)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1701 */
BGl_za2opaquezd2ze3stringza2z31zz__intextz00 = BgL_serializa7erza7_108; 
return ( 
BGl_za2stringzd2ze3opaqueza2z31zz__intextz00 = BgL_unserializa7erza7_109, BUNSPEC) ;} 
}



/* _register-opaque-serialization */
obj_t BGl__registerzd2opaquezd2serializa7ationza7zz__intextz00(obj_t BgL_envz00_4332, obj_t BgL_serializa7erza7_4333, obj_t BgL_unserializa7erza7_4334)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1701 */
return 
BGl_registerzd2opaquezd2serializa7ationza7zz__intextz00(BgL_serializa7erza7_4333, BgL_unserializa7erza7_4334);} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zz__intextz00()
{ AN_OBJECT;
{ /* ./Llib/intext.scm 19 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__intextz00()
{ AN_OBJECT;
{ /* ./Llib/intext.scm 19 */
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__intext"); 
BGl_modulezd2initializa7ationz75zz__hashz00(((long)62825), "__intext"); 
return 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)247), "__intext");} 
}

