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

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

static obj_t BGl_fkz00zz__pregexpz00(obj_t);
static obj_t BGl_loopz00zz__pregexpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, int, long, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__pregexpz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_pregexpzd2matchzd2zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl__pregexpzd2quotezd2zz__pregexpz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza32581ze3z83zz__pregexpz00(obj_t);
static obj_t BGl_loupzd2orzd2zz__pregexpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32445ze3z83zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32518ze3z83zz__pregexpz00(obj_t);
extern obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_pregexpzd2readzd2escapedzd2charzd2zz__pregexpz00(obj_t, obj_t, int);
BGL_EXPORTED_DECL obj_t BGl_pregexpz00zz__pregexpz00(obj_t);
static obj_t BGl_pregexpzd2readzd2charzd2listzd2zz__pregexpz00(obj_t, long, int);
static obj_t BGl_zc3anonymousza32554ze3z83zz__pregexpz00(obj_t);
static obj_t BGl_pregexpzd2matchzd2positionszd2auxzd2zz__pregexpz00(obj_t, obj_t, int, obj_t, obj_t, obj_t);
static obj_t BGl__pregexp3827z00zz__pregexpz00(obj_t, obj_t);
static obj_t BGl_pregexpzd2readzd2patternz00zz__pregexpz00(obj_t, obj_t, int);
static obj_t BGl_cnstzd2initzd2zz__pregexpz00();
static obj_t BGl_pregexpzd2errorzd2zz__pregexpz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_pregexpzd2splitzd2zz__pregexpz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza32629ze3z83zz__pregexpz00(obj_t, obj_t, obj_t);
static long BGl_za2pregexpzd2nulzd2charzd2intza2zd2zz__pregexpz00;
extern obj_t string_to_symbol(char *);
BGL_EXPORTED_DECL obj_t BGl_pregexpzd2replacezd2zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl__pregexpzd2splitzd2zz__pregexpz00(obj_t, obj_t, obj_t);
static unsigned char BGl_za2pregexpzd2tabzd2charza2z00zz__pregexpz00;
extern obj_t c_substring(obj_t, int, int);
static obj_t BGl_loupzd2onezd2ofzd2charszd2zz__pregexpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32527ze3z83zz__pregexpz00(obj_t);
extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_pregexpzd2readzd2subpatternz00zz__pregexpz00(obj_t, long, int);
extern obj_t bgl_append2(obj_t, obj_t);
extern obj_t string_append(obj_t, obj_t);
static obj_t BGl_zc3anonymousza32425ze3z83zz__pregexpz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_pregexpzd2matchzd2positionsz00zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_pregexpzd2readzd2numsz00zz__pregexpz00(obj_t, long, int);
static obj_t BGl_list4487z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__pregexpz00();
static obj_t BGl_zc3anonymousza32500ze3z83zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_list4500z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_list4489z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_list4491z00zz__pregexpz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_pregexpzd2quotezd2zz__pregexpz00(obj_t);
static obj_t BGl_list4502z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_list4493z00zz__pregexpz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_pregexpzd2replaceza2z70zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_list4504z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2reversez12zc0zz__pregexpz00(obj_t);
static obj_t BGl__pregexpzd2matchzd2zz__pregexpz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32595ze3z83zz__pregexpz00(obj_t);
static obj_t BGl_list4506z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32427ze3z83zz__pregexpz00(obj_t);
static obj_t BGl_list4498z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2wrapzd2quantifierzd2ifzd2anyz00zz__pregexpz00(obj_t, obj_t, int);
static obj_t BGl_pregexpzd2readzd2escapedzd2numberzd2zz__pregexpz00(obj_t, obj_t, int);
static obj_t BGl_zc3anonymousza32638ze3z83zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__pregexpz00 = BUNSPEC;
static bool_t BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00;
static obj_t BGl_zc3anonymousza32325ze3z83zz__pregexpz00(obj_t);
static obj_t BGl_symbol4546z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32608ze3z83zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_pregexpzd2replacezd2auxz00zz__pregexpz00(obj_t, obj_t, int, obj_t);
static unsigned char BGl_za2pregexpzd2returnzd2charza2z00zz__pregexpz00;
static obj_t BGl_list4538z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl__pregexpzd2replaceza2z70zz__pregexpz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__pregexpzd2replacezd2zz__pregexpz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list4545z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32610ze3z83zz__pregexpz00(obj_t);
static obj_t BGl_symbol4535z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2listzd2refz00zz__pregexpz00(obj_t, obj_t);
static obj_t BGl_list4548z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol4533z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32464ze3z83zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_keyword4475z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4476z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2readzd2posixzd2charzd2classz00zz__pregexpz00(obj_t, long, int);
static obj_t BGl_keyword4477z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4478z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol4520z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4480z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4479z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol4518z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4481z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4482z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol4516z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol4515z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4484z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4485z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol4513z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4486z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol4512z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol4511z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4488z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_loupzd2pzd2zz__pregexpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t);
static obj_t BGl_symbol4510z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4490z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_loupzd2qzd2zz__pregexpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t);
static obj_t BGl_loupzd2seqzd2zz__pregexpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol4508z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4501z00zz__pregexpz00 = BUNSPEC;
extern obj_t string_to_keyword(char *);
static obj_t BGl_symbol4497z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2atzd2wordzd2boundaryzf3z21zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_keyword4503z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4494z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4505z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4495z00zz__pregexpz00 = BUNSPEC;
extern bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_keyword4496z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4507z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol4492z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4509z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4499z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol4483z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4519z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4521z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4522z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4523z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4524z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4525z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4526z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4527z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4528z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4530z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4529z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword4531z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32470ze3z83zz__pregexpz00(obj_t);
static obj_t BGl_keyword4532z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_subz00zz__pregexpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static unsigned char BGl_za2pregexpzd2commentzd2charza2z00zz__pregexpz00;
static obj_t BGl_pregexpzd2readzd2branchz00zz__pregexpz00(obj_t, obj_t, int);
static obj_t BGl_toplevelzd2initzd2zz__pregexpz00();
static obj_t BGl_zc3anonymousza32618ze3z83zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl__pregexpzd2matchzd2positionsz00zz__pregexpz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_pregexpzd2checkzd2ifzd2inzd2charzd2classzf3z21zz__pregexpz00(unsigned char, obj_t);
static obj_t BGl_zc3anonymousza32409ze3z83zz__pregexpz00(obj_t);
static obj_t BGl_pregexpzd2readzd2clusterzd2typezd2zz__pregexpz00(obj_t, long, int);
extern obj_t string_append_3(obj_t, obj_t, obj_t);
static obj_t BGl_pregexpzd2readzd2piecez00zz__pregexpz00(obj_t, obj_t, int);
static obj_t *__cnst;


extern obj_t BGl_charzd2cizc3zd3zf3zd2envze3zz__r4_characters_6_6z00;
extern obj_t BGl_charzd3zf3zd2envzf2zz__r4_characters_6_6z00;
extern obj_t BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00;
DEFINE_EXPORT_PROCEDURE( BGl_pregexpzd2matchzd2positionszd2envzd2zz__pregexpz00, BgL_bgl__pregexpza7d2matchza7d2positionsza700za7za7__pregexpza7004567z00, va_generic_entry, BGl__pregexpzd2matchzd2positionsz00zz__pregexpz00, -3 );
DEFINE_EXPORT_PROCEDURE( BGl_pregexpzd2quotezd2envz00zz__pregexpz00, BgL_bgl__pregexpza7d2quoteza7d2za7za7__pregexpza7004568za7, BGl__pregexpzd2quotezd2zz__pregexpz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_pregexpzd2replaceza2zd2envza2zz__pregexpz00, BgL_bgl__pregexpza7d2replaceza7a2za770za7za7__pregexpza7004569z00, BGl__pregexpzd2replaceza2z70zz__pregexpz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_pregexpzd2matchzd2envz00zz__pregexpz00, BgL_bgl__pregexpza7d2matchza7d2za7za7__pregexpza7004570za7, va_generic_entry, BGl__pregexpzd2matchzd2zz__pregexpz00, -3 );
DEFINE_EXPORT_PROCEDURE( BGl_pregexpzd2envzd2zz__pregexpz00, BgL_bgl__pregexp3827za700za7za7__pregexpza7004571z00, BGl__pregexp3827z00zz__pregexpz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_pregexpzd2replacezd2envz00zz__pregexpz00, BgL_bgl__pregexpza7d2replaceza7d2za7za7__pregexpza7004572za7, BGl__pregexpzd2replacezd2zz__pregexpz00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4534z00zz__pregexpz00, BgL_bgl_za7c3anonymousza7a32325za7e3za783za7za7__pregexpza7004573za7, BGl_zc3anonymousza32325ze3z83zz__pregexpz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc4536z00zz__pregexpz00, BgL_bgl_za7c3anonymousza7a32518za7e3za783za7za7__pregexpza7004574za7, BGl_zc3anonymousza32518ze3z83zz__pregexpz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc4537z00zz__pregexpz00, BgL_bgl_za7c3anonymousza7a32527za7e3za783za7za7__pregexpza7004575za7, BGl_zc3anonymousza32527ze3z83zz__pregexpz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc4542z00zz__pregexpz00, BgL_bgl_za7c3anonymousza7a32554za7e3za783za7za7__pregexpza7004576za7, BGl_zc3anonymousza32554ze3z83zz__pregexpz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc4543z00zz__pregexpz00, BgL_bgl_za7c3anonymousza7a32581za7e3za783za7za7__pregexpza7004577za7, BGl_zc3anonymousza32581ze3z83zz__pregexpz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc4544z00zz__pregexpz00, BgL_bgl_za7c3anonymousza7a32595za7e3za783za7za7__pregexpza7004578za7, BGl_zc3anonymousza32595ze3z83zz__pregexpz00, 0L, 0 );
DEFINE_STRING( BGl_string4547z00zz__pregexpz00, BgL_bgl_string4547za700za7za7__pregexpza7004579z00, "", 0 );
DEFINE_EXPORT_PROCEDURE( BGl_pregexpzd2splitzd2envz00zz__pregexpz00, BgL_bgl__pregexpza7d2splitza7d2za7za7__pregexpza7004580za7, BGl__pregexpzd2splitzd2zz__pregexpz00, 0L, 2 );
DEFINE_STRING( BGl_string4517z00zz__pregexpz00, BgL_bgl_string4517za700za7za7__pregexpza7004581z00, "character class ended too soon", 30 );
DEFINE_STRING( BGl_string4514z00zz__pregexpz00, BgL_bgl_string4514za700za7za7__pregexpza7004582z00, "left bracket must be followed by number", 39 );
extern obj_t BGl_charzc3zd3zf3zd2envz31zz__r4_characters_6_6z00;
DEFINE_STRING( BGl_string4474z00zz__pregexpz00, BgL_bgl_string4474za700za7za7__pregexpza7004583z00, "pregexp", 7 );
extern obj_t BGl_charzd2cizd3zf3zd2envz20zz__r4_characters_6_6z00;



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__pregexpz00(long BgL_checksumz00_3205, char * BgL_fromz00_3206)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__pregexpz00))
{ 
BGl_requirezd2initializa7ationz75zz__pregexpz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__pregexpz00(); 
BGl_importedzd2moduleszd2initz00zz__pregexpz00(); 
BGl_toplevelzd2initzd2zz__pregexpz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__pregexpz00()
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 17 */
BGl_keyword4475z00zz__pregexpz00 = 
string_to_keyword(":or"); 
BGl_keyword4476z00zz__pregexpz00 = 
string_to_keyword(":seq"); 
BGl_keyword4477z00zz__pregexpz00 = 
string_to_keyword(":empty"); 
BGl_keyword4478z00zz__pregexpz00 = 
string_to_keyword(":bos"); 
BGl_keyword4479z00zz__pregexpz00 = 
string_to_keyword(":eos"); 
BGl_keyword4480z00zz__pregexpz00 = 
string_to_keyword(":any"); 
BGl_keyword4481z00zz__pregexpz00 = 
string_to_keyword(":neg-char"); 
BGl_keyword4482z00zz__pregexpz00 = 
string_to_keyword(":backref"); 
BGl_symbol4483z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-piece/backslash"); 
BGl_keyword4484z00zz__pregexpz00 = 
string_to_keyword(":wbdry"); 
BGl_keyword4485z00zz__pregexpz00 = 
string_to_keyword(":not-wbdry"); 
BGl_keyword4486z00zz__pregexpz00 = 
string_to_keyword(":digit"); 
{ /* ./Llib/pregexp.scm 191 */
obj_t BgL_auxz00_3225;
BgL_auxz00_3225 = 
MAKE_PAIR(BGl_keyword4486z00zz__pregexpz00, BNIL); 
BGl_list4487z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword4481z00zz__pregexpz00, BgL_auxz00_3225); } 
BGl_keyword4488z00zz__pregexpz00 = 
string_to_keyword(":space"); 
{ /* ./Llib/pregexp.scm 195 */
obj_t BgL_auxz00_3229;
BgL_auxz00_3229 = 
MAKE_PAIR(BGl_keyword4488z00zz__pregexpz00, BNIL); 
BGl_list4489z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword4481z00zz__pregexpz00, BgL_auxz00_3229); } 
BGl_keyword4490z00zz__pregexpz00 = 
string_to_keyword(":word"); 
{ /* ./Llib/pregexp.scm 198 */
obj_t BgL_auxz00_3233;
BgL_auxz00_3233 = 
MAKE_PAIR(BGl_keyword4490z00zz__pregexpz00, BNIL); 
BGl_list4491z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword4481z00zz__pregexpz00, BgL_auxz00_3233); } 
BGl_symbol4492z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-posix-char-class"); 
BGl_keyword4494z00zz__pregexpz00 = 
string_to_keyword(":sub"); 
BGl_list4493z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword4494z00zz__pregexpz00, BNIL); 
BGl_keyword4495z00zz__pregexpz00 = 
string_to_keyword(":case-sensitive"); 
BGl_keyword4496z00zz__pregexpz00 = 
string_to_keyword(":case-insensitive"); 
BGl_symbol4497z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-cluster-type"); 
BGl_keyword4499z00zz__pregexpz00 = 
string_to_keyword(":lookahead"); 
BGl_list4498z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword4499z00zz__pregexpz00, BNIL); 
BGl_keyword4501z00zz__pregexpz00 = 
string_to_keyword(":neg-lookahead"); 
BGl_list4500z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword4501z00zz__pregexpz00, BNIL); 
BGl_keyword4503z00zz__pregexpz00 = 
string_to_keyword(":no-backtrack"); 
BGl_list4502z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword4503z00zz__pregexpz00, BNIL); 
BGl_keyword4505z00zz__pregexpz00 = 
string_to_keyword(":lookbehind"); 
BGl_list4504z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword4505z00zz__pregexpz00, BNIL); 
BGl_keyword4507z00zz__pregexpz00 = 
string_to_keyword(":neg-lookbehind"); 
BGl_list4506z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword4507z00zz__pregexpz00, BNIL); 
BGl_symbol4508z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-subpattern"); 
BGl_keyword4509z00zz__pregexpz00 = 
string_to_keyword(":between"); 
BGl_symbol4510z00zz__pregexpz00 = 
string_to_symbol("minimal?"); 
BGl_symbol4511z00zz__pregexpz00 = 
string_to_symbol("at-least"); 
BGl_symbol4512z00zz__pregexpz00 = 
string_to_symbol("at-most"); 
BGl_symbol4513z00zz__pregexpz00 = 
string_to_symbol("next-i"); 
BGl_symbol4515z00zz__pregexpz00 = 
string_to_symbol("pregexp-wrap-quantifier-if-any"); 
BGl_symbol4516z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-nums"); 
BGl_symbol4518z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-char-list"); 
BGl_keyword4519z00zz__pregexpz00 = 
string_to_keyword(":one-of-chars"); 
BGl_symbol4520z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-char-list/backslash"); 
BGl_keyword4521z00zz__pregexpz00 = 
string_to_keyword(":char-range"); 
BGl_keyword4522z00zz__pregexpz00 = 
string_to_keyword(":alnum"); 
BGl_keyword4523z00zz__pregexpz00 = 
string_to_keyword(":alpha"); 
BGl_keyword4524z00zz__pregexpz00 = 
string_to_keyword(":ascii"); 
BGl_keyword4525z00zz__pregexpz00 = 
string_to_keyword(":blank"); 
BGl_keyword4526z00zz__pregexpz00 = 
string_to_keyword(":cntrl"); 
BGl_keyword4527z00zz__pregexpz00 = 
string_to_keyword(":graph"); 
BGl_keyword4528z00zz__pregexpz00 = 
string_to_keyword(":lower"); 
BGl_keyword4529z00zz__pregexpz00 = 
string_to_keyword(":print"); 
BGl_keyword4530z00zz__pregexpz00 = 
string_to_keyword(":punct"); 
BGl_keyword4531z00zz__pregexpz00 = 
string_to_keyword(":upper"); 
BGl_keyword4532z00zz__pregexpz00 = 
string_to_keyword(":xdigit"); 
BGl_symbol4533z00zz__pregexpz00 = 
string_to_symbol("pregexp-check-if-in-char-class?"); 
BGl_symbol4535z00zz__pregexpz00 = 
string_to_symbol("pregexp-match-positions-aux"); 
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_auxz00_3277;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_auxz00_3280;obj_t BgL_auxz00_3278;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_auxz00_3283;obj_t BgL_auxz00_3281;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_auxz00_3286;obj_t BgL_auxz00_3284;
BgL_auxz00_3286 = 
MAKE_PAIR(BGl_keyword4480z00zz__pregexpz00, BNIL); 
BgL_auxz00_3284 = 
BBOOL(((bool_t)0)); 
BgL_auxz00_3283 = 
MAKE_PAIR(BgL_auxz00_3284, BgL_auxz00_3286); } 
BgL_auxz00_3281 = 
BINT(((long)0)); 
BgL_auxz00_3280 = 
MAKE_PAIR(BgL_auxz00_3281, BgL_auxz00_3283); } 
BgL_auxz00_3278 = 
BBOOL(((bool_t)0)); 
BgL_auxz00_3277 = 
MAKE_PAIR(BgL_auxz00_3278, BgL_auxz00_3280); } 
BGl_list4538z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword4509z00zz__pregexpz00, BgL_auxz00_3277); } 
{ /* ./Llib/pregexp.scm 505 */
obj_t BgL_auxz00_3292;
BgL_auxz00_3292 = 
MAKE_PAIR(BGl_keyword4496z00zz__pregexpz00, BNIL); 
BGl_list4545z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword4495z00zz__pregexpz00, BgL_auxz00_3292); } 
BGl_symbol4546z00zz__pregexpz00 = 
string_to_symbol("no-match-yet"); 
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_3298;obj_t BgL_auxz00_3296;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_3301;obj_t BgL_auxz00_3299;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_3304;obj_t BgL_auxz00_3302;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_3307;obj_t BgL_auxz00_3305;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_3310;obj_t BgL_auxz00_3308;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_3313;obj_t BgL_auxz00_3311;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_3316;obj_t BgL_auxz00_3314;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_3319;obj_t BgL_auxz00_3317;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_3322;obj_t BgL_auxz00_3320;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_3325;obj_t BgL_auxz00_3323;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_3328;obj_t BgL_auxz00_3326;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_3329;
BgL_auxz00_3329 = 
BCHAR(((unsigned char)')')); 
BgL_auxz00_3328 = 
MAKE_PAIR(BgL_auxz00_3329, BNIL); } 
BgL_auxz00_3326 = 
BCHAR(((unsigned char)'(')); 
BgL_auxz00_3325 = 
MAKE_PAIR(BgL_auxz00_3326, BgL_auxz00_3328); } 
BgL_auxz00_3323 = 
BCHAR(((unsigned char)'}')); 
BgL_auxz00_3322 = 
MAKE_PAIR(BgL_auxz00_3323, BgL_auxz00_3325); } 
BgL_auxz00_3320 = 
BCHAR(((unsigned char)'{')); 
BgL_auxz00_3319 = 
MAKE_PAIR(BgL_auxz00_3320, BgL_auxz00_3322); } 
BgL_auxz00_3317 = 
BCHAR(((unsigned char)']')); 
BgL_auxz00_3316 = 
MAKE_PAIR(BgL_auxz00_3317, BgL_auxz00_3319); } 
BgL_auxz00_3314 = 
BCHAR(((unsigned char)'[')); 
BgL_auxz00_3313 = 
MAKE_PAIR(BgL_auxz00_3314, BgL_auxz00_3316); } 
BgL_auxz00_3311 = 
BCHAR(((unsigned char)'|')); 
BgL_auxz00_3310 = 
MAKE_PAIR(BgL_auxz00_3311, BgL_auxz00_3313); } 
BgL_auxz00_3308 = 
BCHAR(((unsigned char)'+')); 
BgL_auxz00_3307 = 
MAKE_PAIR(BgL_auxz00_3308, BgL_auxz00_3310); } 
BgL_auxz00_3305 = 
BCHAR(((unsigned char)'*')); 
BgL_auxz00_3304 = 
MAKE_PAIR(BgL_auxz00_3305, BgL_auxz00_3307); } 
BgL_auxz00_3302 = 
BCHAR(((unsigned char)'?')); 
BgL_auxz00_3301 = 
MAKE_PAIR(BgL_auxz00_3302, BgL_auxz00_3304); } 
BgL_auxz00_3299 = 
BCHAR(((unsigned char)'.')); 
BgL_auxz00_3298 = 
MAKE_PAIR(BgL_auxz00_3299, BgL_auxz00_3301); } 
BgL_auxz00_3296 = 
BCHAR(((unsigned char)'\\')); 
return ( 
BGl_list4548z00zz__pregexpz00 = 
MAKE_PAIR(BgL_auxz00_3296, BgL_auxz00_3298), BUNSPEC) ;} } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__pregexpz00()
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 17 */
BGl_za2pregexpzd2commentzd2charza2z00zz__pregexpz00 = ((unsigned char)';'); 
{ /* ./Llib/pregexp.scm 66 */
long BgL_auxz00_3343;
BgL_auxz00_3343 = 
(((unsigned char)'a')); 
BGl_za2pregexpzd2nulzd2charzd2intza2zd2zz__pregexpz00 = 
(BgL_auxz00_3343-((long)97)); } 
{ /* ./Llib/pregexp.scm 70 */
long BgL_auxz00_3346;
BgL_auxz00_3346 = 
(((long)13)+BGl_za2pregexpzd2nulzd2charzd2intza2zd2zz__pregexpz00); 
BGl_za2pregexpzd2returnzd2charza2z00zz__pregexpz00 = 
(BgL_auxz00_3346); } 
{ /* ./Llib/pregexp.scm 75 */
long BgL_auxz00_3349;
BgL_auxz00_3349 = 
(((long)9)+BGl_za2pregexpzd2nulzd2charzd2intza2zd2zz__pregexpz00); 
BGl_za2pregexpzd2tabzd2charza2z00zz__pregexpz00 = 
(BgL_auxz00_3349); } 
return ( 
BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00 = ((bool_t)1), BUNSPEC) ;} 
}



/* pregexp-error */
obj_t BGl_pregexpzd2errorzd2zz__pregexpz00(obj_t BgL_msgz00_1, obj_t BgL_optz00_2)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 52 */
{ /* ./Llib/pregexp.scm 53 */
obj_t BgL_arg1084z00_1561;
if(
PAIRP(BgL_optz00_2))
{ /* ./Llib/pregexp.scm 53 */
BgL_arg1084z00_1561 = 
CAR(BgL_optz00_2); }  else 
{ /* ./Llib/pregexp.scm 53 */
BgL_arg1084z00_1561 = BUNSPEC; } 
FAILURE(BGl_string4474z00zz__pregexpz00,BgL_msgz00_1,BgL_arg1084z00_1561);} } 
}



/* pregexp-reverse! */
obj_t BGl_pregexpzd2reversez12zc0zz__pregexpz00(obj_t BgL_sz00_3)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 80 */
{ 
obj_t BgL_sz00_1569;obj_t BgL_rz00_1570;
BgL_sz00_1569 = BgL_sz00_3; 
BgL_rz00_1570 = BNIL; 
BgL_loopz00_1568:
if(
NULLP(BgL_sz00_1569))
{ /* ./Llib/pregexp.scm 83 */
return BgL_rz00_1570;}  else 
{ /* ./Llib/pregexp.scm 83 */
obj_t BgL_dz00_1574;
BgL_dz00_1574 = 
CDR(BgL_sz00_1569); 
SET_CDR(BgL_sz00_1569, BgL_rz00_1570); 
{ 
obj_t BgL_rz00_3361;obj_t BgL_sz00_3360;
BgL_sz00_3360 = BgL_dz00_1574; 
BgL_rz00_3361 = BgL_sz00_1569; 
BgL_rz00_1570 = BgL_rz00_3361; 
BgL_sz00_1569 = BgL_sz00_3360; 
goto BgL_loopz00_1568;} } } } 
}



/* pregexp-read-pattern */
obj_t BGl_pregexpzd2readzd2patternz00zz__pregexpz00(obj_t BgL_sz00_4, obj_t BgL_iz00_5, int BgL_nz00_6)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 93 */
{ /* ./Llib/pregexp.scm 95 */
bool_t BgL_testz00_3362;
{ /* ./Llib/pregexp.scm 95 */
long BgL_auxz00_3365;long BgL_auxz00_3363;
BgL_auxz00_3365 = 
(long)(BgL_nz00_6); 
BgL_auxz00_3363 = 
(long)CINT(BgL_iz00_5); 
BgL_testz00_3362 = 
(BgL_auxz00_3363>=BgL_auxz00_3365); } 
if(BgL_testz00_3362)
{ /* ./Llib/pregexp.scm 97 */
obj_t BgL_arg1097z00_448;
{ /* ./Llib/pregexp.scm 97 */
obj_t BgL_arg1105z00_451;obj_t BgL_arg1106z00_452;
BgL_arg1105z00_451 = BGl_keyword4475z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 97 */
obj_t BgL_list1114z00_455;
BgL_list1114z00_455 = 
MAKE_PAIR(BGl_keyword4476z00zz__pregexpz00, BNIL); 
BgL_arg1106z00_452 = BgL_list1114z00_455; } 
{ /* ./Llib/pregexp.scm 97 */
obj_t BgL_list1108z00_453;
{ /* ./Llib/pregexp.scm 97 */
obj_t BgL_arg1110z00_454;
BgL_arg1110z00_454 = 
MAKE_PAIR(BgL_arg1106z00_452, BNIL); 
BgL_list1108z00_453 = 
MAKE_PAIR(BgL_arg1105z00_451, BgL_arg1110z00_454); } 
BgL_arg1097z00_448 = BgL_list1108z00_453; } } 
{ /* ./Llib/pregexp.scm 96 */
obj_t BgL_list1099z00_449;
{ /* ./Llib/pregexp.scm 96 */
obj_t BgL_arg1101z00_450;
BgL_arg1101z00_450 = 
MAKE_PAIR(BgL_iz00_5, BNIL); 
BgL_list1099z00_449 = 
MAKE_PAIR(BgL_arg1097z00_448, BgL_arg1101z00_450); } 
return BgL_list1099z00_449;} }  else 
{ 
obj_t BgL_branchesz00_456;obj_t BgL_iz00_457;
BgL_branchesz00_456 = BNIL; 
BgL_iz00_457 = BgL_iz00_5; 
BgL_loopz00_458:
{ /* ./Llib/pregexp.scm 99 */
bool_t BgL_test1117z00_459;
{ /* ./Llib/pregexp.scm 99 */
bool_t BgL_testz00_3373;
{ /* ./Llib/pregexp.scm 99 */
long BgL_auxz00_3376;long BgL_auxz00_3374;
BgL_auxz00_3376 = 
(long)(BgL_nz00_6); 
BgL_auxz00_3374 = 
(long)CINT(BgL_iz00_457); 
BgL_testz00_3373 = 
(BgL_auxz00_3374>=BgL_auxz00_3376); } 
if(BgL_testz00_3373)
{ /* ./Llib/pregexp.scm 99 */
BgL_test1117z00_459 = ((bool_t)1); }  else 
{ /* ./Llib/pregexp.scm 100 */
unsigned char BgL_auxz00_3379;
{ /* ./Llib/pregexp.scm 100 */
int BgL_auxz00_3380;
BgL_auxz00_3380 = 
CINT(BgL_iz00_457); 
BgL_auxz00_3379 = 
STRING_REF(BgL_sz00_4, BgL_auxz00_3380); } 
BgL_test1117z00_459 = 
(BgL_auxz00_3379==((unsigned char)')')); } } 
if(BgL_test1117z00_459)
{ /* ./Llib/pregexp.scm 101 */
obj_t BgL_arg1119z00_460;
{ /* ./Llib/pregexp.scm 101 */
obj_t BgL_auxz00_3385;
BgL_auxz00_3385 = 
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_branchesz00_456); 
BgL_arg1119z00_460 = 
MAKE_PAIR(BGl_keyword4475z00zz__pregexpz00, BgL_auxz00_3385); } 
{ /* ./Llib/pregexp.scm 101 */
obj_t BgL_list1121z00_461;
{ /* ./Llib/pregexp.scm 101 */
obj_t BgL_arg1123z00_462;
BgL_arg1123z00_462 = 
MAKE_PAIR(BgL_iz00_457, BNIL); 
BgL_list1121z00_461 = 
MAKE_PAIR(BgL_arg1119z00_460, BgL_arg1123z00_462); } 
return BgL_list1121z00_461;} }  else 
{ /* ./Llib/pregexp.scm 102 */
obj_t BgL_vvz00_465;
{ /* ./Llib/pregexp.scm 104 */
obj_t BgL_arg1141z00_469;
{ /* ./Llib/pregexp.scm 104 */
bool_t BgL_testz00_3390;
{ /* ./Llib/pregexp.scm 104 */
unsigned char BgL_auxz00_3391;
{ /* ./Llib/pregexp.scm 104 */
int BgL_auxz00_3392;
BgL_auxz00_3392 = 
CINT(BgL_iz00_457); 
BgL_auxz00_3391 = 
STRING_REF(BgL_sz00_4, BgL_auxz00_3392); } 
BgL_testz00_3390 = 
(BgL_auxz00_3391==((unsigned char)'|')); } 
if(BgL_testz00_3390)
{ /* ./Llib/pregexp.scm 104 */
long BgL_auxz00_3396;
{ /* ./Llib/pregexp.scm 104 */
long BgL_auxz00_3397;
BgL_auxz00_3397 = 
(long)CINT(BgL_iz00_457); 
BgL_auxz00_3396 = 
(BgL_auxz00_3397+((long)1)); } 
BgL_arg1141z00_469 = 
BINT(BgL_auxz00_3396); }  else 
{ /* ./Llib/pregexp.scm 104 */
BgL_arg1141z00_469 = BgL_iz00_457; } } 
BgL_vvz00_465 = 
BGl_pregexpzd2readzd2branchz00zz__pregexpz00(BgL_sz00_4, BgL_arg1141z00_469, BgL_nz00_6); } 
{ /* ./Llib/pregexp.scm 105 */
obj_t BgL_arg1132z00_466;obj_t BgL_arg1133z00_467;
{ /* ./Llib/pregexp.scm 105 */
obj_t BgL_auxz00_3402;
BgL_auxz00_3402 = 
CAR(BgL_vvz00_465); 
BgL_arg1132z00_466 = 
MAKE_PAIR(BgL_auxz00_3402, BgL_branchesz00_456); } 
{ /* ./Llib/pregexp.scm 105 */
obj_t BgL_auxz00_3405;
BgL_auxz00_3405 = 
CDR(BgL_vvz00_465); 
BgL_arg1133z00_467 = 
CAR(BgL_auxz00_3405); } 
{ 
obj_t BgL_iz00_3409;obj_t BgL_branchesz00_3408;
BgL_branchesz00_3408 = BgL_arg1132z00_466; 
BgL_iz00_3409 = BgL_arg1133z00_467; 
BgL_iz00_457 = BgL_iz00_3409; 
BgL_branchesz00_456 = BgL_branchesz00_3408; 
goto BgL_loopz00_458;} } } } } } } 
}



/* pregexp-read-branch */
obj_t BGl_pregexpzd2readzd2branchz00zz__pregexpz00(obj_t BgL_sz00_7, obj_t BgL_iz00_8, int BgL_nz00_9)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 107 */
{ 
obj_t BgL_piecesz00_474;obj_t BgL_iz00_475;
BgL_piecesz00_474 = BNIL; 
BgL_iz00_475 = BgL_iz00_8; 
BgL_loopz00_476:
{ /* ./Llib/pregexp.scm 110 */
bool_t BgL_testz00_3410;
{ /* ./Llib/pregexp.scm 110 */
long BgL_auxz00_3413;long BgL_auxz00_3411;
BgL_auxz00_3413 = 
(long)(BgL_nz00_9); 
BgL_auxz00_3411 = 
(long)CINT(BgL_iz00_475); 
BgL_testz00_3410 = 
(BgL_auxz00_3411>=BgL_auxz00_3413); } 
if(BgL_testz00_3410)
{ /* ./Llib/pregexp.scm 110 */
{ /* ./Llib/pregexp.scm 111 */
obj_t BgL_arg1160z00_478;
{ /* ./Llib/pregexp.scm 111 */
obj_t BgL_auxz00_3416;
BgL_auxz00_3416 = 
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_piecesz00_474); 
BgL_arg1160z00_478 = 
MAKE_PAIR(BGl_keyword4476z00zz__pregexpz00, BgL_auxz00_3416); } 
{ /* ./Llib/pregexp.scm 111 */
obj_t BgL_list1162z00_479;
{ /* ./Llib/pregexp.scm 111 */
obj_t BgL_arg1164z00_480;
BgL_arg1164z00_480 = 
MAKE_PAIR(BgL_iz00_475, BNIL); 
BgL_list1162z00_479 = 
MAKE_PAIR(BgL_arg1160z00_478, BgL_arg1164z00_480); } 
return BgL_list1162z00_479;} } }  else 
{ /* ./Llib/pregexp.scm 112 */
bool_t BgL_test1174z00_483;
{ /* ./Llib/pregexp.scm 112 */
unsigned char BgL_cz00_493;
{ /* ./Llib/pregexp.scm 112 */
int BgL_auxz00_3421;
BgL_auxz00_3421 = 
CINT(BgL_iz00_475); 
BgL_cz00_493 = 
STRING_REF(BgL_sz00_7, BgL_auxz00_3421); } 
{ /* ./Llib/pregexp.scm 113 */
bool_t BgL__ortest_1003z00_494;
BgL__ortest_1003z00_494 = 
(BgL_cz00_493==((unsigned char)'|')); 
if(BgL__ortest_1003z00_494)
{ /* ./Llib/pregexp.scm 113 */
BgL_test1174z00_483 = BgL__ortest_1003z00_494; }  else 
{ /* ./Llib/pregexp.scm 113 */
BgL_test1174z00_483 = 
(BgL_cz00_493==((unsigned char)')')); } } } 
if(BgL_test1174z00_483)
{ /* ./Llib/pregexp.scm 112 */
{ /* ./Llib/pregexp.scm 115 */
obj_t BgL_arg1177z00_484;
{ /* ./Llib/pregexp.scm 115 */
obj_t BgL_auxz00_3428;
BgL_auxz00_3428 = 
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_piecesz00_474); 
BgL_arg1177z00_484 = 
MAKE_PAIR(BGl_keyword4476z00zz__pregexpz00, BgL_auxz00_3428); } 
{ /* ./Llib/pregexp.scm 115 */
obj_t BgL_list1179z00_485;
{ /* ./Llib/pregexp.scm 115 */
obj_t BgL_arg1181z00_486;
BgL_arg1181z00_486 = 
MAKE_PAIR(BgL_iz00_475, BNIL); 
BgL_list1179z00_485 = 
MAKE_PAIR(BgL_arg1177z00_484, BgL_arg1181z00_486); } 
return BgL_list1179z00_485;} } }  else 
{ /* ./Llib/pregexp.scm 112 */
{ /* ./Llib/pregexp.scm 116 */
obj_t BgL_vvz00_489;
BgL_vvz00_489 = 
BGl_pregexpzd2readzd2piecez00zz__pregexpz00(BgL_sz00_7, BgL_iz00_475, BgL_nz00_9); 
{ /* ./Llib/pregexp.scm 117 */
obj_t BgL_arg1192z00_490;obj_t BgL_arg1193z00_491;
{ /* ./Llib/pregexp.scm 117 */
obj_t BgL_auxz00_3434;
BgL_auxz00_3434 = 
CAR(BgL_vvz00_489); 
BgL_arg1192z00_490 = 
MAKE_PAIR(BgL_auxz00_3434, BgL_piecesz00_474); } 
{ /* ./Llib/pregexp.scm 117 */
obj_t BgL_auxz00_3437;
BgL_auxz00_3437 = 
CDR(BgL_vvz00_489); 
BgL_arg1193z00_491 = 
CAR(BgL_auxz00_3437); } 
{ 
obj_t BgL_iz00_3441;obj_t BgL_piecesz00_3440;
BgL_piecesz00_3440 = BgL_arg1192z00_490; 
BgL_iz00_3441 = BgL_arg1193z00_491; 
BgL_iz00_475 = BgL_iz00_3441; 
BgL_piecesz00_474 = BgL_piecesz00_3440; 
goto BgL_loopz00_476;} } } } } } } } 
}



/* pregexp-read-piece */
obj_t BGl_pregexpzd2readzd2piecez00zz__pregexpz00(obj_t BgL_sz00_10, obj_t BgL_iz00_11, int BgL_nz00_12)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 119 */
{ /* ./Llib/pregexp.scm 121 */
unsigned char BgL_cz00_495;
{ /* ./Llib/pregexp.scm 121 */
int BgL_auxz00_3442;
BgL_auxz00_3442 = 
CINT(BgL_iz00_11); 
BgL_cz00_495 = 
STRING_REF(BgL_sz00_10, BgL_auxz00_3442); } 
{ 

switch( BgL_cz00_495) { case ((unsigned char)'^') : 

{ /* ./Llib/pregexp.scm 123 */
obj_t BgL_arg1207z00_499;long BgL_arg1208z00_500;
BgL_arg1207z00_499 = BGl_keyword4478z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 123 */
long BgL_auxz00_3445;
BgL_auxz00_3445 = 
(long)CINT(BgL_iz00_11); 
BgL_arg1208z00_500 = 
(BgL_auxz00_3445+((long)1)); } 
{ /* ./Llib/pregexp.scm 123 */
obj_t BgL_list1210z00_501;
{ /* ./Llib/pregexp.scm 123 */
obj_t BgL_arg1212z00_502;
{ /* ./Llib/pregexp.scm 123 */
obj_t BgL_auxz00_3448;
BgL_auxz00_3448 = 
BINT(BgL_arg1208z00_500); 
BgL_arg1212z00_502 = 
MAKE_PAIR(BgL_auxz00_3448, BNIL); } 
BgL_list1210z00_501 = 
MAKE_PAIR(BgL_arg1207z00_499, BgL_arg1212z00_502); } 
return BgL_list1210z00_501;} } break;case ((unsigned char)'$') : 

{ /* ./Llib/pregexp.scm 124 */
obj_t BgL_arg1217z00_503;long BgL_arg1218z00_504;
BgL_arg1217z00_503 = BGl_keyword4479z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 124 */
long BgL_auxz00_3452;
BgL_auxz00_3452 = 
(long)CINT(BgL_iz00_11); 
BgL_arg1218z00_504 = 
(BgL_auxz00_3452+((long)1)); } 
{ /* ./Llib/pregexp.scm 124 */
obj_t BgL_list1220z00_505;
{ /* ./Llib/pregexp.scm 124 */
obj_t BgL_arg1222z00_506;
{ /* ./Llib/pregexp.scm 124 */
obj_t BgL_auxz00_3455;
BgL_auxz00_3455 = 
BINT(BgL_arg1218z00_504); 
BgL_arg1222z00_506 = 
MAKE_PAIR(BgL_auxz00_3455, BNIL); } 
BgL_list1220z00_505 = 
MAKE_PAIR(BgL_arg1217z00_503, BgL_arg1222z00_506); } 
return BgL_list1220z00_505;} } break;case ((unsigned char)'.') : 

{ /* ./Llib/pregexp.scm 126 */
obj_t BgL_arg1227z00_507;
{ /* ./Llib/pregexp.scm 126 */
obj_t BgL_arg1230z00_508;long BgL_arg1231z00_509;
BgL_arg1230z00_508 = BGl_keyword4480z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 126 */
long BgL_auxz00_3459;
BgL_auxz00_3459 = 
(long)CINT(BgL_iz00_11); 
BgL_arg1231z00_509 = 
(BgL_auxz00_3459+((long)1)); } 
{ /* ./Llib/pregexp.scm 126 */
obj_t BgL_list1233z00_510;
{ /* ./Llib/pregexp.scm 126 */
obj_t BgL_arg1235z00_511;
{ /* ./Llib/pregexp.scm 126 */
obj_t BgL_auxz00_3462;
BgL_auxz00_3462 = 
BINT(BgL_arg1231z00_509); 
BgL_arg1235z00_511 = 
MAKE_PAIR(BgL_auxz00_3462, BNIL); } 
BgL_list1233z00_510 = 
MAKE_PAIR(BgL_arg1230z00_508, BgL_arg1235z00_511); } 
BgL_arg1227z00_507 = BgL_list1233z00_510; } } 
return 
BGl_pregexpzd2wrapzd2quantifierzd2ifzd2anyz00zz__pregexpz00(BgL_arg1227z00_507, BgL_sz00_10, BgL_nz00_12);} break;case ((unsigned char)'[') : 

{ /* ./Llib/pregexp.scm 128 */
obj_t BgL_arg1240z00_512;
{ /* ./Llib/pregexp.scm 128 */
unsigned char BgL_aux1008z00_514;
{ /* ./Llib/pregexp.scm 128 */
int BgL_auxz00_3467;
{ /* ./Llib/pregexp.scm 128 */
long BgL_auxz00_3468;
{ /* ./Llib/pregexp.scm 128 */
long BgL_auxz00_3469;
BgL_auxz00_3469 = 
(long)CINT(BgL_iz00_11); 
BgL_auxz00_3468 = 
(BgL_auxz00_3469+((long)1)); } 
BgL_auxz00_3467 = 
(int)(BgL_auxz00_3468); } 
BgL_aux1008z00_514 = 
STRING_REF(BgL_sz00_10, BgL_auxz00_3467); } 
switch( BgL_aux1008z00_514) { case ((unsigned char)'^') : 

{ /* ./Llib/pregexp.scm 130 */
obj_t BgL_vvz00_516;
{ /* ./Llib/pregexp.scm 130 */
long BgL_auxz00_3474;
{ /* ./Llib/pregexp.scm 130 */
long BgL_auxz00_3475;
BgL_auxz00_3475 = 
(long)CINT(BgL_iz00_11); 
BgL_auxz00_3474 = 
(BgL_auxz00_3475+((long)2)); } 
BgL_vvz00_516 = 
BGl_pregexpzd2readzd2charzd2listzd2zz__pregexpz00(BgL_sz00_10, BgL_auxz00_3474, BgL_nz00_12); } 
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_arg1244z00_517;obj_t BgL_arg1245z00_518;
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_arg1254z00_521;obj_t BgL_arg1255z00_522;
BgL_arg1254z00_521 = BGl_keyword4481z00zz__pregexpz00; 
BgL_arg1255z00_522 = 
CAR(BgL_vvz00_516); 
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_list1257z00_523;
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_arg1259z00_524;
BgL_arg1259z00_524 = 
MAKE_PAIR(BgL_arg1255z00_522, BNIL); 
BgL_list1257z00_523 = 
MAKE_PAIR(BgL_arg1254z00_521, BgL_arg1259z00_524); } 
BgL_arg1244z00_517 = BgL_list1257z00_523; } } 
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_auxz00_3482;
BgL_auxz00_3482 = 
CDR(BgL_vvz00_516); 
BgL_arg1245z00_518 = 
CAR(BgL_auxz00_3482); } 
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_list1247z00_519;
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_arg1249z00_520;
BgL_arg1249z00_520 = 
MAKE_PAIR(BgL_arg1245z00_518, BNIL); 
BgL_list1247z00_519 = 
MAKE_PAIR(BgL_arg1244z00_517, BgL_arg1249z00_520); } 
BgL_arg1240z00_512 = BgL_list1247z00_519; } } } break;
default: 
{ /* ./Llib/pregexp.scm 128 */
long BgL_auxz00_3487;
{ /* ./Llib/pregexp.scm 128 */
long BgL_auxz00_3488;
BgL_auxz00_3488 = 
(long)CINT(BgL_iz00_11); 
BgL_auxz00_3487 = 
(BgL_auxz00_3488+((long)1)); } 
BgL_arg1240z00_512 = 
BGl_pregexpzd2readzd2charzd2listzd2zz__pregexpz00(BgL_sz00_10, BgL_auxz00_3487, BgL_nz00_12); } } } 
return 
BGl_pregexpzd2wrapzd2quantifierzd2ifzd2anyz00zz__pregexpz00(BgL_arg1240z00_512, BgL_sz00_10, BgL_nz00_12);} break;case ((unsigned char)'(') : 

{ /* ./Llib/pregexp.scm 135 */
obj_t BgL_auxz00_3494;
{ /* ./Llib/pregexp.scm 136 */
long BgL_auxz00_3495;
{ /* ./Llib/pregexp.scm 136 */
long BgL_auxz00_3496;
BgL_auxz00_3496 = 
(long)CINT(BgL_iz00_11); 
BgL_auxz00_3495 = 
(BgL_auxz00_3496+((long)1)); } 
BgL_auxz00_3494 = 
BGl_pregexpzd2readzd2subpatternz00zz__pregexpz00(BgL_sz00_10, BgL_auxz00_3495, BgL_nz00_12); } 
return 
BGl_pregexpzd2wrapzd2quantifierzd2ifzd2anyz00zz__pregexpz00(BgL_auxz00_3494, BgL_sz00_10, BgL_nz00_12);} break;case ((unsigned char)'\\') : 

{ /* ./Llib/pregexp.scm 139 */
obj_t BgL_arg1288z00_530;
{ /* ./Llib/pregexp.scm 139 */
obj_t BgL_testzd2resultzd2_531;
BgL_testzd2resultzd2_531 = 
BGl_pregexpzd2readzd2escapedzd2numberzd2zz__pregexpz00(BgL_sz00_10, BgL_iz00_11, BgL_nz00_12); 
{ 
obj_t BgL__cdtest_1009z00_534;
if(
CBOOL(BgL_testzd2resultzd2_531))
{ /* ./Llib/pregexp.scm 139 */
BgL__cdtest_1009z00_534 = BgL_testzd2resultzd2_531; 
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_arg1295z00_537;obj_t BgL_arg1296z00_538;
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_arg1304z00_541;obj_t BgL_arg1305z00_542;
BgL_arg1304z00_541 = BGl_keyword4482z00zz__pregexpz00; 
BgL_arg1305z00_542 = 
CAR(BgL__cdtest_1009z00_534); 
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_list1307z00_543;
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_arg1309z00_544;
BgL_arg1309z00_544 = 
MAKE_PAIR(BgL_arg1305z00_542, BNIL); 
BgL_list1307z00_543 = 
MAKE_PAIR(BgL_arg1304z00_541, BgL_arg1309z00_544); } 
BgL_arg1295z00_537 = BgL_list1307z00_543; } } 
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_auxz00_3507;
BgL_auxz00_3507 = 
CDR(BgL__cdtest_1009z00_534); 
BgL_arg1296z00_538 = 
CAR(BgL_auxz00_3507); } 
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_list1298z00_539;
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_arg1300z00_540;
BgL_arg1300z00_540 = 
MAKE_PAIR(BgL_arg1296z00_538, BNIL); 
BgL_list1298z00_539 = 
MAKE_PAIR(BgL_arg1295z00_537, BgL_arg1300z00_540); } 
BgL_arg1288z00_530 = BgL_list1298z00_539; } } }  else 
{ /* ./Llib/pregexp.scm 139 */
{ /* ./Llib/pregexp.scm 142 */
obj_t BgL_testzd2resultzd2_546;
BgL_testzd2resultzd2_546 = 
BGl_pregexpzd2readzd2escapedzd2charzd2zz__pregexpz00(BgL_sz00_10, BgL_iz00_11, BgL_nz00_12); 
if(
CBOOL(BgL_testzd2resultzd2_546))
{ /* ./Llib/pregexp.scm 142 */
obj_t BgL_arg1320z00_1688;obj_t BgL_arg1321z00_1689;
BgL_arg1320z00_1688 = 
CAR(BgL_testzd2resultzd2_546); 
{ /* ./Llib/pregexp.scm 142 */
obj_t BgL_auxz00_3516;
BgL_auxz00_3516 = 
CDR(BgL_testzd2resultzd2_546); 
BgL_arg1321z00_1689 = 
CAR(BgL_auxz00_3516); } 
{ /* ./Llib/pregexp.scm 142 */
obj_t BgL_list1323z00_1690;
{ /* ./Llib/pregexp.scm 142 */
obj_t BgL_arg1326z00_1691;
BgL_arg1326z00_1691 = 
MAKE_PAIR(BgL_arg1321z00_1689, BNIL); 
BgL_list1323z00_1690 = 
MAKE_PAIR(BgL_arg1320z00_1688, BgL_arg1326z00_1691); } 
BgL_arg1288z00_530 = BgL_list1323z00_1690; } }  else 
{ /* ./Llib/pregexp.scm 142 */
{ /* ./Llib/pregexp.scm 142 */
obj_t BgL_list1333z00_1699;
{ /* ./Llib/pregexp.scm 142 */
obj_t BgL_auxz00_3521;
BgL_auxz00_3521 = 
BCHAR(((unsigned char)'\\')); 
BgL_list1333z00_1699 = 
MAKE_PAIR(BgL_auxz00_3521, BNIL); } 
BgL_arg1288z00_530 = 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol4483z00zz__pregexpz00, BgL_list1333z00_1699); } } } } } } 
return 
BGl_pregexpzd2wrapzd2quantifierzd2ifzd2anyz00zz__pregexpz00(BgL_arg1288z00_530, BgL_sz00_10, BgL_nz00_12);} break;
default: 
{ /* ./Llib/pregexp.scm 148 */
bool_t BgL_test1338z00_562;
if(BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00)
{ /* ./Llib/pregexp.scm 148 */
BgL_test1338z00_562 = ((bool_t)1); }  else 
{ /* ./Llib/pregexp.scm 149 */
bool_t BgL__andtest_1004z00_585;
{ /* ./Llib/pregexp.scm 149 */
bool_t BgL_test1391z00_587;
{ /* ./Llib/pregexp.scm 149 */
bool_t BgL_res3656z00_1724;
BgL_res3656z00_1724 = 
isspace(BgL_cz00_495); 
BgL_test1391z00_587 = BgL_res3656z00_1724; } 
if(BgL_test1391z00_587)
{ /* ./Llib/pregexp.scm 149 */
BgL__andtest_1004z00_585 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 149 */
BgL__andtest_1004z00_585 = ((bool_t)1); } } 
if(BgL__andtest_1004z00_585)
{ /* ./Llib/pregexp.scm 149 */
if(
(BgL_cz00_495==((unsigned char)';')))
{ /* ./Llib/pregexp.scm 150 */
BgL_test1338z00_562 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 150 */
BgL_test1338z00_562 = ((bool_t)1); } }  else 
{ /* ./Llib/pregexp.scm 149 */
BgL_test1338z00_562 = ((bool_t)0); } } 
if(BgL_test1338z00_562)
{ /* ./Llib/pregexp.scm 152 */
obj_t BgL_arg1340z00_563;
{ /* ./Llib/pregexp.scm 152 */
long BgL_arg1343z00_564;
{ /* ./Llib/pregexp.scm 152 */
long BgL_auxz00_3533;
BgL_auxz00_3533 = 
(long)CINT(BgL_iz00_11); 
BgL_arg1343z00_564 = 
(BgL_auxz00_3533+((long)1)); } 
{ /* ./Llib/pregexp.scm 152 */
obj_t BgL_list1345z00_565;
{ /* ./Llib/pregexp.scm 152 */
obj_t BgL_arg1347z00_566;
{ /* ./Llib/pregexp.scm 152 */
obj_t BgL_auxz00_3536;
BgL_auxz00_3536 = 
BINT(BgL_arg1343z00_564); 
BgL_arg1347z00_566 = 
MAKE_PAIR(BgL_auxz00_3536, BNIL); } 
{ /* ./Llib/pregexp.scm 152 */
obj_t BgL_auxz00_3539;
BgL_auxz00_3539 = 
BCHAR(BgL_cz00_495); 
BgL_list1345z00_565 = 
MAKE_PAIR(BgL_auxz00_3539, BgL_arg1347z00_566); } } 
BgL_arg1340z00_563 = BgL_list1345z00_565; } } 
return 
BGl_pregexpzd2wrapzd2quantifierzd2ifzd2anyz00zz__pregexpz00(BgL_arg1340z00_563, BgL_sz00_10, BgL_nz00_12);}  else 
{ 
obj_t BgL_iz00_567;bool_t BgL_inzd2commentzf3z21_568;
BgL_iz00_567 = BgL_iz00_11; 
BgL_inzd2commentzf3z21_568 = ((bool_t)0); 
BgL_loopz00_569:
{ /* ./Llib/pregexp.scm 154 */
bool_t BgL_testz00_3543;
{ /* ./Llib/pregexp.scm 154 */
long BgL_auxz00_3546;long BgL_auxz00_3544;
BgL_auxz00_3546 = 
(long)(BgL_nz00_12); 
BgL_auxz00_3544 = 
(long)CINT(BgL_iz00_567); 
BgL_testz00_3543 = 
(BgL_auxz00_3544>=BgL_auxz00_3546); } 
if(BgL_testz00_3543)
{ /* ./Llib/pregexp.scm 154 */
obj_t BgL_list1354z00_571;
{ /* ./Llib/pregexp.scm 154 */
obj_t BgL_arg1356z00_572;obj_t BgL_arg1357z00_573;
BgL_arg1356z00_572 = BGl_keyword4477z00zz__pregexpz00; 
BgL_arg1357z00_573 = 
MAKE_PAIR(BgL_iz00_567, BNIL); 
BgL_list1354z00_571 = 
MAKE_PAIR(BgL_arg1356z00_572, BgL_arg1357z00_573); } 
return BgL_list1354z00_571;}  else 
{ /* ./Llib/pregexp.scm 155 */
unsigned char BgL_cz00_574;
{ /* ./Llib/pregexp.scm 155 */
int BgL_auxz00_3551;
BgL_auxz00_3551 = 
CINT(BgL_iz00_567); 
BgL_cz00_574 = 
STRING_REF(BgL_sz00_10, BgL_auxz00_3551); } 
if(BgL_inzd2commentzf3z21_568)
{ /* ./Llib/pregexp.scm 156 */
{ /* ./Llib/pregexp.scm 157 */
long BgL_arg1361z00_575;bool_t BgL_arg1362z00_576;
{ /* ./Llib/pregexp.scm 157 */
long BgL_auxz00_3555;
BgL_auxz00_3555 = 
(long)CINT(BgL_iz00_567); 
BgL_arg1361z00_575 = 
(BgL_auxz00_3555+((long)1)); } 
if(
(BgL_cz00_574==((unsigned char)'\n')))
{ /* ./Llib/pregexp.scm 158 */
BgL_arg1362z00_576 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 158 */
BgL_arg1362z00_576 = ((bool_t)1); } 
{ 
bool_t BgL_inzd2commentzf3z21_3562;obj_t BgL_iz00_3560;
BgL_iz00_3560 = 
BINT(BgL_arg1361z00_575); 
BgL_inzd2commentzf3z21_3562 = BgL_arg1362z00_576; 
BgL_inzd2commentzf3z21_568 = BgL_inzd2commentzf3z21_3562; 
BgL_iz00_567 = BgL_iz00_3560; 
goto BgL_loopz00_569;} } }  else 
{ /* ./Llib/pregexp.scm 159 */
bool_t BgL_test1367z00_578;
{ /* ./Llib/pregexp.scm 159 */
bool_t BgL_res3659z00_1742;
BgL_res3659z00_1742 = 
isspace(BgL_cz00_574); 
BgL_test1367z00_578 = BgL_res3659z00_1742; } 
if(BgL_test1367z00_578)
{ /* ./Llib/pregexp.scm 159 */
{ /* ./Llib/pregexp.scm 160 */
long BgL_arg1370z00_579;
{ /* ./Llib/pregexp.scm 160 */
long BgL_auxz00_3565;
BgL_auxz00_3565 = 
(long)CINT(BgL_iz00_567); 
BgL_arg1370z00_579 = 
(BgL_auxz00_3565+((long)1)); } 
{ 
bool_t BgL_inzd2commentzf3z21_3570;obj_t BgL_iz00_3568;
BgL_iz00_3568 = 
BINT(BgL_arg1370z00_579); 
BgL_inzd2commentzf3z21_3570 = ((bool_t)0); 
BgL_inzd2commentzf3z21_568 = BgL_inzd2commentzf3z21_3570; 
BgL_iz00_567 = BgL_iz00_3568; 
goto BgL_loopz00_569;} } }  else 
{ /* ./Llib/pregexp.scm 159 */
if(
(BgL_cz00_574==((unsigned char)';')))
{ /* ./Llib/pregexp.scm 161 */
{ /* ./Llib/pregexp.scm 162 */
long BgL_arg1375z00_581;
{ /* ./Llib/pregexp.scm 162 */
long BgL_auxz00_3573;
BgL_auxz00_3573 = 
(long)CINT(BgL_iz00_567); 
BgL_arg1375z00_581 = 
(BgL_auxz00_3573+((long)1)); } 
{ 
bool_t BgL_inzd2commentzf3z21_3578;obj_t BgL_iz00_3576;
BgL_iz00_3576 = 
BINT(BgL_arg1375z00_581); 
BgL_inzd2commentzf3z21_3578 = ((bool_t)1); 
BgL_inzd2commentzf3z21_568 = BgL_inzd2commentzf3z21_3578; 
BgL_iz00_567 = BgL_iz00_3576; 
goto BgL_loopz00_569;} } }  else 
{ /* ./Llib/pregexp.scm 161 */
{ /* ./Llib/pregexp.scm 163 */
obj_t BgL_list1379z00_582;
{ /* ./Llib/pregexp.scm 163 */
obj_t BgL_arg1381z00_583;obj_t BgL_arg1382z00_584;
BgL_arg1381z00_583 = BGl_keyword4477z00zz__pregexpz00; 
BgL_arg1382z00_584 = 
MAKE_PAIR(BgL_iz00_567, BNIL); 
BgL_list1379z00_582 = 
MAKE_PAIR(BgL_arg1381z00_583, BgL_arg1382z00_584); } 
return BgL_list1379z00_582;} } } } } } } } } } } } 
}



/* pregexp-read-escaped-number */
obj_t BGl_pregexpzd2readzd2escapedzd2numberzd2zz__pregexpz00(obj_t BgL_sz00_13, obj_t BgL_iz00_14, int BgL_nz00_15)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 165 */
{ /* ./Llib/pregexp.scm 168 */
bool_t BgL_testz00_3582;
{ /* ./Llib/pregexp.scm 168 */
long BgL_auxz00_3587;long BgL_auxz00_3583;
BgL_auxz00_3587 = 
(long)(BgL_nz00_15); 
{ /* ./Llib/pregexp.scm 168 */
long BgL_auxz00_3584;
BgL_auxz00_3584 = 
(long)CINT(BgL_iz00_14); 
BgL_auxz00_3583 = 
(BgL_auxz00_3584+((long)1)); } 
BgL_testz00_3582 = 
(BgL_auxz00_3583<BgL_auxz00_3587); } 
if(BgL_testz00_3582)
{ /* ./Llib/pregexp.scm 169 */
unsigned char BgL_cz00_589;
{ /* ./Llib/pregexp.scm 169 */
int BgL_auxz00_3590;
{ /* ./Llib/pregexp.scm 169 */
long BgL_auxz00_3591;
{ /* ./Llib/pregexp.scm 169 */
long BgL_auxz00_3592;
BgL_auxz00_3592 = 
(long)CINT(BgL_iz00_14); 
BgL_auxz00_3591 = 
(BgL_auxz00_3592+((long)1)); } 
BgL_auxz00_3590 = 
(int)(BgL_auxz00_3591); } 
BgL_cz00_589 = 
STRING_REF(BgL_sz00_13, BgL_auxz00_3590); } 
{ /* ./Llib/pregexp.scm 170 */
bool_t BgL__andtest_1012z00_590;
{ /* ./Llib/pregexp.scm 170 */
bool_t BgL_res3661z00_1760;
BgL_res3661z00_1760 = 
isdigit(BgL_cz00_589); 
BgL__andtest_1012z00_590 = BgL_res3661z00_1760; } 
if(BgL__andtest_1012z00_590)
{ 
long BgL_iz00_591;obj_t BgL_rz00_592;
{ /* ./Llib/pregexp.scm 171 */
long BgL_arg1395z00_594;obj_t BgL_arg1396z00_595;
{ /* ./Llib/pregexp.scm 171 */
long BgL_auxz00_3599;
BgL_auxz00_3599 = 
(long)CINT(BgL_iz00_14); 
BgL_arg1395z00_594 = 
(BgL_auxz00_3599+((long)2)); } 
{ /* ./Llib/pregexp.scm 171 */
obj_t BgL_list1400z00_596;
{ /* ./Llib/pregexp.scm 171 */
obj_t BgL_auxz00_3602;
BgL_auxz00_3602 = 
BCHAR(BgL_cz00_589); 
BgL_list1400z00_596 = 
MAKE_PAIR(BgL_auxz00_3602, BNIL); } 
BgL_arg1396z00_595 = BgL_list1400z00_596; } 
BgL_iz00_591 = BgL_arg1395z00_594; 
BgL_rz00_592 = BgL_arg1396z00_595; 
BgL_loopz00_593:
{ /* ./Llib/pregexp.scm 172 */
bool_t BgL_testz00_3605;
{ /* ./Llib/pregexp.scm 172 */
long BgL_auxz00_3606;
BgL_auxz00_3606 = 
(long)(BgL_nz00_15); 
BgL_testz00_3605 = 
(BgL_iz00_591>=BgL_auxz00_3606); } 
if(BgL_testz00_3605)
{ /* ./Llib/pregexp.scm 174 */
obj_t BgL_arg1406z00_598;
BgL_arg1406z00_598 = 
BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_rz00_592)), BNIL); 
{ /* ./Llib/pregexp.scm 173 */
obj_t BgL_list1408z00_599;
{ /* ./Llib/pregexp.scm 173 */
obj_t BgL_arg1410z00_600;
{ /* ./Llib/pregexp.scm 173 */
obj_t BgL_auxz00_3612;
BgL_auxz00_3612 = 
BINT(BgL_iz00_591); 
BgL_arg1410z00_600 = 
MAKE_PAIR(BgL_auxz00_3612, BNIL); } 
BgL_list1408z00_599 = 
MAKE_PAIR(BgL_arg1406z00_598, BgL_arg1410z00_600); } 
return BgL_list1408z00_599;} }  else 
{ /* ./Llib/pregexp.scm 175 */
unsigned char BgL_cz00_604;
{ /* ./Llib/pregexp.scm 175 */
int BgL_auxz00_3616;
BgL_auxz00_3616 = 
(int)(BgL_iz00_591); 
BgL_cz00_604 = 
STRING_REF(BgL_sz00_13, BgL_auxz00_3616); } 
{ /* ./Llib/pregexp.scm 176 */
bool_t BgL_test1421z00_605;
{ /* ./Llib/pregexp.scm 176 */
bool_t BgL_res3664z00_1772;
BgL_res3664z00_1772 = 
isdigit(BgL_cz00_604); 
BgL_test1421z00_605 = BgL_res3664z00_1772; } 
if(BgL_test1421z00_605)
{ /* ./Llib/pregexp.scm 177 */
long BgL_arg1423z00_606;obj_t BgL_arg1424z00_607;
BgL_arg1423z00_606 = 
(BgL_iz00_591+((long)1)); 
{ /* ./Llib/pregexp.scm 177 */
obj_t BgL_auxz00_3622;
BgL_auxz00_3622 = 
BCHAR(BgL_cz00_604); 
BgL_arg1424z00_607 = 
MAKE_PAIR(BgL_auxz00_3622, BgL_rz00_592); } 
{ 
obj_t BgL_rz00_3626;long BgL_iz00_3625;
BgL_iz00_3625 = BgL_arg1423z00_606; 
BgL_rz00_3626 = BgL_arg1424z00_607; 
BgL_rz00_592 = BgL_rz00_3626; 
BgL_iz00_591 = BgL_iz00_3625; 
goto BgL_loopz00_593;} }  else 
{ /* ./Llib/pregexp.scm 179 */
obj_t BgL_arg1429z00_608;
BgL_arg1429z00_608 = 
BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_rz00_592)), BNIL); 
{ /* ./Llib/pregexp.scm 178 */
obj_t BgL_list1431z00_609;
{ /* ./Llib/pregexp.scm 178 */
obj_t BgL_arg1433z00_610;
{ /* ./Llib/pregexp.scm 178 */
obj_t BgL_auxz00_3630;
BgL_auxz00_3630 = 
BINT(BgL_iz00_591); 
BgL_arg1433z00_610 = 
MAKE_PAIR(BgL_auxz00_3630, BNIL); } 
BgL_list1431z00_609 = 
MAKE_PAIR(BgL_arg1429z00_608, BgL_arg1433z00_610); } 
return BgL_list1431z00_609;} } } } } } }  else 
{ /* ./Llib/pregexp.scm 170 */
return BFALSE;} } }  else 
{ /* ./Llib/pregexp.scm 168 */
return BFALSE;} } } 
}



/* pregexp-read-escaped-char */
obj_t BGl_pregexpzd2readzd2escapedzd2charzd2zz__pregexpz00(obj_t BgL_sz00_16, obj_t BgL_iz00_17, int BgL_nz00_18)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 182 */
{ /* ./Llib/pregexp.scm 185 */
bool_t BgL_testz00_3634;
{ /* ./Llib/pregexp.scm 185 */
long BgL_auxz00_3639;long BgL_auxz00_3635;
BgL_auxz00_3639 = 
(long)(BgL_nz00_18); 
{ /* ./Llib/pregexp.scm 185 */
long BgL_auxz00_3636;
BgL_auxz00_3636 = 
(long)CINT(BgL_iz00_17); 
BgL_auxz00_3635 = 
(BgL_auxz00_3636+((long)1)); } 
BgL_testz00_3634 = 
(BgL_auxz00_3635<BgL_auxz00_3639); } 
if(BgL_testz00_3634)
{ /* ./Llib/pregexp.scm 186 */
unsigned char BgL_cz00_617;
{ /* ./Llib/pregexp.scm 186 */
int BgL_auxz00_3642;
{ /* ./Llib/pregexp.scm 186 */
long BgL_auxz00_3643;
{ /* ./Llib/pregexp.scm 186 */
long BgL_auxz00_3644;
BgL_auxz00_3644 = 
(long)CINT(BgL_iz00_17); 
BgL_auxz00_3643 = 
(BgL_auxz00_3644+((long)1)); } 
BgL_auxz00_3642 = 
(int)(BgL_auxz00_3643); } 
BgL_cz00_617 = 
STRING_REF(BgL_sz00_16, BgL_auxz00_3642); } 
{ 

switch( BgL_cz00_617) { case ((unsigned char)'b') : 

{ /* ./Llib/pregexp.scm 188 */
obj_t BgL_arg1458z00_621;long BgL_arg1459z00_622;
BgL_arg1458z00_621 = BGl_keyword4484z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 188 */
long BgL_auxz00_3649;
BgL_auxz00_3649 = 
(long)CINT(BgL_iz00_17); 
BgL_arg1459z00_622 = 
(BgL_auxz00_3649+((long)2)); } 
{ /* ./Llib/pregexp.scm 188 */
obj_t BgL_list1461z00_623;
{ /* ./Llib/pregexp.scm 188 */
obj_t BgL_arg1463z00_624;
{ /* ./Llib/pregexp.scm 188 */
obj_t BgL_auxz00_3652;
BgL_auxz00_3652 = 
BINT(BgL_arg1459z00_622); 
BgL_arg1463z00_624 = 
MAKE_PAIR(BgL_auxz00_3652, BNIL); } 
BgL_list1461z00_623 = 
MAKE_PAIR(BgL_arg1458z00_621, BgL_arg1463z00_624); } 
return BgL_list1461z00_623;} } break;case ((unsigned char)'B') : 

{ /* ./Llib/pregexp.scm 189 */
obj_t BgL_arg1468z00_625;long BgL_arg1469z00_626;
BgL_arg1468z00_625 = BGl_keyword4485z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 189 */
long BgL_auxz00_3656;
BgL_auxz00_3656 = 
(long)CINT(BgL_iz00_17); 
BgL_arg1469z00_626 = 
(BgL_auxz00_3656+((long)2)); } 
{ /* ./Llib/pregexp.scm 189 */
obj_t BgL_list1471z00_627;
{ /* ./Llib/pregexp.scm 189 */
obj_t BgL_arg1474z00_628;
{ /* ./Llib/pregexp.scm 189 */
obj_t BgL_auxz00_3659;
BgL_auxz00_3659 = 
BINT(BgL_arg1469z00_626); 
BgL_arg1474z00_628 = 
MAKE_PAIR(BgL_auxz00_3659, BNIL); } 
BgL_list1471z00_627 = 
MAKE_PAIR(BgL_arg1468z00_625, BgL_arg1474z00_628); } 
return BgL_list1471z00_627;} } break;case ((unsigned char)'d') : 

{ /* ./Llib/pregexp.scm 190 */
obj_t BgL_arg1479z00_629;long BgL_arg1480z00_630;
BgL_arg1479z00_629 = BGl_keyword4486z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 190 */
long BgL_auxz00_3663;
BgL_auxz00_3663 = 
(long)CINT(BgL_iz00_17); 
BgL_arg1480z00_630 = 
(BgL_auxz00_3663+((long)2)); } 
{ /* ./Llib/pregexp.scm 190 */
obj_t BgL_list1482z00_631;
{ /* ./Llib/pregexp.scm 190 */
obj_t BgL_arg1484z00_632;
{ /* ./Llib/pregexp.scm 190 */
obj_t BgL_auxz00_3666;
BgL_auxz00_3666 = 
BINT(BgL_arg1480z00_630); 
BgL_arg1484z00_632 = 
MAKE_PAIR(BgL_auxz00_3666, BNIL); } 
BgL_list1482z00_631 = 
MAKE_PAIR(BgL_arg1479z00_629, BgL_arg1484z00_632); } 
return BgL_list1482z00_631;} } break;case ((unsigned char)'D') : 

{ /* ./Llib/pregexp.scm 191 */
obj_t BgL_arg1489z00_633;long BgL_arg1490z00_634;
BgL_arg1489z00_633 = BGl_list4487z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 191 */
long BgL_auxz00_3670;
BgL_auxz00_3670 = 
(long)CINT(BgL_iz00_17); 
BgL_arg1490z00_634 = 
(BgL_auxz00_3670+((long)2)); } 
{ /* ./Llib/pregexp.scm 191 */
obj_t BgL_list1492z00_635;
{ /* ./Llib/pregexp.scm 191 */
obj_t BgL_arg1494z00_636;
{ /* ./Llib/pregexp.scm 191 */
obj_t BgL_auxz00_3673;
BgL_auxz00_3673 = 
BINT(BgL_arg1490z00_634); 
BgL_arg1494z00_636 = 
MAKE_PAIR(BgL_auxz00_3673, BNIL); } 
BgL_list1492z00_635 = 
MAKE_PAIR(BgL_arg1489z00_633, BgL_arg1494z00_636); } 
return BgL_list1492z00_635;} } break;case ((unsigned char)'n') : 

{ /* ./Llib/pregexp.scm 192 */
long BgL_arg1499z00_637;
{ /* ./Llib/pregexp.scm 192 */
long BgL_auxz00_3677;
BgL_auxz00_3677 = 
(long)CINT(BgL_iz00_17); 
BgL_arg1499z00_637 = 
(BgL_auxz00_3677+((long)2)); } 
{ /* ./Llib/pregexp.scm 192 */
obj_t BgL_list1501z00_638;
{ /* ./Llib/pregexp.scm 192 */
obj_t BgL_arg1503z00_639;
{ /* ./Llib/pregexp.scm 192 */
obj_t BgL_auxz00_3680;
BgL_auxz00_3680 = 
BINT(BgL_arg1499z00_637); 
BgL_arg1503z00_639 = 
MAKE_PAIR(BgL_auxz00_3680, BNIL); } 
{ /* ./Llib/pregexp.scm 192 */
obj_t BgL_auxz00_3683;
BgL_auxz00_3683 = 
BCHAR(((unsigned char)'\n')); 
BgL_list1501z00_638 = 
MAKE_PAIR(BgL_auxz00_3683, BgL_arg1503z00_639); } } 
return BgL_list1501z00_638;} } break;case ((unsigned char)'r') : 

{ /* ./Llib/pregexp.scm 193 */
long BgL_arg1508z00_640;
{ /* ./Llib/pregexp.scm 193 */
long BgL_auxz00_3686;
BgL_auxz00_3686 = 
(long)CINT(BgL_iz00_17); 
BgL_arg1508z00_640 = 
(BgL_auxz00_3686+((long)2)); } 
{ /* ./Llib/pregexp.scm 193 */
obj_t BgL_list1510z00_641;
{ /* ./Llib/pregexp.scm 193 */
obj_t BgL_arg1512z00_642;
{ /* ./Llib/pregexp.scm 193 */
obj_t BgL_auxz00_3689;
BgL_auxz00_3689 = 
BINT(BgL_arg1508z00_640); 
BgL_arg1512z00_642 = 
MAKE_PAIR(BgL_auxz00_3689, BNIL); } 
{ /* ./Llib/pregexp.scm 193 */
obj_t BgL_auxz00_3692;
BgL_auxz00_3692 = 
BCHAR(BGl_za2pregexpzd2returnzd2charza2z00zz__pregexpz00); 
BgL_list1510z00_641 = 
MAKE_PAIR(BgL_auxz00_3692, BgL_arg1512z00_642); } } 
return BgL_list1510z00_641;} } break;case ((unsigned char)'s') : 

{ /* ./Llib/pregexp.scm 194 */
obj_t BgL_arg1518z00_643;long BgL_arg1519z00_644;
BgL_arg1518z00_643 = BGl_keyword4488z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 194 */
long BgL_auxz00_3695;
BgL_auxz00_3695 = 
(long)CINT(BgL_iz00_17); 
BgL_arg1519z00_644 = 
(BgL_auxz00_3695+((long)2)); } 
{ /* ./Llib/pregexp.scm 194 */
obj_t BgL_list1521z00_645;
{ /* ./Llib/pregexp.scm 194 */
obj_t BgL_arg1524z00_646;
{ /* ./Llib/pregexp.scm 194 */
obj_t BgL_auxz00_3698;
BgL_auxz00_3698 = 
BINT(BgL_arg1519z00_644); 
BgL_arg1524z00_646 = 
MAKE_PAIR(BgL_auxz00_3698, BNIL); } 
BgL_list1521z00_645 = 
MAKE_PAIR(BgL_arg1518z00_643, BgL_arg1524z00_646); } 
return BgL_list1521z00_645;} } break;case ((unsigned char)'S') : 

{ /* ./Llib/pregexp.scm 195 */
obj_t BgL_arg1529z00_647;long BgL_arg1530z00_648;
BgL_arg1529z00_647 = BGl_list4489z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 195 */
long BgL_auxz00_3702;
BgL_auxz00_3702 = 
(long)CINT(BgL_iz00_17); 
BgL_arg1530z00_648 = 
(BgL_auxz00_3702+((long)2)); } 
{ /* ./Llib/pregexp.scm 195 */
obj_t BgL_list1532z00_649;
{ /* ./Llib/pregexp.scm 195 */
obj_t BgL_arg1534z00_650;
{ /* ./Llib/pregexp.scm 195 */
obj_t BgL_auxz00_3705;
BgL_auxz00_3705 = 
BINT(BgL_arg1530z00_648); 
BgL_arg1534z00_650 = 
MAKE_PAIR(BgL_auxz00_3705, BNIL); } 
BgL_list1532z00_649 = 
MAKE_PAIR(BgL_arg1529z00_647, BgL_arg1534z00_650); } 
return BgL_list1532z00_649;} } break;case ((unsigned char)'t') : 

{ /* ./Llib/pregexp.scm 196 */
long BgL_arg1539z00_651;
{ /* ./Llib/pregexp.scm 196 */
long BgL_auxz00_3709;
BgL_auxz00_3709 = 
(long)CINT(BgL_iz00_17); 
BgL_arg1539z00_651 = 
(BgL_auxz00_3709+((long)2)); } 
{ /* ./Llib/pregexp.scm 196 */
obj_t BgL_list1541z00_652;
{ /* ./Llib/pregexp.scm 196 */
obj_t BgL_arg1543z00_653;
{ /* ./Llib/pregexp.scm 196 */
obj_t BgL_auxz00_3712;
BgL_auxz00_3712 = 
BINT(BgL_arg1539z00_651); 
BgL_arg1543z00_653 = 
MAKE_PAIR(BgL_auxz00_3712, BNIL); } 
{ /* ./Llib/pregexp.scm 196 */
obj_t BgL_auxz00_3715;
BgL_auxz00_3715 = 
BCHAR(BGl_za2pregexpzd2tabzd2charza2z00zz__pregexpz00); 
BgL_list1541z00_652 = 
MAKE_PAIR(BgL_auxz00_3715, BgL_arg1543z00_653); } } 
return BgL_list1541z00_652;} } break;case ((unsigned char)'w') : 

{ /* ./Llib/pregexp.scm 197 */
obj_t BgL_arg1548z00_654;long BgL_arg1549z00_655;
BgL_arg1548z00_654 = BGl_keyword4490z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 197 */
long BgL_auxz00_3718;
BgL_auxz00_3718 = 
(long)CINT(BgL_iz00_17); 
BgL_arg1549z00_655 = 
(BgL_auxz00_3718+((long)2)); } 
{ /* ./Llib/pregexp.scm 197 */
obj_t BgL_list1551z00_656;
{ /* ./Llib/pregexp.scm 197 */
obj_t BgL_arg1553z00_657;
{ /* ./Llib/pregexp.scm 197 */
obj_t BgL_auxz00_3721;
BgL_auxz00_3721 = 
BINT(BgL_arg1549z00_655); 
BgL_arg1553z00_657 = 
MAKE_PAIR(BgL_auxz00_3721, BNIL); } 
BgL_list1551z00_656 = 
MAKE_PAIR(BgL_arg1548z00_654, BgL_arg1553z00_657); } 
return BgL_list1551z00_656;} } break;case ((unsigned char)'W') : 

{ /* ./Llib/pregexp.scm 198 */
obj_t BgL_arg1558z00_658;long BgL_arg1559z00_659;
BgL_arg1558z00_658 = BGl_list4491z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 198 */
long BgL_auxz00_3725;
BgL_auxz00_3725 = 
(long)CINT(BgL_iz00_17); 
BgL_arg1559z00_659 = 
(BgL_auxz00_3725+((long)2)); } 
{ /* ./Llib/pregexp.scm 198 */
obj_t BgL_list1561z00_660;
{ /* ./Llib/pregexp.scm 198 */
obj_t BgL_arg1563z00_661;
{ /* ./Llib/pregexp.scm 198 */
obj_t BgL_auxz00_3728;
BgL_auxz00_3728 = 
BINT(BgL_arg1559z00_659); 
BgL_arg1563z00_661 = 
MAKE_PAIR(BgL_auxz00_3728, BNIL); } 
BgL_list1561z00_660 = 
MAKE_PAIR(BgL_arg1558z00_658, BgL_arg1563z00_661); } 
return BgL_list1561z00_660;} } break;
default: 
{ /* ./Llib/pregexp.scm 199 */
long BgL_arg1572z00_662;
{ /* ./Llib/pregexp.scm 199 */
long BgL_auxz00_3732;
BgL_auxz00_3732 = 
(long)CINT(BgL_iz00_17); 
BgL_arg1572z00_662 = 
(BgL_auxz00_3732+((long)2)); } 
{ /* ./Llib/pregexp.scm 199 */
obj_t BgL_list1574z00_663;
{ /* ./Llib/pregexp.scm 199 */
obj_t BgL_arg1576z00_664;
{ /* ./Llib/pregexp.scm 199 */
obj_t BgL_auxz00_3735;
BgL_auxz00_3735 = 
BINT(BgL_arg1572z00_662); 
BgL_arg1576z00_664 = 
MAKE_PAIR(BgL_auxz00_3735, BNIL); } 
{ /* ./Llib/pregexp.scm 199 */
obj_t BgL_auxz00_3738;
BgL_auxz00_3738 = 
BCHAR(BgL_cz00_617); 
BgL_list1574z00_663 = 
MAKE_PAIR(BgL_auxz00_3738, BgL_arg1576z00_664); } } 
return BgL_list1574z00_663;} } } } }  else 
{ /* ./Llib/pregexp.scm 185 */
return BFALSE;} } } 
}



/* pregexp-read-posix-char-class */
obj_t BGl_pregexpzd2readzd2posixzd2charzd2classz00zz__pregexpz00(obj_t BgL_sz00_19, long BgL_iz00_20, int BgL_nz00_21)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 201 */
{ /* ./Llib/pregexp.scm 204 */
bool_t BgL_negzf3zf3_667;
BgL_negzf3zf3_667 = ((bool_t)0); 
{ 
long BgL_iz00_668;obj_t BgL_rz00_669;
{ /* ./Llib/pregexp.scm 205 */
obj_t BgL_arg1589z00_671;
{ /* ./Llib/pregexp.scm 205 */
obj_t BgL_list1592z00_672;
{ /* ./Llib/pregexp.scm 205 */
obj_t BgL_auxz00_3742;
BgL_auxz00_3742 = 
BCHAR(((unsigned char)':')); 
BgL_list1592z00_672 = 
MAKE_PAIR(BgL_auxz00_3742, BNIL); } 
BgL_arg1589z00_671 = BgL_list1592z00_672; } 
BgL_iz00_668 = BgL_iz00_20; 
BgL_rz00_669 = BgL_arg1589z00_671; 
BgL_loopz00_670:
{ /* ./Llib/pregexp.scm 206 */
bool_t BgL_testz00_3745;
{ /* ./Llib/pregexp.scm 206 */
long BgL_auxz00_3746;
BgL_auxz00_3746 = 
(long)(BgL_nz00_21); 
BgL_testz00_3745 = 
(BgL_iz00_668>=BgL_auxz00_3746); } 
if(BgL_testz00_3745)
{ /* ./Llib/pregexp.scm 207 */
obj_t BgL_msgz00_1837;
BgL_msgz00_1837 = BGl_symbol4492z00zz__pregexpz00; 
FAILURE(BGl_string4474z00zz__pregexpz00,BgL_msgz00_1837,BUNSPEC);}  else 
{ /* ./Llib/pregexp.scm 208 */
unsigned char BgL_cz00_675;
{ /* ./Llib/pregexp.scm 208 */
int BgL_auxz00_3750;
BgL_auxz00_3750 = 
(int)(BgL_iz00_668); 
BgL_cz00_675 = 
STRING_REF(BgL_sz00_19, BgL_auxz00_3750); } 
if(
(BgL_cz00_675==((unsigned char)'^')))
{ /* ./Llib/pregexp.scm 209 */
BgL_negzf3zf3_667 = ((bool_t)1); 
{ 
long BgL_iz00_3755;
BgL_iz00_3755 = 
(BgL_iz00_668+((long)1)); 
BgL_iz00_668 = BgL_iz00_3755; 
goto BgL_loopz00_670;} }  else 
{ /* ./Llib/pregexp.scm 212 */
bool_t BgL_test1602z00_678;
{ /* ./Llib/pregexp.scm 212 */
bool_t BgL_res3679z00_1854;
BgL_res3679z00_1854 = 
isalpha(BgL_cz00_675); 
BgL_test1602z00_678 = BgL_res3679z00_1854; } 
if(BgL_test1602z00_678)
{ /* ./Llib/pregexp.scm 212 */
{ /* ./Llib/pregexp.scm 213 */
long BgL_arg1604z00_679;obj_t BgL_arg1605z00_680;
BgL_arg1604z00_679 = 
(BgL_iz00_668+((long)1)); 
{ /* ./Llib/pregexp.scm 213 */
obj_t BgL_auxz00_3760;
BgL_auxz00_3760 = 
BCHAR(BgL_cz00_675); 
BgL_arg1605z00_680 = 
MAKE_PAIR(BgL_auxz00_3760, BgL_rz00_669); } 
{ 
obj_t BgL_rz00_3764;long BgL_iz00_3763;
BgL_iz00_3763 = BgL_arg1604z00_679; 
BgL_rz00_3764 = BgL_arg1605z00_680; 
BgL_rz00_669 = BgL_rz00_3764; 
BgL_iz00_668 = BgL_iz00_3763; 
goto BgL_loopz00_670;} } }  else 
{ /* ./Llib/pregexp.scm 212 */
if(
(BgL_cz00_675==((unsigned char)':')))
{ /* ./Llib/pregexp.scm 214 */
{ /* ./Llib/pregexp.scm 215 */
bool_t BgL_test1610z00_682;
{ /* ./Llib/pregexp.scm 215 */
bool_t BgL_testz00_3767;
{ /* ./Llib/pregexp.scm 215 */
long BgL_auxz00_3770;long BgL_auxz00_3768;
BgL_auxz00_3770 = 
(long)(BgL_nz00_21); 
BgL_auxz00_3768 = 
(BgL_iz00_668+((long)1)); 
BgL_testz00_3767 = 
(BgL_auxz00_3768>=BgL_auxz00_3770); } 
if(BgL_testz00_3767)
{ /* ./Llib/pregexp.scm 215 */
BgL_test1610z00_682 = ((bool_t)1); }  else 
{ /* ./Llib/pregexp.scm 216 */
bool_t BgL_testz00_3773;
{ /* ./Llib/pregexp.scm 216 */
unsigned char BgL_auxz00_3774;
{ /* ./Llib/pregexp.scm 216 */
int BgL_auxz00_3775;
{ /* ./Llib/pregexp.scm 216 */
long BgL_auxz00_3776;
BgL_auxz00_3776 = 
(BgL_iz00_668+((long)1)); 
BgL_auxz00_3775 = 
(int)(BgL_auxz00_3776); } 
BgL_auxz00_3774 = 
STRING_REF(BgL_sz00_19, BgL_auxz00_3775); } 
BgL_testz00_3773 = 
(BgL_auxz00_3774==((unsigned char)']')); } 
if(BgL_testz00_3773)
{ /* ./Llib/pregexp.scm 216 */
BgL_test1610z00_682 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 216 */
BgL_test1610z00_682 = ((bool_t)1); } } } 
if(BgL_test1610z00_682)
{ /* ./Llib/pregexp.scm 217 */
obj_t BgL_list1612z00_683;
{ /* ./Llib/pregexp.scm 217 */
obj_t BgL_auxz00_3782;
BgL_auxz00_3782 = 
BCHAR(((unsigned char)':')); 
BgL_list1612z00_683 = 
MAKE_PAIR(BgL_auxz00_3782, BNIL); } 
{ /* ./Llib/pregexp.scm 217 */
obj_t BgL_msgz00_1869;
BgL_msgz00_1869 = BGl_symbol4492z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 217 */
obj_t BgL_arg1084z00_1872;
BgL_arg1084z00_1872 = 
CAR(BgL_list1612z00_683); 
FAILURE(BGl_string4474z00zz__pregexpz00,BgL_msgz00_1869,BgL_arg1084z00_1872);} } }  else 
{ /* ./Llib/pregexp.scm 218 */
obj_t BgL_posixzd2classzd2_684;
{ /* ./Llib/pregexp.scm 220 */
obj_t BgL_arg1632z00_692;
BgL_arg1632z00_692 = 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_rz00_669)); 
{ /* ./Llib/pregexp.scm 219 */
char * BgL_auxz00_3789;
BgL_auxz00_3789 = 
BSTRING_TO_STRING(BgL_arg1632z00_692); 
BgL_posixzd2classzd2_684 = 
string_to_keyword(BgL_auxz00_3789); } } 
{ /* ./Llib/pregexp.scm 221 */
obj_t BgL_arg1615z00_685;long BgL_arg1616z00_686;
if(BgL_negzf3zf3_667)
{ /* ./Llib/pregexp.scm 221 */
obj_t BgL_list1624z00_689;
{ /* ./Llib/pregexp.scm 221 */
obj_t BgL_arg1626z00_690;obj_t BgL_arg1627z00_691;
BgL_arg1626z00_690 = BGl_keyword4481z00zz__pregexpz00; 
BgL_arg1627z00_691 = 
MAKE_PAIR(BgL_posixzd2classzd2_684, BNIL); 
BgL_list1624z00_689 = 
MAKE_PAIR(BgL_arg1626z00_690, BgL_arg1627z00_691); } 
BgL_arg1615z00_685 = BgL_list1624z00_689; }  else 
{ /* ./Llib/pregexp.scm 221 */
BgL_arg1615z00_685 = BgL_posixzd2classzd2_684; } 
BgL_arg1616z00_686 = 
(BgL_iz00_668+((long)2)); 
{ /* ./Llib/pregexp.scm 221 */
obj_t BgL_list1618z00_687;
{ /* ./Llib/pregexp.scm 221 */
obj_t BgL_arg1620z00_688;
{ /* ./Llib/pregexp.scm 221 */
obj_t BgL_auxz00_3796;
BgL_auxz00_3796 = 
BINT(BgL_arg1616z00_686); 
BgL_arg1620z00_688 = 
MAKE_PAIR(BgL_auxz00_3796, BNIL); } 
BgL_list1618z00_687 = 
MAKE_PAIR(BgL_arg1615z00_685, BgL_arg1620z00_688); } 
return BgL_list1618z00_687;} } } } }  else 
{ /* ./Llib/pregexp.scm 214 */
{ /* ./Llib/pregexp.scm 225 */
obj_t BgL_msgz00_1886;
BgL_msgz00_1886 = BGl_symbol4492z00zz__pregexpz00; 
FAILURE(BGl_string4474z00zz__pregexpz00,BgL_msgz00_1886,BUNSPEC);} } } } } } } } } } 
}



/* pregexp-read-cluster-type */
obj_t BGl_pregexpzd2readzd2clusterzd2typezd2zz__pregexpz00(obj_t BgL_sz00_22, long BgL_iz00_23, int BgL_nz00_24)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 227 */
{ /* ./Llib/pregexp.scm 230 */
unsigned char BgL_cz00_700;
{ /* ./Llib/pregexp.scm 230 */
int BgL_auxz00_3801;
BgL_auxz00_3801 = 
(int)(BgL_iz00_23); 
BgL_cz00_700 = 
STRING_REF(BgL_sz00_22, BgL_auxz00_3801); } 
{ 

switch( BgL_cz00_700) { case ((unsigned char)'?') : 

{ /* ./Llib/pregexp.scm 233 */
long BgL_iz00_704;
BgL_iz00_704 = 
(BgL_iz00_23+((long)1)); 
{ 

{ /* ./Llib/pregexp.scm 234 */
unsigned char BgL_aux1021z00_706;
{ /* ./Llib/pregexp.scm 234 */
int BgL_auxz00_3805;
BgL_auxz00_3805 = 
(int)(BgL_iz00_704); 
BgL_aux1021z00_706 = 
STRING_REF(BgL_sz00_22, BgL_auxz00_3805); } 
switch( BgL_aux1021z00_706) { case ((unsigned char)':') : 

{ /* ./Llib/pregexp.scm 235 */
long BgL_arg1662z00_709;
BgL_arg1662z00_709 = 
(BgL_iz00_704+((long)1)); 
{ /* ./Llib/pregexp.scm 235 */
obj_t BgL_list1664z00_710;
{ /* ./Llib/pregexp.scm 235 */
obj_t BgL_arg1666z00_711;
{ /* ./Llib/pregexp.scm 235 */
obj_t BgL_auxz00_3809;
BgL_auxz00_3809 = 
BINT(BgL_arg1662z00_709); 
BgL_arg1666z00_711 = 
MAKE_PAIR(BgL_auxz00_3809, BNIL); } 
BgL_list1664z00_710 = 
MAKE_PAIR(BNIL, BgL_arg1666z00_711); } 
return BgL_list1664z00_710;} } break;case ((unsigned char)'=') : 

{ /* ./Llib/pregexp.scm 236 */
obj_t BgL_arg1671z00_712;long BgL_arg1672z00_713;
BgL_arg1671z00_712 = BGl_list4498z00zz__pregexpz00; 
BgL_arg1672z00_713 = 
(BgL_iz00_704+((long)1)); 
{ /* ./Llib/pregexp.scm 236 */
obj_t BgL_list1674z00_714;
{ /* ./Llib/pregexp.scm 236 */
obj_t BgL_arg1676z00_715;
{ /* ./Llib/pregexp.scm 236 */
obj_t BgL_auxz00_3814;
BgL_auxz00_3814 = 
BINT(BgL_arg1672z00_713); 
BgL_arg1676z00_715 = 
MAKE_PAIR(BgL_auxz00_3814, BNIL); } 
BgL_list1674z00_714 = 
MAKE_PAIR(BgL_arg1671z00_712, BgL_arg1676z00_715); } 
return BgL_list1674z00_714;} } break;case ((unsigned char)'!') : 

{ /* ./Llib/pregexp.scm 237 */
obj_t BgL_arg1681z00_716;long BgL_arg1682z00_717;
BgL_arg1681z00_716 = BGl_list4500z00zz__pregexpz00; 
BgL_arg1682z00_717 = 
(BgL_iz00_704+((long)1)); 
{ /* ./Llib/pregexp.scm 237 */
obj_t BgL_list1684z00_718;
{ /* ./Llib/pregexp.scm 237 */
obj_t BgL_arg1686z00_719;
{ /* ./Llib/pregexp.scm 237 */
obj_t BgL_auxz00_3819;
BgL_auxz00_3819 = 
BINT(BgL_arg1682z00_717); 
BgL_arg1686z00_719 = 
MAKE_PAIR(BgL_auxz00_3819, BNIL); } 
BgL_list1684z00_718 = 
MAKE_PAIR(BgL_arg1681z00_716, BgL_arg1686z00_719); } 
return BgL_list1684z00_718;} } break;case ((unsigned char)'>') : 

{ /* ./Llib/pregexp.scm 238 */
obj_t BgL_arg1691z00_720;long BgL_arg1692z00_721;
BgL_arg1691z00_720 = BGl_list4502z00zz__pregexpz00; 
BgL_arg1692z00_721 = 
(BgL_iz00_704+((long)1)); 
{ /* ./Llib/pregexp.scm 238 */
obj_t BgL_list1694z00_722;
{ /* ./Llib/pregexp.scm 238 */
obj_t BgL_arg1696z00_723;
{ /* ./Llib/pregexp.scm 238 */
obj_t BgL_auxz00_3824;
BgL_auxz00_3824 = 
BINT(BgL_arg1692z00_721); 
BgL_arg1696z00_723 = 
MAKE_PAIR(BgL_auxz00_3824, BNIL); } 
BgL_list1694z00_722 = 
MAKE_PAIR(BgL_arg1691z00_720, BgL_arg1696z00_723); } 
return BgL_list1694z00_722;} } break;case ((unsigned char)'<') : 

{ /* ./Llib/pregexp.scm 240 */
obj_t BgL_arg1701z00_724;long BgL_arg1702z00_725;
{ /* ./Llib/pregexp.scm 240 */
unsigned char BgL_aux1023z00_729;
{ /* ./Llib/pregexp.scm 240 */
int BgL_auxz00_3828;
{ /* ./Llib/pregexp.scm 240 */
long BgL_auxz00_3829;
BgL_auxz00_3829 = 
(BgL_iz00_704+((long)1)); 
BgL_auxz00_3828 = 
(int)(BgL_auxz00_3829); } 
BgL_aux1023z00_729 = 
STRING_REF(BgL_sz00_22, BgL_auxz00_3828); } 
switch( BgL_aux1023z00_729) { case ((unsigned char)'=') : 

BgL_arg1701z00_724 = BGl_list4504z00zz__pregexpz00; break;case ((unsigned char)'!') : 

BgL_arg1701z00_724 = BGl_list4506z00zz__pregexpz00; break;
default: 
{ /* ./Llib/pregexp.scm 240 */
obj_t BgL_list1718z00_1922;
{ /* ./Llib/pregexp.scm 240 */
obj_t BgL_auxz00_3833;
BgL_auxz00_3833 = 
BCHAR(((unsigned char)'<')); 
BgL_list1718z00_1922 = 
MAKE_PAIR(BgL_auxz00_3833, BNIL); } 
BgL_arg1701z00_724 = 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol4497z00zz__pregexpz00, BgL_list1718z00_1922); } } } 
BgL_arg1702z00_725 = 
(BgL_iz00_704+((long)2)); 
{ /* ./Llib/pregexp.scm 240 */
obj_t BgL_list1704z00_726;
{ /* ./Llib/pregexp.scm 240 */
obj_t BgL_arg1706z00_727;
{ /* ./Llib/pregexp.scm 240 */
obj_t BgL_auxz00_3839;
BgL_auxz00_3839 = 
BINT(BgL_arg1702z00_725); 
BgL_arg1706z00_727 = 
MAKE_PAIR(BgL_auxz00_3839, BNIL); } 
BgL_list1704z00_726 = 
MAKE_PAIR(BgL_arg1701z00_724, BgL_arg1706z00_727); } 
return BgL_list1704z00_726;} } break;
default: 
{ 
long BgL_iz00_733;obj_t BgL_rz00_734;bool_t BgL_invzf3zf3_735;
BgL_iz00_733 = BgL_iz00_704; 
BgL_rz00_734 = BNIL; 
BgL_invzf3zf3_735 = ((bool_t)0); 
BgL_loopz00_736:
{ /* ./Llib/pregexp.scm 246 */
unsigned char BgL_cz00_737;
{ /* ./Llib/pregexp.scm 246 */
int BgL_auxz00_3843;
BgL_auxz00_3843 = 
(int)(BgL_iz00_733); 
BgL_cz00_737 = 
STRING_REF(BgL_sz00_22, BgL_auxz00_3843); } 
switch( BgL_cz00_737) { case ((unsigned char)'-') : 

{ 
bool_t BgL_invzf3zf3_3848;long BgL_iz00_3846;
BgL_iz00_3846 = 
(BgL_iz00_733+((long)1)); 
BgL_invzf3zf3_3848 = ((bool_t)1); 
BgL_invzf3zf3_735 = BgL_invzf3zf3_3848; 
BgL_iz00_733 = BgL_iz00_3846; 
goto BgL_loopz00_736;} break;case ((unsigned char)'i') : 

{ /* ./Llib/pregexp.scm 249 */
long BgL_arg1732z00_742;obj_t BgL_arg1733z00_743;
BgL_arg1732z00_742 = 
(BgL_iz00_733+((long)1)); 
{ /* ./Llib/pregexp.scm 250 */
obj_t BgL_arg1737z00_744;
if(BgL_invzf3zf3_735)
{ /* ./Llib/pregexp.scm 250 */
BgL_arg1737z00_744 = BGl_keyword4495z00zz__pregexpz00; }  else 
{ /* ./Llib/pregexp.scm 250 */
BgL_arg1737z00_744 = BGl_keyword4496z00zz__pregexpz00; } 
BgL_arg1733z00_743 = 
MAKE_PAIR(BgL_arg1737z00_744, BgL_rz00_734); } 
{ 
bool_t BgL_invzf3zf3_3854;obj_t BgL_rz00_3853;long BgL_iz00_3852;
BgL_iz00_3852 = BgL_arg1732z00_742; 
BgL_rz00_3853 = BgL_arg1733z00_743; 
BgL_invzf3zf3_3854 = ((bool_t)0); 
BgL_invzf3zf3_735 = BgL_invzf3zf3_3854; 
BgL_rz00_734 = BgL_rz00_3853; 
BgL_iz00_733 = BgL_iz00_3852; 
goto BgL_loopz00_736;} } break;case ((unsigned char)'x') : 

BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00 = BgL_invzf3zf3_735; 
{ 
bool_t BgL_invzf3zf3_3857;long BgL_iz00_3855;
BgL_iz00_3855 = 
(BgL_iz00_733+((long)1)); 
BgL_invzf3zf3_3857 = ((bool_t)0); 
BgL_invzf3zf3_735 = BgL_invzf3zf3_3857; 
BgL_iz00_733 = BgL_iz00_3855; 
goto BgL_loopz00_736;} break;case ((unsigned char)':') : 

{ /* ./Llib/pregexp.scm 255 */
long BgL_arg1744z00_746;
BgL_arg1744z00_746 = 
(BgL_iz00_733+((long)1)); 
{ /* ./Llib/pregexp.scm 255 */
obj_t BgL_list1746z00_747;
{ /* ./Llib/pregexp.scm 255 */
obj_t BgL_arg1748z00_748;
{ /* ./Llib/pregexp.scm 255 */
obj_t BgL_auxz00_3859;
BgL_auxz00_3859 = 
BINT(BgL_arg1744z00_746); 
BgL_arg1748z00_748 = 
MAKE_PAIR(BgL_auxz00_3859, BNIL); } 
BgL_list1746z00_747 = 
MAKE_PAIR(BgL_rz00_734, BgL_arg1748z00_748); } 
return BgL_list1746z00_747;} } break;
default: 
{ /* ./Llib/pregexp.scm 247 */
obj_t BgL_list1756z00_1951;
{ /* ./Llib/pregexp.scm 247 */
obj_t BgL_auxz00_3863;
BgL_auxz00_3863 = 
BCHAR(BgL_cz00_737); 
BgL_list1756z00_1951 = 
MAKE_PAIR(BgL_auxz00_3863, BNIL); } 
return 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol4497z00zz__pregexpz00, BgL_list1756z00_1951);} } } } } } } } break;
default: 
{ /* ./Llib/pregexp.scm 257 */
obj_t BgL_list1764z00_750;
{ /* ./Llib/pregexp.scm 257 */
obj_t BgL_arg1766z00_751;obj_t BgL_arg1767z00_752;
BgL_arg1766z00_751 = BGl_list4493z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 257 */
obj_t BgL_auxz00_3869;
BgL_auxz00_3869 = 
BINT(BgL_iz00_23); 
BgL_arg1767z00_752 = 
MAKE_PAIR(BgL_auxz00_3869, BNIL); } 
BgL_list1764z00_750 = 
MAKE_PAIR(BgL_arg1766z00_751, BgL_arg1767z00_752); } 
return BgL_list1764z00_750;} } } } } 
}



/* pregexp-read-subpattern */
obj_t BGl_pregexpzd2readzd2subpatternz00zz__pregexpz00(obj_t BgL_sz00_25, long BgL_iz00_26, int BgL_nz00_27)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 259 */
{ /* ./Llib/pregexp.scm 261 */
bool_t BgL_rememberzd2spacezd2sensitivezf3zf3_753;
BgL_rememberzd2spacezd2sensitivezf3zf3_753 = BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 261 */
obj_t BgL_ctypzd2izd2_754;
BgL_ctypzd2izd2_754 = 
BGl_pregexpzd2readzd2clusterzd2typezd2zz__pregexpz00(BgL_sz00_25, BgL_iz00_26, BgL_nz00_27); 
{ /* ./Llib/pregexp.scm 262 */
obj_t BgL_ctypz00_755;
BgL_ctypz00_755 = 
CAR(BgL_ctypzd2izd2_754); 
{ /* ./Llib/pregexp.scm 263 */
obj_t BgL_iz00_756;
{ /* ./Llib/pregexp.scm 264 */
obj_t BgL_auxz00_3876;
BgL_auxz00_3876 = 
CDR(BgL_ctypzd2izd2_754); 
BgL_iz00_756 = 
CAR(BgL_auxz00_3876); } 
{ /* ./Llib/pregexp.scm 264 */
obj_t BgL_vvz00_757;
BgL_vvz00_757 = 
BGl_pregexpzd2readzd2patternz00zz__pregexpz00(BgL_sz00_25, BgL_iz00_756, BgL_nz00_27); 
{ /* ./Llib/pregexp.scm 265 */

BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00 = BgL_rememberzd2spacezd2sensitivezf3zf3_753; 
{ /* ./Llib/pregexp.scm 267 */
obj_t BgL_vvzd2rezd2_758;obj_t BgL_vvzd2izd2_759;
BgL_vvzd2rezd2_758 = 
CAR(BgL_vvz00_757); 
{ /* ./Llib/pregexp.scm 268 */
obj_t BgL_auxz00_3881;
BgL_auxz00_3881 = 
CDR(BgL_vvz00_757); 
BgL_vvzd2izd2_759 = 
CAR(BgL_auxz00_3881); } 
{ /* ./Llib/pregexp.scm 269 */
bool_t BgL_test1771z00_760;
{ /* ./Llib/pregexp.scm 269 */
bool_t BgL_testz00_3884;
{ /* ./Llib/pregexp.scm 269 */
long BgL_auxz00_3887;long BgL_auxz00_3885;
BgL_auxz00_3887 = 
(long)(BgL_nz00_27); 
BgL_auxz00_3885 = 
(long)CINT(BgL_vvzd2izd2_759); 
BgL_testz00_3884 = 
(BgL_auxz00_3885<BgL_auxz00_3887); } 
if(BgL_testz00_3884)
{ /* ./Llib/pregexp.scm 270 */
unsigned char BgL_auxz00_3890;
{ /* ./Llib/pregexp.scm 270 */
int BgL_auxz00_3891;
BgL_auxz00_3891 = 
CINT(BgL_vvzd2izd2_759); 
BgL_auxz00_3890 = 
STRING_REF(BgL_sz00_25, BgL_auxz00_3891); } 
BgL_test1771z00_760 = 
(BgL_auxz00_3890==((unsigned char)')')); }  else 
{ /* ./Llib/pregexp.scm 269 */
BgL_test1771z00_760 = ((bool_t)0); } } 
if(BgL_test1771z00_760)
{ /* ./Llib/pregexp.scm 273 */
obj_t BgL_arg1773z00_761;long BgL_arg1775z00_762;
{ 
obj_t BgL_ctypz00_1983;obj_t BgL_rez00_1984;
BgL_ctypz00_1983 = BgL_ctypz00_755; 
BgL_rez00_1984 = BgL_vvzd2rezd2_758; 
BgL_loopz00_1982:
if(
NULLP(BgL_ctypz00_1983))
{ /* ./Llib/pregexp.scm 273 */
BgL_arg1773z00_761 = BgL_rez00_1984; }  else 
{ /* ./Llib/pregexp.scm 273 */
obj_t BgL_arg1785z00_1992;obj_t BgL_arg1786z00_1993;
BgL_arg1785z00_1992 = 
CDR(BgL_ctypz00_1983); 
{ /* ./Llib/pregexp.scm 273 */
obj_t BgL_arg1790z00_1994;
BgL_arg1790z00_1994 = 
CAR(BgL_ctypz00_1983); 
{ /* ./Llib/pregexp.scm 273 */
obj_t BgL_list1792z00_1995;
{ /* ./Llib/pregexp.scm 273 */
obj_t BgL_arg1794z00_1996;
BgL_arg1794z00_1996 = 
MAKE_PAIR(BgL_rez00_1984, BNIL); 
BgL_list1792z00_1995 = 
MAKE_PAIR(BgL_arg1790z00_1994, BgL_arg1794z00_1996); } 
BgL_arg1786z00_1993 = BgL_list1792z00_1995; } } 
{ 
obj_t BgL_rez00_3903;obj_t BgL_ctypz00_3902;
BgL_ctypz00_3902 = BgL_arg1785z00_1992; 
BgL_rez00_3903 = BgL_arg1786z00_1993; 
BgL_rez00_1984 = BgL_rez00_3903; 
BgL_ctypz00_1983 = BgL_ctypz00_3902; 
goto BgL_loopz00_1982;} } } 
{ /* ./Llib/pregexp.scm 277 */
long BgL_auxz00_3904;
BgL_auxz00_3904 = 
(long)CINT(BgL_vvzd2izd2_759); 
BgL_arg1775z00_762 = 
(BgL_auxz00_3904+((long)1)); } 
{ /* ./Llib/pregexp.scm 272 */
obj_t BgL_list1777z00_763;
{ /* ./Llib/pregexp.scm 272 */
obj_t BgL_arg1779z00_764;
{ /* ./Llib/pregexp.scm 272 */
obj_t BgL_auxz00_3907;
BgL_auxz00_3907 = 
BINT(BgL_arg1775z00_762); 
BgL_arg1779z00_764 = 
MAKE_PAIR(BgL_auxz00_3907, BNIL); } 
BgL_list1777z00_763 = 
MAKE_PAIR(BgL_arg1773z00_761, BgL_arg1779z00_764); } 
return BgL_list1777z00_763;} }  else 
{ /* ./Llib/pregexp.scm 278 */
obj_t BgL_msgz00_2030;
BgL_msgz00_2030 = BGl_symbol4508z00zz__pregexpz00; 
FAILURE(BGl_string4474z00zz__pregexpz00,BgL_msgz00_2030,BUNSPEC);} } } } } } } } } } 
}



/* pregexp-wrap-quantifier-if-any */
obj_t BGl_pregexpzd2wrapzd2quantifierzd2ifzd2anyz00zz__pregexpz00(obj_t BgL_vvz00_28, obj_t BgL_sz00_29, int BgL_nz00_30)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 280 */
{ /* ./Llib/pregexp.scm 282 */
obj_t BgL_rez00_777;
BgL_rez00_777 = 
CAR(BgL_vvz00_28); 
{ 
obj_t BgL_iz00_778;
{ /* ./Llib/pregexp.scm 283 */
obj_t BgL_auxz00_4059;
BgL_auxz00_4059 = 
CDR(BgL_vvz00_28); 
BgL_iz00_778 = 
CAR(BgL_auxz00_4059); } 
BgL_loopz00_779:
{ /* ./Llib/pregexp.scm 284 */
bool_t BgL_testz00_3913;
{ /* ./Llib/pregexp.scm 284 */
long BgL_auxz00_3916;long BgL_auxz00_3914;
BgL_auxz00_3916 = 
(long)(BgL_nz00_30); 
BgL_auxz00_3914 = 
(long)CINT(BgL_iz00_778); 
BgL_testz00_3913 = 
(BgL_auxz00_3914>=BgL_auxz00_3916); } 
if(BgL_testz00_3913)
{ /* ./Llib/pregexp.scm 284 */
return BgL_vvz00_28;}  else 
{ /* ./Llib/pregexp.scm 285 */
unsigned char BgL_cz00_782;
{ /* ./Llib/pregexp.scm 285 */
int BgL_auxz00_3919;
BgL_auxz00_3919 = 
CINT(BgL_iz00_778); 
BgL_cz00_782 = 
STRING_REF(BgL_sz00_29, BgL_auxz00_3919); } 
{ /* ./Llib/pregexp.scm 286 */
bool_t BgL_test1819z00_783;
{ /* ./Llib/pregexp.scm 286 */
bool_t BgL_test1955z00_837;
{ /* ./Llib/pregexp.scm 286 */
bool_t BgL_res3693z00_2050;
BgL_res3693z00_2050 = 
isspace(BgL_cz00_782); 
BgL_test1955z00_837 = BgL_res3693z00_2050; } 
if(BgL_test1955z00_837)
{ /* ./Llib/pregexp.scm 286 */
if(BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00)
{ /* ./Llib/pregexp.scm 286 */
BgL_test1819z00_783 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 286 */
BgL_test1819z00_783 = ((bool_t)1); } }  else 
{ /* ./Llib/pregexp.scm 286 */
BgL_test1819z00_783 = ((bool_t)0); } } 
if(BgL_test1819z00_783)
{ /* ./Llib/pregexp.scm 287 */
long BgL_arg1821z00_784;
{ /* ./Llib/pregexp.scm 287 */
long BgL_auxz00_3926;
BgL_auxz00_3926 = 
(long)CINT(BgL_iz00_778); 
BgL_arg1821z00_784 = 
(BgL_auxz00_3926+((long)1)); } 
{ 
obj_t BgL_iz00_3929;
BgL_iz00_3929 = 
BINT(BgL_arg1821z00_784); 
BgL_iz00_778 = BgL_iz00_3929; 
goto BgL_loopz00_779;} }  else 
{ /* ./Llib/pregexp.scm 286 */
switch( BgL_cz00_782) { case ((unsigned char)'*') : 
case ((unsigned char)'+') : 
case ((unsigned char)'?') : 
case ((unsigned char)'{') : 

{ /* ./Llib/pregexp.scm 290 */
obj_t BgL_newzd2rezd2_788;
{ /* ./Llib/pregexp.scm 290 */
obj_t BgL_list1932z00_828;
{ /* ./Llib/pregexp.scm 290 */
obj_t BgL_arg1934z00_829;obj_t BgL_arg1935z00_830;
BgL_arg1934z00_829 = BGl_keyword4509z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 290 */
obj_t BgL_arg1938z00_831;obj_t BgL_arg1939z00_832;
BgL_arg1938z00_831 = BGl_symbol4510z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 291 */
obj_t BgL_arg1943z00_833;obj_t BgL_arg1945z00_834;
BgL_arg1943z00_833 = BGl_symbol4511z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 291 */
obj_t BgL_arg1948z00_835;obj_t BgL_arg1949z00_836;
BgL_arg1948z00_835 = BGl_symbol4512z00zz__pregexpz00; 
BgL_arg1949z00_836 = 
MAKE_PAIR(BgL_rez00_777, BNIL); 
BgL_arg1945z00_834 = 
MAKE_PAIR(BgL_arg1948z00_835, BgL_arg1949z00_836); } 
BgL_arg1939z00_832 = 
MAKE_PAIR(BgL_arg1943z00_833, BgL_arg1945z00_834); } 
BgL_arg1935z00_830 = 
MAKE_PAIR(BgL_arg1938z00_831, BgL_arg1939z00_832); } 
BgL_list1932z00_828 = 
MAKE_PAIR(BgL_arg1934z00_829, BgL_arg1935z00_830); } 
BgL_newzd2rezd2_788 = BgL_list1932z00_828; } 
{ /* ./Llib/pregexp.scm 290 */
obj_t BgL_newzd2vvzd2_789;
{ /* ./Llib/pregexp.scm 292 */
obj_t BgL_list1924z00_826;
{ /* ./Llib/pregexp.scm 292 */
obj_t BgL_arg1928z00_827;
BgL_arg1928z00_827 = 
MAKE_PAIR(BGl_symbol4513z00zz__pregexpz00, BNIL); 
BgL_list1924z00_826 = 
MAKE_PAIR(BgL_newzd2rezd2_788, BgL_arg1928z00_827); } 
BgL_newzd2vvzd2_789 = BgL_list1924z00_826; } 
{ /* ./Llib/pregexp.scm 292 */

switch( BgL_cz00_782) { case ((unsigned char)'*') : 

{ /* ./Llib/pregexp.scm 294 */
obj_t BgL_auxz00_3942;obj_t BgL_auxz00_3938;
BgL_auxz00_3942 = 
BINT(((long)0)); 
{ /* ./Llib/pregexp.scm 294 */
obj_t BgL_auxz00_3939;
BgL_auxz00_3939 = 
CDR(BgL_newzd2rezd2_788); 
BgL_auxz00_3938 = 
CDR(BgL_auxz00_3939); } 
SET_CAR(BgL_auxz00_3938, BgL_auxz00_3942); } 
{ /* ./Llib/pregexp.scm 295 */
obj_t BgL_auxz00_3945;
{ /* ./Llib/pregexp.scm 295 */
obj_t BgL_auxz00_3946;
{ /* ./Llib/pregexp.scm 295 */
obj_t BgL_auxz00_3947;
BgL_auxz00_3947 = 
CDR(BgL_newzd2rezd2_788); 
BgL_auxz00_3946 = 
CDR(BgL_auxz00_3947); } 
BgL_auxz00_3945 = 
CDR(BgL_auxz00_3946); } 
SET_CAR(BgL_auxz00_3945, BFALSE); } break;case ((unsigned char)'+') : 

{ /* ./Llib/pregexp.scm 296 */
obj_t BgL_auxz00_3956;obj_t BgL_auxz00_3952;
BgL_auxz00_3956 = 
BINT(((long)1)); 
{ /* ./Llib/pregexp.scm 296 */
obj_t BgL_auxz00_3953;
BgL_auxz00_3953 = 
CDR(BgL_newzd2rezd2_788); 
BgL_auxz00_3952 = 
CDR(BgL_auxz00_3953); } 
SET_CAR(BgL_auxz00_3952, BgL_auxz00_3956); } 
{ /* ./Llib/pregexp.scm 297 */
obj_t BgL_auxz00_3959;
{ /* ./Llib/pregexp.scm 297 */
obj_t BgL_auxz00_3960;
{ /* ./Llib/pregexp.scm 297 */
obj_t BgL_auxz00_3961;
BgL_auxz00_3961 = 
CDR(BgL_newzd2rezd2_788); 
BgL_auxz00_3960 = 
CDR(BgL_auxz00_3961); } 
BgL_auxz00_3959 = 
CDR(BgL_auxz00_3960); } 
SET_CAR(BgL_auxz00_3959, BFALSE); } break;case ((unsigned char)'?') : 

{ /* ./Llib/pregexp.scm 298 */
obj_t BgL_auxz00_3970;obj_t BgL_auxz00_3966;
BgL_auxz00_3970 = 
BINT(((long)0)); 
{ /* ./Llib/pregexp.scm 298 */
obj_t BgL_auxz00_3967;
BgL_auxz00_3967 = 
CDR(BgL_newzd2rezd2_788); 
BgL_auxz00_3966 = 
CDR(BgL_auxz00_3967); } 
SET_CAR(BgL_auxz00_3966, BgL_auxz00_3970); } 
{ /* ./Llib/pregexp.scm 299 */
obj_t BgL_auxz00_3979;obj_t BgL_auxz00_3973;
BgL_auxz00_3979 = 
BINT(((long)1)); 
{ /* ./Llib/pregexp.scm 299 */
obj_t BgL_auxz00_3974;
{ /* ./Llib/pregexp.scm 299 */
obj_t BgL_auxz00_3975;
BgL_auxz00_3975 = 
CDR(BgL_newzd2rezd2_788); 
BgL_auxz00_3974 = 
CDR(BgL_auxz00_3975); } 
BgL_auxz00_3973 = 
CDR(BgL_auxz00_3974); } 
SET_CAR(BgL_auxz00_3973, BgL_auxz00_3979); } break;case ((unsigned char)'{') : 

{ /* ./Llib/pregexp.scm 300 */
obj_t BgL_pqz00_803;
{ /* ./Llib/pregexp.scm 300 */
long BgL_auxz00_3982;
{ /* ./Llib/pregexp.scm 300 */
long BgL_auxz00_3983;
BgL_auxz00_3983 = 
(long)CINT(BgL_iz00_778); 
BgL_auxz00_3982 = 
(BgL_auxz00_3983+((long)1)); } 
BgL_pqz00_803 = 
BGl_pregexpzd2readzd2numsz00zz__pregexpz00(BgL_sz00_29, BgL_auxz00_3982, BgL_nz00_30); } 
if(
CBOOL(BgL_pqz00_803))
{ /* ./Llib/pregexp.scm 301 */((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 302 */
obj_t BgL_list1856z00_804;
BgL_list1856z00_804 = 
MAKE_PAIR(BGl_string4514z00zz__pregexpz00, BNIL); 
{ /* ./Llib/pregexp.scm 302 */
obj_t BgL_msgz00_2101;
BgL_msgz00_2101 = BGl_symbol4515z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 302 */
obj_t BgL_arg1084z00_2104;
BgL_arg1084z00_2104 = 
CAR(BgL_list1856z00_804); 
FAILURE(BGl_string4474z00zz__pregexpz00,BgL_msgz00_2101,BgL_arg1084z00_2104);} } } 
{ /* ./Llib/pregexp.scm 305 */
obj_t BgL_auxz00_3996;obj_t BgL_auxz00_3992;
BgL_auxz00_3996 = 
CAR(BgL_pqz00_803); 
{ /* ./Llib/pregexp.scm 305 */
obj_t BgL_auxz00_3993;
BgL_auxz00_3993 = 
CDR(BgL_newzd2rezd2_788); 
BgL_auxz00_3992 = 
CDR(BgL_auxz00_3993); } 
SET_CAR(BgL_auxz00_3992, BgL_auxz00_3996); } 
{ /* ./Llib/pregexp.scm 306 */
obj_t BgL_auxz00_4005;obj_t BgL_auxz00_3999;
{ /* ./Llib/pregexp.scm 306 */
obj_t BgL_auxz00_4006;
BgL_auxz00_4006 = 
CDR(BgL_pqz00_803); 
BgL_auxz00_4005 = 
CAR(BgL_auxz00_4006); } 
{ /* ./Llib/pregexp.scm 306 */
obj_t BgL_auxz00_4000;
{ /* ./Llib/pregexp.scm 306 */
obj_t BgL_auxz00_4001;
BgL_auxz00_4001 = 
CDR(BgL_newzd2rezd2_788); 
BgL_auxz00_4000 = 
CDR(BgL_auxz00_4001); } 
BgL_auxz00_3999 = 
CDR(BgL_auxz00_4000); } 
SET_CAR(BgL_auxz00_3999, BgL_auxz00_4005); } 
{ /* ./Llib/pregexp.scm 307 */
obj_t BgL_auxz00_4010;
{ /* ./Llib/pregexp.scm 307 */
obj_t BgL_auxz00_4011;
BgL_auxz00_4011 = 
CDR(BgL_pqz00_803); 
BgL_auxz00_4010 = 
CDR(BgL_auxz00_4011); } 
BgL_iz00_778 = 
CAR(BgL_auxz00_4010); } } break;
default: BUNSPEC; } 
{ 
long BgL_iz00_810;
{ /* ./Llib/pregexp.scm 308 */
long BgL_auxz00_4055;
BgL_auxz00_4055 = 
(long)CINT(BgL_iz00_778); 
BgL_iz00_810 = 
(BgL_auxz00_4055+((long)1)); } 
BgL_loopz00_811:
{ /* ./Llib/pregexp.scm 309 */
bool_t BgL_testz00_4016;
{ /* ./Llib/pregexp.scm 309 */
long BgL_auxz00_4017;
BgL_auxz00_4017 = 
(long)(BgL_nz00_30); 
BgL_testz00_4016 = 
(BgL_iz00_810>=BgL_auxz00_4017); } 
if(BgL_testz00_4016)
{ /* ./Llib/pregexp.scm 309 */
{ /* ./Llib/pregexp.scm 310 */
obj_t BgL_auxz00_4020;
BgL_auxz00_4020 = 
CDR(BgL_newzd2rezd2_788); 
SET_CAR(BgL_auxz00_4020, BFALSE); } 
{ /* ./Llib/pregexp.scm 311 */
obj_t BgL_auxz00_4025;obj_t BgL_auxz00_4023;
BgL_auxz00_4025 = 
BINT(BgL_iz00_810); 
BgL_auxz00_4023 = 
CDR(BgL_newzd2vvzd2_789); 
SET_CAR(BgL_auxz00_4023, BgL_auxz00_4025); } }  else 
{ /* ./Llib/pregexp.scm 312 */
unsigned char BgL_cz00_816;
{ /* ./Llib/pregexp.scm 312 */
int BgL_auxz00_4028;
BgL_auxz00_4028 = 
(int)(BgL_iz00_810); 
BgL_cz00_816 = 
STRING_REF(BgL_sz00_29, BgL_auxz00_4028); } 
{ /* ./Llib/pregexp.scm 313 */
bool_t BgL_test1891z00_817;
{ /* ./Llib/pregexp.scm 313 */
bool_t BgL_test1919z00_825;
{ /* ./Llib/pregexp.scm 313 */
bool_t BgL_res3696z00_2149;
BgL_res3696z00_2149 = 
isspace(BgL_cz00_816); 
BgL_test1919z00_825 = BgL_res3696z00_2149; } 
if(BgL_test1919z00_825)
{ /* ./Llib/pregexp.scm 313 */
if(BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00)
{ /* ./Llib/pregexp.scm 314 */
BgL_test1891z00_817 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 314 */
BgL_test1891z00_817 = ((bool_t)1); } }  else 
{ /* ./Llib/pregexp.scm 313 */
BgL_test1891z00_817 = ((bool_t)0); } } 
if(BgL_test1891z00_817)
{ /* ./Llib/pregexp.scm 313 */
{ 
long BgL_iz00_4035;
BgL_iz00_4035 = 
(BgL_iz00_810+((long)1)); 
BgL_iz00_810 = BgL_iz00_4035; 
goto BgL_loopz00_811;} }  else 
{ /* ./Llib/pregexp.scm 313 */
if(
(BgL_cz00_816==((unsigned char)'?')))
{ /* ./Llib/pregexp.scm 316 */
{ /* ./Llib/pregexp.scm 317 */
obj_t BgL_auxz00_4039;
BgL_auxz00_4039 = 
CDR(BgL_newzd2rezd2_788); 
SET_CAR(BgL_auxz00_4039, BTRUE); } 
{ /* ./Llib/pregexp.scm 318 */
obj_t BgL_arg1902z00_821;long BgL_arg1904z00_822;
BgL_arg1902z00_821 = 
CDR(BgL_newzd2vvzd2_789); 
BgL_arg1904z00_822 = 
(BgL_iz00_810+((long)1)); 
{ /* ./Llib/pregexp.scm 318 */
obj_t BgL_auxz00_4044;
BgL_auxz00_4044 = 
BINT(BgL_arg1904z00_822); 
SET_CAR(BgL_arg1902z00_821, BgL_auxz00_4044); } } }  else 
{ /* ./Llib/pregexp.scm 316 */
{ /* ./Llib/pregexp.scm 319 */
obj_t BgL_auxz00_4047;
BgL_auxz00_4047 = 
CDR(BgL_newzd2rezd2_788); 
SET_CAR(BgL_auxz00_4047, BFALSE); } 
{ /* ./Llib/pregexp.scm 320 */
obj_t BgL_auxz00_4052;obj_t BgL_auxz00_4050;
BgL_auxz00_4052 = 
BINT(BgL_iz00_810); 
BgL_auxz00_4050 = 
CDR(BgL_newzd2vvzd2_789); 
SET_CAR(BgL_auxz00_4050, BgL_auxz00_4052); } } } } } } } 
return BgL_newzd2vvzd2_789;} } } break;
default: 
return BgL_vvz00_28;} } } } } } } } 
}



/* pregexp-read-nums */
obj_t BGl_pregexpzd2readzd2numsz00zz__pregexpz00(obj_t BgL_sz00_31, long BgL_iz00_32, int BgL_nz00_33)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 326 */
{ 
obj_t BgL_pz00_838;obj_t BgL_qz00_839;long BgL_kz00_840;long BgL_readingz00_841;
BgL_pz00_838 = BNIL; 
BgL_qz00_839 = BNIL; 
BgL_kz00_840 = BgL_iz00_32; 
BgL_readingz00_841 = ((long)1); 
BgL_loopz00_842:
{ /* ./Llib/pregexp.scm 331 */
bool_t BgL_testz00_4062;
{ /* ./Llib/pregexp.scm 331 */
long BgL_auxz00_4063;
BgL_auxz00_4063 = 
(long)(BgL_nz00_33); 
BgL_testz00_4062 = 
(BgL_kz00_840>=BgL_auxz00_4063); } 
if(BgL_testz00_4062)
{ /* ./Llib/pregexp.scm 331 */
obj_t BgL_msgz00_2170;
BgL_msgz00_2170 = BGl_symbol4516z00zz__pregexpz00; 
FAILURE(BGl_string4474z00zz__pregexpz00,BgL_msgz00_2170,BUNSPEC);}  else 
{ /* ./Llib/pregexp.scm 331 */((bool_t)0); } } 
{ /* ./Llib/pregexp.scm 332 */
unsigned char BgL_cz00_845;
{ /* ./Llib/pregexp.scm 332 */
int BgL_auxz00_4067;
BgL_auxz00_4067 = 
(int)(BgL_kz00_840); 
BgL_cz00_845 = 
STRING_REF(BgL_sz00_31, BgL_auxz00_4067); } 
{ /* ./Llib/pregexp.scm 333 */
bool_t BgL_test1965z00_846;
{ /* ./Llib/pregexp.scm 333 */
bool_t BgL_res3697z00_2183;
BgL_res3697z00_2183 = 
isdigit(BgL_cz00_845); 
BgL_test1965z00_846 = BgL_res3697z00_2183; } 
if(BgL_test1965z00_846)
{ /* ./Llib/pregexp.scm 333 */
if(
(BgL_readingz00_841==((long)1)))
{ /* ./Llib/pregexp.scm 335 */
obj_t BgL_arg1968z00_848;long BgL_arg1969z00_849;
{ /* ./Llib/pregexp.scm 335 */
obj_t BgL_auxz00_4074;
BgL_auxz00_4074 = 
BCHAR(BgL_cz00_845); 
BgL_arg1968z00_848 = 
MAKE_PAIR(BgL_auxz00_4074, BgL_pz00_838); } 
BgL_arg1969z00_849 = 
(BgL_kz00_840+((long)1)); 
{ 
long BgL_readingz00_4080;long BgL_kz00_4079;obj_t BgL_pz00_4078;
BgL_pz00_4078 = BgL_arg1968z00_848; 
BgL_kz00_4079 = BgL_arg1969z00_849; 
BgL_readingz00_4080 = ((long)1); 
BgL_readingz00_841 = BgL_readingz00_4080; 
BgL_kz00_840 = BgL_kz00_4079; 
BgL_pz00_838 = BgL_pz00_4078; 
goto BgL_loopz00_842;} }  else 
{ /* ./Llib/pregexp.scm 336 */
obj_t BgL_arg1975z00_851;long BgL_arg1976z00_852;
{ /* ./Llib/pregexp.scm 336 */
obj_t BgL_auxz00_4081;
BgL_auxz00_4081 = 
BCHAR(BgL_cz00_845); 
BgL_arg1975z00_851 = 
MAKE_PAIR(BgL_auxz00_4081, BgL_qz00_839); } 
BgL_arg1976z00_852 = 
(BgL_kz00_840+((long)1)); 
{ 
long BgL_readingz00_4087;long BgL_kz00_4086;obj_t BgL_qz00_4085;
BgL_qz00_4085 = BgL_arg1975z00_851; 
BgL_kz00_4086 = BgL_arg1976z00_852; 
BgL_readingz00_4087 = ((long)2); 
BgL_readingz00_841 = BgL_readingz00_4087; 
BgL_kz00_840 = BgL_kz00_4086; 
BgL_qz00_839 = BgL_qz00_4085; 
goto BgL_loopz00_842;} } }  else 
{ /* ./Llib/pregexp.scm 337 */
bool_t BgL_test1982z00_854;
{ /* ./Llib/pregexp.scm 337 */
bool_t BgL_test2050z00_881;
{ /* ./Llib/pregexp.scm 337 */
bool_t BgL_res3698z00_2191;
BgL_res3698z00_2191 = 
isspace(BgL_cz00_845); 
BgL_test2050z00_881 = BgL_res3698z00_2191; } 
if(BgL_test2050z00_881)
{ /* ./Llib/pregexp.scm 337 */
if(BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00)
{ /* ./Llib/pregexp.scm 337 */
BgL_test1982z00_854 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 337 */
BgL_test1982z00_854 = ((bool_t)1); } }  else 
{ /* ./Llib/pregexp.scm 337 */
BgL_test1982z00_854 = ((bool_t)0); } } 
if(BgL_test1982z00_854)
{ /* ./Llib/pregexp.scm 337 */
{ 
long BgL_kz00_4092;
BgL_kz00_4092 = 
(BgL_kz00_840+((long)1)); 
BgL_kz00_840 = BgL_kz00_4092; 
goto BgL_loopz00_842;} }  else 
{ /* ./Llib/pregexp.scm 339 */
bool_t BgL_test1987z00_856;
if(
(BgL_cz00_845==((unsigned char)',')))
{ /* ./Llib/pregexp.scm 339 */
BgL_test1987z00_856 = 
(BgL_readingz00_841==((long)1)); }  else 
{ /* ./Llib/pregexp.scm 339 */
BgL_test1987z00_856 = ((bool_t)0); } 
if(BgL_test1987z00_856)
{ /* ./Llib/pregexp.scm 339 */
{ 
long BgL_readingz00_4100;long BgL_kz00_4098;
BgL_kz00_4098 = 
(BgL_kz00_840+((long)1)); 
BgL_readingz00_4100 = ((long)2); 
BgL_readingz00_841 = BgL_readingz00_4100; 
BgL_kz00_840 = BgL_kz00_4098; 
goto BgL_loopz00_842;} }  else 
{ /* ./Llib/pregexp.scm 339 */
if(
(BgL_cz00_845==((unsigned char)'}')))
{ /* ./Llib/pregexp.scm 341 */
{ /* ./Llib/pregexp.scm 342 */
obj_t BgL_pz00_860;obj_t BgL_qz00_861;
BgL_pz00_860 = 
BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_pz00_838)), BNIL); 
BgL_qz00_861 = 
BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_qz00_839)), BNIL); 
{ /* ./Llib/pregexp.scm 344 */
bool_t BgL_test1994z00_862;
if(
CBOOL(BgL_pz00_860))
{ /* ./Llib/pregexp.scm 344 */
BgL_test1994z00_862 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 344 */
BgL_test1994z00_862 = 
(BgL_readingz00_841==((long)1)); } 
if(BgL_test1994z00_862)
{ /* ./Llib/pregexp.scm 344 */
{ /* ./Llib/pregexp.scm 344 */
obj_t BgL_list1996z00_863;
{ /* ./Llib/pregexp.scm 344 */
obj_t BgL_arg2000z00_865;
{ /* ./Llib/pregexp.scm 344 */
obj_t BgL_arg2004z00_866;
{ /* ./Llib/pregexp.scm 344 */
obj_t BgL_auxz00_4113;
BgL_auxz00_4113 = 
BINT(BgL_kz00_840); 
BgL_arg2004z00_866 = 
MAKE_PAIR(BgL_auxz00_4113, BNIL); } 
BgL_arg2000z00_865 = 
MAKE_PAIR(BFALSE, BgL_arg2004z00_866); } 
{ /* ./Llib/pregexp.scm 344 */
obj_t BgL_auxz00_4117;
BgL_auxz00_4117 = 
BINT(((long)0)); 
BgL_list1996z00_863 = 
MAKE_PAIR(BgL_auxz00_4117, BgL_arg2000z00_865); } } 
return BgL_list1996z00_863;} }  else 
{ /* ./Llib/pregexp.scm 344 */
if(
(BgL_readingz00_841==((long)1)))
{ /* ./Llib/pregexp.scm 345 */
{ /* ./Llib/pregexp.scm 345 */
obj_t BgL_list2009z00_868;
{ /* ./Llib/pregexp.scm 345 */
obj_t BgL_arg2011z00_869;
{ /* ./Llib/pregexp.scm 345 */
obj_t BgL_arg2014z00_870;
{ /* ./Llib/pregexp.scm 345 */
obj_t BgL_auxz00_4122;
BgL_auxz00_4122 = 
BINT(BgL_kz00_840); 
BgL_arg2014z00_870 = 
MAKE_PAIR(BgL_auxz00_4122, BNIL); } 
BgL_arg2011z00_869 = 
MAKE_PAIR(BgL_pz00_860, BgL_arg2014z00_870); } 
BgL_list2009z00_868 = 
MAKE_PAIR(BgL_pz00_860, BgL_arg2011z00_869); } 
return BgL_list2009z00_868;} }  else 
{ /* ./Llib/pregexp.scm 345 */
{ /* ./Llib/pregexp.scm 346 */
obj_t BgL_list2018z00_871;
{ /* ./Llib/pregexp.scm 346 */
obj_t BgL_arg2021z00_872;
{ /* ./Llib/pregexp.scm 346 */
obj_t BgL_arg2024z00_873;
{ /* ./Llib/pregexp.scm 346 */
obj_t BgL_auxz00_4127;
BgL_auxz00_4127 = 
BINT(BgL_kz00_840); 
BgL_arg2024z00_873 = 
MAKE_PAIR(BgL_auxz00_4127, BNIL); } 
BgL_arg2021z00_872 = 
MAKE_PAIR(BgL_qz00_861, BgL_arg2024z00_873); } 
BgL_list2018z00_871 = 
MAKE_PAIR(BgL_pz00_860, BgL_arg2021z00_872); } 
return BgL_list2018z00_871;} } } } } }  else 
{ /* ./Llib/pregexp.scm 341 */
return BFALSE;} } } } } } } } 
}



/* pregexp-read-char-list */
obj_t BGl_pregexpzd2readzd2charzd2listzd2zz__pregexpz00(obj_t BgL_sz00_35, long BgL_iz00_36, int BgL_nz00_37)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 356 */
{ 
obj_t BgL_rz00_884;obj_t BgL_iz00_885;
BgL_rz00_884 = BNIL; 
BgL_iz00_885 = 
BINT(BgL_iz00_36); 
BgL_loopz00_886:
{ /* ./Llib/pregexp.scm 359 */
bool_t BgL_testz00_4132;
{ /* ./Llib/pregexp.scm 359 */
long BgL_auxz00_4135;long BgL_auxz00_4133;
BgL_auxz00_4135 = 
(long)(BgL_nz00_37); 
BgL_auxz00_4133 = 
(long)CINT(BgL_iz00_885); 
BgL_testz00_4132 = 
(BgL_auxz00_4133>=BgL_auxz00_4135); } 
if(BgL_testz00_4132)
{ /* ./Llib/pregexp.scm 360 */
obj_t BgL_list2062z00_888;
BgL_list2062z00_888 = 
MAKE_PAIR(BGl_string4517z00zz__pregexpz00, BNIL); 
{ /* ./Llib/pregexp.scm 360 */
obj_t BgL_msgz00_2214;
BgL_msgz00_2214 = BGl_symbol4518z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 360 */
obj_t BgL_arg1084z00_2217;
BgL_arg1084z00_2217 = 
CAR(BgL_list2062z00_888); 
FAILURE(BGl_string4474z00zz__pregexpz00,BgL_msgz00_2214,BgL_arg1084z00_2217);} } }  else 
{ /* ./Llib/pregexp.scm 362 */
unsigned char BgL_cz00_889;
{ /* ./Llib/pregexp.scm 362 */
int BgL_auxz00_4141;
BgL_auxz00_4141 = 
CINT(BgL_iz00_885); 
BgL_cz00_889 = 
STRING_REF(BgL_sz00_35, BgL_auxz00_4141); } 
{ 

switch( BgL_cz00_889) { case ((unsigned char)']') : 

if(
NULLP(BgL_rz00_884))
{ /* ./Llib/pregexp.scm 365 */
obj_t BgL_arg2067z00_894;long BgL_arg2068z00_895;
{ /* ./Llib/pregexp.scm 365 */
obj_t BgL_auxz00_4146;
BgL_auxz00_4146 = 
BCHAR(BgL_cz00_889); 
BgL_arg2067z00_894 = 
MAKE_PAIR(BgL_auxz00_4146, BgL_rz00_884); } 
{ /* ./Llib/pregexp.scm 365 */
long BgL_auxz00_4149;
BgL_auxz00_4149 = 
(long)CINT(BgL_iz00_885); 
BgL_arg2068z00_895 = 
(BgL_auxz00_4149+((long)1)); } 
{ 
obj_t BgL_iz00_4153;obj_t BgL_rz00_4152;
BgL_rz00_4152 = BgL_arg2067z00_894; 
BgL_iz00_4153 = 
BINT(BgL_arg2068z00_895); 
BgL_iz00_885 = BgL_iz00_4153; 
BgL_rz00_884 = BgL_rz00_4152; 
goto BgL_loopz00_886;} }  else 
{ /* ./Llib/pregexp.scm 366 */
obj_t BgL_arg2073z00_896;long BgL_arg2074z00_897;
{ /* ./Llib/pregexp.scm 366 */
obj_t BgL_auxz00_4155;
BgL_auxz00_4155 = 
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_rz00_884); 
BgL_arg2073z00_896 = 
MAKE_PAIR(BGl_keyword4519z00zz__pregexpz00, BgL_auxz00_4155); } 
{ /* ./Llib/pregexp.scm 367 */
long BgL_auxz00_4158;
BgL_auxz00_4158 = 
(long)CINT(BgL_iz00_885); 
BgL_arg2074z00_897 = 
(BgL_auxz00_4158+((long)1)); } 
{ /* ./Llib/pregexp.scm 366 */
obj_t BgL_list2076z00_898;
{ /* ./Llib/pregexp.scm 366 */
obj_t BgL_arg2078z00_899;
{ /* ./Llib/pregexp.scm 366 */
obj_t BgL_auxz00_4161;
BgL_auxz00_4161 = 
BINT(BgL_arg2074z00_897); 
BgL_arg2078z00_899 = 
MAKE_PAIR(BgL_auxz00_4161, BNIL); } 
BgL_list2076z00_898 = 
MAKE_PAIR(BgL_arg2073z00_896, BgL_arg2078z00_899); } 
return BgL_list2076z00_898;} } break;case ((unsigned char)'\\') : 

{ /* ./Llib/pregexp.scm 369 */
obj_t BgL_charzd2izd2_902;
BgL_charzd2izd2_902 = 
BGl_pregexpzd2readzd2escapedzd2charzd2zz__pregexpz00(BgL_sz00_35, BgL_iz00_885, BgL_nz00_37); 
if(
CBOOL(BgL_charzd2izd2_902))
{ /* ./Llib/pregexp.scm 370 */
obj_t BgL_arg2089z00_903;obj_t BgL_arg2090z00_904;
{ /* ./Llib/pregexp.scm 370 */
obj_t BgL_auxz00_4168;
BgL_auxz00_4168 = 
CAR(BgL_charzd2izd2_902); 
BgL_arg2089z00_903 = 
MAKE_PAIR(BgL_auxz00_4168, BgL_rz00_884); } 
{ /* ./Llib/pregexp.scm 370 */
obj_t BgL_auxz00_4171;
BgL_auxz00_4171 = 
CDR(BgL_charzd2izd2_902); 
BgL_arg2090z00_904 = 
CAR(BgL_auxz00_4171); } 
{ 
obj_t BgL_iz00_4175;obj_t BgL_rz00_4174;
BgL_rz00_4174 = BgL_arg2089z00_903; 
BgL_iz00_4175 = BgL_arg2090z00_904; 
BgL_iz00_885 = BgL_iz00_4175; 
BgL_rz00_884 = BgL_rz00_4174; 
goto BgL_loopz00_886;} }  else 
{ /* ./Llib/pregexp.scm 371 */
obj_t BgL_list2098z00_906;
{ /* ./Llib/pregexp.scm 371 */
obj_t BgL_auxz00_4176;
BgL_auxz00_4176 = 
BCHAR(((unsigned char)'\\')); 
BgL_list2098z00_906 = 
MAKE_PAIR(BgL_auxz00_4176, BNIL); } 
{ /* ./Llib/pregexp.scm 371 */
obj_t BgL_msgz00_2238;
BgL_msgz00_2238 = BGl_symbol4520z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 371 */
obj_t BgL_arg1084z00_2241;
BgL_arg1084z00_2241 = 
CAR(BgL_list2098z00_906); 
FAILURE(BGl_string4474z00zz__pregexpz00,BgL_msgz00_2238,BgL_arg1084z00_2241);} } } } break;case ((unsigned char)'-') : 

{ /* ./Llib/pregexp.scm 372 */
bool_t BgL_test2101z00_907;
if(
NULLP(BgL_rz00_884))
{ /* ./Llib/pregexp.scm 372 */
BgL_test2101z00_907 = ((bool_t)1); }  else 
{ /* ./Llib/pregexp.scm 372 */
long BgL_auxz00_4185;long BgL_auxz00_4183;
{ /* ./Llib/pregexp.scm 372 */
long BgL_auxz00_4186;
BgL_auxz00_4186 = 
(long)(BgL_nz00_37); 
BgL_auxz00_4185 = 
(BgL_auxz00_4186-((long)2)); } 
BgL_auxz00_4183 = 
(long)CINT(BgL_iz00_885); 
BgL_test2101z00_907 = 
(BgL_auxz00_4183>=BgL_auxz00_4185); } 
if(BgL_test2101z00_907)
{ /* ./Llib/pregexp.scm 373 */
obj_t BgL_arg2103z00_908;long BgL_arg2105z00_909;
{ /* ./Llib/pregexp.scm 373 */
obj_t BgL_auxz00_4191;
BgL_auxz00_4191 = 
BCHAR(BgL_cz00_889); 
BgL_arg2103z00_908 = 
MAKE_PAIR(BgL_auxz00_4191, BgL_rz00_884); } 
{ /* ./Llib/pregexp.scm 373 */
long BgL_auxz00_4194;
BgL_auxz00_4194 = 
(long)CINT(BgL_iz00_885); 
BgL_arg2105z00_909 = 
(BgL_auxz00_4194+((long)1)); } 
{ 
obj_t BgL_iz00_4198;obj_t BgL_rz00_4197;
BgL_rz00_4197 = BgL_arg2103z00_908; 
BgL_iz00_4198 = 
BINT(BgL_arg2105z00_909); 
BgL_iz00_885 = BgL_iz00_4198; 
BgL_rz00_884 = BgL_rz00_4197; 
goto BgL_loopz00_886;} }  else 
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_arg2111z00_910;long BgL_arg2112z00_911;
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_arg2115z00_912;obj_t BgL_arg2116z00_913;
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_arg2119z00_914;obj_t BgL_arg2120z00_915;unsigned char BgL_arg2122z00_916;
BgL_arg2119z00_914 = BGl_keyword4521z00zz__pregexpz00; 
BgL_arg2120z00_915 = 
CAR(BgL_rz00_884); 
{ /* ./Llib/pregexp.scm 375 */
int BgL_auxz00_4201;
{ /* ./Llib/pregexp.scm 375 */
long BgL_auxz00_4202;
{ /* ./Llib/pregexp.scm 375 */
long BgL_auxz00_4203;
BgL_auxz00_4203 = 
(long)CINT(BgL_iz00_885); 
BgL_auxz00_4202 = 
(BgL_auxz00_4203+((long)1)); } 
BgL_auxz00_4201 = 
(int)(BgL_auxz00_4202); } 
BgL_arg2122z00_916 = 
STRING_REF(BgL_sz00_35, BgL_auxz00_4201); } 
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_list2124z00_917;
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_arg2126z00_918;
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_arg2129z00_919;
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_auxz00_4208;
BgL_auxz00_4208 = 
BCHAR(BgL_arg2122z00_916); 
BgL_arg2129z00_919 = 
MAKE_PAIR(BgL_auxz00_4208, BNIL); } 
BgL_arg2126z00_918 = 
MAKE_PAIR(BgL_arg2120z00_915, BgL_arg2129z00_919); } 
BgL_list2124z00_917 = 
MAKE_PAIR(BgL_arg2119z00_914, BgL_arg2126z00_918); } 
BgL_arg2115z00_912 = BgL_list2124z00_917; } } 
BgL_arg2116z00_913 = 
CDR(BgL_rz00_884); 
BgL_arg2111z00_910 = 
MAKE_PAIR(BgL_arg2115z00_912, BgL_arg2116z00_913); } 
{ /* ./Llib/pregexp.scm 376 */
long BgL_auxz00_4215;
BgL_auxz00_4215 = 
(long)CINT(BgL_iz00_885); 
BgL_arg2112z00_911 = 
(BgL_auxz00_4215+((long)2)); } 
{ 
obj_t BgL_iz00_4219;obj_t BgL_rz00_4218;
BgL_rz00_4218 = BgL_arg2111z00_910; 
BgL_iz00_4219 = 
BINT(BgL_arg2112z00_911); 
BgL_iz00_885 = BgL_iz00_4219; 
BgL_rz00_884 = BgL_rz00_4218; 
goto BgL_loopz00_886;} } } break;case ((unsigned char)'[') : 

{ /* ./Llib/pregexp.scm 377 */
bool_t BgL_testz00_4221;
{ /* ./Llib/pregexp.scm 377 */
unsigned char BgL_auxz00_4222;
{ /* ./Llib/pregexp.scm 377 */
int BgL_auxz00_4223;
{ /* ./Llib/pregexp.scm 377 */
long BgL_auxz00_4224;
{ /* ./Llib/pregexp.scm 377 */
long BgL_auxz00_4225;
BgL_auxz00_4225 = 
(long)CINT(BgL_iz00_885); 
BgL_auxz00_4224 = 
(BgL_auxz00_4225+((long)1)); } 
BgL_auxz00_4223 = 
(int)(BgL_auxz00_4224); } 
BgL_auxz00_4222 = 
STRING_REF(BgL_sz00_35, BgL_auxz00_4223); } 
BgL_testz00_4221 = 
(BgL_auxz00_4222==((unsigned char)':')); } 
if(BgL_testz00_4221)
{ /* ./Llib/pregexp.scm 378 */
obj_t BgL_posixzd2charzd2classzd2izd2_924;
{ /* ./Llib/pregexp.scm 379 */
long BgL_auxz00_4231;
{ /* ./Llib/pregexp.scm 379 */
long BgL_auxz00_4232;
BgL_auxz00_4232 = 
(long)CINT(BgL_iz00_885); 
BgL_auxz00_4231 = 
(BgL_auxz00_4232+((long)2)); } 
BgL_posixzd2charzd2classzd2izd2_924 = 
BGl_pregexpzd2readzd2posixzd2charzd2classz00zz__pregexpz00(BgL_sz00_35, BgL_auxz00_4231, BgL_nz00_37); } 
{ /* ./Llib/pregexp.scm 380 */
obj_t BgL_arg2148z00_925;obj_t BgL_arg2149z00_926;
{ /* ./Llib/pregexp.scm 380 */
obj_t BgL_auxz00_4236;
BgL_auxz00_4236 = 
CAR(BgL_posixzd2charzd2classzd2izd2_924); 
BgL_arg2148z00_925 = 
MAKE_PAIR(BgL_auxz00_4236, BgL_rz00_884); } 
{ /* ./Llib/pregexp.scm 381 */
obj_t BgL_auxz00_4239;
BgL_auxz00_4239 = 
CDR(BgL_posixzd2charzd2classzd2izd2_924); 
BgL_arg2149z00_926 = 
CAR(BgL_auxz00_4239); } 
{ 
obj_t BgL_iz00_4243;obj_t BgL_rz00_4242;
BgL_rz00_4242 = BgL_arg2148z00_925; 
BgL_iz00_4243 = BgL_arg2149z00_926; 
BgL_iz00_885 = BgL_iz00_4243; 
BgL_rz00_884 = BgL_rz00_4242; 
goto BgL_loopz00_886;} } }  else 
{ /* ./Llib/pregexp.scm 382 */
obj_t BgL_arg2161z00_929;long BgL_arg2162z00_930;
{ /* ./Llib/pregexp.scm 382 */
obj_t BgL_auxz00_4244;
BgL_auxz00_4244 = 
BCHAR(BgL_cz00_889); 
BgL_arg2161z00_929 = 
MAKE_PAIR(BgL_auxz00_4244, BgL_rz00_884); } 
{ /* ./Llib/pregexp.scm 382 */
long BgL_auxz00_4247;
BgL_auxz00_4247 = 
(long)CINT(BgL_iz00_885); 
BgL_arg2162z00_930 = 
(BgL_auxz00_4247+((long)1)); } 
{ 
obj_t BgL_iz00_4251;obj_t BgL_rz00_4250;
BgL_rz00_4250 = BgL_arg2161z00_929; 
BgL_iz00_4251 = 
BINT(BgL_arg2162z00_930); 
BgL_iz00_885 = BgL_iz00_4251; 
BgL_rz00_884 = BgL_rz00_4250; 
goto BgL_loopz00_886;} } } break;
default: 
{ /* ./Llib/pregexp.scm 383 */
obj_t BgL_arg2177z00_933;long BgL_arg2178z00_934;
{ /* ./Llib/pregexp.scm 383 */
obj_t BgL_auxz00_4253;
BgL_auxz00_4253 = 
BCHAR(BgL_cz00_889); 
BgL_arg2177z00_933 = 
MAKE_PAIR(BgL_auxz00_4253, BgL_rz00_884); } 
{ /* ./Llib/pregexp.scm 383 */
long BgL_auxz00_4256;
BgL_auxz00_4256 = 
(long)CINT(BgL_iz00_885); 
BgL_arg2178z00_934 = 
(BgL_auxz00_4256+((long)1)); } 
{ 
obj_t BgL_iz00_4260;obj_t BgL_rz00_4259;
BgL_rz00_4259 = BgL_arg2177z00_933; 
BgL_iz00_4260 = 
BINT(BgL_arg2178z00_934); 
BgL_iz00_885 = BgL_iz00_4260; 
BgL_rz00_884 = BgL_rz00_4259; 
goto BgL_loopz00_886;} } } } } } } } 
}



/* pregexp-at-word-boundary? */
obj_t BGl_pregexpzd2atzd2wordzd2boundaryzf3z21zz__pregexpz00(obj_t BgL_sz00_45, obj_t BgL_iz00_46, obj_t BgL_nz00_47)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 406 */
{ /* ./Llib/pregexp.scm 408 */
bool_t BgL__ortest_1032z00_949;
{ /* ./Llib/pregexp.scm 408 */
long BgL_auxz00_4264;
BgL_auxz00_4264 = 
(long)CINT(BgL_iz00_46); 
BgL__ortest_1032z00_949 = 
(BgL_auxz00_4264==((long)0)); } 
if(BgL__ortest_1032z00_949)
{ /* ./Llib/pregexp.scm 408 */
return 
BBOOL(BgL__ortest_1032z00_949);}  else 
{ /* ./Llib/pregexp.scm 408 */
bool_t BgL__ortest_1033z00_950;
{ /* ./Llib/pregexp.scm 408 */
long BgL_auxz00_4271;long BgL_auxz00_4269;
BgL_auxz00_4271 = 
(long)CINT(BgL_nz00_47); 
BgL_auxz00_4269 = 
(long)CINT(BgL_iz00_46); 
BgL__ortest_1033z00_950 = 
(BgL_auxz00_4269>=BgL_auxz00_4271); } 
if(BgL__ortest_1033z00_950)
{ /* ./Llib/pregexp.scm 408 */
return 
BBOOL(BgL__ortest_1033z00_950);}  else 
{ /* ./Llib/pregexp.scm 409 */
unsigned char BgL_czf2izf2_951;unsigned char BgL_czf2izd21z20_952;
{ /* ./Llib/pregexp.scm 409 */
int BgL_auxz00_4276;
BgL_auxz00_4276 = 
CINT(BgL_iz00_46); 
BgL_czf2izf2_951 = 
STRING_REF(BgL_sz00_45, BgL_auxz00_4276); } 
{ /* ./Llib/pregexp.scm 410 */
int BgL_auxz00_4279;
{ /* ./Llib/pregexp.scm 410 */
long BgL_auxz00_4280;
{ /* ./Llib/pregexp.scm 410 */
long BgL_auxz00_4281;
BgL_auxz00_4281 = 
(long)CINT(BgL_iz00_46); 
BgL_auxz00_4280 = 
(BgL_auxz00_4281-((long)1)); } 
BgL_auxz00_4279 = 
(int)(BgL_auxz00_4280); } 
BgL_czf2izd21z20_952 = 
STRING_REF(BgL_sz00_45, BgL_auxz00_4279); } 
{ /* ./Llib/pregexp.scm 411 */
obj_t BgL_czf2izf2wzf3zf3_953;obj_t BgL_czf2izd21zf2wzf3z21_954;
BgL_czf2izf2wzf3zf3_953 = 
BGl_pregexpzd2checkzd2ifzd2inzd2charzd2classzf3z21zz__pregexpz00(BgL_czf2izf2_951, BGl_keyword4490z00zz__pregexpz00); 
BgL_czf2izd21zf2wzf3z21_954 = 
BGl_pregexpzd2checkzd2ifzd2inzd2charzd2classzf3z21zz__pregexpz00(BgL_czf2izd21z20_952, BGl_keyword4490z00zz__pregexpz00); 
{ /* ./Llib/pregexp.scm 415 */
bool_t BgL__ortest_1034z00_955;
if(
CBOOL(BgL_czf2izf2wzf3zf3_953))
{ /* ./Llib/pregexp.scm 415 */
if(
CBOOL(BgL_czf2izd21zf2wzf3z21_954))
{ /* ./Llib/pregexp.scm 415 */
BgL__ortest_1034z00_955 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 415 */
BgL__ortest_1034z00_955 = ((bool_t)1); } }  else 
{ /* ./Llib/pregexp.scm 415 */
BgL__ortest_1034z00_955 = ((bool_t)0); } 
if(BgL__ortest_1034z00_955)
{ /* ./Llib/pregexp.scm 415 */
return 
BBOOL(BgL__ortest_1034z00_955);}  else 
{ /* ./Llib/pregexp.scm 416 */
bool_t BgL_testz00_4294;
if(
CBOOL(BgL_czf2izf2wzf3zf3_953))
{ /* ./Llib/pregexp.scm 416 */
BgL_testz00_4294 = ((bool_t)0)
; }  else 
{ /* ./Llib/pregexp.scm 416 */
BgL_testz00_4294 = ((bool_t)1)
; } 
if(BgL_testz00_4294)
{ /* ./Llib/pregexp.scm 416 */
return BgL_czf2izd21zf2wzf3z21_954;}  else 
{ /* ./Llib/pregexp.scm 416 */
return BFALSE;} } } } } } } } 
}



/* pregexp-check-if-in-char-class? */
obj_t BGl_pregexpzd2checkzd2ifzd2inzd2charzd2classzf3z21zz__pregexpz00(unsigned char BgL_cz00_48, obj_t BgL_charzd2classzd2_49)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 418 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword4480z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 420 */
if(
(BgL_cz00_48==((unsigned char)'\n')))
{ /* ./Llib/pregexp.scm 421 */
return BFALSE;}  else 
{ /* ./Llib/pregexp.scm 421 */
return BTRUE;} }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword4522z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 423 */
bool_t BgL__ortest_1037z00_963;
{ /* ./Llib/pregexp.scm 423 */
bool_t BgL_res3704z00_2324;
BgL_res3704z00_2324 = 
isalpha(BgL_cz00_48); 
BgL__ortest_1037z00_963 = BgL_res3704z00_2324; } 
if(BgL__ortest_1037z00_963)
{ /* ./Llib/pregexp.scm 423 */
return 
BBOOL(BgL__ortest_1037z00_963);}  else 
{ /* ./Llib/pregexp.scm 423 */
bool_t BgL_res3705z00_2326;
BgL_res3705z00_2326 = 
isdigit(BgL_cz00_48); 
return 
BBOOL(BgL_res3705z00_2326);} }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword4523z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 424 */
bool_t BgL_res3706z00_2328;
BgL_res3706z00_2328 = 
isalpha(BgL_cz00_48); 
return 
BBOOL(BgL_res3706z00_2328);}  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword4524z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 425 */
bool_t BgL_auxz00_4314;
{ /* ./Llib/pregexp.scm 425 */
long BgL_auxz00_4315;
BgL_auxz00_4315 = 
(BgL_cz00_48); 
BgL_auxz00_4314 = 
(BgL_auxz00_4315<((long)128)); } 
return 
BBOOL(BgL_auxz00_4314);}  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword4525z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 426 */
bool_t BgL__ortest_1038z00_969;
BgL__ortest_1038z00_969 = 
(BgL_cz00_48==((unsigned char)' ')); 
if(BgL__ortest_1038z00_969)
{ /* ./Llib/pregexp.scm 426 */
return 
BBOOL(BgL__ortest_1038z00_969);}  else 
{ /* ./Llib/pregexp.scm 426 */
bool_t BgL_auxz00_4324;
BgL_auxz00_4324 = 
(BgL_cz00_48==BGl_za2pregexpzd2tabzd2charza2z00zz__pregexpz00); 
return 
BBOOL(BgL_auxz00_4324);} }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword4526z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 427 */
bool_t BgL_auxz00_4329;
{ /* ./Llib/pregexp.scm 427 */
long BgL_auxz00_4330;
BgL_auxz00_4330 = 
(BgL_cz00_48); 
BgL_auxz00_4329 = 
(BgL_auxz00_4330<((long)32)); } 
return 
BBOOL(BgL_auxz00_4329);}  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword4486z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 428 */
bool_t BgL_res3707z00_2340;
BgL_res3707z00_2340 = 
isdigit(BgL_cz00_48); 
return 
BBOOL(BgL_res3707z00_2340);}  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword4527z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 429 */
bool_t BgL_testz00_4340;
{ /* ./Llib/pregexp.scm 429 */
long BgL_auxz00_4341;
BgL_auxz00_4341 = 
(BgL_cz00_48); 
BgL_testz00_4340 = 
(BgL_auxz00_4341>=((long)32)); } 
if(BgL_testz00_4340)
{ /* ./Llib/pregexp.scm 430 */
bool_t BgL_test2247z00_976;
{ /* ./Llib/pregexp.scm 430 */
bool_t BgL_res3708z00_2345;
BgL_res3708z00_2345 = 
isspace(BgL_cz00_48); 
BgL_test2247z00_976 = BgL_res3708z00_2345; } 
if(BgL_test2247z00_976)
{ /* ./Llib/pregexp.scm 430 */
return BFALSE;}  else 
{ /* ./Llib/pregexp.scm 430 */
return BTRUE;} }  else 
{ /* ./Llib/pregexp.scm 429 */
return BFALSE;} }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword4528z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 431 */
bool_t BgL_res3709z00_2347;
BgL_res3709z00_2347 = 
islower(BgL_cz00_48); 
return 
BBOOL(BgL_res3709z00_2347);}  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword4529z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 432 */
bool_t BgL_auxz00_4352;
{ /* ./Llib/pregexp.scm 432 */
long BgL_auxz00_4353;
BgL_auxz00_4353 = 
(BgL_cz00_48); 
BgL_auxz00_4352 = 
(BgL_auxz00_4353>=((long)32)); } 
return 
BBOOL(BgL_auxz00_4352);}  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword4530z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 433 */
bool_t BgL_testz00_4359;
{ /* ./Llib/pregexp.scm 433 */
long BgL_auxz00_4360;
BgL_auxz00_4360 = 
(BgL_cz00_48); 
BgL_testz00_4359 = 
(BgL_auxz00_4360>=((long)32)); } 
if(BgL_testz00_4359)
{ /* ./Llib/pregexp.scm 434 */
bool_t BgL__andtest_1041z00_985;
{ /* ./Llib/pregexp.scm 434 */
bool_t BgL_test2268z00_989;
{ /* ./Llib/pregexp.scm 434 */
bool_t BgL_res3710z00_2355;
BgL_res3710z00_2355 = 
isspace(BgL_cz00_48); 
BgL_test2268z00_989 = BgL_res3710z00_2355; } 
if(BgL_test2268z00_989)
{ /* ./Llib/pregexp.scm 434 */
BgL__andtest_1041z00_985 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 434 */
BgL__andtest_1041z00_985 = ((bool_t)1); } } 
if(BgL__andtest_1041z00_985)
{ /* ./Llib/pregexp.scm 435 */
bool_t BgL__andtest_1042z00_986;
{ /* ./Llib/pregexp.scm 435 */
bool_t BgL_test2266z00_988;
{ /* ./Llib/pregexp.scm 435 */
bool_t BgL_res3711z00_2357;
BgL_res3711z00_2357 = 
isalpha(BgL_cz00_48); 
BgL_test2266z00_988 = BgL_res3711z00_2357; } 
if(BgL_test2266z00_988)
{ /* ./Llib/pregexp.scm 435 */
BgL__andtest_1042z00_986 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 435 */
BgL__andtest_1042z00_986 = ((bool_t)1); } } 
if(BgL__andtest_1042z00_986)
{ /* ./Llib/pregexp.scm 436 */
bool_t BgL_test2264z00_987;
{ /* ./Llib/pregexp.scm 436 */
bool_t BgL_res3712z00_2359;
BgL_res3712z00_2359 = 
isdigit(BgL_cz00_48); 
BgL_test2264z00_987 = BgL_res3712z00_2359; } 
if(BgL_test2264z00_987)
{ /* ./Llib/pregexp.scm 436 */
return BFALSE;}  else 
{ /* ./Llib/pregexp.scm 436 */
return BTRUE;} }  else 
{ /* ./Llib/pregexp.scm 435 */
return BFALSE;} }  else 
{ /* ./Llib/pregexp.scm 434 */
return BFALSE;} }  else 
{ /* ./Llib/pregexp.scm 433 */
return BFALSE;} }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword4488z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 437 */
bool_t BgL_res3713z00_2361;
BgL_res3713z00_2361 = 
isspace(BgL_cz00_48); 
return 
BBOOL(BgL_res3713z00_2361);}  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword4531z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 438 */
bool_t BgL_res3714z00_2363;
BgL_res3714z00_2363 = 
isupper(BgL_cz00_48); 
return 
BBOOL(BgL_res3714z00_2363);}  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword4490z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 439 */
bool_t BgL__ortest_1043z00_995;
{ /* ./Llib/pregexp.scm 439 */
bool_t BgL_res3715z00_2365;
BgL_res3715z00_2365 = 
isalpha(BgL_cz00_48); 
BgL__ortest_1043z00_995 = BgL_res3715z00_2365; } 
if(BgL__ortest_1043z00_995)
{ /* ./Llib/pregexp.scm 439 */
return 
BBOOL(BgL__ortest_1043z00_995);}  else 
{ /* ./Llib/pregexp.scm 440 */
bool_t BgL__ortest_1044z00_996;
{ /* ./Llib/pregexp.scm 440 */
bool_t BgL_res3716z00_2367;
BgL_res3716z00_2367 = 
isdigit(BgL_cz00_48); 
BgL__ortest_1044z00_996 = BgL_res3716z00_2367; } 
if(BgL__ortest_1044z00_996)
{ /* ./Llib/pregexp.scm 440 */
return 
BBOOL(BgL__ortest_1044z00_996);}  else 
{ /* ./Llib/pregexp.scm 441 */
bool_t BgL_auxz00_4387;
BgL_auxz00_4387 = 
(BgL_cz00_48==((unsigned char)'_')); 
return 
BBOOL(BgL_auxz00_4387);} } }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword4532z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 442 */
bool_t BgL__ortest_1045z00_998;
{ /* ./Llib/pregexp.scm 442 */
bool_t BgL_res3717z00_2371;
BgL_res3717z00_2371 = 
isdigit(BgL_cz00_48); 
BgL__ortest_1045z00_998 = BgL_res3717z00_2371; } 
if(BgL__ortest_1045z00_998)
{ /* ./Llib/pregexp.scm 442 */
return 
BBOOL(BgL__ortest_1045z00_998);}  else 
{ /* ./Llib/pregexp.scm 443 */
bool_t BgL__ortest_1046z00_999;
{ /* ./Llib/pregexp.scm 443 */
unsigned char BgL_auxz00_4397;unsigned char BgL_auxz00_4395;
BgL_auxz00_4397 = 
toupper(((unsigned char)'a')); 
BgL_auxz00_4395 = 
toupper(BgL_cz00_48); 
BgL__ortest_1046z00_999 = 
(BgL_auxz00_4395==BgL_auxz00_4397); } 
if(BgL__ortest_1046z00_999)
{ /* ./Llib/pregexp.scm 443 */
return 
BBOOL(BgL__ortest_1046z00_999);}  else 
{ /* ./Llib/pregexp.scm 443 */
bool_t BgL__ortest_1047z00_1000;
{ /* ./Llib/pregexp.scm 443 */
unsigned char BgL_auxz00_4404;unsigned char BgL_auxz00_4402;
BgL_auxz00_4404 = 
toupper(((unsigned char)'b')); 
BgL_auxz00_4402 = 
toupper(BgL_cz00_48); 
BgL__ortest_1047z00_1000 = 
(BgL_auxz00_4402==BgL_auxz00_4404); } 
if(BgL__ortest_1047z00_1000)
{ /* ./Llib/pregexp.scm 443 */
return 
BBOOL(BgL__ortest_1047z00_1000);}  else 
{ /* ./Llib/pregexp.scm 444 */
bool_t BgL__ortest_1048z00_1001;
{ /* ./Llib/pregexp.scm 444 */
unsigned char BgL_auxz00_4411;unsigned char BgL_auxz00_4409;
BgL_auxz00_4411 = 
toupper(((unsigned char)'c')); 
BgL_auxz00_4409 = 
toupper(BgL_cz00_48); 
BgL__ortest_1048z00_1001 = 
(BgL_auxz00_4409==BgL_auxz00_4411); } 
if(BgL__ortest_1048z00_1001)
{ /* ./Llib/pregexp.scm 444 */
return 
BBOOL(BgL__ortest_1048z00_1001);}  else 
{ /* ./Llib/pregexp.scm 444 */
bool_t BgL__ortest_1049z00_1002;
{ /* ./Llib/pregexp.scm 444 */
unsigned char BgL_auxz00_4418;unsigned char BgL_auxz00_4416;
BgL_auxz00_4418 = 
toupper(((unsigned char)'d')); 
BgL_auxz00_4416 = 
toupper(BgL_cz00_48); 
BgL__ortest_1049z00_1002 = 
(BgL_auxz00_4416==BgL_auxz00_4418); } 
if(BgL__ortest_1049z00_1002)
{ /* ./Llib/pregexp.scm 444 */
return 
BBOOL(BgL__ortest_1049z00_1002);}  else 
{ /* ./Llib/pregexp.scm 445 */
bool_t BgL__ortest_1050z00_1003;
{ /* ./Llib/pregexp.scm 445 */
unsigned char BgL_auxz00_4425;unsigned char BgL_auxz00_4423;
BgL_auxz00_4425 = 
toupper(((unsigned char)'e')); 
BgL_auxz00_4423 = 
toupper(BgL_cz00_48); 
BgL__ortest_1050z00_1003 = 
(BgL_auxz00_4423==BgL_auxz00_4425); } 
if(BgL__ortest_1050z00_1003)
{ /* ./Llib/pregexp.scm 445 */
return 
BBOOL(BgL__ortest_1050z00_1003);}  else 
{ /* ./Llib/pregexp.scm 445 */
bool_t BgL_auxz00_4430;
{ /* ./Llib/pregexp.scm 445 */
unsigned char BgL_auxz00_4433;unsigned char BgL_auxz00_4431;
BgL_auxz00_4433 = 
toupper(((unsigned char)'f')); 
BgL_auxz00_4431 = 
toupper(BgL_cz00_48); 
BgL_auxz00_4430 = 
(BgL_auxz00_4431==BgL_auxz00_4433); } 
return 
BBOOL(BgL_auxz00_4430);} } } } } } }  else 
{ /* ./Llib/pregexp.scm 446 */
obj_t BgL_list2292z00_1004;
BgL_list2292z00_1004 = 
MAKE_PAIR(BgL_charzd2classzd2_49, BNIL); 
{ /* ./Llib/pregexp.scm 446 */
obj_t BgL_msgz00_2426;
BgL_msgz00_2426 = BGl_symbol4533z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 446 */
obj_t BgL_arg1084z00_2429;
BgL_arg1084z00_2429 = 
CAR(BgL_list2292z00_1004); 
FAILURE(BGl_string4474z00zz__pregexpz00,BgL_msgz00_2426,BgL_arg1084z00_2429);} } } } } } } } } } } } } } } } } } 
}



/* pregexp-list-ref */
obj_t BGl_pregexpzd2listzd2refz00zz__pregexpz00(obj_t BgL_sz00_50, obj_t BgL_iz00_51)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 448 */
{ 
obj_t BgL_sz00_2437;long BgL_kz00_2438;
BgL_sz00_2437 = BgL_sz00_50; 
BgL_kz00_2438 = ((long)0); 
BgL_loopz00_2436:
if(
NULLP(BgL_sz00_2437))
{ /* ./Llib/pregexp.scm 452 */
return BFALSE;}  else 
{ /* ./Llib/pregexp.scm 452 */
bool_t BgL_testz00_4442;
{ /* ./Llib/pregexp.scm 452 */
long BgL_auxz00_4443;
BgL_auxz00_4443 = 
(long)CINT(BgL_iz00_51); 
BgL_testz00_4442 = 
(BgL_kz00_2438==BgL_auxz00_4443); } 
if(BgL_testz00_4442)
{ /* ./Llib/pregexp.scm 452 */
return 
CAR(BgL_sz00_2437);}  else 
{ /* ./Llib/pregexp.scm 452 */
{ 
long BgL_kz00_4449;obj_t BgL_sz00_4447;
BgL_sz00_4447 = 
CDR(BgL_sz00_2437); 
BgL_kz00_4449 = 
(BgL_kz00_2438+((long)1)); 
BgL_kz00_2438 = BgL_kz00_4449; 
BgL_sz00_2437 = BgL_sz00_4447; 
goto BgL_loopz00_2436;} } } } } 
}



/* pregexp-match-positions-aux */
obj_t BGl_pregexpzd2matchzd2positionszd2auxzd2zz__pregexpz00(obj_t BgL_rez00_52, obj_t BgL_sz00_53, int BgL_snz00_54, obj_t BgL_startz00_55, obj_t BgL_nz00_56, obj_t BgL_iz00_57)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 467 */
{ /* ./Llib/pregexp.scm 469 */
obj_t BgL_nz00_3179;obj_t BgL_snz00_3178;
BgL_nz00_3179 = 
MAKE_CELL(BgL_nz00_56); 
{ /* ./Llib/pregexp.scm 469 */
obj_t BgL_cellvalz00_4451;
BgL_cellvalz00_4451 = 
BINT(BgL_snz00_54); 
BgL_snz00_3178 = 
MAKE_CELL(BgL_cellvalz00_4451); } 
{ /* ./Llib/pregexp.scm 469 */
obj_t BgL_casezd2sensitivezf3z21_1012;
BgL_casezd2sensitivezf3z21_1012 = 
MAKE_CELL(BTRUE); 
return 
BGl_subz00zz__pregexpz00(BgL_sz00_53, BgL_snz00_3178, BgL_casezd2sensitivezf3z21_1012, BgL_nz00_3179, BgL_rez00_52, BgL_iz00_57, BNIL, BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_proc4534z00zz__pregexpz00);} } } 
}



/* loup-one-of-chars */
obj_t BGl_loupzd2onezd2ofzd2charszd2zz__pregexpz00(obj_t BgL_fkz00_2995, obj_t BgL_skz00_2994, obj_t BgL_backrefsz00_2993, obj_t BgL_iz00_2992, obj_t BgL_sz00_2991, obj_t BgL_snz00_2990, obj_t BgL_casezd2sensitivezf3z21_2989, obj_t BgL_nz00_2988, obj_t BgL_charsz00_1056)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 510 */
if(
NULLP(BgL_charsz00_1056))
{ /* ./Llib/pregexp.scm 511 */
return 
PROCEDURE_ENTRY(BgL_fkz00_2995)(BgL_fkz00_2995, BEOA);}  else 
{ /* ./Llib/pregexp.scm 512 */
obj_t BgL_arg2405z00_1060;
BgL_arg2405z00_1060 = 
CAR(BgL_charsz00_1056); 
{ /* ./Llib/pregexp.scm 514 */
obj_t BgL_zc3anonymousza32409ze3z83_2985;
{ 
int BgL_auxz00_4461;int BgL_auxz00_4459;
BgL_auxz00_4461 = 
(int)(((long)9)); 
BgL_auxz00_4459 = 
(int)(((long)0)); 
BgL_zc3anonymousza32409ze3z83_2985 = 
make_fx_procedure(BGl_zc3anonymousza32409ze3z83zz__pregexpz00, BgL_auxz00_4459, BgL_auxz00_4461); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_4464;
BgL_auxz00_4464 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32409ze3z83_2985, BgL_auxz00_4464, BgL_nz00_2988); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_4467;
BgL_auxz00_4467 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32409ze3z83_2985, BgL_auxz00_4467, BgL_casezd2sensitivezf3z21_2989); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_4470;
BgL_auxz00_4470 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32409ze3z83_2985, BgL_auxz00_4470, BgL_snz00_2990); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_4473;
BgL_auxz00_4473 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32409ze3z83_2985, BgL_auxz00_4473, BgL_sz00_2991); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_4476;
BgL_auxz00_4476 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32409ze3z83_2985, BgL_auxz00_4476, BgL_iz00_2992); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_4479;
BgL_auxz00_4479 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32409ze3z83_2985, BgL_auxz00_4479, BgL_backrefsz00_2993); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_4482;
BgL_auxz00_4482 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32409ze3z83_2985, BgL_auxz00_4482, BgL_skz00_2994); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_4485;
BgL_auxz00_4485 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_zc3anonymousza32409ze3z83_2985, BgL_auxz00_4485, BgL_fkz00_2995); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_4488;
BgL_auxz00_4488 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_zc3anonymousza32409ze3z83_2985, BgL_auxz00_4488, BgL_charsz00_1056); } 
return 
BGl_subz00zz__pregexpz00(BgL_sz00_2991, BgL_snz00_2990, BgL_casezd2sensitivezf3z21_2989, BgL_nz00_2988, BgL_arg2405z00_1060, BgL_iz00_2992, BgL_backrefsz00_2993, BgL_skz00_2994, BgL_zc3anonymousza32409ze3z83_2985);} } } 
}



/* sub */
obj_t BGl_subz00zz__pregexpz00(obj_t BgL_sz00_2999, obj_t BgL_snz00_2998, obj_t BgL_casezd2sensitivezf3z21_2997, obj_t BgL_nz00_2996, obj_t BgL_rez00_1013, obj_t BgL_iz00_1014, obj_t BgL_backrefsz00_1015, obj_t BgL_skz00_1016, obj_t BgL_fkz00_1017)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 470 */
BGl_subz00zz__pregexpz00:
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_rez00_1013, BGl_keyword4478z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 472 */
{ /* ./Llib/pregexp.scm 474 */
bool_t BgL_testz00_4494;
{ /* ./Llib/pregexp.scm 474 */
long BgL_auxz00_4495;
BgL_auxz00_4495 = 
(long)CINT(BgL_iz00_1014); 
BgL_testz00_4494 = 
(BgL_auxz00_4495==((long)0)); } 
if(BgL_testz00_4494)
{ /* ./Llib/pregexp.scm 474 */
return 
PROCEDURE_ENTRY(BgL_skz00_1016)(BgL_skz00_1016, BgL_iz00_1014, BgL_backrefsz00_1015, BEOA);}  else 
{ /* ./Llib/pregexp.scm 474 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);} } }  else 
{ /* ./Llib/pregexp.scm 472 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_rez00_1013, BGl_keyword4479z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 476 */
{ /* ./Llib/pregexp.scm 478 */
bool_t BgL_test2332z00_1026;
{ /* ./Llib/pregexp.scm 478 */
long BgL_n1z00_2480;long BgL_n2z00_2481;
BgL_n1z00_2480 = 
(long)CINT(BgL_iz00_1014); 
{ /* ./Llib/pregexp.scm 478 */
obj_t BgL_auxz00_4505;
BgL_auxz00_4505 = 
CELL_REF(BgL_snz00_2998); 
BgL_n2z00_2481 = 
(long)CINT(BgL_auxz00_4505); } 
BgL_test2332z00_1026 = 
(BgL_n1z00_2480>=BgL_n2z00_2481); } 
if(BgL_test2332z00_1026)
{ /* ./Llib/pregexp.scm 478 */
return 
PROCEDURE_ENTRY(BgL_skz00_1016)(BgL_skz00_1016, BgL_iz00_1014, BgL_backrefsz00_1015, BEOA);}  else 
{ /* ./Llib/pregexp.scm 478 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);} } }  else 
{ /* ./Llib/pregexp.scm 476 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_rez00_1013, BGl_keyword4477z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 480 */
return 
PROCEDURE_ENTRY(BgL_skz00_1016)(BgL_skz00_1016, BgL_iz00_1014, BgL_backrefsz00_1015, BEOA);}  else 
{ /* ./Llib/pregexp.scm 480 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_rez00_1013, BGl_keyword4484z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 482 */
{ /* ./Llib/pregexp.scm 483 */
bool_t BgL_test2339z00_1029;
{ /* ./Llib/pregexp.scm 483 */
obj_t BgL_auxz00_4519;
BgL_auxz00_4519 = 
BGl_pregexpzd2atzd2wordzd2boundaryzf3z21zz__pregexpz00(BgL_sz00_2999, BgL_iz00_1014, 
CELL_REF(BgL_nz00_2996)); 
BgL_test2339z00_1029 = 
CBOOL(BgL_auxz00_4519); } 
if(BgL_test2339z00_1029)
{ /* ./Llib/pregexp.scm 483 */
return 
PROCEDURE_ENTRY(BgL_skz00_1016)(BgL_skz00_1016, BgL_iz00_1014, BgL_backrefsz00_1015, BEOA);}  else 
{ /* ./Llib/pregexp.scm 483 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);} } }  else 
{ /* ./Llib/pregexp.scm 482 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_rez00_1013, BGl_keyword4485z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 486 */
{ /* ./Llib/pregexp.scm 487 */
bool_t BgL_test2344z00_1031;
{ /* ./Llib/pregexp.scm 487 */
obj_t BgL_auxz00_4529;
BgL_auxz00_4529 = 
BGl_pregexpzd2atzd2wordzd2boundaryzf3z21zz__pregexpz00(BgL_sz00_2999, BgL_iz00_1014, 
CELL_REF(BgL_nz00_2996)); 
BgL_test2344z00_1031 = 
CBOOL(BgL_auxz00_4529); } 
if(BgL_test2344z00_1031)
{ /* ./Llib/pregexp.scm 487 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 487 */
return 
PROCEDURE_ENTRY(BgL_skz00_1016)(BgL_skz00_1016, BgL_iz00_1014, BgL_backrefsz00_1015, BEOA);} } }  else 
{ /* ./Llib/pregexp.scm 490 */
bool_t BgL_test2348z00_1032;
if(
CHARP(BgL_rez00_1013))
{ /* ./Llib/pregexp.scm 490 */
long BgL_n1z00_2483;long BgL_n2z00_2484;
BgL_n1z00_2483 = 
(long)CINT(BgL_iz00_1014); 
{ /* ./Llib/pregexp.scm 490 */
obj_t BgL_auxz00_4540;
BgL_auxz00_4540 = 
CELL_REF(BgL_nz00_2996); 
BgL_n2z00_2484 = 
(long)CINT(BgL_auxz00_4540); } 
BgL_test2348z00_1032 = 
(BgL_n1z00_2483<BgL_n2z00_2484); }  else 
{ /* ./Llib/pregexp.scm 490 */
BgL_test2348z00_1032 = ((bool_t)0); } 
if(BgL_test2348z00_1032)
{ /* ./Llib/pregexp.scm 490 */
{ /* ./Llib/pregexp.scm 491 */
bool_t BgL_test2349z00_1033;
{ /* ./Llib/pregexp.scm 491 */
obj_t BgL_fun2357z00_1035;
{ /* ./Llib/pregexp.scm 491 */
bool_t BgL_testz00_4544;
{ /* ./Llib/pregexp.scm 491 */
obj_t BgL_auxz00_4545;
BgL_auxz00_4545 = 
CELL_REF(BgL_casezd2sensitivezf3z21_2997); 
BgL_testz00_4544 = 
CBOOL(BgL_auxz00_4545); } 
if(BgL_testz00_4544)
{ /* ./Llib/pregexp.scm 491 */
BgL_fun2357z00_1035 = BGl_charzd3zf3zd2envzf2zz__r4_characters_6_6z00; }  else 
{ /* ./Llib/pregexp.scm 491 */
BgL_fun2357z00_1035 = BGl_charzd2cizd3zf3zd2envz20zz__r4_characters_6_6z00; } } 
{ /* ./Llib/pregexp.scm 492 */
unsigned char BgL_arg2356z00_1036;
{ /* ./Llib/pregexp.scm 492 */
int BgL_auxz00_4547;
BgL_auxz00_4547 = 
CINT(BgL_iz00_1014); 
BgL_arg2356z00_1036 = 
STRING_REF(BgL_sz00_2999, BgL_auxz00_4547); } 
{ /* ./Llib/pregexp.scm 491 */
obj_t BgL_auxz00_4550;
BgL_auxz00_4550 = 
PROCEDURE_ENTRY(BgL_fun2357z00_1035)(BgL_fun2357z00_1035, 
BCHAR(BgL_arg2356z00_1036), BgL_rez00_1013, BEOA); 
BgL_test2349z00_1033 = 
CBOOL(BgL_auxz00_4550); } } } 
if(BgL_test2349z00_1033)
{ /* ./Llib/pregexp.scm 493 */
long BgL_arg2351z00_1034;
{ /* ./Llib/pregexp.scm 493 */
long BgL_auxz00_4556;
BgL_auxz00_4556 = 
(long)CINT(BgL_iz00_1014); 
BgL_arg2351z00_1034 = 
(BgL_auxz00_4556+((long)1)); } 
return 
PROCEDURE_ENTRY(BgL_skz00_1016)(BgL_skz00_1016, 
BINT(BgL_arg2351z00_1034), BgL_backrefsz00_1015, BEOA);}  else 
{ /* ./Llib/pregexp.scm 491 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);} } }  else 
{ /* ./Llib/pregexp.scm 494 */
bool_t BgL_test2360z00_1037;
if(
PAIRP(BgL_rez00_1013))
{ /* ./Llib/pregexp.scm 494 */
BgL_test2360z00_1037 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 494 */
long BgL_n1z00_2490;long BgL_n2z00_2491;
BgL_n1z00_2490 = 
(long)CINT(BgL_iz00_1014); 
{ /* ./Llib/pregexp.scm 494 */
obj_t BgL_auxz00_4567;
BgL_auxz00_4567 = 
CELL_REF(BgL_nz00_2996); 
BgL_n2z00_2491 = 
(long)CINT(BgL_auxz00_4567); } 
BgL_test2360z00_1037 = 
(BgL_n1z00_2490<BgL_n2z00_2491); } 
if(BgL_test2360z00_1037)
{ /* ./Llib/pregexp.scm 494 */
{ /* ./Llib/pregexp.scm 495 */
bool_t BgL_test2361z00_1038;
{ /* ./Llib/pregexp.scm 496 */
unsigned char BgL_arg2368z00_1040;
{ /* ./Llib/pregexp.scm 496 */
int BgL_auxz00_4571;
BgL_auxz00_4571 = 
CINT(BgL_iz00_1014); 
BgL_arg2368z00_1040 = 
STRING_REF(BgL_sz00_2999, BgL_auxz00_4571); } 
{ /* ./Llib/pregexp.scm 495 */
obj_t BgL_auxz00_4574;
BgL_auxz00_4574 = 
BGl_pregexpzd2checkzd2ifzd2inzd2charzd2classzf3z21zz__pregexpz00(BgL_arg2368z00_1040, BgL_rez00_1013); 
BgL_test2361z00_1038 = 
CBOOL(BgL_auxz00_4574); } } 
if(BgL_test2361z00_1038)
{ /* ./Llib/pregexp.scm 497 */
long BgL_arg2363z00_1039;
{ /* ./Llib/pregexp.scm 497 */
long BgL_auxz00_4578;
BgL_auxz00_4578 = 
(long)CINT(BgL_iz00_1014); 
BgL_arg2363z00_1039 = 
(BgL_auxz00_4578+((long)1)); } 
return 
PROCEDURE_ENTRY(BgL_skz00_1016)(BgL_skz00_1016, 
BINT(BgL_arg2363z00_1039), BgL_backrefsz00_1015, BEOA);}  else 
{ /* ./Llib/pregexp.scm 495 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);} } }  else 
{ /* ./Llib/pregexp.scm 498 */
bool_t BgL_test2371z00_1041;
if(
PAIRP(BgL_rez00_1013))
{ /* ./Llib/pregexp.scm 498 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(
CAR(BgL_rez00_1013), BGl_keyword4521z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 498 */
long BgL_n1z00_2498;long BgL_n2z00_2499;
BgL_n1z00_2498 = 
(long)CINT(BgL_iz00_1014); 
{ /* ./Llib/pregexp.scm 498 */
obj_t BgL_auxz00_4592;
BgL_auxz00_4592 = 
CELL_REF(BgL_nz00_2996); 
BgL_n2z00_2499 = 
(long)CINT(BgL_auxz00_4592); } 
BgL_test2371z00_1041 = 
(BgL_n1z00_2498<BgL_n2z00_2499); }  else 
{ /* ./Llib/pregexp.scm 498 */
BgL_test2371z00_1041 = ((bool_t)0); } }  else 
{ /* ./Llib/pregexp.scm 498 */
BgL_test2371z00_1041 = ((bool_t)0); } 
if(BgL_test2371z00_1041)
{ /* ./Llib/pregexp.scm 498 */
{ /* ./Llib/pregexp.scm 499 */
unsigned char BgL_cz00_1042;
{ /* ./Llib/pregexp.scm 499 */
int BgL_auxz00_4596;
BgL_auxz00_4596 = 
CINT(BgL_iz00_1014); 
BgL_cz00_1042 = 
STRING_REF(BgL_sz00_2999, BgL_auxz00_4596); } 
{ /* ./Llib/pregexp.scm 500 */
bool_t BgL_test2372z00_1043;
{ /* ./Llib/pregexp.scm 500 */
obj_t BgL_czc3zc3_1045;
{ /* ./Llib/pregexp.scm 500 */
bool_t BgL_testz00_4599;
{ /* ./Llib/pregexp.scm 500 */
obj_t BgL_auxz00_4600;
BgL_auxz00_4600 = 
CELL_REF(BgL_casezd2sensitivezf3z21_2997); 
BgL_testz00_4599 = 
CBOOL(BgL_auxz00_4600); } 
if(BgL_testz00_4599)
{ /* ./Llib/pregexp.scm 500 */
BgL_czc3zc3_1045 = BGl_charzc3zd3zf3zd2envz31zz__r4_characters_6_6z00; }  else 
{ /* ./Llib/pregexp.scm 500 */
BgL_czc3zc3_1045 = BGl_charzd2cizc3zd3zf3zd2envze3zz__r4_characters_6_6z00; } } 
{ /* ./Llib/pregexp.scm 501 */
obj_t BgL__andtest_1051z00_1046;
{ /* ./Llib/pregexp.scm 501 */
obj_t BgL_arg2383z00_1048;
{ /* ./Llib/pregexp.scm 501 */
obj_t BgL_auxz00_4602;
BgL_auxz00_4602 = 
CDR(BgL_rez00_1013); 
BgL_arg2383z00_1048 = 
CAR(BgL_auxz00_4602); } 
BgL__andtest_1051z00_1046 = 
PROCEDURE_ENTRY(BgL_czc3zc3_1045)(BgL_czc3zc3_1045, BgL_arg2383z00_1048, 
BCHAR(BgL_cz00_1042), BEOA); } 
if(
CBOOL(BgL__andtest_1051z00_1046))
{ /* ./Llib/pregexp.scm 502 */
obj_t BgL_arg2379z00_1047;
{ /* ./Llib/pregexp.scm 502 */
obj_t BgL_auxz00_4610;
{ /* ./Llib/pregexp.scm 502 */
obj_t BgL_auxz00_4611;
BgL_auxz00_4611 = 
CDR(BgL_rez00_1013); 
BgL_auxz00_4610 = 
CDR(BgL_auxz00_4611); } 
BgL_arg2379z00_1047 = 
CAR(BgL_auxz00_4610); } 
{ /* ./Llib/pregexp.scm 502 */
obj_t BgL_auxz00_4615;
BgL_auxz00_4615 = 
PROCEDURE_ENTRY(BgL_czc3zc3_1045)(BgL_czc3zc3_1045, 
BCHAR(BgL_cz00_1042), BgL_arg2379z00_1047, BEOA); 
BgL_test2372z00_1043 = 
CBOOL(BgL_auxz00_4615); } }  else 
{ /* ./Llib/pregexp.scm 501 */
BgL_test2372z00_1043 = ((bool_t)0); } } } 
if(BgL_test2372z00_1043)
{ /* ./Llib/pregexp.scm 503 */
long BgL_arg2374z00_1044;
{ /* ./Llib/pregexp.scm 503 */
long BgL_auxz00_4621;
BgL_auxz00_4621 = 
(long)CINT(BgL_iz00_1014); 
BgL_arg2374z00_1044 = 
(BgL_auxz00_4621+((long)1)); } 
return 
PROCEDURE_ENTRY(BgL_skz00_1016)(BgL_skz00_1016, 
BINT(BgL_arg2374z00_1044), BgL_backrefsz00_1015, BEOA);}  else 
{ /* ./Llib/pregexp.scm 500 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);} } } }  else 
{ /* ./Llib/pregexp.scm 498 */
if(
PAIRP(BgL_rez00_1013))
{ /* ./Llib/pregexp.scm 504 */
{ /* ./Llib/pregexp.scm 505 */
obj_t BgL_casezd2valuezd2_1050;
BgL_casezd2valuezd2_1050 = 
CAR(BgL_rez00_1013); 
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1050, BGl_keyword4521z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 507 */
bool_t BgL_test2389z00_1052;
{ /* ./Llib/pregexp.scm 507 */
long BgL_n1z00_2516;long BgL_n2z00_2517;
BgL_n1z00_2516 = 
(long)CINT(BgL_iz00_1014); 
{ /* ./Llib/pregexp.scm 507 */
obj_t BgL_auxz00_4635;
BgL_auxz00_4635 = 
CELL_REF(BgL_nz00_2996); 
BgL_n2z00_2517 = 
(long)CINT(BgL_auxz00_4635); } 
BgL_test2389z00_1052 = 
(BgL_n1z00_2516>=BgL_n2z00_2517); } 
if(BgL_test2389z00_1052)
{ /* ./Llib/pregexp.scm 507 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 507 */
obj_t BgL_list2392z00_1053;
BgL_list2392z00_1053 = 
MAKE_PAIR(BGl_keyword4521z00zz__pregexpz00, BNIL); 
{ /* ./Llib/pregexp.scm 507 */
obj_t BgL_msgz00_2518;
BgL_msgz00_2518 = BGl_symbol4535z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 507 */
obj_t BgL_arg1084z00_2521;
BgL_arg1084z00_2521 = 
CAR(BgL_list2392z00_1053); 
FAILURE(BGl_string4474z00zz__pregexpz00,BgL_msgz00_2518,BgL_arg1084z00_2521);} } } }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1050, BGl_keyword4519z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 509 */
bool_t BgL_test2396z00_1055;
{ /* ./Llib/pregexp.scm 509 */
long BgL_n1z00_2528;long BgL_n2z00_2529;
BgL_n1z00_2528 = 
(long)CINT(BgL_iz00_1014); 
{ /* ./Llib/pregexp.scm 509 */
obj_t BgL_auxz00_4647;
BgL_auxz00_4647 = 
CELL_REF(BgL_nz00_2996); 
BgL_n2z00_2529 = 
(long)CINT(BgL_auxz00_4647); } 
BgL_test2396z00_1055 = 
(BgL_n1z00_2528>=BgL_n2z00_2529); } 
if(BgL_test2396z00_1055)
{ /* ./Llib/pregexp.scm 509 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 510 */
obj_t BgL_arg2399z00_1058;
BgL_arg2399z00_1058 = 
CDR(BgL_rez00_1013); 
return 
BGl_loupzd2onezd2ofzd2charszd2zz__pregexpz00(BgL_fkz00_1017, BgL_skz00_1016, BgL_backrefsz00_1015, BgL_iz00_1014, BgL_sz00_2999, BgL_snz00_2998, BgL_casezd2sensitivezf3z21_2997, BgL_nz00_2996, BgL_arg2399z00_1058);} }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1050, BGl_keyword4481z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 516 */
bool_t BgL_test2417z00_1066;
{ /* ./Llib/pregexp.scm 516 */
long BgL_n1z00_2535;long BgL_n2z00_2536;
BgL_n1z00_2535 = 
(long)CINT(BgL_iz00_1014); 
{ /* ./Llib/pregexp.scm 516 */
obj_t BgL_auxz00_4658;
BgL_auxz00_4658 = 
CELL_REF(BgL_nz00_2996); 
BgL_n2z00_2536 = 
(long)CINT(BgL_auxz00_4658); } 
BgL_test2417z00_1066 = 
(BgL_n1z00_2535>=BgL_n2z00_2536); } 
if(BgL_test2417z00_1066)
{ /* ./Llib/pregexp.scm 516 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 517 */
obj_t BgL_arg2420z00_1067;
{ /* ./Llib/pregexp.scm 517 */
obj_t BgL_auxz00_4664;
BgL_auxz00_4664 = 
CDR(BgL_rez00_1013); 
BgL_arg2420z00_1067 = 
CAR(BgL_auxz00_4664); } 
{ /* ./Llib/pregexp.scm 518 */
obj_t BgL_zc3anonymousza32425ze3z83_2961;obj_t BgL_zc3anonymousza32427ze3z83_2960;
{ 
int BgL_auxz00_4669;int BgL_auxz00_4667;
BgL_auxz00_4669 = 
(int)(((long)1)); 
BgL_auxz00_4667 = 
(int)(((long)2)); 
BgL_zc3anonymousza32425ze3z83_2961 = 
make_fx_procedure(BGl_zc3anonymousza32425ze3z83zz__pregexpz00, BgL_auxz00_4667, BgL_auxz00_4669); } 
{ 
int BgL_auxz00_4674;int BgL_auxz00_4672;
BgL_auxz00_4674 = 
(int)(((long)3)); 
BgL_auxz00_4672 = 
(int)(((long)0)); 
BgL_zc3anonymousza32427ze3z83_2960 = 
make_fx_procedure(BGl_zc3anonymousza32427ze3z83zz__pregexpz00, BgL_auxz00_4672, BgL_auxz00_4674); } 
{ /* ./Llib/pregexp.scm 518 */
int BgL_auxz00_4677;
BgL_auxz00_4677 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32425ze3z83_2961, BgL_auxz00_4677, BgL_fkz00_1017); } 
{ /* ./Llib/pregexp.scm 518 */
int BgL_auxz00_4680;
BgL_auxz00_4680 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32427ze3z83_2960, BgL_auxz00_4680, BgL_iz00_1014); } 
{ /* ./Llib/pregexp.scm 518 */
int BgL_auxz00_4683;
BgL_auxz00_4683 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32427ze3z83_2960, BgL_auxz00_4683, BgL_skz00_1016); } 
{ /* ./Llib/pregexp.scm 518 */
int BgL_auxz00_4686;
BgL_auxz00_4686 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32427ze3z83_2960, BgL_auxz00_4686, BgL_backrefsz00_1015); } 
{ 
obj_t BgL_fkz00_4691;obj_t BgL_skz00_4690;obj_t BgL_rez00_4689;
BgL_rez00_4689 = BgL_arg2420z00_1067; 
BgL_skz00_4690 = BgL_zc3anonymousza32425ze3z83_2961; 
BgL_fkz00_4691 = BgL_zc3anonymousza32427ze3z83_2960; 
BgL_fkz00_1017 = BgL_fkz00_4691; 
BgL_skz00_1016 = BgL_skz00_4690; 
BgL_rez00_1013 = BgL_rez00_4689; 
goto BGl_subz00zz__pregexpz00;} } } }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1050, BGl_keyword4476z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 521 */
obj_t BgL_arg2435z00_1082;
BgL_arg2435z00_1082 = 
CDR(BgL_rez00_1013); 
return 
BGl_loupzd2seqzd2zz__pregexpz00(BgL_skz00_1016, BgL_fkz00_1017, BgL_sz00_2999, BgL_snz00_2998, BgL_casezd2sensitivezf3z21_2997, BgL_nz00_2996, BgL_arg2435z00_1082, BgL_iz00_1014, BgL_backrefsz00_1015);}  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1050, BGl_keyword4475z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 528 */
obj_t BgL_arg2453z00_1094;
BgL_arg2453z00_1094 = 
CDR(BgL_rez00_1013); 
return 
BGl_loupzd2orzd2zz__pregexpz00(BgL_fkz00_1017, BgL_backrefsz00_1015, BgL_iz00_1014, BgL_skz00_1016, BgL_sz00_2999, BgL_snz00_2998, BgL_casezd2sensitivezf3z21_2997, BgL_nz00_2996, BgL_arg2453z00_1094);}  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1050, BGl_keyword4482z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 536 */
obj_t BgL_backrefz00_1109;
{ /* ./Llib/pregexp.scm 536 */
obj_t BgL_auxz00_4702;
{ /* ./Llib/pregexp.scm 536 */
obj_t BgL_auxz00_4703;
BgL_auxz00_4703 = 
CDR(BgL_rez00_1013); 
BgL_auxz00_4702 = 
CAR(BgL_auxz00_4703); } 
BgL_backrefz00_1109 = 
BGl_pregexpzd2listzd2refz00zz__pregexpz00(BgL_backrefsz00_1015, BgL_auxz00_4702); } 
if(
CBOOL(BgL_backrefz00_1109))
{ /* ./Llib/pregexp.scm 539 */
obj_t BgL_arg2478z00_1110;
{ /* ./Llib/pregexp.scm 539 */
obj_t BgL_arg2482z00_1112;obj_t BgL_arg2483z00_1113;
BgL_arg2482z00_1112 = 
CAR(BgL_backrefz00_1109); 
BgL_arg2483z00_1113 = 
CDR(BgL_backrefz00_1109); 
{ /* ./Llib/pregexp.scm 539 */
int BgL_auxz00_4713;int BgL_auxz00_4711;
BgL_auxz00_4713 = 
CINT(BgL_arg2483z00_1113); 
BgL_auxz00_4711 = 
CINT(BgL_arg2482z00_1112); 
BgL_arg2478z00_1110 = 
c_substring(BgL_sz00_2999, BgL_auxz00_4711, BgL_auxz00_4713); } } 
{ /* ./Llib/pregexp.scm 538 */
obj_t BgL_nz00_2608;
BgL_nz00_2608 = 
CELL_REF(BgL_nz00_2996); 
{ /* ./Llib/pregexp.scm 538 */
int BgL_n1z00_2610;
BgL_n1z00_2610 = 
STRING_LENGTH(BgL_arg2478z00_1110); 
{ /* ./Llib/pregexp.scm 538 */
bool_t BgL_testz00_4717;
{ /* ./Llib/pregexp.scm 538 */
long BgL_auxz00_4720;long BgL_auxz00_4718;
BgL_auxz00_4720 = 
(long)CINT(BgL_nz00_2608); 
BgL_auxz00_4718 = 
(long)(BgL_n1z00_2610); 
BgL_testz00_4717 = 
(BgL_auxz00_4718>BgL_auxz00_4720); } 
if(BgL_testz00_4717)
{ /* ./Llib/pregexp.scm 538 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 538 */
return 
BGl_loopz00zz__pregexpz00(BgL_backrefsz00_1015, BgL_skz00_1016, BgL_fkz00_1017, BgL_sz00_2999, BgL_arg2478z00_1110, BgL_nz00_2608, BgL_n1z00_2610, ((long)0), BgL_iz00_1014);} } } } }  else 
{ /* ./Llib/pregexp.scm 537 */
return 
PROCEDURE_ENTRY(BgL_skz00_1016)(BgL_skz00_1016, BgL_iz00_1014, BgL_backrefsz00_1015, BEOA);} }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1050, BGl_keyword4494z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 543 */
obj_t BgL_subzd2backrefzd2_1119;
BgL_subzd2backrefzd2_1119 = 
MAKE_PAIR(BgL_iz00_1014, BgL_iz00_1014); 
{ /* ./Llib/pregexp.scm 543 */
obj_t BgL_backrefsz00_1120;
{ /* ./Llib/pregexp.scm 544 */
obj_t BgL_arg2504z00_1127;
{ /* ./Llib/pregexp.scm 544 */
obj_t BgL_list2507z00_1128;
BgL_list2507z00_1128 = 
MAKE_PAIR(BgL_subzd2backrefzd2_1119, BNIL); 
BgL_arg2504z00_1127 = BgL_list2507z00_1128; } 
BgL_backrefsz00_1120 = 
bgl_append2(BgL_backrefsz00_1015, BgL_arg2504z00_1127); } 
{ /* ./Llib/pregexp.scm 544 */

{ /* ./Llib/pregexp.scm 545 */
obj_t BgL_arg2496z00_1121;
{ /* ./Llib/pregexp.scm 545 */
obj_t BgL_auxz00_4733;
BgL_auxz00_4733 = 
CDR(BgL_rez00_1013); 
BgL_arg2496z00_1121 = 
CAR(BgL_auxz00_4733); } 
{ /* ./Llib/pregexp.scm 547 */
obj_t BgL_zc3anonymousza32500ze3z83_2962;
{ 
int BgL_auxz00_4738;int BgL_auxz00_4736;
BgL_auxz00_4738 = 
(int)(((long)2)); 
BgL_auxz00_4736 = 
(int)(((long)2)); 
BgL_zc3anonymousza32500ze3z83_2962 = 
make_fx_procedure(BGl_zc3anonymousza32500ze3z83zz__pregexpz00, BgL_auxz00_4736, BgL_auxz00_4738); } 
{ /* ./Llib/pregexp.scm 547 */
int BgL_auxz00_4741;
BgL_auxz00_4741 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32500ze3z83_2962, BgL_auxz00_4741, BgL_subzd2backrefzd2_1119); } 
{ /* ./Llib/pregexp.scm 547 */
int BgL_auxz00_4744;
BgL_auxz00_4744 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32500ze3z83_2962, BgL_auxz00_4744, BgL_skz00_1016); } 
{ 
obj_t BgL_skz00_4749;obj_t BgL_backrefsz00_4748;obj_t BgL_rez00_4747;
BgL_rez00_4747 = BgL_arg2496z00_1121; 
BgL_backrefsz00_4748 = BgL_backrefsz00_1120; 
BgL_skz00_4749 = BgL_zc3anonymousza32500ze3z83_2962; 
BgL_skz00_1016 = BgL_skz00_4749; 
BgL_backrefsz00_1015 = BgL_backrefsz00_4748; 
BgL_rez00_1013 = BgL_rez00_4747; 
goto BGl_subz00zz__pregexpz00;} } } } } }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1050, BGl_keyword4499z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 550 */
obj_t BgL_foundzd2itzf3z21_1130;
{ /* ./Llib/pregexp.scm 551 */
obj_t BgL_arg2514z00_1131;
{ /* ./Llib/pregexp.scm 551 */
obj_t BgL_auxz00_4752;
BgL_auxz00_4752 = 
CDR(BgL_rez00_1013); 
BgL_arg2514z00_1131 = 
CAR(BgL_auxz00_4752); } 
BgL_foundzd2itzf3z21_1130 = 
BGl_subz00zz__pregexpz00(BgL_sz00_2999, BgL_snz00_2998, BgL_casezd2sensitivezf3z21_2997, BgL_nz00_2996, BgL_arg2514z00_1131, BgL_iz00_1014, BgL_backrefsz00_1015, BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_proc4536z00zz__pregexpz00); } 
if(
CBOOL(BgL_foundzd2itzf3z21_1130))
{ /* ./Llib/pregexp.scm 553 */
return 
PROCEDURE_ENTRY(BgL_skz00_1016)(BgL_skz00_1016, BgL_iz00_1014, BgL_backrefsz00_1015, BEOA);}  else 
{ /* ./Llib/pregexp.scm 553 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);} }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1050, BGl_keyword4501z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 555 */
obj_t BgL_foundzd2itzf3z21_1136;
{ /* ./Llib/pregexp.scm 556 */
obj_t BgL_arg2523z00_1137;
{ /* ./Llib/pregexp.scm 556 */
obj_t BgL_auxz00_4764;
BgL_auxz00_4764 = 
CDR(BgL_rez00_1013); 
BgL_arg2523z00_1137 = 
CAR(BgL_auxz00_4764); } 
BgL_foundzd2itzf3z21_1136 = 
BGl_subz00zz__pregexpz00(BgL_sz00_2999, BgL_snz00_2998, BgL_casezd2sensitivezf3z21_2997, BgL_nz00_2996, BgL_arg2523z00_1137, BgL_iz00_1014, BgL_backrefsz00_1015, BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_proc4537z00zz__pregexpz00); } 
if(
CBOOL(BgL_foundzd2itzf3z21_1136))
{ /* ./Llib/pregexp.scm 558 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 558 */
return 
PROCEDURE_ENTRY(BgL_skz00_1016)(BgL_skz00_1016, BgL_iz00_1014, BgL_backrefsz00_1015, BEOA);} }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1050, BGl_keyword4505z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 560 */
obj_t BgL_nzd2actualzd2_1142;obj_t BgL_snzd2actualzd2_1143;
BgL_nzd2actualzd2_1142 = 
CELL_REF(BgL_nz00_2996); 
BgL_snzd2actualzd2_1143 = 
CELL_REF(BgL_snz00_2998); 
CELL_SET(BgL_nz00_2996, BgL_iz00_1014); 
CELL_SET(BgL_snz00_2998, BgL_iz00_1014); 
{ /* ./Llib/pregexp.scm 562 */
obj_t BgL_foundzd2itzf3z21_1144;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_arg2532z00_1145;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_arg2537z00_1148;obj_t BgL_arg2538z00_1149;obj_t BgL_arg2539z00_1150;obj_t BgL_arg2540z00_1151;
BgL_arg2537z00_1148 = BGl_keyword4476z00zz__pregexpz00; 
BgL_arg2538z00_1149 = BGl_list4538z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 564 */
obj_t BgL_auxz00_4776;
BgL_auxz00_4776 = 
CDR(BgL_rez00_1013); 
BgL_arg2539z00_1150 = 
CAR(BgL_auxz00_4776); } 
BgL_arg2540z00_1151 = BGl_keyword4479z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_list2542z00_1152;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_arg2544z00_1153;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_arg2547z00_1154;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_arg2550z00_1155;
BgL_arg2550z00_1155 = 
MAKE_PAIR(BgL_arg2540z00_1151, BNIL); 
BgL_arg2547z00_1154 = 
MAKE_PAIR(BgL_arg2539z00_1150, BgL_arg2550z00_1155); } 
BgL_arg2544z00_1153 = 
MAKE_PAIR(BgL_arg2538z00_1149, BgL_arg2547z00_1154); } 
BgL_list2542z00_1152 = 
MAKE_PAIR(BgL_arg2537z00_1148, BgL_arg2544z00_1153); } 
BgL_arg2532z00_1145 = BgL_list2542z00_1152; } } 
BgL_foundzd2itzf3z21_1144 = 
BGl_subz00zz__pregexpz00(BgL_sz00_2999, BgL_snz00_2998, BgL_casezd2sensitivezf3z21_2997, BgL_nz00_2996, BgL_arg2532z00_1145, 
BINT(((long)0)), BgL_backrefsz00_1015, BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_proc4542z00zz__pregexpz00); } 
CELL_SET(BgL_nz00_2996, BgL_nzd2actualzd2_1142); 
CELL_SET(BgL_snz00_2998, BgL_snzd2actualzd2_1143); 
if(
CBOOL(BgL_foundzd2itzf3z21_1144))
{ /* ./Llib/pregexp.scm 567 */
return 
PROCEDURE_ENTRY(BgL_skz00_1016)(BgL_skz00_1016, BgL_iz00_1014, BgL_backrefsz00_1015, BEOA);}  else 
{ /* ./Llib/pregexp.scm 567 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);} } }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1050, BGl_keyword4507z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 569 */
obj_t BgL_nzd2actualzd2_1159;obj_t BgL_snzd2actualzd2_1160;
BgL_nzd2actualzd2_1159 = 
CELL_REF(BgL_nz00_2996); 
BgL_snzd2actualzd2_1160 = 
CELL_REF(BgL_snz00_2998); 
CELL_SET(BgL_nz00_2996, BgL_iz00_1014); 
CELL_SET(BgL_snz00_2998, BgL_iz00_1014); 
{ /* ./Llib/pregexp.scm 571 */
obj_t BgL_foundzd2itzf3z21_1161;
{ /* ./Llib/pregexp.scm 572 */
obj_t BgL_arg2559z00_1162;
{ /* ./Llib/pregexp.scm 572 */
obj_t BgL_arg2564z00_1165;obj_t BgL_arg2565z00_1166;obj_t BgL_arg2566z00_1167;obj_t BgL_arg2567z00_1168;
BgL_arg2564z00_1165 = BGl_keyword4476z00zz__pregexpz00; 
BgL_arg2565z00_1166 = BGl_list4538z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 573 */
obj_t BgL_auxz00_4793;
BgL_auxz00_4793 = 
CDR(BgL_rez00_1013); 
BgL_arg2566z00_1167 = 
CAR(BgL_auxz00_4793); } 
BgL_arg2567z00_1168 = BGl_keyword4479z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 572 */
obj_t BgL_list2569z00_1169;
{ /* ./Llib/pregexp.scm 572 */
obj_t BgL_arg2571z00_1170;
{ /* ./Llib/pregexp.scm 572 */
obj_t BgL_arg2574z00_1171;
{ /* ./Llib/pregexp.scm 572 */
obj_t BgL_arg2577z00_1172;
BgL_arg2577z00_1172 = 
MAKE_PAIR(BgL_arg2567z00_1168, BNIL); 
BgL_arg2574z00_1171 = 
MAKE_PAIR(BgL_arg2566z00_1167, BgL_arg2577z00_1172); } 
BgL_arg2571z00_1170 = 
MAKE_PAIR(BgL_arg2565z00_1166, BgL_arg2574z00_1171); } 
BgL_list2569z00_1169 = 
MAKE_PAIR(BgL_arg2564z00_1165, BgL_arg2571z00_1170); } 
BgL_arg2559z00_1162 = BgL_list2569z00_1169; } } 
BgL_foundzd2itzf3z21_1161 = 
BGl_subz00zz__pregexpz00(BgL_sz00_2999, BgL_snz00_2998, BgL_casezd2sensitivezf3z21_2997, BgL_nz00_2996, BgL_arg2559z00_1162, 
BINT(((long)0)), BgL_backrefsz00_1015, BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_proc4543z00zz__pregexpz00); } 
CELL_SET(BgL_nz00_2996, BgL_nzd2actualzd2_1159); 
CELL_SET(BgL_snz00_2998, BgL_snzd2actualzd2_1160); 
if(
CBOOL(BgL_foundzd2itzf3z21_1161))
{ /* ./Llib/pregexp.scm 576 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 576 */
return 
PROCEDURE_ENTRY(BgL_skz00_1016)(BgL_skz00_1016, BgL_iz00_1014, BgL_backrefsz00_1015, BEOA);} } }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1050, BGl_keyword4503z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 578 */
obj_t BgL_foundzd2itzf3z21_1176;
{ /* ./Llib/pregexp.scm 578 */
obj_t BgL_arg2591z00_1179;
{ /* ./Llib/pregexp.scm 578 */
obj_t BgL_auxz00_4810;
BgL_auxz00_4810 = 
CDR(BgL_rez00_1013); 
BgL_arg2591z00_1179 = 
CAR(BgL_auxz00_4810); } 
BgL_foundzd2itzf3z21_1176 = 
BGl_subz00zz__pregexpz00(BgL_sz00_2999, BgL_snz00_2998, BgL_casezd2sensitivezf3z21_2997, BgL_nz00_2996, BgL_arg2591z00_1179, BgL_iz00_1014, BgL_backrefsz00_1015, BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_proc4544z00zz__pregexpz00); } 
if(
CBOOL(BgL_foundzd2itzf3z21_1176))
{ /* ./Llib/pregexp.scm 581 */
obj_t BgL_arg2584z00_1177;obj_t BgL_arg2585z00_1178;
BgL_arg2584z00_1177 = 
CAR(BgL_foundzd2itzf3z21_1176); 
{ /* ./Llib/pregexp.scm 581 */
obj_t BgL_auxz00_4817;
BgL_auxz00_4817 = 
CDR(BgL_foundzd2itzf3z21_1176); 
BgL_arg2585z00_1178 = 
CAR(BgL_auxz00_4817); } 
return 
PROCEDURE_ENTRY(BgL_skz00_1016)(BgL_skz00_1016, BgL_arg2584z00_1177, BgL_arg2585z00_1178, BEOA);}  else 
{ /* ./Llib/pregexp.scm 580 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);} }  else 
{ /* ./Llib/pregexp.scm 505 */
bool_t BgL_testz00_4824;
{ /* ./Llib/pregexp.scm 505 */
obj_t BgL_auxz00_4825;
BgL_auxz00_4825 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_casezd2valuezd2_1050, BGl_list4545z00zz__pregexpz00); 
BgL_testz00_4824 = 
CBOOL(BgL_auxz00_4825); } 
if(BgL_testz00_4824)
{ /* ./Llib/pregexp.scm 584 */
obj_t BgL_oldz00_1184;
BgL_oldz00_1184 = 
CELL_REF(BgL_casezd2sensitivezf3z21_2997); 
{ /* ./Llib/pregexp.scm 585 */
obj_t BgL_auxz00_3008;
{ /* ./Llib/pregexp.scm 586 */
bool_t BgL_auxz00_4828;
BgL_auxz00_4828 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1050, BGl_keyword4495z00zz__pregexpz00); 
BgL_auxz00_3008 = 
BBOOL(BgL_auxz00_4828); } 
CELL_SET(BgL_casezd2sensitivezf3z21_2997, BgL_auxz00_3008); } 
{ /* ./Llib/pregexp.scm 587 */
obj_t BgL_arg2603z00_1187;
{ /* ./Llib/pregexp.scm 587 */
obj_t BgL_auxz00_4831;
BgL_auxz00_4831 = 
CDR(BgL_rez00_1013); 
BgL_arg2603z00_1187 = 
CAR(BgL_auxz00_4831); } 
{ /* ./Llib/pregexp.scm 589 */
obj_t BgL_zc3anonymousza32608ze3z83_2969;obj_t BgL_zc3anonymousza32610ze3z83_2968;
{ 
int BgL_auxz00_4836;int BgL_auxz00_4834;
BgL_auxz00_4836 = 
(int)(((long)3)); 
BgL_auxz00_4834 = 
(int)(((long)2)); 
BgL_zc3anonymousza32608ze3z83_2969 = 
make_fx_procedure(BGl_zc3anonymousza32608ze3z83zz__pregexpz00, BgL_auxz00_4834, BgL_auxz00_4836); } 
{ 
int BgL_auxz00_4841;int BgL_auxz00_4839;
BgL_auxz00_4841 = 
(int)(((long)3)); 
BgL_auxz00_4839 = 
(int)(((long)0)); 
BgL_zc3anonymousza32610ze3z83_2968 = 
make_fx_procedure(BGl_zc3anonymousza32610ze3z83zz__pregexpz00, BgL_auxz00_4839, BgL_auxz00_4841); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_4844;
BgL_auxz00_4844 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32608ze3z83_2969, BgL_auxz00_4844, BgL_oldz00_1184); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_4847;
BgL_auxz00_4847 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32608ze3z83_2969, BgL_auxz00_4847, BgL_casezd2sensitivezf3z21_2997); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_4850;
BgL_auxz00_4850 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32608ze3z83_2969, BgL_auxz00_4850, BgL_skz00_1016); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_4853;
BgL_auxz00_4853 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32610ze3z83_2968, BgL_auxz00_4853, BgL_oldz00_1184); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_4856;
BgL_auxz00_4856 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32610ze3z83_2968, BgL_auxz00_4856, BgL_casezd2sensitivezf3z21_2997); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_4859;
BgL_auxz00_4859 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32610ze3z83_2968, BgL_auxz00_4859, BgL_fkz00_1017); } 
{ 
obj_t BgL_fkz00_4864;obj_t BgL_skz00_4863;obj_t BgL_rez00_4862;
BgL_rez00_4862 = BgL_arg2603z00_1187; 
BgL_skz00_4863 = BgL_zc3anonymousza32608ze3z83_2969; 
BgL_fkz00_4864 = BgL_zc3anonymousza32610ze3z83_2968; 
BgL_fkz00_1017 = BgL_fkz00_4864; 
BgL_skz00_1016 = BgL_skz00_4863; 
BgL_rez00_1013 = BgL_rez00_4862; 
goto BGl_subz00zz__pregexpz00;} } } }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1050, BGl_keyword4509z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 595 */
bool_t BgL_maximalzf3zf3_1197;
{ /* ./Llib/pregexp.scm 595 */
bool_t BgL_testz00_4867;
{ /* ./Llib/pregexp.scm 595 */
obj_t BgL_auxz00_4868;
{ /* ./Llib/pregexp.scm 595 */
obj_t BgL_auxz00_4869;
BgL_auxz00_4869 = 
CDR(BgL_rez00_1013); 
BgL_auxz00_4868 = 
CAR(BgL_auxz00_4869); } 
BgL_testz00_4867 = 
CBOOL(BgL_auxz00_4868); } 
if(BgL_testz00_4867)
{ /* ./Llib/pregexp.scm 595 */
BgL_maximalzf3zf3_1197 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 595 */
BgL_maximalzf3zf3_1197 = ((bool_t)1); } } 
{ /* ./Llib/pregexp.scm 595 */
obj_t BgL_pz00_1198;
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_auxz00_4873;
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_auxz00_4874;
BgL_auxz00_4874 = 
CDR(BgL_rez00_1013); 
BgL_auxz00_4873 = 
CDR(BgL_auxz00_4874); } 
BgL_pz00_1198 = 
CAR(BgL_auxz00_4873); } 
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_qz00_1199;
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_auxz00_4878;
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_auxz00_4879;
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_auxz00_4880;
BgL_auxz00_4880 = 
CDR(BgL_rez00_1013); 
BgL_auxz00_4879 = 
CDR(BgL_auxz00_4880); } 
BgL_auxz00_4878 = 
CDR(BgL_auxz00_4879); } 
BgL_qz00_1199 = 
CAR(BgL_auxz00_4878); } 
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_rez00_1200;
{ /* ./Llib/pregexp.scm 597 */
obj_t BgL_auxz00_4885;
{ /* ./Llib/pregexp.scm 597 */
obj_t BgL_auxz00_4886;
{ /* ./Llib/pregexp.scm 597 */
obj_t BgL_auxz00_4887;
{ /* ./Llib/pregexp.scm 597 */
obj_t BgL_auxz00_4888;
BgL_auxz00_4888 = 
CDR(BgL_rez00_1013); 
BgL_auxz00_4887 = 
CDR(BgL_auxz00_4888); } 
BgL_auxz00_4886 = 
CDR(BgL_auxz00_4887); } 
BgL_auxz00_4885 = 
CDR(BgL_auxz00_4886); } 
BgL_rez00_1200 = 
CAR(BgL_auxz00_4885); } 
{ /* ./Llib/pregexp.scm 597 */
bool_t BgL_subpatzf3zf3_1201;
if(
PAIRP(BgL_rez00_1200))
{ /* ./Llib/pregexp.scm 598 */
BgL_subpatzf3zf3_1201 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(
CAR(BgL_rez00_1200), BGl_keyword4494z00zz__pregexpz00); }  else 
{ /* ./Llib/pregexp.scm 598 */
BgL_subpatzf3zf3_1201 = ((bool_t)0); } 
{ /* ./Llib/pregexp.scm 598 */

return 
BGl_loupzd2pzd2zz__pregexpz00(BgL_fkz00_1017, BgL_backrefsz00_1015, BgL_rez00_1200, BgL_qz00_1199, BgL_pz00_1198, 
BBOOL(BgL_maximalzf3zf3_1197), BgL_skz00_1016, 
BBOOL(BgL_subpatzf3zf3_1201), BgL_sz00_2999, BgL_snz00_2998, BgL_casezd2sensitivezf3z21_2997, BgL_nz00_2996, ((long)0), BgL_iz00_1014, BGl_symbol4546z00zz__pregexpz00);} } } } } }  else 
{ /* ./Llib/pregexp.scm 627 */
obj_t BgL_msgz00_2729;
BgL_msgz00_2729 = BGl_symbol4535z00zz__pregexpz00; 
FAILURE(BGl_string4474z00zz__pregexpz00,BgL_msgz00_2729,BUNSPEC);} } } } } } } } } } } } } } } }  else 
{ /* ./Llib/pregexp.scm 628 */
bool_t BgL_test2690z00_1247;
{ /* ./Llib/pregexp.scm 628 */
long BgL_n1z00_2739;long BgL_n2z00_2740;
BgL_n1z00_2739 = 
(long)CINT(BgL_iz00_1014); 
{ /* ./Llib/pregexp.scm 628 */
obj_t BgL_auxz00_4903;
BgL_auxz00_4903 = 
CELL_REF(BgL_nz00_2996); 
BgL_n2z00_2740 = 
(long)CINT(BgL_auxz00_4903); } 
BgL_test2690z00_1247 = 
(BgL_n1z00_2739>=BgL_n2z00_2740); } 
if(BgL_test2690z00_1247)
{ /* ./Llib/pregexp.scm 628 */
return 
PROCEDURE_ENTRY(BgL_fkz00_1017)(BgL_fkz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 628 */
{ /* ./Llib/pregexp.scm 629 */
obj_t BgL_msgz00_2741;
BgL_msgz00_2741 = BGl_symbol4535z00zz__pregexpz00; 
FAILURE(BGl_string4474z00zz__pregexpz00,BgL_msgz00_2741,BUNSPEC);} } } } } } } } } } } } 
}



/* loup-seq */
obj_t BGl_loupzd2seqzd2zz__pregexpz00(obj_t BgL_skz00_3014, obj_t BgL_fkz00_3013, obj_t BgL_sz00_3012, obj_t BgL_snz00_3011, obj_t BgL_casezd2sensitivezf3z21_3010, obj_t BgL_nz00_3009, obj_t BgL_resz00_2546, obj_t BgL_iz00_2547, obj_t BgL_backrefsz00_2548)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 521 */
if(
NULLP(BgL_resz00_2546))
{ /* ./Llib/pregexp.scm 521 */
return 
PROCEDURE_ENTRY(BgL_skz00_3014)(BgL_skz00_3014, BgL_iz00_2547, BgL_backrefsz00_2548, BEOA);}  else 
{ /* ./Llib/pregexp.scm 521 */
obj_t BgL_arg2441z00_2556;
BgL_arg2441z00_2556 = 
CAR(BgL_resz00_2546); 
{ /* ./Llib/pregexp.scm 521 */
obj_t BgL_zc3anonymousza32445ze3z83_2948;
{ 
int BgL_auxz00_4917;int BgL_auxz00_4915;
BgL_auxz00_4917 = 
(int)(((long)7)); 
BgL_auxz00_4915 = 
(int)(((long)2)); 
BgL_zc3anonymousza32445ze3z83_2948 = 
make_fx_procedure(BGl_zc3anonymousza32445ze3z83zz__pregexpz00, BgL_auxz00_4915, BgL_auxz00_4917); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_4920;
BgL_auxz00_4920 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32445ze3z83_2948, BgL_auxz00_4920, BgL_nz00_3009); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_4923;
BgL_auxz00_4923 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32445ze3z83_2948, BgL_auxz00_4923, BgL_casezd2sensitivezf3z21_3010); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_4926;
BgL_auxz00_4926 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32445ze3z83_2948, BgL_auxz00_4926, BgL_snz00_3011); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_4929;
BgL_auxz00_4929 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32445ze3z83_2948, BgL_auxz00_4929, BgL_sz00_3012); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_4932;
BgL_auxz00_4932 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32445ze3z83_2948, BgL_auxz00_4932, BgL_fkz00_3013); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_4935;
BgL_auxz00_4935 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32445ze3z83_2948, BgL_auxz00_4935, BgL_skz00_3014); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_4938;
BgL_auxz00_4938 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32445ze3z83_2948, BgL_auxz00_4938, BgL_resz00_2546); } 
return 
BGl_subz00zz__pregexpz00(BgL_sz00_3012, BgL_snz00_3011, BgL_casezd2sensitivezf3z21_3010, BgL_nz00_3009, BgL_arg2441z00_2556, BgL_iz00_2547, BgL_backrefsz00_2548, BgL_zc3anonymousza32445ze3z83_2948, BgL_fkz00_3013);} } } 
}



/* loup-or */
obj_t BGl_loupzd2orzd2zz__pregexpz00(obj_t BgL_fkz00_3022, obj_t BgL_backrefsz00_3021, obj_t BgL_iz00_3020, obj_t BgL_skz00_3019, obj_t BgL_sz00_3018, obj_t BgL_snz00_3017, obj_t BgL_casezd2sensitivezf3z21_3016, obj_t BgL_nz00_3015, obj_t BgL_resz00_1092)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 528 */
if(
NULLP(BgL_resz00_1092))
{ /* ./Llib/pregexp.scm 529 */
return 
PROCEDURE_ENTRY(BgL_fkz00_3022)(BgL_fkz00_3022, BEOA);}  else 
{ /* ./Llib/pregexp.scm 530 */
obj_t BgL_arg2459z00_1096;
BgL_arg2459z00_1096 = 
CAR(BgL_resz00_1092); 
{ /* ./Llib/pregexp.scm 532 */
obj_t BgL_zc3anonymousza32464ze3z83_2951;obj_t BgL_zc3anonymousza32470ze3z83_2950;
{ 
int BgL_auxz00_4949;int BgL_auxz00_4947;
BgL_auxz00_4949 = 
(int)(((long)9)); 
BgL_auxz00_4947 = 
(int)(((long)2)); 
BgL_zc3anonymousza32464ze3z83_2951 = 
make_fx_procedure(BGl_zc3anonymousza32464ze3z83zz__pregexpz00, BgL_auxz00_4947, BgL_auxz00_4949); } 
{ 
int BgL_auxz00_4954;int BgL_auxz00_4952;
BgL_auxz00_4954 = 
(int)(((long)9)); 
BgL_auxz00_4952 = 
(int)(((long)0)); 
BgL_zc3anonymousza32470ze3z83_2950 = 
make_fx_procedure(BGl_zc3anonymousza32470ze3z83zz__pregexpz00, BgL_auxz00_4952, BgL_auxz00_4954); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_4957;
BgL_auxz00_4957 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32464ze3z83_2951, BgL_auxz00_4957, BgL_nz00_3015); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_4960;
BgL_auxz00_4960 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32464ze3z83_2951, BgL_auxz00_4960, BgL_casezd2sensitivezf3z21_3016); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_4963;
BgL_auxz00_4963 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32464ze3z83_2951, BgL_auxz00_4963, BgL_snz00_3017); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_4966;
BgL_auxz00_4966 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32464ze3z83_2951, BgL_auxz00_4966, BgL_sz00_3018); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_4969;
BgL_auxz00_4969 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32464ze3z83_2951, BgL_auxz00_4969, BgL_iz00_3020); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_4972;
BgL_auxz00_4972 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32464ze3z83_2951, BgL_auxz00_4972, BgL_backrefsz00_3021); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_4975;
BgL_auxz00_4975 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32464ze3z83_2951, BgL_auxz00_4975, BgL_fkz00_3022); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_4978;
BgL_auxz00_4978 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_zc3anonymousza32464ze3z83_2951, BgL_auxz00_4978, BgL_skz00_3019); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_4981;
BgL_auxz00_4981 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_zc3anonymousza32464ze3z83_2951, BgL_auxz00_4981, BgL_resz00_1092); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_4984;
BgL_auxz00_4984 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32470ze3z83_2950, BgL_auxz00_4984, BgL_nz00_3015); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_4987;
BgL_auxz00_4987 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32470ze3z83_2950, BgL_auxz00_4987, BgL_casezd2sensitivezf3z21_3016); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_4990;
BgL_auxz00_4990 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32470ze3z83_2950, BgL_auxz00_4990, BgL_snz00_3017); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_4993;
BgL_auxz00_4993 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32470ze3z83_2950, BgL_auxz00_4993, BgL_sz00_3018); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_4996;
BgL_auxz00_4996 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32470ze3z83_2950, BgL_auxz00_4996, BgL_skz00_3019); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_4999;
BgL_auxz00_4999 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32470ze3z83_2950, BgL_auxz00_4999, BgL_iz00_3020); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_5002;
BgL_auxz00_5002 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32470ze3z83_2950, BgL_auxz00_5002, BgL_backrefsz00_3021); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_5005;
BgL_auxz00_5005 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_zc3anonymousza32470ze3z83_2950, BgL_auxz00_5005, BgL_fkz00_3022); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_5008;
BgL_auxz00_5008 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_zc3anonymousza32470ze3z83_2950, BgL_auxz00_5008, BgL_resz00_1092); } 
return 
BGl_subz00zz__pregexpz00(BgL_sz00_3018, BgL_snz00_3017, BgL_casezd2sensitivezf3z21_3016, BgL_nz00_3015, BgL_arg2459z00_1096, BgL_iz00_3020, BgL_backrefsz00_3021, BgL_zc3anonymousza32464ze3z83_2951, BgL_zc3anonymousza32470ze3z83_2950);} } } 
}



/* loop */
obj_t BGl_loopz00zz__pregexpz00(obj_t BgL_backrefsz00_3029, obj_t BgL_skz00_3028, obj_t BgL_fkz00_3027, obj_t BgL_sz00_3026, obj_t BgL_s1z00_3025, obj_t BgL_nz00_3024, int BgL_n1z00_3023, long BgL_jz00_2613, obj_t BgL_kz00_2614)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 391 */
BGl_loopz00zz__pregexpz00:
{ /* ./Llib/pregexp.scm 538 */
bool_t BgL_testz00_5012;
{ /* ./Llib/pregexp.scm 538 */
long BgL_auxz00_5013;
BgL_auxz00_5013 = 
(long)(BgL_n1z00_3023); 
BgL_testz00_5012 = 
(BgL_jz00_2613>=BgL_auxz00_5013); } 
if(BgL_testz00_5012)
{ /* ./Llib/pregexp.scm 538 */
return 
PROCEDURE_ENTRY(BgL_skz00_3028)(BgL_skz00_3028, BgL_kz00_2614, BgL_backrefsz00_3029, BEOA);}  else 
{ /* ./Llib/pregexp.scm 538 */
bool_t BgL_testz00_5018;
{ /* ./Llib/pregexp.scm 538 */
long BgL_auxz00_5021;long BgL_auxz00_5019;
BgL_auxz00_5021 = 
(long)CINT(BgL_nz00_3024); 
BgL_auxz00_5019 = 
(long)CINT(BgL_kz00_2614); 
BgL_testz00_5018 = 
(BgL_auxz00_5019>=BgL_auxz00_5021); } 
if(BgL_testz00_5018)
{ /* ./Llib/pregexp.scm 538 */
return 
PROCEDURE_ENTRY(BgL_fkz00_3027)(BgL_fkz00_3027, BEOA);}  else 
{ /* ./Llib/pregexp.scm 538 */
bool_t BgL_testz00_5026;
{ /* ./Llib/pregexp.scm 538 */
unsigned char BgL_auxz00_5031;unsigned char BgL_auxz00_5027;
{ /* ./Llib/pregexp.scm 538 */
int BgL_auxz00_5032;
BgL_auxz00_5032 = 
CINT(BgL_kz00_2614); 
BgL_auxz00_5031 = 
STRING_REF(BgL_sz00_3026, BgL_auxz00_5032); } 
{ /* ./Llib/pregexp.scm 538 */
int BgL_auxz00_5028;
BgL_auxz00_5028 = 
(int)(BgL_jz00_2613); 
BgL_auxz00_5027 = 
STRING_REF(BgL_s1z00_3025, BgL_auxz00_5028); } 
BgL_testz00_5026 = 
(BgL_auxz00_5027==BgL_auxz00_5031); } 
if(BgL_testz00_5026)
{ /* ./Llib/pregexp.scm 538 */
{ /* ./Llib/pregexp.scm 538 */
long BgL_arg2193z00_2620;long BgL_arg2194z00_2621;
BgL_arg2193z00_2620 = 
(BgL_jz00_2613+((long)1)); 
{ /* ./Llib/pregexp.scm 538 */
long BgL_auxz00_5037;
BgL_auxz00_5037 = 
(long)CINT(BgL_kz00_2614); 
BgL_arg2194z00_2621 = 
(BgL_auxz00_5037+((long)1)); } 
{ 
obj_t BgL_kz00_5041;long BgL_jz00_5040;
BgL_jz00_5040 = BgL_arg2193z00_2620; 
BgL_kz00_5041 = 
BINT(BgL_arg2194z00_2621); 
BgL_kz00_2614 = BgL_kz00_5041; 
BgL_jz00_2613 = BgL_jz00_5040; 
goto BGl_loopz00zz__pregexpz00;} } }  else 
{ /* ./Llib/pregexp.scm 538 */
return 
PROCEDURE_ENTRY(BgL_fkz00_3027)(BgL_fkz00_3027, BEOA);} } } } } 
}



/* loup-p */
obj_t BGl_loupzd2pzd2zz__pregexpz00(obj_t BgL_fkz00_3041, obj_t BgL_backrefsz00_3040, obj_t BgL_rez00_3039, obj_t BgL_qz00_3038, obj_t BgL_pz00_3037, obj_t BgL_maximalzf3zf3_3036, obj_t BgL_skz00_3035, obj_t BgL_subpatzf3zf3_3034, obj_t BgL_sz00_3033, obj_t BgL_snz00_3032, obj_t BgL_casezd2sensitivezf3z21_3031, obj_t BgL_nz00_3030, long BgL_kz00_1202, obj_t BgL_iz00_1203, obj_t BgL_cbackrefsz00_1204)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 599 */
{ /* ./Llib/pregexp.scm 600 */
bool_t BgL_testz00_5045;
{ /* ./Llib/pregexp.scm 600 */
long BgL_auxz00_5046;
BgL_auxz00_5046 = 
(long)CINT(BgL_pz00_3037); 
BgL_testz00_5045 = 
(BgL_kz00_1202<BgL_auxz00_5046); } 
if(BgL_testz00_5045)
{ /* ./Llib/pregexp.scm 603 */
obj_t BgL_zc3anonymousza32618ze3z83_2958;
{ 
int BgL_auxz00_5051;int BgL_auxz00_5049;
BgL_auxz00_5051 = 
(int)(((long)13)); 
BgL_auxz00_5049 = 
(int)(((long)2)); 
BgL_zc3anonymousza32618ze3z83_2958 = 
make_fx_procedure(BGl_zc3anonymousza32618ze3z83zz__pregexpz00, BgL_auxz00_5049, BgL_auxz00_5051); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5054;
BgL_auxz00_5054 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32618ze3z83_2958, BgL_auxz00_5054, BgL_nz00_3030); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5057;
BgL_auxz00_5057 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32618ze3z83_2958, BgL_auxz00_5057, BgL_casezd2sensitivezf3z21_3031); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5060;
BgL_auxz00_5060 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32618ze3z83_2958, BgL_auxz00_5060, BgL_snz00_3032); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5063;
BgL_auxz00_5063 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32618ze3z83_2958, BgL_auxz00_5063, BgL_sz00_3033); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5066;
BgL_auxz00_5066 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32618ze3z83_2958, BgL_auxz00_5066, BgL_subpatzf3zf3_3034); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5069;
BgL_auxz00_5069 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32618ze3z83_2958, BgL_auxz00_5069, BgL_skz00_3035); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5072;
BgL_auxz00_5072 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32618ze3z83_2958, BgL_auxz00_5072, BgL_maximalzf3zf3_3036); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5075;
BgL_auxz00_5075 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_zc3anonymousza32618ze3z83_2958, BgL_auxz00_5075, BgL_pz00_3037); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5078;
BgL_auxz00_5078 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_zc3anonymousza32618ze3z83_2958, BgL_auxz00_5078, BgL_qz00_3038); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5081;
BgL_auxz00_5081 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_zc3anonymousza32618ze3z83_2958, BgL_auxz00_5081, BgL_rez00_3039); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5084;
BgL_auxz00_5084 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_zc3anonymousza32618ze3z83_2958, BgL_auxz00_5084, BgL_backrefsz00_3040); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5087;
BgL_auxz00_5087 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_zc3anonymousza32618ze3z83_2958, BgL_auxz00_5087, BgL_fkz00_3041); } 
{ /* ./Llib/pregexp.scm 603 */
obj_t BgL_auxz00_5092;int BgL_auxz00_5090;
BgL_auxz00_5092 = 
BINT(BgL_kz00_1202); 
BgL_auxz00_5090 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_zc3anonymousza32618ze3z83_2958, BgL_auxz00_5090, BgL_auxz00_5092); } 
return 
BGl_subz00zz__pregexpz00(BgL_sz00_3033, BgL_snz00_3032, BgL_casezd2sensitivezf3z21_3031, BgL_nz00_3030, BgL_rez00_3039, BgL_iz00_1203, BgL_backrefsz00_3040, BgL_zc3anonymousza32618ze3z83_2958, BgL_fkz00_3041);}  else 
{ /* ./Llib/pregexp.scm 605 */
obj_t BgL_qz00_1213;
if(
CBOOL(BgL_qz00_3038))
{ /* ./Llib/pregexp.scm 605 */
long BgL_auxz00_5098;
{ /* ./Llib/pregexp.scm 605 */
long BgL_auxz00_5101;long BgL_auxz00_5099;
BgL_auxz00_5101 = 
(long)CINT(BgL_pz00_3037); 
BgL_auxz00_5099 = 
(long)CINT(BgL_qz00_3038); 
BgL_auxz00_5098 = 
(BgL_auxz00_5099-BgL_auxz00_5101); } 
BgL_qz00_1213 = 
BINT(BgL_auxz00_5098); }  else 
{ /* ./Llib/pregexp.scm 605 */
BgL_qz00_1213 = BFALSE; } 
return 
BGl_loupzd2qzd2zz__pregexpz00(BgL_maximalzf3zf3_3036, BgL_rez00_3039, BgL_qz00_1213, BgL_skz00_3035, BgL_subpatzf3zf3_3034, BgL_backrefsz00_3040, BgL_sz00_3033, BgL_snz00_3032, BgL_casezd2sensitivezf3z21_3031, BgL_nz00_3030, ((long)0), BgL_iz00_1203, BgL_cbackrefsz00_1204);} } } 
}



/* loup-q */
obj_t BGl_loupzd2qzd2zz__pregexpz00(obj_t BgL_maximalzf3zf3_3051, obj_t BgL_rez00_3050, obj_t BgL_qz00_3049, obj_t BgL_skz00_3048, obj_t BgL_subpatzf3zf3_3047, obj_t BgL_backrefsz00_3046, obj_t BgL_sz00_3045, obj_t BgL_snz00_3044, obj_t BgL_casezd2sensitivezf3z21_3043, obj_t BgL_nz00_3042, long BgL_kz00_1214, obj_t BgL_iz00_1215, obj_t BgL_cbackrefsz00_1216)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 606 */
{ /* ./Llib/pregexp.scm 608 */
obj_t BgL_fkz00_2954;
{ 
int BgL_auxz00_5108;int BgL_auxz00_5106;
BgL_auxz00_5108 = 
(int)(((long)5)); 
BgL_auxz00_5106 = 
(int)(((long)0)); 
BgL_fkz00_2954 = 
make_fx_procedure(BGl_fkz00zz__pregexpz00, BgL_auxz00_5106, BgL_auxz00_5108); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_5111;
BgL_auxz00_5111 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_fkz00_2954, BgL_auxz00_5111, BgL_cbackrefsz00_1216); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_5114;
BgL_auxz00_5114 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_fkz00_2954, BgL_auxz00_5114, BgL_backrefsz00_3046); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_5117;
BgL_auxz00_5117 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_fkz00_2954, BgL_auxz00_5117, BgL_subpatzf3zf3_3047); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_5120;
BgL_auxz00_5120 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_fkz00_2954, BgL_auxz00_5120, BgL_skz00_3048); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_5123;
BgL_auxz00_5123 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_fkz00_2954, BgL_auxz00_5123, BgL_iz00_1215); } 
{ /* ./Llib/pregexp.scm 615 */
bool_t BgL_test2624z00_1219;
if(
CBOOL(BgL_qz00_3049))
{ /* ./Llib/pregexp.scm 615 */
long BgL_auxz00_5128;
BgL_auxz00_5128 = 
(long)CINT(BgL_qz00_3049); 
BgL_test2624z00_1219 = 
(BgL_kz00_1214>=BgL_auxz00_5128); }  else 
{ /* ./Llib/pregexp.scm 615 */
BgL_test2624z00_1219 = ((bool_t)0); } 
if(BgL_test2624z00_1219)
{ /* ./Llib/pregexp.scm 615 */
return 
BGl_fkz00zz__pregexpz00(BgL_fkz00_2954);}  else 
{ /* ./Llib/pregexp.scm 615 */
if(
CBOOL(BgL_maximalzf3zf3_3051))
{ /* ./Llib/pregexp.scm 619 */
obj_t BgL_zc3anonymousza32629ze3z83_2955;
{ 
int BgL_auxz00_5137;int BgL_auxz00_5135;
BgL_auxz00_5137 = 
(int)(((long)14)); 
BgL_auxz00_5135 = 
(int)(((long)2)); 
BgL_zc3anonymousza32629ze3z83_2955 = 
make_fx_procedure(BGl_zc3anonymousza32629ze3z83zz__pregexpz00, BgL_auxz00_5135, BgL_auxz00_5137); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5140;
BgL_auxz00_5140 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32629ze3z83_2955, BgL_auxz00_5140, BgL_cbackrefsz00_1216); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5143;
BgL_auxz00_5143 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32629ze3z83_2955, BgL_auxz00_5143, BgL_iz00_1215); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5146;
BgL_auxz00_5146 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32629ze3z83_2955, BgL_auxz00_5146, BgL_nz00_3042); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5149;
BgL_auxz00_5149 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32629ze3z83_2955, BgL_auxz00_5149, BgL_casezd2sensitivezf3z21_3043); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5152;
BgL_auxz00_5152 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32629ze3z83_2955, BgL_auxz00_5152, BgL_snz00_3044); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5155;
BgL_auxz00_5155 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32629ze3z83_2955, BgL_auxz00_5155, BgL_sz00_3045); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5158;
BgL_auxz00_5158 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32629ze3z83_2955, BgL_auxz00_5158, BgL_backrefsz00_3046); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5161;
BgL_auxz00_5161 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_zc3anonymousza32629ze3z83_2955, BgL_auxz00_5161, BgL_subpatzf3zf3_3047); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5164;
BgL_auxz00_5164 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_zc3anonymousza32629ze3z83_2955, BgL_auxz00_5164, BgL_skz00_3048); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5167;
BgL_auxz00_5167 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_zc3anonymousza32629ze3z83_2955, BgL_auxz00_5167, BgL_qz00_3049); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5170;
BgL_auxz00_5170 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_zc3anonymousza32629ze3z83_2955, BgL_auxz00_5170, BgL_rez00_3050); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5173;
BgL_auxz00_5173 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_zc3anonymousza32629ze3z83_2955, BgL_auxz00_5173, BgL_maximalzf3zf3_3051); } 
{ /* ./Llib/pregexp.scm 619 */
obj_t BgL_auxz00_5178;int BgL_auxz00_5176;
BgL_auxz00_5178 = 
BINT(BgL_kz00_1214); 
BgL_auxz00_5176 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_zc3anonymousza32629ze3z83_2955, BgL_auxz00_5176, BgL_auxz00_5178); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5181;
BgL_auxz00_5181 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_zc3anonymousza32629ze3z83_2955, BgL_auxz00_5181, BgL_fkz00_2954); } 
return 
BGl_subz00zz__pregexpz00(BgL_sz00_3045, BgL_snz00_3044, BgL_casezd2sensitivezf3z21_3043, BgL_nz00_3042, BgL_rez00_3050, BgL_iz00_1215, BgL_backrefsz00_3046, BgL_zc3anonymousza32629ze3z83_2955, BgL_fkz00_2954);}  else 
{ /* ./Llib/pregexp.scm 622 */
obj_t BgL__ortest_1056z00_1227;
BgL__ortest_1056z00_1227 = 
BGl_fkz00zz__pregexpz00(BgL_fkz00_2954); 
if(
CBOOL(BgL__ortest_1056z00_1227))
{ /* ./Llib/pregexp.scm 623 */
return BgL__ortest_1056z00_1227;}  else 
{ /* ./Llib/pregexp.scm 625 */
obj_t BgL_zc3anonymousza32638ze3z83_2956;
{ 
int BgL_auxz00_5190;int BgL_auxz00_5188;
BgL_auxz00_5190 = 
(int)(((long)11)); 
BgL_auxz00_5188 = 
(int)(((long)2)); 
BgL_zc3anonymousza32638ze3z83_2956 = 
make_fx_procedure(BGl_zc3anonymousza32638ze3z83zz__pregexpz00, BgL_auxz00_5188, BgL_auxz00_5190); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5193;
BgL_auxz00_5193 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32638ze3z83_2956, BgL_auxz00_5193, BgL_nz00_3042); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5196;
BgL_auxz00_5196 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32638ze3z83_2956, BgL_auxz00_5196, BgL_casezd2sensitivezf3z21_3043); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5199;
BgL_auxz00_5199 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32638ze3z83_2956, BgL_auxz00_5199, BgL_snz00_3044); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5202;
BgL_auxz00_5202 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32638ze3z83_2956, BgL_auxz00_5202, BgL_sz00_3045); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5205;
BgL_auxz00_5205 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32638ze3z83_2956, BgL_auxz00_5205, BgL_backrefsz00_3046); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5208;
BgL_auxz00_5208 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32638ze3z83_2956, BgL_auxz00_5208, BgL_subpatzf3zf3_3047); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5211;
BgL_auxz00_5211 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32638ze3z83_2956, BgL_auxz00_5211, BgL_skz00_3048); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5214;
BgL_auxz00_5214 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_zc3anonymousza32638ze3z83_2956, BgL_auxz00_5214, BgL_qz00_3049); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5217;
BgL_auxz00_5217 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_zc3anonymousza32638ze3z83_2956, BgL_auxz00_5217, BgL_rez00_3050); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5220;
BgL_auxz00_5220 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_zc3anonymousza32638ze3z83_2956, BgL_auxz00_5220, BgL_maximalzf3zf3_3051); } 
{ /* ./Llib/pregexp.scm 625 */
obj_t BgL_auxz00_5225;int BgL_auxz00_5223;
BgL_auxz00_5225 = 
BINT(BgL_kz00_1214); 
BgL_auxz00_5223 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_zc3anonymousza32638ze3z83_2956, BgL_auxz00_5223, BgL_auxz00_5225); } 
return 
BGl_subz00zz__pregexpz00(BgL_sz00_3045, BgL_snz00_3044, BgL_casezd2sensitivezf3z21_3043, BgL_nz00_3042, BgL_rez00_3050, BgL_iz00_1215, BgL_backrefsz00_3046, BgL_zc3anonymousza32638ze3z83_2956, BgL_fkz00_2954);} } } } } } 
}



/* <anonymous:2325> */
obj_t BGl_zc3anonymousza32325ze3z83zz__pregexpz00(obj_t BgL_envz00_3052)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 470 */
return 
BBOOL(((bool_t)0));} 
}



/* <anonymous:2409> */
obj_t BGl_zc3anonymousza32409ze3z83zz__pregexpz00(obj_t BgL_envz00_3053)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 513 */
{ /* ./Llib/pregexp.scm 514 */
obj_t BgL_nz00_3054;obj_t BgL_casezd2sensitivezf3z21_3055;obj_t BgL_snz00_3056;obj_t BgL_sz00_3057;obj_t BgL_iz00_3058;obj_t BgL_backrefsz00_3059;obj_t BgL_skz00_3060;obj_t BgL_fkz00_3061;obj_t BgL_charsz00_3062;
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_5230;
BgL_auxz00_5230 = 
(int)(((long)0)); 
BgL_nz00_3054 = 
PROCEDURE_REF(BgL_envz00_3053, BgL_auxz00_5230); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_5233;
BgL_auxz00_5233 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3055 = 
PROCEDURE_REF(BgL_envz00_3053, BgL_auxz00_5233); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_5236;
BgL_auxz00_5236 = 
(int)(((long)2)); 
BgL_snz00_3056 = 
PROCEDURE_REF(BgL_envz00_3053, BgL_auxz00_5236); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_5239;
BgL_auxz00_5239 = 
(int)(((long)3)); 
BgL_sz00_3057 = 
PROCEDURE_REF(BgL_envz00_3053, BgL_auxz00_5239); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_5242;
BgL_auxz00_5242 = 
(int)(((long)4)); 
BgL_iz00_3058 = 
PROCEDURE_REF(BgL_envz00_3053, BgL_auxz00_5242); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_5245;
BgL_auxz00_5245 = 
(int)(((long)5)); 
BgL_backrefsz00_3059 = 
PROCEDURE_REF(BgL_envz00_3053, BgL_auxz00_5245); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_5248;
BgL_auxz00_5248 = 
(int)(((long)6)); 
BgL_skz00_3060 = 
PROCEDURE_REF(BgL_envz00_3053, BgL_auxz00_5248); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_5251;
BgL_auxz00_5251 = 
(int)(((long)7)); 
BgL_fkz00_3061 = 
PROCEDURE_REF(BgL_envz00_3053, BgL_auxz00_5251); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_5254;
BgL_auxz00_5254 = 
(int)(((long)8)); 
BgL_charsz00_3062 = 
PROCEDURE_REF(BgL_envz00_3053, BgL_auxz00_5254); } 
{ 

{ /* ./Llib/pregexp.scm 514 */
obj_t BgL_arg2411z00_2533;
BgL_arg2411z00_2533 = 
CDR(BgL_charsz00_3062); 
return 
BGl_loupzd2onezd2ofzd2charszd2zz__pregexpz00(BgL_fkz00_3061, BgL_skz00_3060, BgL_backrefsz00_3059, BgL_iz00_3058, BgL_sz00_3057, BgL_snz00_3056, BgL_casezd2sensitivezf3z21_3055, BgL_nz00_3054, BgL_arg2411z00_2533);} } } } 
}



/* <anonymous:2427> */
obj_t BGl_zc3anonymousza32427ze3z83zz__pregexpz00(obj_t BgL_envz00_3063)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 519 */
{ /* ./Llib/pregexp.scm 519 */
obj_t BgL_iz00_3064;obj_t BgL_skz00_3065;obj_t BgL_backrefsz00_3066;
{ /* ./Llib/pregexp.scm 519 */
int BgL_auxz00_5259;
BgL_auxz00_5259 = 
(int)(((long)0)); 
BgL_iz00_3064 = 
PROCEDURE_REF(BgL_envz00_3063, BgL_auxz00_5259); } 
{ /* ./Llib/pregexp.scm 519 */
int BgL_auxz00_5262;
BgL_auxz00_5262 = 
(int)(((long)1)); 
BgL_skz00_3065 = 
PROCEDURE_REF(BgL_envz00_3063, BgL_auxz00_5262); } 
{ /* ./Llib/pregexp.scm 519 */
int BgL_auxz00_5265;
BgL_auxz00_5265 = 
(int)(((long)2)); 
BgL_backrefsz00_3066 = 
PROCEDURE_REF(BgL_envz00_3063, BgL_auxz00_5265); } 
{ 

{ /* ./Llib/pregexp.scm 519 */
long BgL_arg2429z00_2541;
{ /* ./Llib/pregexp.scm 519 */
long BgL_auxz00_5268;
BgL_auxz00_5268 = 
(long)CINT(BgL_iz00_3064); 
BgL_arg2429z00_2541 = 
(BgL_auxz00_5268+((long)1)); } 
return 
PROCEDURE_ENTRY(BgL_skz00_3065)(BgL_skz00_3065, 
BINT(BgL_arg2429z00_2541), BgL_backrefsz00_3066, BEOA);} } } } 
}



/* <anonymous:2425> */
obj_t BGl_zc3anonymousza32425ze3z83zz__pregexpz00(obj_t BgL_envz00_3067, obj_t BgL_i1z00_3069, obj_t BgL_backrefs1z00_3070)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 518 */
{ /* ./Llib/pregexp.scm 518 */
obj_t BgL_fkz00_3068;
{ /* ./Llib/pregexp.scm 518 */
int BgL_auxz00_5274;
BgL_auxz00_5274 = 
(int)(((long)0)); 
BgL_fkz00_3068 = 
PROCEDURE_REF(BgL_envz00_3067, BgL_auxz00_5274); } 
return 
PROCEDURE_ENTRY(BgL_fkz00_3068)(BgL_fkz00_3068, BEOA);} } 
}



/* <anonymous:2445> */
obj_t BGl_zc3anonymousza32445ze3z83zz__pregexpz00(obj_t BgL_envz00_3071, obj_t BgL_i1z00_3079, obj_t BgL_backrefs1z00_3080)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 524 */
{ /* ./Llib/pregexp.scm 521 */
obj_t BgL_nz00_3072;obj_t BgL_casezd2sensitivezf3z21_3073;obj_t BgL_snz00_3074;obj_t BgL_sz00_3075;obj_t BgL_fkz00_3076;obj_t BgL_skz00_3077;obj_t BgL_resz00_3078;
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_5279;
BgL_auxz00_5279 = 
(int)(((long)0)); 
BgL_nz00_3072 = 
PROCEDURE_REF(BgL_envz00_3071, BgL_auxz00_5279); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_5282;
BgL_auxz00_5282 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3073 = 
PROCEDURE_REF(BgL_envz00_3071, BgL_auxz00_5282); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_5285;
BgL_auxz00_5285 = 
(int)(((long)2)); 
BgL_snz00_3074 = 
PROCEDURE_REF(BgL_envz00_3071, BgL_auxz00_5285); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_5288;
BgL_auxz00_5288 = 
(int)(((long)3)); 
BgL_sz00_3075 = 
PROCEDURE_REF(BgL_envz00_3071, BgL_auxz00_5288); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_5291;
BgL_auxz00_5291 = 
(int)(((long)4)); 
BgL_fkz00_3076 = 
PROCEDURE_REF(BgL_envz00_3071, BgL_auxz00_5291); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_5294;
BgL_auxz00_5294 = 
(int)(((long)5)); 
BgL_skz00_3077 = 
PROCEDURE_REF(BgL_envz00_3071, BgL_auxz00_5294); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_5297;
BgL_auxz00_5297 = 
(int)(((long)6)); 
BgL_resz00_3078 = 
PROCEDURE_REF(BgL_envz00_3071, BgL_auxz00_5297); } 
{ 
obj_t BgL_i1z00_2558;obj_t BgL_backrefs1z00_2559;
BgL_i1z00_2558 = BgL_i1z00_3079; 
BgL_backrefs1z00_2559 = BgL_backrefs1z00_3080; 
{ /* ./Llib/pregexp.scm 521 */
obj_t BgL_arg2447z00_2563;
BgL_arg2447z00_2563 = 
CDR(BgL_resz00_3078); 
return 
BGl_loupzd2seqzd2zz__pregexpz00(BgL_skz00_3077, BgL_fkz00_3076, BgL_sz00_3075, BgL_snz00_3074, BgL_casezd2sensitivezf3z21_3073, BgL_nz00_3072, BgL_arg2447z00_2563, BgL_i1z00_2558, BgL_backrefs1z00_2559);} } } } 
}



/* <anonymous:2470> */
obj_t BGl_zc3anonymousza32470ze3z83zz__pregexpz00(obj_t BgL_envz00_3081)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 534 */
{ /* ./Llib/pregexp.scm 534 */
obj_t BgL_nz00_3082;obj_t BgL_casezd2sensitivezf3z21_3083;obj_t BgL_snz00_3084;obj_t BgL_sz00_3085;obj_t BgL_skz00_3086;obj_t BgL_iz00_3087;obj_t BgL_backrefsz00_3088;obj_t BgL_fkz00_3089;obj_t BgL_resz00_3090;
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_5302;
BgL_auxz00_5302 = 
(int)(((long)0)); 
BgL_nz00_3082 = 
PROCEDURE_REF(BgL_envz00_3081, BgL_auxz00_5302); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_5305;
BgL_auxz00_5305 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3083 = 
PROCEDURE_REF(BgL_envz00_3081, BgL_auxz00_5305); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_5308;
BgL_auxz00_5308 = 
(int)(((long)2)); 
BgL_snz00_3084 = 
PROCEDURE_REF(BgL_envz00_3081, BgL_auxz00_5308); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_5311;
BgL_auxz00_5311 = 
(int)(((long)3)); 
BgL_sz00_3085 = 
PROCEDURE_REF(BgL_envz00_3081, BgL_auxz00_5311); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_5314;
BgL_auxz00_5314 = 
(int)(((long)4)); 
BgL_skz00_3086 = 
PROCEDURE_REF(BgL_envz00_3081, BgL_auxz00_5314); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_5317;
BgL_auxz00_5317 = 
(int)(((long)5)); 
BgL_iz00_3087 = 
PROCEDURE_REF(BgL_envz00_3081, BgL_auxz00_5317); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_5320;
BgL_auxz00_5320 = 
(int)(((long)6)); 
BgL_backrefsz00_3088 = 
PROCEDURE_REF(BgL_envz00_3081, BgL_auxz00_5320); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_5323;
BgL_auxz00_5323 = 
(int)(((long)7)); 
BgL_fkz00_3089 = 
PROCEDURE_REF(BgL_envz00_3081, BgL_auxz00_5323); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_5326;
BgL_auxz00_5326 = 
(int)(((long)8)); 
BgL_resz00_3090 = 
PROCEDURE_REF(BgL_envz00_3081, BgL_auxz00_5326); } 
{ 

{ /* ./Llib/pregexp.scm 534 */
obj_t BgL_arg2472z00_2594;
BgL_arg2472z00_2594 = 
CDR(BgL_resz00_3090); 
return 
BGl_loupzd2orzd2zz__pregexpz00(BgL_fkz00_3089, BgL_backrefsz00_3088, BgL_iz00_3087, BgL_skz00_3086, BgL_sz00_3085, BgL_snz00_3084, BgL_casezd2sensitivezf3z21_3083, BgL_nz00_3082, BgL_arg2472z00_2594);} } } } 
}



/* <anonymous:2464> */
obj_t BGl_zc3anonymousza32464ze3z83zz__pregexpz00(obj_t BgL_envz00_3091, obj_t BgL_i1z00_3101, obj_t BgL_backrefs1z00_3102)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 531 */
{ /* ./Llib/pregexp.scm 532 */
obj_t BgL_nz00_3092;obj_t BgL_casezd2sensitivezf3z21_3093;obj_t BgL_snz00_3094;obj_t BgL_sz00_3095;obj_t BgL_iz00_3096;obj_t BgL_backrefsz00_3097;obj_t BgL_fkz00_3098;obj_t BgL_skz00_3099;obj_t BgL_resz00_3100;
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_5331;
BgL_auxz00_5331 = 
(int)(((long)0)); 
BgL_nz00_3092 = 
PROCEDURE_REF(BgL_envz00_3091, BgL_auxz00_5331); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_5334;
BgL_auxz00_5334 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3093 = 
PROCEDURE_REF(BgL_envz00_3091, BgL_auxz00_5334); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_5337;
BgL_auxz00_5337 = 
(int)(((long)2)); 
BgL_snz00_3094 = 
PROCEDURE_REF(BgL_envz00_3091, BgL_auxz00_5337); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_5340;
BgL_auxz00_5340 = 
(int)(((long)3)); 
BgL_sz00_3095 = 
PROCEDURE_REF(BgL_envz00_3091, BgL_auxz00_5340); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_5343;
BgL_auxz00_5343 = 
(int)(((long)4)); 
BgL_iz00_3096 = 
PROCEDURE_REF(BgL_envz00_3091, BgL_auxz00_5343); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_5346;
BgL_auxz00_5346 = 
(int)(((long)5)); 
BgL_backrefsz00_3097 = 
PROCEDURE_REF(BgL_envz00_3091, BgL_auxz00_5346); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_5349;
BgL_auxz00_5349 = 
(int)(((long)6)); 
BgL_fkz00_3098 = 
PROCEDURE_REF(BgL_envz00_3091, BgL_auxz00_5349); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_5352;
BgL_auxz00_5352 = 
(int)(((long)7)); 
BgL_skz00_3099 = 
PROCEDURE_REF(BgL_envz00_3091, BgL_auxz00_5352); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_5355;
BgL_auxz00_5355 = 
(int)(((long)8)); 
BgL_resz00_3100 = 
PROCEDURE_REF(BgL_envz00_3091, BgL_auxz00_5355); } 
{ 
obj_t BgL_i1z00_1099;obj_t BgL_backrefs1z00_1100;
BgL_i1z00_1099 = BgL_i1z00_3101; 
BgL_backrefs1z00_1100 = BgL_backrefs1z00_3102; 
{ /* ./Llib/pregexp.scm 532 */
obj_t BgL__ortest_1052z00_2591;
BgL__ortest_1052z00_2591 = 
PROCEDURE_ENTRY(BgL_skz00_3099)(BgL_skz00_3099, BgL_i1z00_1099, BgL_backrefs1z00_1100, BEOA); 
if(
CBOOL(BgL__ortest_1052z00_2591))
{ /* ./Llib/pregexp.scm 532 */
return BgL__ortest_1052z00_2591;}  else 
{ /* ./Llib/pregexp.scm 532 */
obj_t BgL_arg2466z00_2592;
BgL_arg2466z00_2592 = 
CDR(BgL_resz00_3100); 
return 
BGl_loupzd2orzd2zz__pregexpz00(BgL_fkz00_3098, BgL_backrefsz00_3097, BgL_iz00_3096, BgL_skz00_3099, BgL_sz00_3095, BgL_snz00_3094, BgL_casezd2sensitivezf3z21_3093, BgL_nz00_3092, BgL_arg2466z00_2592);} } } } } 
}



/* <anonymous:2500> */
obj_t BGl_zc3anonymousza32500ze3z83zz__pregexpz00(obj_t BgL_envz00_3103, obj_t BgL_i1z00_3106, obj_t BgL_backrefs1z00_3107)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 546 */
{ /* ./Llib/pregexp.scm 547 */
obj_t BgL_subzd2backrefzd2_3104;obj_t BgL_skz00_3105;
{ /* ./Llib/pregexp.scm 547 */
int BgL_auxz00_5364;
BgL_auxz00_5364 = 
(int)(((long)0)); 
BgL_subzd2backrefzd2_3104 = 
PROCEDURE_REF(BgL_envz00_3103, BgL_auxz00_5364); } 
{ /* ./Llib/pregexp.scm 547 */
int BgL_auxz00_5367;
BgL_auxz00_5367 = 
(int)(((long)1)); 
BgL_skz00_3105 = 
PROCEDURE_REF(BgL_envz00_3103, BgL_auxz00_5367); } 
{ 
obj_t BgL_i1z00_1123;obj_t BgL_backrefs1z00_1124;
BgL_i1z00_1123 = BgL_i1z00_3106; 
BgL_backrefs1z00_1124 = BgL_backrefs1z00_3107; 
SET_CDR(BgL_subzd2backrefzd2_3104, BgL_i1z00_1123); 
return 
PROCEDURE_ENTRY(BgL_skz00_3105)(BgL_skz00_3105, BgL_i1z00_1123, BgL_backrefs1z00_1124, BEOA);} } } 
}



/* <anonymous:2518> */
obj_t BGl_zc3anonymousza32518ze3z83zz__pregexpz00(obj_t BgL_envz00_3108)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 552 */
return 
BBOOL(((bool_t)0));} 
}



/* <anonymous:2527> */
obj_t BGl_zc3anonymousza32527ze3z83zz__pregexpz00(obj_t BgL_envz00_3109)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 557 */
return 
BBOOL(((bool_t)0));} 
}



/* <anonymous:2554> */
obj_t BGl_zc3anonymousza32554ze3z83zz__pregexpz00(obj_t BgL_envz00_3110)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 565 */
return 
BBOOL(((bool_t)0));} 
}



/* <anonymous:2581> */
obj_t BGl_zc3anonymousza32581ze3z83zz__pregexpz00(obj_t BgL_envz00_3111)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 574 */
return 
BBOOL(((bool_t)0));} 
}



/* <anonymous:2595> */
obj_t BGl_zc3anonymousza32595ze3z83zz__pregexpz00(obj_t BgL_envz00_3112)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 579 */
return 
BBOOL(((bool_t)0));} 
}



/* <anonymous:2610> */
obj_t BGl_zc3anonymousza32610ze3z83zz__pregexpz00(obj_t BgL_envz00_3113)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 591 */
{ /* ./Llib/pregexp.scm 592 */
obj_t BgL_oldz00_3114;obj_t BgL_casezd2sensitivezf3z21_3115;obj_t BgL_fkz00_3116;
{ /* ./Llib/pregexp.scm 592 */
int BgL_auxz00_5378;
BgL_auxz00_5378 = 
(int)(((long)0)); 
BgL_oldz00_3114 = 
PROCEDURE_REF(BgL_envz00_3113, BgL_auxz00_5378); } 
{ /* ./Llib/pregexp.scm 592 */
int BgL_auxz00_5381;
BgL_auxz00_5381 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3115 = 
PROCEDURE_REF(BgL_envz00_3113, BgL_auxz00_5381); } 
{ /* ./Llib/pregexp.scm 592 */
int BgL_auxz00_5384;
BgL_auxz00_5384 = 
(int)(((long)2)); 
BgL_fkz00_3116 = 
PROCEDURE_REF(BgL_envz00_3113, BgL_auxz00_5384); } 
{ 

CELL_SET(BgL_casezd2sensitivezf3z21_3115, BgL_oldz00_3114); 
return 
PROCEDURE_ENTRY(BgL_fkz00_3116)(BgL_fkz00_3116, BEOA);} } } 
}



/* <anonymous:2608> */
obj_t BGl_zc3anonymousza32608ze3z83zz__pregexpz00(obj_t BgL_envz00_3118, obj_t BgL_i1z00_3122, obj_t BgL_backrefs1z00_3123)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 588 */
{ /* ./Llib/pregexp.scm 589 */
obj_t BgL_oldz00_3119;obj_t BgL_casezd2sensitivezf3z21_3120;obj_t BgL_skz00_3121;
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_5389;
BgL_auxz00_5389 = 
(int)(((long)0)); 
BgL_oldz00_3119 = 
PROCEDURE_REF(BgL_envz00_3118, BgL_auxz00_5389); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_5392;
BgL_auxz00_5392 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3120 = 
PROCEDURE_REF(BgL_envz00_3118, BgL_auxz00_5392); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_5395;
BgL_auxz00_5395 = 
(int)(((long)2)); 
BgL_skz00_3121 = 
PROCEDURE_REF(BgL_envz00_3118, BgL_auxz00_5395); } 
{ 
obj_t BgL_i1z00_1190;obj_t BgL_backrefs1z00_1191;
BgL_i1z00_1190 = BgL_i1z00_3122; 
BgL_backrefs1z00_1191 = BgL_backrefs1z00_3123; 
CELL_SET(BgL_casezd2sensitivezf3z21_3120, BgL_oldz00_3119); 
return 
PROCEDURE_ENTRY(BgL_skz00_3121)(BgL_skz00_3121, BgL_i1z00_1190, BgL_backrefs1z00_1191, BEOA);} } } 
}



/* <anonymous:2618> */
obj_t BGl_zc3anonymousza32618ze3z83zz__pregexpz00(obj_t BgL_envz00_3125, obj_t BgL_i1z00_3139, obj_t BgL_backrefs1z00_3140)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 602 */
{ /* ./Llib/pregexp.scm 603 */
obj_t BgL_nz00_3126;obj_t BgL_casezd2sensitivezf3z21_3127;obj_t BgL_snz00_3128;obj_t BgL_sz00_3129;obj_t BgL_subpatzf3zf3_3130;obj_t BgL_skz00_3131;obj_t BgL_maximalzf3zf3_3132;obj_t BgL_pz00_3133;obj_t BgL_qz00_3134;obj_t BgL_rez00_3135;obj_t BgL_backrefsz00_3136;obj_t BgL_fkz00_3137;obj_t BgL_kz00_3138;
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5400;
BgL_auxz00_5400 = 
(int)(((long)0)); 
BgL_nz00_3126 = 
PROCEDURE_REF(BgL_envz00_3125, BgL_auxz00_5400); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5403;
BgL_auxz00_5403 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3127 = 
PROCEDURE_REF(BgL_envz00_3125, BgL_auxz00_5403); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5406;
BgL_auxz00_5406 = 
(int)(((long)2)); 
BgL_snz00_3128 = 
PROCEDURE_REF(BgL_envz00_3125, BgL_auxz00_5406); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5409;
BgL_auxz00_5409 = 
(int)(((long)3)); 
BgL_sz00_3129 = 
PROCEDURE_REF(BgL_envz00_3125, BgL_auxz00_5409); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5412;
BgL_auxz00_5412 = 
(int)(((long)4)); 
BgL_subpatzf3zf3_3130 = 
PROCEDURE_REF(BgL_envz00_3125, BgL_auxz00_5412); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5415;
BgL_auxz00_5415 = 
(int)(((long)5)); 
BgL_skz00_3131 = 
PROCEDURE_REF(BgL_envz00_3125, BgL_auxz00_5415); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5418;
BgL_auxz00_5418 = 
(int)(((long)6)); 
BgL_maximalzf3zf3_3132 = 
PROCEDURE_REF(BgL_envz00_3125, BgL_auxz00_5418); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5421;
BgL_auxz00_5421 = 
(int)(((long)7)); 
BgL_pz00_3133 = 
PROCEDURE_REF(BgL_envz00_3125, BgL_auxz00_5421); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5424;
BgL_auxz00_5424 = 
(int)(((long)8)); 
BgL_qz00_3134 = 
PROCEDURE_REF(BgL_envz00_3125, BgL_auxz00_5424); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5427;
BgL_auxz00_5427 = 
(int)(((long)9)); 
BgL_rez00_3135 = 
PROCEDURE_REF(BgL_envz00_3125, BgL_auxz00_5427); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5430;
BgL_auxz00_5430 = 
(int)(((long)10)); 
BgL_backrefsz00_3136 = 
PROCEDURE_REF(BgL_envz00_3125, BgL_auxz00_5430); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5433;
BgL_auxz00_5433 = 
(int)(((long)11)); 
BgL_fkz00_3137 = 
PROCEDURE_REF(BgL_envz00_3125, BgL_auxz00_5433); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_5436;
BgL_auxz00_5436 = 
(int)(((long)12)); 
BgL_kz00_3138 = 
PROCEDURE_REF(BgL_envz00_3125, BgL_auxz00_5436); } 
{ 
obj_t BgL_i1z00_1208;obj_t BgL_backrefs1z00_1209;
BgL_i1z00_1208 = BgL_i1z00_3139; 
BgL_backrefs1z00_1209 = BgL_backrefs1z00_3140; 
{ /* ./Llib/pregexp.scm 603 */
long BgL_arg2620z00_2713;
{ /* ./Llib/pregexp.scm 603 */
long BgL_auxz00_5439;
BgL_auxz00_5439 = 
(long)CINT(BgL_kz00_3138); 
BgL_arg2620z00_2713 = 
(BgL_auxz00_5439+((long)1)); } 
return 
BGl_loupzd2pzd2zz__pregexpz00(BgL_fkz00_3137, BgL_backrefsz00_3136, BgL_rez00_3135, BgL_qz00_3134, BgL_pz00_3133, BgL_maximalzf3zf3_3132, BgL_skz00_3131, BgL_subpatzf3zf3_3130, BgL_sz00_3129, BgL_snz00_3128, BgL_casezd2sensitivezf3z21_3127, BgL_nz00_3126, BgL_arg2620z00_2713, BgL_i1z00_1208, BgL_backrefs1z00_1209);} } } } 
}



/* <anonymous:2629> */
obj_t BGl_zc3anonymousza32629ze3z83zz__pregexpz00(obj_t BgL_envz00_3141, obj_t BgL_i1z00_3156, obj_t BgL_backrefs1z00_3157)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 618 */
{ /* ./Llib/pregexp.scm 619 */
obj_t BgL_nz00_3144;obj_t BgL_casezd2sensitivezf3z21_3145;obj_t BgL_snz00_3146;obj_t BgL_sz00_3147;obj_t BgL_backrefsz00_3148;obj_t BgL_subpatzf3zf3_3149;obj_t BgL_skz00_3150;obj_t BgL_qz00_3151;obj_t BgL_rez00_3152;obj_t BgL_maximalzf3zf3_3153;obj_t BgL_kz00_3154;obj_t BgL_fkz00_3155;
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5443;
BgL_auxz00_5443 = 
(int)(((long)2)); 
BgL_nz00_3144 = 
PROCEDURE_REF(BgL_envz00_3141, BgL_auxz00_5443); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5446;
BgL_auxz00_5446 = 
(int)(((long)3)); 
BgL_casezd2sensitivezf3z21_3145 = 
PROCEDURE_REF(BgL_envz00_3141, BgL_auxz00_5446); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5449;
BgL_auxz00_5449 = 
(int)(((long)4)); 
BgL_snz00_3146 = 
PROCEDURE_REF(BgL_envz00_3141, BgL_auxz00_5449); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5452;
BgL_auxz00_5452 = 
(int)(((long)5)); 
BgL_sz00_3147 = 
PROCEDURE_REF(BgL_envz00_3141, BgL_auxz00_5452); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5455;
BgL_auxz00_5455 = 
(int)(((long)6)); 
BgL_backrefsz00_3148 = 
PROCEDURE_REF(BgL_envz00_3141, BgL_auxz00_5455); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5458;
BgL_auxz00_5458 = 
(int)(((long)7)); 
BgL_subpatzf3zf3_3149 = 
PROCEDURE_REF(BgL_envz00_3141, BgL_auxz00_5458); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5461;
BgL_auxz00_5461 = 
(int)(((long)8)); 
BgL_skz00_3150 = 
PROCEDURE_REF(BgL_envz00_3141, BgL_auxz00_5461); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5464;
BgL_auxz00_5464 = 
(int)(((long)9)); 
BgL_qz00_3151 = 
PROCEDURE_REF(BgL_envz00_3141, BgL_auxz00_5464); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5467;
BgL_auxz00_5467 = 
(int)(((long)10)); 
BgL_rez00_3152 = 
PROCEDURE_REF(BgL_envz00_3141, BgL_auxz00_5467); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5470;
BgL_auxz00_5470 = 
(int)(((long)11)); 
BgL_maximalzf3zf3_3153 = 
PROCEDURE_REF(BgL_envz00_3141, BgL_auxz00_5470); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5473;
BgL_auxz00_5473 = 
(int)(((long)12)); 
BgL_kz00_3154 = 
PROCEDURE_REF(BgL_envz00_3141, BgL_auxz00_5473); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_5476;
BgL_auxz00_5476 = 
(int)(((long)13)); 
BgL_fkz00_3155 = 
PROCEDURE_REF(BgL_envz00_3141, BgL_auxz00_5476); } 
{ 
obj_t BgL_i1z00_1221;obj_t BgL_backrefs1z00_1222;
BgL_i1z00_1221 = BgL_i1z00_3156; 
BgL_backrefs1z00_1222 = BgL_backrefs1z00_3157; 
{ /* ./Llib/pregexp.scm 619 */
obj_t BgL__ortest_1055z00_2720;
{ /* ./Llib/pregexp.scm 619 */
long BgL_arg2632z00_2721;
{ /* ./Llib/pregexp.scm 619 */
long BgL_auxz00_5479;
BgL_auxz00_5479 = 
(long)CINT(BgL_kz00_3154); 
BgL_arg2632z00_2721 = 
(BgL_auxz00_5479+((long)1)); } 
BgL__ortest_1055z00_2720 = 
BGl_loupzd2qzd2zz__pregexpz00(BgL_maximalzf3zf3_3153, BgL_rez00_3152, BgL_qz00_3151, BgL_skz00_3150, BgL_subpatzf3zf3_3149, BgL_backrefsz00_3148, BgL_sz00_3147, BgL_snz00_3146, BgL_casezd2sensitivezf3z21_3145, BgL_nz00_3144, BgL_arg2632z00_2721, BgL_i1z00_1221, BgL_backrefs1z00_1222); } 
if(
CBOOL(BgL__ortest_1055z00_2720))
{ /* ./Llib/pregexp.scm 619 */
return BgL__ortest_1055z00_2720;}  else 
{ /* ./Llib/pregexp.scm 619 */
return 
BGl_fkz00zz__pregexpz00(BgL_fkz00_3155);} } } } } 
}



/* fk */
obj_t BGl_fkz00zz__pregexpz00(obj_t BgL_envz00_3158)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 607 */
{ /* ./Llib/pregexp.scm 608 */
obj_t BgL_cbackrefsz00_3159;obj_t BgL_backrefsz00_3160;obj_t BgL_subpatzf3zf3_3161;obj_t BgL_skz00_3162;obj_t BgL_iz00_3163;
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_5486;
BgL_auxz00_5486 = 
(int)(((long)0)); 
BgL_cbackrefsz00_3159 = 
PROCEDURE_REF(BgL_envz00_3158, BgL_auxz00_5486); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_5489;
BgL_auxz00_5489 = 
(int)(((long)1)); 
BgL_backrefsz00_3160 = 
PROCEDURE_REF(BgL_envz00_3158, BgL_auxz00_5489); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_5492;
BgL_auxz00_5492 = 
(int)(((long)2)); 
BgL_subpatzf3zf3_3161 = 
PROCEDURE_REF(BgL_envz00_3158, BgL_auxz00_5492); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_5495;
BgL_auxz00_5495 = 
(int)(((long)3)); 
BgL_skz00_3162 = 
PROCEDURE_REF(BgL_envz00_3158, BgL_auxz00_5495); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_5498;
BgL_auxz00_5498 = 
(int)(((long)4)); 
BgL_iz00_3163 = 
PROCEDURE_REF(BgL_envz00_3158, BgL_auxz00_5498); } 
{ 

{ /* ./Llib/pregexp.scm 608 */
obj_t BgL_arg2647z00_1235;
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_cbackrefsz00_3159, BGl_symbol4546z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 608 */
if(
CBOOL(BgL_subpatzf3zf3_3161))
{ /* ./Llib/pregexp.scm 612 */
obj_t BgL_arg2651z00_1237;
{ /* ./Llib/pregexp.scm 612 */
obj_t BgL_list2654z00_1238;
BgL_list2654z00_1238 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_arg2651z00_1237 = BgL_list2654z00_1238; } 
BgL_arg2647z00_1235 = 
bgl_append2(BgL_backrefsz00_3160, BgL_arg2651z00_1237); }  else 
{ /* ./Llib/pregexp.scm 610 */
BgL_arg2647z00_1235 = BgL_backrefsz00_3160; } }  else 
{ /* ./Llib/pregexp.scm 608 */
BgL_arg2647z00_1235 = BgL_cbackrefsz00_3159; } 
return 
PROCEDURE_ENTRY(BgL_skz00_3162)(BgL_skz00_3162, BgL_iz00_3163, BgL_arg2647z00_1235, BEOA);} } } } 
}



/* <anonymous:2638> */
obj_t BGl_zc3anonymousza32638ze3z83zz__pregexpz00(obj_t BgL_envz00_3164, obj_t BgL_i1z00_3176, obj_t BgL_backrefs1z00_3177)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 624 */
{ /* ./Llib/pregexp.scm 625 */
obj_t BgL_nz00_3165;obj_t BgL_casezd2sensitivezf3z21_3166;obj_t BgL_snz00_3167;obj_t BgL_sz00_3168;obj_t BgL_backrefsz00_3169;obj_t BgL_subpatzf3zf3_3170;obj_t BgL_skz00_3171;obj_t BgL_qz00_3172;obj_t BgL_rez00_3173;obj_t BgL_maximalzf3zf3_3174;obj_t BgL_kz00_3175;
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5509;
BgL_auxz00_5509 = 
(int)(((long)0)); 
BgL_nz00_3165 = 
PROCEDURE_REF(BgL_envz00_3164, BgL_auxz00_5509); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5512;
BgL_auxz00_5512 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3166 = 
PROCEDURE_REF(BgL_envz00_3164, BgL_auxz00_5512); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5515;
BgL_auxz00_5515 = 
(int)(((long)2)); 
BgL_snz00_3167 = 
PROCEDURE_REF(BgL_envz00_3164, BgL_auxz00_5515); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5518;
BgL_auxz00_5518 = 
(int)(((long)3)); 
BgL_sz00_3168 = 
PROCEDURE_REF(BgL_envz00_3164, BgL_auxz00_5518); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5521;
BgL_auxz00_5521 = 
(int)(((long)4)); 
BgL_backrefsz00_3169 = 
PROCEDURE_REF(BgL_envz00_3164, BgL_auxz00_5521); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5524;
BgL_auxz00_5524 = 
(int)(((long)5)); 
BgL_subpatzf3zf3_3170 = 
PROCEDURE_REF(BgL_envz00_3164, BgL_auxz00_5524); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5527;
BgL_auxz00_5527 = 
(int)(((long)6)); 
BgL_skz00_3171 = 
PROCEDURE_REF(BgL_envz00_3164, BgL_auxz00_5527); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5530;
BgL_auxz00_5530 = 
(int)(((long)7)); 
BgL_qz00_3172 = 
PROCEDURE_REF(BgL_envz00_3164, BgL_auxz00_5530); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5533;
BgL_auxz00_5533 = 
(int)(((long)8)); 
BgL_rez00_3173 = 
PROCEDURE_REF(BgL_envz00_3164, BgL_auxz00_5533); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5536;
BgL_auxz00_5536 = 
(int)(((long)9)); 
BgL_maximalzf3zf3_3174 = 
PROCEDURE_REF(BgL_envz00_3164, BgL_auxz00_5536); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_5539;
BgL_auxz00_5539 = 
(int)(((long)10)); 
BgL_kz00_3175 = 
PROCEDURE_REF(BgL_envz00_3164, BgL_auxz00_5539); } 
{ 
obj_t BgL_i1z00_1229;obj_t BgL_backrefs1z00_1230;
BgL_i1z00_1229 = BgL_i1z00_3176; 
BgL_backrefs1z00_1230 = BgL_backrefs1z00_3177; 
{ /* ./Llib/pregexp.scm 625 */
long BgL_arg2640z00_2724;
{ /* ./Llib/pregexp.scm 625 */
long BgL_auxz00_5542;
BgL_auxz00_5542 = 
(long)CINT(BgL_kz00_3175); 
BgL_arg2640z00_2724 = 
(BgL_auxz00_5542+((long)1)); } 
return 
BGl_loupzd2qzd2zz__pregexpz00(BgL_maximalzf3zf3_3174, BgL_rez00_3173, BgL_qz00_3172, BgL_skz00_3171, BgL_subpatzf3zf3_3170, BgL_backrefsz00_3169, BgL_sz00_3168, BgL_snz00_3167, BgL_casezd2sensitivezf3z21_3166, BgL_nz00_3165, BgL_arg2640z00_2724, BgL_i1z00_1229, BgL_backrefs1z00_1230);} } } } 
}



/* pregexp-replace-aux */
obj_t BGl_pregexpzd2replacezd2auxz00zz__pregexpz00(obj_t BgL_strz00_58, obj_t BgL_insz00_59, int BgL_nz00_60, obj_t BgL_backrefsz00_61)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 631 */
{ 
obj_t BgL_iz00_1255;obj_t BgL_rz00_1256;
BgL_iz00_1255 = 
BINT(((long)0)); 
BgL_rz00_1256 = BGl_string4547z00zz__pregexpz00; 
BgL_loopz00_1257:
{ /* ./Llib/pregexp.scm 634 */
bool_t BgL_testz00_5546;
{ /* ./Llib/pregexp.scm 634 */
long BgL_auxz00_5549;long BgL_auxz00_5547;
BgL_auxz00_5549 = 
(long)(BgL_nz00_60); 
BgL_auxz00_5547 = 
(long)CINT(BgL_iz00_1255); 
BgL_testz00_5546 = 
(BgL_auxz00_5547>=BgL_auxz00_5549); } 
if(BgL_testz00_5546)
{ /* ./Llib/pregexp.scm 634 */
return BgL_rz00_1256;}  else 
{ /* ./Llib/pregexp.scm 635 */
unsigned char BgL_cz00_1259;
{ /* ./Llib/pregexp.scm 635 */
int BgL_auxz00_5552;
BgL_auxz00_5552 = 
CINT(BgL_iz00_1255); 
BgL_cz00_1259 = 
STRING_REF(BgL_insz00_59, BgL_auxz00_5552); } 
if(
(BgL_cz00_1259==((unsigned char)'\\')))
{ /* ./Llib/pregexp.scm 637 */
obj_t BgL_brzd2izd2_1261;
BgL_brzd2izd2_1261 = 
BGl_pregexpzd2readzd2escapedzd2numberzd2zz__pregexpz00(BgL_insz00_59, BgL_iz00_1255, BgL_nz00_60); 
{ /* ./Llib/pregexp.scm 637 */
obj_t BgL_brz00_1262;
if(
CBOOL(BgL_brzd2izd2_1261))
{ /* ./Llib/pregexp.scm 638 */
BgL_brz00_1262 = 
CAR(BgL_brzd2izd2_1261); }  else 
{ /* ./Llib/pregexp.scm 639 */
bool_t BgL_testz00_5561;
{ /* ./Llib/pregexp.scm 639 */
unsigned char BgL_auxz00_5562;
{ /* ./Llib/pregexp.scm 639 */
int BgL_auxz00_5563;
{ /* ./Llib/pregexp.scm 639 */
long BgL_auxz00_5564;
{ /* ./Llib/pregexp.scm 639 */
long BgL_auxz00_5565;
BgL_auxz00_5565 = 
(long)CINT(BgL_iz00_1255); 
BgL_auxz00_5564 = 
(BgL_auxz00_5565+((long)1)); } 
BgL_auxz00_5563 = 
(int)(BgL_auxz00_5564); } 
BgL_auxz00_5562 = 
STRING_REF(BgL_insz00_59, BgL_auxz00_5563); } 
BgL_testz00_5561 = 
(BgL_auxz00_5562==((unsigned char)'&')); } 
if(BgL_testz00_5561)
{ /* ./Llib/pregexp.scm 639 */
BgL_brz00_1262 = 
BINT(((long)0)); }  else 
{ /* ./Llib/pregexp.scm 639 */
BgL_brz00_1262 = BFALSE; } } 
{ /* ./Llib/pregexp.scm 638 */
obj_t BgL_iz00_1263;
if(
CBOOL(BgL_brzd2izd2_1261))
{ /* ./Llib/pregexp.scm 641 */
obj_t BgL_auxz00_5574;
BgL_auxz00_5574 = 
CDR(BgL_brzd2izd2_1261); 
BgL_iz00_1263 = 
CAR(BgL_auxz00_5574); }  else 
{ /* ./Llib/pregexp.scm 641 */
if(
CBOOL(BgL_brz00_1262))
{ /* ./Llib/pregexp.scm 642 */
long BgL_auxz00_5579;
{ /* ./Llib/pregexp.scm 642 */
long BgL_auxz00_5580;
BgL_auxz00_5580 = 
(long)CINT(BgL_iz00_1255); 
BgL_auxz00_5579 = 
(BgL_auxz00_5580+((long)2)); } 
BgL_iz00_1263 = 
BINT(BgL_auxz00_5579); }  else 
{ /* ./Llib/pregexp.scm 643 */
long BgL_auxz00_5584;
{ /* ./Llib/pregexp.scm 643 */
long BgL_auxz00_5585;
BgL_auxz00_5585 = 
(long)CINT(BgL_iz00_1255); 
BgL_auxz00_5584 = 
(BgL_auxz00_5585+((long)1)); } 
BgL_iz00_1263 = 
BINT(BgL_auxz00_5584); } } 
{ /* ./Llib/pregexp.scm 641 */

if(
CBOOL(BgL_brz00_1262))
{ /* ./Llib/pregexp.scm 650 */
obj_t BgL_arg2720z00_1264;
{ /* ./Llib/pregexp.scm 650 */
obj_t BgL_backrefz00_1265;
BgL_backrefz00_1265 = 
BGl_pregexpzd2listzd2refz00zz__pregexpz00(BgL_backrefsz00_61, BgL_brz00_1262); 
if(
CBOOL(BgL_backrefz00_1265))
{ /* ./Llib/pregexp.scm 653 */
obj_t BgL_arg2723z00_1266;
{ /* ./Llib/pregexp.scm 653 */
obj_t BgL_arg2726z00_1267;obj_t BgL_arg2727z00_1268;
BgL_arg2726z00_1267 = 
CAR(BgL_backrefz00_1265); 
BgL_arg2727z00_1268 = 
CDR(BgL_backrefz00_1265); 
{ /* ./Llib/pregexp.scm 653 */
int BgL_auxz00_5598;int BgL_auxz00_5596;
BgL_auxz00_5598 = 
CINT(BgL_arg2727z00_1268); 
BgL_auxz00_5596 = 
CINT(BgL_arg2726z00_1267); 
BgL_arg2723z00_1266 = 
c_substring(BgL_strz00_58, BgL_auxz00_5596, BgL_auxz00_5598); } } 
BgL_arg2720z00_1264 = 
string_append(BgL_rz00_1256, BgL_arg2723z00_1266); }  else 
{ /* ./Llib/pregexp.scm 651 */
BgL_arg2720z00_1264 = BgL_rz00_1256; } } 
{ 
obj_t BgL_rz00_5603;obj_t BgL_iz00_5602;
BgL_iz00_5602 = BgL_iz00_1263; 
BgL_rz00_5603 = BgL_arg2720z00_1264; 
BgL_rz00_1256 = BgL_rz00_5603; 
BgL_iz00_1255 = BgL_iz00_5602; 
goto BgL_loopz00_1257;} }  else 
{ /* ./Llib/pregexp.scm 645 */
unsigned char BgL_c2z00_1269;
{ /* ./Llib/pregexp.scm 645 */
int BgL_auxz00_5604;
BgL_auxz00_5604 = 
CINT(BgL_iz00_1263); 
BgL_c2z00_1269 = 
STRING_REF(BgL_insz00_59, BgL_auxz00_5604); } 
{ /* ./Llib/pregexp.scm 646 */
long BgL_arg2733z00_1270;obj_t BgL_arg2734z00_1271;
{ /* ./Llib/pregexp.scm 646 */
long BgL_auxz00_5607;
BgL_auxz00_5607 = 
(long)CINT(BgL_iz00_1263); 
BgL_arg2733z00_1270 = 
(BgL_auxz00_5607+((long)1)); } 
if(
(BgL_c2z00_1269==((unsigned char)'$')))
{ /* ./Llib/pregexp.scm 647 */
BgL_arg2734z00_1271 = BgL_rz00_1256; }  else 
{ /* ./Llib/pregexp.scm 648 */
obj_t BgL_arg2739z00_1273;
{ /* ./Llib/pregexp.scm 648 */
obj_t BgL_list2742z00_1274;
{ /* ./Llib/pregexp.scm 648 */
obj_t BgL_auxz00_5612;
BgL_auxz00_5612 = 
BCHAR(BgL_c2z00_1269); 
BgL_list2742z00_1274 = 
MAKE_PAIR(BgL_auxz00_5612, BNIL); } 
BgL_arg2739z00_1273 = 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_list2742z00_1274); } 
BgL_arg2734z00_1271 = 
string_append(BgL_rz00_1256, BgL_arg2739z00_1273); } 
{ 
obj_t BgL_rz00_5619;obj_t BgL_iz00_5617;
BgL_iz00_5617 = 
BINT(BgL_arg2733z00_1270); 
BgL_rz00_5619 = BgL_arg2734z00_1271; 
BgL_rz00_1256 = BgL_rz00_5619; 
BgL_iz00_1255 = BgL_iz00_5617; 
goto BgL_loopz00_1257;} } } } } } }  else 
{ /* ./Llib/pregexp.scm 655 */
long BgL_arg2760z00_1278;obj_t BgL_arg2761z00_1279;
{ /* ./Llib/pregexp.scm 655 */
long BgL_auxz00_5620;
BgL_auxz00_5620 = 
(long)CINT(BgL_iz00_1255); 
BgL_arg2760z00_1278 = 
(BgL_auxz00_5620+((long)1)); } 
{ /* ./Llib/pregexp.scm 655 */
obj_t BgL_arg2765z00_1280;
{ /* ./Llib/pregexp.scm 655 */
obj_t BgL_list2768z00_1281;
{ /* ./Llib/pregexp.scm 655 */
obj_t BgL_auxz00_5623;
BgL_auxz00_5623 = 
BCHAR(BgL_cz00_1259); 
BgL_list2768z00_1281 = 
MAKE_PAIR(BgL_auxz00_5623, BNIL); } 
BgL_arg2765z00_1280 = 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_list2768z00_1281); } 
BgL_arg2761z00_1279 = 
string_append(BgL_rz00_1256, BgL_arg2765z00_1280); } 
{ 
obj_t BgL_rz00_5630;obj_t BgL_iz00_5628;
BgL_iz00_5628 = 
BINT(BgL_arg2760z00_1278); 
BgL_rz00_5630 = BgL_arg2761z00_1279; 
BgL_rz00_1256 = BgL_rz00_5630; 
BgL_iz00_1255 = BgL_iz00_5628; 
goto BgL_loopz00_1257;} } } } } } 
}



/* pregexp */
BGL_EXPORTED_DEF obj_t BGl_pregexpz00zz__pregexpz00(obj_t BgL_sz00_62)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 657 */
BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00 = ((bool_t)1); 
{ /* ./Llib/pregexp.scm 660 */
obj_t BgL_arg2774z00_1282;obj_t BgL_arg2775z00_1283;
BgL_arg2774z00_1282 = BGl_keyword4494z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 660 */
obj_t BgL_auxz00_5632;
BgL_auxz00_5632 = 
BGl_pregexpzd2readzd2patternz00zz__pregexpz00(BgL_sz00_62, 
BINT(((long)0)), 
STRING_LENGTH(BgL_sz00_62)); 
BgL_arg2775z00_1283 = 
CAR(BgL_auxz00_5632); } 
{ /* ./Llib/pregexp.scm 660 */
obj_t BgL_list2777z00_1284;
{ /* ./Llib/pregexp.scm 660 */
obj_t BgL_arg2779z00_1285;
BgL_arg2779z00_1285 = 
MAKE_PAIR(BgL_arg2775z00_1283, BNIL); 
BgL_list2777z00_1284 = 
MAKE_PAIR(BgL_arg2774z00_1282, BgL_arg2779z00_1285); } 
return BgL_list2777z00_1284;} } } 
}



/* _pregexp3827 */
obj_t BGl__pregexp3827z00zz__pregexpz00(obj_t BgL_envz00_3180, obj_t BgL_sz00_3181)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 657 */
return 
BGl_pregexpz00zz__pregexpz00(BgL_sz00_3181);} 
}



/* pregexp-match-positions */
BGL_EXPORTED_DEF obj_t BGl_pregexpzd2matchzd2positionsz00zz__pregexpz00(obj_t BgL_patz00_63, obj_t BgL_strz00_64, obj_t BgL_optzd2argszd2_65)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 662 */
{ /* ./Llib/pregexp.scm 664 */
obj_t BgL_patz00_1289;
if(
STRINGP(BgL_patz00_63))
{ /* ./Llib/pregexp.scm 664 */
BgL_patz00_1289 = 
BGl_pregexpz00zz__pregexpz00(BgL_patz00_63); }  else 
{ /* ./Llib/pregexp.scm 664 */
BgL_patz00_1289 = BgL_patz00_63; } 
{ /* ./Llib/pregexp.scm 664 */
int BgL_strzd2lenzd2_1290;
BgL_strzd2lenzd2_1290 = 
STRING_LENGTH(BgL_strz00_64); 
{ /* ./Llib/pregexp.scm 665 */
obj_t BgL_startz00_1291;
if(
NULLP(BgL_optzd2argszd2_65))
{ /* ./Llib/pregexp.scm 666 */
BgL_startz00_1291 = 
BINT(((long)0)); }  else 
{ /* ./Llib/pregexp.scm 667 */
obj_t BgL_startz00_1300;
BgL_startz00_1300 = 
CAR(BgL_optzd2argszd2_65); 
BgL_optzd2argszd2_65 = 
CDR(BgL_optzd2argszd2_65); 
BgL_startz00_1291 = BgL_startz00_1300; } 
{ /* ./Llib/pregexp.scm 666 */
obj_t BgL_endz00_1292;
if(
NULLP(BgL_optzd2argszd2_65))
{ /* ./Llib/pregexp.scm 670 */
BgL_endz00_1292 = 
BINT(BgL_strzd2lenzd2_1290); }  else 
{ /* ./Llib/pregexp.scm 670 */
BgL_endz00_1292 = 
CAR(BgL_optzd2argszd2_65); } 
{ /* ./Llib/pregexp.scm 670 */

{ 
obj_t BgL_iz00_1293;
BgL_iz00_1293 = BgL_startz00_1291; 
BgL_loopz00_1294:
{ /* ./Llib/pregexp.scm 673 */
bool_t BgL_testz00_5653;
{ /* ./Llib/pregexp.scm 673 */
long BgL_auxz00_5656;long BgL_auxz00_5654;
BgL_auxz00_5656 = 
(long)CINT(BgL_endz00_1292); 
BgL_auxz00_5654 = 
(long)CINT(BgL_iz00_1293); 
BgL_testz00_5653 = 
(BgL_auxz00_5654<=BgL_auxz00_5656); } 
if(BgL_testz00_5653)
{ /* ./Llib/pregexp.scm 674 */
obj_t BgL_vvz00_1296;
BgL_vvz00_1296 = 
BGl_pregexpzd2matchzd2positionszd2auxzd2zz__pregexpz00(BgL_patz00_1289, BgL_strz00_64, BgL_strzd2lenzd2_1290, BgL_startz00_1291, BgL_endz00_1292, BgL_iz00_1293); 
if(
CBOOL(BgL_vvz00_1296))
{ /* ./Llib/pregexp.scm 677 */
obj_t BgL_auxz00_5662;
BgL_auxz00_5662 = 
CDR(BgL_vvz00_1296); 
return 
CAR(BgL_auxz00_5662);}  else 
{ /* ./Llib/pregexp.scm 678 */
long BgL_arg2793z00_1297;
{ /* ./Llib/pregexp.scm 678 */
long BgL_auxz00_5665;
BgL_auxz00_5665 = 
(long)CINT(BgL_iz00_1293); 
BgL_arg2793z00_1297 = 
(BgL_auxz00_5665+((long)1)); } 
{ 
obj_t BgL_iz00_5668;
BgL_iz00_5668 = 
BINT(BgL_arg2793z00_1297); 
BgL_iz00_1293 = BgL_iz00_5668; 
goto BgL_loopz00_1294;} } }  else 
{ /* ./Llib/pregexp.scm 673 */
return BFALSE;} } } } } } } } } 
}



/* _pregexp-match-positions */
obj_t BGl__pregexpzd2matchzd2positionsz00zz__pregexpz00(obj_t BgL_envz00_3182, obj_t BgL_patz00_3183, obj_t BgL_strz00_3184, obj_t BgL_optzd2argszd2_3185)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 662 */
return 
BGl_pregexpzd2matchzd2positionsz00zz__pregexpz00(BgL_patz00_3183, BgL_strz00_3184, BgL_optzd2argszd2_3185);} 
}



/* pregexp-match */
BGL_EXPORTED_DEF obj_t BGl_pregexpzd2matchzd2zz__pregexpz00(obj_t BgL_patz00_66, obj_t BgL_strz00_67, obj_t BgL_optzd2argszd2_68)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 680 */
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_ixzd2prszd2_1302;
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_runner2840z00_1323;
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_list2833z00_1319;
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_arg2835z00_1320;
BgL_arg2835z00_1320 = 
MAKE_PAIR(BgL_optzd2argszd2_68, BNIL); 
BgL_list2833z00_1319 = 
MAKE_PAIR(BgL_strz00_67, BgL_arg2835z00_1320); } 
BgL_runner2840z00_1323 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_patz00_66, BgL_list2833z00_1319); } 
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_aux2838z00_1321;
BgL_aux2838z00_1321 = 
CAR(BgL_runner2840z00_1323); 
BgL_runner2840z00_1323 = 
CDR(BgL_runner2840z00_1323); 
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_aux2839z00_1322;
BgL_aux2839z00_1322 = 
CAR(BgL_runner2840z00_1323); 
BgL_runner2840z00_1323 = 
CDR(BgL_runner2840z00_1323); 
BgL_ixzd2prszd2_1302 = 
BGl_pregexpzd2matchzd2positionsz00zz__pregexpz00(BgL_aux2838z00_1321, BgL_aux2839z00_1322, BgL_runner2840z00_1323); } } } 
if(
CBOOL(BgL_ixzd2prszd2_1302))
{ /* ./Llib/pregexp.scm 683 */
if(
NULLP(BgL_ixzd2prszd2_1302))
{ /* ./Llib/pregexp.scm 684 */
return BNIL;}  else 
{ /* ./Llib/pregexp.scm 684 */
obj_t BgL_head1061z00_1306;
BgL_head1061z00_1306 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1059z00_1307;obj_t BgL_tail1062z00_1308;
BgL_l1059z00_1307 = BgL_ixzd2prszd2_1302; 
BgL_tail1062z00_1308 = BgL_head1061z00_1306; 
BgL_map1060z00_1309:
if(
NULLP(BgL_l1059z00_1307))
{ /* ./Llib/pregexp.scm 684 */
return 
CDR(BgL_head1061z00_1306);}  else 
{ /* ./Llib/pregexp.scm 686 */
obj_t BgL_newtail1063z00_1311;
{ /* ./Llib/pregexp.scm 686 */
obj_t BgL_arg2819z00_1313;
{ /* ./Llib/pregexp.scm 686 */
obj_t BgL_ixzd2przd2_1315;
BgL_ixzd2przd2_1315 = 
CAR(BgL_l1059z00_1307); 
if(
CBOOL(BgL_ixzd2przd2_1315))
{ /* ./Llib/pregexp.scm 687 */
obj_t BgL_arg2823z00_1317;obj_t BgL_arg2824z00_1318;
BgL_arg2823z00_1317 = 
CAR(BgL_ixzd2przd2_1315); 
BgL_arg2824z00_1318 = 
CDR(BgL_ixzd2przd2_1315); 
{ /* ./Llib/pregexp.scm 687 */
int BgL_auxz00_5694;int BgL_auxz00_5692;
BgL_auxz00_5694 = 
CINT(BgL_arg2824z00_1318); 
BgL_auxz00_5692 = 
CINT(BgL_arg2823z00_1317); 
BgL_arg2819z00_1313 = 
c_substring(BgL_strz00_67, BgL_auxz00_5692, BgL_auxz00_5694); } }  else 
{ /* ./Llib/pregexp.scm 686 */
BgL_arg2819z00_1313 = BFALSE; } } 
BgL_newtail1063z00_1311 = 
MAKE_PAIR(BgL_arg2819z00_1313, BNIL); } 
SET_CDR(BgL_tail1062z00_1308, BgL_newtail1063z00_1311); 
{ 
obj_t BgL_tail1062z00_5701;obj_t BgL_l1059z00_5699;
BgL_l1059z00_5699 = 
CDR(BgL_l1059z00_1307); 
BgL_tail1062z00_5701 = BgL_newtail1063z00_1311; 
BgL_tail1062z00_1308 = BgL_tail1062z00_5701; 
BgL_l1059z00_1307 = BgL_l1059z00_5699; 
goto BgL_map1060z00_1309;} } } } }  else 
{ /* ./Llib/pregexp.scm 683 */
return BFALSE;} } } 
}



/* _pregexp-match */
obj_t BGl__pregexpzd2matchzd2zz__pregexpz00(obj_t BgL_envz00_3186, obj_t BgL_patz00_3187, obj_t BgL_strz00_3188, obj_t BgL_optzd2argszd2_3189)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 680 */
return 
BGl_pregexpzd2matchzd2zz__pregexpz00(BgL_patz00_3187, BgL_strz00_3188, BgL_optzd2argszd2_3189);} 
}



/* pregexp-split */
BGL_EXPORTED_DEF obj_t BGl_pregexpzd2splitzd2zz__pregexpz00(obj_t BgL_patz00_69, obj_t BgL_strz00_70)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 690 */
{ /* ./Llib/pregexp.scm 693 */
int BgL_nz00_1324;
BgL_nz00_1324 = 
STRING_LENGTH(BgL_strz00_70); 
{ 
obj_t BgL_iz00_1325;obj_t BgL_rz00_1326;bool_t BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_1327;
BgL_iz00_1325 = 
BINT(((long)0)); 
BgL_rz00_1326 = BNIL; 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_1327 = ((bool_t)0); 
BgL_loopz00_1328:
{ /* ./Llib/pregexp.scm 695 */
bool_t BgL_testz00_5704;
{ /* ./Llib/pregexp.scm 695 */
long BgL_auxz00_5707;long BgL_auxz00_5705;
BgL_auxz00_5707 = 
(long)(BgL_nz00_1324); 
BgL_auxz00_5705 = 
(long)CINT(BgL_iz00_1325); 
BgL_testz00_5704 = 
(BgL_auxz00_5705>=BgL_auxz00_5707); } 
if(BgL_testz00_5704)
{ /* ./Llib/pregexp.scm 695 */
return 
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_rz00_1326);}  else 
{ /* ./Llib/pregexp.scm 696 */
obj_t BgL_testzd2resultzd2_1330;
{ /* ./Llib/pregexp.scm 696 */
obj_t BgL_list2851z00_1333;
{ /* ./Llib/pregexp.scm 696 */
obj_t BgL_arg2853z00_1334;
{ /* ./Llib/pregexp.scm 696 */
obj_t BgL_auxz00_5711;
BgL_auxz00_5711 = 
BINT(BgL_nz00_1324); 
BgL_arg2853z00_1334 = 
MAKE_PAIR(BgL_auxz00_5711, BNIL); } 
BgL_list2851z00_1333 = 
MAKE_PAIR(BgL_iz00_1325, BgL_arg2853z00_1334); } 
BgL_testzd2resultzd2_1330 = 
BGl_pregexpzd2matchzd2positionsz00zz__pregexpz00(BgL_patz00_69, BgL_strz00_70, BgL_list2851z00_1333); } 
{ 
obj_t BgL__cdtest_1065z00_1335;
if(
CBOOL(BgL_testzd2resultzd2_1330))
{ /* ./Llib/pregexp.scm 696 */
BgL__cdtest_1065z00_1335 = BgL_testzd2resultzd2_1330; 
{ /* ./Llib/pregexp.scm 699 */
obj_t BgL_jkz00_1338;
BgL_jkz00_1338 = 
CAR(BgL__cdtest_1065z00_1335); 
{ /* ./Llib/pregexp.scm 700 */
obj_t BgL_jz00_1339;obj_t BgL_kz00_1340;
BgL_jz00_1339 = 
CAR(BgL_jkz00_1338); 
BgL_kz00_1340 = 
CDR(BgL_jkz00_1338); 
{ /* ./Llib/pregexp.scm 702 */
bool_t BgL_testz00_5721;
{ /* ./Llib/pregexp.scm 702 */
long BgL_auxz00_5724;long BgL_auxz00_5722;
BgL_auxz00_5724 = 
(long)CINT(BgL_kz00_1340); 
BgL_auxz00_5722 = 
(long)CINT(BgL_jz00_1339); 
BgL_testz00_5721 = 
(BgL_auxz00_5722==BgL_auxz00_5724); } 
if(BgL_testz00_5721)
{ /* ./Llib/pregexp.scm 702 */
{ /* ./Llib/pregexp.scm 704 */
long BgL_arg2859z00_1342;obj_t BgL_arg2860z00_1343;
{ /* ./Llib/pregexp.scm 704 */
long BgL_auxz00_5727;
BgL_auxz00_5727 = 
(long)CINT(BgL_kz00_1340); 
BgL_arg2859z00_1342 = 
(BgL_auxz00_5727+((long)1)); } 
{ /* ./Llib/pregexp.scm 705 */
obj_t BgL_arg2864z00_1344;
{ /* ./Llib/pregexp.scm 705 */
long BgL_arg2868z00_1345;
{ /* ./Llib/pregexp.scm 705 */
long BgL_auxz00_5730;
BgL_auxz00_5730 = 
(long)CINT(BgL_jz00_1339); 
BgL_arg2868z00_1345 = 
(BgL_auxz00_5730+((long)1)); } 
{ /* ./Llib/pregexp.scm 705 */
int BgL_auxz00_5735;int BgL_auxz00_5733;
BgL_auxz00_5735 = 
(int)(BgL_arg2868z00_1345); 
BgL_auxz00_5733 = 
CINT(BgL_iz00_1325); 
BgL_arg2864z00_1344 = 
c_substring(BgL_strz00_70, BgL_auxz00_5733, BgL_auxz00_5735); } } 
BgL_arg2860z00_1343 = 
MAKE_PAIR(BgL_arg2864z00_1344, BgL_rz00_1326); } 
{ 
bool_t BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_5742;obj_t BgL_rz00_5741;obj_t BgL_iz00_5739;
BgL_iz00_5739 = 
BINT(BgL_arg2859z00_1342); 
BgL_rz00_5741 = BgL_arg2860z00_1343; 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_5742 = ((bool_t)1); 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_1327 = BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_5742; 
BgL_rz00_1326 = BgL_rz00_5741; 
BgL_iz00_1325 = BgL_iz00_5739; 
goto BgL_loopz00_1328;} } }  else 
{ /* ./Llib/pregexp.scm 706 */
bool_t BgL_test2871z00_1346;
{ /* ./Llib/pregexp.scm 706 */
bool_t BgL_testz00_5743;
{ /* ./Llib/pregexp.scm 706 */
long BgL_auxz00_5746;long BgL_auxz00_5744;
BgL_auxz00_5746 = 
(long)CINT(BgL_iz00_1325); 
BgL_auxz00_5744 = 
(long)CINT(BgL_jz00_1339); 
BgL_testz00_5743 = 
(BgL_auxz00_5744==BgL_auxz00_5746); } 
if(BgL_testz00_5743)
{ /* ./Llib/pregexp.scm 706 */
BgL_test2871z00_1346 = BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_1327; }  else 
{ /* ./Llib/pregexp.scm 706 */
BgL_test2871z00_1346 = ((bool_t)0); } } 
if(BgL_test2871z00_1346)
{ /* ./Llib/pregexp.scm 706 */
{ 
bool_t BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_5751;obj_t BgL_iz00_5750;
BgL_iz00_5750 = BgL_kz00_1340; 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_5751 = ((bool_t)0); 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_1327 = BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_5751; 
BgL_iz00_1325 = BgL_iz00_5750; 
goto BgL_loopz00_1328;} }  else 
{ /* ./Llib/pregexp.scm 706 */
{ /* ./Llib/pregexp.scm 710 */
obj_t BgL_arg2874z00_1347;
{ /* ./Llib/pregexp.scm 710 */
obj_t BgL_auxz00_5752;
{ /* ./Llib/pregexp.scm 710 */
int BgL_auxz00_5755;int BgL_auxz00_5753;
BgL_auxz00_5755 = 
CINT(BgL_jz00_1339); 
BgL_auxz00_5753 = 
CINT(BgL_iz00_1325); 
BgL_auxz00_5752 = 
c_substring(BgL_strz00_70, BgL_auxz00_5753, BgL_auxz00_5755); } 
BgL_arg2874z00_1347 = 
MAKE_PAIR(BgL_auxz00_5752, BgL_rz00_1326); } 
{ 
bool_t BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_5761;obj_t BgL_rz00_5760;obj_t BgL_iz00_5759;
BgL_iz00_5759 = BgL_kz00_1340; 
BgL_rz00_5760 = BgL_arg2874z00_1347; 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_5761 = ((bool_t)0); 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_1327 = BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_5761; 
BgL_rz00_1326 = BgL_rz00_5760; 
BgL_iz00_1325 = BgL_iz00_5759; 
goto BgL_loopz00_1328;} } } } } } } }  else 
{ /* ./Llib/pregexp.scm 696 */
{ /* ./Llib/pregexp.scm 711 */
obj_t BgL_arg2888z00_1351;
{ /* ./Llib/pregexp.scm 711 */
obj_t BgL_auxz00_5762;
{ /* ./Llib/pregexp.scm 711 */
int BgL_auxz00_5763;
BgL_auxz00_5763 = 
CINT(BgL_iz00_1325); 
BgL_auxz00_5762 = 
c_substring(BgL_strz00_70, BgL_auxz00_5763, BgL_nz00_1324); } 
BgL_arg2888z00_1351 = 
MAKE_PAIR(BgL_auxz00_5762, BgL_rz00_1326); } 
{ 
bool_t BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_5770;obj_t BgL_rz00_5769;obj_t BgL_iz00_5767;
BgL_iz00_5767 = 
BINT(BgL_nz00_1324); 
BgL_rz00_5769 = BgL_arg2888z00_1351; 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_5770 = ((bool_t)0); 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_1327 = BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_5770; 
BgL_rz00_1326 = BgL_rz00_5769; 
BgL_iz00_1325 = BgL_iz00_5767; 
goto BgL_loopz00_1328;} } } } } } } } } 
}



/* _pregexp-split */
obj_t BGl__pregexpzd2splitzd2zz__pregexpz00(obj_t BgL_envz00_3190, obj_t BgL_patz00_3191, obj_t BgL_strz00_3192)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 690 */
return 
BGl_pregexpzd2splitzd2zz__pregexpz00(BgL_patz00_3191, BgL_strz00_3192);} 
}



/* pregexp-replace */
BGL_EXPORTED_DEF obj_t BGl_pregexpzd2replacezd2zz__pregexpz00(obj_t BgL_patz00_71, obj_t BgL_strz00_72, obj_t BgL_insz00_73)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 713 */
{ /* ./Llib/pregexp.scm 715 */
int BgL_nz00_1355;
BgL_nz00_1355 = 
STRING_LENGTH(BgL_strz00_72); 
{ /* ./Llib/pregexp.scm 715 */
obj_t BgL_ppz00_1356;
{ /* ./Llib/pregexp.scm 716 */
obj_t BgL_list2908z00_1363;
{ /* ./Llib/pregexp.scm 716 */
obj_t BgL_arg2912z00_1365;
{ /* ./Llib/pregexp.scm 716 */
obj_t BgL_auxz00_5774;
BgL_auxz00_5774 = 
BINT(BgL_nz00_1355); 
BgL_arg2912z00_1365 = 
MAKE_PAIR(BgL_auxz00_5774, BNIL); } 
{ /* ./Llib/pregexp.scm 716 */
obj_t BgL_auxz00_5777;
BgL_auxz00_5777 = 
BINT(((long)0)); 
BgL_list2908z00_1363 = 
MAKE_PAIR(BgL_auxz00_5777, BgL_arg2912z00_1365); } } 
BgL_ppz00_1356 = 
BGl_pregexpzd2matchzd2positionsz00zz__pregexpz00(BgL_patz00_71, BgL_strz00_72, BgL_list2908z00_1363); } 
{ /* ./Llib/pregexp.scm 716 */

if(
CBOOL(BgL_ppz00_1356))
{ /* ./Llib/pregexp.scm 718 */
int BgL_inszd2lenzd2_1357;obj_t BgL_mzd2izd2_1358;obj_t BgL_mzd2nzd2_1359;
BgL_inszd2lenzd2_1357 = 
STRING_LENGTH(BgL_insz00_73); 
{ /* ./Llib/pregexp.scm 719 */
obj_t BgL_auxz00_5784;
BgL_auxz00_5784 = 
CAR(BgL_ppz00_1356); 
BgL_mzd2izd2_1358 = 
CAR(BgL_auxz00_5784); } 
{ /* ./Llib/pregexp.scm 720 */
obj_t BgL_auxz00_5787;
BgL_auxz00_5787 = 
CAR(BgL_ppz00_1356); 
BgL_mzd2nzd2_1359 = 
CDR(BgL_auxz00_5787); } 
{ /* ./Llib/pregexp.scm 721 */
obj_t BgL_auxz00_5798;obj_t BgL_auxz00_5796;obj_t BgL_auxz00_5790;
{ /* ./Llib/pregexp.scm 724 */
int BgL_auxz00_5799;
BgL_auxz00_5799 = 
CINT(BgL_mzd2nzd2_1359); 
BgL_auxz00_5798 = 
c_substring(BgL_strz00_72, BgL_auxz00_5799, BgL_nz00_1355); } 
BgL_auxz00_5796 = 
BGl_pregexpzd2replacezd2auxz00zz__pregexpz00(BgL_strz00_72, BgL_insz00_73, BgL_inszd2lenzd2_1357, BgL_ppz00_1356); 
{ /* ./Llib/pregexp.scm 722 */
int BgL_auxz00_5793;int BgL_auxz00_5791;
BgL_auxz00_5793 = 
CINT(BgL_mzd2izd2_1358); 
BgL_auxz00_5791 = 
(int)(((long)0)); 
BgL_auxz00_5790 = 
c_substring(BgL_strz00_72, BgL_auxz00_5791, BgL_auxz00_5793); } 
return 
string_append_3(BgL_auxz00_5790, BgL_auxz00_5796, BgL_auxz00_5798);} }  else 
{ /* ./Llib/pregexp.scm 717 */
return BgL_strz00_72;} } } } } 
}



/* _pregexp-replace */
obj_t BGl__pregexpzd2replacezd2zz__pregexpz00(obj_t BgL_envz00_3193, obj_t BgL_patz00_3194, obj_t BgL_strz00_3195, obj_t BgL_insz00_3196)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 713 */
return 
BGl_pregexpzd2replacezd2zz__pregexpz00(BgL_patz00_3194, BgL_strz00_3195, BgL_insz00_3196);} 
}



/* pregexp-replace* */
BGL_EXPORTED_DEF obj_t BGl_pregexpzd2replaceza2z70zz__pregexpz00(obj_t BgL_patz00_74, obj_t BgL_strz00_75, obj_t BgL_insz00_76)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 726 */
{ /* ./Llib/pregexp.scm 730 */
obj_t BgL_patz00_1366;int BgL_nz00_1367;int BgL_inszd2lenzd2_1368;
if(
STRINGP(BgL_patz00_74))
{ /* ./Llib/pregexp.scm 730 */
BgL_patz00_1366 = 
BGl_pregexpz00zz__pregexpz00(BgL_patz00_74); }  else 
{ /* ./Llib/pregexp.scm 730 */
BgL_patz00_1366 = BgL_patz00_74; } 
BgL_nz00_1367 = 
STRING_LENGTH(BgL_strz00_75); 
BgL_inszd2lenzd2_1368 = 
STRING_LENGTH(BgL_insz00_76); 
{ 
obj_t BgL_iz00_1369;obj_t BgL_rz00_1370;
BgL_iz00_1369 = 
BINT(((long)0)); 
BgL_rz00_1370 = BGl_string4547z00zz__pregexpz00; 
BgL_loopz00_1371:
{ /* ./Llib/pregexp.scm 736 */
bool_t BgL_testz00_5809;
{ /* ./Llib/pregexp.scm 736 */
long BgL_auxz00_5812;long BgL_auxz00_5810;
BgL_auxz00_5812 = 
(long)(BgL_nz00_1367); 
BgL_auxz00_5810 = 
(long)CINT(BgL_iz00_1369); 
BgL_testz00_5809 = 
(BgL_auxz00_5810>=BgL_auxz00_5812); } 
if(BgL_testz00_5809)
{ /* ./Llib/pregexp.scm 736 */
return BgL_rz00_1370;}  else 
{ /* ./Llib/pregexp.scm 737 */
obj_t BgL_ppz00_1373;
{ /* ./Llib/pregexp.scm 737 */
obj_t BgL_list2940z00_1381;
{ /* ./Llib/pregexp.scm 737 */
obj_t BgL_arg2942z00_1382;
{ /* ./Llib/pregexp.scm 737 */
obj_t BgL_auxz00_5815;
BgL_auxz00_5815 = 
BINT(BgL_nz00_1367); 
BgL_arg2942z00_1382 = 
MAKE_PAIR(BgL_auxz00_5815, BNIL); } 
BgL_list2940z00_1381 = 
MAKE_PAIR(BgL_iz00_1369, BgL_arg2942z00_1382); } 
BgL_ppz00_1373 = 
BGl_pregexpzd2matchzd2positionsz00zz__pregexpz00(BgL_patz00_1366, BgL_strz00_75, BgL_list2940z00_1381); } 
if(
CBOOL(BgL_ppz00_1373))
{ /* ./Llib/pregexp.scm 748 */
obj_t BgL_arg2920z00_1374;obj_t BgL_arg2921z00_1375;
{ /* ./Llib/pregexp.scm 748 */
obj_t BgL_auxz00_5822;
BgL_auxz00_5822 = 
CAR(BgL_ppz00_1373); 
BgL_arg2920z00_1374 = 
CDR(BgL_auxz00_5822); } 
{ /* ./Llib/pregexp.scm 751 */
obj_t BgL_arg2925z00_1376;obj_t BgL_arg2926z00_1377;
{ /* ./Llib/pregexp.scm 751 */
obj_t BgL_arg2929z00_1378;
{ /* ./Llib/pregexp.scm 751 */
obj_t BgL_auxz00_5825;
BgL_auxz00_5825 = 
CAR(BgL_ppz00_1373); 
BgL_arg2929z00_1378 = 
CAR(BgL_auxz00_5825); } 
{ /* ./Llib/pregexp.scm 751 */
int BgL_auxz00_5830;int BgL_auxz00_5828;
BgL_auxz00_5830 = 
CINT(BgL_arg2929z00_1378); 
BgL_auxz00_5828 = 
CINT(BgL_iz00_1369); 
BgL_arg2925z00_1376 = 
c_substring(BgL_strz00_75, BgL_auxz00_5828, BgL_auxz00_5830); } } 
BgL_arg2926z00_1377 = 
BGl_pregexpzd2replacezd2auxz00zz__pregexpz00(BgL_strz00_75, BgL_insz00_76, BgL_inszd2lenzd2_1368, BgL_ppz00_1373); 
BgL_arg2921z00_1375 = 
string_append_3(BgL_rz00_1370, BgL_arg2925z00_1376, BgL_arg2926z00_1377); } 
{ 
obj_t BgL_rz00_5836;obj_t BgL_iz00_5835;
BgL_iz00_5835 = BgL_arg2920z00_1374; 
BgL_rz00_5836 = BgL_arg2921z00_1375; 
BgL_rz00_1370 = BgL_rz00_5836; 
BgL_iz00_1369 = BgL_iz00_5835; 
goto BgL_loopz00_1371;} }  else 
{ /* ./Llib/pregexp.scm 739 */
bool_t BgL_testz00_5837;
{ /* ./Llib/pregexp.scm 739 */
long BgL_auxz00_5838;
BgL_auxz00_5838 = 
(long)CINT(BgL_iz00_1369); 
BgL_testz00_5837 = 
(BgL_auxz00_5838==((long)0)); } 
if(BgL_testz00_5837)
{ /* ./Llib/pregexp.scm 739 */
return BgL_strz00_75;}  else 
{ /* ./Llib/pregexp.scm 746 */
obj_t BgL_auxz00_5841;
{ /* ./Llib/pregexp.scm 747 */
int BgL_auxz00_5842;
BgL_auxz00_5842 = 
CINT(BgL_iz00_1369); 
BgL_auxz00_5841 = 
c_substring(BgL_strz00_75, BgL_auxz00_5842, BgL_nz00_1367); } 
return 
string_append(BgL_rz00_1370, BgL_auxz00_5841);} } } } } } } 
}



/* _pregexp-replace* */
obj_t BGl__pregexpzd2replaceza2z70zz__pregexpz00(obj_t BgL_envz00_3197, obj_t BgL_patz00_3198, obj_t BgL_strz00_3199, obj_t BgL_insz00_3200)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 726 */
return 
BGl_pregexpzd2replaceza2z70zz__pregexpz00(BgL_patz00_3198, BgL_strz00_3199, BgL_insz00_3200);} 
}



/* pregexp-quote */
BGL_EXPORTED_DEF obj_t BGl_pregexpzd2quotezd2zz__pregexpz00(obj_t BgL_sz00_77)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 754 */
{ 
long BgL_iz00_1384;obj_t BgL_rz00_1385;
{ /* ./Llib/pregexp.scm 756 */
long BgL_auxz00_5871;
{ /* ./Llib/pregexp.scm 756 */
int BgL_auxz00_5872;
BgL_auxz00_5872 = 
STRING_LENGTH(BgL_sz00_77); 
BgL_auxz00_5871 = 
(long)(BgL_auxz00_5872); } 
BgL_iz00_1384 = 
(BgL_auxz00_5871-((long)1)); } 
BgL_rz00_1385 = BNIL; 
BgL_loopz00_1386:
if(
(BgL_iz00_1384<((long)0)))
{ /* ./Llib/pregexp.scm 757 */
return 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_rz00_1385);}  else 
{ /* ./Llib/pregexp.scm 758 */
long BgL_arg2963z00_1392;obj_t BgL_arg2964z00_1393;
BgL_arg2963z00_1392 = 
(BgL_iz00_1384-((long)1)); 
{ /* ./Llib/pregexp.scm 759 */
unsigned char BgL_cz00_1394;
{ /* ./Llib/pregexp.scm 759 */
int BgL_auxz00_5852;
BgL_auxz00_5852 = 
(int)(BgL_iz00_1384); 
BgL_cz00_1394 = 
STRING_REF(BgL_sz00_77, BgL_auxz00_5852); } 
{ /* ./Llib/pregexp.scm 760 */
bool_t BgL_testz00_5855;
{ /* ./Llib/pregexp.scm 760 */
obj_t BgL_auxz00_5856;
BgL_auxz00_5856 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(
BCHAR(BgL_cz00_1394), BGl_list4548z00zz__pregexpz00); 
BgL_testz00_5855 = 
CBOOL(BgL_auxz00_5856); } 
if(BgL_testz00_5855)
{ /* ./Llib/pregexp.scm 762 */
obj_t BgL_arg2969z00_1396;
{ /* ./Llib/pregexp.scm 762 */
obj_t BgL_auxz00_5860;
BgL_auxz00_5860 = 
BCHAR(BgL_cz00_1394); 
BgL_arg2969z00_1396 = 
MAKE_PAIR(BgL_auxz00_5860, BgL_rz00_1385); } 
{ /* ./Llib/pregexp.scm 762 */
obj_t BgL_auxz00_5863;
BgL_auxz00_5863 = 
BCHAR(((unsigned char)'\\')); 
BgL_arg2964z00_1393 = 
MAKE_PAIR(BgL_auxz00_5863, BgL_arg2969z00_1396); } }  else 
{ /* ./Llib/pregexp.scm 763 */
obj_t BgL_auxz00_5866;
BgL_auxz00_5866 = 
BCHAR(BgL_cz00_1394); 
BgL_arg2964z00_1393 = 
MAKE_PAIR(BgL_auxz00_5866, BgL_rz00_1385); } } } 
{ 
obj_t BgL_rz00_5870;long BgL_iz00_5869;
BgL_iz00_5869 = BgL_arg2963z00_1392; 
BgL_rz00_5870 = BgL_arg2964z00_1393; 
BgL_rz00_1385 = BgL_rz00_5870; 
BgL_iz00_1384 = BgL_iz00_5869; 
goto BgL_loopz00_1386;} } } } 
}



/* _pregexp-quote */
obj_t BGl__pregexpzd2quotezd2zz__pregexpz00(obj_t BgL_envz00_3201, obj_t BgL_sz00_3202)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 754 */
return 
BGl_pregexpzd2quotezd2zz__pregexpz00(BgL_sz00_3202);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__pregexpz00()
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 17 */
return 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__pregexp");} 
}

