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

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

static obj_t BGl__zd2secondzd2zz__datez00(obj_t, obj_t, obj_t);
static obj_t BGl__currentzd2datezd2zz__datez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__datez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_EXPORTED_DECL obj_t BGl_dayzd2anamezd2zz__datez00(int);
static obj_t BGl__dayzd2namezd2zz__datez00(obj_t, obj_t);
static obj_t BGl__za2second2057za2zz__datez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_monthzd2anamezd2zz__datez00(int);
static obj_t BGl__datezd2wdayzd2zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_zd2secondzd2zz__datez00(long, long);
BGL_EXPORTED_DECL bool_t BGl_ze3secondze3zz__datez00(long, long);
static obj_t BGl__datezd2yearzd2zz__datez00(obj_t, obj_t);
static obj_t BGl__zc3second2048zc3zz__datez00(obj_t, obj_t, obj_t);
static obj_t BGl__zb2secondzb2zz__datez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_currentzd2secondszd2zz__datez00();
static obj_t BGl__integerzd2ze3secondz31zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2datezd2zz__datez00(int, int, int, int, int, int, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zd3secondzd3zz__datez00(long, long);
static obj_t BGl__secondszd2ze3datez31zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_zb2secondzb2zz__datez00(long, long);
BGL_EXPORTED_DECL bool_t BGl_zc3secondzc3zz__datez00(long, long);
static obj_t BGl_cnstzd2initzd2zz__datez00();
extern long bgl_current_seconds();
static obj_t BGl_symbol2252z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol2251z00zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL long BGl_datezd2timeza7onez75zz__datez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_secondszd2ze3datez31zz__datez00(long);
static obj_t BGl_symbol2249z00zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_datezd2hourzd2zz__datez00(obj_t);
extern obj_t bgl_seconds_to_date(long);
extern long bgl_date_to_seconds(obj_t);
BGL_EXPORTED_DECL long BGl_za2secondza2zz__datez00(long, long);
extern obj_t string_to_symbol(char *);
static obj_t BGl__datezd2timeza7onez75zz__datez00(obj_t, obj_t);
static obj_t BGl__secondszd2ze3utczd2stringze3zz__datez00(obj_t, obj_t);
static obj_t BGl__datezd2copy2044zd2zz__datez00(obj_t, obj_t, obj_t);
static obj_t BGl__datezf3zf3zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_secondszd2ze3utczd2stringze3zz__datez00(long);
BGL_EXPORTED_DECL int BGl_datezd2dayzd2zz__datez00(obj_t);
BGL_EXPORTED_DECL long BGl_dayzd2secondszd2zz__datez00();
static obj_t BGl__monthzd2namezd2zz__datez00(obj_t, obj_t);
static obj_t BGl__datezd2ydayzd2zz__datez00(obj_t, obj_t);
static obj_t BGl__datezd2ze3stringz31zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3zd3secondz30zz__datez00(long, long);
static obj_t BGl__datezd2dayzd2zz__datez00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__datez00();
BGL_EXPORTED_DECL long BGl_integerzd2ze3secondz31zz__datez00(long);
static obj_t BGl__datezd2iszd2dst2070z00zz__datez00(obj_t, obj_t);
extern obj_t bgl_seconds_to_utc_string(long);
static obj_t BGl__datezd2monthzd2zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_currentzd2datezd2zz__datez00();
BGL_EXPORTED_DECL int BGl_datezd2ydayzd2zz__datez00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3zd3secondz10zz__datez00(long, long);
static obj_t BGl__datezd2ze3utczd2stringze3zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_secondszd2ze3stringz31zz__datez00(long);
static obj_t BGl_requirezd2initializa7ationz75zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_monthzd2namezd2zz__datez00(int);
BGL_EXPORTED_DECL int BGl_datezd2minutezd2zz__datez00(obj_t);
BGL_EXPORTED_DECL int BGl_datezd2secondzd2zz__datez00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_datezf3zf3zz__datez00(obj_t);
static obj_t BGl__dayzd2secondszd2zz__datez00(obj_t);
static obj_t BGl__datezd2hourzd2zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_datezd2ze3secondsz31zz__datez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_datezd2ze3utczd2stringze3zz__datez00(obj_t);
static obj_t BGl__zd3second2046zd3zz__datez00(obj_t, obj_t, obj_t);
extern obj_t bgl_make_date(int, int, int, int, int, int, long, int);
BGL_EXPORTED_DECL int BGl_datezd2monthzd2zz__datez00(obj_t);
extern obj_t bgl_month_name(int);
static obj_t BGl__ze3second2050ze3zz__datez00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2datezd2zz__datez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__zc3zd3second2052z10zz__datez00(obj_t, obj_t, obj_t);
static obj_t BGl__currentzd2secondszd2zz__datez00(obj_t);
BGL_EXPORTED_DECL int BGl_datezd2iszd2dstz00zz__datez00(obj_t);
static obj_t BGl__monthzd2anamezd2zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_datezd2yearzd2zz__datez00(obj_t);
extern obj_t bgl_day_aname(int);
BGL_EXPORTED_DECL int BGl_datezd2wdayzd2zz__datez00(obj_t);
extern obj_t bgl_month_aname(int);
extern obj_t bgl_seconds_to_string(long);
static obj_t BGl__datezd2minutezd2zz__datez00(obj_t, obj_t);
static obj_t BGl__datezd2secondzd2zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_datezd2copyzd2zz__datez00(obj_t, obj_t);
static obj_t BGl__datezd2ze3secondsz31zz__datez00(obj_t, obj_t);
extern obj_t bgl_day_name(int);
static obj_t BGl__dayzd2anamezd2zz__datez00(obj_t, obj_t);
static obj_t BGl__leapzd2yearzf3z21zz__datez00(obj_t, obj_t);
static obj_t BGl__secondszd2ze3stringz31zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_leapzd2yearzf3z21zz__datez00(int);
BGL_EXPORTED_DECL obj_t BGl_dayzd2namezd2zz__datez00(int);
BGL_EXPORTED_DECL obj_t BGl_datezd2ze3stringz31zz__datez00(obj_t);
static obj_t BGl__ze3zd3second2054z30zz__datez00(obj_t, obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_zb2secondzd2envz60zz__datez00, BgL_bgl__za7b2secondza7b2za7za7__dateza7002262za7, BGl__zb2secondzb2zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2copyzd2envz00zz__datez00, BgL_bgl__dateza7d2copy2044za7d2za7za7__dateza7002263za7, va_generic_entry, BGl__datezd2copy2044zd2zz__datez00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_zc3zd3secondzd2envzc2zz__datez00, BgL_bgl__za7c3za7d3second2052za710za7za7__dateza7002264z00, BGl__zc3zd3second2052z10zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2ze3secondszd2envze3zz__datez00, BgL_bgl__dateza7d2za7e3secondsza731za7za7__dateza7002265z00, BGl__datezd2ze3secondsz31zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_leapzd2yearzf3zd2envzf3zz__datez00, BgL_bgl__leapza7d2yearza7f3za721za7za7__dateza7002266z00, BGl__leapzd2yearzf3z21zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2minutezd2envz00zz__datez00, BgL_bgl__dateza7d2minuteza7d2za7za7__dateza7002267za7, BGl__datezd2minutezd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_dayzd2namezd2envz00zz__datez00, BgL_bgl__dayza7d2nameza7d2za7za7__dateza7002268za7, BGl__dayzd2namezd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zd2secondzd2envz00zz__datez00, BgL_bgl__za7d2secondza7d2za7za7__dateza7002269za7, BGl__zd2secondzd2zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_datezf3zd2envz21zz__datez00, BgL_bgl__dateza7f3za7f3za7za7__dateza7002270za7, BGl__datezf3zf3zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2ydayzd2envz00zz__datez00, BgL_bgl__dateza7d2ydayza7d2za7za7__dateza7002271za7, BGl__datezd2ydayzd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_ze3secondzd2envz31zz__datez00, BgL_bgl__za7e3second2050za7e3za7za7__dateza7002272za7, BGl__ze3second2050ze3zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_zd3secondzd2envz01zz__datez00, BgL_bgl__za7d3second2046za7d3za7za7__dateza7002273za7, BGl__zd3second2046zd3zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2wdayzd2envz00zz__datez00, BgL_bgl__dateza7d2wdayza7d2za7za7__dateza7002274za7, BGl__datezd2wdayzd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2monthzd2envz00zz__datez00, BgL_bgl__dateza7d2monthza7d2za7za7__dateza7002275za7, BGl__datezd2monthzd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_ze3zd3secondzd2envze2zz__datez00, BgL_bgl__za7e3za7d3second2054za730za7za7__dateza7002276z00, BGl__ze3zd3second2054z30zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2hourzd2envz00zz__datez00, BgL_bgl__dateza7d2hourza7d2za7za7__dateza7002277za7, BGl__datezd2hourzd2zz__datez00, 0L, 1 );
DEFINE_STRING( BGl_string2253z00zz__datez00, BgL_bgl_string2253za700za7za7__dateza7002278z00, "Illegal month number", 20 );
DEFINE_STRING( BGl_string2250z00zz__datez00, BgL_bgl_string2250za700za7za7__dateza7002279z00, "Illegal day number", 18 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2iszd2dstzd2envzd2zz__datez00, BgL_bgl__dateza7d2isza7d2dst2070za700za7za7__dateza7002280z00, BGl__datezd2iszd2dst2070z00zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_dayzd2anamezd2envz00zz__datez00, BgL_bgl__dayza7d2anameza7d2za7za7__dateza7002281za7, BGl__dayzd2anamezd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2timeza7onezd2envza7zz__datez00, BgL_bgl__dateza7d2timeza7a7oneza775za7za7__dateza7002282z00, BGl__datezd2timeza7onez75zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_monthzd2namezd2envz00zz__datez00, BgL_bgl__monthza7d2nameza7d2za7za7__dateza7002283za7, BGl__monthzd2namezd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2ze3stringzd2envze3zz__datez00, BgL_bgl__dateza7d2za7e3stringza731za7za7__dateza7002284z00, BGl__datezd2ze3stringz31zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_secondszd2ze3stringzd2envze3zz__datez00, BgL_bgl__secondsza7d2za7e3stringza731za7za7__dateza7002285z00, BGl__secondszd2ze3stringz31zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_monthzd2anamezd2envz00zz__datez00, BgL_bgl__monthza7d2anameza7d2za7za7__dateza7002286za7, BGl__monthzd2anamezd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_za2secondzd2envz70zz__datez00, BgL_bgl__za7a2second2057za7a2za7za7__dateza7002287za7, BGl__za2second2057za2zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2dayzd2envz00zz__datez00, BgL_bgl__dateza7d2dayza7d2za7za7__dateza7002288za7, BGl__datezd2dayzd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2secondzd2envz00zz__datez00, BgL_bgl__dateza7d2secondza7d2za7za7__dateza7002289za7, BGl__datezd2secondzd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_secondszd2ze3utczd2stringzd2envz31zz__datez00, BgL_bgl__secondsza7d2za7e3utcza7d2stringza7e3za7za7__dateza7002290za7, BGl__secondszd2ze3utczd2stringze3zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zc3secondzd2envz11zz__datez00, BgL_bgl__za7c3second2048za7c3za7za7__dateza7002291za7, BGl__zc3second2048zc3zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_currentzd2datezd2envz00zz__datez00, BgL_bgl__currentza7d2dateza7d2za7za7__dateza7002292za7, BGl__currentzd2datezd2zz__datez00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2ze3utczd2stringzd2envz31zz__datez00, BgL_bgl__dateza7d2za7e3utcza7d2stringza7e3za7za7__dateza7002293za7, BGl__datezd2ze3utczd2stringze3zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2yearzd2envz00zz__datez00, BgL_bgl__dateza7d2yearza7d2za7za7__dateza7002294za7, BGl__datezd2yearzd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2datezd2envz00zz__datez00, BgL_bgl__makeza7d2dateza7d2za7za7__dateza7002295za7, va_generic_entry, BGl__makezd2datezd2zz__datez00, -7 );
DEFINE_EXPORT_PROCEDURE( BGl_secondszd2ze3datezd2envze3zz__datez00, BgL_bgl__secondsza7d2za7e3dateza731za7za7__dateza7002296z00, BGl__secondszd2ze3datez31zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_currentzd2secondszd2envz00zz__datez00, BgL_bgl__currentza7d2secondsza7d2za7za7__dateza7002297za7, BGl__currentzd2secondszd2zz__datez00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_integerzd2ze3secondzd2envze3zz__datez00, BgL_bgl__integerza7d2za7e3secondza731za7za7__dateza7002298z00, BGl__integerzd2ze3secondz31zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_dayzd2secondszd2envz00zz__datez00, BgL_bgl__dayza7d2secondsza7d2za7za7__dateza7002299za7, BGl__dayzd2secondszd2zz__datez00, 0L, 0 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__datez00(long BgL_checksumz00_1545, char * BgL_fromz00_1546)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__datez00))
{ 
BGl_requirezd2initializa7ationz75zz__datez00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__datez00(); 
BGl_importedzd2moduleszd2initz00zz__datez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__datez00()
{ AN_OBJECT;
{ /* ./Llib/date.scm 19 */
BGl_symbol2249z00zz__datez00 = 
string_to_symbol("day-name"); 
BGl_symbol2251z00zz__datez00 = 
string_to_symbol("day-aname"); 
return ( 
BGl_symbol2252z00zz__datez00 = 
string_to_symbol("month-aname"), BUNSPEC) ;} 
}



/* date? */
BGL_EXPORTED_DEF bool_t BGl_datezf3zf3zz__datez00(obj_t BgL_objz00_1)
{ AN_OBJECT;
{ /* ./Llib/date.scm 178 */
return 
BGL_DATEP(BgL_objz00_1);} 
}



/* _date? */
obj_t BGl__datezf3zf3zz__datez00(obj_t BgL_envz00_1390, obj_t BgL_objz00_1391)
{ AN_OBJECT;
{ /* ./Llib/date.scm 178 */
{ /* ./Llib/date.scm 179 */
bool_t BgL_auxz00_1556;
BgL_auxz00_1556 = 
BGL_DATEP(BgL_objz00_1391); 
return 
BBOOL(BgL_auxz00_1556);} } 
}



/* make-date */
BGL_EXPORTED_DEF obj_t BGl_makezd2datezd2zz__datez00(int BgL_sz00_2, int BgL_minz00_3, int BgL_hz00_4, int BgL_dz00_5, int BgL_monz00_6, int BgL_yz00_7, obj_t BgL_optz00_8)
{ AN_OBJECT;
{ /* ./Llib/date.scm 184 */
{ 
obj_t BgL_tza7za7_1480;obj_t BgL_tza7za7_1478;obj_t BgL_dstz00_1479;
if(
PAIRP(BgL_optz00_8))
{ /* ./Llib/date.scm 185 */
obj_t BgL_cdrzd2110zd2_1481;
BgL_cdrzd2110zd2_1481 = 
CDR(BgL_optz00_8); 
if(
PAIRP(BgL_cdrzd2110zd2_1481))
{ /* ./Llib/date.scm 185 */
bool_t BgL_testz00_1564;
{ /* ./Llib/date.scm 185 */
obj_t BgL_auxz00_1565;
BgL_auxz00_1565 = 
CDR(BgL_cdrzd2110zd2_1481); 
BgL_testz00_1564 = 
NULLP(BgL_auxz00_1565); } 
if(BgL_testz00_1564)
{ /* ./Llib/date.scm 185 */
BgL_tza7za7_1478 = 
CAR(BgL_optz00_8); 
BgL_dstz00_1479 = 
CAR(BgL_cdrzd2110zd2_1481); 
{ /* ./Llib/date.scm 185 */
int BgL_auxz00_1570;long BgL_auxz00_1568;
BgL_auxz00_1570 = 
CINT(BgL_dstz00_1479); 
BgL_auxz00_1568 = 
(long)CINT(BgL_tza7za7_1478); 
return 
bgl_make_date(BgL_sz00_2, BgL_minz00_3, BgL_hz00_4, BgL_dz00_5, BgL_monz00_6, BgL_yz00_7, BgL_auxz00_1568, BgL_auxz00_1570);} }  else 
{ /* ./Llib/date.scm 185 */
BgL_tagzd2103zd2_1477:
{ /* ./Llib/date.scm 185 */
int BgL_auxz00_1575;
BgL_auxz00_1575 = 
(int)(((long)-1)); 
return 
bgl_make_date(BgL_sz00_2, BgL_minz00_3, BgL_hz00_4, BgL_dz00_5, BgL_monz00_6, BgL_yz00_7, ((long)0), BgL_auxz00_1575);} } }  else 
{ /* ./Llib/date.scm 185 */
if(
NULLP(BgL_cdrzd2110zd2_1481))
{ /* ./Llib/date.scm 185 */
BgL_tza7za7_1480 = 
CAR(BgL_optz00_8); 
{ /* ./Llib/date.scm 185 */
int BgL_auxz00_1582;long BgL_auxz00_1580;
BgL_auxz00_1582 = 
(int)(((long)-1)); 
BgL_auxz00_1580 = 
(long)CINT(BgL_tza7za7_1480); 
return 
bgl_make_date(BgL_sz00_2, BgL_minz00_3, BgL_hz00_4, BgL_dz00_5, BgL_monz00_6, BgL_yz00_7, BgL_auxz00_1580, BgL_auxz00_1582);} }  else 
{ /* ./Llib/date.scm 185 */
goto BgL_tagzd2103zd2_1477;} } }  else 
{ /* ./Llib/date.scm 185 */
goto BgL_tagzd2103zd2_1477;} } } 
}



/* _make-date */
obj_t BGl__makezd2datezd2zz__datez00(obj_t BgL_envz00_1392, obj_t BgL_sz00_1393, obj_t BgL_minz00_1394, obj_t BgL_hz00_1395, obj_t BgL_dz00_1396, obj_t BgL_monz00_1397, obj_t BgL_yz00_1398, obj_t BgL_optz00_1399)
{ AN_OBJECT;
{ /* ./Llib/date.scm 184 */
{ /* ./Llib/date.scm 185 */
obj_t BgL_res2254z00_1496;
{ /* ./Llib/date.scm 185 */
int BgL_sz00_1482;int BgL_minz00_1483;int BgL_hz00_1484;int BgL_dz00_1485;int BgL_monz00_1486;int BgL_yz00_1487;
BgL_sz00_1482 = 
CINT(BgL_sz00_1393); 
BgL_minz00_1483 = 
CINT(BgL_minz00_1394); 
BgL_hz00_1484 = 
CINT(BgL_hz00_1395); 
BgL_dz00_1485 = 
CINT(BgL_dz00_1396); 
BgL_monz00_1486 = 
CINT(BgL_monz00_1397); 
BgL_yz00_1487 = 
CINT(BgL_yz00_1398); 
{ 
obj_t BgL_tza7za7_1494;obj_t BgL_tza7za7_1492;obj_t BgL_dstz00_1493;
if(
PAIRP(BgL_optz00_1399))
{ /* ./Llib/date.scm 185 */
obj_t BgL_cdrzd2110zd2_1495;
BgL_cdrzd2110zd2_1495 = 
CDR(BgL_optz00_1399); 
if(
PAIRP(BgL_cdrzd2110zd2_1495))
{ /* ./Llib/date.scm 185 */
bool_t BgL_testz00_1597;
{ /* ./Llib/date.scm 185 */
obj_t BgL_auxz00_1598;
BgL_auxz00_1598 = 
CDR(BgL_cdrzd2110zd2_1495); 
BgL_testz00_1597 = 
NULLP(BgL_auxz00_1598); } 
if(BgL_testz00_1597)
{ /* ./Llib/date.scm 185 */
BgL_tza7za7_1492 = 
CAR(BgL_optz00_1399); 
BgL_dstz00_1493 = 
CAR(BgL_cdrzd2110zd2_1495); 
{ /* ./Llib/date.scm 185 */
int BgL_auxz00_1603;long BgL_auxz00_1601;
BgL_auxz00_1603 = 
CINT(BgL_dstz00_1493); 
BgL_auxz00_1601 = 
(long)CINT(BgL_tza7za7_1492); 
BgL_res2254z00_1496 = 
bgl_make_date(BgL_sz00_1482, BgL_minz00_1483, BgL_hz00_1484, BgL_dz00_1485, BgL_monz00_1486, BgL_yz00_1487, BgL_auxz00_1601, BgL_auxz00_1603); } }  else 
{ /* ./Llib/date.scm 185 */
BgL_tagzd2103zd2_1491:
{ /* ./Llib/date.scm 185 */
int BgL_auxz00_1608;
BgL_auxz00_1608 = 
(int)(((long)-1)); 
BgL_res2254z00_1496 = 
bgl_make_date(BgL_sz00_1482, BgL_minz00_1483, BgL_hz00_1484, BgL_dz00_1485, BgL_monz00_1486, BgL_yz00_1487, ((long)0), BgL_auxz00_1608); } } }  else 
{ /* ./Llib/date.scm 185 */
if(
NULLP(BgL_cdrzd2110zd2_1495))
{ /* ./Llib/date.scm 185 */
BgL_tza7za7_1494 = 
CAR(BgL_optz00_1399); 
{ /* ./Llib/date.scm 185 */
int BgL_auxz00_1615;long BgL_auxz00_1613;
BgL_auxz00_1615 = 
(int)(((long)-1)); 
BgL_auxz00_1613 = 
(long)CINT(BgL_tza7za7_1494); 
BgL_res2254z00_1496 = 
bgl_make_date(BgL_sz00_1482, BgL_minz00_1483, BgL_hz00_1484, BgL_dz00_1485, BgL_monz00_1486, BgL_yz00_1487, BgL_auxz00_1613, BgL_auxz00_1615); } }  else 
{ /* ./Llib/date.scm 185 */
goto BgL_tagzd2103zd2_1491;} } }  else 
{ /* ./Llib/date.scm 185 */
goto BgL_tagzd2103zd2_1491;} } } 
return BgL_res2254z00_1496;} } 
}



/* date-copy */
BGL_EXPORTED_DEF obj_t BGl_datezd2copyzd2zz__datez00(obj_t BgL_datez00_9, obj_t BgL_objz00_10)
{ AN_OBJECT;
{ /* ./Llib/date.scm 196 */
{ 
obj_t BgL_sz00_423;obj_t BgL_sz00_420;obj_t BgL_mz00_421;
if(
PAIRP(BgL_objz00_10))
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2147zd2_428;
BgL_cdrzd2147zd2_428 = 
CDR(BgL_objz00_10); 
if(
PAIRP(BgL_cdrzd2147zd2_428))
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2154zd2_430;
BgL_cdrzd2154zd2_430 = 
CDR(BgL_cdrzd2147zd2_428); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_mz00_431;
BgL_mz00_431 = 
CAR(BgL_cdrzd2147zd2_428); 
if(
PAIRP(BgL_cdrzd2154zd2_430))
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2161zd2_433;
BgL_cdrzd2161zd2_433 = 
CDR(BgL_cdrzd2154zd2_430); 
if(
PAIRP(BgL_cdrzd2161zd2_433))
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2167zd2_435;
BgL_cdrzd2167zd2_435 = 
CDR(BgL_cdrzd2161zd2_433); 
if(
PAIRP(BgL_cdrzd2167zd2_435))
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2172zd2_437;
BgL_cdrzd2172zd2_437 = 
CDR(BgL_cdrzd2167zd2_435); 
{ /* ./Llib/date.scm 197 */
bool_t BgL_testz00_1635;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1636;
BgL_auxz00_1636 = 
CAR(BgL_cdrzd2167zd2_435); 
BgL_testz00_1635 = 
(BgL_mz00_431==BgL_auxz00_1636); } 
if(BgL_testz00_1635)
{ /* ./Llib/date.scm 197 */
if(
PAIRP(BgL_cdrzd2172zd2_437))
{ /* ./Llib/date.scm 197 */
bool_t BgL_testz00_1641;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1642;
BgL_auxz00_1642 = 
CDR(BgL_cdrzd2172zd2_437); 
BgL_testz00_1641 = 
NULLP(BgL_auxz00_1642); } 
if(BgL_testz00_1641)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1047z00_441;obj_t BgL_arg1048z00_442;obj_t BgL_arg1049z00_443;obj_t BgL_arg1050z00_444;
BgL_arg1047z00_441 = 
CAR(BgL_objz00_10); 
BgL_arg1048z00_442 = 
CAR(BgL_cdrzd2154zd2_430); 
BgL_arg1049z00_443 = 
CAR(BgL_cdrzd2161zd2_433); 
BgL_arg1050z00_444 = 
CAR(BgL_cdrzd2172zd2_437); 
{ /* ./Llib/date.scm 197 */
long BgL_arg1191z00_762;int BgL_arg1192z00_763;
BgL_arg1191z00_762 = 
BGL_DATE_TIMEZONE(BgL_datez00_9); 
BgL_arg1192z00_763 = 
BGL_DATE_ISDST(BgL_datez00_9); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_list1194z00_764;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1196z00_765;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1651;
BgL_auxz00_1651 = 
BINT(BgL_arg1192z00_763); 
BgL_arg1196z00_765 = 
MAKE_PAIR(BgL_auxz00_1651, BNIL); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1654;
BgL_auxz00_1654 = 
BINT(BgL_arg1191z00_762); 
BgL_list1194z00_764 = 
MAKE_PAIR(BgL_auxz00_1654, BgL_arg1196z00_765); } } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_res2031z00_802;
{ /* ./Llib/date.scm 197 */
int BgL_sz00_768;int BgL_minz00_769;int BgL_hz00_770;int BgL_dz00_771;int BgL_monz00_772;int BgL_yz00_773;
BgL_sz00_768 = 
CINT(BgL_arg1047z00_441); 
BgL_minz00_769 = 
CINT(BgL_mz00_431); 
BgL_hz00_770 = 
CINT(BgL_arg1048z00_442); 
BgL_dz00_771 = 
CINT(BgL_arg1049z00_443); 
BgL_monz00_772 = 
CINT(BgL_mz00_431); 
BgL_yz00_773 = 
CINT(BgL_arg1050z00_444); 
{ 
obj_t BgL_tza7za7_780;obj_t BgL_tza7za7_778;obj_t BgL_dstz00_779;
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2110zd2_783;
BgL_cdrzd2110zd2_783 = 
CDR(BgL_list1194z00_764); 
if(
PAIRP(BgL_cdrzd2110zd2_783))
{ /* ./Llib/date.scm 197 */
bool_t BgL_testz00_1666;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1667;
BgL_auxz00_1667 = 
CDR(BgL_cdrzd2110zd2_783); 
BgL_testz00_1666 = 
NULLP(BgL_auxz00_1667); } 
if(BgL_testz00_1666)
{ /* ./Llib/date.scm 197 */
BgL_tza7za7_778 = 
CAR(BgL_list1194z00_764); 
BgL_dstz00_779 = 
CAR(BgL_cdrzd2110zd2_783); 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_1672;long BgL_auxz00_1670;
BgL_auxz00_1672 = 
CINT(BgL_dstz00_779); 
BgL_auxz00_1670 = 
(long)CINT(BgL_tza7za7_778); 
BgL_res2031z00_802 = 
bgl_make_date(BgL_sz00_768, BgL_minz00_769, BgL_hz00_770, BgL_dz00_771, BgL_monz00_772, BgL_yz00_773, BgL_auxz00_1670, BgL_auxz00_1672); } }  else 
{ /* ./Llib/date.scm 197 */
BgL_tagzd2103zd2_777:
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_1677;
BgL_auxz00_1677 = 
(int)(((long)-1)); 
BgL_res2031z00_802 = 
bgl_make_date(BgL_sz00_768, BgL_minz00_769, BgL_hz00_770, BgL_dz00_771, BgL_monz00_772, BgL_yz00_773, ((long)0), BgL_auxz00_1677); } } }  else 
{ /* ./Llib/date.scm 197 */
if(
NULLP(BgL_cdrzd2110zd2_783))
{ /* ./Llib/date.scm 197 */
BgL_tza7za7_780 = 
CAR(BgL_list1194z00_764); 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_1684;long BgL_auxz00_1682;
BgL_auxz00_1684 = 
(int)(((long)-1)); 
BgL_auxz00_1682 = 
(long)CINT(BgL_tza7za7_780); 
BgL_res2031z00_802 = 
bgl_make_date(BgL_sz00_768, BgL_minz00_769, BgL_hz00_770, BgL_dz00_771, BgL_monz00_772, BgL_yz00_773, BgL_auxz00_1682, BgL_auxz00_1684); } }  else 
{ /* ./Llib/date.scm 197 */
goto BgL_tagzd2103zd2_777;} } } } } 
return BgL_res2031z00_802;} } } }  else 
{ /* ./Llib/date.scm 197 */
return BgL_datez00_9;} }  else 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2243zd2_447;
BgL_cdrzd2243zd2_447 = 
CDR(BgL_cdrzd2147zd2_428); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_mz00_448;
BgL_mz00_448 = 
CAR(BgL_cdrzd2147zd2_428); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2253zd2_449;
BgL_cdrzd2253zd2_449 = 
CDR(BgL_cdrzd2243zd2_447); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2261zd2_450;
BgL_cdrzd2261zd2_450 = 
CDR(BgL_cdrzd2253zd2_449); 
{ /* ./Llib/date.scm 197 */
bool_t BgL_testz00_1692;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1693;
BgL_auxz00_1693 = 
CAR(BgL_cdrzd2261zd2_450); 
BgL_testz00_1692 = 
(BgL_mz00_448==BgL_auxz00_1693); } 
if(BgL_testz00_1692)
{ /* ./Llib/date.scm 197 */
bool_t BgL_testz00_1696;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1697;
BgL_auxz00_1697 = 
CDR(BgL_cdrzd2261zd2_450); 
BgL_testz00_1696 = 
NULLP(BgL_auxz00_1697); } 
if(BgL_testz00_1696)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1064z00_453;obj_t BgL_arg1065z00_454;obj_t BgL_arg1066z00_455;
BgL_arg1064z00_453 = 
CAR(BgL_objz00_10); 
BgL_arg1065z00_454 = 
CAR(BgL_cdrzd2243zd2_447); 
BgL_arg1066z00_455 = 
CAR(BgL_cdrzd2253zd2_449); 
{ /* ./Llib/date.scm 197 */
int BgL_arg1202z00_818;long BgL_arg1203z00_819;int BgL_arg1204z00_820;
BgL_arg1202z00_818 = 
BGL_DATE_YEAR(BgL_datez00_9); 
BgL_arg1203z00_819 = 
BGL_DATE_TIMEZONE(BgL_datez00_9); 
BgL_arg1204z00_820 = 
BGL_DATE_ISDST(BgL_datez00_9); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_list1206z00_821;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1208z00_822;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1706;
BgL_auxz00_1706 = 
BINT(BgL_arg1204z00_820); 
BgL_arg1208z00_822 = 
MAKE_PAIR(BgL_auxz00_1706, BNIL); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1709;
BgL_auxz00_1709 = 
BINT(BgL_arg1203z00_819); 
BgL_list1206z00_821 = 
MAKE_PAIR(BgL_auxz00_1709, BgL_arg1208z00_822); } } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_res2032z00_860;
{ /* ./Llib/date.scm 197 */
int BgL_sz00_826;int BgL_minz00_827;int BgL_hz00_828;int BgL_dz00_829;int BgL_monz00_830;
BgL_sz00_826 = 
CINT(BgL_arg1064z00_453); 
BgL_minz00_827 = 
CINT(BgL_mz00_448); 
BgL_hz00_828 = 
CINT(BgL_arg1065z00_454); 
BgL_dz00_829 = 
CINT(BgL_arg1066z00_455); 
BgL_monz00_830 = 
CINT(BgL_mz00_448); 
{ 
obj_t BgL_tza7za7_838;obj_t BgL_tza7za7_836;obj_t BgL_dstz00_837;
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2110zd2_841;
BgL_cdrzd2110zd2_841 = 
CDR(BgL_list1206z00_821); 
if(
PAIRP(BgL_cdrzd2110zd2_841))
{ /* ./Llib/date.scm 197 */
bool_t BgL_testz00_1720;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1721;
BgL_auxz00_1721 = 
CDR(BgL_cdrzd2110zd2_841); 
BgL_testz00_1720 = 
NULLP(BgL_auxz00_1721); } 
if(BgL_testz00_1720)
{ /* ./Llib/date.scm 197 */
BgL_tza7za7_836 = 
CAR(BgL_list1206z00_821); 
BgL_dstz00_837 = 
CAR(BgL_cdrzd2110zd2_841); 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_1726;long BgL_auxz00_1724;
BgL_auxz00_1726 = 
CINT(BgL_dstz00_837); 
BgL_auxz00_1724 = 
(long)CINT(BgL_tza7za7_836); 
BgL_res2032z00_860 = 
bgl_make_date(BgL_sz00_826, BgL_minz00_827, BgL_hz00_828, BgL_dz00_829, BgL_monz00_830, BgL_arg1202z00_818, BgL_auxz00_1724, BgL_auxz00_1726); } }  else 
{ /* ./Llib/date.scm 197 */
BgL_tagzd2103zd2_835:
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_1731;
BgL_auxz00_1731 = 
(int)(((long)-1)); 
BgL_res2032z00_860 = 
bgl_make_date(BgL_sz00_826, BgL_minz00_827, BgL_hz00_828, BgL_dz00_829, BgL_monz00_830, BgL_arg1202z00_818, ((long)0), BgL_auxz00_1731); } } }  else 
{ /* ./Llib/date.scm 197 */
if(
NULLP(BgL_cdrzd2110zd2_841))
{ /* ./Llib/date.scm 197 */
BgL_tza7za7_838 = 
CAR(BgL_list1206z00_821); 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_1738;long BgL_auxz00_1736;
BgL_auxz00_1738 = 
(int)(((long)-1)); 
BgL_auxz00_1736 = 
(long)CINT(BgL_tza7za7_838); 
BgL_res2032z00_860 = 
bgl_make_date(BgL_sz00_826, BgL_minz00_827, BgL_hz00_828, BgL_dz00_829, BgL_monz00_830, BgL_arg1202z00_818, BgL_auxz00_1736, BgL_auxz00_1738); } }  else 
{ /* ./Llib/date.scm 197 */
goto BgL_tagzd2103zd2_835;} } } } } 
return BgL_res2032z00_860;} } } }  else 
{ /* ./Llib/date.scm 197 */
return BgL_datez00_9;} }  else 
{ /* ./Llib/date.scm 197 */
return BgL_datez00_9;} } } } } } }  else 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2355zd2_459;
BgL_cdrzd2355zd2_459 = 
CDR(BgL_cdrzd2147zd2_428); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_mz00_460;
BgL_mz00_460 = 
CAR(BgL_cdrzd2147zd2_428); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2364zd2_461;
BgL_cdrzd2364zd2_461 = 
CDR(BgL_cdrzd2355zd2_459); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2371zd2_462;
BgL_cdrzd2371zd2_462 = 
CDR(BgL_cdrzd2364zd2_461); 
{ /* ./Llib/date.scm 197 */
bool_t BgL_testz00_1746;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1747;
BgL_auxz00_1747 = 
CAR(BgL_cdrzd2371zd2_462); 
BgL_testz00_1746 = 
(BgL_mz00_460==BgL_auxz00_1747); } 
if(BgL_testz00_1746)
{ /* ./Llib/date.scm 197 */
bool_t BgL_testz00_1750;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1751;
BgL_auxz00_1751 = 
CDR(BgL_cdrzd2371zd2_462); 
BgL_testz00_1750 = 
NULLP(BgL_auxz00_1751); } 
if(BgL_testz00_1750)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1091z00_465;obj_t BgL_arg1092z00_466;obj_t BgL_arg1093z00_467;
BgL_arg1091z00_465 = 
CAR(BgL_objz00_10); 
BgL_arg1092z00_466 = 
CAR(BgL_cdrzd2355zd2_459); 
BgL_arg1093z00_467 = 
CAR(BgL_cdrzd2364zd2_461); 
{ /* ./Llib/date.scm 197 */
int BgL_arg1202z00_876;long BgL_arg1203z00_877;int BgL_arg1204z00_878;
BgL_arg1202z00_876 = 
BGL_DATE_YEAR(BgL_datez00_9); 
BgL_arg1203z00_877 = 
BGL_DATE_TIMEZONE(BgL_datez00_9); 
BgL_arg1204z00_878 = 
BGL_DATE_ISDST(BgL_datez00_9); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_list1206z00_879;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1208z00_880;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1760;
BgL_auxz00_1760 = 
BINT(BgL_arg1204z00_878); 
BgL_arg1208z00_880 = 
MAKE_PAIR(BgL_auxz00_1760, BNIL); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1763;
BgL_auxz00_1763 = 
BINT(BgL_arg1203z00_877); 
BgL_list1206z00_879 = 
MAKE_PAIR(BgL_auxz00_1763, BgL_arg1208z00_880); } } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_res2033z00_918;
{ /* ./Llib/date.scm 197 */
int BgL_sz00_884;int BgL_minz00_885;int BgL_hz00_886;int BgL_dz00_887;int BgL_monz00_888;
BgL_sz00_884 = 
CINT(BgL_arg1091z00_465); 
BgL_minz00_885 = 
CINT(BgL_mz00_460); 
BgL_hz00_886 = 
CINT(BgL_arg1092z00_466); 
BgL_dz00_887 = 
CINT(BgL_arg1093z00_467); 
BgL_monz00_888 = 
CINT(BgL_mz00_460); 
{ 
obj_t BgL_tza7za7_896;obj_t BgL_tza7za7_894;obj_t BgL_dstz00_895;
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2110zd2_899;
BgL_cdrzd2110zd2_899 = 
CDR(BgL_list1206z00_879); 
if(
PAIRP(BgL_cdrzd2110zd2_899))
{ /* ./Llib/date.scm 197 */
bool_t BgL_testz00_1774;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1775;
BgL_auxz00_1775 = 
CDR(BgL_cdrzd2110zd2_899); 
BgL_testz00_1774 = 
NULLP(BgL_auxz00_1775); } 
if(BgL_testz00_1774)
{ /* ./Llib/date.scm 197 */
BgL_tza7za7_894 = 
CAR(BgL_list1206z00_879); 
BgL_dstz00_895 = 
CAR(BgL_cdrzd2110zd2_899); 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_1780;long BgL_auxz00_1778;
BgL_auxz00_1780 = 
CINT(BgL_dstz00_895); 
BgL_auxz00_1778 = 
(long)CINT(BgL_tza7za7_894); 
BgL_res2033z00_918 = 
bgl_make_date(BgL_sz00_884, BgL_minz00_885, BgL_hz00_886, BgL_dz00_887, BgL_monz00_888, BgL_arg1202z00_876, BgL_auxz00_1778, BgL_auxz00_1780); } }  else 
{ /* ./Llib/date.scm 197 */
BgL_tagzd2103zd2_893:
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_1785;
BgL_auxz00_1785 = 
(int)(((long)-1)); 
BgL_res2033z00_918 = 
bgl_make_date(BgL_sz00_884, BgL_minz00_885, BgL_hz00_886, BgL_dz00_887, BgL_monz00_888, BgL_arg1202z00_876, ((long)0), BgL_auxz00_1785); } } }  else 
{ /* ./Llib/date.scm 197 */
if(
NULLP(BgL_cdrzd2110zd2_899))
{ /* ./Llib/date.scm 197 */
BgL_tza7za7_896 = 
CAR(BgL_list1206z00_879); 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_1792;long BgL_auxz00_1790;
BgL_auxz00_1792 = 
(int)(((long)-1)); 
BgL_auxz00_1790 = 
(long)CINT(BgL_tza7za7_896); 
BgL_res2033z00_918 = 
bgl_make_date(BgL_sz00_884, BgL_minz00_885, BgL_hz00_886, BgL_dz00_887, BgL_monz00_888, BgL_arg1202z00_876, BgL_auxz00_1790, BgL_auxz00_1792); } }  else 
{ /* ./Llib/date.scm 197 */
goto BgL_tagzd2103zd2_893;} } } } } 
return BgL_res2033z00_918;} } } }  else 
{ /* ./Llib/date.scm 197 */
return BgL_datez00_9;} }  else 
{ /* ./Llib/date.scm 197 */
return BgL_datez00_9;} } } } } } } }  else 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2473zd2_472;
BgL_cdrzd2473zd2_472 = 
CDR(BgL_cdrzd2147zd2_428); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2481zd2_473;
BgL_cdrzd2481zd2_473 = 
CDR(BgL_cdrzd2473zd2_472); 
{ /* ./Llib/date.scm 197 */
bool_t BgL_testz00_1798;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1799;
BgL_auxz00_1799 = 
CDR(BgL_cdrzd2481zd2_473); 
BgL_testz00_1798 = 
NULLP(BgL_auxz00_1799); } 
if(BgL_testz00_1798)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1120z00_475;obj_t BgL_arg1121z00_476;obj_t BgL_arg1122z00_477;obj_t BgL_arg1123z00_478;
BgL_arg1120z00_475 = 
CAR(BgL_objz00_10); 
BgL_arg1121z00_476 = 
CAR(BgL_cdrzd2147zd2_428); 
BgL_arg1122z00_477 = 
CAR(BgL_cdrzd2473zd2_472); 
BgL_arg1123z00_478 = 
CAR(BgL_cdrzd2481zd2_473); 
{ /* ./Llib/date.scm 197 */
int BgL_arg1215z00_932;int BgL_arg1216z00_933;long BgL_arg1217z00_934;int BgL_arg1218z00_935;
BgL_arg1215z00_932 = 
BGL_DATE_MONTH(BgL_datez00_9); 
BgL_arg1216z00_933 = 
BGL_DATE_YEAR(BgL_datez00_9); 
BgL_arg1217z00_934 = 
BGL_DATE_TIMEZONE(BgL_datez00_9); 
BgL_arg1218z00_935 = 
BGL_DATE_ISDST(BgL_datez00_9); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_list1220z00_936;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1222z00_937;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1810;
BgL_auxz00_1810 = 
BINT(BgL_arg1218z00_935); 
BgL_arg1222z00_937 = 
MAKE_PAIR(BgL_auxz00_1810, BNIL); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1813;
BgL_auxz00_1813 = 
BINT(BgL_arg1217z00_934); 
BgL_list1220z00_936 = 
MAKE_PAIR(BgL_auxz00_1813, BgL_arg1222z00_937); } } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_res2034z00_976;
{ /* ./Llib/date.scm 197 */
int BgL_sz00_942;int BgL_minz00_943;int BgL_hz00_944;int BgL_dz00_945;
BgL_sz00_942 = 
CINT(BgL_arg1120z00_475); 
BgL_minz00_943 = 
CINT(BgL_arg1121z00_476); 
BgL_hz00_944 = 
CINT(BgL_arg1122z00_477); 
BgL_dz00_945 = 
CINT(BgL_arg1123z00_478); 
{ 
obj_t BgL_tza7za7_954;obj_t BgL_tza7za7_952;obj_t BgL_dstz00_953;
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2110zd2_957;
BgL_cdrzd2110zd2_957 = 
CDR(BgL_list1220z00_936); 
if(
PAIRP(BgL_cdrzd2110zd2_957))
{ /* ./Llib/date.scm 197 */
bool_t BgL_testz00_1823;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1824;
BgL_auxz00_1824 = 
CDR(BgL_cdrzd2110zd2_957); 
BgL_testz00_1823 = 
NULLP(BgL_auxz00_1824); } 
if(BgL_testz00_1823)
{ /* ./Llib/date.scm 197 */
BgL_tza7za7_952 = 
CAR(BgL_list1220z00_936); 
BgL_dstz00_953 = 
CAR(BgL_cdrzd2110zd2_957); 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_1829;long BgL_auxz00_1827;
BgL_auxz00_1829 = 
CINT(BgL_dstz00_953); 
BgL_auxz00_1827 = 
(long)CINT(BgL_tza7za7_952); 
BgL_res2034z00_976 = 
bgl_make_date(BgL_sz00_942, BgL_minz00_943, BgL_hz00_944, BgL_dz00_945, BgL_arg1215z00_932, BgL_arg1216z00_933, BgL_auxz00_1827, BgL_auxz00_1829); } }  else 
{ /* ./Llib/date.scm 197 */
BgL_tagzd2103zd2_951:
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_1834;
BgL_auxz00_1834 = 
(int)(((long)-1)); 
BgL_res2034z00_976 = 
bgl_make_date(BgL_sz00_942, BgL_minz00_943, BgL_hz00_944, BgL_dz00_945, BgL_arg1215z00_932, BgL_arg1216z00_933, ((long)0), BgL_auxz00_1834); } } }  else 
{ /* ./Llib/date.scm 197 */
if(
NULLP(BgL_cdrzd2110zd2_957))
{ /* ./Llib/date.scm 197 */
BgL_tza7za7_954 = 
CAR(BgL_list1220z00_936); 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_1841;long BgL_auxz00_1839;
BgL_auxz00_1841 = 
(int)(((long)-1)); 
BgL_auxz00_1839 = 
(long)CINT(BgL_tza7za7_954); 
BgL_res2034z00_976 = 
bgl_make_date(BgL_sz00_942, BgL_minz00_943, BgL_hz00_944, BgL_dz00_945, BgL_arg1215z00_932, BgL_arg1216z00_933, BgL_auxz00_1839, BgL_auxz00_1841); } }  else 
{ /* ./Llib/date.scm 197 */
goto BgL_tagzd2103zd2_951;} } } } } 
return BgL_res2034z00_976;} } } }  else 
{ /* ./Llib/date.scm 197 */
return BgL_datez00_9;} } } } }  else 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2548zd2_481;
BgL_cdrzd2548zd2_481 = 
CDR(BgL_cdrzd2147zd2_428); 
{ /* ./Llib/date.scm 197 */
bool_t BgL_testz00_1846;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1847;
BgL_auxz00_1847 = 
CDR(BgL_cdrzd2548zd2_481); 
BgL_testz00_1846 = 
NULLP(BgL_auxz00_1847); } 
if(BgL_testz00_1846)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1141z00_483;obj_t BgL_arg1142z00_484;obj_t BgL_arg1144z00_485;
BgL_arg1141z00_483 = 
CAR(BgL_objz00_10); 
BgL_arg1142z00_484 = 
CAR(BgL_cdrzd2147zd2_428); 
BgL_arg1144z00_485 = 
CAR(BgL_cdrzd2548zd2_481); 
{ /* ./Llib/date.scm 197 */
int BgL_arg1230z00_987;int BgL_arg1231z00_988;int BgL_arg1233z00_989;long BgL_arg1234z00_990;int BgL_arg1235z00_991;
BgL_arg1230z00_987 = 
BGL_DATE_DAY(BgL_datez00_9); 
BgL_arg1231z00_988 = 
BGL_DATE_MONTH(BgL_datez00_9); 
BgL_arg1233z00_989 = 
BGL_DATE_YEAR(BgL_datez00_9); 
BgL_arg1234z00_990 = 
BGL_DATE_TIMEZONE(BgL_datez00_9); 
BgL_arg1235z00_991 = 
BGL_DATE_ISDST(BgL_datez00_9); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_list1237z00_992;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1240z00_993;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1858;
BgL_auxz00_1858 = 
BINT(BgL_arg1235z00_991); 
BgL_arg1240z00_993 = 
MAKE_PAIR(BgL_auxz00_1858, BNIL); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1861;
BgL_auxz00_1861 = 
BINT(BgL_arg1234z00_990); 
BgL_list1237z00_992 = 
MAKE_PAIR(BgL_auxz00_1861, BgL_arg1240z00_993); } } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_res2035z00_1033;
{ /* ./Llib/date.scm 197 */
int BgL_sz00_999;int BgL_minz00_1000;int BgL_hz00_1001;
BgL_sz00_999 = 
CINT(BgL_arg1141z00_483); 
BgL_minz00_1000 = 
CINT(BgL_arg1142z00_484); 
BgL_hz00_1001 = 
CINT(BgL_arg1144z00_485); 
{ 
obj_t BgL_tza7za7_1011;obj_t BgL_tza7za7_1009;obj_t BgL_dstz00_1010;
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2110zd2_1014;
BgL_cdrzd2110zd2_1014 = 
CDR(BgL_list1237z00_992); 
if(
PAIRP(BgL_cdrzd2110zd2_1014))
{ /* ./Llib/date.scm 197 */
bool_t BgL_testz00_1870;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1871;
BgL_auxz00_1871 = 
CDR(BgL_cdrzd2110zd2_1014); 
BgL_testz00_1870 = 
NULLP(BgL_auxz00_1871); } 
if(BgL_testz00_1870)
{ /* ./Llib/date.scm 197 */
BgL_tza7za7_1009 = 
CAR(BgL_list1237z00_992); 
BgL_dstz00_1010 = 
CAR(BgL_cdrzd2110zd2_1014); 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_1876;long BgL_auxz00_1874;
BgL_auxz00_1876 = 
CINT(BgL_dstz00_1010); 
BgL_auxz00_1874 = 
(long)CINT(BgL_tza7za7_1009); 
BgL_res2035z00_1033 = 
bgl_make_date(BgL_sz00_999, BgL_minz00_1000, BgL_hz00_1001, BgL_arg1230z00_987, BgL_arg1231z00_988, BgL_arg1233z00_989, BgL_auxz00_1874, BgL_auxz00_1876); } }  else 
{ /* ./Llib/date.scm 197 */
BgL_tagzd2103zd2_1008:
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_1881;
BgL_auxz00_1881 = 
(int)(((long)-1)); 
BgL_res2035z00_1033 = 
bgl_make_date(BgL_sz00_999, BgL_minz00_1000, BgL_hz00_1001, BgL_arg1230z00_987, BgL_arg1231z00_988, BgL_arg1233z00_989, ((long)0), BgL_auxz00_1881); } } }  else 
{ /* ./Llib/date.scm 197 */
if(
NULLP(BgL_cdrzd2110zd2_1014))
{ /* ./Llib/date.scm 197 */
BgL_tza7za7_1011 = 
CAR(BgL_list1237z00_992); 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_1888;long BgL_auxz00_1886;
BgL_auxz00_1888 = 
(int)(((long)-1)); 
BgL_auxz00_1886 = 
(long)CINT(BgL_tza7za7_1011); 
BgL_res2035z00_1033 = 
bgl_make_date(BgL_sz00_999, BgL_minz00_1000, BgL_hz00_1001, BgL_arg1230z00_987, BgL_arg1231z00_988, BgL_arg1233z00_989, BgL_auxz00_1886, BgL_auxz00_1888); } }  else 
{ /* ./Llib/date.scm 197 */
goto BgL_tagzd2103zd2_1008;} } } } } 
return BgL_res2035z00_1033;} } } }  else 
{ /* ./Llib/date.scm 197 */
return BgL_datez00_9;} } } }  else 
{ /* ./Llib/date.scm 197 */
bool_t BgL_testz00_1892;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_1893;
BgL_auxz00_1893 = 
CDR(BgL_cdrzd2147zd2_428); 
BgL_testz00_1892 = 
NULLP(BgL_auxz00_1893); } 
if(BgL_testz00_1892)
{ /* ./Llib/date.scm 197 */
BgL_sz00_420 = 
CAR(BgL_objz00_10); 
BgL_mz00_421 = 
CAR(BgL_cdrzd2147zd2_428); 
{ /* ./Llib/date.scm 222 */
int BgL_arg1249z00_517;int BgL_arg1250z00_518;int BgL_arg1251z00_519;int BgL_arg1252z00_520;long BgL_arg1254z00_521;int BgL_arg1255z00_522;
BgL_arg1249z00_517 = 
BGL_DATE_HOUR(BgL_datez00_9); 
BgL_arg1250z00_518 = 
BGL_DATE_DAY(BgL_datez00_9); 
BgL_arg1251z00_519 = 
BGL_DATE_MONTH(BgL_datez00_9); 
BgL_arg1252z00_520 = 
BGL_DATE_YEAR(BgL_datez00_9); 
BgL_arg1254z00_521 = 
BGL_DATE_TIMEZONE(BgL_datez00_9); 
BgL_arg1255z00_522 = 
BGL_DATE_ISDST(BgL_datez00_9); 
{ /* ./Llib/date.scm 221 */
obj_t BgL_list1257z00_523;
{ /* ./Llib/date.scm 221 */
obj_t BgL_arg1259z00_524;
{ /* ./Llib/date.scm 221 */
obj_t BgL_auxz00_1902;
BgL_auxz00_1902 = 
BINT(BgL_arg1255z00_522); 
BgL_arg1259z00_524 = 
MAKE_PAIR(BgL_auxz00_1902, BNIL); } 
{ /* ./Llib/date.scm 221 */
obj_t BgL_auxz00_1905;
BgL_auxz00_1905 = 
BINT(BgL_arg1254z00_521); 
BgL_list1257z00_523 = 
MAKE_PAIR(BgL_auxz00_1905, BgL_arg1259z00_524); } } 
{ /* ./Llib/date.scm 221 */
obj_t BgL_res2040z00_1268;
{ /* ./Llib/date.scm 221 */
int BgL_sz00_1232;int BgL_minz00_1233;
BgL_sz00_1232 = 
CINT(BgL_sz00_420); 
BgL_minz00_1233 = 
CINT(BgL_mz00_421); 
{ 
obj_t BgL_tza7za7_1244;
{ /* ./Llib/date.scm 221 */
obj_t BgL_cdrzd2110zd2_1247;
BgL_cdrzd2110zd2_1247 = 
CDR(BgL_list1257z00_523); 
if(
PAIRP(BgL_cdrzd2110zd2_1247))
{ /* ./Llib/date.scm 221 */
bool_t BgL_testz00_1913;
{ /* ./Llib/date.scm 221 */
obj_t BgL_auxz00_1914;
BgL_auxz00_1914 = 
CDR(BgL_cdrzd2110zd2_1247); 
BgL_testz00_1913 = 
NULLP(BgL_auxz00_1914); } 
if(BgL_testz00_1913)
{ /* ./Llib/date.scm 221 */
obj_t BgL_arg1011z00_1251;obj_t BgL_arg1012z00_1252;
BgL_arg1011z00_1251 = 
CAR(BgL_list1257z00_523); 
BgL_arg1012z00_1252 = 
CAR(BgL_cdrzd2110zd2_1247); 
{ /* ./Llib/date.scm 221 */
int BgL_auxz00_1921;long BgL_auxz00_1919;
BgL_auxz00_1921 = 
CINT(BgL_arg1012z00_1252); 
BgL_auxz00_1919 = 
(long)CINT(BgL_arg1011z00_1251); 
BgL_res2040z00_1268 = 
bgl_make_date(BgL_sz00_1232, BgL_minz00_1233, BgL_arg1249z00_517, BgL_arg1250z00_518, BgL_arg1251z00_519, BgL_arg1252z00_520, BgL_auxz00_1919, BgL_auxz00_1921); } }  else 
{ /* ./Llib/date.scm 221 */
BgL_tagzd2103zd2_1241:
{ /* ./Llib/date.scm 221 */
int BgL_auxz00_1924;
BgL_auxz00_1924 = 
(int)(((long)-1)); 
BgL_res2040z00_1268 = 
bgl_make_date(BgL_sz00_1232, BgL_minz00_1233, BgL_arg1249z00_517, BgL_arg1250z00_518, BgL_arg1251z00_519, BgL_arg1252z00_520, ((long)0), BgL_auxz00_1924); } } }  else 
{ /* ./Llib/date.scm 221 */
if(
NULLP(BgL_cdrzd2110zd2_1247))
{ /* ./Llib/date.scm 221 */
BgL_tza7za7_1244 = 
CAR(BgL_list1257z00_523); 
{ /* ./Llib/date.scm 221 */
int BgL_auxz00_1931;long BgL_auxz00_1929;
BgL_auxz00_1931 = 
(int)(((long)-1)); 
BgL_auxz00_1929 = 
(long)CINT(BgL_tza7za7_1244); 
BgL_res2040z00_1268 = 
bgl_make_date(BgL_sz00_1232, BgL_minz00_1233, BgL_arg1249z00_517, BgL_arg1250z00_518, BgL_arg1251z00_519, BgL_arg1252z00_520, BgL_auxz00_1929, BgL_auxz00_1931); } }  else 
{ /* ./Llib/date.scm 221 */
goto BgL_tagzd2103zd2_1241;} } } } } 
return BgL_res2040z00_1268;} } } }  else 
{ /* ./Llib/date.scm 197 */
return BgL_datez00_9;} } } }  else 
{ /* ./Llib/date.scm 197 */
if(
NULLP(BgL_cdrzd2147zd2_428))
{ /* ./Llib/date.scm 197 */
BgL_sz00_423 = 
CAR(BgL_objz00_10); 
{ /* ./Llib/date.scm 230 */
int BgL_arg1269z00_525;int BgL_arg1270z00_526;int BgL_arg1273z00_527;int BgL_arg1274z00_528;int BgL_arg1275z00_529;long BgL_arg1276z00_530;int BgL_arg1277z00_531;
BgL_arg1269z00_525 = 
BGL_DATE_MINUTE(BgL_datez00_9); 
BgL_arg1270z00_526 = 
BGL_DATE_HOUR(BgL_datez00_9); 
BgL_arg1273z00_527 = 
BGL_DATE_DAY(BgL_datez00_9); 
BgL_arg1274z00_528 = 
BGL_DATE_MONTH(BgL_datez00_9); 
BgL_arg1275z00_529 = 
BGL_DATE_YEAR(BgL_datez00_9); 
BgL_arg1276z00_530 = 
BGL_DATE_TIMEZONE(BgL_datez00_9); 
BgL_arg1277z00_531 = 
BGL_DATE_ISDST(BgL_datez00_9); 
{ /* ./Llib/date.scm 229 */
obj_t BgL_list1279z00_532;
{ /* ./Llib/date.scm 229 */
obj_t BgL_arg1281z00_533;
{ /* ./Llib/date.scm 229 */
obj_t BgL_auxz00_1946;
BgL_auxz00_1946 = 
BINT(BgL_arg1277z00_531); 
BgL_arg1281z00_533 = 
MAKE_PAIR(BgL_auxz00_1946, BNIL); } 
{ /* ./Llib/date.scm 229 */
obj_t BgL_auxz00_1949;
BgL_auxz00_1949 = 
BINT(BgL_arg1276z00_530); 
BgL_list1279z00_532 = 
MAKE_PAIR(BgL_auxz00_1949, BgL_arg1281z00_533); } } 
{ /* ./Llib/date.scm 229 */
obj_t BgL_res2041z00_1312;
{ /* ./Llib/date.scm 229 */
int BgL_sz00_1276;
BgL_sz00_1276 = 
CINT(BgL_sz00_423); 
{ 
obj_t BgL_tza7za7_1288;
{ /* ./Llib/date.scm 229 */
obj_t BgL_cdrzd2110zd2_1291;
BgL_cdrzd2110zd2_1291 = 
CDR(BgL_list1279z00_532); 
if(
PAIRP(BgL_cdrzd2110zd2_1291))
{ /* ./Llib/date.scm 229 */
bool_t BgL_testz00_1956;
{ /* ./Llib/date.scm 229 */
obj_t BgL_auxz00_1957;
BgL_auxz00_1957 = 
CDR(BgL_cdrzd2110zd2_1291); 
BgL_testz00_1956 = 
NULLP(BgL_auxz00_1957); } 
if(BgL_testz00_1956)
{ /* ./Llib/date.scm 229 */
obj_t BgL_arg1011z00_1295;obj_t BgL_arg1012z00_1296;
BgL_arg1011z00_1295 = 
CAR(BgL_list1279z00_532); 
BgL_arg1012z00_1296 = 
CAR(BgL_cdrzd2110zd2_1291); 
{ /* ./Llib/date.scm 229 */
int BgL_auxz00_1964;long BgL_auxz00_1962;
BgL_auxz00_1964 = 
CINT(BgL_arg1012z00_1296); 
BgL_auxz00_1962 = 
(long)CINT(BgL_arg1011z00_1295); 
BgL_res2041z00_1312 = 
bgl_make_date(BgL_sz00_1276, BgL_arg1269z00_525, BgL_arg1270z00_526, BgL_arg1273z00_527, BgL_arg1274z00_528, BgL_arg1275z00_529, BgL_auxz00_1962, BgL_auxz00_1964); } }  else 
{ /* ./Llib/date.scm 229 */
BgL_tagzd2103zd2_1285:
{ /* ./Llib/date.scm 229 */
int BgL_auxz00_1967;
BgL_auxz00_1967 = 
(int)(((long)-1)); 
BgL_res2041z00_1312 = 
bgl_make_date(BgL_sz00_1276, BgL_arg1269z00_525, BgL_arg1270z00_526, BgL_arg1273z00_527, BgL_arg1274z00_528, BgL_arg1275z00_529, ((long)0), BgL_auxz00_1967); } } }  else 
{ /* ./Llib/date.scm 229 */
if(
NULLP(BgL_cdrzd2110zd2_1291))
{ /* ./Llib/date.scm 229 */
BgL_tza7za7_1288 = 
CAR(BgL_list1279z00_532); 
{ /* ./Llib/date.scm 229 */
int BgL_auxz00_1974;long BgL_auxz00_1972;
BgL_auxz00_1974 = 
(int)(((long)-1)); 
BgL_auxz00_1972 = 
(long)CINT(BgL_tza7za7_1288); 
BgL_res2041z00_1312 = 
bgl_make_date(BgL_sz00_1276, BgL_arg1269z00_525, BgL_arg1270z00_526, BgL_arg1273z00_527, BgL_arg1274z00_528, BgL_arg1275z00_529, BgL_auxz00_1972, BgL_auxz00_1974); } }  else 
{ /* ./Llib/date.scm 229 */
goto BgL_tagzd2103zd2_1285;} } } } } 
return BgL_res2041z00_1312;} } } }  else 
{ /* ./Llib/date.scm 197 */
return BgL_datez00_9;} } }  else 
{ /* ./Llib/date.scm 197 */
return BgL_datez00_9;} } } 
}



