/*===========================================================================*/
/*   (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 -O3 -mklib -cc gcc-2.95 -fsharing -q -rm -s -unsafev -eval (set! *indent* 4) -copt -DBGL_NO_PIC -g -c Llib/intext.scm -indent -o objs/obj_s/Llib/intext.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

/* debug mode */
#define BIGLOO_DEBUG 1

#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 *);
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
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 obj_t BGl_zc3anonymousza31027za3Llibzf2intextze2scmza31650ze3z93zz__intextz00(obj_t, obj_t);
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_zc3anonymousza31024za3Llibzf2intextze2scmza31625ze3z93zz__intextz00(obj_t, 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_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;
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_zc3anonymousza31828za3Llibzf2intextze2scmza31415ze3z93zz__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_symbol4899z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4898z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4897z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4896z00zz__intextz00 = BUNSPEC;
static obj_t BGl__registerzd2procedurezd2serializa7ationza7zz__intextz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4895z00zz__intextz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31618za3Llibzf2intextze2scmza3673ze3z93zz__intextz00(obj_t, obj_t);
extern obj_t BGl_objectzd2ze3structz31zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl_symbol4902z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4901z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4891z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4900z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4890z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4889z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4888z00zz__intextz00 = BUNSPEC;
extern obj_t BGl_customzd2hashzd2zz__customz00(obj_t, int);
static obj_t BGl_symbol4887z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4886z00zz__intextz00 = BUNSPEC;
static obj_t BGl_getzd2customzd2hashzd2tablezd2zz__intextz00();
static obj_t BGl_symbol4885z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4884z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4883z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4882z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4880z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4879z00zz__intextz00 = BUNSPEC;
extern obj_t BGl_vectorzd2ze3tvectorz31zz__tvectorz00(obj_t, obj_t);
static obj_t BGl_symbol4877z00zz__intextz00 = BUNSPEC;
extern obj_t blit_string(obj_t, int, obj_t, int, int);
static obj_t BGl_symbol4875z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4874z00zz__intextz00 = BUNSPEC;
static long BGl_markedzd2pairzd2lengthz00zz__intextz00(obj_t);
static obj_t BGl_symbol4872z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4871z00zz__intextz00 = BUNSPEC;
static obj_t BGl_za2customzd2markzd2tableza2z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4870z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4869z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4868z00zz__intextz00 = BUNSPEC;
static obj_t BGl_tvectorzd2markz12zc0zz__intextz00(obj_t, obj_t);
static obj_t BGl_symbol4865z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4864z00zz__intextz00 = BUNSPEC;
static obj_t BGl_za2pointerzd2tableza2zd2zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4863z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4862z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4861z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4860z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4859z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4858z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4857z00zz__intextz00 = BUNSPEC;
static obj_t BGl_printzd2itemzd2zz__intextz00(obj_t, obj_t);
static obj_t BGl_symbol4855z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4853z00zz__intextz00 = BUNSPEC;
static obj_t BGl_vectorzd2markz12zc0zz__intextz00(obj_t);
static obj_t BGl_symbol4851z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4849z00zz__intextz00 = BUNSPEC;
extern obj_t BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_symbol4846z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4842z00zz__intextz00 = BUNSPEC;
static obj_t BGl_za2tvectorzd2tableza2zd2zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4840z00zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4838z00zz__intextz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31036za3Llibzf2intextze2scmza31689ze3z93zz__intextz00(obj_t, obj_t);
static obj_t BGl_symbol4836z00zz__intextz00 = BUNSPEC;
extern obj_t string_to_bstring(char *);
static obj_t BGl_symbol4834z00zz__intextz00 = BUNSPEC;
static obj_t BGl_za2refzd2vectorza2zd2zz__intextz00 = BUNSPEC;
static obj_t BGl_symbol4832z00zz__intextz00 = BUNSPEC;
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_symbol4830z00zz__intextz00 = BUNSPEC;
static obj_t BGl_printzd2motzd2zz__intextz00(obj_t);
static obj_t BGl_symbol4827z00zz__intextz00 = BUNSPEC;
static long BGl_za2refza2z00zz__intextz00;
extern long get_hash_power_number_from_pointer(obj_t, long);
extern ucs2_t BGl_integerzd2ze3ucs2z31zz__ucs2z00(int);
static obj_t BGl__setzd2objzd2stringzd2modez12zc0zz__intextz00(obj_t, obj_t);
extern obj_t BGl_za2classesza2z00zz__objectz00;
static obj_t BGl_zc3anonymousza31033za3Llibzf2intextze2scmza31682ze3z93zz__intextz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_registerzd2opaquezd2serializa7ationza7zz__intextz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_registerzd2processzd2serializa7ationza7zz__intextz00(obj_t, obj_t);
static long BGl_getzd2newzd2refz00zz__intextz00();
BGL_EXPORTED_DECL obj_t BGl_setzd2objzd2stringzd2modez12zc0zz__intextz00(obj_t);
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_zc3anonymousza31030za3Llibzf2intextze2scmza31657ze3z93zz__intextz00(obj_t, 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_getzd2stringzd2markz00zz__intextz00(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__objzd2ze3stringz31zz__intextz00(obj_t, obj_t);
static obj_t BGl_objectzd2markz12zc0zz__intextz00(obj_t, obj_t);
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
extern obj_t BGl_tvectorzd2idzd2zz__tvectorz00(obj_t);
static obj_t BGl_markzd2itemz12zc0zz__intextz00(obj_t);
extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
static obj_t BGl_zc3anonymousza31021za3Llibzf2intextze2scmza31618ze3z93zz__intextz00(obj_t, 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 BGl_vector4828z00zz__intextz00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_registerzd2procedurezd2serializa7ationzd2envz75zz__intextz00, BgL_bgl__registerza7d2procedureza7d2serializa7a7ationza7a7za7za7__intextza7004910za7, BGl__registerzd2procedurezd2serializa7ationza7zz__intextz00, 0L, 2 );
extern obj_t BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00;
DEFINE_STATIC_PROCEDURE( BGl_proc4831z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31021za7a3llibza7f2intextza7e2scmza7a31618za7e3za793za7za7__intextza7004911za7, BGl_zc3anonymousza31021za3Llibzf2intextze2scmza31618ze3z93zz__intextz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4833z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31024za7a3llibza7f2intextza7e2scmza7a31625za7e3za793za7za7__intextza7004912za7, BGl_zc3anonymousza31024za3Llibzf2intextze2scmza31625ze3z93zz__intextz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4835z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31027za7a3llibza7f2intextza7e2scmza7a31650za7e3za793za7za7__intextza7004913za7, BGl_zc3anonymousza31027za3Llibzf2intextze2scmza31650ze3z93zz__intextz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4837z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31030za7a3llibza7f2intextza7e2scmza7a31657za7e3za793za7za7__intextza7004914za7, BGl_zc3anonymousza31030za3Llibzf2intextze2scmza31657ze3z93zz__intextz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4839z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31033za7a3llibza7f2intextza7e2scmza7a31682za7e3za793za7za7__intextza7004915za7, BGl_zc3anonymousza31033za3Llibzf2intextze2scmza31682ze3z93zz__intextz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4841z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31036za7a3llibza7f2intextza7e2scmza7a31689za7e3za793za7za7__intextza7004916za7, BGl_zc3anonymousza31036za3Llibzf2intextze2scmza31689ze3z93zz__intextz00, 0L, 1 );
DEFINE_STRING( BGl_string4894z00zz__intextz00, BgL_bgl_string4894za700za7za7__intextza7004917z00, "Unknown object", 14 );
DEFINE_STRING( BGl_string4893z00zz__intextz00, BgL_bgl_string4893za700za7za7__intextza7004918z00, "unregistered custom", 19 );
DEFINE_STRING( BGl_string4881z00zz__intextz00, BgL_bgl_string4881za700za7za7__intextza7004919z00, "Illegal ucs2-string", 19 );
DEFINE_STRING( BGl_string4876z00zz__intextz00, BgL_bgl_string4876za700za7za7__intextza7004920z00, "Illegal custom", 14 );
DEFINE_STRING( BGl_string4873z00zz__intextz00, BgL_bgl_string4873za700za7za7__intextza7004921z00, "Illegal string", 14 );
DEFINE_STRING( BGl_string4867z00zz__intextz00, BgL_bgl_string4867za700za7za7__intextza7004922z00, "corrupted class", 15 );
DEFINE_STRING( BGl_string4866z00zz__intextz00, BgL_bgl_string4866za700za7za7__intextza7004923z00, "Can't unserialize custom object", 31 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2ze3objzd2envze3zz__intextz00, BgL_bgl__stringza7d2za7e3objza731za7za7__intextza7004924z00, BGl__stringzd2ze3objz31zz__intextz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4878z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31618za7a3llibza7f2intextza7e2scmza7a3673za7e3za793za7za7__intextza7004925za7, BGl_zc3anonymousza31618za3Llibzf2intextze2scmza3673ze3z93zz__intextz00, 0L, 1 );
DEFINE_STRING( BGl_string4856z00zz__intextz00, BgL_bgl_string4856za700za7za7__intextza7004926z00, "can't extern procedure", 22 );
DEFINE_STRING( BGl_string4854z00zz__intextz00, BgL_bgl_string4854za700za7za7__intextza7004927z00, "Can't intern procedure item", 27 );
DEFINE_STRING( BGl_string4852z00zz__intextz00, BgL_bgl_string4852za700za7za7__intextza7004928z00, "can't extern process", 20 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2objzd2stringzd2modez12zd2envz12zz__intextz00, BgL_bgl__setza7d2objza7d2stringza7d2modeza712za7c0za7za7__intextza7004929z00, BGl__setzd2objzd2stringzd2modez12zc0zz__intextz00, 0L, 1 );
DEFINE_STRING( BGl_string4850z00zz__intextz00, BgL_bgl_string4850za700za7za7__intextza7004930z00, "Can't intern process item", 25 );
DEFINE_STRING( BGl_string4848z00zz__intextz00, BgL_bgl_string4848za700za7za7__intextza7004931z00, "can't extern opaque", 19 );
DEFINE_STRING( BGl_string4847z00zz__intextz00, BgL_bgl_string4847za700za7za7__intextza7004932z00, "obj->string", 11 );
DEFINE_STRING( BGl_string4845z00zz__intextz00, BgL_bgl_string4845za700za7za7__intextza7004933z00, "/tmp/bigloo/runtime/./Llib/intext.scm", 37 );
DEFINE_STATIC_PROCEDURE( BGl_proc4892z00zz__intextz00, BgL_bgl_za7c3anonymousza7a31828za7a3llibza7f2intextza7e2scmza7a31415za7e3za793za7za7__intextza7004934za7, BGl_zc3anonymousza31828za3Llibzf2intextze2scmza31415ze3z93zz__intextz00, 0L, 1 );
DEFINE_STRING( BGl_string4844z00zz__intextz00, BgL_bgl_string4844za700za7za7__intextza7004935z00, "Can't intern opaque item", 24 );
DEFINE_STRING( BGl_string4843z00zz__intextz00, BgL_bgl_string4843za700za7za7__intextza7004936z00, "string->obj", 11 );
DEFINE_STRING( BGl_string4829z00zz__intextz00, BgL_bgl_string4829za700za7za7__intextza7004937z00, "", 0 );
DEFINE_EXPORT_PROCEDURE( BGl_registerzd2processzd2serializa7ationzd2envz75zz__intextz00, BgL_bgl__registerza7d2processza7d2serializa7a7ationza7a7za7za7__intextza7004938za7, BGl__registerzd2processzd2serializa7ationza7zz__intextz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_registerzd2opaquezd2serializa7ationzd2envz75zz__intextz00, BgL_bgl__registerza7d2opaqueza7d2serializa7a7ationza7a7za7za7__intextza7004939za7, BGl__registerzd2opaquezd2serializa7ationza7zz__intextz00, 0L, 2 );
extern obj_t BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00;
DEFINE_EXPORT_PROCEDURE( BGl_registerzd2customzd2serializa7ationzd2envz75zz__intextz00, BgL_bgl__registerza7d2customza7d2serializa7a7ationza7a7za7za7__intextza7004940za7, BGl__registerzd2customzd2serializa7ationza7zz__intextz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_objzd2ze3stringzd2envze3zz__intextz00, BgL_bgl__objza7d2za7e3stringza731za7za7__intextza7004941z00, BGl__objzd2ze3stringz31zz__intextz00, 0L, 1 );



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



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__intextz00()
{ AN_OBJECT;
{ /* ./Llib/intext.scm 19 */
BGl_symbol4827z00zz__intextz00 = 
string_to_symbol("%toplevel@__intext"); 
BGl_vector4828z00zz__intextz00 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BNIL); 
BGl_symbol4830z00zz__intextz00 = 
string_to_symbol("*procedure->string*"); 
BGl_symbol4832z00zz__intextz00 = 
string_to_symbol("*string->procedure*"); 
BGl_symbol4834z00zz__intextz00 = 
string_to_symbol("*process->string*"); 
BGl_symbol4836z00zz__intextz00 = 
string_to_symbol("*string->process*"); 
BGl_symbol4838z00zz__intextz00 = 
string_to_symbol("*opaque->string*"); 
BGl_symbol4840z00zz__intextz00 = 
string_to_symbol("*string->opaque*"); 
BGl_symbol4842z00zz__intextz00 = 
string_to_symbol("<anonymous:1036:Llib/intext.scm:1689>:toplevel-init"); 
BGl_symbol4846z00zz__intextz00 = 
string_to_symbol("<anonymous:1033:Llib/intext.scm:1682>:toplevel-init"); 
BGl_symbol4849z00zz__intextz00 = 
string_to_symbol("<anonymous:1030:Llib/intext.scm:1657>:toplevel-init"); 
BGl_symbol4851z00zz__intextz00 = 
string_to_symbol("<anonymous:1027:Llib/intext.scm:1650>:toplevel-init"); 
BGl_symbol4853z00zz__intextz00 = 
string_to_symbol("<anonymous:1024:Llib/intext.scm:1625>:toplevel-init"); 
BGl_symbol4855z00zz__intextz00 = 
string_to_symbol("<anonymous:1021:Llib/intext.scm:1618>:toplevel-init"); 
BGl_symbol4857z00zz__intextz00 = 
string_to_symbol("verifie-taille-buffer!"); 
BGl_symbol4858z00zz__intextz00 = 
string_to_symbol("set-obj-string-mode!"); 
BGl_symbol4859z00zz__intextz00 = 
string_to_symbol("epair"); 
BGl_symbol4860z00zz__intextz00 = 
string_to_symbol("pair"); 
BGl_symbol4861z00zz__intextz00 = 
string_to_symbol("read-taille"); 
BGl_symbol4862z00zz__intextz00 = 
string_to_symbol("done"); 
BGl_symbol4863z00zz__intextz00 = 
string_to_symbol("read-nombre-flottant"); 
BGl_symbol4864z00zz__intextz00 = 
string_to_symbol("read-string"); 
BGl_symbol4865z00zz__intextz00 = 
string_to_symbol("string->obj"); 
BGl_symbol4868z00zz__intextz00 = 
string_to_symbol("pair-mark!"); 
BGl_symbol4869z00zz__intextz00 = 
string_to_symbol("mark"); 
BGl_symbol4870z00zz__intextz00 = 
string_to_symbol("cell-mark!"); 
BGl_symbol4871z00zz__intextz00 = 
string_to_symbol("string-mark!"); 
BGl_symbol4872z00zz__intextz00 = 
string_to_symbol("get-string-mark"); 
BGl_symbol4874z00zz__intextz00 = 
string_to_symbol("custom-mark!"); 
BGl_symbol4875z00zz__intextz00 = 
string_to_symbol("get-custom-mark"); 
BGl_symbol4877z00zz__intextz00 = 
string_to_symbol("get-custom-hash-table"); 
BGl_symbol4879z00zz__intextz00 = 
string_to_symbol("ucs2-string-mark!"); 
BGl_symbol4880z00zz__intextz00 = 
string_to_symbol("get-ucs2-string-mark"); 
BGl_symbol4882z00zz__intextz00 = 
string_to_symbol("vector-mark!"); 
BGl_symbol4883z00zz__intextz00 = 
string_to_symbol("tvector-mark!"); 
BGl_symbol4884z00zz__intextz00 = 
string_to_symbol("struct-mark!"); 
BGl_symbol4885z00zz__intextz00 = 
string_to_symbol("object-mark!"); 
BGl_symbol4886z00zz__intextz00 = 
string_to_symbol("taille-du-mot"); 
BGl_symbol4887z00zz__intextz00 = 
string_to_symbol("print-marqueur"); 
BGl_symbol4888z00zz__intextz00 = 
string_to_symbol("print-mot"); 
BGl_symbol4889z00zz__intextz00 = 
string_to_symbol("print-di"); 
BGl_symbol4890z00zz__intextz00 = 
string_to_symbol("print-chars"); 
BGl_symbol4891z00zz__intextz00 = 
string_to_symbol("obj->string"); 
BGl_symbol4895z00zz__intextz00 = 
string_to_symbol("mark-item!"); 
BGl_symbol4896z00zz__intextz00 = 
string_to_symbol("marked-pair-length"); 
BGl_symbol4897z00zz__intextz00 = 
string_to_symbol("register-custom-serialization"); 
BGl_symbol4898z00zz__intextz00 = 
string_to_symbol("register-procedure-serialization"); 
BGl_symbol4899z00zz__intextz00 = 
string_to_symbol("register-process-serialization"); 
BGl_symbol4900z00zz__intextz00 = 
string_to_symbol("register-opaque-serialization"); 
BGl_symbol4901z00zz__intextz00 = 
string_to_symbol("method-init"); 
return ( 
BGl_symbol4902z00zz__intextz00 = 
string_to_symbol("%import@__intext"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__intextz00()
{ AN_OBJECT;
{ /* ./Llib/intext.scm 19 */
{ /* ./Llib/intext.scm 19 */
obj_t BgL_symbol3852z00_4215;
BgL_symbol3852z00_4215 = BGl_symbol4827z00zz__intextz00; 
{ /* ./Llib/intext.scm 19 */

PUSH_TRACE(BgL_symbol3852z00_4215); BUNSPEC; 
{ /* ./Llib/intext.scm 19 */
obj_t BgL_aux3851z00_4216;
BGl_za2refzd2vectorza2zd2zz__intextz00 = BGl_vector4828z00zz__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_string4829z00zz__intextz00; 
BGl_za2bufferzd2lenza2zd2zz__intextz00 = ((long)0); 
BGl_za2inputzd2bufferza2zd2zz__intextz00 = BGl_string4829z00zz__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; 
{ /* ./Llib/intext.scm 1618 */
obj_t BgL_symbol3804z00_4185;
BgL_symbol3804z00_4185 = BGl_symbol4830z00zz__intextz00; 
{ /* ./Llib/intext.scm 1618 */

PUSH_TRACE(BgL_symbol3804z00_4185); BUNSPEC; 
POP_TRACE(); 
BGl_za2procedurezd2ze3stringza2z31zz__intextz00 = BGl_proc4831z00zz__intextz00; } } 
{ /* ./Llib/intext.scm 1625 */
obj_t BgL_symbol3808z00_4188;
BgL_symbol3808z00_4188 = BGl_symbol4832z00zz__intextz00; 
{ /* ./Llib/intext.scm 1625 */

PUSH_TRACE(BgL_symbol3808z00_4188); BUNSPEC; 
POP_TRACE(); 
BGl_za2stringzd2ze3procedureza2z31zz__intextz00 = BGl_proc4833z00zz__intextz00; } } 
BGl_za2procedurezd2tableza2zd2zz__intextz00 = BNIL; 
{ /* ./Llib/intext.scm 1650 */
obj_t BgL_symbol3812z00_4191;
BgL_symbol3812z00_4191 = BGl_symbol4834z00zz__intextz00; 
{ /* ./Llib/intext.scm 1650 */

PUSH_TRACE(BgL_symbol3812z00_4191); BUNSPEC; 
POP_TRACE(); 
BGl_za2processzd2ze3stringza2z31zz__intextz00 = BGl_proc4835z00zz__intextz00; } } 
{ /* ./Llib/intext.scm 1657 */
obj_t BgL_symbol3816z00_4194;
BgL_symbol3816z00_4194 = BGl_symbol4836z00zz__intextz00; 
{ /* ./Llib/intext.scm 1657 */

PUSH_TRACE(BgL_symbol3816z00_4194); BUNSPEC; 
POP_TRACE(); 
BGl_za2stringzd2ze3processza2z31zz__intextz00 = BGl_proc4837z00zz__intextz00; } } 
BGl_za2processzd2tableza2zd2zz__intextz00 = BNIL; 
{ /* ./Llib/intext.scm 1682 */
obj_t BgL_symbol3820z00_4197;
BgL_symbol3820z00_4197 = BGl_symbol4838z00zz__intextz00; 
{ /* ./Llib/intext.scm 1682 */

PUSH_TRACE(BgL_symbol3820z00_4197); BUNSPEC; 
POP_TRACE(); 
BGl_za2opaquezd2ze3stringza2z31zz__intextz00 = BGl_proc4839z00zz__intextz00; } } 
{ /* ./Llib/intext.scm 1689 */
obj_t BgL_symbol3824z00_4200;
BgL_symbol3824z00_4200 = BGl_symbol4840z00zz__intextz00; 
{ /* ./Llib/intext.scm 1689 */

PUSH_TRACE(BgL_symbol3824z00_4200); BUNSPEC; 
POP_TRACE(); 
BGl_za2stringzd2ze3opaqueza2z31zz__intextz00 = BGl_proc4841z00zz__intextz00; } } 
BgL_aux3851z00_4216 = ( 
BGl_za2opaquezd2tableza2zd2zz__intextz00 = BNIL, BUNSPEC) ; 
POP_TRACE(); 
return BgL_aux3851z00_4216;} } } } 
}



/* <anonymous:1036:Llib/intext.scm:1689> */
obj_t BGl_zc3anonymousza31036za3Llibzf2intextze2scmza31689ze3z93zz__intextz00(obj_t BgL_envz00_4289, obj_t BgL_stringz00_4290)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1689 */
{ 
obj_t BgL_stringz00_604;
BgL_stringz00_604 = BgL_stringz00_4290; 
{ /* ./Llib/intext.scm 1689 */
obj_t BgL_symbol3848z00_4213;
BgL_symbol3848z00_4213 = BGl_symbol4842z00zz__intextz00; 
{ /* ./Llib/intext.scm 1689 */

PUSH_TRACE(BgL_symbol3848z00_4213); BUNSPEC; 
{ /* ./Llib/intext.scm 1689 */
obj_t BgL_aux3847z00_4214;
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4843z00zz__intextz00, BGl_string4844z00zz__intextz00, BgL_stringz00_604, "./Llib/intext.scm", ((long)63366)); 
BgL_aux3847z00_4214 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4845z00zz__intextz00, 
BINT(((long)63315))); 
POP_TRACE(); 
return BgL_aux3847z00_4214;} } } } } 
}



/* <anonymous:1033:Llib/intext.scm:1682> */
obj_t BGl_zc3anonymousza31033za3Llibzf2intextze2scmza31682ze3z93zz__intextz00(obj_t BgL_envz00_4291, obj_t BgL_itemz00_4292)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1682 */
{ 
obj_t BgL_itemz00_602;
BgL_itemz00_602 = BgL_itemz00_4292; 
{ /* ./Llib/intext.scm 1682 */
obj_t BgL_symbol3844z00_4211;
BgL_symbol3844z00_4211 = BGl_symbol4846z00zz__intextz00; 
{ /* ./Llib/intext.scm 1682 */

PUSH_TRACE(BgL_symbol3844z00_4211); BUNSPEC; 
{ /* ./Llib/intext.scm 1682 */
obj_t BgL_aux3843z00_4212;
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4847z00zz__intextz00, BGl_string4848z00zz__intextz00, BgL_itemz00_602, "./Llib/intext.scm", ((long)63041)); 
BgL_aux3843z00_4212 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4845z00zz__intextz00, 
BINT(((long)62992))); 
POP_TRACE(); 
return BgL_aux3843z00_4212;} } } } } 
}



/* <anonymous:1030:Llib/intext.scm:1657> */
obj_t BGl_zc3anonymousza31030za3Llibzf2intextze2scmza31657ze3z93zz__intextz00(obj_t BgL_envz00_4293, obj_t BgL_stringz00_4294)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1657 */
{ 
obj_t BgL_stringz00_600;
BgL_stringz00_600 = BgL_stringz00_4294; 
{ /* ./Llib/intext.scm 1657 */
obj_t BgL_symbol3840z00_4209;
BgL_symbol3840z00_4209 = BGl_symbol4849z00zz__intextz00; 
{ /* ./Llib/intext.scm 1657 */

PUSH_TRACE(BgL_symbol3840z00_4209); BUNSPEC; 
{ /* ./Llib/intext.scm 1657 */
obj_t BgL_aux3839z00_4210;
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4843z00zz__intextz00, BGl_string4850z00zz__intextz00, BgL_stringz00_600, "./Llib/intext.scm", ((long)61780)); 
BgL_aux3839z00_4210 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4845z00zz__intextz00, 
BINT(((long)61728))); 
POP_TRACE(); 
return BgL_aux3839z00_4210;} } } } } 
}



/* <anonymous:1027:Llib/intext.scm:1650> */
obj_t BGl_zc3anonymousza31027za3Llibzf2intextze2scmza31650ze3z93zz__intextz00(obj_t BgL_envz00_4295, obj_t BgL_itemz00_4296)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1650 */
{ 
obj_t BgL_itemz00_598;
BgL_itemz00_598 = BgL_itemz00_4296; 
{ /* ./Llib/intext.scm 1650 */
obj_t BgL_symbol3836z00_4207;
BgL_symbol3836z00_4207 = BGl_symbol4851z00zz__intextz00; 
{ /* ./Llib/intext.scm 1650 */

PUSH_TRACE(BgL_symbol3836z00_4207); BUNSPEC; 
{ /* ./Llib/intext.scm 1650 */
obj_t BgL_aux3835z00_4208;
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4847z00zz__intextz00, BGl_string4852z00zz__intextz00, BgL_itemz00_598, "./Llib/intext.scm", ((long)61453)); 
BgL_aux3835z00_4208 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4845z00zz__intextz00, 
BINT(((long)61403))); 
POP_TRACE(); 
return BgL_aux3835z00_4208;} } } } } 
}



/* <anonymous:1024:Llib/intext.scm:1625> */
obj_t BGl_zc3anonymousza31024za3Llibzf2intextze2scmza31625ze3z93zz__intextz00(obj_t BgL_envz00_4297, obj_t BgL_stringz00_4298)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1625 */
{ 
obj_t BgL_stringz00_596;
BgL_stringz00_596 = BgL_stringz00_4298; 
{ /* ./Llib/intext.scm 1625 */
obj_t BgL_symbol3832z00_4205;
BgL_symbol3832z00_4205 = BGl_symbol4853z00zz__intextz00; 
{ /* ./Llib/intext.scm 1625 */

PUSH_TRACE(BgL_symbol3832z00_4205); BUNSPEC; 
{ /* ./Llib/intext.scm 1625 */
obj_t BgL_aux3831z00_4206;
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4843z00zz__intextz00, BGl_string4854z00zz__intextz00, BgL_stringz00_596, "./Llib/intext.scm", ((long)60172)); 
BgL_aux3831z00_4206 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4845z00zz__intextz00, 
BINT(((long)60118))); 
POP_TRACE(); 
return BgL_aux3831z00_4206;} } } } } 
}



/* <anonymous:1021:Llib/intext.scm:1618> */
obj_t BGl_zc3anonymousza31021za3Llibzf2intextze2scmza31618ze3z93zz__intextz00(obj_t BgL_envz00_4299, obj_t BgL_itemz00_4300)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1618 */
{ 
obj_t BgL_itemz00_594;
BgL_itemz00_594 = BgL_itemz00_4300; 
{ /* ./Llib/intext.scm 1618 */
obj_t BgL_symbol3828z00_4203;
BgL_symbol3828z00_4203 = BGl_symbol4855z00zz__intextz00; 
{ /* ./Llib/intext.scm 1618 */

PUSH_TRACE(BgL_symbol3828z00_4203); BUNSPEC; 
{ /* ./Llib/intext.scm 1618 */
obj_t BgL_aux3827z00_4204;
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4847z00zz__intextz00, BGl_string4856z00zz__intextz00, BgL_itemz00_594, "./Llib/intext.scm", ((long)59841)); 
BgL_aux3827z00_4204 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4845z00zz__intextz00, 
BINT(((long)59789))); 
POP_TRACE(); 
return BgL_aux3827z00_4204;} } } } } 
}



/* verifie-taille-buffer! */
obj_t BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(obj_t BgL_taillez00_1)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 162 */
{ /* ./Llib/intext.scm 163 */
obj_t BgL_symbol3856z00_4217;
BgL_symbol3856z00_4217 = BGl_symbol4857z00zz__intextz00; 
{ /* ./Llib/intext.scm 163 */

PUSH_TRACE(BgL_symbol3856z00_4217); BUNSPEC; 
{ /* ./Llib/intext.scm 163 */
obj_t BgL_aux3855z00_4218;
{ /* ./Llib/intext.scm 163 */
long BgL_lz00_606;
{ /* ./Llib/intext.scm 163 */
long BgL_arg1050z00_613;
{ /* ./Llib/intext.scm 163 */
long BgL_auxz00_4452;long BgL_auxz00_4450;
BgL_auxz00_4452 = 
(BGl_za2taillezd2duzd2motzd2maximumza2zd2zz__intextz00+((long)1)); 
BgL_auxz00_4450 = 
(long)CINT(BgL_taillez00_1); 
BgL_arg1050z00_613 = 
(BgL_auxz00_4450+BgL_auxz00_4452); } 
BgL_lz00_606 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_arg1050z00_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_4458;
BgL_auxz00_4458 = 
(BgL_lz00_606+((long)100)); 
BGl_za2bufferzd2lenza2zd2zz__intextz00 = 
(((long)2)*BgL_auxz00_4458); } 
{ /* ./Llib/intext.scm 169 */
int BgL_auxz00_4461;
BgL_auxz00_4461 = 
(int)(BGl_za2bufferzd2lenza2zd2zz__intextz00); 
BGl_za2bufferza2z00zz__intextz00 = 
make_string(BgL_auxz00_4461, ((unsigned char)' ')); } 
{ /* ./Llib/intext.scm 170 */
int BgL_auxz00_4468;int BgL_auxz00_4466;int BgL_auxz00_4464;
BgL_auxz00_4468 = 
(int)(BgL_vieillezd2longeurzd2_608); 
BgL_auxz00_4466 = 
(int)(((long)0)); 
BgL_auxz00_4464 = 
(int)(((long)0)); 
BgL_aux3855z00_4218 = 
blit_string(BgL_vieuxzd2bufferzd2_609, BgL_auxz00_4464, BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_4466, BgL_auxz00_4468); } } }  else 
{ /* ./Llib/intext.scm 164 */
BgL_aux3855z00_4218 = BFALSE; } } 
POP_TRACE(); 
return BgL_aux3855z00_4218;} } } } 
}



