/*===========================================================================*/
/*   (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 -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c Llib/dsssl.scm -indent -o objs/obj_u/Llib/dsssl.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

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

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 *);
BGL_EXPORTED_DECL obj_t BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(obj_t, obj_t, obj_t, 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_cnstzd2initzd2zz__dssslz00();
static obj_t BGl_restzd2statezd2zz__dssslz00(obj_t, obj_t, obj_t);
extern obj_t string_to_symbol(char *);
static obj_t BGl_TAGzd2141zd2zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
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_zc3anonymousza31023ze3z83zz__dssslz00(obj_t, obj_t);
static obj_t BGl__dssslzd2formalszd2ze3schemezd2formals2596z31zz__dssslz00(obj_t, obj_t, obj_t);
extern obj_t string_append(obj_t, obj_t);
static obj_t BGl__dssslzd2getzd2keyzd2arg2594zd2zz__dssslz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__dssslz00();
static obj_t BGl__makezd2dssslzd2functionzd2prelude2574zd2zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_idzd2sanszd2typez00zz__dssslz00(obj_t);
static obj_t BGl_list2727z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zz__dssslz00 = BUNSPEC;
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);
BGL_EXPORTED_DECL obj_t BGl_dssslzd2checkzd2keyzd2argsz12zc0zz__dssslz00(obj_t, obj_t);
static obj_t BGl_map1011z00zz__dssslz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t string_to_keyword(char *);
static obj_t BGl_symbol2723z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2722z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2721z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2720z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2719z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2718z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2717z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2714z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2713z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2712z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2710z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2707z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2706z00zz__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_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_onezd2keyzd2argz00zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zz__dssslz00();
BGL_EXPORTED_DEF obj_t BGl_dssslzd2symbolzd2ze3keywordze3zz__dssslz00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_dssslzd2formalszd2ze3schemezd2formalszd2envze3zz__dssslz00, BgL_bgl__dssslza7d2formalsza7d2za7e3schemeza7d2formals2596za731za7za7__dssslza7002739z00, BGl__dssslzd2formalszd2ze3schemezd2formals2596z31zz__dssslz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_dssslzd2checkzd2keyzd2argsz12zd2envz12zz__dssslz00, BgL_bgl__dssslza7d2checkza7d2keyza7d2argsza712za7c0za7za7__dssslza7002740z00, BGl__dssslzd2checkzd2keyzd2argsz12zc0zz__dssslz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_dssslzd2getzd2keyzd2argzd2envz00zz__dssslz00, BgL_bgl__dssslza7d2getza7d2keyza7d2arg2594za7d2za7za7__dssslza7002741za7, BGl__dssslzd2getzd2keyzd2arg2594zd2zz__dssslz00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc2704z00zz__dssslz00, BgL_bgl_za7c3anonymousza7a31023za7e3za783za7za7__dssslza7002742za7, BGl_zc3anonymousza31023ze3z83zz__dssslz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2dssslzd2functionzd2preludezd2envz00zz__dssslz00, BgL_bgl__makeza7d2dssslza7d2functionza7d2prelude2574za7d2za7za7__dssslza7002743za7, va_generic_entry, BGl__makezd2dssslzd2functionzd2prelude2574zd2zz__dssslz00, -5 );
DEFINE_STRING( BGl_string2732z00zz__dssslz00, BgL_bgl_string2732za700za7za7__dssslza7002744z00, "and `.' notation", 16 );
DEFINE_STRING( BGl_string2731z00zz__dssslz00, BgL_bgl_string2731za700za7za7__dssslza7002745z00, "Can't use both DSSSL named constant", 35 );
DEFINE_STRING( BGl_string2730z00zz__dssslz00, BgL_bgl_string2730za700za7za7__dssslza7002746z00, "symbol expected", 15 );
DEFINE_STRING( BGl_string2729z00zz__dssslz00, BgL_bgl_string2729za700za7za7__dssslza7002747z00, "symbol or named constant expected", 33 );
DEFINE_STRING( BGl_string2728z00zz__dssslz00, BgL_bgl_string2728za700za7za7__dssslza7002748z00, "Illegal formal parameter", 24 );
DEFINE_STRING( BGl_string2726z00zz__dssslz00, BgL_bgl_string2726za700za7za7__dssslza7002749z00, "keyword argument misses value", 29 );
DEFINE_STRING( BGl_string2725z00zz__dssslz00, BgL_bgl_string2725za700za7za7__dssslza7002750z00, "Unexpected #!keys parameters", 28 );
DEFINE_STRING( BGl_string2724z00zz__dssslz00, BgL_bgl_string2724za700za7za7__dssslza7002751z00, "Illegal Dsssl formal list (#!optional)", 38 );
DEFINE_STRING( BGl_string2716z00zz__dssslz00, BgL_bgl_string2716za700za7za7__dssslza7002752z00, "Illegal #!keys parameters", 25 );
DEFINE_STRING( BGl_string2715z00zz__dssslz00, BgL_bgl_string2715za700za7za7__dssslza7002753z00, "dsssl formal parsing", 20 );
DEFINE_STRING( BGl_string2711z00zz__dssslz00, BgL_bgl_string2711za700za7za7__dssslza7002754z00, "Illegal Dsssl formal list (#!rest)", 34 );
DEFINE_STRING( BGl_string2709z00zz__dssslz00, BgL_bgl_string2709za700za7za7__dssslza7002755z00, "Illegal Dsssl formal list (#!key)", 33 );
DEFINE_STRING( BGl_string2708z00zz__dssslz00, BgL_bgl_string2708za700za7za7__dssslza7002756z00, "Illegal formal list", 19 );
DEFINE_STRING( BGl_string2705z00zz__dssslz00, BgL_bgl_string2705za700za7za7__dssslza7002757z00, ":", 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__dssslz00(long BgL_checksumz00_1339, char * BgL_fromz00_1340)
{ 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_symbol2706z00zz__dssslz00 = 
string_to_symbol("dsssl"); 
BGl_symbol2707z00zz__dssslz00 = 
string_to_symbol("let"); 
BGl_symbol2710z00zz__dssslz00 = 
string_to_symbol("dsssl-get-key-arg"); 
BGl_symbol2712z00zz__dssslz00 = 
string_to_symbol("begin"); 
BGl_symbol2713z00zz__dssslz00 = 
string_to_symbol("dsssl-check-key-args!"); 
BGl_symbol2714z00zz__dssslz00 = 
string_to_symbol("quote"); 
BGl_symbol2717z00zz__dssslz00 = 
string_to_symbol("tmp"); 
BGl_symbol2718z00zz__dssslz00 = 
string_to_symbol("if"); 
BGl_symbol2719z00zz__dssslz00 = 
string_to_symbol("null?"); 
BGl_symbol2720z00zz__dssslz00 = 
string_to_symbol("memq"); 
BGl_symbol2721z00zz__dssslz00 = 
string_to_symbol("car"); 
BGl_symbol2722z00zz__dssslz00 = 
string_to_symbol("set!"); 
BGl_symbol2723z00zz__dssslz00 = 
string_to_symbol("cdr"); 
{ /* ./Llib/dsssl.scm 375 */
obj_t BgL_auxz00_1360;
{ /* ./Llib/dsssl.scm 375 */
obj_t BgL_auxz00_1361;
BgL_auxz00_1361 = 
MAKE_PAIR(BCNST(262), BNIL); 
BgL_auxz00_1360 = 
MAKE_PAIR(BCNST(259), BgL_auxz00_1361); } 
return ( 
BGl_list2727z00zz__dssslz00 = 
MAKE_PAIR(BCNST(258), BgL_auxz00_1360), BUNSPEC) ;} } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__dssslz00()
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 14 */
return ( 
BGl_dssslzd2symbolzd2ze3keywordze3zz__dssslz00 = BGl_proc2704z00zz__dssslz00, BUNSPEC) ;} 
}



/* <anonymous:1023> */
obj_t BGl_zc3anonymousza31023ze3z83zz__dssslz00(obj_t BgL_envz00_1245, obj_t BgL_symbolz00_1246)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 394 */
{ 
obj_t BgL_symbolz00_333;
BgL_symbolz00_333 = BgL_symbolz00_1246; 
{ /* ./Llib/dsssl.scm 395 */
obj_t BgL_arg1025z00_960;
{ /* ./Llib/dsssl.scm 395 */
obj_t BgL_arg1028z00_961;
BgL_arg1028z00_961 = 
SYMBOL_TO_STRING(BgL_symbolz00_333); 
BgL_arg1025z00_960 = 
string_append(BgL_arg1028z00_961, BGl_string2705z00zz__dssslz00); } 
{ /* ./Llib/dsssl.scm 395 */
char * BgL_auxz00_1367;
BgL_auxz00_1367 = 
BSTRING_TO_STRING(BgL_arg1025z00_960); 
return 
string_to_keyword(BgL_auxz00_1367);} } } } 
}