/* _date-copy2044 */
obj_t BGl__datezd2copy2044zd2zz__datez00(obj_t BgL_envz00_1400, obj_t BgL_datez00_1401, obj_t BgL_objz00_1402)
{ AN_OBJECT;
{ /* ./Llib/date.scm 196 */
return 
BGl_datezd2copyzd2zz__datez00(BgL_datez00_1401, BgL_objz00_1402);} 
}



/* =second */
BGL_EXPORTED_DEF bool_t BGl_zd3secondzd3zz__datez00(long BgL_s1z00_11, long BgL_s2z00_12)
{ AN_OBJECT;
{ /* ./Llib/date.scm 243 */
return 
(BgL_s1z00_11==BgL_s2z00_12);} 
}



/* _=second2046 */
obj_t BGl__zd3second2046zd3zz__datez00(obj_t BgL_envz00_1403, obj_t BgL_s1z00_1404, obj_t BgL_s2z00_1405)
{ AN_OBJECT;
{ /* ./Llib/date.scm 243 */
{ /* ./Llib/date.scm 244 */
bool_t BgL_auxz00_1981;
{ /* ./Llib/date.scm 244 */
long BgL_s1z00_1497;long BgL_s2z00_1498;
BgL_s1z00_1497 = 
BELONG_TO_LONG(BgL_s1z00_1404); 
BgL_s2z00_1498 = 
BELONG_TO_LONG(BgL_s2z00_1405); 
BgL_auxz00_1981 = 
(BgL_s1z00_1497==BgL_s2z00_1498); } 
return 
BBOOL(BgL_auxz00_1981);} } 
}