/* set-obj-string-mode! */
BGL_EXPORTED_DEF obj_t BGl_setzd2objzd2stringzd2modez12zc0zz__intextz00(obj_t BgL_modez00_2)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 180 */
{ /* ./Llib/intext.scm 181 */
obj_t BgL_symbol3860z00_4219;
BgL_symbol3860z00_4219 = BGl_symbol4858z00zz__intextz00; 
{ /* ./Llib/intext.scm 181 */

PUSH_TRACE(BgL_symbol3860z00_4219); BUNSPEC; 
{ /* ./Llib/intext.scm 181 */
obj_t BgL_aux3859z00_4220;
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_modez00_2, BGl_symbol4859z00zz__intextz00))
{ /* ./Llib/intext.scm 181 */
BgL_aux3859z00_4220 = ( 
BGl_za2epairzf3za2zf3zz__intextz00 = ((bool_t)1), BUNSPEC) ; }  else 
{ /* ./Llib/intext.scm 181 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_modez00_2, BGl_symbol4860z00zz__intextz00))
{ /* ./Llib/intext.scm 181 */
BgL_aux3859z00_4220 = ( 
BGl_za2epairzf3za2zf3zz__intextz00 = ((bool_t)0), BUNSPEC) ; }  else 
{ /* ./Llib/intext.scm 181 */
BgL_aux3859z00_4220 = BUNSPEC; } } 
POP_TRACE(); 
return BgL_aux3859z00_4220;} } } } 
}



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



/* read-taille */
int BGl_readzd2taillezd2zz__intextz00(obj_t BgL_sz00_3)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 190 */
{ /* ./Llib/intext.scm 191 */
obj_t BgL_symbol3864z00_4221;
BgL_symbol3864z00_4221 = BGl_symbol4861z00zz__intextz00; 
{ /* ./Llib/intext.scm 191 */

PUSH_TRACE(BgL_symbol3864z00_4221); BUNSPEC; 
{ /* ./Llib/intext.scm 191 */
int BgL_aux3863z00_4222;
{ /* ./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_arg1083z00_628;
{ /* ./Llib/intext.scm 192 */
int BgL_auxz00_4481;
BgL_auxz00_4481 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_arg1083z00_628 = 
STRING_REF(BgL_sz00_3, BgL_auxz00_4481); } 
{ /* ./Llib/intext.scm 192 */
long BgL_auxz00_4484;
BgL_auxz00_4484 = 
(BgL_arg1083z00_628); 
BgL_taillez00_619 = 
(int)(BgL_auxz00_4484); } } 
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_4488;
{ /* ./Llib/intext.scm 194 */
long BgL_auxz00_4489;
{ /* ./Llib/intext.scm 194 */
long BgL_auxz00_4490;
BgL_auxz00_4490 = 
(long)(BgL_taillez00_619); 
BgL_auxz00_4489 = 
(BgL_auxz00_4490-((long)1)); } 
BgL_testz00_4488 = 
(BgL_iz00_620<=BgL_auxz00_4489); } 
if(BgL_testz00_4488)
{ /* ./Llib/intext.scm 194 */
{ /* ./Llib/intext.scm 195 */
unsigned char BgL_dz00_623;
{ /* ./Llib/intext.scm 195 */
int BgL_auxz00_4494;
BgL_auxz00_4494 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_dz00_623 = 
STRING_REF(BgL_sz00_3, BgL_auxz00_4494); } 
{ /* ./Llib/intext.scm 196 */
long BgL_arg1064z00_624;long BgL_arg1065z00_625;
{ /* ./Llib/intext.scm 196 */
long BgL_auxz00_4497;
BgL_auxz00_4497 = 
(long)(BgL_accuzd2entierzd2_618); 
BgL_arg1064z00_624 = 
(((long)256)*BgL_auxz00_4497); } 
BgL_arg1065z00_625 = 
(BgL_dz00_623); 
{ /* ./Llib/intext.scm 196 */
long BgL_auxz00_4501;
BgL_auxz00_4501 = 
(BgL_arg1064z00_624+BgL_arg1065z00_625); 
BgL_accuzd2entierzd2_618 = 
(int)(BgL_auxz00_4501); } } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); } 
{ 
long BgL_iz00_4505;
BgL_iz00_4505 = 
(BgL_iz00_620+((long)1)); 
BgL_iz00_620 = BgL_iz00_4505; 
goto BgL_for1007z00_621;} }  else 
{ /* ./Llib/intext.scm 194 */BGl_symbol4862z00zz__intextz00; } } } 
BgL_aux3863z00_4222 = BgL_accuzd2entierzd2_618; } } 
POP_TRACE(); 
return BgL_aux3863z00_4222;} } } } 
}



/* read-nombre-flottant */
double BGl_readzd2nombrezd2flottantz00zz__intextz00(obj_t BgL_sz00_5)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 216 */
{ /* ./Llib/intext.scm 217 */
obj_t BgL_symbol3868z00_4223;
BgL_symbol3868z00_4223 = BGl_symbol4863z00zz__intextz00; 
{ /* ./Llib/intext.scm 217 */

PUSH_TRACE(BgL_symbol3868z00_4223); BUNSPEC; 
{ /* ./Llib/intext.scm 217 */
double BgL_aux3867z00_4224;
{ /* ./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_arg1090z00_631;
{ /* ./Llib/intext.scm 220 */
long BgL_arg1093z00_632;
{ /* ./Llib/intext.scm 220 */
long BgL_auxz00_4510;
BgL_auxz00_4510 = 
(long)(BgL_taillez00_629); 
BgL_arg1093z00_632 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4510); } 
{ /* ./Llib/intext.scm 218 */
int BgL_auxz00_4515;int BgL_auxz00_4513;
BgL_auxz00_4515 = 
(int)(BgL_arg1093z00_632); 
BgL_auxz00_4513 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_arg1090z00_631 = 
c_substring(BgL_sz00_5, BgL_auxz00_4513, BgL_auxz00_4515); } } 
{ /* ./Llib/intext.scm 218 */
char * BgL_auxz00_4518;
BgL_auxz00_4518 = 
BSTRING_TO_STRING(BgL_arg1090z00_631); 
BgL_resz00_630 = 
strtod(BgL_auxz00_4518, ((long)0)); } } 
{ /* ./Llib/intext.scm 218 */

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



/* read-string */
obj_t BGl_readzd2stringzd2zz__intextz00(obj_t BgL_sz00_7)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 245 */
{ /* ./Llib/intext.scm 246 */
obj_t BgL_symbol3872z00_4225;
BgL_symbol3872z00_4225 = BGl_symbol4864z00zz__intextz00; 
{ /* ./Llib/intext.scm 246 */

PUSH_TRACE(BgL_symbol3872z00_4225); BUNSPEC; 
{ /* ./Llib/intext.scm 246 */
obj_t BgL_aux3871z00_4226;
{ /* ./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_arg1108z00_637;
{ /* ./Llib/intext.scm 247 */
long BgL_auxz00_4527;
BgL_auxz00_4527 = 
(long)(BgL_taillez00_634); 
BgL_arg1108z00_637 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4527); } 
{ /* ./Llib/intext.scm 247 */
int BgL_auxz00_4532;int BgL_auxz00_4530;
BgL_auxz00_4532 = 
(int)(BgL_arg1108z00_637); 
BgL_auxz00_4530 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_resz00_635 = 
c_substring(BgL_sz00_7, BgL_auxz00_4530, BgL_auxz00_4532); } } 
{ /* ./Llib/intext.scm 247 */

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



/* string->obj */
BGL_EXPORTED_DEF obj_t string_to_obj(obj_t BgL_sz00_8)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 267 */
{ /* ./Llib/intext.scm 270 */
obj_t BgL_symbol3876z00_4227;
BgL_symbol3876z00_4227 = BGl_symbol4865z00zz__intextz00; 
{ /* ./Llib/intext.scm 270 */

PUSH_TRACE(BgL_symbol3876z00_4227); BUNSPEC; 
{ /* ./Llib/intext.scm 270 */
obj_t BgL_aux3875z00_4228;
BGl_za2pointeurza2z00zz__intextz00 = ((long)0); 
{ /* ./Llib/intext.scm 460 */
unsigned char BgL_dz00_658;
{ /* ./Llib/intext.scm 460 */
int BgL_auxz00_4545;
BgL_auxz00_4545 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_dz00_658 = 
STRING_REF(BgL_sz00_8, BgL_auxz00_4545); } 
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_4553;int BgL_auxz00_4551;
BgL_auxz00_4553 = BUNSPEC; 
BgL_auxz00_4551 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_8); 
BGl_za2refzd2vectorza2zd2zz__intextz00 = 
make_vector(BgL_auxz00_4551, BgL_auxz00_4553); } }  else 
{ /* ./Llib/intext.scm 461 */BFALSE; } } 
BgL_aux3875z00_4228 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_8); 
POP_TRACE(); 
return BgL_aux3875z00_4228;} } } } 
}



/* read-item */
obj_t BGl_readzd2itemzd2zz__intextz00(obj_t BgL_sz00_4335)
{ 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_4557;
BgL_auxz00_4557 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_dz00_663 = 
STRING_REF(BgL_sz00_4335, BgL_auxz00_4557); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ 

switch( BgL_dz00_663) { case ((unsigned char)'=') : 

BGl_za2definingza2z00zz__intextz00 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
{ 

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

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

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

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

{ /* ./Llib/intext.scm 432 */
int BgL_arg1099z00_1705;
BgL_arg1099z00_1705 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4335); 
{ /* ./Llib/intext.scm 432 */
unsigned char BgL_auxz00_4575;
{ /* ./Llib/intext.scm 432 */
long BgL_auxz00_4576;
BgL_auxz00_4576 = 
(long)(BgL_arg1099z00_1705); 
BgL_auxz00_4575 = 
(BgL_auxz00_4576); } 
return 
BCHAR(BgL_auxz00_4575);} } break;case ((unsigned char)'u') : 

{ /* ./Llib/intext.scm 433 */
int BgL_arg1424z00_1708;
BgL_arg1424z00_1708 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4335); 
{ /* ./Llib/intext.scm 433 */
ucs2_t BgL_auxz00_4581;
BgL_auxz00_4581 = 
BGl_integerzd2ze3ucs2z31zz__ucs2z00(BgL_arg1424z00_1708); 
return 
BUCS2(BgL_auxz00_4581);} } 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_arg1429z00_1710;
BgL_arg1429z00_1710 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4335); 
{ /* ./Llib/intext.scm 438 */
long BgL_auxz00_4585;
BgL_auxz00_4585 = 
(long)(BgL_arg1429z00_1710); 
return 
BCNST(BgL_auxz00_4585);} } break;case ((unsigned char)'"') : 

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

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

{ /* ./Llib/intext.scm 308 */
int BgL_taillez00_765;
BgL_taillez00_765 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4335); 
{ /* ./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_4596;
BgL_auxz00_4596 = 
CINT(BGl_za2definingza2z00zz__intextz00); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4596,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_4599;
{ /* ./Llib/intext.scm 314 */
long BgL_auxz00_4600;
{ /* ./Llib/intext.scm 314 */
long BgL_auxz00_4601;
BgL_auxz00_4601 = 
(long)(BgL_taillez00_765); 
BgL_auxz00_4600 = 
(BgL_auxz00_4601-((long)1)); } 
BgL_testz00_4599 = 
(BgL_iz00_768<=BgL_auxz00_4600); } 
if(BgL_testz00_4599)
{ /* ./Llib/intext.scm 314 */
{ 
obj_t BgL_auxz00_4607;int BgL_auxz00_4605;
BgL_auxz00_4607 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
BgL_auxz00_4605 = 
(int)(BgL_iz00_768); 
VECTOR_SET(BgL_resz00_766,BgL_auxz00_4605,BgL_auxz00_4607); } 
{ 
long BgL_iz00_4610;
BgL_iz00_4610 = 
(BgL_iz00_768+((long)1)); 
BgL_iz00_768 = BgL_iz00_4610; 
goto BgL_for1008z00_769;} }  else 
{ /* ./Llib/intext.scm 314 */BGl_symbol4862z00zz__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_4335); 
{ /* ./Llib/intext.scm 318 */
int BgL_taillez00_755;
BgL_taillez00_755 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4335); 
{ /* ./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_4615;
BgL_auxz00_4615 = 
CINT(BgL_tagz00_754); 
VECTOR_TAG_SET(BgL_resz00_756, BgL_auxz00_4615); } 
if(
INTEGERP(BGl_za2definingza2z00zz__intextz00))
{ /* ./Llib/intext.scm 322 */
{ 
int BgL_auxz00_4620;
BgL_auxz00_4620 = 
CINT(BGl_za2definingza2z00zz__intextz00); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4620,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_4623;
{ /* ./Llib/intext.scm 326 */
long BgL_auxz00_4624;
{ /* ./Llib/intext.scm 326 */
long BgL_auxz00_4625;
BgL_auxz00_4625 = 
(long)(BgL_taillez00_755); 
BgL_auxz00_4624 = 
(BgL_auxz00_4625-((long)1)); } 
BgL_testz00_4623 = 
(BgL_iz00_758<=BgL_auxz00_4624); } 
if(BgL_testz00_4623)
{ /* ./Llib/intext.scm 326 */
{ 
obj_t BgL_auxz00_4631;int BgL_auxz00_4629;
BgL_auxz00_4631 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
BgL_auxz00_4629 = 
(int)(BgL_iz00_758); 
VECTOR_SET(BgL_resz00_756,BgL_auxz00_4629,BgL_auxz00_4631); } 
{ 
long BgL_iz00_4634;
BgL_iz00_4634 = 
(BgL_iz00_758+((long)1)); 
BgL_iz00_758 = BgL_iz00_4634; 
goto BgL_for1009z00_759;} }  else 
{ /* ./Llib/intext.scm 326 */BGl_symbol4862z00zz__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_4335); 
{ /* ./Llib/intext.scm 330 */
obj_t BgL_vz00_750;
BgL_vz00_750 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
{ /* ./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_4641;
BgL_auxz00_4641 = 
CINT(BGl_za2definingza2z00zz__intextz00); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4641,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_4335); 
{ /* ./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_4648;
BgL_auxz00_4648 = 
CINT(BGl_za2definingza2z00zz__intextz00); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4648,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_4651;
{ /* ./Llib/intext.scm 347 */
long BgL_auxz00_4652;
{ /* ./Llib/intext.scm 347 */
long BgL_auxz00_4653;
BgL_auxz00_4653 = 
(long)(BgL_taillez00_734); 
BgL_auxz00_4652 = 
(BgL_auxz00_4653-((long)2)); } 
BgL_testz00_4651 = 
(BgL_iz00_737==BgL_auxz00_4652); } 
if(BgL_testz00_4651)
{ /* ./Llib/intext.scm 347 */
{ /* ./Llib/intext.scm 349 */
obj_t BgL_auxz00_4657;
BgL_auxz00_4657 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
SET_CAR(BgL_hdz00_738, BgL_auxz00_4657); } 
{ /* ./Llib/intext.scm 350 */
obj_t BgL_auxz00_4660;
BgL_auxz00_4660 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
SET_CDR(BgL_hdz00_738, BgL_auxz00_4660); } }  else 
{ /* ./Llib/intext.scm 347 */
{ /* ./Llib/intext.scm 352 */
obj_t BgL_auxz00_4663;
BgL_auxz00_4663 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
SET_CAR(BgL_hdz00_738, BgL_auxz00_4663); } 
{ /* ./Llib/intext.scm 353 */
obj_t BgL_arg1319z00_744;
BgL_arg1319z00_744 = 
MAKE_PAIR(BNIL, BNIL); 
SET_CDR(BgL_hdz00_738, BgL_arg1319z00_744); } 
{ 
obj_t BgL_hdz00_4670;long BgL_iz00_4668;
BgL_iz00_4668 = 
(BgL_iz00_737+((long)1)); 
BgL_hdz00_4670 = 
CDR(BgL_hdz00_738); 
BgL_hdz00_738 = BgL_hdz00_4670; 
BgL_iz00_737 = BgL_iz00_4668; 
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_4335); 
{ /* ./Llib/intext.scm 357 */
obj_t BgL_resz00_718;
{ /* ./Llib/intext.scm 358 */
obj_t BgL_res3777z00_1789;
BgL_res3777z00_1789 = 
MAKE_EXTENDED_PAIR(BNIL, BNIL, BUNSPEC); 
BgL_resz00_718 = BgL_res3777z00_1789; } 
{ /* ./Llib/intext.scm 358 */

if(
INTEGERP(BGl_za2definingza2z00zz__intextz00))
{ /* ./Llib/intext.scm 359 */
{ 
int BgL_auxz00_4676;
BgL_auxz00_4676 = 
CINT(BGl_za2definingza2z00zz__intextz00); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4676,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_4679;
{ /* ./Llib/intext.scm 365 */
long BgL_auxz00_4680;
{ /* ./Llib/intext.scm 365 */
long BgL_auxz00_4681;
BgL_auxz00_4681 = 
(long)(BgL_taillez00_717); 
BgL_auxz00_4680 = 
(BgL_auxz00_4681-((long)2)); } 
BgL_testz00_4679 = 
(BgL_iz00_720==BgL_auxz00_4680); } 
if(BgL_testz00_4679)
{ /* ./Llib/intext.scm 365 */
{ /* ./Llib/intext.scm 367 */
obj_t BgL_auxz00_4685;
BgL_auxz00_4685 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
SET_CAR(BgL_hdz00_721, BgL_auxz00_4685); } 
{ /* ./Llib/intext.scm 368 */
obj_t BgL_auxz00_4688;
BgL_auxz00_4688 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
SET_CER(BgL_hdz00_721, BgL_auxz00_4688); } 
{ /* ./Llib/intext.scm 369 */
obj_t BgL_auxz00_4691;
BgL_auxz00_4691 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
SET_CDR(BgL_hdz00_721, BgL_auxz00_4691); } }  else 
{ /* ./Llib/intext.scm 365 */
{ /* ./Llib/intext.scm 371 */
obj_t BgL_auxz00_4694;
BgL_auxz00_4694 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
SET_CAR(BgL_hdz00_721, BgL_auxz00_4694); } 
{ /* ./Llib/intext.scm 372 */
obj_t BgL_auxz00_4697;
BgL_auxz00_4697 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
SET_CER(BgL_hdz00_721, BgL_auxz00_4697); } 
{ /* ./Llib/intext.scm 373 */
obj_t BgL_arg1285z00_729;
{ /* ./Llib/intext.scm 373 */
obj_t BgL_res3778z00_1811;
BgL_res3778z00_1811 = 
MAKE_EXTENDED_PAIR(BNIL, BNIL, BUNSPEC); 
BgL_arg1285z00_729 = BgL_res3778z00_1811; } 
SET_CDR(BgL_hdz00_721, BgL_arg1285z00_729); } 
{ 
obj_t BgL_hdz00_4704;long BgL_iz00_4702;
BgL_iz00_4702 = 
(BgL_iz00_720+((long)1)); 
BgL_hdz00_4704 = 
CDR(BgL_hdz00_721); 
BgL_hdz00_721 = BgL_hdz00_4704; 
BgL_iz00_720 = BgL_iz00_4702; 
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_4335); 
{ /* ./Llib/intext.scm 399 */
int BgL_taillez00_690;
BgL_taillez00_690 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4335); 
{ /* ./Llib/intext.scm 400 */
obj_t BgL_resz00_691;
{ /* ./Llib/intext.scm 401 */
obj_t BgL_auxz00_4708;
BgL_auxz00_4708 = BUNSPEC; 
BgL_resz00_691 = 
make_struct(BgL_keyz00_689, BgL_taillez00_690, BgL_auxz00_4708); } 
{ /* ./Llib/intext.scm 401 */

if(
INTEGERP(BgL_definingz00_688))
{ 
int BgL_auxz00_4712;
BgL_auxz00_4712 = 
CINT(BgL_definingz00_688); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4712,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_4715;
{ /* ./Llib/intext.scm 404 */
long BgL_auxz00_4716;
{ /* ./Llib/intext.scm 404 */
long BgL_auxz00_4717;
BgL_auxz00_4717 = 
(long)(BgL_taillez00_690); 
BgL_auxz00_4716 = 
(BgL_auxz00_4717-((long)1)); } 
BgL_testz00_4715 = 
(BgL_iz00_693<=BgL_auxz00_4716); } 
if(BgL_testz00_4715)
{ /* ./Llib/intext.scm 404 */
{ /* ./Llib/intext.scm 406 */
obj_t BgL_auxz00_4723;int BgL_auxz00_4721;
BgL_auxz00_4723 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
BgL_auxz00_4721 = 
(int)(BgL_iz00_693); 
STRUCT_SET(BgL_resz00_691, BgL_auxz00_4721, BgL_auxz00_4723); } 
{ 
long BgL_iz00_4726;
BgL_iz00_4726 = 
(BgL_iz00_693+((long)1)); 
BgL_iz00_693 = BgL_iz00_4726; 
goto BgL_for1010z00_694;} }  else 
{ /* ./Llib/intext.scm 404 */BGl_symbol4862z00zz__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_4335); 
{ /* ./Llib/intext.scm 412 */
int BgL_taillez00_671;
BgL_taillez00_671 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4335); 
{ /* ./Llib/intext.scm 413 */
obj_t BgL_structz00_672;
{ /* ./Llib/intext.scm 414 */
obj_t BgL_auxz00_4730;
BgL_auxz00_4730 = BUNSPEC; 
BgL_structz00_672 = 
make_struct(BgL_keyz00_670, BgL_taillez00_671, BgL_auxz00_4730); } 
{ /* ./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_1724;int BgL_kz00_1725;obj_t BgL_objz00_1726;
BgL_vectorz00_1724 = BGl_za2refzd2vectorza2zd2zz__intextz00; 
BgL_kz00_1725 = 
CINT(BgL_definingz00_669); 
BgL_objz00_1726 = 
(obj_t)(BgL_objectz00_673); 
VECTOR_SET(BgL_vectorz00_1724,BgL_kz00_1725,BgL_objz00_1726); }  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_4738;
{ /* ./Llib/intext.scm 418 */
long BgL_auxz00_4739;
{ /* ./Llib/intext.scm 418 */
long BgL_auxz00_4740;
BgL_auxz00_4740 = 
(long)(BgL_taillez00_671); 
BgL_auxz00_4739 = 
(BgL_auxz00_4740-((long)1)); } 
BgL_testz00_4738 = 
(BgL_iz00_675<=BgL_auxz00_4739); } 
if(BgL_testz00_4738)
{ /* ./Llib/intext.scm 418 */
{ /* ./Llib/intext.scm 419 */
obj_t BgL_auxz00_4746;int BgL_auxz00_4744;
BgL_auxz00_4746 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
BgL_auxz00_4744 = 
(int)(BgL_iz00_675); 
STRUCT_SET(BgL_structz00_672, BgL_auxz00_4744, BgL_auxz00_4746); } 
{ 
long BgL_iz00_4749;
BgL_iz00_4749 = 
(BgL_iz00_675+((long)1)); 
BgL_iz00_675 = BgL_iz00_4749; 
goto BgL_for1011z00_676;} }  else 
{ /* ./Llib/intext.scm 418 */BGl_symbol4862z00zz__intextz00; } } } 
{ /* ./Llib/intext.scm 420 */
obj_t BgL_hashz00_681;
BgL_hashz00_681 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
{ /* ./Llib/intext.scm 421 */
bool_t BgL_test1180z00_682;
{ /* ./Llib/intext.scm 421 */
long BgL_arg1187z00_683;
{ /* ./Llib/intext.scm 421 */
obj_t BgL_arg1190z00_684;
{ /* ./Llib/intext.scm 421 */
long BgL_arg3720z00_1737;
{ /* ./Llib/intext.scm 421 */
long BgL_arg3723z00_1738;
BgL_arg3723z00_1738 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_673); 
BgL_arg3720z00_1737 = 
(BgL_arg3723z00_1738-OBJECT_TYPE); } 
{ 
int BgL_auxz00_4754;
BgL_auxz00_4754 = 
(int)(BgL_arg3720z00_1737); 
BgL_arg1190z00_684 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_4754); } } 
BgL_arg1187z00_683 = 
BGl_classzd2hashzd2zz__objectz00(BgL_arg1190z00_684); } 
{ /* ./Llib/intext.scm 421 */
long BgL_auxz00_4758;
BgL_auxz00_4758 = 
(long)CINT(BgL_hashz00_681); 
BgL_test1180z00_682 = 
(BgL_auxz00_4758==BgL_arg1187z00_683); } } 
if(BgL_test1180z00_682)
{ /* ./Llib/intext.scm 422 */
BgL_objectz00_bglt BgL_auxz00_4762;
BgL_auxz00_4762 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(BgL_objectz00_673, BgL_structz00_672); 
return 
(obj_t)(BgL_auxz00_4762);}  else 
{ /* ./Llib/intext.scm 421 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4843z00zz__intextz00, BGl_string4867z00zz__intextz00, 
(obj_t)(BgL_objectz00_673), "./Llib/intext.scm", ((long)15491)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4845z00zz__intextz00, 
BINT(((long)15528)));} } } } } } } } } break;case ((unsigned char)'f') : 

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

{ /* ./Llib/intext.scm 449 */
int BgL_arg1146z00_667;
BgL_arg1146z00_667 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4335); 
{ /* ./Llib/intext.scm 449 */
long BgL_auxz00_4773;
{ /* ./Llib/intext.scm 449 */
long BgL_auxz00_4774;
BgL_auxz00_4774 = 
(long)(BgL_arg1146z00_667); 
BgL_auxz00_4773 = 
NEG(BgL_auxz00_4774); } 
return 
BINT(BgL_auxz00_4773);} } break;case ((unsigned char)'!') : 

{ /* ./Llib/intext.scm 377 */
obj_t BgL_resz00_712;
{ /* ./Llib/intext.scm 377 */
obj_t BgL_auxz00_4778;
BgL_auxz00_4778 = BUNSPEC; 
BgL_resz00_712 = 
MAKE_CELL(BgL_auxz00_4778); } 
if(
INTEGERP(BGl_za2definingza2z00zz__intextz00))
{ /* ./Llib/intext.scm 378 */
{ 
int BgL_auxz00_4782;
BgL_auxz00_4782 = 
CINT(BGl_za2definingza2z00zz__intextz00); 
VECTOR_SET(BGl_za2refzd2vectorza2zd2zz__intextz00,BgL_auxz00_4782,BgL_resz00_712); } 
BGl_za2definingza2z00zz__intextz00 = BFALSE; }  else 
{ /* ./Llib/intext.scm 378 */BFALSE; } 
{ /* ./Llib/intext.scm 382 */
obj_t BgL_auxz00_4785;
BgL_auxz00_4785 = 
BGl_readzd2itemzd2zz__intextz00(BgL_sz00_4335); 
CELL_SET(BgL_resz00_712, BgL_auxz00_4785); } 
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_4335); 
{ /* ./Llib/intext.scm 282 */
obj_t BgL_unserializa7erza7_790;
{ /* ./Llib/intext.scm 283 */
obj_t BgL_cellz00_1885;
BgL_cellz00_1885 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_strz00_789, BGl_za2customzd2serializa7ationza2z75zz__intextz00); 
if(
PAIRP(BgL_cellz00_1885))
{ /* ./Llib/intext.scm 283 */
obj_t BgL_auxz00_4792;
{ /* ./Llib/intext.scm 283 */
obj_t BgL_auxz00_4793;
BgL_auxz00_4793 = 
CDR(BgL_cellz00_1885); 
BgL_auxz00_4792 = 
CDR(BgL_auxz00_4793); } 
BgL_unserializa7erza7_790 = 
CAR(BgL_auxz00_4792); }  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_4335; 
{ /* ./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 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4843z00zz__intextz00, BGl_string4866z00zz__intextz00, BgL_strz00_789, "./Llib/intext.scm", ((long)11316)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4845z00zz__intextz00, 
BINT(((long)11369)));} } } } break;case ((unsigned char)'E') : 

{ /* ./Llib/intext.scm 292 */
int BgL_taillez00_783;
BgL_taillez00_783 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4335); 
{ /* ./Llib/intext.scm 292 */
obj_t BgL_resz00_784;
{ /* ./Llib/intext.scm 295 */
obj_t BgL_arg1406z00_785;
{ /* ./Llib/intext.scm 295 */
long BgL_arg1410z00_787;
{ /* ./Llib/intext.scm 295 */
long BgL_auxz00_4805;
BgL_auxz00_4805 = 
(long)(BgL_taillez00_783); 
BgL_arg1410z00_787 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4805); } 
{ /* ./Llib/intext.scm 293 */
int BgL_auxz00_4810;int BgL_auxz00_4808;
BgL_auxz00_4810 = 
(int)(BgL_arg1410z00_787); 
BgL_auxz00_4808 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_arg1406z00_785 = 
c_substring(BgL_sz00_4335, BgL_auxz00_4808, BgL_auxz00_4810); } } 
BgL_resz00_784 = 
BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1406z00_785, BNIL); } 
{ /* ./Llib/intext.scm 293 */

{ /* ./Llib/intext.scm 296 */
long BgL_auxz00_4814;
BgL_auxz00_4814 = 
(long)(BgL_taillez00_783); 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4814); } 
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_4335); 
{ /* ./Llib/intext.scm 299 */
obj_t BgL_resz00_778;
{ /* ./Llib/intext.scm 302 */
obj_t BgL_arg1393z00_779;
{ /* ./Llib/intext.scm 302 */
long BgL_arg1397z00_781;
{ /* ./Llib/intext.scm 302 */
long BgL_auxz00_4818;
BgL_auxz00_4818 = 
(long)(BgL_taillez00_777); 
BgL_arg1397z00_781 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4818); } 
{ /* ./Llib/intext.scm 300 */
int BgL_auxz00_4823;int BgL_auxz00_4821;
BgL_auxz00_4823 = 
(int)(BgL_arg1397z00_781); 
BgL_auxz00_4821 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_arg1393z00_779 = 
c_substring(BgL_sz00_4335, BgL_auxz00_4821, BgL_auxz00_4823); } } 
BgL_resz00_778 = 
BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1393z00_779, BNIL); } 
{ /* ./Llib/intext.scm 300 */

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

BgL_sz00_701 = BgL_sz00_4335; 
BgL_converterz00_702 = BGl_za2stringzd2ze3procedureza2z31zz__intextz00; 
BgL_zc3anonymousza31225za3llibzf2intextze2scmza3270ze3z93_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_arg1238z00_710;
{ /* ./Llib/intext.scm 387 */
long BgL_auxz00_4831;
BgL_auxz00_4831 = 
(long)(BgL_taillez00_704); 
BgL_arg1238z00_710 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_4831); } 
{ /* ./Llib/intext.scm 387 */
int BgL_auxz00_4836;int BgL_auxz00_4834;
BgL_auxz00_4836 = 
(int)(BgL_arg1238z00_710); 
BgL_auxz00_4834 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_resz00_705 = 
c_substring(BgL_sz00_701, BgL_auxz00_4834, BgL_auxz00_4836); } } 
{ /* ./Llib/intext.scm 387 */

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

{ 
obj_t BgL_converterz00_4855;obj_t BgL_sz00_4854;
BgL_sz00_4854 = BgL_sz00_4335; 
BgL_converterz00_4855 = BGl_za2stringzd2ze3processza2z31zz__intextz00; 
BgL_converterz00_702 = BgL_converterz00_4855; 
BgL_sz00_701 = BgL_sz00_4854; 
goto BgL_zc3anonymousza31225za3llibzf2intextze2scmza3270ze3z93_703;} break;case ((unsigned char)'o') : 

{ 
obj_t BgL_converterz00_4857;obj_t BgL_sz00_4856;
BgL_sz00_4856 = BgL_sz00_4335; 
BgL_converterz00_4857 = BGl_za2stringzd2ze3opaqueza2z31zz__intextz00; 
BgL_converterz00_702 = BgL_converterz00_4857; 
BgL_sz00_701 = BgL_sz00_4856; 
goto BgL_zc3anonymousza31225za3llibzf2intextze2scmza3270ze3z93_703;} break;
default: 
{ /* ./Llib/intext.scm 427 */
int BgL_auxz00_4858;
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00-((long)1)); 
BgL_auxz00_4858 = 
BGl_readzd2taillezd2zz__intextz00(BgL_sz00_4335); 
return 
BINT(BgL_auxz00_4858);} } } } } } 
}



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



/* 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_symbol3880z00_4229;
BgL_symbol3880z00_4229 = BGl_symbol4868z00zz__intextz00; 
{ /* ./Llib/intext.scm 493 */

PUSH_TRACE(BgL_symbol3880z00_4229); BUNSPEC; 
{ /* ./Llib/intext.scm 493 */
obj_t BgL_aux3879z00_4230;
{ /* ./Llib/intext.scm 493 */
obj_t BgL_newz00_840;
{ /* ./Llib/intext.scm 493 */
int BgL_auxz00_4865;
BgL_auxz00_4865 = 
(int)(((long)6)); 
BgL_newz00_840 = 
make_struct(BGl_symbol4869z00zz__intextz00, BgL_auxz00_4865, BNIL); } 
{ /* ./Llib/intext.scm 494 */
int BgL_auxz00_4868;
BgL_auxz00_4868 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_840, BgL_auxz00_4868, BgL_pairz00_38); } 
{ /* ./Llib/intext.scm 495 */
obj_t BgL_auxz00_4873;int BgL_auxz00_4871;
BgL_auxz00_4873 = 
CDR(BgL_pairz00_38); 
BgL_auxz00_4871 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_840, BgL_auxz00_4871, BgL_auxz00_4873); } 
{ /* ./Llib/intext.scm 496 */
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_840, BgL_auxz00_4876, BgL_auxz00_4878); } 
{ /* ./Llib/intext.scm 497 */
int BgL_auxz00_4881;
BgL_auxz00_4881 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_840, BgL_auxz00_4881, BFALSE); } 
SET_CDR(BgL_pairz00_38, BgL_newz00_840); 
BgL_aux3879z00_4230 = BgL_newz00_840; } 
POP_TRACE(); 
return BgL_aux3879z00_4230;} } } } 
}