/* 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 226 */
obj_t BgL_symbolzd2ze3keywordz31_346;
BgL_symbolzd2ze3keywordz31_346 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Llib/dsssl.scm 226 */
obj_t BgL_optionalzd2statezd2_1255;obj_t BgL_restzd2statezd2_1254;obj_t BgL_nozd2restzd2keyzd2statezd2_1253;
{ 
int BgL_auxz00_1372;int BgL_auxz00_1370;
BgL_auxz00_1372 = 
(int)(((long)7)); 
BgL_auxz00_1370 = 
(int)(((long)2)); 
BgL_optionalzd2statezd2_1255 = 
make_fx_procedure(BGl_optionalzd2statezd2zz__dssslz00, BgL_auxz00_1370, BgL_auxz00_1372); } 
{ 
int BgL_auxz00_1377;int BgL_auxz00_1375;
BgL_auxz00_1377 = 
(int)(((long)5)); 
BgL_auxz00_1375 = 
(int)(((long)2)); 
BgL_restzd2statezd2_1254 = 
make_fx_procedure(BGl_restzd2statezd2zz__dssslz00, BgL_auxz00_1375, BgL_auxz00_1377); } 
{ 
int BgL_auxz00_1382;int BgL_auxz00_1380;
BgL_auxz00_1382 = 
(int)(((long)5)); 
BgL_auxz00_1380 = 
(int)(((long)2)); 
BgL_nozd2restzd2keyzd2statezd2_1253 = 
make_fx_procedure(BGl_nozd2restzd2keyzd2statezd2zz__dssslz00, BgL_auxz00_1380, BgL_auxz00_1382); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1385;
BgL_auxz00_1385 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_optionalzd2statezd2_1255, BgL_auxz00_1385, BgL_symbolzd2ze3keywordz31_346); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1388;
BgL_auxz00_1388 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_optionalzd2statezd2_1255, BgL_auxz00_1388, BgL_errz00_4); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1391;
BgL_auxz00_1391 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_optionalzd2statezd2_1255, BgL_auxz00_1391, BgL_wherez00_1); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1394;
BgL_auxz00_1394 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_optionalzd2statezd2_1255, BgL_auxz00_1394, BgL_formalsz00_2); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1397;
BgL_auxz00_1397 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_optionalzd2statezd2_1255, BgL_auxz00_1397, BgL_restzd2statezd2_1254); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1400;
BgL_auxz00_1400 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_optionalzd2statezd2_1255, BgL_auxz00_1400, BgL_nozd2restzd2keyzd2statezd2_1253); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1403;
BgL_auxz00_1403 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_optionalzd2statezd2_1255, BgL_auxz00_1403, BgL_bodyz00_3); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1406;
BgL_auxz00_1406 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_restzd2statezd2_1254, BgL_auxz00_1406, BgL_symbolzd2ze3keywordz31_346); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1409;
BgL_auxz00_1409 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_restzd2statezd2_1254, BgL_auxz00_1409, BgL_bodyz00_3); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1412;
BgL_auxz00_1412 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_restzd2statezd2_1254, BgL_auxz00_1412, BgL_errz00_4); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1415;
BgL_auxz00_1415 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_restzd2statezd2_1254, BgL_auxz00_1415, BgL_wherez00_1); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1418;
BgL_auxz00_1418 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_restzd2statezd2_1254, BgL_auxz00_1418, BgL_formalsz00_2); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1421;
BgL_auxz00_1421 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_nozd2restzd2keyzd2statezd2_1253, BgL_auxz00_1421, BgL_errz00_4); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1424;
BgL_auxz00_1424 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_nozd2restzd2keyzd2statezd2_1253, BgL_auxz00_1424, BgL_wherez00_1); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1427;
BgL_auxz00_1427 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_nozd2restzd2keyzd2statezd2_1253, BgL_auxz00_1427, BgL_formalsz00_2); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1430;
BgL_auxz00_1430 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_nozd2restzd2keyzd2statezd2_1253, BgL_auxz00_1430, BgL_symbolzd2ze3keywordz31_346); } 
{ /* ./Llib/dsssl.scm 226 */
int BgL_auxz00_1433;
BgL_auxz00_1433 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_nozd2restzd2keyzd2statezd2_1253, BgL_auxz00_1433, BgL_bodyz00_3); } 
{ 
obj_t BgL_argsz00_696;obj_t BgL_argsz00_647;obj_t BgL_nextzd2statezd2_648;
{ /* ./Llib/dsssl.scm 56 */
obj_t BgL_auxz00_1319;
if(
PAIRP(BgL_s2kz00_5))
{ /* ./Llib/dsssl.scm 56 */
BgL_auxz00_1319 = 
CAR(BgL_s2kz00_5); }  else 
{ /* ./Llib/dsssl.scm 56 */
BgL_auxz00_1319 = BGl_dssslzd2symbolzd2ze3keywordze3zz__dssslz00; } 
CELL_SET(BgL_symbolzd2ze3keywordz31_346, BgL_auxz00_1319); } 
BgL_argsz00_696 = BgL_formalsz00_2; 
BgL_zc3anonymousza31715ze3z83_697:
if(
PAIRP(BgL_argsz00_696))
{ /* ./Llib/dsssl.scm 62 */
bool_t BgL_test1717z00_699;
{ /* ./Llib/dsssl.scm 62 */
bool_t BgL_testz00_1441;
{ /* ./Llib/dsssl.scm 62 */
obj_t BgL_auxz00_1442;
BgL_auxz00_1442 = 
CAR(BgL_argsz00_696); 
BgL_testz00_1441 = 
SYMBOLP(BgL_auxz00_1442); } 
if(BgL_testz00_1441)
{ /* ./Llib/dsssl.scm 62 */
BgL_test1717z00_699 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 62 */
bool_t BgL_testz00_1445;
{ /* ./Llib/dsssl.scm 62 */
obj_t BgL_auxz00_1446;
BgL_auxz00_1446 = 
CAR(BgL_argsz00_696); 
BgL_testz00_1445 = 
PAIRP(BgL_auxz00_1446); } 
if(BgL_testz00_1445)
{ /* ./Llib/dsssl.scm 62 */
BgL_test1717z00_699 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 62 */
BgL_test1717z00_699 = ((bool_t)1); } } } 
if(BgL_test1717z00_699)
{ /* ./Llib/dsssl.scm 62 */
{ /* ./Llib/dsssl.scm 64 */
long BgL_aux1005z00_701;
{ /* ./Llib/dsssl.scm 64 */
obj_t BgL_aux1003z00_706;
BgL_aux1003z00_706 = 
CAR(BgL_argsz00_696); 
if(
CNSTP(BgL_aux1003z00_706))
{ /* ./Llib/dsssl.scm 64 */
BgL_aux1005z00_701 = 
CCNST(BgL_aux1003z00_706); }  else 
{ /* ./Llib/dsssl.scm 64 */
BgL_aux1005z00_701 = ((long)-1); } } 
switch( BgL_aux1005z00_701) { case ((long)258) : 

BgL_argsz00_647 = 
CDR(BgL_argsz00_696); 
BgL_nextzd2statezd2_648 = BgL_optionalzd2statezd2_1255; 
BgL_zc3anonymousza31614ze3z83_649:
{ 
obj_t BgL_asz00_650;
BgL_asz00_650 = BgL_argsz00_647; 
BgL_loopz00_651:
if(
NULLP(BgL_asz00_650))
{ /* ./Llib/dsssl.scm 80 */
return 
PROCEDURE_ENTRY(BgL_nextzd2statezd2_648)(BgL_nextzd2statezd2_648, BgL_argsz00_647, BUNSPEC, BEOA);}  else 
{ /* ./Llib/dsssl.scm 80 */
if(
PAIRP(BgL_asz00_650))
{ /* ./Llib/dsssl.scm 84 */
bool_t BgL_test1619z00_654;
{ /* ./Llib/dsssl.scm 84 */
bool_t BgL_testz00_1460;
{ /* ./Llib/dsssl.scm 84 */
obj_t BgL_auxz00_1461;
BgL_auxz00_1461 = 
CAR(BgL_asz00_650); 
BgL_testz00_1460 = 
SYMBOLP(BgL_auxz00_1461); } 
if(BgL_testz00_1460)
{ /* ./Llib/dsssl.scm 84 */
BgL_test1619z00_654 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 84 */
bool_t BgL_testz00_1464;
{ /* ./Llib/dsssl.scm 84 */
obj_t BgL_auxz00_1465;
BgL_auxz00_1465 = 
CAR(BgL_asz00_650); 
BgL_testz00_1464 = 
PAIRP(BgL_auxz00_1465); } 
if(BgL_testz00_1464)
{ /* ./Llib/dsssl.scm 84 */
BgL_test1619z00_654 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 84 */
BgL_test1619z00_654 = ((bool_t)1); } } } 
if(BgL_test1619z00_654)
{ /* ./Llib/dsssl.scm 84 */
{ 
obj_t BgL_asz00_1469;
BgL_asz00_1469 = 
CDR(BgL_asz00_650); 
BgL_asz00_650 = BgL_asz00_1469; 
goto BgL_loopz00_651;} }  else 
{ /* ./Llib/dsssl.scm 84 */
{ 

{ /* ./Llib/dsssl.scm 87 */
obj_t BgL_ezd2103zd2_658;
BgL_ezd2103zd2_658 = 
CAR(BgL_asz00_650); 
if(
SYMBOLP(BgL_ezd2103zd2_658))
{ /* ./Llib/dsssl.scm 87 */
{ /* ./Llib/dsssl.scm 89 */
obj_t BgL_dssslzd2argzd2_667;
BgL_dssslzd2argzd2_667 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol2706z00zz__dssslz00, BEOA); 
{ /* ./Llib/dsssl.scm 90 */
obj_t BgL_arg1645z00_668;obj_t BgL_arg1648z00_669;
BgL_arg1645z00_668 = BGl_symbol2707z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 90 */
obj_t BgL_arg1651z00_670;obj_t BgL_arg1652z00_671;
{ /* ./Llib/dsssl.scm 90 */
obj_t BgL_arg1655z00_672;
{ /* ./Llib/dsssl.scm 90 */
obj_t BgL_arg1659z00_674;
{ /* ./Llib/dsssl.scm 90 */
obj_t BgL_auxz00_1476;
BgL_auxz00_1476 = 
CAR(BgL_asz00_650); 
BgL_arg1659z00_674 = 
MAKE_PAIR(BgL_auxz00_1476, BNIL); } 
BgL_arg1655z00_672 = 
MAKE_PAIR(BgL_dssslzd2argzd2_667, BgL_arg1659z00_674); } 
BgL_arg1651z00_670 = 
MAKE_PAIR(BgL_arg1655z00_672, BNIL); } 
{ /* ./Llib/dsssl.scm 91 */
obj_t BgL_arg1667z00_677;
BgL_arg1667z00_677 = 
PROCEDURE_ENTRY(BgL_nextzd2statezd2_648)(BgL_nextzd2statezd2_648, BgL_argsz00_647, BgL_dssslzd2argzd2_667, BEOA); 
BgL_arg1652z00_671 = 
MAKE_PAIR(BgL_arg1667z00_677, BNIL); } 
BgL_arg1648z00_669 = 
MAKE_PAIR(BgL_arg1651z00_670, BgL_arg1652z00_671); } 
return 
MAKE_PAIR(BgL_arg1645z00_668, BgL_arg1648z00_669);} } }  else 
{ /* ./Llib/dsssl.scm 87 */
if(
PAIRP(BgL_ezd2103zd2_658))
{ /* ./Llib/dsssl.scm 87 */
obj_t BgL_cdrzd2105zd2_661;
BgL_cdrzd2105zd2_661 = 
CDR(BgL_ezd2103zd2_658); 
{ /* ./Llib/dsssl.scm 87 */
bool_t BgL_testz00_1489;
{ /* ./Llib/dsssl.scm 87 */
obj_t BgL_auxz00_1490;
BgL_auxz00_1490 = 
CAR(BgL_ezd2103zd2_658); 
BgL_testz00_1489 = 
SYMBOLP(BgL_auxz00_1490); } 
if(BgL_testz00_1489)
{ /* ./Llib/dsssl.scm 87 */
if(
PAIRP(BgL_cdrzd2105zd2_661))
{ /* ./Llib/dsssl.scm 87 */
bool_t BgL_testz00_1495;
{ /* ./Llib/dsssl.scm 87 */
obj_t BgL_auxz00_1496;
BgL_auxz00_1496 = 
CDR(BgL_cdrzd2105zd2_661); 
BgL_testz00_1495 = 
NULLP(BgL_auxz00_1496); } 
if(BgL_testz00_1495)
{ /* ./Llib/dsssl.scm 87 */
{ /* ./Llib/dsssl.scm 93 */
obj_t BgL_dssslzd2argzd2_679;
BgL_dssslzd2argzd2_679 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol2706z00zz__dssslz00, BEOA); 
{ /* ./Llib/dsssl.scm 94 */
obj_t BgL_arg1673z00_680;obj_t BgL_arg1674z00_681;
BgL_arg1673z00_680 = BGl_symbol2707z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 94 */
obj_t BgL_arg1678z00_682;obj_t BgL_arg1679z00_683;
{ /* ./Llib/dsssl.scm 94 */
obj_t BgL_arg1682z00_684;
{ /* ./Llib/dsssl.scm 94 */
obj_t BgL_arg1686z00_686;
{ /* ./Llib/dsssl.scm 94 */
obj_t BgL_auxz00_1501;
{ /* ./Llib/dsssl.scm 94 */
obj_t BgL_auxz00_1502;
BgL_auxz00_1502 = 
CAR(BgL_asz00_650); 
BgL_auxz00_1501 = 
CAR(BgL_auxz00_1502); } 
BgL_arg1686z00_686 = 
MAKE_PAIR(BgL_auxz00_1501, BNIL); } 
BgL_arg1682z00_684 = 
MAKE_PAIR(BgL_dssslzd2argzd2_679, BgL_arg1686z00_686); } 
BgL_arg1678z00_682 = 
MAKE_PAIR(BgL_arg1682z00_684, BNIL); } 
{ /* ./Llib/dsssl.scm 95 */
obj_t BgL_arg1697z00_690;
BgL_arg1697z00_690 = 
PROCEDURE_ENTRY(BgL_nextzd2statezd2_648)(BgL_nextzd2statezd2_648, BgL_argsz00_647, BgL_dssslzd2argzd2_679, BEOA); 
BgL_arg1679z00_683 = 
MAKE_PAIR(BgL_arg1697z00_690, BNIL); } 
BgL_arg1674z00_681 = 
MAKE_PAIR(BgL_arg1678z00_682, BgL_arg1679z00_683); } 
return 
MAKE_PAIR(BgL_arg1673z00_680, BgL_arg1674z00_681);} } }  else 
{ /* ./Llib/dsssl.scm 87 */
return BFALSE;} }  else 
{ /* ./Llib/dsssl.scm 87 */
return BFALSE;} }  else 
{ /* ./Llib/dsssl.scm 87 */
return BFALSE;} } }  else 
{ /* ./Llib/dsssl.scm 87 */
return BFALSE;} } } } } }  else 
{ /* ./Llib/dsssl.scm 82 */
return 
PROCEDURE_ENTRY(BgL_errz00_4)(BgL_errz00_4, BgL_wherez00_1, BGl_string2708z00zz__dssslz00, BgL_formalsz00_2, BEOA);} } } break;case ((long)259) : 

{ 
obj_t BgL_nextzd2statezd2_1518;obj_t BgL_argsz00_1516;
BgL_argsz00_1516 = 
CDR(BgL_argsz00_696); 
BgL_nextzd2statezd2_1518 = BgL_restzd2statezd2_1254; 
BgL_nextzd2statezd2_648 = BgL_nextzd2statezd2_1518; 
BgL_argsz00_647 = BgL_argsz00_1516; 
goto BgL_zc3anonymousza31614ze3z83_649;} break;case ((long)262) : 

{ 
obj_t BgL_nextzd2statezd2_1521;obj_t BgL_argsz00_1519;
BgL_argsz00_1519 = 
CDR(BgL_argsz00_696); 
BgL_nextzd2statezd2_1521 = BgL_nozd2restzd2keyzd2statezd2_1253; 
BgL_nextzd2statezd2_648 = BgL_nextzd2statezd2_1521; 
BgL_argsz00_647 = BgL_argsz00_1519; 
goto BgL_zc3anonymousza31614ze3z83_649;} break;
default: 
return 
PROCEDURE_ENTRY(BgL_errz00_4)(BgL_errz00_4, BgL_wherez00_1, BGl_string2708z00zz__dssslz00, BgL_formalsz00_2, BEOA);} } }  else 
{ /* ./Llib/dsssl.scm 62 */
{ 
obj_t BgL_argsz00_1525;
BgL_argsz00_1525 = 
CDR(BgL_argsz00_696); 
BgL_argsz00_696 = BgL_argsz00_1525; 
goto BgL_zc3anonymousza31715ze3z83_697;} } }  else 
{ /* ./Llib/dsssl.scm 60 */
return BgL_bodyz00_3;} } } } } 
}



/* _make-dsssl-function-prelude2574 */
obj_t BGl__makezd2dssslzd2functionzd2prelude2574zd2zz__dssslz00(obj_t BgL_envz00_1256, obj_t BgL_wherez00_1257, obj_t BgL_formalsz00_1258, obj_t BgL_bodyz00_1259, obj_t BgL_errz00_1260, obj_t BgL_s2kz00_1261)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 54 */
return 
BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(BgL_wherez00_1257, BgL_formalsz00_1258, BgL_bodyz00_1259, BgL_errz00_1260, BgL_s2kz00_1261);} 
}



