/*===========================================================================*/
/*   (Llib/dsssl.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/dsssl.scm -indent -o objs/obj_s/Llib/dsssl.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

/* debug mode */
#define BIGLOO_DEBUG 1

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

static obj_t BGl_list4656z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_loopz00zz__dssslz00(obj_t, obj_t, obj_t, bool_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__dssslz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31023za3Llibzf2dssslze2scmza3394ze3z93zz__dssslz00(obj_t, obj_t);
extern obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__dssslzd2checkzd2keyzd2argsz12zc0zz__dssslz00(obj_t, obj_t, obj_t);
static obj_t BGl_optionalzd2statez72za0zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__dssslzd2getzd2keyzd2arg2666zd2zz__dssslz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__dssslz00();
static obj_t BGl_restzd2statezd2zz__dssslz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4658z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4657z00zz__dssslz00 = BUNSPEC;
static obj_t BGl__makezd2dssslzd2functionzd2prelude2646zd2zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t string_to_symbol(char *);
static obj_t BGl_symbol4646z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4645z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_TAGzd2141zd2zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol4638z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4636z00zz__dssslz00 = BUNSPEC;
extern obj_t c_substring(obj_t, int, int);
static obj_t BGl_keyzd2statezd2zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol4630z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4628z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4626z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4625z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4624z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4623z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4622z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4621z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4617z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4616z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4614z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4612z00zz__dssslz00 = BUNSPEC;
extern obj_t string_append(obj_t, obj_t);
static obj_t BGl_symbol4607z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4596z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4605z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4595z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4594z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4593z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4602z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4592z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4601z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4600z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4588z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4587z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__dssslz00();
static obj_t BGl_symbol4583z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4582z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4581z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4580z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4579z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_idzd2sanszd2typez00zz__dssslz00(obj_t);
static obj_t BGl_symbol4576z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4574z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4573z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4571z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4569z00zz__dssslz00 = BUNSPEC;
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol4566z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4565z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4564z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4563z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4560z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4556z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4555z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4553z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol4552z00zz__dssslz00 = BUNSPEC;
static obj_t BGl__dssslzd2formalszd2ze3schemezd2formals2668z31zz__dssslz00(obj_t, obj_t, obj_t);
extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_restzd2keyzd2statez00zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_dssslzd2checkzd2keyzd2argsz12zc0zz__dssslz00(obj_t, obj_t);
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
static obj_t BGl_list4562z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_map1011z00zz__dssslz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list4570z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list4572z00zz__dssslz00 = BUNSPEC;
extern obj_t string_to_keyword(char *);
static obj_t BGl_list4575z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list4578z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list4586z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list4590z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list4591z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list4604z00zz__dssslz00 = BUNSPEC;
extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
BGL_EXPORTED_DECL obj_t BGl_dssslzd2formalszd2ze3schemezd2formalsz31zz__dssslz00(obj_t, obj_t);
static obj_t BGl_list4606z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list4599z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list4620z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list4619z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_exitzd2restzd2statez00zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_dssslzd2getzd2keyzd2argzd2zz__dssslz00(obj_t, obj_t, obj_t);
static obj_t BGl_optionalzd2statezd2zz__dssslz00(obj_t, obj_t, obj_t);
static obj_t BGl_nozd2restzd2keyzd2statezd2zz__dssslz00(obj_t, obj_t, obj_t);
static obj_t BGl_list4627z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_onezd2keyzd2argz00zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list4629z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__dssslz00();
static obj_t BGl_list4632z00zz__dssslz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_dssslzd2symbolzd2ze3keywordze3zz__dssslz00 = BUNSPEC;
static obj_t BGl_list4647z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list4651z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list4653z00zz__dssslz00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_dssslzd2formalszd2ze3schemezd2formalszd2envze3zz__dssslz00, BgL_bgl__dssslza7d2formalsza7d2za7e3schemeza7d2formals2668za731za7za7__dssslza7004667z00, BGl__dssslzd2formalszd2ze3schemezd2formals2668z31zz__dssslz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_dssslzd2checkzd2keyzd2argsz12zd2envz12zz__dssslz00, BgL_bgl__dssslza7d2checkza7d2keyza7d2argsza712za7c0za7za7__dssslza7004668z00, BGl__dssslzd2checkzd2keyzd2argsz12zc0zz__dssslz00, 0L, 2 );
DEFINE_STRING( BGl_string4655z00zz__dssslz00, BgL_bgl_string4655za700za7za7__dssslza7004669z00, "and `.' notation", 16 );
DEFINE_STRING( BGl_string4654z00zz__dssslz00, BgL_bgl_string4654za700za7za7__dssslza7004670z00, "Can't use both DSSSL named constant", 35 );
DEFINE_STRING( BGl_string4652z00zz__dssslz00, BgL_bgl_string4652za700za7za7__dssslza7004671z00, "symbol expected", 15 );
DEFINE_STRING( BGl_string4650z00zz__dssslz00, BgL_bgl_string4650za700za7za7__dssslza7004672z00, "loop:Wrong number of arguments", 30 );
DEFINE_STRING( BGl_string4649z00zz__dssslz00, BgL_bgl_string4649za700za7za7__dssslza7004673z00, "symbol or named constant expected", 33 );
DEFINE_STRING( BGl_string4648z00zz__dssslz00, BgL_bgl_string4648za700za7za7__dssslza7004674z00, "Illegal formal parameter", 24 );
DEFINE_EXPORT_PROCEDURE( BGl_dssslzd2getzd2keyzd2argzd2envz00zz__dssslz00, BgL_bgl__dssslza7d2getza7d2keyza7d2arg2666za7d2za7za7__dssslza7004675za7, BGl__dssslzd2getzd2keyzd2arg2666zd2zz__dssslz00, 0L, 3 );
DEFINE_STRING( BGl_string4644z00zz__dssslz00, BgL_bgl_string4644za700za7za7__dssslza7004676z00, "bstring", 7 );
DEFINE_STRING( BGl_string4643z00zz__dssslz00, BgL_bgl_string4643za700za7za7__dssslza7004677z00, "Illegal index", 13 );
DEFINE_STRING( BGl_string4642z00zz__dssslz00, BgL_bgl_string4642za700za7za7__dssslza7004678z00, "substring", 9 );
DEFINE_STRING( BGl_string4641z00zz__dssslz00, BgL_bgl_string4641za700za7za7__dssslza7004679z00, "uchar", 5 );
DEFINE_STRING( BGl_string4640z00zz__dssslz00, BgL_bgl_string4640za700za7za7__dssslza7004680z00, "index out of range", 18 );
DEFINE_STRING( BGl_string4639z00zz__dssslz00, BgL_bgl_string4639za700za7za7__dssslza7004681z00, "string-ref", 10 );
DEFINE_STRING( BGl_string4637z00zz__dssslz00, BgL_bgl_string4637za700za7za7__dssslza7004682z00, "keyword", 7 );
DEFINE_STRING( BGl_string4635z00zz__dssslz00, BgL_bgl_string4635za700za7za7__dssslza7004683z00, "keyword argument misses value", 29 );
DEFINE_STRING( BGl_string4634z00zz__dssslz00, BgL_bgl_string4634za700za7za7__dssslza7004684z00, "pair-nil", 8 );
DEFINE_STRING( BGl_string4633z00zz__dssslz00, BgL_bgl_string4633za700za7za7__dssslza7004685z00, "Unexpected #!keys parameters", 28 );
DEFINE_STRING( BGl_string4631z00zz__dssslz00, BgL_bgl_string4631za700za7za7__dssslza7004686z00, "Illegal Dsssl formal list (#!optional)", 38 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2dssslzd2functionzd2preludezd2envz00zz__dssslz00, BgL_bgl__makeza7d2dssslza7d2functionza7d2prelude2646za7d2za7za7__dssslza7004687za7, va_generic_entry, BGl__makezd2dssslzd2functionzd2prelude2646zd2zz__dssslz00, -5 );
DEFINE_STRING( BGl_string4618z00zz__dssslz00, BgL_bgl_string4618za700za7za7__dssslza7004688z00, "optional-state':Wrong number of arguments", 41 );
DEFINE_STRING( BGl_string4615z00zz__dssslz00, BgL_bgl_string4615za700za7za7__dssslza7004689z00, "rest-state:Wrong number of arguments", 36 );
DEFINE_STRING( BGl_string4613z00zz__dssslz00, BgL_bgl_string4613za700za7za7__dssslza7004690z00, "no-rest-key-state:Wrong number of arguments", 43 );
DEFINE_STRING( BGl_string4611z00zz__dssslz00, BgL_bgl_string4611za700za7za7__dssslza7004691z00, "argument not a list", 19 );
DEFINE_STRING( BGl_string4610z00zz__dssslz00, BgL_bgl_string4610za700za7za7__dssslza7004692z00, "map", 3 );
DEFINE_STRING( BGl_string4609z00zz__dssslz00, BgL_bgl_string4609za700za7za7__dssslza7004693z00, "Illegal #!keys parameters", 25 );
DEFINE_STRING( BGl_string4608z00zz__dssslz00, BgL_bgl_string4608za700za7za7__dssslza7004694z00, "dsssl formal parsing", 20 );
DEFINE_STRING( BGl_string4598z00zz__dssslz00, BgL_bgl_string4598za700za7za7__dssslza7004695z00, "exit-rest-state:Wrong number of arguments", 41 );
DEFINE_STRING( BGl_string4597z00zz__dssslz00, BgL_bgl_string4597za700za7za7__dssslza7004696z00, "Illegal Dsssl formal list (#!rest)", 34 );
DEFINE_STRING( BGl_string4603z00zz__dssslz00, BgL_bgl_string4603za700za7za7__dssslza7004697z00, "map1011:Wrong number of arguments", 33 );
DEFINE_STRING( BGl_string4589z00zz__dssslz00, BgL_bgl_string4589za700za7za7__dssslza7004698z00, "one-key-arg:Wrong number of arguments", 37 );
DEFINE_STRING( BGl_string4585z00zz__dssslz00, BgL_bgl_string4585za700za7za7__dssslza7004699z00, "key-state:Wrong number of arguments", 35 );
DEFINE_STRING( BGl_string4584z00zz__dssslz00, BgL_bgl_string4584za700za7za7__dssslza7004700z00, "Illegal Dsssl formal list (#!key)", 33 );
DEFINE_STRING( BGl_string4577z00zz__dssslz00, BgL_bgl_string4577za700za7za7__dssslza7004701z00, "Illegal formal list", 19 );
DEFINE_STRING( BGl_string4568z00zz__dssslz00, BgL_bgl_string4568za700za7za7__dssslza7004702z00, "procedure", 9 );
DEFINE_STRING( BGl_string4567z00zz__dssslz00, BgL_bgl_string4567za700za7za7__dssslza7004703z00, "pair", 4 );
DEFINE_STRING( BGl_string4561z00zz__dssslz00, BgL_bgl_string4561za700za7za7__dssslza7004704z00, "make-dsssl-function-prelude:Wrong number of arguments", 53 );
DEFINE_STRING( BGl_string4559z00zz__dssslz00, BgL_bgl_string4559za700za7za7__dssslza7004705z00, ":", 1 );
DEFINE_STRING( BGl_string4558z00zz__dssslz00, BgL_bgl_string4558za700za7za7__dssslza7004706z00, "/tmp/bigloo/runtime/./Llib/dsssl.scm", 36 );
DEFINE_STRING( BGl_string4557z00zz__dssslz00, BgL_bgl_string4557za700za7za7__dssslza7004707z00, "symbol", 6 );
DEFINE_STATIC_PROCEDURE( BGl_proc4554z00zz__dssslz00, BgL_bgl_za7c3anonymousza7a31023za7a3llibza7f2dssslza7e2scmza7a3394za7e3za793za7za7__dssslza7004708za7, BGl_zc3anonymousza31023za3Llibzf2dssslze2scmza3394ze3z93zz__dssslz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__dssslz00(long BgL_checksumz00_1858, char * BgL_fromz00_1859)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__dssslz00))
{ 
BGl_requirezd2initializa7ationz75zz__dssslz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__dssslz00(); 
BGl_importedzd2moduleszd2initz00zz__dssslz00(); 
BGl_toplevelzd2initzd2zz__dssslz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__dssslz00()
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 14 */
BGl_symbol4552z00zz__dssslz00 = 
string_to_symbol("%toplevel@__dsssl"); 
BGl_symbol4553z00zz__dssslz00 = 
string_to_symbol("dsssl-symbol->keyword"); 
BGl_symbol4555z00zz__dssslz00 = 
string_to_symbol("<anonymous:1023:Llib/dsssl.scm:394>:toplevel-init"); 
BGl_symbol4556z00zz__dssslz00 = 
string_to_symbol("<anonymous:1023:Llib/dsssl.scm:394>"); 
BGl_symbol4560z00zz__dssslz00 = 
string_to_symbol("make-dsssl-function-prelude"); 
BGl_symbol4563z00zz__dssslz00 = 
string_to_symbol("funcall"); 
BGl_symbol4564z00zz__dssslz00 = 
string_to_symbol("next-state"); 
BGl_symbol4565z00zz__dssslz00 = 
string_to_symbol("args"); 
{ /* ./Llib/dsssl.scm 81 */
obj_t BgL_auxz00_1874;
{ /* ./Llib/dsssl.scm 81 */
obj_t BgL_auxz00_1875;
{ /* ./Llib/dsssl.scm 81 */
obj_t BgL_auxz00_1876;
{ /* ./Llib/dsssl.scm 81 */
obj_t BgL_auxz00_1877;
BgL_auxz00_1877 = 
MAKE_PAIR(BUNSPEC, BNIL); 
BgL_auxz00_1876 = 
MAKE_PAIR(BGl_symbol4565z00zz__dssslz00, BgL_auxz00_1877); } 
BgL_auxz00_1875 = 
MAKE_PAIR(BGl_symbol4564z00zz__dssslz00, BgL_auxz00_1876); } 
BgL_auxz00_1874 = 
MAKE_PAIR(BGl_symbol4564z00zz__dssslz00, BgL_auxz00_1875); } 
BGl_list4562z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_1874); } 
BGl_symbol4566z00zz__dssslz00 = 
string_to_symbol("_"); 
BGl_symbol4569z00zz__dssslz00 = 
string_to_symbol("dsssl"); 
BGl_symbol4571z00zz__dssslz00 = 
string_to_symbol("gensym"); 
BGl_symbol4573z00zz__dssslz00 = 
string_to_symbol("quote"); 
{ /* ./Llib/dsssl.scm 89 */
obj_t BgL_auxz00_1887;
BgL_auxz00_1887 = 
MAKE_PAIR(BGl_symbol4569z00zz__dssslz00, BNIL); 
BGl_list4572z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4573z00zz__dssslz00, BgL_auxz00_1887); } 
{ /* ./Llib/dsssl.scm 89 */
obj_t BgL_auxz00_1890;
{ /* ./Llib/dsssl.scm 89 */
obj_t BgL_auxz00_1891;
{ /* ./Llib/dsssl.scm 89 */
obj_t BgL_auxz00_1892;
BgL_auxz00_1892 = 
MAKE_PAIR(BGl_list4572z00zz__dssslz00, BNIL); 
BgL_auxz00_1891 = 
MAKE_PAIR(BGl_symbol4571z00zz__dssslz00, BgL_auxz00_1892); } 
BgL_auxz00_1890 = 
MAKE_PAIR(BGl_symbol4571z00zz__dssslz00, BgL_auxz00_1891); } 
BGl_list4570z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_1890); } 
BGl_symbol4574z00zz__dssslz00 = 
string_to_symbol("let"); 
BGl_symbol4576z00zz__dssslz00 = 
string_to_symbol("dsssl-arg"); 
{ /* ./Llib/dsssl.scm 91 */
obj_t BgL_auxz00_1899;
{ /* ./Llib/dsssl.scm 91 */
obj_t BgL_auxz00_1900;
{ /* ./Llib/dsssl.scm 91 */
obj_t BgL_auxz00_1901;
{ /* ./Llib/dsssl.scm 91 */
obj_t BgL_auxz00_1902;
BgL_auxz00_1902 = 
MAKE_PAIR(BGl_symbol4576z00zz__dssslz00, BNIL); 
BgL_auxz00_1901 = 
MAKE_PAIR(BGl_symbol4565z00zz__dssslz00, BgL_auxz00_1902); } 
BgL_auxz00_1900 = 
MAKE_PAIR(BGl_symbol4564z00zz__dssslz00, BgL_auxz00_1901); } 
BgL_auxz00_1899 = 
MAKE_PAIR(BGl_symbol4564z00zz__dssslz00, BgL_auxz00_1900); } 
BGl_list4575z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_1899); } 
BGl_symbol4579z00zz__dssslz00 = 
string_to_symbol("err"); 
BGl_symbol4580z00zz__dssslz00 = 
string_to_symbol("where"); 
BGl_symbol4581z00zz__dssslz00 = 
string_to_symbol("formals"); 
{ /* ./Llib/dsssl.scm 83 */
obj_t BgL_auxz00_1911;
{ /* ./Llib/dsssl.scm 83 */
obj_t BgL_auxz00_1912;
{ /* ./Llib/dsssl.scm 83 */
obj_t BgL_auxz00_1913;
{ /* ./Llib/dsssl.scm 83 */
obj_t BgL_auxz00_1914;
{ /* ./Llib/dsssl.scm 83 */
obj_t BgL_auxz00_1915;
BgL_auxz00_1915 = 
MAKE_PAIR(BGl_symbol4581z00zz__dssslz00, BNIL); 
BgL_auxz00_1914 = 
MAKE_PAIR(BGl_string4577z00zz__dssslz00, BgL_auxz00_1915); } 
BgL_auxz00_1913 = 
MAKE_PAIR(BGl_symbol4580z00zz__dssslz00, BgL_auxz00_1914); } 
BgL_auxz00_1912 = 
MAKE_PAIR(BGl_symbol4579z00zz__dssslz00, BgL_auxz00_1913); } 
BgL_auxz00_1911 = 
MAKE_PAIR(BGl_symbol4579z00zz__dssslz00, BgL_auxz00_1912); } 
BGl_list4578z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_1911); } 
BGl_symbol4582z00zz__dssslz00 = 
string_to_symbol("_make-dsssl-function-prelude2646"); 
BGl_symbol4583z00zz__dssslz00 = 
string_to_symbol("key-state"); 
{ /* ./Llib/dsssl.scm 233 */
obj_t BgL_auxz00_1924;
{ /* ./Llib/dsssl.scm 233 */
obj_t BgL_auxz00_1925;
{ /* ./Llib/dsssl.scm 233 */
obj_t BgL_auxz00_1926;
{ /* ./Llib/dsssl.scm 233 */
obj_t BgL_auxz00_1927;
{ /* ./Llib/dsssl.scm 233 */
obj_t BgL_auxz00_1928;
BgL_auxz00_1928 = 
MAKE_PAIR(BGl_symbol4581z00zz__dssslz00, BNIL); 
BgL_auxz00_1927 = 
MAKE_PAIR(BGl_string4584z00zz__dssslz00, BgL_auxz00_1928); } 
BgL_auxz00_1926 = 
MAKE_PAIR(BGl_symbol4580z00zz__dssslz00, BgL_auxz00_1927); } 
BgL_auxz00_1925 = 
MAKE_PAIR(BGl_symbol4579z00zz__dssslz00, BgL_auxz00_1926); } 
BgL_auxz00_1924 = 
MAKE_PAIR(BGl_symbol4579z00zz__dssslz00, BgL_auxz00_1925); } 
BGl_list4586z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_1924); } 
BGl_symbol4587z00zz__dssslz00 = 
string_to_symbol("dsssl-get-key-arg"); 
BGl_symbol4588z00zz__dssslz00 = 
string_to_symbol("one-key-arg"); 
BGl_symbol4592z00zz__dssslz00 = 
string_to_symbol("box-ref"); 
BGl_symbol4593z00zz__dssslz00 = 
string_to_symbol("symbol->keyword"); 
{ /* ./Llib/dsssl.scm 224 */
obj_t BgL_auxz00_1939;
BgL_auxz00_1939 = 
MAKE_PAIR(BGl_symbol4593z00zz__dssslz00, BNIL); 
BGl_list4591z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4592z00zz__dssslz00, BgL_auxz00_1939); } 
BGl_symbol4594z00zz__dssslz00 = 
string_to_symbol("arg"); 
{ /* ./Llib/dsssl.scm 224 */
obj_t BgL_auxz00_1943;
{ /* ./Llib/dsssl.scm 224 */
obj_t BgL_auxz00_1944;
{ /* ./Llib/dsssl.scm 224 */
obj_t BgL_auxz00_1945;
BgL_auxz00_1945 = 
MAKE_PAIR(BGl_symbol4594z00zz__dssslz00, BNIL); 
BgL_auxz00_1944 = 
MAKE_PAIR(BGl_list4591z00zz__dssslz00, BgL_auxz00_1945); } 
BgL_auxz00_1943 = 
MAKE_PAIR(BGl_list4591z00zz__dssslz00, BgL_auxz00_1944); } 
BGl_list4590z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_1943); } 
BGl_symbol4595z00zz__dssslz00 = 
string_to_symbol("TAG-141"); 
BGl_symbol4596z00zz__dssslz00 = 
string_to_symbol("exit-rest-state"); 
{ /* ./Llib/dsssl.scm 180 */
obj_t BgL_auxz00_1952;
{ /* ./Llib/dsssl.scm 180 */
obj_t BgL_auxz00_1953;
{ /* ./Llib/dsssl.scm 180 */
obj_t BgL_auxz00_1954;
{ /* ./Llib/dsssl.scm 180 */
obj_t BgL_auxz00_1955;
{ /* ./Llib/dsssl.scm 180 */
obj_t BgL_auxz00_1956;
BgL_auxz00_1956 = 
MAKE_PAIR(BGl_symbol4581z00zz__dssslz00, BNIL); 
BgL_auxz00_1955 = 
MAKE_PAIR(BGl_string4597z00zz__dssslz00, BgL_auxz00_1956); } 
BgL_auxz00_1954 = 
MAKE_PAIR(BGl_symbol4580z00zz__dssslz00, BgL_auxz00_1955); } 
BgL_auxz00_1953 = 
MAKE_PAIR(BGl_symbol4579z00zz__dssslz00, BgL_auxz00_1954); } 
BgL_auxz00_1952 = 
MAKE_PAIR(BGl_symbol4579z00zz__dssslz00, BgL_auxz00_1953); } 
BGl_list4599z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_1952); } 
BGl_symbol4600z00zz__dssslz00 = 
string_to_symbol("begin"); 
BGl_symbol4601z00zz__dssslz00 = 
string_to_symbol("dsssl-check-key-args!"); 
BGl_symbol4602z00zz__dssslz00 = 
string_to_symbol("map1011"); 
BGl_symbol4605z00zz__dssslz00 = 
string_to_symbol("arg1262"); 
{ /* ./Llib/dsssl.scm 190 */
obj_t BgL_auxz00_1967;
{ /* ./Llib/dsssl.scm 190 */
obj_t BgL_auxz00_1968;
{ /* ./Llib/dsssl.scm 190 */
obj_t BgL_auxz00_1969;
BgL_auxz00_1969 = 
MAKE_PAIR(BGl_symbol4605z00zz__dssslz00, BNIL); 
BgL_auxz00_1968 = 
MAKE_PAIR(BGl_list4591z00zz__dssslz00, BgL_auxz00_1969); } 
BgL_auxz00_1967 = 
MAKE_PAIR(BGl_list4591z00zz__dssslz00, BgL_auxz00_1968); } 
BGl_list4604z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_1967); } 
BGl_symbol4607z00zz__dssslz00 = 
string_to_symbol("x"); 
{ /* ./Llib/dsssl.scm 192 */
obj_t BgL_auxz00_1975;
{ /* ./Llib/dsssl.scm 192 */
obj_t BgL_auxz00_1976;
{ /* ./Llib/dsssl.scm 192 */
obj_t BgL_auxz00_1977;
BgL_auxz00_1977 = 
MAKE_PAIR(BGl_symbol4607z00zz__dssslz00, BNIL); 
BgL_auxz00_1976 = 
MAKE_PAIR(BGl_list4591z00zz__dssslz00, BgL_auxz00_1977); } 
BgL_auxz00_1975 = 
MAKE_PAIR(BGl_list4591z00zz__dssslz00, BgL_auxz00_1976); } 
BGl_list4606z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_1975); } 
BGl_symbol4612z00zz__dssslz00 = 
string_to_symbol("no-rest-key-state"); 
BGl_symbol4614z00zz__dssslz00 = 
string_to_symbol("rest-state"); 
BGl_symbol4616z00zz__dssslz00 = 
string_to_symbol("optional-state'"); 
BGl_symbol4617z00zz__dssslz00 = 
string_to_symbol("tmp"); 
{ /* ./Llib/dsssl.scm 126 */
obj_t BgL_auxz00_1986;
BgL_auxz00_1986 = 
MAKE_PAIR(BGl_symbol4617z00zz__dssslz00, BNIL); 
BGl_list4620z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4573z00zz__dssslz00, BgL_auxz00_1986); } 
{ /* ./Llib/dsssl.scm 126 */
obj_t BgL_auxz00_1989;
{ /* ./Llib/dsssl.scm 126 */
obj_t BgL_auxz00_1990;
{ /* ./Llib/dsssl.scm 126 */
obj_t BgL_auxz00_1991;
BgL_auxz00_1991 = 
MAKE_PAIR(BGl_list4620z00zz__dssslz00, BNIL); 
BgL_auxz00_1990 = 
MAKE_PAIR(BGl_symbol4571z00zz__dssslz00, BgL_auxz00_1991); } 
BgL_auxz00_1989 = 
MAKE_PAIR(BGl_symbol4571z00zz__dssslz00, BgL_auxz00_1990); } 
BGl_list4619z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_1989); } 
BGl_symbol4621z00zz__dssslz00 = 
string_to_symbol("if"); 
BGl_symbol4622z00zz__dssslz00 = 
string_to_symbol("null?"); 
BGl_symbol4623z00zz__dssslz00 = 
string_to_symbol("memq"); 
BGl_symbol4624z00zz__dssslz00 = 
string_to_symbol("car"); 
BGl_symbol4625z00zz__dssslz00 = 
string_to_symbol("set!"); 
BGl_symbol4626z00zz__dssslz00 = 
string_to_symbol("cdr"); 
BGl_symbol4628z00zz__dssslz00 = 
string_to_symbol("arg1566"); 
{ /* ./Llib/dsssl.scm 116 */
obj_t BgL_auxz00_2003;
{ /* ./Llib/dsssl.scm 116 */
obj_t BgL_auxz00_2004;
{ /* ./Llib/dsssl.scm 116 */
obj_t BgL_auxz00_2005;
BgL_auxz00_2005 = 
MAKE_PAIR(BGl_symbol4628z00zz__dssslz00, BNIL); 
BgL_auxz00_2004 = 
MAKE_PAIR(BGl_list4591z00zz__dssslz00, BgL_auxz00_2005); } 
BgL_auxz00_2003 = 
MAKE_PAIR(BGl_list4591z00zz__dssslz00, BgL_auxz00_2004); } 
BGl_list4627z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_2003); } 
BGl_symbol4630z00zz__dssslz00 = 
string_to_symbol("arg1579"); 
{ /* ./Llib/dsssl.scm 119 */
obj_t BgL_auxz00_2011;
{ /* ./Llib/dsssl.scm 119 */
obj_t BgL_auxz00_2012;
{ /* ./Llib/dsssl.scm 119 */
obj_t BgL_auxz00_2013;
BgL_auxz00_2013 = 
MAKE_PAIR(BGl_symbol4630z00zz__dssslz00, BNIL); 
BgL_auxz00_2012 = 
MAKE_PAIR(BGl_list4591z00zz__dssslz00, BgL_auxz00_2013); } 
BgL_auxz00_2011 = 
MAKE_PAIR(BGl_list4591z00zz__dssslz00, BgL_auxz00_2012); } 
BGl_list4629z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_2011); } 
{ /* ./Llib/dsssl.scm 142 */
obj_t BgL_auxz00_2018;
{ /* ./Llib/dsssl.scm 142 */
obj_t BgL_auxz00_2019;
{ /* ./Llib/dsssl.scm 142 */
obj_t BgL_auxz00_2020;
{ /* ./Llib/dsssl.scm 142 */
obj_t BgL_auxz00_2021;
{ /* ./Llib/dsssl.scm 142 */
obj_t BgL_auxz00_2022;
BgL_auxz00_2022 = 
MAKE_PAIR(BGl_symbol4581z00zz__dssslz00, BNIL); 
BgL_auxz00_2021 = 
MAKE_PAIR(BGl_string4631z00zz__dssslz00, BgL_auxz00_2022); } 
BgL_auxz00_2020 = 
MAKE_PAIR(BGl_symbol4580z00zz__dssslz00, BgL_auxz00_2021); } 
BgL_auxz00_2019 = 
MAKE_PAIR(BGl_symbol4579z00zz__dssslz00, BgL_auxz00_2020); } 
BgL_auxz00_2018 = 
MAKE_PAIR(BGl_symbol4579z00zz__dssslz00, BgL_auxz00_2019); } 
BGl_list4632z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_2018); } 
BGl_symbol4636z00zz__dssslz00 = 
string_to_symbol("_dsssl-get-key-arg2666"); 
BGl_symbol4638z00zz__dssslz00 = 
string_to_symbol("id-sans-type"); 
BGl_symbol4645z00zz__dssslz00 = 
string_to_symbol("dsssl-formals->scheme-formals"); 
BGl_symbol4646z00zz__dssslz00 = 
string_to_symbol("loop"); 
{ /* ./Llib/dsssl.scm 375 */
obj_t BgL_auxz00_2033;
{ /* ./Llib/dsssl.scm 375 */
obj_t BgL_auxz00_2034;
BgL_auxz00_2034 = 
MAKE_PAIR(BCNST(262), BNIL); 
BgL_auxz00_2033 = 
MAKE_PAIR(BCNST(259), BgL_auxz00_2034); } 
BGl_list4647z00zz__dssslz00 = 
MAKE_PAIR(BCNST(258), BgL_auxz00_2033); } 
{ /* ./Llib/dsssl.scm 382 */
obj_t BgL_auxz00_2038;
{ /* ./Llib/dsssl.scm 382 */
obj_t BgL_auxz00_2039;
{ /* ./Llib/dsssl.scm 382 */
obj_t BgL_auxz00_2040;
{ /* ./Llib/dsssl.scm 382 */
obj_t BgL_auxz00_2041;
{ /* ./Llib/dsssl.scm 382 */
obj_t BgL_auxz00_2042;
BgL_auxz00_2042 = 
MAKE_PAIR(BGl_symbol4581z00zz__dssslz00, BNIL); 
BgL_auxz00_2041 = 
MAKE_PAIR(BGl_string4649z00zz__dssslz00, BgL_auxz00_2042); } 
BgL_auxz00_2040 = 
MAKE_PAIR(BGl_string4648z00zz__dssslz00, BgL_auxz00_2041); } 
BgL_auxz00_2039 = 
MAKE_PAIR(BGl_symbol4579z00zz__dssslz00, BgL_auxz00_2040); } 
BgL_auxz00_2038 = 
MAKE_PAIR(BGl_symbol4579z00zz__dssslz00, BgL_auxz00_2039); } 
BGl_list4651z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_2038); } 
{ /* ./Llib/dsssl.scm 378 */
obj_t BgL_auxz00_2049;
{ /* ./Llib/dsssl.scm 378 */
obj_t BgL_auxz00_2050;
{ /* ./Llib/dsssl.scm 378 */
obj_t BgL_auxz00_2051;
{ /* ./Llib/dsssl.scm 378 */
obj_t BgL_auxz00_2052;
{ /* ./Llib/dsssl.scm 378 */
obj_t BgL_auxz00_2053;
BgL_auxz00_2053 = 
MAKE_PAIR(BGl_symbol4581z00zz__dssslz00, BNIL); 
BgL_auxz00_2052 = 
MAKE_PAIR(BGl_string4652z00zz__dssslz00, BgL_auxz00_2053); } 
BgL_auxz00_2051 = 
MAKE_PAIR(BGl_string4648z00zz__dssslz00, BgL_auxz00_2052); } 
BgL_auxz00_2050 = 
MAKE_PAIR(BGl_symbol4579z00zz__dssslz00, BgL_auxz00_2051); } 
BgL_auxz00_2049 = 
MAKE_PAIR(BGl_symbol4579z00zz__dssslz00, BgL_auxz00_2050); } 
BGl_list4653z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_2049); } 
{ /* ./Llib/dsssl.scm 366 */
obj_t BgL_auxz00_2060;
{ /* ./Llib/dsssl.scm 366 */
obj_t BgL_auxz00_2061;
{ /* ./Llib/dsssl.scm 366 */
obj_t BgL_auxz00_2062;
{ /* ./Llib/dsssl.scm 366 */
obj_t BgL_auxz00_2063;
{ /* ./Llib/dsssl.scm 366 */
obj_t BgL_auxz00_2064;
BgL_auxz00_2064 = 
MAKE_PAIR(BGl_symbol4581z00zz__dssslz00, BNIL); 
BgL_auxz00_2063 = 
MAKE_PAIR(BGl_string4655z00zz__dssslz00, BgL_auxz00_2064); } 
BgL_auxz00_2062 = 
MAKE_PAIR(BGl_string4654z00zz__dssslz00, BgL_auxz00_2063); } 
BgL_auxz00_2061 = 
MAKE_PAIR(BGl_symbol4579z00zz__dssslz00, BgL_auxz00_2062); } 
BgL_auxz00_2060 = 
MAKE_PAIR(BGl_symbol4579z00zz__dssslz00, BgL_auxz00_2061); } 
BGl_list4656z00zz__dssslz00 = 
MAKE_PAIR(BGl_symbol4563z00zz__dssslz00, BgL_auxz00_2060); } 
BGl_symbol4657z00zz__dssslz00 = 
string_to_symbol("_dsssl-formals->scheme-formals2668"); 
return ( 
BGl_symbol4658z00zz__dssslz00 = 
string_to_symbol("%import@__dsssl"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__dssslz00()
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 14 */
{ /* ./Llib/dsssl.scm 394 */
obj_t BgL_symbol2609z00_1333;
BgL_symbol2609z00_1333 = BGl_symbol4552z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 394 */

PUSH_TRACE(BgL_symbol2609z00_1333); BUNSPEC; 
{ /* ./Llib/dsssl.scm 394 */
obj_t BgL_aux2608z00_1334;
{ /* ./Llib/dsssl.scm 394 */
obj_t BgL_symbol2601z00_1328;
BgL_symbol2601z00_1328 = BGl_symbol4553z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 394 */

PUSH_TRACE(BgL_symbol2601z00_1328); BUNSPEC; 
POP_TRACE(); 
BgL_aux2608z00_1334 = ( 
BGl_dssslzd2symbolzd2ze3keywordze3zz__dssslz00 = BGl_proc4554z00zz__dssslz00, BUNSPEC) ; } } 
POP_TRACE(); 
return BgL_aux2608z00_1334;} } } } 
}