/* 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_symbol3884z00_4231;
BgL_symbol3884z00_4231 = BGl_symbol4870z00zz__intextz00; 
{ /* ./Llib/intext.scm 559 */

PUSH_TRACE(BgL_symbol3884z00_4231); BUNSPEC; 
{ /* ./Llib/intext.scm 559 */
obj_t BgL_aux3883z00_4232;
{ /* ./Llib/intext.scm 559 */
obj_t BgL_newz00_851;
{ /* ./Llib/intext.scm 559 */
int BgL_auxz00_4887;
BgL_auxz00_4887 = 
(int)(((long)6)); 
BgL_newz00_851 = 
make_struct(BGl_symbol4869z00zz__intextz00, BgL_auxz00_4887, BNIL); } 
{ /* ./Llib/intext.scm 560 */
int BgL_auxz00_4890;
BgL_auxz00_4890 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_851, BgL_auxz00_4890, BgL_cellz00_46); } 
{ /* ./Llib/intext.scm 561 */
obj_t BgL_auxz00_4895;int BgL_auxz00_4893;
BgL_auxz00_4895 = 
CELL_REF(BgL_cellz00_46); 
BgL_auxz00_4893 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_851, BgL_auxz00_4893, BgL_auxz00_4895); } 
{ /* ./Llib/intext.scm 562 */
obj_t BgL_auxz00_4900;int BgL_auxz00_4898;
BgL_auxz00_4900 = 
BINT(((long)0)); 
BgL_auxz00_4898 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_851, BgL_auxz00_4898, BgL_auxz00_4900); } 
{ /* ./Llib/intext.scm 563 */
int BgL_auxz00_4903;
BgL_auxz00_4903 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_851, BgL_auxz00_4903, BFALSE); } 
CELL_SET(BgL_cellz00_46, BgL_newz00_851); 
BgL_aux3883z00_4232 = BgL_newz00_851; } 
POP_TRACE(); 
return BgL_aux3883z00_4232;} } } } 
}



/* 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_symbol3888z00_4233;
BgL_symbol3888z00_4233 = BGl_symbol4871z00zz__intextz00; 
{ /* ./Llib/intext.scm 600 */

PUSH_TRACE(BgL_symbol3888z00_4233); BUNSPEC; 
{ /* ./Llib/intext.scm 600 */
obj_t BgL_aux3887z00_4234;
{ /* ./Llib/intext.scm 600 */
obj_t BgL_newz00_855;
{ /* ./Llib/intext.scm 600 */
int BgL_auxz00_4909;
BgL_auxz00_4909 = 
(int)(((long)6)); 
BgL_newz00_855 = 
make_struct(BGl_symbol4869z00zz__intextz00, BgL_auxz00_4909, BNIL); } 
{ /* ./Llib/intext.scm 601 */
int BgL_auxz00_4912;
BgL_auxz00_4912 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_855, BgL_auxz00_4912, BgL_ptrz00_50); } 
{ /* ./Llib/intext.scm 602 */
obj_t BgL_auxz00_4917;int BgL_auxz00_4915;
BgL_auxz00_4917 = 
BINT(((long)0)); 
BgL_auxz00_4915 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_855, BgL_auxz00_4915, BgL_auxz00_4917); } 
{ /* ./Llib/intext.scm 603 */
int BgL_auxz00_4920;
BgL_auxz00_4920 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_855, BgL_auxz00_4920, BFALSE); } 
{ /* ./Llib/intext.scm 604 */
int BgL_arg1563z00_856;
BgL_arg1563z00_856 = 
STRING_LENGTH(BgL_ptrz00_50); 
{ /* ./Llib/intext.scm 604 */
obj_t BgL_auxz00_4926;int BgL_auxz00_4924;
BgL_auxz00_4926 = 
BINT(BgL_arg1563z00_856); 
BgL_auxz00_4924 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_855, BgL_auxz00_4924, BgL_auxz00_4926); } } 
{ /* ./Llib/intext.scm 605 */
obj_t BgL_arg1567z00_857;
BgL_arg1567z00_857 = 
MAKE_PAIR(BgL_ptrz00_50, BgL_newz00_855); 
BGl_putzd2hashz12zc0zz__hashz00(BgL_arg1567z00_857, BGl_za2stringzd2markzd2tableza2z00zz__intextz00); } 
MARK_INTEXT_STRING(BgL_ptrz00_50); 
BgL_aux3887z00_4234 = BgL_newz00_855; } 
POP_TRACE(); 
return BgL_aux3887z00_4234;} } } } 
}



/* get-string-mark */
obj_t BGl_getzd2stringzd2markz00zz__intextz00(obj_t BgL_ptrz00_52)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 618 */
{ /* ./Llib/intext.scm 619 */
obj_t BgL_symbol3892z00_4235;
BgL_symbol3892z00_4235 = BGl_symbol4872z00zz__intextz00; 
{ /* ./Llib/intext.scm 619 */

PUSH_TRACE(BgL_symbol3892z00_4235); BUNSPEC; 
{ /* ./Llib/intext.scm 619 */
obj_t BgL_aux3891z00_4236;
{ /* ./Llib/intext.scm 619 */
obj_t BgL_cellz00_859;
BgL_cellz00_859 = 
BGl_getzd2hashzd2zz__hashz00(BgL_ptrz00_52, BGl_za2stringzd2markzd2tableza2z00zz__intextz00); 
if(
PAIRP(BgL_cellz00_859))
{ /* ./Llib/intext.scm 620 */
BgL_aux3891z00_4236 = 
CDR(BgL_cellz00_859); }  else 
{ /* ./Llib/intext.scm 620 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4847z00zz__intextz00, BGl_string4873z00zz__intextz00, BUNSPEC, "./Llib/intext.scm", ((long)24006)); 
BgL_aux3891z00_4236 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4845z00zz__intextz00, 
BINT(((long)24042))); } } 
POP_TRACE(); 
return BgL_aux3891z00_4236;} } } } 
}



/* 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_symbol3896z00_4237;
BgL_symbol3896z00_4237 = BGl_symbol4874z00zz__intextz00; 
{ /* ./Llib/intext.scm 634 */

PUSH_TRACE(BgL_symbol3896z00_4237); BUNSPEC; 
{ /* ./Llib/intext.scm 634 */
obj_t BgL_aux3895z00_4238;
{ /* ./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_4943;
BgL_auxz00_4943 = 
(int)(((long)6)); 
BgL_newz00_863 = 
make_struct(BGl_symbol4869z00zz__intextz00, BgL_auxz00_4943, BNIL); } 
BgL_hashz00_864 = 
BGl_getzd2customzd2hashzd2tablezd2zz__intextz00(); 
BgL_idz00_865 = 
CUSTOM_IDENTIFIER(BgL_ptrz00_54); 
{ /* ./Llib/intext.scm 637 */
int BgL_auxz00_4948;
BgL_auxz00_4948 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_863, BgL_auxz00_4948, BgL_ptrz00_54); } 
{ /* ./Llib/intext.scm 638 */
obj_t BgL_auxz00_4953;int BgL_auxz00_4951;
BgL_auxz00_4953 = 
BINT(((long)0)); 
BgL_auxz00_4951 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_863, BgL_auxz00_4951, BgL_auxz00_4953); } 
{ /* ./Llib/intext.scm 639 */
int BgL_auxz00_4956;
BgL_auxz00_4956 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_863, BgL_auxz00_4956, BFALSE); } 
{ /* ./Llib/intext.scm 640 */
obj_t BgL_auxz00_4961;int BgL_auxz00_4959;
BgL_auxz00_4961 = 
string_to_bstring(BgL_idz00_865); 
BgL_auxz00_4959 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_863, BgL_auxz00_4959, BgL_auxz00_4961); } 
{ /* ./Llib/intext.scm 641 */
obj_t BgL_arg1590z00_866;
BgL_arg1590z00_866 = 
MAKE_PAIR(BgL_ptrz00_54, BgL_newz00_863); 
BGl_putzd2hashz12zc0zz__hashz00(BgL_arg1590z00_866, BgL_hashz00_864); } 
CUSTOM_IDENTIFIER_SET(BgL_newz00_863, ""); 
BgL_aux3895z00_4238 = BgL_newz00_863; } 
POP_TRACE(); 
return BgL_aux3895z00_4238;} } } } 
}



/* 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_symbol3900z00_4239;
BgL_symbol3900z00_4239 = BGl_symbol4875z00zz__intextz00; 
{ /* ./Llib/intext.scm 657 */

PUSH_TRACE(BgL_symbol3900z00_4239); BUNSPEC; 
{ /* ./Llib/intext.scm 657 */
obj_t BgL_aux3899z00_4240;
{ /* ./Llib/intext.scm 657 */
obj_t BgL_cellz00_870;
BgL_cellz00_870 = 
BGl_getzd2hashzd2zz__hashz00(BgL_ptrz00_56, 
BGl_getzd2customzd2hashzd2tablezd2zz__intextz00()); 
if(
PAIRP(BgL_cellz00_870))
{ /* ./Llib/intext.scm 658 */
BgL_aux3899z00_4240 = 
CDR(BgL_cellz00_870); }  else 
{ /* ./Llib/intext.scm 658 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4847z00zz__intextz00, BGl_string4876z00zz__intextz00, BUNSPEC, "./Llib/intext.scm", ((long)25650)); 
BgL_aux3899z00_4240 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4845z00zz__intextz00, 
BINT(((long)25686))); } } 
POP_TRACE(); 
return BgL_aux3899z00_4240;} } } } 
}



/* get-custom-hash-table */
obj_t BGl_getzd2customzd2hashzd2tablezd2zz__intextz00()
{ AN_OBJECT;
{ /* ./Llib/intext.scm 670 */
{ /* ./Llib/intext.scm 671 */
obj_t BgL_symbol3904z00_4241;
BgL_symbol3904z00_4241 = BGl_symbol4877z00zz__intextz00; 
{ /* ./Llib/intext.scm 671 */

PUSH_TRACE(BgL_symbol3904z00_4241); BUNSPEC; 
{ /* ./Llib/intext.scm 671 */
obj_t BgL_aux3903z00_4242;
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_proc4878z00zz__intextz00, BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00, BNIL); } 
BgL_aux3903z00_4242 = BGl_za2customzd2markzd2tableza2z00zz__intextz00; 
POP_TRACE(); 
return BgL_aux3903z00_4242;} } } } 
}



/* <anonymous:1618:Llib/intext.scm:673> */
obj_t BGl_zc3anonymousza31618za3Llibzf2intextze2scmza3673ze3z93zz__intextz00(obj_t BgL_envz00_4306, obj_t BgL_cz00_4307)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 674 */
{ 
obj_t BgL_cz00_877;
BgL_cz00_877 = BgL_cz00_4307; 
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_symbol3908z00_4243;
BgL_symbol3908z00_4243 = BGl_symbol4879z00zz__intextz00; 
{ /* ./Llib/intext.scm 692 */

PUSH_TRACE(BgL_symbol3908z00_4243); BUNSPEC; 
{ /* ./Llib/intext.scm 692 */
obj_t BgL_aux3907z00_4244;
{ /* ./Llib/intext.scm 692 */
obj_t BgL_newz00_880;
{ /* ./Llib/intext.scm 692 */
int BgL_auxz00_4986;
BgL_auxz00_4986 = 
(int)(((long)6)); 
BgL_newz00_880 = 
make_struct(BGl_symbol4869z00zz__intextz00, BgL_auxz00_4986, BNIL); } 
{ /* ./Llib/intext.scm 693 */
int BgL_auxz00_4989;
BgL_auxz00_4989 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_880, BgL_auxz00_4989, BgL_ptrz00_58); } 
{ /* ./Llib/intext.scm 694 */
obj_t BgL_auxz00_4994;int BgL_auxz00_4992;
BgL_auxz00_4994 = 
BINT(((long)0)); 
BgL_auxz00_4992 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_880, BgL_auxz00_4992, BgL_auxz00_4994); } 
{ /* ./Llib/intext.scm 695 */
int BgL_auxz00_4997;
BgL_auxz00_4997 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_880, BgL_auxz00_4997, BFALSE); } 
{ /* ./Llib/intext.scm 696 */
int BgL_arg1626z00_881;
BgL_arg1626z00_881 = 
UCS2_STRING_LENGTH(BgL_ptrz00_58); 
{ /* ./Llib/intext.scm 696 */
obj_t BgL_auxz00_5003;int BgL_auxz00_5001;
BgL_auxz00_5003 = 
BINT(BgL_arg1626z00_881); 
BgL_auxz00_5001 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_880, BgL_auxz00_5001, BgL_auxz00_5003); } } 
{ /* ./Llib/intext.scm 697 */
obj_t BgL_auxz00_5008;int BgL_auxz00_5006;
BgL_auxz00_5008 = 
ucs2_string_to_utf8_string(BgL_ptrz00_58); 
BgL_auxz00_5006 = 
(int)(((long)5)); 
STRUCT_SET(BgL_newz00_880, BgL_auxz00_5006, BgL_auxz00_5008); } 
{ /* ./Llib/intext.scm 698 */
obj_t BgL_arg1634z00_883;
BgL_arg1634z00_883 = 
MAKE_PAIR(BgL_ptrz00_58, BgL_newz00_880); 
BGl_putzd2hashz12zc0zz__hashz00(BgL_arg1634z00_883, BGl_za2stringzd2markzd2tableza2z00zz__intextz00); } 
MARK_INTEXT_UCS2_STRING(BgL_ptrz00_58); 
BgL_aux3907z00_4244 = BgL_newz00_880; } 
POP_TRACE(); 
return BgL_aux3907z00_4244;} } } } 
}



/* 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_symbol3912z00_4245;
BgL_symbol3912z00_4245 = BGl_symbol4880z00zz__intextz00; 
{ /* ./Llib/intext.scm 712 */

PUSH_TRACE(BgL_symbol3912z00_4245); BUNSPEC; 
{ /* ./Llib/intext.scm 712 */
obj_t BgL_aux3911z00_4246;
{ /* ./Llib/intext.scm 712 */
obj_t BgL_cellz00_885;
BgL_cellz00_885 = 
BGl_getzd2hashzd2zz__hashz00(BgL_ptrz00_60, BGl_za2stringzd2markzd2tableza2z00zz__intextz00); 
if(
PAIRP(BgL_cellz00_885))
{ /* ./Llib/intext.scm 713 */
BgL_aux3911z00_4246 = 
CDR(BgL_cellz00_885); }  else 
{ /* ./Llib/intext.scm 713 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4847z00zz__intextz00, BGl_string4881z00zz__intextz00, BUNSPEC, "./Llib/intext.scm", ((long)28189)); 
BgL_aux3911z00_4246 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4845z00zz__intextz00, 
BINT(((long)28230))); } } 
POP_TRACE(); 
return BgL_aux3911z00_4246;} } } } 
}



/* 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_symbol3916z00_4247;
BgL_symbol3916z00_4247 = BGl_symbol4882z00zz__intextz00; 
{ /* ./Llib/intext.scm 734 */

PUSH_TRACE(BgL_symbol3916z00_4247); BUNSPEC; 
{ /* ./Llib/intext.scm 734 */
obj_t BgL_aux3915z00_4248;
{ /* ./Llib/intext.scm 734 */
obj_t BgL_newz00_890;
{ /* ./Llib/intext.scm 734 */
int BgL_auxz00_5025;
BgL_auxz00_5025 = 
(int)(((long)6)); 
BgL_newz00_890 = 
make_struct(BGl_symbol4869z00zz__intextz00, BgL_auxz00_5025, BNIL); } 
{ /* ./Llib/intext.scm 735 */
int BgL_auxz00_5028;
BgL_auxz00_5028 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_890, BgL_auxz00_5028, BgL_ptrz00_63); } 
{ /* ./Llib/intext.scm 736 */
obj_t BgL_auxz00_5033;int BgL_auxz00_5031;
{ 
int BgL_auxz00_5034;
BgL_auxz00_5034 = 
(int)(((long)0)); 
BgL_auxz00_5033 = 
VECTOR_REF(BgL_ptrz00_63,BgL_auxz00_5034); } 
BgL_auxz00_5031 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_890, BgL_auxz00_5031, BgL_auxz00_5033); } 
{ /* ./Llib/intext.scm 737 */
obj_t BgL_auxz00_5040;int BgL_auxz00_5038;
BgL_auxz00_5040 = 
BINT(((long)0)); 
BgL_auxz00_5038 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_890, BgL_auxz00_5038, BgL_auxz00_5040); } 
{ /* ./Llib/intext.scm 738 */
int BgL_auxz00_5043;
BgL_auxz00_5043 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_890, BgL_auxz00_5043, BFALSE); } 
{ 
int BgL_auxz00_5046;
BgL_auxz00_5046 = 
(int)(((long)0)); 
VECTOR_SET(BgL_ptrz00_63,BgL_auxz00_5046,BgL_newz00_890); } 
BgL_aux3915z00_4248 = BgL_newz00_890; } 
POP_TRACE(); 
return BgL_aux3915z00_4248;} } } } 
}



/* 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_symbol3920z00_4249;
BgL_symbol3920z00_4249 = BGl_symbol4883z00zz__intextz00; 
{ /* ./Llib/intext.scm 769 */

PUSH_TRACE(BgL_symbol3920z00_4249); BUNSPEC; 
{ /* ./Llib/intext.scm 769 */
obj_t BgL_aux3919z00_4250;
{ /* ./Llib/intext.scm 769 */
obj_t BgL_newz00_894;
{ /* ./Llib/intext.scm 769 */
int BgL_auxz00_5051;
BgL_auxz00_5051 = 
(int)(((long)6)); 
BgL_newz00_894 = 
make_struct(BGl_symbol4869z00zz__intextz00, BgL_auxz00_5051, BNIL); } 
{ /* ./Llib/intext.scm 770 */
int BgL_auxz00_5054;
BgL_auxz00_5054 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_894, BgL_auxz00_5054, BgL_ptrz00_67); } 
{ /* ./Llib/intext.scm 771 */
int BgL_auxz00_5057;
BgL_auxz00_5057 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_894, BgL_auxz00_5057, BUNSPEC); } 
{ /* ./Llib/intext.scm 772 */
obj_t BgL_auxz00_5062;int BgL_auxz00_5060;
BgL_auxz00_5062 = 
BINT(((long)0)); 
BgL_auxz00_5060 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_894, BgL_auxz00_5060, BgL_auxz00_5062); } 
{ /* ./Llib/intext.scm 773 */
int BgL_auxz00_5065;
BgL_auxz00_5065 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_894, BgL_auxz00_5065, BFALSE); } 
{ /* ./Llib/intext.scm 774 */
int BgL_auxz00_5068;
BgL_auxz00_5068 = 
(int)(((long)5)); 
STRUCT_SET(BgL_newz00_894, BgL_auxz00_5068, BgL_vz00_68); } 
{ /* ./Llib/intext.scm 775 */
obj_t BgL_arg1678z00_895;
BgL_arg1678z00_895 = 
MAKE_PAIR(BgL_ptrz00_67, BgL_newz00_894); 
BGl_za2tvectorzd2tableza2zd2zz__intextz00 = 
MAKE_PAIR(BgL_arg1678z00_895, BGl_za2tvectorzd2tableza2zd2zz__intextz00); } 
BgL_aux3919z00_4250 = BgL_newz00_894; } 
POP_TRACE(); 
return BgL_aux3919z00_4250;} } } } 
}



/* 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_symbol3924z00_4251;
BgL_symbol3924z00_4251 = BGl_symbol4884z00zz__intextz00; 
{ /* ./Llib/intext.scm 807 */

PUSH_TRACE(BgL_symbol3924z00_4251); BUNSPEC; 
{ /* ./Llib/intext.scm 807 */
obj_t BgL_aux3923z00_4252;
{ /* ./Llib/intext.scm 807 */
obj_t BgL_newz00_902;
{ /* ./Llib/intext.scm 807 */
int BgL_auxz00_5075;
BgL_auxz00_5075 = 
(int)(((long)6)); 
BgL_newz00_902 = 
make_struct(BGl_symbol4869z00zz__intextz00, BgL_auxz00_5075, BNIL); } 
{ /* ./Llib/intext.scm 808 */
int BgL_auxz00_5078;
BgL_auxz00_5078 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_902, BgL_auxz00_5078, BgL_ptrz00_73); } 
{ /* ./Llib/intext.scm 809 */
obj_t BgL_arg1702z00_903;
BgL_arg1702z00_903 = 
STRUCT_KEY(BgL_ptrz00_73); 
{ /* ./Llib/intext.scm 809 */
int BgL_auxz00_5082;
BgL_auxz00_5082 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_902, BgL_auxz00_5082, BgL_arg1702z00_903); } } 
{ /* ./Llib/intext.scm 810 */
obj_t BgL_auxz00_5087;int BgL_auxz00_5085;
BgL_auxz00_5087 = 
BINT(((long)0)); 
BgL_auxz00_5085 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_902, BgL_auxz00_5085, BgL_auxz00_5087); } 
{ /* ./Llib/intext.scm 811 */
int BgL_auxz00_5090;
BgL_auxz00_5090 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_902, BgL_auxz00_5090, BFALSE); } 
STRUCT_KEY_SET(BgL_ptrz00_73, BgL_newz00_902); 
BgL_aux3923z00_4252 = BgL_newz00_902; } 
POP_TRACE(); 
return BgL_aux3923z00_4252;} } } } 
}



/* 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_symbol3928z00_4253;
BgL_symbol3928z00_4253 = BGl_symbol4885z00zz__intextz00; 
{ /* ./Llib/intext.scm 831 */

PUSH_TRACE(BgL_symbol3928z00_4253); BUNSPEC; 
{ /* ./Llib/intext.scm 831 */
obj_t BgL_aux3927z00_4254;
{ /* ./Llib/intext.scm 831 */
obj_t BgL_newz00_906;
{ /* ./Llib/intext.scm 831 */
int BgL_auxz00_5096;
BgL_auxz00_5096 = 
(int)(((long)6)); 
BgL_newz00_906 = 
make_struct(BGl_symbol4869z00zz__intextz00, BgL_auxz00_5096, BNIL); } 
{ /* ./Llib/intext.scm 832 */
int BgL_auxz00_5099;
BgL_auxz00_5099 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_906, BgL_auxz00_5099, BgL_ptrz00_76); } 
{ /* ./Llib/intext.scm 833 */
obj_t BgL_arg1717z00_907;
{ /* ./Llib/intext.scm 833 */
BgL_objectz00_bglt BgL_auxz00_5102;
BgL_auxz00_5102 = 
(BgL_objectz00_bglt)(BgL_ptrz00_76); 
BgL_arg1717z00_907 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5102); } 
{ /* ./Llib/intext.scm 833 */
int BgL_auxz00_5105;
BgL_auxz00_5105 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_906, BgL_auxz00_5105, BgL_arg1717z00_907); } } 
{ /* ./Llib/intext.scm 834 */
int BgL_auxz00_5108;
BgL_auxz00_5108 = 
(int)(((long)5)); 
STRUCT_SET(BgL_newz00_906, BgL_auxz00_5108, BgL_structz00_77); } 
{ /* ./Llib/intext.scm 835 */
obj_t BgL_auxz00_5113;int BgL_auxz00_5111;
BgL_auxz00_5113 = 
BINT(((long)0)); 
BgL_auxz00_5111 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_906, BgL_auxz00_5111, BgL_auxz00_5113); } 
{ /* ./Llib/intext.scm 836 */
int BgL_auxz00_5116;
BgL_auxz00_5116 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_906, BgL_auxz00_5116, BFALSE); } 
{ /* ./Llib/intext.scm 837 */
BgL_objectz00_bglt BgL_auxz00_5119;
BgL_auxz00_5119 = 
(BgL_objectz00_bglt)(BgL_ptrz00_76); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5119, BgL_newz00_906); } 
BgL_aux3927z00_4254 = BgL_newz00_906; } 
POP_TRACE(); 
return BgL_aux3927z00_4254;} } } } 
}



/* taille-du-mot */
long BGl_taillezd2duzd2motz00zz__intextz00(obj_t BgL_mz00_82)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 873 */
{ /* ./Llib/intext.scm 874 */
obj_t BgL_symbol3932z00_4255;
BgL_symbol3932z00_4255 = BGl_symbol4886z00zz__intextz00; 
{ /* ./Llib/intext.scm 874 */

PUSH_TRACE(BgL_symbol3932z00_4255); BUNSPEC; 
{ /* ./Llib/intext.scm 874 */
long BgL_aux3931z00_4256;
{ 
long BgL_taillez00_2505;obj_t BgL_mz00_2506;
BgL_taillez00_2505 = ((long)0); 
BgL_mz00_2506 = BgL_mz00_82; 
BgL_loopz00_2504:
{ /* ./Llib/intext.scm 874 */
bool_t BgL_testz00_5124;
{ /* ./Llib/intext.scm 874 */
long BgL_auxz00_5125;
BgL_auxz00_5125 = 
(long)CINT(BgL_mz00_2506); 
BgL_testz00_5124 = 
(BgL_auxz00_5125==((long)0)); } 
if(BgL_testz00_5124)
{ /* ./Llib/intext.scm 874 */
BgL_aux3931z00_4256 = BgL_taillez00_2505; }  else 
{ 
obj_t BgL_mz00_5130;long BgL_taillez00_5128;
BgL_taillez00_5128 = 
(BgL_taillez00_2505+((long)1)); 
{ /* ./Llib/intext.scm 874 */
long BgL_auxz00_5131;
{ /* ./Llib/intext.scm 874 */
int BgL_auxz00_5134;long BgL_auxz00_5132;
BgL_auxz00_5134 = 
(int)(((long)8)); 
BgL_auxz00_5132 = 
(long)CINT(BgL_mz00_2506); 
BgL_auxz00_5131 = 
(BgL_auxz00_5132 >> BgL_auxz00_5134); } 
BgL_mz00_5130 = 
BINT(BgL_auxz00_5131); } 
BgL_mz00_2506 = BgL_mz00_5130; 
BgL_taillez00_2505 = BgL_taillez00_5128; 
goto BgL_loopz00_2504;} } } 
POP_TRACE(); 
return BgL_aux3931z00_4256;} } } } 
}



/* print-marqueur */
obj_t BGl_printzd2marqueurzd2zz__intextz00(unsigned char BgL_cz00_83)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 884 */
{ /* ./Llib/intext.scm 885 */
obj_t BgL_symbol3936z00_4257;
BgL_symbol3936z00_4257 = BGl_symbol4887z00zz__intextz00; 
{ /* ./Llib/intext.scm 885 */

PUSH_TRACE(BgL_symbol3936z00_4257); BUNSPEC; 
{ /* ./Llib/intext.scm 885 */
obj_t BgL_aux3935z00_4258;
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 886 */
int BgL_auxz00_5142;
BgL_auxz00_5142 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5142, BgL_cz00_83); } 
BgL_aux3935z00_4258 = ( 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)), BUNSPEC) ; 
POP_TRACE(); 
return BgL_aux3935z00_4258;} } } } 
}



/* print-mot */
obj_t BGl_printzd2motzd2zz__intextz00(obj_t BgL_mz00_85)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 898 */
{ /* ./Llib/intext.scm 899 */
obj_t BgL_symbol3940z00_4259;
BgL_symbol3940z00_4259 = BGl_symbol4888z00zz__intextz00; 
{ /* ./Llib/intext.scm 899 */

PUSH_TRACE(BgL_symbol3940z00_4259); BUNSPEC; 
{ /* ./Llib/intext.scm 899 */
obj_t BgL_aux3939z00_4260;
{ /* ./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 */
BgL_aux3939z00_4260 = 
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 */
BgL_aux3939z00_4260 = BGl_symbol4862z00zz__intextz00; }  else 
{ /* ./Llib/intext.scm 905 */
{ /* ./Llib/intext.scm 908 */
long BgL_dz00_926;
{ /* ./Llib/intext.scm 908 */
long BgL_auxz00_5157;
{ /* ./Llib/intext.scm 908 */
int BgL_auxz00_5160;long BgL_auxz00_5158;
{ /* ./Llib/intext.scm 908 */
long BgL_auxz00_5161;
BgL_auxz00_5161 = 
(((long)8)*BgL_iz00_922); 
BgL_auxz00_5160 = 
(int)(BgL_auxz00_5161); } 
BgL_auxz00_5158 = 
(long)CINT(BgL_mz00_85); 
BgL_auxz00_5157 = 
(BgL_auxz00_5158 >> BgL_auxz00_5160); } 
BgL_dz00_926 = 
(BgL_auxz00_5157 & ((long)255)); } 
BGl_printzd2marqueurzd2zz__intextz00(
(BgL_dz00_926)); 
{ 
long BgL_iz00_5168;
BgL_iz00_5168 = 
(BgL_iz00_922-((long)1)); 
BgL_iz00_922 = BgL_iz00_5168; 
goto BgL_loopz00_923;} } } } } } 
POP_TRACE(); 
return BgL_aux3939z00_4260;} } } } 
}