/* <second */
BGL_EXPORTED_DEF bool_t BGl_zc3secondzc3zz__datez00(long BgL_s1z00_13, long BgL_s2z00_14)
{ AN_OBJECT;
{ /* ./Llib/date.scm 249 */
return 
(BgL_s1z00_13<BgL_s2z00_14);} 
}



/* _<second2048 */
obj_t BGl__zc3second2048zc3zz__datez00(obj_t BgL_envz00_1406, obj_t BgL_s1z00_1407, obj_t BgL_s2z00_1408)
{ AN_OBJECT;
{ /* ./Llib/date.scm 249 */
{ /* ./Llib/date.scm 250 */
bool_t BgL_auxz00_1987;
{ /* ./Llib/date.scm 250 */
long BgL_s1z00_1499;long BgL_s2z00_1500;
BgL_s1z00_1499 = 
BELONG_TO_LONG(BgL_s1z00_1407); 
BgL_s2z00_1500 = 
BELONG_TO_LONG(BgL_s2z00_1408); 
BgL_auxz00_1987 = 
(BgL_s1z00_1499<BgL_s2z00_1500); } 
return 
BBOOL(BgL_auxz00_1987);} } 
}



/* >second */
BGL_EXPORTED_DEF bool_t BGl_ze3secondze3zz__datez00(long BgL_s1z00_15, long BgL_s2z00_16)
{ AN_OBJECT;
{ /* ./Llib/date.scm 255 */
return 
(BgL_s1z00_15>BgL_s2z00_16);} 
}