/* key-state */
obj_t BGl_keyzd2statezd2zz__dssslz00(obj_t BgL_bodyz00_1266, obj_t BgL_formalsz00_1265, obj_t BgL_wherez00_1264, obj_t BgL_errz00_1263, obj_t BgL_symbolzd2ze3keywordz31_1262, 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_1266;}  else 
{ /* ./Llib/dsssl.scm 228 */
if(
PAIRP(BgL_argsz00_347))
{ /* ./Llib/dsssl.scm 232 */
bool_t BgL_test1036z00_353;
{ /* ./Llib/dsssl.scm 232 */
bool_t BgL_testz00_1532;
{ /* ./Llib/dsssl.scm 232 */
obj_t BgL_auxz00_1533;
BgL_auxz00_1533 = 
CAR(BgL_argsz00_347); 
BgL_testz00_1532 = 
SYMBOLP(BgL_auxz00_1533); } 
if(BgL_testz00_1532)
{ /* ./Llib/dsssl.scm 232 */
BgL_test1036z00_353 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 232 */
bool_t BgL_testz00_1536;
{ /* ./Llib/dsssl.scm 232 */
obj_t BgL_auxz00_1537;
BgL_auxz00_1537 = 
CAR(BgL_argsz00_347); 
BgL_testz00_1536 = 
PAIRP(BgL_auxz00_1537); } 
if(BgL_testz00_1536)
{ /* ./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 */
return 
PROCEDURE_ENTRY(BgL_errz00_1263)(BgL_errz00_1263, BgL_wherez00_1264, BGl_string2709z00zz__dssslz00, BgL_formalsz00_1265, BEOA);}  else 
{ /* ./Llib/dsssl.scm 232 */
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_ezd2168zd2_360;
BgL_ezd2168zd2_360 = 
CAR(BgL_argsz00_347); 
if(
PAIRP(BgL_ezd2168zd2_360))
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_carzd2173zd2_362;obj_t BgL_cdrzd2174zd2_363;
BgL_carzd2173zd2_362 = 
CAR(BgL_ezd2168zd2_360); 
BgL_cdrzd2174zd2_363 = 
CDR(BgL_ezd2168zd2_360); 
if(
SYMBOLP(BgL_carzd2173zd2_362))
{ /* ./Llib/dsssl.scm 236 */
if(
PAIRP(BgL_cdrzd2174zd2_363))
{ /* ./Llib/dsssl.scm 236 */
bool_t BgL_testz00_1552;
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_auxz00_1553;
BgL_auxz00_1553 = 
CDR(BgL_cdrzd2174zd2_363); 
BgL_testz00_1552 = 
NULLP(BgL_auxz00_1553); } 
if(BgL_testz00_1552)
{ /* ./Llib/dsssl.scm 236 */
obj_t BgL_arg1043z00_367;
BgL_arg1043z00_367 = 
CAR(BgL_cdrzd2174zd2_363); 
return 
BGl_onezd2keyzd2argz00zz__dssslz00(BgL_argsz00_347, BgL_dssslzd2argzd2_348, BgL_symbolzd2ze3keywordz31_1262, BgL_bodyz00_1266, BgL_formalsz00_1265, BgL_wherez00_1264, BgL_errz00_1263, 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_1262, BgL_bodyz00_1266, BgL_formalsz00_1265, BgL_wherez00_1264, BgL_errz00_1263, BgL_ezd2168zd2_360, BFALSE);}  else 
{ /* ./Llib/dsssl.scm 236 */
return 
PROCEDURE_ENTRY(BgL_errz00_1263)(BgL_errz00_1263, BgL_wherez00_1264, BGl_string2709z00zz__dssslz00, BgL_formalsz00_1265, BEOA);} } }  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_1262, BgL_bodyz00_1266, BgL_formalsz00_1265, BgL_wherez00_1264, BgL_errz00_1263, BgL_ezd2168zd2_360, BFALSE);}  else 
{ /* ./Llib/dsssl.scm 236 */
return 
PROCEDURE_ENTRY(BgL_errz00_1263)(BgL_errz00_1263, BgL_wherez00_1264, BGl_string2709z00zz__dssslz00, BgL_formalsz00_1265, BEOA);} } }  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_1262, BgL_bodyz00_1266, BgL_formalsz00_1265, BgL_wherez00_1264, BgL_errz00_1263, BgL_ezd2168zd2_360, BFALSE);}  else 
{ /* ./Llib/dsssl.scm 236 */
return 
PROCEDURE_ENTRY(BgL_errz00_1263)(BgL_errz00_1263, BgL_wherez00_1264, BGl_string2709z00zz__dssslz00, BgL_formalsz00_1265, BEOA);} } }  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_1262, BgL_bodyz00_1266, BgL_formalsz00_1265, BgL_wherez00_1264, BgL_errz00_1263, BgL_ezd2168zd2_360, BFALSE);}  else 
{ /* ./Llib/dsssl.scm 236 */
return 
PROCEDURE_ENTRY(BgL_errz00_1263)(BgL_errz00_1263, BgL_wherez00_1264, BGl_string2709z00zz__dssslz00, BgL_formalsz00_1265, BEOA);} } } } }  else 
{ /* ./Llib/dsssl.scm 230 */
return 
PROCEDURE_ENTRY(BgL_errz00_1263)(BgL_errz00_1263, BgL_wherez00_1264, BGl_string2709z00zz__dssslz00, BgL_formalsz00_1265, BEOA);} } } 
}



/* one-key-arg */
obj_t BGl_onezd2keyzd2argz00zz__dssslz00(obj_t BgL_argsz00_1273, obj_t BgL_dssslzd2argzd2_1272, obj_t BgL_symbolzd2ze3keywordz31_1271, obj_t BgL_bodyz00_1270, obj_t BgL_formalsz00_1269, obj_t BgL_wherez00_1268, obj_t BgL_errz00_1267, 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_symbol2707z00zz__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_symbol2710z00zz__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_auxz00_1581;
BgL_auxz00_1581 = 
CELL_REF(BgL_symbolzd2ze3keywordz31_1271); 
BgL_arg1117z00_392 = 
PROCEDURE_ENTRY(BgL_auxz00_1581)(
CELL_REF(BgL_symbolzd2ze3keywordz31_1271), BgL_argz00_377, BEOA); } 
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_1272, 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;
BgL_arg1127z00_396 = 
CDR(BgL_argsz00_1273); 
BgL_arg1123z00_394 = 
BGl_keyzd2statezd2zz__dssslz00(BgL_bodyz00_1270, BgL_formalsz00_1269, BgL_wherez00_1268, BgL_errz00_1267, BgL_symbolzd2ze3keywordz31_1271, BgL_arg1127z00_396, BgL_dssslzd2argzd2_1272); } 
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_1280, obj_t BgL_dssslzd2argzd2_1279, obj_t BgL_bodyz00_1278, obj_t BgL_formalsz00_1277, obj_t BgL_wherez00_1276, obj_t BgL_errz00_1275, obj_t BgL_symbolzd2ze3keywordz31_1274, obj_t BgL_idz00_494)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 164 */
{ /* ./Llib/dsssl.scm 166 */
obj_t BgL_arg1301z00_499;obj_t BgL_arg1302z00_500;
BgL_arg1301z00_499 = BGl_symbol2707z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 166 */
obj_t BgL_arg1305z00_501;obj_t BgL_arg1306z00_502;
{ /* ./Llib/dsssl.scm 166 */
obj_t BgL_arg1309z00_503;
{ /* ./Llib/dsssl.scm 166 */
obj_t BgL_arg1313z00_505;
BgL_arg1313z00_505 = 
MAKE_PAIR(BgL_dssslzd2argzd2_1279, BNIL); 
BgL_arg1309z00_503 = 
MAKE_PAIR(BgL_idz00_494, BgL_arg1313z00_505); } 
BgL_arg1305z00_501 = 
MAKE_PAIR(BgL_arg1309z00_503, BNIL); } 
{ /* ./Llib/dsssl.scm 167 */
obj_t BgL_arg1317z00_506;
{ /* ./Llib/dsssl.scm 167 */
obj_t BgL_arg1321z00_508;
BgL_arg1321z00_508 = 
CDR(BgL_argsz00_1280); 
BgL_arg1317z00_506 = 
BGl_exitzd2restzd2statez00zz__dssslz00(BgL_bodyz00_1278, BgL_formalsz00_1277, BgL_wherez00_1276, BgL_errz00_1275, BgL_symbolzd2ze3keywordz31_1274, BgL_arg1321z00_508, BgL_dssslzd2argzd2_1279); } 
BgL_arg1306z00_502 = 
MAKE_PAIR(BgL_arg1317z00_506, BNIL); } 
BgL_arg1302z00_500 = 
MAKE_PAIR(BgL_arg1305z00_501, BgL_arg1306z00_502); } 
return 
MAKE_PAIR(BgL_arg1301z00_499, BgL_arg1302z00_500);} } 
}



/* exit-rest-state */
obj_t BGl_exitzd2restzd2statez00zz__dssslz00(obj_t BgL_bodyz00_1285, obj_t BgL_formalsz00_1284, obj_t BgL_wherez00_1283, obj_t BgL_errz00_1282, obj_t BgL_symbolzd2ze3keywordz31_1281, obj_t BgL_argsz00_482, obj_t BgL_dssslzd2argzd2_483)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 180 */
if(
NULLP(BgL_argsz00_482))
{ /* ./Llib/dsssl.scm 173 */
return BgL_bodyz00_1285;}  else 
{ /* ./Llib/dsssl.scm 173 */
if(
PAIRP(BgL_argsz00_482))
{ /* ./Llib/dsssl.scm 177 */
bool_t BgL_testz00_1606;
{ /* ./Llib/dsssl.scm 177 */
obj_t BgL_auxz00_1607;
BgL_auxz00_1607 = 
CAR(BgL_argsz00_482); 
BgL_testz00_1606 = 
(BgL_auxz00_1607==BCNST(262)); } 
if(BgL_testz00_1606)
{ /* ./Llib/dsssl.scm 177 */
{ /* ./Llib/dsssl.scm 178 */
obj_t BgL_arg1282z00_488;
BgL_arg1282z00_488 = 
CDR(BgL_argsz00_482); 
return 
BGl_restzd2keyzd2statez00zz__dssslz00(BgL_bodyz00_1285, BgL_symbolzd2ze3keywordz31_1281, BgL_formalsz00_1284, BgL_wherez00_1283, BgL_errz00_1282, BgL_arg1282z00_488, BgL_dssslzd2argzd2_483);} }  else 
{ /* ./Llib/dsssl.scm 177 */
return 
PROCEDURE_ENTRY(BgL_errz00_1282)(BgL_errz00_1282, BgL_wherez00_1283, BGl_string2711z00zz__dssslz00, BgL_formalsz00_1284, BEOA);} }  else 
{ /* ./Llib/dsssl.scm 175 */
return 
PROCEDURE_ENTRY(BgL_errz00_1282)(BgL_errz00_1282, BgL_wherez00_1283, BGl_string2711z00zz__dssslz00, BgL_formalsz00_1284, BEOA);} } } 
}



/* rest-key-state */
obj_t BGl_restzd2keyzd2statez00zz__dssslz00(obj_t BgL_bodyz00_1290, obj_t BgL_symbolzd2ze3keywordz31_1289, obj_t BgL_formalsz00_1288, obj_t BgL_wherez00_1287, obj_t BgL_errz00_1286, obj_t BgL_argsz00_447, obj_t BgL_dssslzd2argzd2_448)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 200 */
{ /* ./Llib/dsssl.scm 184 */
bool_t BgL_test1213z00_450;
BgL_test1213z00_450 = 
NULLP(BgL_argsz00_447); 
if(BgL_test1213z00_450)
{ /* ./Llib/dsssl.scm 184 */
return BgL_bodyz00_1290;}  else 
{ /* ./Llib/dsssl.scm 184 */
{ /* ./Llib/dsssl.scm 187 */
obj_t BgL_keyzd2listzd2_451;
if(BgL_test1213z00_450)
{ /* ./Llib/dsssl.scm 187 */
BgL_keyzd2listzd2_451 = BNIL; }  else 
{ /* ./Llib/dsssl.scm 187 */
obj_t BgL_head1012z00_467;
BgL_head1012z00_467 = 
MAKE_PAIR(BNIL, BNIL); 
BgL_keyzd2listzd2_451 = 
BGl_map1011z00zz__dssslz00(BgL_head1012z00_467, BgL_symbolzd2ze3keywordz31_1289, BgL_argsz00_447, BgL_head1012z00_467); } 
{ /* ./Llib/dsssl.scm 198 */
obj_t BgL_arg1215z00_452;obj_t BgL_arg1216z00_453;
BgL_arg1215z00_452 = BGl_symbol2712z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 199 */
obj_t BgL_arg1219z00_454;obj_t BgL_arg1220z00_455;
{ /* ./Llib/dsssl.scm 199 */
obj_t BgL_arg1223z00_456;obj_t BgL_arg1224z00_457;
BgL_arg1223z00_456 = BGl_symbol2713z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 199 */
obj_t BgL_arg1227z00_458;
{ /* ./Llib/dsssl.scm 199 */
obj_t BgL_arg1230z00_459;
{ /* ./Llib/dsssl.scm 199 */
obj_t BgL_arg1234z00_461;obj_t BgL_arg1235z00_462;
BgL_arg1234z00_461 = BGl_symbol2714z00zz__dssslz00; 
BgL_arg1235z00_462 = 
MAKE_PAIR(BgL_keyzd2listzd2_451, BNIL); 
BgL_arg1230z00_459 = 
MAKE_PAIR(BgL_arg1234z00_461, BgL_arg1235z00_462); } 
BgL_arg1227z00_458 = 
MAKE_PAIR(BgL_arg1230z00_459, BNIL); } 
BgL_arg1224z00_457 = 
MAKE_PAIR(BgL_dssslzd2argzd2_448, BgL_arg1227z00_458); } 
BgL_arg1219z00_454 = 
MAKE_PAIR(BgL_arg1223z00_456, BgL_arg1224z00_457); } 
{ /* ./Llib/dsssl.scm 198 */
obj_t BgL_auxz00_1626;
BgL_auxz00_1626 = 
BGl_keyzd2statezd2zz__dssslz00(BgL_bodyz00_1290, BgL_formalsz00_1288, BgL_wherez00_1287, BgL_errz00_1286, BgL_symbolzd2ze3keywordz31_1289, BgL_argsz00_447, BgL_dssslzd2argzd2_448); 
BgL_arg1220z00_455 = 
MAKE_PAIR(BgL_auxz00_1626, BNIL); } 
BgL_arg1216z00_453 = 
MAKE_PAIR(BgL_arg1219z00_454, BgL_arg1220z00_455); } 
return 
MAKE_PAIR(BgL_arg1215z00_452, BgL_arg1216z00_453);} } } } } 
}