/* print-di */
obj_t BGl_printzd2dizd2zz__intextz00(long BgL_iz00_86)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 917 */
{ /* ./Llib/intext.scm 918 */
obj_t BgL_symbol3944z00_4261;
BgL_symbol3944z00_4261 = BGl_symbol4889z00zz__intextz00; 
{ /* ./Llib/intext.scm 918 */

PUSH_TRACE(BgL_symbol3944z00_4261); BUNSPEC; 
{ /* ./Llib/intext.scm 918 */
obj_t BgL_aux3943z00_4262;
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
if(
(BgL_iz00_86<((long)0)))
{ /* ./Llib/intext.scm 919 */
{ /* ./Llib/intext.scm 921 */
int BgL_auxz00_5177;
BgL_auxz00_5177 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5177, ((unsigned char)'-')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 923 */
long BgL_arg1786z00_932;
BgL_arg1786z00_932 = 
NEG(BgL_iz00_86); 
BgL_aux3943z00_4262 = 
BGl_printzd2motzd2zz__intextz00(
BINT(BgL_arg1786z00_932)); } }  else 
{ /* ./Llib/intext.scm 919 */
BgL_aux3943z00_4262 = 
BGl_printzd2motzd2zz__intextz00(
BINT(BgL_iz00_86)); } 
POP_TRACE(); 
return BgL_aux3943z00_4262;} } } } 
}



/* print-chars */
obj_t BGl_printzd2charszd2zz__intextz00(obj_t BgL_sz00_87, obj_t BgL_taillez00_88)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 929 */
{ /* ./Llib/intext.scm 930 */
obj_t BgL_symbol3948z00_4263;
BgL_symbol3948z00_4263 = BGl_symbol4890z00zz__intextz00; 
{ /* ./Llib/intext.scm 930 */

PUSH_TRACE(BgL_symbol3948z00_4263); BUNSPEC; 
{ /* ./Llib/intext.scm 930 */
obj_t BgL_aux3947z00_4264;
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(BgL_taillez00_88); 
BGl_printzd2motzd2zz__intextz00(BgL_taillez00_88); 
{ /* ./Llib/intext.scm 933 */
int BgL_auxz00_5194;int BgL_auxz00_5192;int BgL_auxz00_5190;
BgL_auxz00_5194 = 
CINT(BgL_taillez00_88); 
BgL_auxz00_5192 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_auxz00_5190 = 
(int)(((long)0)); 
blit_string(BgL_sz00_87, BgL_auxz00_5190, BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5192, BgL_auxz00_5194); } 
{ /* ./Llib/intext.scm 934 */
long BgL_auxz00_5197;
BgL_auxz00_5197 = 
(long)CINT(BgL_taillez00_88); 
BgL_aux3947z00_4264 = ( 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+BgL_auxz00_5197), BUNSPEC) ; } 
POP_TRACE(); 
return BgL_aux3947z00_4264;} } } } 
}



/* obj->string */
BGL_EXPORTED_DEF obj_t obj_to_string(obj_t BgL_objz00_96)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 989 */
{ /* ./Llib/intext.scm 990 */
obj_t BgL_symbol3952z00_4265;
BgL_symbol3952z00_4265 = BGl_symbol4891z00zz__intextz00; 
{ /* ./Llib/intext.scm 990 */

PUSH_TRACE(BgL_symbol3952z00_4265); BUNSPEC; 
{ /* ./Llib/intext.scm 990 */
obj_t BgL_aux3951z00_4266;
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_list1820z00_954;
{ /* ./Llib/intext.scm 994 */
obj_t BgL_auxz00_5202;
BgL_auxz00_5202 = 
BCHAR(((unsigned char)' ')); 
BgL_list1820z00_954 = 
MAKE_PAIR(BgL_auxz00_5202, BNIL); } 
{ /* ./Llib/intext.scm 994 */
obj_t BgL_res3785z00_2647;
{ /* ./Llib/intext.scm 994 */
int BgL_kz00_2641;
BgL_kz00_2641 = 
(int)(BGl_za2bufferzd2lenza2zd2zz__intextz00); 
{ /* ./Llib/intext.scm 994 */
obj_t BgL_arg3367z00_2644;
BgL_arg3367z00_2644 = 
CAR(BgL_list1820z00_954); 
{ /* ./Llib/intext.scm 994 */
unsigned char BgL_auxz00_5207;
BgL_auxz00_5207 = 
(unsigned char)CCHAR(BgL_arg3367z00_2644); 
BgL_res3785z00_2647 = 
make_string(BgL_kz00_2641, BgL_auxz00_5207); } } } 
BGl_za2bufferza2z00zz__intextz00 = BgL_res3785z00_2647; } } 
BGl_za2stringzd2markzd2tableza2z00zz__intextz00 = 
BGl_makezd2hashzd2tablez00zz__hashz00(((long)1024), BGl_proc4892z00zz__intextz00, BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00, BNIL); 
BGl_markzd2itemz12zc0zz__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_5216;
BgL_auxz00_5216 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5216, ((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_5224;int BgL_auxz00_5222;
BgL_auxz00_5224 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
BgL_auxz00_5222 = 
(int)(((long)0)); 
BgL_resz00_962 = 
c_substring(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5222, BgL_auxz00_5224); } 
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_string4829z00zz__intextz00; 
BgL_aux3951z00_4266 = BgL_resz00_962; } 
POP_TRACE(); 
return BgL_aux3951z00_4266;} } } } 
}



/* print-struct */
obj_t BGl_printzd2structzd2zz__intextz00(obj_t BgL_objz00_4333, 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_test2457z00_1191;
{ /* ./Llib/intext.scm 1070 */
obj_t BgL_arg2527z00_1215;
BgL_arg2527z00_1215 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1070 */
obj_t BgL_auxz00_5229;
{ /* ./Llib/intext.scm 1070 */
int BgL_auxz00_5230;
BgL_auxz00_5230 = 
(int)(((long)3)); 
BgL_auxz00_5229 = 
STRUCT_REF(BgL_arg2527z00_1215, BgL_auxz00_5230); } 
BgL_test2457z00_1191 = 
CBOOL(BgL_auxz00_5229); } } 
if(BgL_test2457z00_1191)
{ /* ./Llib/intext.scm 1070 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1071 */
int BgL_auxz00_5237;
BgL_auxz00_5237 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5237, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1072 */
obj_t BgL_arg2460z00_1192;
{ /* ./Llib/intext.scm 1072 */
obj_t BgL_arg2463z00_1193;
BgL_arg2463z00_1193 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1072 */
int BgL_auxz00_5242;
BgL_auxz00_5242 = 
(int)(((long)2)); 
BgL_arg2460z00_1192 = 
STRUCT_REF(BgL_arg2463z00_1193, BgL_auxz00_5242); } } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg2460z00_1192)); } 
{ /* ./Llib/intext.scm 1073 */
obj_t BgL_arg2467z00_1194;long BgL_arg2468z00_1195;
BgL_arg2467z00_1194 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1075 */
obj_t BgL_arg2472z00_1196;
{ /* ./Llib/intext.scm 1075 */
obj_t BgL_arg2476z00_1198;
BgL_arg2476z00_1198 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1074 */
int BgL_auxz00_5249;
BgL_auxz00_5249 = 
(int)(((long)4)); 
BgL_arg2472z00_1196 = 
STRUCT_REF(BgL_arg2476z00_1198, BgL_auxz00_5249); } } 
{ /* ./Llib/intext.scm 1074 */
long BgL_auxz00_5252;
BgL_auxz00_5252 = 
(long)CINT(BgL_arg2472z00_1196); 
BgL_arg2468z00_1195 = 
(BgL_auxz00_5252-((long)1)); } } 
{ /* ./Llib/intext.scm 1073 */
obj_t BgL_auxz00_5257;int BgL_auxz00_5255;
BgL_auxz00_5257 = 
BINT(BgL_arg2468z00_1195); 
BgL_auxz00_5255 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2467z00_1194, BgL_auxz00_5255, BgL_auxz00_5257); } } 
{ /* ./Llib/intext.scm 1077 */
bool_t BgL_test2479z00_1199;
{ /* ./Llib/intext.scm 1077 */
obj_t BgL_arg2482z00_1200;
{ /* ./Llib/intext.scm 1077 */
obj_t BgL_arg2486z00_1202;
BgL_arg2486z00_1202 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1077 */
int BgL_auxz00_5261;
BgL_auxz00_5261 = 
(int)(((long)4)); 
BgL_arg2482z00_1200 = 
STRUCT_REF(BgL_arg2486z00_1202, BgL_auxz00_5261); } } 
{ /* ./Llib/intext.scm 1077 */
long BgL_auxz00_5264;
BgL_auxz00_5264 = 
(long)CINT(BgL_arg2482z00_1200); 
BgL_test2479z00_1199 = 
(BgL_auxz00_5264==((long)0)); } } 
if(BgL_test2479z00_1199)
{ /* ./Llib/intext.scm 1078 */
obj_t BgL_oldzd2valuezd2_3588;
{ /* ./Llib/intext.scm 1078 */
obj_t BgL_arg1697z00_3589;
BgL_arg1697z00_3589 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1078 */
int BgL_auxz00_5269;
BgL_auxz00_5269 = 
(int)(((long)1)); 
BgL_oldzd2valuezd2_3588 = 
STRUCT_REF(BgL_arg1697z00_3589, BgL_auxz00_5269); } } 
return 
STRUCT_KEY_SET(BgL_itemz00_1189, BgL_oldzd2valuezd2_3588);}  else 
{ /* ./Llib/intext.scm 1077 */
return BFALSE;} } }  else 
{ /* ./Llib/intext.scm 1079 */
bool_t BgL_test2489z00_1203;
{ /* ./Llib/intext.scm 1079 */
obj_t BgL_arg2519z00_1212;
{ /* ./Llib/intext.scm 1079 */
obj_t BgL_arg2523z00_1214;
BgL_arg2523z00_1214 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1079 */
int BgL_auxz00_5274;
BgL_auxz00_5274 = 
(int)(((long)4)); 
BgL_arg2519z00_1212 = 
STRUCT_REF(BgL_arg2523z00_1214, BgL_auxz00_5274); } } 
{ /* ./Llib/intext.scm 1079 */
long BgL_auxz00_5277;
BgL_auxz00_5277 = 
(long)CINT(BgL_arg2519z00_1212); 
BgL_test2489z00_1203 = 
(BgL_auxz00_5277==((long)0)); } } 
if(BgL_test2489z00_1203)
{ /* ./Llib/intext.scm 1079 */
{ /* ./Llib/intext.scm 1080 */
obj_t BgL_oldzd2valuezd2_3601;
{ /* ./Llib/intext.scm 1080 */
obj_t BgL_arg1697z00_3602;
BgL_arg1697z00_3602 = 
STRUCT_KEY(BgL_itemz00_1189); 
{ /* ./Llib/intext.scm 1080 */
int BgL_auxz00_5282;
BgL_auxz00_5282 = 
(int)(((long)1)); 
BgL_oldzd2valuezd2_3601 = 
STRUCT_REF(BgL_arg1697z00_3602, BgL_auxz00_5282); } } 
STRUCT_KEY_SET(BgL_itemz00_1189, BgL_oldzd2valuezd2_3601); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1081 */
int BgL_auxz00_5288;
BgL_auxz00_5288 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5288, BgL_marqueurz00_1188); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1082 */
obj_t BgL_arg2493z00_1204;
BgL_arg2493z00_1204 = 
STRUCT_KEY(BgL_itemz00_1189); 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4333, BgL_arg2493z00_1204); } 
BgL_vz00_1270 = BgL_itemz00_1189; 
BgL_lenz00_1271 = 
STRUCT_LENGTH(BgL_itemz00_1189); 
BgL_zc3anonymousza32642za3llibzf2intextze2scmza3990ze3z93_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_5298;
{ /* ./Llib/intext.scm 1008 */
long BgL_auxz00_5299;
{ /* ./Llib/intext.scm 1008 */
long BgL_auxz00_5300;
BgL_auxz00_5300 = 
(long)(BgL_lenz00_1271); 
BgL_auxz00_5299 = 
(BgL_auxz00_5300-((long)1)); } 
BgL_testz00_5298 = 
(BgL_iz00_1273<=BgL_auxz00_5299); } 
if(BgL_testz00_5298)
{ /* ./Llib/intext.scm 1008 */
{ /* ./Llib/intext.scm 1009 */
obj_t BgL_auxz00_5304;
{ /* ./Llib/intext.scm 1009 */
int BgL_auxz00_5305;
BgL_auxz00_5305 = 
(int)(BgL_iz00_1273); 
BgL_auxz00_5304 = 
STRUCT_REF(BgL_vz00_1270, BgL_auxz00_5305); } 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4333, BgL_auxz00_5304); } 
{ 
long BgL_iz00_5309;
BgL_iz00_5309 = 
(BgL_iz00_1273+((long)1)); 
BgL_iz00_1273 = BgL_iz00_5309; 
goto BgL_for1015z00_1274;} }  else 
{ /* ./Llib/intext.scm 1008 */
return BGl_symbol4862z00zz__intextz00;} } } }  else 
{ /* ./Llib/intext.scm 1079 */
{ /* ./Llib/intext.scm 1085 */
long BgL_refz00_1206;
BgL_refz00_1206 = 
BGl_getzd2newzd2refz00zz__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_5315;
{ /* ./Llib/intext.scm 1092 */
int BgL_auxz00_5316;
BgL_auxz00_5316 = 
(int)(((long)1)); 
BgL_auxz00_5315 = 
STRUCT_REF(BgL_markz00_1207, BgL_auxz00_5316); } 
STRUCT_KEY_SET(BgL_itemz00_1189, BgL_auxz00_5315); } 
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_5324;int BgL_auxz00_5322;
BgL_auxz00_5324 = 
BINT(BgL_refz00_1206); 
BgL_auxz00_5322 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1207, BgL_auxz00_5322, BgL_auxz00_5324); } 
{ /* ./Llib/intext.scm 1097 */
int BgL_auxz00_5327;
BgL_auxz00_5327 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1207, BgL_auxz00_5327, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1098 */
int BgL_auxz00_5332;
BgL_auxz00_5332 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5332, ((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_5339;
BgL_auxz00_5339 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5339, BgL_marqueurz00_1188); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4333, BgL_keyz00_1209); 
{ 
int BgL_lenz00_5345;obj_t BgL_vz00_5344;
BgL_vz00_5344 = BgL_itemz00_1189; 
BgL_lenz00_5345 = BgL_lenz00_1208; 
BgL_lenz00_1271 = BgL_lenz00_5345; 
BgL_vz00_1270 = BgL_vz00_5344; 
goto BgL_zc3anonymousza32642za3llibzf2intextze2scmza3990ze3z93_1272;} } } } } } } } } } } 
}



/* get-new-ref */
long BGl_getzd2newzd2refz00zz__intextz00()
{ AN_OBJECT;
{ /* ./Llib/intext.scm 996 */
BGl_za2refza2z00zz__intextz00 = 
(BGl_za2refza2z00zz__intextz00+((long)1)); 
return BGl_za2refza2z00zz__intextz00;} 
}



/* 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_test2624z00_1263;
{ /* ./Llib/intext.scm 1012 */
bool_t BgL_testz00_5348;
{ /* ./Llib/intext.scm 1012 */
obj_t BgL_auxz00_5349;
{ /* ./Llib/intext.scm 1012 */
int BgL_auxz00_5350;
BgL_auxz00_5350 = 
(int)(((long)3)); 
BgL_auxz00_5349 = 
STRUCT_REF(BgL_markz00_1262, BgL_auxz00_5350); } 
BgL_testz00_5348 = 
CBOOL(BgL_auxz00_5349); } 
if(BgL_testz00_5348)
{ /* ./Llib/intext.scm 1013 */
long BgL_auxz00_5354;
{ /* ./Llib/intext.scm 1013 */
obj_t BgL_auxz00_5355;
{ /* ./Llib/intext.scm 1013 */
int BgL_auxz00_5356;
BgL_auxz00_5356 = 
(int)(((long)4)); 
BgL_auxz00_5355 = 
STRUCT_REF(BgL_markz00_1262, BgL_auxz00_5356); } 
BgL_auxz00_5354 = 
(long)CINT(BgL_auxz00_5355); } 
BgL_test2624z00_1263 = 
(BgL_auxz00_5354>((long)0)); }  else 
{ /* ./Llib/intext.scm 1012 */
BgL_test2624z00_1263 = ((bool_t)0); } } 
if(BgL_test2624z00_1263)
{ /* ./Llib/intext.scm 1014 */
long BgL_arg2626z00_1264;
{ /* ./Llib/intext.scm 1014 */
long BgL_auxz00_5362;
{ /* ./Llib/intext.scm 1014 */
obj_t BgL_auxz00_5363;
{ /* ./Llib/intext.scm 1014 */
int BgL_auxz00_5364;
BgL_auxz00_5364 = 
(int)(((long)4)); 
BgL_auxz00_5363 = 
STRUCT_REF(BgL_markz00_1262, BgL_auxz00_5364); } 
BgL_auxz00_5362 = 
(long)CINT(BgL_auxz00_5363); } 
BgL_arg2626z00_1264 = 
(BgL_auxz00_5362-((long)1)); } 
{ /* ./Llib/intext.scm 1014 */
obj_t BgL_auxz00_5371;int BgL_auxz00_5369;
BgL_auxz00_5371 = 
BINT(BgL_arg2626z00_1264); 
BgL_auxz00_5369 = 
(int)(((long)4)); 
return 
STRUCT_SET(BgL_markz00_1262, BgL_auxz00_5369, BgL_auxz00_5371);} }  else 
{ /* ./Llib/intext.scm 1015 */
obj_t BgL_auxz00_5374;
{ /* ./Llib/intext.scm 1015 */
int BgL_auxz00_5375;
BgL_auxz00_5375 = 
(int)(((long)1)); 
BgL_auxz00_5374 = 
STRUCT_REF(BgL_markz00_1262, BgL_auxz00_5375); } 
return 
SET_CDR(BgL_pz00_1260, BgL_auxz00_5374);} } } } 
}