/* _>second2050 */
obj_t BGl__ze3second2050ze3zz__datez00(obj_t BgL_envz00_1409, obj_t BgL_s1z00_1410, obj_t BgL_s2z00_1411)
{ AN_OBJECT;
{ /* ./Llib/date.scm 255 */
{ /* ./Llib/date.scm 256 */
bool_t BgL_auxz00_1993;
{ /* ./Llib/date.scm 256 */
long BgL_s1z00_1501;long BgL_s2z00_1502;
BgL_s1z00_1501 = 
BELONG_TO_LONG(BgL_s1z00_1410); 
BgL_s2z00_1502 = 
BELONG_TO_LONG(BgL_s2z00_1411); 
BgL_auxz00_1993 = 
(BgL_s1z00_1501>BgL_s2z00_1502); } 
return 
BBOOL(BgL_auxz00_1993);} } 
}



/* <=second */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3secondz10zz__datez00(long BgL_s1z00_17, long BgL_s2z00_18)
{ AN_OBJECT;
{ /* ./Llib/date.scm 261 */
return 
(BgL_s1z00_17<=BgL_s2z00_18);} 
}



/* _<=second2052 */
obj_t BGl__zc3zd3second2052z10zz__datez00(obj_t BgL_envz00_1412, obj_t BgL_s1z00_1413, obj_t BgL_s2z00_1414)
{ AN_OBJECT;
{ /* ./Llib/date.scm 261 */
{ /* ./Llib/date.scm 262 */
bool_t BgL_auxz00_1999;
{ /* ./Llib/date.scm 262 */
long BgL_s1z00_1503;long BgL_s2z00_1504;
BgL_s1z00_1503 = 
BELONG_TO_LONG(BgL_s1z00_1413); 
BgL_s2z00_1504 = 
BELONG_TO_LONG(BgL_s2z00_1414); 
BgL_auxz00_1999 = 
(BgL_s1z00_1503<=BgL_s2z00_1504); } 
return 
BBOOL(BgL_auxz00_1999);} } 
}