/* map1011 */
obj_t BGl_map1011z00zz__dssslz00(obj_t BgL_head1012z00_1292, obj_t BgL_symbolzd2ze3keywordz31_1291, obj_t BgL_l1010z00_468, obj_t BgL_tail1013z00_469)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 187 */
BGl_map1011z00zz__dssslz00:
if(
NULLP(BgL_l1010z00_468))
{ /* ./Llib/dsssl.scm 187 */
return 
CDR(BgL_head1012z00_1292);}  else 
{ /* ./Llib/dsssl.scm 189 */
obj_t BgL_newtail1014z00_472;
{ /* ./Llib/dsssl.scm 189 */
obj_t BgL_arg1254z00_474;
{ /* ./Llib/dsssl.scm 189 */
obj_t BgL_xz00_476;
BgL_xz00_476 = 
CAR(BgL_l1010z00_468); 
{ /* ./Llib/dsssl.scm 189 */
bool_t BgL_test1257z00_477;
if(
PAIRP(BgL_xz00_476))
{ /* ./Llib/dsssl.scm 189 */
obj_t BgL_auxz00_1637;
BgL_auxz00_1637 = 
CAR(BgL_xz00_476); 
BgL_test1257z00_477 = 
SYMBOLP(BgL_auxz00_1637); }  else 
{ /* ./Llib/dsssl.scm 189 */
BgL_test1257z00_477 = ((bool_t)0); } 
if(BgL_test1257z00_477)
{ /* ./Llib/dsssl.scm 189 */
{ /* ./Llib/dsssl.scm 190 */
obj_t BgL_arg1259z00_478;
BgL_arg1259z00_478 = 
CAR(BgL_xz00_476); 
{ /* ./Llib/dsssl.scm 190 */
obj_t BgL_auxz00_1643;
BgL_auxz00_1643 = 
CELL_REF(BgL_symbolzd2ze3keywordz31_1291); 
BgL_arg1254z00_474 = 
PROCEDURE_ENTRY(BgL_auxz00_1643)(
CELL_REF(BgL_symbolzd2ze3keywordz31_1291), BgL_arg1259z00_478, BEOA); } } }  else 
{ /* ./Llib/dsssl.scm 189 */
if(
SYMBOLP(BgL_xz00_476))
{ /* ./Llib/dsssl.scm 191 */
{ /* ./Llib/dsssl.scm 192 */
obj_t BgL_auxz00_1647;
BgL_auxz00_1647 = 
CELL_REF(BgL_symbolzd2ze3keywordz31_1291); 
BgL_arg1254z00_474 = 
PROCEDURE_ENTRY(BgL_auxz00_1647)(
CELL_REF(BgL_symbolzd2ze3keywordz31_1291), BgL_xz00_476, BEOA); } }  else 
{ /* ./Llib/dsssl.scm 191 */
FAILURE(BGl_string2715z00zz__dssslz00,BGl_string2716z00zz__dssslz00,BgL_xz00_476);} } } } 
BgL_newtail1014z00_472 = 
MAKE_PAIR(BgL_arg1254z00_474, BNIL); } 
SET_CDR(BgL_tail1013z00_469, BgL_newtail1014z00_472); 
{ /* ./Llib/dsssl.scm 187 */
obj_t BgL_arg1250z00_473;
BgL_arg1250z00_473 = 
CDR(BgL_l1010z00_468); 
{ 
obj_t BgL_tail1013z00_1653;obj_t BgL_l1010z00_1652;
BgL_l1010z00_1652 = BgL_arg1250z00_473; 
BgL_tail1013z00_1653 = BgL_newtail1014z00_472; 
BgL_tail1013z00_469 = BgL_tail1013z00_1653; 
BgL_l1010z00_468 = BgL_l1010z00_1652; 
goto BGl_map1011z00zz__dssslz00;} } } } 
}



/* no-rest-key-state */
obj_t BGl_nozd2restzd2keyzd2statezd2zz__dssslz00(obj_t BgL_envz00_1293, obj_t BgL_argsz00_1299, obj_t BgL_dssslzd2argzd2_1300)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 212 */
{ /* ./Llib/dsssl.scm 212 */
obj_t BgL_errz00_1294;obj_t BgL_wherez00_1295;obj_t BgL_formalsz00_1296;obj_t BgL_symbolzd2ze3keywordz31_1297;obj_t BgL_bodyz00_1298;
{ /* ./Llib/dsssl.scm 212 */
int BgL_auxz00_1654;
BgL_auxz00_1654 = 
(int)(((long)0)); 
BgL_errz00_1294 = 
PROCEDURE_REF(BgL_envz00_1293, BgL_auxz00_1654); } 
{ /* ./Llib/dsssl.scm 212 */
int BgL_auxz00_1657;
BgL_auxz00_1657 = 
(int)(((long)1)); 
BgL_wherez00_1295 = 
PROCEDURE_REF(BgL_envz00_1293, BgL_auxz00_1657); } 
{ /* ./Llib/dsssl.scm 212 */
int BgL_auxz00_1660;
BgL_auxz00_1660 = 
(int)(((long)2)); 
BgL_formalsz00_1296 = 
PROCEDURE_REF(BgL_envz00_1293, BgL_auxz00_1660); } 
{ /* ./Llib/dsssl.scm 212 */
int BgL_auxz00_1663;
BgL_auxz00_1663 = 
(int)(((long)3)); 
BgL_symbolzd2ze3keywordz31_1297 = 
PROCEDURE_REF(BgL_envz00_1293, BgL_auxz00_1663); } 
{ /* ./Llib/dsssl.scm 212 */
int BgL_auxz00_1666;
BgL_auxz00_1666 = 
(int)(((long)4)); 
BgL_bodyz00_1298 = 
PROCEDURE_REF(BgL_envz00_1293, BgL_auxz00_1666); } 
{ 
obj_t BgL_argsz00_398;obj_t BgL_dssslzd2argzd2_399;
BgL_argsz00_398 = BgL_argsz00_1299; 
BgL_dssslzd2argzd2_399 = BgL_dssslzd2argzd2_1300; 
{ 
obj_t BgL_argsz00_418;
if(
NULLP(BgL_argsz00_398))
{ /* ./Llib/dsssl.scm 214 */
return BgL_bodyz00_1298;}  else 
{ /* ./Llib/dsssl.scm 214 */
{ /* ./Llib/dsssl.scm 217 */
obj_t BgL_arg1133z00_403;obj_t BgL_arg1134z00_404;
BgL_arg1133z00_403 = BGl_symbol2712z00zz__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_symbol2713z00zz__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_symbol2714z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 218 */
obj_t BgL_auxz00_1671;
BgL_argsz00_418 = BgL_argsz00_398; 
if(
NULLP(BgL_argsz00_418))
{ /* ./Llib/dsssl.scm 204 */
BgL_auxz00_1671 = 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:
if(
NULLP(BgL_l1015z00_423))
{ /* ./Llib/dsssl.scm 204 */
BgL_auxz00_1671 = 
CDR(BgL_head1017z00_422)
; }  else 
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_newtail1019z00_427;
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_arg1181z00_429;
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_argz00_431;
BgL_argz00_431 = 
CAR(BgL_l1015z00_423); 
if(
SYMBOLP(BgL_argz00_431))
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_auxz00_1682;
BgL_auxz00_1682 = 
CELL_REF(BgL_symbolzd2ze3keywordz31_1297); 
BgL_arg1181z00_429 = 
PROCEDURE_ENTRY(BgL_auxz00_1682)(
CELL_REF(BgL_symbolzd2ze3keywordz31_1297), BgL_argz00_431, BEOA); }  else 
{ /* ./Llib/dsssl.scm 205 */
if(
PAIRP(BgL_argz00_431))
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_carzd2158zd2_440;obj_t BgL_cdrzd2159zd2_441;
BgL_carzd2158zd2_440 = 
CAR(BgL_argz00_431); 
BgL_cdrzd2159zd2_441 = 
CDR(BgL_argz00_431); 
if(
SYMBOLP(BgL_carzd2158zd2_440))
{ /* ./Llib/dsssl.scm 205 */
if(
PAIRP(BgL_cdrzd2159zd2_441))
{ /* ./Llib/dsssl.scm 205 */
bool_t BgL_testz00_1691;
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_auxz00_1692;
BgL_auxz00_1692 = 
CDR(BgL_cdrzd2159zd2_441); 
BgL_testz00_1691 = 
NULLP(BgL_auxz00_1692); } 
if(BgL_testz00_1691)
{ /* ./Llib/dsssl.scm 205 */
obj_t BgL_auxz00_1696;
BgL_auxz00_1696 = 
CELL_REF(BgL_symbolzd2ze3keywordz31_1297); 
BgL_arg1181z00_429 = 
PROCEDURE_ENTRY(BgL_auxz00_1696)(
CELL_REF(BgL_symbolzd2ze3keywordz31_1297), BgL_carzd2158zd2_440, BEOA); }  else 
{ /* ./Llib/dsssl.scm 205 */
BgL_arg1181z00_429 = 
PROCEDURE_ENTRY(BgL_errz00_1294)(BgL_errz00_1294, BgL_wherez00_1295, BGl_string2709z00zz__dssslz00, BgL_formalsz00_1296, BEOA); } }  else 
{ /* ./Llib/dsssl.scm 205 */
BgL_arg1181z00_429 = 
PROCEDURE_ENTRY(BgL_errz00_1294)(BgL_errz00_1294, BgL_wherez00_1295, BGl_string2709z00zz__dssslz00, BgL_formalsz00_1296, BEOA); } }  else 
{ /* ./Llib/dsssl.scm 205 */
BgL_arg1181z00_429 = 
PROCEDURE_ENTRY(BgL_errz00_1294)(BgL_errz00_1294, BgL_wherez00_1295, BGl_string2709z00zz__dssslz00, BgL_formalsz00_1296, BEOA); } }  else 
{ /* ./Llib/dsssl.scm 205 */
BgL_arg1181z00_429 = 
PROCEDURE_ENTRY(BgL_errz00_1294)(BgL_errz00_1294, BgL_wherez00_1295, BGl_string2709z00zz__dssslz00, BgL_formalsz00_1296, BEOA); } } } 
BgL_newtail1019z00_427 = 
MAKE_PAIR(BgL_arg1181z00_429, BNIL); } 
SET_CDR(BgL_tail1018z00_424, BgL_newtail1019z00_427); 
{ 
obj_t BgL_tail1018z00_1709;obj_t BgL_l1015z00_1707;
BgL_l1015z00_1707 = 
CDR(BgL_l1015z00_423); 
BgL_tail1018z00_1709 = BgL_newtail1019z00_427; 
BgL_tail1018z00_424 = BgL_tail1018z00_1709; 
BgL_l1015z00_423 = BgL_l1015z00_1707; 
goto BgL_map1016z00_425;} } } } 
BgL_arg1154z00_413 = 
MAKE_PAIR(BgL_auxz00_1671, 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_1715;
BgL_auxz00_1715 = 
BGl_keyzd2statezd2zz__dssslz00(BgL_bodyz00_1298, BgL_formalsz00_1296, BgL_wherez00_1295, BgL_errz00_1294, BgL_symbolzd2ze3keywordz31_1297, BgL_argsz00_398, BgL_dssslzd2argzd2_399); 
BgL_arg1138z00_406 = 
MAKE_PAIR(BgL_auxz00_1715, 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_1301, obj_t BgL_argsz00_1307, obj_t BgL_dssslzd2argzd2_1308)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 169 */
{ /* ./Llib/dsssl.scm 161 */
obj_t BgL_symbolzd2ze3keywordz31_1302;obj_t BgL_bodyz00_1303;obj_t BgL_errz00_1304;obj_t BgL_wherez00_1305;obj_t BgL_formalsz00_1306;
{ /* ./Llib/dsssl.scm 161 */
int BgL_auxz00_1720;
BgL_auxz00_1720 = 
(int)(((long)0)); 
BgL_symbolzd2ze3keywordz31_1302 = 
PROCEDURE_REF(BgL_envz00_1301, BgL_auxz00_1720); } 
{ /* ./Llib/dsssl.scm 161 */
int BgL_auxz00_1723;
BgL_auxz00_1723 = 
(int)(((long)1)); 
BgL_bodyz00_1303 = 
PROCEDURE_REF(BgL_envz00_1301, BgL_auxz00_1723); } 
{ /* ./Llib/dsssl.scm 161 */
int BgL_auxz00_1726;
BgL_auxz00_1726 = 
(int)(((long)2)); 
BgL_errz00_1304 = 
PROCEDURE_REF(BgL_envz00_1301, BgL_auxz00_1726); } 
{ /* ./Llib/dsssl.scm 161 */
int BgL_auxz00_1729;
BgL_auxz00_1729 = 
(int)(((long)3)); 
BgL_wherez00_1305 = 
PROCEDURE_REF(BgL_envz00_1301, BgL_auxz00_1729); } 
{ /* ./Llib/dsssl.scm 161 */
int BgL_auxz00_1732;
BgL_auxz00_1732 = 
(int)(((long)4)); 
BgL_formalsz00_1306 = 
PROCEDURE_REF(BgL_envz00_1301, BgL_auxz00_1732); } 
{ 
obj_t BgL_argsz00_490;obj_t BgL_dssslzd2argzd2_491;
BgL_argsz00_490 = BgL_argsz00_1307; 
BgL_dssslzd2argzd2_491 = BgL_dssslzd2argzd2_1308; 
if(
PAIRP(BgL_argsz00_490))
{ /* ./Llib/dsssl.scm 161 */
{ /* ./Llib/dsssl.scm 164 */
obj_t BgL_ezd2143zd2_497;
BgL_ezd2143zd2_497 = 
CAR(BgL_argsz00_490); 
if(
SYMBOLP(BgL_ezd2143zd2_497))
{ /* ./Llib/dsssl.scm 164 */
return 
BGl_TAGzd2141zd2zz__dssslz00(BgL_argsz00_490, BgL_dssslzd2argzd2_491, BgL_bodyz00_1303, BgL_formalsz00_1306, BgL_wherez00_1305, BgL_errz00_1304, BgL_symbolzd2ze3keywordz31_1302, BgL_ezd2143zd2_497);}  else 
{ /* ./Llib/dsssl.scm 164 */
FAILURE(BgL_wherez00_1305,BGl_string2711z00zz__dssslz00,BgL_formalsz00_1306);} } }  else 
{ /* ./Llib/dsssl.scm 161 */
return 
PROCEDURE_ENTRY(BgL_errz00_1304)(BgL_errz00_1304, BgL_wherez00_1305, BGl_string2711z00zz__dssslz00, BgL_formalsz00_1306, BEOA);} } } } 
}