/* print-item */
obj_t BGl_printzd2itemzd2zz__intextz00(obj_t BgL_objz00_4334, 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_test1838z00_965;
BgL_test1838z00_965 = 
BGL_OBJECTP(BgL_itemz00_963); 
if(BgL_test1838z00_965)
{ /* ./Llib/intext.scm 1174 */
{ /* ./Llib/intext.scm 1175 */
obj_t BgL_markz00_966;
{ /* ./Llib/intext.scm 1175 */
BgL_objectz00_bglt BgL_auxz00_5381;
BgL_auxz00_5381 = 
(BgL_objectz00_bglt)(BgL_itemz00_963); 
BgL_markz00_966 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5381); } 
{ /* ./Llib/intext.scm 1177 */
bool_t BgL_testz00_5384;
{ /* ./Llib/intext.scm 1177 */
obj_t BgL_auxz00_5385;
{ /* ./Llib/intext.scm 1177 */
int BgL_auxz00_5386;
BgL_auxz00_5386 = 
(int)(((long)3)); 
BgL_auxz00_5385 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5386); } 
BgL_testz00_5384 = 
CBOOL(BgL_auxz00_5385); } 
if(BgL_testz00_5384)
{ /* ./Llib/intext.scm 1177 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1178 */
int BgL_auxz00_5392;
BgL_auxz00_5392 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5392, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1179 */
obj_t BgL_arg1842z00_968;
{ /* ./Llib/intext.scm 1179 */
int BgL_auxz00_5396;
BgL_auxz00_5396 = 
(int)(((long)2)); 
BgL_arg1842z00_968 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5396); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg1842z00_968)); } 
{ /* ./Llib/intext.scm 1180 */
long BgL_arg1846z00_969;
{ /* ./Llib/intext.scm 1180 */
long BgL_auxz00_5401;
{ /* ./Llib/intext.scm 1180 */
obj_t BgL_auxz00_5402;
{ /* ./Llib/intext.scm 1180 */
int BgL_auxz00_5403;
BgL_auxz00_5403 = 
(int)(((long)4)); 
BgL_auxz00_5402 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5403); } 
BgL_auxz00_5401 = 
(long)CINT(BgL_auxz00_5402); } 
BgL_arg1846z00_969 = 
(BgL_auxz00_5401-((long)1)); } 
{ /* ./Llib/intext.scm 1180 */
obj_t BgL_auxz00_5410;int BgL_auxz00_5408;
BgL_auxz00_5410 = 
BINT(BgL_arg1846z00_969); 
BgL_auxz00_5408 = 
(int)(((long)4)); 
STRUCT_SET(BgL_markz00_966, BgL_auxz00_5408, BgL_auxz00_5410); } } 
{ /* ./Llib/intext.scm 1181 */
bool_t BgL_testz00_5413;
{ /* ./Llib/intext.scm 1181 */
long BgL_auxz00_5414;
{ /* ./Llib/intext.scm 1181 */
obj_t BgL_auxz00_5415;
{ /* ./Llib/intext.scm 1181 */
int BgL_auxz00_5416;
BgL_auxz00_5416 = 
(int)(((long)4)); 
BgL_auxz00_5415 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5416); } 
BgL_auxz00_5414 = 
(long)CINT(BgL_auxz00_5415); } 
BgL_testz00_5413 = 
(BgL_auxz00_5414==((long)0)); } 
if(BgL_testz00_5413)
{ /* ./Llib/intext.scm 1182 */
obj_t BgL_oldzd2valuezd2_2689;
{ /* ./Llib/intext.scm 1182 */
int BgL_auxz00_5425;obj_t BgL_auxz00_5421;
BgL_auxz00_5425 = 
(int)(((long)1)); 
{ /* ./Llib/intext.scm 1182 */
BgL_objectz00_bglt BgL_auxz00_5422;
BgL_auxz00_5422 = 
(BgL_objectz00_bglt)(BgL_itemz00_963); 
BgL_auxz00_5421 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5422); } 
BgL_oldzd2valuezd2_2689 = 
STRUCT_REF(BgL_auxz00_5421, BgL_auxz00_5425); } 
{ /* ./Llib/intext.scm 1182 */
BgL_objectz00_bglt BgL_auxz00_5428;
BgL_auxz00_5428 = 
(BgL_objectz00_bglt)(BgL_itemz00_963); 
return 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5428, BgL_oldzd2valuezd2_2689);} }  else 
{ /* ./Llib/intext.scm 1181 */
return BFALSE;} } }  else 
{ /* ./Llib/intext.scm 1183 */
bool_t BgL_testz00_5431;
{ /* ./Llib/intext.scm 1183 */
long BgL_auxz00_5432;
{ /* ./Llib/intext.scm 1183 */
obj_t BgL_auxz00_5433;
{ /* ./Llib/intext.scm 1183 */
int BgL_auxz00_5434;
BgL_auxz00_5434 = 
(int)(((long)4)); 
BgL_auxz00_5433 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5434); } 
BgL_auxz00_5432 = 
(long)CINT(BgL_auxz00_5433); } 
BgL_testz00_5431 = 
(BgL_auxz00_5432==((long)0)); } 
if(BgL_testz00_5431)
{ /* ./Llib/intext.scm 1183 */
{ /* ./Llib/intext.scm 1184 */
obj_t BgL_structz00_976;
{ /* ./Llib/intext.scm 1184 */
int BgL_auxz00_5439;
BgL_auxz00_5439 = 
(int)(((long)5)); 
BgL_structz00_976 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5439); } 
{ /* ./Llib/intext.scm 1185 */
obj_t BgL_oldzd2valuezd2_2707;
{ /* ./Llib/intext.scm 1185 */
int BgL_auxz00_5442;
BgL_auxz00_5442 = 
(int)(((long)1)); 
BgL_oldzd2valuezd2_2707 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5442); } 
{ /* ./Llib/intext.scm 1185 */
BgL_objectz00_bglt BgL_auxz00_5445;
BgL_auxz00_5445 = 
(BgL_objectz00_bglt)(BgL_itemz00_963); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5445, BgL_oldzd2valuezd2_2707); } } 
BGl_printzd2structzd2zz__intextz00(BgL_objz00_4334, ((unsigned char)'|'), BgL_structz00_976); 
{ /* ./Llib/intext.scm 1187 */
long BgL_arg1864z00_977;
{ /* ./Llib/intext.scm 1187 */
obj_t BgL_arg1867z00_978;
{ /* ./Llib/intext.scm 1187 */
BgL_objectz00_bglt BgL_objectz00_2713;
BgL_objectz00_2713 = 
(BgL_objectz00_bglt)(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1187 */
long BgL_arg3720z00_2714;
{ /* ./Llib/intext.scm 1187 */
long BgL_arg3723z00_2715;
BgL_arg3723z00_2715 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_2713); 
BgL_arg3720z00_2714 = 
(BgL_arg3723z00_2715-OBJECT_TYPE); } 
{ 
int BgL_auxz00_5452;
BgL_auxz00_5452 = 
(int)(BgL_arg3720z00_2714); 
BgL_arg1867z00_978 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_5452); } } } 
BgL_arg1864z00_977 = 
BGl_classzd2hashzd2zz__objectz00(BgL_arg1867z00_978); } 
{ 
obj_t BgL_itemz00_5456;
BgL_itemz00_5456 = 
BINT(BgL_arg1864z00_977); 
BgL_itemz00_963 = BgL_itemz00_5456; 
goto BGl_printzd2itemzd2zz__intextz00;} } } }  else 
{ /* ./Llib/intext.scm 1183 */
{ /* ./Llib/intext.scm 1189 */
long BgL_refz00_979;obj_t BgL_structz00_980;
BgL_refz00_979 = 
BGl_getzd2newzd2refz00zz__intextz00(); 
{ /* ./Llib/intext.scm 1190 */
int BgL_auxz00_5459;
BgL_auxz00_5459 = 
(int)(((long)5)); 
BgL_structz00_980 = 
STRUCT_REF(BgL_markz00_966, BgL_auxz00_5459); } 
{ /* ./Llib/intext.scm 1191 */
obj_t BgL_auxz00_5464;int BgL_auxz00_5462;
BgL_auxz00_5464 = 
BINT(BgL_refz00_979); 
BgL_auxz00_5462 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_966, BgL_auxz00_5462, BgL_auxz00_5464); } 
{ /* ./Llib/intext.scm 1192 */
int BgL_auxz00_5467;
BgL_auxz00_5467 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_966, BgL_auxz00_5467, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1193 */
int BgL_auxz00_5472;
BgL_auxz00_5472 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5472, ((unsigned char)'=')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(BgL_refz00_979); 
BGl_printzd2structzd2zz__intextz00(BgL_objz00_4334, ((unsigned char)'|'), BgL_structz00_980); 
{ /* ./Llib/intext.scm 1196 */
long BgL_arg1877z00_981;
{ /* ./Llib/intext.scm 1196 */
obj_t BgL_arg1880z00_982;
{ /* ./Llib/intext.scm 1196 */
BgL_objectz00_bglt BgL_objectz00_2743;
BgL_objectz00_2743 = 
(BgL_objectz00_bglt)(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1196 */
long BgL_arg3720z00_2744;
{ /* ./Llib/intext.scm 1196 */
long BgL_arg3723z00_2745;
BgL_arg3723z00_2745 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_2743); 
BgL_arg3720z00_2744 = 
(BgL_arg3723z00_2745-OBJECT_TYPE); } 
{ 
int BgL_auxz00_5481;
BgL_auxz00_5481 = 
(int)(BgL_arg3720z00_2744); 
BgL_arg1880z00_982 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_5481); } } } 
BgL_arg1877z00_981 = 
BGl_classzd2hashzd2zz__objectz00(BgL_arg1880z00_982); } 
{ 
obj_t BgL_itemz00_5485;
BgL_itemz00_5485 = 
BINT(BgL_arg1877z00_981); 
BgL_itemz00_963 = BgL_itemz00_5485; 
goto BGl_printzd2itemzd2zz__intextz00;} } } } } } } }  else 
{ /* ./Llib/intext.scm 1174 */
if(
STRUCTP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1197 */
return 
BGl_printzd2structzd2zz__intextz00(BgL_objz00_4334, ((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_5494;
BgL_auxz00_5494 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5494, ((unsigned char)'\'')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1201 */
obj_t BgL_arg1897z00_987;
BgL_arg1897z00_987 = 
SYMBOL_TO_STRING(BgL_itemz00_963); 
BgL_marqueurz00_1170 = ((unsigned char)'"'); 
BgL_itemz00_1171 = BgL_arg1897z00_987; 
BgL_zc3anonymousza32410za3llibzf2intextze2scmza3990ze3z93_1172:
{ /* ./Llib/intext.scm 1104 */
obj_t BgL_markz00_1173;
BgL_markz00_1173 = 
BGl_getzd2stringzd2markz00zz__intextz00(BgL_itemz00_1171); 
{ /* ./Llib/intext.scm 1106 */
bool_t BgL_testz00_5500;
{ /* ./Llib/intext.scm 1106 */
obj_t BgL_auxz00_5501;
{ /* ./Llib/intext.scm 1106 */
int BgL_auxz00_5502;
BgL_auxz00_5502 = 
(int)(((long)3)); 
BgL_auxz00_5501 = 
STRUCT_REF(BgL_markz00_1173, BgL_auxz00_5502); } 
BgL_testz00_5500 = 
CBOOL(BgL_auxz00_5501); } 
if(BgL_testz00_5500)
{ /* ./Llib/intext.scm 1106 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1107 */
int BgL_auxz00_5508;
BgL_auxz00_5508 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5508, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1108 */
obj_t BgL_arg2414z00_1175;
{ /* ./Llib/intext.scm 1108 */
int BgL_auxz00_5512;
BgL_auxz00_5512 = 
(int)(((long)2)); 
BgL_arg2414z00_1175 = 
STRUCT_REF(BgL_markz00_1173, BgL_auxz00_5512); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg2414z00_1175)); } 
{ /* ./Llib/intext.scm 1109 */
long BgL_arg2418z00_1176;
{ /* ./Llib/intext.scm 1109 */
long BgL_auxz00_5517;
{ /* ./Llib/intext.scm 1109 */
obj_t BgL_auxz00_5518;
{ /* ./Llib/intext.scm 1109 */
int BgL_auxz00_5519;
BgL_auxz00_5519 = 
(int)(((long)4)); 
BgL_auxz00_5518 = 
STRUCT_REF(BgL_markz00_1173, BgL_auxz00_5519); } 
BgL_auxz00_5517 = 
(long)CINT(BgL_auxz00_5518); } 
BgL_arg2418z00_1176 = 
(BgL_auxz00_5517-((long)1)); } 
{ /* ./Llib/intext.scm 1109 */
obj_t BgL_auxz00_5526;int BgL_auxz00_5524;
BgL_auxz00_5526 = 
BINT(BgL_arg2418z00_1176); 
BgL_auxz00_5524 = 
(int)(((long)4)); 
STRUCT_SET(BgL_markz00_1173, BgL_auxz00_5524, BgL_auxz00_5526); } } 
{ /* ./Llib/intext.scm 1110 */
bool_t BgL_testz00_5529;
{ /* ./Llib/intext.scm 1110 */
long BgL_auxz00_5530;
{ /* ./Llib/intext.scm 1110 */
obj_t BgL_auxz00_5531;
{ /* ./Llib/intext.scm 1110 */
int BgL_auxz00_5532;
BgL_auxz00_5532 = 
(int)(((long)4)); 
BgL_auxz00_5531 = 
STRUCT_REF(BgL_markz00_1173, BgL_auxz00_5532); } 
BgL_auxz00_5530 = 
(long)CINT(BgL_auxz00_5531); } 
BgL_testz00_5529 = 
(BgL_auxz00_5530==((long)0)); } 
if(BgL_testz00_5529)
{ /* ./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_5538;
{ /* ./Llib/intext.scm 1112 */
long BgL_auxz00_5539;
{ /* ./Llib/intext.scm 1112 */
obj_t BgL_auxz00_5540;
{ /* ./Llib/intext.scm 1112 */
int BgL_auxz00_5541;
BgL_auxz00_5541 = 
(int)(((long)4)); 
BgL_auxz00_5540 = 
STRUCT_REF(BgL_markz00_1173, BgL_auxz00_5541); } 
BgL_auxz00_5539 = 
(long)CINT(BgL_auxz00_5540); } 
BgL_testz00_5538 = 
(BgL_auxz00_5539==((long)0)); } 
if(BgL_testz00_5538)
{ /* ./Llib/intext.scm 1112 */
UNMARK_INTEXT_STRING(BgL_itemz00_1171); 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1114 */
int BgL_auxz00_5549;
BgL_auxz00_5549 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5549, BgL_marqueurz00_1170); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1115 */
int BgL_arg2436z00_1183;
BgL_arg2436z00_1183 = 
STRING_LENGTH(BgL_itemz00_1171); 
return 
BGl_printzd2charszd2zz__intextz00(BgL_itemz00_1171, 
BINT(BgL_arg2436z00_1183));} }  else 
{ /* ./Llib/intext.scm 1112 */
{ /* ./Llib/intext.scm 1117 */
long BgL_refz00_1184;
BgL_refz00_1184 = 
BGl_getzd2newzd2refz00zz__intextz00(); 
{ /* ./Llib/intext.scm 1118 */
obj_t BgL_auxz00_5559;int BgL_auxz00_5557;
BgL_auxz00_5559 = 
BINT(BgL_refz00_1184); 
BgL_auxz00_5557 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1173, BgL_auxz00_5557, BgL_auxz00_5559); } 
{ /* ./Llib/intext.scm 1119 */
int BgL_auxz00_5562;
BgL_auxz00_5562 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1173, BgL_auxz00_5562, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1120 */
int BgL_auxz00_5567;
BgL_auxz00_5567 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5567, ((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_5574;
BgL_auxz00_5574 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5574, BgL_marqueurz00_1170); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1123 */
obj_t BgL_auxz00_5578;
{ /* ./Llib/intext.scm 1123 */
int BgL_auxz00_5579;
BgL_auxz00_5579 = 
(int)(((long)1)); 
BgL_auxz00_5578 = 
STRUCT_REF(BgL_markz00_1173, BgL_auxz00_5579); } 
return 
BGl_printzd2charszd2zz__intextz00(BgL_itemz00_1171, BgL_auxz00_5578);} } } } } } } }  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_5587;
BgL_auxz00_5587 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5587, ((unsigned char)':')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1204 */
obj_t BgL_arg1904z00_989;
BgL_arg1904z00_989 = 
KEYWORD_TO_STRING(BgL_itemz00_963); 
{ 
obj_t BgL_itemz00_5593;unsigned char BgL_marqueurz00_5592;
BgL_marqueurz00_5592 = ((unsigned char)'"'); 
BgL_itemz00_5593 = BgL_arg1904z00_989; 
BgL_itemz00_1171 = BgL_itemz00_5593; 
BgL_marqueurz00_1170 = BgL_marqueurz00_5592; 
goto BgL_zc3anonymousza32410za3llibzf2intextze2scmza3990ze3z93_1172;} } }  else 
{ /* ./Llib/intext.scm 1202 */
if(
CHARP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1205 */
{ /* ./Llib/intext.scm 1206 */
char BgL_cz00_2769;
BgL_cz00_2769 = 
CCHAR(BgL_itemz00_963); 
BGl_printzd2marqueurzd2zz__intextz00(((unsigned char)'a')); 
{ /* ./Llib/intext.scm 1206 */
long BgL_auxz00_5598;
{ /* ./Llib/intext.scm 1206 */
unsigned char BgL_auxz00_5599;
BgL_auxz00_5599 = 
(unsigned char)(BgL_cz00_2769); 
BgL_auxz00_5598 = 
(BgL_auxz00_5599); } 
return 
BGl_printzd2dizd2zz__intextz00(BgL_auxz00_5598);} } }  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_5607;
BgL_auxz00_5607 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5607, ((unsigned char)'u')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1209 */
int BgL_arg1912z00_992;
{ /* ./Llib/intext.scm 1209 */
ucs2_t BgL_ucs2z00_2779;
BgL_ucs2z00_2779 = 
CUCS2(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1209 */
obj_t BgL_auxz00_5612;
BgL_auxz00_5612 = 
BUCS2(BgL_ucs2z00_2779); 
BgL_arg1912z00_992 = 
CUCS2(BgL_auxz00_5612); } } 
return 
BGl_printzd2dizd2zz__intextz00(
(long)(BgL_arg1912z00_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_5621;
BgL_auxz00_5621 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5621, ((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_5629;
BgL_auxz00_5629 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5629, ((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_5637;
BgL_auxz00_5637 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5637, ((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_5645;
BgL_auxz00_5645 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5645, ((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_5653;
BgL_auxz00_5653 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5653, ((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_test1931z00_999;
BgL_test1931z00_999 = 
INTEGERP(BgL_itemz00_963); 
if(BgL_test1931z00_999)
{ /* ./Llib/intext.scm 1223 */
return 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_itemz00_963));}  else 
{ /* ./Llib/intext.scm 1225 */
bool_t BgL_test1933z00_1000;
if(BgL_test1931z00_999)
{ /* ./Llib/intext.scm 1225 */
BgL_test1933z00_1000 = ((bool_t)1); }  else 
{ /* ./Llib/intext.scm 1225 */
BgL_test1933z00_1000 = 
REALP(BgL_itemz00_963); } 
if(BgL_test1933z00_1000)
{ /* ./Llib/intext.scm 1225 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1226 */
int BgL_auxz00_5668;
BgL_auxz00_5668 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5668, ((unsigned char)'f')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1227 */
double BgL_fz00_2821;
BgL_fz00_2821 = 
REAL_TO_DOUBLE(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1227 */
obj_t BgL_sz00_2822;
{ /* ./Llib/intext.scm 1227 */
obj_t BgL_realz00_2824;
BgL_realz00_2824 = 
DOUBLE_TO_REAL(BgL_fz00_2821); 
{ /* ./Llib/intext.scm 1227 */
double BgL_auxz00_5674;
BgL_auxz00_5674 = 
REAL_TO_DOUBLE(BgL_realz00_2824); 
BgL_sz00_2822 = 
real_to_string(BgL_auxz00_5674); } } 
{ /* ./Llib/intext.scm 1227 */
int BgL_arg1798z00_2823;
BgL_arg1798z00_2823 = 
STRING_LENGTH(BgL_sz00_2822); 
return 
BGl_printzd2charszd2zz__intextz00(BgL_sz00_2822, 
BINT(BgL_arg1798z00_2823));} } } }  else 
{ /* ./Llib/intext.scm 1225 */
if(
STRINGP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1228 */
{ 
obj_t BgL_itemz00_5683;unsigned char BgL_marqueurz00_5682;
BgL_marqueurz00_5682 = ((unsigned char)'"'); 
BgL_itemz00_5683 = BgL_itemz00_963; 
BgL_itemz00_1171 = BgL_itemz00_5683; 
BgL_marqueurz00_1170 = BgL_marqueurz00_5682; 
goto BgL_zc3anonymousza32410za3llibzf2intextze2scmza3990ze3z93_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;
BgL_markz00_1134 = 
BGl_getzd2ucs2zd2stringzd2markzd2zz__intextz00(BgL_itemz00_1132); 
{ /* ./Llib/intext.scm 1154 */
bool_t BgL_testz00_5687;
{ /* ./Llib/intext.scm 1154 */
obj_t BgL_auxz00_5688;
{ /* ./Llib/intext.scm 1154 */
int BgL_auxz00_5689;
BgL_auxz00_5689 = 
(int)(((long)3)); 
BgL_auxz00_5688 = 
STRUCT_REF(BgL_markz00_1134, BgL_auxz00_5689); } 
BgL_testz00_5687 = 
CBOOL(BgL_auxz00_5688); } 
if(BgL_testz00_5687)
{ /* ./Llib/intext.scm 1154 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1155 */
int BgL_auxz00_5695;
BgL_auxz00_5695 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5695, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1156 */
obj_t BgL_arg2319z00_1136;
{ /* ./Llib/intext.scm 1156 */
int BgL_auxz00_5699;
BgL_auxz00_5699 = 
(int)(((long)2)); 
BgL_arg2319z00_1136 = 
STRUCT_REF(BgL_markz00_1134, BgL_auxz00_5699); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg2319z00_1136)); } 
{ /* ./Llib/intext.scm 1157 */
long BgL_arg2323z00_1137;
{ /* ./Llib/intext.scm 1157 */
long BgL_auxz00_5704;
{ /* ./Llib/intext.scm 1157 */
obj_t BgL_auxz00_5705;
{ /* ./Llib/intext.scm 1157 */
int BgL_auxz00_5706;
BgL_auxz00_5706 = 
(int)(((long)4)); 
BgL_auxz00_5705 = 
STRUCT_REF(BgL_markz00_1134, BgL_auxz00_5706); } 
BgL_auxz00_5704 = 
(long)CINT(BgL_auxz00_5705); } 
BgL_arg2323z00_1137 = 
(BgL_auxz00_5704-((long)1)); } 
{ /* ./Llib/intext.scm 1157 */
obj_t BgL_auxz00_5713;int BgL_auxz00_5711;
BgL_auxz00_5713 = 
BINT(BgL_arg2323z00_1137); 
BgL_auxz00_5711 = 
(int)(((long)4)); 
STRUCT_SET(BgL_markz00_1134, BgL_auxz00_5711, BgL_auxz00_5713); } } 
{ /* ./Llib/intext.scm 1158 */
bool_t BgL_testz00_5716;
{ /* ./Llib/intext.scm 1158 */
long BgL_auxz00_5717;
{ /* ./Llib/intext.scm 1158 */
obj_t BgL_auxz00_5718;
{ /* ./Llib/intext.scm 1158 */
int BgL_auxz00_5719;
BgL_auxz00_5719 = 
(int)(((long)4)); 
BgL_auxz00_5718 = 
STRUCT_REF(BgL_markz00_1134, BgL_auxz00_5719); } 
BgL_auxz00_5717 = 
(long)CINT(BgL_auxz00_5718); } 
BgL_testz00_5716 = 
(BgL_auxz00_5717==((long)0)); } 
if(BgL_testz00_5716)
{ /* ./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_5725;
{ /* ./Llib/intext.scm 1160 */
long BgL_auxz00_5726;
{ /* ./Llib/intext.scm 1160 */
obj_t BgL_auxz00_5727;
{ /* ./Llib/intext.scm 1160 */
int BgL_auxz00_5728;
BgL_auxz00_5728 = 
(int)(((long)4)); 
BgL_auxz00_5727 = 
STRUCT_REF(BgL_markz00_1134, BgL_auxz00_5728); } 
BgL_auxz00_5726 = 
(long)CINT(BgL_auxz00_5727); } 
BgL_testz00_5725 = 
(BgL_auxz00_5726==((long)0)); } 
if(BgL_testz00_5725)
{ /* ./Llib/intext.scm 1160 */
{ /* ./Llib/intext.scm 1161 */
obj_t BgL_stringz00_1144;
{ /* ./Llib/intext.scm 1161 */
int BgL_auxz00_5735;obj_t BgL_auxz00_5733;
BgL_auxz00_5735 = 
(int)(((long)5)); 
BgL_auxz00_5733 = 
BGl_getzd2ucs2zd2stringzd2markzd2zz__intextz00(BgL_itemz00_1132); 
BgL_stringz00_1144 = 
STRUCT_REF(BgL_auxz00_5733, BgL_auxz00_5735); } 
UNMARK_INTEXT_UCS2_STRING(BgL_itemz00_1132); 
{ 
obj_t BgL_itemz00_5740;unsigned char BgL_marqueurz00_5739;
BgL_marqueurz00_5739 = ((unsigned char)'U'); 
BgL_itemz00_5740 = BgL_stringz00_1144; 
BgL_itemz00_1171 = BgL_itemz00_5740; 
BgL_marqueurz00_1170 = BgL_marqueurz00_5739; 
goto BgL_zc3anonymousza32410za3llibzf2intextze2scmza3990ze3z93_1172;} } }  else 
{ /* ./Llib/intext.scm 1160 */
{ /* ./Llib/intext.scm 1165 */
long BgL_refz00_1145;obj_t BgL_stringz00_1146;
BgL_refz00_1145 = 
BGl_getzd2newzd2refz00zz__intextz00(); 
{ /* ./Llib/intext.scm 1166 */
int BgL_auxz00_5744;obj_t BgL_auxz00_5742;
BgL_auxz00_5744 = 
(int)(((long)5)); 
BgL_auxz00_5742 = 
BGl_getzd2ucs2zd2stringzd2markzd2zz__intextz00(BgL_itemz00_1132); 
BgL_stringz00_1146 = 
STRUCT_REF(BgL_auxz00_5742, BgL_auxz00_5744); } 
{ /* ./Llib/intext.scm 1167 */
obj_t BgL_auxz00_5749;int BgL_auxz00_5747;
BgL_auxz00_5749 = 
BINT(BgL_refz00_1145); 
BgL_auxz00_5747 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1134, BgL_auxz00_5747, BgL_auxz00_5749); } 
{ /* ./Llib/intext.scm 1168 */
int BgL_auxz00_5752;
BgL_auxz00_5752 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1134, BgL_auxz00_5752, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1169 */
int BgL_auxz00_5757;
BgL_auxz00_5757 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5757, ((unsigned char)'=')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(BgL_refz00_1145); 
{ 
obj_t BgL_itemz00_5763;unsigned char BgL_marqueurz00_5762;
BgL_marqueurz00_5762 = ((unsigned char)'U'); 
BgL_itemz00_5763 = BgL_stringz00_1146; 
BgL_itemz00_1171 = BgL_itemz00_5763; 
BgL_marqueurz00_1170 = BgL_marqueurz00_5762; 
goto BgL_zc3anonymousza32410za3llibzf2intextze2scmza3990ze3z93_1172;} } } } } } }  else 
{ /* ./Llib/intext.scm 1230 */
if(
CELLP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1232 */
{ /* ./Llib/intext.scm 1234 */
bool_t BgL_test1941z00_1004;
{ /* ./Llib/intext.scm 1234 */
obj_t BgL_arg2004z00_1026;
BgL_arg2004z00_1026 = 
CELL_REF(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1234 */
obj_t BgL_auxz00_5767;
{ /* ./Llib/intext.scm 1234 */
int BgL_auxz00_5768;
BgL_auxz00_5768 = 
(int)(((long)3)); 
BgL_auxz00_5767 = 
STRUCT_REF(BgL_arg2004z00_1026, BgL_auxz00_5768); } 
BgL_test1941z00_1004 = 
CBOOL(BgL_auxz00_5767); } } 
if(BgL_test1941z00_1004)
{ /* ./Llib/intext.scm 1234 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1235 */
int BgL_auxz00_5775;
BgL_auxz00_5775 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5775, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1236 */
obj_t BgL_arg1945z00_1005;
{ /* ./Llib/intext.scm 1236 */
int BgL_auxz00_5781;obj_t BgL_auxz00_5779;
BgL_auxz00_5781 = 
(int)(((long)2)); 
BgL_auxz00_5779 = 
CELL_REF(BgL_itemz00_963); 
BgL_arg1945z00_1005 = 
STRUCT_REF(BgL_auxz00_5779, BgL_auxz00_5781); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg1945z00_1005)); } 
{ /* ./Llib/intext.scm 1237 */
obj_t BgL_arg1952z00_1007;long BgL_arg1953z00_1008;
BgL_arg1952z00_1007 = 
CELL_REF(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1239 */
obj_t BgL_arg1957z00_1009;
{ /* ./Llib/intext.scm 1238 */
int BgL_auxz00_5789;obj_t BgL_auxz00_5787;
BgL_auxz00_5789 = 
(int)(((long)4)); 
BgL_auxz00_5787 = 
CELL_REF(BgL_itemz00_963); 
BgL_arg1957z00_1009 = 
STRUCT_REF(BgL_auxz00_5787, BgL_auxz00_5789); } 
{ /* ./Llib/intext.scm 1238 */
long BgL_auxz00_5792;
BgL_auxz00_5792 = 
(long)CINT(BgL_arg1957z00_1009); 
BgL_arg1953z00_1008 = 
(BgL_auxz00_5792-((long)1)); } } 
{ /* ./Llib/intext.scm 1237 */
obj_t BgL_auxz00_5797;int BgL_auxz00_5795;
BgL_auxz00_5797 = 
BINT(BgL_arg1953z00_1008); 
BgL_auxz00_5795 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg1952z00_1007, BgL_auxz00_5795, BgL_auxz00_5797); } } 
{ /* ./Llib/intext.scm 1241 */
bool_t BgL_test1964z00_1012;
{ /* ./Llib/intext.scm 1241 */
obj_t BgL_arg1967z00_1013;
{ /* ./Llib/intext.scm 1241 */
int BgL_auxz00_5802;obj_t BgL_auxz00_5800;
BgL_auxz00_5802 = 
(int)(((long)4)); 
BgL_auxz00_5800 = 
CELL_REF(BgL_itemz00_963); 
BgL_arg1967z00_1013 = 
STRUCT_REF(BgL_auxz00_5800, BgL_auxz00_5802); } 
{ /* ./Llib/intext.scm 1241 */
long BgL_auxz00_5805;
BgL_auxz00_5805 = 
(long)CINT(BgL_arg1967z00_1013); 
BgL_test1964z00_1012 = 
(BgL_auxz00_5805==((long)0)); } } 
if(BgL_test1964z00_1012)
{ /* ./Llib/intext.scm 1242 */
obj_t BgL_auxz00_5809;
{ /* ./Llib/intext.scm 1242 */
int BgL_auxz00_5812;obj_t BgL_auxz00_5810;
BgL_auxz00_5812 = 
(int)(((long)1)); 
BgL_auxz00_5810 = 
CELL_REF(BgL_itemz00_963); 
BgL_auxz00_5809 = 
STRUCT_REF(BgL_auxz00_5810, BgL_auxz00_5812); } 
return 
CELL_SET(BgL_itemz00_963, BgL_auxz00_5809);}  else 
{ /* ./Llib/intext.scm 1241 */
return BFALSE;} } }  else 
{ /* ./Llib/intext.scm 1243 */
bool_t BgL_test1974z00_1016;
{ /* ./Llib/intext.scm 1243 */
obj_t BgL_arg1995z00_1023;
{ /* ./Llib/intext.scm 1243 */
int BgL_auxz00_5818;obj_t BgL_auxz00_5816;
BgL_auxz00_5818 = 
(int)(((long)4)); 
BgL_auxz00_5816 = 
CELL_REF(BgL_itemz00_963); 
BgL_arg1995z00_1023 = 
STRUCT_REF(BgL_auxz00_5816, BgL_auxz00_5818); } 
{ /* ./Llib/intext.scm 1243 */
long BgL_auxz00_5821;
BgL_auxz00_5821 = 
(long)CINT(BgL_arg1995z00_1023); 
BgL_test1974z00_1016 = 
(BgL_auxz00_5821==((long)0)); } } 
if(BgL_test1974z00_1016)
{ /* ./Llib/intext.scm 1243 */
{ /* ./Llib/intext.scm 1244 */
obj_t BgL_auxz00_5825;
{ /* ./Llib/intext.scm 1244 */
int BgL_auxz00_5828;obj_t BgL_auxz00_5826;
BgL_auxz00_5828 = 
(int)(((long)1)); 
BgL_auxz00_5826 = 
CELL_REF(BgL_itemz00_963); 
BgL_auxz00_5825 = 
STRUCT_REF(BgL_auxz00_5826, BgL_auxz00_5828); } 
CELL_SET(BgL_itemz00_963, BgL_auxz00_5825); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1245 */
int BgL_auxz00_5834;
BgL_auxz00_5834 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5834, ((unsigned char)'!')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ 
obj_t BgL_itemz00_5838;
BgL_itemz00_5838 = 
CELL_REF(BgL_itemz00_963); 
BgL_itemz00_963 = BgL_itemz00_5838; 
goto BGl_printzd2itemzd2zz__intextz00;} }  else 
{ /* ./Llib/intext.scm 1243 */
{ /* ./Llib/intext.scm 1248 */
long BgL_refz00_1018;
BgL_refz00_1018 = 
BGl_getzd2newzd2refz00zz__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_5844;int BgL_auxz00_5842;
BgL_auxz00_5844 = 
BINT(BgL_refz00_1018); 
BgL_auxz00_5842 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1019, BgL_auxz00_5842, BgL_auxz00_5844); } 
{ /* ./Llib/intext.scm 1253 */
int BgL_auxz00_5847;
BgL_auxz00_5847 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1019, BgL_auxz00_5847, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1254 */
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)); 
BGl_printzd2dizd2zz__intextz00(BgL_refz00_1018); 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1256 */
int BgL_auxz00_5859;
BgL_auxz00_5859 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5859, ((unsigned char)'!')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ 
obj_t BgL_itemz00_5863;
{ /* ./Llib/intext.scm 1257 */
int BgL_auxz00_5864;
BgL_auxz00_5864 = 
(int)(((long)1)); 
BgL_itemz00_5863 = 
STRUCT_REF(BgL_markz00_1019, BgL_auxz00_5864); } 
BgL_itemz00_963 = BgL_itemz00_5863; 
goto BGl_printzd2itemzd2zz__intextz00;} } } } } } } }  else 
{ /* ./Llib/intext.scm 1258 */
bool_t BgL_test2007z00_1027;
{ /* ./Llib/intext.scm 1258 */
bool_t BgL_test2297z00_1130;
BgL_test2297z00_1130 = 
EXTENDED_PAIRP(BgL_itemz00_963); 
if(BgL_test2297z00_1130)
{ /* ./Llib/intext.scm 1258 */
BgL_test2007z00_1027 = BGl_za2epairzf3za2zf3zz__intextz00; }  else 
{ /* ./Llib/intext.scm 1258 */
BgL_test2007z00_1027 = ((bool_t)0); } } 
if(BgL_test2007z00_1027)
{ /* ./Llib/intext.scm 1258 */
{ /* ./Llib/intext.scm 1260 */
bool_t BgL_testz00_5870;
{ /* ./Llib/intext.scm 1260 */
obj_t BgL_auxz00_5871;
{ /* ./Llib/intext.scm 1260 */
int BgL_auxz00_5874;obj_t BgL_auxz00_5872;
BgL_auxz00_5874 = 
(int)(((long)3)); 
BgL_auxz00_5872 = 
CDR(BgL_itemz00_963); 
BgL_auxz00_5871 = 
STRUCT_REF(BgL_auxz00_5872, BgL_auxz00_5874); } 
BgL_testz00_5870 = 
CBOOL(BgL_auxz00_5871); } 
if(BgL_testz00_5870)
{ /* ./Llib/intext.scm 1260 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1261 */
int BgL_auxz00_5880;
BgL_auxz00_5880 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5880, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1262 */
obj_t BgL_arg2011z00_1029;
{ /* ./Llib/intext.scm 1262 */
int BgL_auxz00_5886;obj_t BgL_auxz00_5884;
BgL_auxz00_5886 = 
(int)(((long)2)); 
BgL_auxz00_5884 = 
CDR(BgL_itemz00_963); 
BgL_arg2011z00_1029 = 
STRUCT_REF(BgL_auxz00_5884, BgL_auxz00_5886); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg2011z00_1029)); } 
return 
BGl_pairzd2markzd2gcz12z12zz__intextz00(BgL_itemz00_963);}  else 
{ /* ./Llib/intext.scm 1264 */
bool_t BgL_testz00_5892;
{ /* ./Llib/intext.scm 1264 */
long BgL_auxz00_5893;
{ /* ./Llib/intext.scm 1264 */
obj_t BgL_auxz00_5894;
{ /* ./Llib/intext.scm 1264 */
int BgL_auxz00_5897;obj_t BgL_auxz00_5895;
BgL_auxz00_5897 = 
(int)(((long)4)); 
BgL_auxz00_5895 = 
CDR(BgL_itemz00_963); 
BgL_auxz00_5894 = 
STRUCT_REF(BgL_auxz00_5895, BgL_auxz00_5897); } 
BgL_auxz00_5893 = 
(long)CINT(BgL_auxz00_5894); } 
BgL_testz00_5892 = 
(BgL_auxz00_5893==((long)0)); } 
if(BgL_testz00_5892)
{ /* ./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_5905;
BgL_auxz00_5905 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5905, ((unsigned char)'^')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1267 */
int BgL_auxz00_5911;obj_t BgL_auxz00_5909;
BgL_auxz00_5911 = 
(int)(((long)3)); 
BgL_auxz00_5909 = 
CDR(BgL_itemz00_963); 
STRUCT_SET(BgL_auxz00_5909, BgL_auxz00_5911, BTRUE); } 
BgL_pz00_1216 = BgL_itemz00_963; 
BgL_lenz00_1217 = BgL_lenz00_1032; 
BgL_zc3anonymousza32530za3llibzf2intextze2scmza3990ze3z93_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_5918;
{ /* ./Llib/intext.scm 1044 */
long BgL_auxz00_5919;
BgL_auxz00_5919 = 
(BgL_lenz00_1217-((long)1)); 
BgL_testz00_5918 = 
(BgL_iz00_1219==BgL_auxz00_5919); } 
if(BgL_testz00_5918)
{ /* ./Llib/intext.scm 1044 */
if(
PAIRP(BgL_pz00_1220))
{ /* ./Llib/intext.scm 1045 */
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4334, 
CAR(BgL_pz00_1220)); 
{ /* ./Llib/intext.scm 1048 */
bool_t BgL_test2539z00_1225;
BgL_test2539z00_1225 = 
EXTENDED_PAIRP(BgL_pz00_1220); 
if(BgL_test2539z00_1225)
{ /* ./Llib/intext.scm 1048 */
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4334, 
CER(BgL_pz00_1220)); }  else 
{ /* ./Llib/intext.scm 1048 */
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4334, BUNSPEC); } } 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4334, BNIL); 
return 
BGl_pairzd2markzd2gcz12z12zz__intextz00(BgL_pz00_1220);}  else 
{ 
obj_t BgL_itemz00_5933;
BgL_itemz00_5933 = BgL_pz00_1220; 
BgL_itemz00_963 = BgL_itemz00_5933; 
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_5935;
BgL_auxz00_5935 = 
(int)(((long)1)); 
BgL_vcdrz00_1228 = 
STRUCT_REF(BgL_markz00_1227, BgL_auxz00_5935); } 
{ /* ./Llib/intext.scm 1056 */

BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4334, 
CAR(BgL_pz00_1220)); 
{ /* ./Llib/intext.scm 1058 */
bool_t BgL_test2554z00_1230;
BgL_test2554z00_1230 = 
EXTENDED_PAIRP(BgL_pz00_1220); 
if(BgL_test2554z00_1230)
{ /* ./Llib/intext.scm 1058 */
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4334, 
CER(BgL_pz00_1220)); }  else 
{ /* ./Llib/intext.scm 1058 */
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4334, BUNSPEC); } } 
BGl_pairzd2markzd2gcz12z12zz__intextz00(BgL_pz00_1220); 
{ /* ./Llib/intext.scm 1062 */
bool_t BgL_test2562z00_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_5949;
{ /* ./Llib/intext.scm 1064 */
int BgL_auxz00_5950;
BgL_auxz00_5950 = 
(int)(((long)4)); 
BgL_auxz00_5949 = 
STRUCT_REF(BgL_markz00_1235, BgL_auxz00_5950); } 
BgL__ortest_1017z00_1236 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_auxz00_5949, 
BINT(((long)0))); } 
if(BgL__ortest_1017z00_1236)
{ /* ./Llib/intext.scm 1064 */
BgL_test2562z00_1232 = BgL__ortest_1017z00_1236; }  else 
{ /* ./Llib/intext.scm 1065 */
obj_t BgL_auxz00_5956;
{ /* ./Llib/intext.scm 1065 */
int BgL_auxz00_5957;
BgL_auxz00_5957 = 
(int)(((long)3)); 
BgL_auxz00_5956 = 
STRUCT_REF(BgL_markz00_1235, BgL_auxz00_5957); } 
BgL_test2562z00_1232 = 
CBOOL(BgL_auxz00_5956); } } }  else 
{ /* ./Llib/intext.scm 1062 */
BgL_test2562z00_1232 = ((bool_t)0); } 
if(BgL_test2562z00_1232)
{ 
obj_t BgL_itemz00_5962;
BgL_itemz00_5962 = BgL_vcdrz00_1228; 
BgL_itemz00_963 = BgL_itemz00_5962; 
goto BGl_printzd2itemzd2zz__intextz00;}  else 
{ 
obj_t BgL_pz00_5965;long BgL_iz00_5963;
BgL_iz00_5963 = 
(BgL_iz00_1219+((long)1)); 
BgL_pz00_5965 = BgL_vcdrz00_1228; 
BgL_pz00_1220 = BgL_pz00_5965; 
BgL_iz00_1219 = BgL_iz00_5963; 
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_refz00_1034 = 
BGl_getzd2newzd2refz00zz__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_5971;int BgL_auxz00_5969;
BgL_auxz00_5971 = 
BINT(BgL_refz00_1034); 
BgL_auxz00_5969 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1035, BgL_auxz00_5969, BgL_auxz00_5971); } 
{ /* ./Llib/intext.scm 1274 */
int BgL_auxz00_5974;
BgL_auxz00_5974 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1035, BgL_auxz00_5974, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1275 */
int BgL_auxz00_5979;
BgL_auxz00_5979 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5979, ((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_5986;
BgL_auxz00_5986 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_5986, ((unsigned char)'^')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ 
long BgL_lenz00_5991;obj_t BgL_pz00_5990;
BgL_pz00_5990 = BgL_itemz00_963; 
BgL_lenz00_5991 = BgL_lenz00_1036; 
BgL_lenz00_1217 = BgL_lenz00_5991; 
BgL_pz00_1216 = BgL_pz00_5990; 
goto BgL_zc3anonymousza32530za3llibzf2intextze2scmza3990ze3z93_1218;} } } } } }  else 
{ /* ./Llib/intext.scm 1258 */
if(
PAIRP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1279 */
{ /* ./Llib/intext.scm 1281 */
bool_t BgL_testz00_5994;
{ /* ./Llib/intext.scm 1281 */
obj_t BgL_auxz00_5995;
{ /* ./Llib/intext.scm 1281 */
int BgL_auxz00_5998;obj_t BgL_auxz00_5996;
BgL_auxz00_5998 = 
(int)(((long)3)); 
BgL_auxz00_5996 = 
CDR(BgL_itemz00_963); 
BgL_auxz00_5995 = 
STRUCT_REF(BgL_auxz00_5996, BgL_auxz00_5998); } 
BgL_testz00_5994 = 
CBOOL(BgL_auxz00_5995); } 
if(BgL_testz00_5994)
{ /* ./Llib/intext.scm 1281 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1282 */
int BgL_auxz00_6004;
BgL_auxz00_6004 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6004, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1283 */
obj_t BgL_arg2051z00_1043;
{ /* ./Llib/intext.scm 1283 */
int BgL_auxz00_6010;obj_t BgL_auxz00_6008;
BgL_auxz00_6010 = 
(int)(((long)2)); 
BgL_auxz00_6008 = 
CDR(BgL_itemz00_963); 
BgL_arg2051z00_1043 = 
STRUCT_REF(BgL_auxz00_6008, BgL_auxz00_6010); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg2051z00_1043)); } 
return 
BGl_pairzd2markzd2gcz12z12zz__intextz00(BgL_itemz00_963);}  else 
{ /* ./Llib/intext.scm 1285 */
bool_t BgL_testz00_6016;
{ /* ./Llib/intext.scm 1285 */
long BgL_auxz00_6017;
{ /* ./Llib/intext.scm 1285 */
obj_t BgL_auxz00_6018;
{ /* ./Llib/intext.scm 1285 */
int BgL_auxz00_6021;obj_t BgL_auxz00_6019;
BgL_auxz00_6021 = 
(int)(((long)4)); 
BgL_auxz00_6019 = 
CDR(BgL_itemz00_963); 
BgL_auxz00_6018 = 
STRUCT_REF(BgL_auxz00_6019, BgL_auxz00_6021); } 
BgL_auxz00_6017 = 
(long)CINT(BgL_auxz00_6018); } 
BgL_testz00_6016 = 
(BgL_auxz00_6017==((long)0)); } 
if(BgL_testz00_6016)
{ /* ./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_6029;
BgL_auxz00_6029 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6029, ((unsigned char)'(')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1288 */
int BgL_auxz00_6035;obj_t BgL_auxz00_6033;
BgL_auxz00_6035 = 
(int)(((long)3)); 
BgL_auxz00_6033 = 
CDR(BgL_itemz00_963); 
STRUCT_SET(BgL_auxz00_6033, BgL_auxz00_6035, BTRUE); } 
BgL_pz00_1240 = BgL_itemz00_963; 
BgL_lenz00_1241 = BgL_lenz00_1046; 
BgL_zc3anonymousza32584za3llibzf2intextze2scmza3990ze3z93_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_6042;
{ /* ./Llib/intext.scm 1021 */
long BgL_auxz00_6043;
BgL_auxz00_6043 = 
(BgL_lenz00_1241-((long)1)); 
BgL_testz00_6042 = 
(BgL_iz00_1243==BgL_auxz00_6043); } 
if(BgL_testz00_6042)
{ /* ./Llib/intext.scm 1021 */
if(
PAIRP(BgL_pz00_1244))
{ /* ./Llib/intext.scm 1022 */
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4334, 
CAR(BgL_pz00_1244)); 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4334, BNIL); 
return 
BGl_pairzd2markzd2gcz12z12zz__intextz00(BgL_pz00_1244);}  else 
{ 
obj_t BgL_itemz00_6052;
BgL_itemz00_6052 = BgL_pz00_1244; 
BgL_itemz00_963 = BgL_itemz00_6052; 
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_6054;
BgL_auxz00_6054 = 
(int)(((long)1)); 
BgL_vcdrz00_1250 = 
STRUCT_REF(BgL_markz00_1249, BgL_auxz00_6054); } 
{ /* ./Llib/intext.scm 1030 */

BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4334, 
CAR(BgL_pz00_1244)); 
BGl_pairzd2markzd2gcz12z12zz__intextz00(BgL_pz00_1244); 
{ /* ./Llib/intext.scm 1033 */
bool_t BgL_test2602z00_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_6063;
{ /* ./Llib/intext.scm 1035 */
int BgL_auxz00_6064;
BgL_auxz00_6064 = 
(int)(((long)4)); 
BgL_auxz00_6063 = 
STRUCT_REF(BgL_markz00_1255, BgL_auxz00_6064); } 
BgL__ortest_1016z00_1256 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_auxz00_6063, 
BINT(((long)0))); } 
if(BgL__ortest_1016z00_1256)
{ /* ./Llib/intext.scm 1035 */
BgL_test2602z00_1252 = BgL__ortest_1016z00_1256; }  else 
{ /* ./Llib/intext.scm 1036 */
obj_t BgL_auxz00_6070;
{ /* ./Llib/intext.scm 1036 */
int BgL_auxz00_6071;
BgL_auxz00_6071 = 
(int)(((long)3)); 
BgL_auxz00_6070 = 
STRUCT_REF(BgL_markz00_1255, BgL_auxz00_6071); } 
BgL_test2602z00_1252 = 
CBOOL(BgL_auxz00_6070); } } }  else 
{ /* ./Llib/intext.scm 1033 */
BgL_test2602z00_1252 = ((bool_t)0); } 
if(BgL_test2602z00_1252)
{ 
obj_t BgL_itemz00_6076;
BgL_itemz00_6076 = BgL_vcdrz00_1250; 
BgL_itemz00_963 = BgL_itemz00_6076; 
goto BGl_printzd2itemzd2zz__intextz00;}  else 
{ 
obj_t BgL_pz00_6079;long BgL_iz00_6077;
BgL_iz00_6077 = 
(BgL_iz00_1243+((long)1)); 
BgL_pz00_6079 = BgL_vcdrz00_1250; 
BgL_pz00_1244 = BgL_pz00_6079; 
BgL_iz00_1243 = BgL_iz00_6077; 
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_refz00_1048 = 
BGl_getzd2newzd2refz00zz__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_6085;int BgL_auxz00_6083;
BgL_auxz00_6085 = 
BINT(BgL_refz00_1048); 
BgL_auxz00_6083 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1049, BgL_auxz00_6083, BgL_auxz00_6085); } 
{ /* ./Llib/intext.scm 1295 */
int BgL_auxz00_6088;
BgL_auxz00_6088 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1049, BgL_auxz00_6088, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1296 */
int BgL_auxz00_6093;
BgL_auxz00_6093 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6093, ((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_6100;
BgL_auxz00_6100 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6100, ((unsigned char)'(')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ 
long BgL_lenz00_6105;obj_t BgL_pz00_6104;
BgL_pz00_6104 = BgL_itemz00_963; 
BgL_lenz00_6105 = BgL_lenz00_1050; 
BgL_lenz00_1241 = BgL_lenz00_6105; 
BgL_pz00_1240 = BgL_pz00_6104; 
goto BgL_zc3anonymousza32584za3llibzf2intextze2scmza3990ze3z93_1242;} } } } } }  else 
{ /* ./Llib/intext.scm 1279 */
if(
VECTORP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1300 */
{ /* ./Llib/intext.scm 1302 */
bool_t BgL_test2088z00_1056;
{ /* ./Llib/intext.scm 1302 */
int BgL_arg2185z00_1090;
BgL_arg2185z00_1090 = 
VECTOR_LENGTH(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1302 */
long BgL_auxz00_6109;
BgL_auxz00_6109 = 
(long)(BgL_arg2185z00_1090); 
BgL_test2088z00_1056 = 
(BgL_auxz00_6109==((long)0)); } } 
if(BgL_test2088z00_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_6114;
{ /* ./Llib/intext.scm 1304 */
long BgL_auxz00_6115;
BgL_auxz00_6115 = 
(long)(BgL_tagz00_1057); 
BgL_testz00_6114 = 
(BgL_auxz00_6115>((long)0)); } 
if(BgL_testz00_6114)
{ /* ./Llib/intext.scm 1304 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1306 */
int BgL_auxz00_6120;
BgL_auxz00_6120 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6120, ((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_zc3anonymousza32658za3llibzf2intextze2scmza3990ze3z93_1282:
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(BgL_lenz00_1281); 
BGl_printzd2motzd2zz__intextz00(BgL_lenz00_1281); 
{ /* ./Llib/intext.scm 1002 */
bool_t BgL_testz00_6128;
{ /* ./Llib/intext.scm 1002 */
long BgL_auxz00_6129;
BgL_auxz00_6129 = 
(long)CINT(BgL_lenz00_1281); 
BgL_testz00_6128 = 
(BgL_auxz00_6129>((long)0)); } 
if(BgL_testz00_6128)
{ /* ./Llib/intext.scm 1002 */
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4334, 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_6133;
{ /* ./Llib/intext.scm 1004 */
long BgL_auxz00_6134;
{ /* ./Llib/intext.scm 1004 */
long BgL_auxz00_6135;
BgL_auxz00_6135 = 
(long)CINT(BgL_lenz00_1281); 
BgL_auxz00_6134 = 
(BgL_auxz00_6135-((long)1)); } 
BgL_testz00_6133 = 
(BgL_iz00_1284<=BgL_auxz00_6134); } 
if(BgL_testz00_6133)
{ /* ./Llib/intext.scm 1004 */
{ /* ./Llib/intext.scm 1005 */
obj_t BgL_auxz00_6139;
{ 
int BgL_auxz00_6140;
BgL_auxz00_6140 = 
(int)(BgL_iz00_1284); 
BgL_auxz00_6139 = 
VECTOR_REF(BgL_vz00_1279,BgL_auxz00_6140); } 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4334, BgL_auxz00_6139); } 
{ 
long BgL_iz00_6144;
BgL_iz00_6144 = 
(BgL_iz00_1284+((long)1)); 
BgL_iz00_1284 = BgL_iz00_6144; 
goto BgL_for1014z00_1285;} }  else 
{ /* ./Llib/intext.scm 1004 */
return BGl_symbol4862z00zz__intextz00;} } } }  else 
{ /* ./Llib/intext.scm 1304 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1310 */
int BgL_auxz00_6149;
BgL_auxz00_6149 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6149, ((unsigned char)'[')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ 
obj_t BgL_lenz00_6155;obj_t BgL_ref0z00_6154;obj_t BgL_vz00_6153;
BgL_vz00_6153 = BgL_itemz00_963; 
BgL_ref0z00_6154 = BNIL; 
BgL_lenz00_6155 = 
BINT(((long)0)); 
BgL_lenz00_1281 = BgL_lenz00_6155; 
BgL_ref0z00_1280 = BgL_ref0z00_6154; 
BgL_vz00_1279 = BgL_vz00_6153; 
goto BgL_zc3anonymousza32658za3llibzf2intextze2scmza3990ze3z93_1282;} } } } }  else 
{ /* ./Llib/intext.scm 1312 */
bool_t BgL_test2097z00_1059;
{ /* ./Llib/intext.scm 1312 */
obj_t BgL_arg2181z00_1089;
{ 
int BgL_auxz00_6157;
BgL_auxz00_6157 = 
(int)(((long)0)); 
BgL_arg2181z00_1089 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6157); } 
{ /* ./Llib/intext.scm 1312 */
obj_t BgL_auxz00_6160;
{ /* ./Llib/intext.scm 1312 */
int BgL_auxz00_6161;
BgL_auxz00_6161 = 
(int)(((long)3)); 
BgL_auxz00_6160 = 
STRUCT_REF(BgL_arg2181z00_1089, BgL_auxz00_6161); } 
BgL_test2097z00_1059 = 
CBOOL(BgL_auxz00_6160); } } 
if(BgL_test2097z00_1059)
{ /* ./Llib/intext.scm 1312 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1313 */
int BgL_auxz00_6168;
BgL_auxz00_6168 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6168, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1314 */
obj_t BgL_arg2100z00_1060;
{ /* ./Llib/intext.scm 1314 */
int BgL_auxz00_6176;obj_t BgL_auxz00_6172;
BgL_auxz00_6176 = 
(int)(((long)2)); 
{ 
int BgL_auxz00_6173;
BgL_auxz00_6173 = 
(int)(((long)0)); 
BgL_auxz00_6172 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6173); } 
BgL_arg2100z00_1060 = 
STRUCT_REF(BgL_auxz00_6172, BgL_auxz00_6176); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg2100z00_1060)); } 
{ /* ./Llib/intext.scm 1315 */
obj_t BgL_arg2107z00_1062;long BgL_arg2108z00_1063;
{ 
int BgL_auxz00_6181;
BgL_auxz00_6181 = 
(int)(((long)0)); 
BgL_arg2107z00_1062 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6181); } 
{ /* ./Llib/intext.scm 1317 */
obj_t BgL_arg2112z00_1064;
{ /* ./Llib/intext.scm 1316 */
int BgL_auxz00_6188;obj_t BgL_auxz00_6184;
BgL_auxz00_6188 = 
(int)(((long)4)); 
{ 
int BgL_auxz00_6185;
BgL_auxz00_6185 = 
(int)(((long)0)); 
BgL_auxz00_6184 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6185); } 
BgL_arg2112z00_1064 = 
STRUCT_REF(BgL_auxz00_6184, BgL_auxz00_6188); } 
{ /* ./Llib/intext.scm 1316 */
long BgL_auxz00_6191;
BgL_auxz00_6191 = 
(long)CINT(BgL_arg2112z00_1064); 
BgL_arg2108z00_1063 = 
(BgL_auxz00_6191-((long)1)); } } 
{ /* ./Llib/intext.scm 1315 */
obj_t BgL_auxz00_6196;int BgL_auxz00_6194;
BgL_auxz00_6196 = 
BINT(BgL_arg2108z00_1063); 
BgL_auxz00_6194 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2107z00_1062, BgL_auxz00_6194, BgL_auxz00_6196); } } 
{ /* ./Llib/intext.scm 1319 */
bool_t BgL_test2119z00_1067;
{ /* ./Llib/intext.scm 1319 */
obj_t BgL_arg2122z00_1068;
{ /* ./Llib/intext.scm 1319 */
int BgL_auxz00_6203;obj_t BgL_auxz00_6199;
BgL_auxz00_6203 = 
(int)(((long)4)); 
{ 
int BgL_auxz00_6200;
BgL_auxz00_6200 = 
(int)(((long)0)); 
BgL_auxz00_6199 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6200); } 
BgL_arg2122z00_1068 = 
STRUCT_REF(BgL_auxz00_6199, BgL_auxz00_6203); } 
{ /* ./Llib/intext.scm 1319 */
long BgL_auxz00_6206;
BgL_auxz00_6206 = 
(long)CINT(BgL_arg2122z00_1068); 
BgL_test2119z00_1067 = 
(BgL_auxz00_6206==((long)0)); } } 
if(BgL_test2119z00_1067)
{ 
obj_t BgL_auxz00_6212;int BgL_auxz00_6210;
{ /* ./Llib/intext.scm 1320 */
int BgL_auxz00_6217;obj_t BgL_auxz00_6213;
BgL_auxz00_6217 = 
(int)(((long)1)); 
{ 
int BgL_auxz00_6214;
BgL_auxz00_6214 = 
(int)(((long)0)); 
BgL_auxz00_6213 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6214); } 
BgL_auxz00_6212 = 
STRUCT_REF(BgL_auxz00_6213, BgL_auxz00_6217); } 
BgL_auxz00_6210 = 
(int)(((long)0)); 
return 
VECTOR_SET(BgL_itemz00_963,BgL_auxz00_6210,BgL_auxz00_6212);}  else 
{ /* ./Llib/intext.scm 1319 */
return BFALSE;} } }  else 
{ /* ./Llib/intext.scm 1321 */
bool_t BgL_test2129z00_1071;
{ /* ./Llib/intext.scm 1321 */
obj_t BgL_arg2173z00_1086;
{ /* ./Llib/intext.scm 1321 */
int BgL_auxz00_6225;obj_t BgL_auxz00_6221;
BgL_auxz00_6225 = 
(int)(((long)4)); 
{ 
int BgL_auxz00_6222;
BgL_auxz00_6222 = 
(int)(((long)0)); 
BgL_auxz00_6221 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6222); } 
BgL_arg2173z00_1086 = 
STRUCT_REF(BgL_auxz00_6221, BgL_auxz00_6225); } 
{ /* ./Llib/intext.scm 1321 */
long BgL_auxz00_6228;
BgL_auxz00_6228 = 
(long)CINT(BgL_arg2173z00_1086); 
BgL_test2129z00_1071 = 
(BgL_auxz00_6228==((long)0)); } } 
if(BgL_test2129z00_1071)
{ /* ./Llib/intext.scm 1321 */
{ 
obj_t BgL_auxz00_6234;int BgL_auxz00_6232;
{ /* ./Llib/intext.scm 1322 */
int BgL_auxz00_6239;obj_t BgL_auxz00_6235;
BgL_auxz00_6239 = 
(int)(((long)1)); 
{ 
int BgL_auxz00_6236;
BgL_auxz00_6236 = 
(int)(((long)0)); 
BgL_auxz00_6235 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6236); } 
BgL_auxz00_6234 = 
STRUCT_REF(BgL_auxz00_6235, BgL_auxz00_6239); } 
BgL_auxz00_6232 = 
(int)(((long)0)); 
VECTOR_SET(BgL_itemz00_963,BgL_auxz00_6232,BgL_auxz00_6234); } 
{ /* ./Llib/intext.scm 1323 */
int BgL_tagz00_1072;
BgL_tagz00_1072 = 
VECTOR_TAG(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1324 */
bool_t BgL_testz00_6244;
{ /* ./Llib/intext.scm 1324 */
long BgL_auxz00_6245;
BgL_auxz00_6245 = 
(long)(BgL_tagz00_1072); 
BgL_testz00_6244 = 
(BgL_auxz00_6245>((long)0)); } 
if(BgL_testz00_6244)
{ /* ./Llib/intext.scm 1324 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1326 */
int BgL_auxz00_6250;
BgL_auxz00_6250 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6250, ((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_arg2135z00_1074;int BgL_arg2136z00_1075;
{ 
int BgL_auxz00_6256;
BgL_auxz00_6256 = 
(int)(((long)0)); 
BgL_arg2135z00_1074 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6256); } 
BgL_arg2136z00_1075 = 
VECTOR_LENGTH(BgL_itemz00_963); 
{ 
obj_t BgL_lenz00_6262;obj_t BgL_ref0z00_6261;obj_t BgL_vz00_6260;
BgL_vz00_6260 = BgL_itemz00_963; 
BgL_ref0z00_6261 = BgL_arg2135z00_1074; 
BgL_lenz00_6262 = 
BINT(BgL_arg2136z00_1075); 
BgL_lenz00_1281 = BgL_lenz00_6262; 
BgL_ref0z00_1280 = BgL_ref0z00_6261; 
BgL_vz00_1279 = BgL_vz00_6260; 
goto BgL_zc3anonymousza32658za3llibzf2intextze2scmza3990ze3z93_1282;} } }  else 
{ /* ./Llib/intext.scm 1324 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1332 */
int BgL_auxz00_6266;
BgL_auxz00_6266 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6266, ((unsigned char)'[')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1334 */
obj_t BgL_arg2142z00_1076;int BgL_arg2143z00_1077;
{ 
int BgL_auxz00_6270;
BgL_auxz00_6270 = 
(int)(((long)0)); 
BgL_arg2142z00_1076 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6270); } 
BgL_arg2143z00_1077 = 
VECTOR_LENGTH(BgL_itemz00_963); 
{ 
obj_t BgL_lenz00_6276;obj_t BgL_ref0z00_6275;obj_t BgL_vz00_6274;
BgL_vz00_6274 = BgL_itemz00_963; 
BgL_ref0z00_6275 = BgL_arg2142z00_1076; 
BgL_lenz00_6276 = 
BINT(BgL_arg2143z00_1077); 
BgL_lenz00_1281 = BgL_lenz00_6276; 
BgL_ref0z00_1280 = BgL_ref0z00_6275; 
BgL_vz00_1279 = BgL_vz00_6274; 
goto BgL_zc3anonymousza32658za3llibzf2intextze2scmza3990ze3z93_1282;} } } } } }  else 
{ /* ./Llib/intext.scm 1321 */
{ /* ./Llib/intext.scm 1337 */
long BgL_refz00_1078;
BgL_refz00_1078 = 
BGl_getzd2newzd2refz00zz__intextz00(); 
{ /* ./Llib/intext.scm 1337 */
obj_t BgL_markz00_1079;
{ 
int BgL_auxz00_6279;
BgL_auxz00_6279 = 
(int)(((long)0)); 
BgL_markz00_1079 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6279); } 
{ /* ./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_6286;int BgL_auxz00_6284;
{ /* ./Llib/intext.scm 1344 */
int BgL_auxz00_6287;
BgL_auxz00_6287 = 
(int)(((long)1)); 
BgL_auxz00_6286 = 
STRUCT_REF(BgL_markz00_1079, BgL_auxz00_6287); } 
BgL_auxz00_6284 = 
(int)(((long)0)); 
VECTOR_SET(BgL_itemz00_963,BgL_auxz00_6284,BgL_auxz00_6286); } 
{ 
int BgL_auxz00_6291;
BgL_auxz00_6291 = 
(int)(((long)0)); 
BgL_ref0z00_1082 = 
VECTOR_REF(BgL_itemz00_963,BgL_auxz00_6291); } 
{ 
int BgL_auxz00_6294;
BgL_auxz00_6294 = 
(int)(((long)0)); 
VECTOR_SET(BgL_itemz00_963,BgL_auxz00_6294,BgL_markz00_1079); } 
{ /* ./Llib/intext.scm 1348 */
obj_t BgL_auxz00_6299;int BgL_auxz00_6297;
BgL_auxz00_6299 = 
BINT(BgL_refz00_1078); 
BgL_auxz00_6297 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1079, BgL_auxz00_6297, BgL_auxz00_6299); } 
{ /* ./Llib/intext.scm 1349 */
int BgL_auxz00_6302;
BgL_auxz00_6302 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1079, BgL_auxz00_6302, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1350 */
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_1078); 
{ /* ./Llib/intext.scm 1352 */
bool_t BgL_testz00_6312;
{ /* ./Llib/intext.scm 1352 */
long BgL_auxz00_6313;
BgL_auxz00_6313 = 
(long)(BgL_tagz00_1080); 
BgL_testz00_6312 = 
(BgL_auxz00_6313>((long)0)); } 
if(BgL_testz00_6312)
{ /* ./Llib/intext.scm 1352 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1354 */
int BgL_auxz00_6318;
BgL_auxz00_6318 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6318, ((unsigned char)'t')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2dizd2zz__intextz00(
(long)(BgL_tagz00_1080)); 
{ 
obj_t BgL_lenz00_6326;obj_t BgL_ref0z00_6325;obj_t BgL_vz00_6324;
BgL_vz00_6324 = BgL_itemz00_963; 
BgL_ref0z00_6325 = BgL_ref0z00_1082; 
BgL_lenz00_6326 = 
BINT(BgL_lenz00_1081); 
BgL_lenz00_1281 = BgL_lenz00_6326; 
BgL_ref0z00_1280 = BgL_ref0z00_6325; 
BgL_vz00_1279 = BgL_vz00_6324; 
goto BgL_zc3anonymousza32658za3llibzf2intextze2scmza3990ze3z93_1282;} }  else 
{ /* ./Llib/intext.scm 1352 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1358 */
int BgL_auxz00_6330;
BgL_auxz00_6330 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6330, ((unsigned char)'[')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ 
obj_t BgL_lenz00_6336;obj_t BgL_ref0z00_6335;obj_t BgL_vz00_6334;
BgL_vz00_6334 = BgL_itemz00_963; 
BgL_ref0z00_6335 = BgL_ref0z00_1082; 
BgL_lenz00_6336 = 
BINT(BgL_lenz00_1081); 
BgL_lenz00_1281 = BgL_lenz00_6336; 
BgL_ref0z00_1280 = BgL_ref0z00_6335; 
BgL_vz00_1279 = BgL_vz00_6334; 
goto BgL_zc3anonymousza32658za3llibzf2intextze2scmza3990ze3z93_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;
BgL_markz00_1152 = 
BGl_getzd2customzd2markz00zz__intextz00(BgL_itemz00_1150); 
{ /* ./Llib/intext.scm 1127 */
bool_t BgL_testz00_6341;
{ /* ./Llib/intext.scm 1127 */
obj_t BgL_auxz00_6342;
{ /* ./Llib/intext.scm 1127 */
int BgL_auxz00_6343;
BgL_auxz00_6343 = 
(int)(((long)3)); 
BgL_auxz00_6342 = 
STRUCT_REF(BgL_markz00_1152, BgL_auxz00_6343); } 
BgL_testz00_6341 = 
CBOOL(BgL_auxz00_6342); } 
if(BgL_testz00_6341)
{ /* ./Llib/intext.scm 1127 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1128 */
int BgL_auxz00_6349;
BgL_auxz00_6349 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6349, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1129 */
obj_t BgL_arg2360z00_1154;
{ /* ./Llib/intext.scm 1129 */
int BgL_auxz00_6353;
BgL_auxz00_6353 = 
(int)(((long)2)); 
BgL_arg2360z00_1154 = 
STRUCT_REF(BgL_markz00_1152, BgL_auxz00_6353); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg2360z00_1154)); } 
{ /* ./Llib/intext.scm 1130 */
long BgL_arg2364z00_1155;
{ /* ./Llib/intext.scm 1130 */
long BgL_auxz00_6358;
{ /* ./Llib/intext.scm 1130 */
obj_t BgL_auxz00_6359;
{ /* ./Llib/intext.scm 1130 */
int BgL_auxz00_6360;
BgL_auxz00_6360 = 
(int)(((long)4)); 
BgL_auxz00_6359 = 
STRUCT_REF(BgL_markz00_1152, BgL_auxz00_6360); } 
BgL_auxz00_6358 = 
(long)CINT(BgL_auxz00_6359); } 
BgL_arg2364z00_1155 = 
(BgL_auxz00_6358-((long)1)); } 
{ /* ./Llib/intext.scm 1130 */
obj_t BgL_auxz00_6367;int BgL_auxz00_6365;
BgL_auxz00_6367 = 
BINT(BgL_arg2364z00_1155); 
BgL_auxz00_6365 = 
(int)(((long)4)); 
STRUCT_SET(BgL_markz00_1152, BgL_auxz00_6365, BgL_auxz00_6367); } } 
{ /* ./Llib/intext.scm 1131 */
bool_t BgL_testz00_6370;
{ /* ./Llib/intext.scm 1131 */
long BgL_auxz00_6371;
{ /* ./Llib/intext.scm 1131 */
obj_t BgL_auxz00_6372;
{ /* ./Llib/intext.scm 1131 */
int BgL_auxz00_6373;
BgL_auxz00_6373 = 
(int)(((long)4)); 
BgL_auxz00_6372 = 
STRUCT_REF(BgL_markz00_1152, BgL_auxz00_6373); } 
BgL_auxz00_6371 = 
(long)CINT(BgL_auxz00_6372); } 
BgL_testz00_6370 = 
(BgL_auxz00_6371==((long)0)); } 
if(BgL_testz00_6370)
{ /* ./Llib/intext.scm 1132 */
obj_t BgL_markz00_3416;
BgL_markz00_3416 = 
BGl_getzd2customzd2markz00zz__intextz00(BgL_itemz00_1150); 
{ /* ./Llib/intext.scm 1132 */
obj_t BgL_arg1599z00_3417;
{ /* ./Llib/intext.scm 1132 */
int BgL_auxz00_6379;
BgL_auxz00_6379 = 
(int)(((long)1)); 
BgL_arg1599z00_3417 = 
STRUCT_REF(BgL_markz00_3416, BgL_auxz00_6379); } 
{ /* ./Llib/intext.scm 1132 */
char * BgL_auxz00_6382;
BgL_auxz00_6382 = 
BSTRING_TO_STRING(BgL_arg1599z00_3417); 
CUSTOM_IDENTIFIER_SET(BgL_itemz00_1150, BgL_auxz00_6382); } } 
return BgL_itemz00_1150;}  else 
{ /* ./Llib/intext.scm 1131 */
return BFALSE;} } }  else 
{ /* ./Llib/intext.scm 1133 */
bool_t BgL_testz00_6385;
{ /* ./Llib/intext.scm 1133 */
long BgL_auxz00_6386;
{ /* ./Llib/intext.scm 1133 */
obj_t BgL_auxz00_6387;
{ /* ./Llib/intext.scm 1133 */
int BgL_auxz00_6388;
BgL_auxz00_6388 = 
(int)(((long)4)); 
BgL_auxz00_6387 = 
STRUCT_REF(BgL_markz00_1152, BgL_auxz00_6388); } 
BgL_auxz00_6386 = 
(long)CINT(BgL_auxz00_6387); } 
BgL_testz00_6385 = 
(BgL_auxz00_6386==((long)0)); } 
if(BgL_testz00_6385)
{ /* ./Llib/intext.scm 1133 */
{ /* ./Llib/intext.scm 1134 */
obj_t BgL_markz00_3429;
BgL_markz00_3429 = 
BGl_getzd2customzd2markz00zz__intextz00(BgL_itemz00_1150); 
{ /* ./Llib/intext.scm 1134 */
obj_t BgL_arg1599z00_3430;
{ /* ./Llib/intext.scm 1134 */
int BgL_auxz00_6394;
BgL_auxz00_6394 = 
(int)(((long)1)); 
BgL_arg1599z00_3430 = 
STRUCT_REF(BgL_markz00_3429, BgL_auxz00_6394); } 
{ /* ./Llib/intext.scm 1134 */
char * BgL_auxz00_6397;
BgL_auxz00_6397 = 
BSTRING_TO_STRING(BgL_arg1599z00_3430); 
CUSTOM_IDENTIFIER_SET(BgL_itemz00_1150, BgL_auxz00_6397); } } BgL_itemz00_1150; } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1135 */
int BgL_auxz00_6402;
BgL_auxz00_6402 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6402, 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_3444;
BgL_cellz00_3444 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(
string_to_bstring(BgL_identz00_1162), BGl_za2customzd2serializa7ationza2z75zz__intextz00); 
if(
PAIRP(BgL_cellz00_3444))
{ /* ./Llib/intext.scm 1137 */
obj_t BgL_auxz00_6411;
BgL_auxz00_6411 = 
CDR(BgL_cellz00_3444); 
BgL_serializa7erza7_1163 = 
CAR(BgL_auxz00_6411); }  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_arg2384z00_1165;
{ /* ./Llib/intext.scm 1141 */
obj_t BgL_auxz00_6416;
BgL_auxz00_6416 = 
string_to_bstring(BgL_identz00_1162); 
BgL_arg2384z00_1165 = 
STRING_LENGTH(BgL_auxz00_6416); } 
BGl_printzd2charszd2zz__intextz00(
string_to_bstring(BgL_identz00_1162), 
BINT(BgL_arg2384z00_1165)); } 
return 
PROCEDURE_ENTRY(BgL_serializa7erza7_1163)(BgL_serializa7erza7_1163, BgL_itemz00_1150, BEOA);}  else 
{ /* ./Llib/intext.scm 1138 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4847z00zz__intextz00, BGl_string4893z00zz__intextz00, BgL_itemz00_1150, "./Llib/intext.scm", ((long)45121)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4845z00zz__intextz00, 
BINT(((long)45162)));} } } } }  else 
{ /* ./Llib/intext.scm 1133 */
{ /* ./Llib/intext.scm 1144 */
long BgL_refz00_1166;
BgL_refz00_1166 = 
BGl_getzd2newzd2refz00zz__intextz00(); 
{ /* ./Llib/intext.scm 1145 */
obj_t BgL_auxz00_6430;int BgL_auxz00_6428;
BgL_auxz00_6430 = 
BINT(BgL_refz00_1166); 
BgL_auxz00_6428 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1152, BgL_auxz00_6428, BgL_auxz00_6430); } 
{ /* ./Llib/intext.scm 1146 */
int BgL_auxz00_6433;
BgL_auxz00_6433 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1152, BgL_auxz00_6433, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1147 */
int BgL_auxz00_6438;
BgL_auxz00_6438 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6438, ((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_6445;
BgL_auxz00_6445 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6445, BgL_marqueurz00_1149); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1150 */
obj_t BgL_auxz00_6449;
{ /* ./Llib/intext.scm 1150 */
int BgL_auxz00_6450;
BgL_auxz00_6450 = 
(int)(((long)1)); 
BgL_auxz00_6449 = 
STRUCT_REF(BgL_markz00_1152, BgL_auxz00_6450); } 
return 
BGl_printzd2charszd2zz__intextz00(BgL_itemz00_1150, BgL_auxz00_6449);} } } } } } }  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_6456;
BgL_auxz00_6456 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_markz00_1094 = 
CDR(BgL_auxz00_6456); } 
{ /* ./Llib/intext.scm 1365 */
bool_t BgL_testz00_6459;
{ /* ./Llib/intext.scm 1365 */
obj_t BgL_auxz00_6460;
{ /* ./Llib/intext.scm 1365 */
int BgL_auxz00_6461;
BgL_auxz00_6461 = 
(int)(((long)3)); 
BgL_auxz00_6460 = 
STRUCT_REF(BgL_markz00_1094, BgL_auxz00_6461); } 
BgL_testz00_6459 = 
CBOOL(BgL_auxz00_6460); } 
if(BgL_testz00_6459)
{ /* ./Llib/intext.scm 1365 */
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1366 */
int BgL_auxz00_6467;
BgL_auxz00_6467 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6467, ((unsigned char)'#')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1367 */
obj_t BgL_arg2196z00_1096;
{ /* ./Llib/intext.scm 1367 */
int BgL_auxz00_6475;obj_t BgL_auxz00_6471;
BgL_auxz00_6475 = 
(int)(((long)2)); 
{ /* ./Llib/intext.scm 1367 */
obj_t BgL_auxz00_6472;
BgL_auxz00_6472 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_auxz00_6471 = 
CDR(BgL_auxz00_6472); } 
BgL_arg2196z00_1096 = 
STRUCT_REF(BgL_auxz00_6471, BgL_auxz00_6475); } 
BGl_printzd2dizd2zz__intextz00(
(long)CINT(BgL_arg2196z00_1096)); } 
{ /* ./Llib/intext.scm 1368 */
obj_t BgL_arg2203z00_1098;long BgL_arg2204z00_1099;
{ /* ./Llib/intext.scm 1368 */
obj_t BgL_auxz00_6480;
BgL_auxz00_6480 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_arg2203z00_1098 = 
CDR(BgL_auxz00_6480); } 
{ /* ./Llib/intext.scm 1370 */
obj_t BgL_arg2209z00_1100;
{ /* ./Llib/intext.scm 1369 */
int BgL_auxz00_6487;obj_t BgL_auxz00_6483;
BgL_auxz00_6487 = 
(int)(((long)4)); 
{ /* ./Llib/intext.scm 1370 */
obj_t BgL_auxz00_6484;
BgL_auxz00_6484 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_auxz00_6483 = 
CDR(BgL_auxz00_6484); } 
BgL_arg2209z00_1100 = 
STRUCT_REF(BgL_auxz00_6483, BgL_auxz00_6487); } 
{ /* ./Llib/intext.scm 1369 */
long BgL_auxz00_6490;
BgL_auxz00_6490 = 
(long)CINT(BgL_arg2209z00_1100); 
BgL_arg2204z00_1099 = 
(BgL_auxz00_6490-((long)1)); } } 
{ /* ./Llib/intext.scm 1368 */
obj_t BgL_auxz00_6495;int BgL_auxz00_6493;
BgL_auxz00_6495 = 
BINT(BgL_arg2204z00_1099); 
BgL_auxz00_6493 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2203z00_1098, BgL_auxz00_6493, BgL_auxz00_6495); } } 
{ /* ./Llib/intext.scm 1372 */
bool_t BgL_test2216z00_1103;
{ /* ./Llib/intext.scm 1372 */
obj_t BgL_arg2219z00_1104;
{ /* ./Llib/intext.scm 1372 */
int BgL_auxz00_6502;obj_t BgL_auxz00_6498;
BgL_auxz00_6502 = 
(int)(((long)4)); 
{ /* ./Llib/intext.scm 1372 */
obj_t BgL_auxz00_6499;
BgL_auxz00_6499 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_auxz00_6498 = 
CDR(BgL_auxz00_6499); } 
BgL_arg2219z00_1104 = 
STRUCT_REF(BgL_auxz00_6498, BgL_auxz00_6502); } 
{ /* ./Llib/intext.scm 1372 */
long BgL_auxz00_6505;
BgL_auxz00_6505 = 
(long)CINT(BgL_arg2219z00_1104); 
BgL_test2216z00_1103 = 
(BgL_auxz00_6505==((long)0)); } } 
if(BgL_test2216z00_1103)
{ /* ./Llib/intext.scm 1372 */
return BUNSPEC;}  else 
{ /* ./Llib/intext.scm 1372 */
return BFALSE;} } }  else 
{ /* ./Llib/intext.scm 1374 */
bool_t BgL_testz00_6509;
{ /* ./Llib/intext.scm 1374 */
long BgL_auxz00_6510;
{ /* ./Llib/intext.scm 1374 */
obj_t BgL_auxz00_6511;
{ /* ./Llib/intext.scm 1374 */
int BgL_auxz00_6512;
BgL_auxz00_6512 = 
(int)(((long)4)); 
BgL_auxz00_6511 = 
STRUCT_REF(BgL_markz00_1094, BgL_auxz00_6512); } 
BgL_auxz00_6510 = 
(long)CINT(BgL_auxz00_6511); } 
BgL_testz00_6509 = 
(BgL_auxz00_6510==((long)0)); } 
if(BgL_testz00_6509)
{ /* ./Llib/intext.scm 1374 */
{ /* ./Llib/intext.scm 1375 */
obj_t BgL_vz00_1108;
{ /* ./Llib/intext.scm 1375 */
int BgL_auxz00_6521;obj_t BgL_auxz00_6517;
BgL_auxz00_6521 = 
(int)(((long)5)); 
{ /* ./Llib/intext.scm 1375 */
obj_t BgL_auxz00_6518;
BgL_auxz00_6518 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_auxz00_6517 = 
CDR(BgL_auxz00_6518); } 
BgL_vz00_1108 = 
STRUCT_REF(BgL_auxz00_6517, BgL_auxz00_6521); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1377 */
int BgL_auxz00_6526;
BgL_auxz00_6526 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6526, ((unsigned char)'V')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4334, 
BGl_tvectorzd2idzd2zz__tvectorz00(BgL_itemz00_963)); 
{ 
obj_t BgL_itemz00_6532;
BgL_itemz00_6532 = BgL_vz00_1108; 
BgL_itemz00_963 = BgL_itemz00_6532; 
goto BGl_printzd2itemzd2zz__intextz00;} } }  else 
{ /* ./Llib/intext.scm 1374 */
{ /* ./Llib/intext.scm 1381 */
long BgL_refz00_1110;
BgL_refz00_1110 = 
BGl_getzd2newzd2refz00zz__intextz00(); 
{ /* ./Llib/intext.scm 1382 */
obj_t BgL_vz00_1112;
{ /* ./Llib/intext.scm 1383 */
int BgL_auxz00_6538;obj_t BgL_auxz00_6534;
BgL_auxz00_6538 = 
(int)(((long)5)); 
{ /* ./Llib/intext.scm 1383 */
obj_t BgL_auxz00_6535;
BgL_auxz00_6535 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_auxz00_6534 = 
CDR(BgL_auxz00_6535); } 
BgL_vz00_1112 = 
STRUCT_REF(BgL_auxz00_6534, BgL_auxz00_6538); } 
{ /* ./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_6544;int BgL_auxz00_6542;
BgL_auxz00_6544 = 
BINT(BgL_refz00_1110); 
BgL_auxz00_6542 = 
(int)(((long)2)); 
STRUCT_SET(BgL_markz00_1094, BgL_auxz00_6542, BgL_auxz00_6544); } 
{ /* ./Llib/intext.scm 1387 */
int BgL_auxz00_6547;
BgL_auxz00_6547 = 
(int)(((long)3)); 
STRUCT_SET(BgL_markz00_1094, BgL_auxz00_6547, BTRUE); } 
BGl_verifiezd2taillezd2bufferz12z12zz__intextz00(
BINT(((long)0))); 
{ /* ./Llib/intext.scm 1388 */
int BgL_auxz00_6552;
BgL_auxz00_6552 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6552, ((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_6559;
BgL_auxz00_6559 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6559, ((unsigned char)'V')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
BGl_printzd2itemzd2zz__intextz00(BgL_objz00_4334, BgL_idz00_1113); 
{ 
obj_t BgL_itemz00_6564;
BgL_itemz00_6564 = BgL_vz00_1112; 
BgL_itemz00_963 = BgL_itemz00_6564; 
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_arg2256z00_1118;
BgL_arg2256z00_1118 = 
MAKE_PAIR(BgL_objz00_4334, BgL_itemz00_1117); 
BGl_za2procedurezd2tableza2zd2zz__intextz00 = 
MAKE_PAIR(BgL_arg2256z00_1118, BGl_za2procedurezd2tableza2zd2zz__intextz00); } 
return 
BGl_markzd2itemz12zc0zz__intextz00(BgL_itemz00_1117);} }  else 
{ /* ./Llib/intext.scm 1393 */
if(
PROCEDUREP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1397 */
{ 
obj_t BgL_itemz00_6575;unsigned char BgL_marqueurz00_6574;
BgL_marqueurz00_6574 = ((unsigned char)'p'); 
{ /* ./Llib/intext.scm 1398 */
obj_t BgL_auxz00_6576;
BgL_auxz00_6576 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2procedurezd2tableza2zd2zz__intextz00); 
BgL_itemz00_6575 = 
CDR(BgL_auxz00_6576); } 
BgL_itemz00_1171 = BgL_itemz00_6575; 
BgL_marqueurz00_1170 = BgL_marqueurz00_6574; 
goto BgL_zc3anonymousza32410za3llibzf2intextze2scmza3990ze3z93_1172;} }  else 
{ /* ./Llib/intext.scm 1397 */
if(
PROCESSP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1400 */
{ 
obj_t BgL_itemz00_6582;unsigned char BgL_marqueurz00_6581;
BgL_marqueurz00_6581 = ((unsigned char)'e'); 
{ /* ./Llib/intext.scm 1401 */
obj_t BgL_auxz00_6583;
BgL_auxz00_6583 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2processzd2tableza2zd2zz__intextz00); 
BgL_itemz00_6582 = 
CDR(BgL_auxz00_6583); } 
BgL_itemz00_1171 = BgL_itemz00_6582; 
BgL_marqueurz00_1170 = BgL_marqueurz00_6581; 
goto BgL_zc3anonymousza32410za3llibzf2intextze2scmza3990ze3z93_1172;} }  else 
{ /* ./Llib/intext.scm 1400 */
if(
OPAQUEP(BgL_itemz00_963))
{ /* ./Llib/intext.scm 1403 */
{ 
obj_t BgL_itemz00_6589;unsigned char BgL_marqueurz00_6588;
BgL_marqueurz00_6588 = ((unsigned char)'o'); 
{ /* ./Llib/intext.scm 1404 */
obj_t BgL_auxz00_6590;
BgL_auxz00_6590 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_itemz00_963, BGl_za2opaquezd2tableza2zd2zz__intextz00); 
BgL_itemz00_6589 = 
CDR(BgL_auxz00_6590); } 
BgL_itemz00_1171 = BgL_itemz00_6589; 
BgL_marqueurz00_1170 = BgL_marqueurz00_6588; 
goto BgL_zc3anonymousza32410za3llibzf2intextze2scmza3990ze3z93_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_6597;
BgL_auxz00_6597 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6597, ((unsigned char)'E')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1408 */
long BgL_ez00_3308;
BgL_ez00_3308 = 
BELONG_TO_LONG(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1408 */
obj_t BgL_sz00_3309;
BgL_sz00_3309 = 
BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
LONG_TO_BELONG(BgL_ez00_3308), BNIL); 
{ /* ./Llib/intext.scm 1408 */
int BgL_arg1803z00_3311;
BgL_arg1803z00_3311 = 
STRING_LENGTH(BgL_sz00_3309); 
return 
BGl_printzd2charszd2zz__intextz00(BgL_sz00_3309, 
BINT(BgL_arg1803z00_3311));} } } }  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_6611;
BgL_auxz00_6611 = 
(int)(BGl_za2pointeurza2z00zz__intextz00); 
STRING_SET(BGl_za2bufferza2z00zz__intextz00, BgL_auxz00_6611, ((unsigned char)'L')); } 
BGl_za2pointeurza2z00zz__intextz00 = 
(BGl_za2pointeurza2z00zz__intextz00+((long)1)); 
{ /* ./Llib/intext.scm 1411 */
BGL_LONGLONG_T BgL_lz00_3320;
BgL_lz00_3320 = 
BLLONG_TO_LLONG(BgL_itemz00_963); 
{ /* ./Llib/intext.scm 1411 */
obj_t BgL_sz00_3321;
BgL_sz00_3321 = 
BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
LLONG_TO_BLLONG(BgL_lz00_3320), BNIL); 
{ /* ./Llib/intext.scm 1411 */
int BgL_arg1809z00_3323;
BgL_arg1809z00_3323 = 
STRING_LENGTH(BgL_sz00_3321); 
return 
BGl_printzd2charszd2zz__intextz00(BgL_sz00_3321, 
BINT(BgL_arg1809z00_3323));} } } }  else 
{ /* ./Llib/intext.scm 1409 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4847z00zz__intextz00, BGl_string4894z00zz__intextz00, BgL_itemz00_963, "./Llib/intext.scm", ((long)53099)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4845z00zz__intextz00, 
BINT(((long)53099)));} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } 
}



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



/* <anonymous:1828:Llib/intext.scm:1415> */
obj_t BGl_zc3anonymousza31828za3Llibzf2intextze2scmza31415ze3z93zz__intextz00(obj_t BgL_envz00_4316, obj_t BgL_sz00_4317)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1416 */
{ 
obj_t BgL_sz00_958;
{ /* ./Llib/intext.scm 1417 */
long BgL_auxz00_6625;
BgL_sz00_958 = BgL_sz00_4317; 
BgL_auxz00_6625 = 
get_hash_power_number_from_pointer(BgL_sz00_958, ((long)10)); 
return 
BINT(BgL_auxz00_6625);} } } 
}