/* <anonymous:1023:Llib/dsssl.scm:394> */
obj_t BGl_zc3anonymousza31023za3Llibzf2dssslze2scmza3394ze3z93zz__dssslz00(obj_t BgL_envz00_1348, obj_t BgL_symbolz00_1349)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 394 */
{ 
obj_t BgL_symbolz00_333;
BgL_symbolz00_333 = BgL_symbolz00_1349; 
{ /* ./Llib/dsssl.scm 395 */
obj_t BgL_symbol2605z00_1331;
BgL_symbol2605z00_1331 = BGl_symbol4555z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 395 */

PUSH_TRACE(BgL_symbol2605z00_1331); BUNSPEC; 
{ /* ./Llib/dsssl.scm 395 */
obj_t BgL_aux2604z00_1332;
{ /* ./Llib/dsssl.scm 395 */
obj_t BgL_arg1025z00_968;
{ /* ./Llib/dsssl.scm 395 */
obj_t BgL_arg1028z00_969;
{ /* ./Llib/dsssl.scm 395 */
obj_t BgL_symbolz00_971;
if(
SYMBOLP(BgL_symbolz00_333))
{ /* ./Llib/dsssl.scm 395 */
BgL_symbolz00_971 = BgL_symbolz00_333; }  else 
{ /* ./Llib/dsssl.scm 395 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4556z00zz__dssslz00, BGl_string4557z00zz__dssslz00, BgL_symbolz00_333, BGl_string4558z00zz__dssslz00, 
BINT(((long)13647))); 
exit( -1 );} 
BgL_arg1028z00_969 = 
SYMBOL_TO_STRING(BgL_symbolz00_971); } 
BgL_arg1025z00_968 = 
string_append(BgL_arg1028z00_969, BGl_string4559z00zz__dssslz00); } 
{ /* ./Llib/dsssl.scm 395 */
char * BgL_auxz00_2085;
BgL_auxz00_2085 = 
BSTRING_TO_STRING(BgL_arg1025z00_968); 
BgL_aux2604z00_1332 = 
string_to_keyword(BgL_auxz00_2085); } } 
POP_TRACE(); 
return BgL_aux2604z00_1332;} } } } } 
}