/* optional-state */
obj_t BGl_optionalzd2statezd2zz__dssslz00(obj_t BgL_envz00_1309, obj_t BgL_argsz00_1317, obj_t BgL_dssslzd2argzd2_1318)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 121 */
{ /* ./Llib/dsssl.scm 121 */
obj_t BgL_symbolzd2ze3keywordz31_1310;obj_t BgL_errz00_1311;obj_t BgL_wherez00_1312;obj_t BgL_formalsz00_1313;obj_t BgL_restzd2statezd2_1314;obj_t BgL_nozd2restzd2keyzd2statezd2_1315;obj_t BgL_bodyz00_1316;
{ /* ./Llib/dsssl.scm 121 */
int BgL_auxz00_1744;
BgL_auxz00_1744 = 
(int)(((long)0)); 
BgL_symbolzd2ze3keywordz31_1310 = 
PROCEDURE_REF(BgL_envz00_1309, BgL_auxz00_1744); } 
{ /* ./Llib/dsssl.scm 121 */
int BgL_auxz00_1747;
BgL_auxz00_1747 = 
(int)(((long)1)); 
BgL_errz00_1311 = 
PROCEDURE_REF(BgL_envz00_1309, BgL_auxz00_1747); } 
{ /* ./Llib/dsssl.scm 121 */
int BgL_auxz00_1750;
BgL_auxz00_1750 = 
(int)(((long)2)); 
BgL_wherez00_1312 = 
PROCEDURE_REF(BgL_envz00_1309, BgL_auxz00_1750); } 
{ /* ./Llib/dsssl.scm 121 */
int BgL_auxz00_1753;
BgL_auxz00_1753 = 
(int)(((long)3)); 
BgL_formalsz00_1313 = 
PROCEDURE_REF(BgL_envz00_1309, BgL_auxz00_1753); } 
{ /* ./Llib/dsssl.scm 121 */
int BgL_auxz00_1756;
BgL_auxz00_1756 = 
(int)(((long)4)); 
BgL_restzd2statezd2_1314 = 
PROCEDURE_REF(BgL_envz00_1309, BgL_auxz00_1756); } 
{ /* ./Llib/dsssl.scm 121 */
int BgL_auxz00_1759;
BgL_auxz00_1759 = 
(int)(((long)5)); 
BgL_nozd2restzd2keyzd2statezd2_1315 = 
PROCEDURE_REF(BgL_envz00_1309, BgL_auxz00_1759); } 
{ /* ./Llib/dsssl.scm 121 */
int BgL_auxz00_1762;
BgL_auxz00_1762 = 
(int)(((long)6)); 
BgL_bodyz00_1316 = 
PROCEDURE_REF(BgL_envz00_1309, BgL_auxz00_1762); } 
return 
BGl_optionalzd2statez72za0zz__dssslz00(BgL_bodyz00_1316, BgL_nozd2restzd2keyzd2statezd2_1315, BgL_restzd2statezd2_1314, BgL_formalsz00_1313, BgL_wherez00_1312, BgL_errz00_1311, BgL_symbolzd2ze3keywordz31_1310, BgL_argsz00_1317, BgL_dssslzd2argzd2_1318);} } 
}