/* mark-item! */
obj_t BGl_markzd2itemz12zc0zz__intextz00(obj_t BgL_objz00_97)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1442 */
{ /* ./Llib/intext.scm 1443 */
obj_t BgL_symbol3956z00_4267;
BgL_symbol3956z00_4267 = BGl_symbol4895z00zz__intextz00; 
{ /* ./Llib/intext.scm 1443 */

PUSH_TRACE(BgL_symbol3956z00_4267); BUNSPEC; 
{ /* ./Llib/intext.scm 1443 */
obj_t BgL_aux3955z00_4268;
BgL_aux3955z00_4268 = 
BGl_loopz00zz__intextz00(BgL_objz00_97); 
POP_TRACE(); 
return BgL_aux3955z00_4268;} } } } 
}



/* 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_test2682z00_1308;
BgL_test2682z00_1308 = 
BGL_OBJECTP(BgL_objz00_1306); 
if(BgL_test2682z00_1308)
{ /* ./Llib/intext.scm 1445 */
{ /* ./Llib/intext.scm 1446 */
bool_t BgL_test2683z00_1309;
{ /* ./Llib/intext.scm 1446 */
obj_t BgL_arg1732z00_3759;
{ /* ./Llib/intext.scm 1446 */
BgL_objectz00_bglt BgL_auxz00_6633;
BgL_auxz00_6633 = 
(BgL_objectz00_bglt)(BgL_objz00_1306); 
BgL_arg1732z00_3759 = 
BGL_OBJECT_WIDENING(BgL_auxz00_6633); } 
if(
STRUCTP(BgL_arg1732z00_3759))
{ /* ./Llib/intext.scm 1446 */
obj_t BgL_auxz00_6638;
BgL_auxz00_6638 = 
STRUCT_KEY(BgL_arg1732z00_3759); 
BgL_test2683z00_1309 = 
(BgL_auxz00_6638==BGl_symbol4869z00zz__intextz00); }  else 
{ /* ./Llib/intext.scm 1446 */
BgL_test2683z00_1309 = ((bool_t)0); } } 
if(BgL_test2683z00_1309)
{ /* ./Llib/intext.scm 1447 */
obj_t BgL_arg2685z00_1310;
{ /* ./Llib/intext.scm 1447 */
BgL_objectz00_bglt BgL_auxz00_6642;
BgL_auxz00_6642 = 
(BgL_objectz00_bglt)(BgL_objz00_1306); 
BgL_arg2685z00_1310 = 
BGL_OBJECT_WIDENING(BgL_auxz00_6642); } 
{ /* ./Llib/intext.scm 1447 */
long BgL_refz00_3770;
BgL_refz00_3770 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1447 */
obj_t BgL_oldzd2markzd2_3771;
{ /* ./Llib/intext.scm 1447 */
int BgL_auxz00_6645;
BgL_auxz00_6645 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_3771 = 
STRUCT_REF(BgL_arg2685z00_1310, BgL_auxz00_6645); } 
{ /* ./Llib/intext.scm 1447 */
long BgL_arg1493z00_3772;
{ /* ./Llib/intext.scm 1447 */
long BgL_auxz00_6648;
BgL_auxz00_6648 = 
(long)CINT(BgL_oldzd2markzd2_3771); 
BgL_arg1493z00_3772 = 
(((long)1)+BgL_auxz00_6648); } 
{ /* ./Llib/intext.scm 1447 */
obj_t BgL_auxz00_6653;int BgL_auxz00_6651;
BgL_auxz00_6653 = 
BINT(BgL_arg1493z00_3772); 
BgL_auxz00_6651 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2685z00_1310, BgL_auxz00_6651, BgL_auxz00_6653); } } 
{ /* ./Llib/intext.scm 1447 */
bool_t BgL_testz00_6656;
{ /* ./Llib/intext.scm 1447 */
long BgL_auxz00_6657;
BgL_auxz00_6657 = 
(long)CINT(BgL_oldzd2markzd2_3771); 
BgL_testz00_6656 = 
(BgL_auxz00_6657==((long)0)); } 
if(BgL_testz00_6656)
{ /* ./Llib/intext.scm 1447 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_3770+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1447 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_3770, 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_6664;
BgL_objz00_6664 = BgL_structz00_1311; 
BgL_objz00_1306 = BgL_objz00_6664; 
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_test2693z00_1313;
{ /* ./Llib/intext.scm 1453 */
obj_t BgL_arg1711z00_3790;
BgL_arg1711z00_3790 = 
STRUCT_KEY(BgL_objz00_1306); 
if(
STRUCTP(BgL_arg1711z00_3790))
{ /* ./Llib/intext.scm 1453 */
obj_t BgL_auxz00_6670;
BgL_auxz00_6670 = 
STRUCT_KEY(BgL_arg1711z00_3790); 
BgL_test2693z00_1313 = 
(BgL_auxz00_6670==BGl_symbol4869z00zz__intextz00); }  else 
{ /* ./Llib/intext.scm 1453 */
BgL_test2693z00_1313 = ((bool_t)0); } } 
if(BgL_test2693z00_1313)
{ /* ./Llib/intext.scm 1454 */
obj_t BgL_arg2695z00_1314;
BgL_arg2695z00_1314 = 
STRUCT_KEY(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1454 */
long BgL_refz00_3801;
BgL_refz00_3801 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1454 */
obj_t BgL_oldzd2markzd2_3802;
{ /* ./Llib/intext.scm 1454 */
int BgL_auxz00_6675;
BgL_auxz00_6675 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_3802 = 
STRUCT_REF(BgL_arg2695z00_1314, BgL_auxz00_6675); } 
{ /* ./Llib/intext.scm 1454 */
long BgL_arg1493z00_3803;
{ /* ./Llib/intext.scm 1454 */
long BgL_auxz00_6678;
BgL_auxz00_6678 = 
(long)CINT(BgL_oldzd2markzd2_3802); 
BgL_arg1493z00_3803 = 
(((long)1)+BgL_auxz00_6678); } 
{ /* ./Llib/intext.scm 1454 */
obj_t BgL_auxz00_6683;int BgL_auxz00_6681;
BgL_auxz00_6683 = 
BINT(BgL_arg1493z00_3803); 
BgL_auxz00_6681 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2695z00_1314, BgL_auxz00_6681, BgL_auxz00_6683); } } 
{ /* ./Llib/intext.scm 1454 */
bool_t BgL_testz00_6686;
{ /* ./Llib/intext.scm 1454 */
long BgL_auxz00_6687;
BgL_auxz00_6687 = 
(long)CINT(BgL_oldzd2markzd2_3802); 
BgL_testz00_6686 = 
(BgL_auxz00_6687==((long)0)); } 
if(BgL_testz00_6686)
{ /* ./Llib/intext.scm 1454 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_3801+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1454 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_3801, 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_6695;
{ /* ./Llib/intext.scm 1463 */
long BgL_auxz00_6696;
BgL_auxz00_6696 = 
(long)(BgL_lenz00_1316); 
BgL_testz00_6695 = 
(BgL_iz00_1317==BgL_auxz00_6696); } 
if(BgL_testz00_6695)
{ /* ./Llib/intext.scm 1463 */
return BGl_symbol4862z00zz__intextz00;}  else 
{ /* ./Llib/intext.scm 1463 */
{ /* ./Llib/intext.scm 1466 */
obj_t BgL_auxz00_6699;
{ /* ./Llib/intext.scm 1466 */
int BgL_auxz00_6700;
BgL_auxz00_6700 = 
(int)(BgL_iz00_1317); 
BgL_auxz00_6699 = 
STRUCT_REF(BgL_objz00_1306, BgL_auxz00_6700); } 
BGl_loopz00zz__intextz00(BgL_auxz00_6699); } 
{ 
long BgL_iz00_6704;
BgL_iz00_6704 = 
(BgL_iz00_1317+((long)1)); 
BgL_iz00_1317 = BgL_iz00_6704; 
goto BgL_liipz00_1318;} } } } } } }  else 
{ /* ./Llib/intext.scm 1468 */
bool_t BgL_test2714z00_1322;
{ /* ./Llib/intext.scm 1468 */
bool_t BgL_test2872z00_1382;
BgL_test2872z00_1382 = 
EXTENDED_PAIRP(BgL_objz00_1306); 
if(BgL_test2872z00_1382)
{ /* ./Llib/intext.scm 1468 */
BgL_test2714z00_1322 = BGl_za2epairzf3za2zf3zz__intextz00; }  else 
{ /* ./Llib/intext.scm 1468 */
BgL_test2714z00_1322 = ((bool_t)0); } } 
if(BgL_test2714z00_1322)
{ /* ./Llib/intext.scm 1468 */
{ /* ./Llib/intext.scm 1469 */
bool_t BgL_test2715z00_1323;
{ /* ./Llib/intext.scm 1469 */
obj_t BgL_arg1516z00_3828;
BgL_arg1516z00_3828 = 
CDR(BgL_objz00_1306); 
if(
STRUCTP(BgL_arg1516z00_3828))
{ /* ./Llib/intext.scm 1469 */
obj_t BgL_auxz00_6712;
BgL_auxz00_6712 = 
STRUCT_KEY(BgL_arg1516z00_3828); 
BgL_test2715z00_1323 = 
(BgL_auxz00_6712==BGl_symbol4869z00zz__intextz00); }  else 
{ /* ./Llib/intext.scm 1469 */
BgL_test2715z00_1323 = ((bool_t)0); } } 
if(BgL_test2715z00_1323)
{ /* ./Llib/intext.scm 1470 */
obj_t BgL_arg2717z00_1324;
BgL_arg2717z00_1324 = 
CDR(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1470 */
long BgL_refz00_3840;
BgL_refz00_3840 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1470 */
obj_t BgL_oldzd2markzd2_3841;
{ /* ./Llib/intext.scm 1470 */
int BgL_auxz00_6717;
BgL_auxz00_6717 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_3841 = 
STRUCT_REF(BgL_arg2717z00_1324, BgL_auxz00_6717); } 
{ /* ./Llib/intext.scm 1470 */
long BgL_arg1493z00_3842;
{ /* ./Llib/intext.scm 1470 */
long BgL_auxz00_6720;
BgL_auxz00_6720 = 
(long)CINT(BgL_oldzd2markzd2_3841); 
BgL_arg1493z00_3842 = 
(((long)1)+BgL_auxz00_6720); } 
{ /* ./Llib/intext.scm 1470 */
obj_t BgL_auxz00_6725;int BgL_auxz00_6723;
BgL_auxz00_6725 = 
BINT(BgL_arg1493z00_3842); 
BgL_auxz00_6723 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2717z00_1324, BgL_auxz00_6723, BgL_auxz00_6725); } } 
{ /* ./Llib/intext.scm 1470 */
bool_t BgL_testz00_6728;
{ /* ./Llib/intext.scm 1470 */
long BgL_auxz00_6729;
BgL_auxz00_6729 = 
(long)CINT(BgL_oldzd2markzd2_3841); 
BgL_testz00_6728 = 
(BgL_auxz00_6729==((long)0)); } 
if(BgL_testz00_6728)
{ /* ./Llib/intext.scm 1470 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_3840+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1470 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_3840, 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_6739;
BgL_objz00_6739 = BgL_ocdrz00_1326; 
BgL_objz00_1306 = BgL_objz00_6739; 
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_test2729z00_1329;
{ /* ./Llib/intext.scm 1482 */
obj_t BgL_arg1516z00_3863;
BgL_arg1516z00_3863 = 
CDR(BgL_objz00_1306); 
if(
STRUCTP(BgL_arg1516z00_3863))
{ /* ./Llib/intext.scm 1482 */
obj_t BgL_auxz00_6745;
BgL_auxz00_6745 = 
STRUCT_KEY(BgL_arg1516z00_3863); 
BgL_test2729z00_1329 = 
(BgL_auxz00_6745==BGl_symbol4869z00zz__intextz00); }  else 
{ /* ./Llib/intext.scm 1482 */
BgL_test2729z00_1329 = ((bool_t)0); } } 
if(BgL_test2729z00_1329)
{ /* ./Llib/intext.scm 1483 */
obj_t BgL_arg2731z00_1330;
BgL_arg2731z00_1330 = 
CDR(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1483 */
long BgL_refz00_3875;
BgL_refz00_3875 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1483 */
obj_t BgL_oldzd2markzd2_3876;
{ /* ./Llib/intext.scm 1483 */
int BgL_auxz00_6750;
BgL_auxz00_6750 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_3876 = 
STRUCT_REF(BgL_arg2731z00_1330, BgL_auxz00_6750); } 
{ /* ./Llib/intext.scm 1483 */
long BgL_arg1493z00_3877;
{ /* ./Llib/intext.scm 1483 */
long BgL_auxz00_6753;
BgL_auxz00_6753 = 
(long)CINT(BgL_oldzd2markzd2_3876); 
BgL_arg1493z00_3877 = 
(((long)1)+BgL_auxz00_6753); } 
{ /* ./Llib/intext.scm 1483 */
obj_t BgL_auxz00_6758;int BgL_auxz00_6756;
BgL_auxz00_6758 = 
BINT(BgL_arg1493z00_3877); 
BgL_auxz00_6756 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2731z00_1330, BgL_auxz00_6756, BgL_auxz00_6758); } } 
{ /* ./Llib/intext.scm 1483 */
bool_t BgL_testz00_6761;
{ /* ./Llib/intext.scm 1483 */
long BgL_auxz00_6762;
BgL_auxz00_6762 = 
(long)CINT(BgL_oldzd2markzd2_3876); 
BgL_testz00_6761 = 
(BgL_auxz00_6762==((long)0)); } 
if(BgL_testz00_6761)
{ /* ./Llib/intext.scm 1483 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_3875+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1483 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_3875, 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_6770;
BgL_objz00_6770 = BgL_ocdrz00_1332; 
BgL_objz00_1306 = BgL_objz00_6770; 
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_test2741z00_1334;
{ /* ./Llib/intext.scm 1493 */
obj_t BgL_arg1554z00_3896;
BgL_arg1554z00_3896 = 
CELL_REF(BgL_objz00_1306); 
if(
STRUCTP(BgL_arg1554z00_3896))
{ /* ./Llib/intext.scm 1493 */
obj_t BgL_auxz00_6776;
BgL_auxz00_6776 = 
STRUCT_KEY(BgL_arg1554z00_3896); 
BgL_test2741z00_1334 = 
(BgL_auxz00_6776==BGl_symbol4869z00zz__intextz00); }  else 
{ /* ./Llib/intext.scm 1493 */
BgL_test2741z00_1334 = ((bool_t)0); } } 
if(BgL_test2741z00_1334)
{ /* ./Llib/intext.scm 1494 */
obj_t BgL_arg2743z00_1335;
BgL_arg2743z00_1335 = 
CELL_REF(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1494 */
long BgL_refz00_3906;
BgL_refz00_3906 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1494 */
obj_t BgL_oldzd2markzd2_3907;
{ /* ./Llib/intext.scm 1494 */
int BgL_auxz00_6781;
BgL_auxz00_6781 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_3907 = 
STRUCT_REF(BgL_arg2743z00_1335, BgL_auxz00_6781); } 
{ /* ./Llib/intext.scm 1494 */
long BgL_arg1493z00_3908;
{ /* ./Llib/intext.scm 1494 */
long BgL_auxz00_6784;
BgL_auxz00_6784 = 
(long)CINT(BgL_oldzd2markzd2_3907); 
BgL_arg1493z00_3908 = 
(((long)1)+BgL_auxz00_6784); } 
{ /* ./Llib/intext.scm 1494 */
obj_t BgL_auxz00_6789;int BgL_auxz00_6787;
BgL_auxz00_6789 = 
BINT(BgL_arg1493z00_3908); 
BgL_auxz00_6787 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2743z00_1335, BgL_auxz00_6787, BgL_auxz00_6789); } } 
{ /* ./Llib/intext.scm 1494 */
bool_t BgL_testz00_6792;
{ /* ./Llib/intext.scm 1494 */
long BgL_auxz00_6793;
BgL_auxz00_6793 = 
(long)CINT(BgL_oldzd2markzd2_3907); 
BgL_testz00_6792 = 
(BgL_auxz00_6793==((long)0)); } 
if(BgL_testz00_6792)
{ /* ./Llib/intext.scm 1494 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_3906+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1494 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_3906, 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_6799;
BgL_objz00_6799 = BgL_orefz00_1336; 
BgL_objz00_1306 = BgL_objz00_6799; 
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_arg2752z00_1338;
BgL_arg2752z00_1338 = 
SYMBOL_TO_STRING(BgL_objz00_1306); 
{ 
obj_t BgL_objz00_6803;
BgL_objz00_6803 = BgL_arg2752z00_1338; 
BgL_objz00_1306 = BgL_objz00_6803; 
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_arg2757z00_1340;
BgL_arg2757z00_1340 = 
KEYWORD_TO_STRING(BgL_objz00_1306); 
{ 
obj_t BgL_objz00_6807;
BgL_objz00_6807 = BgL_arg2757z00_1340; 
BgL_objz00_1306 = BgL_objz00_6807; 
goto BGl_loopz00zz__intextz00;} } }  else 
{ /* ./Llib/intext.scm 1505 */
bool_t BgL_test2760z00_1341;
if(
INTEGERP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1505 */
BgL_test2760z00_1341 = ((bool_t)1); }  else 
{ /* ./Llib/intext.scm 1505 */
BgL_test2760z00_1341 = 
REALP(BgL_objz00_1306); } 
if(BgL_test2760z00_1341)
{ /* ./Llib/intext.scm 1505 */
return BGl_symbol4862z00zz__intextz00;}  else 
{ /* ./Llib/intext.scm 1505 */
if(
STRINGP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1507 */
{ /* ./Llib/intext.scm 1508 */
bool_t BgL_test2762z00_1343;
BgL_test2762z00_1343 = 
INTEXT_STRING_MARKED_P(BgL_objz00_1306); 
if(BgL_test2762z00_1343)
{ /* ./Llib/intext.scm 1509 */
obj_t BgL_arg2764z00_1344;
BgL_arg2764z00_1344 = 
BGl_getzd2stringzd2markz00zz__intextz00(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1509 */
long BgL_refz00_3934;
BgL_refz00_3934 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1509 */
obj_t BgL_oldzd2markzd2_3935;
{ /* ./Llib/intext.scm 1509 */
int BgL_auxz00_6817;
BgL_auxz00_6817 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_3935 = 
STRUCT_REF(BgL_arg2764z00_1344, BgL_auxz00_6817); } 
{ /* ./Llib/intext.scm 1509 */
long BgL_arg1493z00_3936;
{ /* ./Llib/intext.scm 1509 */
long BgL_auxz00_6820;
BgL_auxz00_6820 = 
(long)CINT(BgL_oldzd2markzd2_3935); 
BgL_arg1493z00_3936 = 
(((long)1)+BgL_auxz00_6820); } 
{ /* ./Llib/intext.scm 1509 */
obj_t BgL_auxz00_6825;int BgL_auxz00_6823;
BgL_auxz00_6825 = 
BINT(BgL_arg1493z00_3936); 
BgL_auxz00_6823 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2764z00_1344, BgL_auxz00_6823, BgL_auxz00_6825); } } 
{ /* ./Llib/intext.scm 1509 */
bool_t BgL_testz00_6828;
{ /* ./Llib/intext.scm 1509 */
long BgL_auxz00_6829;
BgL_auxz00_6829 = 
(long)CINT(BgL_oldzd2markzd2_3935); 
BgL_testz00_6828 = 
(BgL_auxz00_6829==((long)0)); } 
if(BgL_testz00_6828)
{ /* ./Llib/intext.scm 1509 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_3934+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1509 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_3934, 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_test2770z00_1346;
BgL_test2770z00_1346 = 
INTEXT_UCS2_STRING_MARKED_P(BgL_objz00_1306); 
if(BgL_test2770z00_1346)
{ /* ./Llib/intext.scm 1514 */
obj_t BgL_arg2772z00_1347;
BgL_arg2772z00_1347 = 
BGl_getzd2ucs2zd2stringzd2markzd2zz__intextz00(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1514 */
long BgL_refz00_3955;
BgL_refz00_3955 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1514 */
obj_t BgL_oldzd2markzd2_3956;
{ /* ./Llib/intext.scm 1514 */
int BgL_auxz00_6839;
BgL_auxz00_6839 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_3956 = 
STRUCT_REF(BgL_arg2772z00_1347, BgL_auxz00_6839); } 
{ /* ./Llib/intext.scm 1514 */
long BgL_arg1493z00_3957;
{ /* ./Llib/intext.scm 1514 */
long BgL_auxz00_6842;
BgL_auxz00_6842 = 
(long)CINT(BgL_oldzd2markzd2_3956); 
BgL_arg1493z00_3957 = 
(((long)1)+BgL_auxz00_6842); } 
{ /* ./Llib/intext.scm 1514 */
obj_t BgL_auxz00_6847;int BgL_auxz00_6845;
BgL_auxz00_6847 = 
BINT(BgL_arg1493z00_3957); 
BgL_auxz00_6845 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2772z00_1347, BgL_auxz00_6845, BgL_auxz00_6847); } } 
{ /* ./Llib/intext.scm 1514 */
bool_t BgL_testz00_6850;
{ /* ./Llib/intext.scm 1514 */
long BgL_auxz00_6851;
BgL_auxz00_6851 = 
(long)CINT(BgL_oldzd2markzd2_3956); 
BgL_testz00_6850 = 
(BgL_auxz00_6851==((long)0)); } 
if(BgL_testz00_6850)
{ /* ./Llib/intext.scm 1514 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_3955+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1514 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_3955, 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_test2778z00_1349;
{ /* ./Llib/intext.scm 1518 */
int BgL_arg2804z00_1360;
BgL_arg2804z00_1360 = 
VECTOR_LENGTH(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1518 */
long BgL_auxz00_6859;
BgL_auxz00_6859 = 
(long)(BgL_arg2804z00_1360); 
BgL_test2778z00_1349 = 
(BgL_auxz00_6859==((long)0)); } } 
if(BgL_test2778z00_1349)
{ /* ./Llib/intext.scm 1518 */
return BGl_symbol4862z00zz__intextz00;}  else 
{ /* ./Llib/intext.scm 1520 */
bool_t BgL_test2779z00_1350;
{ /* ./Llib/intext.scm 1520 */
obj_t BgL_arg1667z00_3978;
{ 
int BgL_auxz00_6863;
BgL_auxz00_6863 = 
(int)(((long)0)); 
BgL_arg1667z00_3978 = 
VECTOR_REF(BgL_objz00_1306,BgL_auxz00_6863); } 
if(
STRUCTP(BgL_arg1667z00_3978))
{ /* ./Llib/intext.scm 1520 */
obj_t BgL_auxz00_6868;
BgL_auxz00_6868 = 
STRUCT_KEY(BgL_arg1667z00_3978); 
BgL_test2779z00_1350 = 
(BgL_auxz00_6868==BGl_symbol4869z00zz__intextz00); }  else 
{ /* ./Llib/intext.scm 1520 */
BgL_test2779z00_1350 = ((bool_t)0); } } 
if(BgL_test2779z00_1350)
{ /* ./Llib/intext.scm 1521 */
obj_t BgL_arg2781z00_1351;
{ 
int BgL_auxz00_6872;
BgL_auxz00_6872 = 
(int)(((long)0)); 
BgL_arg2781z00_1351 = 
VECTOR_REF(BgL_objz00_1306,BgL_auxz00_6872); } 
{ /* ./Llib/intext.scm 1521 */
long BgL_refz00_3993;
BgL_refz00_3993 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1521 */
obj_t BgL_oldzd2markzd2_3994;
{ /* ./Llib/intext.scm 1521 */
int BgL_auxz00_6875;
BgL_auxz00_6875 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_3994 = 
STRUCT_REF(BgL_arg2781z00_1351, BgL_auxz00_6875); } 
{ /* ./Llib/intext.scm 1521 */
long BgL_arg1493z00_3995;
{ /* ./Llib/intext.scm 1521 */
long BgL_auxz00_6878;
BgL_auxz00_6878 = 
(long)CINT(BgL_oldzd2markzd2_3994); 
BgL_arg1493z00_3995 = 
(((long)1)+BgL_auxz00_6878); } 
{ /* ./Llib/intext.scm 1521 */
obj_t BgL_auxz00_6883;int BgL_auxz00_6881;
BgL_auxz00_6883 = 
BINT(BgL_arg1493z00_3995); 
BgL_auxz00_6881 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2781z00_1351, BgL_auxz00_6881, BgL_auxz00_6883); } } 
{ /* ./Llib/intext.scm 1521 */
bool_t BgL_testz00_6886;
{ /* ./Llib/intext.scm 1521 */
long BgL_auxz00_6887;
BgL_auxz00_6887 = 
(long)CINT(BgL_oldzd2markzd2_3994); 
BgL_testz00_6886 = 
(BgL_auxz00_6887==((long)0)); } 
if(BgL_testz00_6886)
{ /* ./Llib/intext.scm 1521 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_3993+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1521 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_3993, 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_6893;
{ 
int BgL_auxz00_6894;
BgL_auxz00_6894 = 
(int)(((long)0)); 
BgL_auxz00_6893 = 
VECTOR_REF(BgL_objz00_1306,BgL_auxz00_6894); } 
BGl_loopz00zz__intextz00(BgL_auxz00_6893); } 
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_6899;
{ /* ./Llib/intext.scm 1528 */
long BgL_auxz00_6900;
BgL_auxz00_6900 = 
(long)(BgL_lenz00_1352); 
BgL_testz00_6899 = 
(BgL_iz00_1355>=BgL_auxz00_6900); } 
if(BgL_testz00_6899)
{ /* ./Llib/intext.scm 1528 */
return BGl_symbol4862z00zz__intextz00;}  else 
{ /* ./Llib/intext.scm 1528 */
{ /* ./Llib/intext.scm 1531 */
obj_t BgL_auxz00_6903;
{ 
int BgL_auxz00_6904;
BgL_auxz00_6904 = 
(int)(BgL_iz00_1355); 
BgL_auxz00_6903 = 
VECTOR_REF(BgL_objz00_1306,BgL_auxz00_6904); } 
BGl_loopz00zz__intextz00(BgL_auxz00_6903); } 
{ 
long BgL_iz00_6908;
BgL_iz00_6908 = 
(BgL_iz00_1355+((long)1)); 
BgL_iz00_1355 = BgL_iz00_6908; 
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_6912;
{ /* ./Llib/intext.scm 1534 */
obj_t BgL_auxz00_6913;
BgL_auxz00_6913 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_1306, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_testz00_6912 = 
PAIRP(BgL_auxz00_6913); } 
if(BgL_testz00_6912)
{ /* ./Llib/intext.scm 1535 */
obj_t BgL_arg2811z00_1364;
{ /* ./Llib/intext.scm 1535 */
obj_t BgL_auxz00_6916;
BgL_auxz00_6916 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_1306, BGl_za2tvectorzd2tableza2zd2zz__intextz00); 
BgL_arg2811z00_1364 = 
CDR(BgL_auxz00_6916); } 
{ /* ./Llib/intext.scm 1535 */
long BgL_refz00_4029;
BgL_refz00_4029 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1535 */
obj_t BgL_oldzd2markzd2_4030;
{ /* ./Llib/intext.scm 1535 */
int BgL_auxz00_6919;
BgL_auxz00_6919 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_4030 = 
STRUCT_REF(BgL_arg2811z00_1364, BgL_auxz00_6919); } 
{ /* ./Llib/intext.scm 1535 */
long BgL_arg1493z00_4031;
{ /* ./Llib/intext.scm 1535 */
long BgL_auxz00_6922;
BgL_auxz00_6922 = 
(long)CINT(BgL_oldzd2markzd2_4030); 
BgL_arg1493z00_4031 = 
(((long)1)+BgL_auxz00_6922); } 
{ /* ./Llib/intext.scm 1535 */
obj_t BgL_auxz00_6927;int BgL_auxz00_6925;
BgL_auxz00_6927 = 
BINT(BgL_arg1493z00_4031); 
BgL_auxz00_6925 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2811z00_1364, BgL_auxz00_6925, BgL_auxz00_6927); } } 
{ /* ./Llib/intext.scm 1535 */
bool_t BgL_testz00_6930;
{ /* ./Llib/intext.scm 1535 */
long BgL_auxz00_6931;
BgL_auxz00_6931 = 
(long)CINT(BgL_oldzd2markzd2_4030); 
BgL_testz00_6930 = 
(BgL_auxz00_6931==((long)0)); } 
if(BgL_testz00_6930)
{ /* ./Llib/intext.scm 1535 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_4029+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1535 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_4029, 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_test2823z00_1368;
{ /* ./Llib/intext.scm 1542 */
char * BgL_arg1581z00_4049;
BgL_arg1581z00_4049 = 
CUSTOM_IDENTIFIER(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1542 */
obj_t BgL_auxz00_6943;
BgL_auxz00_6943 = 
string_to_bstring(BgL_arg1581z00_4049); 
BgL_test2823z00_1368 = 
(BgL_auxz00_6943==BGl_string4829z00zz__intextz00); } } 
if(BgL_test2823z00_1368)
{ /* ./Llib/intext.scm 1543 */
obj_t BgL_arg2825z00_1369;
BgL_arg2825z00_1369 = 
BGl_getzd2customzd2markz00zz__intextz00(BgL_objz00_1306); 
{ /* ./Llib/intext.scm 1543 */
long BgL_refz00_4053;
BgL_refz00_4053 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1543 */
obj_t BgL_oldzd2markzd2_4054;
{ /* ./Llib/intext.scm 1543 */
int BgL_auxz00_6948;
BgL_auxz00_6948 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_4054 = 
STRUCT_REF(BgL_arg2825z00_1369, BgL_auxz00_6948); } 
{ /* ./Llib/intext.scm 1543 */
long BgL_arg1493z00_4055;
{ /* ./Llib/intext.scm 1543 */
long BgL_auxz00_6951;
BgL_auxz00_6951 = 
(long)CINT(BgL_oldzd2markzd2_4054); 
BgL_arg1493z00_4055 = 
(((long)1)+BgL_auxz00_6951); } 
{ /* ./Llib/intext.scm 1543 */
obj_t BgL_auxz00_6956;int BgL_auxz00_6954;
BgL_auxz00_6956 = 
BINT(BgL_arg1493z00_4055); 
BgL_auxz00_6954 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2825z00_1369, BgL_auxz00_6954, BgL_auxz00_6956); } } 
{ /* ./Llib/intext.scm 1543 */
bool_t BgL_testz00_6959;
{ /* ./Llib/intext.scm 1543 */
long BgL_auxz00_6960;
BgL_auxz00_6960 = 
(long)CINT(BgL_oldzd2markzd2_4054); 
BgL_testz00_6959 = 
(BgL_auxz00_6960==((long)0)); } 
if(BgL_testz00_6959)
{ /* ./Llib/intext.scm 1543 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_4053+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1543 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_4053, 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_arg2832z00_1372;
BgL_arg2832z00_1372 = 
MAKE_PAIR(BgL_objz00_1306, BgL_itemz00_1371); 
BGl_za2procedurezd2tableza2zd2zz__intextz00 = 
MAKE_PAIR(BgL_arg2832z00_1372, BGl_za2procedurezd2tableza2zd2zz__intextz00); } 
return 
BGl_markzd2itemz12zc0zz__intextz00(BgL_itemz00_1371);} }  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_arg2839z00_1375;
BgL_arg2839z00_1375 = 
MAKE_PAIR(BgL_objz00_1306, BgL_itemz00_1374); 
BGl_za2processzd2tableza2zd2zz__intextz00 = 
MAKE_PAIR(BgL_arg2839z00_1375, BGl_za2processzd2tableza2zd2zz__intextz00); } 
return 
BGl_markzd2itemz12zc0zz__intextz00(BgL_itemz00_1374);} }  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_arg2846z00_1378;
BgL_arg2846z00_1378 = 
MAKE_PAIR(BgL_objz00_1306, BgL_itemz00_1377); 
BGl_za2opaquezd2tableza2zd2zz__intextz00 = 
MAKE_PAIR(BgL_arg2846z00_1378, BGl_za2opaquezd2tableza2zd2zz__intextz00); } 
return 
BGl_markzd2itemz12zc0zz__intextz00(BgL_itemz00_1377);} }  else 
{ /* ./Llib/intext.scm 1554 */
if(
POINTERP(BgL_objz00_1306))
{ /* ./Llib/intext.scm 1560 */
bool_t BgL_testz00_6988;
{ /* ./Llib/intext.scm 1560 */
obj_t BgL_auxz00_6989;
BgL_auxz00_6989 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_1306, BGl_za2pointerzd2tableza2zd2zz__intextz00); 
BgL_testz00_6988 = 
PAIRP(BgL_auxz00_6989); } 
if(BgL_testz00_6988)
{ /* ./Llib/intext.scm 1560 */
{ /* ./Llib/intext.scm 1561 */
obj_t BgL_arg2854z00_1381;
{ /* ./Llib/intext.scm 1561 */
obj_t BgL_auxz00_6992;
BgL_auxz00_6992 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_1306, BGl_za2pointerzd2tableza2zd2zz__intextz00); 
BgL_arg2854z00_1381 = 
CDR(BgL_auxz00_6992); } 
{ /* ./Llib/intext.scm 1561 */
long BgL_refz00_4081;
BgL_refz00_4081 = BGl_za2nbzd2refza2zd2zz__intextz00; 
{ /* ./Llib/intext.scm 1561 */
obj_t BgL_oldzd2markzd2_4082;
{ /* ./Llib/intext.scm 1561 */
int BgL_auxz00_6995;
BgL_auxz00_6995 = 
(int)(((long)4)); 
BgL_oldzd2markzd2_4082 = 
STRUCT_REF(BgL_arg2854z00_1381, BgL_auxz00_6995); } 
{ /* ./Llib/intext.scm 1561 */
long BgL_arg1493z00_4083;
{ /* ./Llib/intext.scm 1561 */
long BgL_auxz00_6998;
BgL_auxz00_6998 = 
(long)CINT(BgL_oldzd2markzd2_4082); 
BgL_arg1493z00_4083 = 
(((long)1)+BgL_auxz00_6998); } 
{ /* ./Llib/intext.scm 1561 */
obj_t BgL_auxz00_7003;int BgL_auxz00_7001;
BgL_auxz00_7003 = 
BINT(BgL_arg1493z00_4083); 
BgL_auxz00_7001 = 
(int)(((long)4)); 
STRUCT_SET(BgL_arg2854z00_1381, BgL_auxz00_7001, BgL_auxz00_7003); } } 
{ /* ./Llib/intext.scm 1561 */
bool_t BgL_testz00_7006;
{ /* ./Llib/intext.scm 1561 */
long BgL_auxz00_7007;
BgL_auxz00_7007 = 
(long)CINT(BgL_oldzd2markzd2_4082); 
BgL_testz00_7006 = 
(BgL_auxz00_7007==((long)0)); } 
if(BgL_testz00_7006)
{ /* ./Llib/intext.scm 1561 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = 
(BgL_refz00_4081+((long)1)), BUNSPEC) ;}  else 
{ /* ./Llib/intext.scm 1561 */
return ( 
BGl_za2nbzd2refza2zd2zz__intextz00 = BgL_refz00_4081, BUNSPEC) ;} } } } } }  else 
{ /* ./Llib/intext.scm 1560 */
return BGl_symbol4862z00zz__intextz00;} }  else 
{ /* ./Llib/intext.scm 1558 */
return BGl_symbol4862z00zz__intextz00;} } } } } } } } } } } } } } } } } } } 
}



/* marked-pair-length */
long BGl_markedzd2pairzd2lengthz00zz__intextz00(obj_t BgL_lz00_98)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1569 */
{ /* ./Llib/intext.scm 1570 */
obj_t BgL_symbol3960z00_4269;
BgL_symbol3960z00_4269 = BGl_symbol4896z00zz__intextz00; 
{ /* ./Llib/intext.scm 1570 */

PUSH_TRACE(BgL_symbol3960z00_4269); BUNSPEC; 
{ /* ./Llib/intext.scm 1570 */
long BgL_aux3959z00_4270;
{ 
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_7014;obj_t BgL_auxz00_7012;
BgL_auxz00_7014 = 
(int)(((long)1)); 
BgL_auxz00_7012 = 
CDR(BgL_lz00_1383); 
BgL_vcdrz00_1387 = 
STRUCT_REF(BgL_auxz00_7012, BgL_auxz00_7014); } 
{ /* ./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_7020;
{ /* ./Llib/intext.scm 1576 */
bool_t BgL_testz00_7021;
{ /* ./Llib/intext.scm 1576 */
obj_t BgL_auxz00_7022;
{ /* ./Llib/intext.scm 1576 */
int BgL_auxz00_7023;
BgL_auxz00_7023 = 
(int)(((long)4)); 
BgL_auxz00_7022 = 
STRUCT_REF(BgL_markz00_1389, BgL_auxz00_7023); } 
BgL_testz00_7021 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_auxz00_7022, 
BINT(((long)0))); } 
if(BgL_testz00_7021)
{ /* ./Llib/intext.scm 1576 */
BgL_testz00_7020 = ((bool_t)1)
; }  else 
{ /* ./Llib/intext.scm 1577 */
obj_t BgL_auxz00_7028;
{ /* ./Llib/intext.scm 1577 */
int BgL_auxz00_7029;
BgL_auxz00_7029 = 
(int)(((long)3)); 
BgL_auxz00_7028 = 
STRUCT_REF(BgL_markz00_1389, BgL_auxz00_7029); } 
BgL_testz00_7020 = 
CBOOL(BgL_auxz00_7028); } } 
if(BgL_testz00_7020)
{ /* ./Llib/intext.scm 1576 */
BgL_aux3959z00_4270 = 
(BgL_rz00_1384+((long)1)); }  else 
{ 
long BgL_rz00_7035;obj_t BgL_lz00_7034;
BgL_lz00_7034 = BgL_vcdrz00_1387; 
BgL_rz00_7035 = 
(BgL_rz00_1384+((long)1)); 
BgL_rz00_1384 = BgL_rz00_7035; 
BgL_lz00_1383 = BgL_lz00_7034; 
goto BgL_loopz00_1385;} } }  else 
{ /* ./Llib/intext.scm 1574 */
BgL_aux3959z00_4270 = 
(BgL_rz00_1384+((long)1)); } } } } 
POP_TRACE(); 
return BgL_aux3959z00_4270;} } } } 
}