/* >=second */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3secondz30zz__datez00(long BgL_s1z00_19, long BgL_s2z00_20)
{ AN_OBJECT;
{ /* ./Llib/date.scm 267 */
return 
(BgL_s1z00_19>=BgL_s2z00_20);} 
}



/* _>=second2054 */
obj_t BGl__ze3zd3second2054z30zz__datez00(obj_t BgL_envz00_1415, obj_t BgL_s1z00_1416, obj_t BgL_s2z00_1417)
{ AN_OBJECT;
{ /* ./Llib/date.scm 267 */
{ /* ./Llib/date.scm 268 */
bool_t BgL_auxz00_2005;
{ /* ./Llib/date.scm 268 */
long BgL_s1z00_1505;long BgL_s2z00_1506;
BgL_s1z00_1505 = 
BELONG_TO_LONG(BgL_s1z00_1416); 
BgL_s2z00_1506 = 
BELONG_TO_LONG(BgL_s2z00_1417); 
BgL_auxz00_2005 = 
(BgL_s1z00_1505>=BgL_s2z00_1506); } 
return 
BBOOL(BgL_auxz00_2005);} } 
}



/* +second */
BGL_EXPORTED_DEF long BGl_zb2secondzb2zz__datez00(long BgL_s1z00_21, long BgL_s2z00_22)
{ AN_OBJECT;
{ /* ./Llib/date.scm 273 */
return 
(BgL_s1z00_21+BgL_s2z00_22);} 
}