/* optional-state' */
obj_t BGl_optionalzd2statez72za0zz__dssslz00(obj_t BgL_bodyz00_1338, obj_t BgL_nozd2restzd2keyzd2statezd2_1337, obj_t BgL_restzd2statezd2_1336, obj_t BgL_formalsz00_1335, obj_t BgL_wherez00_1334, obj_t BgL_errz00_1333, obj_t BgL_symbolzd2ze3keywordz31_1332, obj_t BgL_argsz00_509, obj_t BgL_dssslzd2argzd2_510)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 121 */
{ /* ./Llib/dsssl.scm 134 */
obj_t BgL_keywordzd2argumentszd2_513;
BgL_keywordzd2argumentszd2_513 = BUNSPEC; 
{ 
obj_t BgL_argsz00_610;obj_t BgL_argz00_548;obj_t BgL_initializa7erza7_549;
BgL_argsz00_610 = BgL_argsz00_509; 
{ 
obj_t BgL_argsz00_612;
BgL_argsz00_612 = BgL_argsz00_610; 
BgL_loopz00_613:
if(
PAIRP(BgL_argsz00_612))
{ /* ./Llib/dsssl.scm 104 */
bool_t BgL_testz00_1768;
{ /* ./Llib/dsssl.scm 104 */
obj_t BgL_auxz00_1769;
BgL_auxz00_1769 = 
CAR(BgL_argsz00_612); 
BgL_testz00_1768 = 
(BgL_auxz00_1769==BCNST(262)); } 
if(BgL_testz00_1768)
{ /* ./Llib/dsssl.scm 104 */
{ 
obj_t BgL_argsz00_616;obj_t BgL_resz00_617;
BgL_argsz00_616 = 
CDR(BgL_argsz00_612); 
BgL_resz00_617 = BNIL; 
BgL_loopz00_618:
{ /* ./Llib/dsssl.scm 108 */
bool_t BgL_test1548z00_621;
if(
PAIRP(BgL_argsz00_616))
{ /* ./Llib/dsssl.scm 109 */
bool_t BgL_testz00_1774;
{ /* ./Llib/dsssl.scm 109 */
bool_t BgL_testz00_1775;
{ /* ./Llib/dsssl.scm 109 */
obj_t BgL_auxz00_1776;
BgL_auxz00_1776 = 
CAR(BgL_argsz00_616); 
BgL_testz00_1775 = 
PAIRP(BgL_auxz00_1776); } 
if(BgL_testz00_1775)
{ /* ./Llib/dsssl.scm 109 */
BgL_testz00_1774 = ((bool_t)1)
; }  else 
{ /* ./Llib/dsssl.scm 110 */
obj_t BgL_auxz00_1779;
BgL_auxz00_1779 = 
CAR(BgL_argsz00_616); 
BgL_testz00_1774 = 
SYMBOLP(BgL_auxz00_1779); } } 
if(BgL_testz00_1774)
{ /* ./Llib/dsssl.scm 111 */
bool_t BgL_testz00_1782;
{ /* ./Llib/dsssl.scm 111 */
obj_t BgL_auxz00_1783;
BgL_auxz00_1783 = 
CAR(BgL_argsz00_616); 
BgL_testz00_1782 = 
(BgL_auxz00_1783==BCNST(258)); } 
if(BgL_testz00_1782)
{ /* ./Llib/dsssl.scm 111 */
BgL_test1548z00_621 = ((bool_t)1); }  else 
{ /* ./Llib/dsssl.scm 112 */
obj_t BgL_auxz00_1786;
BgL_auxz00_1786 = 
CAR(BgL_argsz00_616); 
BgL_test1548z00_621 = 
(BgL_auxz00_1786==BCNST(259)); } }  else 
{ /* ./Llib/dsssl.scm 109 */
BgL_test1548z00_621 = ((bool_t)1); } }  else 
{ /* ./Llib/dsssl.scm 108 */
BgL_test1548z00_621 = ((bool_t)1); } 
if(BgL_test1548z00_621)
{ /* ./Llib/dsssl.scm 108 */
BgL_keywordzd2argumentszd2_513 = BgL_resz00_617; }  else 
{ /* ./Llib/dsssl.scm 114 */
bool_t BgL_testz00_1790;
{ /* ./Llib/dsssl.scm 114 */
obj_t BgL_auxz00_1791;
BgL_auxz00_1791 = 
CAR(BgL_argsz00_616); 
BgL_testz00_1790 = 
SYMBOLP(BgL_auxz00_1791); } 
if(BgL_testz00_1790)
{ /* ./Llib/dsssl.scm 114 */
{ /* ./Llib/dsssl.scm 115 */
obj_t BgL_arg1551z00_623;obj_t BgL_arg1552z00_624;
BgL_arg1551z00_623 = 
CDR(BgL_argsz00_616); 
{ /* ./Llib/dsssl.scm 116 */
obj_t BgL_arg1556z00_625;
{ /* ./Llib/dsssl.scm 116 */
obj_t BgL_arg1559z00_626;
BgL_arg1559z00_626 = 
CAR(BgL_argsz00_616); 
{ /* ./Llib/dsssl.scm 116 */
obj_t BgL_auxz00_1797;
BgL_auxz00_1797 = 
CELL_REF(BgL_symbolzd2ze3keywordz31_1332); 
BgL_arg1556z00_625 = 
PROCEDURE_ENTRY(BgL_auxz00_1797)(
CELL_REF(BgL_symbolzd2ze3keywordz31_1332), BgL_arg1559z00_626, BEOA); } } 
BgL_arg1552z00_624 = 
MAKE_PAIR(BgL_arg1556z00_625, BgL_resz00_617); } 
{ 
obj_t BgL_resz00_1800;obj_t BgL_argsz00_1799;
BgL_argsz00_1799 = BgL_arg1551z00_623; 
BgL_resz00_1800 = BgL_arg1552z00_624; 
BgL_resz00_617 = BgL_resz00_1800; 
BgL_argsz00_616 = BgL_argsz00_1799; 
goto BgL_loopz00_618;} } }  else 
{ /* ./Llib/dsssl.scm 114 */
{ /* ./Llib/dsssl.scm 118 */
obj_t BgL_arg1563z00_627;obj_t BgL_arg1564z00_628;
BgL_arg1563z00_627 = 
CDR(BgL_argsz00_616); 
{ /* ./Llib/dsssl.scm 119 */
obj_t BgL_arg1568z00_629;
{ /* ./Llib/dsssl.scm 119 */
obj_t BgL_arg1572z00_630;
{ /* ./Llib/dsssl.scm 119 */
obj_t BgL_auxz00_1802;
BgL_auxz00_1802 = 
CAR(BgL_argsz00_616); 
BgL_arg1572z00_630 = 
CAR(BgL_auxz00_1802); } 
{ /* ./Llib/dsssl.scm 119 */
obj_t BgL_auxz00_1806;
BgL_auxz00_1806 = 
CELL_REF(BgL_symbolzd2ze3keywordz31_1332); 
BgL_arg1568z00_629 = 
PROCEDURE_ENTRY(BgL_auxz00_1806)(
CELL_REF(BgL_symbolzd2ze3keywordz31_1332), BgL_arg1572z00_630, BEOA); } } 
BgL_arg1564z00_628 = 
MAKE_PAIR(BgL_arg1568z00_629, BgL_resz00_617); } 
{ 
obj_t BgL_resz00_1809;obj_t BgL_argsz00_1808;
BgL_argsz00_1808 = BgL_arg1563z00_627; 
BgL_resz00_1809 = BgL_arg1564z00_628; 
BgL_resz00_617 = BgL_resz00_1809; 
BgL_argsz00_616 = BgL_argsz00_1808; 
goto BgL_loopz00_618;} } } } } } }  else 
{ /* ./Llib/dsssl.scm 104 */
{ 
obj_t BgL_argsz00_1811;
BgL_argsz00_1811 = 
CDR(BgL_argsz00_612); 
BgL_argsz00_612 = BgL_argsz00_1811; 
goto BgL_loopz00_613;} } }  else 
{ /* ./Llib/dsssl.scm 102 */
BgL_keywordzd2argumentszd2_513 = BNIL; } } 
if(
NULLP(BgL_argsz00_509))
{ /* ./Llib/dsssl.scm 136 */
return BgL_bodyz00_1338;}  else 
{ /* ./Llib/dsssl.scm 136 */
if(
PAIRP(BgL_argsz00_509))
{ /* ./Llib/dsssl.scm 140 */
bool_t BgL_test1330z00_517;
{ /* ./Llib/dsssl.scm 140 */
bool_t BgL_testz00_1817;
{ /* ./Llib/dsssl.scm 140 */
obj_t BgL_auxz00_1818;
BgL_auxz00_1818 = 
CAR(BgL_argsz00_509); 
BgL_testz00_1817 = 
SYMBOLP(BgL_auxz00_1818); } 
if(BgL_testz00_1817)
{ /* ./Llib/dsssl.scm 140 */
BgL_test1330z00_517 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 140 */
bool_t BgL_testz00_1821;
{ /* ./Llib/dsssl.scm 140 */
obj_t BgL_auxz00_1822;
BgL_auxz00_1822 = 
CAR(BgL_argsz00_509); 
BgL_testz00_1821 = 
PAIRP(BgL_auxz00_1822); } 
if(BgL_testz00_1821)
{ /* ./Llib/dsssl.scm 140 */
BgL_test1330z00_517 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 140 */
BgL_test1330z00_517 = ((bool_t)1); } } } 
if(BgL_test1330z00_517)
{ /* ./Llib/dsssl.scm 140 */
{ /* ./Llib/dsssl.scm 142 */
long BgL_aux1008z00_519;
{ /* ./Llib/dsssl.scm 142 */
obj_t BgL_aux1006z00_523;
BgL_aux1006z00_523 = 
CAR(BgL_argsz00_509); 
if(
CNSTP(BgL_aux1006z00_523))
{ /* ./Llib/dsssl.scm 142 */
BgL_aux1008z00_519 = 
CCNST(BgL_aux1006z00_523); }  else 
{ /* ./Llib/dsssl.scm 142 */
BgL_aux1008z00_519 = ((long)-1); } } 
switch( BgL_aux1008z00_519) { case ((long)259) : 

return 
BGl_restzd2statezd2zz__dssslz00(BgL_restzd2statezd2_1336, 
CDR(BgL_argsz00_509), BgL_dssslzd2argzd2_510);break;case ((long)262) : 

return 
BGl_nozd2restzd2keyzd2statezd2zz__dssslz00(BgL_nozd2restzd2keyzd2statezd2_1337, 
CDR(BgL_argsz00_509), BgL_dssslzd2argzd2_510);break;
default: 
return 
PROCEDURE_ENTRY(BgL_errz00_1333)(BgL_errz00_1333, BgL_wherez00_1334, BGl_string2724z00zz__dssslz00, BgL_formalsz00_1335, BEOA);} } }  else 
{ /* ./Llib/dsssl.scm 140 */
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_ezd2111zd2_531;
BgL_ezd2111zd2_531 = 
CAR(BgL_argsz00_509); 
if(
PAIRP(BgL_ezd2111zd2_531))
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_carzd2116zd2_533;obj_t BgL_cdrzd2117zd2_534;
BgL_carzd2116zd2_533 = 
CAR(BgL_ezd2111zd2_531); 
BgL_cdrzd2117zd2_534 = 
CDR(BgL_ezd2111zd2_531); 
if(
SYMBOLP(BgL_carzd2116zd2_533))
{ /* ./Llib/dsssl.scm 151 */
if(
PAIRP(BgL_cdrzd2117zd2_534))
{ /* ./Llib/dsssl.scm 151 */
bool_t BgL_testz00_1846;
{ /* ./Llib/dsssl.scm 151 */
obj_t BgL_auxz00_1847;
BgL_auxz00_1847 = 
CDR(BgL_cdrzd2117zd2_534); 
BgL_testz00_1846 = 
NULLP(BgL_auxz00_1847); } 
if(BgL_testz00_1846)
{ /* ./Llib/dsssl.scm 151 */
BgL_argz00_548 = BgL_carzd2116zd2_533; 
BgL_initializa7erza7_549 = 
CAR(BgL_cdrzd2117zd2_534); 
BgL_zc3anonymousza31400ze3z83_550:
{ /* ./Llib/dsssl.scm 126 */
obj_t BgL_tmpz00_551;
BgL_tmpz00_551 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol2717z00zz__dssslz00, BEOA); 
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1402z00_552;obj_t BgL_arg1403z00_553;
BgL_arg1402z00_552 = BGl_symbol2707z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1406z00_554;obj_t BgL_arg1407z00_555;
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1410z00_556;
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1415z00_558;
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1418z00_559;
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1422z00_561;obj_t BgL_arg1423z00_562;
BgL_arg1422z00_561 = BGl_symbol2718z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1426z00_563;obj_t BgL_arg1427z00_564;
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1430z00_565;obj_t BgL_arg1431z00_566;
BgL_arg1430z00_565 = BGl_symbol2718z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1434z00_567;obj_t BgL_arg1435z00_568;
{ /* ./Llib/dsssl.scm 127 */
obj_t BgL_arg1438z00_569;obj_t BgL_arg1439z00_570;
BgL_arg1438z00_569 = BGl_symbol2719z00zz__dssslz00; 
BgL_arg1439z00_570 = 
MAKE_PAIR(BgL_dssslzd2argzd2_510, BNIL); 
BgL_arg1434z00_567 = 
MAKE_PAIR(BgL_arg1438z00_569, BgL_arg1439z00_570); } 
{ /* ./Llib/dsssl.scm 129 */
obj_t BgL_arg1444z00_571;
{ /* ./Llib/dsssl.scm 129 */
obj_t BgL_arg1448z00_572;
{ /* ./Llib/dsssl.scm 129 */
obj_t BgL_arg1452z00_574;obj_t BgL_arg1453z00_575;
BgL_arg1452z00_574 = BGl_symbol2720z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 129 */
obj_t BgL_arg1456z00_576;obj_t BgL_arg1457z00_577;
{ /* ./Llib/dsssl.scm 129 */
obj_t BgL_arg1461z00_578;obj_t BgL_arg1462z00_579;
BgL_arg1461z00_578 = BGl_symbol2721z00zz__dssslz00; 
BgL_arg1462z00_579 = 
MAKE_PAIR(BgL_dssslzd2argzd2_510, BNIL); 
BgL_arg1456z00_576 = 
MAKE_PAIR(BgL_arg1461z00_578, BgL_arg1462z00_579); } 
{ /* ./Llib/dsssl.scm 129 */
obj_t BgL_arg1466z00_580;
{ /* ./Llib/dsssl.scm 129 */
obj_t BgL_arg1471z00_582;obj_t BgL_arg1472z00_583;
BgL_arg1471z00_582 = BGl_symbol2714z00zz__dssslz00; 
BgL_arg1472z00_583 = 
MAKE_PAIR(BgL_keywordzd2argumentszd2_513, BNIL); 
BgL_arg1466z00_580 = 
MAKE_PAIR(BgL_arg1471z00_582, BgL_arg1472z00_583); } 
BgL_arg1457z00_577 = 
MAKE_PAIR(BgL_arg1466z00_580, BNIL); } 
BgL_arg1453z00_575 = 
MAKE_PAIR(BgL_arg1456z00_576, BgL_arg1457z00_577); } 
BgL_arg1448z00_572 = 
MAKE_PAIR(BgL_arg1452z00_574, BgL_arg1453z00_575); } 
BgL_arg1444z00_571 = 
MAKE_PAIR(BgL_arg1448z00_572, BNIL); } 
BgL_arg1435z00_568 = 
MAKE_PAIR(BTRUE, BgL_arg1444z00_571); } 
BgL_arg1431z00_566 = 
MAKE_PAIR(BgL_arg1434z00_567, BgL_arg1435z00_568); } 
BgL_arg1426z00_563 = 
MAKE_PAIR(BgL_arg1430z00_565, BgL_arg1431z00_566); } 
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1476z00_584;
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1479z00_585;
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1483z00_587;obj_t BgL_arg1484z00_588;
BgL_arg1483z00_587 = BGl_symbol2707z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1487z00_589;obj_t BgL_arg1488z00_590;
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1491z00_591;
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1495z00_593;
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1498z00_594;
{ /* ./Llib/dsssl.scm 131 */
obj_t BgL_arg1502z00_596;obj_t BgL_arg1503z00_597;
BgL_arg1502z00_596 = BGl_symbol2721z00zz__dssslz00; 
BgL_arg1503z00_597 = 
MAKE_PAIR(BgL_dssslzd2argzd2_510, BNIL); 
BgL_arg1498z00_594 = 
MAKE_PAIR(BgL_arg1502z00_596, BgL_arg1503z00_597); } 
BgL_arg1495z00_593 = 
MAKE_PAIR(BgL_arg1498z00_594, BNIL); } 
BgL_arg1491z00_591 = 
MAKE_PAIR(BgL_tmpz00_551, BgL_arg1495z00_593); } 
BgL_arg1487z00_589 = 
MAKE_PAIR(BgL_arg1491z00_591, BNIL); } 
{ /* ./Llib/dsssl.scm 132 */
obj_t BgL_arg1507z00_598;obj_t BgL_arg1508z00_599;
{ /* ./Llib/dsssl.scm 132 */
obj_t BgL_arg1511z00_600;obj_t BgL_arg1512z00_601;
BgL_arg1511z00_600 = BGl_symbol2722z00zz__dssslz00; 
{ /* ./Llib/dsssl.scm 132 */
obj_t BgL_arg1515z00_602;
{ /* ./Llib/dsssl.scm 132 */
obj_t BgL_arg1518z00_603;
{ /* ./Llib/dsssl.scm 132 */
obj_t BgL_arg1522z00_605;obj_t BgL_arg1524z00_606;
BgL_arg1522z00_605 = BGl_symbol2723z00zz__dssslz00; 
BgL_arg1524z00_606 = 
MAKE_PAIR(BgL_dssslzd2argzd2_510, BNIL); 
BgL_arg1518z00_603 = 
MAKE_PAIR(BgL_arg1522z00_605, BgL_arg1524z00_606); } 
BgL_arg1515z00_602 = 
MAKE_PAIR(BgL_arg1518z00_603, BNIL); } 
BgL_arg1512z00_601 = 
MAKE_PAIR(BgL_dssslzd2argzd2_510, BgL_arg1515z00_602); } 
BgL_arg1507z00_598 = 
MAKE_PAIR(BgL_arg1511z00_600, BgL_arg1512z00_601); } 
BgL_arg1508z00_599 = 
MAKE_PAIR(BgL_tmpz00_551, BNIL); 
BgL_arg1488z00_590 = 
MAKE_PAIR(BgL_arg1507z00_598, BgL_arg1508z00_599); } 
BgL_arg1484z00_588 = 
MAKE_PAIR(BgL_arg1487z00_589, BgL_arg1488z00_590); } 
BgL_arg1479z00_585 = 
MAKE_PAIR(BgL_arg1483z00_587, BgL_arg1484z00_588); } 
BgL_arg1476z00_584 = 
MAKE_PAIR(BgL_arg1479z00_585, BNIL); } 
BgL_arg1427z00_564 = 
MAKE_PAIR(BgL_initializa7erza7_549, BgL_arg1476z00_584); } 
BgL_arg1423z00_562 = 
MAKE_PAIR(BgL_arg1426z00_563, BgL_arg1427z00_564); } 
BgL_arg1418z00_559 = 
MAKE_PAIR(BgL_arg1422z00_561, BgL_arg1423z00_562); } 
BgL_arg1415z00_558 = 
MAKE_PAIR(BgL_arg1418z00_559, BNIL); } 
BgL_arg1410z00_556 = 
MAKE_PAIR(BgL_argz00_548, BgL_arg1415z00_558); } 
BgL_arg1406z00_554 = 
MAKE_PAIR(BgL_arg1410z00_556, BNIL); } 
{ /* ./Llib/dsssl.scm 134 */
obj_t BgL_arg1529z00_607;
{ /* ./Llib/dsssl.scm 134 */
obj_t BgL_arg1533z00_609;
BgL_arg1533z00_609 = 
CDR(BgL_argsz00_509); 
BgL_arg1529z00_607 = 
BGl_optionalzd2statez72za0zz__dssslz00(BgL_bodyz00_1338, BgL_nozd2restzd2keyzd2statezd2_1337, BgL_restzd2statezd2_1336, BgL_formalsz00_1335, BgL_wherez00_1334, BgL_errz00_1333, BgL_symbolzd2ze3keywordz31_1332, BgL_arg1533z00_609, BgL_dssslzd2argzd2_510); } 
BgL_arg1407z00_555 = 
MAKE_PAIR(BgL_arg1529z00_607, BNIL); } 
BgL_arg1403z00_553 = 
MAKE_PAIR(BgL_arg1406z00_554, BgL_arg1407z00_555); } 
return 
MAKE_PAIR(BgL_arg1402z00_552, BgL_arg1403z00_553);} } }  else 
{ /* ./Llib/dsssl.scm 151 */
if(
SYMBOLP(BgL_ezd2111zd2_531))
{ 
obj_t BgL_initializa7erza7_1895;obj_t BgL_argz00_1894;
BgL_argz00_1894 = BgL_ezd2111zd2_531; 
BgL_initializa7erza7_1895 = BFALSE; 
BgL_initializa7erza7_549 = BgL_initializa7erza7_1895; 
BgL_argz00_548 = BgL_argz00_1894; 
goto BgL_zc3anonymousza31400ze3z83_550;}  else 
{ /* ./Llib/dsssl.scm 151 */
return 
PROCEDURE_ENTRY(BgL_errz00_1333)(BgL_errz00_1333, BgL_wherez00_1334, BGl_string2724z00zz__dssslz00, BgL_formalsz00_1335, BEOA);} } }  else 
{ /* ./Llib/dsssl.scm 151 */
if(
SYMBOLP(BgL_ezd2111zd2_531))
{ 
obj_t BgL_initializa7erza7_1901;obj_t BgL_argz00_1900;
BgL_argz00_1900 = BgL_ezd2111zd2_531; 
BgL_initializa7erza7_1901 = BFALSE; 
BgL_initializa7erza7_549 = BgL_initializa7erza7_1901; 
BgL_argz00_548 = BgL_argz00_1900; 
goto BgL_zc3anonymousza31400ze3z83_550;}  else 
{ /* ./Llib/dsssl.scm 151 */
return 
PROCEDURE_ENTRY(BgL_errz00_1333)(BgL_errz00_1333, BgL_wherez00_1334, BGl_string2724z00zz__dssslz00, BgL_formalsz00_1335, BEOA);} } }  else 
{ /* ./Llib/dsssl.scm 151 */
if(
SYMBOLP(BgL_ezd2111zd2_531))
{ 
obj_t BgL_initializa7erza7_1907;obj_t BgL_argz00_1906;
BgL_argz00_1906 = BgL_ezd2111zd2_531; 
BgL_initializa7erza7_1907 = BFALSE; 
BgL_initializa7erza7_549 = BgL_initializa7erza7_1907; 
BgL_argz00_548 = BgL_argz00_1906; 
goto BgL_zc3anonymousza31400ze3z83_550;}  else 
{ /* ./Llib/dsssl.scm 151 */
return 
PROCEDURE_ENTRY(BgL_errz00_1333)(BgL_errz00_1333, BgL_wherez00_1334, BGl_string2724z00zz__dssslz00, BgL_formalsz00_1335, BEOA);} } }  else 
{ /* ./Llib/dsssl.scm 151 */
if(
SYMBOLP(BgL_ezd2111zd2_531))
{ 
obj_t BgL_initializa7erza7_1913;obj_t BgL_argz00_1912;
BgL_argz00_1912 = BgL_ezd2111zd2_531; 
BgL_initializa7erza7_1913 = BFALSE; 
BgL_initializa7erza7_549 = BgL_initializa7erza7_1913; 
BgL_argz00_548 = BgL_argz00_1912; 
goto BgL_zc3anonymousza31400ze3z83_550;}  else 
{ /* ./Llib/dsssl.scm 151 */
return 
PROCEDURE_ENTRY(BgL_errz00_1333)(BgL_errz00_1333, BgL_wherez00_1334, BGl_string2724z00zz__dssslz00, BgL_formalsz00_1335, BEOA);} } } } }  else 
{ /* ./Llib/dsssl.scm 138 */
return 
PROCEDURE_ENTRY(BgL_errz00_1333)(BgL_errz00_1333, BgL_wherez00_1334, BGl_string2724z00zz__dssslz00, BgL_formalsz00_1335, BEOA);} } } } } 
}