/* 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_symbol3964z00_4271;
BgL_symbol3964z00_4271 = BGl_symbol4897z00zz__intextz00; 
{ /* ./Llib/intext.scm 1591 */

PUSH_TRACE(BgL_symbol3964z00_4271); BUNSPEC; 
{ /* ./Llib/intext.scm 1591 */
obj_t BgL_aux3963z00_4272;
{ /* ./Llib/intext.scm 1591 */
obj_t BgL_cellz00_1395;
BgL_cellz00_1395 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_identz00_99, BGl_za2customzd2serializa7ationza2z75zz__intextz00); 
if(
PAIRP(BgL_cellz00_1395))
{ /* ./Llib/intext.scm 1592 */
BgL_aux3963z00_4272 = BFALSE; }  else 
{ /* ./Llib/intext.scm 1594 */
obj_t BgL_arg2899z00_1397;
{ /* ./Llib/intext.scm 1594 */
obj_t BgL_list2902z00_1398;
{ /* ./Llib/intext.scm 1594 */
obj_t BgL_arg2904z00_1399;
{ /* ./Llib/intext.scm 1594 */
obj_t BgL_arg2907z00_1400;
BgL_arg2907z00_1400 = 
MAKE_PAIR(BgL_unserializa7erza7_101, BNIL); 
BgL_arg2904z00_1399 = 
MAKE_PAIR(BgL_serializa7erza7_100, BgL_arg2907z00_1400); } 
BgL_list2902z00_1398 = 
MAKE_PAIR(BgL_identz00_99, BgL_arg2904z00_1399); } 
BgL_arg2899z00_1397 = BgL_list2902z00_1398; } 
BgL_aux3963z00_4272 = ( 
BGl_za2customzd2serializa7ationza2z75zz__intextz00 = 
MAKE_PAIR(BgL_arg2899z00_1397, BGl_za2customzd2serializa7ationza2z75zz__intextz00), BUNSPEC) ; } } 
POP_TRACE(); 
return BgL_aux3963z00_4272;} } } } 
}



