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

/* debug mode */
#define BIGLOO_DEBUG 1

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

static obj_t BGl_fkz00zz__pregexpz00(obj_t);
static obj_t BGl_keyword10390z00zz__pregexpz00 = BUNSPEC;
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);
static obj_t BGl_keyword10392z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10403z00zz__pregexpz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_pregexpzd2matchzd2zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_keyword10404z00zz__pregexpz00 = BUNSPEC;
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_keyword10405z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10406z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_list10488z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10407z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10325z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl__pregexpzd2quotezd2zz__pregexpz00(obj_t, obj_t);
static obj_t BGl_keyword10408z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10326z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10410z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10409z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10327z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32427za3Llibzf2pregexpze2scmza3517ze3z93zz__pregexpz00(obj_t);
static obj_t BGl_keyword10411z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10328z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10412z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10413z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10331z00zz__pregexpz00 = BUNSPEC;
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_symbol10332z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32527za3Llibzf2pregexpze2scmza3556ze3z93zz__pregexpz00(obj_t);
static obj_t BGl_list10508z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10335z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10336z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32464za3Llibzf2pregexpze2scmza3530ze3z93zz__pregexpz00(obj_t, obj_t, obj_t);
extern obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_zc3anonymousza32638za3Llibzf2pregexpze2scmza3623ze3z93zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_pregexpzd2readzd2escapedzd2charzd2zz__pregexpz00(obj_t, obj_t, int);
static obj_t BGl_symbol10344z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10345z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10352z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10353z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10354z00zz__pregexpz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_pregexpz00zz__pregexpz00(obj_t);
static obj_t BGl_symbol10363z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32608za3Llibzf2pregexpze2scmza3587ze3z93zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol10364z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2readzd2charzd2listzd2zz__pregexpz00(obj_t, long, int);
static obj_t BGl_pregexpzd2matchzd2positionszd2auxzd2zz__pregexpz00(obj_t, obj_t, int, obj_t, 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_symbol10380z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10379z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32518za3Llibzf2pregexpze2scmza3551ze3z93zz__pregexpz00(obj_t);
static obj_t BGl_pregexpzd2errorzd2zz__pregexpz00(obj_t, obj_t);
static obj_t BGl_symbol10382z00zz__pregexpz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_pregexpzd2splitzd2zz__pregexpz00(obj_t, obj_t);
static obj_t BGl_symbol10383z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10384z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10385z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32618za3Llibzf2pregexpze2scmza3601ze3z93zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol10387z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32554za3Llibzf2pregexpze2scmza3563ze3z93zz__pregexpz00(obj_t);
static obj_t BGl_symbol10388z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10401z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10391z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10402z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10393z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_za2pregexpzd2nulzd2charzd2intza2zd2zz__pregexpz00 = BUNSPEC;
extern obj_t string_to_symbol(char *);
static obj_t BGl_symbol10397z00zz__pregexpz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_pregexpzd2replacezd2zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol10398z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl__pregexpzd2splitzd2zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol10399z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10414z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_za2pregexpzd2tabzd2charza2z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10415z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10417z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10419z00zz__pregexpz00 = BUNSPEC;
extern obj_t c_substring(obj_t, int, int);
static obj_t BGl_symbol10422z00zz__pregexpz00 = BUNSPEC;
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_symbol10423z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10424z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10426z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10427z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10428z00zz__pregexpz00 = BUNSPEC;
extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol10430z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10432z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2readzd2subpatternz00zz__pregexpz00(obj_t, long, int);
static obj_t BGl_symbol10434z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10435z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10436z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10438z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10440z00zz__pregexpz00 = BUNSPEC;
extern obj_t bgl_append2(obj_t, obj_t);
extern obj_t string_append(obj_t, obj_t);
static obj_t BGl_symbol10453z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10454z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32487za3Llibzf2pregexpze2scmza3538ze3z93zz__pregexpz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_pregexpzd2matchzd2positionsz00zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol10456z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10457z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10459z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10461z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2readzd2numsz00zz__pregexpz00(obj_t, long, int);
static obj_t BGl_symbol10462z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__pregexpz00();
static obj_t BGl_symbol10463z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10464z00zz__pregexpz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_pregexpzd2quotezd2zz__pregexpz00(obj_t);
static obj_t BGl_symbol10467z00zz__pregexpz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_pregexpzd2replaceza2z70zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol10468z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2reversez12zc0zz__pregexpz00(obj_t);
static obj_t BGl_symbol10470z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl__pregexpzd2matchzd2zz__pregexpz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol10471z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10472z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10475z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10476z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2wrapzd2quantifierzd2ifzd2anyz00zz__pregexpz00(obj_t, obj_t, int);
static obj_t BGl_symbol10477z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2stringzd2matchz00zz__pregexpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_pregexpzd2readzd2escapedzd2numberzd2zz__pregexpz00(obj_t, obj_t, int);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol10479z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10481z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32500za3Llibzf2pregexpze2scmza3545ze3z93zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol10483z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10485z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32595za3Llibzf2pregexpze2scmza3578ze3z93zz__pregexpz00(obj_t);
static obj_t BGl_symbol10486z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10500z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10490z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10489z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10501z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10491z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10502z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10503z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10493z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10504z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10494z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10505z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10495z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl__pregexp4047z00zz__pregexpz00(obj_t, obj_t);
static obj_t BGl_symbol10506z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10496z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10507z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10497z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32610za3Llibzf2pregexpze2scmza3587ze3z93zz__pregexpz00(obj_t);
static obj_t BGl_list10358z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32581za3Llibzf2pregexpze2scmza3572ze3z93zz__pregexpz00(obj_t);
static obj_t BGl_list10360z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2replacezd2auxz00zz__pregexpz00(obj_t, obj_t, int, obj_t);
static obj_t BGl_za2pregexpzd2returnzd2charza2z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_list10362z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl__pregexpzd2replaceza2z70zz__pregexpz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list10365z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl__pregexpzd2replacezd2zz__pregexpz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, 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_symbol10521z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_list10369z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_symbol10522z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_list10371z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2listzd2refz00zz__pregexpz00(obj_t, obj_t);
static obj_t BGl_list10373z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_list10375z00zz__pregexpz00 = BUNSPEC;
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
static obj_t BGl_list10377z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2readzd2posixzd2charzd2classz00zz__pregexpz00(obj_t, long, int);
static obj_t BGl_zc3anonymousza32409za3Llibzf2pregexpze2scmza3512ze3z93zz__pregexpz00(obj_t);
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_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_list10396z00zz__pregexpz00 = BUNSPEC;
extern obj_t string_to_keyword(char *);
static obj_t BGl_pregexpzd2atzd2wordzd2boundaryzf3z21zz__pregexpz00(obj_t, obj_t, obj_t);
extern bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_list10421z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32629za3Llibzf2pregexpze2scmza3617ze3z93zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32445za3Llibzf2pregexpze2scmza3523ze3z93zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_list10425z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10337z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_list10429z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10338z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_list10431z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_list10433z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_list10437z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10346z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10347z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_list10439z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10348z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10350z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10349z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10351z00zz__pregexpz00 = BUNSPEC;
extern unsigned char BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(long);
static obj_t BGl_zc3anonymousza32325za3Llibzf2pregexpze2scmza3470ze3z93zz__pregexpz00(obj_t);
static obj_t BGl_list10445z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32470za3Llibzf2pregexpze2scmza3530ze3z93zz__pregexpz00(obj_t);
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 obj_t BGl_za2pregexpzd2commentzd2charza2z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10355z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10356z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10357z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10359z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2readzd2branchz00zz__pregexpz00(obj_t, obj_t, int);
static obj_t BGl_list10452z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10361z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__pregexpz00();
static obj_t BGl_list10455z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10366z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32425za3Llibzf2pregexpze2scmza3517ze3z93zz__pregexpz00(obj_t, obj_t, obj_t);
static obj_t BGl_keyword10367z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10368z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10370z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl__pregexpzd2matchzd2positionsz00zz__pregexpz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_keyword10372z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2checkzd2ifzd2inzd2charzd2classzf3z21zz__pregexpz00(unsigned char, obj_t);
static obj_t BGl_keyword10374z00zz__pregexpz00 = BUNSPEC;
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_list10466z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10376z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_pregexpzd2readzd2piecez00zz__pregexpz00(obj_t, obj_t, int);
static obj_t BGl_keyword10378z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_keyword10381z00zz__pregexpz00 = BUNSPEC;
static obj_t BGl_list10474z00zz__pregexpz00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_STRING( BGl_string10340z00zz__pregexpz00, BgL_bgl_string10340za700za7za7__pregexpza70010588z00, "int", 3 );
DEFINE_STRING( BGl_string10339z00zz__pregexpz00, BgL_bgl_string10339za700za7za7__pregexpza70010589z00, "pair-nil", 8 );
DEFINE_STRING( BGl_string10341z00zz__pregexpz00, BgL_bgl_string10341za700za7za7__pregexpza70010590z00, "string-ref", 10 );
DEFINE_STRING( BGl_string10342z00zz__pregexpz00, BgL_bgl_string10342za700za7za7__pregexpza70010591z00, "index out of range", 18 );
DEFINE_STRING( BGl_string10343z00zz__pregexpz00, BgL_bgl_string10343za700za7za7__pregexpza70010592z00, "uchar", 5 );
extern obj_t BGl_charzd2cizc3zd3zf3zd2envze3zz__r4_characters_6_6z00;
DEFINE_STATIC_PROCEDURE( BGl_proc10416z00zz__pregexpz00, BgL_bgl_za7c3anonymousza7a32325za7a3llibza7f2pregexpza7e2scmza7a3470za7e3za793za7za7__pregexpza70010593za7, BGl_zc3anonymousza32325za3Llibzf2pregexpze2scmza3470ze3z93zz__pregexpz00, 0L, 0 );
extern obj_t BGl_charzd3zf3zd2envzf2zz__r4_characters_6_6z00;
DEFINE_STATIC_PROCEDURE( BGl_proc10443z00zz__pregexpz00, BgL_bgl_za7c3anonymousza7a32518za7a3llibza7f2pregexpza7e2scmza7a3551za7e3za793za7za7__pregexpza70010594za7, BGl_zc3anonymousza32518za3Llibzf2pregexpze2scmza3551ze3z93zz__pregexpz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc10444z00zz__pregexpz00, BgL_bgl_za7c3anonymousza7a32527za7a3llibza7f2pregexpza7e2scmza7a3556za7e3za793za7za7__pregexpza70010595za7, BGl_zc3anonymousza32527za3Llibzf2pregexpze2scmza3556ze3z93zz__pregexpz00, 0L, 0 );
DEFINE_STRING( BGl_string10386z00zz__pregexpz00, BgL_bgl_string10386za700za7za7__pregexpza70010596z00, "left bracket must be followed by number", 39 );
DEFINE_STRING( BGl_string10400z00zz__pregexpz00, BgL_bgl_string10400za700za7za7__pregexpza70010597z00, "bstring", 7 );
DEFINE_STRING( BGl_string10389z00zz__pregexpz00, BgL_bgl_string10389za700za7za7__pregexpza70010598z00, "character class ended too soon", 30 );
DEFINE_STATIC_PROCEDURE( BGl_proc10450z00zz__pregexpz00, BgL_bgl_za7c3anonymousza7a32581za7a3llibza7f2pregexpza7e2scmza7a3572za7e3za793za7za7__pregexpza70010599za7, BGl_zc3anonymousza32581za3Llibzf2pregexpze2scmza3572ze3z93zz__pregexpz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc10449z00zz__pregexpz00, BgL_bgl_za7c3anonymousza7a32554za7a3llibza7f2pregexpza7e2scmza7a3563za7e3za793za7za7__pregexpza70010600za7, BGl_zc3anonymousza32554za3Llibzf2pregexpze2scmza3563ze3z93zz__pregexpz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc10451z00zz__pregexpz00, BgL_bgl_za7c3anonymousza7a32595za7a3llibza7f2pregexpza7e2scmza7a3578za7e3za793za7za7__pregexpza70010601za7, BGl_zc3anonymousza32595za3Llibzf2pregexpze2scmza3578ze3z93zz__pregexpz00, 0L, 0 );
DEFINE_STRING( BGl_string10394z00zz__pregexpz00, BgL_bgl_string10394za700za7za7__pregexpza70010602z00, "procedure", 9 );
DEFINE_STRING( BGl_string10395z00zz__pregexpz00, BgL_bgl_string10395za700za7za7__pregexpza70010603z00, "pregexp-string-match:Wrong number of arguments", 46 );
extern obj_t BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00;
DEFINE_EXPORT_PROCEDURE( BGl_pregexpzd2matchzd2positionszd2envzd2zz__pregexpz00, BgL_bgl__pregexpza7d2matchza7d2positionsza700za7za7__pregexpza70010604z00, va_generic_entry, BGl__pregexpzd2matchzd2positionsz00zz__pregexpz00, -3 );
DEFINE_STRING( BGl_string10418z00zz__pregexpz00, BgL_bgl_string10418za700za7za7__pregexpza70010605z00, "loup-one-of-chars:Wrong number of arguments", 43 );
DEFINE_STRING( BGl_string10420z00zz__pregexpz00, BgL_bgl_string10420za700za7za7__pregexpza70010606z00, "sub:Wrong number of arguments", 29 );
DEFINE_STRING( BGl_string10441z00zz__pregexpz00, BgL_bgl_string10441za700za7za7__pregexpza70010607z00, "substring", 9 );
DEFINE_STRING( BGl_string10442z00zz__pregexpz00, BgL_bgl_string10442za700za7za7__pregexpza70010608z00, "Illegal index", 13 );
DEFINE_EXPORT_PROCEDURE( BGl_pregexpzd2quotezd2envz00zz__pregexpz00, BgL_bgl__pregexpza7d2quoteza7d2za7za7__pregexpza70010609za7, BGl__pregexpzd2quotezd2zz__pregexpz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_pregexpzd2replaceza2zd2envza2zz__pregexpz00, BgL_bgl__pregexpza7d2replaceza7a2za770za7za7__pregexpza70010610z00, BGl__pregexpzd2replaceza2z70zz__pregexpz00, 0L, 3 );
DEFINE_STRING( BGl_string10458z00zz__pregexpz00, BgL_bgl_string10458za700za7za7__pregexpza70010611z00, "loup-seq:Wrong number of arguments", 34 );
DEFINE_STRING( BGl_string10460z00zz__pregexpz00, BgL_bgl_string10460za700za7za7__pregexpza70010612z00, "loup-or:Wrong number of arguments", 33 );
DEFINE_STRING( BGl_string10465z00zz__pregexpz00, BgL_bgl_string10465za700za7za7__pregexpza70010613z00, "<anonymous:2427:Llib/pregexp.scm:517>:Wrong number of arguments", 63 );
DEFINE_STRING( BGl_string10469z00zz__pregexpz00, BgL_bgl_string10469za700za7za7__pregexpza70010614z00, "<anonymous:2425:Llib/pregexp.scm:517>:Wrong number of arguments", 63 );
DEFINE_EXPORT_PROCEDURE( BGl_pregexpzd2matchzd2envz00zz__pregexpz00, BgL_bgl__pregexpza7d2matchza7d2za7za7__pregexpza70010615za7, va_generic_entry, BGl__pregexpzd2matchzd2zz__pregexpz00, -3 );
DEFINE_STRING( BGl_string10473z00zz__pregexpz00, BgL_bgl_string10473za700za7za7__pregexpza70010616z00, "<anonymous:2464:Llib/pregexp.scm:530>:Wrong number of arguments", 63 );
DEFINE_EXPORT_PROCEDURE( BGl_pregexpzd2envzd2zz__pregexpz00, BgL_bgl__pregexp4047za700za7za7__pregexpza70010617z00, BGl__pregexp4047z00zz__pregexpz00, 0L, 1 );
DEFINE_STRING( BGl_string10478z00zz__pregexpz00, BgL_bgl_string10478za700za7za7__pregexpza70010618z00, "<anonymous:2487:Llib/pregexp.scm:538>:Wrong number of arguments", 63 );
DEFINE_STRING( BGl_string10480z00zz__pregexpz00, BgL_bgl_string10480za700za7za7__pregexpza70010619z00, "<anonymous:2500:Llib/pregexp.scm:545>:Wrong number of arguments", 63 );
DEFINE_STRING( BGl_string10482z00zz__pregexpz00, BgL_bgl_string10482za700za7za7__pregexpza70010620z00, "<anonymous:2610:Llib/pregexp.scm:587>:Wrong number of arguments", 63 );
DEFINE_STRING( BGl_string10484z00zz__pregexpz00, BgL_bgl_string10484za700za7za7__pregexpza70010621z00, "<anonymous:2608:Llib/pregexp.scm:587>:Wrong number of arguments", 63 );
DEFINE_STRING( BGl_string10487z00zz__pregexpz00, BgL_bgl_string10487za700za7za7__pregexpza70010622z00, "fk:Wrong number of arguments", 28 );
DEFINE_STRING( BGl_string10492z00zz__pregexpz00, BgL_bgl_string10492za700za7za7__pregexpza70010623z00, "", 0 );
DEFINE_STRING( BGl_string10498z00zz__pregexpz00, BgL_bgl_string10498za700za7za7__pregexpza70010624z00, "map", 3 );
DEFINE_STRING( BGl_string10499z00zz__pregexpz00, BgL_bgl_string10499za700za7za7__pregexpza70010625z00, "argument not a list", 19 );
DEFINE_EXPORT_PROCEDURE( BGl_pregexpzd2replacezd2envz00zz__pregexpz00, BgL_bgl__pregexpza7d2replaceza7d2za7za7__pregexpza70010626za7, BGl__pregexpzd2replacezd2zz__pregexpz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_pregexpzd2splitzd2envz00zz__pregexpz00, BgL_bgl__pregexpza7d2splitza7d2za7za7__pregexpza70010627za7, BGl__pregexpzd2splitzd2zz__pregexpz00, 0L, 2 );
extern obj_t BGl_charzc3zd3zf3zd2envz31zz__r4_characters_6_6z00;
DEFINE_STRING( BGl_string10330z00zz__pregexpz00, BgL_bgl_string10330za700za7za7__pregexpza70010628z00, "/tmp/bigloo/runtime/./Llib/pregexp.scm", 38 );
DEFINE_STRING( BGl_string10329z00zz__pregexpz00, BgL_bgl_string10329za700za7za7__pregexpza70010629z00, "long", 4 );
DEFINE_STRING( BGl_string10333z00zz__pregexpz00, BgL_bgl_string10333za700za7za7__pregexpza70010630z00, "pair", 4 );
DEFINE_STRING( BGl_string10334z00zz__pregexpz00, BgL_bgl_string10334za700za7za7__pregexpza70010631z00, "pregexp", 7 );
extern obj_t BGl_charzd2cizd3zf3zd2envz20zz__r4_characters_6_6z00;



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__pregexpz00(long BgL_checksumz00_4906, char * BgL_fromz00_4907)
{ 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_symbol10325z00zz__pregexpz00 = 
string_to_symbol("%toplevel@__pregexp"); 
BGl_symbol10326z00zz__pregexpz00 = 
string_to_symbol("*pregexp-nul-char-int*"); 
BGl_symbol10327z00zz__pregexpz00 = 
string_to_symbol("*pregexp-return-char*"); 
BGl_symbol10328z00zz__pregexpz00 = 
string_to_symbol("toplevel-init"); 
BGl_symbol10331z00zz__pregexpz00 = 
string_to_symbol("*pregexp-tab-char*"); 
BGl_symbol10332z00zz__pregexpz00 = 
string_to_symbol("pregexp-error"); 
BGl_symbol10335z00zz__pregexpz00 = 
string_to_symbol("pregexp-reverse!"); 
BGl_symbol10336z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-pattern"); 
BGl_keyword10337z00zz__pregexpz00 = 
string_to_keyword(":or"); 
BGl_keyword10338z00zz__pregexpz00 = 
string_to_keyword(":seq"); 
BGl_symbol10344z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-branch"); 
BGl_symbol10345z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-piece"); 
BGl_keyword10346z00zz__pregexpz00 = 
string_to_keyword(":empty"); 
BGl_keyword10347z00zz__pregexpz00 = 
string_to_keyword(":bos"); 
BGl_keyword10348z00zz__pregexpz00 = 
string_to_keyword(":eos"); 
BGl_keyword10349z00zz__pregexpz00 = 
string_to_keyword(":any"); 
BGl_keyword10350z00zz__pregexpz00 = 
string_to_keyword(":neg-char"); 
BGl_keyword10351z00zz__pregexpz00 = 
string_to_keyword(":backref"); 
BGl_symbol10352z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-piece/backslash"); 
BGl_symbol10353z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-escaped-number"); 
BGl_symbol10354z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-escaped-char"); 
BGl_keyword10355z00zz__pregexpz00 = 
string_to_keyword(":wbdry"); 
BGl_keyword10356z00zz__pregexpz00 = 
string_to_keyword(":not-wbdry"); 
BGl_keyword10357z00zz__pregexpz00 = 
string_to_keyword(":digit"); 
{ /* ./Llib/pregexp.scm 191 */
obj_t BgL_auxz00_4938;
BgL_auxz00_4938 = 
MAKE_PAIR(BGl_keyword10357z00zz__pregexpz00, BNIL); 
BGl_list10358z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword10350z00zz__pregexpz00, BgL_auxz00_4938); } 
BGl_keyword10359z00zz__pregexpz00 = 
string_to_keyword(":space"); 
{ /* ./Llib/pregexp.scm 195 */
obj_t BgL_auxz00_4942;
BgL_auxz00_4942 = 
MAKE_PAIR(BGl_keyword10359z00zz__pregexpz00, BNIL); 
BGl_list10360z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword10350z00zz__pregexpz00, BgL_auxz00_4942); } 
BGl_keyword10361z00zz__pregexpz00 = 
string_to_keyword(":word"); 
{ /* ./Llib/pregexp.scm 198 */
obj_t BgL_auxz00_4946;
BgL_auxz00_4946 = 
MAKE_PAIR(BGl_keyword10361z00zz__pregexpz00, BNIL); 
BGl_list10362z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword10350z00zz__pregexpz00, BgL_auxz00_4946); } 
BGl_symbol10363z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-posix-char-class"); 
BGl_symbol10364z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-cluster-type"); 
BGl_keyword10366z00zz__pregexpz00 = 
string_to_keyword(":sub"); 
BGl_list10365z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword10366z00zz__pregexpz00, BNIL); 
BGl_keyword10367z00zz__pregexpz00 = 
string_to_keyword(":case-sensitive"); 
BGl_keyword10368z00zz__pregexpz00 = 
string_to_keyword(":case-insensitive"); 
BGl_keyword10370z00zz__pregexpz00 = 
string_to_keyword(":lookahead"); 
BGl_list10369z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword10370z00zz__pregexpz00, BNIL); 
BGl_keyword10372z00zz__pregexpz00 = 
string_to_keyword(":neg-lookahead"); 
BGl_list10371z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword10372z00zz__pregexpz00, BNIL); 
BGl_keyword10374z00zz__pregexpz00 = 
string_to_keyword(":no-backtrack"); 
BGl_list10373z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword10374z00zz__pregexpz00, BNIL); 
BGl_keyword10376z00zz__pregexpz00 = 
string_to_keyword(":lookbehind"); 
BGl_list10375z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword10376z00zz__pregexpz00, BNIL); 
BGl_keyword10378z00zz__pregexpz00 = 
string_to_keyword(":neg-lookbehind"); 
BGl_list10377z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword10378z00zz__pregexpz00, BNIL); 
BGl_symbol10379z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-subpattern"); 
BGl_symbol10380z00zz__pregexpz00 = 
string_to_symbol("pregexp-wrap-quantifier-if-any"); 
BGl_keyword10381z00zz__pregexpz00 = 
string_to_keyword(":between"); 
BGl_symbol10382z00zz__pregexpz00 = 
string_to_symbol("minimal?"); 
BGl_symbol10383z00zz__pregexpz00 = 
string_to_symbol("at-least"); 
BGl_symbol10384z00zz__pregexpz00 = 
string_to_symbol("at-most"); 
BGl_symbol10385z00zz__pregexpz00 = 
string_to_symbol("next-i"); 
BGl_symbol10387z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-nums"); 
BGl_symbol10388z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-char-list"); 
BGl_keyword10390z00zz__pregexpz00 = 
string_to_keyword(":one-of-chars"); 
BGl_symbol10391z00zz__pregexpz00 = 
string_to_symbol("pregexp-read-char-list/backslash"); 
BGl_keyword10392z00zz__pregexpz00 = 
string_to_keyword(":char-range"); 
BGl_symbol10393z00zz__pregexpz00 = 
string_to_symbol("pregexp-string-match"); 
BGl_symbol10397z00zz__pregexpz00 = 
string_to_symbol("funcall"); 
BGl_symbol10398z00zz__pregexpz00 = 
string_to_symbol("fk"); 
{ /* ./Llib/pregexp.scm 390 */
obj_t BgL_auxz00_4980;
{ /* ./Llib/pregexp.scm 390 */
obj_t BgL_auxz00_4981;
BgL_auxz00_4981 = 
MAKE_PAIR(BGl_symbol10398z00zz__pregexpz00, BNIL); 
BgL_auxz00_4980 = 
MAKE_PAIR(BGl_symbol10398z00zz__pregexpz00, BgL_auxz00_4981); } 
BGl_list10396z00zz__pregexpz00 = 
MAKE_PAIR(BGl_symbol10397z00zz__pregexpz00, BgL_auxz00_4980); } 
BGl_symbol10399z00zz__pregexpz00 = 
string_to_symbol("_"); 
BGl_symbol10401z00zz__pregexpz00 = 
string_to_symbol("pregexp-at-word-boundary?"); 
BGl_symbol10402z00zz__pregexpz00 = 
string_to_symbol("pregexp-check-if-in-char-class?"); 
BGl_keyword10403z00zz__pregexpz00 = 
string_to_keyword(":alnum"); 
BGl_keyword10404z00zz__pregexpz00 = 
string_to_keyword(":alpha"); 
BGl_keyword10405z00zz__pregexpz00 = 
string_to_keyword(":ascii"); 
BGl_keyword10406z00zz__pregexpz00 = 
string_to_keyword(":blank"); 
BGl_keyword10407z00zz__pregexpz00 = 
string_to_keyword(":cntrl"); 
BGl_keyword10408z00zz__pregexpz00 = 
string_to_keyword(":graph"); 
BGl_keyword10409z00zz__pregexpz00 = 
string_to_keyword(":lower"); 
BGl_keyword10410z00zz__pregexpz00 = 
string_to_keyword(":print"); 
BGl_keyword10411z00zz__pregexpz00 = 
string_to_keyword(":punct"); 
BGl_keyword10412z00zz__pregexpz00 = 
string_to_keyword(":upper"); 
BGl_keyword10413z00zz__pregexpz00 = 
string_to_keyword(":xdigit"); 
BGl_symbol10414z00zz__pregexpz00 = 
string_to_symbol("pregexp-list-ref"); 
BGl_symbol10415z00zz__pregexpz00 = 
string_to_symbol("pregexp-match-positions-aux"); 
BGl_symbol10417z00zz__pregexpz00 = 
string_to_symbol("loup-one-of-chars"); 
BGl_symbol10419z00zz__pregexpz00 = 
string_to_symbol("sub"); 
BGl_symbol10422z00zz__pregexpz00 = 
string_to_symbol("sk"); 
BGl_symbol10423z00zz__pregexpz00 = 
string_to_symbol("i"); 
BGl_symbol10424z00zz__pregexpz00 = 
string_to_symbol("backrefs"); 
{ /* ./Llib/pregexp.scm 474 */
obj_t BgL_auxz00_5006;
{ /* ./Llib/pregexp.scm 474 */
obj_t BgL_auxz00_5007;
{ /* ./Llib/pregexp.scm 474 */
obj_t BgL_auxz00_5008;
{ /* ./Llib/pregexp.scm 474 */
obj_t BgL_auxz00_5009;
BgL_auxz00_5009 = 
MAKE_PAIR(BGl_symbol10424z00zz__pregexpz00, BNIL); 
BgL_auxz00_5008 = 
MAKE_PAIR(BGl_symbol10423z00zz__pregexpz00, BgL_auxz00_5009); } 
BgL_auxz00_5007 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5008); } 
BgL_auxz00_5006 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5007); } 
BGl_list10421z00zz__pregexpz00 = 
MAKE_PAIR(BGl_symbol10397z00zz__pregexpz00, BgL_auxz00_5006); } 
BGl_symbol10426z00zz__pregexpz00 = 
string_to_symbol("fun2357"); 
BGl_symbol10427z00zz__pregexpz00 = 
string_to_symbol("arg2356"); 
BGl_symbol10428z00zz__pregexpz00 = 
string_to_symbol("re"); 
{ /* ./Llib/pregexp.scm 491 */
obj_t BgL_auxz00_5018;
{ /* ./Llib/pregexp.scm 491 */
obj_t BgL_auxz00_5019;
{ /* ./Llib/pregexp.scm 491 */
obj_t BgL_auxz00_5020;
{ /* ./Llib/pregexp.scm 491 */
obj_t BgL_auxz00_5021;
BgL_auxz00_5021 = 
MAKE_PAIR(BGl_symbol10428z00zz__pregexpz00, BNIL); 
BgL_auxz00_5020 = 
MAKE_PAIR(BGl_symbol10427z00zz__pregexpz00, BgL_auxz00_5021); } 
BgL_auxz00_5019 = 
MAKE_PAIR(BGl_symbol10426z00zz__pregexpz00, BgL_auxz00_5020); } 
BgL_auxz00_5018 = 
MAKE_PAIR(BGl_symbol10426z00zz__pregexpz00, BgL_auxz00_5019); } 
BGl_list10425z00zz__pregexpz00 = 
MAKE_PAIR(BGl_symbol10397z00zz__pregexpz00, BgL_auxz00_5018); } 
BGl_symbol10430z00zz__pregexpz00 = 
string_to_symbol("arg2351"); 
{ /* ./Llib/pregexp.scm 493 */
obj_t BgL_auxz00_5028;
{ /* ./Llib/pregexp.scm 493 */
obj_t BgL_auxz00_5029;
{ /* ./Llib/pregexp.scm 493 */
obj_t BgL_auxz00_5030;
{ /* ./Llib/pregexp.scm 493 */
obj_t BgL_auxz00_5031;
BgL_auxz00_5031 = 
MAKE_PAIR(BGl_symbol10424z00zz__pregexpz00, BNIL); 
BgL_auxz00_5030 = 
MAKE_PAIR(BGl_symbol10430z00zz__pregexpz00, BgL_auxz00_5031); } 
BgL_auxz00_5029 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5030); } 
BgL_auxz00_5028 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5029); } 
BGl_list10429z00zz__pregexpz00 = 
MAKE_PAIR(BGl_symbol10397z00zz__pregexpz00, BgL_auxz00_5028); } 
BGl_symbol10432z00zz__pregexpz00 = 
string_to_symbol("arg2363"); 
{ /* ./Llib/pregexp.scm 497 */
obj_t BgL_auxz00_5038;
{ /* ./Llib/pregexp.scm 497 */
obj_t BgL_auxz00_5039;
{ /* ./Llib/pregexp.scm 497 */
obj_t BgL_auxz00_5040;
{ /* ./Llib/pregexp.scm 497 */
obj_t BgL_auxz00_5041;
BgL_auxz00_5041 = 
MAKE_PAIR(BGl_symbol10424z00zz__pregexpz00, BNIL); 
BgL_auxz00_5040 = 
MAKE_PAIR(BGl_symbol10432z00zz__pregexpz00, BgL_auxz00_5041); } 
BgL_auxz00_5039 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5040); } 
BgL_auxz00_5038 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5039); } 
BGl_list10431z00zz__pregexpz00 = 
MAKE_PAIR(BGl_symbol10397z00zz__pregexpz00, BgL_auxz00_5038); } 
BGl_symbol10434z00zz__pregexpz00 = 
string_to_symbol("c<"); 
BGl_symbol10435z00zz__pregexpz00 = 
string_to_symbol("arg2383"); 
BGl_symbol10436z00zz__pregexpz00 = 
string_to_symbol("c"); 
{ /* ./Llib/pregexp.scm 501 */
obj_t BgL_auxz00_5050;
{ /* ./Llib/pregexp.scm 501 */
obj_t BgL_auxz00_5051;
{ /* ./Llib/pregexp.scm 501 */
obj_t BgL_auxz00_5052;
{ /* ./Llib/pregexp.scm 501 */
obj_t BgL_auxz00_5053;
BgL_auxz00_5053 = 
MAKE_PAIR(BGl_symbol10436z00zz__pregexpz00, BNIL); 
BgL_auxz00_5052 = 
MAKE_PAIR(BGl_symbol10435z00zz__pregexpz00, BgL_auxz00_5053); } 
BgL_auxz00_5051 = 
MAKE_PAIR(BGl_symbol10434z00zz__pregexpz00, BgL_auxz00_5052); } 
BgL_auxz00_5050 = 
MAKE_PAIR(BGl_symbol10434z00zz__pregexpz00, BgL_auxz00_5051); } 
BGl_list10433z00zz__pregexpz00 = 
MAKE_PAIR(BGl_symbol10397z00zz__pregexpz00, BgL_auxz00_5050); } 
BGl_symbol10438z00zz__pregexpz00 = 
string_to_symbol("arg2379"); 
{ /* ./Llib/pregexp.scm 502 */
obj_t BgL_auxz00_5060;
{ /* ./Llib/pregexp.scm 502 */
obj_t BgL_auxz00_5061;
{ /* ./Llib/pregexp.scm 502 */
obj_t BgL_auxz00_5062;
{ /* ./Llib/pregexp.scm 502 */
obj_t BgL_auxz00_5063;
BgL_auxz00_5063 = 
MAKE_PAIR(BGl_symbol10438z00zz__pregexpz00, BNIL); 
BgL_auxz00_5062 = 
MAKE_PAIR(BGl_symbol10436z00zz__pregexpz00, BgL_auxz00_5063); } 
BgL_auxz00_5061 = 
MAKE_PAIR(BGl_symbol10434z00zz__pregexpz00, BgL_auxz00_5062); } 
BgL_auxz00_5060 = 
MAKE_PAIR(BGl_symbol10434z00zz__pregexpz00, BgL_auxz00_5061); } 
BGl_list10437z00zz__pregexpz00 = 
MAKE_PAIR(BGl_symbol10397z00zz__pregexpz00, BgL_auxz00_5060); } 
BGl_symbol10440z00zz__pregexpz00 = 
string_to_symbol("arg2374"); 
{ /* ./Llib/pregexp.scm 503 */
obj_t BgL_auxz00_5070;
{ /* ./Llib/pregexp.scm 503 */
obj_t BgL_auxz00_5071;
{ /* ./Llib/pregexp.scm 503 */
obj_t BgL_auxz00_5072;
{ /* ./Llib/pregexp.scm 503 */
obj_t BgL_auxz00_5073;
BgL_auxz00_5073 = 
MAKE_PAIR(BGl_symbol10424z00zz__pregexpz00, BNIL); 
BgL_auxz00_5072 = 
MAKE_PAIR(BGl_symbol10440z00zz__pregexpz00, BgL_auxz00_5073); } 
BgL_auxz00_5071 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5072); } 
BgL_auxz00_5070 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5071); } 
BGl_list10439z00zz__pregexpz00 = 
MAKE_PAIR(BGl_symbol10397z00zz__pregexpz00, BgL_auxz00_5070); } 
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_auxz00_5079;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_auxz00_5082;obj_t BgL_auxz00_5080;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_auxz00_5085;obj_t BgL_auxz00_5083;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_auxz00_5088;obj_t BgL_auxz00_5086;
BgL_auxz00_5088 = 
MAKE_PAIR(BGl_keyword10349z00zz__pregexpz00, BNIL); 
BgL_auxz00_5086 = 
BBOOL(((bool_t)0)); 
BgL_auxz00_5085 = 
MAKE_PAIR(BgL_auxz00_5086, BgL_auxz00_5088); } 
BgL_auxz00_5083 = 
BINT(((long)0)); 
BgL_auxz00_5082 = 
MAKE_PAIR(BgL_auxz00_5083, BgL_auxz00_5085); } 
BgL_auxz00_5080 = 
BBOOL(((bool_t)0)); 
BgL_auxz00_5079 = 
MAKE_PAIR(BgL_auxz00_5080, BgL_auxz00_5082); } 
BGl_list10445z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword10381z00zz__pregexpz00, BgL_auxz00_5079); } 
BGl_symbol10453z00zz__pregexpz00 = 
string_to_symbol("arg2584"); 
BGl_symbol10454z00zz__pregexpz00 = 
string_to_symbol("arg2585"); 
{ /* ./Llib/pregexp.scm 581 */
obj_t BgL_auxz00_5096;
{ /* ./Llib/pregexp.scm 581 */
obj_t BgL_auxz00_5097;
{ /* ./Llib/pregexp.scm 581 */
obj_t BgL_auxz00_5098;
{ /* ./Llib/pregexp.scm 581 */
obj_t BgL_auxz00_5099;
BgL_auxz00_5099 = 
MAKE_PAIR(BGl_symbol10454z00zz__pregexpz00, BNIL); 
BgL_auxz00_5098 = 
MAKE_PAIR(BGl_symbol10453z00zz__pregexpz00, BgL_auxz00_5099); } 
BgL_auxz00_5097 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5098); } 
BgL_auxz00_5096 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5097); } 
BGl_list10452z00zz__pregexpz00 = 
MAKE_PAIR(BGl_symbol10397z00zz__pregexpz00, BgL_auxz00_5096); } 
{ /* ./Llib/pregexp.scm 505 */
obj_t BgL_auxz00_5105;
BgL_auxz00_5105 = 
MAKE_PAIR(BGl_keyword10368z00zz__pregexpz00, BNIL); 
BGl_list10455z00zz__pregexpz00 = 
MAKE_PAIR(BGl_keyword10367z00zz__pregexpz00, BgL_auxz00_5105); } 
BGl_symbol10456z00zz__pregexpz00 = 
string_to_symbol("no-match-yet"); 
BGl_symbol10457z00zz__pregexpz00 = 
string_to_symbol("loup-seq"); 
BGl_symbol10459z00zz__pregexpz00 = 
string_to_symbol("loup-or"); 
BGl_symbol10461z00zz__pregexpz00 = 
string_to_symbol("loup-p"); 
BGl_symbol10462z00zz__pregexpz00 = 
string_to_symbol("loup-q"); 
BGl_symbol10463z00zz__pregexpz00 = 
string_to_symbol("<anonymous:2409:Llib/pregexp.scm:512>"); 
BGl_symbol10464z00zz__pregexpz00 = 
string_to_symbol("<anonymous:2427:Llib/pregexp.scm:517>"); 
BGl_symbol10467z00zz__pregexpz00 = 
string_to_symbol("arg2429"); 
{ /* ./Llib/pregexp.scm 519 */
obj_t BgL_auxz00_5116;
{ /* ./Llib/pregexp.scm 519 */
obj_t BgL_auxz00_5117;
{ /* ./Llib/pregexp.scm 519 */
obj_t BgL_auxz00_5118;
{ /* ./Llib/pregexp.scm 519 */
obj_t BgL_auxz00_5119;
BgL_auxz00_5119 = 
MAKE_PAIR(BGl_symbol10424z00zz__pregexpz00, BNIL); 
BgL_auxz00_5118 = 
MAKE_PAIR(BGl_symbol10467z00zz__pregexpz00, BgL_auxz00_5119); } 
BgL_auxz00_5117 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5118); } 
BgL_auxz00_5116 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5117); } 
BGl_list10466z00zz__pregexpz00 = 
MAKE_PAIR(BGl_symbol10397z00zz__pregexpz00, BgL_auxz00_5116); } 
BGl_symbol10468z00zz__pregexpz00 = 
string_to_symbol("<anonymous:2425:Llib/pregexp.scm:517>"); 
BGl_symbol10470z00zz__pregexpz00 = 
string_to_symbol("<anonymous:2445:Llib/pregexp.scm:523>"); 
BGl_symbol10471z00zz__pregexpz00 = 
string_to_symbol("<anonymous:2470:Llib/pregexp.scm:530>"); 
BGl_symbol10472z00zz__pregexpz00 = 
string_to_symbol("<anonymous:2464:Llib/pregexp.scm:530>"); 
BGl_symbol10475z00zz__pregexpz00 = 
string_to_symbol("i1"); 
BGl_symbol10476z00zz__pregexpz00 = 
string_to_symbol("backrefs1"); 
{ /* ./Llib/pregexp.scm 532 */
obj_t BgL_auxz00_5131;
{ /* ./Llib/pregexp.scm 532 */
obj_t BgL_auxz00_5132;
{ /* ./Llib/pregexp.scm 532 */
obj_t BgL_auxz00_5133;
{ /* ./Llib/pregexp.scm 532 */
obj_t BgL_auxz00_5134;
BgL_auxz00_5134 = 
MAKE_PAIR(BGl_symbol10476z00zz__pregexpz00, BNIL); 
BgL_auxz00_5133 = 
MAKE_PAIR(BGl_symbol10475z00zz__pregexpz00, BgL_auxz00_5134); } 
BgL_auxz00_5132 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5133); } 
BgL_auxz00_5131 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5132); } 
BGl_list10474z00zz__pregexpz00 = 
MAKE_PAIR(BGl_symbol10397z00zz__pregexpz00, BgL_auxz00_5131); } 
BGl_symbol10477z00zz__pregexpz00 = 
string_to_symbol("<anonymous:2487:Llib/pregexp.scm:538>"); 
BGl_symbol10479z00zz__pregexpz00 = 
string_to_symbol("<anonymous:2500:Llib/pregexp.scm:545>"); 
BGl_symbol10481z00zz__pregexpz00 = 
string_to_symbol("<anonymous:2610:Llib/pregexp.scm:587>"); 
BGl_symbol10483z00zz__pregexpz00 = 
string_to_symbol("<anonymous:2608:Llib/pregexp.scm:587>"); 
BGl_symbol10485z00zz__pregexpz00 = 
string_to_symbol("<anonymous:2618:Llib/pregexp.scm:601>"); 
BGl_symbol10486z00zz__pregexpz00 = 
string_to_symbol("<anonymous:2629:Llib/pregexp.scm:617>"); 
BGl_symbol10489z00zz__pregexpz00 = 
string_to_symbol("arg2647"); 
{ /* ./Llib/pregexp.scm 608 */
obj_t BgL_auxz00_5147;
{ /* ./Llib/pregexp.scm 608 */
obj_t BgL_auxz00_5148;
{ /* ./Llib/pregexp.scm 608 */
obj_t BgL_auxz00_5149;
{ /* ./Llib/pregexp.scm 608 */
obj_t BgL_auxz00_5150;
BgL_auxz00_5150 = 
MAKE_PAIR(BGl_symbol10489z00zz__pregexpz00, BNIL); 
BgL_auxz00_5149 = 
MAKE_PAIR(BGl_symbol10423z00zz__pregexpz00, BgL_auxz00_5150); } 
BgL_auxz00_5148 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5149); } 
BgL_auxz00_5147 = 
MAKE_PAIR(BGl_symbol10422z00zz__pregexpz00, BgL_auxz00_5148); } 
BGl_list10488z00zz__pregexpz00 = 
MAKE_PAIR(BGl_symbol10397z00zz__pregexpz00, BgL_auxz00_5147); } 
BGl_symbol10490z00zz__pregexpz00 = 
string_to_symbol("<anonymous:2638:Llib/pregexp.scm:623>"); 
BGl_symbol10491z00zz__pregexpz00 = 
string_to_symbol("pregexp-replace-aux"); 
BGl_symbol10493z00zz__pregexpz00 = 
string_to_symbol("pregexp"); 
BGl_symbol10494z00zz__pregexpz00 = 
string_to_symbol("_pregexp4047"); 
BGl_symbol10495z00zz__pregexpz00 = 
string_to_symbol("pregexp-match-positions"); 
BGl_symbol10496z00zz__pregexpz00 = 
string_to_symbol("_pregexp-match-positions"); 
BGl_symbol10497z00zz__pregexpz00 = 
string_to_symbol("pregexp-match"); 
BGl_symbol10500z00zz__pregexpz00 = 
string_to_symbol("_pregexp-match"); 
BGl_symbol10501z00zz__pregexpz00 = 
string_to_symbol("pregexp-split"); 
BGl_symbol10502z00zz__pregexpz00 = 
string_to_symbol("_pregexp-split"); 
BGl_symbol10503z00zz__pregexpz00 = 
string_to_symbol("pregexp-replace"); 
BGl_symbol10504z00zz__pregexpz00 = 
string_to_symbol("_pregexp-replace"); 
BGl_symbol10505z00zz__pregexpz00 = 
string_to_symbol("pregexp-replace*"); 
BGl_symbol10506z00zz__pregexpz00 = 
string_to_symbol("_pregexp-replace*"); 
BGl_symbol10507z00zz__pregexpz00 = 
string_to_symbol("pregexp-quote"); 
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_5173;obj_t BgL_auxz00_5171;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_5176;obj_t BgL_auxz00_5174;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_5179;obj_t BgL_auxz00_5177;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_5182;obj_t BgL_auxz00_5180;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_5185;obj_t BgL_auxz00_5183;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_5188;obj_t BgL_auxz00_5186;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_5191;obj_t BgL_auxz00_5189;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_5194;obj_t BgL_auxz00_5192;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_5197;obj_t BgL_auxz00_5195;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_5200;obj_t BgL_auxz00_5198;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_5203;obj_t BgL_auxz00_5201;
{ /* ./Llib/pregexp.scm 761 */
obj_t BgL_auxz00_5204;
BgL_auxz00_5204 = 
BCHAR(((unsigned char)')')); 
BgL_auxz00_5203 = 
MAKE_PAIR(BgL_auxz00_5204, BNIL); } 
BgL_auxz00_5201 = 
BCHAR(((unsigned char)'(')); 
BgL_auxz00_5200 = 
MAKE_PAIR(BgL_auxz00_5201, BgL_auxz00_5203); } 
BgL_auxz00_5198 = 
BCHAR(((unsigned char)'}')); 
BgL_auxz00_5197 = 
MAKE_PAIR(BgL_auxz00_5198, BgL_auxz00_5200); } 
BgL_auxz00_5195 = 
BCHAR(((unsigned char)'{')); 
BgL_auxz00_5194 = 
MAKE_PAIR(BgL_auxz00_5195, BgL_auxz00_5197); } 
BgL_auxz00_5192 = 
BCHAR(((unsigned char)']')); 
BgL_auxz00_5191 = 
MAKE_PAIR(BgL_auxz00_5192, BgL_auxz00_5194); } 
BgL_auxz00_5189 = 
BCHAR(((unsigned char)'[')); 
BgL_auxz00_5188 = 
MAKE_PAIR(BgL_auxz00_5189, BgL_auxz00_5191); } 
BgL_auxz00_5186 = 
BCHAR(((unsigned char)'|')); 
BgL_auxz00_5185 = 
MAKE_PAIR(BgL_auxz00_5186, BgL_auxz00_5188); } 
BgL_auxz00_5183 = 
BCHAR(((unsigned char)'+')); 
BgL_auxz00_5182 = 
MAKE_PAIR(BgL_auxz00_5183, BgL_auxz00_5185); } 
BgL_auxz00_5180 = 
BCHAR(((unsigned char)'*')); 
BgL_auxz00_5179 = 
MAKE_PAIR(BgL_auxz00_5180, BgL_auxz00_5182); } 
BgL_auxz00_5177 = 
BCHAR(((unsigned char)'?')); 
BgL_auxz00_5176 = 
MAKE_PAIR(BgL_auxz00_5177, BgL_auxz00_5179); } 
BgL_auxz00_5174 = 
BCHAR(((unsigned char)'.')); 
BgL_auxz00_5173 = 
MAKE_PAIR(BgL_auxz00_5174, BgL_auxz00_5176); } 
BgL_auxz00_5171 = 
BCHAR(((unsigned char)'\\')); 
BGl_list10508z00zz__pregexpz00 = 
MAKE_PAIR(BgL_auxz00_5171, BgL_auxz00_5173); } 
BGl_symbol10521z00zz__pregexpz00 = 
string_to_symbol("_pregexp-quote"); 
return ( 
BGl_symbol10522z00zz__pregexpz00 = 
string_to_symbol("%import@__pregexp"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__pregexpz00()
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 17 */
{ /* ./Llib/pregexp.scm 17 */
obj_t BgL_symbol3791z00_3175;
BgL_symbol3791z00_3175 = BGl_symbol10325z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 17 */

PUSH_TRACE(BgL_symbol3791z00_3175); BUNSPEC; 
{ /* ./Llib/pregexp.scm 17 */
obj_t BgL_aux3790z00_3176;
BGl_za2pregexpzd2commentzd2charza2z00zz__pregexpz00 = 
BCHAR(((unsigned char)';')); 
{ /* ./Llib/pregexp.scm 66 */
obj_t BgL_symbol3779z00_3169;
BgL_symbol3779z00_3169 = BGl_symbol10326z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 66 */

PUSH_TRACE(BgL_symbol3779z00_3169); BUNSPEC; 
{ /* ./Llib/pregexp.scm 66 */
long BgL_aux3778z00_3170;
{ /* ./Llib/pregexp.scm 66 */
long BgL_auxz00_5223;
BgL_auxz00_5223 = 
(((unsigned char)'a')); 
BgL_aux3778z00_3170 = 
(BgL_auxz00_5223-((long)97)); } 
POP_TRACE(); 
BGl_za2pregexpzd2nulzd2charzd2intza2zd2zz__pregexpz00 = 
BINT(BgL_aux3778z00_3170); } } } 
{ /* ./Llib/pregexp.scm 71 */
obj_t BgL_symbol3783z00_3171;
BgL_symbol3783z00_3171 = BGl_symbol10327z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 71 */

PUSH_TRACE(BgL_symbol3783z00_3171); BUNSPEC; 
{ /* ./Llib/pregexp.scm 71 */
unsigned char BgL_aux3782z00_3172;
{ /* ./Llib/pregexp.scm 71 */
long BgL_arg1073z00_437;
{ /* ./Llib/pregexp.scm 71 */
long BgL_za72za7_1560;
{ /* ./Llib/pregexp.scm 71 */
obj_t BgL_auxz00_5229;
if(
INTEGERP(BGl_za2pregexpzd2nulzd2charzd2intza2zd2zz__pregexpz00))
{ /* ./Llib/pregexp.scm 71 */
BgL_auxz00_5229 = BGl_za2pregexpzd2nulzd2charzd2intza2zd2zz__pregexpz00
; }  else 
{ /* ./Llib/pregexp.scm 71 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10328z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BGl_za2pregexpzd2nulzd2charzd2intza2zd2zz__pregexpz00, BGl_string10330z00zz__pregexpz00, 
BINT(((long)2407))); 
exit( -1 );} 
BgL_za72za7_1560 = 
(long)CINT(BgL_auxz00_5229); } 
BgL_arg1073z00_437 = 
(((long)13)+BgL_za72za7_1560); } 
BgL_aux3782z00_3172 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_arg1073z00_437); } 
POP_TRACE(); 
BGl_za2pregexpzd2returnzd2charza2z00zz__pregexpz00 = 
BCHAR(BgL_aux3782z00_3172); } } } 
{ /* ./Llib/pregexp.scm 76 */
obj_t BgL_symbol3787z00_3173;
BgL_symbol3787z00_3173 = BGl_symbol10331z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 76 */

PUSH_TRACE(BgL_symbol3787z00_3173); BUNSPEC; 
{ /* ./Llib/pregexp.scm 76 */
unsigned char BgL_aux3786z00_3174;
{ /* ./Llib/pregexp.scm 76 */
long BgL_arg1079z00_438;
{ /* ./Llib/pregexp.scm 76 */
long BgL_za72za7_1562;
{ /* ./Llib/pregexp.scm 76 */
obj_t BgL_auxz00_5241;
if(
INTEGERP(BGl_za2pregexpzd2nulzd2charzd2intza2zd2zz__pregexpz00))
{ /* ./Llib/pregexp.scm 76 */
BgL_auxz00_5241 = BGl_za2pregexpzd2nulzd2charzd2intza2zd2zz__pregexpz00
; }  else 
{ /* ./Llib/pregexp.scm 76 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10328z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BGl_za2pregexpzd2nulzd2charzd2intza2zd2zz__pregexpz00, BGl_string10330z00zz__pregexpz00, 
BINT(((long)2529))); 
exit( -1 );} 
BgL_za72za7_1562 = 
(long)CINT(BgL_auxz00_5241); } 
BgL_arg1079z00_438 = 
(((long)9)+BgL_za72za7_1562); } 
BgL_aux3786z00_3174 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_arg1079z00_438); } 
POP_TRACE(); 
BGl_za2pregexpzd2tabzd2charza2z00zz__pregexpz00 = 
BCHAR(BgL_aux3786z00_3174); } } } 
BgL_aux3790z00_3176 = ( 
BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00 = BTRUE, BUNSPEC) ; 
POP_TRACE(); 
return BgL_aux3790z00_3176;} } } } 
}



/* 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 52 */
obj_t BgL_symbol3795z00_3177;
BgL_symbol3795z00_3177 = BGl_symbol10332z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 52 */

PUSH_TRACE(BgL_symbol3795z00_3177); BUNSPEC; 
{ /* ./Llib/pregexp.scm 52 */
obj_t BgL_aux3794z00_3178;
{ /* ./Llib/pregexp.scm 52 */
obj_t BgL_arg1084z00_440;
{ /* ./Llib/pregexp.scm 53 */
bool_t BgL_test1088z00_443;
BgL_test1088z00_443 = 
PAIRP(BgL_optz00_2); 
if(BgL_test1088z00_443)
{ /* ./Llib/pregexp.scm 53 */
obj_t BgL_pairz00_1564;
if(BgL_test1088z00_443)
{ /* ./Llib/pregexp.scm 53 */
BgL_pairz00_1564 = BgL_optz00_2; }  else 
{ /* ./Llib/pregexp.scm 53 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10332z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_optz00_2, BGl_string10330z00zz__pregexpz00, 
BINT(((long)2014))); 
exit( -1 );} 
BgL_arg1084z00_440 = 
CAR(BgL_pairz00_1564); }  else 
{ /* ./Llib/pregexp.scm 53 */
BgL_arg1084z00_440 = BUNSPEC; } } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10334z00zz__pregexpz00, BgL_msgz00_1, BgL_arg1084z00_440, "./Llib/pregexp.scm", ((long)1970)); } 
BgL_aux3794z00_3178 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)1933))); 
POP_TRACE(); 
return BgL_aux3794z00_3178;} } } } 
}



/* pregexp-reverse! */
obj_t BGl_pregexpzd2reversez12zc0zz__pregexpz00(obj_t BgL_sz00_3)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 80 */
{ /* ./Llib/pregexp.scm 83 */
obj_t BgL_symbol3799z00_3179;
BgL_symbol3799z00_3179 = BGl_symbol10335z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 83 */

PUSH_TRACE(BgL_symbol3799z00_3179); BUNSPEC; 
{ /* ./Llib/pregexp.scm 83 */
obj_t BgL_aux3798z00_3180;
{ 
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 */
BgL_aux3798z00_3180 = BgL_rz00_1570; }  else 
{ /* ./Llib/pregexp.scm 83 */
obj_t BgL_dz00_1574;
{ /* ./Llib/pregexp.scm 83 */
obj_t BgL_pairz00_1576;
if(
PAIRP(BgL_sz00_1569))
{ /* ./Llib/pregexp.scm 83 */
BgL_pairz00_1576 = BgL_sz00_1569; }  else 
{ /* ./Llib/pregexp.scm 83 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10335z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_sz00_1569, BGl_string10330z00zz__pregexpz00, 
BINT(((long)2678))); 
exit( -1 );} 
BgL_dz00_1574 = 
CDR(BgL_pairz00_1576); } 
{ /* ./Llib/pregexp.scm 83 */
obj_t BgL_pairz00_1577;
if(
PAIRP(BgL_sz00_1569))
{ /* ./Llib/pregexp.scm 83 */
BgL_pairz00_1577 = BgL_sz00_1569; }  else 
{ /* ./Llib/pregexp.scm 83 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10335z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_sz00_1569, BGl_string10330z00zz__pregexpz00, 
BINT(((long)2678))); 
exit( -1 );} 
SET_CDR(BgL_pairz00_1577, BgL_rz00_1570); } 
{ 
obj_t BgL_rz00_5281;obj_t BgL_sz00_5280;
BgL_sz00_5280 = BgL_dz00_1574; 
BgL_rz00_5281 = BgL_sz00_1569; 
BgL_rz00_1570 = BgL_rz00_5281; 
BgL_sz00_1569 = BgL_sz00_5280; 
goto BgL_loopz00_1568;} } } 
POP_TRACE(); 
return BgL_aux3798z00_3180;} } } } 
}



/* 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 */
obj_t BgL_symbol3803z00_3181;
BgL_symbol3803z00_3181 = BGl_symbol10336z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 95 */

PUSH_TRACE(BgL_symbol3803z00_3181); BUNSPEC; 
{ /* ./Llib/pregexp.scm 95 */
obj_t BgL_aux3802z00_3182;
{ /* ./Llib/pregexp.scm 95 */
bool_t BgL_test1098z00_449;
{ /* ./Llib/pregexp.scm 95 */
long BgL_n1z00_1593;long BgL_n2z00_1594;
{ /* ./Llib/pregexp.scm 95 */
obj_t BgL_auxz00_5284;
if(
INTEGERP(BgL_iz00_5))
{ /* ./Llib/pregexp.scm 95 */
BgL_auxz00_5284 = BgL_iz00_5
; }  else 
{ /* ./Llib/pregexp.scm 95 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10336z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_5, BGl_string10330z00zz__pregexpz00, 
BINT(((long)2983))); 
exit( -1 );} 
BgL_n1z00_1593 = 
(long)CINT(BgL_auxz00_5284); } 
BgL_n2z00_1594 = 
(long)(BgL_nz00_6); 
BgL_test1098z00_449 = 
(BgL_n1z00_1593>=BgL_n2z00_1594); } 
if(BgL_test1098z00_449)
{ /* ./Llib/pregexp.scm 97 */
obj_t BgL_arg1100z00_450;
{ /* ./Llib/pregexp.scm 97 */
obj_t BgL_arg1108z00_453;obj_t BgL_arg1109z00_454;
BgL_arg1108z00_453 = BGl_keyword10337z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 97 */
obj_t BgL_list1117z00_457;
BgL_list1117z00_457 = 
MAKE_PAIR(BGl_keyword10338z00zz__pregexpz00, BNIL); 
{ /* ./Llib/pregexp.scm 97 */
obj_t BgL_res3650z00_1596;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 97 */
BgL_res3650z00_1596 = BgL_list1117z00_457; }  else 
{ /* ./Llib/pregexp.scm 97 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10336z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1117z00_457, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3023))); 
exit( -1 );} 
BgL_arg1109z00_454 = BgL_res3650z00_1596; } } 
{ /* ./Llib/pregexp.scm 97 */
obj_t BgL_list1111z00_455;
{ /* ./Llib/pregexp.scm 97 */
obj_t BgL_arg1113z00_456;
BgL_arg1113z00_456 = 
MAKE_PAIR(BgL_arg1109z00_454, BNIL); 
BgL_list1111z00_455 = 
MAKE_PAIR(BgL_arg1108z00_453, BgL_arg1113z00_456); } 
{ /* ./Llib/pregexp.scm 97 */
obj_t BgL_res3651z00_1598;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 97 */
BgL_res3651z00_1598 = BgL_list1111z00_455; }  else 
{ /* ./Llib/pregexp.scm 97 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10336z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1111z00_455, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3012))); 
exit( -1 );} 
BgL_arg1100z00_450 = BgL_res3651z00_1598; } } } 
{ /* ./Llib/pregexp.scm 96 */
obj_t BgL_list1102z00_451;
{ /* ./Llib/pregexp.scm 96 */
obj_t BgL_arg1104z00_452;
BgL_arg1104z00_452 = 
MAKE_PAIR(BgL_iz00_5, BNIL); 
BgL_list1102z00_451 = 
MAKE_PAIR(BgL_arg1100z00_450, BgL_arg1104z00_452); } 
{ /* ./Llib/pregexp.scm 96 */
obj_t BgL_res3652z00_1600;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 96 */
BgL_res3652z00_1600 = BgL_list1102z00_451; }  else 
{ /* ./Llib/pregexp.scm 96 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10336z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1102z00_451, BGl_string10330z00zz__pregexpz00, 
BINT(((long)2996))); 
exit( -1 );} 
BgL_aux3802z00_3182 = BgL_res3652z00_1600; } } }  else 
{ 
obj_t BgL_branchesz00_458;obj_t BgL_iz00_459;
BgL_branchesz00_458 = BNIL; 
BgL_iz00_459 = BgL_iz00_5; 
BgL_loopz00_460:
{ /* ./Llib/pregexp.scm 99 */
bool_t BgL_test1120z00_461;
{ /* ./Llib/pregexp.scm 99 */
bool_t BgL_test1154z00_474;
{ /* ./Llib/pregexp.scm 99 */
long BgL_n1z00_1601;long BgL_n2z00_1602;
{ /* ./Llib/pregexp.scm 99 */
obj_t BgL_auxz00_5311;
if(
INTEGERP(BgL_iz00_459))
{ /* ./Llib/pregexp.scm 99 */
BgL_auxz00_5311 = BgL_iz00_459
; }  else 
{ /* ./Llib/pregexp.scm 99 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10336z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_459, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3103))); 
exit( -1 );} 
BgL_n1z00_1601 = 
(long)CINT(BgL_auxz00_5311); } 
BgL_n2z00_1602 = 
(long)(BgL_nz00_6); 
BgL_test1154z00_474 = 
(BgL_n1z00_1601>=BgL_n2z00_1602); } 
if(BgL_test1154z00_474)
{ /* ./Llib/pregexp.scm 99 */
BgL_test1120z00_461 = ((bool_t)1); }  else 
{ /* ./Llib/pregexp.scm 100 */
unsigned char BgL_arg1156z00_475;
{ /* ./Llib/pregexp.scm 100 */
unsigned char BgL_res3653z00_1611;
{ /* ./Llib/pregexp.scm 100 */
int BgL_kz00_1604;
{ /* ./Llib/pregexp.scm 100 */
obj_t BgL_auxz00_5321;
if(
INTEGERP(BgL_iz00_459))
{ /* ./Llib/pregexp.scm 100 */
BgL_auxz00_5321 = BgL_iz00_459
; }  else 
{ /* ./Llib/pregexp.scm 100 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10336z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_459, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3134))); 
exit( -1 );} 
BgL_kz00_1604 = 
CINT(BgL_auxz00_5321); } 
{ /* ./Llib/pregexp.scm 100 */
bool_t BgL_testz00_5328;
{ /* ./Llib/pregexp.scm 100 */
int BgL_auxz00_5329;
BgL_auxz00_5329 = 
STRING_LENGTH(BgL_sz00_4); 
BgL_testz00_5328 = 
BOUND_CHECK(BgL_kz00_1604, BgL_auxz00_5329); } 
if(BgL_testz00_5328)
{ /* ./Llib/pregexp.scm 100 */
BgL_res3653z00_1611 = 
STRING_REF(BgL_sz00_4, BgL_kz00_1604); }  else 
{ /* ./Llib/pregexp.scm 100 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1604), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 100 */
obj_t BgL_auxz00_5335;
{ /* ./Llib/pregexp.scm 100 */
obj_t BgL_aux4191z00_3505;
BgL_aux4191z00_3505 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3134))); 
if(
CHARP(BgL_aux4191z00_3505))
{ /* ./Llib/pregexp.scm 100 */
BgL_auxz00_5335 = BgL_aux4191z00_3505
; }  else 
{ /* ./Llib/pregexp.scm 100 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10336z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux4191z00_3505, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3134))); 
exit( -1 );} } 
BgL_res3653z00_1611 = 
(unsigned char)CCHAR(BgL_auxz00_5335); } } } } 
BgL_arg1156z00_475 = BgL_res3653z00_1611; } 
BgL_test1120z00_461 = 
(BgL_arg1156z00_475==((unsigned char)')')); } } 
if(BgL_test1120z00_461)
{ /* ./Llib/pregexp.scm 101 */
obj_t BgL_arg1122z00_462;
{ /* ./Llib/pregexp.scm 101 */
obj_t BgL_auxz00_5346;
BgL_auxz00_5346 = 
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_branchesz00_458); 
BgL_arg1122z00_462 = 
MAKE_PAIR(BGl_keyword10337z00zz__pregexpz00, BgL_auxz00_5346); } 
{ /* ./Llib/pregexp.scm 101 */
obj_t BgL_list1124z00_463;
{ /* ./Llib/pregexp.scm 101 */
obj_t BgL_arg1126z00_464;
BgL_arg1126z00_464 = 
MAKE_PAIR(BgL_iz00_459, BNIL); 
BgL_list1124z00_463 = 
MAKE_PAIR(BgL_arg1122z00_462, BgL_arg1126z00_464); } 
{ /* ./Llib/pregexp.scm 101 */
obj_t BgL_res3654z00_1615;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 101 */
BgL_res3654z00_1615 = BgL_list1124z00_463; }  else 
{ /* ./Llib/pregexp.scm 101 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10336z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1124z00_463, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3171))); 
exit( -1 );} 
BgL_aux3802z00_3182 = BgL_res3654z00_1615; } } }  else 
{ /* ./Llib/pregexp.scm 102 */
obj_t BgL_vvz00_467;
{ /* ./Llib/pregexp.scm 104 */
obj_t BgL_arg1146z00_471;
{ /* ./Llib/pregexp.scm 104 */
bool_t BgL_test1148z00_472;
{ /* ./Llib/pregexp.scm 104 */
unsigned char BgL_arg1151z00_473;
{ /* ./Llib/pregexp.scm 104 */
unsigned char BgL_res3655z00_1624;
{ /* ./Llib/pregexp.scm 104 */
int BgL_kz00_1617;
{ /* ./Llib/pregexp.scm 104 */
obj_t BgL_auxz00_5355;
if(
INTEGERP(BgL_iz00_459))
{ /* ./Llib/pregexp.scm 104 */
BgL_auxz00_5355 = BgL_iz00_459
; }  else 
{ /* ./Llib/pregexp.scm 104 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10336z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_459, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3331))); 
exit( -1 );} 
BgL_kz00_1617 = 
CINT(BgL_auxz00_5355); } 
{ /* ./Llib/pregexp.scm 104 */
bool_t BgL_testz00_5362;
{ /* ./Llib/pregexp.scm 104 */
int BgL_auxz00_5363;
BgL_auxz00_5363 = 
STRING_LENGTH(BgL_sz00_4); 
BgL_testz00_5362 = 
BOUND_CHECK(BgL_kz00_1617, BgL_auxz00_5363); } 
if(BgL_testz00_5362)
{ /* ./Llib/pregexp.scm 104 */
BgL_res3655z00_1624 = 
STRING_REF(BgL_sz00_4, BgL_kz00_1617); }  else 
{ /* ./Llib/pregexp.scm 104 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1617), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 104 */
obj_t BgL_auxz00_5369;
{ /* ./Llib/pregexp.scm 104 */
obj_t BgL_aux4231z00_3511;
BgL_aux4231z00_3511 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3331))); 
if(
CHARP(BgL_aux4231z00_3511))
{ /* ./Llib/pregexp.scm 104 */
BgL_auxz00_5369 = BgL_aux4231z00_3511
; }  else 
{ /* ./Llib/pregexp.scm 104 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10336z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux4231z00_3511, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3331))); 
exit( -1 );} } 
BgL_res3655z00_1624 = 
(unsigned char)CCHAR(BgL_auxz00_5369); } } } } 
BgL_arg1151z00_473 = BgL_res3655z00_1624; } 
BgL_test1148z00_472 = 
(BgL_arg1151z00_473==((unsigned char)'|')); } 
if(BgL_test1148z00_472)
{ /* ./Llib/pregexp.scm 104 */
long BgL_za71za7_1627;
{ /* ./Llib/pregexp.scm 104 */
obj_t BgL_auxz00_5380;
if(
INTEGERP(BgL_iz00_459))
{ /* ./Llib/pregexp.scm 104 */
BgL_auxz00_5380 = BgL_iz00_459
; }  else 
{ /* ./Llib/pregexp.scm 104 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10336z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_459, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3356))); 
exit( -1 );} 
BgL_za71za7_1627 = 
(long)CINT(BgL_auxz00_5380); } 
{ /* ./Llib/pregexp.scm 104 */
long BgL_auxz00_5387;
BgL_auxz00_5387 = 
(BgL_za71za7_1627+((long)1)); 
BgL_arg1146z00_471 = 
BINT(BgL_auxz00_5387); } }  else 
{ /* ./Llib/pregexp.scm 104 */
BgL_arg1146z00_471 = BgL_iz00_459; } } 
BgL_vvz00_467 = 
BGl_pregexpzd2readzd2branchz00zz__pregexpz00(BgL_sz00_4, BgL_arg1146z00_471, BgL_nz00_6); } 
{ /* ./Llib/pregexp.scm 105 */
obj_t BgL_arg1135z00_468;obj_t BgL_arg1136z00_469;
{ /* ./Llib/pregexp.scm 105 */
obj_t BgL_arg1140z00_470;
{ /* ./Llib/pregexp.scm 105 */
obj_t BgL_pairz00_1629;
if(
PAIRP(BgL_vvz00_467))
{ /* ./Llib/pregexp.scm 105 */
BgL_pairz00_1629 = BgL_vvz00_467; }  else 
{ /* ./Llib/pregexp.scm 105 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10336z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_vvz00_467, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3403))); 
exit( -1 );} 
BgL_arg1140z00_470 = 
CAR(BgL_pairz00_1629); } 
BgL_arg1135z00_468 = 
MAKE_PAIR(BgL_arg1140z00_470, BgL_branchesz00_458); } 
{ /* ./Llib/pregexp.scm 105 */
obj_t BgL_pairz00_1630;
if(
PAIRP(BgL_vvz00_467))
{ /* ./Llib/pregexp.scm 105 */
BgL_pairz00_1630 = BgL_vvz00_467; }  else 
{ /* ./Llib/pregexp.scm 105 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10336z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_vvz00_467, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3423))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 105 */
obj_t BgL_arg3354z00_1631;
BgL_arg3354z00_1631 = 
CDR(BgL_pairz00_1630); 
{ /* ./Llib/pregexp.scm 105 */
obj_t BgL_pairz00_1633;
if(
PAIRP(BgL_arg3354z00_1631))
{ /* ./Llib/pregexp.scm 105 */
BgL_pairz00_1633 = BgL_arg3354z00_1631; }  else 
{ /* ./Llib/pregexp.scm 105 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10336z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_1631, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3416))); 
exit( -1 );} 
BgL_arg1136z00_469 = 
CAR(BgL_pairz00_1633); } } } 
{ 
obj_t BgL_iz00_5411;obj_t BgL_branchesz00_5410;
BgL_branchesz00_5410 = BgL_arg1135z00_468; 
BgL_iz00_5411 = BgL_arg1136z00_469; 
BgL_iz00_459 = BgL_iz00_5411; 
BgL_branchesz00_458 = BgL_branchesz00_5410; 
goto BgL_loopz00_460;} } } } } } 
POP_TRACE(); 
return BgL_aux3802z00_3182;} } } } 
}



/* 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 */
{ /* ./Llib/pregexp.scm 109 */
obj_t BgL_symbol3807z00_3183;
BgL_symbol3807z00_3183 = BGl_symbol10344z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 109 */

PUSH_TRACE(BgL_symbol3807z00_3183); BUNSPEC; 
{ /* ./Llib/pregexp.scm 109 */
obj_t BgL_aux3806z00_3184;
{ 
obj_t BgL_piecesz00_476;obj_t BgL_iz00_477;
BgL_piecesz00_476 = BNIL; 
BgL_iz00_477 = BgL_iz00_8; 
BgL_loopz00_478:
{ /* ./Llib/pregexp.scm 110 */
bool_t BgL_test1162z00_479;
{ /* ./Llib/pregexp.scm 110 */
long BgL_n1z00_1634;long BgL_n2z00_1635;
{ /* ./Llib/pregexp.scm 110 */
obj_t BgL_auxz00_5414;
if(
INTEGERP(BgL_iz00_477))
{ /* ./Llib/pregexp.scm 110 */
BgL_auxz00_5414 = BgL_iz00_477
; }  else 
{ /* ./Llib/pregexp.scm 110 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10344z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_477, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3528))); 
exit( -1 );} 
BgL_n1z00_1634 = 
(long)CINT(BgL_auxz00_5414); } 
BgL_n2z00_1635 = 
(long)(BgL_nz00_9); 
BgL_test1162z00_479 = 
(BgL_n1z00_1634>=BgL_n2z00_1635); } 
if(BgL_test1162z00_479)
{ /* ./Llib/pregexp.scm 110 */
{ /* ./Llib/pregexp.scm 111 */
obj_t BgL_arg1164z00_480;
{ /* ./Llib/pregexp.scm 111 */
obj_t BgL_auxz00_5424;
BgL_auxz00_5424 = 
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_piecesz00_476); 
BgL_arg1164z00_480 = 
MAKE_PAIR(BGl_keyword10338z00zz__pregexpz00, BgL_auxz00_5424); } 
{ /* ./Llib/pregexp.scm 111 */
obj_t BgL_list1166z00_481;
{ /* ./Llib/pregexp.scm 111 */
obj_t BgL_arg1169z00_482;
BgL_arg1169z00_482 = 
MAKE_PAIR(BgL_iz00_477, BNIL); 
BgL_list1166z00_481 = 
MAKE_PAIR(BgL_arg1164z00_480, BgL_arg1169z00_482); } 
{ /* ./Llib/pregexp.scm 111 */
obj_t BgL_res3656z00_1637;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 111 */
BgL_res3656z00_1637 = BgL_list1166z00_481; }  else 
{ /* ./Llib/pregexp.scm 111 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10344z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1166z00_481, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3550))); 
exit( -1 );} 
BgL_aux3806z00_3184 = BgL_res3656z00_1637; } } } }  else 
{ /* ./Llib/pregexp.scm 112 */
bool_t BgL_test1177z00_485;
{ /* ./Llib/pregexp.scm 112 */
unsigned char BgL_cz00_495;
{ /* ./Llib/pregexp.scm 112 */
unsigned char BgL_res3657z00_1646;
{ /* ./Llib/pregexp.scm 112 */
int BgL_kz00_1639;
{ /* ./Llib/pregexp.scm 112 */
obj_t BgL_auxz00_5433;
if(
INTEGERP(BgL_iz00_477))
{ /* ./Llib/pregexp.scm 112 */
BgL_auxz00_5433 = BgL_iz00_477
; }  else 
{ /* ./Llib/pregexp.scm 112 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10344z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_477, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3621))); 
exit( -1 );} 
BgL_kz00_1639 = 
CINT(BgL_auxz00_5433); } 
{ /* ./Llib/pregexp.scm 112 */
bool_t BgL_testz00_5440;
{ /* ./Llib/pregexp.scm 112 */
int BgL_auxz00_5441;
BgL_auxz00_5441 = 
STRING_LENGTH(BgL_sz00_7); 
BgL_testz00_5440 = 
BOUND_CHECK(BgL_kz00_1639, BgL_auxz00_5441); } 
if(BgL_testz00_5440)
{ /* ./Llib/pregexp.scm 112 */
BgL_res3657z00_1646 = 
STRING_REF(BgL_sz00_7, BgL_kz00_1639); }  else 
{ /* ./Llib/pregexp.scm 112 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1639), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 112 */
obj_t BgL_auxz00_5447;
{ /* ./Llib/pregexp.scm 112 */
obj_t BgL_aux4325z00_3527;
BgL_aux4325z00_3527 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3621))); 
if(
CHARP(BgL_aux4325z00_3527))
{ /* ./Llib/pregexp.scm 112 */
BgL_auxz00_5447 = BgL_aux4325z00_3527
; }  else 
{ /* ./Llib/pregexp.scm 112 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10344z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux4325z00_3527, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3621))); 
exit( -1 );} } 
BgL_res3657z00_1646 = 
(unsigned char)CCHAR(BgL_auxz00_5447); } } } } 
BgL_cz00_495 = BgL_res3657z00_1646; } 
{ /* ./Llib/pregexp.scm 113 */
bool_t BgL__ortest_1003z00_496;
BgL__ortest_1003z00_496 = 
(BgL_cz00_495==((unsigned char)'|')); 
if(BgL__ortest_1003z00_496)
{ /* ./Llib/pregexp.scm 113 */
BgL_test1177z00_485 = BgL__ortest_1003z00_496; }  else 
{ /* ./Llib/pregexp.scm 113 */
BgL_test1177z00_485 = 
(BgL_cz00_495==((unsigned char)')')); } } } 
if(BgL_test1177z00_485)
{ /* ./Llib/pregexp.scm 112 */
{ /* ./Llib/pregexp.scm 115 */
obj_t BgL_arg1179z00_486;
{ /* ./Llib/pregexp.scm 115 */
obj_t BgL_auxz00_5460;
BgL_auxz00_5460 = 
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_piecesz00_476); 
BgL_arg1179z00_486 = 
MAKE_PAIR(BGl_keyword10338z00zz__pregexpz00, BgL_auxz00_5460); } 
{ /* ./Llib/pregexp.scm 115 */
obj_t BgL_list1181z00_487;
{ /* ./Llib/pregexp.scm 115 */
obj_t BgL_arg1183z00_488;
BgL_arg1183z00_488 = 
MAKE_PAIR(BgL_iz00_477, BNIL); 
BgL_list1181z00_487 = 
MAKE_PAIR(BgL_arg1179z00_486, BgL_arg1183z00_488); } 
{ /* ./Llib/pregexp.scm 115 */
obj_t BgL_res3658z00_1652;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 115 */
BgL_res3658z00_1652 = BgL_list1181z00_487; }  else 
{ /* ./Llib/pregexp.scm 115 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10344z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1181z00_487, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3723))); 
exit( -1 );} 
BgL_aux3806z00_3184 = BgL_res3658z00_1652; } } } }  else 
{ /* ./Llib/pregexp.scm 112 */
{ /* ./Llib/pregexp.scm 116 */
obj_t BgL_vvz00_491;
BgL_vvz00_491 = 
BGl_pregexpzd2readzd2piecez00zz__pregexpz00(BgL_sz00_7, BgL_iz00_477, BgL_nz00_9); 
{ /* ./Llib/pregexp.scm 117 */
obj_t BgL_arg1192z00_492;obj_t BgL_arg1193z00_493;
{ /* ./Llib/pregexp.scm 117 */
obj_t BgL_arg1196z00_494;
{ /* ./Llib/pregexp.scm 117 */
obj_t BgL_pairz00_1653;
if(
PAIRP(BgL_vvz00_491))
{ /* ./Llib/pregexp.scm 117 */
BgL_pairz00_1653 = BgL_vvz00_491; }  else 
{ /* ./Llib/pregexp.scm 117 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10344z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_vvz00_491, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3867))); 
exit( -1 );} 
BgL_arg1196z00_494 = 
CAR(BgL_pairz00_1653); } 
BgL_arg1192z00_492 = 
MAKE_PAIR(BgL_arg1196z00_494, BgL_piecesz00_476); } 
{ /* ./Llib/pregexp.scm 117 */
obj_t BgL_pairz00_1654;
if(
PAIRP(BgL_vvz00_491))
{ /* ./Llib/pregexp.scm 117 */
BgL_pairz00_1654 = BgL_vvz00_491; }  else 
{ /* ./Llib/pregexp.scm 117 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10344z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_vvz00_491, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3885))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 117 */
obj_t BgL_arg3354z00_1655;
BgL_arg3354z00_1655 = 
CDR(BgL_pairz00_1654); 
{ /* ./Llib/pregexp.scm 117 */
obj_t BgL_pairz00_1657;
if(
PAIRP(BgL_arg3354z00_1655))
{ /* ./Llib/pregexp.scm 117 */
BgL_pairz00_1657 = BgL_arg3354z00_1655; }  else 
{ /* ./Llib/pregexp.scm 117 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10344z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_1655, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3878))); 
exit( -1 );} 
BgL_arg1193z00_493 = 
CAR(BgL_pairz00_1657); } } } 
{ 
obj_t BgL_iz00_5490;obj_t BgL_piecesz00_5489;
BgL_piecesz00_5489 = BgL_arg1192z00_492; 
BgL_iz00_5490 = BgL_arg1193z00_493; 
BgL_iz00_477 = BgL_iz00_5490; 
BgL_piecesz00_476 = BgL_piecesz00_5489; 
goto BgL_loopz00_478;} } } } } } } 
POP_TRACE(); 
return BgL_aux3806z00_3184;} } } } 
}



/* 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 */
obj_t BgL_symbol3811z00_3185;
BgL_symbol3811z00_3185 = BGl_symbol10345z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 121 */

PUSH_TRACE(BgL_symbol3811z00_3185); BUNSPEC; 
{ /* ./Llib/pregexp.scm 121 */
obj_t BgL_aux3810z00_3186;
{ /* ./Llib/pregexp.scm 121 */
unsigned char BgL_cz00_497;
{ /* ./Llib/pregexp.scm 121 */
unsigned char BgL_res3659z00_1666;
{ /* ./Llib/pregexp.scm 121 */
int BgL_kz00_1659;
{ /* ./Llib/pregexp.scm 121 */
obj_t BgL_auxz00_5493;
if(
INTEGERP(BgL_iz00_11))
{ /* ./Llib/pregexp.scm 121 */
BgL_auxz00_5493 = BgL_iz00_11
; }  else 
{ /* ./Llib/pregexp.scm 121 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_11, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3954))); 
exit( -1 );} 
BgL_kz00_1659 = 
CINT(BgL_auxz00_5493); } 
{ /* ./Llib/pregexp.scm 121 */
bool_t BgL_testz00_5500;
{ /* ./Llib/pregexp.scm 121 */
int BgL_auxz00_5501;
BgL_auxz00_5501 = 
STRING_LENGTH(BgL_sz00_10); 
BgL_testz00_5500 = 
BOUND_CHECK(BgL_kz00_1659, BgL_auxz00_5501); } 
if(BgL_testz00_5500)
{ /* ./Llib/pregexp.scm 121 */
BgL_res3659z00_1666 = 
STRING_REF(BgL_sz00_10, BgL_kz00_1659); }  else 
{ /* ./Llib/pregexp.scm 121 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1659), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 121 */
obj_t BgL_auxz00_5507;
{ /* ./Llib/pregexp.scm 121 */
obj_t BgL_aux4395z00_3539;
BgL_aux4395z00_3539 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3954))); 
if(
CHARP(BgL_aux4395z00_3539))
{ /* ./Llib/pregexp.scm 121 */
BgL_auxz00_5507 = BgL_aux4395z00_3539
; }  else 
{ /* ./Llib/pregexp.scm 121 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux4395z00_3539, BGl_string10330z00zz__pregexpz00, 
BINT(((long)3954))); 
exit( -1 );} } 
BgL_res3659z00_1666 = 
(unsigned char)CCHAR(BgL_auxz00_5507); } } } } 
BgL_cz00_497 = BgL_res3659z00_1666; } 
{ 

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

{ /* ./Llib/pregexp.scm 123 */
obj_t BgL_arg1207z00_501;long BgL_arg1208z00_502;
BgL_arg1207z00_501 = BGl_keyword10347z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 123 */
long BgL_za71za7_1667;
{ /* ./Llib/pregexp.scm 123 */
obj_t BgL_auxz00_5516;
if(
INTEGERP(BgL_iz00_11))
{ /* ./Llib/pregexp.scm 123 */
BgL_auxz00_5516 = BgL_iz00_11
; }  else 
{ /* ./Llib/pregexp.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_11, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4014))); 
exit( -1 );} 
BgL_za71za7_1667 = 
(long)CINT(BgL_auxz00_5516); } 
BgL_arg1208z00_502 = 
(BgL_za71za7_1667+((long)1)); } 
{ /* ./Llib/pregexp.scm 123 */
obj_t BgL_list1210z00_503;
{ /* ./Llib/pregexp.scm 123 */
obj_t BgL_arg1212z00_504;
{ /* ./Llib/pregexp.scm 123 */
obj_t BgL_auxz00_5524;
BgL_auxz00_5524 = 
BINT(BgL_arg1208z00_502); 
BgL_arg1212z00_504 = 
MAKE_PAIR(BgL_auxz00_5524, BNIL); } 
BgL_list1210z00_503 = 
MAKE_PAIR(BgL_arg1207z00_501, BgL_arg1212z00_504); } 
{ /* ./Llib/pregexp.scm 123 */
obj_t BgL_res3660z00_1670;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 123 */
BgL_res3660z00_1670 = BgL_list1210z00_503; }  else 
{ /* ./Llib/pregexp.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1210z00_503, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4002))); 
exit( -1 );} 
BgL_aux3810z00_3186 = BgL_res3660z00_1670; } } } break;case ((unsigned char)'$') : 

{ /* ./Llib/pregexp.scm 124 */
obj_t BgL_arg1217z00_505;long BgL_arg1218z00_506;
BgL_arg1217z00_505 = BGl_keyword10348z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 124 */
long BgL_za71za7_1671;
{ /* ./Llib/pregexp.scm 124 */
obj_t BgL_auxz00_5532;
if(
INTEGERP(BgL_iz00_11))
{ /* ./Llib/pregexp.scm 124 */
BgL_auxz00_5532 = BgL_iz00_11
; }  else 
{ /* ./Llib/pregexp.scm 124 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_11, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4051))); 
exit( -1 );} 
BgL_za71za7_1671 = 
(long)CINT(BgL_auxz00_5532); } 
BgL_arg1218z00_506 = 
(BgL_za71za7_1671+((long)1)); } 
{ /* ./Llib/pregexp.scm 124 */
obj_t BgL_list1220z00_507;
{ /* ./Llib/pregexp.scm 124 */
obj_t BgL_arg1222z00_508;
{ /* ./Llib/pregexp.scm 124 */
obj_t BgL_auxz00_5540;
BgL_auxz00_5540 = 
BINT(BgL_arg1218z00_506); 
BgL_arg1222z00_508 = 
MAKE_PAIR(BgL_auxz00_5540, BNIL); } 
BgL_list1220z00_507 = 
MAKE_PAIR(BgL_arg1217z00_505, BgL_arg1222z00_508); } 
{ /* ./Llib/pregexp.scm 124 */
obj_t BgL_res3661z00_1674;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 124 */
BgL_res3661z00_1674 = BgL_list1220z00_507; }  else 
{ /* ./Llib/pregexp.scm 124 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1220z00_507, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4039))); 
exit( -1 );} 
BgL_aux3810z00_3186 = BgL_res3661z00_1674; } } } break;case ((unsigned char)'.') : 

{ /* ./Llib/pregexp.scm 126 */
obj_t BgL_arg1227z00_509;
{ /* ./Llib/pregexp.scm 126 */
obj_t BgL_arg1230z00_510;long BgL_arg1231z00_511;
BgL_arg1230z00_510 = BGl_keyword10349z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 126 */
long BgL_za71za7_1675;
{ /* ./Llib/pregexp.scm 126 */
obj_t BgL_auxz00_5548;
if(
INTEGERP(BgL_iz00_11))
{ /* ./Llib/pregexp.scm 126 */
BgL_auxz00_5548 = BgL_iz00_11
; }  else 
{ /* ./Llib/pregexp.scm 126 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_11, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4137))); 
exit( -1 );} 
BgL_za71za7_1675 = 
(long)CINT(BgL_auxz00_5548); } 
BgL_arg1231z00_511 = 
(BgL_za71za7_1675+((long)1)); } 
{ /* ./Llib/pregexp.scm 126 */
obj_t BgL_list1233z00_512;
{ /* ./Llib/pregexp.scm 126 */
obj_t BgL_arg1235z00_513;
{ /* ./Llib/pregexp.scm 126 */
obj_t BgL_auxz00_5556;
BgL_auxz00_5556 = 
BINT(BgL_arg1231z00_511); 
BgL_arg1235z00_513 = 
MAKE_PAIR(BgL_auxz00_5556, BNIL); } 
BgL_list1233z00_512 = 
MAKE_PAIR(BgL_arg1230z00_510, BgL_arg1235z00_513); } 
{ /* ./Llib/pregexp.scm 126 */
obj_t BgL_res3662z00_1678;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 126 */
BgL_res3662z00_1678 = BgL_list1233z00_512; }  else 
{ /* ./Llib/pregexp.scm 126 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1233z00_512, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4125))); 
exit( -1 );} 
BgL_arg1227z00_509 = BgL_res3662z00_1678; } } } 
BgL_aux3810z00_3186 = 
BGl_pregexpzd2wrapzd2quantifierzd2ifzd2anyz00zz__pregexpz00(BgL_arg1227z00_509, BgL_sz00_10, BgL_nz00_12); } break;case ((unsigned char)'[') : 

{ /* ./Llib/pregexp.scm 128 */
obj_t BgL_arg1240z00_514;
{ 

{ /* ./Llib/pregexp.scm 128 */
unsigned char BgL_aux1008z00_516;
{ /* ./Llib/pregexp.scm 128 */
long BgL_arg1273z00_528;
{ /* ./Llib/pregexp.scm 128 */
long BgL_za71za7_1679;
{ /* ./Llib/pregexp.scm 128 */
obj_t BgL_auxz00_5565;
if(
INTEGERP(BgL_iz00_11))
{ /* ./Llib/pregexp.scm 128 */
BgL_auxz00_5565 = BgL_iz00_11
; }  else 
{ /* ./Llib/pregexp.scm 128 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_11, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4236))); 
exit( -1 );} 
BgL_za71za7_1679 = 
(long)CINT(BgL_auxz00_5565); } 
BgL_arg1273z00_528 = 
(BgL_za71za7_1679+((long)1)); } 
{ /* ./Llib/pregexp.scm 128 */
unsigned char BgL_res3663z00_1689;
{ /* ./Llib/pregexp.scm 128 */
int BgL_kz00_1682;
BgL_kz00_1682 = 
(int)(BgL_arg1273z00_528); 
{ /* ./Llib/pregexp.scm 128 */
bool_t BgL_testz00_5574;
{ /* ./Llib/pregexp.scm 128 */
int BgL_auxz00_5575;
BgL_auxz00_5575 = 
STRING_LENGTH(BgL_sz00_10); 
BgL_testz00_5574 = 
BOUND_CHECK(BgL_kz00_1682, BgL_auxz00_5575); } 
if(BgL_testz00_5574)
{ /* ./Llib/pregexp.scm 128 */
BgL_res3663z00_1689 = 
STRING_REF(BgL_sz00_10, BgL_kz00_1682); }  else 
{ /* ./Llib/pregexp.scm 128 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1682), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 128 */
obj_t BgL_auxz00_5581;
{ /* ./Llib/pregexp.scm 128 */
obj_t BgL_aux4626z00_3577;
BgL_aux4626z00_3577 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4222))); 
if(
CHARP(BgL_aux4626z00_3577))
{ /* ./Llib/pregexp.scm 128 */
BgL_auxz00_5581 = BgL_aux4626z00_3577
; }  else 
{ /* ./Llib/pregexp.scm 128 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux4626z00_3577, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4222))); 
exit( -1 );} } 
BgL_res3663z00_1689 = 
(unsigned char)CCHAR(BgL_auxz00_5581); } } } } 
BgL_aux1008z00_516 = BgL_res3663z00_1689; } } 
switch( BgL_aux1008z00_516) { case ((unsigned char)'^') : 

{ /* ./Llib/pregexp.scm 130 */
obj_t BgL_vvz00_518;
{ /* ./Llib/pregexp.scm 130 */
long BgL_arg1265z00_527;
{ /* ./Llib/pregexp.scm 130 */
long BgL_za71za7_1690;
{ /* ./Llib/pregexp.scm 130 */
obj_t BgL_auxz00_5590;
if(
INTEGERP(BgL_iz00_11))
{ /* ./Llib/pregexp.scm 130 */
BgL_auxz00_5590 = BgL_iz00_11
; }  else 
{ /* ./Llib/pregexp.scm 130 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_11, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4327))); 
exit( -1 );} 
BgL_za71za7_1690 = 
(long)CINT(BgL_auxz00_5590); } 
BgL_arg1265z00_527 = 
(BgL_za71za7_1690+((long)2)); } 
BgL_vvz00_518 = 
BGl_pregexpzd2readzd2charzd2listzd2zz__pregexpz00(BgL_sz00_10, BgL_arg1265z00_527, BgL_nz00_12); } 
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_arg1244z00_519;obj_t BgL_arg1245z00_520;
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_arg1254z00_523;obj_t BgL_arg1255z00_524;
BgL_arg1254z00_523 = BGl_keyword10350z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_pairz00_1692;
if(
PAIRP(BgL_vvz00_518))
{ /* ./Llib/pregexp.scm 131 */
BgL_pairz00_1692 = BgL_vvz00_518; }  else 
{ /* ./Llib/pregexp.scm 131 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_vvz00_518, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4391))); 
exit( -1 );} 
BgL_arg1255z00_524 = 
CAR(BgL_pairz00_1692); } 
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_list1257z00_525;
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_arg1259z00_526;
BgL_arg1259z00_526 = 
MAKE_PAIR(BgL_arg1255z00_524, BNIL); 
BgL_list1257z00_525 = 
MAKE_PAIR(BgL_arg1254z00_523, BgL_arg1259z00_526); } 
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_res3664z00_1694;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 131 */
BgL_res3664z00_1694 = BgL_list1257z00_525; }  else 
{ /* ./Llib/pregexp.scm 131 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1257z00_525, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4368))); 
exit( -1 );} 
BgL_arg1244z00_519 = BgL_res3664z00_1694; } } } 
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_pairz00_1695;
if(
PAIRP(BgL_vvz00_518))
{ /* ./Llib/pregexp.scm 131 */
BgL_pairz00_1695 = BgL_vvz00_518; }  else 
{ /* ./Llib/pregexp.scm 131 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_vvz00_518, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4402))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_arg3354z00_1696;
BgL_arg3354z00_1696 = 
CDR(BgL_pairz00_1695); 
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_pairz00_1698;
if(
PAIRP(BgL_arg3354z00_1696))
{ /* ./Llib/pregexp.scm 131 */
BgL_pairz00_1698 = BgL_arg3354z00_1696; }  else 
{ /* ./Llib/pregexp.scm 131 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_1696, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4395))); 
exit( -1 );} 
BgL_arg1245z00_520 = 
CAR(BgL_pairz00_1698); } } } 
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_list1247z00_521;
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_arg1249z00_522;
BgL_arg1249z00_522 = 
MAKE_PAIR(BgL_arg1245z00_520, BNIL); 
BgL_list1247z00_521 = 
MAKE_PAIR(BgL_arg1244z00_519, BgL_arg1249z00_522); } 
{ /* ./Llib/pregexp.scm 131 */
obj_t BgL_res3665z00_1700;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 131 */
BgL_res3665z00_1700 = BgL_list1247z00_521; }  else 
{ /* ./Llib/pregexp.scm 131 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1247z00_521, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4362))); 
exit( -1 );} 
BgL_arg1240z00_514 = BgL_res3665z00_1700; } } } } break;
default: 
{ /* ./Llib/pregexp.scm 132 */
long BgL_arg1277z00_529;
{ /* ./Llib/pregexp.scm 132 */
long BgL_za71za7_1701;
{ /* ./Llib/pregexp.scm 132 */
obj_t BgL_auxz00_5629;
if(
INTEGERP(BgL_iz00_11))
{ /* ./Llib/pregexp.scm 132 */
BgL_auxz00_5629 = BgL_iz00_11
; }  else 
{ /* ./Llib/pregexp.scm 132 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_11, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4459))); 
exit( -1 );} 
BgL_za71za7_1701 = 
(long)CINT(BgL_auxz00_5629); } 
BgL_arg1277z00_529 = 
(BgL_za71za7_1701+((long)1)); } 
BgL_arg1240z00_514 = 
BGl_pregexpzd2readzd2charzd2listzd2zz__pregexpz00(BgL_sz00_10, BgL_arg1277z00_529, BgL_nz00_12); } } } } 
BgL_aux3810z00_3186 = 
BGl_pregexpzd2wrapzd2quantifierzd2ifzd2anyz00zz__pregexpz00(BgL_arg1240z00_514, BgL_sz00_10, BgL_nz00_12); } break;case ((unsigned char)'(') : 

{ /* ./Llib/pregexp.scm 136 */
obj_t BgL_arg1281z00_530;
{ /* ./Llib/pregexp.scm 136 */
long BgL_arg1284z00_531;
{ /* ./Llib/pregexp.scm 136 */
long BgL_za71za7_1703;
{ /* ./Llib/pregexp.scm 136 */
obj_t BgL_auxz00_5640;
if(
INTEGERP(BgL_iz00_11))
{ /* ./Llib/pregexp.scm 136 */
BgL_auxz00_5640 = BgL_iz00_11
; }  else 
{ /* ./Llib/pregexp.scm 136 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_11, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4589))); 
exit( -1 );} 
BgL_za71za7_1703 = 
(long)CINT(BgL_auxz00_5640); } 
BgL_arg1284z00_531 = 
(BgL_za71za7_1703+((long)1)); } 
BgL_arg1281z00_530 = 
BGl_pregexpzd2readzd2subpatternz00zz__pregexpz00(BgL_sz00_10, BgL_arg1284z00_531, BgL_nz00_12); } 
BgL_aux3810z00_3186 = 
BGl_pregexpzd2wrapzd2quantifierzd2ifzd2anyz00zz__pregexpz00(BgL_arg1281z00_530, BgL_sz00_10, BgL_nz00_12); } break;case ((unsigned char)'\\') : 

{ /* ./Llib/pregexp.scm 139 */
obj_t BgL_arg1288z00_532;
{ /* ./Llib/pregexp.scm 139 */
obj_t BgL_testzd2resultzd2_533;
BgL_testzd2resultzd2_533 = 
BGl_pregexpzd2readzd2escapedzd2numberzd2zz__pregexpz00(BgL_sz00_10, BgL_iz00_11, BgL_nz00_12); 
{ 
obj_t BgL__cdtest_1009z00_536;
if(
CBOOL(BgL_testzd2resultzd2_533))
{ /* ./Llib/pregexp.scm 139 */
BgL__cdtest_1009z00_536 = BgL_testzd2resultzd2_533; 
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_arg1295z00_539;obj_t BgL_arg1296z00_540;
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_arg1304z00_543;obj_t BgL_arg1305z00_544;
BgL_arg1304z00_543 = BGl_keyword10351z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_pairz00_1705;
if(
PAIRP(BgL__cdtest_1009z00_536))
{ /* ./Llib/pregexp.scm 141 */
BgL_pairz00_1705 = BgL__cdtest_1009z00_536; }  else 
{ /* ./Llib/pregexp.scm 141 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL__cdtest_1009z00_536, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4804))); 
exit( -1 );} 
BgL_arg1305z00_544 = 
CAR(BgL_pairz00_1705); } 
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_list1307z00_545;
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_arg1309z00_546;
BgL_arg1309z00_546 = 
MAKE_PAIR(BgL_arg1305z00_544, BNIL); 
BgL_list1307z00_545 = 
MAKE_PAIR(BgL_arg1304z00_543, BgL_arg1309z00_546); } 
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_res3666z00_1707;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 141 */
BgL_res3666z00_1707 = BgL_list1307z00_545; }  else 
{ /* ./Llib/pregexp.scm 141 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1307z00_545, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4779))); 
exit( -1 );} 
BgL_arg1295z00_539 = BgL_res3666z00_1707; } } } 
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_pairz00_1708;
if(
PAIRP(BgL__cdtest_1009z00_536))
{ /* ./Llib/pregexp.scm 141 */
BgL_pairz00_1708 = BgL__cdtest_1009z00_536; }  else 
{ /* ./Llib/pregexp.scm 141 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL__cdtest_1009z00_536, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4818))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_arg3354z00_1709;
BgL_arg3354z00_1709 = 
CDR(BgL_pairz00_1708); 
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_pairz00_1711;
if(
PAIRP(BgL_arg3354z00_1709))
{ /* ./Llib/pregexp.scm 141 */
BgL_pairz00_1711 = BgL_arg3354z00_1709; }  else 
{ /* ./Llib/pregexp.scm 141 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_1709, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4808))); 
exit( -1 );} 
BgL_arg1296z00_540 = 
CAR(BgL_pairz00_1711); } } } 
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_list1298z00_541;
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_arg1300z00_542;
BgL_arg1300z00_542 = 
MAKE_PAIR(BgL_arg1296z00_540, BNIL); 
BgL_list1298z00_541 = 
MAKE_PAIR(BgL_arg1295z00_539, BgL_arg1300z00_542); } 
{ /* ./Llib/pregexp.scm 141 */
obj_t BgL_res3667z00_1713;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 141 */
BgL_res3667z00_1713 = BgL_list1298z00_541; }  else 
{ /* ./Llib/pregexp.scm 141 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1298z00_541, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4773))); 
exit( -1 );} 
BgL_arg1288z00_532 = BgL_res3667z00_1713; } } } }  else 
{ /* ./Llib/pregexp.scm 139 */
{ /* ./Llib/pregexp.scm 142 */
obj_t BgL_testzd2resultzd2_548;
BgL_testzd2resultzd2_548 = 
BGl_pregexpzd2readzd2escapedzd2charzd2zz__pregexpz00(BgL_sz00_10, BgL_iz00_11, BgL_nz00_12); 
{ 
obj_t BgL__cdtest_1010z00_551;
if(
CBOOL(BgL_testzd2resultzd2_548))
{ /* ./Llib/pregexp.scm 142 */
BgL__cdtest_1010z00_551 = BgL_testzd2resultzd2_548; 
{ /* ./Llib/pregexp.scm 144 */
obj_t BgL_arg1320z00_554;obj_t BgL_arg1321z00_555;
{ /* ./Llib/pregexp.scm 144 */
obj_t BgL_pairz00_1714;
if(
PAIRP(BgL__cdtest_1010z00_551))
{ /* ./Llib/pregexp.scm 144 */
BgL_pairz00_1714 = BgL__cdtest_1010z00_551; }  else 
{ /* ./Llib/pregexp.scm 144 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL__cdtest_1010z00_551, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4950))); 
exit( -1 );} 
BgL_arg1320z00_554 = 
CAR(BgL_pairz00_1714); } 
{ /* ./Llib/pregexp.scm 144 */
obj_t BgL_pairz00_1715;
if(
PAIRP(BgL__cdtest_1010z00_551))
{ /* ./Llib/pregexp.scm 144 */
BgL_pairz00_1715 = BgL__cdtest_1010z00_551; }  else 
{ /* ./Llib/pregexp.scm 144 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL__cdtest_1010z00_551, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4964))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 144 */
obj_t BgL_arg3354z00_1716;
BgL_arg3354z00_1716 = 
CDR(BgL_pairz00_1715); 
{ /* ./Llib/pregexp.scm 144 */
obj_t BgL_pairz00_1718;
if(
PAIRP(BgL_arg3354z00_1716))
{ /* ./Llib/pregexp.scm 144 */
BgL_pairz00_1718 = BgL_arg3354z00_1716; }  else 
{ /* ./Llib/pregexp.scm 144 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_1716, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4953))); 
exit( -1 );} 
BgL_arg1321z00_555 = 
CAR(BgL_pairz00_1718); } } } 
{ /* ./Llib/pregexp.scm 144 */
obj_t BgL_list1323z00_556;
{ /* ./Llib/pregexp.scm 144 */
obj_t BgL_arg1326z00_557;
BgL_arg1326z00_557 = 
MAKE_PAIR(BgL_arg1321z00_555, BNIL); 
BgL_list1323z00_556 = 
MAKE_PAIR(BgL_arg1320z00_554, BgL_arg1326z00_557); } 
{ /* ./Llib/pregexp.scm 144 */
obj_t BgL_res3668z00_1720;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 144 */
BgL_res3668z00_1720 = BgL_list1323z00_556; }  else 
{ /* ./Llib/pregexp.scm 144 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1323z00_556, BGl_string10330z00zz__pregexpz00, 
BINT(((long)4934))); 
exit( -1 );} 
BgL_arg1288z00_532 = BgL_res3668z00_1720; } } } }  else 
{ /* ./Llib/pregexp.scm 142 */
{ /* ./Llib/pregexp.scm 145 */
obj_t BgL_list1333z00_559;
{ /* ./Llib/pregexp.scm 145 */
obj_t BgL_auxz00_5710;
BgL_auxz00_5710 = 
BCHAR(((unsigned char)'\\')); 
BgL_list1333z00_559 = 
MAKE_PAIR(BgL_auxz00_5710, BNIL); } 
BgL_arg1288z00_532 = 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol10352z00zz__pregexpz00, BgL_list1333z00_559); } } } } } } } 
BgL_aux3810z00_3186 = 
BGl_pregexpzd2wrapzd2quantifierzd2ifzd2anyz00zz__pregexpz00(BgL_arg1288z00_532, BgL_sz00_10, BgL_nz00_12); } break;
default: 
{ /* ./Llib/pregexp.scm 148 */
bool_t BgL_test1338z00_564;
if(
CBOOL(BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00))
{ /* ./Llib/pregexp.scm 148 */
BgL_test1338z00_564 = ((bool_t)1); }  else 
{ /* ./Llib/pregexp.scm 149 */
bool_t BgL__andtest_1004z00_587;
{ /* ./Llib/pregexp.scm 149 */
bool_t BgL_test1391z00_589;
{ /* ./Llib/pregexp.scm 149 */
bool_t BgL_res3669z00_1722;
BgL_res3669z00_1722 = 
isspace(BgL_cz00_497); 
BgL_test1391z00_589 = BgL_res3669z00_1722; } 
if(BgL_test1391z00_589)
{ /* ./Llib/pregexp.scm 149 */
BgL__andtest_1004z00_587 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 149 */
BgL__andtest_1004z00_587 = ((bool_t)1); } } 
if(BgL__andtest_1004z00_587)
{ /* ./Llib/pregexp.scm 149 */
if(
(BgL_cz00_497==((unsigned char)';')))
{ /* ./Llib/pregexp.scm 150 */
BgL_test1338z00_564 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 150 */
BgL_test1338z00_564 = ((bool_t)1); } }  else 
{ /* ./Llib/pregexp.scm 149 */
BgL_test1338z00_564 = ((bool_t)0); } } 
if(BgL_test1338z00_564)
{ /* ./Llib/pregexp.scm 152 */
obj_t BgL_arg1340z00_565;
{ /* ./Llib/pregexp.scm 152 */
long BgL_arg1343z00_566;
{ /* ./Llib/pregexp.scm 152 */
long BgL_za71za7_1725;
{ /* ./Llib/pregexp.scm 152 */
obj_t BgL_auxz00_5723;
if(
INTEGERP(BgL_iz00_11))
{ /* ./Llib/pregexp.scm 152 */
BgL_auxz00_5723 = BgL_iz00_11
; }  else 
{ /* ./Llib/pregexp.scm 152 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_11, BGl_string10330z00zz__pregexpz00, 
BINT(((long)5306))); 
exit( -1 );} 
BgL_za71za7_1725 = 
(long)CINT(BgL_auxz00_5723); } 
BgL_arg1343z00_566 = 
(BgL_za71za7_1725+((long)1)); } 
{ /* ./Llib/pregexp.scm 152 */
obj_t BgL_list1345z00_567;
{ /* ./Llib/pregexp.scm 152 */
obj_t BgL_arg1347z00_568;
{ /* ./Llib/pregexp.scm 152 */
obj_t BgL_auxz00_5731;
BgL_auxz00_5731 = 
BINT(BgL_arg1343z00_566); 
BgL_arg1347z00_568 = 
MAKE_PAIR(BgL_auxz00_5731, BNIL); } 
{ /* ./Llib/pregexp.scm 152 */
obj_t BgL_auxz00_5734;
BgL_auxz00_5734 = 
BCHAR(BgL_cz00_497); 
BgL_list1345z00_567 = 
MAKE_PAIR(BgL_auxz00_5734, BgL_arg1347z00_568); } } 
{ /* ./Llib/pregexp.scm 152 */
obj_t BgL_res3670z00_1728;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 152 */
BgL_res3670z00_1728 = BgL_list1345z00_567; }  else 
{ /* ./Llib/pregexp.scm 152 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1345z00_567, BGl_string10330z00zz__pregexpz00, 
BINT(((long)5298))); 
exit( -1 );} 
BgL_arg1340z00_565 = BgL_res3670z00_1728; } } } 
BgL_aux3810z00_3186 = 
BGl_pregexpzd2wrapzd2quantifierzd2ifzd2anyz00zz__pregexpz00(BgL_arg1340z00_565, BgL_sz00_10, BgL_nz00_12); }  else 
{ 
obj_t BgL_iz00_569;bool_t BgL_inzd2commentzf3z21_570;
BgL_iz00_569 = BgL_iz00_11; 
BgL_inzd2commentzf3z21_570 = ((bool_t)0); 
BgL_loopz00_571:
{ /* ./Llib/pregexp.scm 154 */
bool_t BgL_test1352z00_572;
{ /* ./Llib/pregexp.scm 154 */
long BgL_n1z00_1729;long BgL_n2z00_1730;
{ /* ./Llib/pregexp.scm 154 */
obj_t BgL_auxz00_5742;
if(
INTEGERP(BgL_iz00_569))
{ /* ./Llib/pregexp.scm 154 */
BgL_auxz00_5742 = BgL_iz00_569
; }  else 
{ /* ./Llib/pregexp.scm 154 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_569, BGl_string10330z00zz__pregexpz00, 
BINT(((long)5393))); 
exit( -1 );} 
BgL_n1z00_1729 = 
(long)CINT(BgL_auxz00_5742); } 
BgL_n2z00_1730 = 
(long)(BgL_nz00_12); 
BgL_test1352z00_572 = 
(BgL_n1z00_1729>=BgL_n2z00_1730); } 
if(BgL_test1352z00_572)
{ /* ./Llib/pregexp.scm 154 */
obj_t BgL_list1354z00_573;
{ /* ./Llib/pregexp.scm 154 */
obj_t BgL_arg1356z00_574;obj_t BgL_arg1357z00_575;
BgL_arg1356z00_574 = BGl_keyword10346z00zz__pregexpz00; 
BgL_arg1357z00_575 = 
MAKE_PAIR(BgL_iz00_569, BNIL); 
BgL_list1354z00_573 = 
MAKE_PAIR(BgL_arg1356z00_574, BgL_arg1357z00_575); } 
{ /* ./Llib/pregexp.scm 154 */
obj_t BgL_res3671z00_1732;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 154 */
BgL_res3671z00_1732 = BgL_list1354z00_573; }  else 
{ /* ./Llib/pregexp.scm 154 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1354z00_573, BGl_string10330z00zz__pregexpz00, 
BINT(((long)5398))); 
exit( -1 );} 
BgL_aux3810z00_3186 = BgL_res3671z00_1732; } }  else 
{ /* ./Llib/pregexp.scm 155 */
unsigned char BgL_cz00_576;
{ /* ./Llib/pregexp.scm 155 */
unsigned char BgL_res3672z00_1741;
{ /* ./Llib/pregexp.scm 155 */
int BgL_kz00_1734;
{ /* ./Llib/pregexp.scm 155 */
obj_t BgL_auxz00_5758;
if(
INTEGERP(BgL_iz00_569))
{ /* ./Llib/pregexp.scm 155 */
BgL_auxz00_5758 = BgL_iz00_569
; }  else 
{ /* ./Llib/pregexp.scm 155 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_569, BGl_string10330z00zz__pregexpz00, 
BINT(((long)5444))); 
exit( -1 );} 
BgL_kz00_1734 = 
CINT(BgL_auxz00_5758); } 
{ /* ./Llib/pregexp.scm 155 */
bool_t BgL_testz00_5765;
{ /* ./Llib/pregexp.scm 155 */
int BgL_auxz00_5766;
BgL_auxz00_5766 = 
STRING_LENGTH(BgL_sz00_10); 
BgL_testz00_5765 = 
BOUND_CHECK(BgL_kz00_1734, BgL_auxz00_5766); } 
if(BgL_testz00_5765)
{ /* ./Llib/pregexp.scm 155 */
BgL_res3672z00_1741 = 
STRING_REF(BgL_sz00_10, BgL_kz00_1734); }  else 
{ /* ./Llib/pregexp.scm 155 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1734), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 155 */
obj_t BgL_auxz00_5772;
{ /* ./Llib/pregexp.scm 155 */
obj_t BgL_aux4471z00_3551;
BgL_aux4471z00_3551 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)5444))); 
if(
CHARP(BgL_aux4471z00_3551))
{ /* ./Llib/pregexp.scm 155 */
BgL_auxz00_5772 = BgL_aux4471z00_3551
; }  else 
{ /* ./Llib/pregexp.scm 155 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux4471z00_3551, BGl_string10330z00zz__pregexpz00, 
BINT(((long)5444))); 
exit( -1 );} } 
BgL_res3672z00_1741 = 
(unsigned char)CCHAR(BgL_auxz00_5772); } } } } 
BgL_cz00_576 = BgL_res3672z00_1741; } 
if(BgL_inzd2commentzf3z21_570)
{ /* ./Llib/pregexp.scm 156 */
{ /* ./Llib/pregexp.scm 157 */
long BgL_arg1361z00_577;bool_t BgL_arg1362z00_578;
{ /* ./Llib/pregexp.scm 157 */
long BgL_za71za7_1742;
{ /* ./Llib/pregexp.scm 157 */
obj_t BgL_auxz00_5782;
if(
INTEGERP(BgL_iz00_569))
{ /* ./Llib/pregexp.scm 157 */
BgL_auxz00_5782 = BgL_iz00_569
; }  else 
{ /* ./Llib/pregexp.scm 157 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_569, BGl_string10330z00zz__pregexpz00, 
BINT(((long)5540))); 
exit( -1 );} 
BgL_za71za7_1742 = 
(long)CINT(BgL_auxz00_5782); } 
BgL_arg1361z00_577 = 
(BgL_za71za7_1742+((long)1)); } 
if(
(BgL_cz00_576==((unsigned char)'\n')))
{ /* ./Llib/pregexp.scm 158 */
BgL_arg1362z00_578 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 158 */
BgL_arg1362z00_578 = ((bool_t)1); } 
{ 
bool_t BgL_inzd2commentzf3z21_5794;obj_t BgL_iz00_5792;
BgL_iz00_5792 = 
BINT(BgL_arg1361z00_577); 
BgL_inzd2commentzf3z21_5794 = BgL_arg1362z00_578; 
BgL_inzd2commentzf3z21_570 = BgL_inzd2commentzf3z21_5794; 
BgL_iz00_569 = BgL_iz00_5792; 
goto BgL_loopz00_571;} } }  else 
{ /* ./Llib/pregexp.scm 159 */
bool_t BgL_test1367z00_580;
{ /* ./Llib/pregexp.scm 159 */
bool_t BgL_res3673z00_1747;
BgL_res3673z00_1747 = 
isspace(BgL_cz00_576); 
BgL_test1367z00_580 = BgL_res3673z00_1747; } 
if(BgL_test1367z00_580)
{ /* ./Llib/pregexp.scm 159 */
{ /* ./Llib/pregexp.scm 160 */
long BgL_arg1370z00_581;
{ /* ./Llib/pregexp.scm 160 */
long BgL_za71za7_1748;
{ /* ./Llib/pregexp.scm 160 */
obj_t BgL_auxz00_5797;
if(
INTEGERP(BgL_iz00_569))
{ /* ./Llib/pregexp.scm 160 */
BgL_auxz00_5797 = BgL_iz00_569
; }  else 
{ /* ./Llib/pregexp.scm 160 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_569, BGl_string10330z00zz__pregexpz00, 
BINT(((long)5694))); 
exit( -1 );} 
BgL_za71za7_1748 = 
(long)CINT(BgL_auxz00_5797); } 
BgL_arg1370z00_581 = 
(BgL_za71za7_1748+((long)1)); } 
{ 
bool_t BgL_inzd2commentzf3z21_5807;obj_t BgL_iz00_5805;
BgL_iz00_5805 = 
BINT(BgL_arg1370z00_581); 
BgL_inzd2commentzf3z21_5807 = ((bool_t)0); 
BgL_inzd2commentzf3z21_570 = BgL_inzd2commentzf3z21_5807; 
BgL_iz00_569 = BgL_iz00_5805; 
goto BgL_loopz00_571;} } }  else 
{ /* ./Llib/pregexp.scm 159 */
if(
(BgL_cz00_576==((unsigned char)';')))
{ /* ./Llib/pregexp.scm 161 */
{ /* ./Llib/pregexp.scm 162 */
long BgL_arg1375z00_583;
{ /* ./Llib/pregexp.scm 162 */
long BgL_za71za7_1752;
{ /* ./Llib/pregexp.scm 162 */
obj_t BgL_auxz00_5810;
if(
INTEGERP(BgL_iz00_569))
{ /* ./Llib/pregexp.scm 162 */
BgL_auxz00_5810 = BgL_iz00_569
; }  else 
{ /* ./Llib/pregexp.scm 162 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_569, BGl_string10330z00zz__pregexpz00, 
BINT(((long)5805))); 
exit( -1 );} 
BgL_za71za7_1752 = 
(long)CINT(BgL_auxz00_5810); } 
BgL_arg1375z00_583 = 
(BgL_za71za7_1752+((long)1)); } 
{ 
bool_t BgL_inzd2commentzf3z21_5820;obj_t BgL_iz00_5818;
BgL_iz00_5818 = 
BINT(BgL_arg1375z00_583); 
BgL_inzd2commentzf3z21_5820 = ((bool_t)1); 
BgL_inzd2commentzf3z21_570 = BgL_inzd2commentzf3z21_5820; 
BgL_iz00_569 = BgL_iz00_5818; 
goto BgL_loopz00_571;} } }  else 
{ /* ./Llib/pregexp.scm 161 */
{ /* ./Llib/pregexp.scm 163 */
obj_t BgL_list1379z00_584;
{ /* ./Llib/pregexp.scm 163 */
obj_t BgL_arg1381z00_585;obj_t BgL_arg1382z00_586;
BgL_arg1381z00_585 = BGl_keyword10346z00zz__pregexpz00; 
BgL_arg1382z00_586 = 
MAKE_PAIR(BgL_iz00_569, BNIL); 
BgL_list1379z00_584 = 
MAKE_PAIR(BgL_arg1381z00_585, BgL_arg1382z00_586); } 
{ /* ./Llib/pregexp.scm 163 */
obj_t BgL_res3674z00_1755;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 163 */
BgL_res3674z00_1755 = BgL_list1379z00_584; }  else 
{ /* ./Llib/pregexp.scm 163 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10345z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1379z00_584, BGl_string10330z00zz__pregexpz00, 
BINT(((long)5852))); 
exit( -1 );} 
BgL_aux3810z00_3186 = BgL_res3674z00_1755; } } } } } } } } } } } } 
POP_TRACE(); 
return BgL_aux3810z00_3186;} } } } 
}



/* 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 */
obj_t BgL_symbol3815z00_3187;
BgL_symbol3815z00_3187 = BGl_symbol10353z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 168 */

PUSH_TRACE(BgL_symbol3815z00_3187); BUNSPEC; 
{ /* ./Llib/pregexp.scm 168 */
obj_t BgL_aux3814z00_3188;
{ /* ./Llib/pregexp.scm 168 */
bool_t BgL__andtest_1011z00_590;
{ /* ./Llib/pregexp.scm 168 */
long BgL_arg1453z00_617;
{ /* ./Llib/pregexp.scm 168 */
long BgL_za71za7_1756;
{ /* ./Llib/pregexp.scm 168 */
obj_t BgL_auxz00_5830;
if(
INTEGERP(BgL_iz00_14))
{ /* ./Llib/pregexp.scm 168 */
BgL_auxz00_5830 = BgL_iz00_14
; }  else 
{ /* ./Llib/pregexp.scm 168 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10353z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_14, BGl_string10330z00zz__pregexpz00, 
BINT(((long)5962))); 
exit( -1 );} 
BgL_za71za7_1756 = 
(long)CINT(BgL_auxz00_5830); } 
BgL_arg1453z00_617 = 
(BgL_za71za7_1756+((long)1)); } 
{ /* ./Llib/pregexp.scm 168 */
long BgL_auxz00_5838;
BgL_auxz00_5838 = 
(long)(BgL_nz00_15); 
BgL__andtest_1011z00_590 = 
(BgL_arg1453z00_617<BgL_auxz00_5838); } } 
if(BgL__andtest_1011z00_590)
{ /* ./Llib/pregexp.scm 169 */
unsigned char BgL_cz00_591;
{ /* ./Llib/pregexp.scm 169 */
long BgL_arg1449z00_616;
{ /* ./Llib/pregexp.scm 169 */
long BgL_za71za7_1760;
{ /* ./Llib/pregexp.scm 169 */
obj_t BgL_auxz00_5842;
if(
INTEGERP(BgL_iz00_14))
{ /* ./Llib/pregexp.scm 169 */
BgL_auxz00_5842 = BgL_iz00_14
; }  else 
{ /* ./Llib/pregexp.scm 169 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10353z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_14, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6047))); 
exit( -1 );} 
BgL_za71za7_1760 = 
(long)CINT(BgL_auxz00_5842); } 
BgL_arg1449z00_616 = 
(BgL_za71za7_1760+((long)1)); } 
{ /* ./Llib/pregexp.scm 169 */
unsigned char BgL_res3675z00_1770;
{ /* ./Llib/pregexp.scm 169 */
int BgL_kz00_1763;
BgL_kz00_1763 = 
(int)(BgL_arg1449z00_616); 
{ /* ./Llib/pregexp.scm 169 */
bool_t BgL_testz00_5851;
{ /* ./Llib/pregexp.scm 169 */
int BgL_auxz00_5852;
BgL_auxz00_5852 = 
STRING_LENGTH(BgL_sz00_13); 
BgL_testz00_5851 = 
BOUND_CHECK(BgL_kz00_1763, BgL_auxz00_5852); } 
if(BgL_testz00_5851)
{ /* ./Llib/pregexp.scm 169 */
BgL_res3675z00_1770 = 
STRING_REF(BgL_sz00_13, BgL_kz00_1763); }  else 
{ /* ./Llib/pregexp.scm 169 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1763), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 169 */
obj_t BgL_auxz00_5858;
{ /* ./Llib/pregexp.scm 169 */
obj_t BgL_aux4835z00_3615;
BgL_aux4835z00_3615 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6033))); 
if(
CHARP(BgL_aux4835z00_3615))
{ /* ./Llib/pregexp.scm 169 */
BgL_auxz00_5858 = BgL_aux4835z00_3615
; }  else 
{ /* ./Llib/pregexp.scm 169 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10353z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux4835z00_3615, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6033))); 
exit( -1 );} } 
BgL_res3675z00_1770 = 
(unsigned char)CCHAR(BgL_auxz00_5858); } } } } 
BgL_cz00_591 = BgL_res3675z00_1770; } } 
{ /* ./Llib/pregexp.scm 170 */
bool_t BgL__andtest_1012z00_592;
{ /* ./Llib/pregexp.scm 170 */
bool_t BgL_res3676z00_1772;
BgL_res3676z00_1772 = 
isdigit(BgL_cz00_591); 
BgL__andtest_1012z00_592 = BgL_res3676z00_1772; } 
if(BgL__andtest_1012z00_592)
{ 
long BgL_iz00_593;obj_t BgL_rz00_594;
{ /* ./Llib/pregexp.scm 171 */
long BgL_arg1395z00_596;obj_t BgL_arg1396z00_597;
{ /* ./Llib/pregexp.scm 171 */
long BgL_za71za7_1773;
{ /* ./Llib/pregexp.scm 171 */
obj_t BgL_auxz00_5869;
if(
INTEGERP(BgL_iz00_14))
{ /* ./Llib/pregexp.scm 171 */
BgL_auxz00_5869 = BgL_iz00_14
; }  else 
{ /* ./Llib/pregexp.scm 171 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10353z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_14, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6122))); 
exit( -1 );} 
BgL_za71za7_1773 = 
(long)CINT(BgL_auxz00_5869); } 
BgL_arg1395z00_596 = 
(BgL_za71za7_1773+((long)2)); } 
{ /* ./Llib/pregexp.scm 171 */
obj_t BgL_list1400z00_598;
{ /* ./Llib/pregexp.scm 171 */
obj_t BgL_auxz00_5877;
BgL_auxz00_5877 = 
BCHAR(BgL_cz00_591); 
BgL_list1400z00_598 = 
MAKE_PAIR(BgL_auxz00_5877, BNIL); } 
{ /* ./Llib/pregexp.scm 171 */
obj_t BgL_res3677z00_1776;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 171 */
BgL_res3677z00_1776 = BgL_list1400z00_598; }  else 
{ /* ./Llib/pregexp.scm 171 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10353z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1400z00_598, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6134))); 
exit( -1 );} 
BgL_arg1396z00_597 = BgL_res3677z00_1776; } } 
BgL_iz00_593 = BgL_arg1395z00_596; 
BgL_rz00_594 = BgL_arg1396z00_597; 
BgL_loopz00_595:
{ /* ./Llib/pregexp.scm 172 */
bool_t BgL_testz00_5884;
{ /* ./Llib/pregexp.scm 172 */
long BgL_auxz00_5885;
BgL_auxz00_5885 = 
(long)(BgL_nz00_15); 
BgL_testz00_5884 = 
(BgL_iz00_593>=BgL_auxz00_5885); } 
if(BgL_testz00_5884)
{ /* ./Llib/pregexp.scm 174 */
obj_t BgL_arg1406z00_600;
BgL_arg1406z00_600 = 
BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_rz00_594)), BNIL); 
{ /* ./Llib/pregexp.scm 173 */
obj_t BgL_list1408z00_601;
{ /* ./Llib/pregexp.scm 173 */
obj_t BgL_arg1410z00_602;
{ /* ./Llib/pregexp.scm 173 */
obj_t BgL_auxz00_5891;
BgL_auxz00_5891 = 
BINT(BgL_iz00_593); 
BgL_arg1410z00_602 = 
MAKE_PAIR(BgL_auxz00_5891, BNIL); } 
BgL_list1408z00_601 = 
MAKE_PAIR(BgL_arg1406z00_600, BgL_arg1410z00_602); } 
{ /* ./Llib/pregexp.scm 173 */
obj_t BgL_res3678z00_1780;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 173 */
BgL_res3678z00_1780 = BgL_list1408z00_601; }  else 
{ /* ./Llib/pregexp.scm 173 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10353z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1408z00_601, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6198))); 
exit( -1 );} 
BgL_aux3814z00_3188 = BgL_res3678z00_1780; } } }  else 
{ /* ./Llib/pregexp.scm 175 */
unsigned char BgL_cz00_606;
{ /* ./Llib/pregexp.scm 175 */
unsigned char BgL_res3679z00_1789;
{ /* ./Llib/pregexp.scm 175 */
int BgL_kz00_1782;
BgL_kz00_1782 = 
(int)(BgL_iz00_593); 
{ /* ./Llib/pregexp.scm 175 */
bool_t BgL_testz00_5900;
{ /* ./Llib/pregexp.scm 175 */
int BgL_auxz00_5901;
BgL_auxz00_5901 = 
STRING_LENGTH(BgL_sz00_13); 
BgL_testz00_5900 = 
BOUND_CHECK(BgL_kz00_1782, BgL_auxz00_5901); } 
if(BgL_testz00_5900)
{ /* ./Llib/pregexp.scm 175 */
BgL_res3679z00_1789 = 
STRING_REF(BgL_sz00_13, BgL_kz00_1782); }  else 
{ /* ./Llib/pregexp.scm 175 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1782), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 175 */
obj_t BgL_auxz00_5907;
{ /* ./Llib/pregexp.scm 175 */
obj_t BgL_aux4867z00_3619;
BgL_aux4867z00_3619 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6321))); 
if(
CHARP(BgL_aux4867z00_3619))
{ /* ./Llib/pregexp.scm 175 */
BgL_auxz00_5907 = BgL_aux4867z00_3619
; }  else 
{ /* ./Llib/pregexp.scm 175 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10353z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux4867z00_3619, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6321))); 
exit( -1 );} } 
BgL_res3679z00_1789 = 
(unsigned char)CCHAR(BgL_auxz00_5907); } } } } 
BgL_cz00_606 = BgL_res3679z00_1789; } 
{ /* ./Llib/pregexp.scm 176 */
bool_t BgL_test1421z00_607;
{ /* ./Llib/pregexp.scm 176 */
bool_t BgL_res3680z00_1791;
BgL_res3680z00_1791 = 
isdigit(BgL_cz00_606); 
BgL_test1421z00_607 = BgL_res3680z00_1791; } 
if(BgL_test1421z00_607)
{ /* ./Llib/pregexp.scm 177 */
long BgL_arg1423z00_608;obj_t BgL_arg1424z00_609;
BgL_arg1423z00_608 = 
(BgL_iz00_593+((long)1)); 
{ /* ./Llib/pregexp.scm 177 */
obj_t BgL_auxz00_5919;
BgL_auxz00_5919 = 
BCHAR(BgL_cz00_606); 
BgL_arg1424z00_609 = 
MAKE_PAIR(BgL_auxz00_5919, BgL_rz00_594); } 
{ 
obj_t BgL_rz00_5923;long BgL_iz00_5922;
BgL_iz00_5922 = BgL_arg1423z00_608; 
BgL_rz00_5923 = BgL_arg1424z00_609; 
BgL_rz00_594 = BgL_rz00_5923; 
BgL_iz00_593 = BgL_iz00_5922; 
goto BgL_loopz00_595;} }  else 
{ /* ./Llib/pregexp.scm 179 */
obj_t BgL_arg1429z00_610;
BgL_arg1429z00_610 = 
BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_rz00_594)), BNIL); 
{ /* ./Llib/pregexp.scm 178 */
obj_t BgL_list1431z00_611;
{ /* ./Llib/pregexp.scm 178 */
obj_t BgL_arg1433z00_612;
{ /* ./Llib/pregexp.scm 178 */
obj_t BgL_auxz00_5927;
BgL_auxz00_5927 = 
BINT(BgL_iz00_593); 
BgL_arg1433z00_612 = 
MAKE_PAIR(BgL_auxz00_5927, BNIL); } 
BgL_list1431z00_611 = 
MAKE_PAIR(BgL_arg1429z00_610, BgL_arg1433z00_612); } 
{ /* ./Llib/pregexp.scm 178 */
obj_t BgL_res3681z00_1795;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 178 */
BgL_res3681z00_1795 = BgL_list1431z00_611; }  else 
{ /* ./Llib/pregexp.scm 178 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10353z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1431z00_611, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6468))); 
exit( -1 );} 
BgL_aux3814z00_3188 = BgL_res3681z00_1795; } } } } } } } }  else 
{ /* ./Llib/pregexp.scm 170 */
BgL_aux3814z00_3188 = BFALSE; } } }  else 
{ /* ./Llib/pregexp.scm 168 */
BgL_aux3814z00_3188 = BFALSE; } } 
POP_TRACE(); 
return BgL_aux3814z00_3188;} } } } 
}



/* 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 */
obj_t BgL_symbol3819z00_3189;
BgL_symbol3819z00_3189 = BGl_symbol10354z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 185 */

PUSH_TRACE(BgL_symbol3819z00_3189); BUNSPEC; 
{ /* ./Llib/pregexp.scm 185 */
obj_t BgL_aux3818z00_3190;
{ /* ./Llib/pregexp.scm 185 */
bool_t BgL__andtest_1013z00_618;
{ /* ./Llib/pregexp.scm 185 */
long BgL_arg1585z00_668;
{ /* ./Llib/pregexp.scm 185 */
long BgL_za71za7_1796;
{ /* ./Llib/pregexp.scm 185 */
obj_t BgL_auxz00_5937;
if(
INTEGERP(BgL_iz00_17))
{ /* ./Llib/pregexp.scm 185 */
BgL_auxz00_5937 = BgL_iz00_17
; }  else 
{ /* ./Llib/pregexp.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_17, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6685))); 
exit( -1 );} 
BgL_za71za7_1796 = 
(long)CINT(BgL_auxz00_5937); } 
BgL_arg1585z00_668 = 
(BgL_za71za7_1796+((long)1)); } 
{ /* ./Llib/pregexp.scm 185 */
long BgL_auxz00_5945;
BgL_auxz00_5945 = 
(long)(BgL_nz00_18); 
BgL__andtest_1013z00_618 = 
(BgL_arg1585z00_668<BgL_auxz00_5945); } } 
if(BgL__andtest_1013z00_618)
{ /* ./Llib/pregexp.scm 186 */
unsigned char BgL_cz00_619;
{ /* ./Llib/pregexp.scm 186 */
long BgL_arg1581z00_667;
{ /* ./Llib/pregexp.scm 186 */
long BgL_za71za7_1800;
{ /* ./Llib/pregexp.scm 186 */
obj_t BgL_auxz00_5949;
if(
INTEGERP(BgL_iz00_17))
{ /* ./Llib/pregexp.scm 186 */
BgL_auxz00_5949 = BgL_iz00_17
; }  else 
{ /* ./Llib/pregexp.scm 186 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_17, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6728))); 
exit( -1 );} 
BgL_za71za7_1800 = 
(long)CINT(BgL_auxz00_5949); } 
BgL_arg1581z00_667 = 
(BgL_za71za7_1800+((long)1)); } 
{ /* ./Llib/pregexp.scm 186 */
unsigned char BgL_res3682z00_1810;
{ /* ./Llib/pregexp.scm 186 */
int BgL_kz00_1803;
BgL_kz00_1803 = 
(int)(BgL_arg1581z00_667); 
{ /* ./Llib/pregexp.scm 186 */
bool_t BgL_testz00_5958;
{ /* ./Llib/pregexp.scm 186 */
int BgL_auxz00_5959;
BgL_auxz00_5959 = 
STRING_LENGTH(BgL_sz00_16); 
BgL_testz00_5958 = 
BOUND_CHECK(BgL_kz00_1803, BgL_auxz00_5959); } 
if(BgL_testz00_5958)
{ /* ./Llib/pregexp.scm 186 */
BgL_res3682z00_1810 = 
STRING_REF(BgL_sz00_16, BgL_kz00_1803); }  else 
{ /* ./Llib/pregexp.scm 186 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1803), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 186 */
obj_t BgL_auxz00_5965;
{ /* ./Llib/pregexp.scm 186 */
obj_t BgL_aux4946z00_3631;
BgL_aux4946z00_3631 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6714))); 
if(
CHARP(BgL_aux4946z00_3631))
{ /* ./Llib/pregexp.scm 186 */
BgL_auxz00_5965 = BgL_aux4946z00_3631
; }  else 
{ /* ./Llib/pregexp.scm 186 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux4946z00_3631, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6714))); 
exit( -1 );} } 
BgL_res3682z00_1810 = 
(unsigned char)CCHAR(BgL_auxz00_5965); } } } } 
BgL_cz00_619 = BgL_res3682z00_1810; } } 
{ 

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

{ /* ./Llib/pregexp.scm 188 */
obj_t BgL_arg1458z00_623;long BgL_arg1459z00_624;
BgL_arg1458z00_623 = BGl_keyword10355z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 188 */
long BgL_za71za7_1811;
{ /* ./Llib/pregexp.scm 188 */
obj_t BgL_auxz00_5974;
if(
INTEGERP(BgL_iz00_17))
{ /* ./Llib/pregexp.scm 188 */
BgL_auxz00_5974 = BgL_iz00_17
; }  else 
{ /* ./Llib/pregexp.scm 188 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_17, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6792))); 
exit( -1 );} 
BgL_za71za7_1811 = 
(long)CINT(BgL_auxz00_5974); } 
BgL_arg1459z00_624 = 
(BgL_za71za7_1811+((long)2)); } 
{ /* ./Llib/pregexp.scm 188 */
obj_t BgL_list1461z00_625;
{ /* ./Llib/pregexp.scm 188 */
obj_t BgL_arg1463z00_626;
{ /* ./Llib/pregexp.scm 188 */
obj_t BgL_auxz00_5982;
BgL_auxz00_5982 = 
BINT(BgL_arg1459z00_624); 
BgL_arg1463z00_626 = 
MAKE_PAIR(BgL_auxz00_5982, BNIL); } 
BgL_list1461z00_625 = 
MAKE_PAIR(BgL_arg1458z00_623, BgL_arg1463z00_626); } 
{ /* ./Llib/pregexp.scm 188 */
obj_t BgL_res3683z00_1814;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 188 */
BgL_res3683z00_1814 = BgL_list1461z00_625; }  else 
{ /* ./Llib/pregexp.scm 188 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1461z00_625, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6778))); 
exit( -1 );} 
BgL_aux3818z00_3190 = BgL_res3683z00_1814; } } } break;case ((unsigned char)'B') : 

{ /* ./Llib/pregexp.scm 189 */
obj_t BgL_arg1468z00_627;long BgL_arg1469z00_628;
BgL_arg1468z00_627 = BGl_keyword10356z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 189 */
long BgL_za71za7_1815;
{ /* ./Llib/pregexp.scm 189 */
obj_t BgL_auxz00_5990;
if(
INTEGERP(BgL_iz00_17))
{ /* ./Llib/pregexp.scm 189 */
BgL_auxz00_5990 = BgL_iz00_17
; }  else 
{ /* ./Llib/pregexp.scm 189 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_17, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6840))); 
exit( -1 );} 
BgL_za71za7_1815 = 
(long)CINT(BgL_auxz00_5990); } 
BgL_arg1469z00_628 = 
(BgL_za71za7_1815+((long)2)); } 
{ /* ./Llib/pregexp.scm 189 */
obj_t BgL_list1471z00_629;
{ /* ./Llib/pregexp.scm 189 */
obj_t BgL_arg1474z00_630;
{ /* ./Llib/pregexp.scm 189 */
obj_t BgL_auxz00_5998;
BgL_auxz00_5998 = 
BINT(BgL_arg1469z00_628); 
BgL_arg1474z00_630 = 
MAKE_PAIR(BgL_auxz00_5998, BNIL); } 
BgL_list1471z00_629 = 
MAKE_PAIR(BgL_arg1468z00_627, BgL_arg1474z00_630); } 
{ /* ./Llib/pregexp.scm 189 */
obj_t BgL_res3684z00_1818;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 189 */
BgL_res3684z00_1818 = BgL_list1471z00_629; }  else 
{ /* ./Llib/pregexp.scm 189 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1471z00_629, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6822))); 
exit( -1 );} 
BgL_aux3818z00_3190 = BgL_res3684z00_1818; } } } break;case ((unsigned char)'d') : 

{ /* ./Llib/pregexp.scm 190 */
obj_t BgL_arg1479z00_631;long BgL_arg1480z00_632;
BgL_arg1479z00_631 = BGl_keyword10357z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 190 */
long BgL_za71za7_1819;
{ /* ./Llib/pregexp.scm 190 */
obj_t BgL_auxz00_6006;
if(
INTEGERP(BgL_iz00_17))
{ /* ./Llib/pregexp.scm 190 */
BgL_auxz00_6006 = BgL_iz00_17
; }  else 
{ /* ./Llib/pregexp.scm 190 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_17, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6884))); 
exit( -1 );} 
BgL_za71za7_1819 = 
(long)CINT(BgL_auxz00_6006); } 
BgL_arg1480z00_632 = 
(BgL_za71za7_1819+((long)2)); } 
{ /* ./Llib/pregexp.scm 190 */
obj_t BgL_list1482z00_633;
{ /* ./Llib/pregexp.scm 190 */
obj_t BgL_arg1484z00_634;
{ /* ./Llib/pregexp.scm 190 */
obj_t BgL_auxz00_6014;
BgL_auxz00_6014 = 
BINT(BgL_arg1480z00_632); 
BgL_arg1484z00_634 = 
MAKE_PAIR(BgL_auxz00_6014, BNIL); } 
BgL_list1482z00_633 = 
MAKE_PAIR(BgL_arg1479z00_631, BgL_arg1484z00_634); } 
{ /* ./Llib/pregexp.scm 190 */
obj_t BgL_res3685z00_1822;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 190 */
BgL_res3685z00_1822 = BgL_list1482z00_633; }  else 
{ /* ./Llib/pregexp.scm 190 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1482z00_633, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6870))); 
exit( -1 );} 
BgL_aux3818z00_3190 = BgL_res3685z00_1822; } } } break;case ((unsigned char)'D') : 

{ /* ./Llib/pregexp.scm 191 */
obj_t BgL_arg1489z00_635;long BgL_arg1490z00_636;
BgL_arg1489z00_635 = BGl_list10358z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 191 */
long BgL_za71za7_1823;
{ /* ./Llib/pregexp.scm 191 */
obj_t BgL_auxz00_6022;
if(
INTEGERP(BgL_iz00_17))
{ /* ./Llib/pregexp.scm 191 */
BgL_auxz00_6022 = BgL_iz00_17
; }  else 
{ /* ./Llib/pregexp.scm 191 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_17, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6940))); 
exit( -1 );} 
BgL_za71za7_1823 = 
(long)CINT(BgL_auxz00_6022); } 
BgL_arg1490z00_636 = 
(BgL_za71za7_1823+((long)2)); } 
{ /* ./Llib/pregexp.scm 191 */
obj_t BgL_list1492z00_637;
{ /* ./Llib/pregexp.scm 191 */
obj_t BgL_arg1494z00_638;
{ /* ./Llib/pregexp.scm 191 */
obj_t BgL_auxz00_6030;
BgL_auxz00_6030 = 
BINT(BgL_arg1490z00_636); 
BgL_arg1494z00_638 = 
MAKE_PAIR(BgL_auxz00_6030, BNIL); } 
BgL_list1492z00_637 = 
MAKE_PAIR(BgL_arg1489z00_635, BgL_arg1494z00_638); } 
{ /* ./Llib/pregexp.scm 191 */
obj_t BgL_res3686z00_1826;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 191 */
BgL_res3686z00_1826 = BgL_list1492z00_637; }  else 
{ /* ./Llib/pregexp.scm 191 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1492z00_637, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6914))); 
exit( -1 );} 
BgL_aux3818z00_3190 = BgL_res3686z00_1826; } } } break;case ((unsigned char)'n') : 

{ /* ./Llib/pregexp.scm 192 */
long BgL_arg1499z00_639;
{ /* ./Llib/pregexp.scm 192 */
long BgL_za71za7_1827;
{ /* ./Llib/pregexp.scm 192 */
obj_t BgL_auxz00_6038;
if(
INTEGERP(BgL_iz00_17))
{ /* ./Llib/pregexp.scm 192 */
BgL_auxz00_6038 = BgL_iz00_17
; }  else 
{ /* ./Llib/pregexp.scm 192 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_17, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6986))); 
exit( -1 );} 
BgL_za71za7_1827 = 
(long)CINT(BgL_auxz00_6038); } 
BgL_arg1499z00_639 = 
(BgL_za71za7_1827+((long)2)); } 
{ /* ./Llib/pregexp.scm 192 */
obj_t BgL_list1501z00_640;
{ /* ./Llib/pregexp.scm 192 */
obj_t BgL_arg1503z00_641;
{ /* ./Llib/pregexp.scm 192 */
obj_t BgL_auxz00_6046;
BgL_auxz00_6046 = 
BINT(BgL_arg1499z00_639); 
BgL_arg1503z00_641 = 
MAKE_PAIR(BgL_auxz00_6046, BNIL); } 
{ /* ./Llib/pregexp.scm 192 */
obj_t BgL_auxz00_6049;
BgL_auxz00_6049 = 
BCHAR(((unsigned char)'\n')); 
BgL_list1501z00_640 = 
MAKE_PAIR(BgL_auxz00_6049, BgL_arg1503z00_641); } } 
{ /* ./Llib/pregexp.scm 192 */
obj_t BgL_res3687z00_1830;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 192 */
BgL_res3687z00_1830 = BgL_list1501z00_640; }  else 
{ /* ./Llib/pregexp.scm 192 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1501z00_640, BGl_string10330z00zz__pregexpz00, 
BINT(((long)6970))); 
exit( -1 );} 
BgL_aux3818z00_3190 = BgL_res3687z00_1830; } } } break;case ((unsigned char)'r') : 

{ /* ./Llib/pregexp.scm 193 */
long BgL_arg1508z00_642;
{ /* ./Llib/pregexp.scm 193 */
long BgL_za71za7_1831;
{ /* ./Llib/pregexp.scm 193 */
obj_t BgL_auxz00_6056;
if(
INTEGERP(BgL_iz00_17))
{ /* ./Llib/pregexp.scm 193 */
BgL_auxz00_6056 = BgL_iz00_17
; }  else 
{ /* ./Llib/pregexp.scm 193 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_17, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7044))); 
exit( -1 );} 
BgL_za71za7_1831 = 
(long)CINT(BgL_auxz00_6056); } 
BgL_arg1508z00_642 = 
(BgL_za71za7_1831+((long)2)); } 
{ /* ./Llib/pregexp.scm 193 */
obj_t BgL_list1510z00_643;
{ /* ./Llib/pregexp.scm 193 */
obj_t BgL_arg1512z00_644;
{ /* ./Llib/pregexp.scm 193 */
obj_t BgL_auxz00_6064;
BgL_auxz00_6064 = 
BINT(BgL_arg1508z00_642); 
BgL_arg1512z00_644 = 
MAKE_PAIR(BgL_auxz00_6064, BNIL); } 
BgL_list1510z00_643 = 
MAKE_PAIR(BGl_za2pregexpzd2returnzd2charza2z00zz__pregexpz00, BgL_arg1512z00_644); } 
{ /* ./Llib/pregexp.scm 193 */
obj_t BgL_res3688z00_1834;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 193 */
BgL_res3688z00_1834 = BgL_list1510z00_643; }  else 
{ /* ./Llib/pregexp.scm 193 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1510z00_643, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7016))); 
exit( -1 );} 
BgL_aux3818z00_3190 = BgL_res3688z00_1834; } } } break;case ((unsigned char)'s') : 

{ /* ./Llib/pregexp.scm 194 */
obj_t BgL_arg1518z00_645;long BgL_arg1519z00_646;
BgL_arg1518z00_645 = BGl_keyword10359z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 194 */
long BgL_za71za7_1835;
{ /* ./Llib/pregexp.scm 194 */
obj_t BgL_auxz00_6072;
if(
INTEGERP(BgL_iz00_17))
{ /* ./Llib/pregexp.scm 194 */
BgL_auxz00_6072 = BgL_iz00_17
; }  else 
{ /* ./Llib/pregexp.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_17, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7088))); 
exit( -1 );} 
BgL_za71za7_1835 = 
(long)CINT(BgL_auxz00_6072); } 
BgL_arg1519z00_646 = 
(BgL_za71za7_1835+((long)2)); } 
{ /* ./Llib/pregexp.scm 194 */
obj_t BgL_list1521z00_647;
{ /* ./Llib/pregexp.scm 194 */
obj_t BgL_arg1524z00_648;
{ /* ./Llib/pregexp.scm 194 */
obj_t BgL_auxz00_6080;
BgL_auxz00_6080 = 
BINT(BgL_arg1519z00_646); 
BgL_arg1524z00_648 = 
MAKE_PAIR(BgL_auxz00_6080, BNIL); } 
BgL_list1521z00_647 = 
MAKE_PAIR(BgL_arg1518z00_645, BgL_arg1524z00_648); } 
{ /* ./Llib/pregexp.scm 194 */
obj_t BgL_res3689z00_1838;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 194 */
BgL_res3689z00_1838 = BgL_list1521z00_647; }  else 
{ /* ./Llib/pregexp.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1521z00_647, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7074))); 
exit( -1 );} 
BgL_aux3818z00_3190 = BgL_res3689z00_1838; } } } break;case ((unsigned char)'S') : 

{ /* ./Llib/pregexp.scm 195 */
obj_t BgL_arg1529z00_649;long BgL_arg1530z00_650;
BgL_arg1529z00_649 = BGl_list10360z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 195 */
long BgL_za71za7_1839;
{ /* ./Llib/pregexp.scm 195 */
obj_t BgL_auxz00_6088;
if(
INTEGERP(BgL_iz00_17))
{ /* ./Llib/pregexp.scm 195 */
BgL_auxz00_6088 = BgL_iz00_17
; }  else 
{ /* ./Llib/pregexp.scm 195 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_17, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7144))); 
exit( -1 );} 
BgL_za71za7_1839 = 
(long)CINT(BgL_auxz00_6088); } 
BgL_arg1530z00_650 = 
(BgL_za71za7_1839+((long)2)); } 
{ /* ./Llib/pregexp.scm 195 */
obj_t BgL_list1532z00_651;
{ /* ./Llib/pregexp.scm 195 */
obj_t BgL_arg1534z00_652;
{ /* ./Llib/pregexp.scm 195 */
obj_t BgL_auxz00_6096;
BgL_auxz00_6096 = 
BINT(BgL_arg1530z00_650); 
BgL_arg1534z00_652 = 
MAKE_PAIR(BgL_auxz00_6096, BNIL); } 
BgL_list1532z00_651 = 
MAKE_PAIR(BgL_arg1529z00_649, BgL_arg1534z00_652); } 
{ /* ./Llib/pregexp.scm 195 */
obj_t BgL_res3690z00_1842;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 195 */
BgL_res3690z00_1842 = BgL_list1532z00_651; }  else 
{ /* ./Llib/pregexp.scm 195 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1532z00_651, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7118))); 
exit( -1 );} 
BgL_aux3818z00_3190 = BgL_res3690z00_1842; } } } break;case ((unsigned char)'t') : 

{ /* ./Llib/pregexp.scm 196 */
long BgL_arg1539z00_653;
{ /* ./Llib/pregexp.scm 196 */
long BgL_za71za7_1843;
{ /* ./Llib/pregexp.scm 196 */
obj_t BgL_auxz00_6104;
if(
INTEGERP(BgL_iz00_17))
{ /* ./Llib/pregexp.scm 196 */
BgL_auxz00_6104 = BgL_iz00_17
; }  else 
{ /* ./Llib/pregexp.scm 196 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_17, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7199))); 
exit( -1 );} 
BgL_za71za7_1843 = 
(long)CINT(BgL_auxz00_6104); } 
BgL_arg1539z00_653 = 
(BgL_za71za7_1843+((long)2)); } 
{ /* ./Llib/pregexp.scm 196 */
obj_t BgL_list1541z00_654;
{ /* ./Llib/pregexp.scm 196 */
obj_t BgL_arg1543z00_655;
{ /* ./Llib/pregexp.scm 196 */
obj_t BgL_auxz00_6112;
BgL_auxz00_6112 = 
BINT(BgL_arg1539z00_653); 
BgL_arg1543z00_655 = 
MAKE_PAIR(BgL_auxz00_6112, BNIL); } 
BgL_list1541z00_654 = 
MAKE_PAIR(BGl_za2pregexpzd2tabzd2charza2z00zz__pregexpz00, BgL_arg1543z00_655); } 
{ /* ./Llib/pregexp.scm 196 */
obj_t BgL_res3691z00_1846;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 196 */
BgL_res3691z00_1846 = BgL_list1541z00_654; }  else 
{ /* ./Llib/pregexp.scm 196 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1541z00_654, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7174))); 
exit( -1 );} 
BgL_aux3818z00_3190 = BgL_res3691z00_1846; } } } break;case ((unsigned char)'w') : 

{ /* ./Llib/pregexp.scm 197 */
obj_t BgL_arg1548z00_656;long BgL_arg1549z00_657;
BgL_arg1548z00_656 = BGl_keyword10361z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 197 */
long BgL_za71za7_1847;
{ /* ./Llib/pregexp.scm 197 */
obj_t BgL_auxz00_6120;
if(
INTEGERP(BgL_iz00_17))
{ /* ./Llib/pregexp.scm 197 */
BgL_auxz00_6120 = BgL_iz00_17
; }  else 
{ /* ./Llib/pregexp.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_17, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7242))); 
exit( -1 );} 
BgL_za71za7_1847 = 
(long)CINT(BgL_auxz00_6120); } 
BgL_arg1549z00_657 = 
(BgL_za71za7_1847+((long)2)); } 
{ /* ./Llib/pregexp.scm 197 */
obj_t BgL_list1551z00_658;
{ /* ./Llib/pregexp.scm 197 */
obj_t BgL_arg1553z00_659;
{ /* ./Llib/pregexp.scm 197 */
obj_t BgL_auxz00_6128;
BgL_auxz00_6128 = 
BINT(BgL_arg1549z00_657); 
BgL_arg1553z00_659 = 
MAKE_PAIR(BgL_auxz00_6128, BNIL); } 
BgL_list1551z00_658 = 
MAKE_PAIR(BgL_arg1548z00_656, BgL_arg1553z00_659); } 
{ /* ./Llib/pregexp.scm 197 */
obj_t BgL_res3692z00_1850;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 197 */
BgL_res3692z00_1850 = BgL_list1551z00_658; }  else 
{ /* ./Llib/pregexp.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1551z00_658, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7229))); 
exit( -1 );} 
BgL_aux3818z00_3190 = BgL_res3692z00_1850; } } } break;case ((unsigned char)'W') : 

{ /* ./Llib/pregexp.scm 198 */
obj_t BgL_arg1558z00_660;long BgL_arg1559z00_661;
BgL_arg1558z00_660 = BGl_list10362z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 198 */
long BgL_za71za7_1851;
{ /* ./Llib/pregexp.scm 198 */
obj_t BgL_auxz00_6136;
if(
INTEGERP(BgL_iz00_17))
{ /* ./Llib/pregexp.scm 198 */
BgL_auxz00_6136 = BgL_iz00_17
; }  else 
{ /* ./Llib/pregexp.scm 198 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_17, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7297))); 
exit( -1 );} 
BgL_za71za7_1851 = 
(long)CINT(BgL_auxz00_6136); } 
BgL_arg1559z00_661 = 
(BgL_za71za7_1851+((long)2)); } 
{ /* ./Llib/pregexp.scm 198 */
obj_t BgL_list1561z00_662;
{ /* ./Llib/pregexp.scm 198 */
obj_t BgL_arg1563z00_663;
{ /* ./Llib/pregexp.scm 198 */
obj_t BgL_auxz00_6144;
BgL_auxz00_6144 = 
BINT(BgL_arg1559z00_661); 
BgL_arg1563z00_663 = 
MAKE_PAIR(BgL_auxz00_6144, BNIL); } 
BgL_list1561z00_662 = 
MAKE_PAIR(BgL_arg1558z00_660, BgL_arg1563z00_663); } 
{ /* ./Llib/pregexp.scm 198 */
obj_t BgL_res3693z00_1854;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 198 */
BgL_res3693z00_1854 = BgL_list1561z00_662; }  else 
{ /* ./Llib/pregexp.scm 198 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1561z00_662, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7272))); 
exit( -1 );} 
BgL_aux3818z00_3190 = BgL_res3693z00_1854; } } } break;
default: 
{ /* ./Llib/pregexp.scm 199 */
long BgL_arg1572z00_664;
{ /* ./Llib/pregexp.scm 199 */
long BgL_za71za7_1855;
{ /* ./Llib/pregexp.scm 199 */
obj_t BgL_auxz00_6152;
if(
INTEGERP(BgL_iz00_17))
{ /* ./Llib/pregexp.scm 199 */
BgL_auxz00_6152 = BgL_iz00_17
; }  else 
{ /* ./Llib/pregexp.scm 199 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_17, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7334))); 
exit( -1 );} 
BgL_za71za7_1855 = 
(long)CINT(BgL_auxz00_6152); } 
BgL_arg1572z00_664 = 
(BgL_za71za7_1855+((long)2)); } 
{ /* ./Llib/pregexp.scm 199 */
obj_t BgL_list1574z00_665;
{ /* ./Llib/pregexp.scm 199 */
obj_t BgL_arg1576z00_666;
{ /* ./Llib/pregexp.scm 199 */
obj_t BgL_auxz00_6160;
BgL_auxz00_6160 = 
BINT(BgL_arg1572z00_664); 
BgL_arg1576z00_666 = 
MAKE_PAIR(BgL_auxz00_6160, BNIL); } 
{ /* ./Llib/pregexp.scm 199 */
obj_t BgL_auxz00_6163;
BgL_auxz00_6163 = 
BCHAR(BgL_cz00_619); 
BgL_list1574z00_665 = 
MAKE_PAIR(BgL_auxz00_6163, BgL_arg1576z00_666); } } 
{ /* ./Llib/pregexp.scm 199 */
obj_t BgL_res3694z00_1858;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 199 */
BgL_res3694z00_1858 = BgL_list1574z00_665; }  else 
{ /* ./Llib/pregexp.scm 199 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10354z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1574z00_665, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7326))); 
exit( -1 );} 
BgL_aux3818z00_3190 = BgL_res3694z00_1858; } } } } } }  else 
{ /* ./Llib/pregexp.scm 185 */
BgL_aux3818z00_3190 = BFALSE; } } 
POP_TRACE(); 
return BgL_aux3818z00_3190;} } } } 
}



/* 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 */
obj_t BgL_symbol3823z00_3191;
BgL_symbol3823z00_3191 = BGl_symbol10363z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 204 */

PUSH_TRACE(BgL_symbol3823z00_3191); BUNSPEC; 
{ /* ./Llib/pregexp.scm 204 */
obj_t BgL_aux3822z00_3192;
{ /* ./Llib/pregexp.scm 204 */
bool_t BgL_negzf3zf3_669;
BgL_negzf3zf3_669 = ((bool_t)0); 
{ 
long BgL_iz00_670;obj_t BgL_rz00_671;
{ /* ./Llib/pregexp.scm 205 */
obj_t BgL_arg1589z00_673;
{ /* ./Llib/pregexp.scm 205 */
obj_t BgL_list1592z00_674;
{ /* ./Llib/pregexp.scm 205 */
obj_t BgL_auxz00_6173;
BgL_auxz00_6173 = 
BCHAR(((unsigned char)':')); 
BgL_list1592z00_674 = 
MAKE_PAIR(BgL_auxz00_6173, BNIL); } 
{ /* ./Llib/pregexp.scm 205 */
obj_t BgL_res3695z00_1860;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 205 */
BgL_res3695z00_1860 = BgL_list1592z00_674; }  else 
{ /* ./Llib/pregexp.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10363z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1592z00_674, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7486))); 
exit( -1 );} 
BgL_arg1589z00_673 = BgL_res3695z00_1860; } } 
BgL_iz00_670 = BgL_iz00_20; 
BgL_rz00_671 = BgL_arg1589z00_673; 
BgL_loopz00_672:
{ /* ./Llib/pregexp.scm 206 */
bool_t BgL_testz00_6180;
{ /* ./Llib/pregexp.scm 206 */
long BgL_auxz00_6181;
BgL_auxz00_6181 = 
(long)(BgL_nz00_21); 
BgL_testz00_6180 = 
(BgL_iz00_670>=BgL_auxz00_6181); } 
if(BgL_testz00_6180)
{ /* ./Llib/pregexp.scm 206 */
BgL_aux3822z00_3192 = 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol10363z00zz__pregexpz00, BNIL); }  else 
{ /* ./Llib/pregexp.scm 208 */
unsigned char BgL_cz00_677;
{ /* ./Llib/pregexp.scm 208 */
unsigned char BgL_res3696z00_1871;
{ /* ./Llib/pregexp.scm 208 */
int BgL_kz00_1864;
BgL_kz00_1864 = 
(int)(BgL_iz00_670); 
{ /* ./Llib/pregexp.scm 208 */
bool_t BgL_testz00_6186;
{ /* ./Llib/pregexp.scm 208 */
int BgL_auxz00_6187;
BgL_auxz00_6187 = 
STRING_LENGTH(BgL_sz00_19); 
BgL_testz00_6186 = 
BOUND_CHECK(BgL_kz00_1864, BgL_auxz00_6187); } 
if(BgL_testz00_6186)
{ /* ./Llib/pregexp.scm 208 */
BgL_res3696z00_1871 = 
STRING_REF(BgL_sz00_19, BgL_kz00_1864); }  else 
{ /* ./Llib/pregexp.scm 208 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1864), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 208 */
obj_t BgL_auxz00_6193;
{ /* ./Llib/pregexp.scm 208 */
obj_t BgL_aux5235z00_3681;
BgL_aux5235z00_3681 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7600))); 
if(
CHARP(BgL_aux5235z00_3681))
{ /* ./Llib/pregexp.scm 208 */
BgL_auxz00_6193 = BgL_aux5235z00_3681
; }  else 
{ /* ./Llib/pregexp.scm 208 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10363z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux5235z00_3681, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7600))); 
exit( -1 );} } 
BgL_res3696z00_1871 = 
(unsigned char)CCHAR(BgL_auxz00_6193); } } } } 
BgL_cz00_677 = BgL_res3696z00_1871; } 
if(
(BgL_cz00_677==((unsigned char)'^')))
{ /* ./Llib/pregexp.scm 209 */
BgL_negzf3zf3_669 = ((bool_t)1); 
{ 
long BgL_iz00_6204;
BgL_iz00_6204 = 
(BgL_iz00_670+((long)1)); 
BgL_iz00_670 = BgL_iz00_6204; 
goto BgL_loopz00_672;} }  else 
{ /* ./Llib/pregexp.scm 212 */
bool_t BgL_test1602z00_680;
{ /* ./Llib/pregexp.scm 212 */
bool_t BgL_res3697z00_1877;
BgL_res3697z00_1877 = 
isalpha(BgL_cz00_677); 
BgL_test1602z00_680 = BgL_res3697z00_1877; } 
if(BgL_test1602z00_680)
{ /* ./Llib/pregexp.scm 212 */
{ /* ./Llib/pregexp.scm 213 */
long BgL_arg1604z00_681;obj_t BgL_arg1605z00_682;
BgL_arg1604z00_681 = 
(BgL_iz00_670+((long)1)); 
{ /* ./Llib/pregexp.scm 213 */
obj_t BgL_auxz00_6209;
BgL_auxz00_6209 = 
BCHAR(BgL_cz00_677); 
BgL_arg1605z00_682 = 
MAKE_PAIR(BgL_auxz00_6209, BgL_rz00_671); } 
{ 
obj_t BgL_rz00_6213;long BgL_iz00_6212;
BgL_iz00_6212 = BgL_arg1604z00_681; 
BgL_rz00_6213 = BgL_arg1605z00_682; 
BgL_rz00_671 = BgL_rz00_6213; 
BgL_iz00_670 = BgL_iz00_6212; 
goto BgL_loopz00_672;} } }  else 
{ /* ./Llib/pregexp.scm 212 */
if(
(BgL_cz00_677==((unsigned char)':')))
{ /* ./Llib/pregexp.scm 214 */
{ /* ./Llib/pregexp.scm 215 */
bool_t BgL_test1610z00_684;
{ /* ./Llib/pregexp.scm 215 */
bool_t BgL_testz00_6216;
{ /* ./Llib/pregexp.scm 215 */
long BgL_auxz00_6219;long BgL_auxz00_6217;
BgL_auxz00_6219 = 
(long)(BgL_nz00_21); 
BgL_auxz00_6217 = 
(BgL_iz00_670+((long)1)); 
BgL_testz00_6216 = 
(BgL_auxz00_6217>=BgL_auxz00_6219); } 
if(BgL_testz00_6216)
{ /* ./Llib/pregexp.scm 215 */
BgL_test1610z00_684 = ((bool_t)1); }  else 
{ /* ./Llib/pregexp.scm 216 */
bool_t BgL_test1639z00_697;
{ /* ./Llib/pregexp.scm 216 */
unsigned char BgL_arg1641z00_698;
{ /* ./Llib/pregexp.scm 216 */
long BgL_arg1644z00_699;
BgL_arg1644z00_699 = 
(BgL_iz00_670+((long)1)); 
{ /* ./Llib/pregexp.scm 216 */
unsigned char BgL_res3698z00_1896;
{ /* ./Llib/pregexp.scm 216 */
int BgL_kz00_1889;
BgL_kz00_1889 = 
(int)(BgL_arg1644z00_699); 
{ /* ./Llib/pregexp.scm 216 */
bool_t BgL_testz00_6224;
{ /* ./Llib/pregexp.scm 216 */
int BgL_auxz00_6225;
BgL_auxz00_6225 = 
STRING_LENGTH(BgL_sz00_19); 
BgL_testz00_6224 = 
BOUND_CHECK(BgL_kz00_1889, BgL_auxz00_6225); } 
if(BgL_testz00_6224)
{ /* ./Llib/pregexp.scm 216 */
BgL_res3698z00_1896 = 
STRING_REF(BgL_sz00_19, BgL_kz00_1889); }  else 
{ /* ./Llib/pregexp.scm 216 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1889), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 216 */
obj_t BgL_auxz00_6231;
{ /* ./Llib/pregexp.scm 216 */
obj_t BgL_aux5257z00_3683;
BgL_aux5257z00_3683 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7942))); 
if(
CHARP(BgL_aux5257z00_3683))
{ /* ./Llib/pregexp.scm 216 */
BgL_auxz00_6231 = BgL_aux5257z00_3683
; }  else 
{ /* ./Llib/pregexp.scm 216 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10363z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux5257z00_3683, BGl_string10330z00zz__pregexpz00, 
BINT(((long)7942))); 
exit( -1 );} } 
BgL_res3698z00_1896 = 
(unsigned char)CCHAR(BgL_auxz00_6231); } } } } 
BgL_arg1641z00_698 = BgL_res3698z00_1896; } } 
BgL_test1639z00_697 = 
(BgL_arg1641z00_698==((unsigned char)']')); } 
if(BgL_test1639z00_697)
{ /* ./Llib/pregexp.scm 216 */
BgL_test1610z00_684 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 216 */
BgL_test1610z00_684 = ((bool_t)1); } } } 
if(BgL_test1610z00_684)
{ /* ./Llib/pregexp.scm 217 */
obj_t BgL_list1612z00_685;
{ /* ./Llib/pregexp.scm 217 */
obj_t BgL_auxz00_6243;
BgL_auxz00_6243 = 
BCHAR(((unsigned char)':')); 
BgL_list1612z00_685 = 
MAKE_PAIR(BgL_auxz00_6243, BNIL); } 
BgL_aux3822z00_3192 = 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol10363z00zz__pregexpz00, BgL_list1612z00_685); }  else 
{ /* ./Llib/pregexp.scm 218 */
obj_t BgL_posixzd2classzd2_686;
{ /* ./Llib/pregexp.scm 220 */
obj_t BgL_arg1632z00_694;
BgL_arg1632z00_694 = 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_rz00_671)); 
{ /* ./Llib/pregexp.scm 219 */
char * BgL_auxz00_6249;
BgL_auxz00_6249 = 
BSTRING_TO_STRING(BgL_arg1632z00_694); 
BgL_posixzd2classzd2_686 = 
string_to_keyword(BgL_auxz00_6249); } } 
{ /* ./Llib/pregexp.scm 221 */
obj_t BgL_arg1615z00_687;long BgL_arg1616z00_688;
if(BgL_negzf3zf3_669)
{ /* ./Llib/pregexp.scm 221 */
obj_t BgL_list1624z00_691;
{ /* ./Llib/pregexp.scm 221 */
obj_t BgL_arg1626z00_692;obj_t BgL_arg1627z00_693;
BgL_arg1626z00_692 = BGl_keyword10350z00zz__pregexpz00; 
BgL_arg1627z00_693 = 
MAKE_PAIR(BgL_posixzd2classzd2_686, BNIL); 
BgL_list1624z00_691 = 
MAKE_PAIR(BgL_arg1626z00_692, BgL_arg1627z00_693); } 
{ /* ./Llib/pregexp.scm 221 */
obj_t BgL_res3699z00_1901;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 221 */
BgL_res3699z00_1901 = BgL_list1624z00_691; }  else 
{ /* ./Llib/pregexp.scm 221 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10363z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1624z00_691, BGl_string10330z00zz__pregexpz00, 
BINT(((long)8258))); 
exit( -1 );} 
BgL_arg1615z00_687 = BgL_res3699z00_1901; } }  else 
{ /* ./Llib/pregexp.scm 221 */
BgL_arg1615z00_687 = BgL_posixzd2classzd2_686; } 
BgL_arg1616z00_688 = 
(BgL_iz00_670+((long)2)); 
{ /* ./Llib/pregexp.scm 221 */
obj_t BgL_list1618z00_689;
{ /* ./Llib/pregexp.scm 221 */
obj_t BgL_arg1620z00_690;
{ /* ./Llib/pregexp.scm 221 */
obj_t BgL_auxz00_6260;
BgL_auxz00_6260 = 
BINT(BgL_arg1616z00_688); 
BgL_arg1620z00_690 = 
MAKE_PAIR(BgL_auxz00_6260, BNIL); } 
BgL_list1618z00_689 = 
MAKE_PAIR(BgL_arg1615z00_687, BgL_arg1620z00_690); } 
{ /* ./Llib/pregexp.scm 221 */
obj_t BgL_res3700z00_1905;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 221 */
BgL_res3700z00_1905 = BgL_list1618z00_689; }  else 
{ /* ./Llib/pregexp.scm 221 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10363z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1618z00_689, BGl_string10330z00zz__pregexpz00, 
BINT(((long)8243))); 
exit( -1 );} 
BgL_aux3822z00_3192 = BgL_res3700z00_1905; } } } } } }  else 
{ /* ./Llib/pregexp.scm 214 */
BgL_aux3822z00_3192 = 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol10363z00zz__pregexpz00, BNIL); } } } } } } } } 
POP_TRACE(); 
return BgL_aux3822z00_3192;} } } } 
}



/* 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 */
obj_t BgL_symbol3827z00_3193;
BgL_symbol3827z00_3193 = BGl_symbol10364z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 230 */

PUSH_TRACE(BgL_symbol3827z00_3193); BUNSPEC; 
{ /* ./Llib/pregexp.scm 230 */
obj_t BgL_aux3826z00_3194;
{ /* ./Llib/pregexp.scm 230 */
unsigned char BgL_cz00_702;
{ /* ./Llib/pregexp.scm 230 */
unsigned char BgL_res3701z00_1914;
{ /* ./Llib/pregexp.scm 230 */
int BgL_kz00_1907;
BgL_kz00_1907 = 
(int)(BgL_iz00_23); 
{ /* ./Llib/pregexp.scm 230 */
bool_t BgL_testz00_6272;
{ /* ./Llib/pregexp.scm 230 */
int BgL_auxz00_6273;
BgL_auxz00_6273 = 
STRING_LENGTH(BgL_sz00_22); 
BgL_testz00_6272 = 
BOUND_CHECK(BgL_kz00_1907, BgL_auxz00_6273); } 
if(BgL_testz00_6272)
{ /* ./Llib/pregexp.scm 230 */
BgL_res3701z00_1914 = 
STRING_REF(BgL_sz00_22, BgL_kz00_1907); }  else 
{ /* ./Llib/pregexp.scm 230 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1907), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 230 */
obj_t BgL_auxz00_6279;
{ /* ./Llib/pregexp.scm 230 */
obj_t BgL_aux5311z00_3691;
BgL_aux5311z00_3691 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)8574))); 
if(
CHARP(BgL_aux5311z00_3691))
{ /* ./Llib/pregexp.scm 230 */
BgL_auxz00_6279 = BgL_aux5311z00_3691
; }  else 
{ /* ./Llib/pregexp.scm 230 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10364z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux5311z00_3691, BGl_string10330z00zz__pregexpz00, 
BINT(((long)8574))); 
exit( -1 );} } 
BgL_res3701z00_1914 = 
(unsigned char)CCHAR(BgL_auxz00_6279); } } } } 
BgL_cz00_702 = BgL_res3701z00_1914; } 
{ 

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

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

{ /* ./Llib/pregexp.scm 234 */
unsigned char BgL_aux1021z00_708;
{ /* ./Llib/pregexp.scm 234 */
unsigned char BgL_res3702z00_1925;
{ /* ./Llib/pregexp.scm 234 */
int BgL_kz00_1918;
BgL_kz00_1918 = 
(int)(BgL_iz00_706); 
{ /* ./Llib/pregexp.scm 234 */
bool_t BgL_testz00_6290;
{ /* ./Llib/pregexp.scm 234 */
int BgL_auxz00_6291;
BgL_auxz00_6291 = 
STRING_LENGTH(BgL_sz00_22); 
BgL_testz00_6290 = 
BOUND_CHECK(BgL_kz00_1918, BgL_auxz00_6291); } 
if(BgL_testz00_6290)
{ /* ./Llib/pregexp.scm 234 */
BgL_res3702z00_1925 = 
STRING_REF(BgL_sz00_22, BgL_kz00_1918); }  else 
{ /* ./Llib/pregexp.scm 234 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1918), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 234 */
obj_t BgL_auxz00_6297;
{ /* ./Llib/pregexp.scm 234 */
obj_t BgL_aux5377z00_3699;
BgL_aux5377z00_3699 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)8667))); 
if(
CHARP(BgL_aux5377z00_3699))
{ /* ./Llib/pregexp.scm 234 */
BgL_auxz00_6297 = BgL_aux5377z00_3699
; }  else 
{ /* ./Llib/pregexp.scm 234 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10364z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux5377z00_3699, BGl_string10330z00zz__pregexpz00, 
BINT(((long)8667))); 
exit( -1 );} } 
BgL_res3702z00_1925 = 
(unsigned char)CCHAR(BgL_auxz00_6297); } } } } 
BgL_aux1021z00_708 = BgL_res3702z00_1925; } 
switch( BgL_aux1021z00_708) { case ((unsigned char)':') : 

{ /* ./Llib/pregexp.scm 235 */
long BgL_arg1662z00_711;
BgL_arg1662z00_711 = 
(BgL_iz00_706+((long)1)); 
{ /* ./Llib/pregexp.scm 235 */
obj_t BgL_list1664z00_712;
{ /* ./Llib/pregexp.scm 235 */
obj_t BgL_arg1666z00_713;
{ /* ./Llib/pregexp.scm 235 */
obj_t BgL_auxz00_6307;
BgL_auxz00_6307 = 
BINT(BgL_arg1662z00_711); 
BgL_arg1666z00_713 = 
MAKE_PAIR(BgL_auxz00_6307, BNIL); } 
BgL_list1664z00_712 = 
MAKE_PAIR(BNIL, BgL_arg1666z00_713); } 
{ /* ./Llib/pregexp.scm 235 */
obj_t BgL_res3703z00_1929;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 235 */
BgL_res3703z00_1929 = BgL_list1664z00_712; }  else 
{ /* ./Llib/pregexp.scm 235 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10364z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1664z00_712, BGl_string10330z00zz__pregexpz00, 
BINT(((long)8704))); 
exit( -1 );} 
BgL_aux3826z00_3194 = BgL_res3703z00_1929; } } } break;case ((unsigned char)'=') : 

{ /* ./Llib/pregexp.scm 236 */
obj_t BgL_arg1671z00_714;long BgL_arg1672z00_715;
BgL_arg1671z00_714 = BGl_list10369z00zz__pregexpz00; 
BgL_arg1672z00_715 = 
(BgL_iz00_706+((long)1)); 
{ /* ./Llib/pregexp.scm 236 */
obj_t BgL_list1674z00_716;
{ /* ./Llib/pregexp.scm 236 */
obj_t BgL_arg1676z00_717;
{ /* ./Llib/pregexp.scm 236 */
obj_t BgL_auxz00_6316;
BgL_auxz00_6316 = 
BINT(BgL_arg1672z00_715); 
BgL_arg1676z00_717 = 
MAKE_PAIR(BgL_auxz00_6316, BNIL); } 
BgL_list1674z00_716 = 
MAKE_PAIR(BgL_arg1671z00_714, BgL_arg1676z00_717); } 
{ /* ./Llib/pregexp.scm 236 */
obj_t BgL_res3704z00_1933;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 236 */
BgL_res3704z00_1933 = BgL_list1674z00_716; }  else 
{ /* ./Llib/pregexp.scm 236 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10364z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1674z00_716, BGl_string10330z00zz__pregexpz00, 
BINT(((long)8744))); 
exit( -1 );} 
BgL_aux3826z00_3194 = BgL_res3704z00_1933; } } } break;case ((unsigned char)'!') : 

{ /* ./Llib/pregexp.scm 237 */
obj_t BgL_arg1681z00_718;long BgL_arg1682z00_719;
BgL_arg1681z00_718 = BGl_list10371z00zz__pregexpz00; 
BgL_arg1682z00_719 = 
(BgL_iz00_706+((long)1)); 
{ /* ./Llib/pregexp.scm 237 */
obj_t BgL_list1684z00_720;
{ /* ./Llib/pregexp.scm 237 */
obj_t BgL_arg1686z00_721;
{ /* ./Llib/pregexp.scm 237 */
obj_t BgL_auxz00_6325;
BgL_auxz00_6325 = 
BINT(BgL_arg1682z00_719); 
BgL_arg1686z00_721 = 
MAKE_PAIR(BgL_auxz00_6325, BNIL); } 
BgL_list1684z00_720 = 
MAKE_PAIR(BgL_arg1681z00_718, BgL_arg1686z00_721); } 
{ /* ./Llib/pregexp.scm 237 */
obj_t BgL_res3705z00_1937;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 237 */
BgL_res3705z00_1937 = BgL_list1684z00_720; }  else 
{ /* ./Llib/pregexp.scm 237 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10364z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1684z00_720, BGl_string10330z00zz__pregexpz00, 
BINT(((long)8794))); 
exit( -1 );} 
BgL_aux3826z00_3194 = BgL_res3705z00_1937; } } } break;case ((unsigned char)'>') : 

{ /* ./Llib/pregexp.scm 238 */
obj_t BgL_arg1691z00_722;long BgL_arg1692z00_723;
BgL_arg1691z00_722 = BGl_list10373z00zz__pregexpz00; 
BgL_arg1692z00_723 = 
(BgL_iz00_706+((long)1)); 
{ /* ./Llib/pregexp.scm 238 */
obj_t BgL_list1694z00_724;
{ /* ./Llib/pregexp.scm 238 */
obj_t BgL_arg1696z00_725;
{ /* ./Llib/pregexp.scm 238 */
obj_t BgL_auxz00_6334;
BgL_auxz00_6334 = 
BINT(BgL_arg1692z00_723); 
BgL_arg1696z00_725 = 
MAKE_PAIR(BgL_auxz00_6334, BNIL); } 
BgL_list1694z00_724 = 
MAKE_PAIR(BgL_arg1691z00_722, BgL_arg1696z00_725); } 
{ /* ./Llib/pregexp.scm 238 */
obj_t BgL_res3706z00_1941;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 238 */
BgL_res3706z00_1941 = BgL_list1694z00_724; }  else 
{ /* ./Llib/pregexp.scm 238 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10364z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1694z00_724, BGl_string10330z00zz__pregexpz00, 
BINT(((long)8848))); 
exit( -1 );} 
BgL_aux3826z00_3194 = BgL_res3706z00_1941; } } } break;case ((unsigned char)'<') : 

{ /* ./Llib/pregexp.scm 240 */
obj_t BgL_arg1701z00_726;long BgL_arg1702z00_727;
{ 

{ /* ./Llib/pregexp.scm 240 */
unsigned char BgL_aux1023z00_731;
{ /* ./Llib/pregexp.scm 240 */
long BgL_arg1714z00_733;
BgL_arg1714z00_733 = 
(BgL_iz00_706+((long)1)); 
{ /* ./Llib/pregexp.scm 240 */
unsigned char BgL_res3707z00_1952;
{ /* ./Llib/pregexp.scm 240 */
int BgL_kz00_1945;
BgL_kz00_1945 = 
(int)(BgL_arg1714z00_733); 
{ /* ./Llib/pregexp.scm 240 */
bool_t BgL_testz00_6344;
{ /* ./Llib/pregexp.scm 240 */
int BgL_auxz00_6345;
BgL_auxz00_6345 = 
STRING_LENGTH(BgL_sz00_22); 
BgL_testz00_6344 = 
BOUND_CHECK(BgL_kz00_1945, BgL_auxz00_6345); } 
if(BgL_testz00_6344)
{ /* ./Llib/pregexp.scm 240 */
BgL_res3707z00_1952 = 
STRING_REF(BgL_sz00_22, BgL_kz00_1945); }  else 
{ /* ./Llib/pregexp.scm 240 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1945), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 240 */
obj_t BgL_auxz00_6351;
{ /* ./Llib/pregexp.scm 240 */
obj_t BgL_aux5443z00_3709;
BgL_aux5443z00_3709 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)8927))); 
if(
CHARP(BgL_aux5443z00_3709))
{ /* ./Llib/pregexp.scm 240 */
BgL_auxz00_6351 = BgL_aux5443z00_3709
; }  else 
{ /* ./Llib/pregexp.scm 240 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10364z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux5443z00_3709, BGl_string10330z00zz__pregexpz00, 
BINT(((long)8927))); 
exit( -1 );} } 
BgL_res3707z00_1952 = 
(unsigned char)CCHAR(BgL_auxz00_6351); } } } } 
BgL_aux1023z00_731 = BgL_res3707z00_1952; } } 
switch( BgL_aux1023z00_731) { case ((unsigned char)'=') : 

BgL_arg1701z00_726 = BGl_list10375z00zz__pregexpz00; break;case ((unsigned char)'!') : 

BgL_arg1701z00_726 = BGl_list10377z00zz__pregexpz00; break;
default: 
{ /* ./Llib/pregexp.scm 243 */
obj_t BgL_list1718z00_734;
{ /* ./Llib/pregexp.scm 243 */
obj_t BgL_auxz00_6360;
BgL_auxz00_6360 = 
BCHAR(((unsigned char)'<')); 
BgL_list1718z00_734 = 
MAKE_PAIR(BgL_auxz00_6360, BNIL); } 
BgL_arg1701z00_726 = 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol10364z00zz__pregexpz00, BgL_list1718z00_734); } } } } 
BgL_arg1702z00_727 = 
(BgL_iz00_706+((long)2)); 
{ /* ./Llib/pregexp.scm 240 */
obj_t BgL_list1704z00_728;
{ /* ./Llib/pregexp.scm 240 */
obj_t BgL_arg1706z00_729;
{ /* ./Llib/pregexp.scm 240 */
obj_t BgL_auxz00_6366;
BgL_auxz00_6366 = 
BINT(BgL_arg1702z00_727); 
BgL_arg1706z00_729 = 
MAKE_PAIR(BgL_auxz00_6366, BNIL); } 
BgL_list1704z00_728 = 
MAKE_PAIR(BgL_arg1701z00_726, BgL_arg1706z00_729); } 
{ /* ./Llib/pregexp.scm 240 */
obj_t BgL_res3708z00_1956;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 240 */
BgL_res3708z00_1956 = BgL_list1704z00_728; }  else 
{ /* ./Llib/pregexp.scm 240 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10364z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1704z00_728, BGl_string10330z00zz__pregexpz00, 
BINT(((long)8915))); 
exit( -1 );} 
BgL_aux3826z00_3194 = BgL_res3708z00_1956; } } } break;
default: 
{ 
long BgL_iz00_735;obj_t BgL_rz00_736;bool_t BgL_invzf3zf3_737;
BgL_iz00_735 = BgL_iz00_706; 
BgL_rz00_736 = BNIL; 
BgL_invzf3zf3_737 = ((bool_t)0); 
BgL_loopz00_738:
{ /* ./Llib/pregexp.scm 246 */
unsigned char BgL_cz00_739;
{ /* ./Llib/pregexp.scm 246 */
unsigned char BgL_res3709z00_1965;
{ /* ./Llib/pregexp.scm 246 */
int BgL_kz00_1958;
BgL_kz00_1958 = 
(int)(BgL_iz00_735); 
{ /* ./Llib/pregexp.scm 246 */
bool_t BgL_testz00_6375;
{ /* ./Llib/pregexp.scm 246 */
int BgL_auxz00_6376;
BgL_auxz00_6376 = 
STRING_LENGTH(BgL_sz00_22); 
BgL_testz00_6375 = 
BOUND_CHECK(BgL_kz00_1958, BgL_auxz00_6376); } 
if(BgL_testz00_6375)
{ /* ./Llib/pregexp.scm 246 */
BgL_res3709z00_1965 = 
STRING_REF(BgL_sz00_22, BgL_kz00_1958); }  else 
{ /* ./Llib/pregexp.scm 246 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1958), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 246 */
obj_t BgL_auxz00_6382;
{ /* ./Llib/pregexp.scm 246 */
obj_t BgL_aux5343z00_3695;
BgL_aux5343z00_3695 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)9232))); 
if(
CHARP(BgL_aux5343z00_3695))
{ /* ./Llib/pregexp.scm 246 */
BgL_auxz00_6382 = BgL_aux5343z00_3695
; }  else 
{ /* ./Llib/pregexp.scm 246 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10364z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux5343z00_3695, BGl_string10330z00zz__pregexpz00, 
BINT(((long)9232))); 
exit( -1 );} } 
BgL_res3709z00_1965 = 
(unsigned char)CCHAR(BgL_auxz00_6382); } } } } 
BgL_cz00_739 = BgL_res3709z00_1965; } 
{ 

switch( BgL_cz00_739) { case ((unsigned char)'-') : 

{ 
bool_t BgL_invzf3zf3_6393;long BgL_iz00_6391;
BgL_iz00_6391 = 
(BgL_iz00_735+((long)1)); 
BgL_invzf3zf3_6393 = ((bool_t)1); 
BgL_invzf3zf3_737 = BgL_invzf3zf3_6393; 
BgL_iz00_735 = BgL_iz00_6391; 
goto BgL_loopz00_738;} break;case ((unsigned char)'i') : 

{ /* ./Llib/pregexp.scm 249 */
long BgL_arg1732z00_744;obj_t BgL_arg1733z00_745;
BgL_arg1732z00_744 = 
(BgL_iz00_735+((long)1)); 
{ /* ./Llib/pregexp.scm 250 */
obj_t BgL_arg1737z00_746;
if(BgL_invzf3zf3_737)
{ /* ./Llib/pregexp.scm 250 */
BgL_arg1737z00_746 = BGl_keyword10367z00zz__pregexpz00; }  else 
{ /* ./Llib/pregexp.scm 250 */
BgL_arg1737z00_746 = BGl_keyword10368z00zz__pregexpz00; } 
BgL_arg1733z00_745 = 
MAKE_PAIR(BgL_arg1737z00_746, BgL_rz00_736); } 
{ 
bool_t BgL_invzf3zf3_6399;obj_t BgL_rz00_6398;long BgL_iz00_6397;
BgL_iz00_6397 = BgL_arg1732z00_744; 
BgL_rz00_6398 = BgL_arg1733z00_745; 
BgL_invzf3zf3_6399 = ((bool_t)0); 
BgL_invzf3zf3_737 = BgL_invzf3zf3_6399; 
BgL_rz00_736 = BgL_rz00_6398; 
BgL_iz00_735 = BgL_iz00_6397; 
goto BgL_loopz00_738;} } break;case ((unsigned char)'x') : 

BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00 = 
BBOOL(BgL_invzf3zf3_737); 
{ 
bool_t BgL_invzf3zf3_6403;long BgL_iz00_6401;
BgL_iz00_6401 = 
(BgL_iz00_735+((long)1)); 
BgL_invzf3zf3_6403 = ((bool_t)0); 
BgL_invzf3zf3_737 = BgL_invzf3zf3_6403; 
BgL_iz00_735 = BgL_iz00_6401; 
goto BgL_loopz00_738;} break;case ((unsigned char)':') : 

{ /* ./Llib/pregexp.scm 255 */
long BgL_arg1744z00_748;
BgL_arg1744z00_748 = 
(BgL_iz00_735+((long)1)); 
{ /* ./Llib/pregexp.scm 255 */
obj_t BgL_list1746z00_749;
{ /* ./Llib/pregexp.scm 255 */
obj_t BgL_arg1748z00_750;
{ /* ./Llib/pregexp.scm 255 */
obj_t BgL_auxz00_6405;
BgL_auxz00_6405 = 
BINT(BgL_arg1744z00_748); 
BgL_arg1748z00_750 = 
MAKE_PAIR(BgL_auxz00_6405, BNIL); } 
BgL_list1746z00_749 = 
MAKE_PAIR(BgL_rz00_736, BgL_arg1748z00_750); } 
{ /* ./Llib/pregexp.scm 255 */
obj_t BgL_res3710z00_1975;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 255 */
BgL_res3710z00_1975 = BgL_list1746z00_749; }  else 
{ /* ./Llib/pregexp.scm 255 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10364z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1746z00_749, BGl_string10330z00zz__pregexpz00, 
BINT(((long)9695))); 
exit( -1 );} 
BgL_aux3826z00_3194 = BgL_res3710z00_1975; } } } break;
default: 
{ /* ./Llib/pregexp.scm 256 */
obj_t BgL_list1756z00_751;
{ /* ./Llib/pregexp.scm 256 */
obj_t BgL_auxz00_6413;
BgL_auxz00_6413 = 
BCHAR(BgL_cz00_739); 
BgL_list1756z00_751 = 
MAKE_PAIR(BgL_auxz00_6413, BNIL); } 
BgL_aux3826z00_3194 = 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol10364z00zz__pregexpz00, BgL_list1756z00_751); } } } } } } } } } break;
default: 
{ /* ./Llib/pregexp.scm 257 */
obj_t BgL_list1764z00_752;
{ /* ./Llib/pregexp.scm 257 */
obj_t BgL_arg1766z00_753;obj_t BgL_arg1767z00_754;
BgL_arg1766z00_753 = BGl_list10365z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 257 */
obj_t BgL_auxz00_6419;
BgL_auxz00_6419 = 
BINT(BgL_iz00_23); 
BgL_arg1767z00_754 = 
MAKE_PAIR(BgL_auxz00_6419, BNIL); } 
BgL_list1764z00_752 = 
MAKE_PAIR(BgL_arg1766z00_753, BgL_arg1767z00_754); } 
{ /* ./Llib/pregexp.scm 257 */
obj_t BgL_res3711z00_1977;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 257 */
BgL_res3711z00_1977 = BgL_list1764z00_752; }  else 
{ /* ./Llib/pregexp.scm 257 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10364z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1764z00_752, BGl_string10330z00zz__pregexpz00, 
BINT(((long)9811))); 
exit( -1 );} 
BgL_aux3826z00_3194 = BgL_res3711z00_1977; } } } } } 
POP_TRACE(); 
return BgL_aux3826z00_3194;} } } } 
}



/* 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 */
obj_t BgL_symbol3831z00_3195;
BgL_symbol3831z00_3195 = BGl_symbol10379z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 261 */

PUSH_TRACE(BgL_symbol3831z00_3195); BUNSPEC; 
{ /* ./Llib/pregexp.scm 261 */
obj_t BgL_aux3830z00_3196;
{ /* ./Llib/pregexp.scm 261 */
bool_t BgL_rememberzd2spacezd2sensitivezf3zf3_755;
BgL_rememberzd2spacezd2sensitivezf3zf3_755 = 
CBOOL(BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00); 
{ /* ./Llib/pregexp.scm 261 */
obj_t BgL_ctypzd2izd2_756;
BgL_ctypzd2izd2_756 = 
BGl_pregexpzd2readzd2clusterzd2typezd2zz__pregexpz00(BgL_sz00_25, BgL_iz00_26, BgL_nz00_27); 
{ /* ./Llib/pregexp.scm 262 */
obj_t BgL_ctypz00_757;
{ /* ./Llib/pregexp.scm 263 */
obj_t BgL_pairz00_1978;
if(
PAIRP(BgL_ctypzd2izd2_756))
{ /* ./Llib/pregexp.scm 263 */
BgL_pairz00_1978 = BgL_ctypzd2izd2_756; }  else 
{ /* ./Llib/pregexp.scm 263 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10379z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_ctypzd2izd2_756, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10032))); 
exit( -1 );} 
BgL_ctypz00_757 = 
CAR(BgL_pairz00_1978); } 
{ /* ./Llib/pregexp.scm 263 */
obj_t BgL_iz00_758;
{ /* ./Llib/pregexp.scm 264 */
obj_t BgL_pairz00_1979;
if(
PAIRP(BgL_ctypzd2izd2_756))
{ /* ./Llib/pregexp.scm 264 */
BgL_pairz00_1979 = BgL_ctypzd2izd2_756; }  else 
{ /* ./Llib/pregexp.scm 264 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10379z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_ctypzd2izd2_756, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10061))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 264 */
obj_t BgL_arg3354z00_1980;
BgL_arg3354z00_1980 = 
CDR(BgL_pairz00_1979); 
{ /* ./Llib/pregexp.scm 264 */
obj_t BgL_pairz00_1982;
if(
PAIRP(BgL_arg3354z00_1980))
{ /* ./Llib/pregexp.scm 264 */
BgL_pairz00_1982 = BgL_arg3354z00_1980; }  else 
{ /* ./Llib/pregexp.scm 264 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10379z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_1980, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10050))); 
exit( -1 );} 
BgL_iz00_758 = 
CAR(BgL_pairz00_1982); } } } 
{ /* ./Llib/pregexp.scm 264 */
obj_t BgL_vvz00_759;
BgL_vvz00_759 = 
BGl_pregexpzd2readzd2patternz00zz__pregexpz00(BgL_sz00_25, BgL_iz00_758, BgL_nz00_27); 
{ /* ./Llib/pregexp.scm 265 */

BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00 = 
BBOOL(BgL_rememberzd2spacezd2sensitivezf3zf3_755); 
{ /* ./Llib/pregexp.scm 267 */
obj_t BgL_vvzd2rezd2_760;obj_t BgL_vvzd2izd2_761;
{ /* ./Llib/pregexp.scm 267 */
obj_t BgL_pairz00_1983;
if(
PAIRP(BgL_vvz00_759))
{ /* ./Llib/pregexp.scm 267 */
BgL_pairz00_1983 = BgL_vvz00_759; }  else 
{ /* ./Llib/pregexp.scm 267 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10379z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_vvz00_759, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10202))); 
exit( -1 );} 
BgL_vvzd2rezd2_760 = 
CAR(BgL_pairz00_1983); } 
{ /* ./Llib/pregexp.scm 268 */
obj_t BgL_pairz00_1984;
if(
PAIRP(BgL_vvz00_759))
{ /* ./Llib/pregexp.scm 268 */
BgL_pairz00_1984 = BgL_vvz00_759; }  else 
{ /* ./Llib/pregexp.scm 268 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10379z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_vvz00_759, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10231))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 268 */
obj_t BgL_arg3354z00_1985;
BgL_arg3354z00_1985 = 
CDR(BgL_pairz00_1984); 
{ /* ./Llib/pregexp.scm 268 */
obj_t BgL_pairz00_1987;
if(
PAIRP(BgL_arg3354z00_1985))
{ /* ./Llib/pregexp.scm 268 */
BgL_pairz00_1987 = BgL_arg3354z00_1985; }  else 
{ /* ./Llib/pregexp.scm 268 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10379z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_1985, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10224))); 
exit( -1 );} 
BgL_vvzd2izd2_761 = 
CAR(BgL_pairz00_1987); } } } 
{ /* ./Llib/pregexp.scm 269 */
bool_t BgL_test1771z00_762;
{ /* ./Llib/pregexp.scm 269 */
bool_t BgL_test1802z00_777;
{ /* ./Llib/pregexp.scm 269 */
long BgL_n1z00_1988;long BgL_n2z00_1989;
{ /* ./Llib/pregexp.scm 269 */
obj_t BgL_auxz00_6470;
if(
INTEGERP(BgL_vvzd2izd2_761))
{ /* ./Llib/pregexp.scm 269 */
BgL_auxz00_6470 = BgL_vvzd2izd2_761
; }  else 
{ /* ./Llib/pregexp.scm 269 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10379z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_vvzd2izd2_761, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10259))); 
exit( -1 );} 
BgL_n1z00_1988 = 
(long)CINT(BgL_auxz00_6470); } 
BgL_n2z00_1989 = 
(long)(BgL_nz00_27); 
BgL_test1802z00_777 = 
(BgL_n1z00_1988<BgL_n2z00_1989); } 
if(BgL_test1802z00_777)
{ /* ./Llib/pregexp.scm 270 */
unsigned char BgL_arg1804z00_778;
{ /* ./Llib/pregexp.scm 270 */
unsigned char BgL_res3712z00_1998;
{ /* ./Llib/pregexp.scm 270 */
int BgL_kz00_1991;
{ /* ./Llib/pregexp.scm 270 */
obj_t BgL_auxz00_6480;
if(
INTEGERP(BgL_vvzd2izd2_761))
{ /* ./Llib/pregexp.scm 270 */
BgL_auxz00_6480 = BgL_vvzd2izd2_761
; }  else 
{ /* ./Llib/pregexp.scm 270 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10379z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_vvzd2izd2_761, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10289))); 
exit( -1 );} 
BgL_kz00_1991 = 
CINT(BgL_auxz00_6480); } 
{ /* ./Llib/pregexp.scm 270 */
bool_t BgL_testz00_6487;
{ /* ./Llib/pregexp.scm 270 */
int BgL_auxz00_6488;
BgL_auxz00_6488 = 
STRING_LENGTH(BgL_sz00_25); 
BgL_testz00_6487 = 
BOUND_CHECK(BgL_kz00_1991, BgL_auxz00_6488); } 
if(BgL_testz00_6487)
{ /* ./Llib/pregexp.scm 270 */
BgL_res3712z00_1998 = 
STRING_REF(BgL_sz00_25, BgL_kz00_1991); }  else 
{ /* ./Llib/pregexp.scm 270 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_1991), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 270 */
obj_t BgL_auxz00_6494;
{ /* ./Llib/pregexp.scm 270 */
obj_t BgL_aux5559z00_3729;
BgL_aux5559z00_3729 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10289))); 
if(
CHARP(BgL_aux5559z00_3729))
{ /* ./Llib/pregexp.scm 270 */
BgL_auxz00_6494 = BgL_aux5559z00_3729
; }  else 
{ /* ./Llib/pregexp.scm 270 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10379z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux5559z00_3729, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10289))); 
exit( -1 );} } 
BgL_res3712z00_1998 = 
(unsigned char)CCHAR(BgL_auxz00_6494); } } } } 
BgL_arg1804z00_778 = BgL_res3712z00_1998; } 
BgL_test1771z00_762 = 
(BgL_arg1804z00_778==((unsigned char)')')); }  else 
{ /* ./Llib/pregexp.scm 269 */
BgL_test1771z00_762 = ((bool_t)0); } } 
if(BgL_test1771z00_762)
{ /* ./Llib/pregexp.scm 273 */
obj_t BgL_arg1773z00_763;long BgL_arg1775z00_764;
{ 
obj_t BgL_ctypz00_767;obj_t BgL_rez00_768;
BgL_ctypz00_767 = BgL_ctypz00_757; 
BgL_rez00_768 = BgL_vvzd2rezd2_760; 
BgL_loopz00_769:
if(
NULLP(BgL_ctypz00_767))
{ /* ./Llib/pregexp.scm 274 */
BgL_arg1773z00_763 = BgL_rez00_768; }  else 
{ /* ./Llib/pregexp.scm 275 */
obj_t BgL_arg1785z00_771;obj_t BgL_arg1786z00_772;
{ /* ./Llib/pregexp.scm 275 */
obj_t BgL_pairz00_2002;
if(
PAIRP(BgL_ctypz00_767))
{ /* ./Llib/pregexp.scm 275 */
BgL_pairz00_2002 = BgL_ctypz00_767; }  else 
{ /* ./Llib/pregexp.scm 275 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10379z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_ctypz00_767, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10472))); 
exit( -1 );} 
BgL_arg1785z00_771 = 
CDR(BgL_pairz00_2002); } 
{ /* ./Llib/pregexp.scm 276 */
obj_t BgL_arg1790z00_773;
{ /* ./Llib/pregexp.scm 276 */
obj_t BgL_pairz00_2003;
if(
PAIRP(BgL_ctypz00_767))
{ /* ./Llib/pregexp.scm 276 */
BgL_pairz00_2003 = BgL_ctypz00_767; }  else 
{ /* ./Llib/pregexp.scm 276 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10379z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_ctypz00_767, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10511))); 
exit( -1 );} 
BgL_arg1790z00_773 = 
CAR(BgL_pairz00_2003); } 
{ /* ./Llib/pregexp.scm 276 */
obj_t BgL_list1792z00_774;
{ /* ./Llib/pregexp.scm 276 */
obj_t BgL_arg1794z00_775;
BgL_arg1794z00_775 = 
MAKE_PAIR(BgL_rez00_768, BNIL); 
BgL_list1792z00_774 = 
MAKE_PAIR(BgL_arg1790z00_773, BgL_arg1794z00_775); } 
{ /* ./Llib/pregexp.scm 276 */
obj_t BgL_res3713z00_2005;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 276 */
BgL_res3713z00_2005 = BgL_list1792z00_774; }  else 
{ /* ./Llib/pregexp.scm 276 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10379z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1792z00_774, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10497))); 
exit( -1 );} 
BgL_arg1786z00_772 = BgL_res3713z00_2005; } } } 
{ 
obj_t BgL_rez00_6526;obj_t BgL_ctypz00_6525;
BgL_ctypz00_6525 = BgL_arg1785z00_771; 
BgL_rez00_6526 = BgL_arg1786z00_772; 
BgL_rez00_768 = BgL_rez00_6526; 
BgL_ctypz00_767 = BgL_ctypz00_6525; 
goto BgL_loopz00_769;} } } 
{ /* ./Llib/pregexp.scm 277 */
long BgL_za71za7_2006;
{ /* ./Llib/pregexp.scm 277 */
obj_t BgL_auxz00_6527;
if(
INTEGERP(BgL_vvzd2izd2_761))
{ /* ./Llib/pregexp.scm 277 */
BgL_auxz00_6527 = BgL_vvzd2izd2_761
; }  else 
{ /* ./Llib/pregexp.scm 277 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10379z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_vvzd2izd2_761, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10535))); 
exit( -1 );} 
BgL_za71za7_2006 = 
(long)CINT(BgL_auxz00_6527); } 
BgL_arg1775z00_764 = 
(BgL_za71za7_2006+((long)1)); } 
{ /* ./Llib/pregexp.scm 272 */
obj_t BgL_list1777z00_765;
{ /* ./Llib/pregexp.scm 272 */
obj_t BgL_arg1779z00_766;
{ /* ./Llib/pregexp.scm 272 */
obj_t BgL_auxz00_6535;
BgL_auxz00_6535 = 
BINT(BgL_arg1775z00_764); 
BgL_arg1779z00_766 = 
MAKE_PAIR(BgL_auxz00_6535, BNIL); } 
BgL_list1777z00_765 = 
MAKE_PAIR(BgL_arg1773z00_763, BgL_arg1779z00_766); } 
{ /* ./Llib/pregexp.scm 272 */
obj_t BgL_res3714z00_2009;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 272 */
BgL_res3714z00_2009 = BgL_list1777z00_765; }  else 
{ /* ./Llib/pregexp.scm 272 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10379z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1777z00_765, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10347))); 
exit( -1 );} 
BgL_aux3830z00_3196 = BgL_res3714z00_2009; } } }  else 
{ /* ./Llib/pregexp.scm 269 */
BgL_aux3830z00_3196 = 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol10379z00zz__pregexpz00, BNIL); } } } } } } } } } 
POP_TRACE(); 
return BgL_aux3830z00_3196;} } } } 
}



/* 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_symbol3835z00_3197;
BgL_symbol3835z00_3197 = BGl_symbol10380z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 282 */

PUSH_TRACE(BgL_symbol3835z00_3197); BUNSPEC; 
{ /* ./Llib/pregexp.scm 282 */
obj_t BgL_aux3834z00_3198;
{ /* ./Llib/pregexp.scm 282 */
obj_t BgL_rez00_779;
{ /* ./Llib/pregexp.scm 282 */
obj_t BgL_pairz00_2010;
if(
PAIRP(BgL_vvz00_28))
{ /* ./Llib/pregexp.scm 282 */
BgL_pairz00_2010 = BgL_vvz00_28; }  else 
{ /* ./Llib/pregexp.scm 282 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_vvz00_28, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10684))); 
exit( -1 );} 
BgL_rez00_779 = 
CAR(BgL_pairz00_2010); } 
{ 
obj_t BgL_iz00_780;
{ /* ./Llib/pregexp.scm 283 */
obj_t BgL_arg1815z00_782;
{ /* ./Llib/pregexp.scm 283 */
obj_t BgL_pairz00_2011;
if(
PAIRP(BgL_vvz00_28))
{ /* ./Llib/pregexp.scm 283 */
BgL_pairz00_2011 = BgL_vvz00_28; }  else 
{ /* ./Llib/pregexp.scm 283 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_vvz00_28, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10716))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 283 */
obj_t BgL_arg3354z00_2012;
BgL_arg3354z00_2012 = 
CDR(BgL_pairz00_2011); 
{ /* ./Llib/pregexp.scm 283 */
obj_t BgL_pairz00_2014;
if(
PAIRP(BgL_arg3354z00_2012))
{ /* ./Llib/pregexp.scm 283 */
BgL_pairz00_2014 = BgL_arg3354z00_2012; }  else 
{ /* ./Llib/pregexp.scm 283 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2012, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10709))); 
exit( -1 );} 
BgL_arg1815z00_782 = 
CAR(BgL_pairz00_2014); } } } 
BgL_iz00_780 = BgL_arg1815z00_782; 
BgL_loopz00_781:
{ /* ./Llib/pregexp.scm 284 */
bool_t BgL_test1818z00_783;
{ /* ./Llib/pregexp.scm 284 */
long BgL_n1z00_2015;long BgL_n2z00_2016;
{ /* ./Llib/pregexp.scm 284 */
obj_t BgL_auxz00_6564;
{ /* ./Llib/pregexp.scm 284 */
obj_t BgL_aux5632z00_3743;
BgL_aux5632z00_3743 = BgL_iz00_780; 
if(
INTEGERP(BgL_aux5632z00_3743))
{ /* ./Llib/pregexp.scm 284 */
BgL_auxz00_6564 = BgL_aux5632z00_3743
; }  else 
{ /* ./Llib/pregexp.scm 284 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_aux5632z00_3743, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10737))); 
exit( -1 );} } 
BgL_n1z00_2015 = 
(long)CINT(BgL_auxz00_6564); } 
BgL_n2z00_2016 = 
(long)(BgL_nz00_30); 
BgL_test1818z00_783 = 
(BgL_n1z00_2015>=BgL_n2z00_2016); } 
if(BgL_test1818z00_783)
{ /* ./Llib/pregexp.scm 284 */
BgL_aux3834z00_3198 = BgL_vvz00_28; }  else 
{ /* ./Llib/pregexp.scm 285 */
unsigned char BgL_cz00_784;
{ /* ./Llib/pregexp.scm 285 */
unsigned char BgL_res3715z00_2025;
{ /* ./Llib/pregexp.scm 285 */
int BgL_kz00_2018;
{ /* ./Llib/pregexp.scm 285 */
obj_t BgL_auxz00_6574;
{ /* ./Llib/pregexp.scm 285 */
obj_t BgL_aux5644z00_3745;
BgL_aux5644z00_3745 = BgL_iz00_780; 
if(
INTEGERP(BgL_aux5644z00_3745))
{ /* ./Llib/pregexp.scm 285 */
BgL_auxz00_6574 = BgL_aux5644z00_3745
; }  else 
{ /* ./Llib/pregexp.scm 285 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_aux5644z00_3745, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10766))); 
exit( -1 );} } 
BgL_kz00_2018 = 
CINT(BgL_auxz00_6574); } 
{ /* ./Llib/pregexp.scm 285 */
bool_t BgL_testz00_6581;
{ /* ./Llib/pregexp.scm 285 */
int BgL_auxz00_6582;
BgL_auxz00_6582 = 
STRING_LENGTH(BgL_sz00_29); 
BgL_testz00_6581 = 
BOUND_CHECK(BgL_kz00_2018, BgL_auxz00_6582); } 
if(BgL_testz00_6581)
{ /* ./Llib/pregexp.scm 285 */
BgL_res3715z00_2025 = 
STRING_REF(BgL_sz00_29, BgL_kz00_2018); }  else 
{ /* ./Llib/pregexp.scm 285 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2018), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 285 */
obj_t BgL_auxz00_6588;
{ /* ./Llib/pregexp.scm 285 */
obj_t BgL_aux5663z00_3747;
BgL_aux5663z00_3747 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10766))); 
if(
CHARP(BgL_aux5663z00_3747))
{ /* ./Llib/pregexp.scm 285 */
BgL_auxz00_6588 = BgL_aux5663z00_3747
; }  else 
{ /* ./Llib/pregexp.scm 285 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux5663z00_3747, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10766))); 
exit( -1 );} } 
BgL_res3715z00_2025 = 
(unsigned char)CCHAR(BgL_auxz00_6588); } } } } 
BgL_cz00_784 = BgL_res3715z00_2025; } 
{ /* ./Llib/pregexp.scm 286 */
bool_t BgL_test1819z00_785;
{ /* ./Llib/pregexp.scm 286 */
bool_t BgL_test1955z00_839;
{ /* ./Llib/pregexp.scm 286 */
bool_t BgL_res3716z00_2027;
BgL_res3716z00_2027 = 
isspace(BgL_cz00_784); 
BgL_test1955z00_839 = BgL_res3716z00_2027; } 
if(BgL_test1955z00_839)
{ /* ./Llib/pregexp.scm 286 */
if(
CBOOL(BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00))
{ /* ./Llib/pregexp.scm 286 */
BgL_test1819z00_785 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 286 */
BgL_test1819z00_785 = ((bool_t)1); } }  else 
{ /* ./Llib/pregexp.scm 286 */
BgL_test1819z00_785 = ((bool_t)0); } } 
if(BgL_test1819z00_785)
{ /* ./Llib/pregexp.scm 287 */
long BgL_arg1821z00_786;
{ /* ./Llib/pregexp.scm 287 */
long BgL_za71za7_2028;
{ /* ./Llib/pregexp.scm 287 */
obj_t BgL_auxz00_6602;
{ /* ./Llib/pregexp.scm 287 */
obj_t BgL_aux5675z00_3749;
BgL_aux5675z00_3749 = BgL_iz00_780; 
if(
INTEGERP(BgL_aux5675z00_3749))
{ /* ./Llib/pregexp.scm 287 */
BgL_auxz00_6602 = BgL_aux5675z00_3749
; }  else 
{ /* ./Llib/pregexp.scm 287 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_aux5675z00_3749, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10887))); 
exit( -1 );} } 
BgL_za71za7_2028 = 
(long)CINT(BgL_auxz00_6602); } 
BgL_arg1821z00_786 = 
(BgL_za71za7_2028+((long)1)); } 
{ 
obj_t BgL_iz00_6610;
BgL_iz00_6610 = 
BINT(BgL_arg1821z00_786); 
BgL_iz00_780 = BgL_iz00_6610; 
goto BgL_loopz00_781;} }  else 
{ /* ./Llib/pregexp.scm 286 */
switch( BgL_cz00_784) { case ((unsigned char)'*') : 
case ((unsigned char)'+') : 
case ((unsigned char)'?') : 
case ((unsigned char)'{') : 

{ /* ./Llib/pregexp.scm 290 */
obj_t BgL_newzd2rezd2_790;
{ /* ./Llib/pregexp.scm 290 */
obj_t BgL_list1932z00_830;
{ /* ./Llib/pregexp.scm 290 */
obj_t BgL_arg1934z00_831;obj_t BgL_arg1935z00_832;
BgL_arg1934z00_831 = BGl_keyword10381z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 290 */
obj_t BgL_arg1938z00_833;obj_t BgL_arg1939z00_834;
BgL_arg1938z00_833 = BGl_symbol10382z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 291 */
obj_t BgL_arg1943z00_835;obj_t BgL_arg1945z00_836;
BgL_arg1943z00_835 = BGl_symbol10383z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 291 */
obj_t BgL_arg1948z00_837;obj_t BgL_arg1949z00_838;
BgL_arg1948z00_837 = BGl_symbol10384z00zz__pregexpz00; 
BgL_arg1949z00_838 = 
MAKE_PAIR(BgL_rez00_779, BNIL); 
BgL_arg1945z00_836 = 
MAKE_PAIR(BgL_arg1948z00_837, BgL_arg1949z00_838); } 
BgL_arg1939z00_834 = 
MAKE_PAIR(BgL_arg1943z00_835, BgL_arg1945z00_836); } 
BgL_arg1935z00_832 = 
MAKE_PAIR(BgL_arg1938z00_833, BgL_arg1939z00_834); } 
BgL_list1932z00_830 = 
MAKE_PAIR(BgL_arg1934z00_831, BgL_arg1935z00_832); } 
{ /* ./Llib/pregexp.scm 290 */
obj_t BgL_res3717z00_2031;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 290 */
BgL_res3717z00_2031 = BgL_list1932z00_830; }  else 
{ /* ./Llib/pregexp.scm 290 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1932z00_830, BGl_string10330z00zz__pregexpz00, 
BINT(((long)10997))); 
exit( -1 );} 
BgL_newzd2rezd2_790 = BgL_res3717z00_2031; } } 
{ /* ./Llib/pregexp.scm 290 */
obj_t BgL_newzd2vvzd2_791;
{ /* ./Llib/pregexp.scm 292 */
obj_t BgL_list1924z00_828;
{ /* ./Llib/pregexp.scm 292 */
obj_t BgL_arg1928z00_829;
BgL_arg1928z00_829 = 
MAKE_PAIR(BGl_symbol10385z00zz__pregexpz00, BNIL); 
BgL_list1924z00_828 = 
MAKE_PAIR(BgL_newzd2rezd2_790, BgL_arg1928z00_829); } 
{ /* ./Llib/pregexp.scm 292 */
obj_t BgL_res3718z00_2033;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 292 */
BgL_res3718z00_2033 = BgL_list1924z00_828; }  else 
{ /* ./Llib/pregexp.scm 292 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1924z00_828, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11121))); 
exit( -1 );} 
BgL_newzd2vvzd2_791 = BgL_res3718z00_2033; } } 
{ /* ./Llib/pregexp.scm 292 */

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

{ /* ./Llib/pregexp.scm 294 */
obj_t BgL_arg1827z00_795;
{ /* ./Llib/pregexp.scm 294 */
obj_t BgL_pairz00_2034;
if(
PAIRP(BgL_newzd2rezd2_790))
{ /* ./Llib/pregexp.scm 294 */
BgL_pairz00_2034 = BgL_newzd2rezd2_790; }  else 
{ /* ./Llib/pregexp.scm 294 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_newzd2rezd2_790, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11229))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 294 */
obj_t BgL_arg3345z00_2035;
BgL_arg3345z00_2035 = 
CDR(BgL_pairz00_2034); 
{ /* ./Llib/pregexp.scm 294 */
obj_t BgL_pairz00_2037;
if(
PAIRP(BgL_arg3345z00_2035))
{ /* ./Llib/pregexp.scm 294 */
BgL_pairz00_2037 = BgL_arg3345z00_2035; }  else 
{ /* ./Llib/pregexp.scm 294 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3345z00_2035, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11218))); 
exit( -1 );} 
BgL_arg1827z00_795 = 
CDR(BgL_pairz00_2037); } } } 
{ /* ./Llib/pregexp.scm 294 */
obj_t BgL_pairz00_2038;obj_t BgL_objz00_2039;
if(
PAIRP(BgL_arg1827z00_795))
{ /* ./Llib/pregexp.scm 294 */
BgL_pairz00_2038 = BgL_arg1827z00_795; }  else 
{ /* ./Llib/pregexp.scm 294 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg1827z00_795, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11230))); 
exit( -1 );} 
BgL_objz00_2039 = 
BINT(((long)0)); 
SET_CAR(BgL_pairz00_2038, BgL_objz00_2039); } } 
{ /* ./Llib/pregexp.scm 295 */
obj_t BgL_arg1833z00_797;
{ /* ./Llib/pregexp.scm 295 */
obj_t BgL_pairz00_2040;
if(
PAIRP(BgL_newzd2rezd2_790))
{ /* ./Llib/pregexp.scm 295 */
BgL_pairz00_2040 = BgL_newzd2rezd2_790; }  else 
{ /* ./Llib/pregexp.scm 295 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_newzd2rezd2_790, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11283))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 295 */
obj_t BgL_arg3289z00_2041;
{ /* ./Llib/pregexp.scm 295 */
obj_t BgL_arg3292z00_2042;
BgL_arg3292z00_2042 = 
CDR(BgL_pairz00_2040); 
{ /* ./Llib/pregexp.scm 295 */
obj_t BgL_pairz00_2044;
if(
PAIRP(BgL_arg3292z00_2042))
{ /* ./Llib/pregexp.scm 295 */
BgL_pairz00_2044 = BgL_arg3292z00_2042; }  else 
{ /* ./Llib/pregexp.scm 295 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3292z00_2042, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11271))); 
exit( -1 );} 
BgL_arg3289z00_2041 = 
CDR(BgL_pairz00_2044); } } 
{ /* ./Llib/pregexp.scm 295 */
obj_t BgL_pairz00_2045;
if(
PAIRP(BgL_arg3289z00_2041))
{ /* ./Llib/pregexp.scm 295 */
BgL_pairz00_2045 = BgL_arg3289z00_2041; }  else 
{ /* ./Llib/pregexp.scm 295 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3289z00_2041, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11271))); 
exit( -1 );} 
BgL_arg1833z00_797 = 
CDR(BgL_pairz00_2045); } } } 
{ /* ./Llib/pregexp.scm 295 */
obj_t BgL_pairz00_2046;
if(
PAIRP(BgL_arg1833z00_797))
{ /* ./Llib/pregexp.scm 295 */
BgL_pairz00_2046 = BgL_arg1833z00_797; }  else 
{ /* ./Llib/pregexp.scm 295 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg1833z00_797, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11284))); 
exit( -1 );} 
SET_CAR(BgL_pairz00_2046, BFALSE); } } break;case ((unsigned char)'+') : 

{ /* ./Llib/pregexp.scm 296 */
obj_t BgL_arg1837z00_798;
{ /* ./Llib/pregexp.scm 296 */
obj_t BgL_pairz00_2048;
if(
PAIRP(BgL_newzd2rezd2_790))
{ /* ./Llib/pregexp.scm 296 */
BgL_pairz00_2048 = BgL_newzd2rezd2_790; }  else 
{ /* ./Llib/pregexp.scm 296 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_newzd2rezd2_790, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11344))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 296 */
obj_t BgL_arg3345z00_2049;
BgL_arg3345z00_2049 = 
CDR(BgL_pairz00_2048); 
{ /* ./Llib/pregexp.scm 296 */
obj_t BgL_pairz00_2051;
if(
PAIRP(BgL_arg3345z00_2049))
{ /* ./Llib/pregexp.scm 296 */
BgL_pairz00_2051 = BgL_arg3345z00_2049; }  else 
{ /* ./Llib/pregexp.scm 296 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3345z00_2049, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11333))); 
exit( -1 );} 
BgL_arg1837z00_798 = 
CDR(BgL_pairz00_2051); } } } 
{ /* ./Llib/pregexp.scm 296 */
obj_t BgL_pairz00_2052;obj_t BgL_objz00_2053;
if(
PAIRP(BgL_arg1837z00_798))
{ /* ./Llib/pregexp.scm 296 */
BgL_pairz00_2052 = BgL_arg1837z00_798; }  else 
{ /* ./Llib/pregexp.scm 296 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg1837z00_798, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11345))); 
exit( -1 );} 
BgL_objz00_2053 = 
BINT(((long)1)); 
SET_CAR(BgL_pairz00_2052, BgL_objz00_2053); } } 
{ /* ./Llib/pregexp.scm 297 */
obj_t BgL_arg1842z00_800;
{ /* ./Llib/pregexp.scm 297 */
obj_t BgL_pairz00_2054;
if(
PAIRP(BgL_newzd2rezd2_790))
{ /* ./Llib/pregexp.scm 297 */
BgL_pairz00_2054 = BgL_newzd2rezd2_790; }  else 
{ /* ./Llib/pregexp.scm 297 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_newzd2rezd2_790, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11398))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 297 */
obj_t BgL_arg3289z00_2055;
{ /* ./Llib/pregexp.scm 297 */
obj_t BgL_arg3292z00_2056;
BgL_arg3292z00_2056 = 
CDR(BgL_pairz00_2054); 
{ /* ./Llib/pregexp.scm 297 */
obj_t BgL_pairz00_2058;
if(
PAIRP(BgL_arg3292z00_2056))
{ /* ./Llib/pregexp.scm 297 */
BgL_pairz00_2058 = BgL_arg3292z00_2056; }  else 
{ /* ./Llib/pregexp.scm 297 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3292z00_2056, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11386))); 
exit( -1 );} 
BgL_arg3289z00_2055 = 
CDR(BgL_pairz00_2058); } } 
{ /* ./Llib/pregexp.scm 297 */
obj_t BgL_pairz00_2059;
if(
PAIRP(BgL_arg3289z00_2055))
{ /* ./Llib/pregexp.scm 297 */
BgL_pairz00_2059 = BgL_arg3289z00_2055; }  else 
{ /* ./Llib/pregexp.scm 297 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3289z00_2055, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11386))); 
exit( -1 );} 
BgL_arg1842z00_800 = 
CDR(BgL_pairz00_2059); } } } 
{ /* ./Llib/pregexp.scm 297 */
obj_t BgL_pairz00_2060;
if(
PAIRP(BgL_arg1842z00_800))
{ /* ./Llib/pregexp.scm 297 */
BgL_pairz00_2060 = BgL_arg1842z00_800; }  else 
{ /* ./Llib/pregexp.scm 297 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg1842z00_800, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11399))); 
exit( -1 );} 
SET_CAR(BgL_pairz00_2060, BFALSE); } } break;case ((unsigned char)'?') : 

{ /* ./Llib/pregexp.scm 298 */
obj_t BgL_arg1846z00_801;
{ /* ./Llib/pregexp.scm 298 */
obj_t BgL_pairz00_2062;
if(
PAIRP(BgL_newzd2rezd2_790))
{ /* ./Llib/pregexp.scm 298 */
BgL_pairz00_2062 = BgL_newzd2rezd2_790; }  else 
{ /* ./Llib/pregexp.scm 298 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_newzd2rezd2_790, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11459))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 298 */
obj_t BgL_arg3345z00_2063;
BgL_arg3345z00_2063 = 
CDR(BgL_pairz00_2062); 
{ /* ./Llib/pregexp.scm 298 */
obj_t BgL_pairz00_2065;
if(
PAIRP(BgL_arg3345z00_2063))
{ /* ./Llib/pregexp.scm 298 */
BgL_pairz00_2065 = BgL_arg3345z00_2063; }  else 
{ /* ./Llib/pregexp.scm 298 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3345z00_2063, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11448))); 
exit( -1 );} 
BgL_arg1846z00_801 = 
CDR(BgL_pairz00_2065); } } } 
{ /* ./Llib/pregexp.scm 298 */
obj_t BgL_pairz00_2066;obj_t BgL_objz00_2067;
if(
PAIRP(BgL_arg1846z00_801))
{ /* ./Llib/pregexp.scm 298 */
BgL_pairz00_2066 = BgL_arg1846z00_801; }  else 
{ /* ./Llib/pregexp.scm 298 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg1846z00_801, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11460))); 
exit( -1 );} 
BgL_objz00_2067 = 
BINT(((long)0)); 
SET_CAR(BgL_pairz00_2066, BgL_objz00_2067); } } 
{ /* ./Llib/pregexp.scm 299 */
obj_t BgL_arg1851z00_803;
{ /* ./Llib/pregexp.scm 299 */
obj_t BgL_pairz00_2068;
if(
PAIRP(BgL_newzd2rezd2_790))
{ /* ./Llib/pregexp.scm 299 */
BgL_pairz00_2068 = BgL_newzd2rezd2_790; }  else 
{ /* ./Llib/pregexp.scm 299 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_newzd2rezd2_790, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11513))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 299 */
obj_t BgL_arg3289z00_2069;
{ /* ./Llib/pregexp.scm 299 */
obj_t BgL_arg3292z00_2070;
BgL_arg3292z00_2070 = 
CDR(BgL_pairz00_2068); 
{ /* ./Llib/pregexp.scm 299 */
obj_t BgL_pairz00_2072;
if(
PAIRP(BgL_arg3292z00_2070))
{ /* ./Llib/pregexp.scm 299 */
BgL_pairz00_2072 = BgL_arg3292z00_2070; }  else 
{ /* ./Llib/pregexp.scm 299 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3292z00_2070, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11501))); 
exit( -1 );} 
BgL_arg3289z00_2069 = 
CDR(BgL_pairz00_2072); } } 
{ /* ./Llib/pregexp.scm 299 */
obj_t BgL_pairz00_2073;
if(
PAIRP(BgL_arg3289z00_2069))
{ /* ./Llib/pregexp.scm 299 */
BgL_pairz00_2073 = BgL_arg3289z00_2069; }  else 
{ /* ./Llib/pregexp.scm 299 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3289z00_2069, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11501))); 
exit( -1 );} 
BgL_arg1851z00_803 = 
CDR(BgL_pairz00_2073); } } } 
{ /* ./Llib/pregexp.scm 299 */
obj_t BgL_pairz00_2074;obj_t BgL_objz00_2075;
if(
PAIRP(BgL_arg1851z00_803))
{ /* ./Llib/pregexp.scm 299 */
BgL_pairz00_2074 = BgL_arg1851z00_803; }  else 
{ /* ./Llib/pregexp.scm 299 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg1851z00_803, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11514))); 
exit( -1 );} 
BgL_objz00_2075 = 
BINT(((long)1)); 
SET_CAR(BgL_pairz00_2074, BgL_objz00_2075); } } break;case ((unsigned char)'{') : 

{ /* ./Llib/pregexp.scm 300 */
obj_t BgL_pqz00_805;
{ /* ./Llib/pregexp.scm 300 */
long BgL_arg1873z00_811;
{ /* ./Llib/pregexp.scm 300 */
long BgL_za71za7_2076;
{ /* ./Llib/pregexp.scm 300 */
obj_t BgL_auxz00_6757;
{ /* ./Llib/pregexp.scm 300 */
obj_t BgL_aux5925z00_3797;
BgL_aux5925z00_3797 = BgL_iz00_780; 
if(
INTEGERP(BgL_aux5925z00_3797))
{ /* ./Llib/pregexp.scm 300 */
BgL_auxz00_6757 = BgL_aux5925z00_3797
; }  else 
{ /* ./Llib/pregexp.scm 300 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_aux5925z00_3797, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11583))); 
exit( -1 );} } 
BgL_za71za7_2076 = 
(long)CINT(BgL_auxz00_6757); } 
BgL_arg1873z00_811 = 
(BgL_za71za7_2076+((long)1)); } 
BgL_pqz00_805 = 
BGl_pregexpzd2readzd2numsz00zz__pregexpz00(BgL_sz00_29, BgL_arg1873z00_811, BgL_nz00_30); } 
if(
CBOOL(BgL_pqz00_805))
{ /* ./Llib/pregexp.scm 301 */BFALSE; }  else 
{ /* ./Llib/pregexp.scm 302 */
obj_t BgL_list1856z00_806;
BgL_list1856z00_806 = 
MAKE_PAIR(BGl_string10386z00zz__pregexpz00, BNIL); 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol10380z00zz__pregexpz00, BgL_list1856z00_806); } 
{ /* ./Llib/pregexp.scm 305 */
obj_t BgL_arg1859z00_807;obj_t BgL_arg1861z00_808;
{ /* ./Llib/pregexp.scm 305 */
obj_t BgL_pairz00_2078;
if(
PAIRP(BgL_newzd2rezd2_790))
{ /* ./Llib/pregexp.scm 305 */
BgL_pairz00_2078 = BgL_newzd2rezd2_790; }  else 
{ /* ./Llib/pregexp.scm 305 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_newzd2rezd2_790, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11908))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 305 */
obj_t BgL_arg3345z00_2079;
BgL_arg3345z00_2079 = 
CDR(BgL_pairz00_2078); 
{ /* ./Llib/pregexp.scm 305 */
obj_t BgL_pairz00_2081;
if(
PAIRP(BgL_arg3345z00_2079))
{ /* ./Llib/pregexp.scm 305 */
BgL_pairz00_2081 = BgL_arg3345z00_2079; }  else 
{ /* ./Llib/pregexp.scm 305 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3345z00_2079, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11897))); 
exit( -1 );} 
BgL_arg1859z00_807 = 
CDR(BgL_pairz00_2081); } } } 
{ /* ./Llib/pregexp.scm 305 */
obj_t BgL_pairz00_2082;
if(
PAIRP(BgL_pqz00_805))
{ /* ./Llib/pregexp.scm 305 */
BgL_pairz00_2082 = BgL_pqz00_805; }  else 
{ /* ./Llib/pregexp.scm 305 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_pqz00_805, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11917))); 
exit( -1 );} 
BgL_arg1861z00_808 = 
CAR(BgL_pairz00_2082); } 
{ /* ./Llib/pregexp.scm 305 */
obj_t BgL_pairz00_2083;
if(
PAIRP(BgL_arg1859z00_807))
{ /* ./Llib/pregexp.scm 305 */
BgL_pairz00_2083 = BgL_arg1859z00_807; }  else 
{ /* ./Llib/pregexp.scm 305 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg1859z00_807, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11909))); 
exit( -1 );} 
SET_CAR(BgL_pairz00_2083, BgL_arg1861z00_808); } } 
{ /* ./Llib/pregexp.scm 306 */
obj_t BgL_arg1866z00_809;obj_t BgL_arg1867z00_810;
{ /* ./Llib/pregexp.scm 306 */
obj_t BgL_pairz00_2085;
if(
PAIRP(BgL_newzd2rezd2_790))
{ /* ./Llib/pregexp.scm 306 */
BgL_pairz00_2085 = BgL_newzd2rezd2_790; }  else 
{ /* ./Llib/pregexp.scm 306 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_newzd2rezd2_790, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11977))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 306 */
obj_t BgL_arg3289z00_2086;
{ /* ./Llib/pregexp.scm 306 */
obj_t BgL_arg3292z00_2087;
BgL_arg3292z00_2087 = 
CDR(BgL_pairz00_2085); 
{ /* ./Llib/pregexp.scm 306 */
obj_t BgL_pairz00_2089;
if(
PAIRP(BgL_arg3292z00_2087))
{ /* ./Llib/pregexp.scm 306 */
BgL_pairz00_2089 = BgL_arg3292z00_2087; }  else 
{ /* ./Llib/pregexp.scm 306 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3292z00_2087, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11965))); 
exit( -1 );} 
BgL_arg3289z00_2086 = 
CDR(BgL_pairz00_2089); } } 
{ /* ./Llib/pregexp.scm 306 */
obj_t BgL_pairz00_2090;
if(
PAIRP(BgL_arg3289z00_2086))
{ /* ./Llib/pregexp.scm 306 */
BgL_pairz00_2090 = BgL_arg3289z00_2086; }  else 
{ /* ./Llib/pregexp.scm 306 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3289z00_2086, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11965))); 
exit( -1 );} 
BgL_arg1866z00_809 = 
CDR(BgL_pairz00_2090); } } } 
{ /* ./Llib/pregexp.scm 306 */
obj_t BgL_pairz00_2091;
if(
PAIRP(BgL_pqz00_805))
{ /* ./Llib/pregexp.scm 306 */
BgL_pairz00_2091 = BgL_pqz00_805; }  else 
{ /* ./Llib/pregexp.scm 306 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_pqz00_805, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11987))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 306 */
obj_t BgL_arg3354z00_2092;
BgL_arg3354z00_2092 = 
CDR(BgL_pairz00_2091); 
{ /* ./Llib/pregexp.scm 306 */
obj_t BgL_pairz00_2094;
if(
PAIRP(BgL_arg3354z00_2092))
{ /* ./Llib/pregexp.scm 306 */
BgL_pairz00_2094 = BgL_arg3354z00_2092; }  else 
{ /* ./Llib/pregexp.scm 306 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2092, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11980))); 
exit( -1 );} 
BgL_arg1867z00_810 = 
CAR(BgL_pairz00_2094); } } } 
{ /* ./Llib/pregexp.scm 306 */
obj_t BgL_pairz00_2095;
if(
PAIRP(BgL_arg1866z00_809))
{ /* ./Llib/pregexp.scm 306 */
BgL_pairz00_2095 = BgL_arg1866z00_809; }  else 
{ /* ./Llib/pregexp.scm 306 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg1866z00_809, BGl_string10330z00zz__pregexpz00, 
BINT(((long)11978))); 
exit( -1 );} 
SET_CAR(BgL_pairz00_2095, BgL_arg1867z00_810); } } 
{ /* ./Llib/pregexp.scm 307 */
obj_t BgL_pairz00_2097;
if(
PAIRP(BgL_pqz00_805))
{ /* ./Llib/pregexp.scm 307 */
BgL_pairz00_2097 = BgL_pqz00_805; }  else 
{ /* ./Llib/pregexp.scm 307 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_pqz00_805, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12041))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 307 */
obj_t BgL_arg3317z00_2098;
{ /* ./Llib/pregexp.scm 307 */
obj_t BgL_arg3320z00_2099;
BgL_arg3320z00_2099 = 
CDR(BgL_pairz00_2097); 
{ /* ./Llib/pregexp.scm 307 */
obj_t BgL_pairz00_2101;
if(
PAIRP(BgL_arg3320z00_2099))
{ /* ./Llib/pregexp.scm 307 */
BgL_pairz00_2101 = BgL_arg3320z00_2099; }  else 
{ /* ./Llib/pregexp.scm 307 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3320z00_2099, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12033))); 
exit( -1 );} 
BgL_arg3317z00_2098 = 
CDR(BgL_pairz00_2101); } } 
{ /* ./Llib/pregexp.scm 307 */
obj_t BgL_pairz00_2102;
if(
PAIRP(BgL_arg3317z00_2098))
{ /* ./Llib/pregexp.scm 307 */
BgL_pairz00_2102 = BgL_arg3317z00_2098; }  else 
{ /* ./Llib/pregexp.scm 307 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3317z00_2098, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12033))); 
exit( -1 );} 
BgL_iz00_780 = 
CAR(BgL_pairz00_2102); } } } } break;
default: BUNSPEC; } 
{ 
long BgL_iz00_812;
{ /* ./Llib/pregexp.scm 308 */
long BgL_arg1879z00_814;
{ /* ./Llib/pregexp.scm 308 */
long BgL_za71za7_2103;
{ /* ./Llib/pregexp.scm 308 */
obj_t BgL_auxz00_6849;
{ /* ./Llib/pregexp.scm 308 */
obj_t BgL_aux6217z00_3851;
BgL_aux6217z00_3851 = BgL_iz00_780; 
if(
INTEGERP(BgL_aux6217z00_3851))
{ /* ./Llib/pregexp.scm 308 */
BgL_auxz00_6849 = BgL_aux6217z00_3851
; }  else 
{ /* ./Llib/pregexp.scm 308 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_aux6217z00_3851, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12085))); 
exit( -1 );} } 
BgL_za71za7_2103 = 
(long)CINT(BgL_auxz00_6849); } 
BgL_arg1879z00_814 = 
(BgL_za71za7_2103+((long)1)); } 
BgL_iz00_812 = BgL_arg1879z00_814; 
BgL_loopz00_813:
{ /* ./Llib/pregexp.scm 309 */
bool_t BgL_testz00_6857;
{ /* ./Llib/pregexp.scm 309 */
long BgL_auxz00_6858;
BgL_auxz00_6858 = 
(long)(BgL_nz00_30); 
BgL_testz00_6857 = 
(BgL_iz00_812>=BgL_auxz00_6858); } 
if(BgL_testz00_6857)
{ /* ./Llib/pregexp.scm 309 */
{ /* ./Llib/pregexp.scm 310 */
obj_t BgL_arg1884z00_816;
{ /* ./Llib/pregexp.scm 310 */
obj_t BgL_pairz00_2107;
if(
PAIRP(BgL_newzd2rezd2_790))
{ /* ./Llib/pregexp.scm 310 */
BgL_pairz00_2107 = BgL_newzd2rezd2_790; }  else 
{ /* ./Llib/pregexp.scm 310 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_newzd2rezd2_790, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12189))); 
exit( -1 );} 
BgL_arg1884z00_816 = 
CDR(BgL_pairz00_2107); } 
{ /* ./Llib/pregexp.scm 310 */
obj_t BgL_pairz00_2108;
if(
PAIRP(BgL_arg1884z00_816))
{ /* ./Llib/pregexp.scm 310 */
BgL_pairz00_2108 = BgL_arg1884z00_816; }  else 
{ /* ./Llib/pregexp.scm 310 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg1884z00_816, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12190))); 
exit( -1 );} 
SET_CAR(BgL_pairz00_2108, BFALSE); } } 
{ /* ./Llib/pregexp.scm 311 */
obj_t BgL_arg1888z00_817;
{ /* ./Llib/pregexp.scm 311 */
obj_t BgL_pairz00_2110;
if(
PAIRP(BgL_newzd2vvzd2_791))
{ /* ./Llib/pregexp.scm 311 */
BgL_pairz00_2110 = BgL_newzd2vvzd2_791; }  else 
{ /* ./Llib/pregexp.scm 311 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_newzd2vvzd2_791, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12247))); 
exit( -1 );} 
BgL_arg1888z00_817 = 
CDR(BgL_pairz00_2110); } 
{ /* ./Llib/pregexp.scm 311 */
obj_t BgL_pairz00_2111;obj_t BgL_objz00_2112;
if(
PAIRP(BgL_arg1888z00_817))
{ /* ./Llib/pregexp.scm 311 */
BgL_pairz00_2111 = BgL_arg1888z00_817; }  else 
{ /* ./Llib/pregexp.scm 311 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg1888z00_817, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12248))); 
exit( -1 );} 
BgL_objz00_2112 = 
BINT(BgL_iz00_812); 
SET_CAR(BgL_pairz00_2111, BgL_objz00_2112); } } }  else 
{ /* ./Llib/pregexp.scm 312 */
unsigned char BgL_cz00_818;
{ /* ./Llib/pregexp.scm 312 */
unsigned char BgL_res3719z00_2121;
{ /* ./Llib/pregexp.scm 312 */
int BgL_kz00_2114;
BgL_kz00_2114 = 
(int)(BgL_iz00_812); 
{ /* ./Llib/pregexp.scm 312 */
bool_t BgL_testz00_6887;
{ /* ./Llib/pregexp.scm 312 */
int BgL_auxz00_6888;
BgL_auxz00_6888 = 
STRING_LENGTH(BgL_sz00_29); 
BgL_testz00_6887 = 
BOUND_CHECK(BgL_kz00_2114, BgL_auxz00_6888); } 
if(BgL_testz00_6887)
{ /* ./Llib/pregexp.scm 312 */
BgL_res3719z00_2121 = 
STRING_REF(BgL_sz00_29, BgL_kz00_2114); }  else 
{ /* ./Llib/pregexp.scm 312 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2114), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 312 */
obj_t BgL_auxz00_6894;
{ /* ./Llib/pregexp.scm 312 */
obj_t BgL_aux6121z00_3833;
BgL_aux6121z00_3833 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12292))); 
if(
CHARP(BgL_aux6121z00_3833))
{ /* ./Llib/pregexp.scm 312 */
BgL_auxz00_6894 = BgL_aux6121z00_3833
; }  else 
{ /* ./Llib/pregexp.scm 312 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux6121z00_3833, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12292))); 
exit( -1 );} } 
BgL_res3719z00_2121 = 
(unsigned char)CCHAR(BgL_auxz00_6894); } } } } 
BgL_cz00_818 = BgL_res3719z00_2121; } 
{ /* ./Llib/pregexp.scm 313 */
bool_t BgL_test1891z00_819;
{ /* ./Llib/pregexp.scm 313 */
bool_t BgL_test1919z00_827;
{ /* ./Llib/pregexp.scm 313 */
bool_t BgL_res3720z00_2123;
BgL_res3720z00_2123 = 
isspace(BgL_cz00_818); 
BgL_test1919z00_827 = BgL_res3720z00_2123; } 
if(BgL_test1919z00_827)
{ /* ./Llib/pregexp.scm 313 */
if(
CBOOL(BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00))
{ /* ./Llib/pregexp.scm 314 */
BgL_test1891z00_819 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 314 */
BgL_test1891z00_819 = ((bool_t)1); } }  else 
{ /* ./Llib/pregexp.scm 313 */
BgL_test1891z00_819 = ((bool_t)0); } } 
if(BgL_test1891z00_819)
{ /* ./Llib/pregexp.scm 313 */
{ 
long BgL_iz00_6908;
BgL_iz00_6908 = 
(BgL_iz00_812+((long)1)); 
BgL_iz00_812 = BgL_iz00_6908; 
goto BgL_loopz00_813;} }  else 
{ /* ./Llib/pregexp.scm 313 */
if(
(BgL_cz00_818==((unsigned char)'?')))
{ /* ./Llib/pregexp.scm 316 */
{ /* ./Llib/pregexp.scm 317 */
obj_t BgL_arg1898z00_822;
{ /* ./Llib/pregexp.scm 317 */
obj_t BgL_pairz00_2128;
if(
PAIRP(BgL_newzd2rezd2_790))
{ /* ./Llib/pregexp.scm 317 */
BgL_pairz00_2128 = BgL_newzd2rezd2_790; }  else 
{ /* ./Llib/pregexp.scm 317 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_newzd2rezd2_790, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12617))); 
exit( -1 );} 
BgL_arg1898z00_822 = 
CDR(BgL_pairz00_2128); } 
{ /* ./Llib/pregexp.scm 317 */
obj_t BgL_pairz00_2129;
if(
PAIRP(BgL_arg1898z00_822))
{ /* ./Llib/pregexp.scm 317 */
BgL_pairz00_2129 = BgL_arg1898z00_822; }  else 
{ /* ./Llib/pregexp.scm 317 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg1898z00_822, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12618))); 
exit( -1 );} 
SET_CAR(BgL_pairz00_2129, BTRUE); } } 
{ /* ./Llib/pregexp.scm 318 */
obj_t BgL_arg1902z00_823;long BgL_arg1904z00_824;
{ /* ./Llib/pregexp.scm 318 */
obj_t BgL_pairz00_2131;
if(
PAIRP(BgL_newzd2vvzd2_791))
{ /* ./Llib/pregexp.scm 318 */
BgL_pairz00_2131 = BgL_newzd2vvzd2_791; }  else 
{ /* ./Llib/pregexp.scm 318 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_newzd2vvzd2_791, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12682))); 
exit( -1 );} 
BgL_arg1902z00_823 = 
CDR(BgL_pairz00_2131); } 
BgL_arg1904z00_824 = 
(BgL_iz00_812+((long)1)); 
{ /* ./Llib/pregexp.scm 318 */
obj_t BgL_pairz00_2134;obj_t BgL_objz00_2135;
if(
PAIRP(BgL_arg1902z00_823))
{ /* ./Llib/pregexp.scm 318 */
BgL_pairz00_2134 = BgL_arg1902z00_823; }  else 
{ /* ./Llib/pregexp.scm 318 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg1902z00_823, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12683))); 
exit( -1 );} 
BgL_objz00_2135 = 
BINT(BgL_arg1904z00_824); 
SET_CAR(BgL_pairz00_2134, BgL_objz00_2135); } } }  else 
{ /* ./Llib/pregexp.scm 316 */
{ /* ./Llib/pregexp.scm 319 */
obj_t BgL_arg1910z00_825;
{ /* ./Llib/pregexp.scm 319 */
obj_t BgL_pairz00_2136;
if(
PAIRP(BgL_newzd2rezd2_790))
{ /* ./Llib/pregexp.scm 319 */
BgL_pairz00_2136 = BgL_newzd2rezd2_790; }  else 
{ /* ./Llib/pregexp.scm 319 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_newzd2rezd2_790, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12758))); 
exit( -1 );} 
BgL_arg1910z00_825 = 
CDR(BgL_pairz00_2136); } 
{ /* ./Llib/pregexp.scm 319 */
obj_t BgL_pairz00_2137;
if(
PAIRP(BgL_arg1910z00_825))
{ /* ./Llib/pregexp.scm 319 */
BgL_pairz00_2137 = BgL_arg1910z00_825; }  else 
{ /* ./Llib/pregexp.scm 319 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg1910z00_825, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12759))); 
exit( -1 );} 
SET_CAR(BgL_pairz00_2137, BFALSE); } } 
{ /* ./Llib/pregexp.scm 320 */
obj_t BgL_arg1915z00_826;
{ /* ./Llib/pregexp.scm 320 */
obj_t BgL_pairz00_2139;
if(
PAIRP(BgL_newzd2vvzd2_791))
{ /* ./Llib/pregexp.scm 320 */
BgL_pairz00_2139 = BgL_newzd2vvzd2_791; }  else 
{ /* ./Llib/pregexp.scm 320 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_newzd2vvzd2_791, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12824))); 
exit( -1 );} 
BgL_arg1915z00_826 = 
CDR(BgL_pairz00_2139); } 
{ /* ./Llib/pregexp.scm 320 */
obj_t BgL_pairz00_2140;obj_t BgL_objz00_2141;
if(
PAIRP(BgL_arg1915z00_826))
{ /* ./Llib/pregexp.scm 320 */
BgL_pairz00_2140 = BgL_arg1915z00_826; }  else 
{ /* ./Llib/pregexp.scm 320 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10380z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg1915z00_826, BGl_string10330z00zz__pregexpz00, 
BINT(((long)12825))); 
exit( -1 );} 
BgL_objz00_2141 = 
BINT(BgL_iz00_812); 
SET_CAR(BgL_pairz00_2140, BgL_objz00_2141); } } } } } } } } } 
BgL_aux3834z00_3198 = BgL_newzd2vvzd2_791; } } } break;
default: 
BgL_aux3834z00_3198 = BgL_vvz00_28; } } } } } } } } 
POP_TRACE(); 
return BgL_aux3834z00_3198;} } } } 
}



/* 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 */
{ /* ./Llib/pregexp.scm 330 */
obj_t BgL_symbol3839z00_3199;
BgL_symbol3839z00_3199 = BGl_symbol10387z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 330 */

PUSH_TRACE(BgL_symbol3839z00_3199); BUNSPEC; 
{ /* ./Llib/pregexp.scm 330 */
obj_t BgL_aux3838z00_3200;
{ 
obj_t BgL_pz00_840;obj_t BgL_qz00_841;long BgL_kz00_842;long BgL_readingz00_843;
BgL_pz00_840 = BNIL; 
BgL_qz00_841 = BNIL; 
BgL_kz00_842 = BgL_iz00_32; 
BgL_readingz00_843 = ((long)1); 
BgL_loopz00_844:
{ /* ./Llib/pregexp.scm 331 */
bool_t BgL_testz00_6966;
{ /* ./Llib/pregexp.scm 331 */
long BgL_auxz00_6967;
BgL_auxz00_6967 = 
(long)(BgL_nz00_33); 
BgL_testz00_6966 = 
(BgL_kz00_842>=BgL_auxz00_6967); } 
if(BgL_testz00_6966)
{ /* ./Llib/pregexp.scm 331 */
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol10387z00zz__pregexpz00, BNIL); }  else 
{ /* ./Llib/pregexp.scm 331 */BFALSE; } } 
{ /* ./Llib/pregexp.scm 332 */
unsigned char BgL_cz00_847;
{ /* ./Llib/pregexp.scm 332 */
unsigned char BgL_res3721z00_2152;
{ /* ./Llib/pregexp.scm 332 */
int BgL_kz00_2145;
BgL_kz00_2145 = 
(int)(BgL_kz00_842); 
{ /* ./Llib/pregexp.scm 332 */
bool_t BgL_testz00_6972;
{ /* ./Llib/pregexp.scm 332 */
int BgL_auxz00_6973;
BgL_auxz00_6973 = 
STRING_LENGTH(BgL_sz00_31); 
BgL_testz00_6972 = 
BOUND_CHECK(BgL_kz00_2145, BgL_auxz00_6973); } 
if(BgL_testz00_6972)
{ /* ./Llib/pregexp.scm 332 */
BgL_res3721z00_2152 = 
STRING_REF(BgL_sz00_31, BgL_kz00_2145); }  else 
{ /* ./Llib/pregexp.scm 332 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2145), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 332 */
obj_t BgL_auxz00_6979;
{ /* ./Llib/pregexp.scm 332 */
obj_t BgL_aux6259z00_3857;
BgL_aux6259z00_3857 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)13127))); 
if(
CHARP(BgL_aux6259z00_3857))
{ /* ./Llib/pregexp.scm 332 */
BgL_auxz00_6979 = BgL_aux6259z00_3857
; }  else 
{ /* ./Llib/pregexp.scm 332 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10387z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux6259z00_3857, BGl_string10330z00zz__pregexpz00, 
BINT(((long)13127))); 
exit( -1 );} } 
BgL_res3721z00_2152 = 
(unsigned char)CCHAR(BgL_auxz00_6979); } } } } 
BgL_cz00_847 = BgL_res3721z00_2152; } 
{ /* ./Llib/pregexp.scm 333 */
bool_t BgL_test1965z00_848;
{ /* ./Llib/pregexp.scm 333 */
bool_t BgL_res3722z00_2154;
BgL_res3722z00_2154 = 
isdigit(BgL_cz00_847); 
BgL_test1965z00_848 = BgL_res3722z00_2154; } 
if(BgL_test1965z00_848)
{ /* ./Llib/pregexp.scm 333 */
if(
(BgL_readingz00_843==((long)1)))
{ /* ./Llib/pregexp.scm 335 */
obj_t BgL_arg1968z00_850;long BgL_arg1969z00_851;
{ /* ./Llib/pregexp.scm 335 */
obj_t BgL_auxz00_6992;
BgL_auxz00_6992 = 
BCHAR(BgL_cz00_847); 
BgL_arg1968z00_850 = 
MAKE_PAIR(BgL_auxz00_6992, BgL_pz00_840); } 
BgL_arg1969z00_851 = 
(BgL_kz00_842+((long)1)); 
{ 
long BgL_readingz00_6998;long BgL_kz00_6997;obj_t BgL_pz00_6996;
BgL_pz00_6996 = BgL_arg1968z00_850; 
BgL_kz00_6997 = BgL_arg1969z00_851; 
BgL_readingz00_6998 = ((long)1); 
BgL_readingz00_843 = BgL_readingz00_6998; 
BgL_kz00_842 = BgL_kz00_6997; 
BgL_pz00_840 = BgL_pz00_6996; 
goto BgL_loopz00_844;} }  else 
{ /* ./Llib/pregexp.scm 336 */
obj_t BgL_arg1975z00_853;long BgL_arg1976z00_854;
{ /* ./Llib/pregexp.scm 336 */
obj_t BgL_auxz00_6999;
BgL_auxz00_6999 = 
BCHAR(BgL_cz00_847); 
BgL_arg1975z00_853 = 
MAKE_PAIR(BgL_auxz00_6999, BgL_qz00_841); } 
BgL_arg1976z00_854 = 
(BgL_kz00_842+((long)1)); 
{ 
long BgL_readingz00_7005;long BgL_kz00_7004;obj_t BgL_qz00_7003;
BgL_qz00_7003 = BgL_arg1975z00_853; 
BgL_kz00_7004 = BgL_arg1976z00_854; 
BgL_readingz00_7005 = ((long)2); 
BgL_readingz00_843 = BgL_readingz00_7005; 
BgL_kz00_842 = BgL_kz00_7004; 
BgL_qz00_841 = BgL_qz00_7003; 
goto BgL_loopz00_844;} } }  else 
{ /* ./Llib/pregexp.scm 337 */
bool_t BgL_test1982z00_856;
{ /* ./Llib/pregexp.scm 337 */
bool_t BgL_test2050z00_883;
{ /* ./Llib/pregexp.scm 337 */
bool_t BgL_res3723z00_2162;
BgL_res3723z00_2162 = 
isspace(BgL_cz00_847); 
BgL_test2050z00_883 = BgL_res3723z00_2162; } 
if(BgL_test2050z00_883)
{ /* ./Llib/pregexp.scm 337 */
if(
CBOOL(BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00))
{ /* ./Llib/pregexp.scm 337 */
BgL_test1982z00_856 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 337 */
BgL_test1982z00_856 = ((bool_t)1); } }  else 
{ /* ./Llib/pregexp.scm 337 */
BgL_test1982z00_856 = ((bool_t)0); } } 
if(BgL_test1982z00_856)
{ /* ./Llib/pregexp.scm 337 */
{ 
long BgL_kz00_7011;
BgL_kz00_7011 = 
(BgL_kz00_842+((long)1)); 
BgL_kz00_842 = BgL_kz00_7011; 
goto BgL_loopz00_844;} }  else 
{ /* ./Llib/pregexp.scm 339 */
bool_t BgL_test1987z00_858;
if(
(BgL_cz00_847==((unsigned char)',')))
{ /* ./Llib/pregexp.scm 339 */
BgL_test1987z00_858 = 
(BgL_readingz00_843==((long)1)); }  else 
{ /* ./Llib/pregexp.scm 339 */
BgL_test1987z00_858 = ((bool_t)0); } 
if(BgL_test1987z00_858)
{ /* ./Llib/pregexp.scm 339 */
{ 
long BgL_readingz00_7019;long BgL_kz00_7017;
BgL_kz00_7017 = 
(BgL_kz00_842+((long)1)); 
BgL_readingz00_7019 = ((long)2); 
BgL_readingz00_843 = BgL_readingz00_7019; 
BgL_kz00_842 = BgL_kz00_7017; 
goto BgL_loopz00_844;} }  else 
{ /* ./Llib/pregexp.scm 339 */
if(
(BgL_cz00_847==((unsigned char)'}')))
{ /* ./Llib/pregexp.scm 341 */
{ /* ./Llib/pregexp.scm 342 */
obj_t BgL_pz00_862;obj_t BgL_qz00_863;
BgL_pz00_862 = 
BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_pz00_840)), BNIL); 
BgL_qz00_863 = 
BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_qz00_841)), BNIL); 
{ /* ./Llib/pregexp.scm 344 */
bool_t BgL_test1994z00_864;
if(
CBOOL(BgL_pz00_862))
{ /* ./Llib/pregexp.scm 344 */
BgL_test1994z00_864 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 344 */
BgL_test1994z00_864 = 
(BgL_readingz00_843==((long)1)); } 
if(BgL_test1994z00_864)
{ /* ./Llib/pregexp.scm 344 */
{ /* ./Llib/pregexp.scm 344 */
obj_t BgL_list1996z00_865;
{ /* ./Llib/pregexp.scm 344 */
obj_t BgL_arg2000z00_867;
{ /* ./Llib/pregexp.scm 344 */
obj_t BgL_arg2004z00_868;
{ /* ./Llib/pregexp.scm 344 */
obj_t BgL_auxz00_7032;
BgL_auxz00_7032 = 
BINT(BgL_kz00_842); 
BgL_arg2004z00_868 = 
MAKE_PAIR(BgL_auxz00_7032, BNIL); } 
BgL_arg2000z00_867 = 
MAKE_PAIR(BFALSE, BgL_arg2004z00_868); } 
{ /* ./Llib/pregexp.scm 344 */
obj_t BgL_auxz00_7036;
BgL_auxz00_7036 = 
BINT(((long)0)); 
BgL_list1996z00_865 = 
MAKE_PAIR(BgL_auxz00_7036, BgL_arg2000z00_867); } } 
{ /* ./Llib/pregexp.scm 344 */
obj_t BgL_res3724z00_2176;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 344 */
BgL_res3724z00_2176 = BgL_list1996z00_865; }  else 
{ /* ./Llib/pregexp.scm 344 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10387z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list1996z00_865, BGl_string10330z00zz__pregexpz00, 
BINT(((long)13756))); 
exit( -1 );} 
BgL_aux3838z00_3200 = BgL_res3724z00_2176; } } }  else 
{ /* ./Llib/pregexp.scm 344 */
if(
(BgL_readingz00_843==((long)1)))
{ /* ./Llib/pregexp.scm 345 */
{ /* ./Llib/pregexp.scm 345 */
obj_t BgL_list2009z00_870;
{ /* ./Llib/pregexp.scm 345 */
obj_t BgL_arg2011z00_871;
{ /* ./Llib/pregexp.scm 345 */
obj_t BgL_arg2014z00_872;
{ /* ./Llib/pregexp.scm 345 */
obj_t BgL_auxz00_7045;
BgL_auxz00_7045 = 
BINT(BgL_kz00_842); 
BgL_arg2014z00_872 = 
MAKE_PAIR(BgL_auxz00_7045, BNIL); } 
BgL_arg2011z00_871 = 
MAKE_PAIR(BgL_pz00_862, BgL_arg2014z00_872); } 
BgL_list2009z00_870 = 
MAKE_PAIR(BgL_pz00_862, BgL_arg2011z00_871); } 
{ /* ./Llib/pregexp.scm 345 */
obj_t BgL_res3725z00_2180;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 345 */
BgL_res3725z00_2180 = BgL_list2009z00_870; }  else 
{ /* ./Llib/pregexp.scm 345 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10387z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list2009z00_870, BGl_string10330z00zz__pregexpz00, 
BINT(((long)13809))); 
exit( -1 );} 
BgL_aux3838z00_3200 = BgL_res3725z00_2180; } } }  else 
{ /* ./Llib/pregexp.scm 345 */
{ /* ./Llib/pregexp.scm 346 */
obj_t BgL_list2018z00_873;
{ /* ./Llib/pregexp.scm 346 */
obj_t BgL_arg2021z00_874;
{ /* ./Llib/pregexp.scm 346 */
obj_t BgL_arg2024z00_875;
{ /* ./Llib/pregexp.scm 346 */
obj_t BgL_auxz00_7054;
BgL_auxz00_7054 = 
BINT(BgL_kz00_842); 
BgL_arg2024z00_875 = 
MAKE_PAIR(BgL_auxz00_7054, BNIL); } 
BgL_arg2021z00_874 = 
MAKE_PAIR(BgL_qz00_863, BgL_arg2024z00_875); } 
BgL_list2018z00_873 = 
MAKE_PAIR(BgL_pz00_862, BgL_arg2021z00_874); } 
{ /* ./Llib/pregexp.scm 346 */
obj_t BgL_res3726z00_2182;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 346 */
BgL_res3726z00_2182 = BgL_list2018z00_873; }  else 
{ /* ./Llib/pregexp.scm 346 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10387z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list2018z00_873, BGl_string10330z00zz__pregexpz00, 
BINT(((long)13852))); 
exit( -1 );} 
BgL_aux3838z00_3200 = BgL_res3726z00_2182; } } } } } } }  else 
{ /* ./Llib/pregexp.scm 341 */
BgL_aux3838z00_3200 = BFALSE; } } } } } } } 
POP_TRACE(); 
return BgL_aux3838z00_3200;} } } } 
}



/* 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 */
{ /* ./Llib/pregexp.scm 358 */
obj_t BgL_symbol3843z00_3201;
BgL_symbol3843z00_3201 = BGl_symbol10388z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 358 */

PUSH_TRACE(BgL_symbol3843z00_3201); BUNSPEC; 
{ /* ./Llib/pregexp.scm 358 */
obj_t BgL_aux3842z00_3202;
{ 
obj_t BgL_rz00_886;obj_t BgL_iz00_887;
BgL_rz00_886 = BNIL; 
BgL_iz00_887 = 
BINT(BgL_iz00_36); 
BgL_loopz00_888:
{ /* ./Llib/pregexp.scm 359 */
bool_t BgL_test2060z00_889;
{ /* ./Llib/pregexp.scm 359 */
long BgL_n1z00_2183;long BgL_n2z00_2184;
{ /* ./Llib/pregexp.scm 359 */
obj_t BgL_auxz00_7065;
if(
INTEGERP(BgL_iz00_887))
{ /* ./Llib/pregexp.scm 359 */
BgL_auxz00_7065 = BgL_iz00_887
; }  else 
{ /* ./Llib/pregexp.scm 359 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_887, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14093))); 
exit( -1 );} 
BgL_n1z00_2183 = 
(long)CINT(BgL_auxz00_7065); } 
BgL_n2z00_2184 = 
(long)(BgL_nz00_37); 
BgL_test2060z00_889 = 
(BgL_n1z00_2183>=BgL_n2z00_2184); } 
if(BgL_test2060z00_889)
{ /* ./Llib/pregexp.scm 360 */
obj_t BgL_list2062z00_890;
BgL_list2062z00_890 = 
MAKE_PAIR(BGl_string10389z00zz__pregexpz00, BNIL); 
BgL_aux3842z00_3202 = 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol10388z00zz__pregexpz00, BgL_list2062z00_890); }  else 
{ /* ./Llib/pregexp.scm 362 */
unsigned char BgL_cz00_891;
{ /* ./Llib/pregexp.scm 362 */
unsigned char BgL_res3727z00_2193;
{ /* ./Llib/pregexp.scm 362 */
int BgL_kz00_2186;
{ /* ./Llib/pregexp.scm 362 */
obj_t BgL_auxz00_7077;
if(
INTEGERP(BgL_iz00_887))
{ /* ./Llib/pregexp.scm 362 */
BgL_auxz00_7077 = BgL_iz00_887
; }  else 
{ /* ./Llib/pregexp.scm 362 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_887, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14218))); 
exit( -1 );} 
BgL_kz00_2186 = 
CINT(BgL_auxz00_7077); } 
{ /* ./Llib/pregexp.scm 362 */
bool_t BgL_testz00_7084;
{ /* ./Llib/pregexp.scm 362 */
int BgL_auxz00_7085;
BgL_auxz00_7085 = 
STRING_LENGTH(BgL_sz00_35); 
BgL_testz00_7084 = 
BOUND_CHECK(BgL_kz00_2186, BgL_auxz00_7085); } 
if(BgL_testz00_7084)
{ /* ./Llib/pregexp.scm 362 */
BgL_res3727z00_2193 = 
STRING_REF(BgL_sz00_35, BgL_kz00_2186); }  else 
{ /* ./Llib/pregexp.scm 362 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2186), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 362 */
obj_t BgL_auxz00_7091;
{ /* ./Llib/pregexp.scm 362 */
obj_t BgL_aux6342z00_3869;
BgL_aux6342z00_3869 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14218))); 
if(
CHARP(BgL_aux6342z00_3869))
{ /* ./Llib/pregexp.scm 362 */
BgL_auxz00_7091 = BgL_aux6342z00_3869
; }  else 
{ /* ./Llib/pregexp.scm 362 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux6342z00_3869, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14218))); 
exit( -1 );} } 
BgL_res3727z00_2193 = 
(unsigned char)CCHAR(BgL_auxz00_7091); } } } } 
BgL_cz00_891 = BgL_res3727z00_2193; } 
{ 

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

if(
NULLP(BgL_rz00_886))
{ /* ./Llib/pregexp.scm 365 */
obj_t BgL_arg2067z00_896;long BgL_arg2068z00_897;
{ /* ./Llib/pregexp.scm 365 */
obj_t BgL_auxz00_7102;
BgL_auxz00_7102 = 
BCHAR(BgL_cz00_891); 
BgL_arg2067z00_896 = 
MAKE_PAIR(BgL_auxz00_7102, BgL_rz00_886); } 
{ /* ./Llib/pregexp.scm 365 */
long BgL_za71za7_2195;
{ /* ./Llib/pregexp.scm 365 */
obj_t BgL_auxz00_7105;
if(
INTEGERP(BgL_iz00_887))
{ /* ./Llib/pregexp.scm 365 */
BgL_auxz00_7105 = BgL_iz00_887
; }  else 
{ /* ./Llib/pregexp.scm 365 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_887, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14297))); 
exit( -1 );} 
BgL_za71za7_2195 = 
(long)CINT(BgL_auxz00_7105); } 
BgL_arg2068z00_897 = 
(BgL_za71za7_2195+((long)1)); } 
{ 
obj_t BgL_iz00_7114;obj_t BgL_rz00_7113;
BgL_rz00_7113 = BgL_arg2067z00_896; 
BgL_iz00_7114 = 
BINT(BgL_arg2068z00_897); 
BgL_iz00_887 = BgL_iz00_7114; 
BgL_rz00_886 = BgL_rz00_7113; 
goto BgL_loopz00_888;} }  else 
{ /* ./Llib/pregexp.scm 366 */
obj_t BgL_arg2073z00_898;long BgL_arg2074z00_899;
{ /* ./Llib/pregexp.scm 366 */
obj_t BgL_auxz00_7116;
BgL_auxz00_7116 = 
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_rz00_886); 
BgL_arg2073z00_898 = 
MAKE_PAIR(BGl_keyword10390z00zz__pregexpz00, BgL_auxz00_7116); } 
{ /* ./Llib/pregexp.scm 367 */
long BgL_za71za7_2197;
{ /* ./Llib/pregexp.scm 367 */
obj_t BgL_auxz00_7119;
if(
INTEGERP(BgL_iz00_887))
{ /* ./Llib/pregexp.scm 367 */
BgL_auxz00_7119 = BgL_iz00_887
; }  else 
{ /* ./Llib/pregexp.scm 367 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_887, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14367))); 
exit( -1 );} 
BgL_za71za7_2197 = 
(long)CINT(BgL_auxz00_7119); } 
BgL_arg2074z00_899 = 
(BgL_za71za7_2197+((long)1)); } 
{ /* ./Llib/pregexp.scm 366 */
obj_t BgL_list2076z00_900;
{ /* ./Llib/pregexp.scm 366 */
obj_t BgL_arg2078z00_901;
{ /* ./Llib/pregexp.scm 366 */
obj_t BgL_auxz00_7127;
BgL_auxz00_7127 = 
BINT(BgL_arg2074z00_899); 
BgL_arg2078z00_901 = 
MAKE_PAIR(BgL_auxz00_7127, BNIL); } 
BgL_list2076z00_900 = 
MAKE_PAIR(BgL_arg2073z00_898, BgL_arg2078z00_901); } 
{ /* ./Llib/pregexp.scm 366 */
obj_t BgL_res3728z00_2200;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 366 */
BgL_res3728z00_2200 = BgL_list2076z00_900; }  else 
{ /* ./Llib/pregexp.scm 366 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list2076z00_900, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14312))); 
exit( -1 );} 
BgL_aux3842z00_3202 = BgL_res3728z00_2200; } } } break;case ((unsigned char)'\\') : 

{ /* ./Llib/pregexp.scm 369 */
obj_t BgL_charzd2izd2_904;
BgL_charzd2izd2_904 = 
BGl_pregexpzd2readzd2escapedzd2charzd2zz__pregexpz00(BgL_sz00_35, BgL_iz00_887, BgL_nz00_37); 
if(
CBOOL(BgL_charzd2izd2_904))
{ /* ./Llib/pregexp.scm 370 */
obj_t BgL_arg2089z00_905;obj_t BgL_arg2090z00_906;
{ /* ./Llib/pregexp.scm 370 */
obj_t BgL_arg2093z00_907;
{ /* ./Llib/pregexp.scm 370 */
obj_t BgL_pairz00_2201;
if(
PAIRP(BgL_charzd2izd2_904))
{ /* ./Llib/pregexp.scm 370 */
BgL_pairz00_2201 = BgL_charzd2izd2_904; }  else 
{ /* ./Llib/pregexp.scm 370 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_charzd2izd2_904, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14479))); 
exit( -1 );} 
BgL_arg2093z00_907 = 
CAR(BgL_pairz00_2201); } 
BgL_arg2089z00_905 = 
MAKE_PAIR(BgL_arg2093z00_907, BgL_rz00_886); } 
{ /* ./Llib/pregexp.scm 370 */
obj_t BgL_pairz00_2202;
if(
PAIRP(BgL_charzd2izd2_904))
{ /* ./Llib/pregexp.scm 370 */
BgL_pairz00_2202 = BgL_charzd2izd2_904; }  else 
{ /* ./Llib/pregexp.scm 370 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_charzd2izd2_904, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14496))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 370 */
obj_t BgL_arg3354z00_2203;
BgL_arg3354z00_2203 = 
CDR(BgL_pairz00_2202); 
{ /* ./Llib/pregexp.scm 370 */
obj_t BgL_pairz00_2205;
if(
PAIRP(BgL_arg3354z00_2203))
{ /* ./Llib/pregexp.scm 370 */
BgL_pairz00_2205 = BgL_arg3354z00_2203; }  else 
{ /* ./Llib/pregexp.scm 370 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2203, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14485))); 
exit( -1 );} 
BgL_arg2090z00_906 = 
CAR(BgL_pairz00_2205); } } } 
{ 
obj_t BgL_iz00_7158;obj_t BgL_rz00_7157;
BgL_rz00_7157 = BgL_arg2089z00_905; 
BgL_iz00_7158 = BgL_arg2090z00_906; 
BgL_iz00_887 = BgL_iz00_7158; 
BgL_rz00_886 = BgL_rz00_7157; 
goto BgL_loopz00_888;} }  else 
{ /* ./Llib/pregexp.scm 371 */
obj_t BgL_list2098z00_908;
{ /* ./Llib/pregexp.scm 371 */
obj_t BgL_auxz00_7159;
BgL_auxz00_7159 = 
BCHAR(((unsigned char)'\\')); 
BgL_list2098z00_908 = 
MAKE_PAIR(BgL_auxz00_7159, BNIL); } 
BgL_aux3842z00_3202 = 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol10391z00zz__pregexpz00, BgL_list2098z00_908); } } break;case ((unsigned char)'-') : 

{ /* ./Llib/pregexp.scm 372 */
bool_t BgL_test2101z00_909;
if(
NULLP(BgL_rz00_886))
{ /* ./Llib/pregexp.scm 372 */
BgL_test2101z00_909 = ((bool_t)1); }  else 
{ /* ./Llib/pregexp.scm 372 */
long BgL_arg2142z00_924;
{ /* ./Llib/pregexp.scm 372 */
long BgL_auxz00_7165;
BgL_auxz00_7165 = 
(long)(BgL_nz00_37); 
BgL_arg2142z00_924 = 
(BgL_auxz00_7165-((long)2)); } 
{ /* ./Llib/pregexp.scm 372 */
long BgL_n1z00_2209;
{ /* ./Llib/pregexp.scm 372 */
obj_t BgL_auxz00_7168;
if(
INTEGERP(BgL_iz00_887))
{ /* ./Llib/pregexp.scm 372 */
BgL_auxz00_7168 = BgL_iz00_887
; }  else 
{ /* ./Llib/pregexp.scm 372 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_887, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14587))); 
exit( -1 );} 
BgL_n1z00_2209 = 
(long)CINT(BgL_auxz00_7168); } 
BgL_test2101z00_909 = 
(BgL_n1z00_2209>=BgL_arg2142z00_924); } } 
if(BgL_test2101z00_909)
{ /* ./Llib/pregexp.scm 373 */
obj_t BgL_arg2103z00_910;long BgL_arg2105z00_911;
{ /* ./Llib/pregexp.scm 373 */
obj_t BgL_auxz00_7177;
BgL_auxz00_7177 = 
BCHAR(BgL_cz00_891); 
BgL_arg2103z00_910 = 
MAKE_PAIR(BgL_auxz00_7177, BgL_rz00_886); } 
{ /* ./Llib/pregexp.scm 373 */
long BgL_za71za7_2211;
{ /* ./Llib/pregexp.scm 373 */
obj_t BgL_auxz00_7180;
if(
INTEGERP(BgL_iz00_887))
{ /* ./Llib/pregexp.scm 373 */
BgL_auxz00_7180 = BgL_iz00_887
; }  else 
{ /* ./Llib/pregexp.scm 373 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_887, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14626))); 
exit( -1 );} 
BgL_za71za7_2211 = 
(long)CINT(BgL_auxz00_7180); } 
BgL_arg2105z00_911 = 
(BgL_za71za7_2211+((long)1)); } 
{ 
obj_t BgL_iz00_7189;obj_t BgL_rz00_7188;
BgL_rz00_7188 = BgL_arg2103z00_910; 
BgL_iz00_7189 = 
BINT(BgL_arg2105z00_911); 
BgL_iz00_887 = BgL_iz00_7189; 
BgL_rz00_886 = BgL_rz00_7188; 
goto BgL_loopz00_888;} }  else 
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_arg2111z00_912;long BgL_arg2112z00_913;
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_arg2115z00_914;obj_t BgL_arg2116z00_915;
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_arg2119z00_916;obj_t BgL_arg2120z00_917;unsigned char BgL_arg2122z00_918;
BgL_arg2119z00_916 = BGl_keyword10392z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_pairz00_2213;
if(
PAIRP(BgL_rz00_886))
{ /* ./Llib/pregexp.scm 374 */
BgL_pairz00_2213 = BgL_rz00_886; }  else 
{ /* ./Llib/pregexp.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rz00_886, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14677))); 
exit( -1 );} 
BgL_arg2120z00_917 = 
CAR(BgL_pairz00_2213); } 
{ /* ./Llib/pregexp.scm 375 */
long BgL_arg2135z00_922;
{ /* ./Llib/pregexp.scm 375 */
long BgL_za71za7_2214;
{ /* ./Llib/pregexp.scm 375 */
obj_t BgL_auxz00_7197;
if(
INTEGERP(BgL_iz00_887))
{ /* ./Llib/pregexp.scm 375 */
BgL_auxz00_7197 = BgL_iz00_887
; }  else 
{ /* ./Llib/pregexp.scm 375 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_887, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14704))); 
exit( -1 );} 
BgL_za71za7_2214 = 
(long)CINT(BgL_auxz00_7197); } 
BgL_arg2135z00_922 = 
(BgL_za71za7_2214+((long)1)); } 
{ /* ./Llib/pregexp.scm 375 */
unsigned char BgL_res3729z00_2224;
{ /* ./Llib/pregexp.scm 375 */
int BgL_kz00_2217;
BgL_kz00_2217 = 
(int)(BgL_arg2135z00_922); 
{ /* ./Llib/pregexp.scm 375 */
bool_t BgL_testz00_7206;
{ /* ./Llib/pregexp.scm 375 */
int BgL_auxz00_7207;
BgL_auxz00_7207 = 
STRING_LENGTH(BgL_sz00_35); 
BgL_testz00_7206 = 
BOUND_CHECK(BgL_kz00_2217, BgL_auxz00_7207); } 
if(BgL_testz00_7206)
{ /* ./Llib/pregexp.scm 375 */
BgL_res3729z00_2224 = 
STRING_REF(BgL_sz00_35, BgL_kz00_2217); }  else 
{ /* ./Llib/pregexp.scm 375 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2217), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 375 */
obj_t BgL_auxz00_7213;
{ /* ./Llib/pregexp.scm 375 */
obj_t BgL_aux6489z00_3893;
BgL_aux6489z00_3893 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14690))); 
if(
CHARP(BgL_aux6489z00_3893))
{ /* ./Llib/pregexp.scm 375 */
BgL_auxz00_7213 = BgL_aux6489z00_3893
; }  else 
{ /* ./Llib/pregexp.scm 375 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux6489z00_3893, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14690))); 
exit( -1 );} } 
BgL_res3729z00_2224 = 
(unsigned char)CCHAR(BgL_auxz00_7213); } } } } 
BgL_arg2122z00_918 = BgL_res3729z00_2224; } } 
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_list2124z00_919;
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_arg2126z00_920;
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_arg2129z00_921;
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_auxz00_7222;
BgL_auxz00_7222 = 
BCHAR(BgL_arg2122z00_918); 
BgL_arg2129z00_921 = 
MAKE_PAIR(BgL_auxz00_7222, BNIL); } 
BgL_arg2126z00_920 = 
MAKE_PAIR(BgL_arg2120z00_917, BgL_arg2129z00_921); } 
BgL_list2124z00_919 = 
MAKE_PAIR(BgL_arg2119z00_916, BgL_arg2126z00_920); } 
{ /* ./Llib/pregexp.scm 374 */
obj_t BgL_res3730z00_2226;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 374 */
BgL_res3730z00_2226 = BgL_list2124z00_919; }  else 
{ /* ./Llib/pregexp.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list2124z00_919, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14653))); 
exit( -1 );} 
BgL_arg2115z00_914 = BgL_res3730z00_2226; } } } 
{ /* ./Llib/pregexp.scm 375 */
obj_t BgL_pairz00_2227;
if(
PAIRP(BgL_rz00_886))
{ /* ./Llib/pregexp.scm 375 */
BgL_pairz00_2227 = BgL_rz00_886; }  else 
{ /* ./Llib/pregexp.scm 375 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rz00_886, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14719))); 
exit( -1 );} 
BgL_arg2116z00_915 = 
CDR(BgL_pairz00_2227); } 
BgL_arg2111z00_912 = 
MAKE_PAIR(BgL_arg2115z00_914, BgL_arg2116z00_915); } 
{ /* ./Llib/pregexp.scm 376 */
long BgL_za71za7_2228;
{ /* ./Llib/pregexp.scm 376 */
obj_t BgL_auxz00_7238;
if(
INTEGERP(BgL_iz00_887))
{ /* ./Llib/pregexp.scm 376 */
BgL_auxz00_7238 = BgL_iz00_887
; }  else 
{ /* ./Llib/pregexp.scm 376 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_887, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14728))); 
exit( -1 );} 
BgL_za71za7_2228 = 
(long)CINT(BgL_auxz00_7238); } 
BgL_arg2112z00_913 = 
(BgL_za71za7_2228+((long)2)); } 
{ 
obj_t BgL_iz00_7247;obj_t BgL_rz00_7246;
BgL_rz00_7246 = BgL_arg2111z00_912; 
BgL_iz00_7247 = 
BINT(BgL_arg2112z00_913); 
BgL_iz00_887 = BgL_iz00_7247; 
BgL_rz00_886 = BgL_rz00_7246; 
goto BgL_loopz00_888;} } } break;case ((unsigned char)'[') : 

{ /* ./Llib/pregexp.scm 377 */
bool_t BgL_test2146z00_925;
{ /* ./Llib/pregexp.scm 377 */
unsigned char BgL_arg2167z00_933;
{ /* ./Llib/pregexp.scm 377 */
long BgL_arg2170z00_934;
{ /* ./Llib/pregexp.scm 377 */
long BgL_za71za7_2230;
{ /* ./Llib/pregexp.scm 377 */
obj_t BgL_auxz00_7249;
if(
INTEGERP(BgL_iz00_887))
{ /* ./Llib/pregexp.scm 377 */
BgL_auxz00_7249 = BgL_iz00_887
; }  else 
{ /* ./Llib/pregexp.scm 377 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_887, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14774))); 
exit( -1 );} 
BgL_za71za7_2230 = 
(long)CINT(BgL_auxz00_7249); } 
BgL_arg2170z00_934 = 
(BgL_za71za7_2230+((long)1)); } 
{ /* ./Llib/pregexp.scm 377 */
unsigned char BgL_res3731z00_2240;
{ /* ./Llib/pregexp.scm 377 */
int BgL_kz00_2233;
BgL_kz00_2233 = 
(int)(BgL_arg2170z00_934); 
{ /* ./Llib/pregexp.scm 377 */
bool_t BgL_testz00_7258;
{ /* ./Llib/pregexp.scm 377 */
int BgL_auxz00_7259;
BgL_auxz00_7259 = 
STRING_LENGTH(BgL_sz00_35); 
BgL_testz00_7258 = 
BOUND_CHECK(BgL_kz00_2233, BgL_auxz00_7259); } 
if(BgL_testz00_7258)
{ /* ./Llib/pregexp.scm 377 */
BgL_res3731z00_2240 = 
STRING_REF(BgL_sz00_35, BgL_kz00_2233); }  else 
{ /* ./Llib/pregexp.scm 377 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2233), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 377 */
obj_t BgL_auxz00_7265;
{ /* ./Llib/pregexp.scm 377 */
obj_t BgL_aux6553z00_3903;
BgL_aux6553z00_3903 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14760))); 
if(
CHARP(BgL_aux6553z00_3903))
{ /* ./Llib/pregexp.scm 377 */
BgL_auxz00_7265 = BgL_aux6553z00_3903
; }  else 
{ /* ./Llib/pregexp.scm 377 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux6553z00_3903, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14760))); 
exit( -1 );} } 
BgL_res3731z00_2240 = 
(unsigned char)CCHAR(BgL_auxz00_7265); } } } } 
BgL_arg2167z00_933 = BgL_res3731z00_2240; } } 
BgL_test2146z00_925 = 
(BgL_arg2167z00_933==((unsigned char)':')); } 
if(BgL_test2146z00_925)
{ /* ./Llib/pregexp.scm 378 */
obj_t BgL_posixzd2charzd2classzd2izd2_926;
{ /* ./Llib/pregexp.scm 379 */
long BgL_arg2157z00_930;
{ /* ./Llib/pregexp.scm 379 */
long BgL_za71za7_2243;
{ /* ./Llib/pregexp.scm 379 */
obj_t BgL_auxz00_7276;
if(
INTEGERP(BgL_iz00_887))
{ /* ./Llib/pregexp.scm 379 */
BgL_auxz00_7276 = BgL_iz00_887
; }  else 
{ /* ./Llib/pregexp.scm 379 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_887, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14859))); 
exit( -1 );} 
BgL_za71za7_2243 = 
(long)CINT(BgL_auxz00_7276); } 
BgL_arg2157z00_930 = 
(BgL_za71za7_2243+((long)2)); } 
BgL_posixzd2charzd2classzd2izd2_926 = 
BGl_pregexpzd2readzd2posixzd2charzd2classz00zz__pregexpz00(BgL_sz00_35, BgL_arg2157z00_930, BgL_nz00_37); } 
{ /* ./Llib/pregexp.scm 380 */
obj_t BgL_arg2148z00_927;obj_t BgL_arg2149z00_928;
{ /* ./Llib/pregexp.scm 380 */
obj_t BgL_arg2152z00_929;
{ /* ./Llib/pregexp.scm 380 */
obj_t BgL_pairz00_2245;
if(
PAIRP(BgL_posixzd2charzd2classzd2izd2_926))
{ /* ./Llib/pregexp.scm 380 */
BgL_pairz00_2245 = BgL_posixzd2charzd2classzd2izd2_926; }  else 
{ /* ./Llib/pregexp.scm 380 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_posixzd2charzd2classzd2izd2_926, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14915))); 
exit( -1 );} 
BgL_arg2152z00_929 = 
CAR(BgL_pairz00_2245); } 
BgL_arg2148z00_927 = 
MAKE_PAIR(BgL_arg2152z00_929, BgL_rz00_886); } 
{ /* ./Llib/pregexp.scm 381 */
obj_t BgL_pairz00_2246;
if(
PAIRP(BgL_posixzd2charzd2classzd2izd2_926))
{ /* ./Llib/pregexp.scm 381 */
BgL_pairz00_2246 = BgL_posixzd2charzd2classzd2izd2_926; }  else 
{ /* ./Llib/pregexp.scm 381 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_posixzd2charzd2classzd2izd2_926, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14952))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 381 */
obj_t BgL_arg3354z00_2247;
BgL_arg3354z00_2247 = 
CDR(BgL_pairz00_2246); 
{ /* ./Llib/pregexp.scm 381 */
obj_t BgL_pairz00_2249;
if(
PAIRP(BgL_arg3354z00_2247))
{ /* ./Llib/pregexp.scm 381 */
BgL_pairz00_2249 = BgL_arg3354z00_2247; }  else 
{ /* ./Llib/pregexp.scm 381 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2247, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14929))); 
exit( -1 );} 
BgL_arg2149z00_928 = 
CAR(BgL_pairz00_2249); } } } 
{ 
obj_t BgL_iz00_7305;obj_t BgL_rz00_7304;
BgL_rz00_7304 = BgL_arg2148z00_927; 
BgL_iz00_7305 = BgL_arg2149z00_928; 
BgL_iz00_887 = BgL_iz00_7305; 
BgL_rz00_886 = BgL_rz00_7304; 
goto BgL_loopz00_888;} } }  else 
{ /* ./Llib/pregexp.scm 382 */
obj_t BgL_arg2161z00_931;long BgL_arg2162z00_932;
{ /* ./Llib/pregexp.scm 382 */
obj_t BgL_auxz00_7306;
BgL_auxz00_7306 = 
BCHAR(BgL_cz00_891); 
BgL_arg2161z00_931 = 
MAKE_PAIR(BgL_auxz00_7306, BgL_rz00_886); } 
{ /* ./Llib/pregexp.scm 382 */
long BgL_za71za7_2250;
{ /* ./Llib/pregexp.scm 382 */
obj_t BgL_auxz00_7309;
if(
INTEGERP(BgL_iz00_887))
{ /* ./Llib/pregexp.scm 382 */
BgL_auxz00_7309 = BgL_iz00_887
; }  else 
{ /* ./Llib/pregexp.scm 382 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_887, BGl_string10330z00zz__pregexpz00, 
BINT(((long)14980))); 
exit( -1 );} 
BgL_za71za7_2250 = 
(long)CINT(BgL_auxz00_7309); } 
BgL_arg2162z00_932 = 
(BgL_za71za7_2250+((long)1)); } 
{ 
obj_t BgL_iz00_7318;obj_t BgL_rz00_7317;
BgL_rz00_7317 = BgL_arg2161z00_931; 
BgL_iz00_7318 = 
BINT(BgL_arg2162z00_932); 
BgL_iz00_887 = BgL_iz00_7318; 
BgL_rz00_886 = BgL_rz00_7317; 
goto BgL_loopz00_888;} } } break;
default: 
{ /* ./Llib/pregexp.scm 383 */
obj_t BgL_arg2177z00_935;long BgL_arg2178z00_936;
{ /* ./Llib/pregexp.scm 383 */
obj_t BgL_auxz00_7320;
BgL_auxz00_7320 = 
BCHAR(BgL_cz00_891); 
BgL_arg2177z00_935 = 
MAKE_PAIR(BgL_auxz00_7320, BgL_rz00_886); } 
{ /* ./Llib/pregexp.scm 383 */
long BgL_za71za7_2252;
{ /* ./Llib/pregexp.scm 383 */
obj_t BgL_auxz00_7323;
if(
INTEGERP(BgL_iz00_887))
{ /* ./Llib/pregexp.scm 383 */
BgL_auxz00_7323 = BgL_iz00_887
; }  else 
{ /* ./Llib/pregexp.scm 383 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10388z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_887, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15016))); 
exit( -1 );} 
BgL_za71za7_2252 = 
(long)CINT(BgL_auxz00_7323); } 
BgL_arg2178z00_936 = 
(BgL_za71za7_2252+((long)1)); } 
{ 
obj_t BgL_iz00_7332;obj_t BgL_rz00_7331;
BgL_rz00_7331 = BgL_arg2177z00_935; 
BgL_iz00_7332 = 
BINT(BgL_arg2178z00_936); 
BgL_iz00_887 = BgL_iz00_7332; 
BgL_rz00_886 = BgL_rz00_7331; 
goto BgL_loopz00_888;} } } } } } } 
POP_TRACE(); 
return BgL_aux3842z00_3202;} } } } 
}



/* pregexp-string-match */
obj_t BGl_pregexpzd2stringzd2matchz00zz__pregexpz00(obj_t BgL_s1z00_38, obj_t BgL_sz00_39, obj_t BgL_iz00_40, obj_t BgL_nz00_41, obj_t BgL_skz00_42, obj_t BgL_fkz00_43)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 387 */
{ /* ./Llib/pregexp.scm 389 */
obj_t BgL_symbol3847z00_3203;
BgL_symbol3847z00_3203 = BGl_symbol10393z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 389 */

PUSH_TRACE(BgL_symbol3847z00_3203); BUNSPEC; 
{ /* ./Llib/pregexp.scm 389 */
obj_t BgL_aux3846z00_3204;
{ /* ./Llib/pregexp.scm 389 */
int BgL_n1z00_937;
BgL_n1z00_937 = 
STRING_LENGTH(BgL_s1z00_38); 
{ /* ./Llib/pregexp.scm 390 */
bool_t BgL_test2184z00_938;
{ /* ./Llib/pregexp.scm 390 */
long BgL_n1z00_2255;long BgL_n2z00_2256;
BgL_n1z00_2255 = 
(long)(BgL_n1z00_937); 
{ /* ./Llib/pregexp.scm 390 */
obj_t BgL_auxz00_7340;
if(
INTEGERP(BgL_nz00_41))
{ /* ./Llib/pregexp.scm 390 */
BgL_auxz00_7340 = BgL_nz00_41
; }  else 
{ /* ./Llib/pregexp.scm 390 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10393z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_nz00_41, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15143))); 
exit( -1 );} 
BgL_n2z00_2256 = 
(long)CINT(BgL_auxz00_7340); } 
BgL_test2184z00_938 = 
(BgL_n1z00_2255>BgL_n2z00_2256); } 
if(BgL_test2184z00_938)
{ /* ./Llib/pregexp.scm 390 */
obj_t BgL_funz00_3919;
if(
PROCEDUREP(BgL_fkz00_43))
{ /* ./Llib/pregexp.scm 390 */
BgL_funz00_3919 = BgL_fkz00_43; }  else 
{ /* ./Llib/pregexp.scm 390 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10393z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_43, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15146))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3919, ((long)0)))
{ /* ./Llib/pregexp.scm 390 */
BgL_aux3846z00_3204 = 
PROCEDURE_ENTRY(BgL_funz00_3919)(BgL_fkz00_43, BEOA); }  else 
{ /* ./Llib/pregexp.scm 390 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10395z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_3919, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15146))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ 
long BgL_jz00_939;obj_t BgL_kz00_940;
BgL_jz00_939 = ((long)0); 
BgL_kz00_940 = BgL_iz00_40; 
BgL_loopz00_941:
{ /* ./Llib/pregexp.scm 392 */
bool_t BgL_testz00_7361;
{ /* ./Llib/pregexp.scm 392 */
long BgL_auxz00_7362;
BgL_auxz00_7362 = 
(long)(BgL_n1z00_937); 
BgL_testz00_7361 = 
(BgL_jz00_939>=BgL_auxz00_7362); } 
if(BgL_testz00_7361)
{ /* ./Llib/pregexp.scm 392 */
BgL_aux3846z00_3204 = 
BGl_zc3anonymousza32487za3Llibzf2pregexpze2scmza3538ze3z93zz__pregexpz00(BgL_skz00_42, BgL_kz00_940); }  else 
{ /* ./Llib/pregexp.scm 393 */
bool_t BgL_test2189z00_943;
{ /* ./Llib/pregexp.scm 393 */
long BgL_n1z00_2259;long BgL_n2z00_2260;
{ /* ./Llib/pregexp.scm 393 */
obj_t BgL_auxz00_7367;
if(
INTEGERP(BgL_kz00_940))
{ /* ./Llib/pregexp.scm 393 */
BgL_auxz00_7367 = BgL_kz00_940
; }  else 
{ /* ./Llib/pregexp.scm 393 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10393z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_kz00_940, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15241))); 
exit( -1 );} 
BgL_n1z00_2259 = 
(long)CINT(BgL_auxz00_7367); } 
{ /* ./Llib/pregexp.scm 393 */
obj_t BgL_auxz00_7374;
if(
INTEGERP(BgL_nz00_41))
{ /* ./Llib/pregexp.scm 393 */
BgL_auxz00_7374 = BgL_nz00_41
; }  else 
{ /* ./Llib/pregexp.scm 393 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10393z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_nz00_41, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15241))); 
exit( -1 );} 
BgL_n2z00_2260 = 
(long)CINT(BgL_auxz00_7374); } 
BgL_test2189z00_943 = 
(BgL_n1z00_2259>=BgL_n2z00_2260); } 
if(BgL_test2189z00_943)
{ /* ./Llib/pregexp.scm 393 */
{ /* ./Llib/pregexp.scm 393 */
obj_t BgL_funz00_3928;
if(
PROCEDUREP(BgL_fkz00_43))
{ /* ./Llib/pregexp.scm 393 */
BgL_funz00_3928 = BgL_fkz00_43; }  else 
{ /* ./Llib/pregexp.scm 393 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10393z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_43, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15250))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3928, ((long)0)))
{ /* ./Llib/pregexp.scm 393 */
BgL_aux3846z00_3204 = 
PROCEDURE_ENTRY(BgL_funz00_3928)(BgL_fkz00_43, BEOA); }  else 
{ /* ./Llib/pregexp.scm 393 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10395z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_3928, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15250))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } }  else 
{ /* ./Llib/pregexp.scm 394 */
bool_t BgL_test2191z00_944;
{ /* ./Llib/pregexp.scm 394 */
unsigned char BgL_arg2200z00_947;unsigned char BgL_arg2201z00_948;
{ /* ./Llib/pregexp.scm 394 */
unsigned char BgL_res3732z00_2269;
{ /* ./Llib/pregexp.scm 394 */
int BgL_kz00_2262;
BgL_kz00_2262 = 
(int)(BgL_jz00_939); 
{ /* ./Llib/pregexp.scm 394 */
bool_t BgL_testz00_7396;
{ /* ./Llib/pregexp.scm 394 */
int BgL_auxz00_7397;
BgL_auxz00_7397 = 
STRING_LENGTH(BgL_s1z00_38); 
BgL_testz00_7396 = 
BOUND_CHECK(BgL_kz00_2262, BgL_auxz00_7397); } 
if(BgL_testz00_7396)
{ /* ./Llib/pregexp.scm 394 */
BgL_res3732z00_2269 = 
STRING_REF(BgL_s1z00_38, BgL_kz00_2262); }  else 
{ /* ./Llib/pregexp.scm 394 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2262), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 394 */
obj_t BgL_auxz00_7403;
{ /* ./Llib/pregexp.scm 394 */
obj_t BgL_aux6697z00_3931;
BgL_aux6697z00_3931 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15283))); 
if(
CHARP(BgL_aux6697z00_3931))
{ /* ./Llib/pregexp.scm 394 */
BgL_auxz00_7403 = BgL_aux6697z00_3931
; }  else 
{ /* ./Llib/pregexp.scm 394 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10393z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux6697z00_3931, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15283))); 
exit( -1 );} } 
BgL_res3732z00_2269 = 
(unsigned char)CCHAR(BgL_auxz00_7403); } } } } 
BgL_arg2200z00_947 = BgL_res3732z00_2269; } 
{ /* ./Llib/pregexp.scm 394 */
unsigned char BgL_res3733z00_2278;
{ /* ./Llib/pregexp.scm 394 */
obj_t BgL_stringz00_2270;int BgL_kz00_2271;
if(
STRINGP(BgL_sz00_39))
{ /* ./Llib/pregexp.scm 394 */
BgL_stringz00_2270 = BgL_sz00_39; }  else 
{ /* ./Llib/pregexp.scm 394 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10393z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_sz00_39, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15301))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 394 */
obj_t BgL_auxz00_7417;
if(
INTEGERP(BgL_kz00_940))
{ /* ./Llib/pregexp.scm 394 */
BgL_auxz00_7417 = BgL_kz00_940
; }  else 
{ /* ./Llib/pregexp.scm 394 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10393z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_kz00_940, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15301))); 
exit( -1 );} 
BgL_kz00_2271 = 
CINT(BgL_auxz00_7417); } 
{ /* ./Llib/pregexp.scm 394 */
bool_t BgL_testz00_7424;
{ /* ./Llib/pregexp.scm 394 */
int BgL_auxz00_7425;
BgL_auxz00_7425 = 
STRING_LENGTH(BgL_stringz00_2270); 
BgL_testz00_7424 = 
BOUND_CHECK(BgL_kz00_2271, BgL_auxz00_7425); } 
if(BgL_testz00_7424)
{ /* ./Llib/pregexp.scm 394 */
BgL_res3733z00_2278 = 
STRING_REF(BgL_stringz00_2270, BgL_kz00_2271); }  else 
{ /* ./Llib/pregexp.scm 394 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2271), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 394 */
obj_t BgL_auxz00_7431;
{ /* ./Llib/pregexp.scm 394 */
obj_t BgL_aux6737z00_3937;
BgL_aux6737z00_3937 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15301))); 
if(
CHARP(BgL_aux6737z00_3937))
{ /* ./Llib/pregexp.scm 394 */
BgL_auxz00_7431 = BgL_aux6737z00_3937
; }  else 
{ /* ./Llib/pregexp.scm 394 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10393z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux6737z00_3937, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15301))); 
exit( -1 );} } 
BgL_res3733z00_2278 = 
(unsigned char)CCHAR(BgL_auxz00_7431); } } } } 
BgL_arg2201z00_948 = BgL_res3733z00_2278; } 
BgL_test2191z00_944 = 
(BgL_arg2200z00_947==BgL_arg2201z00_948); } 
if(BgL_test2191z00_944)
{ /* ./Llib/pregexp.scm 394 */
{ /* ./Llib/pregexp.scm 395 */
long BgL_arg2193z00_945;long BgL_arg2194z00_946;
BgL_arg2193z00_945 = 
(BgL_jz00_939+((long)1)); 
{ /* ./Llib/pregexp.scm 395 */
long BgL_za71za7_2283;
{ /* ./Llib/pregexp.scm 395 */
obj_t BgL_auxz00_7443;
if(
INTEGERP(BgL_kz00_940))
{ /* ./Llib/pregexp.scm 395 */
BgL_auxz00_7443 = BgL_kz00_940
; }  else 
{ /* ./Llib/pregexp.scm 395 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10393z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_kz00_940, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15352))); 
exit( -1 );} 
BgL_za71za7_2283 = 
(long)CINT(BgL_auxz00_7443); } 
BgL_arg2194z00_946 = 
(BgL_za71za7_2283+((long)1)); } 
{ 
obj_t BgL_kz00_7452;long BgL_jz00_7451;
BgL_jz00_7451 = BgL_arg2193z00_945; 
BgL_kz00_7452 = 
BINT(BgL_arg2194z00_946); 
BgL_kz00_940 = BgL_kz00_7452; 
BgL_jz00_939 = BgL_jz00_7451; 
goto BgL_loopz00_941;} } }  else 
{ /* ./Llib/pregexp.scm 394 */
{ /* ./Llib/pregexp.scm 396 */
obj_t BgL_funz00_3943;
if(
PROCEDUREP(BgL_fkz00_43))
{ /* ./Llib/pregexp.scm 396 */
BgL_funz00_3943 = BgL_fkz00_43; }  else 
{ /* ./Llib/pregexp.scm 396 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10393z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_43, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15386))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3943, ((long)0)))
{ /* ./Llib/pregexp.scm 396 */
BgL_aux3846z00_3204 = 
PROCEDURE_ENTRY(BgL_funz00_3943)(BgL_fkz00_43, BEOA); }  else 
{ /* ./Llib/pregexp.scm 396 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10395z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_3943, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15386))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } } } } } } } 
POP_TRACE(); 
return BgL_aux3846z00_3204;} } } } 
}



/* 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 */
obj_t BgL_symbol3851z00_3205;
BgL_symbol3851z00_3205 = BGl_symbol10401z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 408 */

PUSH_TRACE(BgL_symbol3851z00_3205); BUNSPEC; 
{ /* ./Llib/pregexp.scm 408 */
obj_t BgL_aux3850z00_3206;
{ /* ./Llib/pregexp.scm 408 */
bool_t BgL__ortest_1032z00_951;
{ /* ./Llib/pregexp.scm 408 */
long BgL_n1z00_2285;
{ /* ./Llib/pregexp.scm 408 */
obj_t BgL_auxz00_7468;
if(
INTEGERP(BgL_iz00_46))
{ /* ./Llib/pregexp.scm 408 */
BgL_auxz00_7468 = BgL_iz00_46
; }  else 
{ /* ./Llib/pregexp.scm 408 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10401z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_46, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15667))); 
exit( -1 );} 
BgL_n1z00_2285 = 
(long)CINT(BgL_auxz00_7468); } 
BgL__ortest_1032z00_951 = 
(BgL_n1z00_2285==((long)0)); } 
if(BgL__ortest_1032z00_951)
{ /* ./Llib/pregexp.scm 408 */
BgL_aux3850z00_3206 = 
BBOOL(BgL__ortest_1032z00_951); }  else 
{ /* ./Llib/pregexp.scm 408 */
bool_t BgL__ortest_1033z00_952;
{ /* ./Llib/pregexp.scm 408 */
long BgL_n1z00_2287;long BgL_n2z00_2288;
{ /* ./Llib/pregexp.scm 408 */
obj_t BgL_auxz00_7478;
if(
INTEGERP(BgL_iz00_46))
{ /* ./Llib/pregexp.scm 408 */
BgL_auxz00_7478 = BgL_iz00_46
; }  else 
{ /* ./Llib/pregexp.scm 408 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10401z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_46, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15675))); 
exit( -1 );} 
BgL_n1z00_2287 = 
(long)CINT(BgL_auxz00_7478); } 
{ /* ./Llib/pregexp.scm 408 */
obj_t BgL_auxz00_7485;
if(
INTEGERP(BgL_nz00_47))
{ /* ./Llib/pregexp.scm 408 */
BgL_auxz00_7485 = BgL_nz00_47
; }  else 
{ /* ./Llib/pregexp.scm 408 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10401z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_nz00_47, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15675))); 
exit( -1 );} 
BgL_n2z00_2288 = 
(long)CINT(BgL_auxz00_7485); } 
BgL__ortest_1033z00_952 = 
(BgL_n1z00_2287>=BgL_n2z00_2288); } 
if(BgL__ortest_1033z00_952)
{ /* ./Llib/pregexp.scm 408 */
BgL_aux3850z00_3206 = 
BBOOL(BgL__ortest_1033z00_952); }  else 
{ /* ./Llib/pregexp.scm 409 */
unsigned char BgL_czf2izf2_953;unsigned char BgL_czf2izd21z20_954;
{ /* ./Llib/pregexp.scm 409 */
unsigned char BgL_res3734z00_2297;
{ /* ./Llib/pregexp.scm 409 */
obj_t BgL_stringz00_2289;int BgL_kz00_2290;
if(
STRINGP(BgL_sz00_45))
{ /* ./Llib/pregexp.scm 409 */
BgL_stringz00_2289 = BgL_sz00_45; }  else 
{ /* ./Llib/pregexp.scm 409 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10401z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_sz00_45, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15703))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 409 */
obj_t BgL_auxz00_7500;
if(
INTEGERP(BgL_iz00_46))
{ /* ./Llib/pregexp.scm 409 */
BgL_auxz00_7500 = BgL_iz00_46
; }  else 
{ /* ./Llib/pregexp.scm 409 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10401z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_46, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15703))); 
exit( -1 );} 
BgL_kz00_2290 = 
CINT(BgL_auxz00_7500); } 
{ /* ./Llib/pregexp.scm 409 */
bool_t BgL_testz00_7507;
{ /* ./Llib/pregexp.scm 409 */
int BgL_auxz00_7508;
BgL_auxz00_7508 = 
STRING_LENGTH(BgL_stringz00_2289); 
BgL_testz00_7507 = 
BOUND_CHECK(BgL_kz00_2290, BgL_auxz00_7508); } 
if(BgL_testz00_7507)
{ /* ./Llib/pregexp.scm 409 */
BgL_res3734z00_2297 = 
STRING_REF(BgL_stringz00_2289, BgL_kz00_2290); }  else 
{ /* ./Llib/pregexp.scm 409 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2290), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 409 */
obj_t BgL_auxz00_7514;
{ /* ./Llib/pregexp.scm 409 */
obj_t BgL_aux6841z00_3956;
BgL_aux6841z00_3956 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15703))); 
if(
CHARP(BgL_aux6841z00_3956))
{ /* ./Llib/pregexp.scm 409 */
BgL_auxz00_7514 = BgL_aux6841z00_3956
; }  else 
{ /* ./Llib/pregexp.scm 409 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10401z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux6841z00_3956, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15703))); 
exit( -1 );} } 
BgL_res3734z00_2297 = 
(unsigned char)CCHAR(BgL_auxz00_7514); } } } } 
BgL_czf2izf2_953 = BgL_res3734z00_2297; } 
{ /* ./Llib/pregexp.scm 410 */
long BgL_arg2216z00_960;
{ /* ./Llib/pregexp.scm 410 */
long BgL_za71za7_2298;
{ /* ./Llib/pregexp.scm 410 */
obj_t BgL_auxz00_7523;
if(
INTEGERP(BgL_iz00_46))
{ /* ./Llib/pregexp.scm 410 */
BgL_auxz00_7523 = BgL_iz00_46
; }  else 
{ /* ./Llib/pregexp.scm 410 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10401z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_46, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15756))); 
exit( -1 );} 
BgL_za71za7_2298 = 
(long)CINT(BgL_auxz00_7523); } 
BgL_arg2216z00_960 = 
(BgL_za71za7_2298-((long)1)); } 
{ /* ./Llib/pregexp.scm 410 */
unsigned char BgL_res3735z00_2308;
{ /* ./Llib/pregexp.scm 410 */
obj_t BgL_stringz00_2300;int BgL_kz00_2301;
if(
STRINGP(BgL_sz00_45))
{ /* ./Llib/pregexp.scm 410 */
BgL_stringz00_2300 = BgL_sz00_45; }  else 
{ /* ./Llib/pregexp.scm 410 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10401z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_sz00_45, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15742))); 
exit( -1 );} 
BgL_kz00_2301 = 
(int)(BgL_arg2216z00_960); 
{ /* ./Llib/pregexp.scm 410 */
bool_t BgL_testz00_7537;
{ /* ./Llib/pregexp.scm 410 */
int BgL_auxz00_7538;
BgL_auxz00_7538 = 
STRING_LENGTH(BgL_stringz00_2300); 
BgL_testz00_7537 = 
BOUND_CHECK(BgL_kz00_2301, BgL_auxz00_7538); } 
if(BgL_testz00_7537)
{ /* ./Llib/pregexp.scm 410 */
BgL_res3735z00_2308 = 
STRING_REF(BgL_stringz00_2300, BgL_kz00_2301); }  else 
{ /* ./Llib/pregexp.scm 410 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2301), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 410 */
obj_t BgL_auxz00_7544;
{ /* ./Llib/pregexp.scm 410 */
obj_t BgL_aux6882z00_3962;
BgL_aux6882z00_3962 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15742))); 
if(
CHARP(BgL_aux6882z00_3962))
{ /* ./Llib/pregexp.scm 410 */
BgL_auxz00_7544 = BgL_aux6882z00_3962
; }  else 
{ /* ./Llib/pregexp.scm 410 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10401z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux6882z00_3962, BGl_string10330z00zz__pregexpz00, 
BINT(((long)15742))); 
exit( -1 );} } 
BgL_res3735z00_2308 = 
(unsigned char)CCHAR(BgL_auxz00_7544); } } } } 
BgL_czf2izd21z20_954 = BgL_res3735z00_2308; } } 
{ /* ./Llib/pregexp.scm 411 */
obj_t BgL_czf2izf2wzf3zf3_955;obj_t BgL_czf2izd21zf2wzf3z21_956;
BgL_czf2izf2wzf3zf3_955 = 
BGl_pregexpzd2checkzd2ifzd2inzd2charzd2classzf3z21zz__pregexpz00(BgL_czf2izf2_953, BGl_keyword10361z00zz__pregexpz00); 
BgL_czf2izd21zf2wzf3z21_956 = 
BGl_pregexpzd2checkzd2ifzd2inzd2charzd2classzf3z21zz__pregexpz00(BgL_czf2izd21z20_954, BGl_keyword10361z00zz__pregexpz00); 
{ /* ./Llib/pregexp.scm 415 */
bool_t BgL__ortest_1034z00_957;
if(
CBOOL(BgL_czf2izf2wzf3zf3_955))
{ /* ./Llib/pregexp.scm 415 */
if(
CBOOL(BgL_czf2izd21zf2wzf3z21_956))
{ /* ./Llib/pregexp.scm 415 */
BgL__ortest_1034z00_957 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 415 */
BgL__ortest_1034z00_957 = ((bool_t)1); } }  else 
{ /* ./Llib/pregexp.scm 415 */
BgL__ortest_1034z00_957 = ((bool_t)0); } 
if(BgL__ortest_1034z00_957)
{ /* ./Llib/pregexp.scm 415 */
BgL_aux3850z00_3206 = 
BBOOL(BgL__ortest_1034z00_957); }  else 
{ /* ./Llib/pregexp.scm 416 */
bool_t BgL_testz00_7561;
if(
CBOOL(BgL_czf2izf2wzf3zf3_955))
{ /* ./Llib/pregexp.scm 416 */
BgL_testz00_7561 = ((bool_t)0)
; }  else 
{ /* ./Llib/pregexp.scm 416 */
BgL_testz00_7561 = ((bool_t)1)
; } 
if(BgL_testz00_7561)
{ /* ./Llib/pregexp.scm 416 */
BgL_aux3850z00_3206 = BgL_czf2izd21zf2wzf3z21_956; }  else 
{ /* ./Llib/pregexp.scm 416 */
BgL_aux3850z00_3206 = BFALSE; } } } } } } } 
POP_TRACE(); 
return BgL_aux3850z00_3206;} } } } 
}



/* 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 */
{ /* ./Llib/pregexp.scm 420 */
obj_t BgL_symbol3855z00_3207;
BgL_symbol3855z00_3207 = BGl_symbol10402z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 420 */

PUSH_TRACE(BgL_symbol3855z00_3207); BUNSPEC; 
{ /* ./Llib/pregexp.scm 420 */
obj_t BgL_aux3854z00_3208;
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword10349z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 420 */
if(
(BgL_cz00_48==((unsigned char)'\n')))
{ /* ./Llib/pregexp.scm 421 */
BgL_aux3854z00_3208 = BFALSE; }  else 
{ /* ./Llib/pregexp.scm 421 */
BgL_aux3854z00_3208 = BTRUE; } }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword10403z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 423 */
bool_t BgL__ortest_1037z00_965;
{ /* ./Llib/pregexp.scm 423 */
bool_t BgL_res3736z00_2312;
BgL_res3736z00_2312 = 
isalpha(BgL_cz00_48); 
BgL__ortest_1037z00_965 = BgL_res3736z00_2312; } 
if(BgL__ortest_1037z00_965)
{ /* ./Llib/pregexp.scm 423 */
BgL_aux3854z00_3208 = 
BBOOL(BgL__ortest_1037z00_965); }  else 
{ /* ./Llib/pregexp.scm 423 */
bool_t BgL_res3737z00_2314;
BgL_res3737z00_2314 = 
isdigit(BgL_cz00_48); 
BgL_aux3854z00_3208 = 
BBOOL(BgL_res3737z00_2314); } }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword10404z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 424 */
bool_t BgL_res3738z00_2316;
BgL_res3738z00_2316 = 
isalpha(BgL_cz00_48); 
BgL_aux3854z00_3208 = 
BBOOL(BgL_res3738z00_2316); }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword10405z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 425 */
bool_t BgL_auxz00_7583;
{ /* ./Llib/pregexp.scm 425 */
long BgL_auxz00_7584;
BgL_auxz00_7584 = 
(BgL_cz00_48); 
BgL_auxz00_7583 = 
(BgL_auxz00_7584<((long)128)); } 
BgL_aux3854z00_3208 = 
BBOOL(BgL_auxz00_7583); }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword10406z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 426 */
bool_t BgL__ortest_1038z00_971;
BgL__ortest_1038z00_971 = 
(BgL_cz00_48==((unsigned char)' ')); 
if(BgL__ortest_1038z00_971)
{ /* ./Llib/pregexp.scm 426 */
BgL_aux3854z00_3208 = 
BBOOL(BgL__ortest_1038z00_971); }  else 
{ /* ./Llib/pregexp.scm 426 */
unsigned char BgL_char2z00_2323;
{ /* ./Llib/pregexp.scm 426 */
obj_t BgL_auxz00_7593;
if(
CHARP(BGl_za2pregexpzd2tabzd2charza2z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 426 */
BgL_auxz00_7593 = BGl_za2pregexpzd2tabzd2charza2z00zz__pregexpz00
; }  else 
{ /* ./Llib/pregexp.scm 426 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10402z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BGl_za2pregexpzd2tabzd2charza2z00zz__pregexpz00, BGl_string10330z00zz__pregexpz00, 
BINT(((long)16405))); 
exit( -1 );} 
BgL_char2z00_2323 = 
(unsigned char)CCHAR(BgL_auxz00_7593); } 
{ /* ./Llib/pregexp.scm 426 */
bool_t BgL_auxz00_7600;
BgL_auxz00_7600 = 
(BgL_cz00_48==BgL_char2z00_2323); 
BgL_aux3854z00_3208 = 
BBOOL(BgL_auxz00_7600); } } }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword10407z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 427 */
bool_t BgL_auxz00_7605;
{ /* ./Llib/pregexp.scm 427 */
long BgL_auxz00_7606;
BgL_auxz00_7606 = 
(BgL_cz00_48); 
BgL_auxz00_7605 = 
(BgL_auxz00_7606<((long)32)); } 
BgL_aux3854z00_3208 = 
BBOOL(BgL_auxz00_7605); }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword10357z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 428 */
bool_t BgL_res3739z00_2328;
BgL_res3739z00_2328 = 
isdigit(BgL_cz00_48); 
BgL_aux3854z00_3208 = 
BBOOL(BgL_res3739z00_2328); }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword10408z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 429 */
bool_t BgL_testz00_7616;
{ /* ./Llib/pregexp.scm 429 */
long BgL_auxz00_7617;
BgL_auxz00_7617 = 
(BgL_cz00_48); 
BgL_testz00_7616 = 
(BgL_auxz00_7617>=((long)32)); } 
if(BgL_testz00_7616)
{ /* ./Llib/pregexp.scm 430 */
bool_t BgL_test2247z00_978;
{ /* ./Llib/pregexp.scm 430 */
bool_t BgL_res3740z00_2333;
BgL_res3740z00_2333 = 
isspace(BgL_cz00_48); 
BgL_test2247z00_978 = BgL_res3740z00_2333; } 
if(BgL_test2247z00_978)
{ /* ./Llib/pregexp.scm 430 */
BgL_aux3854z00_3208 = BFALSE; }  else 
{ /* ./Llib/pregexp.scm 430 */
BgL_aux3854z00_3208 = BTRUE; } }  else 
{ /* ./Llib/pregexp.scm 429 */
BgL_aux3854z00_3208 = BFALSE; } }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword10409z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 431 */
bool_t BgL_res3741z00_2335;
BgL_res3741z00_2335 = 
islower(BgL_cz00_48); 
BgL_aux3854z00_3208 = 
BBOOL(BgL_res3741z00_2335); }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword10410z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 432 */
bool_t BgL_auxz00_7628;
{ /* ./Llib/pregexp.scm 432 */
long BgL_auxz00_7629;
BgL_auxz00_7629 = 
(BgL_cz00_48); 
BgL_auxz00_7628 = 
(BgL_auxz00_7629>=((long)32)); } 
BgL_aux3854z00_3208 = 
BBOOL(BgL_auxz00_7628); }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword10411z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 433 */
bool_t BgL_testz00_7635;
{ /* ./Llib/pregexp.scm 433 */
long BgL_auxz00_7636;
BgL_auxz00_7636 = 
(BgL_cz00_48); 
BgL_testz00_7635 = 
(BgL_auxz00_7636>=((long)32)); } 
if(BgL_testz00_7635)
{ /* ./Llib/pregexp.scm 434 */
bool_t BgL__andtest_1041z00_987;
{ /* ./Llib/pregexp.scm 434 */
bool_t BgL_test2268z00_991;
{ /* ./Llib/pregexp.scm 434 */
bool_t BgL_res3742z00_2343;
BgL_res3742z00_2343 = 
isspace(BgL_cz00_48); 
BgL_test2268z00_991 = BgL_res3742z00_2343; } 
if(BgL_test2268z00_991)
{ /* ./Llib/pregexp.scm 434 */
BgL__andtest_1041z00_987 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 434 */
BgL__andtest_1041z00_987 = ((bool_t)1); } } 
if(BgL__andtest_1041z00_987)
{ /* ./Llib/pregexp.scm 435 */
bool_t BgL__andtest_1042z00_988;
{ /* ./Llib/pregexp.scm 435 */
bool_t BgL_test2266z00_990;
{ /* ./Llib/pregexp.scm 435 */
bool_t BgL_res3743z00_2345;
BgL_res3743z00_2345 = 
isalpha(BgL_cz00_48); 
BgL_test2266z00_990 = BgL_res3743z00_2345; } 
if(BgL_test2266z00_990)
{ /* ./Llib/pregexp.scm 435 */
BgL__andtest_1042z00_988 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 435 */
BgL__andtest_1042z00_988 = ((bool_t)1); } } 
if(BgL__andtest_1042z00_988)
{ /* ./Llib/pregexp.scm 436 */
bool_t BgL_test2264z00_989;
{ /* ./Llib/pregexp.scm 436 */
bool_t BgL_res3744z00_2347;
BgL_res3744z00_2347 = 
isdigit(BgL_cz00_48); 
BgL_test2264z00_989 = BgL_res3744z00_2347; } 
if(BgL_test2264z00_989)
{ /* ./Llib/pregexp.scm 436 */
BgL_aux3854z00_3208 = BFALSE; }  else 
{ /* ./Llib/pregexp.scm 436 */
BgL_aux3854z00_3208 = BTRUE; } }  else 
{ /* ./Llib/pregexp.scm 435 */
BgL_aux3854z00_3208 = BFALSE; } }  else 
{ /* ./Llib/pregexp.scm 434 */
BgL_aux3854z00_3208 = BFALSE; } }  else 
{ /* ./Llib/pregexp.scm 433 */
BgL_aux3854z00_3208 = BFALSE; } }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword10359z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 437 */
bool_t BgL_res3745z00_2349;
BgL_res3745z00_2349 = 
isspace(BgL_cz00_48); 
BgL_aux3854z00_3208 = 
BBOOL(BgL_res3745z00_2349); }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword10412z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 438 */
bool_t BgL_res3746z00_2351;
BgL_res3746z00_2351 = 
isupper(BgL_cz00_48); 
BgL_aux3854z00_3208 = 
BBOOL(BgL_res3746z00_2351); }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword10361z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 439 */
bool_t BgL__ortest_1043z00_997;
{ /* ./Llib/pregexp.scm 439 */
bool_t BgL_res3747z00_2353;
BgL_res3747z00_2353 = 
isalpha(BgL_cz00_48); 
BgL__ortest_1043z00_997 = BgL_res3747z00_2353; } 
if(BgL__ortest_1043z00_997)
{ /* ./Llib/pregexp.scm 439 */
BgL_aux3854z00_3208 = 
BBOOL(BgL__ortest_1043z00_997); }  else 
{ /* ./Llib/pregexp.scm 440 */
bool_t BgL__ortest_1044z00_998;
{ /* ./Llib/pregexp.scm 440 */
bool_t BgL_res3748z00_2355;
BgL_res3748z00_2355 = 
isdigit(BgL_cz00_48); 
BgL__ortest_1044z00_998 = BgL_res3748z00_2355; } 
if(BgL__ortest_1044z00_998)
{ /* ./Llib/pregexp.scm 440 */
BgL_aux3854z00_3208 = 
BBOOL(BgL__ortest_1044z00_998); }  else 
{ /* ./Llib/pregexp.scm 441 */
bool_t BgL_auxz00_7663;
BgL_auxz00_7663 = 
(BgL_cz00_48==((unsigned char)'_')); 
BgL_aux3854z00_3208 = 
BBOOL(BgL_auxz00_7663); } } }  else 
{ /* ./Llib/pregexp.scm 420 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2classzd2_49, BGl_keyword10413z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 442 */
bool_t BgL__ortest_1045z00_1000;
{ /* ./Llib/pregexp.scm 442 */
bool_t BgL_res3749z00_2359;
BgL_res3749z00_2359 = 
isdigit(BgL_cz00_48); 
BgL__ortest_1045z00_1000 = BgL_res3749z00_2359; } 
if(BgL__ortest_1045z00_1000)
{ /* ./Llib/pregexp.scm 442 */
BgL_aux3854z00_3208 = 
BBOOL(BgL__ortest_1045z00_1000); }  else 
{ /* ./Llib/pregexp.scm 443 */
bool_t BgL__ortest_1046z00_1001;
{ /* ./Llib/pregexp.scm 443 */
unsigned char BgL_auxz00_7673;unsigned char BgL_auxz00_7671;
BgL_auxz00_7673 = 
toupper(((unsigned char)'a')); 
BgL_auxz00_7671 = 
toupper(BgL_cz00_48); 
BgL__ortest_1046z00_1001 = 
(BgL_auxz00_7671==BgL_auxz00_7673); } 
if(BgL__ortest_1046z00_1001)
{ /* ./Llib/pregexp.scm 443 */
BgL_aux3854z00_3208 = 
BBOOL(BgL__ortest_1046z00_1001); }  else 
{ /* ./Llib/pregexp.scm 443 */
bool_t BgL__ortest_1047z00_1002;
{ /* ./Llib/pregexp.scm 443 */
unsigned char BgL_auxz00_7680;unsigned char BgL_auxz00_7678;
BgL_auxz00_7680 = 
toupper(((unsigned char)'b')); 
BgL_auxz00_7678 = 
toupper(BgL_cz00_48); 
BgL__ortest_1047z00_1002 = 
(BgL_auxz00_7678==BgL_auxz00_7680); } 
if(BgL__ortest_1047z00_1002)
{ /* ./Llib/pregexp.scm 443 */
BgL_aux3854z00_3208 = 
BBOOL(BgL__ortest_1047z00_1002); }  else 
{ /* ./Llib/pregexp.scm 444 */
bool_t BgL__ortest_1048z00_1003;
{ /* ./Llib/pregexp.scm 444 */
unsigned char BgL_auxz00_7687;unsigned char BgL_auxz00_7685;
BgL_auxz00_7687 = 
toupper(((unsigned char)'c')); 
BgL_auxz00_7685 = 
toupper(BgL_cz00_48); 
BgL__ortest_1048z00_1003 = 
(BgL_auxz00_7685==BgL_auxz00_7687); } 
if(BgL__ortest_1048z00_1003)
{ /* ./Llib/pregexp.scm 444 */
BgL_aux3854z00_3208 = 
BBOOL(BgL__ortest_1048z00_1003); }  else 
{ /* ./Llib/pregexp.scm 444 */
bool_t BgL__ortest_1049z00_1004;
{ /* ./Llib/pregexp.scm 444 */
unsigned char BgL_auxz00_7694;unsigned char BgL_auxz00_7692;
BgL_auxz00_7694 = 
toupper(((unsigned char)'d')); 
BgL_auxz00_7692 = 
toupper(BgL_cz00_48); 
BgL__ortest_1049z00_1004 = 
(BgL_auxz00_7692==BgL_auxz00_7694); } 
if(BgL__ortest_1049z00_1004)
{ /* ./Llib/pregexp.scm 444 */
BgL_aux3854z00_3208 = 
BBOOL(BgL__ortest_1049z00_1004); }  else 
{ /* ./Llib/pregexp.scm 445 */
bool_t BgL__ortest_1050z00_1005;
{ /* ./Llib/pregexp.scm 445 */
unsigned char BgL_auxz00_7701;unsigned char BgL_auxz00_7699;
BgL_auxz00_7701 = 
toupper(((unsigned char)'e')); 
BgL_auxz00_7699 = 
toupper(BgL_cz00_48); 
BgL__ortest_1050z00_1005 = 
(BgL_auxz00_7699==BgL_auxz00_7701); } 
if(BgL__ortest_1050z00_1005)
{ /* ./Llib/pregexp.scm 445 */
BgL_aux3854z00_3208 = 
BBOOL(BgL__ortest_1050z00_1005); }  else 
{ /* ./Llib/pregexp.scm 445 */
bool_t BgL_auxz00_7706;
{ /* ./Llib/pregexp.scm 445 */
unsigned char BgL_auxz00_7709;unsigned char BgL_auxz00_7707;
BgL_auxz00_7709 = 
toupper(((unsigned char)'f')); 
BgL_auxz00_7707 = 
toupper(BgL_cz00_48); 
BgL_auxz00_7706 = 
(BgL_auxz00_7707==BgL_auxz00_7709); } 
BgL_aux3854z00_3208 = 
BBOOL(BgL_auxz00_7706); } } } } } } }  else 
{ /* ./Llib/pregexp.scm 446 */
obj_t BgL_list2292z00_1006;
BgL_list2292z00_1006 = 
MAKE_PAIR(BgL_charzd2classzd2_49, BNIL); 
BgL_aux3854z00_3208 = 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol10402z00zz__pregexpz00, BgL_list2292z00_1006); } } } } } } } } } } } } } } } 
POP_TRACE(); 
return BgL_aux3854z00_3208;} } } } 
}



/* pregexp-list-ref */
obj_t BGl_pregexpzd2listzd2refz00zz__pregexpz00(obj_t BgL_sz00_50, obj_t BgL_iz00_51)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 448 */
{ /* ./Llib/pregexp.scm 452 */
obj_t BgL_symbol3859z00_3209;
BgL_symbol3859z00_3209 = BGl_symbol10414z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 452 */

PUSH_TRACE(BgL_symbol3859z00_3209); BUNSPEC; 
{ /* ./Llib/pregexp.scm 452 */
obj_t BgL_aux3858z00_3210;
{ 
obj_t BgL_sz00_1007;long BgL_kz00_1008;
BgL_sz00_1007 = BgL_sz00_50; 
BgL_kz00_1008 = ((long)0); 
BgL_loopz00_1009:
if(
NULLP(BgL_sz00_1007))
{ /* ./Llib/pregexp.scm 453 */
BgL_aux3858z00_3210 = BFALSE; }  else 
{ /* ./Llib/pregexp.scm 454 */
bool_t BgL_test2311z00_1011;
{ /* ./Llib/pregexp.scm 454 */
long BgL_n2z00_2416;
{ /* ./Llib/pregexp.scm 454 */
obj_t BgL_auxz00_7719;
if(
INTEGERP(BgL_iz00_51))
{ /* ./Llib/pregexp.scm 454 */
BgL_auxz00_7719 = BgL_iz00_51
; }  else 
{ /* ./Llib/pregexp.scm 454 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10414z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_51, BGl_string10330z00zz__pregexpz00, 
BINT(((long)17507))); 
exit( -1 );} 
BgL_n2z00_2416 = 
(long)CINT(BgL_auxz00_7719); } 
BgL_test2311z00_1011 = 
(BgL_kz00_1008==BgL_n2z00_2416); } 
if(BgL_test2311z00_1011)
{ /* ./Llib/pregexp.scm 454 */
{ /* ./Llib/pregexp.scm 454 */
obj_t BgL_pairz00_2417;
if(
PAIRP(BgL_sz00_1007))
{ /* ./Llib/pregexp.scm 454 */
BgL_pairz00_2417 = BgL_sz00_1007; }  else 
{ /* ./Llib/pregexp.scm 454 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10414z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_sz00_1007, BGl_string10330z00zz__pregexpz00, 
BINT(((long)17520))); 
exit( -1 );} 
BgL_aux3858z00_3210 = 
CAR(BgL_pairz00_2417); } }  else 
{ /* ./Llib/pregexp.scm 454 */
{ /* ./Llib/pregexp.scm 455 */
obj_t BgL_arg2314z00_1012;long BgL_arg2315z00_1013;
{ /* ./Llib/pregexp.scm 455 */
obj_t BgL_pairz00_2418;
if(
PAIRP(BgL_sz00_1007))
{ /* ./Llib/pregexp.scm 455 */
BgL_pairz00_2418 = BgL_sz00_1007; }  else 
{ /* ./Llib/pregexp.scm 455 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10414z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_sz00_1007, BGl_string10330z00zz__pregexpz00, 
BINT(((long)17553))); 
exit( -1 );} 
BgL_arg2314z00_1012 = 
CDR(BgL_pairz00_2418); } 
BgL_arg2315z00_1013 = 
(BgL_kz00_1008+((long)1)); 
{ 
long BgL_kz00_7742;obj_t BgL_sz00_7741;
BgL_sz00_7741 = BgL_arg2314z00_1012; 
BgL_kz00_7742 = BgL_arg2315z00_1013; 
BgL_kz00_1008 = BgL_kz00_7742; 
BgL_sz00_1007 = BgL_sz00_7741; 
goto BgL_loopz00_1009;} } } } } 
POP_TRACE(); 
return BgL_aux3858z00_3210;} } } } 
}



/* 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_3459;obj_t BgL_snz00_3458;
BgL_nz00_3459 = 
MAKE_CELL(BgL_nz00_56); 
{ /* ./Llib/pregexp.scm 469 */
obj_t BgL_cellvalz00_7744;
BgL_cellvalz00_7744 = 
BINT(BgL_snz00_54); 
BgL_snz00_3458 = 
MAKE_CELL(BgL_cellvalz00_7744); } 
{ /* ./Llib/pregexp.scm 469 */
obj_t BgL_symbol3863z00_3211;
BgL_symbol3863z00_3211 = BGl_symbol10415z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 469 */

PUSH_TRACE(BgL_symbol3863z00_3211); BUNSPEC; 
{ /* ./Llib/pregexp.scm 469 */
obj_t BgL_aux3862z00_3212;
{ /* ./Llib/pregexp.scm 469 */
obj_t BgL_casezd2sensitivezf3z21_1014;
BgL_casezd2sensitivezf3z21_1014 = 
MAKE_CELL(BTRUE); 
BgL_aux3862z00_3212 = 
BGl_subz00zz__pregexpz00(BgL_sz00_53, BgL_snz00_3458, BgL_casezd2sensitivezf3z21_1014, BgL_nz00_3459, BgL_rez00_52, BgL_iz00_57, BNIL, BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_proc10416z00zz__pregexpz00); } 
POP_TRACE(); 
return BgL_aux3862z00_3212;} } } } } 
}



/* loup-one-of-chars */
obj_t BGl_loupzd2onezd2ofzd2charszd2zz__pregexpz00(obj_t BgL_fkz00_3278, obj_t BgL_skz00_3277, obj_t BgL_backrefsz00_3276, obj_t BgL_iz00_3275, obj_t BgL_sz00_3274, obj_t BgL_snz00_3273, obj_t BgL_casezd2sensitivezf3z21_3272, obj_t BgL_nz00_3271, obj_t BgL_charsz00_1058)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 510 */
if(
NULLP(BgL_charsz00_1058))
{ /* ./Llib/pregexp.scm 511 */
obj_t BgL_funz00_3974;
if(
PROCEDUREP(BgL_fkz00_3278))
{ /* ./Llib/pregexp.scm 511 */
BgL_funz00_3974 = BgL_fkz00_3278; }  else 
{ /* ./Llib/pregexp.scm 511 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10417z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_3278, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19904))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3974, ((long)0)))
{ /* ./Llib/pregexp.scm 511 */
return 
PROCEDURE_ENTRY(BgL_funz00_3974)(BgL_fkz00_3278, BEOA);}  else 
{ /* ./Llib/pregexp.scm 511 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10418z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_3974, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19904))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ /* ./Llib/pregexp.scm 512 */
obj_t BgL_arg2405z00_1062;
{ /* ./Llib/pregexp.scm 512 */
obj_t BgL_pairz00_2486;
if(
PAIRP(BgL_charsz00_1058))
{ /* ./Llib/pregexp.scm 512 */
BgL_pairz00_2486 = BgL_charsz00_1058; }  else 
{ /* ./Llib/pregexp.scm 512 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10417z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_charsz00_1058, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19951))); 
exit( -1 );} 
BgL_arg2405z00_1062 = 
CAR(BgL_pairz00_2486); } 
{ /* ./Llib/pregexp.scm 514 */
obj_t BgL_zc3anonymousza32409za3llibzf2pregexpze2scmza3512ze3z93_3268;
{ 
int BgL_auxz00_7771;int BgL_auxz00_7769;
BgL_auxz00_7771 = 
(int)(((long)9)); 
BgL_auxz00_7769 = 
(int)(((long)0)); 
BgL_zc3anonymousza32409za3llibzf2pregexpze2scmza3512ze3z93_3268 = 
make_fx_procedure(BGl_zc3anonymousza32409za3Llibzf2pregexpze2scmza3512ze3z93zz__pregexpz00, BgL_auxz00_7769, BgL_auxz00_7771); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_7774;
BgL_auxz00_7774 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32409za3llibzf2pregexpze2scmza3512ze3z93_3268, BgL_auxz00_7774, BgL_nz00_3271); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_7777;
BgL_auxz00_7777 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32409za3llibzf2pregexpze2scmza3512ze3z93_3268, BgL_auxz00_7777, BgL_casezd2sensitivezf3z21_3272); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_7780;
BgL_auxz00_7780 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32409za3llibzf2pregexpze2scmza3512ze3z93_3268, BgL_auxz00_7780, BgL_snz00_3273); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_7783;
BgL_auxz00_7783 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32409za3llibzf2pregexpze2scmza3512ze3z93_3268, BgL_auxz00_7783, BgL_sz00_3274); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_7786;
BgL_auxz00_7786 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32409za3llibzf2pregexpze2scmza3512ze3z93_3268, BgL_auxz00_7786, BgL_iz00_3275); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_7789;
BgL_auxz00_7789 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32409za3llibzf2pregexpze2scmza3512ze3z93_3268, BgL_auxz00_7789, BgL_backrefsz00_3276); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_7792;
BgL_auxz00_7792 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32409za3llibzf2pregexpze2scmza3512ze3z93_3268, BgL_auxz00_7792, BgL_skz00_3277); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_7795;
BgL_auxz00_7795 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_zc3anonymousza32409za3llibzf2pregexpze2scmza3512ze3z93_3268, BgL_auxz00_7795, BgL_fkz00_3278); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_7798;
BgL_auxz00_7798 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_zc3anonymousza32409za3llibzf2pregexpze2scmza3512ze3z93_3268, BgL_auxz00_7798, BgL_charsz00_1058); } 
return 
BGl_subz00zz__pregexpz00(BgL_sz00_3274, BgL_snz00_3273, BgL_casezd2sensitivezf3z21_3272, BgL_nz00_3271, BgL_arg2405z00_1062, BgL_iz00_3275, BgL_backrefsz00_3276, BgL_skz00_3277, BgL_zc3anonymousza32409za3llibzf2pregexpze2scmza3512ze3z93_3268);} } } 
}



/* sub */
obj_t BGl_subz00zz__pregexpz00(obj_t BgL_sz00_3282, obj_t BgL_snz00_3281, obj_t BgL_casezd2sensitivezf3z21_3280, obj_t BgL_nz00_3279, obj_t BgL_rez00_1015, obj_t BgL_iz00_1016, obj_t BgL_backrefsz00_1017, obj_t BgL_skz00_1018, obj_t BgL_fkz00_1019)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 470 */
BGl_subz00zz__pregexpz00:
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_rez00_1015, BGl_keyword10347z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 472 */
{ /* ./Llib/pregexp.scm 474 */
bool_t BgL_test2327z00_1026;
{ /* ./Llib/pregexp.scm 474 */
long BgL_n1z00_2421;
{ /* ./Llib/pregexp.scm 474 */
obj_t BgL_auxz00_7804;
if(
INTEGERP(BgL_iz00_1016))
{ /* ./Llib/pregexp.scm 474 */
BgL_auxz00_7804 = BgL_iz00_1016
; }  else 
{ /* ./Llib/pregexp.scm 474 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1016, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18284))); 
exit( -1 );} 
BgL_n1z00_2421 = 
(long)CINT(BgL_auxz00_7804); } 
BgL_test2327z00_1026 = 
(BgL_n1z00_2421==((long)0)); } 
if(BgL_test2327z00_1026)
{ /* ./Llib/pregexp.scm 474 */
obj_t BgL_funz00_3983;
if(
PROCEDUREP(BgL_skz00_1018))
{ /* ./Llib/pregexp.scm 474 */
BgL_funz00_3983 = BgL_skz00_1018; }  else 
{ /* ./Llib/pregexp.scm 474 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_1018, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18289))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3983, ((long)2)))
{ /* ./Llib/pregexp.scm 474 */
return 
PROCEDURE_ENTRY(BgL_funz00_3983)(BgL_skz00_1018, BgL_iz00_1016, BgL_backrefsz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 474 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10421z00zz__pregexpz00, BgL_funz00_3983, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18289))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ /* ./Llib/pregexp.scm 474 */
obj_t BgL_funz00_3988;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 474 */
BgL_funz00_3988 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 474 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18305))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3988, ((long)0)))
{ /* ./Llib/pregexp.scm 474 */
return 
PROCEDURE_ENTRY(BgL_funz00_3988)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 474 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_3988, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18305))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } }  else 
{ /* ./Llib/pregexp.scm 472 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_rez00_1015, BGl_keyword10348z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 476 */
{ /* ./Llib/pregexp.scm 478 */
bool_t BgL_test2332z00_1028;
{ /* ./Llib/pregexp.scm 478 */
long BgL_n1z00_2423;long BgL_n2z00_2424;
{ /* ./Llib/pregexp.scm 478 */
obj_t BgL_auxz00_7839;
if(
INTEGERP(BgL_iz00_1016))
{ /* ./Llib/pregexp.scm 478 */
BgL_auxz00_7839 = BgL_iz00_1016
; }  else 
{ /* ./Llib/pregexp.scm 478 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1016, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18433))); 
exit( -1 );} 
BgL_n1z00_2423 = 
(long)CINT(BgL_auxz00_7839); } 
{ /* ./Llib/pregexp.scm 478 */
obj_t BgL_auxz00_7846;
{ /* ./Llib/pregexp.scm 478 */
obj_t BgL_aux7071z00_3993;
BgL_aux7071z00_3993 = 
CELL_REF(BgL_snz00_3281); 
if(
INTEGERP(BgL_aux7071z00_3993))
{ /* ./Llib/pregexp.scm 478 */
BgL_auxz00_7846 = BgL_aux7071z00_3993
; }  else 
{ /* ./Llib/pregexp.scm 478 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_aux7071z00_3993, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18436))); 
exit( -1 );} } 
BgL_n2z00_2424 = 
(long)CINT(BgL_auxz00_7846); } 
BgL_test2332z00_1028 = 
(BgL_n1z00_2423>=BgL_n2z00_2424); } 
if(BgL_test2332z00_1028)
{ /* ./Llib/pregexp.scm 478 */
obj_t BgL_funz00_3997;
if(
PROCEDUREP(BgL_skz00_1018))
{ /* ./Llib/pregexp.scm 478 */
BgL_funz00_3997 = BgL_skz00_1018; }  else 
{ /* ./Llib/pregexp.scm 478 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_1018, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18439))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3997, ((long)2)))
{ /* ./Llib/pregexp.scm 478 */
return 
PROCEDURE_ENTRY(BgL_funz00_3997)(BgL_skz00_1018, BgL_iz00_1016, BgL_backrefsz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 478 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10421z00zz__pregexpz00, BgL_funz00_3997, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18439))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ /* ./Llib/pregexp.scm 478 */
obj_t BgL_funz00_4002;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 478 */
BgL_funz00_4002 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 478 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18455))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4002, ((long)0)))
{ /* ./Llib/pregexp.scm 478 */
return 
PROCEDURE_ENTRY(BgL_funz00_4002)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 478 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4002, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18455))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } }  else 
{ /* ./Llib/pregexp.scm 476 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_rez00_1015, BGl_keyword10346z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 480 */
{ /* ./Llib/pregexp.scm 481 */
obj_t BgL_funz00_4007;
if(
PROCEDUREP(BgL_skz00_1018))
{ /* ./Llib/pregexp.scm 481 */
BgL_funz00_4007 = BgL_skz00_1018; }  else 
{ /* ./Llib/pregexp.scm 481 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_1018, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18526))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4007, ((long)2)))
{ /* ./Llib/pregexp.scm 481 */
return 
PROCEDURE_ENTRY(BgL_funz00_4007)(BgL_skz00_1018, BgL_iz00_1016, BgL_backrefsz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 481 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10421z00zz__pregexpz00, BgL_funz00_4007, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18526))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } }  else 
{ /* ./Llib/pregexp.scm 480 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_rez00_1015, BGl_keyword10355z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 482 */
{ /* ./Llib/pregexp.scm 483 */
bool_t BgL_test2339z00_1031;
{ /* ./Llib/pregexp.scm 483 */
obj_t BgL_auxz00_7895;
BgL_auxz00_7895 = 
BGl_pregexpzd2atzd2wordzd2boundaryzf3z21zz__pregexpz00(BgL_sz00_3282, BgL_iz00_1016, 
CELL_REF(BgL_nz00_3279)); 
BgL_test2339z00_1031 = 
CBOOL(BgL_auxz00_7895); } 
if(BgL_test2339z00_1031)
{ /* ./Llib/pregexp.scm 484 */
obj_t BgL_funz00_4012;
if(
PROCEDUREP(BgL_skz00_1018))
{ /* ./Llib/pregexp.scm 484 */
BgL_funz00_4012 = BgL_skz00_1018; }  else 
{ /* ./Llib/pregexp.scm 484 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_1018, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18648))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4012, ((long)2)))
{ /* ./Llib/pregexp.scm 484 */
return 
PROCEDURE_ENTRY(BgL_funz00_4012)(BgL_skz00_1018, BgL_iz00_1016, BgL_backrefsz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 484 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10421z00zz__pregexpz00, BgL_funz00_4012, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18648))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ /* ./Llib/pregexp.scm 485 */
obj_t BgL_funz00_4017;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 485 */
BgL_funz00_4017 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 485 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18683))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4017, ((long)0)))
{ /* ./Llib/pregexp.scm 485 */
return 
PROCEDURE_ENTRY(BgL_funz00_4017)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 485 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4017, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18683))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } }  else 
{ /* ./Llib/pregexp.scm 482 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_rez00_1015, BGl_keyword10356z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 486 */
{ /* ./Llib/pregexp.scm 487 */
bool_t BgL_test2344z00_1033;
{ /* ./Llib/pregexp.scm 487 */
obj_t BgL_auxz00_7925;
BgL_auxz00_7925 = 
BGl_pregexpzd2atzd2wordzd2boundaryzf3z21zz__pregexpz00(BgL_sz00_3282, BgL_iz00_1016, 
CELL_REF(BgL_nz00_3279)); 
BgL_test2344z00_1033 = 
CBOOL(BgL_auxz00_7925); } 
if(BgL_test2344z00_1033)
{ /* ./Llib/pregexp.scm 488 */
obj_t BgL_funz00_4022;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 488 */
BgL_funz00_4022 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 488 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18799))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4022, ((long)0)))
{ /* ./Llib/pregexp.scm 488 */
return 
PROCEDURE_ENTRY(BgL_funz00_4022)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 488 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4022, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18799))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ /* ./Llib/pregexp.scm 489 */
obj_t BgL_funz00_4027;
if(
PROCEDUREP(BgL_skz00_1018))
{ /* ./Llib/pregexp.scm 489 */
BgL_funz00_4027 = BgL_skz00_1018; }  else 
{ /* ./Llib/pregexp.scm 489 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_1018, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18823))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4027, ((long)2)))
{ /* ./Llib/pregexp.scm 489 */
return 
PROCEDURE_ENTRY(BgL_funz00_4027)(BgL_skz00_1018, BgL_iz00_1016, BgL_backrefsz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 489 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10421z00zz__pregexpz00, BgL_funz00_4027, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18823))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } }  else 
{ /* ./Llib/pregexp.scm 490 */
bool_t BgL_test2348z00_1034;
if(
CHARP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 490 */
long BgL_n1z00_2426;long BgL_n2z00_2427;
{ /* ./Llib/pregexp.scm 490 */
obj_t BgL_auxz00_7955;
if(
INTEGERP(BgL_iz00_1016))
{ /* ./Llib/pregexp.scm 490 */
BgL_auxz00_7955 = BgL_iz00_1016
; }  else 
{ /* ./Llib/pregexp.scm 490 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1016, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18872))); 
exit( -1 );} 
BgL_n1z00_2426 = 
(long)CINT(BgL_auxz00_7955); } 
{ /* ./Llib/pregexp.scm 490 */
obj_t BgL_auxz00_7962;
{ /* ./Llib/pregexp.scm 490 */
obj_t BgL_aux7214z00_4032;
BgL_aux7214z00_4032 = 
CELL_REF(BgL_nz00_3279); 
if(
INTEGERP(BgL_aux7214z00_4032))
{ /* ./Llib/pregexp.scm 490 */
BgL_auxz00_7962 = BgL_aux7214z00_4032
; }  else 
{ /* ./Llib/pregexp.scm 490 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_aux7214z00_4032, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18872))); 
exit( -1 );} } 
BgL_n2z00_2427 = 
(long)CINT(BgL_auxz00_7962); } 
BgL_test2348z00_1034 = 
(BgL_n1z00_2426<BgL_n2z00_2427); }  else 
{ /* ./Llib/pregexp.scm 490 */
BgL_test2348z00_1034 = ((bool_t)0); } 
if(BgL_test2348z00_1034)
{ /* ./Llib/pregexp.scm 490 */
{ /* ./Llib/pregexp.scm 491 */
bool_t BgL_test2349z00_1035;
{ /* ./Llib/pregexp.scm 491 */
obj_t BgL_fun2357z00_1037;
{ /* ./Llib/pregexp.scm 491 */
bool_t BgL_testz00_7971;
{ /* ./Llib/pregexp.scm 491 */
obj_t BgL_auxz00_7972;
BgL_auxz00_7972 = 
CELL_REF(BgL_casezd2sensitivezf3z21_3280); 
BgL_testz00_7971 = 
CBOOL(BgL_auxz00_7972); } 
if(BgL_testz00_7971)
{ /* ./Llib/pregexp.scm 491 */
BgL_fun2357z00_1037 = BGl_charzd3zf3zd2envzf2zz__r4_characters_6_6z00; }  else 
{ /* ./Llib/pregexp.scm 491 */
BgL_fun2357z00_1037 = BGl_charzd2cizd3zf3zd2envz20zz__r4_characters_6_6z00; } } 
{ /* ./Llib/pregexp.scm 492 */
unsigned char BgL_arg2356z00_1038;
{ /* ./Llib/pregexp.scm 492 */
unsigned char BgL_res3756z00_2436;
{ /* ./Llib/pregexp.scm 492 */
obj_t BgL_stringz00_2428;int BgL_kz00_2429;
if(
STRINGP(BgL_sz00_3282))
{ /* ./Llib/pregexp.scm 492 */
BgL_stringz00_2428 = BgL_sz00_3282; }  else 
{ /* ./Llib/pregexp.scm 492 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_sz00_3282, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18959))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 492 */
obj_t BgL_auxz00_7979;
if(
INTEGERP(BgL_iz00_1016))
{ /* ./Llib/pregexp.scm 492 */
BgL_auxz00_7979 = BgL_iz00_1016
; }  else 
{ /* ./Llib/pregexp.scm 492 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_1016, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18959))); 
exit( -1 );} 
BgL_kz00_2429 = 
CINT(BgL_auxz00_7979); } 
{ /* ./Llib/pregexp.scm 492 */
bool_t BgL_testz00_7986;
{ /* ./Llib/pregexp.scm 492 */
int BgL_auxz00_7987;
BgL_auxz00_7987 = 
STRING_LENGTH(BgL_stringz00_2428); 
BgL_testz00_7986 = 
BOUND_CHECK(BgL_kz00_2429, BgL_auxz00_7987); } 
if(BgL_testz00_7986)
{ /* ./Llib/pregexp.scm 492 */
BgL_res3756z00_2436 = 
STRING_REF(BgL_stringz00_2428, BgL_kz00_2429); }  else 
{ /* ./Llib/pregexp.scm 492 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2429), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 492 */
obj_t BgL_auxz00_7993;
{ /* ./Llib/pregexp.scm 492 */
obj_t BgL_aux7255z00_4038;
BgL_aux7255z00_4038 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18959))); 
if(
CHARP(BgL_aux7255z00_4038))
{ /* ./Llib/pregexp.scm 492 */
BgL_auxz00_7993 = BgL_aux7255z00_4038
; }  else 
{ /* ./Llib/pregexp.scm 492 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux7255z00_4038, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18959))); 
exit( -1 );} } 
BgL_res3756z00_2436 = 
(unsigned char)CCHAR(BgL_auxz00_7993); } } } } 
BgL_arg2356z00_1038 = BgL_res3756z00_2436; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fun2357z00_1037, ((long)2)))
{ /* ./Llib/pregexp.scm 491 */
obj_t BgL_auxz00_8004;
BgL_auxz00_8004 = 
PROCEDURE_ENTRY(BgL_fun2357z00_1037)(BgL_fun2357z00_1037, 
BCHAR(BgL_arg2356z00_1038), BgL_rez00_1015, BEOA); 
BgL_test2349z00_1035 = 
CBOOL(BgL_auxz00_8004); }  else 
{ /* ./Llib/pregexp.scm 491 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10425z00zz__pregexpz00, BgL_fun2357z00_1037, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18900))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } 
if(BgL_test2349z00_1035)
{ /* ./Llib/pregexp.scm 493 */
long BgL_arg2351z00_1036;
{ /* ./Llib/pregexp.scm 493 */
long BgL_za71za7_2437;
{ /* ./Llib/pregexp.scm 493 */
obj_t BgL_auxz00_8013;
if(
INTEGERP(BgL_iz00_1016))
{ /* ./Llib/pregexp.scm 493 */
BgL_auxz00_8013 = BgL_iz00_1016
; }  else 
{ /* ./Llib/pregexp.scm 493 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1016, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19003))); 
exit( -1 );} 
BgL_za71za7_2437 = 
(long)CINT(BgL_auxz00_8013); } 
BgL_arg2351z00_1036 = 
(BgL_za71za7_2437+((long)1)); } 
{ /* ./Llib/pregexp.scm 493 */
obj_t BgL_funz00_4047;
if(
PROCEDUREP(BgL_skz00_1018))
{ /* ./Llib/pregexp.scm 493 */
BgL_funz00_4047 = BgL_skz00_1018; }  else 
{ /* ./Llib/pregexp.scm 493 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_1018, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18999))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4047, ((long)2)))
{ /* ./Llib/pregexp.scm 493 */
return 
PROCEDURE_ENTRY(BgL_funz00_4047)(BgL_skz00_1018, 
BINT(BgL_arg2351z00_1036), BgL_backrefsz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 493 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10429z00zz__pregexpz00, BgL_funz00_4047, BGl_string10330z00zz__pregexpz00, 
BINT(((long)18999))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } }  else 
{ /* ./Llib/pregexp.scm 493 */
obj_t BgL_funz00_4052;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 493 */
BgL_funz00_4052 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 493 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19021))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4052, ((long)0)))
{ /* ./Llib/pregexp.scm 493 */
return 
PROCEDURE_ENTRY(BgL_funz00_4052)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 493 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4052, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19021))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } }  else 
{ /* ./Llib/pregexp.scm 494 */
bool_t BgL_test2360z00_1039;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 494 */
BgL_test2360z00_1039 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 494 */
long BgL_n1z00_2440;long BgL_n2z00_2441;
{ /* ./Llib/pregexp.scm 494 */
obj_t BgL_auxz00_8048;
if(
INTEGERP(BgL_iz00_1016))
{ /* ./Llib/pregexp.scm 494 */
BgL_auxz00_8048 = BgL_iz00_1016
; }  else 
{ /* ./Llib/pregexp.scm 494 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1016, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19065))); 
exit( -1 );} 
BgL_n1z00_2440 = 
(long)CINT(BgL_auxz00_8048); } 
{ /* ./Llib/pregexp.scm 494 */
obj_t BgL_auxz00_8055;
{ /* ./Llib/pregexp.scm 494 */
obj_t BgL_aux7332z00_4057;
BgL_aux7332z00_4057 = 
CELL_REF(BgL_nz00_3279); 
if(
INTEGERP(BgL_aux7332z00_4057))
{ /* ./Llib/pregexp.scm 494 */
BgL_auxz00_8055 = BgL_aux7332z00_4057
; }  else 
{ /* ./Llib/pregexp.scm 494 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_aux7332z00_4057, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19065))); 
exit( -1 );} } 
BgL_n2z00_2441 = 
(long)CINT(BgL_auxz00_8055); } 
BgL_test2360z00_1039 = 
(BgL_n1z00_2440<BgL_n2z00_2441); } 
if(BgL_test2360z00_1039)
{ /* ./Llib/pregexp.scm 494 */
{ /* ./Llib/pregexp.scm 495 */
bool_t BgL_test2361z00_1040;
{ /* ./Llib/pregexp.scm 496 */
unsigned char BgL_arg2368z00_1042;
{ /* ./Llib/pregexp.scm 496 */
unsigned char BgL_res3757z00_2450;
{ /* ./Llib/pregexp.scm 496 */
obj_t BgL_stringz00_2442;int BgL_kz00_2443;
if(
STRINGP(BgL_sz00_3282))
{ /* ./Llib/pregexp.scm 496 */
BgL_stringz00_2442 = BgL_sz00_3282; }  else 
{ /* ./Llib/pregexp.scm 496 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_sz00_3282, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19147))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 496 */
obj_t BgL_auxz00_8069;
if(
INTEGERP(BgL_iz00_1016))
{ /* ./Llib/pregexp.scm 496 */
BgL_auxz00_8069 = BgL_iz00_1016
; }  else 
{ /* ./Llib/pregexp.scm 496 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_1016, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19147))); 
exit( -1 );} 
BgL_kz00_2443 = 
CINT(BgL_auxz00_8069); } 
{ /* ./Llib/pregexp.scm 496 */
bool_t BgL_testz00_8076;
{ /* ./Llib/pregexp.scm 496 */
int BgL_auxz00_8077;
BgL_auxz00_8077 = 
STRING_LENGTH(BgL_stringz00_2442); 
BgL_testz00_8076 = 
BOUND_CHECK(BgL_kz00_2443, BgL_auxz00_8077); } 
if(BgL_testz00_8076)
{ /* ./Llib/pregexp.scm 496 */
BgL_res3757z00_2450 = 
STRING_REF(BgL_stringz00_2442, BgL_kz00_2443); }  else 
{ /* ./Llib/pregexp.scm 496 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2443), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 496 */
obj_t BgL_auxz00_8083;
{ /* ./Llib/pregexp.scm 496 */
obj_t BgL_aux7372z00_4063;
BgL_aux7372z00_4063 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19147))); 
if(
CHARP(BgL_aux7372z00_4063))
{ /* ./Llib/pregexp.scm 496 */
BgL_auxz00_8083 = BgL_aux7372z00_4063
; }  else 
{ /* ./Llib/pregexp.scm 496 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux7372z00_4063, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19147))); 
exit( -1 );} } 
BgL_res3757z00_2450 = 
(unsigned char)CCHAR(BgL_auxz00_8083); } } } } 
BgL_arg2368z00_1042 = BgL_res3757z00_2450; } 
{ /* ./Llib/pregexp.scm 495 */
obj_t BgL_auxz00_8092;
BgL_auxz00_8092 = 
BGl_pregexpzd2checkzd2ifzd2inzd2charzd2classzf3z21zz__pregexpz00(BgL_arg2368z00_1042, BgL_rez00_1015); 
BgL_test2361z00_1040 = 
CBOOL(BgL_auxz00_8092); } } 
if(BgL_test2361z00_1040)
{ /* ./Llib/pregexp.scm 497 */
long BgL_arg2363z00_1041;
{ /* ./Llib/pregexp.scm 497 */
long BgL_za71za7_2451;
{ /* ./Llib/pregexp.scm 497 */
obj_t BgL_auxz00_8096;
if(
INTEGERP(BgL_iz00_1016))
{ /* ./Llib/pregexp.scm 497 */
BgL_auxz00_8096 = BgL_iz00_1016
; }  else 
{ /* ./Llib/pregexp.scm 497 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1016, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19191))); 
exit( -1 );} 
BgL_za71za7_2451 = 
(long)CINT(BgL_auxz00_8096); } 
BgL_arg2363z00_1041 = 
(BgL_za71za7_2451+((long)1)); } 
{ /* ./Llib/pregexp.scm 497 */
obj_t BgL_funz00_4069;
if(
PROCEDUREP(BgL_skz00_1018))
{ /* ./Llib/pregexp.scm 497 */
BgL_funz00_4069 = BgL_skz00_1018; }  else 
{ /* ./Llib/pregexp.scm 497 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_1018, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19187))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4069, ((long)2)))
{ /* ./Llib/pregexp.scm 497 */
return 
PROCEDURE_ENTRY(BgL_funz00_4069)(BgL_skz00_1018, 
BINT(BgL_arg2363z00_1041), BgL_backrefsz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 497 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10431z00zz__pregexpz00, BgL_funz00_4069, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19187))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } }  else 
{ /* ./Llib/pregexp.scm 497 */
obj_t BgL_funz00_4074;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 497 */
BgL_funz00_4074 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 497 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19209))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4074, ((long)0)))
{ /* ./Llib/pregexp.scm 497 */
return 
PROCEDURE_ENTRY(BgL_funz00_4074)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 497 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4074, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19209))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } }  else 
{ /* ./Llib/pregexp.scm 498 */
bool_t BgL_test2371z00_1043;
{ /* ./Llib/pregexp.scm 498 */
bool_t BgL_test2696z00_1251;
BgL_test2696z00_1251 = 
PAIRP(BgL_rez00_1015); 
if(BgL_test2696z00_1251)
{ /* ./Llib/pregexp.scm 498 */
bool_t BgL_test2697z00_1252;
{ /* ./Llib/pregexp.scm 498 */
obj_t BgL_arg2700z00_1253;obj_t BgL_arg2701z00_1254;
{ /* ./Llib/pregexp.scm 498 */
obj_t BgL_pairz00_2454;
if(BgL_test2696z00_1251)
{ /* ./Llib/pregexp.scm 498 */
BgL_pairz00_2454 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 498 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19259))); 
exit( -1 );} 
BgL_arg2700z00_1253 = 
CAR(BgL_pairz00_2454); } 
BgL_arg2701z00_1254 = BGl_keyword10392z00zz__pregexpz00; 
BgL_test2697z00_1252 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_arg2700z00_1253, BgL_arg2701z00_1254); } 
if(BgL_test2697z00_1252)
{ /* ./Llib/pregexp.scm 498 */
long BgL_n1z00_2455;long BgL_n2z00_2456;
{ /* ./Llib/pregexp.scm 498 */
obj_t BgL_auxz00_8138;
if(
INTEGERP(BgL_iz00_1016))
{ /* ./Llib/pregexp.scm 498 */
BgL_auxz00_8138 = BgL_iz00_1016
; }  else 
{ /* ./Llib/pregexp.scm 498 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1016, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19276))); 
exit( -1 );} 
BgL_n1z00_2455 = 
(long)CINT(BgL_auxz00_8138); } 
{ /* ./Llib/pregexp.scm 498 */
obj_t BgL_auxz00_8145;
{ /* ./Llib/pregexp.scm 498 */
obj_t BgL_aux7451z00_4081;
BgL_aux7451z00_4081 = 
CELL_REF(BgL_nz00_3279); 
if(
INTEGERP(BgL_aux7451z00_4081))
{ /* ./Llib/pregexp.scm 498 */
BgL_auxz00_8145 = BgL_aux7451z00_4081
; }  else 
{ /* ./Llib/pregexp.scm 498 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_aux7451z00_4081, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19276))); 
exit( -1 );} } 
BgL_n2z00_2456 = 
(long)CINT(BgL_auxz00_8145); } 
BgL_test2371z00_1043 = 
(BgL_n1z00_2455<BgL_n2z00_2456); }  else 
{ /* ./Llib/pregexp.scm 498 */
BgL_test2371z00_1043 = ((bool_t)0); } }  else 
{ /* ./Llib/pregexp.scm 498 */
BgL_test2371z00_1043 = ((bool_t)0); } } 
if(BgL_test2371z00_1043)
{ /* ./Llib/pregexp.scm 498 */
{ /* ./Llib/pregexp.scm 499 */
unsigned char BgL_cz00_1044;
{ /* ./Llib/pregexp.scm 499 */
unsigned char BgL_res3758z00_2465;
{ /* ./Llib/pregexp.scm 499 */
obj_t BgL_stringz00_2457;int BgL_kz00_2458;
if(
STRINGP(BgL_sz00_3282))
{ /* ./Llib/pregexp.scm 499 */
BgL_stringz00_2457 = BgL_sz00_3282; }  else 
{ /* ./Llib/pregexp.scm 499 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_sz00_3282, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19309))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 499 */
obj_t BgL_auxz00_8159;
if(
INTEGERP(BgL_iz00_1016))
{ /* ./Llib/pregexp.scm 499 */
BgL_auxz00_8159 = BgL_iz00_1016
; }  else 
{ /* ./Llib/pregexp.scm 499 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_1016, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19309))); 
exit( -1 );} 
BgL_kz00_2458 = 
CINT(BgL_auxz00_8159); } 
{ /* ./Llib/pregexp.scm 499 */
bool_t BgL_testz00_8166;
{ /* ./Llib/pregexp.scm 499 */
int BgL_auxz00_8167;
BgL_auxz00_8167 = 
STRING_LENGTH(BgL_stringz00_2457); 
BgL_testz00_8166 = 
BOUND_CHECK(BgL_kz00_2458, BgL_auxz00_8167); } 
if(BgL_testz00_8166)
{ /* ./Llib/pregexp.scm 499 */
BgL_res3758z00_2465 = 
STRING_REF(BgL_stringz00_2457, BgL_kz00_2458); }  else 
{ /* ./Llib/pregexp.scm 499 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2458), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 499 */
obj_t BgL_auxz00_8173;
{ /* ./Llib/pregexp.scm 499 */
obj_t BgL_aux7491z00_4087;
BgL_aux7491z00_4087 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19309))); 
if(
CHARP(BgL_aux7491z00_4087))
{ /* ./Llib/pregexp.scm 499 */
BgL_auxz00_8173 = BgL_aux7491z00_4087
; }  else 
{ /* ./Llib/pregexp.scm 499 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux7491z00_4087, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19309))); 
exit( -1 );} } 
BgL_res3758z00_2465 = 
(unsigned char)CCHAR(BgL_auxz00_8173); } } } } 
BgL_cz00_1044 = BgL_res3758z00_2465; } 
{ /* ./Llib/pregexp.scm 500 */
bool_t BgL_test2372z00_1045;
{ /* ./Llib/pregexp.scm 500 */
obj_t BgL_czc3zc3_1047;
{ /* ./Llib/pregexp.scm 500 */
bool_t BgL_testz00_8182;
{ /* ./Llib/pregexp.scm 500 */
obj_t BgL_auxz00_8183;
BgL_auxz00_8183 = 
CELL_REF(BgL_casezd2sensitivezf3z21_3280); 
BgL_testz00_8182 = 
CBOOL(BgL_auxz00_8183); } 
if(BgL_testz00_8182)
{ /* ./Llib/pregexp.scm 500 */
BgL_czc3zc3_1047 = BGl_charzc3zd3zf3zd2envz31zz__r4_characters_6_6z00; }  else 
{ /* ./Llib/pregexp.scm 500 */
BgL_czc3zc3_1047 = BGl_charzd2cizc3zd3zf3zd2envze3zz__r4_characters_6_6z00; } } 
{ /* ./Llib/pregexp.scm 501 */
obj_t BgL__andtest_1051z00_1048;
{ /* ./Llib/pregexp.scm 501 */
obj_t BgL_arg2383z00_1050;
{ /* ./Llib/pregexp.scm 501 */
obj_t BgL_pairz00_2466;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 501 */
BgL_pairz00_2466 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 501 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19440))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 501 */
obj_t BgL_arg3354z00_2467;
BgL_arg3354z00_2467 = 
CDR(BgL_pairz00_2466); 
{ /* ./Llib/pregexp.scm 501 */
obj_t BgL_pairz00_2469;
if(
PAIRP(BgL_arg3354z00_2467))
{ /* ./Llib/pregexp.scm 501 */
BgL_pairz00_2469 = BgL_arg3354z00_2467; }  else 
{ /* ./Llib/pregexp.scm 501 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2467, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19433))); 
exit( -1 );} 
BgL_arg2383z00_1050 = 
CAR(BgL_pairz00_2469); } } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_czc3zc3_1047, ((long)2)))
{ /* ./Llib/pregexp.scm 501 */
BgL__andtest_1051z00_1048 = 
PROCEDURE_ENTRY(BgL_czc3zc3_1047)(BgL_czc3zc3_1047, BgL_arg2383z00_1050, 
BCHAR(BgL_cz00_1044), BEOA); }  else 
{ /* ./Llib/pregexp.scm 501 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10433z00zz__pregexpz00, BgL_czc3zc3_1047, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19429))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } 
if(
CBOOL(BgL__andtest_1051z00_1048))
{ /* ./Llib/pregexp.scm 502 */
obj_t BgL_arg2379z00_1049;
{ /* ./Llib/pregexp.scm 502 */
obj_t BgL_pairz00_2470;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 502 */
BgL_pairz00_2470 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 502 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19488))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 502 */
obj_t BgL_arg3317z00_2471;
{ /* ./Llib/pregexp.scm 502 */
obj_t BgL_arg3320z00_2472;
BgL_arg3320z00_2472 = 
CDR(BgL_pairz00_2470); 
{ /* ./Llib/pregexp.scm 502 */
obj_t BgL_pairz00_2474;
if(
PAIRP(BgL_arg3320z00_2472))
{ /* ./Llib/pregexp.scm 502 */
BgL_pairz00_2474 = BgL_arg3320z00_2472; }  else 
{ /* ./Llib/pregexp.scm 502 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3320z00_2472, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19480))); 
exit( -1 );} 
BgL_arg3317z00_2471 = 
CDR(BgL_pairz00_2474); } } 
{ /* ./Llib/pregexp.scm 502 */
obj_t BgL_pairz00_2475;
if(
PAIRP(BgL_arg3317z00_2471))
{ /* ./Llib/pregexp.scm 502 */
BgL_pairz00_2475 = BgL_arg3317z00_2471; }  else 
{ /* ./Llib/pregexp.scm 502 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3317z00_2471, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19480))); 
exit( -1 );} 
BgL_arg2379z00_1049 = 
CAR(BgL_pairz00_2475); } } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_czc3zc3_1047, ((long)2)))
{ /* ./Llib/pregexp.scm 502 */
obj_t BgL_auxz00_8227;
BgL_auxz00_8227 = 
PROCEDURE_ENTRY(BgL_czc3zc3_1047)(BgL_czc3zc3_1047, 
BCHAR(BgL_cz00_1044), BgL_arg2379z00_1049, BEOA); 
BgL_test2372z00_1045 = 
CBOOL(BgL_auxz00_8227); }  else 
{ /* ./Llib/pregexp.scm 502 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10437z00zz__pregexpz00, BgL_czc3zc3_1047, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19474))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ /* ./Llib/pregexp.scm 501 */
BgL_test2372z00_1045 = ((bool_t)0); } } } 
if(BgL_test2372z00_1045)
{ /* ./Llib/pregexp.scm 503 */
long BgL_arg2374z00_1046;
{ /* ./Llib/pregexp.scm 503 */
long BgL_za71za7_2476;
{ /* ./Llib/pregexp.scm 503 */
obj_t BgL_auxz00_8236;
if(
INTEGERP(BgL_iz00_1016))
{ /* ./Llib/pregexp.scm 503 */
BgL_auxz00_8236 = BgL_iz00_1016
; }  else 
{ /* ./Llib/pregexp.scm 503 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1016, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19519))); 
exit( -1 );} 
BgL_za71za7_2476 = 
(long)CINT(BgL_auxz00_8236); } 
BgL_arg2374z00_1046 = 
(BgL_za71za7_2476+((long)1)); } 
{ /* ./Llib/pregexp.scm 503 */
obj_t BgL_funz00_4109;
if(
PROCEDUREP(BgL_skz00_1018))
{ /* ./Llib/pregexp.scm 503 */
BgL_funz00_4109 = BgL_skz00_1018; }  else 
{ /* ./Llib/pregexp.scm 503 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_1018, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19515))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4109, ((long)2)))
{ /* ./Llib/pregexp.scm 503 */
return 
PROCEDURE_ENTRY(BgL_funz00_4109)(BgL_skz00_1018, 
BINT(BgL_arg2374z00_1046), BgL_backrefsz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 503 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10439z00zz__pregexpz00, BgL_funz00_4109, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19515))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } }  else 
{ /* ./Llib/pregexp.scm 503 */
obj_t BgL_funz00_4114;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 503 */
BgL_funz00_4114 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 503 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19537))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4114, ((long)0)))
{ /* ./Llib/pregexp.scm 503 */
return 
PROCEDURE_ENTRY(BgL_funz00_4114)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 503 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4114, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19537))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } } }  else 
{ /* ./Llib/pregexp.scm 504 */
bool_t BgL_test2387z00_1051;
BgL_test2387z00_1051 = 
PAIRP(BgL_rez00_1015); 
if(BgL_test2387z00_1051)
{ /* ./Llib/pregexp.scm 504 */
{ /* ./Llib/pregexp.scm 505 */
obj_t BgL_casezd2valuezd2_1052;
{ /* ./Llib/pregexp.scm 505 */
obj_t BgL_pairz00_2479;
if(BgL_test2387z00_1051)
{ /* ./Llib/pregexp.scm 505 */
BgL_pairz00_2479 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 505 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19598))); 
exit( -1 );} 
BgL_casezd2valuezd2_1052 = 
CAR(BgL_pairz00_2479); } 
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1052, BGl_keyword10392z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 507 */
bool_t BgL_test2389z00_1054;
{ /* ./Llib/pregexp.scm 507 */
long BgL_n1z00_2480;long BgL_n2z00_2481;
{ /* ./Llib/pregexp.scm 507 */
obj_t BgL_auxz00_8278;
if(
INTEGERP(BgL_iz00_1016))
{ /* ./Llib/pregexp.scm 507 */
BgL_auxz00_8278 = BgL_iz00_1016
; }  else 
{ /* ./Llib/pregexp.scm 507 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1016, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19659))); 
exit( -1 );} 
BgL_n1z00_2480 = 
(long)CINT(BgL_auxz00_8278); } 
{ /* ./Llib/pregexp.scm 507 */
obj_t BgL_auxz00_8285;
{ /* ./Llib/pregexp.scm 507 */
obj_t BgL_aux7638z00_4121;
BgL_aux7638z00_4121 = 
CELL_REF(BgL_nz00_3279); 
if(
INTEGERP(BgL_aux7638z00_4121))
{ /* ./Llib/pregexp.scm 507 */
BgL_auxz00_8285 = BgL_aux7638z00_4121
; }  else 
{ /* ./Llib/pregexp.scm 507 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_aux7638z00_4121, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19661))); 
exit( -1 );} } 
BgL_n2z00_2481 = 
(long)CINT(BgL_auxz00_8285); } 
BgL_test2389z00_1054 = 
(BgL_n1z00_2480>=BgL_n2z00_2481); } 
if(BgL_test2389z00_1054)
{ /* ./Llib/pregexp.scm 507 */
obj_t BgL_funz00_4125;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 507 */
BgL_funz00_4125 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 507 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19664))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4125, ((long)0)))
{ /* ./Llib/pregexp.scm 507 */
return 
PROCEDURE_ENTRY(BgL_funz00_4125)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 507 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4125, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19664))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ /* ./Llib/pregexp.scm 507 */
obj_t BgL_list2392z00_1055;
BgL_list2392z00_1055 = 
MAKE_PAIR(BGl_keyword10392z00zz__pregexpz00, BNIL); 
return 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol10415z00zz__pregexpz00, BgL_list2392z00_1055);} }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1052, BGl_keyword10390z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 509 */
bool_t BgL_test2396z00_1057;
{ /* ./Llib/pregexp.scm 509 */
long BgL_n1z00_2482;long BgL_n2z00_2483;
{ /* ./Llib/pregexp.scm 509 */
obj_t BgL_auxz00_8310;
if(
INTEGERP(BgL_iz00_1016))
{ /* ./Llib/pregexp.scm 509 */
BgL_auxz00_8310 = BgL_iz00_1016
; }  else 
{ /* ./Llib/pregexp.scm 509 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1016, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19788))); 
exit( -1 );} 
BgL_n1z00_2482 = 
(long)CINT(BgL_auxz00_8310); } 
{ /* ./Llib/pregexp.scm 509 */
obj_t BgL_auxz00_8317;
{ /* ./Llib/pregexp.scm 509 */
obj_t BgL_aux7677z00_4130;
BgL_aux7677z00_4130 = 
CELL_REF(BgL_nz00_3279); 
if(
INTEGERP(BgL_aux7677z00_4130))
{ /* ./Llib/pregexp.scm 509 */
BgL_auxz00_8317 = BgL_aux7677z00_4130
; }  else 
{ /* ./Llib/pregexp.scm 509 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_aux7677z00_4130, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19790))); 
exit( -1 );} } 
BgL_n2z00_2483 = 
(long)CINT(BgL_auxz00_8317); } 
BgL_test2396z00_1057 = 
(BgL_n1z00_2482>=BgL_n2z00_2483); } 
if(BgL_test2396z00_1057)
{ /* ./Llib/pregexp.scm 509 */
obj_t BgL_funz00_4134;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 509 */
BgL_funz00_4134 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 509 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19793))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4134, ((long)0)))
{ /* ./Llib/pregexp.scm 509 */
return 
PROCEDURE_ENTRY(BgL_funz00_4134)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 509 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4134, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19793))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ /* ./Llib/pregexp.scm 510 */
obj_t BgL_arg2399z00_1060;
{ /* ./Llib/pregexp.scm 510 */
obj_t BgL_pairz00_2484;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 510 */
BgL_pairz00_2484 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 510 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)19857))); 
exit( -1 );} 
BgL_arg2399z00_1060 = 
CDR(BgL_pairz00_2484); } 
return 
BGl_loupzd2onezd2ofzd2charszd2zz__pregexpz00(BgL_fkz00_1019, BgL_skz00_1018, BgL_backrefsz00_1017, BgL_iz00_1016, BgL_sz00_3282, BgL_snz00_3281, BgL_casezd2sensitivezf3z21_3280, BgL_nz00_3279, BgL_arg2399z00_1060);} }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1052, BGl_keyword10350z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 516 */
bool_t BgL_test2417z00_1068;
{ /* ./Llib/pregexp.scm 516 */
long BgL_n1z00_2489;long BgL_n2z00_2490;
{ /* ./Llib/pregexp.scm 516 */
obj_t BgL_auxz00_8347;
if(
INTEGERP(BgL_iz00_1016))
{ /* ./Llib/pregexp.scm 516 */
BgL_auxz00_8347 = BgL_iz00_1016
; }  else 
{ /* ./Llib/pregexp.scm 516 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1016, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20135))); 
exit( -1 );} 
BgL_n1z00_2489 = 
(long)CINT(BgL_auxz00_8347); } 
{ /* ./Llib/pregexp.scm 516 */
obj_t BgL_auxz00_8354;
{ /* ./Llib/pregexp.scm 516 */
obj_t BgL_aux7726z00_4141;
BgL_aux7726z00_4141 = 
CELL_REF(BgL_nz00_3279); 
if(
INTEGERP(BgL_aux7726z00_4141))
{ /* ./Llib/pregexp.scm 516 */
BgL_auxz00_8354 = BgL_aux7726z00_4141
; }  else 
{ /* ./Llib/pregexp.scm 516 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_aux7726z00_4141, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20137))); 
exit( -1 );} } 
BgL_n2z00_2490 = 
(long)CINT(BgL_auxz00_8354); } 
BgL_test2417z00_1068 = 
(BgL_n1z00_2489>=BgL_n2z00_2490); } 
if(BgL_test2417z00_1068)
{ /* ./Llib/pregexp.scm 516 */
obj_t BgL_funz00_4145;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 516 */
BgL_funz00_4145 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 516 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20140))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4145, ((long)0)))
{ /* ./Llib/pregexp.scm 516 */
return 
PROCEDURE_ENTRY(BgL_funz00_4145)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 516 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4145, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20140))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ /* ./Llib/pregexp.scm 517 */
obj_t BgL_arg2420z00_1069;
{ /* ./Llib/pregexp.scm 517 */
obj_t BgL_pairz00_2491;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 517 */
BgL_pairz00_2491 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 517 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20179))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 517 */
obj_t BgL_arg3354z00_2492;
BgL_arg3354z00_2492 = 
CDR(BgL_pairz00_2491); 
{ /* ./Llib/pregexp.scm 517 */
obj_t BgL_pairz00_2494;
if(
PAIRP(BgL_arg3354z00_2492))
{ /* ./Llib/pregexp.scm 517 */
BgL_pairz00_2494 = BgL_arg3354z00_2492; }  else 
{ /* ./Llib/pregexp.scm 517 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2492, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20172))); 
exit( -1 );} 
BgL_arg2420z00_1069 = 
CAR(BgL_pairz00_2494); } } } 
{ /* ./Llib/pregexp.scm 518 */
obj_t BgL_zc3anonymousza32425za3llibzf2pregexpze2scmza3517ze3z93_3243;obj_t BgL_zc3anonymousza32427za3llibzf2pregexpze2scmza3517ze3z93_3242;
{ 
int BgL_auxz00_8389;int BgL_auxz00_8387;
BgL_auxz00_8389 = 
(int)(((long)1)); 
BgL_auxz00_8387 = 
(int)(((long)2)); 
BgL_zc3anonymousza32425za3llibzf2pregexpze2scmza3517ze3z93_3243 = 
make_fx_procedure(BGl_zc3anonymousza32425za3Llibzf2pregexpze2scmza3517ze3z93zz__pregexpz00, BgL_auxz00_8387, BgL_auxz00_8389); } 
{ 
int BgL_auxz00_8394;int BgL_auxz00_8392;
BgL_auxz00_8394 = 
(int)(((long)3)); 
BgL_auxz00_8392 = 
(int)(((long)0)); 
BgL_zc3anonymousza32427za3llibzf2pregexpze2scmza3517ze3z93_3242 = 
make_fx_procedure(BGl_zc3anonymousza32427za3Llibzf2pregexpze2scmza3517ze3z93zz__pregexpz00, BgL_auxz00_8392, BgL_auxz00_8394); } 
{ /* ./Llib/pregexp.scm 518 */
int BgL_auxz00_8397;
BgL_auxz00_8397 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32425za3llibzf2pregexpze2scmza3517ze3z93_3243, BgL_auxz00_8397, BgL_fkz00_1019); } 
{ /* ./Llib/pregexp.scm 518 */
int BgL_auxz00_8400;
BgL_auxz00_8400 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32427za3llibzf2pregexpze2scmza3517ze3z93_3242, BgL_auxz00_8400, BgL_iz00_1016); } 
{ /* ./Llib/pregexp.scm 518 */
int BgL_auxz00_8403;
BgL_auxz00_8403 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32427za3llibzf2pregexpze2scmza3517ze3z93_3242, BgL_auxz00_8403, BgL_skz00_1018); } 
{ /* ./Llib/pregexp.scm 518 */
int BgL_auxz00_8406;
BgL_auxz00_8406 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32427za3llibzf2pregexpze2scmza3517ze3z93_3242, BgL_auxz00_8406, BgL_backrefsz00_1017); } 
{ 
obj_t BgL_fkz00_8411;obj_t BgL_skz00_8410;obj_t BgL_rez00_8409;
BgL_rez00_8409 = BgL_arg2420z00_1069; 
BgL_skz00_8410 = BgL_zc3anonymousza32425za3llibzf2pregexpze2scmza3517ze3z93_3243; 
BgL_fkz00_8411 = BgL_zc3anonymousza32427za3llibzf2pregexpze2scmza3517ze3z93_3242; 
BgL_fkz00_1019 = BgL_fkz00_8411; 
BgL_skz00_1018 = BgL_skz00_8410; 
BgL_rez00_1015 = BgL_rez00_8409; 
goto BGl_subz00zz__pregexpz00;} } } }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1052, BGl_keyword10338z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 521 */
obj_t BgL_arg2435z00_1084;
{ /* ./Llib/pregexp.scm 521 */
obj_t BgL_pairz00_2497;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 521 */
BgL_pairz00_2497 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 521 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20376))); 
exit( -1 );} 
BgL_arg2435z00_1084 = 
CDR(BgL_pairz00_2497); } 
return 
BGl_loupzd2seqzd2zz__pregexpz00(BgL_skz00_1018, BgL_fkz00_1019, BgL_sz00_3282, BgL_snz00_3281, BgL_casezd2sensitivezf3z21_3280, BgL_nz00_3279, BgL_arg2435z00_1084, BgL_iz00_1016, BgL_backrefsz00_1017);}  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1052, BGl_keyword10337z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 528 */
obj_t BgL_arg2453z00_1096;
{ /* ./Llib/pregexp.scm 528 */
obj_t BgL_pairz00_2541;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 528 */
BgL_pairz00_2541 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 528 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20721))); 
exit( -1 );} 
BgL_arg2453z00_1096 = 
CDR(BgL_pairz00_2541); } 
return 
BGl_loupzd2orzd2zz__pregexpz00(BgL_fkz00_1019, BgL_backrefsz00_1017, BgL_iz00_1016, BgL_skz00_1018, BgL_sz00_3282, BgL_snz00_3281, BgL_casezd2sensitivezf3z21_3280, BgL_nz00_3279, BgL_arg2453z00_1096);}  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1052, BGl_keyword10351z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 536 */
obj_t BgL_backrefz00_1111;
{ /* ./Llib/pregexp.scm 536 */
obj_t BgL_arg2491z00_1119;
{ /* ./Llib/pregexp.scm 536 */
obj_t BgL_pairz00_2549;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 536 */
BgL_pairz00_2549 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 536 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21128))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 536 */
obj_t BgL_arg3354z00_2550;
BgL_arg3354z00_2550 = 
CDR(BgL_pairz00_2549); 
{ /* ./Llib/pregexp.scm 536 */
obj_t BgL_pairz00_2552;
if(
PAIRP(BgL_arg3354z00_2550))
{ /* ./Llib/pregexp.scm 536 */
BgL_pairz00_2552 = BgL_arg3354z00_2550; }  else 
{ /* ./Llib/pregexp.scm 536 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2550, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21121))); 
exit( -1 );} 
BgL_arg2491z00_1119 = 
CAR(BgL_pairz00_2552); } } } 
BgL_backrefz00_1111 = 
BGl_pregexpzd2listzd2refz00zz__pregexpz00(BgL_backrefsz00_1017, BgL_arg2491z00_1119); } 
if(
CBOOL(BgL_backrefz00_1111))
{ /* ./Llib/pregexp.scm 539 */
obj_t BgL_arg2478z00_1112;
{ /* ./Llib/pregexp.scm 539 */
obj_t BgL_arg2482z00_1114;obj_t BgL_arg2483z00_1115;
{ /* ./Llib/pregexp.scm 539 */
obj_t BgL_pairz00_2553;
if(
PAIRP(BgL_backrefz00_1111))
{ /* ./Llib/pregexp.scm 539 */
BgL_pairz00_2553 = BgL_backrefz00_1111; }  else 
{ /* ./Llib/pregexp.scm 539 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_backrefz00_1111, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21262))); 
exit( -1 );} 
BgL_arg2482z00_1114 = 
CAR(BgL_pairz00_2553); } 
{ /* ./Llib/pregexp.scm 539 */
obj_t BgL_pairz00_2554;
if(
PAIRP(BgL_backrefz00_1111))
{ /* ./Llib/pregexp.scm 539 */
BgL_pairz00_2554 = BgL_backrefz00_1111; }  else 
{ /* ./Llib/pregexp.scm 539 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_backrefz00_1111, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21276))); 
exit( -1 );} 
BgL_arg2483z00_1115 = 
CDR(BgL_pairz00_2554); } 
{ /* ./Llib/pregexp.scm 539 */
obj_t BgL_res3759z00_2583;
{ /* ./Llib/pregexp.scm 539 */
obj_t BgL_stringz00_2555;int BgL_startz00_2556;int BgL_endz00_2557;
if(
STRINGP(BgL_sz00_3282))
{ /* ./Llib/pregexp.scm 539 */
BgL_stringz00_2555 = BgL_sz00_3282; }  else 
{ /* ./Llib/pregexp.scm 539 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_sz00_3282, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21238))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 539 */
obj_t BgL_auxz00_8464;
if(
INTEGERP(BgL_arg2482z00_1114))
{ /* ./Llib/pregexp.scm 539 */
BgL_auxz00_8464 = BgL_arg2482z00_1114
; }  else 
{ /* ./Llib/pregexp.scm 539 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_arg2482z00_1114, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21238))); 
exit( -1 );} 
BgL_startz00_2556 = 
CINT(BgL_auxz00_8464); } 
{ /* ./Llib/pregexp.scm 539 */
obj_t BgL_auxz00_8471;
if(
INTEGERP(BgL_arg2483z00_1115))
{ /* ./Llib/pregexp.scm 539 */
BgL_auxz00_8471 = BgL_arg2483z00_1115
; }  else 
{ /* ./Llib/pregexp.scm 539 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_arg2483z00_1115, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21238))); 
exit( -1 );} 
BgL_endz00_2557 = 
CINT(BgL_auxz00_8471); } 
{ /* ./Llib/pregexp.scm 539 */
bool_t BgL_test3048z00_2558;
{ /* ./Llib/pregexp.scm 539 */
bool_t BgL_testz00_8478;
{ /* ./Llib/pregexp.scm 539 */
long BgL_auxz00_8481;long BgL_auxz00_8479;
BgL_auxz00_8481 = 
(long)(BgL_startz00_2556); 
BgL_auxz00_8479 = 
(long)(BgL_endz00_2557); 
BgL_testz00_8478 = 
(BgL_auxz00_8479>=BgL_auxz00_8481); } 
if(BgL_testz00_8478)
{ /* ./Llib/pregexp.scm 539 */
bool_t BgL_testz00_8484;
{ /* ./Llib/pregexp.scm 539 */
int BgL_auxz00_8485;
{ /* ./Llib/pregexp.scm 539 */
long BgL_auxz00_8486;
{ /* ./Llib/pregexp.scm 539 */
long BgL_auxz00_8487;
{ /* ./Llib/pregexp.scm 539 */
int BgL_auxz00_8488;
BgL_auxz00_8488 = 
STRING_LENGTH(BgL_stringz00_2555); 
BgL_auxz00_8487 = 
(long)(BgL_auxz00_8488); } 
BgL_auxz00_8486 = 
(BgL_auxz00_8487+((long)1)); } 
BgL_auxz00_8485 = 
(int)(BgL_auxz00_8486); } 
BgL_testz00_8484 = 
BOUND_CHECK(BgL_startz00_2556, BgL_auxz00_8485); } 
if(BgL_testz00_8484)
{ /* ./Llib/pregexp.scm 539 */
int BgL_auxz00_8494;
{ /* ./Llib/pregexp.scm 539 */
long BgL_auxz00_8495;
{ /* ./Llib/pregexp.scm 539 */
long BgL_auxz00_8496;
{ /* ./Llib/pregexp.scm 539 */
int BgL_auxz00_8497;
BgL_auxz00_8497 = 
STRING_LENGTH(BgL_stringz00_2555); 
BgL_auxz00_8496 = 
(long)(BgL_auxz00_8497); } 
BgL_auxz00_8495 = 
(BgL_auxz00_8496+((long)1)); } 
BgL_auxz00_8494 = 
(int)(BgL_auxz00_8495); } 
BgL_test3048z00_2558 = 
BOUND_CHECK(BgL_endz00_2557, BgL_auxz00_8494); }  else 
{ /* ./Llib/pregexp.scm 539 */
BgL_test3048z00_2558 = ((bool_t)0); } }  else 
{ /* ./Llib/pregexp.scm 539 */
BgL_test3048z00_2558 = ((bool_t)0); } } 
if(BgL_test3048z00_2558)
{ /* ./Llib/pregexp.scm 539 */
BgL_res3759z00_2583 = 
c_substring(BgL_stringz00_2555, BgL_startz00_2556, BgL_endz00_2557); }  else 
{ /* ./Llib/pregexp.scm 539 */
{ /* ./Llib/pregexp.scm 539 */
obj_t BgL_arg3053z00_2569;
{ /* ./Llib/pregexp.scm 539 */
obj_t BgL_auxz00_8507;obj_t BgL_auxz00_8505;
BgL_auxz00_8507 = 
BINT(BgL_endz00_2557); 
BgL_auxz00_8505 = 
BINT(BgL_startz00_2556); 
BgL_arg3053z00_2569 = 
MAKE_PAIR(BgL_auxz00_8505, BgL_auxz00_8507); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10441z00zz__pregexpz00, BGl_string10442z00zz__pregexpz00, BgL_arg3053z00_2569, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/pregexp.scm 539 */
obj_t BgL_aux7890z00_4170;
BgL_aux7890z00_4170 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21238))); 
if(
STRINGP(BgL_aux7890z00_4170))
{ /* ./Llib/pregexp.scm 539 */
BgL_res3759z00_2583 = BgL_aux7890z00_4170; }  else 
{ /* ./Llib/pregexp.scm 539 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_aux7890z00_4170, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21238))); 
exit( -1 );} } } } } 
BgL_arg2478z00_1112 = BgL_res3759z00_2583; } } 
{ /* ./Llib/pregexp.scm 540 */
obj_t BgL_zc3anonymousza32487za3llibzf2pregexpze2scmza3538ze3z93_3244;
{ 
int BgL_auxz00_8518;
BgL_auxz00_8518 = 
(int)(((long)2)); 
BgL_zc3anonymousza32487za3llibzf2pregexpze2scmza3538ze3z93_3244 = 
MAKE_EL_PROCEDURE(BgL_auxz00_8518); } 
{ /* ./Llib/pregexp.scm 540 */
int BgL_auxz00_8521;
BgL_auxz00_8521 = 
(int)(((long)0)); 
PROCEDURE_EL_SET(BgL_zc3anonymousza32487za3llibzf2pregexpze2scmza3538ze3z93_3244, BgL_auxz00_8521, BgL_skz00_1018); } 
{ /* ./Llib/pregexp.scm 540 */
int BgL_auxz00_8524;
BgL_auxz00_8524 = 
(int)(((long)1)); 
PROCEDURE_EL_SET(BgL_zc3anonymousza32487za3llibzf2pregexpze2scmza3538ze3z93_3244, BgL_auxz00_8524, BgL_backrefsz00_1017); } 
return 
BGl_pregexpzd2stringzd2matchz00zz__pregexpz00(BgL_arg2478z00_1112, BgL_sz00_3282, BgL_iz00_1016, 
CELL_REF(BgL_nz00_3279), BgL_zc3anonymousza32487za3llibzf2pregexpze2scmza3538ze3z93_3244, BgL_fkz00_1019);} }  else 
{ /* ./Llib/pregexp.scm 541 */
obj_t BgL_funz00_4174;
if(
PROCEDUREP(BgL_skz00_1018))
{ /* ./Llib/pregexp.scm 541 */
BgL_funz00_4174 = BgL_skz00_1018; }  else 
{ /* ./Llib/pregexp.scm 541 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_1018, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21369))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4174, ((long)2)))
{ /* ./Llib/pregexp.scm 541 */
return 
PROCEDURE_ENTRY(BgL_funz00_4174)(BgL_skz00_1018, BgL_iz00_1016, BgL_backrefsz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 541 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10421z00zz__pregexpz00, BgL_funz00_4174, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21369))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1052, BGl_keyword10366z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 543 */
obj_t BgL_subzd2backrefzd2_1121;
BgL_subzd2backrefzd2_1121 = 
MAKE_PAIR(BgL_iz00_1016, BgL_iz00_1016); 
{ /* ./Llib/pregexp.scm 543 */
obj_t BgL_backrefsz00_1122;
{ /* ./Llib/pregexp.scm 544 */
obj_t BgL_arg2504z00_1129;
{ /* ./Llib/pregexp.scm 544 */
obj_t BgL_list2507z00_1130;
BgL_list2507z00_1130 = 
MAKE_PAIR(BgL_subzd2backrefzd2_1121, BNIL); 
{ /* ./Llib/pregexp.scm 544 */
obj_t BgL_res3760z00_2585;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 544 */
BgL_res3760z00_2585 = BgL_list2507z00_1130; }  else 
{ /* ./Llib/pregexp.scm 544 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list2507z00_1130, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21515))); 
exit( -1 );} 
BgL_arg2504z00_1129 = BgL_res3760z00_2585; } } 
{ /* ./Llib/pregexp.scm 544 */
obj_t BgL_auxz00_8548;
{ /* ./Llib/pregexp.scm 544 */
bool_t BgL_testz00_8549;
if(
PAIRP(BgL_backrefsz00_1017))
{ /* ./Llib/pregexp.scm 544 */
BgL_testz00_8549 = ((bool_t)1)
; }  else 
{ /* ./Llib/pregexp.scm 544 */
BgL_testz00_8549 = 
NULLP(BgL_backrefsz00_1017)
; } 
if(BgL_testz00_8549)
{ /* ./Llib/pregexp.scm 544 */
BgL_auxz00_8548 = BgL_backrefsz00_1017
; }  else 
{ /* ./Llib/pregexp.scm 544 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_backrefsz00_1017, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21498))); 
exit( -1 );} } 
BgL_backrefsz00_1122 = 
bgl_append2(BgL_auxz00_8548, BgL_arg2504z00_1129); } } 
{ /* ./Llib/pregexp.scm 544 */

{ /* ./Llib/pregexp.scm 545 */
obj_t BgL_arg2496z00_1123;
{ /* ./Llib/pregexp.scm 545 */
obj_t BgL_pairz00_2586;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 545 */
BgL_pairz00_2586 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 545 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21569))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 545 */
obj_t BgL_arg3354z00_2587;
BgL_arg3354z00_2587 = 
CDR(BgL_pairz00_2586); 
{ /* ./Llib/pregexp.scm 545 */
obj_t BgL_pairz00_2589;
if(
PAIRP(BgL_arg3354z00_2587))
{ /* ./Llib/pregexp.scm 545 */
BgL_pairz00_2589 = BgL_arg3354z00_2587; }  else 
{ /* ./Llib/pregexp.scm 545 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2587, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21562))); 
exit( -1 );} 
BgL_arg2496z00_1123 = 
CAR(BgL_pairz00_2589); } } } 
{ /* ./Llib/pregexp.scm 547 */
obj_t BgL_zc3anonymousza32500za3llibzf2pregexpze2scmza3545ze3z93_3245;
{ 
int BgL_auxz00_8571;int BgL_auxz00_8569;
BgL_auxz00_8571 = 
(int)(((long)2)); 
BgL_auxz00_8569 = 
(int)(((long)2)); 
BgL_zc3anonymousza32500za3llibzf2pregexpze2scmza3545ze3z93_3245 = 
make_fx_procedure(BGl_zc3anonymousza32500za3Llibzf2pregexpze2scmza3545ze3z93zz__pregexpz00, BgL_auxz00_8569, BgL_auxz00_8571); } 
{ /* ./Llib/pregexp.scm 547 */
int BgL_auxz00_8574;
BgL_auxz00_8574 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32500za3llibzf2pregexpze2scmza3545ze3z93_3245, BgL_auxz00_8574, BgL_subzd2backrefzd2_1121); } 
{ /* ./Llib/pregexp.scm 547 */
int BgL_auxz00_8577;
BgL_auxz00_8577 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32500za3llibzf2pregexpze2scmza3545ze3z93_3245, BgL_auxz00_8577, BgL_skz00_1018); } 
{ 
obj_t BgL_skz00_8582;obj_t BgL_backrefsz00_8581;obj_t BgL_rez00_8580;
BgL_rez00_8580 = BgL_arg2496z00_1123; 
BgL_backrefsz00_8581 = BgL_backrefsz00_1122; 
BgL_skz00_8582 = BgL_zc3anonymousza32500za3llibzf2pregexpze2scmza3545ze3z93_3245; 
BgL_skz00_1018 = BgL_skz00_8582; 
BgL_backrefsz00_1017 = BgL_backrefsz00_8581; 
BgL_rez00_1015 = BgL_rez00_8580; 
goto BGl_subz00zz__pregexpz00;} } } } } }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1052, BGl_keyword10370z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 550 */
obj_t BgL_foundzd2itzf3z21_1132;
{ /* ./Llib/pregexp.scm 551 */
obj_t BgL_arg2514z00_1133;
{ /* ./Llib/pregexp.scm 551 */
obj_t BgL_pairz00_2592;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 551 */
BgL_pairz00_2592 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 551 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21831))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 551 */
obj_t BgL_arg3354z00_2593;
BgL_arg3354z00_2593 = 
CDR(BgL_pairz00_2592); 
{ /* ./Llib/pregexp.scm 551 */
obj_t BgL_pairz00_2595;
if(
PAIRP(BgL_arg3354z00_2593))
{ /* ./Llib/pregexp.scm 551 */
BgL_pairz00_2595 = BgL_arg3354z00_2593; }  else 
{ /* ./Llib/pregexp.scm 551 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2593, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21824))); 
exit( -1 );} 
BgL_arg2514z00_1133 = 
CAR(BgL_pairz00_2595); } } } 
BgL_foundzd2itzf3z21_1132 = 
BGl_subz00zz__pregexpz00(BgL_sz00_3282, BgL_snz00_3281, BgL_casezd2sensitivezf3z21_3280, BgL_nz00_3279, BgL_arg2514z00_1133, BgL_iz00_1016, BgL_backrefsz00_1017, BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_proc10443z00zz__pregexpz00); } 
if(
CBOOL(BgL_foundzd2itzf3z21_1132))
{ /* ./Llib/pregexp.scm 553 */
obj_t BgL_funz00_4191;
if(
PROCEDUREP(BgL_skz00_1018))
{ /* ./Llib/pregexp.scm 553 */
BgL_funz00_4191 = BgL_skz00_1018; }  else 
{ /* ./Llib/pregexp.scm 553 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_1018, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21930))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4191, ((long)2)))
{ /* ./Llib/pregexp.scm 553 */
return 
PROCEDURE_ENTRY(BgL_funz00_4191)(BgL_skz00_1018, BgL_iz00_1016, BgL_backrefsz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 553 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10421z00zz__pregexpz00, BgL_funz00_4191, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21930))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ /* ./Llib/pregexp.scm 553 */
obj_t BgL_funz00_4196;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 553 */
BgL_funz00_4196 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 553 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21946))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4196, ((long)0)))
{ /* ./Llib/pregexp.scm 553 */
return 
PROCEDURE_ENTRY(BgL_funz00_4196)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 553 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4196, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21946))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1052, BGl_keyword10372z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 555 */
obj_t BgL_foundzd2itzf3z21_1138;
{ /* ./Llib/pregexp.scm 556 */
obj_t BgL_arg2523z00_1139;
{ /* ./Llib/pregexp.scm 556 */
obj_t BgL_pairz00_2596;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 556 */
BgL_pairz00_2596 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 556 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22062))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 556 */
obj_t BgL_arg3354z00_2597;
BgL_arg3354z00_2597 = 
CDR(BgL_pairz00_2596); 
{ /* ./Llib/pregexp.scm 556 */
obj_t BgL_pairz00_2599;
if(
PAIRP(BgL_arg3354z00_2597))
{ /* ./Llib/pregexp.scm 556 */
BgL_pairz00_2599 = BgL_arg3354z00_2597; }  else 
{ /* ./Llib/pregexp.scm 556 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2597, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22055))); 
exit( -1 );} 
BgL_arg2523z00_1139 = 
CAR(BgL_pairz00_2599); } } } 
BgL_foundzd2itzf3z21_1138 = 
BGl_subz00zz__pregexpz00(BgL_sz00_3282, BgL_snz00_3281, BgL_casezd2sensitivezf3z21_3280, BgL_nz00_3279, BgL_arg2523z00_1139, BgL_iz00_1016, BgL_backrefsz00_1017, BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_proc10444z00zz__pregexpz00); } 
if(
CBOOL(BgL_foundzd2itzf3z21_1138))
{ /* ./Llib/pregexp.scm 558 */
obj_t BgL_funz00_4205;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 558 */
BgL_funz00_4205 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 558 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22161))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4205, ((long)0)))
{ /* ./Llib/pregexp.scm 558 */
return 
PROCEDURE_ENTRY(BgL_funz00_4205)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 558 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4205, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22161))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ /* ./Llib/pregexp.scm 558 */
obj_t BgL_funz00_4210;
if(
PROCEDUREP(BgL_skz00_1018))
{ /* ./Llib/pregexp.scm 558 */
BgL_funz00_4210 = BgL_skz00_1018; }  else 
{ /* ./Llib/pregexp.scm 558 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_1018, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22166))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4210, ((long)2)))
{ /* ./Llib/pregexp.scm 558 */
return 
PROCEDURE_ENTRY(BgL_funz00_4210)(BgL_skz00_1018, BgL_iz00_1016, BgL_backrefsz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 558 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10421z00zz__pregexpz00, BgL_funz00_4210, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22166))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1052, BGl_keyword10376z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 560 */
obj_t BgL_nzd2actualzd2_1144;obj_t BgL_snzd2actualzd2_1145;
BgL_nzd2actualzd2_1144 = 
CELL_REF(BgL_nz00_3279); 
BgL_snzd2actualzd2_1145 = 
CELL_REF(BgL_snz00_3281); 
CELL_SET(BgL_nz00_3279, BgL_iz00_1016); 
CELL_SET(BgL_snz00_3281, BgL_iz00_1016); 
{ /* ./Llib/pregexp.scm 562 */
obj_t BgL_foundzd2itzf3z21_1146;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_arg2532z00_1147;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_arg2537z00_1150;obj_t BgL_arg2538z00_1151;obj_t BgL_arg2539z00_1152;obj_t BgL_arg2540z00_1153;
BgL_arg2537z00_1150 = BGl_keyword10338z00zz__pregexpz00; 
BgL_arg2538z00_1151 = BGl_list10445z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 564 */
obj_t BgL_pairz00_2600;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 564 */
BgL_pairz00_2600 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 564 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22463))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 564 */
obj_t BgL_arg3354z00_2601;
BgL_arg3354z00_2601 = 
CDR(BgL_pairz00_2600); 
{ /* ./Llib/pregexp.scm 564 */
obj_t BgL_pairz00_2603;
if(
PAIRP(BgL_arg3354z00_2601))
{ /* ./Llib/pregexp.scm 564 */
BgL_pairz00_2603 = BgL_arg3354z00_2601; }  else 
{ /* ./Llib/pregexp.scm 564 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2601, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22456))); 
exit( -1 );} 
BgL_arg2539z00_1152 = 
CAR(BgL_pairz00_2603); } } } 
BgL_arg2540z00_1153 = BGl_keyword10348z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_list2542z00_1154;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_arg2544z00_1155;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_arg2547z00_1156;
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_arg2550z00_1157;
BgL_arg2550z00_1157 = 
MAKE_PAIR(BgL_arg2540z00_1153, BNIL); 
BgL_arg2547z00_1156 = 
MAKE_PAIR(BgL_arg2539z00_1152, BgL_arg2550z00_1157); } 
BgL_arg2544z00_1155 = 
MAKE_PAIR(BgL_arg2538z00_1151, BgL_arg2547z00_1156); } 
BgL_list2542z00_1154 = 
MAKE_PAIR(BgL_arg2537z00_1150, BgL_arg2544z00_1155); } 
{ /* ./Llib/pregexp.scm 563 */
obj_t BgL_res3761z00_2605;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 563 */
BgL_res3761z00_2605 = BgL_list2542z00_1154; }  else 
{ /* ./Llib/pregexp.scm 563 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list2542z00_1154, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22384))); 
exit( -1 );} 
BgL_arg2532z00_1147 = BgL_res3761z00_2605; } } } 
BgL_foundzd2itzf3z21_1146 = 
BGl_subz00zz__pregexpz00(BgL_sz00_3282, BgL_snz00_3281, BgL_casezd2sensitivezf3z21_3280, BgL_nz00_3279, BgL_arg2532z00_1147, 
BINT(((long)0)), BgL_backrefsz00_1017, BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_proc10449z00zz__pregexpz00); } 
CELL_SET(BgL_nz00_3279, BgL_nzd2actualzd2_1144); 
CELL_SET(BgL_snz00_3281, BgL_snzd2actualzd2_1145); 
if(
CBOOL(BgL_foundzd2itzf3z21_1146))
{ /* ./Llib/pregexp.scm 567 */
obj_t BgL_funz00_4221;
if(
PROCEDUREP(BgL_skz00_1018))
{ /* ./Llib/pregexp.scm 567 */
BgL_funz00_4221 = BgL_skz00_1018; }  else 
{ /* ./Llib/pregexp.scm 567 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_1018, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22633))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4221, ((long)2)))
{ /* ./Llib/pregexp.scm 567 */
return 
PROCEDURE_ENTRY(BgL_funz00_4221)(BgL_skz00_1018, BgL_iz00_1016, BgL_backrefsz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 567 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10421z00zz__pregexpz00, BgL_funz00_4221, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22633))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ /* ./Llib/pregexp.scm 567 */
obj_t BgL_funz00_4226;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 567 */
BgL_funz00_4226 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 567 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22649))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4226, ((long)0)))
{ /* ./Llib/pregexp.scm 567 */
return 
PROCEDURE_ENTRY(BgL_funz00_4226)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 567 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4226, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22649))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1052, BGl_keyword10378z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 569 */
obj_t BgL_nzd2actualzd2_1161;obj_t BgL_snzd2actualzd2_1162;
BgL_nzd2actualzd2_1161 = 
CELL_REF(BgL_nz00_3279); 
BgL_snzd2actualzd2_1162 = 
CELL_REF(BgL_snz00_3281); 
CELL_SET(BgL_nz00_3279, BgL_iz00_1016); 
CELL_SET(BgL_snz00_3281, BgL_iz00_1016); 
{ /* ./Llib/pregexp.scm 571 */
obj_t BgL_foundzd2itzf3z21_1163;
{ /* ./Llib/pregexp.scm 572 */
obj_t BgL_arg2559z00_1164;
{ /* ./Llib/pregexp.scm 572 */
obj_t BgL_arg2564z00_1167;obj_t BgL_arg2565z00_1168;obj_t BgL_arg2566z00_1169;obj_t BgL_arg2567z00_1170;
BgL_arg2564z00_1167 = BGl_keyword10338z00zz__pregexpz00; 
BgL_arg2565z00_1168 = BGl_list10445z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 573 */
obj_t BgL_pairz00_2606;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 573 */
BgL_pairz00_2606 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 573 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22940))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 573 */
obj_t BgL_arg3354z00_2607;
BgL_arg3354z00_2607 = 
CDR(BgL_pairz00_2606); 
{ /* ./Llib/pregexp.scm 573 */
obj_t BgL_pairz00_2609;
if(
PAIRP(BgL_arg3354z00_2607))
{ /* ./Llib/pregexp.scm 573 */
BgL_pairz00_2609 = BgL_arg3354z00_2607; }  else 
{ /* ./Llib/pregexp.scm 573 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2607, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22933))); 
exit( -1 );} 
BgL_arg2566z00_1169 = 
CAR(BgL_pairz00_2609); } } } 
BgL_arg2567z00_1170 = BGl_keyword10348z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 572 */
obj_t BgL_list2569z00_1171;
{ /* ./Llib/pregexp.scm 572 */
obj_t BgL_arg2571z00_1172;
{ /* ./Llib/pregexp.scm 572 */
obj_t BgL_arg2574z00_1173;
{ /* ./Llib/pregexp.scm 572 */
obj_t BgL_arg2577z00_1174;
BgL_arg2577z00_1174 = 
MAKE_PAIR(BgL_arg2567z00_1170, BNIL); 
BgL_arg2574z00_1173 = 
MAKE_PAIR(BgL_arg2566z00_1169, BgL_arg2577z00_1174); } 
BgL_arg2571z00_1172 = 
MAKE_PAIR(BgL_arg2565z00_1168, BgL_arg2574z00_1173); } 
BgL_list2569z00_1171 = 
MAKE_PAIR(BgL_arg2564z00_1167, BgL_arg2571z00_1172); } 
{ /* ./Llib/pregexp.scm 572 */
obj_t BgL_res3762z00_2611;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 572 */
BgL_res3762z00_2611 = BgL_list2569z00_1171; }  else 
{ /* ./Llib/pregexp.scm 572 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list2569z00_1171, BGl_string10330z00zz__pregexpz00, 
BINT(((long)22861))); 
exit( -1 );} 
BgL_arg2559z00_1164 = BgL_res3762z00_2611; } } } 
BgL_foundzd2itzf3z21_1163 = 
BGl_subz00zz__pregexpz00(BgL_sz00_3282, BgL_snz00_3281, BgL_casezd2sensitivezf3z21_3280, BgL_nz00_3279, BgL_arg2559z00_1164, 
BINT(((long)0)), BgL_backrefsz00_1017, BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_proc10450z00zz__pregexpz00); } 
CELL_SET(BgL_nz00_3279, BgL_nzd2actualzd2_1161); 
CELL_SET(BgL_snz00_3281, BgL_snzd2actualzd2_1162); 
if(
CBOOL(BgL_foundzd2itzf3z21_1163))
{ /* ./Llib/pregexp.scm 576 */
obj_t BgL_funz00_4237;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 576 */
BgL_funz00_4237 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 576 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23110))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4237, ((long)0)))
{ /* ./Llib/pregexp.scm 576 */
return 
PROCEDURE_ENTRY(BgL_funz00_4237)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 576 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4237, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23110))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ /* ./Llib/pregexp.scm 576 */
obj_t BgL_funz00_4242;
if(
PROCEDUREP(BgL_skz00_1018))
{ /* ./Llib/pregexp.scm 576 */
BgL_funz00_4242 = BgL_skz00_1018; }  else 
{ /* ./Llib/pregexp.scm 576 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_1018, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23115))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4242, ((long)2)))
{ /* ./Llib/pregexp.scm 576 */
return 
PROCEDURE_ENTRY(BgL_funz00_4242)(BgL_skz00_1018, BgL_iz00_1016, BgL_backrefsz00_1017, BEOA);}  else 
{ /* ./Llib/pregexp.scm 576 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10421z00zz__pregexpz00, BgL_funz00_4242, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23115))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1052, BGl_keyword10374z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 578 */
obj_t BgL_foundzd2itzf3z21_1178;
{ /* ./Llib/pregexp.scm 578 */
obj_t BgL_arg2591z00_1181;
{ /* ./Llib/pregexp.scm 578 */
obj_t BgL_pairz00_2612;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 578 */
BgL_pairz00_2612 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 578 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23216))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 578 */
obj_t BgL_arg3354z00_2613;
BgL_arg3354z00_2613 = 
CDR(BgL_pairz00_2612); 
{ /* ./Llib/pregexp.scm 578 */
obj_t BgL_pairz00_2615;
if(
PAIRP(BgL_arg3354z00_2613))
{ /* ./Llib/pregexp.scm 578 */
BgL_pairz00_2615 = BgL_arg3354z00_2613; }  else 
{ /* ./Llib/pregexp.scm 578 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2613, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23209))); 
exit( -1 );} 
BgL_arg2591z00_1181 = 
CAR(BgL_pairz00_2615); } } } 
BgL_foundzd2itzf3z21_1178 = 
BGl_subz00zz__pregexpz00(BgL_sz00_3282, BgL_snz00_3281, BgL_casezd2sensitivezf3z21_3280, BgL_nz00_3279, BgL_arg2591z00_1181, BgL_iz00_1016, BgL_backrefsz00_1017, BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BGl_proc10451z00zz__pregexpz00); } 
if(
CBOOL(BgL_foundzd2itzf3z21_1178))
{ /* ./Llib/pregexp.scm 581 */
obj_t BgL_arg2584z00_1179;obj_t BgL_arg2585z00_1180;
{ /* ./Llib/pregexp.scm 581 */
obj_t BgL_pairz00_2616;
if(
PAIRP(BgL_foundzd2itzf3z21_1178))
{ /* ./Llib/pregexp.scm 581 */
BgL_pairz00_2616 = BgL_foundzd2itzf3z21_1178; }  else 
{ /* ./Llib/pregexp.scm 581 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_foundzd2itzf3z21_1178, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23365))); 
exit( -1 );} 
BgL_arg2584z00_1179 = 
CAR(BgL_pairz00_2616); } 
{ /* ./Llib/pregexp.scm 581 */
obj_t BgL_pairz00_2617;
if(
PAIRP(BgL_foundzd2itzf3z21_1178))
{ /* ./Llib/pregexp.scm 581 */
BgL_pairz00_2617 = BgL_foundzd2itzf3z21_1178; }  else 
{ /* ./Llib/pregexp.scm 581 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_foundzd2itzf3z21_1178, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23382))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 581 */
obj_t BgL_arg3354z00_2618;
BgL_arg3354z00_2618 = 
CDR(BgL_pairz00_2617); 
{ /* ./Llib/pregexp.scm 581 */
obj_t BgL_pairz00_2620;
if(
PAIRP(BgL_arg3354z00_2618))
{ /* ./Llib/pregexp.scm 581 */
BgL_pairz00_2620 = BgL_arg3354z00_2618; }  else 
{ /* ./Llib/pregexp.scm 581 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2618, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23368))); 
exit( -1 );} 
BgL_arg2585z00_1180 = 
CAR(BgL_pairz00_2620); } } } 
{ /* ./Llib/pregexp.scm 581 */
obj_t BgL_funz00_4257;
if(
PROCEDUREP(BgL_skz00_1018))
{ /* ./Llib/pregexp.scm 581 */
BgL_funz00_4257 = BgL_skz00_1018; }  else 
{ /* ./Llib/pregexp.scm 581 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_1018, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23348))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4257, ((long)2)))
{ /* ./Llib/pregexp.scm 581 */
return 
PROCEDURE_ENTRY(BgL_funz00_4257)(BgL_skz00_1018, BgL_arg2584z00_1179, BgL_arg2585z00_1180, BEOA);}  else 
{ /* ./Llib/pregexp.scm 581 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10452z00zz__pregexpz00, BgL_funz00_4257, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23348))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } }  else 
{ /* ./Llib/pregexp.scm 582 */
obj_t BgL_funz00_4262;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 582 */
BgL_funz00_4262 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 582 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23410))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4262, ((long)0)))
{ /* ./Llib/pregexp.scm 582 */
return 
PROCEDURE_ENTRY(BgL_funz00_4262)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 582 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4262, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23410))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } }  else 
{ /* ./Llib/pregexp.scm 505 */
bool_t BgL_testz00_8824;
{ /* ./Llib/pregexp.scm 505 */
obj_t BgL_auxz00_8825;
BgL_auxz00_8825 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_casezd2valuezd2_1052, BGl_list10455z00zz__pregexpz00); 
BgL_testz00_8824 = 
CBOOL(BgL_auxz00_8825); } 
if(BgL_testz00_8824)
{ /* ./Llib/pregexp.scm 584 */
obj_t BgL_oldz00_1186;
BgL_oldz00_1186 = 
CELL_REF(BgL_casezd2sensitivezf3z21_3280); 
{ /* ./Llib/pregexp.scm 585 */
obj_t BgL_auxz00_3291;
{ /* ./Llib/pregexp.scm 586 */
obj_t BgL_arg2598z00_1187;obj_t BgL_arg2599z00_1188;
{ /* ./Llib/pregexp.scm 586 */
obj_t BgL_pairz00_2621;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 586 */
BgL_pairz00_2621 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 586 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23595))); 
exit( -1 );} 
BgL_arg2598z00_1187 = 
CAR(BgL_pairz00_2621); } 
BgL_arg2599z00_1188 = BGl_keyword10367z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 586 */
bool_t BgL_auxz00_8834;
BgL_auxz00_8834 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_arg2598z00_1187, BgL_arg2599z00_1188); 
BgL_auxz00_3291 = 
BBOOL(BgL_auxz00_8834); } } 
CELL_SET(BgL_casezd2sensitivezf3z21_3280, BgL_auxz00_3291); } 
{ /* ./Llib/pregexp.scm 587 */
obj_t BgL_arg2603z00_1189;
{ /* ./Llib/pregexp.scm 587 */
obj_t BgL_pairz00_2622;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 587 */
BgL_pairz00_2622 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 587 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23649))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 587 */
obj_t BgL_arg3354z00_2623;
BgL_arg3354z00_2623 = 
CDR(BgL_pairz00_2622); 
{ /* ./Llib/pregexp.scm 587 */
obj_t BgL_pairz00_2625;
if(
PAIRP(BgL_arg3354z00_2623))
{ /* ./Llib/pregexp.scm 587 */
BgL_pairz00_2625 = BgL_arg3354z00_2623; }  else 
{ /* ./Llib/pregexp.scm 587 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2623, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23642))); 
exit( -1 );} 
BgL_arg2603z00_1189 = 
CAR(BgL_pairz00_2625); } } } 
{ /* ./Llib/pregexp.scm 589 */
obj_t BgL_zc3anonymousza32608za3llibzf2pregexpze2scmza3587ze3z93_3252;obj_t BgL_zc3anonymousza32610za3llibzf2pregexpze2scmza3587ze3z93_3251;
{ 
int BgL_auxz00_8851;int BgL_auxz00_8849;
BgL_auxz00_8851 = 
(int)(((long)3)); 
BgL_auxz00_8849 = 
(int)(((long)2)); 
BgL_zc3anonymousza32608za3llibzf2pregexpze2scmza3587ze3z93_3252 = 
make_fx_procedure(BGl_zc3anonymousza32608za3Llibzf2pregexpze2scmza3587ze3z93zz__pregexpz00, BgL_auxz00_8849, BgL_auxz00_8851); } 
{ 
int BgL_auxz00_8856;int BgL_auxz00_8854;
BgL_auxz00_8856 = 
(int)(((long)3)); 
BgL_auxz00_8854 = 
(int)(((long)0)); 
BgL_zc3anonymousza32610za3llibzf2pregexpze2scmza3587ze3z93_3251 = 
make_fx_procedure(BGl_zc3anonymousza32610za3Llibzf2pregexpze2scmza3587ze3z93zz__pregexpz00, BgL_auxz00_8854, BgL_auxz00_8856); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_8859;
BgL_auxz00_8859 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32608za3llibzf2pregexpze2scmza3587ze3z93_3252, BgL_auxz00_8859, BgL_oldz00_1186); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_8862;
BgL_auxz00_8862 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32608za3llibzf2pregexpze2scmza3587ze3z93_3252, BgL_auxz00_8862, BgL_casezd2sensitivezf3z21_3280); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_8865;
BgL_auxz00_8865 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32608za3llibzf2pregexpze2scmza3587ze3z93_3252, BgL_auxz00_8865, BgL_skz00_1018); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_8868;
BgL_auxz00_8868 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32610za3llibzf2pregexpze2scmza3587ze3z93_3251, BgL_auxz00_8868, BgL_oldz00_1186); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_8871;
BgL_auxz00_8871 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32610za3llibzf2pregexpze2scmza3587ze3z93_3251, BgL_auxz00_8871, BgL_casezd2sensitivezf3z21_3280); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_8874;
BgL_auxz00_8874 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32610za3llibzf2pregexpze2scmza3587ze3z93_3251, BgL_auxz00_8874, BgL_fkz00_1019); } 
{ 
obj_t BgL_fkz00_8879;obj_t BgL_skz00_8878;obj_t BgL_rez00_8877;
BgL_rez00_8877 = BgL_arg2603z00_1189; 
BgL_skz00_8878 = BgL_zc3anonymousza32608za3llibzf2pregexpze2scmza3587ze3z93_3252; 
BgL_fkz00_8879 = BgL_zc3anonymousza32610za3llibzf2pregexpze2scmza3587ze3z93_3251; 
BgL_fkz00_1019 = BgL_fkz00_8879; 
BgL_skz00_1018 = BgL_skz00_8878; 
BgL_rez00_1015 = BgL_rez00_8877; 
goto BGl_subz00zz__pregexpz00;} } } }  else 
{ /* ./Llib/pregexp.scm 505 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1052, BGl_keyword10381z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 595 */
bool_t BgL_maximalzf3zf3_1199;
{ /* ./Llib/pregexp.scm 595 */
bool_t BgL_test2671z00_1247;
{ /* ./Llib/pregexp.scm 595 */
obj_t BgL_pairz00_2626;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 595 */
BgL_pairz00_2626 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 595 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23995))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 595 */
obj_t BgL_arg3354z00_2627;
BgL_arg3354z00_2627 = 
CDR(BgL_pairz00_2626); 
{ /* ./Llib/pregexp.scm 595 */
obj_t BgL_pairz00_2629;
if(
PAIRP(BgL_arg3354z00_2627))
{ /* ./Llib/pregexp.scm 595 */
BgL_pairz00_2629 = BgL_arg3354z00_2627; }  else 
{ /* ./Llib/pregexp.scm 595 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2627, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23988))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 595 */
obj_t BgL_auxz00_8893;
BgL_auxz00_8893 = 
CAR(BgL_pairz00_2629); 
BgL_test2671z00_1247 = 
CBOOL(BgL_auxz00_8893); } } } } 
if(BgL_test2671z00_1247)
{ /* ./Llib/pregexp.scm 595 */
BgL_maximalzf3zf3_1199 = ((bool_t)0); }  else 
{ /* ./Llib/pregexp.scm 595 */
BgL_maximalzf3zf3_1199 = ((bool_t)1); } } 
{ /* ./Llib/pregexp.scm 595 */
obj_t BgL_pz00_1200;
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_pairz00_2630;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 596 */
BgL_pairz00_2630 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 596 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24036))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_arg3317z00_2631;
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_arg3320z00_2632;
BgL_arg3320z00_2632 = 
CDR(BgL_pairz00_2630); 
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_pairz00_2634;
if(
PAIRP(BgL_arg3320z00_2632))
{ /* ./Llib/pregexp.scm 596 */
BgL_pairz00_2634 = BgL_arg3320z00_2632; }  else 
{ /* ./Llib/pregexp.scm 596 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3320z00_2632, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24028))); 
exit( -1 );} 
BgL_arg3317z00_2631 = 
CDR(BgL_pairz00_2634); } } 
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_pairz00_2635;
if(
PAIRP(BgL_arg3317z00_2631))
{ /* ./Llib/pregexp.scm 596 */
BgL_pairz00_2635 = BgL_arg3317z00_2631; }  else 
{ /* ./Llib/pregexp.scm 596 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3317z00_2631, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24028))); 
exit( -1 );} 
BgL_pz00_1200 = 
CAR(BgL_pairz00_2635); } } } 
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_qz00_1201;
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_pairz00_2636;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 596 */
BgL_pairz00_2636 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 596 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24052))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_arg3198z00_2637;
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_arg3201z00_2638;
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_arg3204z00_2639;
BgL_arg3204z00_2639 = 
CDR(BgL_pairz00_2636); 
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_pairz00_2641;
if(
PAIRP(BgL_arg3204z00_2639))
{ /* ./Llib/pregexp.scm 596 */
BgL_pairz00_2641 = BgL_arg3204z00_2639; }  else 
{ /* ./Llib/pregexp.scm 596 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3204z00_2639, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24043))); 
exit( -1 );} 
BgL_arg3201z00_2638 = 
CDR(BgL_pairz00_2641); } } 
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_pairz00_2642;
if(
PAIRP(BgL_arg3201z00_2638))
{ /* ./Llib/pregexp.scm 596 */
BgL_pairz00_2642 = BgL_arg3201z00_2638; }  else 
{ /* ./Llib/pregexp.scm 596 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3201z00_2638, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24043))); 
exit( -1 );} 
BgL_arg3198z00_2637 = 
CDR(BgL_pairz00_2642); } } 
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_pairz00_2643;
if(
PAIRP(BgL_arg3198z00_2637))
{ /* ./Llib/pregexp.scm 596 */
BgL_pairz00_2643 = BgL_arg3198z00_2637; }  else 
{ /* ./Llib/pregexp.scm 596 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3198z00_2637, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24043))); 
exit( -1 );} 
BgL_qz00_1201 = 
CAR(BgL_pairz00_2643); } } } 
{ /* ./Llib/pregexp.scm 596 */
obj_t BgL_rez00_1202;
{ /* ./Llib/pregexp.scm 597 */
obj_t BgL_arg2666z00_1246;
{ /* ./Llib/pregexp.scm 597 */
obj_t BgL_pairz00_2644;
if(
PAIRP(BgL_rez00_1015))
{ /* ./Llib/pregexp.scm 597 */
BgL_pairz00_2644 = BgL_rez00_1015; }  else 
{ /* ./Llib/pregexp.scm 597 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1015, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24099))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 597 */
obj_t BgL_arg3128z00_2645;
{ /* ./Llib/pregexp.scm 597 */
obj_t BgL_arg3131z00_2646;
{ /* ./Llib/pregexp.scm 597 */
obj_t BgL_arg3134z00_2647;
BgL_arg3134z00_2647 = 
CDR(BgL_pairz00_2644); 
{ /* ./Llib/pregexp.scm 597 */
obj_t BgL_pairz00_2649;
if(
PAIRP(BgL_arg3134z00_2647))
{ /* ./Llib/pregexp.scm 597 */
BgL_pairz00_2649 = BgL_arg3134z00_2647; }  else 
{ /* ./Llib/pregexp.scm 597 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3134z00_2647, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24090))); 
exit( -1 );} 
BgL_arg3131z00_2646 = 
CDR(BgL_pairz00_2649); } } 
{ /* ./Llib/pregexp.scm 597 */
obj_t BgL_pairz00_2650;
if(
PAIRP(BgL_arg3131z00_2646))
{ /* ./Llib/pregexp.scm 597 */
BgL_pairz00_2650 = BgL_arg3131z00_2646; }  else 
{ /* ./Llib/pregexp.scm 597 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3131z00_2646, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24090))); 
exit( -1 );} 
BgL_arg3128z00_2645 = 
CDR(BgL_pairz00_2650); } } 
{ /* ./Llib/pregexp.scm 597 */
obj_t BgL_pairz00_2651;
if(
PAIRP(BgL_arg3128z00_2645))
{ /* ./Llib/pregexp.scm 597 */
BgL_pairz00_2651 = BgL_arg3128z00_2645; }  else 
{ /* ./Llib/pregexp.scm 597 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3128z00_2645, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24090))); 
exit( -1 );} 
BgL_arg2666z00_1246 = 
CDR(BgL_pairz00_2651); } } } 
{ /* ./Llib/pregexp.scm 597 */
obj_t BgL_pairz00_2652;
if(
PAIRP(BgL_arg2666z00_1246))
{ /* ./Llib/pregexp.scm 597 */
BgL_pairz00_2652 = BgL_arg2666z00_1246; }  else 
{ /* ./Llib/pregexp.scm 597 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg2666z00_1246, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24100))); 
exit( -1 );} 
BgL_rez00_1202 = 
CAR(BgL_pairz00_2652); } } 
{ /* ./Llib/pregexp.scm 597 */
bool_t BgL_subpatzf3zf3_1203;
{ /* ./Llib/pregexp.scm 598 */
bool_t BgL__andtest_1053z00_1243;
BgL__andtest_1053z00_1243 = 
PAIRP(BgL_rez00_1202); 
if(BgL__andtest_1053z00_1243)
{ /* ./Llib/pregexp.scm 598 */
obj_t BgL_arg2660z00_1244;obj_t BgL_arg2661z00_1245;
{ /* ./Llib/pregexp.scm 598 */
obj_t BgL_pairz00_2654;
if(BgL__andtest_1053z00_1243)
{ /* ./Llib/pregexp.scm 598 */
BgL_pairz00_2654 = BgL_rez00_1202; }  else 
{ /* ./Llib/pregexp.scm 598 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_rez00_1202, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24166))); 
exit( -1 );} 
BgL_arg2660z00_1244 = 
CAR(BgL_pairz00_2654); } 
BgL_arg2661z00_1245 = BGl_keyword10366z00zz__pregexpz00; 
BgL_subpatzf3zf3_1203 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_arg2660z00_1244, BgL_arg2661z00_1245); }  else 
{ /* ./Llib/pregexp.scm 598 */
BgL_subpatzf3zf3_1203 = ((bool_t)0); } } 
{ /* ./Llib/pregexp.scm 598 */

return 
BGl_loupzd2pzd2zz__pregexpz00(BgL_fkz00_1019, BgL_backrefsz00_1017, BgL_rez00_1202, BgL_qz00_1201, BgL_pz00_1200, 
BBOOL(BgL_maximalzf3zf3_1199), BgL_skz00_1018, 
BBOOL(BgL_subpatzf3zf3_1203), BgL_sz00_3282, BgL_snz00_3281, BgL_casezd2sensitivezf3z21_3280, BgL_nz00_3279, ((long)0), BgL_iz00_1016, BGl_symbol10456z00zz__pregexpz00);} } } } } }  else 
{ /* ./Llib/pregexp.scm 505 */
return 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol10415z00zz__pregexpz00, BNIL);} } } } } } } } } } } } } } } }  else 
{ /* ./Llib/pregexp.scm 628 */
bool_t BgL_test2690z00_1249;
{ /* ./Llib/pregexp.scm 628 */
long BgL_n1z00_2673;long BgL_n2z00_2674;
{ /* ./Llib/pregexp.scm 628 */
obj_t BgL_auxz00_8981;
if(
INTEGERP(BgL_iz00_1016))
{ /* ./Llib/pregexp.scm 628 */
BgL_auxz00_8981 = BgL_iz00_1016
; }  else 
{ /* ./Llib/pregexp.scm 628 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1016, BGl_string10330z00zz__pregexpz00, 
BINT(((long)25946))); 
exit( -1 );} 
BgL_n1z00_2673 = 
(long)CINT(BgL_auxz00_8981); } 
{ /* ./Llib/pregexp.scm 628 */
obj_t BgL_auxz00_8988;
{ /* ./Llib/pregexp.scm 628 */
obj_t BgL_aux8507z00_4303;
BgL_aux8507z00_4303 = 
CELL_REF(BgL_nz00_3279); 
if(
INTEGERP(BgL_aux8507z00_4303))
{ /* ./Llib/pregexp.scm 628 */
BgL_auxz00_8988 = BgL_aux8507z00_4303
; }  else 
{ /* ./Llib/pregexp.scm 628 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_aux8507z00_4303, BGl_string10330z00zz__pregexpz00, 
BINT(((long)25946))); 
exit( -1 );} } 
BgL_n2z00_2674 = 
(long)CINT(BgL_auxz00_8988); } 
BgL_test2690z00_1249 = 
(BgL_n1z00_2673>=BgL_n2z00_2674); } 
if(BgL_test2690z00_1249)
{ /* ./Llib/pregexp.scm 628 */
{ /* ./Llib/pregexp.scm 628 */
obj_t BgL_funz00_4307;
if(
PROCEDUREP(BgL_fkz00_1019))
{ /* ./Llib/pregexp.scm 628 */
BgL_funz00_4307 = BgL_fkz00_1019; }  else 
{ /* ./Llib/pregexp.scm 628 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10419z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_1019, BGl_string10330z00zz__pregexpz00, 
BINT(((long)25955))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4307, ((long)0)))
{ /* ./Llib/pregexp.scm 628 */
return 
PROCEDURE_ENTRY(BgL_funz00_4307)(BgL_fkz00_1019, BEOA);}  else 
{ /* ./Llib/pregexp.scm 628 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10420z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4307, BGl_string10330z00zz__pregexpz00, 
BINT(((long)25955))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } }  else 
{ /* ./Llib/pregexp.scm 628 */
return 
BGl_pregexpzd2errorzd2zz__pregexpz00(BGl_symbol10415z00zz__pregexpz00, BNIL);} } } } } } } } } } } 
}



/* loup-seq */
obj_t BGl_loupzd2seqzd2zz__pregexpz00(obj_t BgL_skz00_3297, obj_t BgL_fkz00_3296, obj_t BgL_sz00_3295, obj_t BgL_snz00_3294, obj_t BgL_casezd2sensitivezf3z21_3293, obj_t BgL_nz00_3292, obj_t BgL_resz00_2499, obj_t BgL_iz00_2500, obj_t BgL_backrefsz00_2501)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 521 */
if(
NULLP(BgL_resz00_2499))
{ /* ./Llib/pregexp.scm 521 */
obj_t BgL_funz00_4312;
if(
PROCEDUREP(BgL_skz00_3297))
{ /* ./Llib/pregexp.scm 521 */
BgL_funz00_4312 = BgL_skz00_3297; }  else 
{ /* ./Llib/pregexp.scm 521 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10457z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_3297, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20350))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4312, ((long)2)))
{ /* ./Llib/pregexp.scm 521 */
return 
PROCEDURE_ENTRY(BgL_funz00_4312)(BgL_skz00_3297, BgL_iz00_2500, BgL_backrefsz00_2501, BEOA);}  else 
{ /* ./Llib/pregexp.scm 521 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10458z00zz__pregexpz00, BGl_list10421z00zz__pregexpz00, BgL_funz00_4312, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20350))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ /* ./Llib/pregexp.scm 521 */
obj_t BgL_arg2441z00_2509;
{ /* ./Llib/pregexp.scm 521 */
obj_t BgL_pairz00_2515;
if(
PAIRP(BgL_resz00_2499))
{ /* ./Llib/pregexp.scm 521 */
BgL_pairz00_2515 = BgL_resz00_2499; }  else 
{ /* ./Llib/pregexp.scm 521 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10457z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_resz00_2499, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20350))); 
exit( -1 );} 
BgL_arg2441z00_2509 = 
CAR(BgL_pairz00_2515); } 
{ /* ./Llib/pregexp.scm 521 */
obj_t BgL_zc3anonymousza32445za3llibzf2pregexpze2scmza3523ze3z93_3231;
{ 
int BgL_auxz00_9032;int BgL_auxz00_9030;
BgL_auxz00_9032 = 
(int)(((long)7)); 
BgL_auxz00_9030 = 
(int)(((long)2)); 
BgL_zc3anonymousza32445za3llibzf2pregexpze2scmza3523ze3z93_3231 = 
make_fx_procedure(BGl_zc3anonymousza32445za3Llibzf2pregexpze2scmza3523ze3z93zz__pregexpz00, BgL_auxz00_9030, BgL_auxz00_9032); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_9035;
BgL_auxz00_9035 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32445za3llibzf2pregexpze2scmza3523ze3z93_3231, BgL_auxz00_9035, BgL_nz00_3292); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_9038;
BgL_auxz00_9038 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32445za3llibzf2pregexpze2scmza3523ze3z93_3231, BgL_auxz00_9038, BgL_casezd2sensitivezf3z21_3293); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_9041;
BgL_auxz00_9041 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32445za3llibzf2pregexpze2scmza3523ze3z93_3231, BgL_auxz00_9041, BgL_snz00_3294); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_9044;
BgL_auxz00_9044 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32445za3llibzf2pregexpze2scmza3523ze3z93_3231, BgL_auxz00_9044, BgL_sz00_3295); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_9047;
BgL_auxz00_9047 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32445za3llibzf2pregexpze2scmza3523ze3z93_3231, BgL_auxz00_9047, BgL_fkz00_3296); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_9050;
BgL_auxz00_9050 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32445za3llibzf2pregexpze2scmza3523ze3z93_3231, BgL_auxz00_9050, BgL_skz00_3297); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_9053;
BgL_auxz00_9053 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32445za3llibzf2pregexpze2scmza3523ze3z93_3231, BgL_auxz00_9053, BgL_resz00_2499); } 
return 
BGl_subz00zz__pregexpz00(BgL_sz00_3295, BgL_snz00_3294, BgL_casezd2sensitivezf3z21_3293, BgL_nz00_3292, BgL_arg2441z00_2509, BgL_iz00_2500, BgL_backrefsz00_2501, BgL_zc3anonymousza32445za3llibzf2pregexpze2scmza3523ze3z93_3231, BgL_fkz00_3296);} } } 
}



/* loup-or */
obj_t BGl_loupzd2orzd2zz__pregexpz00(obj_t BgL_fkz00_3305, obj_t BgL_backrefsz00_3304, obj_t BgL_iz00_3303, obj_t BgL_skz00_3302, obj_t BgL_sz00_3301, obj_t BgL_snz00_3300, obj_t BgL_casezd2sensitivezf3z21_3299, obj_t BgL_nz00_3298, obj_t BgL_resz00_1094)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 528 */
if(
NULLP(BgL_resz00_1094))
{ /* ./Llib/pregexp.scm 529 */
obj_t BgL_funz00_4319;
if(
PROCEDUREP(BgL_fkz00_3305))
{ /* ./Llib/pregexp.scm 529 */
BgL_funz00_4319 = BgL_fkz00_3305; }  else 
{ /* ./Llib/pregexp.scm 529 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10459z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_3305, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20762))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4319, ((long)0)))
{ /* ./Llib/pregexp.scm 529 */
return 
PROCEDURE_ENTRY(BgL_funz00_4319)(BgL_fkz00_3305, BEOA);}  else 
{ /* ./Llib/pregexp.scm 529 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10460z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4319, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20762))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} }  else 
{ /* ./Llib/pregexp.scm 530 */
obj_t BgL_arg2459z00_1098;
{ /* ./Llib/pregexp.scm 530 */
obj_t BgL_pairz00_2543;
if(
PAIRP(BgL_resz00_1094))
{ /* ./Llib/pregexp.scm 530 */
BgL_pairz00_2543 = BgL_resz00_1094; }  else 
{ /* ./Llib/pregexp.scm 530 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10459z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_resz00_1094, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20803))); 
exit( -1 );} 
BgL_arg2459z00_1098 = 
CAR(BgL_pairz00_2543); } 
{ /* ./Llib/pregexp.scm 532 */
obj_t BgL_zc3anonymousza32464za3llibzf2pregexpze2scmza3530ze3z93_3234;obj_t BgL_zc3anonymousza32470za3llibzf2pregexpze2scmza3530ze3z93_3233;
{ 
int BgL_auxz00_9079;int BgL_auxz00_9077;
BgL_auxz00_9079 = 
(int)(((long)9)); 
BgL_auxz00_9077 = 
(int)(((long)2)); 
BgL_zc3anonymousza32464za3llibzf2pregexpze2scmza3530ze3z93_3234 = 
make_fx_procedure(BGl_zc3anonymousza32464za3Llibzf2pregexpze2scmza3530ze3z93zz__pregexpz00, BgL_auxz00_9077, BgL_auxz00_9079); } 
{ 
int BgL_auxz00_9084;int BgL_auxz00_9082;
BgL_auxz00_9084 = 
(int)(((long)9)); 
BgL_auxz00_9082 = 
(int)(((long)0)); 
BgL_zc3anonymousza32470za3llibzf2pregexpze2scmza3530ze3z93_3233 = 
make_fx_procedure(BGl_zc3anonymousza32470za3Llibzf2pregexpze2scmza3530ze3z93zz__pregexpz00, BgL_auxz00_9082, BgL_auxz00_9084); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9087;
BgL_auxz00_9087 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32464za3llibzf2pregexpze2scmza3530ze3z93_3234, BgL_auxz00_9087, BgL_nz00_3298); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9090;
BgL_auxz00_9090 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32464za3llibzf2pregexpze2scmza3530ze3z93_3234, BgL_auxz00_9090, BgL_casezd2sensitivezf3z21_3299); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9093;
BgL_auxz00_9093 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32464za3llibzf2pregexpze2scmza3530ze3z93_3234, BgL_auxz00_9093, BgL_snz00_3300); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9096;
BgL_auxz00_9096 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32464za3llibzf2pregexpze2scmza3530ze3z93_3234, BgL_auxz00_9096, BgL_sz00_3301); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9099;
BgL_auxz00_9099 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32464za3llibzf2pregexpze2scmza3530ze3z93_3234, BgL_auxz00_9099, BgL_iz00_3303); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9102;
BgL_auxz00_9102 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32464za3llibzf2pregexpze2scmza3530ze3z93_3234, BgL_auxz00_9102, BgL_backrefsz00_3304); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9105;
BgL_auxz00_9105 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32464za3llibzf2pregexpze2scmza3530ze3z93_3234, BgL_auxz00_9105, BgL_fkz00_3305); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9108;
BgL_auxz00_9108 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_zc3anonymousza32464za3llibzf2pregexpze2scmza3530ze3z93_3234, BgL_auxz00_9108, BgL_skz00_3302); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9111;
BgL_auxz00_9111 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_zc3anonymousza32464za3llibzf2pregexpze2scmza3530ze3z93_3234, BgL_auxz00_9111, BgL_resz00_1094); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9114;
BgL_auxz00_9114 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32470za3llibzf2pregexpze2scmza3530ze3z93_3233, BgL_auxz00_9114, BgL_nz00_3298); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9117;
BgL_auxz00_9117 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32470za3llibzf2pregexpze2scmza3530ze3z93_3233, BgL_auxz00_9117, BgL_casezd2sensitivezf3z21_3299); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9120;
BgL_auxz00_9120 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32470za3llibzf2pregexpze2scmza3530ze3z93_3233, BgL_auxz00_9120, BgL_snz00_3300); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9123;
BgL_auxz00_9123 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32470za3llibzf2pregexpze2scmza3530ze3z93_3233, BgL_auxz00_9123, BgL_sz00_3301); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9126;
BgL_auxz00_9126 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32470za3llibzf2pregexpze2scmza3530ze3z93_3233, BgL_auxz00_9126, BgL_skz00_3302); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9129;
BgL_auxz00_9129 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32470za3llibzf2pregexpze2scmza3530ze3z93_3233, BgL_auxz00_9129, BgL_iz00_3303); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9132;
BgL_auxz00_9132 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32470za3llibzf2pregexpze2scmza3530ze3z93_3233, BgL_auxz00_9132, BgL_backrefsz00_3304); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9135;
BgL_auxz00_9135 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_zc3anonymousza32470za3llibzf2pregexpze2scmza3530ze3z93_3233, BgL_auxz00_9135, BgL_fkz00_3305); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9138;
BgL_auxz00_9138 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_zc3anonymousza32470za3llibzf2pregexpze2scmza3530ze3z93_3233, BgL_auxz00_9138, BgL_resz00_1094); } 
return 
BGl_subz00zz__pregexpz00(BgL_sz00_3301, BgL_snz00_3300, BgL_casezd2sensitivezf3z21_3299, BgL_nz00_3298, BgL_arg2459z00_1098, BgL_iz00_3303, BgL_backrefsz00_3304, BgL_zc3anonymousza32464za3llibzf2pregexpze2scmza3530ze3z93_3234, BgL_zc3anonymousza32470za3llibzf2pregexpze2scmza3530ze3z93_3233);} } } 
}



/* loup-p */
obj_t BGl_loupzd2pzd2zz__pregexpz00(obj_t BgL_fkz00_3317, obj_t BgL_backrefsz00_3316, obj_t BgL_rez00_3315, obj_t BgL_qz00_3314, obj_t BgL_pz00_3313, obj_t BgL_maximalzf3zf3_3312, obj_t BgL_skz00_3311, obj_t BgL_subpatzf3zf3_3310, obj_t BgL_sz00_3309, obj_t BgL_snz00_3308, obj_t BgL_casezd2sensitivezf3z21_3307, obj_t BgL_nz00_3306, long BgL_kz00_1204, obj_t BgL_iz00_1205, obj_t BgL_cbackrefsz00_1206)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 599 */
{ /* ./Llib/pregexp.scm 600 */
bool_t BgL_test2614z00_1208;
{ /* ./Llib/pregexp.scm 600 */
long BgL_n2z00_2656;
{ /* ./Llib/pregexp.scm 600 */
obj_t BgL_auxz00_9142;
if(
INTEGERP(BgL_pz00_3313))
{ /* ./Llib/pregexp.scm 600 */
BgL_auxz00_9142 = BgL_pz00_3313
; }  else 
{ /* ./Llib/pregexp.scm 600 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10461z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_pz00_3313, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24282))); 
exit( -1 );} 
BgL_n2z00_2656 = 
(long)CINT(BgL_auxz00_9142); } 
BgL_test2614z00_1208 = 
(BgL_kz00_1204<BgL_n2z00_2656); } 
if(BgL_test2614z00_1208)
{ /* ./Llib/pregexp.scm 603 */
obj_t BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240;
{ 
int BgL_auxz00_9153;int BgL_auxz00_9151;
BgL_auxz00_9153 = 
(int)(((long)13)); 
BgL_auxz00_9151 = 
(int)(((long)2)); 
BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240 = 
make_fx_procedure(BGl_zc3anonymousza32618za3Llibzf2pregexpze2scmza3601ze3z93zz__pregexpz00, BgL_auxz00_9151, BgL_auxz00_9153); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9156;
BgL_auxz00_9156 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240, BgL_auxz00_9156, BgL_nz00_3306); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9159;
BgL_auxz00_9159 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240, BgL_auxz00_9159, BgL_casezd2sensitivezf3z21_3307); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9162;
BgL_auxz00_9162 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240, BgL_auxz00_9162, BgL_snz00_3308); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9165;
BgL_auxz00_9165 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240, BgL_auxz00_9165, BgL_sz00_3309); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9168;
BgL_auxz00_9168 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240, BgL_auxz00_9168, BgL_subpatzf3zf3_3310); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9171;
BgL_auxz00_9171 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240, BgL_auxz00_9171, BgL_skz00_3311); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9174;
BgL_auxz00_9174 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240, BgL_auxz00_9174, BgL_maximalzf3zf3_3312); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9177;
BgL_auxz00_9177 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240, BgL_auxz00_9177, BgL_pz00_3313); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9180;
BgL_auxz00_9180 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240, BgL_auxz00_9180, BgL_qz00_3314); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9183;
BgL_auxz00_9183 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240, BgL_auxz00_9183, BgL_rez00_3315); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9186;
BgL_auxz00_9186 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240, BgL_auxz00_9186, BgL_backrefsz00_3316); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9189;
BgL_auxz00_9189 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240, BgL_auxz00_9189, BgL_fkz00_3317); } 
{ /* ./Llib/pregexp.scm 603 */
obj_t BgL_auxz00_9194;int BgL_auxz00_9192;
BgL_auxz00_9194 = 
BINT(BgL_kz00_1204); 
BgL_auxz00_9192 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240, BgL_auxz00_9192, BgL_auxz00_9194); } 
return 
BGl_subz00zz__pregexpz00(BgL_sz00_3309, BgL_snz00_3308, BgL_casezd2sensitivezf3z21_3307, BgL_nz00_3306, BgL_rez00_3315, BgL_iz00_1205, BgL_backrefsz00_3316, BgL_zc3anonymousza32618za3llibzf2pregexpze2scmza3601ze3z93_3240, BgL_fkz00_3317);}  else 
{ /* ./Llib/pregexp.scm 605 */
obj_t BgL_qz00_1215;
if(
CBOOL(BgL_qz00_3314))
{ /* ./Llib/pregexp.scm 605 */
long BgL_za71za7_2660;long BgL_za72za7_2661;
{ /* ./Llib/pregexp.scm 605 */
obj_t BgL_auxz00_9200;
if(
INTEGERP(BgL_qz00_3314))
{ /* ./Llib/pregexp.scm 605 */
BgL_auxz00_9200 = BgL_qz00_3314
; }  else 
{ /* ./Llib/pregexp.scm 605 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10461z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_qz00_3314, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24516))); 
exit( -1 );} 
BgL_za71za7_2660 = 
(long)CINT(BgL_auxz00_9200); } 
{ /* ./Llib/pregexp.scm 605 */
obj_t BgL_auxz00_9207;
if(
INTEGERP(BgL_pz00_3313))
{ /* ./Llib/pregexp.scm 605 */
BgL_auxz00_9207 = BgL_pz00_3313
; }  else 
{ /* ./Llib/pregexp.scm 605 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10461z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_pz00_3313, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24516))); 
exit( -1 );} 
BgL_za72za7_2661 = 
(long)CINT(BgL_auxz00_9207); } 
{ /* ./Llib/pregexp.scm 605 */
long BgL_auxz00_9214;
BgL_auxz00_9214 = 
(BgL_za71za7_2660-BgL_za72za7_2661); 
BgL_qz00_1215 = 
BINT(BgL_auxz00_9214); } }  else 
{ /* ./Llib/pregexp.scm 605 */
BgL_qz00_1215 = BFALSE; } 
return 
BGl_loupzd2qzd2zz__pregexpz00(BgL_maximalzf3zf3_3312, BgL_rez00_3315, BgL_qz00_1215, BgL_skz00_3311, BgL_subpatzf3zf3_3310, BgL_backrefsz00_3316, BgL_sz00_3309, BgL_snz00_3308, BgL_casezd2sensitivezf3z21_3307, BgL_nz00_3306, ((long)0), BgL_iz00_1205, BgL_cbackrefsz00_1206);} } } 
}



/* loup-q */
obj_t BGl_loupzd2qzd2zz__pregexpz00(obj_t BgL_maximalzf3zf3_3327, obj_t BgL_rez00_3326, obj_t BgL_qz00_3325, obj_t BgL_skz00_3324, obj_t BgL_subpatzf3zf3_3323, obj_t BgL_backrefsz00_3322, obj_t BgL_sz00_3321, obj_t BgL_snz00_3320, obj_t BgL_casezd2sensitivezf3z21_3319, obj_t BgL_nz00_3318, long BgL_kz00_1216, obj_t BgL_iz00_1217, obj_t BgL_cbackrefsz00_1218)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 606 */
{ /* ./Llib/pregexp.scm 608 */
obj_t BgL_fkz00_3236;
{ 
int BgL_auxz00_9220;int BgL_auxz00_9218;
BgL_auxz00_9220 = 
(int)(((long)5)); 
BgL_auxz00_9218 = 
(int)(((long)0)); 
BgL_fkz00_3236 = 
make_fx_procedure(BGl_fkz00zz__pregexpz00, BgL_auxz00_9218, BgL_auxz00_9220); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_9223;
BgL_auxz00_9223 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_fkz00_3236, BgL_auxz00_9223, BgL_cbackrefsz00_1218); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_9226;
BgL_auxz00_9226 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_fkz00_3236, BgL_auxz00_9226, BgL_backrefsz00_3322); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_9229;
BgL_auxz00_9229 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_fkz00_3236, BgL_auxz00_9229, BgL_subpatzf3zf3_3323); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_9232;
BgL_auxz00_9232 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_fkz00_3236, BgL_auxz00_9232, BgL_skz00_3324); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_9235;
BgL_auxz00_9235 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_fkz00_3236, BgL_auxz00_9235, BgL_iz00_1217); } 
{ /* ./Llib/pregexp.scm 615 */
bool_t BgL_test2624z00_1221;
if(
CBOOL(BgL_qz00_3325))
{ /* ./Llib/pregexp.scm 615 */
long BgL_n2z00_2663;
{ /* ./Llib/pregexp.scm 615 */
obj_t BgL_auxz00_9240;
if(
INTEGERP(BgL_qz00_3325))
{ /* ./Llib/pregexp.scm 615 */
BgL_auxz00_9240 = BgL_qz00_3325
; }  else 
{ /* ./Llib/pregexp.scm 615 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10462z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_qz00_3325, BGl_string10330z00zz__pregexpz00, 
BINT(((long)25173))); 
exit( -1 );} 
BgL_n2z00_2663 = 
(long)CINT(BgL_auxz00_9240); } 
BgL_test2624z00_1221 = 
(BgL_kz00_1216>=BgL_n2z00_2663); }  else 
{ /* ./Llib/pregexp.scm 615 */
BgL_test2624z00_1221 = ((bool_t)0); } 
if(BgL_test2624z00_1221)
{ /* ./Llib/pregexp.scm 615 */
return 
BGl_fkz00zz__pregexpz00(BgL_fkz00_3236);}  else 
{ /* ./Llib/pregexp.scm 615 */
if(
CBOOL(BgL_maximalzf3zf3_3327))
{ /* ./Llib/pregexp.scm 619 */
obj_t BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237;
{ 
int BgL_auxz00_9254;int BgL_auxz00_9252;
BgL_auxz00_9254 = 
(int)(((long)14)); 
BgL_auxz00_9252 = 
(int)(((long)2)); 
BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237 = 
make_fx_procedure(BGl_zc3anonymousza32629za3Llibzf2pregexpze2scmza3617ze3z93zz__pregexpz00, BgL_auxz00_9252, BgL_auxz00_9254); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9257;
BgL_auxz00_9257 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237, BgL_auxz00_9257, BgL_cbackrefsz00_1218); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9260;
BgL_auxz00_9260 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237, BgL_auxz00_9260, BgL_iz00_1217); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9263;
BgL_auxz00_9263 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237, BgL_auxz00_9263, BgL_nz00_3318); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9266;
BgL_auxz00_9266 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237, BgL_auxz00_9266, BgL_casezd2sensitivezf3z21_3319); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9269;
BgL_auxz00_9269 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237, BgL_auxz00_9269, BgL_snz00_3320); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9272;
BgL_auxz00_9272 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237, BgL_auxz00_9272, BgL_sz00_3321); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9275;
BgL_auxz00_9275 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237, BgL_auxz00_9275, BgL_backrefsz00_3322); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9278;
BgL_auxz00_9278 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237, BgL_auxz00_9278, BgL_subpatzf3zf3_3323); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9281;
BgL_auxz00_9281 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237, BgL_auxz00_9281, BgL_skz00_3324); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9284;
BgL_auxz00_9284 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237, BgL_auxz00_9284, BgL_qz00_3325); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9287;
BgL_auxz00_9287 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237, BgL_auxz00_9287, BgL_rez00_3326); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9290;
BgL_auxz00_9290 = 
(int)(((long)11)); 
PROCEDURE_SET(BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237, BgL_auxz00_9290, BgL_maximalzf3zf3_3327); } 
{ /* ./Llib/pregexp.scm 619 */
obj_t BgL_auxz00_9295;int BgL_auxz00_9293;
BgL_auxz00_9295 = 
BINT(BgL_kz00_1216); 
BgL_auxz00_9293 = 
(int)(((long)12)); 
PROCEDURE_SET(BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237, BgL_auxz00_9293, BgL_auxz00_9295); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9298;
BgL_auxz00_9298 = 
(int)(((long)13)); 
PROCEDURE_SET(BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237, BgL_auxz00_9298, BgL_fkz00_3236); } 
return 
BGl_subz00zz__pregexpz00(BgL_sz00_3321, BgL_snz00_3320, BgL_casezd2sensitivezf3z21_3319, BgL_nz00_3318, BgL_rez00_3326, BgL_iz00_1217, BgL_backrefsz00_3322, BgL_zc3anonymousza32629za3llibzf2pregexpze2scmza3617ze3z93_3237, BgL_fkz00_3236);}  else 
{ /* ./Llib/pregexp.scm 622 */
obj_t BgL__ortest_1056z00_1229;
BgL__ortest_1056z00_1229 = 
BGl_fkz00zz__pregexpz00(BgL_fkz00_3236); 
if(
CBOOL(BgL__ortest_1056z00_1229))
{ /* ./Llib/pregexp.scm 623 */
return BgL__ortest_1056z00_1229;}  else 
{ /* ./Llib/pregexp.scm 625 */
obj_t BgL_zc3anonymousza32638za3llibzf2pregexpze2scmza3623ze3z93_3238;
{ 
int BgL_auxz00_9307;int BgL_auxz00_9305;
BgL_auxz00_9307 = 
(int)(((long)11)); 
BgL_auxz00_9305 = 
(int)(((long)2)); 
BgL_zc3anonymousza32638za3llibzf2pregexpze2scmza3623ze3z93_3238 = 
make_fx_procedure(BGl_zc3anonymousza32638za3Llibzf2pregexpze2scmza3623ze3z93zz__pregexpz00, BgL_auxz00_9305, BgL_auxz00_9307); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9310;
BgL_auxz00_9310 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32638za3llibzf2pregexpze2scmza3623ze3z93_3238, BgL_auxz00_9310, BgL_nz00_3318); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9313;
BgL_auxz00_9313 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32638za3llibzf2pregexpze2scmza3623ze3z93_3238, BgL_auxz00_9313, BgL_casezd2sensitivezf3z21_3319); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9316;
BgL_auxz00_9316 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32638za3llibzf2pregexpze2scmza3623ze3z93_3238, BgL_auxz00_9316, BgL_snz00_3320); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9319;
BgL_auxz00_9319 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32638za3llibzf2pregexpze2scmza3623ze3z93_3238, BgL_auxz00_9319, BgL_sz00_3321); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9322;
BgL_auxz00_9322 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32638za3llibzf2pregexpze2scmza3623ze3z93_3238, BgL_auxz00_9322, BgL_backrefsz00_3322); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9325;
BgL_auxz00_9325 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza32638za3llibzf2pregexpze2scmza3623ze3z93_3238, BgL_auxz00_9325, BgL_subpatzf3zf3_3323); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9328;
BgL_auxz00_9328 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza32638za3llibzf2pregexpze2scmza3623ze3z93_3238, BgL_auxz00_9328, BgL_skz00_3324); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9331;
BgL_auxz00_9331 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_zc3anonymousza32638za3llibzf2pregexpze2scmza3623ze3z93_3238, BgL_auxz00_9331, BgL_qz00_3325); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9334;
BgL_auxz00_9334 = 
(int)(((long)8)); 
PROCEDURE_SET(BgL_zc3anonymousza32638za3llibzf2pregexpze2scmza3623ze3z93_3238, BgL_auxz00_9334, BgL_rez00_3326); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9337;
BgL_auxz00_9337 = 
(int)(((long)9)); 
PROCEDURE_SET(BgL_zc3anonymousza32638za3llibzf2pregexpze2scmza3623ze3z93_3238, BgL_auxz00_9337, BgL_maximalzf3zf3_3327); } 
{ /* ./Llib/pregexp.scm 625 */
obj_t BgL_auxz00_9342;int BgL_auxz00_9340;
BgL_auxz00_9342 = 
BINT(BgL_kz00_1216); 
BgL_auxz00_9340 = 
(int)(((long)10)); 
PROCEDURE_SET(BgL_zc3anonymousza32638za3llibzf2pregexpze2scmza3623ze3z93_3238, BgL_auxz00_9340, BgL_auxz00_9342); } 
return 
BGl_subz00zz__pregexpz00(BgL_sz00_3321, BgL_snz00_3320, BgL_casezd2sensitivezf3z21_3319, BgL_nz00_3318, BgL_rez00_3326, BgL_iz00_1217, BgL_backrefsz00_3322, BgL_zc3anonymousza32638za3llibzf2pregexpze2scmza3623ze3z93_3238, BgL_fkz00_3236);} } } } } } 
}



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



/* <anonymous:2409:Llib/pregexp.scm:512> */
obj_t BGl_zc3anonymousza32409za3Llibzf2pregexpze2scmza3512ze3z93zz__pregexpz00(obj_t BgL_envz00_3329)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 513 */
{ /* ./Llib/pregexp.scm 514 */
obj_t BgL_nz00_3330;obj_t BgL_casezd2sensitivezf3z21_3331;obj_t BgL_snz00_3332;obj_t BgL_sz00_3333;obj_t BgL_iz00_3334;obj_t BgL_backrefsz00_3335;obj_t BgL_skz00_3336;obj_t BgL_fkz00_3337;obj_t BgL_charsz00_3338;
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_9347;
BgL_auxz00_9347 = 
(int)(((long)0)); 
BgL_nz00_3330 = 
PROCEDURE_REF(BgL_envz00_3329, BgL_auxz00_9347); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_9350;
BgL_auxz00_9350 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3331 = 
PROCEDURE_REF(BgL_envz00_3329, BgL_auxz00_9350); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_9353;
BgL_auxz00_9353 = 
(int)(((long)2)); 
BgL_snz00_3332 = 
PROCEDURE_REF(BgL_envz00_3329, BgL_auxz00_9353); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_9356;
BgL_auxz00_9356 = 
(int)(((long)3)); 
BgL_sz00_3333 = 
PROCEDURE_REF(BgL_envz00_3329, BgL_auxz00_9356); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_9359;
BgL_auxz00_9359 = 
(int)(((long)4)); 
BgL_iz00_3334 = 
PROCEDURE_REF(BgL_envz00_3329, BgL_auxz00_9359); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_9362;
BgL_auxz00_9362 = 
(int)(((long)5)); 
BgL_backrefsz00_3335 = 
PROCEDURE_REF(BgL_envz00_3329, BgL_auxz00_9362); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_9365;
BgL_auxz00_9365 = 
(int)(((long)6)); 
BgL_skz00_3336 = 
PROCEDURE_REF(BgL_envz00_3329, BgL_auxz00_9365); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_9368;
BgL_auxz00_9368 = 
(int)(((long)7)); 
BgL_fkz00_3337 = 
PROCEDURE_REF(BgL_envz00_3329, BgL_auxz00_9368); } 
{ /* ./Llib/pregexp.scm 514 */
int BgL_auxz00_9371;
BgL_auxz00_9371 = 
(int)(((long)8)); 
BgL_charsz00_3338 = 
PROCEDURE_REF(BgL_envz00_3329, BgL_auxz00_9371); } 
{ 

{ /* ./Llib/pregexp.scm 514 */
obj_t BgL_arg2411z00_2487;
{ /* ./Llib/pregexp.scm 514 */
obj_t BgL_pairz00_2488;
if(
PAIRP(BgL_charsz00_3338))
{ /* ./Llib/pregexp.scm 514 */
BgL_pairz00_2488 = BgL_charsz00_3338; }  else 
{ /* ./Llib/pregexp.scm 514 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10463z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_charsz00_3338, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20069))); 
exit( -1 );} 
BgL_arg2411z00_2487 = 
CDR(BgL_pairz00_2488); } 
return 
BGl_loupzd2onezd2ofzd2charszd2zz__pregexpz00(BgL_fkz00_3337, BgL_skz00_3336, BgL_backrefsz00_3335, BgL_iz00_3334, BgL_sz00_3333, BgL_snz00_3332, BgL_casezd2sensitivezf3z21_3331, BgL_nz00_3330, BgL_arg2411z00_2487);} } } } 
}



/* <anonymous:2427:Llib/pregexp.scm:517> */
obj_t BGl_zc3anonymousza32427za3Llibzf2pregexpze2scmza3517ze3z93zz__pregexpz00(obj_t BgL_envz00_3339)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 519 */
{ /* ./Llib/pregexp.scm 519 */
obj_t BgL_iz00_3340;obj_t BgL_skz00_3341;obj_t BgL_backrefsz00_3342;
{ /* ./Llib/pregexp.scm 519 */
int BgL_auxz00_9381;
BgL_auxz00_9381 = 
(int)(((long)0)); 
BgL_iz00_3340 = 
PROCEDURE_REF(BgL_envz00_3339, BgL_auxz00_9381); } 
{ /* ./Llib/pregexp.scm 519 */
int BgL_auxz00_9384;
BgL_auxz00_9384 = 
(int)(((long)1)); 
BgL_skz00_3341 = 
PROCEDURE_REF(BgL_envz00_3339, BgL_auxz00_9384); } 
{ /* ./Llib/pregexp.scm 519 */
int BgL_auxz00_9387;
BgL_auxz00_9387 = 
(int)(((long)2)); 
BgL_backrefsz00_3342 = 
PROCEDURE_REF(BgL_envz00_3339, BgL_auxz00_9387); } 
{ 

{ /* ./Llib/pregexp.scm 519 */
long BgL_arg2429z00_1076;
{ /* ./Llib/pregexp.scm 519 */
long BgL_za71za7_2495;
{ /* ./Llib/pregexp.scm 519 */
obj_t BgL_auxz00_9390;
if(
INTEGERP(BgL_iz00_3340))
{ /* ./Llib/pregexp.scm 519 */
BgL_auxz00_9390 = BgL_iz00_3340
; }  else 
{ /* ./Llib/pregexp.scm 519 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10464z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_3340, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20285))); 
exit( -1 );} 
BgL_za71za7_2495 = 
(long)CINT(BgL_auxz00_9390); } 
BgL_arg2429z00_1076 = 
(BgL_za71za7_2495+((long)1)); } 
{ /* ./Llib/pregexp.scm 519 */
obj_t BgL_funz00_4338;
if(
PROCEDUREP(BgL_skz00_3341))
{ /* ./Llib/pregexp.scm 519 */
BgL_funz00_4338 = BgL_skz00_3341; }  else 
{ /* ./Llib/pregexp.scm 519 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10464z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_3341, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20281))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4338, ((long)2)))
{ /* ./Llib/pregexp.scm 519 */
return 
PROCEDURE_ENTRY(BgL_funz00_4338)(BgL_skz00_3341, 
BINT(BgL_arg2429z00_1076), BgL_backrefsz00_3342, BEOA);}  else 
{ /* ./Llib/pregexp.scm 519 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10465z00zz__pregexpz00, BGl_list10466z00zz__pregexpz00, BgL_funz00_4338, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20281))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } } } } 
}



/* <anonymous:2425:Llib/pregexp.scm:517> */
obj_t BGl_zc3anonymousza32425za3Llibzf2pregexpze2scmza3517ze3z93zz__pregexpz00(obj_t BgL_envz00_3343, obj_t BgL_i1z00_3345, obj_t BgL_backrefs1z00_3346)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 518 */
{ /* ./Llib/pregexp.scm 518 */
obj_t BgL_fkz00_3344;
{ /* ./Llib/pregexp.scm 518 */
int BgL_auxz00_9411;
BgL_auxz00_9411 = 
(int)(((long)0)); 
BgL_fkz00_3344 = 
PROCEDURE_REF(BgL_envz00_3343, BgL_auxz00_9411); } 
{ 
obj_t BgL_i1z00_1072;obj_t BgL_backrefs1z00_1073;
BgL_i1z00_1072 = BgL_i1z00_3345; 
BgL_backrefs1z00_1073 = BgL_backrefs1z00_3346; 
{ /* ./Llib/pregexp.scm 518 */
obj_t BgL_funz00_4343;
if(
PROCEDUREP(BgL_fkz00_3344))
{ /* ./Llib/pregexp.scm 518 */
BgL_funz00_4343 = BgL_fkz00_3344; }  else 
{ /* ./Llib/pregexp.scm 518 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10468z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_3344, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20240))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4343, ((long)0)))
{ /* ./Llib/pregexp.scm 518 */
return 
PROCEDURE_ENTRY(BgL_funz00_4343)(BgL_fkz00_3344, BEOA);}  else 
{ /* ./Llib/pregexp.scm 518 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10469z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4343, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20240))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } } } 
}



/* <anonymous:2445:Llib/pregexp.scm:523> */
obj_t BGl_zc3anonymousza32445za3Llibzf2pregexpze2scmza3523ze3z93zz__pregexpz00(obj_t BgL_envz00_3347, obj_t BgL_i1z00_3355, obj_t BgL_backrefs1z00_3356)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 524 */
{ /* ./Llib/pregexp.scm 521 */
obj_t BgL_nz00_3348;obj_t BgL_casezd2sensitivezf3z21_3349;obj_t BgL_snz00_3350;obj_t BgL_sz00_3351;obj_t BgL_fkz00_3352;obj_t BgL_skz00_3353;obj_t BgL_resz00_3354;
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_9426;
BgL_auxz00_9426 = 
(int)(((long)0)); 
BgL_nz00_3348 = 
PROCEDURE_REF(BgL_envz00_3347, BgL_auxz00_9426); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_9429;
BgL_auxz00_9429 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3349 = 
PROCEDURE_REF(BgL_envz00_3347, BgL_auxz00_9429); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_9432;
BgL_auxz00_9432 = 
(int)(((long)2)); 
BgL_snz00_3350 = 
PROCEDURE_REF(BgL_envz00_3347, BgL_auxz00_9432); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_9435;
BgL_auxz00_9435 = 
(int)(((long)3)); 
BgL_sz00_3351 = 
PROCEDURE_REF(BgL_envz00_3347, BgL_auxz00_9435); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_9438;
BgL_auxz00_9438 = 
(int)(((long)4)); 
BgL_fkz00_3352 = 
PROCEDURE_REF(BgL_envz00_3347, BgL_auxz00_9438); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_9441;
BgL_auxz00_9441 = 
(int)(((long)5)); 
BgL_skz00_3353 = 
PROCEDURE_REF(BgL_envz00_3347, BgL_auxz00_9441); } 
{ /* ./Llib/pregexp.scm 521 */
int BgL_auxz00_9444;
BgL_auxz00_9444 = 
(int)(((long)6)); 
BgL_resz00_3354 = 
PROCEDURE_REF(BgL_envz00_3347, BgL_auxz00_9444); } 
{ 
obj_t BgL_i1z00_2511;obj_t BgL_backrefs1z00_2512;
BgL_i1z00_2511 = BgL_i1z00_3355; 
BgL_backrefs1z00_2512 = BgL_backrefs1z00_3356; 
{ /* ./Llib/pregexp.scm 521 */
obj_t BgL_arg2447z00_2516;
{ /* ./Llib/pregexp.scm 521 */
obj_t BgL_pairz00_2517;
if(
PAIRP(BgL_resz00_3354))
{ /* ./Llib/pregexp.scm 521 */
BgL_pairz00_2517 = BgL_resz00_3354; }  else 
{ /* ./Llib/pregexp.scm 521 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10470z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_resz00_3354, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20350))); 
exit( -1 );} 
BgL_arg2447z00_2516 = 
CDR(BgL_pairz00_2517); } 
return 
BGl_loupzd2seqzd2zz__pregexpz00(BgL_skz00_3353, BgL_fkz00_3352, BgL_sz00_3351, BgL_snz00_3350, BgL_casezd2sensitivezf3z21_3349, BgL_nz00_3348, BgL_arg2447z00_2516, BgL_i1z00_2511, BgL_backrefs1z00_2512);} } } } 
}



/* <anonymous:2470:Llib/pregexp.scm:530> */
obj_t BGl_zc3anonymousza32470za3Llibzf2pregexpze2scmza3530ze3z93zz__pregexpz00(obj_t BgL_envz00_3357)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 534 */
{ /* ./Llib/pregexp.scm 534 */
obj_t BgL_nz00_3358;obj_t BgL_casezd2sensitivezf3z21_3359;obj_t BgL_snz00_3360;obj_t BgL_sz00_3361;obj_t BgL_skz00_3362;obj_t BgL_iz00_3363;obj_t BgL_backrefsz00_3364;obj_t BgL_fkz00_3365;obj_t BgL_resz00_3366;
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_9454;
BgL_auxz00_9454 = 
(int)(((long)0)); 
BgL_nz00_3358 = 
PROCEDURE_REF(BgL_envz00_3357, BgL_auxz00_9454); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_9457;
BgL_auxz00_9457 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3359 = 
PROCEDURE_REF(BgL_envz00_3357, BgL_auxz00_9457); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_9460;
BgL_auxz00_9460 = 
(int)(((long)2)); 
BgL_snz00_3360 = 
PROCEDURE_REF(BgL_envz00_3357, BgL_auxz00_9460); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_9463;
BgL_auxz00_9463 = 
(int)(((long)3)); 
BgL_sz00_3361 = 
PROCEDURE_REF(BgL_envz00_3357, BgL_auxz00_9463); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_9466;
BgL_auxz00_9466 = 
(int)(((long)4)); 
BgL_skz00_3362 = 
PROCEDURE_REF(BgL_envz00_3357, BgL_auxz00_9466); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_9469;
BgL_auxz00_9469 = 
(int)(((long)5)); 
BgL_iz00_3363 = 
PROCEDURE_REF(BgL_envz00_3357, BgL_auxz00_9469); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_9472;
BgL_auxz00_9472 = 
(int)(((long)6)); 
BgL_backrefsz00_3364 = 
PROCEDURE_REF(BgL_envz00_3357, BgL_auxz00_9472); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_9475;
BgL_auxz00_9475 = 
(int)(((long)7)); 
BgL_fkz00_3365 = 
PROCEDURE_REF(BgL_envz00_3357, BgL_auxz00_9475); } 
{ /* ./Llib/pregexp.scm 534 */
int BgL_auxz00_9478;
BgL_auxz00_9478 = 
(int)(((long)8)); 
BgL_resz00_3366 = 
PROCEDURE_REF(BgL_envz00_3357, BgL_auxz00_9478); } 
{ 

{ /* ./Llib/pregexp.scm 534 */
obj_t BgL_arg2472z00_2547;
{ /* ./Llib/pregexp.scm 534 */
obj_t BgL_pairz00_2548;
if(
PAIRP(BgL_resz00_3366))
{ /* ./Llib/pregexp.scm 534 */
BgL_pairz00_2548 = BgL_resz00_3366; }  else 
{ /* ./Llib/pregexp.scm 534 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10471z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_resz00_3366, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21023))); 
exit( -1 );} 
BgL_arg2472z00_2547 = 
CDR(BgL_pairz00_2548); } 
return 
BGl_loupzd2orzd2zz__pregexpz00(BgL_fkz00_3365, BgL_backrefsz00_3364, BgL_iz00_3363, BgL_skz00_3362, BgL_sz00_3361, BgL_snz00_3360, BgL_casezd2sensitivezf3z21_3359, BgL_nz00_3358, BgL_arg2472z00_2547);} } } } 
}



/* <anonymous:2464:Llib/pregexp.scm:530> */
obj_t BGl_zc3anonymousza32464za3Llibzf2pregexpze2scmza3530ze3z93zz__pregexpz00(obj_t BgL_envz00_3367, obj_t BgL_i1z00_3377, obj_t BgL_backrefs1z00_3378)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 531 */
{ /* ./Llib/pregexp.scm 532 */
obj_t BgL_nz00_3368;obj_t BgL_casezd2sensitivezf3z21_3369;obj_t BgL_snz00_3370;obj_t BgL_sz00_3371;obj_t BgL_iz00_3372;obj_t BgL_backrefsz00_3373;obj_t BgL_fkz00_3374;obj_t BgL_skz00_3375;obj_t BgL_resz00_3376;
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9488;
BgL_auxz00_9488 = 
(int)(((long)0)); 
BgL_nz00_3368 = 
PROCEDURE_REF(BgL_envz00_3367, BgL_auxz00_9488); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9491;
BgL_auxz00_9491 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3369 = 
PROCEDURE_REF(BgL_envz00_3367, BgL_auxz00_9491); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9494;
BgL_auxz00_9494 = 
(int)(((long)2)); 
BgL_snz00_3370 = 
PROCEDURE_REF(BgL_envz00_3367, BgL_auxz00_9494); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9497;
BgL_auxz00_9497 = 
(int)(((long)3)); 
BgL_sz00_3371 = 
PROCEDURE_REF(BgL_envz00_3367, BgL_auxz00_9497); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9500;
BgL_auxz00_9500 = 
(int)(((long)4)); 
BgL_iz00_3372 = 
PROCEDURE_REF(BgL_envz00_3367, BgL_auxz00_9500); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9503;
BgL_auxz00_9503 = 
(int)(((long)5)); 
BgL_backrefsz00_3373 = 
PROCEDURE_REF(BgL_envz00_3367, BgL_auxz00_9503); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9506;
BgL_auxz00_9506 = 
(int)(((long)6)); 
BgL_fkz00_3374 = 
PROCEDURE_REF(BgL_envz00_3367, BgL_auxz00_9506); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9509;
BgL_auxz00_9509 = 
(int)(((long)7)); 
BgL_skz00_3375 = 
PROCEDURE_REF(BgL_envz00_3367, BgL_auxz00_9509); } 
{ /* ./Llib/pregexp.scm 532 */
int BgL_auxz00_9512;
BgL_auxz00_9512 = 
(int)(((long)8)); 
BgL_resz00_3376 = 
PROCEDURE_REF(BgL_envz00_3367, BgL_auxz00_9512); } 
{ 
obj_t BgL_i1z00_1101;obj_t BgL_backrefs1z00_1102;
BgL_i1z00_1101 = BgL_i1z00_3377; 
BgL_backrefs1z00_1102 = BgL_backrefs1z00_3378; 
{ /* ./Llib/pregexp.scm 532 */
obj_t BgL__ortest_1052z00_2544;
{ /* ./Llib/pregexp.scm 532 */
obj_t BgL_funz00_4352;
if(
PROCEDUREP(BgL_skz00_3375))
{ /* ./Llib/pregexp.scm 532 */
BgL_funz00_4352 = BgL_skz00_3375; }  else 
{ /* ./Llib/pregexp.scm 532 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10472z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_3375, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20898))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4352, ((long)2)))
{ /* ./Llib/pregexp.scm 532 */
BgL__ortest_1052z00_2544 = 
PROCEDURE_ENTRY(BgL_funz00_4352)(BgL_skz00_3375, BgL_i1z00_1101, BgL_backrefs1z00_1102, BEOA); }  else 
{ /* ./Llib/pregexp.scm 532 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10473z00zz__pregexpz00, BGl_list10474z00zz__pregexpz00, BgL_funz00_4352, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20898))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } 
if(
CBOOL(BgL__ortest_1052z00_2544))
{ /* ./Llib/pregexp.scm 532 */
return BgL__ortest_1052z00_2544;}  else 
{ /* ./Llib/pregexp.scm 532 */
obj_t BgL_arg2466z00_2545;
{ /* ./Llib/pregexp.scm 532 */
obj_t BgL_pairz00_2546;
if(
PAIRP(BgL_resz00_3376))
{ /* ./Llib/pregexp.scm 532 */
BgL_pairz00_2546 = BgL_resz00_3376; }  else 
{ /* ./Llib/pregexp.scm 532 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10472z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_resz00_3376, BGl_string10330z00zz__pregexpz00, 
BINT(((long)20898))); 
exit( -1 );} 
BgL_arg2466z00_2545 = 
CDR(BgL_pairz00_2546); } 
return 
BGl_loupzd2orzd2zz__pregexpz00(BgL_fkz00_3374, BgL_backrefsz00_3373, BgL_iz00_3372, BgL_skz00_3375, BgL_sz00_3371, BgL_snz00_3370, BgL_casezd2sensitivezf3z21_3369, BgL_nz00_3368, BgL_arg2466z00_2545);} } } } } 
}



/* <anonymous:2487:Llib/pregexp.scm:538> */
obj_t BGl_zc3anonymousza32487za3Llibzf2pregexpze2scmza3538ze3z93zz__pregexpz00(obj_t BgL_envz00_3379, obj_t BgL_iz00_3382)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 540 */
{ /* ./Llib/pregexp.scm 540 */
obj_t BgL_skz00_3380;obj_t BgL_backrefsz00_3381;
{ /* ./Llib/pregexp.scm 540 */
int BgL_auxz00_9536;
BgL_auxz00_9536 = 
(int)(((long)0)); 
BgL_skz00_3380 = 
PROCEDURE_EL_REF(BgL_envz00_3379, BgL_auxz00_9536); } 
{ /* ./Llib/pregexp.scm 540 */
int BgL_auxz00_9539;
BgL_auxz00_9539 = 
(int)(((long)1)); 
BgL_backrefsz00_3381 = 
PROCEDURE_EL_REF(BgL_envz00_3379, BgL_auxz00_9539); } 
{ 
obj_t BgL_iz00_1116;
BgL_iz00_1116 = BgL_iz00_3382; 
{ /* ./Llib/pregexp.scm 540 */
obj_t BgL_funz00_4359;
if(
PROCEDUREP(BgL_skz00_3380))
{ /* ./Llib/pregexp.scm 540 */
BgL_funz00_4359 = BgL_skz00_3380; }  else 
{ /* ./Llib/pregexp.scm 540 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10477z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_3380, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21324))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4359, ((long)2)))
{ /* ./Llib/pregexp.scm 540 */
return 
PROCEDURE_ENTRY(BgL_funz00_4359)(BgL_skz00_3380, BgL_iz00_1116, BgL_backrefsz00_3381, BEOA);}  else 
{ /* ./Llib/pregexp.scm 540 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10478z00zz__pregexpz00, BGl_list10421z00zz__pregexpz00, BgL_funz00_4359, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21324))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } } } 
}



/* <anonymous:2500:Llib/pregexp.scm:545> */
obj_t BGl_zc3anonymousza32500za3Llibzf2pregexpze2scmza3545ze3z93zz__pregexpz00(obj_t BgL_envz00_3383, obj_t BgL_i1z00_3386, obj_t BgL_backrefs1z00_3387)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 546 */
{ /* ./Llib/pregexp.scm 547 */
obj_t BgL_subzd2backrefzd2_3384;obj_t BgL_skz00_3385;
{ /* ./Llib/pregexp.scm 547 */
int BgL_auxz00_9554;
BgL_auxz00_9554 = 
(int)(((long)0)); 
BgL_subzd2backrefzd2_3384 = 
PROCEDURE_REF(BgL_envz00_3383, BgL_auxz00_9554); } 
{ /* ./Llib/pregexp.scm 547 */
int BgL_auxz00_9557;
BgL_auxz00_9557 = 
(int)(((long)1)); 
BgL_skz00_3385 = 
PROCEDURE_REF(BgL_envz00_3383, BgL_auxz00_9557); } 
{ 
obj_t BgL_i1z00_1125;obj_t BgL_backrefs1z00_1126;
BgL_i1z00_1125 = BgL_i1z00_3386; 
BgL_backrefs1z00_1126 = BgL_backrefs1z00_3387; 
{ /* ./Llib/pregexp.scm 547 */
obj_t BgL_pairz00_2590;
if(
PAIRP(BgL_subzd2backrefzd2_3384))
{ /* ./Llib/pregexp.scm 547 */
BgL_pairz00_2590 = BgL_subzd2backrefzd2_3384; }  else 
{ /* ./Llib/pregexp.scm 547 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10479z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_subzd2backrefzd2_3384, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21672))); 
exit( -1 );} 
SET_CDR(BgL_pairz00_2590, BgL_i1z00_1125); } 
{ /* ./Llib/pregexp.scm 548 */
obj_t BgL_funz00_4366;
if(
PROCEDUREP(BgL_skz00_3385))
{ /* ./Llib/pregexp.scm 548 */
BgL_funz00_4366 = BgL_skz00_3385; }  else 
{ /* ./Llib/pregexp.scm 548 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10479z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_3385, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21702))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4366, ((long)2)))
{ /* ./Llib/pregexp.scm 548 */
return 
PROCEDURE_ENTRY(BgL_funz00_4366)(BgL_skz00_3385, BgL_i1z00_1125, BgL_backrefs1z00_1126, BEOA);}  else 
{ /* ./Llib/pregexp.scm 548 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10480z00zz__pregexpz00, BGl_list10474z00zz__pregexpz00, BgL_funz00_4366, BGl_string10330z00zz__pregexpz00, 
BINT(((long)21702))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } } } 
}



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



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



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



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



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



/* <anonymous:2610:Llib/pregexp.scm:587> */
obj_t BGl_zc3anonymousza32610za3Llibzf2pregexpze2scmza3587ze3z93zz__pregexpz00(obj_t BgL_envz00_3393)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 591 */
{ /* ./Llib/pregexp.scm 592 */
obj_t BgL_oldz00_3394;obj_t BgL_casezd2sensitivezf3z21_3395;obj_t BgL_fkz00_3396;
{ /* ./Llib/pregexp.scm 592 */
int BgL_auxz00_9583;
BgL_auxz00_9583 = 
(int)(((long)0)); 
BgL_oldz00_3394 = 
PROCEDURE_REF(BgL_envz00_3393, BgL_auxz00_9583); } 
{ /* ./Llib/pregexp.scm 592 */
int BgL_auxz00_9586;
BgL_auxz00_9586 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3395 = 
PROCEDURE_REF(BgL_envz00_3393, BgL_auxz00_9586); } 
{ /* ./Llib/pregexp.scm 592 */
int BgL_auxz00_9589;
BgL_auxz00_9589 = 
(int)(((long)2)); 
BgL_fkz00_3396 = 
PROCEDURE_REF(BgL_envz00_3393, BgL_auxz00_9589); } 
{ 

CELL_SET(BgL_casezd2sensitivezf3z21_3395, BgL_oldz00_3394); 
{ /* ./Llib/pregexp.scm 593 */
obj_t BgL_funz00_4371;
if(
PROCEDUREP(BgL_fkz00_3396))
{ /* ./Llib/pregexp.scm 593 */
BgL_funz00_4371 = BgL_fkz00_3396; }  else 
{ /* ./Llib/pregexp.scm 593 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10481z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_3396, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23910))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4371, ((long)0)))
{ /* ./Llib/pregexp.scm 593 */
return 
PROCEDURE_ENTRY(BgL_funz00_4371)(BgL_fkz00_3396, BEOA);}  else 
{ /* ./Llib/pregexp.scm 593 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10482z00zz__pregexpz00, BGl_list10396z00zz__pregexpz00, BgL_funz00_4371, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23910))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } } } 
}



/* <anonymous:2608:Llib/pregexp.scm:587> */
obj_t BGl_zc3anonymousza32608za3Llibzf2pregexpze2scmza3587ze3z93zz__pregexpz00(obj_t BgL_envz00_3398, obj_t BgL_i1z00_3402, obj_t BgL_backrefs1z00_3403)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 588 */
{ /* ./Llib/pregexp.scm 589 */
obj_t BgL_oldz00_3399;obj_t BgL_casezd2sensitivezf3z21_3400;obj_t BgL_skz00_3401;
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_9604;
BgL_auxz00_9604 = 
(int)(((long)0)); 
BgL_oldz00_3399 = 
PROCEDURE_REF(BgL_envz00_3398, BgL_auxz00_9604); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_9607;
BgL_auxz00_9607 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3400 = 
PROCEDURE_REF(BgL_envz00_3398, BgL_auxz00_9607); } 
{ /* ./Llib/pregexp.scm 589 */
int BgL_auxz00_9610;
BgL_auxz00_9610 = 
(int)(((long)2)); 
BgL_skz00_3401 = 
PROCEDURE_REF(BgL_envz00_3398, BgL_auxz00_9610); } 
{ 
obj_t BgL_i1z00_1192;obj_t BgL_backrefs1z00_1193;
BgL_i1z00_1192 = BgL_i1z00_3402; 
BgL_backrefs1z00_1193 = BgL_backrefs1z00_3403; 
CELL_SET(BgL_casezd2sensitivezf3z21_3400, BgL_oldz00_3399); 
{ /* ./Llib/pregexp.scm 590 */
obj_t BgL_funz00_4376;
if(
PROCEDUREP(BgL_skz00_3401))
{ /* ./Llib/pregexp.scm 590 */
BgL_funz00_4376 = BgL_skz00_3401; }  else 
{ /* ./Llib/pregexp.scm 590 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10483z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_3401, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23783))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4376, ((long)2)))
{ /* ./Llib/pregexp.scm 590 */
return 
PROCEDURE_ENTRY(BgL_funz00_4376)(BgL_skz00_3401, BgL_i1z00_1192, BgL_backrefs1z00_1193, BEOA);}  else 
{ /* ./Llib/pregexp.scm 590 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10484z00zz__pregexpz00, BGl_list10474z00zz__pregexpz00, BgL_funz00_4376, BGl_string10330z00zz__pregexpz00, 
BINT(((long)23783))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } } } 
}



/* <anonymous:2618:Llib/pregexp.scm:601> */
obj_t BGl_zc3anonymousza32618za3Llibzf2pregexpze2scmza3601ze3z93zz__pregexpz00(obj_t BgL_envz00_3405, obj_t BgL_i1z00_3419, obj_t BgL_backrefs1z00_3420)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 602 */
{ /* ./Llib/pregexp.scm 603 */
obj_t BgL_nz00_3406;obj_t BgL_casezd2sensitivezf3z21_3407;obj_t BgL_snz00_3408;obj_t BgL_sz00_3409;obj_t BgL_subpatzf3zf3_3410;obj_t BgL_skz00_3411;obj_t BgL_maximalzf3zf3_3412;obj_t BgL_pz00_3413;obj_t BgL_qz00_3414;obj_t BgL_rez00_3415;obj_t BgL_backrefsz00_3416;obj_t BgL_fkz00_3417;obj_t BgL_kz00_3418;
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9625;
BgL_auxz00_9625 = 
(int)(((long)0)); 
BgL_nz00_3406 = 
PROCEDURE_REF(BgL_envz00_3405, BgL_auxz00_9625); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9628;
BgL_auxz00_9628 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3407 = 
PROCEDURE_REF(BgL_envz00_3405, BgL_auxz00_9628); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9631;
BgL_auxz00_9631 = 
(int)(((long)2)); 
BgL_snz00_3408 = 
PROCEDURE_REF(BgL_envz00_3405, BgL_auxz00_9631); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9634;
BgL_auxz00_9634 = 
(int)(((long)3)); 
BgL_sz00_3409 = 
PROCEDURE_REF(BgL_envz00_3405, BgL_auxz00_9634); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9637;
BgL_auxz00_9637 = 
(int)(((long)4)); 
BgL_subpatzf3zf3_3410 = 
PROCEDURE_REF(BgL_envz00_3405, BgL_auxz00_9637); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9640;
BgL_auxz00_9640 = 
(int)(((long)5)); 
BgL_skz00_3411 = 
PROCEDURE_REF(BgL_envz00_3405, BgL_auxz00_9640); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9643;
BgL_auxz00_9643 = 
(int)(((long)6)); 
BgL_maximalzf3zf3_3412 = 
PROCEDURE_REF(BgL_envz00_3405, BgL_auxz00_9643); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9646;
BgL_auxz00_9646 = 
(int)(((long)7)); 
BgL_pz00_3413 = 
PROCEDURE_REF(BgL_envz00_3405, BgL_auxz00_9646); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9649;
BgL_auxz00_9649 = 
(int)(((long)8)); 
BgL_qz00_3414 = 
PROCEDURE_REF(BgL_envz00_3405, BgL_auxz00_9649); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9652;
BgL_auxz00_9652 = 
(int)(((long)9)); 
BgL_rez00_3415 = 
PROCEDURE_REF(BgL_envz00_3405, BgL_auxz00_9652); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9655;
BgL_auxz00_9655 = 
(int)(((long)10)); 
BgL_backrefsz00_3416 = 
PROCEDURE_REF(BgL_envz00_3405, BgL_auxz00_9655); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9658;
BgL_auxz00_9658 = 
(int)(((long)11)); 
BgL_fkz00_3417 = 
PROCEDURE_REF(BgL_envz00_3405, BgL_auxz00_9658); } 
{ /* ./Llib/pregexp.scm 603 */
int BgL_auxz00_9661;
BgL_auxz00_9661 = 
(int)(((long)12)); 
BgL_kz00_3418 = 
PROCEDURE_REF(BgL_envz00_3405, BgL_auxz00_9661); } 
{ 
obj_t BgL_i1z00_1210;obj_t BgL_backrefs1z00_1211;
BgL_i1z00_1210 = BgL_i1z00_3419; 
BgL_backrefs1z00_1211 = BgL_backrefs1z00_3420; 
{ /* ./Llib/pregexp.scm 603 */
long BgL_arg2620z00_2657;
{ /* ./Llib/pregexp.scm 603 */
long BgL_za71za7_2658;
{ /* ./Llib/pregexp.scm 603 */
obj_t BgL_auxz00_9664;
if(
INTEGERP(BgL_kz00_3418))
{ /* ./Llib/pregexp.scm 603 */
BgL_auxz00_9664 = BgL_kz00_3418
; }  else 
{ /* ./Llib/pregexp.scm 603 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10485z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_kz00_3418, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24419))); 
exit( -1 );} 
BgL_za71za7_2658 = 
(long)CINT(BgL_auxz00_9664); } 
BgL_arg2620z00_2657 = 
(BgL_za71za7_2658+((long)1)); } 
return 
BGl_loupzd2pzd2zz__pregexpz00(BgL_fkz00_3417, BgL_backrefsz00_3416, BgL_rez00_3415, BgL_qz00_3414, BgL_pz00_3413, BgL_maximalzf3zf3_3412, BgL_skz00_3411, BgL_subpatzf3zf3_3410, BgL_sz00_3409, BgL_snz00_3408, BgL_casezd2sensitivezf3z21_3407, BgL_nz00_3406, BgL_arg2620z00_2657, BgL_i1z00_1210, BgL_backrefs1z00_1211);} } } } 
}



/* <anonymous:2629:Llib/pregexp.scm:617> */
obj_t BGl_zc3anonymousza32629za3Llibzf2pregexpze2scmza3617ze3z93zz__pregexpz00(obj_t BgL_envz00_3421, obj_t BgL_i1z00_3436, obj_t BgL_backrefs1z00_3437)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 618 */
{ /* ./Llib/pregexp.scm 619 */
obj_t BgL_nz00_3424;obj_t BgL_casezd2sensitivezf3z21_3425;obj_t BgL_snz00_3426;obj_t BgL_sz00_3427;obj_t BgL_backrefsz00_3428;obj_t BgL_subpatzf3zf3_3429;obj_t BgL_skz00_3430;obj_t BgL_qz00_3431;obj_t BgL_rez00_3432;obj_t BgL_maximalzf3zf3_3433;obj_t BgL_kz00_3434;obj_t BgL_fkz00_3435;
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9673;
BgL_auxz00_9673 = 
(int)(((long)2)); 
BgL_nz00_3424 = 
PROCEDURE_REF(BgL_envz00_3421, BgL_auxz00_9673); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9676;
BgL_auxz00_9676 = 
(int)(((long)3)); 
BgL_casezd2sensitivezf3z21_3425 = 
PROCEDURE_REF(BgL_envz00_3421, BgL_auxz00_9676); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9679;
BgL_auxz00_9679 = 
(int)(((long)4)); 
BgL_snz00_3426 = 
PROCEDURE_REF(BgL_envz00_3421, BgL_auxz00_9679); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9682;
BgL_auxz00_9682 = 
(int)(((long)5)); 
BgL_sz00_3427 = 
PROCEDURE_REF(BgL_envz00_3421, BgL_auxz00_9682); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9685;
BgL_auxz00_9685 = 
(int)(((long)6)); 
BgL_backrefsz00_3428 = 
PROCEDURE_REF(BgL_envz00_3421, BgL_auxz00_9685); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9688;
BgL_auxz00_9688 = 
(int)(((long)7)); 
BgL_subpatzf3zf3_3429 = 
PROCEDURE_REF(BgL_envz00_3421, BgL_auxz00_9688); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9691;
BgL_auxz00_9691 = 
(int)(((long)8)); 
BgL_skz00_3430 = 
PROCEDURE_REF(BgL_envz00_3421, BgL_auxz00_9691); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9694;
BgL_auxz00_9694 = 
(int)(((long)9)); 
BgL_qz00_3431 = 
PROCEDURE_REF(BgL_envz00_3421, BgL_auxz00_9694); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9697;
BgL_auxz00_9697 = 
(int)(((long)10)); 
BgL_rez00_3432 = 
PROCEDURE_REF(BgL_envz00_3421, BgL_auxz00_9697); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9700;
BgL_auxz00_9700 = 
(int)(((long)11)); 
BgL_maximalzf3zf3_3433 = 
PROCEDURE_REF(BgL_envz00_3421, BgL_auxz00_9700); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9703;
BgL_auxz00_9703 = 
(int)(((long)12)); 
BgL_kz00_3434 = 
PROCEDURE_REF(BgL_envz00_3421, BgL_auxz00_9703); } 
{ /* ./Llib/pregexp.scm 619 */
int BgL_auxz00_9706;
BgL_auxz00_9706 = 
(int)(((long)13)); 
BgL_fkz00_3435 = 
PROCEDURE_REF(BgL_envz00_3421, BgL_auxz00_9706); } 
{ 
obj_t BgL_i1z00_1223;obj_t BgL_backrefs1z00_1224;
BgL_i1z00_1223 = BgL_i1z00_3436; 
BgL_backrefs1z00_1224 = BgL_backrefs1z00_3437; 
{ /* ./Llib/pregexp.scm 619 */
obj_t BgL__ortest_1055z00_2664;
{ /* ./Llib/pregexp.scm 619 */
long BgL_arg2632z00_2665;
{ /* ./Llib/pregexp.scm 619 */
long BgL_za71za7_2666;
{ /* ./Llib/pregexp.scm 619 */
obj_t BgL_auxz00_9709;
if(
INTEGERP(BgL_kz00_3434))
{ /* ./Llib/pregexp.scm 619 */
BgL_auxz00_9709 = BgL_kz00_3434
; }  else 
{ /* ./Llib/pregexp.scm 619 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10486z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_kz00_3434, BGl_string10330z00zz__pregexpz00, 
BINT(((long)25417))); 
exit( -1 );} 
BgL_za71za7_2666 = 
(long)CINT(BgL_auxz00_9709); } 
BgL_arg2632z00_2665 = 
(BgL_za71za7_2666+((long)1)); } 
BgL__ortest_1055z00_2664 = 
BGl_loupzd2qzd2zz__pregexpz00(BgL_maximalzf3zf3_3433, BgL_rez00_3432, BgL_qz00_3431, BgL_skz00_3430, BgL_subpatzf3zf3_3429, BgL_backrefsz00_3428, BgL_sz00_3427, BgL_snz00_3426, BgL_casezd2sensitivezf3z21_3425, BgL_nz00_3424, BgL_arg2632z00_2665, BgL_i1z00_1223, BgL_backrefs1z00_1224); } 
if(
CBOOL(BgL__ortest_1055z00_2664))
{ /* ./Llib/pregexp.scm 619 */
return BgL__ortest_1055z00_2664;}  else 
{ /* ./Llib/pregexp.scm 619 */
obj_t BgL_auxz00_9720;
if(
PROCEDUREP(BgL_fkz00_3435))
{ /* ./Llib/pregexp.scm 619 */
BgL_auxz00_9720 = BgL_fkz00_3435
; }  else 
{ /* ./Llib/pregexp.scm 619 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10486z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_fkz00_3435, BGl_string10330z00zz__pregexpz00, 
BINT(((long)25417))); 
exit( -1 );} 
return 
BGl_fkz00zz__pregexpz00(BgL_auxz00_9720);} } } } } 
}



/* fk */
obj_t BGl_fkz00zz__pregexpz00(obj_t BgL_envz00_3438)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 607 */
{ /* ./Llib/pregexp.scm 608 */
obj_t BgL_cbackrefsz00_3439;obj_t BgL_backrefsz00_3440;obj_t BgL_subpatzf3zf3_3441;obj_t BgL_skz00_3442;obj_t BgL_iz00_3443;
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_9727;
BgL_auxz00_9727 = 
(int)(((long)0)); 
BgL_cbackrefsz00_3439 = 
PROCEDURE_REF(BgL_envz00_3438, BgL_auxz00_9727); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_9730;
BgL_auxz00_9730 = 
(int)(((long)1)); 
BgL_backrefsz00_3440 = 
PROCEDURE_REF(BgL_envz00_3438, BgL_auxz00_9730); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_9733;
BgL_auxz00_9733 = 
(int)(((long)2)); 
BgL_subpatzf3zf3_3441 = 
PROCEDURE_REF(BgL_envz00_3438, BgL_auxz00_9733); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_9736;
BgL_auxz00_9736 = 
(int)(((long)3)); 
BgL_skz00_3442 = 
PROCEDURE_REF(BgL_envz00_3438, BgL_auxz00_9736); } 
{ /* ./Llib/pregexp.scm 608 */
int BgL_auxz00_9739;
BgL_auxz00_9739 = 
(int)(((long)4)); 
BgL_iz00_3443 = 
PROCEDURE_REF(BgL_envz00_3438, BgL_auxz00_9739); } 
{ 

{ /* ./Llib/pregexp.scm 608 */
obj_t BgL_arg2647z00_1237;
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_cbackrefsz00_3439, BGl_symbol10456z00zz__pregexpz00))
{ /* ./Llib/pregexp.scm 608 */
if(
CBOOL(BgL_subpatzf3zf3_3441))
{ /* ./Llib/pregexp.scm 612 */
obj_t BgL_arg2651z00_1239;
{ /* ./Llib/pregexp.scm 612 */
obj_t BgL_list2654z00_1240;
BgL_list2654z00_1240 = 
MAKE_PAIR(BFALSE, BNIL); 
{ /* ./Llib/pregexp.scm 612 */
obj_t BgL_res3763z00_2672;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 612 */
BgL_res3763z00_2672 = BgL_list2654z00_1240; }  else 
{ /* ./Llib/pregexp.scm 612 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10398z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list2654z00_1240, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24986))); 
exit( -1 );} 
BgL_arg2651z00_1239 = BgL_res3763z00_2672; } } 
{ /* ./Llib/pregexp.scm 611 */
obj_t BgL_auxz00_9751;
{ /* ./Llib/pregexp.scm 611 */
bool_t BgL_testz00_9752;
if(
PAIRP(BgL_backrefsz00_3440))
{ /* ./Llib/pregexp.scm 611 */
BgL_testz00_9752 = ((bool_t)1)
; }  else 
{ /* ./Llib/pregexp.scm 611 */
BgL_testz00_9752 = 
NULLP(BgL_backrefsz00_3440)
; } 
if(BgL_testz00_9752)
{ /* ./Llib/pregexp.scm 611 */
BgL_auxz00_9751 = BgL_backrefsz00_3440
; }  else 
{ /* ./Llib/pregexp.scm 611 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10398z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_backrefsz00_3440, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24926))); 
exit( -1 );} } 
BgL_arg2647z00_1237 = 
bgl_append2(BgL_auxz00_9751, BgL_arg2651z00_1239); } }  else 
{ /* ./Llib/pregexp.scm 610 */
BgL_arg2647z00_1237 = BgL_backrefsz00_3440; } }  else 
{ /* ./Llib/pregexp.scm 608 */
BgL_arg2647z00_1237 = BgL_cbackrefsz00_3439; } 
{ /* ./Llib/pregexp.scm 608 */
obj_t BgL_funz00_4391;
if(
PROCEDUREP(BgL_skz00_3442))
{ /* ./Llib/pregexp.scm 608 */
BgL_funz00_4391 = BgL_skz00_3442; }  else 
{ /* ./Llib/pregexp.scm 608 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10398z00zz__pregexpz00, BGl_string10394z00zz__pregexpz00, BgL_skz00_3442, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24696))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4391, ((long)2)))
{ /* ./Llib/pregexp.scm 608 */
return 
PROCEDURE_ENTRY(BgL_funz00_4391)(BgL_skz00_3442, BgL_iz00_3443, BgL_arg2647z00_1237, BEOA);}  else 
{ /* ./Llib/pregexp.scm 608 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string10487z00zz__pregexpz00, BGl_list10488z00zz__pregexpz00, BgL_funz00_4391, BGl_string10330z00zz__pregexpz00, 
BINT(((long)24696))); 
FAILURE(BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00,BGl_symbol10399z00zz__pregexpz00);} } } } } } 
}



/* <anonymous:2638:Llib/pregexp.scm:623> */
obj_t BGl_zc3anonymousza32638za3Llibzf2pregexpze2scmza3623ze3z93zz__pregexpz00(obj_t BgL_envz00_3444, obj_t BgL_i1z00_3456, obj_t BgL_backrefs1z00_3457)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 624 */
{ /* ./Llib/pregexp.scm 625 */
obj_t BgL_nz00_3445;obj_t BgL_casezd2sensitivezf3z21_3446;obj_t BgL_snz00_3447;obj_t BgL_sz00_3448;obj_t BgL_backrefsz00_3449;obj_t BgL_subpatzf3zf3_3450;obj_t BgL_skz00_3451;obj_t BgL_qz00_3452;obj_t BgL_rez00_3453;obj_t BgL_maximalzf3zf3_3454;obj_t BgL_kz00_3455;
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9772;
BgL_auxz00_9772 = 
(int)(((long)0)); 
BgL_nz00_3445 = 
PROCEDURE_REF(BgL_envz00_3444, BgL_auxz00_9772); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9775;
BgL_auxz00_9775 = 
(int)(((long)1)); 
BgL_casezd2sensitivezf3z21_3446 = 
PROCEDURE_REF(BgL_envz00_3444, BgL_auxz00_9775); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9778;
BgL_auxz00_9778 = 
(int)(((long)2)); 
BgL_snz00_3447 = 
PROCEDURE_REF(BgL_envz00_3444, BgL_auxz00_9778); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9781;
BgL_auxz00_9781 = 
(int)(((long)3)); 
BgL_sz00_3448 = 
PROCEDURE_REF(BgL_envz00_3444, BgL_auxz00_9781); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9784;
BgL_auxz00_9784 = 
(int)(((long)4)); 
BgL_backrefsz00_3449 = 
PROCEDURE_REF(BgL_envz00_3444, BgL_auxz00_9784); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9787;
BgL_auxz00_9787 = 
(int)(((long)5)); 
BgL_subpatzf3zf3_3450 = 
PROCEDURE_REF(BgL_envz00_3444, BgL_auxz00_9787); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9790;
BgL_auxz00_9790 = 
(int)(((long)6)); 
BgL_skz00_3451 = 
PROCEDURE_REF(BgL_envz00_3444, BgL_auxz00_9790); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9793;
BgL_auxz00_9793 = 
(int)(((long)7)); 
BgL_qz00_3452 = 
PROCEDURE_REF(BgL_envz00_3444, BgL_auxz00_9793); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9796;
BgL_auxz00_9796 = 
(int)(((long)8)); 
BgL_rez00_3453 = 
PROCEDURE_REF(BgL_envz00_3444, BgL_auxz00_9796); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9799;
BgL_auxz00_9799 = 
(int)(((long)9)); 
BgL_maximalzf3zf3_3454 = 
PROCEDURE_REF(BgL_envz00_3444, BgL_auxz00_9799); } 
{ /* ./Llib/pregexp.scm 625 */
int BgL_auxz00_9802;
BgL_auxz00_9802 = 
(int)(((long)10)); 
BgL_kz00_3455 = 
PROCEDURE_REF(BgL_envz00_3444, BgL_auxz00_9802); } 
{ 
obj_t BgL_i1z00_1231;obj_t BgL_backrefs1z00_1232;
BgL_i1z00_1231 = BgL_i1z00_3456; 
BgL_backrefs1z00_1232 = BgL_backrefs1z00_3457; 
{ /* ./Llib/pregexp.scm 625 */
long BgL_arg2640z00_2668;
{ /* ./Llib/pregexp.scm 625 */
long BgL_za71za7_2669;
{ /* ./Llib/pregexp.scm 625 */
obj_t BgL_auxz00_9805;
if(
INTEGERP(BgL_kz00_3455))
{ /* ./Llib/pregexp.scm 625 */
BgL_auxz00_9805 = BgL_kz00_3455
; }  else 
{ /* ./Llib/pregexp.scm 625 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10490z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_kz00_3455, BGl_string10330z00zz__pregexpz00, 
BINT(((long)25777))); 
exit( -1 );} 
BgL_za71za7_2669 = 
(long)CINT(BgL_auxz00_9805); } 
BgL_arg2640z00_2668 = 
(BgL_za71za7_2669+((long)1)); } 
return 
BGl_loupzd2qzd2zz__pregexpz00(BgL_maximalzf3zf3_3454, BgL_rez00_3453, BgL_qz00_3452, BgL_skz00_3451, BgL_subpatzf3zf3_3450, BgL_backrefsz00_3449, BgL_sz00_3448, BgL_snz00_3447, BgL_casezd2sensitivezf3z21_3446, BgL_nz00_3445, BgL_arg2640z00_2668, BgL_i1z00_1231, BgL_backrefs1z00_1232);} } } } 
}



/* 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 */
{ /* ./Llib/pregexp.scm 633 */
obj_t BgL_symbol3867z00_3213;
BgL_symbol3867z00_3213 = BGl_symbol10491z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 633 */

PUSH_TRACE(BgL_symbol3867z00_3213); BUNSPEC; 
{ /* ./Llib/pregexp.scm 633 */
obj_t BgL_aux3866z00_3214;
{ 
obj_t BgL_iz00_1257;obj_t BgL_rz00_1258;
BgL_iz00_1257 = 
BINT(((long)0)); 
BgL_rz00_1258 = BGl_string10492z00zz__pregexpz00; 
BgL_loopz00_1259:
{ /* ./Llib/pregexp.scm 634 */
bool_t BgL_test2717z00_1260;
{ /* ./Llib/pregexp.scm 634 */
long BgL_n1z00_2675;long BgL_n2z00_2676;
{ /* ./Llib/pregexp.scm 634 */
obj_t BgL_auxz00_9815;
if(
INTEGERP(BgL_iz00_1257))
{ /* ./Llib/pregexp.scm 634 */
BgL_auxz00_9815 = BgL_iz00_1257
; }  else 
{ /* ./Llib/pregexp.scm 634 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1257, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26135))); 
exit( -1 );} 
BgL_n1z00_2675 = 
(long)CINT(BgL_auxz00_9815); } 
BgL_n2z00_2676 = 
(long)(BgL_nz00_60); 
BgL_test2717z00_1260 = 
(BgL_n1z00_2675>=BgL_n2z00_2676); } 
if(BgL_test2717z00_1260)
{ /* ./Llib/pregexp.scm 634 */
BgL_aux3866z00_3214 = BgL_rz00_1258; }  else 
{ /* ./Llib/pregexp.scm 635 */
unsigned char BgL_cz00_1261;
{ /* ./Llib/pregexp.scm 635 */
unsigned char BgL_res3764z00_2685;
{ /* ./Llib/pregexp.scm 635 */
int BgL_kz00_2678;
{ /* ./Llib/pregexp.scm 635 */
obj_t BgL_auxz00_9825;
if(
INTEGERP(BgL_iz00_1257))
{ /* ./Llib/pregexp.scm 635 */
BgL_auxz00_9825 = BgL_iz00_1257
; }  else 
{ /* ./Llib/pregexp.scm 635 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_1257, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26161))); 
exit( -1 );} 
BgL_kz00_2678 = 
CINT(BgL_auxz00_9825); } 
{ /* ./Llib/pregexp.scm 635 */
bool_t BgL_testz00_9832;
{ /* ./Llib/pregexp.scm 635 */
int BgL_auxz00_9833;
BgL_auxz00_9833 = 
STRING_LENGTH(BgL_insz00_59); 
BgL_testz00_9832 = 
BOUND_CHECK(BgL_kz00_2678, BgL_auxz00_9833); } 
if(BgL_testz00_9832)
{ /* ./Llib/pregexp.scm 635 */
BgL_res3764z00_2685 = 
STRING_REF(BgL_insz00_59, BgL_kz00_2678); }  else 
{ /* ./Llib/pregexp.scm 635 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2678), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 635 */
obj_t BgL_auxz00_9839;
{ /* ./Llib/pregexp.scm 635 */
obj_t BgL_aux9117z00_4400;
BgL_aux9117z00_4400 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26161))); 
if(
CHARP(BgL_aux9117z00_4400))
{ /* ./Llib/pregexp.scm 635 */
BgL_auxz00_9839 = BgL_aux9117z00_4400
; }  else 
{ /* ./Llib/pregexp.scm 635 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux9117z00_4400, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26161))); 
exit( -1 );} } 
BgL_res3764z00_2685 = 
(unsigned char)CCHAR(BgL_auxz00_9839); } } } } 
BgL_cz00_1261 = BgL_res3764z00_2685; } 
if(
(BgL_cz00_1261==((unsigned char)'\\')))
{ /* ./Llib/pregexp.scm 637 */
obj_t BgL_brzd2izd2_1263;
BgL_brzd2izd2_1263 = 
BGl_pregexpzd2readzd2escapedzd2numberzd2zz__pregexpz00(BgL_insz00_59, BgL_iz00_1257, BgL_nz00_60); 
{ /* ./Llib/pregexp.scm 637 */
obj_t BgL_brz00_1264;
if(
CBOOL(BgL_brzd2izd2_1263))
{ /* ./Llib/pregexp.scm 638 */
obj_t BgL_pairz00_2688;
if(
PAIRP(BgL_brzd2izd2_1263))
{ /* ./Llib/pregexp.scm 638 */
BgL_pairz00_2688 = BgL_brzd2izd2_1263; }  else 
{ /* ./Llib/pregexp.scm 638 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_brzd2izd2_1263, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26325))); 
exit( -1 );} 
BgL_brz00_1264 = 
CAR(BgL_pairz00_2688); }  else 
{ /* ./Llib/pregexp.scm 639 */
bool_t BgL_test2750z00_1277;
{ /* ./Llib/pregexp.scm 639 */
unsigned char BgL_arg2752z00_1278;
{ /* ./Llib/pregexp.scm 639 */
long BgL_arg2755z00_1279;
{ /* ./Llib/pregexp.scm 639 */
long BgL_za71za7_2689;
{ /* ./Llib/pregexp.scm 639 */
obj_t BgL_auxz00_9859;
if(
INTEGERP(BgL_iz00_1257))
{ /* ./Llib/pregexp.scm 639 */
BgL_auxz00_9859 = BgL_iz00_1257
; }  else 
{ /* ./Llib/pregexp.scm 639 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1257, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26387))); 
exit( -1 );} 
BgL_za71za7_2689 = 
(long)CINT(BgL_auxz00_9859); } 
BgL_arg2755z00_1279 = 
(BgL_za71za7_2689+((long)1)); } 
{ /* ./Llib/pregexp.scm 639 */
unsigned char BgL_res3765z00_2699;
{ /* ./Llib/pregexp.scm 639 */
int BgL_kz00_2692;
BgL_kz00_2692 = 
(int)(BgL_arg2755z00_1279); 
{ /* ./Llib/pregexp.scm 639 */
bool_t BgL_testz00_9868;
{ /* ./Llib/pregexp.scm 639 */
int BgL_auxz00_9869;
BgL_auxz00_9869 = 
STRING_LENGTH(BgL_insz00_59); 
BgL_testz00_9868 = 
BOUND_CHECK(BgL_kz00_2692, BgL_auxz00_9869); } 
if(BgL_testz00_9868)
{ /* ./Llib/pregexp.scm 639 */
BgL_res3765z00_2699 = 
STRING_REF(BgL_insz00_59, BgL_kz00_2692); }  else 
{ /* ./Llib/pregexp.scm 639 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2692), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 639 */
obj_t BgL_auxz00_9875;
{ /* ./Llib/pregexp.scm 639 */
obj_t BgL_aux9159z00_4406;
BgL_aux9159z00_4406 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26371))); 
if(
CHARP(BgL_aux9159z00_4406))
{ /* ./Llib/pregexp.scm 639 */
BgL_auxz00_9875 = BgL_aux9159z00_4406
; }  else 
{ /* ./Llib/pregexp.scm 639 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux9159z00_4406, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26371))); 
exit( -1 );} } 
BgL_res3765z00_2699 = 
(unsigned char)CCHAR(BgL_auxz00_9875); } } } } 
BgL_arg2752z00_1278 = BgL_res3765z00_2699; } } 
BgL_test2750z00_1277 = 
(BgL_arg2752z00_1278==((unsigned char)'&')); } 
if(BgL_test2750z00_1277)
{ /* ./Llib/pregexp.scm 639 */
BgL_brz00_1264 = 
BINT(((long)0)); }  else 
{ /* ./Llib/pregexp.scm 639 */
BgL_brz00_1264 = BFALSE; } } 
{ /* ./Llib/pregexp.scm 638 */
obj_t BgL_iz00_1265;
if(
CBOOL(BgL_brzd2izd2_1263))
{ /* ./Llib/pregexp.scm 641 */
obj_t BgL_pairz00_2702;
if(
PAIRP(BgL_brzd2izd2_1263))
{ /* ./Llib/pregexp.scm 641 */
BgL_pairz00_2702 = BgL_brzd2izd2_1263; }  else 
{ /* ./Llib/pregexp.scm 641 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_brzd2izd2_1263, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26488))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 641 */
obj_t BgL_arg3354z00_2703;
BgL_arg3354z00_2703 = 
CDR(BgL_pairz00_2702); 
{ /* ./Llib/pregexp.scm 641 */
obj_t BgL_pairz00_2705;
if(
PAIRP(BgL_arg3354z00_2703))
{ /* ./Llib/pregexp.scm 641 */
BgL_pairz00_2705 = BgL_arg3354z00_2703; }  else 
{ /* ./Llib/pregexp.scm 641 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2703, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26479))); 
exit( -1 );} 
BgL_iz00_1265 = 
CAR(BgL_pairz00_2705); } } }  else 
{ /* ./Llib/pregexp.scm 641 */
if(
CBOOL(BgL_brz00_1264))
{ /* ./Llib/pregexp.scm 642 */
long BgL_za71za7_2706;
{ /* ./Llib/pregexp.scm 642 */
obj_t BgL_auxz00_9903;
if(
INTEGERP(BgL_iz00_1257))
{ /* ./Llib/pregexp.scm 642 */
BgL_auxz00_9903 = BgL_iz00_1257
; }  else 
{ /* ./Llib/pregexp.scm 642 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1257, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26531))); 
exit( -1 );} 
BgL_za71za7_2706 = 
(long)CINT(BgL_auxz00_9903); } 
{ /* ./Llib/pregexp.scm 642 */
long BgL_auxz00_9910;
BgL_auxz00_9910 = 
(BgL_za71za7_2706+((long)2)); 
BgL_iz00_1265 = 
BINT(BgL_auxz00_9910); } }  else 
{ /* ./Llib/pregexp.scm 643 */
long BgL_za71za7_2708;
{ /* ./Llib/pregexp.scm 643 */
obj_t BgL_auxz00_9913;
if(
INTEGERP(BgL_iz00_1257))
{ /* ./Llib/pregexp.scm 643 */
BgL_auxz00_9913 = BgL_iz00_1257
; }  else 
{ /* ./Llib/pregexp.scm 643 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1257, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26573))); 
exit( -1 );} 
BgL_za71za7_2708 = 
(long)CINT(BgL_auxz00_9913); } 
{ /* ./Llib/pregexp.scm 643 */
long BgL_auxz00_9920;
BgL_auxz00_9920 = 
(BgL_za71za7_2708+((long)1)); 
BgL_iz00_1265 = 
BINT(BgL_auxz00_9920); } } } 
{ /* ./Llib/pregexp.scm 641 */

if(
CBOOL(BgL_brz00_1264))
{ /* ./Llib/pregexp.scm 650 */
obj_t BgL_arg2720z00_1266;
{ /* ./Llib/pregexp.scm 650 */
obj_t BgL_backrefz00_1267;
BgL_backrefz00_1267 = 
BGl_pregexpzd2listzd2refz00zz__pregexpz00(BgL_backrefsz00_61, BgL_brz00_1264); 
if(
CBOOL(BgL_backrefz00_1267))
{ /* ./Llib/pregexp.scm 653 */
obj_t BgL_arg2723z00_1268;
{ /* ./Llib/pregexp.scm 653 */
obj_t BgL_arg2726z00_1269;obj_t BgL_arg2727z00_1270;
{ /* ./Llib/pregexp.scm 653 */
obj_t BgL_pairz00_2710;
if(
PAIRP(BgL_backrefz00_1267))
{ /* ./Llib/pregexp.scm 653 */
BgL_pairz00_2710 = BgL_backrefz00_1267; }  else 
{ /* ./Llib/pregexp.scm 653 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_backrefz00_1267, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27060))); 
exit( -1 );} 
BgL_arg2726z00_1269 = 
CAR(BgL_pairz00_2710); } 
{ /* ./Llib/pregexp.scm 653 */
obj_t BgL_pairz00_2711;
if(
PAIRP(BgL_backrefz00_1267))
{ /* ./Llib/pregexp.scm 653 */
BgL_pairz00_2711 = BgL_backrefz00_1267; }  else 
{ /* ./Llib/pregexp.scm 653 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_backrefz00_1267, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27074))); 
exit( -1 );} 
BgL_arg2727z00_1270 = 
CDR(BgL_pairz00_2711); } 
{ /* ./Llib/pregexp.scm 653 */
obj_t BgL_res3766z00_2740;
{ /* ./Llib/pregexp.scm 653 */
int BgL_startz00_2713;int BgL_endz00_2714;
{ /* ./Llib/pregexp.scm 653 */
obj_t BgL_auxz00_9940;
if(
INTEGERP(BgL_arg2726z00_1269))
{ /* ./Llib/pregexp.scm 653 */
BgL_auxz00_9940 = BgL_arg2726z00_1269
; }  else 
{ /* ./Llib/pregexp.scm 653 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_arg2726z00_1269, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27061))); 
exit( -1 );} 
BgL_startz00_2713 = 
CINT(BgL_auxz00_9940); } 
{ /* ./Llib/pregexp.scm 653 */
obj_t BgL_auxz00_9947;
if(
INTEGERP(BgL_arg2727z00_1270))
{ /* ./Llib/pregexp.scm 653 */
BgL_auxz00_9947 = BgL_arg2727z00_1270
; }  else 
{ /* ./Llib/pregexp.scm 653 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_arg2727z00_1270, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27075))); 
exit( -1 );} 
BgL_endz00_2714 = 
CINT(BgL_auxz00_9947); } 
{ /* ./Llib/pregexp.scm 653 */
bool_t BgL_test3048z00_2715;
{ /* ./Llib/pregexp.scm 653 */
bool_t BgL_testz00_9954;
{ /* ./Llib/pregexp.scm 653 */
long BgL_auxz00_9957;long BgL_auxz00_9955;
BgL_auxz00_9957 = 
(long)(BgL_startz00_2713); 
BgL_auxz00_9955 = 
(long)(BgL_endz00_2714); 
BgL_testz00_9954 = 
(BgL_auxz00_9955>=BgL_auxz00_9957); } 
if(BgL_testz00_9954)
{ /* ./Llib/pregexp.scm 653 */
bool_t BgL_testz00_9960;
{ /* ./Llib/pregexp.scm 653 */
int BgL_auxz00_9961;
{ /* ./Llib/pregexp.scm 653 */
long BgL_auxz00_9962;
{ /* ./Llib/pregexp.scm 653 */
long BgL_auxz00_9963;
{ /* ./Llib/pregexp.scm 653 */
int BgL_auxz00_9964;
BgL_auxz00_9964 = 
STRING_LENGTH(BgL_strz00_58); 
BgL_auxz00_9963 = 
(long)(BgL_auxz00_9964); } 
BgL_auxz00_9962 = 
(BgL_auxz00_9963+((long)1)); } 
BgL_auxz00_9961 = 
(int)(BgL_auxz00_9962); } 
BgL_testz00_9960 = 
BOUND_CHECK(BgL_startz00_2713, BgL_auxz00_9961); } 
if(BgL_testz00_9960)
{ /* ./Llib/pregexp.scm 653 */
int BgL_auxz00_9970;
{ /* ./Llib/pregexp.scm 653 */
long BgL_auxz00_9971;
{ /* ./Llib/pregexp.scm 653 */
long BgL_auxz00_9972;
{ /* ./Llib/pregexp.scm 653 */
int BgL_auxz00_9973;
BgL_auxz00_9973 = 
STRING_LENGTH(BgL_strz00_58); 
BgL_auxz00_9972 = 
(long)(BgL_auxz00_9973); } 
BgL_auxz00_9971 = 
(BgL_auxz00_9972+((long)1)); } 
BgL_auxz00_9970 = 
(int)(BgL_auxz00_9971); } 
BgL_test3048z00_2715 = 
BOUND_CHECK(BgL_endz00_2714, BgL_auxz00_9970); }  else 
{ /* ./Llib/pregexp.scm 653 */
BgL_test3048z00_2715 = ((bool_t)0); } }  else 
{ /* ./Llib/pregexp.scm 653 */
BgL_test3048z00_2715 = ((bool_t)0); } } 
if(BgL_test3048z00_2715)
{ /* ./Llib/pregexp.scm 653 */
BgL_res3766z00_2740 = 
c_substring(BgL_strz00_58, BgL_startz00_2713, BgL_endz00_2714); }  else 
{ /* ./Llib/pregexp.scm 653 */
{ /* ./Llib/pregexp.scm 653 */
obj_t BgL_arg3053z00_2726;
{ /* ./Llib/pregexp.scm 653 */
obj_t BgL_auxz00_9983;obj_t BgL_auxz00_9981;
BgL_auxz00_9983 = 
BINT(BgL_endz00_2714); 
BgL_auxz00_9981 = 
BINT(BgL_startz00_2713); 
BgL_arg3053z00_2726 = 
MAKE_PAIR(BgL_auxz00_9981, BgL_auxz00_9983); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10441z00zz__pregexpz00, BGl_string10442z00zz__pregexpz00, BgL_arg3053z00_2726, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/pregexp.scm 653 */
obj_t BgL_aux9277z00_4424;
BgL_aux9277z00_4424 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27034))); 
if(
STRINGP(BgL_aux9277z00_4424))
{ /* ./Llib/pregexp.scm 653 */
BgL_res3766z00_2740 = BgL_aux9277z00_4424; }  else 
{ /* ./Llib/pregexp.scm 653 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_aux9277z00_4424, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27034))); 
exit( -1 );} } } } } 
BgL_arg2723z00_1268 = BgL_res3766z00_2740; } } 
{ /* ./Llib/pregexp.scm 652 */
obj_t BgL_auxz00_9994;
if(
STRINGP(BgL_rz00_1258))
{ /* ./Llib/pregexp.scm 652 */
BgL_auxz00_9994 = BgL_rz00_1258
; }  else 
{ /* ./Llib/pregexp.scm 652 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_rz00_1258, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27000))); 
exit( -1 );} 
BgL_arg2720z00_1266 = 
string_append(BgL_auxz00_9994, BgL_arg2723z00_1268); } }  else 
{ /* ./Llib/pregexp.scm 651 */
BgL_arg2720z00_1266 = BgL_rz00_1258; } } 
{ 
obj_t BgL_rz00_10002;obj_t BgL_iz00_10001;
BgL_iz00_10001 = BgL_iz00_1265; 
BgL_rz00_10002 = BgL_arg2720z00_1266; 
BgL_rz00_1258 = BgL_rz00_10002; 
BgL_iz00_1257 = BgL_iz00_10001; 
goto BgL_loopz00_1259;} }  else 
{ /* ./Llib/pregexp.scm 645 */
unsigned char BgL_c2z00_1271;
{ /* ./Llib/pregexp.scm 645 */
unsigned char BgL_res3767z00_2749;
{ /* ./Llib/pregexp.scm 645 */
int BgL_kz00_2742;
{ /* ./Llib/pregexp.scm 645 */
obj_t BgL_auxz00_10003;
if(
INTEGERP(BgL_iz00_1265))
{ /* ./Llib/pregexp.scm 645 */
BgL_auxz00_10003 = BgL_iz00_1265
; }  else 
{ /* ./Llib/pregexp.scm 645 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_1265, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26645))); 
exit( -1 );} 
BgL_kz00_2742 = 
CINT(BgL_auxz00_10003); } 
{ /* ./Llib/pregexp.scm 645 */
bool_t BgL_testz00_10010;
{ /* ./Llib/pregexp.scm 645 */
int BgL_auxz00_10011;
BgL_auxz00_10011 = 
STRING_LENGTH(BgL_insz00_59); 
BgL_testz00_10010 = 
BOUND_CHECK(BgL_kz00_2742, BgL_auxz00_10011); } 
if(BgL_testz00_10010)
{ /* ./Llib/pregexp.scm 645 */
BgL_res3767z00_2749 = 
STRING_REF(BgL_insz00_59, BgL_kz00_2742); }  else 
{ /* ./Llib/pregexp.scm 645 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_2742), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 645 */
obj_t BgL_auxz00_10017;
{ /* ./Llib/pregexp.scm 645 */
obj_t BgL_aux9316z00_4430;
BgL_aux9316z00_4430 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26645))); 
if(
CHARP(BgL_aux9316z00_4430))
{ /* ./Llib/pregexp.scm 645 */
BgL_auxz00_10017 = BgL_aux9316z00_4430
; }  else 
{ /* ./Llib/pregexp.scm 645 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux9316z00_4430, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26645))); 
exit( -1 );} } 
BgL_res3767z00_2749 = 
(unsigned char)CCHAR(BgL_auxz00_10017); } } } } 
BgL_c2z00_1271 = BgL_res3767z00_2749; } 
{ /* ./Llib/pregexp.scm 646 */
long BgL_arg2733z00_1272;obj_t BgL_arg2734z00_1273;
{ /* ./Llib/pregexp.scm 646 */
long BgL_za71za7_2750;
{ /* ./Llib/pregexp.scm 646 */
obj_t BgL_auxz00_10026;
if(
INTEGERP(BgL_iz00_1265))
{ /* ./Llib/pregexp.scm 646 */
BgL_auxz00_10026 = BgL_iz00_1265
; }  else 
{ /* ./Llib/pregexp.scm 646 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1265, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26696))); 
exit( -1 );} 
BgL_za71za7_2750 = 
(long)CINT(BgL_auxz00_10026); } 
BgL_arg2733z00_1272 = 
(BgL_za71za7_2750+((long)1)); } 
if(
(BgL_c2z00_1271==((unsigned char)'$')))
{ /* ./Llib/pregexp.scm 647 */
BgL_arg2734z00_1273 = BgL_rz00_1258; }  else 
{ /* ./Llib/pregexp.scm 648 */
obj_t BgL_arg2739z00_1275;
{ /* ./Llib/pregexp.scm 648 */
obj_t BgL_list2742z00_1276;
{ /* ./Llib/pregexp.scm 648 */
obj_t BgL_auxz00_10036;
BgL_auxz00_10036 = 
BCHAR(BgL_c2z00_1271); 
BgL_list2742z00_1276 = 
MAKE_PAIR(BgL_auxz00_10036, BNIL); } 
BgL_arg2739z00_1275 = 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_list2742z00_1276); } 
{ /* ./Llib/pregexp.scm 648 */
obj_t BgL_auxz00_10040;
if(
STRINGP(BgL_rz00_1258))
{ /* ./Llib/pregexp.scm 648 */
BgL_auxz00_10040 = BgL_rz00_1258
; }  else 
{ /* ./Llib/pregexp.scm 648 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_rz00_1258, BGl_string10330z00zz__pregexpz00, 
BINT(((long)26797))); 
exit( -1 );} 
BgL_arg2734z00_1273 = 
string_append(BgL_auxz00_10040, BgL_arg2739z00_1275); } } 
{ 
obj_t BgL_rz00_10049;obj_t BgL_iz00_10047;
BgL_iz00_10047 = 
BINT(BgL_arg2733z00_1272); 
BgL_rz00_10049 = BgL_arg2734z00_1273; 
BgL_rz00_1258 = BgL_rz00_10049; 
BgL_iz00_1257 = BgL_iz00_10047; 
goto BgL_loopz00_1259;} } } } } } }  else 
{ /* ./Llib/pregexp.scm 655 */
long BgL_arg2760z00_1280;obj_t BgL_arg2761z00_1281;
{ /* ./Llib/pregexp.scm 655 */
long BgL_za71za7_2755;
{ /* ./Llib/pregexp.scm 655 */
obj_t BgL_auxz00_10050;
if(
INTEGERP(BgL_iz00_1257))
{ /* ./Llib/pregexp.scm 655 */
BgL_auxz00_10050 = BgL_iz00_1257
; }  else 
{ /* ./Llib/pregexp.scm 655 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1257, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27138))); 
exit( -1 );} 
BgL_za71za7_2755 = 
(long)CINT(BgL_auxz00_10050); } 
BgL_arg2760z00_1280 = 
(BgL_za71za7_2755+((long)1)); } 
{ /* ./Llib/pregexp.scm 655 */
obj_t BgL_arg2765z00_1282;
{ /* ./Llib/pregexp.scm 655 */
obj_t BgL_list2768z00_1283;
{ /* ./Llib/pregexp.scm 655 */
obj_t BgL_auxz00_10058;
BgL_auxz00_10058 = 
BCHAR(BgL_cz00_1261); 
BgL_list2768z00_1283 = 
MAKE_PAIR(BgL_auxz00_10058, BNIL); } 
BgL_arg2765z00_1282 = 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_list2768z00_1283); } 
{ /* ./Llib/pregexp.scm 655 */
obj_t BgL_auxz00_10062;
if(
STRINGP(BgL_rz00_1258))
{ /* ./Llib/pregexp.scm 655 */
BgL_auxz00_10062 = BgL_rz00_1258
; }  else 
{ /* ./Llib/pregexp.scm 655 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10491z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_rz00_1258, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27146))); 
exit( -1 );} 
BgL_arg2761z00_1281 = 
string_append(BgL_auxz00_10062, BgL_arg2765z00_1282); } } 
{ 
obj_t BgL_rz00_10071;obj_t BgL_iz00_10069;
BgL_iz00_10069 = 
BINT(BgL_arg2760z00_1280); 
BgL_rz00_10071 = BgL_arg2761z00_1281; 
BgL_rz00_1258 = BgL_rz00_10071; 
BgL_iz00_1257 = BgL_iz00_10069; 
goto BgL_loopz00_1259;} } } } } 
POP_TRACE(); 
return BgL_aux3866z00_3214;} } } } 
}



/* pregexp */
BGL_EXPORTED_DEF obj_t BGl_pregexpz00zz__pregexpz00(obj_t BgL_sz00_62)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 657 */
{ /* ./Llib/pregexp.scm 659 */
obj_t BgL_symbol3871z00_3215;
BgL_symbol3871z00_3215 = BGl_symbol10493z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 659 */

PUSH_TRACE(BgL_symbol3871z00_3215); BUNSPEC; 
{ /* ./Llib/pregexp.scm 659 */
obj_t BgL_aux3870z00_3216;
BGl_za2pregexpzd2spacezd2sensitivezf3za2zf3zz__pregexpz00 = BTRUE; 
{ /* ./Llib/pregexp.scm 660 */
obj_t BgL_arg2774z00_1284;obj_t BgL_arg2775z00_1285;
BgL_arg2774z00_1284 = BGl_keyword10366z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 660 */
obj_t BgL_arg2783z00_1288;
BgL_arg2783z00_1288 = 
BGl_pregexpzd2readzd2patternz00zz__pregexpz00(BgL_sz00_62, 
BINT(((long)0)), 
STRING_LENGTH(BgL_sz00_62)); 
{ /* ./Llib/pregexp.scm 660 */
obj_t BgL_pairz00_2759;
if(
PAIRP(BgL_arg2783z00_1288))
{ /* ./Llib/pregexp.scm 660 */
BgL_pairz00_2759 = BgL_arg2783z00_1288; }  else 
{ /* ./Llib/pregexp.scm 660 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10493z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg2783z00_1288, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27344))); 
exit( -1 );} 
BgL_arg2775z00_1285 = 
CAR(BgL_pairz00_2759); } } 
{ /* ./Llib/pregexp.scm 660 */
obj_t BgL_list2777z00_1286;
{ /* ./Llib/pregexp.scm 660 */
obj_t BgL_arg2779z00_1287;
BgL_arg2779z00_1287 = 
MAKE_PAIR(BgL_arg2775z00_1285, BNIL); 
BgL_list2777z00_1286 = 
MAKE_PAIR(BgL_arg2774z00_1284, BgL_arg2779z00_1287); } 
{ /* ./Llib/pregexp.scm 660 */
obj_t BgL_res3768z00_2761;
if(((bool_t)1))
{ /* ./Llib/pregexp.scm 660 */
BgL_res3768z00_2761 = BgL_list2777z00_1286; }  else 
{ /* ./Llib/pregexp.scm 660 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10493z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_list2777z00_1286, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27284))); 
exit( -1 );} 
BgL_aux3870z00_3216 = BgL_res3768z00_2761; } } } 
POP_TRACE(); 
return BgL_aux3870z00_3216;} } } } 
}



/* _pregexp4047 */
obj_t BGl__pregexp4047z00zz__pregexpz00(obj_t BgL_envz00_3460, obj_t BgL_sz00_3461)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 657 */
{ /* ./Llib/pregexp.scm 659 */
obj_t BgL_auxz00_10091;
if(
STRINGP(BgL_sz00_3461))
{ /* ./Llib/pregexp.scm 659 */
BgL_auxz00_10091 = BgL_sz00_3461
; }  else 
{ /* ./Llib/pregexp.scm 659 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10494z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_sz00_3461, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27217))); 
exit( -1 );} 
return 
BGl_pregexpz00zz__pregexpz00(BgL_auxz00_10091);} } 
}



/* 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_symbol3875z00_3217;
BgL_symbol3875z00_3217 = BGl_symbol10495z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 664 */

PUSH_TRACE(BgL_symbol3875z00_3217); BUNSPEC; 
{ /* ./Llib/pregexp.scm 664 */
obj_t BgL_aux3874z00_3218;
{ /* ./Llib/pregexp.scm 664 */
obj_t BgL_patz00_1291;
{ /* ./Llib/pregexp.scm 664 */
bool_t BgL_test2806z00_1303;
BgL_test2806z00_1303 = 
STRINGP(BgL_patz00_63); 
if(BgL_test2806z00_1303)
{ /* ./Llib/pregexp.scm 664 */
obj_t BgL_auxz00_10101;
if(BgL_test2806z00_1303)
{ /* ./Llib/pregexp.scm 664 */
BgL_auxz00_10101 = BgL_patz00_63
; }  else 
{ /* ./Llib/pregexp.scm 664 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10495z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_patz00_63, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27459))); 
exit( -1 );} 
BgL_patz00_1291 = 
BGl_pregexpz00zz__pregexpz00(BgL_auxz00_10101); }  else 
{ /* ./Llib/pregexp.scm 664 */
BgL_patz00_1291 = BgL_patz00_63; } } 
{ /* ./Llib/pregexp.scm 664 */
int BgL_strzd2lenzd2_1292;
BgL_strzd2lenzd2_1292 = 
STRING_LENGTH(BgL_strz00_64); 
{ /* ./Llib/pregexp.scm 665 */
obj_t BgL_startz00_1293;
if(
NULLP(BgL_optzd2argszd2_65))
{ /* ./Llib/pregexp.scm 666 */
BgL_startz00_1293 = 
BINT(((long)0)); }  else 
{ /* ./Llib/pregexp.scm 667 */
obj_t BgL_startz00_1302;
{ /* ./Llib/pregexp.scm 667 */
obj_t BgL_pairz00_2765;
{ /* ./Llib/pregexp.scm 667 */
obj_t BgL_aux9418z00_4448;
BgL_aux9418z00_4448 = BgL_optzd2argszd2_65; 
if(
PAIRP(BgL_aux9418z00_4448))
{ /* ./Llib/pregexp.scm 667 */
BgL_pairz00_2765 = BgL_aux9418z00_4448; }  else 
{ /* ./Llib/pregexp.scm 667 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10495z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_aux9418z00_4448, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27597))); 
exit( -1 );} } 
BgL_startz00_1302 = 
CAR(BgL_pairz00_2765); } 
{ /* ./Llib/pregexp.scm 668 */
obj_t BgL_pairz00_2766;
{ /* ./Llib/pregexp.scm 668 */
obj_t BgL_aux9428z00_4450;
BgL_aux9428z00_4450 = BgL_optzd2argszd2_65; 
if(
PAIRP(BgL_aux9428z00_4450))
{ /* ./Llib/pregexp.scm 668 */
BgL_pairz00_2766 = BgL_aux9428z00_4450; }  else 
{ /* ./Llib/pregexp.scm 668 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10495z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_aux9428z00_4450, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27653))); 
exit( -1 );} } 
BgL_optzd2argszd2_65 = 
CDR(BgL_pairz00_2766); } 
BgL_startz00_1293 = BgL_startz00_1302; } 
{ /* ./Llib/pregexp.scm 666 */
obj_t BgL_endz00_1294;
if(
NULLP(BgL_optzd2argszd2_65))
{ /* ./Llib/pregexp.scm 670 */
BgL_endz00_1294 = 
BINT(BgL_strzd2lenzd2_1292); }  else 
{ /* ./Llib/pregexp.scm 671 */
obj_t BgL_pairz00_2768;
{ /* ./Llib/pregexp.scm 671 */
obj_t BgL_aux9439z00_4452;
BgL_aux9439z00_4452 = BgL_optzd2argszd2_65; 
if(
PAIRP(BgL_aux9439z00_4452))
{ /* ./Llib/pregexp.scm 671 */
BgL_pairz00_2768 = BgL_aux9439z00_4452; }  else 
{ /* ./Llib/pregexp.scm 671 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10495z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_aux9439z00_4452, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27768))); 
exit( -1 );} } 
BgL_endz00_1294 = 
CAR(BgL_pairz00_2768); } 
{ /* ./Llib/pregexp.scm 670 */

{ 
obj_t BgL_iz00_1295;
BgL_iz00_1295 = BgL_startz00_1293; 
BgL_loopz00_1296:
{ /* ./Llib/pregexp.scm 673 */
bool_t BgL__andtest_1057z00_1297;
{ /* ./Llib/pregexp.scm 673 */
long BgL_n1z00_2769;long BgL_n2z00_2770;
{ /* ./Llib/pregexp.scm 673 */
obj_t BgL_auxz00_10132;
if(
INTEGERP(BgL_iz00_1295))
{ /* ./Llib/pregexp.scm 673 */
BgL_auxz00_10132 = BgL_iz00_1295
; }  else 
{ /* ./Llib/pregexp.scm 673 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10495z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1295, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27815))); 
exit( -1 );} 
BgL_n1z00_2769 = 
(long)CINT(BgL_auxz00_10132); } 
{ /* ./Llib/pregexp.scm 673 */
obj_t BgL_auxz00_10139;
if(
INTEGERP(BgL_endz00_1294))
{ /* ./Llib/pregexp.scm 673 */
BgL_auxz00_10139 = BgL_endz00_1294
; }  else 
{ /* ./Llib/pregexp.scm 673 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10495z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_endz00_1294, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27815))); 
exit( -1 );} 
BgL_n2z00_2770 = 
(long)CINT(BgL_auxz00_10139); } 
BgL__andtest_1057z00_1297 = 
(BgL_n1z00_2769<=BgL_n2z00_2770); } 
if(BgL__andtest_1057z00_1297)
{ /* ./Llib/pregexp.scm 674 */
obj_t BgL_vvz00_1298;
BgL_vvz00_1298 = 
BGl_pregexpzd2matchzd2positionszd2auxzd2zz__pregexpz00(BgL_patz00_1291, BgL_strz00_64, BgL_strzd2lenzd2_1292, BgL_startz00_1293, BgL_endz00_1294, BgL_iz00_1295); 
if(
CBOOL(BgL_vvz00_1298))
{ /* ./Llib/pregexp.scm 677 */
obj_t BgL_pairz00_2771;
if(
PAIRP(BgL_vvz00_1298))
{ /* ./Llib/pregexp.scm 677 */
BgL_pairz00_2771 = BgL_vvz00_1298; }  else 
{ /* ./Llib/pregexp.scm 677 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10495z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_vvz00_1298, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27982))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 677 */
obj_t BgL_arg3354z00_2772;
BgL_arg3354z00_2772 = 
CDR(BgL_pairz00_2771); 
{ /* ./Llib/pregexp.scm 677 */
obj_t BgL_pairz00_2774;
if(
PAIRP(BgL_arg3354z00_2772))
{ /* ./Llib/pregexp.scm 677 */
BgL_pairz00_2774 = BgL_arg3354z00_2772; }  else 
{ /* ./Llib/pregexp.scm 677 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10495z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3354z00_2772, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27975))); 
exit( -1 );} 
BgL_aux3874z00_3218 = 
CAR(BgL_pairz00_2774); } } }  else 
{ /* ./Llib/pregexp.scm 678 */
long BgL_arg2793z00_1299;
{ /* ./Llib/pregexp.scm 678 */
long BgL_za71za7_2775;
{ /* ./Llib/pregexp.scm 678 */
obj_t BgL_auxz00_10163;
if(
INTEGERP(BgL_iz00_1295))
{ /* ./Llib/pregexp.scm 678 */
BgL_auxz00_10163 = BgL_iz00_1295
; }  else 
{ /* ./Llib/pregexp.scm 678 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10495z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1295, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28010))); 
exit( -1 );} 
BgL_za71za7_2775 = 
(long)CINT(BgL_auxz00_10163); } 
BgL_arg2793z00_1299 = 
(BgL_za71za7_2775+((long)1)); } 
{ 
obj_t BgL_iz00_10171;
BgL_iz00_10171 = 
BINT(BgL_arg2793z00_1299); 
BgL_iz00_1295 = BgL_iz00_10171; 
goto BgL_loopz00_1296;} } }  else 
{ /* ./Llib/pregexp.scm 673 */
BgL_aux3874z00_3218 = BFALSE; } } } } } } } } 
POP_TRACE(); 
return BgL_aux3874z00_3218;} } } } 
}



/* _pregexp-match-positions */
obj_t BGl__pregexpzd2matchzd2positionsz00zz__pregexpz00(obj_t BgL_envz00_3462, obj_t BgL_patz00_3463, obj_t BgL_strz00_3464, obj_t BgL_optzd2argszd2_3465)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 662 */
{ /* ./Llib/pregexp.scm 664 */
obj_t BgL_auxz00_10174;
if(
STRINGP(BgL_strz00_3464))
{ /* ./Llib/pregexp.scm 664 */
BgL_auxz00_10174 = BgL_strz00_3464
; }  else 
{ /* ./Llib/pregexp.scm 664 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10496z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_strz00_3464, BGl_string10330z00zz__pregexpz00, 
BINT(((long)27418))); 
exit( -1 );} 
return 
BGl_pregexpzd2matchzd2positionsz00zz__pregexpz00(BgL_patz00_3463, BgL_auxz00_10174, BgL_optzd2argszd2_3465);} } 
}



/* 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_symbol3879z00_3219;
BgL_symbol3879z00_3219 = BGl_symbol10497z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 682 */

PUSH_TRACE(BgL_symbol3879z00_3219); BUNSPEC; 
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_aux3878z00_3220;
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_ixzd2prszd2_1304;
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_runner2843z00_1326;
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_list2836z00_1322;
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_arg2838z00_1323;
BgL_arg2838z00_1323 = 
MAKE_PAIR(BgL_optzd2argszd2_68, BNIL); 
BgL_list2836z00_1322 = 
MAKE_PAIR(BgL_strz00_67, BgL_arg2838z00_1323); } 
BgL_runner2843z00_1326 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_patz00_66, BgL_list2836z00_1322); } 
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_aux2841z00_1324;
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_pairz00_2777;
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_aux9515z00_4466;
BgL_aux9515z00_4466 = BgL_runner2843z00_1326; 
if(
PAIRP(BgL_aux9515z00_4466))
{ /* ./Llib/pregexp.scm 682 */
BgL_pairz00_2777 = BgL_aux9515z00_4466; }  else 
{ /* ./Llib/pregexp.scm 682 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10497z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_aux9515z00_4466, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28098))); 
exit( -1 );} } 
BgL_aux2841z00_1324 = 
CAR(BgL_pairz00_2777); } 
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_pairz00_2778;
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_aux9525z00_4468;
BgL_aux9525z00_4468 = BgL_runner2843z00_1326; 
if(
PAIRP(BgL_aux9525z00_4468))
{ /* ./Llib/pregexp.scm 682 */
BgL_pairz00_2778 = BgL_aux9525z00_4468; }  else 
{ /* ./Llib/pregexp.scm 682 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10497z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_aux9525z00_4468, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28098))); 
exit( -1 );} } 
BgL_runner2843z00_1326 = 
CDR(BgL_pairz00_2778); } 
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_aux2842z00_1325;
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_pairz00_2779;
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_aux9535z00_4470;
BgL_aux9535z00_4470 = BgL_runner2843z00_1326; 
if(
PAIRP(BgL_aux9535z00_4470))
{ /* ./Llib/pregexp.scm 682 */
BgL_pairz00_2779 = BgL_aux9535z00_4470; }  else 
{ /* ./Llib/pregexp.scm 682 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10497z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_aux9535z00_4470, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28098))); 
exit( -1 );} } 
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_aux9545z00_4472;
BgL_aux9545z00_4472 = 
CAR(BgL_pairz00_2779); 
if(
STRINGP(BgL_aux9545z00_4472))
{ /* ./Llib/pregexp.scm 682 */
BgL_aux2842z00_1325 = BgL_aux9545z00_4472; }  else 
{ /* ./Llib/pregexp.scm 682 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10497z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_aux9545z00_4472, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28098))); 
exit( -1 );} } } 
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_pairz00_2780;
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_aux9555z00_4474;
BgL_aux9555z00_4474 = BgL_runner2843z00_1326; 
if(
PAIRP(BgL_aux9555z00_4474))
{ /* ./Llib/pregexp.scm 682 */
BgL_pairz00_2780 = BgL_aux9555z00_4474; }  else 
{ /* ./Llib/pregexp.scm 682 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10497z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_aux9555z00_4474, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28098))); 
exit( -1 );} } 
BgL_runner2843z00_1326 = 
CDR(BgL_pairz00_2780); } 
BgL_ixzd2prszd2_1304 = 
BGl_pregexpzd2matchzd2positionsz00zz__pregexpz00(BgL_aux2841z00_1324, BgL_aux2842z00_1325, BgL_runner2843z00_1326); } } } 
if(
CBOOL(BgL_ixzd2prszd2_1304))
{ /* ./Llib/pregexp.scm 683 */
if(
NULLP(BgL_ixzd2prszd2_1304))
{ /* ./Llib/pregexp.scm 684 */
BgL_aux3878z00_3220 = BNIL; }  else 
{ /* ./Llib/pregexp.scm 684 */
obj_t BgL_head1061z00_1308;
BgL_head1061z00_1308 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1059z00_1309;obj_t BgL_tail1062z00_1310;
BgL_l1059z00_1309 = BgL_ixzd2prszd2_1304; 
BgL_tail1062z00_1310 = BgL_head1061z00_1308; 
BgL_map1060z00_1311:
{ /* ./Llib/pregexp.scm 684 */
bool_t BgL_test2811z00_1312;
BgL_test2811z00_1312 = 
PAIRP(BgL_l1059z00_1309); 
if(BgL_test2811z00_1312)
{ /* ./Llib/pregexp.scm 684 */
{ /* ./Llib/pregexp.scm 686 */
obj_t BgL_newtail1063z00_1313;
{ /* ./Llib/pregexp.scm 686 */
obj_t BgL_arg2818z00_1315;
{ /* ./Llib/pregexp.scm 686 */
obj_t BgL_ixzd2przd2_1317;
{ /* ./Llib/pregexp.scm 686 */
obj_t BgL_pairz00_2785;
if(BgL_test2811z00_1312)
{ /* ./Llib/pregexp.scm 686 */
BgL_pairz00_2785 = BgL_l1059z00_1309; }  else 
{ /* ./Llib/pregexp.scm 686 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10497z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_l1059z00_1309, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28227))); 
exit( -1 );} 
BgL_ixzd2przd2_1317 = 
CAR(BgL_pairz00_2785); } 
if(
CBOOL(BgL_ixzd2przd2_1317))
{ /* ./Llib/pregexp.scm 687 */
obj_t BgL_arg2822z00_1319;obj_t BgL_arg2823z00_1320;
{ /* ./Llib/pregexp.scm 687 */
obj_t BgL_pairz00_2786;
if(
PAIRP(BgL_ixzd2przd2_1317))
{ /* ./Llib/pregexp.scm 687 */
BgL_pairz00_2786 = BgL_ixzd2przd2_1317; }  else 
{ /* ./Llib/pregexp.scm 687 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10497z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_ixzd2przd2_1317, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28282))); 
exit( -1 );} 
BgL_arg2822z00_1319 = 
CAR(BgL_pairz00_2786); } 
{ /* ./Llib/pregexp.scm 687 */
obj_t BgL_pairz00_2787;
if(
PAIRP(BgL_ixzd2przd2_1317))
{ /* ./Llib/pregexp.scm 687 */
BgL_pairz00_2787 = BgL_ixzd2przd2_1317; }  else 
{ /* ./Llib/pregexp.scm 687 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10497z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_ixzd2przd2_1317, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28294))); 
exit( -1 );} 
BgL_arg2823z00_1320 = 
CDR(BgL_pairz00_2787); } 
{ /* ./Llib/pregexp.scm 687 */
obj_t BgL_res3769z00_2816;
{ /* ./Llib/pregexp.scm 687 */
int BgL_startz00_2789;int BgL_endz00_2790;
{ /* ./Llib/pregexp.scm 687 */
obj_t BgL_auxz00_10241;
if(
INTEGERP(BgL_arg2822z00_1319))
{ /* ./Llib/pregexp.scm 687 */
BgL_auxz00_10241 = BgL_arg2822z00_1319
; }  else 
{ /* ./Llib/pregexp.scm 687 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10497z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_arg2822z00_1319, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28258))); 
exit( -1 );} 
BgL_startz00_2789 = 
CINT(BgL_auxz00_10241); } 
{ /* ./Llib/pregexp.scm 687 */
obj_t BgL_auxz00_10248;
if(
INTEGERP(BgL_arg2823z00_1320))
{ /* ./Llib/pregexp.scm 687 */
BgL_auxz00_10248 = BgL_arg2823z00_1320
; }  else 
{ /* ./Llib/pregexp.scm 687 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10497z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_arg2823z00_1320, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28258))); 
exit( -1 );} 
BgL_endz00_2790 = 
CINT(BgL_auxz00_10248); } 
{ /* ./Llib/pregexp.scm 687 */
bool_t BgL_test3048z00_2791;
{ /* ./Llib/pregexp.scm 687 */
bool_t BgL_testz00_10255;
{ /* ./Llib/pregexp.scm 687 */
long BgL_auxz00_10258;long BgL_auxz00_10256;
BgL_auxz00_10258 = 
(long)(BgL_startz00_2789); 
BgL_auxz00_10256 = 
(long)(BgL_endz00_2790); 
BgL_testz00_10255 = 
(BgL_auxz00_10256>=BgL_auxz00_10258); } 
if(BgL_testz00_10255)
{ /* ./Llib/pregexp.scm 687 */
bool_t BgL_testz00_10261;
{ /* ./Llib/pregexp.scm 687 */
int BgL_auxz00_10262;
{ /* ./Llib/pregexp.scm 687 */
long BgL_auxz00_10263;
{ /* ./Llib/pregexp.scm 687 */
long BgL_auxz00_10264;
{ /* ./Llib/pregexp.scm 687 */
int BgL_auxz00_10265;
BgL_auxz00_10265 = 
STRING_LENGTH(BgL_strz00_67); 
BgL_auxz00_10264 = 
(long)(BgL_auxz00_10265); } 
BgL_auxz00_10263 = 
(BgL_auxz00_10264+((long)1)); } 
BgL_auxz00_10262 = 
(int)(BgL_auxz00_10263); } 
BgL_testz00_10261 = 
BOUND_CHECK(BgL_startz00_2789, BgL_auxz00_10262); } 
if(BgL_testz00_10261)
{ /* ./Llib/pregexp.scm 687 */
int BgL_auxz00_10271;
{ /* ./Llib/pregexp.scm 687 */
long BgL_auxz00_10272;
{ /* ./Llib/pregexp.scm 687 */
long BgL_auxz00_10273;
{ /* ./Llib/pregexp.scm 687 */
int BgL_auxz00_10274;
BgL_auxz00_10274 = 
STRING_LENGTH(BgL_strz00_67); 
BgL_auxz00_10273 = 
(long)(BgL_auxz00_10274); } 
BgL_auxz00_10272 = 
(BgL_auxz00_10273+((long)1)); } 
BgL_auxz00_10271 = 
(int)(BgL_auxz00_10272); } 
BgL_test3048z00_2791 = 
BOUND_CHECK(BgL_endz00_2790, BgL_auxz00_10271); }  else 
{ /* ./Llib/pregexp.scm 687 */
BgL_test3048z00_2791 = ((bool_t)0); } }  else 
{ /* ./Llib/pregexp.scm 687 */
BgL_test3048z00_2791 = ((bool_t)0); } } 
if(BgL_test3048z00_2791)
{ /* ./Llib/pregexp.scm 687 */
BgL_res3769z00_2816 = 
c_substring(BgL_strz00_67, BgL_startz00_2789, BgL_endz00_2790); }  else 
{ /* ./Llib/pregexp.scm 687 */
{ /* ./Llib/pregexp.scm 687 */
obj_t BgL_arg3053z00_2802;
{ /* ./Llib/pregexp.scm 687 */
obj_t BgL_auxz00_10284;obj_t BgL_auxz00_10282;
BgL_auxz00_10284 = 
BINT(BgL_endz00_2790); 
BgL_auxz00_10282 = 
BINT(BgL_startz00_2789); 
BgL_arg3053z00_2802 = 
MAKE_PAIR(BgL_auxz00_10282, BgL_auxz00_10284); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10441z00zz__pregexpz00, BGl_string10442z00zz__pregexpz00, BgL_arg3053z00_2802, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/pregexp.scm 687 */
obj_t BgL_aux9634z00_4486;
BgL_aux9634z00_4486 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28258))); 
if(
STRINGP(BgL_aux9634z00_4486))
{ /* ./Llib/pregexp.scm 687 */
BgL_res3769z00_2816 = BgL_aux9634z00_4486; }  else 
{ /* ./Llib/pregexp.scm 687 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10497z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_aux9634z00_4486, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28258))); 
exit( -1 );} } } } } 
BgL_arg2818z00_1315 = BgL_res3769z00_2816; } }  else 
{ /* ./Llib/pregexp.scm 686 */
BgL_arg2818z00_1315 = BFALSE; } } 
BgL_newtail1063z00_1313 = 
MAKE_PAIR(BgL_arg2818z00_1315, BNIL); } 
SET_CDR(BgL_tail1062z00_1310, BgL_newtail1063z00_1313); 
{ /* ./Llib/pregexp.scm 684 */
obj_t BgL_arg2814z00_1314;
{ /* ./Llib/pregexp.scm 684 */
obj_t BgL_pairz00_2821;
if(
PAIRP(BgL_l1059z00_1309))
{ /* ./Llib/pregexp.scm 684 */
BgL_pairz00_2821 = BgL_l1059z00_1309; }  else 
{ /* ./Llib/pregexp.scm 684 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10497z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_l1059z00_1309, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28178))); 
exit( -1 );} 
BgL_arg2814z00_1314 = 
CDR(BgL_pairz00_2821); } 
{ 
obj_t BgL_tail1062z00_10304;obj_t BgL_l1059z00_10303;
BgL_l1059z00_10303 = BgL_arg2814z00_1314; 
BgL_tail1062z00_10304 = BgL_newtail1063z00_1313; 
BgL_tail1062z00_1310 = BgL_tail1062z00_10304; 
BgL_l1059z00_1309 = BgL_l1059z00_10303; 
goto BgL_map1060z00_1311;} } } }  else 
{ /* ./Llib/pregexp.scm 684 */
if(
NULLP(BgL_l1059z00_1309))
{ /* ./Llib/pregexp.scm 684 */
BgL_aux3878z00_3220 = 
CDR(BgL_head1061z00_1308); }  else 
{ /* ./Llib/pregexp.scm 684 */
BgL_aux3878z00_3220 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string10498z00zz__pregexpz00, BGl_string10499z00zz__pregexpz00, BgL_l1059z00_1309, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28178))); } } } } } }  else 
{ /* ./Llib/pregexp.scm 683 */
BgL_aux3878z00_3220 = BFALSE; } } 
POP_TRACE(); 
return BgL_aux3878z00_3220;} } } } 
}



/* _pregexp-match */
obj_t BGl__pregexpzd2matchzd2zz__pregexpz00(obj_t BgL_envz00_3466, obj_t BgL_patz00_3467, obj_t BgL_strz00_3468, obj_t BgL_optzd2argszd2_3469)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 680 */
{ /* ./Llib/pregexp.scm 682 */
obj_t BgL_auxz00_10311;
if(
STRINGP(BgL_strz00_3468))
{ /* ./Llib/pregexp.scm 682 */
BgL_auxz00_10311 = BgL_strz00_3468
; }  else 
{ /* ./Llib/pregexp.scm 682 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10500z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_strz00_3468, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28084))); 
exit( -1 );} 
return 
BGl_pregexpzd2matchzd2zz__pregexpz00(BgL_patz00_3467, BgL_auxz00_10311, BgL_optzd2argszd2_3469);} } 
}



/* 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 */
obj_t BgL_symbol3883z00_3221;
BgL_symbol3883z00_3221 = BGl_symbol10501z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 693 */

PUSH_TRACE(BgL_symbol3883z00_3221); BUNSPEC; 
{ /* ./Llib/pregexp.scm 693 */
obj_t BgL_aux3882z00_3222;
{ /* ./Llib/pregexp.scm 693 */
int BgL_nz00_1327;
BgL_nz00_1327 = 
STRING_LENGTH(BgL_strz00_70); 
{ 
obj_t BgL_iz00_1328;obj_t BgL_rz00_1329;bool_t BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_1330;
{ /* ./Llib/pregexp.scm 694 */
obj_t BgL_aux9903z00_4526;
BgL_iz00_1328 = 
BINT(((long)0)); 
BgL_rz00_1329 = BNIL; 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_1330 = ((bool_t)0); 
BgL_loopz00_1331:
{ /* ./Llib/pregexp.scm 695 */
bool_t BgL_test2849z00_1332;
{ /* ./Llib/pregexp.scm 695 */
long BgL_n1z00_2828;long BgL_n2z00_2829;
{ /* ./Llib/pregexp.scm 695 */
obj_t BgL_auxz00_10320;
if(
INTEGERP(BgL_iz00_1328))
{ /* ./Llib/pregexp.scm 695 */
BgL_auxz00_10320 = BgL_iz00_1328
; }  else 
{ /* ./Llib/pregexp.scm 695 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1328, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28542))); 
exit( -1 );} 
BgL_n1z00_2828 = 
(long)CINT(BgL_auxz00_10320); } 
BgL_n2z00_2829 = 
(long)(BgL_nz00_1327); 
BgL_test2849z00_1332 = 
(BgL_n1z00_2828>=BgL_n2z00_2829); } 
if(BgL_test2849z00_1332)
{ /* ./Llib/pregexp.scm 695 */
BgL_aux9903z00_4526 = 
BGl_pregexpzd2reversez12zc0zz__pregexpz00(BgL_rz00_1329); }  else 
{ /* ./Llib/pregexp.scm 696 */
obj_t BgL_testzd2resultzd2_1333;
{ /* ./Llib/pregexp.scm 696 */
obj_t BgL_list2854z00_1336;
{ /* ./Llib/pregexp.scm 696 */
obj_t BgL_arg2856z00_1337;
{ /* ./Llib/pregexp.scm 696 */
obj_t BgL_auxz00_10331;
BgL_auxz00_10331 = 
BINT(BgL_nz00_1327); 
BgL_arg2856z00_1337 = 
MAKE_PAIR(BgL_auxz00_10331, BNIL); } 
BgL_list2854z00_1336 = 
MAKE_PAIR(BgL_iz00_1328, BgL_arg2856z00_1337); } 
BgL_testzd2resultzd2_1333 = 
BGl_pregexpzd2matchzd2positionsz00zz__pregexpz00(BgL_patz00_69, BgL_strz00_70, BgL_list2854z00_1336); } 
{ 
obj_t BgL__cdtest_1065z00_1338;
if(
CBOOL(BgL_testzd2resultzd2_1333))
{ /* ./Llib/pregexp.scm 696 */
BgL__cdtest_1065z00_1338 = BgL_testzd2resultzd2_1333; 
{ /* ./Llib/pregexp.scm 699 */
obj_t BgL_jkz00_1341;
{ /* ./Llib/pregexp.scm 699 */
obj_t BgL_pairz00_2830;
if(
PAIRP(BgL__cdtest_1065z00_1338))
{ /* ./Llib/pregexp.scm 699 */
BgL_pairz00_2830 = BgL__cdtest_1065z00_1338; }  else 
{ /* ./Llib/pregexp.scm 699 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL__cdtest_1065z00_1338, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28703))); 
exit( -1 );} 
BgL_jkz00_1341 = 
CAR(BgL_pairz00_2830); } 
{ /* ./Llib/pregexp.scm 700 */
obj_t BgL_jz00_1342;obj_t BgL_kz00_1343;
{ /* ./Llib/pregexp.scm 700 */
obj_t BgL_pairz00_2831;
if(
PAIRP(BgL_jkz00_1341))
{ /* ./Llib/pregexp.scm 700 */
BgL_pairz00_2831 = BgL_jkz00_1341; }  else 
{ /* ./Llib/pregexp.scm 700 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_jkz00_1341, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28742))); 
exit( -1 );} 
BgL_jz00_1342 = 
CAR(BgL_pairz00_2831); } 
{ /* ./Llib/pregexp.scm 700 */
obj_t BgL_pairz00_2832;
if(
PAIRP(BgL_jkz00_1341))
{ /* ./Llib/pregexp.scm 700 */
BgL_pairz00_2832 = BgL_jkz00_1341; }  else 
{ /* ./Llib/pregexp.scm 700 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_jkz00_1341, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28755))); 
exit( -1 );} 
BgL_kz00_1343 = 
CDR(BgL_pairz00_2832); } 
{ /* ./Llib/pregexp.scm 702 */
bool_t BgL_test2860z00_1344;
{ /* ./Llib/pregexp.scm 702 */
long BgL_n1z00_2833;long BgL_n2z00_2834;
{ /* ./Llib/pregexp.scm 702 */
obj_t BgL_auxz00_10356;
if(
INTEGERP(BgL_jz00_1342))
{ /* ./Llib/pregexp.scm 702 */
BgL_auxz00_10356 = BgL_jz00_1342
; }  else 
{ /* ./Llib/pregexp.scm 702 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_jz00_1342, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28852))); 
exit( -1 );} 
BgL_n1z00_2833 = 
(long)CINT(BgL_auxz00_10356); } 
{ /* ./Llib/pregexp.scm 702 */
obj_t BgL_auxz00_10363;
if(
INTEGERP(BgL_kz00_1343))
{ /* ./Llib/pregexp.scm 702 */
BgL_auxz00_10363 = BgL_kz00_1343
; }  else 
{ /* ./Llib/pregexp.scm 702 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_kz00_1343, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28852))); 
exit( -1 );} 
BgL_n2z00_2834 = 
(long)CINT(BgL_auxz00_10363); } 
BgL_test2860z00_1344 = 
(BgL_n1z00_2833==BgL_n2z00_2834); } 
if(BgL_test2860z00_1344)
{ /* ./Llib/pregexp.scm 702 */
{ /* ./Llib/pregexp.scm 704 */
long BgL_arg2862z00_1345;obj_t BgL_arg2863z00_1346;
{ /* ./Llib/pregexp.scm 704 */
long BgL_za71za7_2835;
{ /* ./Llib/pregexp.scm 704 */
obj_t BgL_auxz00_10372;
if(
INTEGERP(BgL_kz00_1343))
{ /* ./Llib/pregexp.scm 704 */
BgL_auxz00_10372 = BgL_kz00_1343
; }  else 
{ /* ./Llib/pregexp.scm 704 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_kz00_1343, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28975))); 
exit( -1 );} 
BgL_za71za7_2835 = 
(long)CINT(BgL_auxz00_10372); } 
BgL_arg2862z00_1345 = 
(BgL_za71za7_2835+((long)1)); } 
{ /* ./Llib/pregexp.scm 705 */
obj_t BgL_arg2868z00_1347;
{ /* ./Llib/pregexp.scm 705 */
long BgL_arg2871z00_1348;
{ /* ./Llib/pregexp.scm 705 */
long BgL_za71za7_2837;
{ /* ./Llib/pregexp.scm 705 */
obj_t BgL_auxz00_10380;
if(
INTEGERP(BgL_jz00_1342))
{ /* ./Llib/pregexp.scm 705 */
BgL_auxz00_10380 = BgL_jz00_1342
; }  else 
{ /* ./Llib/pregexp.scm 705 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_jz00_1342, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29041))); 
exit( -1 );} 
BgL_za71za7_2837 = 
(long)CINT(BgL_auxz00_10380); } 
BgL_arg2871z00_1348 = 
(BgL_za71za7_2837+((long)1)); } 
{ /* ./Llib/pregexp.scm 705 */
obj_t BgL_res3770z00_2867;
{ /* ./Llib/pregexp.scm 705 */
int BgL_startz00_2840;int BgL_endz00_2841;
{ /* ./Llib/pregexp.scm 705 */
obj_t BgL_auxz00_10388;
if(
INTEGERP(BgL_iz00_1328))
{ /* ./Llib/pregexp.scm 705 */
BgL_auxz00_10388 = BgL_iz00_1328
; }  else 
{ /* ./Llib/pregexp.scm 705 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_1328, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29024))); 
exit( -1 );} 
BgL_startz00_2840 = 
CINT(BgL_auxz00_10388); } 
BgL_endz00_2841 = 
(int)(BgL_arg2871z00_1348); 
{ /* ./Llib/pregexp.scm 705 */
bool_t BgL_test3048z00_2842;
{ /* ./Llib/pregexp.scm 705 */
bool_t BgL_testz00_10396;
{ /* ./Llib/pregexp.scm 705 */
long BgL_auxz00_10399;long BgL_auxz00_10397;
BgL_auxz00_10399 = 
(long)(BgL_startz00_2840); 
BgL_auxz00_10397 = 
(long)(BgL_endz00_2841); 
BgL_testz00_10396 = 
(BgL_auxz00_10397>=BgL_auxz00_10399); } 
if(BgL_testz00_10396)
{ /* ./Llib/pregexp.scm 705 */
bool_t BgL_testz00_10402;
{ /* ./Llib/pregexp.scm 705 */
int BgL_auxz00_10403;
{ /* ./Llib/pregexp.scm 705 */
long BgL_auxz00_10404;
{ /* ./Llib/pregexp.scm 705 */
long BgL_auxz00_10405;
{ /* ./Llib/pregexp.scm 705 */
int BgL_auxz00_10406;
BgL_auxz00_10406 = 
STRING_LENGTH(BgL_strz00_70); 
BgL_auxz00_10405 = 
(long)(BgL_auxz00_10406); } 
BgL_auxz00_10404 = 
(BgL_auxz00_10405+((long)1)); } 
BgL_auxz00_10403 = 
(int)(BgL_auxz00_10404); } 
BgL_testz00_10402 = 
BOUND_CHECK(BgL_startz00_2840, BgL_auxz00_10403); } 
if(BgL_testz00_10402)
{ /* ./Llib/pregexp.scm 705 */
int BgL_auxz00_10412;
{ /* ./Llib/pregexp.scm 705 */
long BgL_auxz00_10413;
{ /* ./Llib/pregexp.scm 705 */
long BgL_auxz00_10414;
{ /* ./Llib/pregexp.scm 705 */
int BgL_auxz00_10415;
BgL_auxz00_10415 = 
STRING_LENGTH(BgL_strz00_70); 
BgL_auxz00_10414 = 
(long)(BgL_auxz00_10415); } 
BgL_auxz00_10413 = 
(BgL_auxz00_10414+((long)1)); } 
BgL_auxz00_10412 = 
(int)(BgL_auxz00_10413); } 
BgL_test3048z00_2842 = 
BOUND_CHECK(BgL_endz00_2841, BgL_auxz00_10412); }  else 
{ /* ./Llib/pregexp.scm 705 */
BgL_test3048z00_2842 = ((bool_t)0); } }  else 
{ /* ./Llib/pregexp.scm 705 */
BgL_test3048z00_2842 = ((bool_t)0); } } 
if(BgL_test3048z00_2842)
{ /* ./Llib/pregexp.scm 705 */
BgL_res3770z00_2867 = 
c_substring(BgL_strz00_70, BgL_startz00_2840, BgL_endz00_2841); }  else 
{ /* ./Llib/pregexp.scm 705 */
{ /* ./Llib/pregexp.scm 705 */
obj_t BgL_arg3053z00_2853;
{ /* ./Llib/pregexp.scm 705 */
obj_t BgL_auxz00_10425;obj_t BgL_auxz00_10423;
BgL_auxz00_10425 = 
BINT(BgL_endz00_2841); 
BgL_auxz00_10423 = 
BINT(BgL_startz00_2840); 
BgL_arg3053z00_2853 = 
MAKE_PAIR(BgL_auxz00_10423, BgL_auxz00_10425); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10441z00zz__pregexpz00, BGl_string10442z00zz__pregexpz00, BgL_arg3053z00_2853, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/pregexp.scm 705 */
obj_t BgL_aux9784z00_4510;
BgL_aux9784z00_4510 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29024))); 
if(
STRINGP(BgL_aux9784z00_4510))
{ /* ./Llib/pregexp.scm 705 */
BgL_res3770z00_2867 = BgL_aux9784z00_4510; }  else 
{ /* ./Llib/pregexp.scm 705 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_aux9784z00_4510, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29024))); 
exit( -1 );} } } } } 
BgL_arg2868z00_1347 = BgL_res3770z00_2867; } } 
BgL_arg2863z00_1346 = 
MAKE_PAIR(BgL_arg2868z00_1347, BgL_rz00_1329); } 
{ 
bool_t BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_10440;obj_t BgL_rz00_10439;obj_t BgL_iz00_10437;
BgL_iz00_10437 = 
BINT(BgL_arg2862z00_1345); 
BgL_rz00_10439 = BgL_arg2863z00_1346; 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_10440 = ((bool_t)1); 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_1330 = BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_10440; 
BgL_rz00_1329 = BgL_rz00_10439; 
BgL_iz00_1328 = BgL_iz00_10437; 
goto BgL_loopz00_1331;} } }  else 
{ /* ./Llib/pregexp.scm 706 */
bool_t BgL_test2874z00_1349;
{ /* ./Llib/pregexp.scm 706 */
bool_t BgL_test2883z00_1352;
{ /* ./Llib/pregexp.scm 706 */
long BgL_n1z00_2868;long BgL_n2z00_2869;
{ /* ./Llib/pregexp.scm 706 */
obj_t BgL_auxz00_10441;
if(
INTEGERP(BgL_jz00_1342))
{ /* ./Llib/pregexp.scm 706 */
BgL_auxz00_10441 = BgL_jz00_1342
; }  else 
{ /* ./Llib/pregexp.scm 706 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_jz00_1342, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29091))); 
exit( -1 );} 
BgL_n1z00_2868 = 
(long)CINT(BgL_auxz00_10441); } 
{ /* ./Llib/pregexp.scm 706 */
obj_t BgL_auxz00_10448;
if(
INTEGERP(BgL_iz00_1328))
{ /* ./Llib/pregexp.scm 706 */
BgL_auxz00_10448 = BgL_iz00_1328
; }  else 
{ /* ./Llib/pregexp.scm 706 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1328, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29091))); 
exit( -1 );} 
BgL_n2z00_2869 = 
(long)CINT(BgL_auxz00_10448); } 
BgL_test2883z00_1352 = 
(BgL_n1z00_2868==BgL_n2z00_2869); } 
if(BgL_test2883z00_1352)
{ /* ./Llib/pregexp.scm 706 */
BgL_test2874z00_1349 = BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_1330; }  else 
{ /* ./Llib/pregexp.scm 706 */
BgL_test2874z00_1349 = ((bool_t)0); } } 
if(BgL_test2874z00_1349)
{ /* ./Llib/pregexp.scm 706 */
{ 
bool_t BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_10459;obj_t BgL_iz00_10458;
BgL_iz00_10458 = BgL_kz00_1343; 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_10459 = ((bool_t)0); 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_1330 = BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_10459; 
BgL_iz00_1328 = BgL_iz00_10458; 
goto BgL_loopz00_1331;} }  else 
{ /* ./Llib/pregexp.scm 706 */
{ /* ./Llib/pregexp.scm 710 */
obj_t BgL_arg2877z00_1350;
{ /* ./Llib/pregexp.scm 710 */
obj_t BgL_arg2880z00_1351;
{ /* ./Llib/pregexp.scm 710 */
obj_t BgL_res3771z00_2898;
{ /* ./Llib/pregexp.scm 710 */
int BgL_startz00_2871;int BgL_endz00_2872;
{ /* ./Llib/pregexp.scm 710 */
obj_t BgL_auxz00_10460;
if(
INTEGERP(BgL_iz00_1328))
{ /* ./Llib/pregexp.scm 710 */
BgL_auxz00_10460 = BgL_iz00_1328
; }  else 
{ /* ./Llib/pregexp.scm 710 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_1328, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29327))); 
exit( -1 );} 
BgL_startz00_2871 = 
CINT(BgL_auxz00_10460); } 
{ /* ./Llib/pregexp.scm 710 */
obj_t BgL_auxz00_10467;
if(
INTEGERP(BgL_jz00_1342))
{ /* ./Llib/pregexp.scm 710 */
BgL_auxz00_10467 = BgL_jz00_1342
; }  else 
{ /* ./Llib/pregexp.scm 710 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_jz00_1342, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29327))); 
exit( -1 );} 
BgL_endz00_2872 = 
CINT(BgL_auxz00_10467); } 
{ /* ./Llib/pregexp.scm 710 */
bool_t BgL_test3048z00_2873;
{ /* ./Llib/pregexp.scm 710 */
bool_t BgL_testz00_10474;
{ /* ./Llib/pregexp.scm 710 */
long BgL_auxz00_10477;long BgL_auxz00_10475;
BgL_auxz00_10477 = 
(long)(BgL_startz00_2871); 
BgL_auxz00_10475 = 
(long)(BgL_endz00_2872); 
BgL_testz00_10474 = 
(BgL_auxz00_10475>=BgL_auxz00_10477); } 
if(BgL_testz00_10474)
{ /* ./Llib/pregexp.scm 710 */
bool_t BgL_testz00_10480;
{ /* ./Llib/pregexp.scm 710 */
int BgL_auxz00_10481;
{ /* ./Llib/pregexp.scm 710 */
long BgL_auxz00_10482;
{ /* ./Llib/pregexp.scm 710 */
long BgL_auxz00_10483;
{ /* ./Llib/pregexp.scm 710 */
int BgL_auxz00_10484;
BgL_auxz00_10484 = 
STRING_LENGTH(BgL_strz00_70); 
BgL_auxz00_10483 = 
(long)(BgL_auxz00_10484); } 
BgL_auxz00_10482 = 
(BgL_auxz00_10483+((long)1)); } 
BgL_auxz00_10481 = 
(int)(BgL_auxz00_10482); } 
BgL_testz00_10480 = 
BOUND_CHECK(BgL_startz00_2871, BgL_auxz00_10481); } 
if(BgL_testz00_10480)
{ /* ./Llib/pregexp.scm 710 */
int BgL_auxz00_10490;
{ /* ./Llib/pregexp.scm 710 */
long BgL_auxz00_10491;
{ /* ./Llib/pregexp.scm 710 */
long BgL_auxz00_10492;
{ /* ./Llib/pregexp.scm 710 */
int BgL_auxz00_10493;
BgL_auxz00_10493 = 
STRING_LENGTH(BgL_strz00_70); 
BgL_auxz00_10492 = 
(long)(BgL_auxz00_10493); } 
BgL_auxz00_10491 = 
(BgL_auxz00_10492+((long)1)); } 
BgL_auxz00_10490 = 
(int)(BgL_auxz00_10491); } 
BgL_test3048z00_2873 = 
BOUND_CHECK(BgL_endz00_2872, BgL_auxz00_10490); }  else 
{ /* ./Llib/pregexp.scm 710 */
BgL_test3048z00_2873 = ((bool_t)0); } }  else 
{ /* ./Llib/pregexp.scm 710 */
BgL_test3048z00_2873 = ((bool_t)0); } } 
if(BgL_test3048z00_2873)
{ /* ./Llib/pregexp.scm 710 */
BgL_res3771z00_2898 = 
c_substring(BgL_strz00_70, BgL_startz00_2871, BgL_endz00_2872); }  else 
{ /* ./Llib/pregexp.scm 710 */
{ /* ./Llib/pregexp.scm 710 */
obj_t BgL_arg3053z00_2884;
{ /* ./Llib/pregexp.scm 710 */
obj_t BgL_auxz00_10503;obj_t BgL_auxz00_10501;
BgL_auxz00_10503 = 
BINT(BgL_endz00_2872); 
BgL_auxz00_10501 = 
BINT(BgL_startz00_2871); 
BgL_arg3053z00_2884 = 
MAKE_PAIR(BgL_auxz00_10501, BgL_auxz00_10503); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10441z00zz__pregexpz00, BGl_string10442z00zz__pregexpz00, BgL_arg3053z00_2884, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/pregexp.scm 710 */
obj_t BgL_aux9854z00_4520;
BgL_aux9854z00_4520 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29327))); 
if(
STRINGP(BgL_aux9854z00_4520))
{ /* ./Llib/pregexp.scm 710 */
BgL_res3771z00_2898 = BgL_aux9854z00_4520; }  else 
{ /* ./Llib/pregexp.scm 710 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_aux9854z00_4520, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29327))); 
exit( -1 );} } } } } 
BgL_arg2880z00_1351 = BgL_res3771z00_2898; } 
BgL_arg2877z00_1350 = 
MAKE_PAIR(BgL_arg2880z00_1351, BgL_rz00_1329); } 
{ 
bool_t BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_10517;obj_t BgL_rz00_10516;obj_t BgL_iz00_10515;
BgL_iz00_10515 = BgL_kz00_1343; 
BgL_rz00_10516 = BgL_arg2877z00_1350; 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_10517 = ((bool_t)0); 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_1330 = BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_10517; 
BgL_rz00_1329 = BgL_rz00_10516; 
BgL_iz00_1328 = BgL_iz00_10515; 
goto BgL_loopz00_1331;} } } } } } } }  else 
{ /* ./Llib/pregexp.scm 696 */
{ /* ./Llib/pregexp.scm 711 */
obj_t BgL_arg2891z00_1354;
{ /* ./Llib/pregexp.scm 711 */
obj_t BgL_arg2894z00_1355;
{ /* ./Llib/pregexp.scm 711 */
obj_t BgL_res3772z00_2927;
{ /* ./Llib/pregexp.scm 711 */
int BgL_startz00_2900;
{ /* ./Llib/pregexp.scm 711 */
obj_t BgL_auxz00_10518;
if(
INTEGERP(BgL_iz00_1328))
{ /* ./Llib/pregexp.scm 711 */
BgL_auxz00_10518 = BgL_iz00_1328
; }  else 
{ /* ./Llib/pregexp.scm 711 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_1328, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29394))); 
exit( -1 );} 
BgL_startz00_2900 = 
CINT(BgL_auxz00_10518); } 
{ /* ./Llib/pregexp.scm 711 */
bool_t BgL_test3048z00_2902;
{ /* ./Llib/pregexp.scm 711 */
bool_t BgL_testz00_10525;
{ /* ./Llib/pregexp.scm 711 */
long BgL_auxz00_10528;long BgL_auxz00_10526;
BgL_auxz00_10528 = 
(long)(BgL_startz00_2900); 
BgL_auxz00_10526 = 
(long)(BgL_nz00_1327); 
BgL_testz00_10525 = 
(BgL_auxz00_10526>=BgL_auxz00_10528); } 
if(BgL_testz00_10525)
{ /* ./Llib/pregexp.scm 711 */
bool_t BgL_testz00_10531;
{ /* ./Llib/pregexp.scm 711 */
int BgL_auxz00_10532;
{ /* ./Llib/pregexp.scm 711 */
long BgL_auxz00_10533;
{ /* ./Llib/pregexp.scm 711 */
long BgL_auxz00_10534;
{ /* ./Llib/pregexp.scm 711 */
int BgL_auxz00_10535;
BgL_auxz00_10535 = 
STRING_LENGTH(BgL_strz00_70); 
BgL_auxz00_10534 = 
(long)(BgL_auxz00_10535); } 
BgL_auxz00_10533 = 
(BgL_auxz00_10534+((long)1)); } 
BgL_auxz00_10532 = 
(int)(BgL_auxz00_10533); } 
BgL_testz00_10531 = 
BOUND_CHECK(BgL_startz00_2900, BgL_auxz00_10532); } 
if(BgL_testz00_10531)
{ /* ./Llib/pregexp.scm 711 */
int BgL_auxz00_10541;
{ /* ./Llib/pregexp.scm 711 */
long BgL_auxz00_10542;
{ /* ./Llib/pregexp.scm 711 */
long BgL_auxz00_10543;
{ /* ./Llib/pregexp.scm 711 */
int BgL_auxz00_10544;
BgL_auxz00_10544 = 
STRING_LENGTH(BgL_strz00_70); 
BgL_auxz00_10543 = 
(long)(BgL_auxz00_10544); } 
BgL_auxz00_10542 = 
(BgL_auxz00_10543+((long)1)); } 
BgL_auxz00_10541 = 
(int)(BgL_auxz00_10542); } 
BgL_test3048z00_2902 = 
BOUND_CHECK(BgL_nz00_1327, BgL_auxz00_10541); }  else 
{ /* ./Llib/pregexp.scm 711 */
BgL_test3048z00_2902 = ((bool_t)0); } }  else 
{ /* ./Llib/pregexp.scm 711 */
BgL_test3048z00_2902 = ((bool_t)0); } } 
if(BgL_test3048z00_2902)
{ /* ./Llib/pregexp.scm 711 */
BgL_res3772z00_2927 = 
c_substring(BgL_strz00_70, BgL_startz00_2900, BgL_nz00_1327); }  else 
{ /* ./Llib/pregexp.scm 711 */
{ /* ./Llib/pregexp.scm 711 */
obj_t BgL_arg3053z00_2913;
{ /* ./Llib/pregexp.scm 711 */
obj_t BgL_auxz00_10554;obj_t BgL_auxz00_10552;
BgL_auxz00_10554 = 
BINT(BgL_nz00_1327); 
BgL_auxz00_10552 = 
BINT(BgL_startz00_2900); 
BgL_arg3053z00_2913 = 
MAKE_PAIR(BgL_auxz00_10552, BgL_auxz00_10554); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10441z00zz__pregexpz00, BGl_string10442z00zz__pregexpz00, BgL_arg3053z00_2913, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/pregexp.scm 711 */
obj_t BgL_aux9890z00_4524;
BgL_aux9890z00_4524 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29394))); 
if(
STRINGP(BgL_aux9890z00_4524))
{ /* ./Llib/pregexp.scm 711 */
BgL_res3772z00_2927 = BgL_aux9890z00_4524; }  else 
{ /* ./Llib/pregexp.scm 711 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_aux9890z00_4524, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29394))); 
exit( -1 );} } } } } 
BgL_arg2894z00_1355 = BgL_res3772z00_2927; } 
BgL_arg2891z00_1354 = 
MAKE_PAIR(BgL_arg2894z00_1355, BgL_rz00_1329); } 
{ 
bool_t BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_10569;obj_t BgL_rz00_10568;obj_t BgL_iz00_10566;
BgL_iz00_10566 = 
BINT(BgL_nz00_1327); 
BgL_rz00_10568 = BgL_arg2891z00_1354; 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_10569 = ((bool_t)0); 
BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_1330 = BgL_pickedzd2upzd2onezd2undelimitedzd2charzf3zf3_10569; 
BgL_rz00_1329 = BgL_rz00_10568; 
BgL_iz00_1328 = BgL_iz00_10566; 
goto BgL_loopz00_1331;} } } } } } 
{ /* ./Llib/pregexp.scm 694 */
bool_t BgL_testz00_10571;
if(
PAIRP(BgL_aux9903z00_4526))
{ /* ./Llib/pregexp.scm 694 */
BgL_testz00_10571 = ((bool_t)1)
; }  else 
{ /* ./Llib/pregexp.scm 694 */
BgL_testz00_10571 = 
NULLP(BgL_aux9903z00_4526)
; } 
if(BgL_testz00_10571)
{ /* ./Llib/pregexp.scm 694 */
BgL_aux3882z00_3222 = BgL_aux9903z00_4526; }  else 
{ /* ./Llib/pregexp.scm 694 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10501z00zz__pregexpz00, BGl_string10339z00zz__pregexpz00, BgL_aux9903z00_4526, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28464))); 
exit( -1 );} } } } } 
POP_TRACE(); 
return BgL_aux3882z00_3222;} } } } 
}



/* _pregexp-split */
obj_t BGl__pregexpzd2splitzd2zz__pregexpz00(obj_t BgL_envz00_3470, obj_t BgL_patz00_3471, obj_t BgL_strz00_3472)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 690 */
{ /* ./Llib/pregexp.scm 693 */
obj_t BgL_auxz00_10579;
if(
STRINGP(BgL_strz00_3472))
{ /* ./Llib/pregexp.scm 693 */
BgL_auxz00_10579 = BgL_strz00_3472
; }  else 
{ /* ./Llib/pregexp.scm 693 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10502z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_strz00_3472, BGl_string10330z00zz__pregexpz00, 
BINT(((long)28427))); 
exit( -1 );} 
return 
BGl_pregexpzd2splitzd2zz__pregexpz00(BgL_patz00_3471, BgL_auxz00_10579);} } 
}



/* 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 */
obj_t BgL_symbol3887z00_3223;
BgL_symbol3887z00_3223 = BGl_symbol10503z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 715 */

PUSH_TRACE(BgL_symbol3887z00_3223); BUNSPEC; 
{ /* ./Llib/pregexp.scm 715 */
obj_t BgL_aux3886z00_3224;
{ /* ./Llib/pregexp.scm 715 */
int BgL_nz00_1358;
BgL_nz00_1358 = 
STRING_LENGTH(BgL_strz00_72); 
{ /* ./Llib/pregexp.scm 715 */
obj_t BgL_ppz00_1359;
{ /* ./Llib/pregexp.scm 716 */
obj_t BgL_list2911z00_1366;
{ /* ./Llib/pregexp.scm 716 */
obj_t BgL_arg2914z00_1368;
{ /* ./Llib/pregexp.scm 716 */
obj_t BgL_auxz00_10588;
BgL_auxz00_10588 = 
BINT(BgL_nz00_1358); 
BgL_arg2914z00_1368 = 
MAKE_PAIR(BgL_auxz00_10588, BNIL); } 
{ /* ./Llib/pregexp.scm 716 */
obj_t BgL_auxz00_10591;
BgL_auxz00_10591 = 
BINT(((long)0)); 
BgL_list2911z00_1366 = 
MAKE_PAIR(BgL_auxz00_10591, BgL_arg2914z00_1368); } } 
BgL_ppz00_1359 = 
BGl_pregexpzd2matchzd2positionsz00zz__pregexpz00(BgL_patz00_71, BgL_strz00_72, BgL_list2911z00_1366); } 
{ /* ./Llib/pregexp.scm 716 */

if(
CBOOL(BgL_ppz00_1359))
{ /* ./Llib/pregexp.scm 718 */
int BgL_inszd2lenzd2_1360;obj_t BgL_mzd2izd2_1361;obj_t BgL_mzd2nzd2_1362;
BgL_inszd2lenzd2_1360 = 
STRING_LENGTH(BgL_insz00_73); 
{ /* ./Llib/pregexp.scm 719 */
obj_t BgL_pairz00_2930;
if(
PAIRP(BgL_ppz00_1359))
{ /* ./Llib/pregexp.scm 719 */
BgL_pairz00_2930 = BgL_ppz00_1359; }  else 
{ /* ./Llib/pregexp.scm 719 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10503z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_ppz00_1359, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29663))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 719 */
obj_t BgL_arg3358z00_2931;
BgL_arg3358z00_2931 = 
CAR(BgL_pairz00_2930); 
{ /* ./Llib/pregexp.scm 719 */
obj_t BgL_pairz00_2933;
if(
PAIRP(BgL_arg3358z00_2931))
{ /* ./Llib/pregexp.scm 719 */
BgL_pairz00_2933 = BgL_arg3358z00_2931; }  else 
{ /* ./Llib/pregexp.scm 719 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10503z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3358z00_2931, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29656))); 
exit( -1 );} 
BgL_mzd2izd2_1361 = 
CAR(BgL_pairz00_2933); } } } 
{ /* ./Llib/pregexp.scm 720 */
obj_t BgL_pairz00_2934;
if(
PAIRP(BgL_ppz00_1359))
{ /* ./Llib/pregexp.scm 720 */
BgL_pairz00_2934 = BgL_ppz00_1359; }  else 
{ /* ./Llib/pregexp.scm 720 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10503z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_ppz00_1359, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29695))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 720 */
obj_t BgL_arg3349z00_2935;
BgL_arg3349z00_2935 = 
CAR(BgL_pairz00_2934); 
{ /* ./Llib/pregexp.scm 720 */
obj_t BgL_pairz00_2937;
if(
PAIRP(BgL_arg3349z00_2935))
{ /* ./Llib/pregexp.scm 720 */
BgL_pairz00_2937 = BgL_arg3349z00_2935; }  else 
{ /* ./Llib/pregexp.scm 720 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10503z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3349z00_2935, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29688))); 
exit( -1 );} 
BgL_mzd2nzd2_1362 = 
CDR(BgL_pairz00_2937); } } } 
{ /* ./Llib/pregexp.scm 722 */
obj_t BgL_arg2900z00_1363;obj_t BgL_arg2901z00_1364;obj_t BgL_arg2902z00_1365;
{ /* ./Llib/pregexp.scm 722 */
obj_t BgL_res3773z00_2966;
{ /* ./Llib/pregexp.scm 722 */
int BgL_startz00_2939;int BgL_endz00_2940;
BgL_startz00_2939 = 
(int)(((long)0)); 
{ /* ./Llib/pregexp.scm 722 */
obj_t BgL_auxz00_10623;
if(
INTEGERP(BgL_mzd2izd2_1361))
{ /* ./Llib/pregexp.scm 722 */
BgL_auxz00_10623 = BgL_mzd2izd2_1361
; }  else 
{ /* ./Llib/pregexp.scm 722 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10503z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_mzd2izd2_1361, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29741))); 
exit( -1 );} 
BgL_endz00_2940 = 
CINT(BgL_auxz00_10623); } 
{ /* ./Llib/pregexp.scm 722 */
bool_t BgL_test3048z00_2941;
{ /* ./Llib/pregexp.scm 722 */
bool_t BgL_testz00_10630;
{ /* ./Llib/pregexp.scm 722 */
long BgL_auxz00_10633;long BgL_auxz00_10631;
BgL_auxz00_10633 = 
(long)(BgL_startz00_2939); 
BgL_auxz00_10631 = 
(long)(BgL_endz00_2940); 
BgL_testz00_10630 = 
(BgL_auxz00_10631>=BgL_auxz00_10633); } 
if(BgL_testz00_10630)
{ /* ./Llib/pregexp.scm 722 */
bool_t BgL_testz00_10636;
{ /* ./Llib/pregexp.scm 722 */
int BgL_auxz00_10637;
{ /* ./Llib/pregexp.scm 722 */
long BgL_auxz00_10638;
{ /* ./Llib/pregexp.scm 722 */
long BgL_auxz00_10639;
{ /* ./Llib/pregexp.scm 722 */
int BgL_auxz00_10640;
BgL_auxz00_10640 = 
STRING_LENGTH(BgL_strz00_72); 
BgL_auxz00_10639 = 
(long)(BgL_auxz00_10640); } 
BgL_auxz00_10638 = 
(BgL_auxz00_10639+((long)1)); } 
BgL_auxz00_10637 = 
(int)(BgL_auxz00_10638); } 
BgL_testz00_10636 = 
BOUND_CHECK(BgL_startz00_2939, BgL_auxz00_10637); } 
if(BgL_testz00_10636)
{ /* ./Llib/pregexp.scm 722 */
int BgL_auxz00_10646;
{ /* ./Llib/pregexp.scm 722 */
long BgL_auxz00_10647;
{ /* ./Llib/pregexp.scm 722 */
long BgL_auxz00_10648;
{ /* ./Llib/pregexp.scm 722 */
int BgL_auxz00_10649;
BgL_auxz00_10649 = 
STRING_LENGTH(BgL_strz00_72); 
BgL_auxz00_10648 = 
(long)(BgL_auxz00_10649); } 
BgL_auxz00_10647 = 
(BgL_auxz00_10648+((long)1)); } 
BgL_auxz00_10646 = 
(int)(BgL_auxz00_10647); } 
BgL_test3048z00_2941 = 
BOUND_CHECK(BgL_endz00_2940, BgL_auxz00_10646); }  else 
{ /* ./Llib/pregexp.scm 722 */
BgL_test3048z00_2941 = ((bool_t)0); } }  else 
{ /* ./Llib/pregexp.scm 722 */
BgL_test3048z00_2941 = ((bool_t)0); } } 
if(BgL_test3048z00_2941)
{ /* ./Llib/pregexp.scm 722 */
BgL_res3773z00_2966 = 
c_substring(BgL_strz00_72, BgL_startz00_2939, BgL_endz00_2940); }  else 
{ /* ./Llib/pregexp.scm 722 */
{ /* ./Llib/pregexp.scm 722 */
obj_t BgL_arg3053z00_2952;
{ /* ./Llib/pregexp.scm 722 */
obj_t BgL_auxz00_10659;obj_t BgL_auxz00_10657;
BgL_auxz00_10659 = 
BINT(BgL_endz00_2940); 
BgL_auxz00_10657 = 
BINT(BgL_startz00_2939); 
BgL_arg3053z00_2952 = 
MAKE_PAIR(BgL_auxz00_10657, BgL_auxz00_10659); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10441z00zz__pregexpz00, BGl_string10442z00zz__pregexpz00, BgL_arg3053z00_2952, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/pregexp.scm 722 */
obj_t BgL_aux9993z00_4540;
BgL_aux9993z00_4540 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29741))); 
if(
STRINGP(BgL_aux9993z00_4540))
{ /* ./Llib/pregexp.scm 722 */
BgL_res3773z00_2966 = BgL_aux9993z00_4540; }  else 
{ /* ./Llib/pregexp.scm 722 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10503z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_aux9993z00_4540, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29741))); 
exit( -1 );} } } } } 
BgL_arg2900z00_1363 = BgL_res3773z00_2966; } 
BgL_arg2901z00_1364 = 
BGl_pregexpzd2replacezd2auxz00zz__pregexpz00(BgL_strz00_72, BgL_insz00_73, BgL_inszd2lenzd2_1360, BgL_ppz00_1359); 
{ /* ./Llib/pregexp.scm 724 */
obj_t BgL_res3774z00_2995;
{ /* ./Llib/pregexp.scm 724 */
int BgL_startz00_2968;
{ /* ./Llib/pregexp.scm 724 */
obj_t BgL_auxz00_10671;
if(
INTEGERP(BgL_mzd2nzd2_1362))
{ /* ./Llib/pregexp.scm 724 */
BgL_auxz00_10671 = BgL_mzd2nzd2_1362
; }  else 
{ /* ./Llib/pregexp.scm 724 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10503z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_mzd2nzd2_1362, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29832))); 
exit( -1 );} 
BgL_startz00_2968 = 
CINT(BgL_auxz00_10671); } 
{ /* ./Llib/pregexp.scm 724 */
bool_t BgL_test3048z00_2970;
{ /* ./Llib/pregexp.scm 724 */
bool_t BgL_testz00_10678;
{ /* ./Llib/pregexp.scm 724 */
long BgL_auxz00_10681;long BgL_auxz00_10679;
BgL_auxz00_10681 = 
(long)(BgL_startz00_2968); 
BgL_auxz00_10679 = 
(long)(BgL_nz00_1358); 
BgL_testz00_10678 = 
(BgL_auxz00_10679>=BgL_auxz00_10681); } 
if(BgL_testz00_10678)
{ /* ./Llib/pregexp.scm 724 */
bool_t BgL_testz00_10684;
{ /* ./Llib/pregexp.scm 724 */
int BgL_auxz00_10685;
{ /* ./Llib/pregexp.scm 724 */
long BgL_auxz00_10686;
{ /* ./Llib/pregexp.scm 724 */
long BgL_auxz00_10687;
{ /* ./Llib/pregexp.scm 724 */
int BgL_auxz00_10688;
BgL_auxz00_10688 = 
STRING_LENGTH(BgL_strz00_72); 
BgL_auxz00_10687 = 
(long)(BgL_auxz00_10688); } 
BgL_auxz00_10686 = 
(BgL_auxz00_10687+((long)1)); } 
BgL_auxz00_10685 = 
(int)(BgL_auxz00_10686); } 
BgL_testz00_10684 = 
BOUND_CHECK(BgL_startz00_2968, BgL_auxz00_10685); } 
if(BgL_testz00_10684)
{ /* ./Llib/pregexp.scm 724 */
int BgL_auxz00_10694;
{ /* ./Llib/pregexp.scm 724 */
long BgL_auxz00_10695;
{ /* ./Llib/pregexp.scm 724 */
long BgL_auxz00_10696;
{ /* ./Llib/pregexp.scm 724 */
int BgL_auxz00_10697;
BgL_auxz00_10697 = 
STRING_LENGTH(BgL_strz00_72); 
BgL_auxz00_10696 = 
(long)(BgL_auxz00_10697); } 
BgL_auxz00_10695 = 
(BgL_auxz00_10696+((long)1)); } 
BgL_auxz00_10694 = 
(int)(BgL_auxz00_10695); } 
BgL_test3048z00_2970 = 
BOUND_CHECK(BgL_nz00_1358, BgL_auxz00_10694); }  else 
{ /* ./Llib/pregexp.scm 724 */
BgL_test3048z00_2970 = ((bool_t)0); } }  else 
{ /* ./Llib/pregexp.scm 724 */
BgL_test3048z00_2970 = ((bool_t)0); } } 
if(BgL_test3048z00_2970)
{ /* ./Llib/pregexp.scm 724 */
BgL_res3774z00_2995 = 
c_substring(BgL_strz00_72, BgL_startz00_2968, BgL_nz00_1358); }  else 
{ /* ./Llib/pregexp.scm 724 */
{ /* ./Llib/pregexp.scm 724 */
obj_t BgL_arg3053z00_2981;
{ /* ./Llib/pregexp.scm 724 */
obj_t BgL_auxz00_10707;obj_t BgL_auxz00_10705;
BgL_auxz00_10707 = 
BINT(BgL_nz00_1358); 
BgL_auxz00_10705 = 
BINT(BgL_startz00_2968); 
BgL_arg3053z00_2981 = 
MAKE_PAIR(BgL_auxz00_10705, BgL_auxz00_10707); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10441z00zz__pregexpz00, BGl_string10442z00zz__pregexpz00, BgL_arg3053z00_2981, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/pregexp.scm 724 */
obj_t BgL_aux10029z00_4544;
BgL_aux10029z00_4544 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29832))); 
if(
STRINGP(BgL_aux10029z00_4544))
{ /* ./Llib/pregexp.scm 724 */
BgL_res3774z00_2995 = BgL_aux10029z00_4544; }  else 
{ /* ./Llib/pregexp.scm 724 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10503z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_aux10029z00_4544, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29832))); 
exit( -1 );} } } } } 
BgL_arg2902z00_1365 = BgL_res3774z00_2995; } 
{ /* ./Llib/pregexp.scm 721 */
obj_t BgL_auxz00_10718;
if(
STRINGP(BgL_arg2901z00_1364))
{ /* ./Llib/pregexp.scm 721 */
BgL_auxz00_10718 = BgL_arg2901z00_1364
; }  else 
{ /* ./Llib/pregexp.scm 721 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10503z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_arg2901z00_1364, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29712))); 
exit( -1 );} 
BgL_aux3886z00_3224 = 
string_append_3(BgL_arg2900z00_1363, BgL_auxz00_10718, BgL_arg2902z00_1365); } } }  else 
{ /* ./Llib/pregexp.scm 717 */
BgL_aux3886z00_3224 = BgL_strz00_72; } } } } 
POP_TRACE(); 
return BgL_aux3886z00_3224;} } } } 
}



/* _pregexp-replace */
obj_t BGl__pregexpzd2replacezd2zz__pregexpz00(obj_t BgL_envz00_3473, obj_t BgL_patz00_3474, obj_t BgL_strz00_3475, obj_t BgL_insz00_3476)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 713 */
{ /* ./Llib/pregexp.scm 715 */
obj_t BgL_auxz00_10732;obj_t BgL_auxz00_10726;
if(
STRINGP(BgL_insz00_3476))
{ /* ./Llib/pregexp.scm 715 */
BgL_auxz00_10732 = BgL_insz00_3476
; }  else 
{ /* ./Llib/pregexp.scm 715 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10504z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_insz00_3476, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29480))); 
exit( -1 );} 
if(
STRINGP(BgL_strz00_3475))
{ /* ./Llib/pregexp.scm 715 */
BgL_auxz00_10726 = BgL_strz00_3475
; }  else 
{ /* ./Llib/pregexp.scm 715 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10504z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_strz00_3475, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29480))); 
exit( -1 );} 
return 
BGl_pregexpzd2replacezd2zz__pregexpz00(BgL_patz00_3474, BgL_auxz00_10726, BgL_auxz00_10732);} } 
}



/* 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_symbol3891z00_3225;
BgL_symbol3891z00_3225 = BGl_symbol10505z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 730 */

PUSH_TRACE(BgL_symbol3891z00_3225); BUNSPEC; 
{ /* ./Llib/pregexp.scm 730 */
obj_t BgL_aux3890z00_3226;
{ /* ./Llib/pregexp.scm 730 */
obj_t BgL_patz00_1369;int BgL_nz00_1370;int BgL_inszd2lenzd2_1371;
{ /* ./Llib/pregexp.scm 730 */
bool_t BgL_test2947z00_1386;
BgL_test2947z00_1386 = 
STRINGP(BgL_patz00_74); 
if(BgL_test2947z00_1386)
{ /* ./Llib/pregexp.scm 730 */
obj_t BgL_auxz00_10742;
if(BgL_test2947z00_1386)
{ /* ./Llib/pregexp.scm 730 */
BgL_auxz00_10742 = BgL_patz00_74
; }  else 
{ /* ./Llib/pregexp.scm 730 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_patz00_74, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30021))); 
exit( -1 );} 
BgL_patz00_1369 = 
BGl_pregexpz00zz__pregexpz00(BgL_auxz00_10742); }  else 
{ /* ./Llib/pregexp.scm 730 */
BgL_patz00_1369 = BgL_patz00_74; } } 
BgL_nz00_1370 = 
STRING_LENGTH(BgL_strz00_75); 
BgL_inszd2lenzd2_1371 = 
STRING_LENGTH(BgL_insz00_76); 
{ 
obj_t BgL_iz00_1372;obj_t BgL_rz00_1373;
{ /* ./Llib/pregexp.scm 733 */
obj_t BgL_aux10259z00_4582;
BgL_iz00_1372 = 
BINT(((long)0)); 
BgL_rz00_1373 = BGl_string10492z00zz__pregexpz00; 
BgL_loopz00_1374:
{ /* ./Llib/pregexp.scm 736 */
bool_t BgL_test2919z00_1375;
{ /* ./Llib/pregexp.scm 736 */
long BgL_n1z00_2999;long BgL_n2z00_3000;
{ /* ./Llib/pregexp.scm 736 */
obj_t BgL_auxz00_10750;
if(
INTEGERP(BgL_iz00_1372))
{ /* ./Llib/pregexp.scm 736 */
BgL_auxz00_10750 = BgL_iz00_1372
; }  else 
{ /* ./Llib/pregexp.scm 736 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1372, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30252))); 
exit( -1 );} 
BgL_n1z00_2999 = 
(long)CINT(BgL_auxz00_10750); } 
BgL_n2z00_3000 = 
(long)(BgL_nz00_1370); 
BgL_test2919z00_1375 = 
(BgL_n1z00_2999>=BgL_n2z00_3000); } 
if(BgL_test2919z00_1375)
{ /* ./Llib/pregexp.scm 736 */
BgL_aux10259z00_4582 = BgL_rz00_1373; }  else 
{ /* ./Llib/pregexp.scm 737 */
obj_t BgL_ppz00_1376;
{ /* ./Llib/pregexp.scm 737 */
obj_t BgL_list2941z00_1384;
{ /* ./Llib/pregexp.scm 737 */
obj_t BgL_arg2943z00_1385;
{ /* ./Llib/pregexp.scm 737 */
obj_t BgL_auxz00_10760;
BgL_auxz00_10760 = 
BINT(BgL_nz00_1370); 
BgL_arg2943z00_1385 = 
MAKE_PAIR(BgL_auxz00_10760, BNIL); } 
BgL_list2941z00_1384 = 
MAKE_PAIR(BgL_iz00_1372, BgL_arg2943z00_1385); } 
BgL_ppz00_1376 = 
BGl_pregexpzd2matchzd2positionsz00zz__pregexpz00(BgL_patz00_1369, BgL_strz00_75, BgL_list2941z00_1384); } 
if(
CBOOL(BgL_ppz00_1376))
{ /* ./Llib/pregexp.scm 748 */
obj_t BgL_arg2921z00_1377;obj_t BgL_arg2922z00_1378;
{ /* ./Llib/pregexp.scm 748 */
obj_t BgL_pairz00_3001;
if(
PAIRP(BgL_ppz00_1376))
{ /* ./Llib/pregexp.scm 748 */
BgL_pairz00_3001 = BgL_ppz00_1376; }  else 
{ /* ./Llib/pregexp.scm 748 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_ppz00_1376, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30795))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 748 */
obj_t BgL_arg3349z00_3002;
BgL_arg3349z00_3002 = 
CAR(BgL_pairz00_3001); 
{ /* ./Llib/pregexp.scm 748 */
obj_t BgL_pairz00_3004;
if(
PAIRP(BgL_arg3349z00_3002))
{ /* ./Llib/pregexp.scm 748 */
BgL_pairz00_3004 = BgL_arg3349z00_3002; }  else 
{ /* ./Llib/pregexp.scm 748 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3349z00_3002, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30788))); 
exit( -1 );} 
BgL_arg2921z00_1377 = 
CDR(BgL_pairz00_3004); } } } 
{ /* ./Llib/pregexp.scm 751 */
obj_t BgL_arg2926z00_1379;obj_t BgL_arg2927z00_1380;
{ /* ./Llib/pregexp.scm 751 */
obj_t BgL_arg2930z00_1381;
{ /* ./Llib/pregexp.scm 751 */
obj_t BgL_pairz00_3005;
if(
PAIRP(BgL_ppz00_1376))
{ /* ./Llib/pregexp.scm 751 */
BgL_pairz00_3005 = BgL_ppz00_1376; }  else 
{ /* ./Llib/pregexp.scm 751 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_ppz00_1376, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30913))); 
exit( -1 );} 
{ /* ./Llib/pregexp.scm 751 */
obj_t BgL_arg3358z00_3006;
BgL_arg3358z00_3006 = 
CAR(BgL_pairz00_3005); 
{ /* ./Llib/pregexp.scm 751 */
obj_t BgL_pairz00_3008;
if(
PAIRP(BgL_arg3358z00_3006))
{ /* ./Llib/pregexp.scm 751 */
BgL_pairz00_3008 = BgL_arg3358z00_3006; }  else 
{ /* ./Llib/pregexp.scm 751 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10333z00zz__pregexpz00, BgL_arg3358z00_3006, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30906))); 
exit( -1 );} 
BgL_arg2930z00_1381 = 
CAR(BgL_pairz00_3008); } } } 
{ /* ./Llib/pregexp.scm 751 */
obj_t BgL_res3775z00_3037;
{ /* ./Llib/pregexp.scm 751 */
int BgL_startz00_3010;int BgL_endz00_3011;
{ /* ./Llib/pregexp.scm 751 */
obj_t BgL_auxz00_10791;
if(
INTEGERP(BgL_iz00_1372))
{ /* ./Llib/pregexp.scm 751 */
BgL_auxz00_10791 = BgL_iz00_1372
; }  else 
{ /* ./Llib/pregexp.scm 751 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_1372, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30889))); 
exit( -1 );} 
BgL_startz00_3010 = 
CINT(BgL_auxz00_10791); } 
{ /* ./Llib/pregexp.scm 751 */
obj_t BgL_auxz00_10798;
if(
INTEGERP(BgL_arg2930z00_1381))
{ /* ./Llib/pregexp.scm 751 */
BgL_auxz00_10798 = BgL_arg2930z00_1381
; }  else 
{ /* ./Llib/pregexp.scm 751 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_arg2930z00_1381, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30889))); 
exit( -1 );} 
BgL_endz00_3011 = 
CINT(BgL_auxz00_10798); } 
{ /* ./Llib/pregexp.scm 751 */
bool_t BgL_test3048z00_3012;
{ /* ./Llib/pregexp.scm 751 */
bool_t BgL_testz00_10805;
{ /* ./Llib/pregexp.scm 751 */
long BgL_auxz00_10808;long BgL_auxz00_10806;
BgL_auxz00_10808 = 
(long)(BgL_startz00_3010); 
BgL_auxz00_10806 = 
(long)(BgL_endz00_3011); 
BgL_testz00_10805 = 
(BgL_auxz00_10806>=BgL_auxz00_10808); } 
if(BgL_testz00_10805)
{ /* ./Llib/pregexp.scm 751 */
bool_t BgL_testz00_10811;
{ /* ./Llib/pregexp.scm 751 */
int BgL_auxz00_10812;
{ /* ./Llib/pregexp.scm 751 */
long BgL_auxz00_10813;
{ /* ./Llib/pregexp.scm 751 */
long BgL_auxz00_10814;
{ /* ./Llib/pregexp.scm 751 */
int BgL_auxz00_10815;
BgL_auxz00_10815 = 
STRING_LENGTH(BgL_strz00_75); 
BgL_auxz00_10814 = 
(long)(BgL_auxz00_10815); } 
BgL_auxz00_10813 = 
(BgL_auxz00_10814+((long)1)); } 
BgL_auxz00_10812 = 
(int)(BgL_auxz00_10813); } 
BgL_testz00_10811 = 
BOUND_CHECK(BgL_startz00_3010, BgL_auxz00_10812); } 
if(BgL_testz00_10811)
{ /* ./Llib/pregexp.scm 751 */
int BgL_auxz00_10821;
{ /* ./Llib/pregexp.scm 751 */
long BgL_auxz00_10822;
{ /* ./Llib/pregexp.scm 751 */
long BgL_auxz00_10823;
{ /* ./Llib/pregexp.scm 751 */
int BgL_auxz00_10824;
BgL_auxz00_10824 = 
STRING_LENGTH(BgL_strz00_75); 
BgL_auxz00_10823 = 
(long)(BgL_auxz00_10824); } 
BgL_auxz00_10822 = 
(BgL_auxz00_10823+((long)1)); } 
BgL_auxz00_10821 = 
(int)(BgL_auxz00_10822); } 
BgL_test3048z00_3012 = 
BOUND_CHECK(BgL_endz00_3011, BgL_auxz00_10821); }  else 
{ /* ./Llib/pregexp.scm 751 */
BgL_test3048z00_3012 = ((bool_t)0); } }  else 
{ /* ./Llib/pregexp.scm 751 */
BgL_test3048z00_3012 = ((bool_t)0); } } 
if(BgL_test3048z00_3012)
{ /* ./Llib/pregexp.scm 751 */
BgL_res3775z00_3037 = 
c_substring(BgL_strz00_75, BgL_startz00_3010, BgL_endz00_3011); }  else 
{ /* ./Llib/pregexp.scm 751 */
{ /* ./Llib/pregexp.scm 751 */
obj_t BgL_arg3053z00_3023;
{ /* ./Llib/pregexp.scm 751 */
obj_t BgL_auxz00_10834;obj_t BgL_auxz00_10832;
BgL_auxz00_10834 = 
BINT(BgL_endz00_3011); 
BgL_auxz00_10832 = 
BINT(BgL_startz00_3010); 
BgL_arg3053z00_3023 = 
MAKE_PAIR(BgL_auxz00_10832, BgL_auxz00_10834); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10441z00zz__pregexpz00, BGl_string10442z00zz__pregexpz00, BgL_arg3053z00_3023, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/pregexp.scm 751 */
obj_t BgL_aux10170z00_4568;
BgL_aux10170z00_4568 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30889))); 
if(
STRINGP(BgL_aux10170z00_4568))
{ /* ./Llib/pregexp.scm 751 */
BgL_res3775z00_3037 = BgL_aux10170z00_4568; }  else 
{ /* ./Llib/pregexp.scm 751 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_aux10170z00_4568, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30889))); 
exit( -1 );} } } } } 
BgL_arg2926z00_1379 = BgL_res3775z00_3037; } } 
BgL_arg2927z00_1380 = 
BGl_pregexpzd2replacezd2auxz00zz__pregexpz00(BgL_strz00_75, BgL_insz00_76, BgL_inszd2lenzd2_1371, BgL_ppz00_1376); 
{ /* ./Llib/pregexp.scm 749 */
obj_t BgL_auxz00_10852;obj_t BgL_auxz00_10846;
if(
STRINGP(BgL_arg2927z00_1380))
{ /* ./Llib/pregexp.scm 749 */
BgL_auxz00_10852 = BgL_arg2927z00_1380
; }  else 
{ /* ./Llib/pregexp.scm 749 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_arg2927z00_1380, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30822))); 
exit( -1 );} 
if(
STRINGP(BgL_rz00_1373))
{ /* ./Llib/pregexp.scm 749 */
BgL_auxz00_10846 = BgL_rz00_1373
; }  else 
{ /* ./Llib/pregexp.scm 749 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_rz00_1373, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30822))); 
exit( -1 );} 
BgL_arg2922z00_1378 = 
string_append_3(BgL_auxz00_10846, BgL_arg2926z00_1379, BgL_auxz00_10852); } } 
{ 
obj_t BgL_rz00_10860;obj_t BgL_iz00_10859;
BgL_iz00_10859 = BgL_arg2921z00_1377; 
BgL_rz00_10860 = BgL_arg2922z00_1378; 
BgL_rz00_1373 = BgL_rz00_10860; 
BgL_iz00_1372 = BgL_iz00_10859; 
goto BgL_loopz00_1374;} }  else 
{ /* ./Llib/pregexp.scm 739 */
bool_t BgL_test2934z00_1382;
{ /* ./Llib/pregexp.scm 739 */
long BgL_n1z00_3038;
{ /* ./Llib/pregexp.scm 739 */
obj_t BgL_auxz00_10861;
if(
INTEGERP(BgL_iz00_1372))
{ /* ./Llib/pregexp.scm 739 */
BgL_auxz00_10861 = BgL_iz00_1372
; }  else 
{ /* ./Llib/pregexp.scm 739 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10329z00zz__pregexpz00, BgL_iz00_1372, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30375))); 
exit( -1 );} 
BgL_n1z00_3038 = 
(long)CINT(BgL_auxz00_10861); } 
BgL_test2934z00_1382 = 
(BgL_n1z00_3038==((long)0)); } 
if(BgL_test2934z00_1382)
{ /* ./Llib/pregexp.scm 739 */
BgL_aux10259z00_4582 = BgL_strz00_75; }  else 
{ /* ./Llib/pregexp.scm 747 */
obj_t BgL_arg2936z00_1383;
{ /* ./Llib/pregexp.scm 747 */
obj_t BgL_res3776z00_3068;
{ /* ./Llib/pregexp.scm 747 */
int BgL_startz00_3041;
{ /* ./Llib/pregexp.scm 747 */
obj_t BgL_auxz00_10870;
if(
INTEGERP(BgL_iz00_1372))
{ /* ./Llib/pregexp.scm 747 */
BgL_auxz00_10870 = BgL_iz00_1372
; }  else 
{ /* ./Llib/pregexp.scm 747 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10340z00zz__pregexpz00, BgL_iz00_1372, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30757))); 
exit( -1 );} 
BgL_startz00_3041 = 
CINT(BgL_auxz00_10870); } 
{ /* ./Llib/pregexp.scm 747 */
bool_t BgL_test3048z00_3043;
{ /* ./Llib/pregexp.scm 747 */
bool_t BgL_testz00_10877;
{ /* ./Llib/pregexp.scm 747 */
long BgL_auxz00_10880;long BgL_auxz00_10878;
BgL_auxz00_10880 = 
(long)(BgL_startz00_3041); 
BgL_auxz00_10878 = 
(long)(BgL_nz00_1370); 
BgL_testz00_10877 = 
(BgL_auxz00_10878>=BgL_auxz00_10880); } 
if(BgL_testz00_10877)
{ /* ./Llib/pregexp.scm 747 */
bool_t BgL_testz00_10883;
{ /* ./Llib/pregexp.scm 747 */
int BgL_auxz00_10884;
{ /* ./Llib/pregexp.scm 747 */
long BgL_auxz00_10885;
{ /* ./Llib/pregexp.scm 747 */
long BgL_auxz00_10886;
{ /* ./Llib/pregexp.scm 747 */
int BgL_auxz00_10887;
BgL_auxz00_10887 = 
STRING_LENGTH(BgL_strz00_75); 
BgL_auxz00_10886 = 
(long)(BgL_auxz00_10887); } 
BgL_auxz00_10885 = 
(BgL_auxz00_10886+((long)1)); } 
BgL_auxz00_10884 = 
(int)(BgL_auxz00_10885); } 
BgL_testz00_10883 = 
BOUND_CHECK(BgL_startz00_3041, BgL_auxz00_10884); } 
if(BgL_testz00_10883)
{ /* ./Llib/pregexp.scm 747 */
int BgL_auxz00_10893;
{ /* ./Llib/pregexp.scm 747 */
long BgL_auxz00_10894;
{ /* ./Llib/pregexp.scm 747 */
long BgL_auxz00_10895;
{ /* ./Llib/pregexp.scm 747 */
int BgL_auxz00_10896;
BgL_auxz00_10896 = 
STRING_LENGTH(BgL_strz00_75); 
BgL_auxz00_10895 = 
(long)(BgL_auxz00_10896); } 
BgL_auxz00_10894 = 
(BgL_auxz00_10895+((long)1)); } 
BgL_auxz00_10893 = 
(int)(BgL_auxz00_10894); } 
BgL_test3048z00_3043 = 
BOUND_CHECK(BgL_nz00_1370, BgL_auxz00_10893); }  else 
{ /* ./Llib/pregexp.scm 747 */
BgL_test3048z00_3043 = ((bool_t)0); } }  else 
{ /* ./Llib/pregexp.scm 747 */
BgL_test3048z00_3043 = ((bool_t)0); } } 
if(BgL_test3048z00_3043)
{ /* ./Llib/pregexp.scm 747 */
BgL_res3776z00_3068 = 
c_substring(BgL_strz00_75, BgL_startz00_3041, BgL_nz00_1370); }  else 
{ /* ./Llib/pregexp.scm 747 */
{ /* ./Llib/pregexp.scm 747 */
obj_t BgL_arg3053z00_3054;
{ /* ./Llib/pregexp.scm 747 */
obj_t BgL_auxz00_10906;obj_t BgL_auxz00_10904;
BgL_auxz00_10906 = 
BINT(BgL_nz00_1370); 
BgL_auxz00_10904 = 
BINT(BgL_startz00_3041); 
BgL_arg3053z00_3054 = 
MAKE_PAIR(BgL_auxz00_10904, BgL_auxz00_10906); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10441z00zz__pregexpz00, BGl_string10442z00zz__pregexpz00, BgL_arg3053z00_3054, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/pregexp.scm 747 */
obj_t BgL_aux10237z00_4578;
BgL_aux10237z00_4578 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30742))); 
if(
STRINGP(BgL_aux10237z00_4578))
{ /* ./Llib/pregexp.scm 747 */
BgL_res3776z00_3068 = BgL_aux10237z00_4578; }  else 
{ /* ./Llib/pregexp.scm 747 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_aux10237z00_4578, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30742))); 
exit( -1 );} } } } } 
BgL_arg2936z00_1383 = BgL_res3776z00_3068; } 
{ /* ./Llib/pregexp.scm 746 */
obj_t BgL_auxz00_10917;
if(
STRINGP(BgL_rz00_1373))
{ /* ./Llib/pregexp.scm 747 */
BgL_auxz00_10917 = BgL_rz00_1373
; }  else 
{ /* ./Llib/pregexp.scm 747 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_rz00_1373, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30740))); 
exit( -1 );} 
BgL_aux10259z00_4582 = 
string_append(BgL_auxz00_10917, BgL_arg2936z00_1383); } } } } } 
if(
STRINGP(BgL_aux10259z00_4582))
{ /* ./Llib/pregexp.scm 733 */
BgL_aux3890z00_3226 = BgL_aux10259z00_4582; }  else 
{ /* ./Llib/pregexp.scm 733 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10505z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_aux10259z00_4582, BGl_string10330z00zz__pregexpz00, 
BINT(((long)30111))); 
exit( -1 );} } } } 
POP_TRACE(); 
return BgL_aux3890z00_3226;} } } } 
}



/* _pregexp-replace* */
obj_t BGl__pregexpzd2replaceza2z70zz__pregexpz00(obj_t BgL_envz00_3477, obj_t BgL_patz00_3478, obj_t BgL_strz00_3479, obj_t BgL_insz00_3480)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 726 */
{ /* ./Llib/pregexp.scm 730 */
obj_t BgL_auxz00_10937;obj_t BgL_auxz00_10931;
if(
STRINGP(BgL_insz00_3480))
{ /* ./Llib/pregexp.scm 730 */
BgL_auxz00_10937 = BgL_insz00_3480
; }  else 
{ /* ./Llib/pregexp.scm 730 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10506z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_insz00_3480, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29981))); 
exit( -1 );} 
if(
STRINGP(BgL_strz00_3479))
{ /* ./Llib/pregexp.scm 730 */
BgL_auxz00_10931 = BgL_strz00_3479
; }  else 
{ /* ./Llib/pregexp.scm 730 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10506z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_strz00_3479, BGl_string10330z00zz__pregexpz00, 
BINT(((long)29981))); 
exit( -1 );} 
return 
BGl_pregexpzd2replaceza2z70zz__pregexpz00(BgL_patz00_3478, BgL_auxz00_10931, BgL_auxz00_10937);} } 
}



/* pregexp-quote */
BGL_EXPORTED_DEF obj_t BGl_pregexpzd2quotezd2zz__pregexpz00(obj_t BgL_sz00_77)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 754 */
{ /* ./Llib/pregexp.scm 756 */
obj_t BgL_symbol3895z00_3227;
BgL_symbol3895z00_3227 = BGl_symbol10507z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 756 */

PUSH_TRACE(BgL_symbol3895z00_3227); BUNSPEC; 
{ /* ./Llib/pregexp.scm 756 */
obj_t BgL_aux3894z00_3228;
{ 
long BgL_iz00_1387;obj_t BgL_rz00_1388;
{ /* ./Llib/pregexp.scm 756 */
long BgL_auxz00_10982;
{ /* ./Llib/pregexp.scm 756 */
int BgL_auxz00_10983;
BgL_auxz00_10983 = 
STRING_LENGTH(BgL_sz00_77); 
BgL_auxz00_10982 = 
(long)(BgL_auxz00_10983); } 
BgL_iz00_1387 = 
(BgL_auxz00_10982-((long)1)); } 
BgL_rz00_1388 = BNIL; 
BgL_loopz00_1389:
if(
(BgL_iz00_1387<((long)0)))
{ /* ./Llib/pregexp.scm 757 */
BgL_aux3894z00_3228 = 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_rz00_1388); }  else 
{ /* ./Llib/pregexp.scm 758 */
long BgL_arg2965z00_1395;obj_t BgL_arg2966z00_1396;
BgL_arg2965z00_1395 = 
(BgL_iz00_1387-((long)1)); 
{ /* ./Llib/pregexp.scm 759 */
unsigned char BgL_cz00_1397;
{ /* ./Llib/pregexp.scm 759 */
unsigned char BgL_res3777z00_3084;
{ /* ./Llib/pregexp.scm 759 */
int BgL_kz00_3077;
BgL_kz00_3077 = 
(int)(BgL_iz00_1387); 
{ /* ./Llib/pregexp.scm 759 */
bool_t BgL_testz00_10950;
{ /* ./Llib/pregexp.scm 759 */
int BgL_auxz00_10951;
BgL_auxz00_10951 = 
STRING_LENGTH(BgL_sz00_77); 
BgL_testz00_10950 = 
BOUND_CHECK(BgL_kz00_3077, BgL_auxz00_10951); } 
if(BgL_testz00_10950)
{ /* ./Llib/pregexp.scm 759 */
BgL_res3777z00_3084 = 
STRING_REF(BgL_sz00_77, BgL_kz00_3077); }  else 
{ /* ./Llib/pregexp.scm 759 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string10341z00zz__pregexpz00, BGl_string10342z00zz__pregexpz00, 
BINT(BgL_kz00_3077), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/pregexp.scm 759 */
obj_t BgL_auxz00_10957;
{ /* ./Llib/pregexp.scm 759 */
obj_t BgL_aux10298z00_4588;
BgL_aux10298z00_4588 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string10330z00zz__pregexpz00, 
BINT(((long)31165))); 
if(
CHARP(BgL_aux10298z00_4588))
{ /* ./Llib/pregexp.scm 759 */
BgL_auxz00_10957 = BgL_aux10298z00_4588
; }  else 
{ /* ./Llib/pregexp.scm 759 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10507z00zz__pregexpz00, BGl_string10343z00zz__pregexpz00, BgL_aux10298z00_4588, BGl_string10330z00zz__pregexpz00, 
BINT(((long)31165))); 
exit( -1 );} } 
BgL_res3777z00_3084 = 
(unsigned char)CCHAR(BgL_auxz00_10957); } } } } 
BgL_cz00_1397 = BgL_res3777z00_3084; } 
{ /* ./Llib/pregexp.scm 760 */
bool_t BgL_testz00_10966;
{ /* ./Llib/pregexp.scm 760 */
obj_t BgL_auxz00_10967;
BgL_auxz00_10967 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(
BCHAR(BgL_cz00_1397), BGl_list10508z00zz__pregexpz00); 
BgL_testz00_10966 = 
CBOOL(BgL_auxz00_10967); } 
if(BgL_testz00_10966)
{ /* ./Llib/pregexp.scm 762 */
obj_t BgL_arg2971z00_1399;
{ /* ./Llib/pregexp.scm 762 */
obj_t BgL_auxz00_10971;
BgL_auxz00_10971 = 
BCHAR(BgL_cz00_1397); 
BgL_arg2971z00_1399 = 
MAKE_PAIR(BgL_auxz00_10971, BgL_rz00_1388); } 
{ /* ./Llib/pregexp.scm 762 */
obj_t BgL_auxz00_10974;
BgL_auxz00_10974 = 
BCHAR(((unsigned char)'\\')); 
BgL_arg2966z00_1396 = 
MAKE_PAIR(BgL_auxz00_10974, BgL_arg2971z00_1399); } }  else 
{ /* ./Llib/pregexp.scm 763 */
obj_t BgL_auxz00_10977;
BgL_auxz00_10977 = 
BCHAR(BgL_cz00_1397); 
BgL_arg2966z00_1396 = 
MAKE_PAIR(BgL_auxz00_10977, BgL_rz00_1388); } } } 
{ 
obj_t BgL_rz00_10981;long BgL_iz00_10980;
BgL_iz00_10980 = BgL_arg2965z00_1395; 
BgL_rz00_10981 = BgL_arg2966z00_1396; 
BgL_rz00_1388 = BgL_rz00_10981; 
BgL_iz00_1387 = BgL_iz00_10980; 
goto BgL_loopz00_1389;} } } 
POP_TRACE(); 
return BgL_aux3894z00_3228;} } } } 
}



/* _pregexp-quote */
obj_t BGl__pregexpzd2quotezd2zz__pregexpz00(obj_t BgL_envz00_3481, obj_t BgL_sz00_3482)
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 754 */
{ /* ./Llib/pregexp.scm 756 */
obj_t BgL_auxz00_10988;
if(
STRINGP(BgL_sz00_3482))
{ /* ./Llib/pregexp.scm 756 */
BgL_auxz00_10988 = BgL_sz00_3482
; }  else 
{ /* ./Llib/pregexp.scm 756 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol10521z00zz__pregexpz00, BGl_string10400z00zz__pregexpz00, BgL_sz00_3482, BGl_string10330z00zz__pregexpz00, 
BINT(((long)31033))); 
exit( -1 );} 
return 
BGl_pregexpzd2quotezd2zz__pregexpz00(BgL_auxz00_10988);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__pregexpz00()
{ AN_OBJECT;
{ /* ./Llib/pregexp.scm 17 */
{ /* ./Llib/pregexp.scm 17 */
obj_t BgL_symbol3899z00_3229;
BgL_symbol3899z00_3229 = BGl_symbol10522z00zz__pregexpz00; 
{ /* ./Llib/pregexp.scm 17 */

PUSH_TRACE(BgL_symbol3899z00_3229); BUNSPEC; 
{ /* ./Llib/pregexp.scm 17 */
obj_t BgL_aux3898z00_3230;
BgL_aux3898z00_3230 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__pregexp"); 
POP_TRACE(); 
return BgL_aux3898z00_3230;} } } } 
}