/* 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 */
if(
NULLP(BgL_keyzd2listzd2_7))
{ 
obj_t BgL_argsz00_723;
BgL_argsz00_723 = BgL_dssslzd2argszd2_6; 
BgL_loopz00_724:
if(
NULLP(BgL_argsz00_723))
{ /* ./Llib/dsssl.scm 259 */
return BgL_dssslzd2argszd2_6;}  else 
{ /* ./Llib/dsssl.scm 261 */
bool_t BgL_test1760z00_726;
if(
PAIRP(BgL_argsz00_723))
{ /* ./Llib/dsssl.scm 262 */
bool_t BgL_testz00_1924;
{ /* ./Llib/dsssl.scm 262 */
obj_t BgL_auxz00_1925;
BgL_auxz00_1925 = 
CDR(BgL_argsz00_723); 
BgL_testz00_1924 = 
NULLP(BgL_auxz00_1925); } 
if(BgL_testz00_1924)
{ /* ./Llib/dsssl.scm 262 */
BgL_test1760z00_726 = ((bool_t)1); }  else 
{ /* ./Llib/dsssl.scm 263 */
bool_t BgL_testz00_1928;
{ /* ./Llib/dsssl.scm 263 */
obj_t BgL_auxz00_1929;
BgL_auxz00_1929 = 
CAR(BgL_argsz00_723); 
BgL_testz00_1928 = 
KEYWORDP(BgL_auxz00_1929); } 
if(BgL_testz00_1928)
{ /* ./Llib/dsssl.scm 263 */
BgL_test1760z00_726 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 263 */
BgL_test1760z00_726 = ((bool_t)1); } } }  else 
{ /* ./Llib/dsssl.scm 261 */
BgL_test1760z00_726 = ((bool_t)1); } 
if(BgL_test1760z00_726)
{ /* ./Llib/dsssl.scm 261 */
FAILURE(BGl_string2715z00zz__dssslz00,BGl_string2725z00zz__dssslz00,BgL_argsz00_723);}  else 
{ /* ./Llib/dsssl.scm 261 */
{ 
obj_t BgL_argsz00_1934;
{ /* ./Llib/dsssl.scm 268 */
obj_t BgL_auxz00_1935;
BgL_auxz00_1935 = 
CDR(BgL_argsz00_723); 
BgL_argsz00_1934 = 
CDR(BgL_auxz00_1935); } 
BgL_argsz00_723 = BgL_argsz00_1934; 
goto BgL_loopz00_724;} } } }  else 
{ 
obj_t BgL_argsz00_733;bool_t BgL_armedz00_734;obj_t BgL_optsz00_735;
BgL_argsz00_733 = BgL_dssslzd2argszd2_6; 
BgL_armedz00_734 = ((bool_t)0); 
BgL_optsz00_735 = BNIL; 
BgL_loopz00_736:
if(
NULLP(BgL_argsz00_733))
{ /* ./Llib/dsssl.scm 273 */
return 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_optsz00_735);}  else 
{ /* ./Llib/dsssl.scm 275 */
bool_t BgL_test1783z00_738;
if(
PAIRP(BgL_argsz00_733))
{ /* ./Llib/dsssl.scm 276 */
bool_t BgL_testz00_1943;
{ /* ./Llib/dsssl.scm 276 */
obj_t BgL_auxz00_1944;
BgL_auxz00_1944 = 
CDR(BgL_argsz00_733); 
BgL_testz00_1943 = 
NULLP(BgL_auxz00_1944); } 
if(BgL_testz00_1943)
{ /* ./Llib/dsssl.scm 276 */
BgL_test1783z00_738 = ((bool_t)1); }  else 
{ /* ./Llib/dsssl.scm 277 */
bool_t BgL_testz00_1947;
{ /* ./Llib/dsssl.scm 277 */
obj_t BgL_auxz00_1948;
BgL_auxz00_1948 = 
CAR(BgL_argsz00_733); 
BgL_testz00_1947 = 
KEYWORDP(BgL_auxz00_1948); } 
if(BgL_testz00_1947)
{ /* ./Llib/dsssl.scm 278 */
bool_t BgL_testz00_1951;
{ /* ./Llib/dsssl.scm 278 */
obj_t BgL_auxz00_1952;
BgL_auxz00_1952 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_argsz00_733), BgL_keyzd2listzd2_7); 
BgL_testz00_1951 = 
CBOOL(BgL_auxz00_1952); } 
if(BgL_testz00_1951)
{ /* ./Llib/dsssl.scm 278 */
BgL_test1783z00_738 = ((bool_t)0); }  else 
{ /* ./Llib/dsssl.scm 278 */
BgL_test1783z00_738 = ((bool_t)1); } }  else 
{ /* ./Llib/dsssl.scm 277 */
BgL_test1783z00_738 = ((bool_t)1); } } }  else 
{ /* ./Llib/dsssl.scm 275 */
BgL_test1783z00_738 = ((bool_t)1); } 
if(BgL_test1783z00_738)
{ /* ./Llib/dsssl.scm 275 */
if(BgL_armedz00_734)
{ /* ./Llib/dsssl.scm 281 */
obj_t BgL_arg1785z00_739;obj_t BgL_arg1786z00_740;
BgL_arg1785z00_739 = 
CDR(BgL_argsz00_733); 
{ /* ./Llib/dsssl.scm 283 */
obj_t BgL_auxz00_1959;
BgL_auxz00_1959 = 
CAR(BgL_argsz00_733); 
BgL_arg1786z00_740 = 
MAKE_PAIR(BgL_auxz00_1959, BgL_optsz00_735); } 
{ 
obj_t BgL_optsz00_1964;bool_t BgL_armedz00_1963;obj_t BgL_argsz00_1962;
BgL_argsz00_1962 = BgL_arg1785z00_739; 
BgL_armedz00_1963 = ((bool_t)0); 
BgL_optsz00_1964 = BgL_arg1786z00_740; 
BgL_optsz00_735 = BgL_optsz00_1964; 
BgL_armedz00_734 = BgL_armedz00_1963; 
BgL_argsz00_733 = BgL_argsz00_1962; 
goto BgL_loopz00_736;} }  else 
{ 
obj_t BgL_argsz00_1965;
BgL_argsz00_1965 = 
CDR(BgL_argsz00_733); 
BgL_argsz00_733 = BgL_argsz00_1965; 
goto BgL_loopz00_736;} }  else 
{ /* ./Llib/dsssl.scm 275 */
{ 
bool_t BgL_armedz00_1971;obj_t BgL_argsz00_1967;
{ /* ./Llib/dsssl.scm 285 */
obj_t BgL_auxz00_1968;
BgL_auxz00_1968 = 
CDR(BgL_argsz00_733); 
BgL_argsz00_1967 = 
CDR(BgL_auxz00_1968); } 
BgL_armedz00_1971 = ((bool_t)1); 
BgL_armedz00_734 = BgL_armedz00_1971; 
BgL_argsz00_733 = BgL_argsz00_1967; 
goto BgL_loopz00_736;} } } } } 
}



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



/* 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 */
{ 
obj_t BgL_argsz00_751;
BgL_argsz00_751 = BgL_dssslzd2argszd2_8; 
BgL_loopz00_752:
if(
NULLP(BgL_argsz00_751))
{ /* ./Llib/dsssl.scm 296 */
return BgL_initializa7erza7_10;}  else 
{ /* ./Llib/dsssl.scm 298 */
bool_t BgL_testz00_1975;
{ /* ./Llib/dsssl.scm 298 */
obj_t BgL_auxz00_1976;
BgL_auxz00_1976 = 
CAR(BgL_argsz00_751); 
BgL_testz00_1975 = 
KEYWORDP(BgL_auxz00_1976); } 
if(BgL_testz00_1975)
{ /* ./Llib/dsssl.scm 300 */
bool_t BgL_testz00_1979;
{ /* ./Llib/dsssl.scm 300 */
obj_t BgL_auxz00_1980;
BgL_auxz00_1980 = 
CAR(BgL_argsz00_751); 
BgL_testz00_1979 = 
(BgL_auxz00_1980==BgL_keywordz00_9); } 
if(BgL_testz00_1979)
{ /* ./Llib/dsssl.scm 300 */
{ /* ./Llib/dsssl.scm 301 */
bool_t BgL_testz00_1983;
{ /* ./Llib/dsssl.scm 301 */
obj_t BgL_auxz00_1984;
BgL_auxz00_1984 = 
CDR(BgL_argsz00_751); 
BgL_testz00_1983 = 
PAIRP(BgL_auxz00_1984); } 
if(BgL_testz00_1983)
{ /* ./Llib/dsssl.scm 305 */
obj_t BgL_auxz00_1987;
BgL_auxz00_1987 = 
CDR(BgL_argsz00_751); 
return 
CAR(BgL_auxz00_1987);}  else 
{ /* ./Llib/dsssl.scm 302 */
obj_t BgL_arg1829z00_757;obj_t BgL_arg1833z00_759;
BgL_arg1829z00_757 = BGl_symbol2710z00zz__dssslz00; 
BgL_arg1833z00_759 = 
CAR(BgL_argsz00_751); 
FAILURE(BgL_arg1829z00_757,BGl_string2726z00zz__dssslz00,BgL_arg1833z00_759);} } }  else 
{ /* ./Llib/dsssl.scm 300 */
{ /* ./Llib/dsssl.scm 307 */
bool_t BgL_testz00_1992;
{ /* ./Llib/dsssl.scm 307 */
obj_t BgL_auxz00_1993;
BgL_auxz00_1993 = 
CDR(BgL_argsz00_751); 
BgL_testz00_1992 = 
PAIRP(BgL_auxz00_1993); } 
if(BgL_testz00_1992)
{ 
obj_t BgL_argsz00_1996;
{ /* ./Llib/dsssl.scm 311 */
obj_t BgL_auxz00_1997;
BgL_auxz00_1997 = 
CDR(BgL_argsz00_751); 
BgL_argsz00_1996 = 
CDR(BgL_auxz00_1997); } 
BgL_argsz00_751 = BgL_argsz00_1996; 
goto BgL_loopz00_752;}  else 
{ /* ./Llib/dsssl.scm 308 */
obj_t BgL_arg1846z00_763;obj_t BgL_arg1848z00_765;
BgL_arg1846z00_763 = BGl_symbol2710z00zz__dssslz00; 
BgL_arg1848z00_765 = 
CAR(BgL_argsz00_751); 
FAILURE(BgL_arg1846z00_763,BGl_string2726z00zz__dssslz00,BgL_arg1848z00_765);} } } }  else 
{ /* ./Llib/dsssl.scm 298 */
{ 
obj_t BgL_argsz00_2002;
BgL_argsz00_2002 = 
CDR(BgL_argsz00_751); 
BgL_argsz00_751 = BgL_argsz00_2002; 
goto BgL_loopz00_752;} } } } } 
}