/* _+second */
obj_t BGl__zb2secondzb2zz__datez00(obj_t BgL_envz00_1418, obj_t BgL_s1z00_1419, obj_t BgL_s2z00_1420)
{ AN_OBJECT;
{ /* ./Llib/date.scm 273 */
{ /* ./Llib/date.scm 274 */
long BgL_auxz00_2011;
{ /* ./Llib/date.scm 274 */
long BgL_s1z00_1507;long BgL_s2z00_1508;
BgL_s1z00_1507 = 
BELONG_TO_LONG(BgL_s1z00_1419); 
BgL_s2z00_1508 = 
BELONG_TO_LONG(BgL_s2z00_1420); 
BgL_auxz00_2011 = 
(BgL_s1z00_1507+BgL_s2z00_1508); } 
return 
LONG_TO_BELONG(BgL_auxz00_2011);} } 
}



/* *second */
BGL_EXPORTED_DEF long BGl_za2secondza2zz__datez00(long BgL_s1z00_23, long BgL_s2z00_24)
{ AN_OBJECT;
{ /* ./Llib/date.scm 279 */
return 
(BgL_s1z00_23*BgL_s2z00_24);} 
}



/* _*second2057 */
obj_t BGl__za2second2057za2zz__datez00(obj_t BgL_envz00_1421, obj_t BgL_s1z00_1422, obj_t BgL_s2z00_1423)
{ AN_OBJECT;
{ /* ./Llib/date.scm 279 */
{ /* ./Llib/date.scm 280 */
long BgL_auxz00_2017;
{ /* ./Llib/date.scm 280 */
long BgL_s1z00_1509;long BgL_s2z00_1510;
BgL_s1z00_1509 = 
BELONG_TO_LONG(BgL_s1z00_1422); 
BgL_s2z00_1510 = 
BELONG_TO_LONG(BgL_s2z00_1423); 
BgL_auxz00_2017 = 
(BgL_s1z00_1509*BgL_s2z00_1510); } 
return 
LONG_TO_BELONG(BgL_auxz00_2017);} } 
}



/* -second */
BGL_EXPORTED_DEF long BGl_zd2secondzd2zz__datez00(long BgL_s1z00_25, long BgL_s2z00_26)
{ AN_OBJECT;
{ /* ./Llib/date.scm 285 */
return 
(BgL_s1z00_25-BgL_s2z00_26);} 
}



/* _-second */
obj_t BGl__zd2secondzd2zz__datez00(obj_t BgL_envz00_1424, obj_t BgL_s1z00_1425, obj_t BgL_s2z00_1426)
{ AN_OBJECT;
{ /* ./Llib/date.scm 285 */
{ /* ./Llib/date.scm 286 */
long BgL_auxz00_2023;
{ /* ./Llib/date.scm 286 */
long BgL_s1z00_1511;long BgL_s2z00_1512;
BgL_s1z00_1511 = 
BELONG_TO_LONG(BgL_s1z00_1425); 
BgL_s2z00_1512 = 
BELONG_TO_LONG(BgL_s2z00_1426); 
BgL_auxz00_2023 = 
(BgL_s1z00_1511-BgL_s2z00_1512); } 
return 
LONG_TO_BELONG(BgL_auxz00_2023);} } 
}



/* integer->second */
BGL_EXPORTED_DEF long BGl_integerzd2ze3secondz31zz__datez00(long BgL_iz00_27)
{ AN_OBJECT;
{ /* ./Llib/date.scm 291 */
return 
(long)(BgL_iz00_27);} 
}



/* _integer->second */
obj_t BGl__integerzd2ze3secondz31zz__datez00(obj_t BgL_envz00_1427, obj_t BgL_iz00_1428)
{ AN_OBJECT;
{ /* ./Llib/date.scm 291 */
{ /* ./Llib/date.scm 292 */
long BgL_auxz00_2029;
{ /* ./Llib/date.scm 292 */
long BgL_auxz00_2030;
BgL_auxz00_2030 = 
(long)CINT(BgL_iz00_1428); 
BgL_auxz00_2029 = 
(long)(BgL_auxz00_2030); } 
return 
LONG_TO_BELONG(BgL_auxz00_2029);} } 
}



/* date-second */
BGL_EXPORTED_DEF int BGl_datezd2secondzd2zz__datez00(obj_t BgL_dz00_28)
{ AN_OBJECT;
{ /* ./Llib/date.scm 297 */
return 
BGL_DATE_SECOND(BgL_dz00_28);} 
}



/* _date-second */
obj_t BGl__datezd2secondzd2zz__datez00(obj_t BgL_envz00_1429, obj_t BgL_dz00_1430)
{ AN_OBJECT;
{ /* ./Llib/date.scm 297 */
{ /* ./Llib/date.scm 298 */
int BgL_auxz00_2035;
BgL_auxz00_2035 = 
BGL_DATE_SECOND(BgL_dz00_1430); 
return 
BINT(BgL_auxz00_2035);} } 
}



/* date-minute */
BGL_EXPORTED_DEF int BGl_datezd2minutezd2zz__datez00(obj_t BgL_dz00_29)
{ AN_OBJECT;
{ /* ./Llib/date.scm 303 */
return 
BGL_DATE_MINUTE(BgL_dz00_29);} 
}



/* _date-minute */
obj_t BGl__datezd2minutezd2zz__datez00(obj_t BgL_envz00_1431, obj_t BgL_dz00_1432)
{ AN_OBJECT;
{ /* ./Llib/date.scm 303 */
{ /* ./Llib/date.scm 304 */
int BgL_auxz00_2039;
BgL_auxz00_2039 = 
BGL_DATE_MINUTE(BgL_dz00_1432); 
return 
BINT(BgL_auxz00_2039);} } 
}



/* date-hour */
BGL_EXPORTED_DEF int BGl_datezd2hourzd2zz__datez00(obj_t BgL_dz00_30)
{ AN_OBJECT;
{ /* ./Llib/date.scm 309 */
return 
BGL_DATE_HOUR(BgL_dz00_30);} 
}



/* _date-hour */
obj_t BGl__datezd2hourzd2zz__datez00(obj_t BgL_envz00_1433, obj_t BgL_dz00_1434)
{ AN_OBJECT;
{ /* ./Llib/date.scm 309 */
{ /* ./Llib/date.scm 310 */
int BgL_auxz00_2043;
BgL_auxz00_2043 = 
BGL_DATE_HOUR(BgL_dz00_1434); 
return 
BINT(BgL_auxz00_2043);} } 
}



/* date-day */
BGL_EXPORTED_DEF int BGl_datezd2dayzd2zz__datez00(obj_t BgL_dz00_31)
{ AN_OBJECT;
{ /* ./Llib/date.scm 315 */
return 
BGL_DATE_DAY(BgL_dz00_31);} 
}



/* _date-day */
obj_t BGl__datezd2dayzd2zz__datez00(obj_t BgL_envz00_1435, obj_t BgL_dz00_1436)
{ AN_OBJECT;
{ /* ./Llib/date.scm 315 */
{ /* ./Llib/date.scm 316 */
int BgL_auxz00_2047;
BgL_auxz00_2047 = 
BGL_DATE_DAY(BgL_dz00_1436); 
return 
BINT(BgL_auxz00_2047);} } 
}



/* date-wday */
BGL_EXPORTED_DEF int BGl_datezd2wdayzd2zz__datez00(obj_t BgL_dz00_32)
{ AN_OBJECT;
{ /* ./Llib/date.scm 321 */
return 
BGL_DATE_WDAY(BgL_dz00_32);} 
}



/* _date-wday */
obj_t BGl__datezd2wdayzd2zz__datez00(obj_t BgL_envz00_1437, obj_t BgL_dz00_1438)
{ AN_OBJECT;
{ /* ./Llib/date.scm 321 */
{ /* ./Llib/date.scm 322 */
int BgL_auxz00_2051;
BgL_auxz00_2051 = 
BGL_DATE_WDAY(BgL_dz00_1438); 
return 
BINT(BgL_auxz00_2051);} } 
}



/* date-yday */
BGL_EXPORTED_DEF int BGl_datezd2ydayzd2zz__datez00(obj_t BgL_dz00_33)
{ AN_OBJECT;
{ /* ./Llib/date.scm 327 */
return 
BGL_DATE_YDAY(BgL_dz00_33);} 
}



/* _date-yday */
obj_t BGl__datezd2ydayzd2zz__datez00(obj_t BgL_envz00_1439, obj_t BgL_dz00_1440)
{ AN_OBJECT;
{ /* ./Llib/date.scm 327 */
{ /* ./Llib/date.scm 328 */
int BgL_auxz00_2055;
BgL_auxz00_2055 = 
BGL_DATE_YDAY(BgL_dz00_1440); 
return 
BINT(BgL_auxz00_2055);} } 
}



/* date-month */
BGL_EXPORTED_DEF int BGl_datezd2monthzd2zz__datez00(obj_t BgL_dz00_34)
{ AN_OBJECT;
{ /* ./Llib/date.scm 333 */
return 
BGL_DATE_MONTH(BgL_dz00_34);} 
}



/* _date-month */
obj_t BGl__datezd2monthzd2zz__datez00(obj_t BgL_envz00_1441, obj_t BgL_dz00_1442)
{ AN_OBJECT;
{ /* ./Llib/date.scm 333 */
{ /* ./Llib/date.scm 334 */
int BgL_auxz00_2059;
BgL_auxz00_2059 = 
BGL_DATE_MONTH(BgL_dz00_1442); 
return 
BINT(BgL_auxz00_2059);} } 
}