/* _register-custom-serialization */
obj_t BGl__registerzd2customzd2serializa7ationza7zz__intextz00(obj_t BgL_envz00_4318, obj_t BgL_identz00_4319, obj_t BgL_serializa7erza7_4320, obj_t BgL_unserializa7erza7_4321)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1590 */
return 
BGl_registerzd2customzd2serializa7ationza7zz__intextz00(BgL_identz00_4319, BgL_serializa7erza7_4320, BgL_unserializa7erza7_4321);} 
}



/* 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 */
{ /* ./Llib/intext.scm 1638 */
obj_t BgL_symbol3968z00_4273;
BgL_symbol3968z00_4273 = BGl_symbol4898z00zz__intextz00; 
{ /* ./Llib/intext.scm 1638 */

PUSH_TRACE(BgL_symbol3968z00_4273); BUNSPEC; 
{ /* ./Llib/intext.scm 1638 */
obj_t BgL_aux3967z00_4274;
BGl_za2procedurezd2ze3stringza2z31zz__intextz00 = BgL_serializa7erza7_104; 
BgL_aux3967z00_4274 = ( 
BGl_za2stringzd2ze3procedureza2z31zz__intextz00 = BgL_unserializa7erza7_105, BUNSPEC) ; 
POP_TRACE(); 
return BgL_aux3967z00_4274;} } } } 
}



/* _register-procedure-serialization */
obj_t BGl__registerzd2procedurezd2serializa7ationza7zz__intextz00(obj_t BgL_envz00_4322, obj_t BgL_serializa7erza7_4323, obj_t BgL_unserializa7erza7_4324)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1637 */
return 
BGl_registerzd2procedurezd2serializa7ationza7zz__intextz00(BgL_serializa7erza7_4323, BgL_unserializa7erza7_4324);} 
}



/* 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 */
{ /* ./Llib/intext.scm 1670 */
obj_t BgL_symbol3972z00_4275;
BgL_symbol3972z00_4275 = BGl_symbol4899z00zz__intextz00; 
{ /* ./Llib/intext.scm 1670 */

PUSH_TRACE(BgL_symbol3972z00_4275); BUNSPEC; 
{ /* ./Llib/intext.scm 1670 */
obj_t BgL_aux3971z00_4276;
BGl_za2processzd2ze3stringza2z31zz__intextz00 = BgL_serializa7erza7_106; 
BgL_aux3971z00_4276 = ( 
BGl_za2stringzd2ze3processza2z31zz__intextz00 = BgL_unserializa7erza7_107, BUNSPEC) ; 
POP_TRACE(); 
return BgL_aux3971z00_4276;} } } } 
}



/* _register-process-serialization */
obj_t BGl__registerzd2processzd2serializa7ationza7zz__intextz00(obj_t BgL_envz00_4325, obj_t BgL_serializa7erza7_4326, obj_t BgL_unserializa7erza7_4327)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1669 */
return 
BGl_registerzd2processzd2serializa7ationza7zz__intextz00(BgL_serializa7erza7_4326, BgL_unserializa7erza7_4327);} 
}



/* 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 */
{ /* ./Llib/intext.scm 1702 */
obj_t BgL_symbol3976z00_4277;
BgL_symbol3976z00_4277 = BGl_symbol4900z00zz__intextz00; 
{ /* ./Llib/intext.scm 1702 */

PUSH_TRACE(BgL_symbol3976z00_4277); BUNSPEC; 
{ /* ./Llib/intext.scm 1702 */
obj_t BgL_aux3975z00_4278;
BGl_za2opaquezd2ze3stringza2z31zz__intextz00 = BgL_serializa7erza7_108; 
BgL_aux3975z00_4278 = ( 
BGl_za2stringzd2ze3opaqueza2z31zz__intextz00 = BgL_unserializa7erza7_109, BUNSPEC) ; 
POP_TRACE(); 
return BgL_aux3975z00_4278;} } } } 
}



/* _register-opaque-serialization */
obj_t BGl__registerzd2opaquezd2serializa7ationza7zz__intextz00(obj_t BgL_envz00_4328, obj_t BgL_serializa7erza7_4329, obj_t BgL_unserializa7erza7_4330)
{ AN_OBJECT;
{ /* ./Llib/intext.scm 1701 */
return 
BGl_registerzd2opaquezd2serializa7ationza7zz__intextz00(BgL_serializa7erza7_4329, BgL_unserializa7erza7_4330);} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zz__intextz00()
{ AN_OBJECT;
{ /* ./Llib/intext.scm 19 */
{ /* ./Llib/intext.scm 19 */
obj_t BgL_symbol3980z00_4279;
BgL_symbol3980z00_4279 = BGl_symbol4901z00zz__intextz00; 
{ /* ./Llib/intext.scm 19 */

PUSH_TRACE(BgL_symbol3980z00_4279); BUNSPEC; 
POP_TRACE(); 
return BUNSPEC;} } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__intextz00()
{ AN_OBJECT;
{ /* ./Llib/intext.scm 19 */
{ /* ./Llib/intext.scm 19 */
obj_t BgL_symbol3984z00_4281;
BgL_symbol3984z00_4281 = BGl_symbol4902z00zz__intextz00; 
{ /* ./Llib/intext.scm 19 */

PUSH_TRACE(BgL_symbol3984z00_4281); BUNSPEC; 
{ /* ./Llib/intext.scm 19 */
obj_t BgL_aux3983z00_4282;
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__intext"); 
BGl_modulezd2initializa7ationz75zz__hashz00(((long)62825), "__intext"); 
BgL_aux3983z00_4282 = 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)247), "__intext"); 
POP_TRACE(); 
return BgL_aux3983z00_4282;} } } } 
}