/* _dsssl-get-key-arg2594 */
obj_t BGl__dssslzd2getzd2keyzd2arg2594zd2zz__dssslz00(obj_t BgL_envz00_1323, obj_t BgL_dssslzd2argszd2_1324, obj_t BgL_keywordz00_1325, obj_t BgL_initializa7erza7_1326)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 293 */
return 
BGl_dssslzd2getzd2keyzd2argzd2zz__dssslz00(BgL_dssslzd2argszd2_1324, BgL_keywordz00_1325, BgL_initializa7erza7_1326);} 
}



/* 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_stringz00_770;
BgL_stringz00_770 = 
SYMBOL_TO_STRING(BgL_idz00_11); 
{ /* ./Llib/dsssl.scm 320 */
int BgL_lenz00_771;
BgL_lenz00_771 = 
STRING_LENGTH(BgL_stringz00_770); 
{ /* ./Llib/dsssl.scm 321 */

{ 
long BgL_walkerz00_772;
BgL_walkerz00_772 = ((long)0); 
BgL_loopz00_773:
{ /* ./Llib/dsssl.scm 324 */
bool_t BgL_testz00_2007;
{ /* ./Llib/dsssl.scm 324 */
long BgL_auxz00_2008;
BgL_auxz00_2008 = 
(long)(BgL_lenz00_771); 
BgL_testz00_2007 = 
(BgL_walkerz00_772==BgL_auxz00_2008); } 
if(BgL_testz00_2007)
{ /* ./Llib/dsssl.scm 324 */
return BgL_idz00_11;}  else 
{ /* ./Llib/dsssl.scm 326 */
bool_t BgL_test1871z00_775;
{ /* ./Llib/dsssl.scm 326 */
bool_t BgL_testz00_2011;
{ /* ./Llib/dsssl.scm 326 */
unsigned char BgL_auxz00_2012;
{ /* ./Llib/dsssl.scm 326 */
int BgL_auxz00_2013;
BgL_auxz00_2013 = 
(int)(BgL_walkerz00_772); 
BgL_auxz00_2012 = 
STRING_REF(BgL_stringz00_770, BgL_auxz00_2013); } 
BgL_testz00_2011 = 
(BgL_auxz00_2012==((unsigned char)':')); } 
if(BgL_testz00_2011)
{ /* ./Llib/dsssl.scm 327 */
bool_t BgL_testz00_2017;
{ /* ./Llib/dsssl.scm 327 */
long BgL_auxz00_2018;
{ /* ./Llib/dsssl.scm 327 */
long BgL_auxz00_2019;
BgL_auxz00_2019 = 
(long)(BgL_lenz00_771); 
BgL_auxz00_2018 = 
(BgL_auxz00_2019-((long)1)); } 
BgL_testz00_2017 = 
(BgL_walkerz00_772<BgL_auxz00_2018); } 
if(BgL_testz00_2017)
{ /* ./Llib/dsssl.scm 328 */
unsigned char BgL_auxz00_2023;
{ /* ./Llib/dsssl.scm 328 */
int BgL_auxz00_2024;
{ /* ./Llib/dsssl.scm 328 */
long BgL_auxz00_2025;
BgL_auxz00_2025 = 
(BgL_walkerz00_772+((long)1)); 
BgL_auxz00_2024 = 
(int)(BgL_auxz00_2025); } 
BgL_auxz00_2023 = 
STRING_REF(BgL_stringz00_770, BgL_auxz00_2024); } 
BgL_test1871z00_775 = 
(BgL_auxz00_2023==((unsigned char)':')); }  else 
{ /* ./Llib/dsssl.scm 327 */
BgL_test1871z00_775 = ((bool_t)0); } }  else 
{ /* ./Llib/dsssl.scm 326 */
BgL_test1871z00_775 = ((bool_t)0); } } 
if(BgL_test1871z00_775)
{ /* ./Llib/dsssl.scm 326 */
{ /* ./Llib/dsssl.scm 329 */
obj_t BgL_arg1873z00_776;
{ /* ./Llib/dsssl.scm 329 */
int BgL_auxz00_2033;int BgL_auxz00_2031;
BgL_auxz00_2033 = 
(int)(BgL_walkerz00_772); 
BgL_auxz00_2031 = 
(int)(((long)0)); 
BgL_arg1873z00_776 = 
c_substring(BgL_stringz00_770, BgL_auxz00_2031, BgL_auxz00_2033); } 
{ /* ./Llib/dsssl.scm 329 */
char * BgL_auxz00_2036;
BgL_auxz00_2036 = 
BSTRING_TO_STRING(BgL_arg1873z00_776); 
return 
string_to_symbol(BgL_auxz00_2036);} } }  else 
{ /* ./Llib/dsssl.scm 326 */
{ 
long BgL_walkerz00_2039;
BgL_walkerz00_2039 = 
(BgL_walkerz00_772+((long)1)); 
BgL_walkerz00_772 = BgL_walkerz00_2039; 
goto BgL_loopz00_773;} } } } } } } } } 
}



/* 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 */
return 
BGl_loopz00zz__dssslz00(BgL_formalsz00_12, BgL_errz00_13, BgL_formalsz00_12, ((bool_t)0));} 
}



/* loop */
obj_t BGl_loopz00zz__dssslz00(obj_t BgL_formalsz00_1331, obj_t BgL_errz00_1330, obj_t BgL_argsz00_787, bool_t BgL_dssslz00_788)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 358 */
BGl_loopz00zz__dssslz00:
{ 
obj_t BgL_objz00_809;
if(
NULLP(BgL_argsz00_787))
{ /* ./Llib/dsssl.scm 361 */
return BNIL;}  else 
{ /* ./Llib/dsssl.scm 361 */
if(
PAIRP(BgL_argsz00_787))
{ /* ./Llib/dsssl.scm 373 */
bool_t BgL_testz00_2046;
{ /* ./Llib/dsssl.scm 373 */
obj_t BgL_auxz00_2047;
BgL_auxz00_2047 = 
CAR(BgL_argsz00_787); 
BgL_testz00_2046 = 
SYMBOLP(BgL_auxz00_2047); } 
if(BgL_testz00_2046)
{ /* ./Llib/dsssl.scm 373 */
if(BgL_dssslz00_788)
{ /* ./Llib/dsssl.scm 385 */
return 
BGl_idzd2sanszd2typez00zz__dssslz00(
CAR(BgL_argsz00_787));}  else 
{ /* ./Llib/dsssl.scm 385 */
{ /* ./Llib/dsssl.scm 388 */
obj_t BgL_auxz00_2056;obj_t BgL_auxz00_2053;
BgL_auxz00_2056 = 
BGl_loopz00zz__dssslz00(BgL_formalsz00_1331, BgL_errz00_1330, 
CDR(BgL_argsz00_787), ((bool_t)0)); 
BgL_auxz00_2053 = 
BGl_idzd2sanszd2typez00zz__dssslz00(
CAR(BgL_argsz00_787)); 
return 
MAKE_PAIR(BgL_auxz00_2053, BgL_auxz00_2056);} } }  else 
{ /* ./Llib/dsssl.scm 373 */
{ /* ./Llib/dsssl.scm 375 */
bool_t BgL_testz00_2060;
{ /* ./Llib/dsssl.scm 375 */
obj_t BgL_auxz00_2061;
BgL_auxz00_2061 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_argsz00_787), BGl_list2727z00zz__dssslz00); 
BgL_testz00_2060 = 
CBOOL(BgL_auxz00_2061); } 
if(BgL_testz00_2060)
{ /* ./Llib/dsssl.scm 375 */
{ 
bool_t BgL_dssslz00_2067;obj_t BgL_argsz00_2065;
BgL_argsz00_2065 = 
CDR(BgL_argsz00_787); 
BgL_dssslz00_2067 = ((bool_t)1); 
BgL_dssslz00_788 = BgL_dssslz00_2067; 
BgL_argsz00_787 = BgL_argsz00_2065; 
goto BGl_loopz00zz__dssslz00;} }  else 
{ /* ./Llib/dsssl.scm 375 */
if(BgL_dssslz00_788)
{ /* ./Llib/dsssl.scm 379 */
bool_t BgL_testz00_2069;
BgL_objz00_809 = 
CAR(BgL_argsz00_787); 
if(
PAIRP(BgL_objz00_809))
{ /* ./Llib/dsssl.scm 352 */
bool_t BgL_testz00_2072;
{ /* ./Llib/dsssl.scm 352 */
obj_t BgL_auxz00_2073;
BgL_auxz00_2073 = 
CDR(BgL_objz00_809); 
BgL_testz00_2072 = 
PAIRP(BgL_auxz00_2073); } 
if(BgL_testz00_2072)
{ /* ./Llib/dsssl.scm 353 */
obj_t BgL_auxz00_2076;
{ /* ./Llib/dsssl.scm 353 */
obj_t BgL_auxz00_2077;
BgL_auxz00_2077 = 
CDR(BgL_objz00_809); 
BgL_auxz00_2076 = 
CDR(BgL_auxz00_2077); } 
BgL_testz00_2069 = 
NULLP(BgL_auxz00_2076); }  else 
{ /* ./Llib/dsssl.scm 352 */
BgL_testz00_2069 = ((bool_t)0)
; } }  else 
{ /* ./Llib/dsssl.scm 351 */
BgL_testz00_2069 = ((bool_t)0)
; } 
if(BgL_testz00_2069)
{ /* ./Llib/dsssl.scm 379 */
{ /* ./Llib/dsssl.scm 380 */
obj_t BgL_auxz00_2082;
{ /* ./Llib/dsssl.scm 380 */
obj_t BgL_auxz00_2083;
BgL_auxz00_2083 = 
CAR(BgL_argsz00_787); 
BgL_auxz00_2082 = 
CAR(BgL_auxz00_2083); } 
return 
BGl_idzd2sanszd2typez00zz__dssslz00(BgL_auxz00_2082);} }  else 
{ /* ./Llib/dsssl.scm 379 */
return 
PROCEDURE_ENTRY(BgL_errz00_1330)(BgL_errz00_1330, BGl_string2728z00zz__dssslz00, BGl_string2729z00zz__dssslz00, BgL_formalsz00_1331, BEOA);} }  else 
{ /* ./Llib/dsssl.scm 377 */
return 
PROCEDURE_ENTRY(BgL_errz00_1330)(BgL_errz00_1330, BGl_string2728z00zz__dssslz00, BGl_string2730z00zz__dssslz00, BgL_formalsz00_1331, BEOA);} } } } }  else 
{ /* ./Llib/dsssl.scm 363 */
if(BgL_dssslz00_788)
{ /* ./Llib/dsssl.scm 365 */
return 
PROCEDURE_ENTRY(BgL_errz00_1330)(BgL_errz00_1330, BGl_string2731z00zz__dssslz00, BGl_string2732z00zz__dssslz00, BgL_formalsz00_1331, BEOA);}  else 
{ /* ./Llib/dsssl.scm 365 */
if(
SYMBOLP(BgL_argsz00_787))
{ /* ./Llib/dsssl.scm 369 */
return 
BGl_idzd2sanszd2typez00zz__dssslz00(BgL_argsz00_787);}  else 
{ /* ./Llib/dsssl.scm 369 */
return 
PROCEDURE_ENTRY(BgL_errz00_1330)(BgL_errz00_1330, BGl_string2728z00zz__dssslz00, BGl_string2730z00zz__dssslz00, BgL_formalsz00_1331, BEOA);} } } } } } 
}



/* _dsssl-formals->scheme-formals2596 */
obj_t BGl__dssslzd2formalszd2ze3schemezd2formals2596z31zz__dssslz00(obj_t BgL_envz00_1327, obj_t BgL_formalsz00_1328, obj_t BgL_errz00_1329)
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 345 */
return 
BGl_dssslzd2formalszd2ze3schemezd2formalsz31zz__dssslz00(BgL_formalsz00_1328, BgL_errz00_1329);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__dssslz00()
{ AN_OBJECT;
{ /* ./Llib/dsssl.scm 14 */
return 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__dsssl");} 
}