/* date-year */
BGL_EXPORTED_DEF int BGl_datezd2yearzd2zz__datez00(obj_t BgL_dz00_35)
{ AN_OBJECT;
{ /* ./Llib/date.scm 339 */
return 
BGL_DATE_YEAR(BgL_dz00_35);} 
}



/* _date-year */
obj_t BGl__datezd2yearzd2zz__datez00(obj_t BgL_envz00_1443, obj_t BgL_dz00_1444)
{ AN_OBJECT;
{ /* ./Llib/date.scm 339 */
{ /* ./Llib/date.scm 340 */
int BgL_auxz00_2063;
BgL_auxz00_2063 = 
BGL_DATE_YEAR(BgL_dz00_1444); 
return 
BINT(BgL_auxz00_2063);} } 
}



/* date-timezone */
BGL_EXPORTED_DEF long BGl_datezd2timeza7onez75zz__datez00(obj_t BgL_dz00_36)
{ AN_OBJECT;
{ /* ./Llib/date.scm 345 */
return 
BGL_DATE_TIMEZONE(BgL_dz00_36);} 
}



/* _date-timezone */
obj_t BGl__datezd2timeza7onez75zz__datez00(obj_t BgL_envz00_1445, obj_t BgL_dz00_1446)
{ AN_OBJECT;
{ /* ./Llib/date.scm 345 */
{ /* ./Llib/date.scm 346 */
long BgL_auxz00_2067;
BgL_auxz00_2067 = 
BGL_DATE_TIMEZONE(BgL_dz00_1446); 
return 
BINT(BgL_auxz00_2067);} } 
}



/* date-is-dst */
BGL_EXPORTED_DEF int BGl_datezd2iszd2dstz00zz__datez00(obj_t BgL_dz00_37)
{ AN_OBJECT;
{ /* ./Llib/date.scm 351 */
return 
BGL_DATE_ISDST(BgL_dz00_37);} 
}



/* _date-is-dst2070 */
obj_t BGl__datezd2iszd2dst2070z00zz__datez00(obj_t BgL_envz00_1447, obj_t BgL_dz00_1448)
{ AN_OBJECT;
{ /* ./Llib/date.scm 351 */
{ /* ./Llib/date.scm 352 */
int BgL_auxz00_2071;
BgL_auxz00_2071 = 
BGL_DATE_ISDST(BgL_dz00_1448); 
return 
BINT(BgL_auxz00_2071);} } 
}



/* current-seconds */
BGL_EXPORTED_DEF long BGl_currentzd2secondszd2zz__datez00()
{ AN_OBJECT;
{ /* ./Llib/date.scm 357 */
return 
bgl_current_seconds();} 
}



/* _current-seconds */
obj_t BGl__currentzd2secondszd2zz__datez00(obj_t BgL_envz00_1449)
{ AN_OBJECT;
{ /* ./Llib/date.scm 357 */
{ /* ./Llib/date.scm 358 */
long BgL_auxz00_2075;
BgL_auxz00_2075 = 
bgl_current_seconds(); 
return 
LONG_TO_BELONG(BgL_auxz00_2075);} } 
}



/* current-date */
BGL_EXPORTED_DEF obj_t BGl_currentzd2datezd2zz__datez00()
{ AN_OBJECT;
{ /* ./Llib/date.scm 363 */
{ /* ./Llib/date.scm 364 */
long BgL_auxz00_2078;
BgL_auxz00_2078 = 
bgl_current_seconds(); 
return 
bgl_seconds_to_date(BgL_auxz00_2078);} } 
}



/* _current-date */
obj_t BGl__currentzd2datezd2zz__datez00(obj_t BgL_envz00_1450)
{ AN_OBJECT;
{ /* ./Llib/date.scm 363 */
{ /* ./Llib/date.scm 364 */
long BgL_auxz00_2081;
BgL_auxz00_2081 = 
bgl_current_seconds(); 
return 
bgl_seconds_to_date(BgL_auxz00_2081);} } 
}



/* seconds->date */
BGL_EXPORTED_DEF obj_t BGl_secondszd2ze3datez31zz__datez00(long BgL_elongz00_38)
{ AN_OBJECT;
{ /* ./Llib/date.scm 369 */
return 
bgl_seconds_to_date(BgL_elongz00_38);} 
}



/* _seconds->date */
obj_t BGl__secondszd2ze3datez31zz__datez00(obj_t BgL_envz00_1451, obj_t BgL_elongz00_1452)
{ AN_OBJECT;
{ /* ./Llib/date.scm 369 */
{ /* ./Llib/date.scm 370 */
long BgL_elongz00_1524;
BgL_elongz00_1524 = 
BELONG_TO_LONG(BgL_elongz00_1452); 
return 
bgl_seconds_to_date(BgL_elongz00_1524);} } 
}



/* date->seconds */
BGL_EXPORTED_DEF long BGl_datezd2ze3secondsz31zz__datez00(obj_t BgL_datez00_39)
{ AN_OBJECT;
{ /* ./Llib/date.scm 375 */
return 
bgl_date_to_seconds(BgL_datez00_39);} 
}



/* _date->seconds */
obj_t BGl__datezd2ze3secondsz31zz__datez00(obj_t BgL_envz00_1453, obj_t BgL_datez00_1454)
{ AN_OBJECT;
{ /* ./Llib/date.scm 375 */
{ /* ./Llib/date.scm 376 */
long BgL_auxz00_2088;
BgL_auxz00_2088 = 
bgl_date_to_seconds(BgL_datez00_1454); 
return 
LONG_TO_BELONG(BgL_auxz00_2088);} } 
}



/* date->string */
BGL_EXPORTED_DEF obj_t BGl_datezd2ze3stringz31zz__datez00(obj_t BgL_datez00_40)
{ AN_OBJECT;
{ /* ./Llib/date.scm 381 */
{ /* ./Llib/date.scm 382 */
long BgL_auxz00_2091;
BgL_auxz00_2091 = 
bgl_date_to_seconds(BgL_datez00_40); 
return 
bgl_seconds_to_string(BgL_auxz00_2091);} } 
}



/* _date->string */
obj_t BGl__datezd2ze3stringz31zz__datez00(obj_t BgL_envz00_1455, obj_t BgL_datez00_1456)
{ AN_OBJECT;
{ /* ./Llib/date.scm 381 */
{ /* ./Llib/date.scm 382 */
long BgL_auxz00_2094;
BgL_auxz00_2094 = 
bgl_date_to_seconds(BgL_datez00_1456); 
return 
bgl_seconds_to_string(BgL_auxz00_2094);} } 
}



/* date->utc-string */
BGL_EXPORTED_DEF obj_t BGl_datezd2ze3utczd2stringze3zz__datez00(obj_t BgL_datez00_41)
{ AN_OBJECT;
{ /* ./Llib/date.scm 387 */
{ /* ./Llib/date.scm 388 */
long BgL_auxz00_2097;
BgL_auxz00_2097 = 
bgl_date_to_seconds(BgL_datez00_41); 
return 
bgl_seconds_to_utc_string(BgL_auxz00_2097);} } 
}



/* _date->utc-string */
obj_t BGl__datezd2ze3utczd2stringze3zz__datez00(obj_t BgL_envz00_1457, obj_t BgL_datez00_1458)
{ AN_OBJECT;
{ /* ./Llib/date.scm 387 */
{ /* ./Llib/date.scm 388 */
long BgL_auxz00_2100;
BgL_auxz00_2100 = 
bgl_date_to_seconds(BgL_datez00_1458); 
return 
bgl_seconds_to_utc_string(BgL_auxz00_2100);} } 
}



/* seconds->string */
BGL_EXPORTED_DEF obj_t BGl_secondszd2ze3stringz31zz__datez00(long BgL_secz00_42)
{ AN_OBJECT;
{ /* ./Llib/date.scm 393 */
return 
bgl_seconds_to_string(BgL_secz00_42);} 
}



/* _seconds->string */
obj_t BGl__secondszd2ze3stringz31zz__datez00(obj_t BgL_envz00_1459, obj_t BgL_secz00_1460)
{ AN_OBJECT;
{ /* ./Llib/date.scm 393 */
{ /* ./Llib/date.scm 394 */
long BgL_secz00_1528;
BgL_secz00_1528 = 
BELONG_TO_LONG(BgL_secz00_1460); 
return 
bgl_seconds_to_string(BgL_secz00_1528);} } 
}



/* seconds->utc-string */
BGL_EXPORTED_DEF obj_t BGl_secondszd2ze3utczd2stringze3zz__datez00(long BgL_secz00_43)
{ AN_OBJECT;
{ /* ./Llib/date.scm 399 */
return 
bgl_seconds_to_utc_string(BgL_secz00_43);} 
}



/* _seconds->utc-string */
obj_t BGl__secondszd2ze3utczd2stringze3zz__datez00(obj_t BgL_envz00_1461, obj_t BgL_secz00_1462)
{ AN_OBJECT;
{ /* ./Llib/date.scm 399 */
{ /* ./Llib/date.scm 400 */
long BgL_secz00_1529;
BgL_secz00_1529 = 
BELONG_TO_LONG(BgL_secz00_1462); 
return 
bgl_seconds_to_utc_string(BgL_secz00_1529);} } 
}



/* day-seconds */
BGL_EXPORTED_DEF long BGl_dayzd2secondszd2zz__datez00()
{ AN_OBJECT;
{ /* ./Llib/date.scm 405 */
return 
BELONG_TO_LONG(ELONG_TO_BELONG( 86400));} 
}



/* _day-seconds */
obj_t BGl__dayzd2secondszd2zz__datez00(obj_t BgL_envz00_1463)
{ AN_OBJECT;
{ /* ./Llib/date.scm 405 */
{ /* ./Llib/date.scm 406 */
long BgL_auxz00_2110;
{ /* ./Llib/date.scm 406 */
long BgL_res2255z00_1530;
BgL_res2255z00_1530 = 
BELONG_TO_LONG(ELONG_TO_BELONG( 86400)); 
BgL_auxz00_2110 = BgL_res2255z00_1530; } 
return 
LONG_TO_BELONG(BgL_auxz00_2110);} } 
}



/* day-name */
BGL_EXPORTED_DEF obj_t BGl_dayzd2namezd2zz__datez00(int BgL_dayz00_44)
{ AN_OBJECT;
{ /* ./Llib/date.scm 411 */
{ /* ./Llib/date.scm 413 */
bool_t BgL_testz00_2113;
{ /* ./Llib/date.scm 413 */
long BgL_auxz00_2114;
BgL_auxz00_2114 = 
(long)(BgL_dayz00_44); 
BgL_testz00_2113 = 
(BgL_auxz00_2114<((long)1)); } 
if(BgL_testz00_2113)
{ /* ./Llib/date.scm 413 */
{ /* ./Llib/date.scm 414 */
obj_t BgL_procz00_1322;obj_t BgL_objectz00_1324;
BgL_procz00_1322 = BGl_symbol2249z00zz__datez00; 
BgL_objectz00_1324 = 
BINT(BgL_dayz00_44); 
FAILURE(BgL_procz00_1322,BGl_string2250z00zz__datez00,BgL_objectz00_1324);} }  else 
{ /* ./Llib/date.scm 415 */
bool_t BgL_testz00_2119;
{ /* ./Llib/date.scm 415 */
long BgL_auxz00_2120;
BgL_auxz00_2120 = 
(long)(BgL_dayz00_44); 
BgL_testz00_2119 = 
(BgL_auxz00_2120>((long)7)); } 
if(BgL_testz00_2119)
{ /* ./Llib/date.scm 415 */
{ /* ./Llib/date.scm 416 */
long BgL_arg1331z00_539;
{ /* ./Llib/date.scm 416 */
long BgL_arg1335z00_541;
{ /* ./Llib/date.scm 416 */
long BgL_auxz00_2123;
BgL_auxz00_2123 = 
(long)(BgL_dayz00_44); 
BgL_arg1335z00_541 = 
(BgL_auxz00_2123%((long)7)); } 
BgL_arg1331z00_539 = 
(((long)1)+BgL_arg1335z00_541); } 
{ /* ./Llib/date.scm 416 */
int BgL_auxz00_2127;
BgL_auxz00_2127 = 
(int)(BgL_arg1331z00_539); 
return 
bgl_day_name(BgL_auxz00_2127);} } }  else 
{ /* ./Llib/date.scm 415 */
return 
bgl_day_name(BgL_dayz00_44);} } } } 
}



/* _day-name */
obj_t BGl__dayzd2namezd2zz__datez00(obj_t BgL_envz00_1464, obj_t BgL_dayz00_1465)
{ AN_OBJECT;
{ /* ./Llib/date.scm 411 */
return 
BGl_dayzd2namezd2zz__datez00(
CINT(BgL_dayz00_1465));} 
}