/* make-dsssl-function-prelude */
BGL_EXPORTED_DEF obj_t BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(obj_t BgL_wherez00_1, obj_t BgL_formalsz00_2, obj_t BgL_bodyz00_3, obj_t BgL_errz00_4, obj_t BgL_s2kz00_5)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 54 */
{ /* ./Llib/dsssl.scm 56 */
obj_t BgL_symbol2613z00_1335;
BgL_symbol2613z00_1335 = BGl_symbol4560z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 56 */

PUSH_TRACE(BgL_symbol2613z00_1335); BUNSPEC; 
{ /* ./Llib/dsssl.scm 56 */
obj_t BgL_aux2612z00_1336;
{ /* ./Llib/dsssl.scm 226 */
obj_t BgL_symbolzd2ze3keywordz31_346;
BgL_symbolzd2ze3keywordz31_346 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Llib/dsssl.scm 226 */
obj_t BgL_optionalzd2statezd2_1358;obj_t BgL_restzd2statezd2_1357;obj_t BgL_nozd2restzd2keyzd2statezd2_1356;
{ 
int BgL_auxz00_2092;int BgL_auxz00_2090;
BgL_auxz00_2092 = 
(int)(((long)7)); 
BgL_auxz00_2090 = 
(int)(((long)2)); 
BgL_optionalzd2statezd2_1358 = 
make_fx_procedure(BGl_optionalzd2statezd2zz__dssslz00, BgL_auxz00_2090, BgL_auxz00_2092); } 
{ 
int BgL_auxz00_2097;int BgL_auxz00_2095;
BgL_auxz00_2097 = 
(int)(((long)5)); 
BgL_auxz00_2095 = 
(int)(((long)2)); 
BgL_restzd2statezd2_1357 = 
make_fx_procedure(BGl_restzd2statezd2zz__dssslz00, BgL_auxz00_2095, BgL_auxz00_2097); } 
{ 
int BgL_auxz00_2102;int BgL_auxz00_2100;
BgL_auxz00_2102 = 
(int)(((long)5)); 
BgL_auxz00_2100 = 
(int)(((long)2)); 
BgL_nozd2restzd2keyzd2statezd2_1356 = 
make_fx_procedure(BGl_nozd2restzd2keyzd2statezd2zz__dssslz00, BgL_auxz00_2100, BgL_auxz00_2102); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2105;
BgL_auxz00_2105 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_optionalzd2statezd2_1358, BgL_auxz00_2105, BgL_symbolzd2ze3keywordz31_346); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2108;
BgL_auxz00_2108 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_optionalzd2statezd2_1358, BgL_auxz00_2108, BgL_errz00_4); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2111;
BgL_auxz00_2111 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_optionalzd2statezd2_1358, BgL_auxz00_2111, BgL_wherez00_1); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2114;
BgL_auxz00_2114 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_optionalzd2statezd2_1358, BgL_auxz00_2114, BgL_formalsz00_2); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2117;
BgL_auxz00_2117 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_optionalzd2statezd2_1358, BgL_auxz00_2117, BgL_restzd2statezd2_1357); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2120;
BgL_auxz00_2120 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_optionalzd2statezd2_1358, BgL_auxz00_2120, BgL_nozd2restzd2keyzd2statezd2_1356); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2123;
BgL_auxz00_2123 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_optionalzd2statezd2_1358, BgL_auxz00_2123, BgL_bodyz00_3); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2126;
BgL_auxz00_2126 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_restzd2statezd2_1357, BgL_auxz00_2126, BgL_symbolzd2ze3keywordz31_346); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2129;
BgL_auxz00_2129 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_restzd2statezd2_1357, BgL_auxz00_2129, BgL_bodyz00_3); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2132;
BgL_auxz00_2132 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_restzd2statezd2_1357, BgL_auxz00_2132, BgL_errz00_4); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2135;
BgL_auxz00_2135 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_restzd2statezd2_1357, BgL_auxz00_2135, BgL_wherez00_1); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2138;
BgL_auxz00_2138 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_restzd2statezd2_1357, BgL_auxz00_2138, BgL_formalsz00_2); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2141;
BgL_auxz00_2141 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_nozd2restzd2keyzd2statezd2_1356, BgL_auxz00_2141, BgL_errz00_4); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2144;
BgL_auxz00_2144 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_nozd2restzd2keyzd2statezd2_1356, BgL_auxz00_2144, BgL_wherez00_1); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2147;
BgL_auxz00_2147 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_nozd2restzd2keyzd2statezd2_1356, BgL_auxz00_2147, BgL_formalsz00_2); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2150;
BgL_auxz00_2150 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_nozd2restzd2keyzd2statezd2_1356, BgL_auxz00_2150, BgL_symbolzd2ze3keywordz31_346); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_2153;
BgL_auxz00_2153 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_nozd2restzd2keyzd2statezd2_1356, BgL_auxz00_2153, BgL_bodyz00_3); } 
{ 
obj_t BgL_argsz00_698;obj_t BgL_argsz00_649;obj_t BgL_nextzd2statezd2_650;
{ /* ./Llib/dsssl.scm 56 */
obj_t BgL_auxz00_1422;
{ /* ./Llib/dsssl.scm 56 */
bool_t BgL_test1763z00_715;
BgL_test1763z00_715 = 
PAIRP(BgL_s2kz00_5); 
if(BgL_test1763z00_715)
{ /* ./Llib/dsssl.scm 56 */
obj_t BgL_pairz00_974;
if(BgL_test1763z00_715)
{ /* ./Llib/dsssl.scm 56 */
BgL_pairz00_974 = BgL_s2kz00_5; }  else 
{ /* ./Llib/dsssl.scm 56 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_s2kz00_5, BGl_string4558z00zz__dssslz00, 
BINT(((long)2456))); 
exit( -1 );} 
BgL_auxz00_1422 = 
CAR(BgL_pairz00_974); }  else 
{ /* ./Llib/dsssl.scm 56 */
BgL_auxz00_1422 = BGl_dssslzd2symbolzd2ze3keywordze3zz__dssslz00; } } 
CELL_SET(BgL_symbolzd2ze3keywordz31_346, BgL_auxz00_1422); } 
BgL_argsz00_698 = BgL_formalsz00_2; 
BgL_zc3anonymousza31721za3llibzf2dssslze2scmza3244ze3z93_699:
{ /* ./Llib/dsssl.scm 60 */
bool_t BgL_test1722z00_700;
BgL_test1722z00_700 = 
PAIRP(BgL_argsz00_698); 
if(BgL_test1722z00_700)
{ /* ./Llib/dsssl.scm 62 */
bool_t BgL_test1723z00_701;
{ /* ./Llib/dsssl.scm 62 */
bool_t BgL_test1751z00_711;
{ /* ./Llib/dsssl.scm 62 */
obj_t BgL_arg1759z00_714;
{ /* ./Llib/dsssl.scm 62 */
obj_t BgL_pairz00_1132;
if(BgL_test1722z00_700)
{ /* ./Llib/dsssl.scm 62 */
BgL_pairz00_1132 = BgL_argsz00_698; }  else 
{ /* ./Llib/dsssl.scm 62 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_698, BGl_string4558z00zz__dssslz00, 
BINT(((long)2591))); 
exit( -1 );} 
BgL_arg1759z00_714 = 
CAR(BgL_pairz00_1132); } 
BgL_test1751z00_711 = 
SYMBOLP(BgL_arg1759z00_714); } 
if(BgL_test1751z00_711)
{ /* ./Llib/dsssl.scm 62 */
BgL_test1723z00_701 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 62 */
bool_t BgL_test1752z00_712;
{ /* ./Llib/dsssl.scm 62 */
obj_t BgL_arg1755z00_713;
{ /* ./Llib/dsssl.scm 62 */
obj_t BgL_pairz00_1134;
if(
PAIRP(BgL_argsz00_698))
{ /* ./Llib/dsssl.scm 62 */
BgL_pairz00_1134 = BgL_argsz00_698; }  else 
{ /* ./Llib/dsssl.scm 62 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_698, BGl_string4558z00zz__dssslz00, 
BINT(((long)2616))); 
exit( -1 );} 
BgL_arg1755z00_713 = 
CAR(BgL_pairz00_1134); } 
BgL_test1752z00_712 = 
PAIRP(BgL_arg1755z00_713); } 
if(BgL_test1752z00_712)
{ /* ./Llib/dsssl.scm 62 */
BgL_test1723z00_701 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 62 */
BgL_test1723z00_701 = ((bool_t)1); } } } 
if(BgL_test1723z00_701)
{ /* ./Llib/dsssl.scm 62 */
{ /* ./Llib/dsssl.scm 64 */
long BgL_aux1005z00_703;
{ /* ./Llib/dsssl.scm 64 */
obj_t BgL_aux1003z00_708;
{ /* ./Llib/dsssl.scm 64 */
obj_t BgL_pairz00_1136;
if(
PAIRP(BgL_argsz00_698))
{ /* ./Llib/dsssl.scm 64 */
BgL_pairz00_1136 = BgL_argsz00_698; }  else 
{ /* ./Llib/dsssl.scm 64 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_698, BGl_string4558z00zz__dssslz00, 
BINT(((long)2694))); 
exit( -1 );} 
BgL_aux1003z00_708 = 
CAR(BgL_pairz00_1136); } 
if(
CNSTP(BgL_aux1003z00_708))
{ /* ./Llib/dsssl.scm 64 */
BgL_aux1005z00_703 = 
CCNST(BgL_aux1003z00_708); }  else 
{ /* ./Llib/dsssl.scm 64 */
BgL_aux1005z00_703 = ((long)-1); } } 
switch( BgL_aux1005z00_703) { case ((long)258) : 

{ /* ./Llib/dsssl.scm 66 */
obj_t BgL_arg1726z00_705;
{ /* ./Llib/dsssl.scm 66 */
obj_t BgL_pairz00_1138;
if(
PAIRP(BgL_argsz00_698))
{ /* ./Llib/dsssl.scm 66 */
BgL_pairz00_1138 = BgL_argsz00_698; }  else 
{ /* ./Llib/dsssl.scm 66 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_698, BGl_string4558z00zz__dssslz00, 
BINT(((long)2751))); 
exit( -1 );} 
BgL_arg1726z00_705 = 
CDR(BgL_pairz00_1138); } 
BgL_argsz00_649 = BgL_arg1726z00_705; 
BgL_nextzd2statezd2_650 = BgL_optionalzd2statezd2_1358; 
BgL_zc3anonymousza31622za3llibzf2dssslze2scmza3244ze3z93_651:
{ 
obj_t BgL_asz00_652;
BgL_asz00_652 = BgL_argsz00_649; 
BgL_loopz00_653:
if(
NULLP(BgL_asz00_652))
{ /* ./Llib/dsssl.scm 80 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_nextzd2statezd2_650, ((long)2)))
{ /* ./Llib/dsssl.scm 81 */
BgL_aux2612z00_1336 = 
PROCEDURE_ENTRY(BgL_nextzd2statezd2_650)(BgL_nextzd2statezd2_650, BgL_argsz00_649, BUNSPEC, BEOA); }  else 
{ /* ./Llib/dsssl.scm 81 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4561z00zz__dssslz00, BGl_list4562z00zz__dssslz00, BgL_nextzd2statezd2_650, BGl_string4558z00zz__dssslz00, 
BINT(((long)3164))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} }  else 
{ /* ./Llib/dsssl.scm 82 */
bool_t BgL_test1626z00_655;
BgL_test1626z00_655 = 
PAIRP(BgL_asz00_652); 
if(BgL_test1626z00_655)
{ /* ./Llib/dsssl.scm 84 */
bool_t BgL_test1627z00_656;
{ /* ./Llib/dsssl.scm 84 */
bool_t BgL_test1708z00_694;
{ /* ./Llib/dsssl.scm 84 */
obj_t BgL_arg1715z00_697;
{ /* ./Llib/dsssl.scm 84 */
obj_t BgL_pairz00_1114;
if(BgL_test1626z00_655)
{ /* ./Llib/dsssl.scm 84 */
BgL_pairz00_1114 = BgL_asz00_652; }  else 
{ /* ./Llib/dsssl.scm 84 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_asz00_652, BGl_string4558z00zz__dssslz00, 
BINT(((long)3299))); 
exit( -1 );} 
BgL_arg1715z00_697 = 
CAR(BgL_pairz00_1114); } 
BgL_test1708z00_694 = 
SYMBOLP(BgL_arg1715z00_697); } 
if(BgL_test1708z00_694)
{ /* ./Llib/dsssl.scm 84 */
BgL_test1627z00_656 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 84 */
bool_t BgL_test1709z00_695;
{ /* ./Llib/dsssl.scm 84 */
obj_t BgL_arg1711z00_696;
{ /* ./Llib/dsssl.scm 84 */
obj_t BgL_pairz00_1116;
if(
PAIRP(BgL_asz00_652))
{ /* ./Llib/dsssl.scm 84 */
BgL_pairz00_1116 = BgL_asz00_652; }  else 
{ /* ./Llib/dsssl.scm 84 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_asz00_652, BGl_string4558z00zz__dssslz00, 
BINT(((long)3322))); 
exit( -1 );} 
BgL_arg1711z00_696 = 
CAR(BgL_pairz00_1116); } 
BgL_test1709z00_695 = 
PAIRP(BgL_arg1711z00_696); } 
if(BgL_test1709z00_695)
{ /* ./Llib/dsssl.scm 84 */
BgL_test1627z00_656 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 84 */
BgL_test1627z00_656 = ((bool_t)1); } } } 
if(BgL_test1627z00_656)
{ /* ./Llib/dsssl.scm 84 */
{ /* ./Llib/dsssl.scm 85 */
obj_t BgL_arg1629z00_657;
{ /* ./Llib/dsssl.scm 85 */
obj_t BgL_pairz00_1118;
if(
PAIRP(BgL_asz00_652))
{ /* ./Llib/dsssl.scm 85 */
BgL_pairz00_1118 = BgL_asz00_652; }  else 
{ /* ./Llib/dsssl.scm 85 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_asz00_652, BGl_string4558z00zz__dssslz00, 
BINT(((long)3346))); 
exit( -1 );} 
BgL_arg1629z00_657 = 
CDR(BgL_pairz00_1118); } 
{ 
obj_t BgL_asz00_2229;
BgL_asz00_2229 = BgL_arg1629z00_657; 
BgL_asz00_652 = BgL_asz00_2229; 
goto BgL_loopz00_653;} } }  else 
{ /* ./Llib/dsssl.scm 84 */
{ 

{ /* ./Llib/dsssl.scm 87 */
obj_t BgL_ezd2103zd2_660;
{ /* ./Llib/dsssl.scm 87 */
obj_t BgL_pairz00_1119;
if(
PAIRP(BgL_asz00_652))
{ /* ./Llib/dsssl.scm 87 */
BgL_pairz00_1119 = BgL_asz00_652; }  else 
{ /* ./Llib/dsssl.scm 87 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_asz00_652, BGl_string4558z00zz__dssslz00, 
BINT(((long)3386))); 
exit( -1 );} 
BgL_ezd2103zd2_660 = 
CAR(BgL_pairz00_1119); } 
if(
SYMBOLP(BgL_ezd2103zd2_660))
{ /* ./Llib/dsssl.scm 87 */
{ /* ./Llib/dsssl.scm 89 */
obj_t BgL_dssslzd2argzd2_669;
{ /* ./Llib/dsssl.scm 89 */
obj_t BgL_funz00_1455;
{ /* ./Llib/dsssl.scm 89 */
obj_t BgL_aux2744z00_1453;
BgL_aux2744z00_1453 = BGl_gensymz00zz__r4_symbols_6_4z00; 
if(
PROCEDUREP(BgL_aux2744z00_1453))
{ /* ./Llib/dsssl.scm 89 */
BgL_funz00_1455 = BgL_aux2744z00_1453; }  else 
{ /* ./Llib/dsssl.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_aux2744z00_1453, BGl_string4558z00zz__dssslz00, 
BINT(((long)3424))); 
exit( -1 );} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1455, ((long)1)))
{ /* ./Llib/dsssl.scm 89 */
BgL_dssslzd2argzd2_669 = 
PROCEDURE_ENTRY(BgL_funz00_1455)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol4569z00zz__dssslz00, BEOA); }  else 
{ /* ./Llib/dsssl.scm 89 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4561z00zz__dssslz00, BGl_list4570z00zz__dssslz00, BgL_funz00_1455, BGl_string4558z00zz__dssslz00, 
BINT(((long)3424))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } 
{ /* ./Llib/dsssl.scm 90 */
obj_t BgL_arg1653z00_670;obj_t BgL_arg1654z00_671;
BgL_arg1653z00_670 = BGl_symbol4574z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 90 */
obj_t BgL_arg1657z00_672;obj_t BgL_arg1658z00_673;
{ /* ./Llib/dsssl.scm 90 */
obj_t BgL_arg1661z00_674;
{ /* ./Llib/dsssl.scm 90 */
obj_t BgL_arg1666z00_676;
{ /* ./Llib/dsssl.scm 90 */
obj_t BgL_arg1669z00_677;
{ /* ./Llib/dsssl.scm 90 */
obj_t BgL_pairz00_1128;
if(
PAIRP(BgL_asz00_652))
{ /* ./Llib/dsssl.scm 90 */
BgL_pairz00_1128 = BgL_asz00_652; }  else 
{ /* ./Llib/dsssl.scm 90 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_asz00_652, BGl_string4558z00zz__dssslz00, 
BINT(((long)3474))); 
exit( -1 );} 
BgL_arg1669z00_677 = 
CAR(BgL_pairz00_1128); } 
BgL_arg1666z00_676 = 
MAKE_PAIR(BgL_arg1669z00_677, BNIL); } 
BgL_arg1661z00_674 = 
MAKE_PAIR(BgL_dssslzd2argzd2_669, BgL_arg1666z00_676); } 
BgL_arg1657z00_672 = 
MAKE_PAIR(BgL_arg1661z00_674, BNIL); } 
{ /* ./Llib/dsssl.scm 91 */
obj_t BgL_arg1674z00_679;
if(
PROCEDURE_CORRECT_ARITYP(BgL_nextzd2statezd2_650, ((long)2)))
{ /* ./Llib/dsssl.scm 91 */
BgL_arg1674z00_679 = 
PROCEDURE_ENTRY(BgL_nextzd2statezd2_650)(BgL_nextzd2statezd2_650, BgL_argsz00_649, BgL_dssslzd2argzd2_669, BEOA); }  else 
{ /* ./Llib/dsssl.scm 91 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4561z00zz__dssslz00, BGl_list4575z00zz__dssslz00, BgL_nextzd2statezd2_650, BGl_string4558z00zz__dssslz00, 
BINT(((long)3483))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} 
BgL_arg1658z00_673 = 
MAKE_PAIR(BgL_arg1674z00_679, BNIL); } 
BgL_arg1654z00_671 = 
MAKE_PAIR(BgL_arg1657z00_672, BgL_arg1658z00_673); } 
BgL_aux2612z00_1336 = 
MAKE_PAIR(BgL_arg1653z00_670, BgL_arg1654z00_671); } } }  else 
{ /* ./Llib/dsssl.scm 87 */
bool_t BgL_test1634z00_662;
BgL_test1634z00_662 = 
PAIRP(BgL_ezd2103zd2_660); 
if(BgL_test1634z00_662)
{ /* ./Llib/dsssl.scm 87 */
obj_t BgL_cdrzd2105zd2_663;
{ /* ./Llib/dsssl.scm 87 */
obj_t BgL_pairz00_1122;
if(BgL_test1634z00_662)
{ /* ./Llib/dsssl.scm 87 */
BgL_pairz00_1122 = BgL_ezd2103zd2_660; }  else 
{ /* ./Llib/dsssl.scm 87 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_ezd2103zd2_660, BGl_string4558z00zz__dssslz00, 
BINT(((long)3368))); 
exit( -1 );} 
BgL_cdrzd2105zd2_663 = 
CDR(BgL_pairz00_1122); } 
{ /* ./Llib/dsssl.scm 87 */
bool_t BgL_test1635z00_664;
{ /* ./Llib/dsssl.scm 87 */
obj_t BgL_arg1645z00_668;
{ /* ./Llib/dsssl.scm 87 */
obj_t BgL_pairz00_1123;
if(
PAIRP(BgL_ezd2103zd2_660))
{ /* ./Llib/dsssl.scm 87 */
BgL_pairz00_1123 = BgL_ezd2103zd2_660; }  else 
{ /* ./Llib/dsssl.scm 87 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_ezd2103zd2_660, BGl_string4558z00zz__dssslz00, 
BINT(((long)3368))); 
exit( -1 );} 
BgL_arg1645z00_668 = 
CAR(BgL_pairz00_1123); } 
BgL_test1635z00_664 = 
SYMBOLP(BgL_arg1645z00_668); } 
if(BgL_test1635z00_664)
{ /* ./Llib/dsssl.scm 87 */
bool_t BgL_test1636z00_665;
BgL_test1636z00_665 = 
PAIRP(BgL_cdrzd2105zd2_663); 
if(BgL_test1636z00_665)
{ /* ./Llib/dsssl.scm 87 */
bool_t BgL_test1637z00_666;
{ /* ./Llib/dsssl.scm 87 */
obj_t BgL_arg1640z00_667;
{ /* ./Llib/dsssl.scm 87 */
obj_t BgL_pairz00_1126;
if(BgL_test1636z00_665)
{ /* ./Llib/dsssl.scm 87 */
BgL_pairz00_1126 = BgL_cdrzd2105zd2_663; }  else 
{ /* ./Llib/dsssl.scm 87 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_cdrzd2105zd2_663, BGl_string4558z00zz__dssslz00, 
BINT(((long)3368))); 
exit( -1 );} 
BgL_arg1640z00_667 = 
CDR(BgL_pairz00_1126); } 
BgL_test1637z00_666 = 
NULLP(BgL_arg1640z00_667); } 
if(BgL_test1637z00_666)
{ /* ./Llib/dsssl.scm 87 */
{ /* ./Llib/dsssl.scm 93 */
obj_t BgL_dssslzd2argzd2_681;
{ /* ./Llib/dsssl.scm 93 */
obj_t BgL_funz00_1465;
{ /* ./Llib/dsssl.scm 93 */
obj_t BgL_aux2778z00_1463;
BgL_aux2778z00_1463 = BGl_gensymz00zz__r4_symbols_6_4z00; 
if(
PROCEDUREP(BgL_aux2778z00_1463))
{ /* ./Llib/dsssl.scm 93 */
BgL_funz00_1465 = BgL_aux2778z00_1463; }  else 
{ /* ./Llib/dsssl.scm 93 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_aux2778z00_1463, BGl_string4558z00zz__dssslz00, 
BINT(((long)3554))); 
exit( -1 );} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1465, ((long)1)))
{ /* ./Llib/dsssl.scm 93 */
BgL_dssslzd2argzd2_681 = 
PROCEDURE_ENTRY(BgL_funz00_1465)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol4569z00zz__dssslz00, BEOA); }  else 
{ /* ./Llib/dsssl.scm 93 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4561z00zz__dssslz00, BGl_list4570z00zz__dssslz00, BgL_funz00_1465, BGl_string4558z00zz__dssslz00, 
BINT(((long)3554))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } 
{ /* ./Llib/dsssl.scm 94 */
obj_t BgL_arg1680z00_682;obj_t BgL_arg1681z00_683;
BgL_arg1680z00_682 = BGl_symbol4574z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 94 */
obj_t BgL_arg1684z00_684;obj_t BgL_arg1685z00_685;
{ /* ./Llib/dsssl.scm 94 */
obj_t BgL_arg1688z00_686;
{ /* ./Llib/dsssl.scm 94 */
obj_t BgL_arg1692z00_688;
{ /* ./Llib/dsssl.scm 94 */
obj_t BgL_arg1695z00_689;
{ /* ./Llib/dsssl.scm 94 */
obj_t BgL_arg1699z00_691;
{ /* ./Llib/dsssl.scm 94 */
obj_t BgL_pairz00_1129;
if(
PAIRP(BgL_asz00_652))
{ /* ./Llib/dsssl.scm 94 */
BgL_pairz00_1129 = BgL_asz00_652; }  else 
{ /* ./Llib/dsssl.scm 94 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_asz00_652, BGl_string4558z00zz__dssslz00, 
BINT(((long)3609))); 
exit( -1 );} 
BgL_arg1699z00_691 = 
CAR(BgL_pairz00_1129); } 
{ /* ./Llib/dsssl.scm 94 */
obj_t BgL_pairz00_1130;
if(
PAIRP(BgL_arg1699z00_691))
{ /* ./Llib/dsssl.scm 94 */
BgL_pairz00_1130 = BgL_arg1699z00_691; }  else 
{ /* ./Llib/dsssl.scm 94 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_arg1699z00_691, BGl_string4558z00zz__dssslz00, 
BINT(((long)3610))); 
exit( -1 );} 
BgL_arg1695z00_689 = 
CAR(BgL_pairz00_1130); } } 
BgL_arg1692z00_688 = 
MAKE_PAIR(BgL_arg1695z00_689, BNIL); } 
BgL_arg1688z00_686 = 
MAKE_PAIR(BgL_dssslzd2argzd2_681, BgL_arg1692z00_688); } 
BgL_arg1684z00_684 = 
MAKE_PAIR(BgL_arg1688z00_686, BNIL); } 
{ /* ./Llib/dsssl.scm 95 */
obj_t BgL_arg1703z00_692;
if(
PROCEDURE_CORRECT_ARITYP(BgL_nextzd2statezd2_650, ((long)2)))
{ /* ./Llib/dsssl.scm 95 */
BgL_arg1703z00_692 = 
PROCEDURE_ENTRY(BgL_nextzd2statezd2_650)(BgL_nextzd2statezd2_650, BgL_argsz00_649, BgL_dssslzd2argzd2_681, BEOA); }  else 
{ /* ./Llib/dsssl.scm 95 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4561z00zz__dssslz00, BGl_list4575z00zz__dssslz00, BgL_nextzd2statezd2_650, BGl_string4558z00zz__dssslz00, 
BINT(((long)3619))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} 
BgL_arg1685z00_685 = 
MAKE_PAIR(BgL_arg1703z00_692, BNIL); } 
BgL_arg1681z00_683 = 
MAKE_PAIR(BgL_arg1684z00_684, BgL_arg1685z00_685); } 
BgL_aux2612z00_1336 = 
MAKE_PAIR(BgL_arg1680z00_682, BgL_arg1681z00_683); } } }  else 
{ /* ./Llib/dsssl.scm 87 */
BgL_aux2612z00_1336 = BFALSE; } }  else 
{ /* ./Llib/dsssl.scm 87 */
BgL_aux2612z00_1336 = BFALSE; } }  else 
{ /* ./Llib/dsssl.scm 87 */
BgL_aux2612z00_1336 = BFALSE; } } }  else 
{ /* ./Llib/dsssl.scm 87 */
BgL_aux2612z00_1336 = BFALSE; } } } } } }  else 
{ /* ./Llib/dsssl.scm 82 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_4, ((long)3)))
{ /* ./Llib/dsssl.scm 83 */
BgL_aux2612z00_1336 = 
PROCEDURE_ENTRY(BgL_errz00_4)(BgL_errz00_4, BgL_wherez00_1, BGl_string4577z00zz__dssslz00, BgL_formalsz00_2, BEOA); }  else 
{ /* ./Llib/dsssl.scm 83 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4561z00zz__dssslz00, BGl_list4578z00zz__dssslz00, BgL_errz00_4, BGl_string4558z00zz__dssslz00, 
BINT(((long)3225))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } } } break;case ((long)259) : 

{ /* ./Llib/dsssl.scm 68 */
obj_t BgL_arg1731z00_706;
{ /* ./Llib/dsssl.scm 68 */
obj_t BgL_pairz00_1139;
if(
PAIRP(BgL_argsz00_698))
{ /* ./Llib/dsssl.scm 68 */
BgL_pairz00_1139 = BgL_argsz00_698; }  else 
{ /* ./Llib/dsssl.scm 68 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_698, BGl_string4558z00zz__dssslz00, 
BINT(((long)2821))); 
exit( -1 );} 
BgL_arg1731z00_706 = 
CDR(BgL_pairz00_1139); } 
{ 
obj_t BgL_nextzd2statezd2_2344;obj_t BgL_argsz00_2343;
BgL_argsz00_2343 = BgL_arg1731z00_706; 
BgL_nextzd2statezd2_2344 = BgL_restzd2statezd2_1357; 
BgL_nextzd2statezd2_650 = BgL_nextzd2statezd2_2344; 
BgL_argsz00_649 = BgL_argsz00_2343; 
goto BgL_zc3anonymousza31622za3llibzf2dssslze2scmza3244ze3z93_651;} } break;case ((long)262) : 

{ /* ./Llib/dsssl.scm 70 */
obj_t BgL_arg1735z00_707;
{ /* ./Llib/dsssl.scm 70 */
obj_t BgL_pairz00_1140;
if(
PAIRP(BgL_argsz00_698))
{ /* ./Llib/dsssl.scm 70 */
BgL_pairz00_1140 = BgL_argsz00_698; }  else 
{ /* ./Llib/dsssl.scm 70 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_698, BGl_string4558z00zz__dssslz00, 
BINT(((long)2886))); 
exit( -1 );} 
BgL_arg1735z00_707 = 
CDR(BgL_pairz00_1140); } 
{ 
obj_t BgL_nextzd2statezd2_2352;obj_t BgL_argsz00_2351;
BgL_argsz00_2351 = BgL_arg1735z00_707; 
BgL_nextzd2statezd2_2352 = BgL_nozd2restzd2keyzd2statezd2_1356; 
BgL_nextzd2statezd2_650 = BgL_nextzd2statezd2_2352; 
BgL_argsz00_649 = BgL_argsz00_2351; 
goto BgL_zc3anonymousza31622za3llibzf2dssslze2scmza3244ze3z93_651;} } break;
default: 
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_4, ((long)3)))
{ /* ./Llib/dsssl.scm 64 */
BgL_aux2612z00_1336 = 
PROCEDURE_ENTRY(BgL_errz00_4)(BgL_errz00_4, BgL_wherez00_1, BGl_string4577z00zz__dssslz00, BgL_formalsz00_2, BEOA); }  else 
{ /* ./Llib/dsssl.scm 64 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4561z00zz__dssslz00, BGl_list4578z00zz__dssslz00, BgL_errz00_4, BGl_string4558z00zz__dssslz00, 
BINT(((long)2680))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } }  else 
{ /* ./Llib/dsssl.scm 62 */
{ /* ./Llib/dsssl.scm 75 */
obj_t BgL_arg1748z00_710;
{ /* ./Llib/dsssl.scm 75 */
obj_t BgL_pairz00_1141;
if(
PAIRP(BgL_argsz00_698))
{ /* ./Llib/dsssl.scm 75 */
BgL_pairz00_1141 = BgL_argsz00_698; }  else 
{ /* ./Llib/dsssl.scm 75 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4560z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_698, BGl_string4558z00zz__dssslz00, 
BINT(((long)3050))); 
exit( -1 );} 
BgL_arg1748z00_710 = 
CDR(BgL_pairz00_1141); } 
{ 
obj_t BgL_argsz00_2367;
BgL_argsz00_2367 = BgL_arg1748z00_710; 
BgL_argsz00_698 = BgL_argsz00_2367; 
goto BgL_zc3anonymousza31721za3llibzf2dssslze2scmza3244ze3z93_699;} } } }  else 
{ /* ./Llib/dsssl.scm 60 */
BgL_aux2612z00_1336 = BgL_bodyz00_3; } } } } } 
POP_TRACE(); 
return BgL_aux2612z00_1336;} } } } 
}



/* _make-dsssl-function-prelude2646 */
obj_t BGl__makezd2dssslzd2functionzd2prelude2646zd2zz__dssslz00(obj_t BgL_envz00_1359, obj_t BgL_wherez00_1360, obj_t BgL_formalsz00_1361, obj_t BgL_bodyz00_1362, obj_t BgL_errz00_1363, obj_t BgL_s2kz00_1364)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 54 */
{ /* ./Llib/dsssl.scm 56 */
obj_t BgL_auxz00_2369;
if(
PROCEDUREP(BgL_errz00_1363))
{ /* ./Llib/dsssl.scm 56 */
BgL_auxz00_2369 = BgL_errz00_1363
; }  else 
{ /* ./Llib/dsssl.scm 56 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4582z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1363, BGl_string4558z00zz__dssslz00, 
BINT(((long)2481))); 
exit( -1 );} 
return 
BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(BgL_wherez00_1360, BgL_formalsz00_1361, BgL_bodyz00_1362, BgL_auxz00_2369, BgL_s2kz00_1364);} } 
}



/* key-state */
obj_t BGl_keyzd2statezd2zz__dssslz00(obj_t BgL_bodyz00_1369, obj_t BgL_formalsz00_1368, obj_t BgL_wherez00_1367, obj_t BgL_errz00_1366, obj_t BgL_symbolzd2ze3keywordz31_1365, obj_t BgL_argsz00_347, obj_t BgL_dssslzd2argzd2_348)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 226 */
if(
NULLP(BgL_argsz00_347))
{ /* ./Llib/dsssl.scm 228 */
return BgL_bodyz00_1369;}  else 
{ /* ./Llib/dsssl.scm 230 */
bool_t BgL_test1035z00_352;
BgL_test1035z00_352 = 
PAIRP(BgL_argsz00_347); 
if(BgL_test1035z00_352)
{ /* ./Llib/dsssl.scm 232 */
bool_t BgL_test1036z00_353;
{ /* ./Llib/dsssl.scm 232 */
bool_t BgL_test1075z00_373;
{ /* ./Llib/dsssl.scm 232 */
obj_t BgL_arg1083z00_376;
{ /* ./Llib/dsssl.scm 232 */
obj_t BgL_pairz00_977;
if(BgL_test1035z00_352)
{ /* ./Llib/dsssl.scm 232 */
BgL_pairz00_977 = BgL_argsz00_347; }  else 
{ /* ./Llib/dsssl.scm 232 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4583z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_347, BGl_string4558z00zz__dssslz00, 
BINT(((long)7558))); 
exit( -1 );} 
BgL_arg1083z00_376 = 
CAR(BgL_pairz00_977); } 
BgL_test1075z00_373 = 
SYMBOLP(BgL_arg1083z00_376); } 
if(BgL_test1075z00_373)
{ /* ./Llib/dsssl.scm 232 */
BgL_test1036z00_353 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 232 */
bool_t BgL_test1076z00_374;
{ /* ./Llib/dsssl.scm 232 */
obj_t BgL_arg1079z00_375;
{ /* ./Llib/dsssl.scm 232 */
obj_t BgL_pairz00_979;
if(
PAIRP(BgL_argsz00_347))
{ /* ./Llib/dsssl.scm 232 */
BgL_pairz00_979 = BgL_argsz00_347; }  else 
{ /* ./Llib/dsssl.scm 232 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4583z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_347, BGl_string4558z00zz__dssslz00, 
BINT(((long)7583))); 
exit( -1 );} 
BgL_arg1079z00_375 = 
CAR(BgL_pairz00_979); } 
BgL_test1076z00_374 = 
PAIRP(BgL_arg1079z00_375); } 
if(BgL_test1076z00_374)
{ /* ./Llib/dsssl.scm 232 */
BgL_test1036z00_353 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 232 */
BgL_test1036z00_353 = ((bool_t)1); } } } 
if(BgL_test1036z00_353)
{ /* ./Llib/dsssl.scm 232 */
{ /* ./Llib/dsssl.scm 233 */
obj_t BgL_funz00_1516;
if(
PROCEDUREP(BgL_errz00_1366))
{ /* ./Llib/dsssl.scm 233 */
BgL_funz00_1516 = BgL_errz00_1366; }  else 
{ /* ./Llib/dsssl.scm 233 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4583z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1366, BGl_string4558z00zz__dssslz00, 
BINT(((long)7592))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1516, ((long)3)))
{ /* ./Llib/dsssl.scm 233 */
return 
PROCEDURE_ENTRY(BgL_funz00_1516)(BgL_errz00_1366, BgL_wherez00_1367, BGl_string4584z00zz__dssslz00, BgL_formalsz00_1368, BEOA);}  else 
{ /* ./Llib/dsssl.scm 233 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4585z00zz__dssslz00, BGl_list4586z00zz__dssslz00, BgL_funz00_1516, BGl_string4558z00zz__dssslz00, 
BINT(((long)7592))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } }  else 
{ /* ./Llib/dsssl.scm 232 */
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_ezd2168zd2_360;
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_pairz00_981;
if(
PAIRP(BgL_argsz00_347))
{ /* ./Llib/dsssl.scm 236 */
BgL_pairz00_981 = BgL_argsz00_347; }  else 
{ /* ./Llib/dsssl.scm 236 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4583z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_347, BGl_string4558z00zz__dssslz00, 
BINT(((long)7711))); 
exit( -1 );} 
BgL_ezd2168zd2_360 = 
CAR(BgL_pairz00_981); } 
{ /* ./Llib/dsssl.scm 236 */
bool_t BgL_test1038z00_361;
BgL_test1038z00_361 = 
PAIRP(BgL_ezd2168zd2_360); 
if(BgL_test1038z00_361)
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_carzd2173zd2_362;obj_t BgL_cdrzd2174zd2_363;
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_pairz00_983;
if(BgL_test1038z00_361)
{ /* ./Llib/dsssl.scm 236 */
BgL_pairz00_983 = BgL_ezd2168zd2_360; }  else 
{ /* ./Llib/dsssl.scm 236 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4583z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_ezd2168zd2_360, BGl_string4558z00zz__dssslz00, 
BINT(((long)7691))); 
exit( -1 );} 
BgL_carzd2173zd2_362 = 
CAR(BgL_pairz00_983); } 
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_pairz00_984;
if(BgL_test1038z00_361)
{ /* ./Llib/dsssl.scm 236 */
BgL_pairz00_984 = BgL_ezd2168zd2_360; }  else 
{ /* ./Llib/dsssl.scm 236 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4583z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_ezd2168zd2_360, BGl_string4558z00zz__dssslz00, 
BINT(((long)7691))); 
exit( -1 );} 
BgL_cdrzd2174zd2_363 = 
CDR(BgL_pairz00_984); } 
if(
SYMBOLP(BgL_carzd2173zd2_362))
{ /* ./Llib/dsssl.scm 236 */
bool_t BgL_test1040z00_365;
BgL_test1040z00_365 = 
PAIRP(BgL_cdrzd2174zd2_363); 
if(BgL_test1040z00_365)
{ /* ./Llib/dsssl.scm 236 */
bool_t BgL_test1041z00_366;
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_arg1051z00_369;
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_pairz00_987;
if(BgL_test1040z00_365)
{ /* ./Llib/dsssl.scm 236 */
BgL_pairz00_987 = BgL_cdrzd2174zd2_363; }  else 
{ /* ./Llib/dsssl.scm 236 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4583z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_cdrzd2174zd2_363, BGl_string4558z00zz__dssslz00, 
BINT(((long)7691))); 
exit( -1 );} 
BgL_arg1051z00_369 = 
CDR(BgL_pairz00_987); } 
BgL_test1041z00_366 = 
NULLP(BgL_arg1051z00_369); } 
if(BgL_test1041z00_366)
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_arg1043z00_367;
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_pairz00_989;
if(
PAIRP(BgL_cdrzd2174zd2_363))
{ /* ./Llib/dsssl.scm 236 */
BgL_pairz00_989 = BgL_cdrzd2174zd2_363; }  else 
{ /* ./Llib/dsssl.scm 236 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4583z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_cdrzd2174zd2_363, BGl_string4558z00zz__dssslz00, 
BINT(((long)7691))); 
exit( -1 );} 
BgL_arg1043z00_367 = 
CAR(BgL_pairz00_989); } 
return 
BGl_onezd2keyzd2argz00zz__dssslz00(BgL_argsz00_347, BgL_dssslzd2argzd2_348, BgL_symbolzd2ze3keywordz31_1365, BgL_bodyz00_1369, BgL_formalsz00_1368, BgL_wherez00_1367, BgL_errz00_1366, BgL_carzd2173zd2_362, BgL_arg1043z00_367);}  else 
{ /* ./Llib/dsssl.scm 236 */
if(
SYMBOLP(BgL_ezd2168zd2_360))
{ /* ./Llib/dsssl.scm 236 */
return 
BGl_onezd2keyzd2argz00zz__dssslz00(BgL_argsz00_347, BgL_dssslzd2argzd2_348, BgL_symbolzd2ze3keywordz31_1365, BgL_bodyz00_1369, BgL_formalsz00_1368, BgL_wherez00_1367, BgL_errz00_1366, BgL_ezd2168zd2_360, BFALSE);}  else 
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_funz00_1531;
if(
PROCEDUREP(BgL_errz00_1366))
{ /* ./Llib/dsssl.scm 236 */
BgL_funz00_1531 = BgL_errz00_1366; }  else 
{ /* ./Llib/dsssl.scm 236 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4583z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1366, BGl_string4558z00zz__dssslz00, 
BINT(((long)7691))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1531, ((long)3)))
{ /* ./Llib/dsssl.scm 236 */
return 
PROCEDURE_ENTRY(BgL_funz00_1531)(BgL_errz00_1366, BgL_wherez00_1367, BGl_string4584z00zz__dssslz00, BgL_formalsz00_1368, BEOA);}  else 
{ /* ./Llib/dsssl.scm 236 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4585z00zz__dssslz00, BGl_list4586z00zz__dssslz00, BgL_funz00_1531, BGl_string4558z00zz__dssslz00, 
BINT(((long)7691))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } }  else 
{ /* ./Llib/dsssl.scm 236 */
if(
SYMBOLP(BgL_ezd2168zd2_360))
{ /* ./Llib/dsssl.scm 236 */
return 
BGl_onezd2keyzd2argz00zz__dssslz00(BgL_argsz00_347, BgL_dssslzd2argzd2_348, BgL_symbolzd2ze3keywordz31_1365, BgL_bodyz00_1369, BgL_formalsz00_1368, BgL_wherez00_1367, BgL_errz00_1366, BgL_ezd2168zd2_360, BFALSE);}  else 
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_funz00_1536;
if(
PROCEDUREP(BgL_errz00_1366))
{ /* ./Llib/dsssl.scm 236 */
BgL_funz00_1536 = BgL_errz00_1366; }  else 
{ /* ./Llib/dsssl.scm 236 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4583z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1366, BGl_string4558z00zz__dssslz00, 
BINT(((long)7691))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1536, ((long)3)))
{ /* ./Llib/dsssl.scm 236 */
return 
PROCEDURE_ENTRY(BgL_funz00_1536)(BgL_errz00_1366, BgL_wherez00_1367, BGl_string4584z00zz__dssslz00, BgL_formalsz00_1368, BEOA);}  else 
{ /* ./Llib/dsssl.scm 236 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4585z00zz__dssslz00, BGl_list4586z00zz__dssslz00, BgL_funz00_1536, BGl_string4558z00zz__dssslz00, 
BINT(((long)7691))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } }  else 
{ /* ./Llib/dsssl.scm 236 */
if(
SYMBOLP(BgL_ezd2168zd2_360))
{ /* ./Llib/dsssl.scm 236 */
return 
BGl_onezd2keyzd2argz00zz__dssslz00(BgL_argsz00_347, BgL_dssslzd2argzd2_348, BgL_symbolzd2ze3keywordz31_1365, BgL_bodyz00_1369, BgL_formalsz00_1368, BgL_wherez00_1367, BgL_errz00_1366, BgL_ezd2168zd2_360, BFALSE);}  else 
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_funz00_1541;
if(
PROCEDUREP(BgL_errz00_1366))
{ /* ./Llib/dsssl.scm 236 */
BgL_funz00_1541 = BgL_errz00_1366; }  else 
{ /* ./Llib/dsssl.scm 236 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4583z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1366, BGl_string4558z00zz__dssslz00, 
BINT(((long)7691))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1541, ((long)3)))
{ /* ./Llib/dsssl.scm 236 */
return 
PROCEDURE_ENTRY(BgL_funz00_1541)(BgL_errz00_1366, BgL_wherez00_1367, BGl_string4584z00zz__dssslz00, BgL_formalsz00_1368, BEOA);}  else 
{ /* ./Llib/dsssl.scm 236 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4585z00zz__dssslz00, BGl_list4586z00zz__dssslz00, BgL_funz00_1541, BGl_string4558z00zz__dssslz00, 
BINT(((long)7691))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } }  else 
{ /* ./Llib/dsssl.scm 236 */
if(
SYMBOLP(BgL_ezd2168zd2_360))
{ /* ./Llib/dsssl.scm 236 */
return 
BGl_onezd2keyzd2argz00zz__dssslz00(BgL_argsz00_347, BgL_dssslzd2argzd2_348, BgL_symbolzd2ze3keywordz31_1365, BgL_bodyz00_1369, BgL_formalsz00_1368, BgL_wherez00_1367, BgL_errz00_1366, BgL_ezd2168zd2_360, BFALSE);}  else 
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_funz00_1546;
if(
PROCEDUREP(BgL_errz00_1366))
{ /* ./Llib/dsssl.scm 236 */
BgL_funz00_1546 = BgL_errz00_1366; }  else 
{ /* ./Llib/dsssl.scm 236 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4583z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1366, BGl_string4558z00zz__dssslz00, 
BINT(((long)7691))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1546, ((long)3)))
{ /* ./Llib/dsssl.scm 236 */
return 
PROCEDURE_ENTRY(BgL_funz00_1546)(BgL_errz00_1366, BgL_wherez00_1367, BGl_string4584z00zz__dssslz00, BgL_formalsz00_1368, BEOA);}  else 
{ /* ./Llib/dsssl.scm 236 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4585z00zz__dssslz00, BGl_list4586z00zz__dssslz00, BgL_funz00_1546, BGl_string4558z00zz__dssslz00, 
BINT(((long)7691))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } } } } }  else 
{ /* ./Llib/dsssl.scm 230 */
{ /* ./Llib/dsssl.scm 231 */
obj_t BgL_funz00_1551;
if(
PROCEDUREP(BgL_errz00_1366))
{ /* ./Llib/dsssl.scm 231 */
BgL_funz00_1551 = BgL_errz00_1366; }  else 
{ /* ./Llib/dsssl.scm 231 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4583z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1366, BGl_string4558z00zz__dssslz00, 
BINT(((long)7471))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1551, ((long)3)))
{ /* ./Llib/dsssl.scm 231 */
return 
PROCEDURE_ENTRY(BgL_funz00_1551)(BgL_errz00_1366, BgL_wherez00_1367, BGl_string4584z00zz__dssslz00, BgL_formalsz00_1368, BEOA);}  else 
{ /* ./Llib/dsssl.scm 231 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4585z00zz__dssslz00, BGl_list4586z00zz__dssslz00, BgL_funz00_1551, BGl_string4558z00zz__dssslz00, 
BINT(((long)7471))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } } } 
}



/* one-key-arg */
obj_t BGl_onezd2keyzd2argz00zz__dssslz00(obj_t BgL_argsz00_1376, obj_t BgL_dssslzd2argzd2_1375, obj_t BgL_symbolzd2ze3keywordz31_1374, obj_t BgL_bodyz00_1373, obj_t BgL_formalsz00_1372, obj_t BgL_wherez00_1371, obj_t BgL_errz00_1370, obj_t BgL_argz00_377, obj_t BgL_initializa7erza7_378)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 226 */
{ /* ./Llib/dsssl.scm 223 */
obj_t BgL_arg1091z00_380;obj_t BgL_arg1092z00_381;
BgL_arg1091z00_380 = BGl_symbol4574z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 223 */
obj_t BgL_arg1095z00_382;obj_t BgL_arg1096z00_383;
{ /* ./Llib/dsssl.scm 223 */
obj_t BgL_arg1099z00_384;
{ /* ./Llib/dsssl.scm 223 */
obj_t BgL_arg1103z00_386;
{ /* ./Llib/dsssl.scm 223 */
obj_t BgL_arg1106z00_387;
{ /* ./Llib/dsssl.scm 223 */
obj_t BgL_arg1110z00_389;obj_t BgL_arg1111z00_390;
BgL_arg1110z00_389 = BGl_symbol4587z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 224 */
obj_t BgL_arg1114z00_391;
{ /* ./Llib/dsssl.scm 224 */
obj_t BgL_arg1117z00_392;obj_t BgL_arg1118z00_393;
{ /* ./Llib/dsssl.scm 224 */
obj_t BgL_funz00_1556;
{ /* ./Llib/dsssl.scm 224 */
obj_t BgL_aux3163z00_1554;
BgL_aux3163z00_1554 = 
CELL_REF(BgL_symbolzd2ze3keywordz31_1374); 
if(
PROCEDUREP(BgL_aux3163z00_1554))
{ /* ./Llib/dsssl.scm 224 */
BgL_funz00_1556 = BgL_aux3163z00_1554; }  else 
{ /* ./Llib/dsssl.scm 224 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4588z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_aux3163z00_1554, BGl_string4558z00zz__dssslz00, 
BINT(((long)7323))); 
exit( -1 );} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1556, ((long)1)))
{ /* ./Llib/dsssl.scm 224 */
BgL_arg1117z00_392 = 
PROCEDURE_ENTRY(BgL_funz00_1556)(
CELL_REF(BgL_symbolzd2ze3keywordz31_1374), BgL_argz00_377, BEOA); }  else 
{ /* ./Llib/dsssl.scm 224 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4589z00zz__dssslz00, BGl_list4590z00zz__dssslz00, BgL_funz00_1556, BGl_string4558z00zz__dssslz00, 
BINT(((long)7323))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } 
BgL_arg1118z00_393 = 
MAKE_PAIR(BgL_initializa7erza7_378, BNIL); 
BgL_arg1114z00_391 = 
MAKE_PAIR(BgL_arg1117z00_392, BgL_arg1118z00_393); } 
BgL_arg1111z00_390 = 
MAKE_PAIR(BgL_dssslzd2argzd2_1375, BgL_arg1114z00_391); } 
BgL_arg1106z00_387 = 
MAKE_PAIR(BgL_arg1110z00_389, BgL_arg1111z00_390); } 
BgL_arg1103z00_386 = 
MAKE_PAIR(BgL_arg1106z00_387, BNIL); } 
BgL_arg1099z00_384 = 
MAKE_PAIR(BgL_argz00_377, BgL_arg1103z00_386); } 
BgL_arg1095z00_382 = 
MAKE_PAIR(BgL_arg1099z00_384, BNIL); } 
{ /* ./Llib/dsssl.scm 226 */
obj_t BgL_arg1123z00_394;
{ /* ./Llib/dsssl.scm 226 */
obj_t BgL_arg1127z00_396;
{ /* ./Llib/dsssl.scm 226 */
obj_t BgL_pairz00_1000;
if(
PAIRP(BgL_argsz00_1376))
{ /* ./Llib/dsssl.scm 226 */
BgL_pairz00_1000 = BgL_argsz00_1376; }  else 
{ /* ./Llib/dsssl.scm 226 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4588z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_1376, BGl_string4558z00zz__dssslz00, 
BINT(((long)7393))); 
exit( -1 );} 
BgL_arg1127z00_396 = 
CDR(BgL_pairz00_1000); } 
BgL_arg1123z00_394 = 
BGl_keyzd2statezd2zz__dssslz00(BgL_bodyz00_1373, BgL_formalsz00_1372, BgL_wherez00_1371, BgL_errz00_1370, BgL_symbolzd2ze3keywordz31_1374, BgL_arg1127z00_396, BgL_dssslzd2argzd2_1375); } 
BgL_arg1096z00_383 = 
MAKE_PAIR(BgL_arg1123z00_394, BNIL); } 
BgL_arg1092z00_381 = 
MAKE_PAIR(BgL_arg1095z00_382, BgL_arg1096z00_383); } 
return 
MAKE_PAIR(BgL_arg1091z00_380, BgL_arg1092z00_381);} } 
}



/* TAG-141 */
obj_t BGl_TAGzd2141zd2zz__dssslz00(obj_t BgL_argsz00_1383, obj_t BgL_dssslzd2argzd2_1382, obj_t BgL_bodyz00_1381, obj_t BgL_formalsz00_1380, obj_t BgL_wherez00_1379, obj_t BgL_errz00_1378, obj_t BgL_symbolzd2ze3keywordz31_1377, obj_t BgL_idz00_496)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 164 */
{ /* ./Llib/dsssl.scm 166 */
obj_t BgL_arg1310z00_501;obj_t BgL_arg1311z00_502;
BgL_arg1310z00_501 = BGl_symbol4574z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 166 */
obj_t BgL_arg1314z00_503;obj_t BgL_arg1315z00_504;
{ /* ./Llib/dsssl.scm 166 */
obj_t BgL_arg1318z00_505;
{ /* ./Llib/dsssl.scm 166 */
obj_t BgL_arg1322z00_507;
BgL_arg1322z00_507 = 
MAKE_PAIR(BgL_dssslzd2argzd2_1382, BNIL); 
BgL_arg1318z00_505 = 
MAKE_PAIR(BgL_idz00_496, BgL_arg1322z00_507); } 
BgL_arg1314z00_503 = 
MAKE_PAIR(BgL_arg1318z00_505, BNIL); } 
{ /* ./Llib/dsssl.scm 167 */
obj_t BgL_arg1326z00_508;
{ /* ./Llib/dsssl.scm 167 */
obj_t BgL_arg1330z00_510;
{ /* ./Llib/dsssl.scm 167 */
obj_t BgL_pairz00_1058;
if(
PAIRP(BgL_argsz00_1383))
{ /* ./Llib/dsssl.scm 167 */
BgL_pairz00_1058 = BgL_argsz00_1383; }  else 
{ /* ./Llib/dsssl.scm 167 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4595z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_1383, BGl_string4558z00zz__dssslz00, 
BINT(((long)5765))); 
exit( -1 );} 
BgL_arg1330z00_510 = 
CDR(BgL_pairz00_1058); } 
BgL_arg1326z00_508 = 
BGl_exitzd2restzd2statez00zz__dssslz00(BgL_bodyz00_1381, BgL_formalsz00_1380, BgL_wherez00_1379, BgL_errz00_1378, BgL_symbolzd2ze3keywordz31_1377, BgL_arg1330z00_510, BgL_dssslzd2argzd2_1382); } 
BgL_arg1315z00_504 = 
MAKE_PAIR(BgL_arg1326z00_508, BNIL); } 
BgL_arg1311z00_502 = 
MAKE_PAIR(BgL_arg1314z00_503, BgL_arg1315z00_504); } 
return 
MAKE_PAIR(BgL_arg1310z00_501, BgL_arg1311z00_502);} } 
}



/* exit-rest-state */
obj_t BGl_exitzd2restzd2statez00zz__dssslz00(obj_t BgL_bodyz00_1388, obj_t BgL_formalsz00_1387, obj_t BgL_wherez00_1386, obj_t BgL_errz00_1385, obj_t BgL_symbolzd2ze3keywordz31_1384, obj_t BgL_argsz00_484, obj_t BgL_dssslzd2argzd2_485)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 180 */
if(
NULLP(BgL_argsz00_484))
{ /* ./Llib/dsssl.scm 173 */
return BgL_bodyz00_1388;}  else 
{ /* ./Llib/dsssl.scm 175 */
bool_t BgL_test1288z00_488;
BgL_test1288z00_488 = 
PAIRP(BgL_argsz00_484); 
if(BgL_test1288z00_488)
{ /* ./Llib/dsssl.scm 177 */
bool_t BgL_test1289z00_489;
{ /* ./Llib/dsssl.scm 177 */
obj_t BgL_arg1296z00_491;
{ /* ./Llib/dsssl.scm 177 */
obj_t BgL_pairz00_1053;
if(BgL_test1288z00_488)
{ /* ./Llib/dsssl.scm 177 */
BgL_pairz00_1053 = BgL_argsz00_484; }  else 
{ /* ./Llib/dsssl.scm 177 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4596z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_484, BGl_string4558z00zz__dssslz00, 
BINT(((long)6051))); 
exit( -1 );} 
BgL_arg1296z00_491 = 
CAR(BgL_pairz00_1053); } 
BgL_test1289z00_489 = 
(BgL_arg1296z00_491==BCNST(262)); } 
if(BgL_test1289z00_489)
{ /* ./Llib/dsssl.scm 177 */
{ /* ./Llib/dsssl.scm 178 */
obj_t BgL_arg1291z00_490;
{ /* ./Llib/dsssl.scm 178 */
obj_t BgL_pairz00_1054;
if(
PAIRP(BgL_argsz00_484))
{ /* ./Llib/dsssl.scm 178 */
BgL_pairz00_1054 = BgL_argsz00_484; }  else 
{ /* ./Llib/dsssl.scm 178 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4596z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_484, BGl_string4558z00zz__dssslz00, 
BINT(((long)6088))); 
exit( -1 );} 
BgL_arg1291z00_490 = 
CDR(BgL_pairz00_1054); } 
return 
BGl_restzd2keyzd2statez00zz__dssslz00(BgL_bodyz00_1388, BgL_symbolzd2ze3keywordz31_1384, BgL_formalsz00_1387, BgL_wherez00_1386, BgL_errz00_1385, BgL_arg1291z00_490, BgL_dssslzd2argzd2_485);} }  else 
{ /* ./Llib/dsssl.scm 177 */
{ /* ./Llib/dsssl.scm 180 */
obj_t BgL_funz00_1569;
if(
PROCEDUREP(BgL_errz00_1385))
{ /* ./Llib/dsssl.scm 180 */
BgL_funz00_1569 = BgL_errz00_1385; }  else 
{ /* ./Llib/dsssl.scm 180 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4596z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1385, BGl_string4558z00zz__dssslz00, 
BINT(((long)6114))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1569, ((long)3)))
{ /* ./Llib/dsssl.scm 180 */
return 
PROCEDURE_ENTRY(BgL_funz00_1569)(BgL_errz00_1385, BgL_wherez00_1386, BGl_string4597z00zz__dssslz00, BgL_formalsz00_1387, BEOA);}  else 
{ /* ./Llib/dsssl.scm 180 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4598z00zz__dssslz00, BGl_list4599z00zz__dssslz00, BgL_funz00_1569, BGl_string4558z00zz__dssslz00, 
BINT(((long)6114))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } }  else 
{ /* ./Llib/dsssl.scm 175 */
{ /* ./Llib/dsssl.scm 176 */
obj_t BgL_funz00_1574;
if(
PROCEDUREP(BgL_errz00_1385))
{ /* ./Llib/dsssl.scm 176 */
BgL_funz00_1574 = BgL_errz00_1385; }  else 
{ /* ./Llib/dsssl.scm 176 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4596z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1385, BGl_string4558z00zz__dssslz00, 
BINT(((long)5977))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1574, ((long)3)))
{ /* ./Llib/dsssl.scm 176 */
return 
PROCEDURE_ENTRY(BgL_funz00_1574)(BgL_errz00_1385, BgL_wherez00_1386, BGl_string4597z00zz__dssslz00, BgL_formalsz00_1387, BEOA);}  else 
{ /* ./Llib/dsssl.scm 176 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4598z00zz__dssslz00, BGl_list4599z00zz__dssslz00, BgL_funz00_1574, BGl_string4558z00zz__dssslz00, 
BINT(((long)5977))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } } } 
}



/* rest-key-state */
obj_t BGl_restzd2keyzd2statez00zz__dssslz00(obj_t BgL_bodyz00_1393, obj_t BgL_symbolzd2ze3keywordz31_1392, obj_t BgL_formalsz00_1391, obj_t BgL_wherez00_1390, obj_t BgL_errz00_1389, obj_t BgL_argsz00_448, obj_t BgL_dssslzd2argzd2_449)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 200 */
{ /* ./Llib/dsssl.scm 184 */
bool_t BgL_test1215z00_451;
BgL_test1215z00_451 = 
NULLP(BgL_argsz00_448); 
if(BgL_test1215z00_451)
{ /* ./Llib/dsssl.scm 184 */
return BgL_bodyz00_1393;}  else 
{ /* ./Llib/dsssl.scm 184 */
{ /* ./Llib/dsssl.scm 187 */
obj_t BgL_keyzd2listzd2_452;
if(BgL_test1215z00_451)
{ /* ./Llib/dsssl.scm 187 */
BgL_keyzd2listzd2_452 = BNIL; }  else 
{ /* ./Llib/dsssl.scm 187 */
obj_t BgL_head1012z00_468;
BgL_head1012z00_468 = 
MAKE_PAIR(BNIL, BNIL); 
BgL_keyzd2listzd2_452 = 
BGl_map1011z00zz__dssslz00(BgL_symbolzd2ze3keywordz31_1392, BgL_head1012z00_468, BgL_argsz00_448, BgL_head1012z00_468); } 
{ /* ./Llib/dsssl.scm 198 */
obj_t BgL_arg1217z00_453;obj_t BgL_arg1218z00_454;
BgL_arg1217z00_453 = BGl_symbol4600z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 199 */
obj_t BgL_arg1221z00_455;obj_t BgL_arg1222z00_456;
{ /* ./Llib/dsssl.scm 199 */
obj_t BgL_arg1225z00_457;obj_t BgL_arg1227z00_458;
BgL_arg1225z00_457 = BGl_symbol4601z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 199 */
obj_t BgL_arg1230z00_459;
{ /* ./Llib/dsssl.scm 199 */
obj_t BgL_arg1233z00_460;
{ /* ./Llib/dsssl.scm 199 */
obj_t BgL_arg1237z00_462;obj_t BgL_arg1238z00_463;
BgL_arg1237z00_462 = BGl_symbol4573z00zz__dssslz00; 
BgL_arg1238z00_463 = 
MAKE_PAIR(BgL_keyzd2listzd2_452, BNIL); 
BgL_arg1233z00_460 = 
MAKE_PAIR(BgL_arg1237z00_462, BgL_arg1238z00_463); } 
BgL_arg1230z00_459 = 
MAKE_PAIR(BgL_arg1233z00_460, BNIL); } 
BgL_arg1227z00_458 = 
MAKE_PAIR(BgL_dssslzd2argzd2_449, BgL_arg1230z00_459); } 
BgL_arg1221z00_455 = 
MAKE_PAIR(BgL_arg1225z00_457, BgL_arg1227z00_458); } 
{ /* ./Llib/dsssl.scm 198 */
obj_t BgL_auxz00_2610;
BgL_auxz00_2610 = 
BGl_keyzd2statezd2zz__dssslz00(BgL_bodyz00_1393, BgL_formalsz00_1391, BgL_wherez00_1390, BgL_errz00_1389, BgL_symbolzd2ze3keywordz31_1392, BgL_argsz00_448, BgL_dssslzd2argzd2_449); 
BgL_arg1222z00_456 = 
MAKE_PAIR(BgL_auxz00_2610, BNIL); } 
BgL_arg1218z00_454 = 
MAKE_PAIR(BgL_arg1221z00_455, BgL_arg1222z00_456); } 
return 
MAKE_PAIR(BgL_arg1217z00_453, BgL_arg1218z00_454);} } } } } 
}



/* map1011 */
obj_t BGl_map1011z00zz__dssslz00(obj_t BgL_symbolzd2ze3keywordz31_1395, obj_t BgL_head1012z00_1394, obj_t BgL_l1010z00_469, obj_t BgL_tail1013z00_470)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 187 */
BGl_map1011z00zz__dssslz00:
{ /* ./Llib/dsssl.scm 187 */
bool_t BgL_test1249z00_472;
BgL_test1249z00_472 = 
PAIRP(BgL_l1010z00_469); 
if(BgL_test1249z00_472)
{ /* ./Llib/dsssl.scm 187 */
{ /* ./Llib/dsssl.scm 189 */
obj_t BgL_newtail1014z00_473;
{ /* ./Llib/dsssl.scm 189 */
obj_t BgL_arg1256z00_475;
{ /* ./Llib/dsssl.scm 189 */
obj_t BgL_xz00_477;
{ /* ./Llib/dsssl.scm 189 */
obj_t BgL_pairz00_1032;
if(BgL_test1249z00_472)
{ /* ./Llib/dsssl.scm 189 */
BgL_pairz00_1032 = BgL_l1010z00_469; }  else 
{ /* ./Llib/dsssl.scm 189 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4602z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_l1010z00_469, BGl_string4558z00zz__dssslz00, 
BINT(((long)6321))); 
exit( -1 );} 
BgL_xz00_477 = 
CAR(BgL_pairz00_1032); } 
{ /* ./Llib/dsssl.scm 189 */
bool_t BgL_test1260z00_478;
{ /* ./Llib/dsssl.scm 189 */
bool_t BgL_test1270z00_481;
BgL_test1270z00_481 = 
PAIRP(BgL_xz00_477); 
if(BgL_test1270z00_481)
{ /* ./Llib/dsssl.scm 189 */
obj_t BgL_arg1273z00_482;
{ /* ./Llib/dsssl.scm 189 */
obj_t BgL_pairz00_1034;
if(BgL_test1270z00_481)
{ /* ./Llib/dsssl.scm 189 */
BgL_pairz00_1034 = BgL_xz00_477; }  else 
{ /* ./Llib/dsssl.scm 189 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4602z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_xz00_477, BGl_string4558z00zz__dssslz00, 
BINT(((long)6350))); 
exit( -1 );} 
BgL_arg1273z00_482 = 
CAR(BgL_pairz00_1034); } 
BgL_test1260z00_478 = 
SYMBOLP(BgL_arg1273z00_482); }  else 
{ /* ./Llib/dsssl.scm 189 */
BgL_test1260z00_478 = ((bool_t)0); } } 
if(BgL_test1260z00_478)
{ /* ./Llib/dsssl.scm 189 */
{ /* ./Llib/dsssl.scm 190 */
obj_t BgL_arg1262z00_479;
{ /* ./Llib/dsssl.scm 190 */
obj_t BgL_pairz00_1036;
if(
PAIRP(BgL_xz00_477))
{ /* ./Llib/dsssl.scm 190 */
BgL_pairz00_1036 = BgL_xz00_477; }  else 
{ /* ./Llib/dsssl.scm 190 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4602z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_xz00_477, BGl_string4558z00zz__dssslz00, 
BINT(((long)6387))); 
exit( -1 );} 
BgL_arg1262z00_479 = 
CAR(BgL_pairz00_1036); } 
{ /* ./Llib/dsssl.scm 190 */
obj_t BgL_funz00_1585;
{ /* ./Llib/dsssl.scm 190 */
obj_t BgL_aux3286z00_1583;
BgL_aux3286z00_1583 = 
CELL_REF(BgL_symbolzd2ze3keywordz31_1395); 
if(
PROCEDUREP(BgL_aux3286z00_1583))
{ /* ./Llib/dsssl.scm 190 */
BgL_funz00_1585 = BgL_aux3286z00_1583; }  else 
{ /* ./Llib/dsssl.scm 190 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4602z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_aux3286z00_1583, BGl_string4558z00zz__dssslz00, 
BINT(((long)6365))); 
exit( -1 );} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1585, ((long)1)))
{ /* ./Llib/dsssl.scm 190 */
BgL_arg1256z00_475 = 
PROCEDURE_ENTRY(BgL_funz00_1585)(
CELL_REF(BgL_symbolzd2ze3keywordz31_1395), BgL_arg1262z00_479, BEOA); }  else 
{ /* ./Llib/dsssl.scm 190 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4603z00zz__dssslz00, BGl_list4604z00zz__dssslz00, BgL_funz00_1585, BGl_string4558z00zz__dssslz00, 
BINT(((long)6365))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } }  else 
{ /* ./Llib/dsssl.scm 189 */
if(
SYMBOLP(BgL_xz00_477))
{ /* ./Llib/dsssl.scm 191 */
{ /* ./Llib/dsssl.scm 192 */
obj_t BgL_funz00_1590;
{ /* ./Llib/dsssl.scm 192 */
obj_t BgL_aux3303z00_1588;
BgL_aux3303z00_1588 = 
CELL_REF(BgL_symbolzd2ze3keywordz31_1395); 
if(
PROCEDUREP(BgL_aux3303z00_1588))
{ /* ./Llib/dsssl.scm 192 */
BgL_funz00_1590 = BgL_aux3303z00_1588; }  else 
{ /* ./Llib/dsssl.scm 192 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4602z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_aux3303z00_1588, BGl_string4558z00zz__dssslz00, 
BINT(((long)6424))); 
exit( -1 );} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1590, ((long)1)))
{ /* ./Llib/dsssl.scm 192 */
BgL_arg1256z00_475 = 
PROCEDURE_ENTRY(BgL_funz00_1590)(
CELL_REF(BgL_symbolzd2ze3keywordz31_1395), BgL_xz00_477, BEOA); }  else 
{ /* ./Llib/dsssl.scm 192 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4603z00zz__dssslz00, BGl_list4606z00zz__dssslz00, BgL_funz00_1590, BGl_string4558z00zz__dssslz00, 
BINT(((long)6424))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } }  else 
{ /* ./Llib/dsssl.scm 191 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4608z00zz__dssslz00, BGl_string4609z00zz__dssslz00, BgL_xz00_477, "./Llib/dsssl.scm", ((long)6470)); 
BgL_arg1256z00_475 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4558z00zz__dssslz00, 
BINT(((long)6470))); } } } } 
BgL_newtail1014z00_473 = 
MAKE_PAIR(BgL_arg1256z00_475, BNIL); } 
SET_CDR(BgL_tail1013z00_470, BgL_newtail1014z00_473); 
{ /* ./Llib/dsssl.scm 187 */
obj_t BgL_arg1252z00_474;
{ /* ./Llib/dsssl.scm 187 */
obj_t BgL_pairz00_1045;
if(
PAIRP(BgL_l1010z00_469))
{ /* ./Llib/dsssl.scm 187 */
BgL_pairz00_1045 = BgL_l1010z00_469; }  else 
{ /* ./Llib/dsssl.scm 187 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4602z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_l1010z00_469, BGl_string4558z00zz__dssslz00, 
BINT(((long)6282))); 
exit( -1 );} 
BgL_arg1252z00_474 = 
CDR(BgL_pairz00_1045); } 
{ 
obj_t BgL_tail1013z00_2675;obj_t BgL_l1010z00_2674;
BgL_l1010z00_2674 = BgL_arg1252z00_474; 
BgL_tail1013z00_2675 = BgL_newtail1014z00_473; 
BgL_tail1013z00_470 = BgL_tail1013z00_2675; 
BgL_l1010z00_469 = BgL_l1010z00_2674; 
goto BGl_map1011z00zz__dssslz00;} } } }  else 
{ /* ./Llib/dsssl.scm 187 */
if(
NULLP(BgL_l1010z00_469))
{ /* ./Llib/dsssl.scm 187 */
return 
CDR(BgL_head1012z00_1394);}  else 
{ /* ./Llib/dsssl.scm 187 */
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string4610z00zz__dssslz00, BGl_string4611z00zz__dssslz00, BgL_l1010z00_469, BGl_string4558z00zz__dssslz00, 
BINT(((long)6282)));} } } } 
}



/* no-rest-key-state */
obj_t BGl_nozd2restzd2keyzd2statezd2zz__dssslz00(obj_t BgL_envz00_1396, obj_t BgL_argsz00_1402, obj_t BgL_dssslzd2argzd2_1403)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 212 */
{ /* ./Llib/dsssl.scm 212 */
obj_t BgL_errz00_1397;obj_t BgL_wherez00_1398;obj_t BgL_formalsz00_1399;obj_t BgL_symbolzd2ze3keywordz31_1400;obj_t BgL_bodyz00_1401;
{ /* ./Llib/dsssl.scm 212 */
int BgL_auxz00_2681;
BgL_auxz00_2681 = 
(int)(((long)0)); 
BgL_errz00_1397 = 
PROCEDURE_REF(BgL_envz00_1396, BgL_auxz00_2681); } 
{ /* ./Llib/dsssl.scm 212 */
int BgL_auxz00_2684;
BgL_auxz00_2684 = 
(int)(((long)1)); 
BgL_wherez00_1398 = 
PROCEDURE_REF(BgL_envz00_1396, BgL_auxz00_2684); } 
{ /* ./Llib/dsssl.scm 212 */
int BgL_auxz00_2687;
BgL_auxz00_2687 = 
(int)(((long)2)); 
BgL_formalsz00_1399 = 
PROCEDURE_REF(BgL_envz00_1396, BgL_auxz00_2687); } 
{ /* ./Llib/dsssl.scm 212 */
int BgL_auxz00_2690;
BgL_auxz00_2690 = 
(int)(((long)3)); 
BgL_symbolzd2ze3keywordz31_1400 = 
PROCEDURE_REF(BgL_envz00_1396, BgL_auxz00_2690); } 
{ /* ./Llib/dsssl.scm 212 */
int BgL_auxz00_2693;
BgL_auxz00_2693 = 
(int)(((long)4)); 
BgL_bodyz00_1401 = 
PROCEDURE_REF(BgL_envz00_1396, BgL_auxz00_2693); } 
{ 
obj_t BgL_argsz00_398;obj_t BgL_dssslzd2argzd2_399;
BgL_argsz00_398 = BgL_argsz00_1402; 
BgL_dssslzd2argzd2_399 = BgL_dssslzd2argzd2_1403; 
{ 
obj_t BgL_argsz00_418;
if(
NULLP(BgL_argsz00_398))
{ /* ./Llib/dsssl.scm 214 */
return BgL_bodyz00_1401;}  else 
{ /* ./Llib/dsssl.scm 214 */
{ /* ./Llib/dsssl.scm 217 */
obj_t BgL_arg1133z00_403;obj_t BgL_arg1134z00_404;
BgL_arg1133z00_403 = BGl_symbol4600z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 218 */
obj_t BgL_arg1137z00_405;obj_t BgL_arg1138z00_406;
{ /* ./Llib/dsssl.scm 218 */
obj_t BgL_arg1141z00_407;obj_t BgL_arg1142z00_408;
BgL_arg1141z00_407 = BGl_symbol4601z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 218 */
obj_t BgL_arg1146z00_409;
{ /* ./Llib/dsssl.scm 218 */
obj_t BgL_arg1149z00_410;
{ /* ./Llib/dsssl.scm 218 */
obj_t BgL_arg1153z00_412;obj_t BgL_arg1154z00_413;
BgL_arg1153z00_412 = BGl_symbol4573z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 218 */
obj_t BgL_auxz00_2698;
BgL_argsz00_418 = BgL_argsz00_398; 
if(
NULLP(BgL_argsz00_418))
{ /* ./Llib/dsssl.scm 204 */
BgL_auxz00_2698 = BNIL
; }  else 
{ /* ./Llib/dsssl.scm 204 */
obj_t BgL_head1017z00_422;
BgL_head1017z00_422 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1015z00_423;obj_t BgL_tail1018z00_424;
BgL_l1015z00_423 = BgL_argsz00_418; 
BgL_tail1018z00_424 = BgL_head1017z00_422; 
BgL_map1016z00_425:
{ /* ./Llib/dsssl.scm 204 */
bool_t BgL_test1172z00_426;
BgL_test1172z00_426 = 
PAIRP(BgL_l1015z00_423); 
if(BgL_test1172z00_426)
{ /* ./Llib/dsssl.scm 204 */
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_newtail1019z00_427;
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_arg1179z00_429;
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_argz00_431;
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_pairz00_1006;
if(BgL_test1172z00_426)
{ /* ./Llib/dsssl.scm 205 */
BgL_pairz00_1006 = BgL_l1015z00_423; }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4612z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_l1015z00_423, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
exit( -1 );} 
BgL_argz00_431 = 
CAR(BgL_pairz00_1006); } 
if(
SYMBOLP(BgL_argz00_431))
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_funz00_1599;
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_aux3356z00_1597;
BgL_aux3356z00_1597 = 
CELL_REF(BgL_symbolzd2ze3keywordz31_1400); 
if(
PROCEDUREP(BgL_aux3356z00_1597))
{ /* ./Llib/dsssl.scm 205 */
BgL_funz00_1599 = BgL_aux3356z00_1597; }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4612z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_aux3356z00_1597, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
exit( -1 );} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1599, ((long)1)))
{ /* ./Llib/dsssl.scm 205 */
BgL_arg1179z00_429 = 
PROCEDURE_ENTRY(BgL_funz00_1599)(
CELL_REF(BgL_symbolzd2ze3keywordz31_1400), BgL_argz00_431, BEOA); }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4613z00zz__dssslz00, BGl_list4590z00zz__dssslz00, BgL_funz00_1599, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} }  else 
{ /* ./Llib/dsssl.scm 205 */
bool_t BgL_test1184z00_439;
BgL_test1184z00_439 = 
PAIRP(BgL_argz00_431); 
if(BgL_test1184z00_439)
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_carzd2158zd2_440;obj_t BgL_cdrzd2159zd2_441;
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_pairz00_1010;
if(BgL_test1184z00_439)
{ /* ./Llib/dsssl.scm 205 */
BgL_pairz00_1010 = BgL_argz00_431; }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4612z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argz00_431, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
exit( -1 );} 
BgL_carzd2158zd2_440 = 
CAR(BgL_pairz00_1010); } 
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_pairz00_1011;
if(BgL_test1184z00_439)
{ /* ./Llib/dsssl.scm 205 */
BgL_pairz00_1011 = BgL_argz00_431; }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4612z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argz00_431, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
exit( -1 );} 
BgL_cdrzd2159zd2_441 = 
CDR(BgL_pairz00_1011); } 
if(
SYMBOLP(BgL_carzd2158zd2_440))
{ /* ./Llib/dsssl.scm 205 */
bool_t BgL_test1186z00_443;
BgL_test1186z00_443 = 
PAIRP(BgL_cdrzd2159zd2_441); 
if(BgL_test1186z00_443)
{ /* ./Llib/dsssl.scm 205 */
bool_t BgL_test1187z00_444;
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_arg1191z00_445;
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_pairz00_1014;
if(BgL_test1186z00_443)
{ /* ./Llib/dsssl.scm 205 */
BgL_pairz00_1014 = BgL_cdrzd2159zd2_441; }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4612z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_cdrzd2159zd2_441, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
exit( -1 );} 
BgL_arg1191z00_445 = 
CDR(BgL_pairz00_1014); } 
BgL_test1187z00_444 = 
NULLP(BgL_arg1191z00_445); } 
if(BgL_test1187z00_444)
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_funz00_1610;
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_aux3403z00_1608;
BgL_aux3403z00_1608 = 
CELL_REF(BgL_symbolzd2ze3keywordz31_1400); 
if(
PROCEDUREP(BgL_aux3403z00_1608))
{ /* ./Llib/dsssl.scm 205 */
BgL_funz00_1610 = BgL_aux3403z00_1608; }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4612z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_aux3403z00_1608, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
exit( -1 );} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1610, ((long)1)))
{ /* ./Llib/dsssl.scm 205 */
BgL_arg1179z00_429 = 
PROCEDURE_ENTRY(BgL_funz00_1610)(
CELL_REF(BgL_symbolzd2ze3keywordz31_1400), BgL_carzd2158zd2_440, BEOA); }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4613z00zz__dssslz00, BGl_list4590z00zz__dssslz00, BgL_funz00_1610, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} }  else 
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_funz00_1615;
if(
PROCEDUREP(BgL_errz00_1397))
{ /* ./Llib/dsssl.scm 205 */
BgL_funz00_1615 = BgL_errz00_1397; }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4612z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1397, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1615, ((long)3)))
{ /* ./Llib/dsssl.scm 205 */
BgL_arg1179z00_429 = 
PROCEDURE_ENTRY(BgL_funz00_1615)(BgL_errz00_1397, BgL_wherez00_1398, BGl_string4584z00zz__dssslz00, BgL_formalsz00_1399, BEOA); }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4613z00zz__dssslz00, BGl_list4586z00zz__dssslz00, BgL_funz00_1615, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } }  else 
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_funz00_1620;
if(
PROCEDUREP(BgL_errz00_1397))
{ /* ./Llib/dsssl.scm 205 */
BgL_funz00_1620 = BgL_errz00_1397; }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4612z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1397, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1620, ((long)3)))
{ /* ./Llib/dsssl.scm 205 */
BgL_arg1179z00_429 = 
PROCEDURE_ENTRY(BgL_funz00_1620)(BgL_errz00_1397, BgL_wherez00_1398, BGl_string4584z00zz__dssslz00, BgL_formalsz00_1399, BEOA); }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4613z00zz__dssslz00, BGl_list4586z00zz__dssslz00, BgL_funz00_1620, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } }  else 
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_funz00_1625;
if(
PROCEDUREP(BgL_errz00_1397))
{ /* ./Llib/dsssl.scm 205 */
BgL_funz00_1625 = BgL_errz00_1397; }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4612z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1397, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1625, ((long)3)))
{ /* ./Llib/dsssl.scm 205 */
BgL_arg1179z00_429 = 
PROCEDURE_ENTRY(BgL_funz00_1625)(BgL_errz00_1397, BgL_wherez00_1398, BGl_string4584z00zz__dssslz00, BgL_formalsz00_1399, BEOA); }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4613z00zz__dssslz00, BGl_list4586z00zz__dssslz00, BgL_funz00_1625, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } }  else 
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_funz00_1630;
if(
PROCEDUREP(BgL_errz00_1397))
{ /* ./Llib/dsssl.scm 205 */
BgL_funz00_1630 = BgL_errz00_1397; }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4612z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1397, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1630, ((long)3)))
{ /* ./Llib/dsssl.scm 205 */
BgL_arg1179z00_429 = 
PROCEDURE_ENTRY(BgL_funz00_1630)(BgL_errz00_1397, BgL_wherez00_1398, BGl_string4584z00zz__dssslz00, BgL_formalsz00_1399, BEOA); }  else 
{ /* ./Llib/dsssl.scm 205 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4613z00zz__dssslz00, BGl_list4586z00zz__dssslz00, BgL_funz00_1630, BGl_string4558z00zz__dssslz00, 
BINT(((long)6786))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } } 
BgL_newtail1019z00_427 = 
MAKE_PAIR(BgL_arg1179z00_429, BNIL); } 
SET_CDR(BgL_tail1018z00_424, BgL_newtail1019z00_427); 
{ /* ./Llib/dsssl.scm 204 */
obj_t BgL_arg1175z00_428;
{ /* ./Llib/dsssl.scm 204 */
obj_t BgL_pairz00_1021;
if(
PAIRP(BgL_l1015z00_423))
{ /* ./Llib/dsssl.scm 204 */
BgL_pairz00_1021 = BgL_l1015z00_423; }  else 
{ /* ./Llib/dsssl.scm 204 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4612z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_l1015z00_423, BGl_string4558z00zz__dssslz00, 
BINT(((long)6764))); 
exit( -1 );} 
BgL_arg1175z00_428 = 
CDR(BgL_pairz00_1021); } 
{ 
obj_t BgL_tail1018z00_2815;obj_t BgL_l1015z00_2814;
BgL_l1015z00_2814 = BgL_arg1175z00_428; 
BgL_tail1018z00_2815 = BgL_newtail1019z00_427; 
BgL_tail1018z00_424 = BgL_tail1018z00_2815; 
BgL_l1015z00_423 = BgL_l1015z00_2814; 
goto BgL_map1016z00_425;} } } }  else 
{ /* ./Llib/dsssl.scm 204 */
if(
NULLP(BgL_l1015z00_423))
{ /* ./Llib/dsssl.scm 204 */
BgL_auxz00_2698 = 
CDR(BgL_head1017z00_422); }  else 
{ /* ./Llib/dsssl.scm 204 */
BgL_auxz00_2698 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string4610z00zz__dssslz00, BGl_string4611z00zz__dssslz00, BgL_l1015z00_423, BGl_string4558z00zz__dssslz00, 
BINT(((long)6764))); } } } } } 
BgL_arg1154z00_413 = 
MAKE_PAIR(BgL_auxz00_2698, BNIL); } 
BgL_arg1149z00_410 = 
MAKE_PAIR(BgL_arg1153z00_412, BgL_arg1154z00_413); } 
BgL_arg1146z00_409 = 
MAKE_PAIR(BgL_arg1149z00_410, BNIL); } 
BgL_arg1142z00_408 = 
MAKE_PAIR(BgL_dssslzd2argzd2_399, BgL_arg1146z00_409); } 
BgL_arg1137z00_405 = 
MAKE_PAIR(BgL_arg1141z00_407, BgL_arg1142z00_408); } 
{ /* ./Llib/dsssl.scm 217 */
obj_t BgL_auxz00_2826;
BgL_auxz00_2826 = 
BGl_keyzd2statezd2zz__dssslz00(BgL_bodyz00_1401, BgL_formalsz00_1399, BgL_wherez00_1398, BgL_errz00_1397, BgL_symbolzd2ze3keywordz31_1400, BgL_argsz00_398, BgL_dssslzd2argzd2_399); 
BgL_arg1138z00_406 = 
MAKE_PAIR(BgL_auxz00_2826, BNIL); } 
BgL_arg1134z00_404 = 
MAKE_PAIR(BgL_arg1137z00_405, BgL_arg1138z00_406); } 
return 
MAKE_PAIR(BgL_arg1133z00_403, BgL_arg1134z00_404);} } } } } } 
}



/* rest-state */
obj_t BGl_restzd2statezd2zz__dssslz00(obj_t BgL_envz00_1404, obj_t BgL_argsz00_1410, obj_t BgL_dssslzd2argzd2_1411)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 169 */
{ /* ./Llib/dsssl.scm 161 */
obj_t BgL_symbolzd2ze3keywordz31_1405;obj_t BgL_bodyz00_1406;obj_t BgL_errz00_1407;obj_t BgL_wherez00_1408;obj_t BgL_formalsz00_1409;
{ /* ./Llib/dsssl.scm 161 */
int BgL_auxz00_2831;
BgL_auxz00_2831 = 
(int)(((long)0)); 
BgL_symbolzd2ze3keywordz31_1405 = 
PROCEDURE_REF(BgL_envz00_1404, BgL_auxz00_2831); } 
{ /* ./Llib/dsssl.scm 161 */
int BgL_auxz00_2834;
BgL_auxz00_2834 = 
(int)(((long)1)); 
BgL_bodyz00_1406 = 
PROCEDURE_REF(BgL_envz00_1404, BgL_auxz00_2834); } 
{ /* ./Llib/dsssl.scm 161 */
int BgL_auxz00_2837;
BgL_auxz00_2837 = 
(int)(((long)2)); 
BgL_errz00_1407 = 
PROCEDURE_REF(BgL_envz00_1404, BgL_auxz00_2837); } 
{ /* ./Llib/dsssl.scm 161 */
int BgL_auxz00_2840;
BgL_auxz00_2840 = 
(int)(((long)3)); 
BgL_wherez00_1408 = 
PROCEDURE_REF(BgL_envz00_1404, BgL_auxz00_2840); } 
{ /* ./Llib/dsssl.scm 161 */
int BgL_auxz00_2843;
BgL_auxz00_2843 = 
(int)(((long)4)); 
BgL_formalsz00_1409 = 
PROCEDURE_REF(BgL_envz00_1404, BgL_auxz00_2843); } 
{ 
obj_t BgL_argsz00_492;obj_t BgL_dssslzd2argzd2_493;
BgL_argsz00_492 = BgL_argsz00_1410; 
BgL_dssslzd2argzd2_493 = BgL_dssslzd2argzd2_1411; 
{ /* ./Llib/dsssl.scm 161 */
bool_t BgL_test1303z00_495;
BgL_test1303z00_495 = 
PAIRP(BgL_argsz00_492); 
if(BgL_test1303z00_495)
{ /* ./Llib/dsssl.scm 161 */
{ 

{ /* ./Llib/dsssl.scm 164 */
obj_t BgL_ezd2143zd2_499;
{ /* ./Llib/dsssl.scm 164 */
obj_t BgL_pairz00_1056;
if(BgL_test1303z00_495)
{ /* ./Llib/dsssl.scm 164 */
BgL_pairz00_1056 = BgL_argsz00_492; }  else 
{ /* ./Llib/dsssl.scm 164 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4614z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_492, BGl_string4558z00zz__dssslz00, 
BINT(((long)5671))); 
exit( -1 );} 
BgL_ezd2143zd2_499 = 
CAR(BgL_pairz00_1056); } 
if(
SYMBOLP(BgL_ezd2143zd2_499))
{ /* ./Llib/dsssl.scm 164 */
return 
BGl_TAGzd2141zd2zz__dssslz00(BgL_argsz00_492, BgL_dssslzd2argzd2_493, BgL_bodyz00_1406, BgL_formalsz00_1409, BgL_wherez00_1408, BgL_errz00_1407, BgL_symbolzd2ze3keywordz31_1405, BgL_ezd2143zd2_499);}  else 
{ /* ./Llib/dsssl.scm 164 */
BGl_errorzf2czd2locationz20zz__errorz00(BgL_wherez00_1408, BGl_string4597z00zz__dssslz00, BgL_formalsz00_1409, "./Llib/dsssl.scm", ((long)5800)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4558z00zz__dssslz00, 
BINT(((long)5651)));} } } }  else 
{ /* ./Llib/dsssl.scm 161 */
{ /* ./Llib/dsssl.scm 162 */
obj_t BgL_funz00_1639;
if(
PROCEDUREP(BgL_errz00_1407))
{ /* ./Llib/dsssl.scm 162 */
BgL_funz00_1639 = BgL_errz00_1407; }  else 
{ /* ./Llib/dsssl.scm 162 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4614z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1407, BGl_string4558z00zz__dssslz00, 
BINT(((long)5582))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1639, ((long)3)))
{ /* ./Llib/dsssl.scm 162 */
return 
PROCEDURE_ENTRY(BgL_funz00_1639)(BgL_errz00_1407, BgL_wherez00_1408, BGl_string4597z00zz__dssslz00, BgL_formalsz00_1409, BEOA);}  else 
{ /* ./Llib/dsssl.scm 162 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4615z00zz__dssslz00, BGl_list4599z00zz__dssslz00, BgL_funz00_1639, BGl_string4558z00zz__dssslz00, 
BINT(((long)5582))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } } } } } 
}



/* optional-state */
obj_t BGl_optionalzd2statezd2zz__dssslz00(obj_t BgL_envz00_1412, obj_t BgL_argsz00_1420, obj_t BgL_dssslzd2argzd2_1421)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 121 */
{ /* ./Llib/dsssl.scm 121 */
obj_t BgL_symbolzd2ze3keywordz31_1413;obj_t BgL_errz00_1414;obj_t BgL_wherez00_1415;obj_t BgL_formalsz00_1416;obj_t BgL_restzd2statezd2_1417;obj_t BgL_nozd2restzd2keyzd2statezd2_1418;obj_t BgL_bodyz00_1419;
{ /* ./Llib/dsssl.scm 121 */
int BgL_auxz00_2871;
BgL_auxz00_2871 = 
(int)(((long)0)); 
BgL_symbolzd2ze3keywordz31_1413 = 
PROCEDURE_REF(BgL_envz00_1412, BgL_auxz00_2871); } 
{ /* ./Llib/dsssl.scm 121 */
int BgL_auxz00_2874;
BgL_auxz00_2874 = 
(int)(((long)1)); 
BgL_errz00_1414 = 
PROCEDURE_REF(BgL_envz00_1412, BgL_auxz00_2874); } 
{ /* ./Llib/dsssl.scm 121 */
int BgL_auxz00_2877;
BgL_auxz00_2877 = 
(int)(((long)2)); 
BgL_wherez00_1415 = 
PROCEDURE_REF(BgL_envz00_1412, BgL_auxz00_2877); } 
{ /* ./Llib/dsssl.scm 121 */
int BgL_auxz00_2880;
BgL_auxz00_2880 = 
(int)(((long)3)); 
BgL_formalsz00_1416 = 
PROCEDURE_REF(BgL_envz00_1412, BgL_auxz00_2880); } 
{ /* ./Llib/dsssl.scm 121 */
int BgL_auxz00_2883;
BgL_auxz00_2883 = 
(int)(((long)4)); 
BgL_restzd2statezd2_1417 = 
PROCEDURE_REF(BgL_envz00_1412, BgL_auxz00_2883); } 
{ /* ./Llib/dsssl.scm 121 */
int BgL_auxz00_2886;
BgL_auxz00_2886 = 
(int)(((long)5)); 
BgL_nozd2restzd2keyzd2statezd2_1418 = 
PROCEDURE_REF(BgL_envz00_1412, BgL_auxz00_2886); } 
{ /* ./Llib/dsssl.scm 121 */
int BgL_auxz00_2889;
BgL_auxz00_2889 = 
(int)(((long)6)); 
BgL_bodyz00_1419 = 
PROCEDURE_REF(BgL_envz00_1412, BgL_auxz00_2889); } 
return 
BGl_optionalzd2statez72za0zz__dssslz00(BgL_bodyz00_1419, BgL_nozd2restzd2keyzd2statezd2_1418, BgL_restzd2statezd2_1417, BgL_formalsz00_1416, BgL_wherez00_1415, BgL_errz00_1414, BgL_symbolzd2ze3keywordz31_1413, BgL_argsz00_1420, BgL_dssslzd2argzd2_1421);} } 
}



/* optional-state' */
obj_t BGl_optionalzd2statez72za0zz__dssslz00(obj_t BgL_bodyz00_1441, obj_t BgL_nozd2restzd2keyzd2statezd2_1440, obj_t BgL_restzd2statezd2_1439, obj_t BgL_formalsz00_1438, obj_t BgL_wherez00_1437, obj_t BgL_errz00_1436, obj_t BgL_symbolzd2ze3keywordz31_1435, obj_t BgL_argsz00_511, obj_t BgL_dssslzd2argzd2_512)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 121 */
{ /* ./Llib/dsssl.scm 134 */
obj_t BgL_keywordzd2argumentszd2_515;
BgL_keywordzd2argumentszd2_515 = BUNSPEC; 
{ 
obj_t BgL_argsz00_612;obj_t BgL_argz00_550;obj_t BgL_initializa7erza7_551;
BgL_argsz00_612 = BgL_argsz00_511; 
{ 
obj_t BgL_argsz00_614;
BgL_argsz00_614 = BgL_argsz00_612; 
BgL_loopz00_615:
{ /* ./Llib/dsssl.scm 102 */
bool_t BgL_test1548z00_616;
BgL_test1548z00_616 = 
PAIRP(BgL_argsz00_614); 
if(BgL_test1548z00_616)
{ /* ./Llib/dsssl.scm 104 */
bool_t BgL_test1549z00_617;
{ /* ./Llib/dsssl.scm 104 */
obj_t BgL_arg1617z00_645;
{ /* ./Llib/dsssl.scm 104 */
obj_t BgL_pairz00_1093;
if(BgL_test1548z00_616)
{ /* ./Llib/dsssl.scm 104 */
BgL_pairz00_1093 = BgL_argsz00_614; }  else 
{ /* ./Llib/dsssl.scm 104 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_614, BGl_string4558z00zz__dssslz00, 
BINT(((long)3843))); 
exit( -1 );} 
BgL_arg1617z00_645 = 
CAR(BgL_pairz00_1093); } 
BgL_test1549z00_617 = 
(BgL_arg1617z00_645==BCNST(262)); } 
if(BgL_test1549z00_617)
{ /* ./Llib/dsssl.scm 104 */
{ 
obj_t BgL_argsz00_618;obj_t BgL_resz00_619;
{ /* ./Llib/dsssl.scm 105 */
obj_t BgL_arg1551z00_621;
{ /* ./Llib/dsssl.scm 105 */
obj_t BgL_pairz00_1094;
if(
PAIRP(BgL_argsz00_614))
{ /* ./Llib/dsssl.scm 105 */
BgL_pairz00_1094 = BgL_argsz00_614; }  else 
{ /* ./Llib/dsssl.scm 105 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_614, BGl_string4558z00zz__dssslz00, 
BINT(((long)3881))); 
exit( -1 );} 
BgL_arg1551z00_621 = 
CDR(BgL_pairz00_1094); } 
BgL_argsz00_618 = BgL_arg1551z00_621; 
BgL_resz00_619 = BNIL; 
BgL_loopz00_620:
{ /* ./Llib/dsssl.scm 108 */
bool_t BgL_test1555z00_623;
{ /* ./Llib/dsssl.scm 108 */
bool_t BgL_test1588z00_634;
BgL_test1588z00_634 = 
PAIRP(BgL_argsz00_618); 
if(BgL_test1588z00_634)
{ /* ./Llib/dsssl.scm 109 */
bool_t BgL_test1589z00_635;
{ /* ./Llib/dsssl.scm 109 */
bool_t BgL_test1602z00_641;
{ /* ./Llib/dsssl.scm 109 */
obj_t BgL_arg1608z00_643;
{ /* ./Llib/dsssl.scm 109 */
obj_t BgL_pairz00_1096;
if(BgL_test1588z00_634)
{ /* ./Llib/dsssl.scm 109 */
BgL_pairz00_1096 = BgL_argsz00_618; }  else 
{ /* ./Llib/dsssl.scm 109 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_618, BGl_string4558z00zz__dssslz00, 
BINT(((long)3975))); 
exit( -1 );} 
BgL_arg1608z00_643 = 
CAR(BgL_pairz00_1096); } 
BgL_test1602z00_641 = 
PAIRP(BgL_arg1608z00_643); } 
if(BgL_test1602z00_641)
{ /* ./Llib/dsssl.scm 109 */
BgL_test1589z00_635 = ((bool_t)1); }  else 
{ /* ./Llib/dsssl.scm 110 */
obj_t BgL_arg1604z00_642;
{ /* ./Llib/dsssl.scm 110 */
obj_t BgL_pairz00_1098;
if(
PAIRP(BgL_argsz00_618))
{ /* ./Llib/dsssl.scm 110 */
BgL_pairz00_1098 = BgL_argsz00_618; }  else 
{ /* ./Llib/dsssl.scm 110 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_618, BGl_string4558z00zz__dssslz00, 
BINT(((long)4004))); 
exit( -1 );} 
BgL_arg1604z00_642 = 
CAR(BgL_pairz00_1098); } 
BgL_test1589z00_635 = 
SYMBOLP(BgL_arg1604z00_642); } } 
if(BgL_test1589z00_635)
{ /* ./Llib/dsssl.scm 111 */
bool_t BgL_test1590z00_636;
{ /* ./Llib/dsssl.scm 111 */
obj_t BgL_arg1598z00_639;
{ /* ./Llib/dsssl.scm 111 */
obj_t BgL_pairz00_1100;
if(
PAIRP(BgL_argsz00_618))
{ /* ./Llib/dsssl.scm 111 */
BgL_pairz00_1100 = BgL_argsz00_618; }  else 
{ /* ./Llib/dsssl.scm 111 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_618, BGl_string4558z00zz__dssslz00, 
BINT(((long)4029))); 
exit( -1 );} 
BgL_arg1598z00_639 = 
CAR(BgL_pairz00_1100); } 
BgL_test1590z00_636 = 
(BgL_arg1598z00_639==BCNST(258)); } 
if(BgL_test1590z00_636)
{ /* ./Llib/dsssl.scm 111 */
BgL_test1555z00_623 = ((bool_t)1); }  else 
{ /* ./Llib/dsssl.scm 112 */
obj_t BgL_arg1593z00_637;
{ /* ./Llib/dsssl.scm 112 */
obj_t BgL_pairz00_1101;
if(
PAIRP(BgL_argsz00_618))
{ /* ./Llib/dsssl.scm 112 */
BgL_pairz00_1101 = BgL_argsz00_618; }  else 
{ /* ./Llib/dsssl.scm 112 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_618, BGl_string4558z00zz__dssslz00, 
BINT(((long)4064))); 
exit( -1 );} 
BgL_arg1593z00_637 = 
CAR(BgL_pairz00_1101); } 
BgL_test1555z00_623 = 
(BgL_arg1593z00_637==BCNST(259)); } }  else 
{ /* ./Llib/dsssl.scm 109 */
BgL_test1555z00_623 = ((bool_t)1); } }  else 
{ /* ./Llib/dsssl.scm 108 */
BgL_test1555z00_623 = ((bool_t)1); } } 
if(BgL_test1555z00_623)
{ /* ./Llib/dsssl.scm 108 */
BgL_keywordzd2argumentszd2_515 = BgL_resz00_619; }  else 
{ /* ./Llib/dsssl.scm 114 */
bool_t BgL_test1556z00_624;
{ /* ./Llib/dsssl.scm 114 */
obj_t BgL_arg1585z00_633;
{ /* ./Llib/dsssl.scm 114 */
obj_t BgL_pairz00_1102;
if(
PAIRP(BgL_argsz00_618))
{ /* ./Llib/dsssl.scm 114 */
BgL_pairz00_1102 = BgL_argsz00_618; }  else 
{ /* ./Llib/dsssl.scm 114 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_618, BGl_string4558z00zz__dssslz00, 
BINT(((long)4117))); 
exit( -1 );} 
BgL_arg1585z00_633 = 
CAR(BgL_pairz00_1102); } 
BgL_test1556z00_624 = 
SYMBOLP(BgL_arg1585z00_633); } 
if(BgL_test1556z00_624)
{ /* ./Llib/dsssl.scm 114 */
{ /* ./Llib/dsssl.scm 115 */
obj_t BgL_arg1558z00_625;obj_t BgL_arg1559z00_626;
{ /* ./Llib/dsssl.scm 115 */
obj_t BgL_pairz00_1104;
if(
PAIRP(BgL_argsz00_618))
{ /* ./Llib/dsssl.scm 115 */
BgL_pairz00_1104 = BgL_argsz00_618; }  else 
{ /* ./Llib/dsssl.scm 115 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_618, BGl_string4558z00zz__dssslz00, 
BINT(((long)4144))); 
exit( -1 );} 
BgL_arg1558z00_625 = 
CDR(BgL_pairz00_1104); } 
{ /* ./Llib/dsssl.scm 116 */
obj_t BgL_arg1563z00_627;
{ /* ./Llib/dsssl.scm 116 */
obj_t BgL_arg1566z00_628;
{ /* ./Llib/dsssl.scm 116 */
obj_t BgL_pairz00_1105;
if(
PAIRP(BgL_argsz00_618))
{ /* ./Llib/dsssl.scm 116 */
BgL_pairz00_1105 = BgL_argsz00_618; }  else 
{ /* ./Llib/dsssl.scm 116 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_618, BGl_string4558z00zz__dssslz00, 
BINT(((long)4186))); 
exit( -1 );} 
BgL_arg1566z00_628 = 
CAR(BgL_pairz00_1105); } 
{ /* ./Llib/dsssl.scm 116 */
obj_t BgL_funz00_1667;
{ /* ./Llib/dsssl.scm 116 */
obj_t BgL_aux3660z00_1665;
BgL_aux3660z00_1665 = 
CELL_REF(BgL_symbolzd2ze3keywordz31_1435); 
if(
PROCEDUREP(BgL_aux3660z00_1665))
{ /* ./Llib/dsssl.scm 116 */
BgL_funz00_1667 = BgL_aux3660z00_1665; }  else 
{ /* ./Llib/dsssl.scm 116 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_aux3660z00_1665, BGl_string4558z00zz__dssslz00, 
BINT(((long)4161))); 
exit( -1 );} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1667, ((long)1)))
{ /* ./Llib/dsssl.scm 116 */
BgL_arg1563z00_627 = 
PROCEDURE_ENTRY(BgL_funz00_1667)(
CELL_REF(BgL_symbolzd2ze3keywordz31_1435), BgL_arg1566z00_628, BEOA); }  else 
{ /* ./Llib/dsssl.scm 116 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4618z00zz__dssslz00, BGl_list4627z00zz__dssslz00, BgL_funz00_1667, BGl_string4558z00zz__dssslz00, 
BINT(((long)4161))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } 
BgL_arg1559z00_626 = 
MAKE_PAIR(BgL_arg1563z00_627, BgL_resz00_619); } 
{ 
obj_t BgL_resz00_2975;obj_t BgL_argsz00_2974;
BgL_argsz00_2974 = BgL_arg1558z00_625; 
BgL_resz00_2975 = BgL_arg1559z00_626; 
BgL_resz00_619 = BgL_resz00_2975; 
BgL_argsz00_618 = BgL_argsz00_2974; 
goto BgL_loopz00_620;} } }  else 
{ /* ./Llib/dsssl.scm 114 */
{ /* ./Llib/dsssl.scm 118 */
obj_t BgL_arg1570z00_629;obj_t BgL_arg1572z00_630;
{ /* ./Llib/dsssl.scm 118 */
obj_t BgL_pairz00_1106;
if(
PAIRP(BgL_argsz00_618))
{ /* ./Llib/dsssl.scm 118 */
BgL_pairz00_1106 = BgL_argsz00_618; }  else 
{ /* ./Llib/dsssl.scm 118 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_618, BGl_string4558z00zz__dssslz00, 
BINT(((long)4234))); 
exit( -1 );} 
BgL_arg1570z00_629 = 
CDR(BgL_pairz00_1106); } 
{ /* ./Llib/dsssl.scm 119 */
obj_t BgL_arg1576z00_631;
{ /* ./Llib/dsssl.scm 119 */
obj_t BgL_arg1579z00_632;
{ /* ./Llib/dsssl.scm 119 */
obj_t BgL_pairz00_1107;
if(
PAIRP(BgL_argsz00_618))
{ /* ./Llib/dsssl.scm 119 */
BgL_pairz00_1107 = BgL_argsz00_618; }  else 
{ /* ./Llib/dsssl.scm 119 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_618, BGl_string4558z00zz__dssslz00, 
BINT(((long)4277))); 
exit( -1 );} 
{ /* ./Llib/dsssl.scm 119 */
obj_t BgL_arg2329z00_1108;
BgL_arg2329z00_1108 = 
CAR(BgL_pairz00_1107); 
{ /* ./Llib/dsssl.scm 119 */
obj_t BgL_pairz00_1110;
if(
PAIRP(BgL_arg2329z00_1108))
{ /* ./Llib/dsssl.scm 119 */
BgL_pairz00_1110 = BgL_arg2329z00_1108; }  else 
{ /* ./Llib/dsssl.scm 119 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_arg2329z00_1108, BGl_string4558z00zz__dssslz00, 
BINT(((long)4268))); 
exit( -1 );} 
BgL_arg1579z00_632 = 
CAR(BgL_pairz00_1110); } } } 
{ /* ./Llib/dsssl.scm 119 */
obj_t BgL_funz00_1678;
{ /* ./Llib/dsssl.scm 119 */
obj_t BgL_aux3707z00_1676;
BgL_aux3707z00_1676 = 
CELL_REF(BgL_symbolzd2ze3keywordz31_1435); 
if(
PROCEDUREP(BgL_aux3707z00_1676))
{ /* ./Llib/dsssl.scm 119 */
BgL_funz00_1678 = BgL_aux3707z00_1676; }  else 
{ /* ./Llib/dsssl.scm 119 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_aux3707z00_1676, BGl_string4558z00zz__dssslz00, 
BINT(((long)4251))); 
exit( -1 );} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1678, ((long)1)))
{ /* ./Llib/dsssl.scm 119 */
BgL_arg1576z00_631 = 
PROCEDURE_ENTRY(BgL_funz00_1678)(
CELL_REF(BgL_symbolzd2ze3keywordz31_1435), BgL_arg1579z00_632, BEOA); }  else 
{ /* ./Llib/dsssl.scm 119 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4618z00zz__dssslz00, BGl_list4629z00zz__dssslz00, BgL_funz00_1678, BGl_string4558z00zz__dssslz00, 
BINT(((long)4251))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } 
BgL_arg1572z00_630 = 
MAKE_PAIR(BgL_arg1576z00_631, BgL_resz00_619); } 
{ 
obj_t BgL_resz00_3008;obj_t BgL_argsz00_3007;
BgL_argsz00_3007 = BgL_arg1570z00_629; 
BgL_resz00_3008 = BgL_arg1572z00_630; 
BgL_resz00_619 = BgL_resz00_3008; 
BgL_argsz00_618 = BgL_argsz00_3007; 
goto BgL_loopz00_620;} } } } } } } }  else 
{ /* ./Llib/dsssl.scm 104 */
{ /* ./Llib/dsssl.scm 121 */
obj_t BgL_arg1613z00_644;
{ /* ./Llib/dsssl.scm 121 */
obj_t BgL_pairz00_1111;
if(
PAIRP(BgL_argsz00_614))
{ /* ./Llib/dsssl.scm 121 */
BgL_pairz00_1111 = BgL_argsz00_614; }  else 
{ /* ./Llib/dsssl.scm 121 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_614, BGl_string4558z00zz__dssslz00, 
BINT(((long)4321))); 
exit( -1 );} 
BgL_arg1613z00_644 = 
CDR(BgL_pairz00_1111); } 
{ 
obj_t BgL_argsz00_3015;
BgL_argsz00_3015 = BgL_arg1613z00_644; 
BgL_argsz00_614 = BgL_argsz00_3015; 
goto BgL_loopz00_615;} } } }  else 
{ /* ./Llib/dsssl.scm 102 */
BgL_keywordzd2argumentszd2_515 = BNIL; } } } 
if(
NULLP(BgL_argsz00_511))
{ /* ./Llib/dsssl.scm 136 */
return BgL_bodyz00_1441;}  else 
{ /* ./Llib/dsssl.scm 138 */
bool_t BgL_test1339z00_518;
BgL_test1339z00_518 = 
PAIRP(BgL_argsz00_511); 
if(BgL_test1339z00_518)
{ /* ./Llib/dsssl.scm 140 */
bool_t BgL_test1340z00_519;
{ /* ./Llib/dsssl.scm 140 */
bool_t BgL_test1395z00_546;
{ /* ./Llib/dsssl.scm 140 */
obj_t BgL_arg1402z00_549;
{ /* ./Llib/dsssl.scm 140 */
obj_t BgL_pairz00_1064;
if(BgL_test1339z00_518)
{ /* ./Llib/dsssl.scm 140 */
BgL_pairz00_1064 = BgL_argsz00_511; }  else 
{ /* ./Llib/dsssl.scm 140 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_511, BGl_string4558z00zz__dssslz00, 
BINT(((long)4892))); 
exit( -1 );} 
BgL_arg1402z00_549 = 
CAR(BgL_pairz00_1064); } 
BgL_test1395z00_546 = 
SYMBOLP(BgL_arg1402z00_549); } 
if(BgL_test1395z00_546)
{ /* ./Llib/dsssl.scm 140 */
BgL_test1340z00_519 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 140 */
bool_t BgL_test1396z00_547;
{ /* ./Llib/dsssl.scm 140 */
obj_t BgL_arg1398z00_548;
{ /* ./Llib/dsssl.scm 140 */
obj_t BgL_pairz00_1066;
if(
PAIRP(BgL_argsz00_511))
{ /* ./Llib/dsssl.scm 140 */
BgL_pairz00_1066 = BgL_argsz00_511; }  else 
{ /* ./Llib/dsssl.scm 140 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_511, BGl_string4558z00zz__dssslz00, 
BINT(((long)4917))); 
exit( -1 );} 
BgL_arg1398z00_548 = 
CAR(BgL_pairz00_1066); } 
BgL_test1396z00_547 = 
PAIRP(BgL_arg1398z00_548); } 
if(BgL_test1396z00_547)
{ /* ./Llib/dsssl.scm 140 */
BgL_test1340z00_519 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 140 */
BgL_test1340z00_519 = ((bool_t)1); } } } 
if(BgL_test1340z00_519)
{ /* ./Llib/dsssl.scm 140 */
{ /* ./Llib/dsssl.scm 142 */
long BgL_aux1008z00_521;
{ /* ./Llib/dsssl.scm 142 */
obj_t BgL_aux1006z00_525;
{ /* ./Llib/dsssl.scm 142 */
obj_t BgL_pairz00_1068;
if(
PAIRP(BgL_argsz00_511))
{ /* ./Llib/dsssl.scm 142 */
BgL_pairz00_1068 = BgL_argsz00_511; }  else 
{ /* ./Llib/dsssl.scm 142 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_511, BGl_string4558z00zz__dssslz00, 
BINT(((long)4995))); 
exit( -1 );} 
BgL_aux1006z00_525 = 
CAR(BgL_pairz00_1068); } 
if(
CNSTP(BgL_aux1006z00_525))
{ /* ./Llib/dsssl.scm 142 */
BgL_aux1008z00_521 = 
CCNST(BgL_aux1006z00_525); }  else 
{ /* ./Llib/dsssl.scm 142 */
BgL_aux1008z00_521 = ((long)-1); } } 
switch( BgL_aux1008z00_521) { case ((long)259) : 

{ /* ./Llib/dsssl.scm 144 */
obj_t BgL_arg1343z00_523;
{ /* ./Llib/dsssl.scm 144 */
obj_t BgL_pairz00_1070;
if(
PAIRP(BgL_argsz00_511))
{ /* ./Llib/dsssl.scm 144 */
BgL_pairz00_1070 = BgL_argsz00_511; }  else 
{ /* ./Llib/dsssl.scm 144 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_511, BGl_string4558z00zz__dssslz00, 
BINT(((long)5041))); 
exit( -1 );} 
BgL_arg1343z00_523 = 
CDR(BgL_pairz00_1070); } 
{ /* ./Llib/dsssl.scm 144 */
obj_t BgL_auxz00_3051;
if(
PROCEDUREP(BgL_restzd2statezd2_1439))
{ /* ./Llib/dsssl.scm 144 */
BgL_auxz00_3051 = BgL_restzd2statezd2_1439
; }  else 
{ /* ./Llib/dsssl.scm 144 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_restzd2statezd2_1439, BGl_string4558z00zz__dssslz00, 
BINT(((long)5021))); 
exit( -1 );} 
return 
BGl_restzd2statezd2zz__dssslz00(BgL_auxz00_3051, BgL_arg1343z00_523, BgL_dssslzd2argzd2_512);} } break;case ((long)262) : 

{ /* ./Llib/dsssl.scm 146 */
obj_t BgL_arg1347z00_524;
{ /* ./Llib/dsssl.scm 146 */
obj_t BgL_pairz00_1071;
if(
PAIRP(BgL_argsz00_511))
{ /* ./Llib/dsssl.scm 146 */
BgL_pairz00_1071 = BgL_argsz00_511; }  else 
{ /* ./Llib/dsssl.scm 146 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_511, BGl_string4558z00zz__dssslz00, 
BINT(((long)5105))); 
exit( -1 );} 
BgL_arg1347z00_524 = 
CDR(BgL_pairz00_1071); } 
{ /* ./Llib/dsssl.scm 146 */
obj_t BgL_auxz00_3064;
if(
PROCEDUREP(BgL_nozd2restzd2keyzd2statezd2_1440))
{ /* ./Llib/dsssl.scm 146 */
BgL_auxz00_3064 = BgL_nozd2restzd2keyzd2statezd2_1440
; }  else 
{ /* ./Llib/dsssl.scm 146 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_nozd2restzd2keyzd2statezd2_1440, BGl_string4558z00zz__dssslz00, 
BINT(((long)5078))); 
exit( -1 );} 
return 
BGl_nozd2restzd2keyzd2statezd2zz__dssslz00(BgL_auxz00_3064, BgL_arg1347z00_524, BgL_dssslzd2argzd2_512);} } break;
default: 
{ /* ./Llib/dsssl.scm 142 */
obj_t BgL_funz00_1701;
if(
PROCEDUREP(BgL_errz00_1436))
{ /* ./Llib/dsssl.scm 142 */
BgL_funz00_1701 = BgL_errz00_1436; }  else 
{ /* ./Llib/dsssl.scm 142 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1436, BGl_string4558z00zz__dssslz00, 
BINT(((long)4981))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1701, ((long)3)))
{ /* ./Llib/dsssl.scm 142 */
return 
PROCEDURE_ENTRY(BgL_funz00_1701)(BgL_errz00_1436, BgL_wherez00_1437, BGl_string4631z00zz__dssslz00, BgL_formalsz00_1438, BEOA);}  else 
{ /* ./Llib/dsssl.scm 142 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4618z00zz__dssslz00, BGl_list4632z00zz__dssslz00, BgL_funz00_1701, BGl_string4558z00zz__dssslz00, 
BINT(((long)4981))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } } }  else 
{ /* ./Llib/dsssl.scm 140 */
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_ezd2111zd2_533;
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_pairz00_1072;
if(
PAIRP(BgL_argsz00_511))
{ /* ./Llib/dsssl.scm 151 */
BgL_pairz00_1072 = BgL_argsz00_511; }  else 
{ /* ./Llib/dsssl.scm 151 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_511, BGl_string4558z00zz__dssslz00, 
BINT(((long)5265))); 
exit( -1 );} 
BgL_ezd2111zd2_533 = 
CAR(BgL_pairz00_1072); } 
{ /* ./Llib/dsssl.scm 151 */
bool_t BgL_test1358z00_534;
BgL_test1358z00_534 = 
PAIRP(BgL_ezd2111zd2_533); 
if(BgL_test1358z00_534)
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_carzd2116zd2_535;obj_t BgL_cdrzd2117zd2_536;
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_pairz00_1074;
if(BgL_test1358z00_534)
{ /* ./Llib/dsssl.scm 151 */
BgL_pairz00_1074 = BgL_ezd2111zd2_533; }  else 
{ /* ./Llib/dsssl.scm 151 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_ezd2111zd2_533, BGl_string4558z00zz__dssslz00, 
BINT(((long)5245))); 
exit( -1 );} 
BgL_carzd2116zd2_535 = 
CAR(BgL_pairz00_1074); } 
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_pairz00_1075;
if(BgL_test1358z00_534)
{ /* ./Llib/dsssl.scm 151 */
BgL_pairz00_1075 = BgL_ezd2111zd2_533; }  else 
{ /* ./Llib/dsssl.scm 151 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_ezd2111zd2_533, BGl_string4558z00zz__dssslz00, 
BINT(((long)5245))); 
exit( -1 );} 
BgL_cdrzd2117zd2_536 = 
CDR(BgL_pairz00_1075); } 
if(
SYMBOLP(BgL_carzd2116zd2_535))
{ /* ./Llib/dsssl.scm 151 */
bool_t BgL_test1360z00_538;
BgL_test1360z00_538 = 
PAIRP(BgL_cdrzd2117zd2_536); 
if(BgL_test1360z00_538)
{ /* ./Llib/dsssl.scm 151 */
bool_t BgL_test1361z00_539;
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_arg1371z00_542;
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_pairz00_1078;
if(BgL_test1360z00_538)
{ /* ./Llib/dsssl.scm 151 */
BgL_pairz00_1078 = BgL_cdrzd2117zd2_536; }  else 
{ /* ./Llib/dsssl.scm 151 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_cdrzd2117zd2_536, BGl_string4558z00zz__dssslz00, 
BINT(((long)5245))); 
exit( -1 );} 
BgL_arg1371z00_542 = 
CDR(BgL_pairz00_1078); } 
BgL_test1361z00_539 = 
NULLP(BgL_arg1371z00_542); } 
if(BgL_test1361z00_539)
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_arg1363z00_540;
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_pairz00_1080;
if(
PAIRP(BgL_cdrzd2117zd2_536))
{ /* ./Llib/dsssl.scm 151 */
BgL_pairz00_1080 = BgL_cdrzd2117zd2_536; }  else 
{ /* ./Llib/dsssl.scm 151 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_cdrzd2117zd2_536, BGl_string4558z00zz__dssslz00, 
BINT(((long)5245))); 
exit( -1 );} 
BgL_arg1363z00_540 = 
CAR(BgL_pairz00_1080); } 
BgL_argz00_550 = BgL_carzd2116zd2_535; 
BgL_initializa7erza7_551 = BgL_arg1363z00_540; 
BgL_zc3anonymousza31408za3llibzf2dssslze2scmza3136ze3z93_552:
{ /* ./Llib/dsssl.scm 126 */
obj_t BgL_tmpz00_553;
{ /* ./Llib/dsssl.scm 126 */
obj_t BgL_funz00_1644;
{ /* ./Llib/dsssl.scm 126 */
obj_t BgL_aux3552z00_1642;
BgL_aux3552z00_1642 = BGl_gensymz00zz__r4_symbols_6_4z00; 
if(
PROCEDUREP(BgL_aux3552z00_1642))
{ /* ./Llib/dsssl.scm 126 */
BgL_funz00_1644 = BgL_aux3552z00_1642; }  else 
{ /* ./Llib/dsssl.scm 126 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_aux3552z00_1642, BGl_string4558z00zz__dssslz00, 
BINT(((long)4463))); 
exit( -1 );} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1644, ((long)1)))
{ /* ./Llib/dsssl.scm 126 */
BgL_tmpz00_553 = 
PROCEDURE_ENTRY(BgL_funz00_1644)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol4617z00zz__dssslz00, BEOA); }  else 
{ /* ./Llib/dsssl.scm 126 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4618z00zz__dssslz00, BGl_list4619z00zz__dssslz00, BgL_funz00_1644, BGl_string4558z00zz__dssslz00, 
BINT(((long)4463))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } 
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1410z00_554;obj_t BgL_arg1412z00_555;
BgL_arg1410z00_554 = BGl_symbol4574z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1415z00_556;obj_t BgL_arg1416z00_557;
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1419z00_558;
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1423z00_560;
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1426z00_561;
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1430z00_563;obj_t BgL_arg1431z00_564;
BgL_arg1430z00_563 = BGl_symbol4621z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1434z00_565;obj_t BgL_arg1435z00_566;
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1438z00_567;obj_t BgL_arg1439z00_568;
BgL_arg1438z00_567 = BGl_symbol4621z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1442z00_569;obj_t BgL_arg1444z00_570;
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1448z00_571;obj_t BgL_arg1449z00_572;
BgL_arg1448z00_571 = BGl_symbol4622z00zz__dssslz00; 
BgL_arg1449z00_572 = 
MAKE_PAIR(BgL_dssslzd2argzd2_512, BNIL); 
BgL_arg1442z00_569 = 
MAKE_PAIR(BgL_arg1448z00_571, BgL_arg1449z00_572); } 
{ /* ./Llib/dsssl.scm 129 */
obj_t BgL_arg1453z00_573;
{ /* ./Llib/dsssl.scm 129 */
obj_t BgL_arg1456z00_574;
{ /* ./Llib/dsssl.scm 129 */
obj_t BgL_arg1461z00_576;obj_t BgL_arg1462z00_577;
BgL_arg1461z00_576 = BGl_symbol4623z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 129 */
obj_t BgL_arg1465z00_578;obj_t BgL_arg1466z00_579;
{ /* ./Llib/dsssl.scm 129 */
obj_t BgL_arg1469z00_580;obj_t BgL_arg1470z00_581;
BgL_arg1469z00_580 = BGl_symbol4624z00zz__dssslz00; 
BgL_arg1470z00_581 = 
MAKE_PAIR(BgL_dssslzd2argzd2_512, BNIL); 
BgL_arg1465z00_578 = 
MAKE_PAIR(BgL_arg1469z00_580, BgL_arg1470z00_581); } 
{ /* ./Llib/dsssl.scm 129 */
obj_t BgL_arg1474z00_582;
{ /* ./Llib/dsssl.scm 129 */
obj_t BgL_arg1478z00_584;obj_t BgL_arg1479z00_585;
BgL_arg1478z00_584 = BGl_symbol4573z00zz__dssslz00; 
BgL_arg1479z00_585 = 
MAKE_PAIR(BgL_keywordzd2argumentszd2_515, BNIL); 
BgL_arg1474z00_582 = 
MAKE_PAIR(BgL_arg1478z00_584, BgL_arg1479z00_585); } 
BgL_arg1466z00_579 = 
MAKE_PAIR(BgL_arg1474z00_582, BNIL); } 
BgL_arg1462z00_577 = 
MAKE_PAIR(BgL_arg1465z00_578, BgL_arg1466z00_579); } 
BgL_arg1456z00_574 = 
MAKE_PAIR(BgL_arg1461z00_576, BgL_arg1462z00_577); } 
BgL_arg1453z00_573 = 
MAKE_PAIR(BgL_arg1456z00_574, BNIL); } 
BgL_arg1444z00_570 = 
MAKE_PAIR(BTRUE, BgL_arg1453z00_573); } 
BgL_arg1439z00_568 = 
MAKE_PAIR(BgL_arg1442z00_569, BgL_arg1444z00_570); } 
BgL_arg1434z00_565 = 
MAKE_PAIR(BgL_arg1438z00_567, BgL_arg1439z00_568); } 
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1483z00_586;
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1486z00_587;
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1490z00_589;obj_t BgL_arg1491z00_590;
BgL_arg1490z00_589 = BGl_symbol4574z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1494z00_591;obj_t BgL_arg1495z00_592;
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1498z00_593;
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1502z00_595;
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1505z00_596;
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1509z00_598;obj_t BgL_arg1511z00_599;
BgL_arg1509z00_598 = BGl_symbol4624z00zz__dssslz00; 
BgL_arg1511z00_599 = 
MAKE_PAIR(BgL_dssslzd2argzd2_512, BNIL); 
BgL_arg1505z00_596 = 
MAKE_PAIR(BgL_arg1509z00_598, BgL_arg1511z00_599); } 
BgL_arg1502z00_595 = 
MAKE_PAIR(BgL_arg1505z00_596, BNIL); } 
BgL_arg1498z00_593 = 
MAKE_PAIR(BgL_tmpz00_553, BgL_arg1502z00_595); } 
BgL_arg1494z00_591 = 
MAKE_PAIR(BgL_arg1498z00_593, BNIL); } 
{ /* ./Llib/dsssl.scm 132 */
obj_t BgL_arg1515z00_600;obj_t BgL_arg1516z00_601;
{ /* ./Llib/dsssl.scm 132 */
obj_t BgL_arg1519z00_602;obj_t BgL_arg1520z00_603;
BgL_arg1519z00_602 = BGl_symbol4625z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 132 */
obj_t BgL_arg1524z00_604;
{ /* ./Llib/dsssl.scm 132 */
obj_t BgL_arg1527z00_605;
{ /* ./Llib/dsssl.scm 132 */
obj_t BgL_arg1531z00_607;obj_t BgL_arg1532z00_608;
BgL_arg1531z00_607 = BGl_symbol4626z00zz__dssslz00; 
BgL_arg1532z00_608 = 
MAKE_PAIR(BgL_dssslzd2argzd2_512, BNIL); 
BgL_arg1527z00_605 = 
MAKE_PAIR(BgL_arg1531z00_607, BgL_arg1532z00_608); } 
BgL_arg1524z00_604 = 
MAKE_PAIR(BgL_arg1527z00_605, BNIL); } 
BgL_arg1520z00_603 = 
MAKE_PAIR(BgL_dssslzd2argzd2_512, BgL_arg1524z00_604); } 
BgL_arg1515z00_600 = 
MAKE_PAIR(BgL_arg1519z00_602, BgL_arg1520z00_603); } 
BgL_arg1516z00_601 = 
MAKE_PAIR(BgL_tmpz00_553, BNIL); 
BgL_arg1495z00_592 = 
MAKE_PAIR(BgL_arg1515z00_600, BgL_arg1516z00_601); } 
BgL_arg1491z00_590 = 
MAKE_PAIR(BgL_arg1494z00_591, BgL_arg1495z00_592); } 
BgL_arg1486z00_587 = 
MAKE_PAIR(BgL_arg1490z00_589, BgL_arg1491z00_590); } 
BgL_arg1483z00_586 = 
MAKE_PAIR(BgL_arg1486z00_587, BNIL); } 
BgL_arg1435z00_566 = 
MAKE_PAIR(BgL_initializa7erza7_551, BgL_arg1483z00_586); } 
BgL_arg1431z00_564 = 
MAKE_PAIR(BgL_arg1434z00_565, BgL_arg1435z00_566); } 
BgL_arg1426z00_561 = 
MAKE_PAIR(BgL_arg1430z00_563, BgL_arg1431z00_564); } 
BgL_arg1423z00_560 = 
MAKE_PAIR(BgL_arg1426z00_561, BNIL); } 
BgL_arg1419z00_558 = 
MAKE_PAIR(BgL_argz00_550, BgL_arg1423z00_560); } 
BgL_arg1415z00_556 = 
MAKE_PAIR(BgL_arg1419z00_558, BNIL); } 
{ /* ./Llib/dsssl.scm 134 */
obj_t BgL_arg1537z00_609;
{ /* ./Llib/dsssl.scm 134 */
obj_t BgL_arg1541z00_611;
{ /* ./Llib/dsssl.scm 134 */
obj_t BgL_pairz00_1091;
if(
PAIRP(BgL_argsz00_511))
{ /* ./Llib/dsssl.scm 134 */
BgL_pairz00_1091 = BgL_argsz00_511; }  else 
{ /* ./Llib/dsssl.scm 134 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_511, BGl_string4558z00zz__dssslz00, 
BINT(((long)4721))); 
exit( -1 );} 
BgL_arg1541z00_611 = 
CDR(BgL_pairz00_1091); } 
BgL_arg1537z00_609 = 
BGl_optionalzd2statez72za0zz__dssslz00(BgL_bodyz00_1441, BgL_nozd2restzd2keyzd2statezd2_1440, BgL_restzd2statezd2_1439, BgL_formalsz00_1438, BgL_wherez00_1437, BgL_errz00_1436, BgL_symbolzd2ze3keywordz31_1435, BgL_arg1541z00_611, BgL_dssslzd2argzd2_512); } 
BgL_arg1416z00_557 = 
MAKE_PAIR(BgL_arg1537z00_609, BNIL); } 
BgL_arg1412z00_555 = 
MAKE_PAIR(BgL_arg1415z00_556, BgL_arg1416z00_557); } 
return 
MAKE_PAIR(BgL_arg1410z00_554, BgL_arg1412z00_555);} } }  else 
{ /* ./Llib/dsssl.scm 151 */
if(
SYMBOLP(BgL_ezd2111zd2_533))
{ 
obj_t BgL_initializa7erza7_3178;obj_t BgL_argz00_3177;
BgL_argz00_3177 = BgL_ezd2111zd2_533; 
BgL_initializa7erza7_3178 = BFALSE; 
BgL_initializa7erza7_551 = BgL_initializa7erza7_3178; 
BgL_argz00_550 = BgL_argz00_3177; 
goto BgL_zc3anonymousza31408za3llibzf2dssslze2scmza3136ze3z93_552;}  else 
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_funz00_1721;
if(
PROCEDUREP(BgL_errz00_1436))
{ /* ./Llib/dsssl.scm 151 */
BgL_funz00_1721 = BgL_errz00_1436; }  else 
{ /* ./Llib/dsssl.scm 151 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1436, BGl_string4558z00zz__dssslz00, 
BINT(((long)5245))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1721, ((long)3)))
{ /* ./Llib/dsssl.scm 151 */
return 
PROCEDURE_ENTRY(BgL_funz00_1721)(BgL_errz00_1436, BgL_wherez00_1437, BGl_string4631z00zz__dssslz00, BgL_formalsz00_1438, BEOA);}  else 
{ /* ./Llib/dsssl.scm 151 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4618z00zz__dssslz00, BGl_list4632z00zz__dssslz00, BgL_funz00_1721, BGl_string4558z00zz__dssslz00, 
BINT(((long)5245))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } }  else 
{ /* ./Llib/dsssl.scm 151 */
if(
SYMBOLP(BgL_ezd2111zd2_533))
{ 
obj_t BgL_initializa7erza7_3194;obj_t BgL_argz00_3193;
BgL_argz00_3193 = BgL_ezd2111zd2_533; 
BgL_initializa7erza7_3194 = BFALSE; 
BgL_initializa7erza7_551 = BgL_initializa7erza7_3194; 
BgL_argz00_550 = BgL_argz00_3193; 
goto BgL_zc3anonymousza31408za3llibzf2dssslze2scmza3136ze3z93_552;}  else 
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_funz00_1726;
if(
PROCEDUREP(BgL_errz00_1436))
{ /* ./Llib/dsssl.scm 151 */
BgL_funz00_1726 = BgL_errz00_1436; }  else 
{ /* ./Llib/dsssl.scm 151 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1436, BGl_string4558z00zz__dssslz00, 
BINT(((long)5245))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1726, ((long)3)))
{ /* ./Llib/dsssl.scm 151 */
return 
PROCEDURE_ENTRY(BgL_funz00_1726)(BgL_errz00_1436, BgL_wherez00_1437, BGl_string4631z00zz__dssslz00, BgL_formalsz00_1438, BEOA);}  else 
{ /* ./Llib/dsssl.scm 151 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4618z00zz__dssslz00, BGl_list4632z00zz__dssslz00, BgL_funz00_1726, BGl_string4558z00zz__dssslz00, 
BINT(((long)5245))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } }  else 
{ /* ./Llib/dsssl.scm 151 */
if(
SYMBOLP(BgL_ezd2111zd2_533))
{ 
obj_t BgL_initializa7erza7_3210;obj_t BgL_argz00_3209;
BgL_argz00_3209 = BgL_ezd2111zd2_533; 
BgL_initializa7erza7_3210 = BFALSE; 
BgL_initializa7erza7_551 = BgL_initializa7erza7_3210; 
BgL_argz00_550 = BgL_argz00_3209; 
goto BgL_zc3anonymousza31408za3llibzf2dssslze2scmza3136ze3z93_552;}  else 
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_funz00_1731;
if(
PROCEDUREP(BgL_errz00_1436))
{ /* ./Llib/dsssl.scm 151 */
BgL_funz00_1731 = BgL_errz00_1436; }  else 
{ /* ./Llib/dsssl.scm 151 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1436, BGl_string4558z00zz__dssslz00, 
BINT(((long)5245))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1731, ((long)3)))
{ /* ./Llib/dsssl.scm 151 */
return 
PROCEDURE_ENTRY(BgL_funz00_1731)(BgL_errz00_1436, BgL_wherez00_1437, BGl_string4631z00zz__dssslz00, BgL_formalsz00_1438, BEOA);}  else 
{ /* ./Llib/dsssl.scm 151 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4618z00zz__dssslz00, BGl_list4632z00zz__dssslz00, BgL_funz00_1731, BGl_string4558z00zz__dssslz00, 
BINT(((long)5245))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } }  else 
{ /* ./Llib/dsssl.scm 151 */
if(
SYMBOLP(BgL_ezd2111zd2_533))
{ 
obj_t BgL_initializa7erza7_3226;obj_t BgL_argz00_3225;
BgL_argz00_3225 = BgL_ezd2111zd2_533; 
BgL_initializa7erza7_3226 = BFALSE; 
BgL_initializa7erza7_551 = BgL_initializa7erza7_3226; 
BgL_argz00_550 = BgL_argz00_3225; 
goto BgL_zc3anonymousza31408za3llibzf2dssslze2scmza3136ze3z93_552;}  else 
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_funz00_1736;
if(
PROCEDUREP(BgL_errz00_1436))
{ /* ./Llib/dsssl.scm 151 */
BgL_funz00_1736 = BgL_errz00_1436; }  else 
{ /* ./Llib/dsssl.scm 151 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1436, BGl_string4558z00zz__dssslz00, 
BINT(((long)5245))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1736, ((long)3)))
{ /* ./Llib/dsssl.scm 151 */
return 
PROCEDURE_ENTRY(BgL_funz00_1736)(BgL_errz00_1436, BgL_wherez00_1437, BGl_string4631z00zz__dssslz00, BgL_formalsz00_1438, BEOA);}  else 
{ /* ./Llib/dsssl.scm 151 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4618z00zz__dssslz00, BGl_list4632z00zz__dssslz00, BgL_funz00_1736, BGl_string4558z00zz__dssslz00, 
BINT(((long)5245))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } } } } }  else 
{ /* ./Llib/dsssl.scm 138 */
{ /* ./Llib/dsssl.scm 139 */
obj_t BgL_funz00_1741;
if(
PROCEDUREP(BgL_errz00_1436))
{ /* ./Llib/dsssl.scm 139 */
BgL_funz00_1741 = BgL_errz00_1436; }  else 
{ /* ./Llib/dsssl.scm 139 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4616z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1436, BGl_string4558z00zz__dssslz00, 
BINT(((long)4800))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1741, ((long)3)))
{ /* ./Llib/dsssl.scm 139 */
return 
PROCEDURE_ENTRY(BgL_funz00_1741)(BgL_errz00_1436, BgL_wherez00_1437, BGl_string4631z00zz__dssslz00, BgL_formalsz00_1438, BEOA);}  else 
{ /* ./Llib/dsssl.scm 139 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4618z00zz__dssslz00, BGl_list4632z00zz__dssslz00, BgL_funz00_1741, BGl_string4558z00zz__dssslz00, 
BINT(((long)4800))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } } } } } 
}



/* dsssl-check-key-args! */
BGL_EXPORTED_DEF obj_t BGl_dssslzd2checkzd2keyzd2argsz12zc0zz__dssslz00(obj_t BgL_dssslzd2argszd2_6, obj_t BgL_keyzd2listzd2_7)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 255 */
{ /* ./Llib/dsssl.scm 256 */
obj_t BgL_symbol2617z00_1337;
BgL_symbol2617z00_1337 = BGl_symbol4601z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 256 */

PUSH_TRACE(BgL_symbol2617z00_1337); BUNSPEC; 
{ /* ./Llib/dsssl.scm 256 */
obj_t BgL_aux2616z00_1338;
if(
NULLP(BgL_keyzd2listzd2_7))
{ 
obj_t BgL_argsz00_725;
BgL_argsz00_725 = BgL_dssslzd2argszd2_6; 
BgL_loopz00_726:
if(
NULLP(BgL_argsz00_725))
{ /* ./Llib/dsssl.scm 259 */
BgL_aux2616z00_1338 = BgL_dssslzd2argszd2_6; }  else 
{ /* ./Llib/dsssl.scm 261 */
bool_t BgL_test1769z00_728;
{ /* ./Llib/dsssl.scm 261 */
bool_t BgL_test1776z00_730;
BgL_test1776z00_730 = 
PAIRP(BgL_argsz00_725); 
if(BgL_test1776z00_730)
{ /* ./Llib/dsssl.scm 262 */
bool_t BgL_test1777z00_731;
{ /* ./Llib/dsssl.scm 262 */
obj_t BgL_arg1784z00_734;
{ /* ./Llib/dsssl.scm 262 */
obj_t BgL_pairz00_1145;
if(BgL_test1776z00_730)
{ /* ./Llib/dsssl.scm 262 */
BgL_pairz00_1145 = BgL_argsz00_725; }  else 
{ /* ./Llib/dsssl.scm 262 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4601z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_725, BGl_string4558z00zz__dssslz00, 
BINT(((long)8847))); 
exit( -1 );} 
BgL_arg1784z00_734 = 
CDR(BgL_pairz00_1145); } 
BgL_test1777z00_731 = 
NULLP(BgL_arg1784z00_734); } 
if(BgL_test1777z00_731)
{ /* ./Llib/dsssl.scm 262 */
BgL_test1769z00_728 = ((bool_t)1); }  else 
{ /* ./Llib/dsssl.scm 263 */
bool_t BgL_test1778z00_732;
{ /* ./Llib/dsssl.scm 263 */
obj_t BgL_arg1780z00_733;
{ /* ./Llib/dsssl.scm 263 */
obj_t BgL_pairz00_1147;
if(
PAIRP(BgL_argsz00_725))
{ /* ./Llib/dsssl.scm 263 */
BgL_pairz00_1147 = BgL_argsz00_725; }  else 
{ /* ./Llib/dsssl.scm 263 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4601z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_725, BGl_string4558z00zz__dssslz00, 
BINT(((long)8878))); 
exit( -1 );} 
BgL_arg1780z00_733 = 
CAR(BgL_pairz00_1147); } 
BgL_test1778z00_732 = 
KEYWORDP(BgL_arg1780z00_733); } 
if(BgL_test1778z00_732)
{ /* ./Llib/dsssl.scm 263 */
BgL_test1769z00_728 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 263 */
BgL_test1769z00_728 = ((bool_t)1); } } }  else 
{ /* ./Llib/dsssl.scm 261 */
BgL_test1769z00_728 = ((bool_t)1); } } 
if(BgL_test1769z00_728)
{ /* ./Llib/dsssl.scm 261 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4608z00zz__dssslz00, BGl_string4633z00zz__dssslz00, BgL_argsz00_725, "./Llib/dsssl.scm", ((long)8891)); 
BgL_aux2616z00_1338 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4558z00zz__dssslz00, 
BINT(((long)8891))); }  else 
{ /* ./Llib/dsssl.scm 261 */
{ /* ./Llib/dsssl.scm 268 */
obj_t BgL_arg1773z00_729;
{ /* ./Llib/dsssl.scm 268 */
obj_t BgL_pairz00_1152;
if(
PAIRP(BgL_argsz00_725))
{ /* ./Llib/dsssl.scm 268 */
BgL_pairz00_1152 = BgL_argsz00_725; }  else 
{ /* ./Llib/dsssl.scm 268 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4601z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_725, BGl_string4558z00zz__dssslz00, 
BINT(((long)9007))); 
exit( -1 );} 
{ /* ./Llib/dsssl.scm 268 */
obj_t BgL_arg2317z00_1153;
BgL_arg2317z00_1153 = 
CDR(BgL_pairz00_1152); 
{ /* ./Llib/dsssl.scm 268 */
obj_t BgL_pairz00_1155;
if(
PAIRP(BgL_arg2317z00_1153))
{ /* ./Llib/dsssl.scm 268 */
BgL_pairz00_1155 = BgL_arg2317z00_1153; }  else 
{ /* ./Llib/dsssl.scm 268 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4601z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_arg2317z00_1153, BGl_string4558z00zz__dssslz00, 
BINT(((long)8998))); 
exit( -1 );} 
BgL_arg1773z00_729 = 
CDR(BgL_pairz00_1155); } } } 
{ 
obj_t BgL_argsz00_3289;
BgL_argsz00_3289 = BgL_arg1773z00_729; 
BgL_argsz00_725 = BgL_argsz00_3289; 
goto BgL_loopz00_726;} } } } }  else 
{ 
obj_t BgL_argsz00_735;bool_t BgL_armedz00_736;obj_t BgL_optsz00_737;
BgL_argsz00_735 = BgL_dssslzd2argszd2_6; 
BgL_armedz00_736 = ((bool_t)0); 
BgL_optsz00_737 = BNIL; 
BgL_loopz00_738:
if(
NULLP(BgL_argsz00_735))
{ /* ./Llib/dsssl.scm 273 */
{ /* ./Llib/dsssl.scm 274 */
obj_t BgL_auxz00_3292;
{ /* ./Llib/dsssl.scm 274 */
bool_t BgL_testz00_3293;
if(
PAIRP(BgL_optsz00_737))
{ /* ./Llib/dsssl.scm 274 */
BgL_testz00_3293 = ((bool_t)1)
; }  else 
{ /* ./Llib/dsssl.scm 274 */
BgL_testz00_3293 = 
NULLP(BgL_optsz00_737)
; } 
if(BgL_testz00_3293)
{ /* ./Llib/dsssl.scm 274 */
BgL_auxz00_3292 = BgL_optsz00_737
; }  else 
{ /* ./Llib/dsssl.scm 274 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4601z00zz__dssslz00, BGl_string4634z00zz__dssslz00, BgL_optsz00_737, BGl_string4558z00zz__dssslz00, 
BINT(((long)9130))); 
exit( -1 );} } 
BgL_aux2616z00_1338 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3292); } }  else 
{ /* ./Llib/dsssl.scm 275 */
bool_t BgL_test1792z00_740;
{ /* ./Llib/dsssl.scm 275 */
bool_t BgL_test1810z00_746;
BgL_test1810z00_746 = 
PAIRP(BgL_argsz00_735); 
if(BgL_test1810z00_746)
{ /* ./Llib/dsssl.scm 276 */
bool_t BgL_test1812z00_747;
{ /* ./Llib/dsssl.scm 276 */
obj_t BgL_arg1825z00_752;
{ /* ./Llib/dsssl.scm 276 */
obj_t BgL_pairz00_1158;
if(BgL_test1810z00_746)
{ /* ./Llib/dsssl.scm 276 */
BgL_pairz00_1158 = BgL_argsz00_735; }  else 
{ /* ./Llib/dsssl.scm 276 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4601z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_735, BGl_string4558z00zz__dssslz00, 
BINT(((long)9183))); 
exit( -1 );} 
BgL_arg1825z00_752 = 
CDR(BgL_pairz00_1158); } 
BgL_test1812z00_747 = 
NULLP(BgL_arg1825z00_752); } 
if(BgL_test1812z00_747)
{ /* ./Llib/dsssl.scm 276 */
BgL_test1792z00_740 = ((bool_t)1); }  else 
{ /* ./Llib/dsssl.scm 277 */
bool_t BgL_test1813z00_748;
{ /* ./Llib/dsssl.scm 277 */
obj_t BgL_arg1821z00_751;
{ /* ./Llib/dsssl.scm 277 */
obj_t BgL_pairz00_1160;
if(
PAIRP(BgL_argsz00_735))
{ /* ./Llib/dsssl.scm 277 */
BgL_pairz00_1160 = BgL_argsz00_735; }  else 
{ /* ./Llib/dsssl.scm 277 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4601z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_735, BGl_string4558z00zz__dssslz00, 
BINT(((long)9214))); 
exit( -1 );} 
BgL_arg1821z00_751 = 
CAR(BgL_pairz00_1160); } 
BgL_test1813z00_748 = 
KEYWORDP(BgL_arg1821z00_751); } 
if(BgL_test1813z00_748)
{ /* ./Llib/dsssl.scm 278 */
bool_t BgL_test1814z00_749;
{ /* ./Llib/dsssl.scm 278 */
obj_t BgL_arg1816z00_750;
{ /* ./Llib/dsssl.scm 278 */
obj_t BgL_pairz00_1162;
if(
PAIRP(BgL_argsz00_735))
{ /* ./Llib/dsssl.scm 278 */
BgL_pairz00_1162 = BgL_argsz00_735; }  else 
{ /* ./Llib/dsssl.scm 278 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4601z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_735, BGl_string4558z00zz__dssslz00, 
BINT(((long)9242))); 
exit( -1 );} 
BgL_arg1816z00_750 = 
CAR(BgL_pairz00_1162); } 
{ /* ./Llib/dsssl.scm 278 */
obj_t BgL_auxz00_3324;
{ /* ./Llib/dsssl.scm 278 */
obj_t BgL_auxz00_3325;
{ /* ./Llib/dsssl.scm 278 */
bool_t BgL_testz00_3326;
if(
PAIRP(BgL_keyzd2listzd2_7))
{ /* ./Llib/dsssl.scm 278 */
BgL_testz00_3326 = ((bool_t)1)
; }  else 
{ /* ./Llib/dsssl.scm 278 */
BgL_testz00_3326 = 
NULLP(BgL_keyzd2listzd2_7)
; } 
if(BgL_testz00_3326)
{ /* ./Llib/dsssl.scm 278 */
BgL_auxz00_3325 = BgL_keyzd2listzd2_7
; }  else 
{ /* ./Llib/dsssl.scm 278 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4601z00zz__dssslz00, BGl_string4634z00zz__dssslz00, BgL_keyzd2listzd2_7, BGl_string4558z00zz__dssslz00, 
BINT(((long)9252))); 
exit( -1 );} } 
BgL_auxz00_3324 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg1816z00_750, BgL_auxz00_3325); } 
BgL_test1814z00_749 = 
CBOOL(BgL_auxz00_3324); } } 
if(BgL_test1814z00_749)
{ /* ./Llib/dsssl.scm 278 */
BgL_test1792z00_740 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 278 */
BgL_test1792z00_740 = ((bool_t)1); } }  else 
{ /* ./Llib/dsssl.scm 277 */
BgL_test1792z00_740 = ((bool_t)1); } } }  else 
{ /* ./Llib/dsssl.scm 275 */
BgL_test1792z00_740 = ((bool_t)1); } } 
if(BgL_test1792z00_740)
{ /* ./Llib/dsssl.scm 275 */
if(BgL_armedz00_736)
{ /* ./Llib/dsssl.scm 281 */
obj_t BgL_arg1794z00_741;obj_t BgL_arg1795z00_742;
{ /* ./Llib/dsssl.scm 281 */
obj_t BgL_pairz00_1163;
if(
PAIRP(BgL_argsz00_735))
{ /* ./Llib/dsssl.scm 281 */
BgL_pairz00_1163 = BgL_argsz00_735; }  else 
{ /* ./Llib/dsssl.scm 281 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4601z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_735, BGl_string4558z00zz__dssslz00, 
BINT(((long)9331))); 
exit( -1 );} 
BgL_arg1794z00_741 = 
CDR(BgL_pairz00_1163); } 
{ /* ./Llib/dsssl.scm 283 */
obj_t BgL_arg1799z00_743;
{ /* ./Llib/dsssl.scm 283 */
obj_t BgL_pairz00_1164;
if(
PAIRP(BgL_argsz00_735))
{ /* ./Llib/dsssl.scm 283 */
BgL_pairz00_1164 = BgL_argsz00_735; }  else 
{ /* ./Llib/dsssl.scm 283 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4601z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_735, BGl_string4558z00zz__dssslz00, 
BINT(((long)9357))); 
exit( -1 );} 
BgL_arg1799z00_743 = 
CAR(BgL_pairz00_1164); } 
BgL_arg1795z00_742 = 
MAKE_PAIR(BgL_arg1799z00_743, BgL_optsz00_737); } 
{ 
obj_t BgL_optsz00_3353;bool_t BgL_armedz00_3352;obj_t BgL_argsz00_3351;
BgL_argsz00_3351 = BgL_arg1794z00_741; 
BgL_armedz00_3352 = ((bool_t)0); 
BgL_optsz00_3353 = BgL_arg1795z00_742; 
BgL_optsz00_737 = BgL_optsz00_3353; 
BgL_armedz00_736 = BgL_armedz00_3352; 
BgL_argsz00_735 = BgL_argsz00_3351; 
goto BgL_loopz00_738;} }  else 
{ /* ./Llib/dsssl.scm 280 */
obj_t BgL_arg1803z00_744;
{ /* ./Llib/dsssl.scm 280 */
obj_t BgL_pairz00_1165;
if(
PAIRP(BgL_argsz00_735))
{ /* ./Llib/dsssl.scm 280 */
BgL_pairz00_1165 = BgL_argsz00_735; }  else 
{ /* ./Llib/dsssl.scm 280 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4601z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_735, BGl_string4558z00zz__dssslz00, 
BINT(((long)9298))); 
exit( -1 );} 
BgL_arg1803z00_744 = 
CDR(BgL_pairz00_1165); } 
{ 
obj_t BgL_argsz00_3360;
BgL_argsz00_3360 = BgL_arg1803z00_744; 
BgL_argsz00_735 = BgL_argsz00_3360; 
goto BgL_loopz00_738;} } }  else 
{ /* ./Llib/dsssl.scm 275 */
{ /* ./Llib/dsssl.scm 285 */
obj_t BgL_arg1807z00_745;
{ /* ./Llib/dsssl.scm 285 */
obj_t BgL_pairz00_1166;
if(
PAIRP(BgL_argsz00_735))
{ /* ./Llib/dsssl.scm 285 */
BgL_pairz00_1166 = BgL_argsz00_735; }  else 
{ /* ./Llib/dsssl.scm 285 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4601z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_735, BGl_string4558z00zz__dssslz00, 
BINT(((long)9403))); 
exit( -1 );} 
{ /* ./Llib/dsssl.scm 285 */
obj_t BgL_arg2317z00_1167;
BgL_arg2317z00_1167 = 
CDR(BgL_pairz00_1166); 
{ /* ./Llib/dsssl.scm 285 */
obj_t BgL_pairz00_1169;
if(
PAIRP(BgL_arg2317z00_1167))
{ /* ./Llib/dsssl.scm 285 */
BgL_pairz00_1169 = BgL_arg2317z00_1167; }  else 
{ /* ./Llib/dsssl.scm 285 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4601z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_arg2317z00_1167, BGl_string4558z00zz__dssslz00, 
BINT(((long)9394))); 
exit( -1 );} 
BgL_arg1807z00_745 = 
CDR(BgL_pairz00_1169); } } } 
{ 
bool_t BgL_armedz00_3374;obj_t BgL_argsz00_3373;
BgL_argsz00_3373 = BgL_arg1807z00_745; 
BgL_armedz00_3374 = ((bool_t)1); 
BgL_armedz00_736 = BgL_armedz00_3374; 
BgL_argsz00_735 = BgL_argsz00_3373; 
goto BgL_loopz00_738;} } } } } 
POP_TRACE(); 
return BgL_aux2616z00_1338;} } } } 
}



/* _dsssl-check-key-args! */
obj_t BGl__dssslzd2checkzd2keyzd2argsz12zc0zz__dssslz00(obj_t BgL_envz00_1423, obj_t BgL_dssslzd2argszd2_1424, obj_t BgL_keyzd2listzd2_1425)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 255 */
return 
BGl_dssslzd2checkzd2keyzd2argsz12zc0zz__dssslz00(BgL_dssslzd2argszd2_1424, BgL_keyzd2listzd2_1425);} 
}



/* dsssl-get-key-arg */
BGL_EXPORTED_DEF obj_t BGl_dssslzd2getzd2keyzd2argzd2zz__dssslz00(obj_t BgL_dssslzd2argszd2_8, obj_t BgL_keywordz00_9, obj_t BgL_initializa7erza7_10)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 293 */
{ /* ./Llib/dsssl.scm 294 */
obj_t BgL_symbol2621z00_1339;
BgL_symbol2621z00_1339 = BGl_symbol4587z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 294 */

PUSH_TRACE(BgL_symbol2621z00_1339); BUNSPEC; 
{ /* ./Llib/dsssl.scm 294 */
obj_t BgL_aux2620z00_1340;
{ 
obj_t BgL_argsz00_753;
BgL_argsz00_753 = BgL_dssslzd2argszd2_8; 
BgL_loopz00_754:
if(
NULLP(BgL_argsz00_753))
{ /* ./Llib/dsssl.scm 296 */
BgL_aux2620z00_1340 = BgL_initializa7erza7_10; }  else 
{ /* ./Llib/dsssl.scm 298 */
bool_t BgL_test1833z00_756;
{ /* ./Llib/dsssl.scm 298 */
obj_t BgL_arg1878z00_775;
{ /* ./Llib/dsssl.scm 298 */
obj_t BgL_pairz00_1171;
if(
PAIRP(BgL_argsz00_753))
{ /* ./Llib/dsssl.scm 298 */
BgL_pairz00_1171 = BgL_argsz00_753; }  else 
{ /* ./Llib/dsssl.scm 298 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4587z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_753, BGl_string4558z00zz__dssslz00, 
BINT(((long)10030))); 
exit( -1 );} 
BgL_arg1878z00_775 = 
CAR(BgL_pairz00_1171); } 
BgL_test1833z00_756 = 
KEYWORDP(BgL_arg1878z00_775); } 
if(BgL_test1833z00_756)
{ /* ./Llib/dsssl.scm 300 */
bool_t BgL_test1834z00_757;
{ /* ./Llib/dsssl.scm 300 */
obj_t BgL_arg1870z00_773;
{ /* ./Llib/dsssl.scm 300 */
obj_t BgL_pairz00_1173;
if(
PAIRP(BgL_argsz00_753))
{ /* ./Llib/dsssl.scm 300 */
BgL_pairz00_1173 = BgL_argsz00_753; }  else 
{ /* ./Llib/dsssl.scm 300 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4587z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_753, BGl_string4558z00zz__dssslz00, 
BINT(((long)10073))); 
exit( -1 );} 
BgL_arg1870z00_773 = 
CAR(BgL_pairz00_1173); } 
BgL_test1834z00_757 = 
(BgL_arg1870z00_773==BgL_keywordz00_9); } 
if(BgL_test1834z00_757)
{ /* ./Llib/dsssl.scm 300 */
{ /* ./Llib/dsssl.scm 301 */
bool_t BgL_test1835z00_758;
{ /* ./Llib/dsssl.scm 301 */
obj_t BgL_arg1847z00_764;
{ /* ./Llib/dsssl.scm 301 */
obj_t BgL_pairz00_1174;
if(
PAIRP(BgL_argsz00_753))
{ /* ./Llib/dsssl.scm 301 */
BgL_pairz00_1174 = BgL_argsz00_753; }  else 
{ /* ./Llib/dsssl.scm 301 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4587z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_753, BGl_string4558z00zz__dssslz00, 
BINT(((long)10112))); 
exit( -1 );} 
BgL_arg1847z00_764 = 
CDR(BgL_pairz00_1174); } 
BgL_test1835z00_758 = 
PAIRP(BgL_arg1847z00_764); } 
if(BgL_test1835z00_758)
{ /* ./Llib/dsssl.scm 305 */
obj_t BgL_pairz00_1176;
if(
PAIRP(BgL_argsz00_753))
{ /* ./Llib/dsssl.scm 305 */
BgL_pairz00_1176 = BgL_argsz00_753; }  else 
{ /* ./Llib/dsssl.scm 305 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4587z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_753, BGl_string4558z00zz__dssslz00, 
BINT(((long)10224))); 
exit( -1 );} 
{ /* ./Llib/dsssl.scm 305 */
obj_t BgL_arg2325z00_1177;
BgL_arg2325z00_1177 = 
CDR(BgL_pairz00_1176); 
{ /* ./Llib/dsssl.scm 305 */
obj_t BgL_pairz00_1179;
if(
PAIRP(BgL_arg2325z00_1177))
{ /* ./Llib/dsssl.scm 305 */
BgL_pairz00_1179 = BgL_arg2325z00_1177; }  else 
{ /* ./Llib/dsssl.scm 305 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4587z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_arg2325z00_1177, BGl_string4558z00zz__dssslz00, 
BINT(((long)10215))); 
exit( -1 );} 
BgL_aux2620z00_1340 = 
CAR(BgL_pairz00_1179); } } }  else 
{ /* ./Llib/dsssl.scm 301 */
{ /* ./Llib/dsssl.scm 302 */
obj_t BgL_arg1838z00_759;obj_t BgL_arg1840z00_761;
BgL_arg1838z00_759 = BGl_symbol4587z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 304 */
obj_t BgL_pairz00_1180;
if(
PAIRP(BgL_argsz00_753))
{ /* ./Llib/dsssl.scm 304 */
BgL_pairz00_1180 = BgL_argsz00_753; }  else 
{ /* ./Llib/dsssl.scm 304 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4587z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_753, BGl_string4558z00zz__dssslz00, 
BINT(((long)10204))); 
exit( -1 );} 
BgL_arg1840z00_761 = 
CAR(BgL_pairz00_1180); } 
BGl_errorzf2czd2locationz20zz__errorz00(BgL_arg1838z00_759, BGl_string4635z00zz__dssslz00, BgL_arg1840z00_761, "./Llib/dsssl.scm", ((long)10124)); } 
BgL_aux2620z00_1340 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4558z00zz__dssslz00, 
BINT(((long)10187))); } } }  else 
{ /* ./Llib/dsssl.scm 300 */
{ /* ./Llib/dsssl.scm 307 */
bool_t BgL_test1850z00_765;
{ /* ./Llib/dsssl.scm 307 */
obj_t BgL_arg1866z00_772;
{ /* ./Llib/dsssl.scm 307 */
obj_t BgL_pairz00_1184;
if(
PAIRP(BgL_argsz00_753))
{ /* ./Llib/dsssl.scm 307 */
BgL_pairz00_1184 = BgL_argsz00_753; }  else 
{ /* ./Llib/dsssl.scm 307 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4587z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_753, BGl_string4558z00zz__dssslz00, 
BINT(((long)10264))); 
exit( -1 );} 
BgL_arg1866z00_772 = 
CDR(BgL_pairz00_1184); } 
BgL_test1850z00_765 = 
PAIRP(BgL_arg1866z00_772); } 
if(BgL_test1850z00_765)
{ /* ./Llib/dsssl.scm 311 */
obj_t BgL_arg1852z00_766;
{ /* ./Llib/dsssl.scm 311 */
obj_t BgL_pairz00_1186;
if(
PAIRP(BgL_argsz00_753))
{ /* ./Llib/dsssl.scm 311 */
BgL_pairz00_1186 = BgL_argsz00_753; }  else 
{ /* ./Llib/dsssl.scm 311 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4587z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_753, BGl_string4558z00zz__dssslz00, 
BINT(((long)10382))); 
exit( -1 );} 
{ /* ./Llib/dsssl.scm 311 */
obj_t BgL_arg2317z00_1187;
BgL_arg2317z00_1187 = 
CDR(BgL_pairz00_1186); 
{ /* ./Llib/dsssl.scm 311 */
obj_t BgL_pairz00_1189;
if(
PAIRP(BgL_arg2317z00_1187))
{ /* ./Llib/dsssl.scm 311 */
BgL_pairz00_1189 = BgL_arg2317z00_1187; }  else 
{ /* ./Llib/dsssl.scm 311 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4587z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_arg2317z00_1187, BGl_string4558z00zz__dssslz00, 
BINT(((long)10373))); 
exit( -1 );} 
BgL_arg1852z00_766 = 
CDR(BgL_pairz00_1189); } } } 
{ 
obj_t BgL_argsz00_3445;
BgL_argsz00_3445 = BgL_arg1852z00_766; 
BgL_argsz00_753 = BgL_argsz00_3445; 
goto BgL_loopz00_754;} }  else 
{ /* ./Llib/dsssl.scm 307 */
{ /* ./Llib/dsssl.scm 308 */
obj_t BgL_arg1856z00_767;obj_t BgL_arg1858z00_769;
BgL_arg1856z00_767 = BGl_symbol4587z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 310 */
obj_t BgL_pairz00_1190;
if(
PAIRP(BgL_argsz00_753))
{ /* ./Llib/dsssl.scm 310 */
BgL_pairz00_1190 = BgL_argsz00_753; }  else 
{ /* ./Llib/dsssl.scm 310 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4587z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_753, BGl_string4558z00zz__dssslz00, 
BINT(((long)10356))); 
exit( -1 );} 
BgL_arg1858z00_769 = 
CAR(BgL_pairz00_1190); } 
BGl_errorzf2czd2locationz20zz__errorz00(BgL_arg1856z00_767, BGl_string4635z00zz__dssslz00, BgL_arg1858z00_769, "./Llib/dsssl.scm", ((long)10276)); } 
BgL_aux2620z00_1340 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4558z00zz__dssslz00, 
BINT(((long)10339))); } } } }  else 
{ /* ./Llib/dsssl.scm 298 */
{ /* ./Llib/dsssl.scm 299 */
obj_t BgL_arg1874z00_774;
{ /* ./Llib/dsssl.scm 299 */
obj_t BgL_pairz00_1194;
if(
PAIRP(BgL_argsz00_753))
{ /* ./Llib/dsssl.scm 299 */
BgL_pairz00_1194 = BgL_argsz00_753; }  else 
{ /* ./Llib/dsssl.scm 299 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4587z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_753, BGl_string4558z00zz__dssslz00, 
BINT(((long)10052))); 
exit( -1 );} 
BgL_arg1874z00_774 = 
CDR(BgL_pairz00_1194); } 
{ 
obj_t BgL_argsz00_3461;
BgL_argsz00_3461 = BgL_arg1874z00_774; 
BgL_argsz00_753 = BgL_argsz00_3461; 
goto BgL_loopz00_754;} } } } } 
POP_TRACE(); 
return BgL_aux2620z00_1340;} } } } 
}



/* _dsssl-get-key-arg2666 */
obj_t BGl__dssslzd2getzd2keyzd2arg2666zd2zz__dssslz00(obj_t BgL_envz00_1426, obj_t BgL_dssslzd2argszd2_1427, obj_t BgL_keywordz00_1428, obj_t BgL_initializa7erza7_1429)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 293 */
{ /* ./Llib/dsssl.scm 294 */
obj_t BgL_auxz00_3463;
if(
KEYWORDP(BgL_keywordz00_1428))
{ /* ./Llib/dsssl.scm 294 */
BgL_auxz00_3463 = BgL_keywordz00_1428
; }  else 
{ /* ./Llib/dsssl.scm 294 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4636z00zz__dssslz00, BGl_string4637z00zz__dssslz00, BgL_keywordz00_1428, BGl_string4558z00zz__dssslz00, 
BINT(((long)9930))); 
exit( -1 );} 
return 
BGl_dssslzd2getzd2keyzd2argzd2zz__dssslz00(BgL_dssslzd2argszd2_1427, BgL_auxz00_3463, BgL_initializa7erza7_1429);} } 
}



/* id-sans-type */
obj_t BGl_idzd2sanszd2typez00zz__dssslz00(obj_t BgL_idz00_11)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 319 */
{ /* ./Llib/dsssl.scm 320 */
obj_t BgL_symbol2625z00_1341;
BgL_symbol2625z00_1341 = BGl_symbol4638z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 320 */

PUSH_TRACE(BgL_symbol2625z00_1341); BUNSPEC; 
{ /* ./Llib/dsssl.scm 320 */
obj_t BgL_aux2624z00_1342;
{ /* ./Llib/dsssl.scm 320 */
obj_t BgL_stringz00_776;
BgL_stringz00_776 = 
SYMBOL_TO_STRING(BgL_idz00_11); 
{ /* ./Llib/dsssl.scm 320 */
int BgL_lenz00_777;
BgL_lenz00_777 = 
STRING_LENGTH(BgL_stringz00_776); 
{ /* ./Llib/dsssl.scm 321 */

{ 
long BgL_walkerz00_778;
BgL_walkerz00_778 = ((long)0); 
BgL_loopz00_779:
{ /* ./Llib/dsssl.scm 324 */
bool_t BgL_testz00_3473;
{ /* ./Llib/dsssl.scm 324 */
long BgL_auxz00_3474;
BgL_auxz00_3474 = 
(long)(BgL_lenz00_777); 
BgL_testz00_3473 = 
(BgL_walkerz00_778==BgL_auxz00_3474); } 
if(BgL_testz00_3473)
{ /* ./Llib/dsssl.scm 324 */
BgL_aux2624z00_1342 = BgL_idz00_11; }  else 
{ /* ./Llib/dsssl.scm 326 */
bool_t BgL_test1884z00_781;
{ /* ./Llib/dsssl.scm 326 */
bool_t BgL_test1893z00_784;
{ /* ./Llib/dsssl.scm 326 */
unsigned char BgL_arg1908z00_789;
{ /* ./Llib/dsssl.scm 326 */
unsigned char BgL_res2597z00_1207;
{ /* ./Llib/dsssl.scm 326 */
int BgL_kz00_1200;
BgL_kz00_1200 = 
(int)(BgL_walkerz00_778); 
{ /* ./Llib/dsssl.scm 326 */
bool_t BgL_testz00_3478;
{ /* ./Llib/dsssl.scm 326 */
int BgL_auxz00_3479;
BgL_auxz00_3479 = 
STRING_LENGTH(BgL_stringz00_776); 
BgL_testz00_3478 = 
BOUND_CHECK(BgL_kz00_1200, BgL_auxz00_3479); } 
if(BgL_testz00_3478)
{ /* ./Llib/dsssl.scm 326 */
BgL_res2597z00_1207 = 
STRING_REF(BgL_stringz00_776, BgL_kz00_1200); }  else 
{ /* ./Llib/dsssl.scm 326 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4639z00zz__dssslz00, BGl_string4640z00zz__dssslz00, 
BINT(BgL_kz00_1200), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/dsssl.scm 326 */
obj_t BgL_auxz00_3485;
{ /* ./Llib/dsssl.scm 326 */
obj_t BgL_aux4285z00_1796;
BgL_aux4285z00_1796 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4558z00zz__dssslz00, 
BINT(((long)11046))); 
if(
CHARP(BgL_aux4285z00_1796))
{ /* ./Llib/dsssl.scm 326 */
BgL_auxz00_3485 = BgL_aux4285z00_1796
; }  else 
{ /* ./Llib/dsssl.scm 326 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4638z00zz__dssslz00, BGl_string4641z00zz__dssslz00, BgL_aux4285z00_1796, BGl_string4558z00zz__dssslz00, 
BINT(((long)11046))); 
exit( -1 );} } 
BgL_res2597z00_1207 = 
(unsigned char)CCHAR(BgL_auxz00_3485); } } } } 
BgL_arg1908z00_789 = BgL_res2597z00_1207; } 
BgL_test1893z00_784 = 
(BgL_arg1908z00_789==((unsigned char)':')); } 
if(BgL_test1893z00_784)
{ /* ./Llib/dsssl.scm 327 */
bool_t BgL_testz00_3496;
{ /* ./Llib/dsssl.scm 327 */
long BgL_auxz00_3497;
{ /* ./Llib/dsssl.scm 327 */
long BgL_auxz00_3498;
BgL_auxz00_3498 = 
(long)(BgL_lenz00_777); 
BgL_auxz00_3497 = 
(BgL_auxz00_3498-((long)1)); } 
BgL_testz00_3496 = 
(BgL_walkerz00_778<BgL_auxz00_3497); } 
if(BgL_testz00_3496)
{ /* ./Llib/dsssl.scm 328 */
unsigned char BgL_arg1896z00_786;
{ /* ./Llib/dsssl.scm 328 */
long BgL_arg1899z00_787;
BgL_arg1899z00_787 = 
(BgL_walkerz00_778+((long)1)); 
{ /* ./Llib/dsssl.scm 328 */
unsigned char BgL_res2598z00_1224;
{ /* ./Llib/dsssl.scm 328 */
int BgL_kz00_1217;
BgL_kz00_1217 = 
(int)(BgL_arg1899z00_787); 
{ /* ./Llib/dsssl.scm 328 */
bool_t BgL_testz00_3504;
{ /* ./Llib/dsssl.scm 328 */
int BgL_auxz00_3505;
BgL_auxz00_3505 = 
STRING_LENGTH(BgL_stringz00_776); 
BgL_testz00_3504 = 
BOUND_CHECK(BgL_kz00_1217, BgL_auxz00_3505); } 
if(BgL_testz00_3504)
{ /* ./Llib/dsssl.scm 328 */
BgL_res2598z00_1224 = 
STRING_REF(BgL_stringz00_776, BgL_kz00_1217); }  else 
{ /* ./Llib/dsssl.scm 328 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4639z00zz__dssslz00, BGl_string4640z00zz__dssslz00, 
BINT(BgL_kz00_1217), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/dsssl.scm 328 */
obj_t BgL_auxz00_3511;
{ /* ./Llib/dsssl.scm 328 */
obj_t BgL_aux4306z00_1798;
BgL_aux4306z00_1798 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4558z00zz__dssslz00, 
BINT(((long)11119))); 
if(
CHARP(BgL_aux4306z00_1798))
{ /* ./Llib/dsssl.scm 328 */
BgL_auxz00_3511 = BgL_aux4306z00_1798
; }  else 
{ /* ./Llib/dsssl.scm 328 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4638z00zz__dssslz00, BGl_string4641z00zz__dssslz00, BgL_aux4306z00_1798, BGl_string4558z00zz__dssslz00, 
BINT(((long)11119))); 
exit( -1 );} } 
BgL_res2598z00_1224 = 
(unsigned char)CCHAR(BgL_auxz00_3511); } } } } 
BgL_arg1896z00_786 = BgL_res2598z00_1224; } } 
BgL_test1884z00_781 = 
(BgL_arg1896z00_786==((unsigned char)':')); }  else 
{ /* ./Llib/dsssl.scm 327 */
BgL_test1884z00_781 = ((bool_t)0); } }  else 
{ /* ./Llib/dsssl.scm 326 */
BgL_test1884z00_781 = ((bool_t)0); } } 
if(BgL_test1884z00_781)
{ /* ./Llib/dsssl.scm 326 */
{ /* ./Llib/dsssl.scm 329 */
obj_t BgL_arg1886z00_782;
{ /* ./Llib/dsssl.scm 329 */
obj_t BgL_res2599z00_1255;
{ /* ./Llib/dsssl.scm 329 */
int BgL_startz00_1228;int BgL_endz00_1229;
BgL_startz00_1228 = 
(int)(((long)0)); 
BgL_endz00_1229 = 
(int)(BgL_walkerz00_778); 
{ /* ./Llib/dsssl.scm 329 */
bool_t BgL_test2015z00_1230;
{ /* ./Llib/dsssl.scm 329 */
bool_t BgL_testz00_3524;
{ /* ./Llib/dsssl.scm 329 */
long BgL_auxz00_3527;long BgL_auxz00_3525;
BgL_auxz00_3527 = 
(long)(BgL_startz00_1228); 
BgL_auxz00_3525 = 
(long)(BgL_endz00_1229); 
BgL_testz00_3524 = 
(BgL_auxz00_3525>=BgL_auxz00_3527); } 
if(BgL_testz00_3524)
{ /* ./Llib/dsssl.scm 329 */
bool_t BgL_testz00_3530;
{ /* ./Llib/dsssl.scm 329 */
int BgL_auxz00_3531;
{ /* ./Llib/dsssl.scm 329 */
long BgL_auxz00_3532;
{ /* ./Llib/dsssl.scm 329 */
long BgL_auxz00_3533;
{ /* ./Llib/dsssl.scm 329 */
int BgL_auxz00_3534;
BgL_auxz00_3534 = 
STRING_LENGTH(BgL_stringz00_776); 
BgL_auxz00_3533 = 
(long)(BgL_auxz00_3534); } 
BgL_auxz00_3532 = 
(BgL_auxz00_3533+((long)1)); } 
BgL_auxz00_3531 = 
(int)(BgL_auxz00_3532); } 
BgL_testz00_3530 = 
BOUND_CHECK(BgL_startz00_1228, BgL_auxz00_3531); } 
if(BgL_testz00_3530)
{ /* ./Llib/dsssl.scm 329 */
int BgL_auxz00_3540;
{ /* ./Llib/dsssl.scm 329 */
long BgL_auxz00_3541;
{ /* ./Llib/dsssl.scm 329 */
long BgL_auxz00_3542;
{ /* ./Llib/dsssl.scm 329 */
int BgL_auxz00_3543;
BgL_auxz00_3543 = 
STRING_LENGTH(BgL_stringz00_776); 
BgL_auxz00_3542 = 
(long)(BgL_auxz00_3543); } 
BgL_auxz00_3541 = 
(BgL_auxz00_3542+((long)1)); } 
BgL_auxz00_3540 = 
(int)(BgL_auxz00_3541); } 
BgL_test2015z00_1230 = 
BOUND_CHECK(BgL_endz00_1229, BgL_auxz00_3540); }  else 
{ /* ./Llib/dsssl.scm 329 */
BgL_test2015z00_1230 = ((bool_t)0); } }  else 
{ /* ./Llib/dsssl.scm 329 */
BgL_test2015z00_1230 = ((bool_t)0); } } 
if(BgL_test2015z00_1230)
{ /* ./Llib/dsssl.scm 329 */
BgL_res2599z00_1255 = 
c_substring(BgL_stringz00_776, BgL_startz00_1228, BgL_endz00_1229); }  else 
{ /* ./Llib/dsssl.scm 329 */
{ /* ./Llib/dsssl.scm 329 */
obj_t BgL_arg2021z00_1241;
{ /* ./Llib/dsssl.scm 329 */
obj_t BgL_auxz00_3553;obj_t BgL_auxz00_3551;
BgL_auxz00_3553 = 
BINT(BgL_endz00_1229); 
BgL_auxz00_3551 = 
BINT(BgL_startz00_1228); 
BgL_arg2021z00_1241 = 
MAKE_PAIR(BgL_auxz00_3551, BgL_auxz00_3553); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4642z00zz__dssslz00, BGl_string4643z00zz__dssslz00, BgL_arg2021z00_1241, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/dsssl.scm 329 */
obj_t BgL_aux4334z00_1800;
BgL_aux4334z00_1800 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4558z00zz__dssslz00, 
BINT(((long)11182))); 
if(
STRINGP(BgL_aux4334z00_1800))
{ /* ./Llib/dsssl.scm 329 */
BgL_res2599z00_1255 = BgL_aux4334z00_1800; }  else 
{ /* ./Llib/dsssl.scm 329 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4638z00zz__dssslz00, BGl_string4644z00zz__dssslz00, BgL_aux4334z00_1800, BGl_string4558z00zz__dssslz00, 
BINT(((long)11182))); 
exit( -1 );} } } } } 
BgL_arg1886z00_782 = BgL_res2599z00_1255; } 
{ /* ./Llib/dsssl.scm 329 */
char * BgL_auxz00_3564;
BgL_auxz00_3564 = 
BSTRING_TO_STRING(BgL_arg1886z00_782); 
BgL_aux2624z00_1342 = 
string_to_symbol(BgL_auxz00_3564); } } }  else 
{ /* ./Llib/dsssl.scm 326 */
{ 
long BgL_walkerz00_3567;
BgL_walkerz00_3567 = 
(BgL_walkerz00_778+((long)1)); 
BgL_walkerz00_778 = BgL_walkerz00_3567; 
goto BgL_loopz00_779;} } } } } } } } 
POP_TRACE(); 
return BgL_aux2624z00_1342;} } } } 
}



/* dsssl-formals->scheme-formals */
BGL_EXPORTED_DEF obj_t BGl_dssslzd2formalszd2ze3schemezd2formalsz31zz__dssslz00(obj_t BgL_formalsz00_12, obj_t BgL_errz00_13)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 345 */
{ /* ./Llib/dsssl.scm 348 */
obj_t BgL_symbol2629z00_1343;
BgL_symbol2629z00_1343 = BGl_symbol4645z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 348 */

PUSH_TRACE(BgL_symbol2629z00_1343); BUNSPEC; 
{ /* ./Llib/dsssl.scm 348 */
obj_t BgL_aux2628z00_1344;
BgL_aux2628z00_1344 = 
BGl_loopz00zz__dssslz00(BgL_formalsz00_12, BgL_errz00_13, BgL_formalsz00_12, ((bool_t)0)); 
POP_TRACE(); 
return BgL_aux2628z00_1344;} } } } 
}



/* loop */
obj_t BGl_loopz00zz__dssslz00(obj_t BgL_formalsz00_1434, obj_t BgL_errz00_1433, obj_t BgL_argsz00_793, bool_t BgL_dssslz00_794)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 358 */
BGl_loopz00zz__dssslz00:
{ 
obj_t BgL_objz00_815;
if(
NULLP(BgL_argsz00_793))
{ /* ./Llib/dsssl.scm 361 */
return BNIL;}  else 
{ /* ./Llib/dsssl.scm 363 */
bool_t BgL_test1916z00_797;
BgL_test1916z00_797 = 
PAIRP(BgL_argsz00_793); 
if(BgL_test1916z00_797)
{ /* ./Llib/dsssl.scm 373 */
bool_t BgL_test1917z00_798;
{ /* ./Llib/dsssl.scm 373 */
obj_t BgL_arg1960z00_811;
{ /* ./Llib/dsssl.scm 373 */
obj_t BgL_pairz00_1261;
if(BgL_test1916z00_797)
{ /* ./Llib/dsssl.scm 373 */
BgL_pairz00_1261 = BgL_argsz00_793; }  else 
{ /* ./Llib/dsssl.scm 373 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_793, BGl_string4558z00zz__dssslz00, 
BINT(((long)12835))); 
exit( -1 );} 
BgL_arg1960z00_811 = 
CAR(BgL_pairz00_1261); } 
BgL_test1917z00_798 = 
SYMBOLP(BgL_arg1960z00_811); } 
if(BgL_test1917z00_798)
{ /* ./Llib/dsssl.scm 373 */
if(BgL_dssslz00_794)
{ /* ./Llib/dsssl.scm 385 */
{ /* ./Llib/dsssl.scm 386 */
obj_t BgL_arg1919z00_799;
{ /* ./Llib/dsssl.scm 386 */
obj_t BgL_pairz00_1263;
if(
PAIRP(BgL_argsz00_793))
{ /* ./Llib/dsssl.scm 386 */
BgL_pairz00_1263 = BgL_argsz00_793; }  else 
{ /* ./Llib/dsssl.scm 386 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_793, BGl_string4558z00zz__dssslz00, 
BINT(((long)13250))); 
exit( -1 );} 
BgL_arg1919z00_799 = 
CAR(BgL_pairz00_1263); } 
{ /* ./Llib/dsssl.scm 386 */
obj_t BgL_auxz00_3591;
if(
SYMBOLP(BgL_arg1919z00_799))
{ /* ./Llib/dsssl.scm 386 */
BgL_auxz00_3591 = BgL_arg1919z00_799
; }  else 
{ /* ./Llib/dsssl.scm 386 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4557z00zz__dssslz00, BgL_arg1919z00_799, BGl_string4558z00zz__dssslz00, 
BINT(((long)13251))); 
exit( -1 );} 
return 
BGl_idzd2sanszd2typez00zz__dssslz00(BgL_auxz00_3591);} } }  else 
{ /* ./Llib/dsssl.scm 385 */
{ /* ./Llib/dsssl.scm 388 */
obj_t BgL_arg1923z00_800;obj_t BgL_arg1924z00_801;
{ /* ./Llib/dsssl.scm 388 */
obj_t BgL_arg1928z00_802;
{ /* ./Llib/dsssl.scm 388 */
obj_t BgL_pairz00_1264;
if(
PAIRP(BgL_argsz00_793))
{ /* ./Llib/dsssl.scm 388 */
BgL_pairz00_1264 = BgL_argsz00_793; }  else 
{ /* ./Llib/dsssl.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_793, BGl_string4558z00zz__dssslz00, 
BINT(((long)13294))); 
exit( -1 );} 
BgL_arg1928z00_802 = 
CAR(BgL_pairz00_1264); } 
{ /* ./Llib/dsssl.scm 388 */
obj_t BgL_auxz00_3604;
if(
SYMBOLP(BgL_arg1928z00_802))
{ /* ./Llib/dsssl.scm 388 */
BgL_auxz00_3604 = BgL_arg1928z00_802
; }  else 
{ /* ./Llib/dsssl.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4557z00zz__dssslz00, BgL_arg1928z00_802, BGl_string4558z00zz__dssslz00, 
BINT(((long)13295))); 
exit( -1 );} 
BgL_arg1923z00_800 = 
BGl_idzd2sanszd2typez00zz__dssslz00(BgL_auxz00_3604); } } 
{ /* ./Llib/dsssl.scm 389 */
obj_t BgL_arg1933z00_803;
{ /* ./Llib/dsssl.scm 389 */
obj_t BgL_pairz00_1265;
if(
PAIRP(BgL_argsz00_793))
{ /* ./Llib/dsssl.scm 389 */
BgL_pairz00_1265 = BgL_argsz00_793; }  else 
{ /* ./Llib/dsssl.scm 389 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_793, BGl_string4558z00zz__dssslz00, 
BINT(((long)13314))); 
exit( -1 );} 
BgL_arg1933z00_803 = 
CDR(BgL_pairz00_1265); } 
BgL_arg1924z00_801 = 
BGl_loopz00zz__dssslz00(BgL_formalsz00_1434, BgL_errz00_1433, BgL_arg1933z00_803, ((bool_t)0)); } 
return 
MAKE_PAIR(BgL_arg1923z00_800, BgL_arg1924z00_801);} } }  else 
{ /* ./Llib/dsssl.scm 373 */
{ /* ./Llib/dsssl.scm 375 */
bool_t BgL_test1936z00_804;
{ /* ./Llib/dsssl.scm 375 */
obj_t BgL_arg1956z00_810;
{ /* ./Llib/dsssl.scm 375 */
obj_t BgL_pairz00_1266;
if(
PAIRP(BgL_argsz00_793))
{ /* ./Llib/dsssl.scm 375 */
BgL_pairz00_1266 = BgL_argsz00_793; }  else 
{ /* ./Llib/dsssl.scm 375 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_793, BGl_string4558z00zz__dssslz00, 
BINT(((long)12887))); 
exit( -1 );} 
BgL_arg1956z00_810 = 
CAR(BgL_pairz00_1266); } 
{ /* ./Llib/dsssl.scm 375 */
obj_t BgL_auxz00_3625;
BgL_auxz00_3625 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg1956z00_810, BGl_list4647z00zz__dssslz00); 
BgL_test1936z00_804 = 
CBOOL(BgL_auxz00_3625); } } 
if(BgL_test1936z00_804)
{ /* ./Llib/dsssl.scm 375 */
{ /* ./Llib/dsssl.scm 376 */
obj_t BgL_arg1938z00_805;
{ /* ./Llib/dsssl.scm 376 */
obj_t BgL_pairz00_1268;
if(
PAIRP(BgL_argsz00_793))
{ /* ./Llib/dsssl.scm 376 */
BgL_pairz00_1268 = BgL_argsz00_793; }  else 
{ /* ./Llib/dsssl.scm 376 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_793, BGl_string4558z00zz__dssslz00, 
BINT(((long)12912))); 
exit( -1 );} 
BgL_arg1938z00_805 = 
CDR(BgL_pairz00_1268); } 
{ 
bool_t BgL_dssslz00_3636;obj_t BgL_argsz00_3635;
BgL_argsz00_3635 = BgL_arg1938z00_805; 
BgL_dssslz00_3636 = ((bool_t)1); 
BgL_dssslz00_794 = BgL_dssslz00_3636; 
BgL_argsz00_793 = BgL_argsz00_3635; 
goto BGl_loopz00zz__dssslz00;} } }  else 
{ /* ./Llib/dsssl.scm 375 */
if(BgL_dssslz00_794)
{ /* ./Llib/dsssl.scm 379 */
bool_t BgL_test1941z00_806;
{ /* ./Llib/dsssl.scm 379 */
obj_t BgL_arg1951z00_809;
{ /* ./Llib/dsssl.scm 379 */
obj_t BgL_pairz00_1269;
if(
PAIRP(BgL_argsz00_793))
{ /* ./Llib/dsssl.scm 379 */
BgL_pairz00_1269 = BgL_argsz00_793; }  else 
{ /* ./Llib/dsssl.scm 379 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_793, BGl_string4558z00zz__dssslz00, 
BINT(((long)13046))); 
exit( -1 );} 
BgL_arg1951z00_809 = 
CAR(BgL_pairz00_1269); } 
BgL_objz00_815 = BgL_arg1951z00_809; 
{ /* ./Llib/dsssl.scm 351 */
bool_t BgL__andtest_1020z00_817;
BgL__andtest_1020z00_817 = 
PAIRP(BgL_objz00_815); 
if(BgL__andtest_1020z00_817)
{ /* ./Llib/dsssl.scm 352 */
bool_t BgL__andtest_1021z00_818;
{ /* ./Llib/dsssl.scm 352 */
obj_t BgL_arg1978z00_820;
{ /* ./Llib/dsssl.scm 352 */
obj_t BgL_pairz00_1276;
if(BgL__andtest_1020z00_817)
{ /* ./Llib/dsssl.scm 352 */
BgL_pairz00_1276 = BgL_objz00_815; }  else 
{ /* ./Llib/dsssl.scm 352 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_objz00_815, BGl_string4558z00zz__dssslz00, 
BINT(((long)12368))); 
exit( -1 );} 
BgL_arg1978z00_820 = 
CDR(BgL_pairz00_1276); } 
BgL__andtest_1021z00_818 = 
PAIRP(BgL_arg1978z00_820); } 
if(BgL__andtest_1021z00_818)
{ /* ./Llib/dsssl.scm 353 */
obj_t BgL_arg1974z00_819;
{ /* ./Llib/dsssl.scm 353 */
obj_t BgL_pairz00_1278;
if(
PAIRP(BgL_objz00_815))
{ /* ./Llib/dsssl.scm 353 */
BgL_pairz00_1278 = BgL_objz00_815; }  else 
{ /* ./Llib/dsssl.scm 353 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_objz00_815, BGl_string4558z00zz__dssslz00, 
BINT(((long)12391))); 
exit( -1 );} 
{ /* ./Llib/dsssl.scm 353 */
obj_t BgL_arg2317z00_1279;
BgL_arg2317z00_1279 = 
CDR(BgL_pairz00_1278); 
{ /* ./Llib/dsssl.scm 353 */
obj_t BgL_pairz00_1281;
if(
PAIRP(BgL_arg2317z00_1279))
{ /* ./Llib/dsssl.scm 353 */
BgL_pairz00_1281 = BgL_arg2317z00_1279; }  else 
{ /* ./Llib/dsssl.scm 353 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_arg2317z00_1279, BGl_string4558z00zz__dssslz00, 
BINT(((long)12383))); 
exit( -1 );} 
BgL_arg1974z00_819 = 
CDR(BgL_pairz00_1281); } } } 
BgL_test1941z00_806 = 
NULLP(BgL_arg1974z00_819); }  else 
{ /* ./Llib/dsssl.scm 352 */
BgL_test1941z00_806 = ((bool_t)0); } }  else 
{ /* ./Llib/dsssl.scm 351 */
BgL_test1941z00_806 = ((bool_t)0); } } } 
if(BgL_test1941z00_806)
{ /* ./Llib/dsssl.scm 379 */
{ /* ./Llib/dsssl.scm 380 */
obj_t BgL_arg1943z00_807;
{ /* ./Llib/dsssl.scm 380 */
obj_t BgL_arg1946z00_808;
{ /* ./Llib/dsssl.scm 380 */
obj_t BgL_pairz00_1270;
if(
PAIRP(BgL_argsz00_793))
{ /* ./Llib/dsssl.scm 380 */
BgL_pairz00_1270 = BgL_argsz00_793; }  else 
{ /* ./Llib/dsssl.scm 380 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_argsz00_793, BGl_string4558z00zz__dssslz00, 
BINT(((long)13101))); 
exit( -1 );} 
BgL_arg1946z00_808 = 
CAR(BgL_pairz00_1270); } 
{ /* ./Llib/dsssl.scm 380 */
obj_t BgL_pairz00_1272;
if(
PAIRP(BgL_arg1946z00_808))
{ /* ./Llib/dsssl.scm 380 */
BgL_pairz00_1272 = BgL_arg1946z00_808; }  else 
{ /* ./Llib/dsssl.scm 380 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4567z00zz__dssslz00, BgL_arg1946z00_808, BGl_string4558z00zz__dssslz00, 
BINT(((long)13071))); 
exit( -1 );} 
BgL_arg1943z00_807 = 
CAR(BgL_pairz00_1272); } } 
{ /* ./Llib/dsssl.scm 380 */
obj_t BgL_auxz00_3679;
if(
SYMBOLP(BgL_arg1943z00_807))
{ /* ./Llib/dsssl.scm 380 */
BgL_auxz00_3679 = BgL_arg1943z00_807
; }  else 
{ /* ./Llib/dsssl.scm 380 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4557z00zz__dssslz00, BgL_arg1943z00_807, BGl_string4558z00zz__dssslz00, 
BINT(((long)13103))); 
exit( -1 );} 
return 
BGl_idzd2sanszd2typez00zz__dssslz00(BgL_auxz00_3679);} } }  else 
{ /* ./Llib/dsssl.scm 379 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_1433, ((long)3)))
{ /* ./Llib/dsssl.scm 382 */
return 
PROCEDURE_ENTRY(BgL_errz00_1433)(BgL_errz00_1433, BGl_string4648z00zz__dssslz00, BGl_string4649z00zz__dssslz00, BgL_formalsz00_1434, BEOA);}  else 
{ /* ./Llib/dsssl.scm 382 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4650z00zz__dssslz00, BGl_list4651z00zz__dssslz00, BgL_errz00_1433, BGl_string4558z00zz__dssslz00, 
BINT(((long)13126))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } }  else 
{ /* ./Llib/dsssl.scm 377 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_1433, ((long)3)))
{ /* ./Llib/dsssl.scm 378 */
return 
PROCEDURE_ENTRY(BgL_errz00_1433)(BgL_errz00_1433, BGl_string4648z00zz__dssslz00, BGl_string4652z00zz__dssslz00, BgL_formalsz00_1434, BEOA);}  else 
{ /* ./Llib/dsssl.scm 378 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4650z00zz__dssslz00, BGl_list4653z00zz__dssslz00, BgL_errz00_1433, BGl_string4558z00zz__dssslz00, 
BINT(((long)12946))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } } } }  else 
{ /* ./Llib/dsssl.scm 363 */
if(BgL_dssslz00_794)
{ /* ./Llib/dsssl.scm 365 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_1433, ((long)3)))
{ /* ./Llib/dsssl.scm 366 */
return 
PROCEDURE_ENTRY(BgL_errz00_1433)(BgL_errz00_1433, BGl_string4654z00zz__dssslz00, BGl_string4655z00zz__dssslz00, BgL_formalsz00_1434, BEOA);}  else 
{ /* ./Llib/dsssl.scm 366 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4650z00zz__dssslz00, BGl_list4656z00zz__dssslz00, BgL_errz00_1433, BGl_string4558z00zz__dssslz00, 
BINT(((long)12591))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} }  else 
{ /* ./Llib/dsssl.scm 369 */
bool_t BgL_test1964z00_812;
BgL_test1964z00_812 = 
SYMBOLP(BgL_argsz00_793); 
if(BgL_test1964z00_812)
{ /* ./Llib/dsssl.scm 369 */
{ /* ./Llib/dsssl.scm 372 */
obj_t BgL_auxz00_3710;
if(BgL_test1964z00_812)
{ /* ./Llib/dsssl.scm 372 */
BgL_auxz00_3710 = BgL_argsz00_793
; }  else 
{ /* ./Llib/dsssl.scm 372 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4646z00zz__dssslz00, BGl_string4557z00zz__dssslz00, BgL_argsz00_793, BGl_string4558z00zz__dssslz00, 
BINT(((long)12804))); 
exit( -1 );} 
return 
BGl_idzd2sanszd2typez00zz__dssslz00(BgL_auxz00_3710);} }  else 
{ /* ./Llib/dsssl.scm 369 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_1433, ((long)3)))
{ /* ./Llib/dsssl.scm 370 */
return 
PROCEDURE_ENTRY(BgL_errz00_1433)(BgL_errz00_1433, BGl_string4648z00zz__dssslz00, BGl_string4652z00zz__dssslz00, BgL_formalsz00_1434, BEOA);}  else 
{ /* ./Llib/dsssl.scm 370 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4650z00zz__dssslz00, BGl_list4653z00zz__dssslz00, BgL_errz00_1433, BGl_string4558z00zz__dssslz00, 
BINT(((long)12708))); 
FAILURE(BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00,BGl_symbol4566z00zz__dssslz00);} } } } } } } 
}



/* _dsssl-formals->scheme-formals2668 */
obj_t BGl__dssslzd2formalszd2ze3schemezd2formals2668z31zz__dssslz00(obj_t BgL_envz00_1430, obj_t BgL_formalsz00_1431, obj_t BgL_errz00_1432)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 345 */
{ /* ./Llib/dsssl.scm 348 */
obj_t BgL_auxz00_3723;
if(
PROCEDUREP(BgL_errz00_1432))
{ /* ./Llib/dsssl.scm 348 */
BgL_auxz00_3723 = BgL_errz00_1432
; }  else 
{ /* ./Llib/dsssl.scm 348 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4657z00zz__dssslz00, BGl_string4568z00zz__dssslz00, BgL_errz00_1432, BGl_string4558z00zz__dssslz00, 
BINT(((long)12283))); 
exit( -1 );} 
return 
BGl_dssslzd2formalszd2ze3schemezd2formalsz31zz__dssslz00(BgL_formalsz00_1431, BgL_auxz00_3723);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__dssslz00()
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 14 */
{ /* ./Llib/dsssl.scm 14 */
obj_t BgL_symbol2633z00_1345;
BgL_symbol2633z00_1345 = BGl_symbol4658z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 14 */

PUSH_TRACE(BgL_symbol2633z00_1345); BUNSPEC; 
{ /* ./Llib/dsssl.scm 14 */
obj_t BgL_aux2632z00_1346;
BgL_aux2632z00_1346 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__dsssl"); 
POP_TRACE(); 
return BgL_aux2632z00_1346;} } } } 
}