/* day-aname */
BGL_EXPORTED_DEF obj_t BGl_dayzd2anamezd2zz__datez00(int BgL_dayz00_45)
{ AN_OBJECT;
{ /* ./Llib/date.scm 423 */
{ /* ./Llib/date.scm 425 */
bool_t BgL_testz00_2133;
{ /* ./Llib/date.scm 425 */
long BgL_auxz00_2134;
BgL_auxz00_2134 = 
(long)(BgL_dayz00_45); 
BgL_testz00_2133 = 
(BgL_auxz00_2134<((long)1)); } 
if(BgL_testz00_2133)
{ /* ./Llib/date.scm 425 */
{ /* ./Llib/date.scm 426 */
obj_t BgL_procz00_1333;obj_t BgL_objectz00_1335;
BgL_procz00_1333 = BGl_symbol2251z00zz__datez00; 
BgL_objectz00_1335 = 
BINT(BgL_dayz00_45); 
FAILURE(BgL_procz00_1333,BGl_string2250z00zz__datez00,BgL_objectz00_1335);} }  else 
{ /* ./Llib/date.scm 427 */
bool_t BgL_testz00_2139;
{ /* ./Llib/date.scm 427 */
long BgL_auxz00_2140;
BgL_auxz00_2140 = 
(long)(BgL_dayz00_45); 
BgL_testz00_2139 = 
(BgL_auxz00_2140>((long)7)); } 
if(BgL_testz00_2139)
{ /* ./Llib/date.scm 427 */
{ /* ./Llib/date.scm 428 */
long BgL_arg1345z00_544;
{ /* ./Llib/date.scm 428 */
long BgL_arg1349z00_546;
{ /* ./Llib/date.scm 428 */
long BgL_auxz00_2143;
BgL_auxz00_2143 = 
(long)(BgL_dayz00_45); 
BgL_arg1349z00_546 = 
(BgL_auxz00_2143%((long)7)); } 
BgL_arg1345z00_544 = 
(((long)1)+BgL_arg1349z00_546); } 
{ /* ./Llib/date.scm 428 */
int BgL_auxz00_2147;
BgL_auxz00_2147 = 
(int)(BgL_arg1345z00_544); 
return 
bgl_day_aname(BgL_auxz00_2147);} } }  else 
{ /* ./Llib/date.scm 427 */
return 
bgl_day_aname(BgL_dayz00_45);} } } } 
}



/* _day-aname */
obj_t BGl__dayzd2anamezd2zz__datez00(obj_t BgL_envz00_1466, obj_t BgL_dayz00_1467)
{ AN_OBJECT;
{ /* ./Llib/date.scm 423 */
return 
BGl_dayzd2anamezd2zz__datez00(
CINT(BgL_dayz00_1467));} 
}



/* month-name */
BGL_EXPORTED_DEF obj_t BGl_monthzd2namezd2zz__datez00(int BgL_monthz00_46)
{ AN_OBJECT;
{ /* ./Llib/date.scm 435 */
{ /* ./Llib/date.scm 437 */
bool_t BgL_testz00_2153;
{ /* ./Llib/date.scm 437 */
long BgL_auxz00_2154;
BgL_auxz00_2154 = 
(long)(BgL_monthz00_46); 
BgL_testz00_2153 = 
(BgL_auxz00_2154<((long)1)); } 
if(BgL_testz00_2153)
{ /* ./Llib/date.scm 437 */
{ /* ./Llib/date.scm 438 */
obj_t BgL_procz00_1344;obj_t BgL_objectz00_1346;
BgL_procz00_1344 = BGl_symbol2252z00zz__datez00; 
BgL_objectz00_1346 = 
BINT(BgL_monthz00_46); 
FAILURE(BgL_procz00_1344,BGl_string2253z00zz__datez00,BgL_objectz00_1346);} }  else 
{ /* ./Llib/date.scm 439 */
bool_t BgL_testz00_2159;
{ /* ./Llib/date.scm 439 */
long BgL_auxz00_2160;
BgL_auxz00_2160 = 
(long)(BgL_monthz00_46); 
BgL_testz00_2159 = 
(BgL_auxz00_2160>((long)12)); } 
if(BgL_testz00_2159)
{ /* ./Llib/date.scm 439 */
{ /* ./Llib/date.scm 440 */
long BgL_arg1359z00_549;
{ /* ./Llib/date.scm 440 */
long BgL_arg1363z00_551;
{ /* ./Llib/date.scm 440 */
long BgL_auxz00_2163;
BgL_auxz00_2163 = 
(long)(BgL_monthz00_46); 
BgL_arg1363z00_551 = 
(BgL_auxz00_2163%((long)12)); } 
BgL_arg1359z00_549 = 
(((long)1)+BgL_arg1363z00_551); } 
{ /* ./Llib/date.scm 440 */
int BgL_auxz00_2167;
BgL_auxz00_2167 = 
(int)(BgL_arg1359z00_549); 
return 
bgl_month_name(BgL_auxz00_2167);} } }  else 
{ /* ./Llib/date.scm 439 */
return 
bgl_month_name(BgL_monthz00_46);} } } } 
}



/* _month-name */
obj_t BGl__monthzd2namezd2zz__datez00(obj_t BgL_envz00_1468, obj_t BgL_monthz00_1469)
{ AN_OBJECT;
{ /* ./Llib/date.scm 435 */
return 
BGl_monthzd2namezd2zz__datez00(
CINT(BgL_monthz00_1469));} 
}



/* month-aname */
BGL_EXPORTED_DEF obj_t BGl_monthzd2anamezd2zz__datez00(int BgL_monthz00_47)
{ AN_OBJECT;
{ /* ./Llib/date.scm 447 */
{ /* ./Llib/date.scm 449 */
bool_t BgL_testz00_2173;
{ /* ./Llib/date.scm 449 */
long BgL_auxz00_2174;
BgL_auxz00_2174 = 
(long)(BgL_monthz00_47); 
BgL_testz00_2173 = 
(BgL_auxz00_2174<((long)1)); } 
if(BgL_testz00_2173)
{ /* ./Llib/date.scm 449 */
{ /* ./Llib/date.scm 450 */
obj_t BgL_procz00_1355;obj_t BgL_objectz00_1357;
BgL_procz00_1355 = BGl_symbol2252z00zz__datez00; 
BgL_objectz00_1357 = 
BINT(BgL_monthz00_47); 
FAILURE(BgL_procz00_1355,BGl_string2253z00zz__datez00,BgL_objectz00_1357);} }  else 
{ /* ./Llib/date.scm 451 */
bool_t BgL_testz00_2179;
{ /* ./Llib/date.scm 451 */
long BgL_auxz00_2180;
BgL_auxz00_2180 = 
(long)(BgL_monthz00_47); 
BgL_testz00_2179 = 
(BgL_auxz00_2180>((long)12)); } 
if(BgL_testz00_2179)
{ /* ./Llib/date.scm 451 */
{ /* ./Llib/date.scm 452 */
long BgL_arg1374z00_554;
{ /* ./Llib/date.scm 452 */
long BgL_arg1378z00_556;
{ /* ./Llib/date.scm 452 */
long BgL_auxz00_2183;
BgL_auxz00_2183 = 
(long)(BgL_monthz00_47); 
BgL_arg1378z00_556 = 
(BgL_auxz00_2183%((long)12)); } 
BgL_arg1374z00_554 = 
(((long)1)+BgL_arg1378z00_556); } 
{ /* ./Llib/date.scm 452 */
int BgL_auxz00_2187;
BgL_auxz00_2187 = 
(int)(BgL_arg1374z00_554); 
return 
bgl_month_aname(BgL_auxz00_2187);} } }  else 
{ /* ./Llib/date.scm 451 */
return 
bgl_month_aname(BgL_monthz00_47);} } } } 
}



/* _month-aname */
obj_t BGl__monthzd2anamezd2zz__datez00(obj_t BgL_envz00_1470, obj_t BgL_monthz00_1471)
{ AN_OBJECT;
{ /* ./Llib/date.scm 447 */
return 
BGl_monthzd2anamezd2zz__datez00(
CINT(BgL_monthz00_1471));} 
}



/* leap-year? */
BGL_EXPORTED_DEF bool_t BGl_leapzd2yearzf3z21zz__datez00(int BgL_yearz00_48)
{ AN_OBJECT;
{ /* ./Llib/date.scm 459 */
{ /* ./Llib/date.scm 460 */
bool_t BgL__andtest_1003z00_1531;
{ /* ./Llib/date.scm 460 */
long BgL_arg1397z00_1532;
{ /* ./Llib/date.scm 460 */
long BgL_auxz00_2193;
BgL_auxz00_2193 = 
(long)(BgL_yearz00_48); 
BgL_arg1397z00_1532 = 
(BgL_auxz00_2193%((long)4)); } 
BgL__andtest_1003z00_1531 = 
(BgL_arg1397z00_1532==((long)0)); } 
if(BgL__andtest_1003z00_1531)
{ /* ./Llib/date.scm 460 */
bool_t BgL__ortest_1004z00_1533;
{ /* ./Llib/date.scm 460 */
bool_t BgL_test1389z00_1534;
{ /* ./Llib/date.scm 460 */
long BgL_arg1392z00_1535;
{ /* ./Llib/date.scm 460 */
long BgL_auxz00_2198;
BgL_auxz00_2198 = 
(long)(BgL_yearz00_48); 
BgL_arg1392z00_1535 = 
(BgL_auxz00_2198%((long)100)); } 
BgL_test1389z00_1534 = 
(BgL_arg1392z00_1535==((long)0)); } 
if(BgL_test1389z00_1534)
{ /* ./Llib/date.scm 460 */
BgL__ortest_1004z00_1533 = ((bool_t)0); }  else 
{ /* ./Llib/date.scm 460 */
BgL__ortest_1004z00_1533 = ((bool_t)1); } } 
if(BgL__ortest_1004z00_1533)
{ /* ./Llib/date.scm 460 */
return BgL__ortest_1004z00_1533;}  else 
{ /* ./Llib/date.scm 460 */
long BgL_arg1385z00_1536;
{ /* ./Llib/date.scm 460 */
long BgL_auxz00_2204;
BgL_auxz00_2204 = 
(long)(BgL_yearz00_48); 
BgL_arg1385z00_1536 = 
(BgL_auxz00_2204%((long)400)); } 
return 
(BgL_arg1385z00_1536==((long)0));} }  else 
{ /* ./Llib/date.scm 460 */
return ((bool_t)0);} } } 
}



/* _leap-year? */
obj_t BGl__leapzd2yearzf3z21zz__datez00(obj_t BgL_envz00_1472, obj_t BgL_yearz00_1473)
{ AN_OBJECT;
{ /* ./Llib/date.scm 459 */
{ /* ./Llib/date.scm 460 */
bool_t BgL_auxz00_2208;
{ /* ./Llib/date.scm 460 */
bool_t BgL_res2256z00_1544;
{ /* ./Llib/date.scm 460 */
int BgL_yearz00_1537;
BgL_yearz00_1537 = 
CINT(BgL_yearz00_1473); 
{ /* ./Llib/date.scm 460 */
bool_t BgL__andtest_1003z00_1538;
{ /* ./Llib/date.scm 460 */
long BgL_arg1397z00_1539;
{ /* ./Llib/date.scm 460 */
long BgL_auxz00_2210;
BgL_auxz00_2210 = 
(long)(BgL_yearz00_1537); 
BgL_arg1397z00_1539 = 
(BgL_auxz00_2210%((long)4)); } 
BgL__andtest_1003z00_1538 = 
(BgL_arg1397z00_1539==((long)0)); } 
if(BgL__andtest_1003z00_1538)
{ /* ./Llib/date.scm 460 */
bool_t BgL__ortest_1004z00_1540;
{ /* ./Llib/date.scm 460 */
bool_t BgL_test1389z00_1541;
{ /* ./Llib/date.scm 460 */
long BgL_arg1392z00_1542;
{ /* ./Llib/date.scm 460 */
long BgL_auxz00_2215;
BgL_auxz00_2215 = 
(long)(BgL_yearz00_1537); 
BgL_arg1392z00_1542 = 
(BgL_auxz00_2215%((long)100)); } 
BgL_test1389z00_1541 = 
(BgL_arg1392z00_1542==((long)0)); } 
if(BgL_test1389z00_1541)
{ /* ./Llib/date.scm 460 */
BgL__ortest_1004z00_1540 = ((bool_t)0); }  else 
{ /* ./Llib/date.scm 460 */
BgL__ortest_1004z00_1540 = ((bool_t)1); } } 
if(BgL__ortest_1004z00_1540)
{ /* ./Llib/date.scm 460 */
BgL_res2256z00_1544 = BgL__ortest_1004z00_1540; }  else 
{ /* ./Llib/date.scm 460 */
long BgL_arg1385z00_1543;
{ /* ./Llib/date.scm 460 */
long BgL_auxz00_2221;
BgL_auxz00_2221 = 
(long)(BgL_yearz00_1537); 
BgL_arg1385z00_1543 = 
(BgL_auxz00_2221%((long)400)); } 
BgL_res2256z00_1544 = 
(BgL_arg1385z00_1543==((long)0)); } }  else 
{ /* ./Llib/date.scm 460 */
BgL_res2256z00_1544 = ((bool_t)0); } } } 
BgL_auxz00_2208 = BgL_res2256z00_1544; } 
return 
BBOOL(BgL_auxz00_2208);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__datez00()
{ AN_OBJECT;
{ /* ./Llib/date.scm 19 */
return 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__date");} 
}

