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

/* debug mode */
#define BIGLOO_DEBUG 1

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

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 *);
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__dayzd2namezd2zz__datez00(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 bool_t BGl_ze3secondze3zz__datez00(long, long);
static obj_t BGl__datezd2yearzd2zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_currentzd2secondszd2zz__datez00();
static obj_t BGl__integerzd2ze3secondz31zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zd3secondzd3zz__datez00(long, long);
static obj_t BGl__ze3second2225ze3zz__datez00(obj_t, obj_t, obj_t);
static obj_t BGl__zd3second2221zd3zz__datez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3secondzc3zz__datez00(long, long);
extern long bgl_current_seconds();
BGL_EXPORTED_DECL obj_t BGl_secondszd2ze3datez31zz__datez00(long);
extern obj_t bgl_seconds_to_date(long);
extern long bgl_date_to_seconds(obj_t);
extern obj_t string_to_symbol(char *);
static obj_t BGl__zc3zd3second2227z10zz__datez00(obj_t, obj_t, obj_t);
static obj_t BGl__datezf3zf3zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_datezd2dayzd2zz__datez00(obj_t);
static obj_t BGl__datezd2ydayzd2zz__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 bool_t BGl_zc3zd3secondz10zz__datez00(long, long);
static obj_t BGl__ze3zd3second2229z30zz__datez00(obj_t, obj_t, obj_t);
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);
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);
static obj_t BGl__zc3second2223zc3zz__datez00(obj_t, obj_t, obj_t);
extern obj_t bgl_make_date(int, int, int, int, int, int, long, int);
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__datezd2copy2219zd2zz__datez00(obj_t, obj_t, obj_t);
static obj_t BGl__currentzd2secondszd2zz__datez00(obj_t);
static obj_t BGl__monthzd2anamezd2zz__datez00(obj_t, obj_t);
extern obj_t bgl_seconds_to_string(long);
BGL_EXPORTED_DECL obj_t BGl_datezd2copyzd2zz__datez00(obj_t, obj_t);
static obj_t BGl__dayzd2anamezd2zz__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__zd2secondzd2zz__datez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_dayzd2anamezd2zz__datez00(int);
BGL_EXPORTED_DECL long BGl_zd2secondzd2zz__datez00(long, long);
static obj_t BGl__zb2secondzb2zz__datez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2datezd2zz__datez00(int, int, int, int, int, int, obj_t);
BGL_EXPORTED_DECL long BGl_zb2secondzb2zz__datez00(long, long);
static obj_t BGl__secondszd2ze3datez31zz__datez00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__datez00();
BGL_EXPORTED_DECL long BGl_datezd2timeza7onez75zz__datez00(obj_t);
BGL_EXPORTED_DECL int BGl_datezd2hourzd2zz__datez00(obj_t);
BGL_EXPORTED_DECL long BGl_za2secondza2zz__datez00(long, long);
static obj_t BGl__datezd2timeza7onez75zz__datez00(obj_t, obj_t);
static obj_t BGl__secondszd2ze3utczd2stringze3zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_secondszd2ze3utczd2stringze3zz__datez00(long);
BGL_EXPORTED_DECL long BGl_dayzd2secondszd2zz__datez00();
static obj_t BGl__monthzd2namezd2zz__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);
BGL_EXPORTED_DECL obj_t BGl_currentzd2datezd2zz__datez00();
static obj_t BGl__za2second2232za2zz__datez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_datezd2ydayzd2zz__datez00(obj_t);
static obj_t BGl__datezd2ze3utczd2stringze3zz__datez00(obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_secondszd2ze3stringz31zz__datez00(long);
static obj_t BGl_requirezd2initializa7ationz75zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_datezf3zf3zz__datez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_datezd2ze3utczd2stringze3zz__datez00(obj_t);
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
BGL_EXPORTED_DECL int BGl_datezd2monthzd2zz__datez00(obj_t);
extern obj_t bgl_month_name(int);
static obj_t BGl_symbol4511z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4510z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4509z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4508z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4498z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4507z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4497z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4496z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4505z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4495z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4504z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4494z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4503z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4493z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4502z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4492z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4501z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4491z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4490z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4489z00zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_datezd2iszd2dstz00zz__datez00(obj_t);
static obj_t BGl_symbol4488z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4487z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4486z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4485z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4484z00zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_datezd2yearzd2zz__datez00(obj_t);
static obj_t BGl_symbol4483z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4482z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4481z00zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_datezd2wdayzd2zz__datez00(obj_t);
extern obj_t bgl_day_aname(int);
static obj_t BGl_symbol4479z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4480z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4478z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4477z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4476z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4475z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4474z00zz__datez00 = BUNSPEC;
extern obj_t bgl_month_aname(int);
static obj_t BGl_symbol4473z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4472z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4471z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4469z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4470z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4468z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4467z00zz__datez00 = BUNSPEC;
static obj_t BGl__datezd2minutezd2zz__datez00(obj_t, obj_t);
static obj_t BGl_symbol4466z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4465z00zz__datez00 = BUNSPEC;
static obj_t BGl__datezd2secondzd2zz__datez00(obj_t, obj_t);
static obj_t BGl_symbol4464z00zz__datez00 = BUNSPEC;
extern obj_t bgl_day_name(int);
static obj_t BGl__datezd2ze3secondsz31zz__datez00(obj_t, obj_t);
static obj_t BGl_symbol4463z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4462z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4461z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4459z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4460z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4458z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4457z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4456z00zz__datez00 = BUNSPEC;
static obj_t BGl__leapzd2yearzf3z21zz__datez00(obj_t, obj_t);
static obj_t BGl_symbol4455z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4454z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4453z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4452z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4451z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4449z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4450z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4448z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4447z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4445z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4444z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4442z00zz__datez00 = BUNSPEC;
static obj_t BGl__datezd2iszd2dst2245z00zz__datez00(obj_t, obj_t);
static obj_t BGl_symbol4441z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4440z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4435z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol4434z00zz__datez00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_datezd2copyzd2envz00zz__datez00, BgL_bgl__dateza7d2copy2219za7d2za7za7__dateza7004548za7, va_generic_entry, BGl__datezd2copy2219zd2zz__datez00, -2 );
DEFINE_STRING( BGl_string4446z00zz__datez00, BgL_bgl_string4446za700za7za7__dateza7004549z00, "elong", 5 );
DEFINE_STRING( BGl_string4443z00zz__datez00, BgL_bgl_string4443za700za7za7__dateza7004550z00, "date", 4 );
DEFINE_STRING( BGl_string4439z00zz__datez00, BgL_bgl_string4439za700za7za7__dateza7004551z00, "pair", 4 );
DEFINE_STRING( BGl_string4438z00zz__datez00, BgL_bgl_string4438za700za7za7__dateza7004552z00, "int", 3 );
DEFINE_STRING( BGl_string4437z00zz__datez00, BgL_bgl_string4437za700za7za7__dateza7004553z00, "/tmp/bigloo/runtime/./Llib/date.scm", 35 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2ze3secondszd2envze3zz__datez00, BgL_bgl__dateza7d2za7e3secondsza731za7za7__dateza7004554z00, BGl__datezd2ze3secondsz31zz__datez00, 0L, 1 );
DEFINE_STRING( BGl_string4436z00zz__datez00, BgL_bgl_string4436za700za7za7__dateza7004555z00, "long", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_zd2secondzd2envz00zz__datez00, BgL_bgl__za7d2secondza7d2za7za7__dateza7004556za7, BGl__zd2secondzd2zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2wdayzd2envz00zz__datez00, BgL_bgl__dateza7d2wdayza7d2za7za7__dateza7004557za7, BGl__datezd2wdayzd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2monthzd2envz00zz__datez00, BgL_bgl__dateza7d2monthza7d2za7za7__dateza7004558za7, BGl__datezd2monthzd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2iszd2dstzd2envzd2zz__datez00, BgL_bgl__dateza7d2isza7d2dst2245za700za7za7__dateza7004559z00, BGl__datezd2iszd2dst2245z00zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_dayzd2anamezd2envz00zz__datez00, BgL_bgl__dayza7d2anameza7d2za7za7__dateza7004560za7, BGl__dayzd2anamezd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2timeza7onezd2envza7zz__datez00, BgL_bgl__dateza7d2timeza7a7oneza775za7za7__dateza7004561z00, BGl__datezd2timeza7onez75zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_monthzd2namezd2envz00zz__datez00, BgL_bgl__monthza7d2nameza7d2za7za7__dateza7004562za7, BGl__monthzd2namezd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_secondszd2ze3stringzd2envze3zz__datez00, BgL_bgl__secondsza7d2za7e3stringza731za7za7__dateza7004563z00, BGl__secondszd2ze3stringz31zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_monthzd2anamezd2envz00zz__datez00, BgL_bgl__monthza7d2anameza7d2za7za7__dateza7004564za7, BGl__monthzd2anamezd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_za2secondzd2envz70zz__datez00, BgL_bgl__za7a2second2232za7a2za7za7__dateza7004565za7, BGl__za2second2232za2zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2dayzd2envz00zz__datez00, BgL_bgl__dateza7d2dayza7d2za7za7__dateza7004566za7, BGl__datezd2dayzd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_secondszd2ze3utczd2stringzd2envz31zz__datez00, BgL_bgl__secondsza7d2za7e3utcza7d2stringza7e3za7za7__dateza7004567za7, BGl__secondszd2ze3utczd2stringze3zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2ze3utczd2stringzd2envz31zz__datez00, BgL_bgl__dateza7d2za7e3utcza7d2stringza7e3za7za7__dateza7004568za7, BGl__datezd2ze3utczd2stringze3zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_currentzd2secondszd2envz00zz__datez00, BgL_bgl__currentza7d2secondsza7d2za7za7__dateza7004569za7, BGl__currentzd2secondszd2zz__datez00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_integerzd2ze3secondzd2envze3zz__datez00, BgL_bgl__integerza7d2za7e3secondza731za7za7__dateza7004570z00, BGl__integerzd2ze3secondz31zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zb2secondzd2envz60zz__datez00, BgL_bgl__za7b2secondza7b2za7za7__dateza7004571za7, BGl__zb2secondzb2zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_zc3zd3secondzd2envzc2zz__datez00, BgL_bgl__za7c3za7d3second2227za710za7za7__dateza7004572z00, BGl__zc3zd3second2227z10zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_leapzd2yearzf3zd2envzf3zz__datez00, BgL_bgl__leapza7d2yearza7f3za721za7za7__dateza7004573z00, BGl__leapzd2yearzf3z21zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2minutezd2envz00zz__datez00, BgL_bgl__dateza7d2minuteza7d2za7za7__dateza7004574za7, BGl__datezd2minutezd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_dayzd2namezd2envz00zz__datez00, BgL_bgl__dayza7d2nameza7d2za7za7__dateza7004575za7, BGl__dayzd2namezd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezf3zd2envz21zz__datez00, BgL_bgl__dateza7f3za7f3za7za7__dateza7004576za7, BGl__datezf3zf3zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2ydayzd2envz00zz__datez00, BgL_bgl__dateza7d2ydayza7d2za7za7__dateza7004577za7, BGl__datezd2ydayzd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_ze3secondzd2envz31zz__datez00, BgL_bgl__za7e3second2225za7e3za7za7__dateza7004578za7, BGl__ze3second2225ze3zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_zd3secondzd2envz01zz__datez00, BgL_bgl__za7d3second2221za7d3za7za7__dateza7004579za7, BGl__zd3second2221zd3zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_ze3zd3secondzd2envze2zz__datez00, BgL_bgl__za7e3za7d3second2229za730za7za7__dateza7004580z00, BGl__ze3zd3second2229z30zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2hourzd2envz00zz__datez00, BgL_bgl__dateza7d2hourza7d2za7za7__dateza7004581za7, BGl__datezd2hourzd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2ze3stringzd2envze3zz__datez00, BgL_bgl__dateza7d2za7e3stringza731za7za7__dateza7004582z00, BGl__datezd2ze3stringz31zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2secondzd2envz00zz__datez00, BgL_bgl__dateza7d2secondza7d2za7za7__dateza7004583za7, BGl__datezd2secondzd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zc3secondzd2envz11zz__datez00, BgL_bgl__za7c3second2223za7c3za7za7__dateza7004584za7, BGl__zc3second2223zc3zz__datez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_currentzd2datezd2envz00zz__datez00, BgL_bgl__currentza7d2dateza7d2za7za7__dateza7004585za7, BGl__currentzd2datezd2zz__datez00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2yearzd2envz00zz__datez00, BgL_bgl__dateza7d2yearza7d2za7za7__dateza7004586za7, BGl__datezd2yearzd2zz__datez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2datezd2envz00zz__datez00, BgL_bgl__makeza7d2dateza7d2za7za7__dateza7004587za7, va_generic_entry, BGl__makezd2datezd2zz__datez00, -7 );
DEFINE_EXPORT_PROCEDURE( BGl_secondszd2ze3datezd2envze3zz__datez00, BgL_bgl__secondsza7d2za7e3dateza731za7za7__dateza7004588z00, BGl__secondszd2ze3datez31zz__datez00, 0L, 1 );
DEFINE_STRING( BGl_string4499z00zz__datez00, BgL_bgl_string4499za700za7za7__dateza7004589z00, "Illegal day number", 18 );
DEFINE_STRING( BGl_string4506z00zz__datez00, BgL_bgl_string4506za700za7za7__dateza7004590z00, "Illegal month number", 20 );
DEFINE_STRING( BGl_string4500z00zz__datez00, BgL_bgl_string4500za700za7za7__dateza7004591z00, "bstring", 7 );
DEFINE_EXPORT_PROCEDURE( BGl_dayzd2secondszd2envz00zz__datez00, BgL_bgl__dayza7d2secondsza7d2za7za7__dateza7004592za7, BGl__dayzd2secondszd2zz__datez00, 0L, 0 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__datez00(long BgL_checksumz00_2132, char * BgL_fromz00_2133)
{ 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_symbol4434z00zz__datez00 = 
string_to_symbol("date?"); 
BGl_symbol4435z00zz__datez00 = 
string_to_symbol("make-date"); 
BGl_symbol4440z00zz__datez00 = 
string_to_symbol("_make-date"); 
BGl_symbol4441z00zz__datez00 = 
string_to_symbol("date-copy"); 
BGl_symbol4442z00zz__datez00 = 
string_to_symbol("_date-copy2219"); 
BGl_symbol4444z00zz__datez00 = 
string_to_symbol("=second"); 
BGl_symbol4445z00zz__datez00 = 
string_to_symbol("_=second2221"); 
BGl_symbol4447z00zz__datez00 = 
string_to_symbol("<second"); 
BGl_symbol4448z00zz__datez00 = 
string_to_symbol("_<second2223"); 
BGl_symbol4449z00zz__datez00 = 
string_to_symbol(">second"); 
BGl_symbol4450z00zz__datez00 = 
string_to_symbol("_>second2225"); 
BGl_symbol4451z00zz__datez00 = 
string_to_symbol("<=second"); 
BGl_symbol4452z00zz__datez00 = 
string_to_symbol("_<=second2227"); 
BGl_symbol4453z00zz__datez00 = 
string_to_symbol(">=second"); 
BGl_symbol4454z00zz__datez00 = 
string_to_symbol("_>=second2229"); 
BGl_symbol4455z00zz__datez00 = 
string_to_symbol("+second"); 
BGl_symbol4456z00zz__datez00 = 
string_to_symbol("_+second"); 
BGl_symbol4457z00zz__datez00 = 
string_to_symbol("*second"); 
BGl_symbol4458z00zz__datez00 = 
string_to_symbol("_*second2232"); 
BGl_symbol4459z00zz__datez00 = 
string_to_symbol("-second"); 
BGl_symbol4460z00zz__datez00 = 
string_to_symbol("_-second"); 
BGl_symbol4461z00zz__datez00 = 
string_to_symbol("integer->second"); 
BGl_symbol4462z00zz__datez00 = 
string_to_symbol("_integer->second"); 
BGl_symbol4463z00zz__datez00 = 
string_to_symbol("date-second"); 
BGl_symbol4464z00zz__datez00 = 
string_to_symbol("_date-second"); 
BGl_symbol4465z00zz__datez00 = 
string_to_symbol("date-minute"); 
BGl_symbol4466z00zz__datez00 = 
string_to_symbol("_date-minute"); 
BGl_symbol4467z00zz__datez00 = 
string_to_symbol("date-hour"); 
BGl_symbol4468z00zz__datez00 = 
string_to_symbol("_date-hour"); 
BGl_symbol4469z00zz__datez00 = 
string_to_symbol("date-day"); 
BGl_symbol4470z00zz__datez00 = 
string_to_symbol("_date-day"); 
BGl_symbol4471z00zz__datez00 = 
string_to_symbol("date-wday"); 
BGl_symbol4472z00zz__datez00 = 
string_to_symbol("_date-wday"); 
BGl_symbol4473z00zz__datez00 = 
string_to_symbol("date-yday"); 
BGl_symbol4474z00zz__datez00 = 
string_to_symbol("_date-yday"); 
BGl_symbol4475z00zz__datez00 = 
string_to_symbol("date-month"); 
BGl_symbol4476z00zz__datez00 = 
string_to_symbol("_date-month"); 
BGl_symbol4477z00zz__datez00 = 
string_to_symbol("date-year"); 
BGl_symbol4478z00zz__datez00 = 
string_to_symbol("_date-year"); 
BGl_symbol4479z00zz__datez00 = 
string_to_symbol("date-timezone"); 
BGl_symbol4480z00zz__datez00 = 
string_to_symbol("_date-timezone"); 
BGl_symbol4481z00zz__datez00 = 
string_to_symbol("date-is-dst"); 
BGl_symbol4482z00zz__datez00 = 
string_to_symbol("_date-is-dst2245"); 
BGl_symbol4483z00zz__datez00 = 
string_to_symbol("current-seconds"); 
BGl_symbol4484z00zz__datez00 = 
string_to_symbol("current-date"); 
BGl_symbol4485z00zz__datez00 = 
string_to_symbol("seconds->date"); 
BGl_symbol4486z00zz__datez00 = 
string_to_symbol("_seconds->date"); 
BGl_symbol4487z00zz__datez00 = 
string_to_symbol("date->seconds"); 
BGl_symbol4488z00zz__datez00 = 
string_to_symbol("_date->seconds"); 
BGl_symbol4489z00zz__datez00 = 
string_to_symbol("date->string"); 
BGl_symbol4490z00zz__datez00 = 
string_to_symbol("_date->string"); 
BGl_symbol4491z00zz__datez00 = 
string_to_symbol("date->utc-string"); 
BGl_symbol4492z00zz__datez00 = 
string_to_symbol("_date->utc-string"); 
BGl_symbol4493z00zz__datez00 = 
string_to_symbol("seconds->string"); 
BGl_symbol4494z00zz__datez00 = 
string_to_symbol("_seconds->string"); 
BGl_symbol4495z00zz__datez00 = 
string_to_symbol("seconds->utc-string"); 
BGl_symbol4496z00zz__datez00 = 
string_to_symbol("_seconds->utc-string"); 
BGl_symbol4497z00zz__datez00 = 
string_to_symbol("day-seconds"); 
BGl_symbol4498z00zz__datez00 = 
string_to_symbol("day-name"); 
BGl_symbol4501z00zz__datez00 = 
string_to_symbol("_day-name"); 
BGl_symbol4502z00zz__datez00 = 
string_to_symbol("day-aname"); 
BGl_symbol4503z00zz__datez00 = 
string_to_symbol("_day-aname"); 
BGl_symbol4504z00zz__datez00 = 
string_to_symbol("month-name"); 
BGl_symbol4505z00zz__datez00 = 
string_to_symbol("month-aname"); 
BGl_symbol4507z00zz__datez00 = 
string_to_symbol("_month-name"); 
BGl_symbol4508z00zz__datez00 = 
string_to_symbol("_month-aname"); 
BGl_symbol4509z00zz__datez00 = 
string_to_symbol("leap-year?"); 
BGl_symbol4510z00zz__datez00 = 
string_to_symbol("_leap-year?"); 
return ( 
BGl_symbol4511z00zz__datez00 = 
string_to_symbol("%import@__date"), BUNSPEC) ;} 
}



/* date? */
BGL_EXPORTED_DEF bool_t BGl_datezf3zf3zz__datez00(obj_t BgL_objz00_1)
{ AN_OBJECT;
{ /* ./Llib/date.scm 178 */
{ /* ./Llib/date.scm 179 */
obj_t BgL_symbol2066z00_1879;
BgL_symbol2066z00_1879 = BGl_symbol4434z00zz__datez00; 
{ /* ./Llib/date.scm 179 */

PUSH_TRACE(BgL_symbol2066z00_1879); BUNSPEC; 
{ /* ./Llib/date.scm 179 */
bool_t BgL_aux2065z00_1880;
BgL_aux2065z00_1880 = 
BGL_DATEP(BgL_objz00_1); 
POP_TRACE(); 
return BgL_aux2065z00_1880;} } } } 
}



/* _date? */
obj_t BGl__datezf3zf3zz__datez00(obj_t BgL_envz00_1397, obj_t BgL_objz00_1398)
{ AN_OBJECT;
{ /* ./Llib/date.scm 178 */
{ /* ./Llib/date.scm 179 */
bool_t BgL_auxz00_2211;
{ /* ./Llib/date.scm 179 */
bool_t BgL_res4512z00_1884;
{ /* ./Llib/date.scm 179 */
obj_t BgL_symbol2066z00_1882;
BgL_symbol2066z00_1882 = BGl_symbol4434z00zz__datez00; 
{ /* ./Llib/date.scm 179 */

PUSH_TRACE(BgL_symbol2066z00_1882); BUNSPEC; 
{ /* ./Llib/date.scm 179 */
bool_t BgL_aux2065z00_1883;
BgL_aux2065z00_1883 = 
BGL_DATEP(BgL_objz00_1398); 
POP_TRACE(); 
BgL_res4512z00_1884 = BgL_aux2065z00_1883; } } } 
BgL_auxz00_2211 = BgL_res4512z00_1884; } 
return 
BBOOL(BgL_auxz00_2211);} } 
}



/* 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 */
{ /* ./Llib/date.scm 185 */
obj_t BgL_symbol2070z00_1885;
BgL_symbol2070z00_1885 = BGl_symbol4435z00zz__datez00; 
{ /* ./Llib/date.scm 185 */

PUSH_TRACE(BgL_symbol2070z00_1885); BUNSPEC; 
{ /* ./Llib/date.scm 185 */
obj_t BgL_aux2069z00_1886;
{ 
obj_t BgL_tza7za7_1892;obj_t BgL_tza7za7_1890;obj_t BgL_dstz00_1891;
{ /* ./Llib/date.scm 185 */
bool_t BgL_test1007z00_1893;
BgL_test1007z00_1893 = 
PAIRP(BgL_optz00_8); 
if(BgL_test1007z00_1893)
{ /* ./Llib/date.scm 185 */
obj_t BgL_cdrzd2110zd2_1894;
{ /* ./Llib/date.scm 185 */
obj_t BgL_pairz00_1895;
if(BgL_test1007z00_1893)
{ /* ./Llib/date.scm 185 */
BgL_pairz00_1895 = BgL_optz00_8; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4439z00zz__datez00, BgL_optz00_8, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_cdrzd2110zd2_1894 = 
CDR(BgL_pairz00_1895); } 
{ /* ./Llib/date.scm 185 */
bool_t BgL_test1008z00_1896;
BgL_test1008z00_1896 = 
PAIRP(BgL_cdrzd2110zd2_1894); 
if(BgL_test1008z00_1896)
{ /* ./Llib/date.scm 185 */
bool_t BgL_test1009z00_1897;
{ /* ./Llib/date.scm 185 */
obj_t BgL_arg1018z00_1898;
{ /* ./Llib/date.scm 185 */
obj_t BgL_pairz00_1899;
if(BgL_test1008z00_1896)
{ /* ./Llib/date.scm 185 */
BgL_pairz00_1899 = BgL_cdrzd2110zd2_1894; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_1894, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_arg1018z00_1898 = 
CDR(BgL_pairz00_1899); } 
BgL_test1009z00_1897 = 
NULLP(BgL_arg1018z00_1898); } 
if(BgL_test1009z00_1897)
{ /* ./Llib/date.scm 185 */
obj_t BgL_arg1011z00_1900;obj_t BgL_arg1012z00_1901;
{ /* ./Llib/date.scm 185 */
obj_t BgL_pairz00_1902;
if(
PAIRP(BgL_optz00_8))
{ /* ./Llib/date.scm 185 */
BgL_pairz00_1902 = BgL_optz00_8; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4439z00zz__datez00, BgL_optz00_8, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_arg1011z00_1900 = 
CAR(BgL_pairz00_1902); } 
{ /* ./Llib/date.scm 185 */
obj_t BgL_pairz00_1903;
if(
PAIRP(BgL_cdrzd2110zd2_1894))
{ /* ./Llib/date.scm 185 */
BgL_pairz00_1903 = BgL_cdrzd2110zd2_1894; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_1894, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_arg1012z00_1901 = 
CAR(BgL_pairz00_1903); } 
BgL_tza7za7_1890 = BgL_arg1011z00_1900; 
BgL_dstz00_1891 = BgL_arg1012z00_1901; 
{ /* ./Llib/date.scm 185 */
int BgL_auxz00_2253;long BgL_auxz00_2245;
{ /* ./Llib/date.scm 185 */
obj_t BgL_auxz00_2254;
if(
INTEGERP(BgL_dstz00_1891))
{ /* ./Llib/date.scm 185 */
BgL_auxz00_2254 = BgL_dstz00_1891
; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4438z00zz__datez00, BgL_dstz00_1891, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_auxz00_2253 = 
CINT(BgL_auxz00_2254); } 
{ /* ./Llib/date.scm 185 */
obj_t BgL_auxz00_2246;
if(
INTEGERP(BgL_tza7za7_1890))
{ /* ./Llib/date.scm 185 */
BgL_auxz00_2246 = BgL_tza7za7_1890
; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_1890, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_auxz00_2245 = 
(long)CINT(BgL_auxz00_2246); } 
BgL_aux2069z00_1886 = 
bgl_make_date(BgL_sz00_2, BgL_minz00_3, BgL_hz00_4, BgL_dz00_5, BgL_monz00_6, BgL_yz00_7, BgL_auxz00_2245, BgL_auxz00_2253); } }  else 
{ /* ./Llib/date.scm 185 */
BgL_tagzd2103zd2_1889:
{ /* ./Llib/date.scm 185 */
int BgL_auxz00_2262;
BgL_auxz00_2262 = 
(int)(((long)-1)); 
BgL_aux2069z00_1886 = 
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_2262); } } }  else 
{ /* ./Llib/date.scm 185 */
bool_t BgL_test1021z00_1904;
{ /* ./Llib/date.scm 185 */
obj_t BgL_arg1028z00_1905;
{ /* ./Llib/date.scm 185 */
obj_t BgL_pairz00_1906;
if(
PAIRP(BgL_optz00_8))
{ /* ./Llib/date.scm 185 */
BgL_pairz00_1906 = BgL_optz00_8; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4439z00zz__datez00, BgL_optz00_8, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_arg1028z00_1905 = 
CDR(BgL_pairz00_1906); } 
BgL_test1021z00_1904 = 
NULLP(BgL_arg1028z00_1905); } 
if(BgL_test1021z00_1904)
{ /* ./Llib/date.scm 185 */
obj_t BgL_arg1023z00_1907;
{ /* ./Llib/date.scm 185 */
obj_t BgL_pairz00_1908;
if(
PAIRP(BgL_optz00_8))
{ /* ./Llib/date.scm 185 */
BgL_pairz00_1908 = BgL_optz00_8; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4439z00zz__datez00, BgL_optz00_8, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_arg1023z00_1907 = 
CAR(BgL_pairz00_1908); } 
BgL_tza7za7_1892 = BgL_arg1023z00_1907; 
{ /* ./Llib/date.scm 185 */
int BgL_auxz00_2287;long BgL_auxz00_2279;
BgL_auxz00_2287 = 
(int)(((long)-1)); 
{ /* ./Llib/date.scm 185 */
obj_t BgL_auxz00_2280;
if(
INTEGERP(BgL_tza7za7_1892))
{ /* ./Llib/date.scm 185 */
BgL_auxz00_2280 = BgL_tza7za7_1892
; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_1892, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_auxz00_2279 = 
(long)CINT(BgL_auxz00_2280); } 
BgL_aux2069z00_1886 = 
bgl_make_date(BgL_sz00_2, BgL_minz00_3, BgL_hz00_4, BgL_dz00_5, BgL_monz00_6, BgL_yz00_7, BgL_auxz00_2279, BgL_auxz00_2287); } }  else 
{ /* ./Llib/date.scm 185 */
goto BgL_tagzd2103zd2_1889;} } } }  else 
{ /* ./Llib/date.scm 185 */
goto BgL_tagzd2103zd2_1889;} } } 
POP_TRACE(); 
return BgL_aux2069z00_1886;} } } } 
}



/* _make-date */
obj_t BGl__makezd2datezd2zz__datez00(obj_t BgL_envz00_1399, obj_t BgL_sz00_1400, obj_t BgL_minz00_1401, obj_t BgL_hz00_1402, obj_t BgL_dz00_1403, obj_t BgL_monz00_1404, obj_t BgL_yz00_1405, obj_t BgL_optz00_1406)
{ AN_OBJECT;
{ /* ./Llib/date.scm 184 */
{ /* ./Llib/date.scm 185 */
obj_t BgL_res4513z00_1940;
{ /* ./Llib/date.scm 185 */
int BgL_sz00_1909;int BgL_minz00_1910;int BgL_hz00_1911;int BgL_dz00_1912;int BgL_monz00_1913;int BgL_yz00_1914;
{ /* ./Llib/date.scm 185 */
obj_t BgL_auxz00_2291;
if(
INTEGERP(BgL_sz00_1400))
{ /* ./Llib/date.scm 185 */
BgL_auxz00_2291 = BgL_sz00_1400
; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4440z00zz__datez00, BGl_string4438z00zz__datez00, BgL_sz00_1400, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_sz00_1909 = 
CINT(BgL_auxz00_2291); } 
{ /* ./Llib/date.scm 185 */
obj_t BgL_auxz00_2298;
if(
INTEGERP(BgL_minz00_1401))
{ /* ./Llib/date.scm 185 */
BgL_auxz00_2298 = BgL_minz00_1401
; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4440z00zz__datez00, BGl_string4438z00zz__datez00, BgL_minz00_1401, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_minz00_1910 = 
CINT(BgL_auxz00_2298); } 
{ /* ./Llib/date.scm 185 */
obj_t BgL_auxz00_2305;
if(
INTEGERP(BgL_hz00_1402))
{ /* ./Llib/date.scm 185 */
BgL_auxz00_2305 = BgL_hz00_1402
; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4440z00zz__datez00, BGl_string4438z00zz__datez00, BgL_hz00_1402, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_hz00_1911 = 
CINT(BgL_auxz00_2305); } 
{ /* ./Llib/date.scm 185 */
obj_t BgL_auxz00_2312;
if(
INTEGERP(BgL_dz00_1403))
{ /* ./Llib/date.scm 185 */
BgL_auxz00_2312 = BgL_dz00_1403
; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4440z00zz__datez00, BGl_string4438z00zz__datez00, BgL_dz00_1403, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_dz00_1912 = 
CINT(BgL_auxz00_2312); } 
{ /* ./Llib/date.scm 185 */
obj_t BgL_auxz00_2319;
if(
INTEGERP(BgL_monz00_1404))
{ /* ./Llib/date.scm 185 */
BgL_auxz00_2319 = BgL_monz00_1404
; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4440z00zz__datez00, BGl_string4438z00zz__datez00, BgL_monz00_1404, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_monz00_1913 = 
CINT(BgL_auxz00_2319); } 
{ /* ./Llib/date.scm 185 */
obj_t BgL_auxz00_2326;
if(
INTEGERP(BgL_yz00_1405))
{ /* ./Llib/date.scm 185 */
BgL_auxz00_2326 = BgL_yz00_1405
; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4440z00zz__datez00, BGl_string4438z00zz__datez00, BgL_yz00_1405, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_yz00_1914 = 
CINT(BgL_auxz00_2326); } 
{ /* ./Llib/date.scm 185 */
obj_t BgL_symbol2070z00_1916;
BgL_symbol2070z00_1916 = BGl_symbol4435z00zz__datez00; 
{ /* ./Llib/date.scm 185 */

PUSH_TRACE(BgL_symbol2070z00_1916); BUNSPEC; 
{ /* ./Llib/date.scm 185 */
obj_t BgL_aux2069z00_1917;
{ 
obj_t BgL_tza7za7_1923;obj_t BgL_tza7za7_1921;obj_t BgL_dstz00_1922;
{ /* ./Llib/date.scm 185 */
bool_t BgL_test1007z00_1924;
BgL_test1007z00_1924 = 
PAIRP(BgL_optz00_1406); 
if(BgL_test1007z00_1924)
{ /* ./Llib/date.scm 185 */
obj_t BgL_cdrzd2110zd2_1925;
{ /* ./Llib/date.scm 185 */
obj_t BgL_pairz00_1926;
if(BgL_test1007z00_1924)
{ /* ./Llib/date.scm 185 */
BgL_pairz00_1926 = BgL_optz00_1406; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4439z00zz__datez00, BgL_optz00_1406, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_cdrzd2110zd2_1925 = 
CDR(BgL_pairz00_1926); } 
{ /* ./Llib/date.scm 185 */
bool_t BgL_test1008z00_1927;
BgL_test1008z00_1927 = 
PAIRP(BgL_cdrzd2110zd2_1925); 
if(BgL_test1008z00_1927)
{ /* ./Llib/date.scm 185 */
bool_t BgL_test1009z00_1928;
{ /* ./Llib/date.scm 185 */
obj_t BgL_arg1018z00_1929;
{ /* ./Llib/date.scm 185 */
obj_t BgL_pairz00_1930;
if(BgL_test1008z00_1927)
{ /* ./Llib/date.scm 185 */
BgL_pairz00_1930 = BgL_cdrzd2110zd2_1925; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_1925, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_arg1018z00_1929 = 
CDR(BgL_pairz00_1930); } 
BgL_test1009z00_1928 = 
NULLP(BgL_arg1018z00_1929); } 
if(BgL_test1009z00_1928)
{ /* ./Llib/date.scm 185 */
obj_t BgL_arg1011z00_1931;obj_t BgL_arg1012z00_1932;
{ /* ./Llib/date.scm 185 */
obj_t BgL_pairz00_1933;
if(
PAIRP(BgL_optz00_1406))
{ /* ./Llib/date.scm 185 */
BgL_pairz00_1933 = BgL_optz00_1406; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4439z00zz__datez00, BgL_optz00_1406, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_arg1011z00_1931 = 
CAR(BgL_pairz00_1933); } 
{ /* ./Llib/date.scm 185 */
obj_t BgL_pairz00_1934;
if(
PAIRP(BgL_cdrzd2110zd2_1925))
{ /* ./Llib/date.scm 185 */
BgL_pairz00_1934 = BgL_cdrzd2110zd2_1925; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_1925, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_arg1012z00_1932 = 
CAR(BgL_pairz00_1934); } 
BgL_tza7za7_1921 = BgL_arg1011z00_1931; 
BgL_dstz00_1922 = BgL_arg1012z00_1932; 
{ /* ./Llib/date.scm 185 */
int BgL_auxz00_2370;long BgL_auxz00_2362;
{ /* ./Llib/date.scm 185 */
obj_t BgL_auxz00_2371;
if(
INTEGERP(BgL_dstz00_1922))
{ /* ./Llib/date.scm 185 */
BgL_auxz00_2371 = BgL_dstz00_1922
; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4438z00zz__datez00, BgL_dstz00_1922, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_auxz00_2370 = 
CINT(BgL_auxz00_2371); } 
{ /* ./Llib/date.scm 185 */
obj_t BgL_auxz00_2363;
if(
INTEGERP(BgL_tza7za7_1921))
{ /* ./Llib/date.scm 185 */
BgL_auxz00_2363 = BgL_tza7za7_1921
; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_1921, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_auxz00_2362 = 
(long)CINT(BgL_auxz00_2363); } 
BgL_aux2069z00_1917 = 
bgl_make_date(BgL_sz00_1909, BgL_minz00_1910, BgL_hz00_1911, BgL_dz00_1912, BgL_monz00_1913, BgL_yz00_1914, BgL_auxz00_2362, BgL_auxz00_2370); } }  else 
{ /* ./Llib/date.scm 185 */
BgL_tagzd2103zd2_1920:
{ /* ./Llib/date.scm 185 */
int BgL_auxz00_2379;
BgL_auxz00_2379 = 
(int)(((long)-1)); 
BgL_aux2069z00_1917 = 
bgl_make_date(BgL_sz00_1909, BgL_minz00_1910, BgL_hz00_1911, BgL_dz00_1912, BgL_monz00_1913, BgL_yz00_1914, ((long)0), BgL_auxz00_2379); } } }  else 
{ /* ./Llib/date.scm 185 */
bool_t BgL_test1021z00_1935;
{ /* ./Llib/date.scm 185 */
obj_t BgL_arg1028z00_1936;
{ /* ./Llib/date.scm 185 */
obj_t BgL_pairz00_1937;
if(
PAIRP(BgL_optz00_1406))
{ /* ./Llib/date.scm 185 */
BgL_pairz00_1937 = BgL_optz00_1406; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4439z00zz__datez00, BgL_optz00_1406, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_arg1028z00_1936 = 
CDR(BgL_pairz00_1937); } 
BgL_test1021z00_1935 = 
NULLP(BgL_arg1028z00_1936); } 
if(BgL_test1021z00_1935)
{ /* ./Llib/date.scm 185 */
obj_t BgL_arg1023z00_1938;
{ /* ./Llib/date.scm 185 */
obj_t BgL_pairz00_1939;
if(
PAIRP(BgL_optz00_1406))
{ /* ./Llib/date.scm 185 */
BgL_pairz00_1939 = BgL_optz00_1406; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4439z00zz__datez00, BgL_optz00_1406, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_arg1023z00_1938 = 
CAR(BgL_pairz00_1939); } 
BgL_tza7za7_1923 = BgL_arg1023z00_1938; 
{ /* ./Llib/date.scm 185 */
int BgL_auxz00_2404;long BgL_auxz00_2396;
BgL_auxz00_2404 = 
(int)(((long)-1)); 
{ /* ./Llib/date.scm 185 */
obj_t BgL_auxz00_2397;
if(
INTEGERP(BgL_tza7za7_1923))
{ /* ./Llib/date.scm 185 */
BgL_auxz00_2397 = BgL_tza7za7_1923
; }  else 
{ /* ./Llib/date.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4435z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_1923, BGl_string4437z00zz__datez00, 
BINT(((long)8696))); 
exit( -1 );} 
BgL_auxz00_2396 = 
(long)CINT(BgL_auxz00_2397); } 
BgL_aux2069z00_1917 = 
bgl_make_date(BgL_sz00_1909, BgL_minz00_1910, BgL_hz00_1911, BgL_dz00_1912, BgL_monz00_1913, BgL_yz00_1914, BgL_auxz00_2396, BgL_auxz00_2404); } }  else 
{ /* ./Llib/date.scm 185 */
goto BgL_tagzd2103zd2_1920;} } } }  else 
{ /* ./Llib/date.scm 185 */
goto BgL_tagzd2103zd2_1920;} } } 
POP_TRACE(); 
BgL_res4513z00_1940 = BgL_aux2069z00_1917; } } } } 
return BgL_res4513z00_1940;} } 
}



/* 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 */
{ /* ./Llib/date.scm 197 */
obj_t BgL_symbol2074z00_1327;
BgL_symbol2074z00_1327 = BGl_symbol4441z00zz__datez00; 
{ /* ./Llib/date.scm 197 */

PUSH_TRACE(BgL_symbol2074z00_1327); BUNSPEC; 
{ /* ./Llib/date.scm 197 */
obj_t BgL_aux2073z00_1328;
{ 
obj_t BgL_sz00_423;obj_t BgL_sz00_420;obj_t BgL_mz00_421;obj_t BgL_sz00_416;obj_t BgL_mz00_417;obj_t BgL_hz00_418;
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1038z00_427;
BgL_test1038z00_427 = 
PAIRP(BgL_objz00_10); 
if(BgL_test1038z00_427)
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2147zd2_428;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_741;
if(BgL_test1038z00_427)
{ /* ./Llib/date.scm 197 */
BgL_pairz00_741 = BgL_objz00_10; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_objz00_10, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2147zd2_428 = 
CDR(BgL_pairz00_741); } 
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1039z00_429;
BgL_test1039z00_429 = 
PAIRP(BgL_cdrzd2147zd2_428); 
if(BgL_test1039z00_429)
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2154zd2_430;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_743;
if(BgL_test1039z00_429)
{ /* ./Llib/date.scm 197 */
BgL_pairz00_743 = BgL_cdrzd2147zd2_428; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2147zd2_428, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2154zd2_430 = 
CDR(BgL_pairz00_743); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_mz00_431;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_744;
if(
PAIRP(BgL_cdrzd2147zd2_428))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_744 = BgL_cdrzd2147zd2_428; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2147zd2_428, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_mz00_431 = 
CAR(BgL_pairz00_744); } 
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1040z00_432;
BgL_test1040z00_432 = 
PAIRP(BgL_cdrzd2154zd2_430); 
if(BgL_test1040z00_432)
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2161zd2_433;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_746;
if(BgL_test1040z00_432)
{ /* ./Llib/date.scm 197 */
BgL_pairz00_746 = BgL_cdrzd2154zd2_430; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2154zd2_430, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2161zd2_433 = 
CDR(BgL_pairz00_746); } 
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1041z00_434;
BgL_test1041z00_434 = 
PAIRP(BgL_cdrzd2161zd2_433); 
if(BgL_test1041z00_434)
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2167zd2_435;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_748;
if(BgL_test1041z00_434)
{ /* ./Llib/date.scm 197 */
BgL_pairz00_748 = BgL_cdrzd2161zd2_433; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2161zd2_433, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2167zd2_435 = 
CDR(BgL_pairz00_748); } 
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1042z00_436;
BgL_test1042z00_436 = 
PAIRP(BgL_cdrzd2167zd2_435); 
if(BgL_test1042z00_436)
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2172zd2_437;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_750;
if(BgL_test1042z00_436)
{ /* ./Llib/date.scm 197 */
BgL_pairz00_750 = BgL_cdrzd2167zd2_435; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2167zd2_435, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2172zd2_437 = 
CDR(BgL_pairz00_750); } 
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1043z00_438;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1114z00_470;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_751;
if(
PAIRP(BgL_cdrzd2167zd2_435))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_751 = BgL_cdrzd2167zd2_435; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2167zd2_435, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1114z00_470 = 
CAR(BgL_pairz00_751); } 
BgL_test1043z00_438 = 
(BgL_mz00_431==BgL_arg1114z00_470); } 
if(BgL_test1043z00_438)
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1044z00_439;
BgL_test1044z00_439 = 
PAIRP(BgL_cdrzd2172zd2_437); 
if(BgL_test1044z00_439)
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1045z00_440;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1058z00_445;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_753;
if(BgL_test1044z00_439)
{ /* ./Llib/date.scm 197 */
BgL_pairz00_753 = BgL_cdrzd2172zd2_437; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2172zd2_437, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1058z00_445 = 
CDR(BgL_pairz00_753); } 
BgL_test1045z00_440 = 
NULLP(BgL_arg1058z00_445); } 
if(BgL_test1045z00_440)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1047z00_441;obj_t BgL_arg1048z00_442;obj_t BgL_arg1049z00_443;obj_t BgL_arg1050z00_444;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_755;
if(
PAIRP(BgL_objz00_10))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_755 = BgL_objz00_10; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_objz00_10, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1047z00_441 = 
CAR(BgL_pairz00_755); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_756;
if(
PAIRP(BgL_cdrzd2154zd2_430))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_756 = BgL_cdrzd2154zd2_430; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2154zd2_430, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1048z00_442 = 
CAR(BgL_pairz00_756); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_757;
if(
PAIRP(BgL_cdrzd2161zd2_433))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_757 = BgL_cdrzd2161zd2_433; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2161zd2_433, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1049z00_443 = 
CAR(BgL_pairz00_757); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_758;
if(
PAIRP(BgL_cdrzd2172zd2_437))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_758 = BgL_cdrzd2172zd2_437; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2172zd2_437, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1050z00_444 = 
CAR(BgL_pairz00_758); } 
{ /* ./Llib/date.scm 197 */
long BgL_arg1191z00_764;int BgL_arg1192z00_765;
BgL_arg1191z00_764 = 
BGL_DATE_TIMEZONE(BgL_datez00_9); 
BgL_arg1192z00_765 = 
BGL_DATE_ISDST(BgL_datez00_9); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_list1194z00_766;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1196z00_767;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2493;
BgL_auxz00_2493 = 
BINT(BgL_arg1192z00_765); 
BgL_arg1196z00_767 = 
MAKE_PAIR(BgL_auxz00_2493, BNIL); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2496;
BgL_auxz00_2496 = 
BINT(BgL_arg1191z00_764); 
BgL_list1194z00_766 = 
MAKE_PAIR(BgL_auxz00_2496, BgL_arg1196z00_767); } } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_res2055z00_804;
{ /* ./Llib/date.scm 197 */
int BgL_sz00_770;int BgL_minz00_771;int BgL_hz00_772;int BgL_dz00_773;int BgL_monz00_774;int BgL_yz00_775;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2499;
if(
INTEGERP(BgL_arg1047z00_441))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2499 = BgL_arg1047z00_441
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_arg1047z00_441, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_sz00_770 = 
CINT(BgL_auxz00_2499); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2506;
if(
INTEGERP(BgL_mz00_431))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2506 = BgL_mz00_431
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_mz00_431, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_minz00_771 = 
CINT(BgL_auxz00_2506); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2513;
if(
INTEGERP(BgL_arg1048z00_442))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2513 = BgL_arg1048z00_442
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_arg1048z00_442, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_hz00_772 = 
CINT(BgL_auxz00_2513); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2520;
if(
INTEGERP(BgL_arg1049z00_443))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2520 = BgL_arg1049z00_443
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_arg1049z00_443, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_dz00_773 = 
CINT(BgL_auxz00_2520); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2527;
if(
INTEGERP(BgL_mz00_431))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2527 = BgL_mz00_431
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_mz00_431, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_monz00_774 = 
CINT(BgL_auxz00_2527); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2534;
if(
INTEGERP(BgL_arg1050z00_444))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2534 = BgL_arg1050z00_444
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_arg1050z00_444, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_yz00_775 = 
CINT(BgL_auxz00_2534); } 
{ 
obj_t BgL_tza7za7_782;obj_t BgL_tza7za7_780;obj_t BgL_dstz00_781;
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2110zd2_785;
BgL_cdrzd2110zd2_785 = 
CDR(BgL_list1194z00_766); 
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1008z00_786;
BgL_test1008z00_786 = 
PAIRP(BgL_cdrzd2110zd2_785); 
if(BgL_test1008z00_786)
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1009z00_787;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1018z00_788;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_797;
if(BgL_test1008z00_786)
{ /* ./Llib/date.scm 197 */
BgL_pairz00_797 = BgL_cdrzd2110zd2_785; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_785, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1018z00_788 = 
CDR(BgL_pairz00_797); } 
BgL_test1009z00_787 = 
NULLP(BgL_arg1018z00_788); } 
if(BgL_test1009z00_787)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1011z00_789;obj_t BgL_arg1012z00_790;
BgL_arg1011z00_789 = 
CAR(BgL_list1194z00_766); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_800;
if(
PAIRP(BgL_cdrzd2110zd2_785))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_800 = BgL_cdrzd2110zd2_785; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_785, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1012z00_790 = 
CAR(BgL_pairz00_800); } 
BgL_tza7za7_780 = BgL_arg1011z00_789; 
BgL_dstz00_781 = BgL_arg1012z00_790; 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_2566;long BgL_auxz00_2558;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2567;
if(
INTEGERP(BgL_dstz00_781))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2567 = BgL_dstz00_781
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_dstz00_781, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_auxz00_2566 = 
CINT(BgL_auxz00_2567); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2559;
if(
INTEGERP(BgL_tza7za7_780))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2559 = BgL_tza7za7_780
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_780, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_auxz00_2558 = 
(long)CINT(BgL_auxz00_2559); } 
BgL_res2055z00_804 = 
bgl_make_date(BgL_sz00_770, BgL_minz00_771, BgL_hz00_772, BgL_dz00_773, BgL_monz00_774, BgL_yz00_775, BgL_auxz00_2558, BgL_auxz00_2566); } }  else 
{ /* ./Llib/date.scm 197 */
BgL_tagzd2103zd2_779:
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_2575;
BgL_auxz00_2575 = 
(int)(((long)-1)); 
BgL_res2055z00_804 = 
bgl_make_date(BgL_sz00_770, BgL_minz00_771, BgL_hz00_772, BgL_dz00_773, BgL_monz00_774, BgL_yz00_775, ((long)0), BgL_auxz00_2575); } } }  else 
{ /* ./Llib/date.scm 197 */
if(
NULLP(BgL_cdrzd2110zd2_785))
{ /* ./Llib/date.scm 197 */
BgL_tza7za7_782 = 
CAR(BgL_list1194z00_766); 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_2588;long BgL_auxz00_2580;
BgL_auxz00_2588 = 
(int)(((long)-1)); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2581;
if(
INTEGERP(BgL_tza7za7_782))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2581 = BgL_tza7za7_782
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_782, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_auxz00_2580 = 
(long)CINT(BgL_auxz00_2581); } 
BgL_res2055z00_804 = 
bgl_make_date(BgL_sz00_770, BgL_minz00_771, BgL_hz00_772, BgL_dz00_773, BgL_monz00_774, BgL_yz00_775, BgL_auxz00_2580, BgL_auxz00_2588); } }  else 
{ /* ./Llib/date.scm 197 */
goto BgL_tagzd2103zd2_779;} } } } } } 
BgL_aux2073z00_1328 = BgL_res2055z00_804; } } } }  else 
{ /* ./Llib/date.scm 197 */
BgL_aux2073z00_1328 = BgL_datez00_9; } }  else 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2233zd2_446;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_805;
if(
PAIRP(BgL_objz00_10))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_805 = BgL_objz00_10; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_objz00_10, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2233zd2_446 = 
CDR(BgL_pairz00_805); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2243zd2_447;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_806;
if(
PAIRP(BgL_cdrzd2233zd2_446))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_806 = BgL_cdrzd2233zd2_446; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2233zd2_446, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2243zd2_447 = 
CDR(BgL_pairz00_806); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_mz00_448;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_807;
if(
PAIRP(BgL_cdrzd2233zd2_446))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_807 = BgL_cdrzd2233zd2_446; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2233zd2_446, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_mz00_448 = 
CAR(BgL_pairz00_807); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2253zd2_449;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_808;
if(
PAIRP(BgL_cdrzd2243zd2_447))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_808 = BgL_cdrzd2243zd2_447; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2243zd2_447, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2253zd2_449 = 
CDR(BgL_pairz00_808); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2261zd2_450;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_809;
if(
PAIRP(BgL_cdrzd2253zd2_449))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_809 = BgL_cdrzd2253zd2_449; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2253zd2_449, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2261zd2_450 = 
CDR(BgL_pairz00_809); } 
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1061z00_451;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1079z00_457;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_810;
if(
PAIRP(BgL_cdrzd2261zd2_450))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_810 = BgL_cdrzd2261zd2_450; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2261zd2_450, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1079z00_457 = 
CAR(BgL_pairz00_810); } 
BgL_test1061z00_451 = 
(BgL_mz00_448==BgL_arg1079z00_457); } 
if(BgL_test1061z00_451)
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1062z00_452;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1073z00_456;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_811;
if(
PAIRP(BgL_cdrzd2261zd2_450))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_811 = BgL_cdrzd2261zd2_450; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2261zd2_450, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1073z00_456 = 
CDR(BgL_pairz00_811); } 
BgL_test1062z00_452 = 
NULLP(BgL_arg1073z00_456); } 
if(BgL_test1062z00_452)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1064z00_453;obj_t BgL_arg1065z00_454;obj_t BgL_arg1066z00_455;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_813;
if(
PAIRP(BgL_objz00_10))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_813 = BgL_objz00_10; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_objz00_10, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1064z00_453 = 
CAR(BgL_pairz00_813); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_814;
if(
PAIRP(BgL_cdrzd2243zd2_447))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_814 = BgL_cdrzd2243zd2_447; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2243zd2_447, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1065z00_454 = 
CAR(BgL_pairz00_814); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_815;
if(
PAIRP(BgL_cdrzd2253zd2_449))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_815 = BgL_cdrzd2253zd2_449; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2253zd2_449, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1066z00_455 = 
CAR(BgL_pairz00_815); } 
{ /* ./Llib/date.scm 197 */
int BgL_arg1202z00_820;long BgL_arg1203z00_821;int BgL_arg1204z00_822;
BgL_arg1202z00_820 = 
BGL_DATE_YEAR(BgL_datez00_9); 
BgL_arg1203z00_821 = 
BGL_DATE_TIMEZONE(BgL_datez00_9); 
BgL_arg1204z00_822 = 
BGL_DATE_ISDST(BgL_datez00_9); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_list1206z00_823;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1208z00_824;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2659;
BgL_auxz00_2659 = 
BINT(BgL_arg1204z00_822); 
BgL_arg1208z00_824 = 
MAKE_PAIR(BgL_auxz00_2659, BNIL); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2662;
BgL_auxz00_2662 = 
BINT(BgL_arg1203z00_821); 
BgL_list1206z00_823 = 
MAKE_PAIR(BgL_auxz00_2662, BgL_arg1208z00_824); } } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_res2056z00_862;
{ /* ./Llib/date.scm 197 */
int BgL_sz00_828;int BgL_minz00_829;int BgL_hz00_830;int BgL_dz00_831;int BgL_monz00_832;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2665;
if(
INTEGERP(BgL_arg1064z00_453))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2665 = BgL_arg1064z00_453
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_arg1064z00_453, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_sz00_828 = 
CINT(BgL_auxz00_2665); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2672;
if(
INTEGERP(BgL_mz00_448))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2672 = BgL_mz00_448
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_mz00_448, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_minz00_829 = 
CINT(BgL_auxz00_2672); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2679;
if(
INTEGERP(BgL_arg1065z00_454))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2679 = BgL_arg1065z00_454
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_arg1065z00_454, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_hz00_830 = 
CINT(BgL_auxz00_2679); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2686;
if(
INTEGERP(BgL_arg1066z00_455))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2686 = BgL_arg1066z00_455
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_arg1066z00_455, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_dz00_831 = 
CINT(BgL_auxz00_2686); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2693;
if(
INTEGERP(BgL_mz00_448))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2693 = BgL_mz00_448
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_mz00_448, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_monz00_832 = 
CINT(BgL_auxz00_2693); } 
{ 
obj_t BgL_tza7za7_840;obj_t BgL_tza7za7_838;obj_t BgL_dstz00_839;
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2110zd2_843;
BgL_cdrzd2110zd2_843 = 
CDR(BgL_list1206z00_823); 
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1008z00_844;
BgL_test1008z00_844 = 
PAIRP(BgL_cdrzd2110zd2_843); 
if(BgL_test1008z00_844)
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1009z00_845;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1018z00_846;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_855;
if(BgL_test1008z00_844)
{ /* ./Llib/date.scm 197 */
BgL_pairz00_855 = BgL_cdrzd2110zd2_843; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_843, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1018z00_846 = 
CDR(BgL_pairz00_855); } 
BgL_test1009z00_845 = 
NULLP(BgL_arg1018z00_846); } 
if(BgL_test1009z00_845)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1011z00_847;obj_t BgL_arg1012z00_848;
BgL_arg1011z00_847 = 
CAR(BgL_list1206z00_823); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_858;
if(
PAIRP(BgL_cdrzd2110zd2_843))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_858 = BgL_cdrzd2110zd2_843; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_843, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1012z00_848 = 
CAR(BgL_pairz00_858); } 
BgL_tza7za7_838 = BgL_arg1011z00_847; 
BgL_dstz00_839 = BgL_arg1012z00_848; 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_2725;long BgL_auxz00_2717;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2726;
if(
INTEGERP(BgL_dstz00_839))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2726 = BgL_dstz00_839
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_dstz00_839, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_auxz00_2725 = 
CINT(BgL_auxz00_2726); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2718;
if(
INTEGERP(BgL_tza7za7_838))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2718 = BgL_tza7za7_838
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_838, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_auxz00_2717 = 
(long)CINT(BgL_auxz00_2718); } 
BgL_res2056z00_862 = 
bgl_make_date(BgL_sz00_828, BgL_minz00_829, BgL_hz00_830, BgL_dz00_831, BgL_monz00_832, BgL_arg1202z00_820, BgL_auxz00_2717, BgL_auxz00_2725); } }  else 
{ /* ./Llib/date.scm 197 */
BgL_tagzd2103zd2_837:
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_2734;
BgL_auxz00_2734 = 
(int)(((long)-1)); 
BgL_res2056z00_862 = 
bgl_make_date(BgL_sz00_828, BgL_minz00_829, BgL_hz00_830, BgL_dz00_831, BgL_monz00_832, BgL_arg1202z00_820, ((long)0), BgL_auxz00_2734); } } }  else 
{ /* ./Llib/date.scm 197 */
if(
NULLP(BgL_cdrzd2110zd2_843))
{ /* ./Llib/date.scm 197 */
BgL_tza7za7_840 = 
CAR(BgL_list1206z00_823); 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_2747;long BgL_auxz00_2739;
BgL_auxz00_2747 = 
(int)(((long)-1)); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2740;
if(
INTEGERP(BgL_tza7za7_840))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2740 = BgL_tza7za7_840
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_840, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_auxz00_2739 = 
(long)CINT(BgL_auxz00_2740); } 
BgL_res2056z00_862 = 
bgl_make_date(BgL_sz00_828, BgL_minz00_829, BgL_hz00_830, BgL_dz00_831, BgL_monz00_832, BgL_arg1202z00_820, BgL_auxz00_2739, BgL_auxz00_2747); } }  else 
{ /* ./Llib/date.scm 197 */
goto BgL_tagzd2103zd2_837;} } } } } } 
BgL_aux2073z00_1328 = BgL_res2056z00_862; } } } }  else 
{ /* ./Llib/date.scm 197 */
BgL_aux2073z00_1328 = BgL_datez00_9; } }  else 
{ /* ./Llib/date.scm 197 */
BgL_aux2073z00_1328 = BgL_datez00_9; } } } } } } } }  else 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2344zd2_458;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_863;
if(
PAIRP(BgL_objz00_10))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_863 = BgL_objz00_10; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_objz00_10, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2344zd2_458 = 
CDR(BgL_pairz00_863); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2355zd2_459;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_864;
if(
PAIRP(BgL_cdrzd2344zd2_458))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_864 = BgL_cdrzd2344zd2_458; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2344zd2_458, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2355zd2_459 = 
CDR(BgL_pairz00_864); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_mz00_460;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_865;
if(
PAIRP(BgL_cdrzd2344zd2_458))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_865 = BgL_cdrzd2344zd2_458; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2344zd2_458, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_mz00_460 = 
CAR(BgL_pairz00_865); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2364zd2_461;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_866;
if(
PAIRP(BgL_cdrzd2355zd2_459))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_866 = BgL_cdrzd2355zd2_459; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2355zd2_459, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2364zd2_461 = 
CDR(BgL_pairz00_866); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2371zd2_462;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_867;
if(
PAIRP(BgL_cdrzd2364zd2_461))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_867 = BgL_cdrzd2364zd2_461; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2364zd2_461, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2371zd2_462 = 
CDR(BgL_pairz00_867); } 
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1088z00_463;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1105z00_469;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_868;
if(
PAIRP(BgL_cdrzd2371zd2_462))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_868 = BgL_cdrzd2371zd2_462; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2371zd2_462, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1105z00_469 = 
CAR(BgL_pairz00_868); } 
BgL_test1088z00_463 = 
(BgL_mz00_460==BgL_arg1105z00_469); } 
if(BgL_test1088z00_463)
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1089z00_464;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1100z00_468;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_869;
if(
PAIRP(BgL_cdrzd2371zd2_462))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_869 = BgL_cdrzd2371zd2_462; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2371zd2_462, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1100z00_468 = 
CDR(BgL_pairz00_869); } 
BgL_test1089z00_464 = 
NULLP(BgL_arg1100z00_468); } 
if(BgL_test1089z00_464)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1091z00_465;obj_t BgL_arg1092z00_466;obj_t BgL_arg1093z00_467;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_871;
if(
PAIRP(BgL_objz00_10))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_871 = BgL_objz00_10; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_objz00_10, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1091z00_465 = 
CAR(BgL_pairz00_871); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_872;
if(
PAIRP(BgL_cdrzd2355zd2_459))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_872 = BgL_cdrzd2355zd2_459; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2355zd2_459, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1092z00_466 = 
CAR(BgL_pairz00_872); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_873;
if(
PAIRP(BgL_cdrzd2364zd2_461))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_873 = BgL_cdrzd2364zd2_461; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2364zd2_461, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1093z00_467 = 
CAR(BgL_pairz00_873); } 
{ /* ./Llib/date.scm 197 */
int BgL_arg1202z00_878;long BgL_arg1203z00_879;int BgL_arg1204z00_880;
BgL_arg1202z00_878 = 
BGL_DATE_YEAR(BgL_datez00_9); 
BgL_arg1203z00_879 = 
BGL_DATE_TIMEZONE(BgL_datez00_9); 
BgL_arg1204z00_880 = 
BGL_DATE_ISDST(BgL_datez00_9); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_list1206z00_881;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1208z00_882;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2818;
BgL_auxz00_2818 = 
BINT(BgL_arg1204z00_880); 
BgL_arg1208z00_882 = 
MAKE_PAIR(BgL_auxz00_2818, BNIL); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2821;
BgL_auxz00_2821 = 
BINT(BgL_arg1203z00_879); 
BgL_list1206z00_881 = 
MAKE_PAIR(BgL_auxz00_2821, BgL_arg1208z00_882); } } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_res2057z00_920;
{ /* ./Llib/date.scm 197 */
int BgL_sz00_886;int BgL_minz00_887;int BgL_hz00_888;int BgL_dz00_889;int BgL_monz00_890;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2824;
if(
INTEGERP(BgL_arg1091z00_465))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2824 = BgL_arg1091z00_465
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_arg1091z00_465, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_sz00_886 = 
CINT(BgL_auxz00_2824); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2831;
if(
INTEGERP(BgL_mz00_460))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2831 = BgL_mz00_460
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_mz00_460, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_minz00_887 = 
CINT(BgL_auxz00_2831); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2838;
if(
INTEGERP(BgL_arg1092z00_466))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2838 = BgL_arg1092z00_466
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_arg1092z00_466, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_hz00_888 = 
CINT(BgL_auxz00_2838); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2845;
if(
INTEGERP(BgL_arg1093z00_467))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2845 = BgL_arg1093z00_467
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_arg1093z00_467, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_dz00_889 = 
CINT(BgL_auxz00_2845); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2852;
if(
INTEGERP(BgL_mz00_460))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2852 = BgL_mz00_460
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_mz00_460, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_monz00_890 = 
CINT(BgL_auxz00_2852); } 
{ 
obj_t BgL_tza7za7_898;obj_t BgL_tza7za7_896;obj_t BgL_dstz00_897;
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2110zd2_901;
BgL_cdrzd2110zd2_901 = 
CDR(BgL_list1206z00_881); 
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1008z00_902;
BgL_test1008z00_902 = 
PAIRP(BgL_cdrzd2110zd2_901); 
if(BgL_test1008z00_902)
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1009z00_903;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1018z00_904;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_913;
if(BgL_test1008z00_902)
{ /* ./Llib/date.scm 197 */
BgL_pairz00_913 = BgL_cdrzd2110zd2_901; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_901, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1018z00_904 = 
CDR(BgL_pairz00_913); } 
BgL_test1009z00_903 = 
NULLP(BgL_arg1018z00_904); } 
if(BgL_test1009z00_903)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1011z00_905;obj_t BgL_arg1012z00_906;
BgL_arg1011z00_905 = 
CAR(BgL_list1206z00_881); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_916;
if(
PAIRP(BgL_cdrzd2110zd2_901))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_916 = BgL_cdrzd2110zd2_901; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_901, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1012z00_906 = 
CAR(BgL_pairz00_916); } 
BgL_tza7za7_896 = BgL_arg1011z00_905; 
BgL_dstz00_897 = BgL_arg1012z00_906; 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_2884;long BgL_auxz00_2876;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2885;
if(
INTEGERP(BgL_dstz00_897))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2885 = BgL_dstz00_897
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_dstz00_897, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_auxz00_2884 = 
CINT(BgL_auxz00_2885); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2877;
if(
INTEGERP(BgL_tza7za7_896))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2877 = BgL_tza7za7_896
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_896, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_auxz00_2876 = 
(long)CINT(BgL_auxz00_2877); } 
BgL_res2057z00_920 = 
bgl_make_date(BgL_sz00_886, BgL_minz00_887, BgL_hz00_888, BgL_dz00_889, BgL_monz00_890, BgL_arg1202z00_878, BgL_auxz00_2876, BgL_auxz00_2884); } }  else 
{ /* ./Llib/date.scm 197 */
BgL_tagzd2103zd2_895:
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_2893;
BgL_auxz00_2893 = 
(int)(((long)-1)); 
BgL_res2057z00_920 = 
bgl_make_date(BgL_sz00_886, BgL_minz00_887, BgL_hz00_888, BgL_dz00_889, BgL_monz00_890, BgL_arg1202z00_878, ((long)0), BgL_auxz00_2893); } } }  else 
{ /* ./Llib/date.scm 197 */
if(
NULLP(BgL_cdrzd2110zd2_901))
{ /* ./Llib/date.scm 197 */
BgL_tza7za7_898 = 
CAR(BgL_list1206z00_881); 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_2906;long BgL_auxz00_2898;
BgL_auxz00_2906 = 
(int)(((long)-1)); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2899;
if(
INTEGERP(BgL_tza7za7_898))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2899 = BgL_tza7za7_898
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_898, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_auxz00_2898 = 
(long)CINT(BgL_auxz00_2899); } 
BgL_res2057z00_920 = 
bgl_make_date(BgL_sz00_886, BgL_minz00_887, BgL_hz00_888, BgL_dz00_889, BgL_monz00_890, BgL_arg1202z00_878, BgL_auxz00_2898, BgL_auxz00_2906); } }  else 
{ /* ./Llib/date.scm 197 */
goto BgL_tagzd2103zd2_895;} } } } } } 
BgL_aux2073z00_1328 = BgL_res2057z00_920; } } } }  else 
{ /* ./Llib/date.scm 197 */
BgL_aux2073z00_1328 = BgL_datez00_9; } }  else 
{ /* ./Llib/date.scm 197 */
BgL_aux2073z00_1328 = BgL_datez00_9; } } } } } } } } }  else 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2463zd2_471;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_921;
if(
PAIRP(BgL_objz00_10))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_921 = BgL_objz00_10; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_objz00_10, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2463zd2_471 = 
CDR(BgL_pairz00_921); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2473zd2_472;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_922;
if(
PAIRP(BgL_cdrzd2463zd2_471))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_922 = BgL_cdrzd2463zd2_471; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2463zd2_471, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2473zd2_472 = 
CDR(BgL_pairz00_922); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2481zd2_473;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_923;
if(
PAIRP(BgL_cdrzd2473zd2_472))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_923 = BgL_cdrzd2473zd2_472; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2473zd2_472, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2481zd2_473 = 
CDR(BgL_pairz00_923); } 
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1118z00_474;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1131z00_479;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_924;
if(
PAIRP(BgL_cdrzd2481zd2_473))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_924 = BgL_cdrzd2481zd2_473; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2481zd2_473, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1131z00_479 = 
CDR(BgL_pairz00_924); } 
BgL_test1118z00_474 = 
NULLP(BgL_arg1131z00_479); } 
if(BgL_test1118z00_474)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1120z00_475;obj_t BgL_arg1121z00_476;obj_t BgL_arg1122z00_477;obj_t BgL_arg1123z00_478;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_926;
if(
PAIRP(BgL_objz00_10))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_926 = BgL_objz00_10; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_objz00_10, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1120z00_475 = 
CAR(BgL_pairz00_926); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_927;
if(
PAIRP(BgL_cdrzd2463zd2_471))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_927 = BgL_cdrzd2463zd2_471; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2463zd2_471, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1121z00_476 = 
CAR(BgL_pairz00_927); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_928;
if(
PAIRP(BgL_cdrzd2473zd2_472))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_928 = BgL_cdrzd2473zd2_472; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2473zd2_472, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1122z00_477 = 
CAR(BgL_pairz00_928); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_929;
if(
PAIRP(BgL_cdrzd2481zd2_473))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_929 = BgL_cdrzd2481zd2_473; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2481zd2_473, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1123z00_478 = 
CAR(BgL_pairz00_929); } 
{ /* ./Llib/date.scm 197 */
int BgL_arg1215z00_934;int BgL_arg1216z00_935;long BgL_arg1217z00_936;int BgL_arg1218z00_937;
BgL_arg1215z00_934 = 
BGL_DATE_MONTH(BgL_datez00_9); 
BgL_arg1216z00_935 = 
BGL_DATE_YEAR(BgL_datez00_9); 
BgL_arg1217z00_936 = 
BGL_DATE_TIMEZONE(BgL_datez00_9); 
BgL_arg1218z00_937 = 
BGL_DATE_ISDST(BgL_datez00_9); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_list1220z00_938;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1222z00_939;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2964;
BgL_auxz00_2964 = 
BINT(BgL_arg1218z00_937); 
BgL_arg1222z00_939 = 
MAKE_PAIR(BgL_auxz00_2964, BNIL); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2967;
BgL_auxz00_2967 = 
BINT(BgL_arg1217z00_936); 
BgL_list1220z00_938 = 
MAKE_PAIR(BgL_auxz00_2967, BgL_arg1222z00_939); } } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_res2058z00_978;
{ /* ./Llib/date.scm 197 */
int BgL_sz00_944;int BgL_minz00_945;int BgL_hz00_946;int BgL_dz00_947;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2970;
if(
INTEGERP(BgL_arg1120z00_475))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2970 = BgL_arg1120z00_475
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_arg1120z00_475, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_sz00_944 = 
CINT(BgL_auxz00_2970); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2977;
if(
INTEGERP(BgL_arg1121z00_476))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2977 = BgL_arg1121z00_476
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_arg1121z00_476, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_minz00_945 = 
CINT(BgL_auxz00_2977); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2984;
if(
INTEGERP(BgL_arg1122z00_477))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2984 = BgL_arg1122z00_477
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_arg1122z00_477, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_hz00_946 = 
CINT(BgL_auxz00_2984); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_2991;
if(
INTEGERP(BgL_arg1123z00_478))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_2991 = BgL_arg1123z00_478
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_arg1123z00_478, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_dz00_947 = 
CINT(BgL_auxz00_2991); } 
{ 
obj_t BgL_tza7za7_956;obj_t BgL_tza7za7_954;obj_t BgL_dstz00_955;
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2110zd2_959;
BgL_cdrzd2110zd2_959 = 
CDR(BgL_list1220z00_938); 
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1008z00_960;
BgL_test1008z00_960 = 
PAIRP(BgL_cdrzd2110zd2_959); 
if(BgL_test1008z00_960)
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1009z00_961;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1018z00_962;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_971;
if(BgL_test1008z00_960)
{ /* ./Llib/date.scm 197 */
BgL_pairz00_971 = BgL_cdrzd2110zd2_959; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_959, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1018z00_962 = 
CDR(BgL_pairz00_971); } 
BgL_test1009z00_961 = 
NULLP(BgL_arg1018z00_962); } 
if(BgL_test1009z00_961)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1011z00_963;obj_t BgL_arg1012z00_964;
BgL_arg1011z00_963 = 
CAR(BgL_list1220z00_938); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_974;
if(
PAIRP(BgL_cdrzd2110zd2_959))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_974 = BgL_cdrzd2110zd2_959; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_959, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1012z00_964 = 
CAR(BgL_pairz00_974); } 
BgL_tza7za7_954 = BgL_arg1011z00_963; 
BgL_dstz00_955 = BgL_arg1012z00_964; 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_3023;long BgL_auxz00_3015;
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_3024;
if(
INTEGERP(BgL_dstz00_955))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_3024 = BgL_dstz00_955
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_dstz00_955, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_auxz00_3023 = 
CINT(BgL_auxz00_3024); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_3016;
if(
INTEGERP(BgL_tza7za7_954))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_3016 = BgL_tza7za7_954
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_954, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_auxz00_3015 = 
(long)CINT(BgL_auxz00_3016); } 
BgL_res2058z00_978 = 
bgl_make_date(BgL_sz00_944, BgL_minz00_945, BgL_hz00_946, BgL_dz00_947, BgL_arg1215z00_934, BgL_arg1216z00_935, BgL_auxz00_3015, BgL_auxz00_3023); } }  else 
{ /* ./Llib/date.scm 197 */
BgL_tagzd2103zd2_953:
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_3032;
BgL_auxz00_3032 = 
(int)(((long)-1)); 
BgL_res2058z00_978 = 
bgl_make_date(BgL_sz00_944, BgL_minz00_945, BgL_hz00_946, BgL_dz00_947, BgL_arg1215z00_934, BgL_arg1216z00_935, ((long)0), BgL_auxz00_3032); } } }  else 
{ /* ./Llib/date.scm 197 */
if(
NULLP(BgL_cdrzd2110zd2_959))
{ /* ./Llib/date.scm 197 */
BgL_tza7za7_956 = 
CAR(BgL_list1220z00_938); 
{ /* ./Llib/date.scm 197 */
int BgL_auxz00_3045;long BgL_auxz00_3037;
BgL_auxz00_3045 = 
(int)(((long)-1)); 
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_3038;
if(
INTEGERP(BgL_tza7za7_956))
{ /* ./Llib/date.scm 197 */
BgL_auxz00_3038 = BgL_tza7za7_956
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_956, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_auxz00_3037 = 
(long)CINT(BgL_auxz00_3038); } 
BgL_res2058z00_978 = 
bgl_make_date(BgL_sz00_944, BgL_minz00_945, BgL_hz00_946, BgL_dz00_947, BgL_arg1215z00_934, BgL_arg1216z00_935, BgL_auxz00_3037, BgL_auxz00_3045); } }  else 
{ /* ./Llib/date.scm 197 */
goto BgL_tagzd2103zd2_953;} } } } } } 
BgL_aux2073z00_1328 = BgL_res2058z00_978; } } } }  else 
{ /* ./Llib/date.scm 197 */
BgL_aux2073z00_1328 = BgL_datez00_9; } } } } } } }  else 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2540zd2_480;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_979;
if(
PAIRP(BgL_objz00_10))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_979 = BgL_objz00_10; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_objz00_10, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2540zd2_480 = 
CDR(BgL_pairz00_979); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2548zd2_481;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_980;
if(
PAIRP(BgL_cdrzd2540zd2_480))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_980 = BgL_cdrzd2540zd2_480; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2540zd2_480, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2548zd2_481 = 
CDR(BgL_pairz00_980); } 
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1139z00_482;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1151z00_486;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_981;
if(
PAIRP(BgL_cdrzd2548zd2_481))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_981 = BgL_cdrzd2548zd2_481; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2548zd2_481, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1151z00_486 = 
CDR(BgL_pairz00_981); } 
BgL_test1139z00_482 = 
NULLP(BgL_arg1151z00_486); } 
if(BgL_test1139z00_482)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1141z00_483;obj_t BgL_arg1142z00_484;obj_t BgL_arg1144z00_485;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_983;
if(
PAIRP(BgL_objz00_10))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_983 = BgL_objz00_10; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_objz00_10, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1141z00_483 = 
CAR(BgL_pairz00_983); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_984;
if(
PAIRP(BgL_cdrzd2540zd2_480))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_984 = BgL_cdrzd2540zd2_480; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2540zd2_480, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1142z00_484 = 
CAR(BgL_pairz00_984); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_985;
if(
PAIRP(BgL_cdrzd2548zd2_481))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_985 = BgL_cdrzd2548zd2_481; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2548zd2_481, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1144z00_485 = 
CAR(BgL_pairz00_985); } 
BgL_sz00_416 = BgL_arg1141z00_483; 
BgL_mz00_417 = BgL_arg1142z00_484; 
BgL_hz00_418 = BgL_arg1144z00_485; 
{ /* ./Llib/date.scm 215 */
int BgL_arg1230z00_510;int BgL_arg1231z00_511;int BgL_arg1233z00_512;long BgL_arg1234z00_513;int BgL_arg1235z00_514;
BgL_arg1230z00_510 = 
BGL_DATE_DAY(BgL_datez00_9); 
BgL_arg1231z00_511 = 
BGL_DATE_MONTH(BgL_datez00_9); 
BgL_arg1233z00_512 = 
BGL_DATE_YEAR(BgL_datez00_9); 
BgL_arg1234z00_513 = 
BGL_DATE_TIMEZONE(BgL_datez00_9); 
BgL_arg1235z00_514 = 
BGL_DATE_ISDST(BgL_datez00_9); 
{ /* ./Llib/date.scm 214 */
obj_t BgL_list1237z00_515;
{ /* ./Llib/date.scm 214 */
obj_t BgL_arg1240z00_516;
{ /* ./Llib/date.scm 214 */
obj_t BgL_auxz00_3092;
BgL_auxz00_3092 = 
BINT(BgL_arg1235z00_514); 
BgL_arg1240z00_516 = 
MAKE_PAIR(BgL_auxz00_3092, BNIL); } 
{ /* ./Llib/date.scm 214 */
obj_t BgL_auxz00_3095;
BgL_auxz00_3095 = 
BINT(BgL_arg1234z00_513); 
BgL_list1237z00_515 = 
MAKE_PAIR(BgL_auxz00_3095, BgL_arg1240z00_516); } } 
{ /* ./Llib/date.scm 214 */
obj_t BgL_res2062z00_1162;
{ /* ./Llib/date.scm 214 */
int BgL_sz00_1128;int BgL_minz00_1129;int BgL_hz00_1130;
{ /* ./Llib/date.scm 214 */
obj_t BgL_auxz00_3098;
if(
INTEGERP(BgL_sz00_416))
{ /* ./Llib/date.scm 214 */
BgL_auxz00_3098 = BgL_sz00_416
; }  else 
{ /* ./Llib/date.scm 214 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_sz00_416, BGl_string4437z00zz__datez00, 
BINT(((long)9554))); 
exit( -1 );} 
BgL_sz00_1128 = 
CINT(BgL_auxz00_3098); } 
{ /* ./Llib/date.scm 214 */
obj_t BgL_auxz00_3105;
if(
INTEGERP(BgL_mz00_417))
{ /* ./Llib/date.scm 214 */
BgL_auxz00_3105 = BgL_mz00_417
; }  else 
{ /* ./Llib/date.scm 214 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_mz00_417, BGl_string4437z00zz__datez00, 
BINT(((long)9554))); 
exit( -1 );} 
BgL_minz00_1129 = 
CINT(BgL_auxz00_3105); } 
{ /* ./Llib/date.scm 214 */
obj_t BgL_auxz00_3112;
if(
INTEGERP(BgL_hz00_418))
{ /* ./Llib/date.scm 214 */
BgL_auxz00_3112 = BgL_hz00_418
; }  else 
{ /* ./Llib/date.scm 214 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_hz00_418, BGl_string4437z00zz__datez00, 
BINT(((long)9554))); 
exit( -1 );} 
BgL_hz00_1130 = 
CINT(BgL_auxz00_3112); } 
{ 
obj_t BgL_tza7za7_1140;obj_t BgL_tza7za7_1138;obj_t BgL_dstz00_1139;
{ /* ./Llib/date.scm 214 */
obj_t BgL_cdrzd2110zd2_1143;
BgL_cdrzd2110zd2_1143 = 
CDR(BgL_list1237z00_515); 
{ /* ./Llib/date.scm 214 */
bool_t BgL_test1008z00_1144;
BgL_test1008z00_1144 = 
PAIRP(BgL_cdrzd2110zd2_1143); 
if(BgL_test1008z00_1144)
{ /* ./Llib/date.scm 214 */
bool_t BgL_test1009z00_1145;
{ /* ./Llib/date.scm 214 */
obj_t BgL_arg1018z00_1146;
{ /* ./Llib/date.scm 214 */
obj_t BgL_pairz00_1155;
if(BgL_test1008z00_1144)
{ /* ./Llib/date.scm 214 */
BgL_pairz00_1155 = BgL_cdrzd2110zd2_1143; }  else 
{ /* ./Llib/date.scm 214 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_1143, BGl_string4437z00zz__datez00, 
BINT(((long)9554))); 
exit( -1 );} 
BgL_arg1018z00_1146 = 
CDR(BgL_pairz00_1155); } 
BgL_test1009z00_1145 = 
NULLP(BgL_arg1018z00_1146); } 
if(BgL_test1009z00_1145)
{ /* ./Llib/date.scm 214 */
obj_t BgL_arg1011z00_1147;obj_t BgL_arg1012z00_1148;
BgL_arg1011z00_1147 = 
CAR(BgL_list1237z00_515); 
{ /* ./Llib/date.scm 214 */
obj_t BgL_pairz00_1158;
if(
PAIRP(BgL_cdrzd2110zd2_1143))
{ /* ./Llib/date.scm 214 */
BgL_pairz00_1158 = BgL_cdrzd2110zd2_1143; }  else 
{ /* ./Llib/date.scm 214 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_1143, BGl_string4437z00zz__datez00, 
BINT(((long)9554))); 
exit( -1 );} 
BgL_arg1012z00_1148 = 
CAR(BgL_pairz00_1158); } 
BgL_tza7za7_1138 = BgL_arg1011z00_1147; 
BgL_dstz00_1139 = BgL_arg1012z00_1148; 
{ /* ./Llib/date.scm 214 */
int BgL_auxz00_3144;long BgL_auxz00_3136;
{ /* ./Llib/date.scm 214 */
obj_t BgL_auxz00_3145;
if(
INTEGERP(BgL_dstz00_1139))
{ /* ./Llib/date.scm 214 */
BgL_auxz00_3145 = BgL_dstz00_1139
; }  else 
{ /* ./Llib/date.scm 214 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_dstz00_1139, BGl_string4437z00zz__datez00, 
BINT(((long)9554))); 
exit( -1 );} 
BgL_auxz00_3144 = 
CINT(BgL_auxz00_3145); } 
{ /* ./Llib/date.scm 214 */
obj_t BgL_auxz00_3137;
if(
INTEGERP(BgL_tza7za7_1138))
{ /* ./Llib/date.scm 214 */
BgL_auxz00_3137 = BgL_tza7za7_1138
; }  else 
{ /* ./Llib/date.scm 214 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_1138, BGl_string4437z00zz__datez00, 
BINT(((long)9554))); 
exit( -1 );} 
BgL_auxz00_3136 = 
(long)CINT(BgL_auxz00_3137); } 
BgL_res2062z00_1162 = 
bgl_make_date(BgL_sz00_1128, BgL_minz00_1129, BgL_hz00_1130, BgL_arg1230z00_510, BgL_arg1231z00_511, BgL_arg1233z00_512, BgL_auxz00_3136, BgL_auxz00_3144); } }  else 
{ /* ./Llib/date.scm 214 */
BgL_tagzd2103zd2_1137:
{ /* ./Llib/date.scm 214 */
int BgL_auxz00_3153;
BgL_auxz00_3153 = 
(int)(((long)-1)); 
BgL_res2062z00_1162 = 
bgl_make_date(BgL_sz00_1128, BgL_minz00_1129, BgL_hz00_1130, BgL_arg1230z00_510, BgL_arg1231z00_511, BgL_arg1233z00_512, ((long)0), BgL_auxz00_3153); } } }  else 
{ /* ./Llib/date.scm 214 */
if(
NULLP(BgL_cdrzd2110zd2_1143))
{ /* ./Llib/date.scm 214 */
BgL_tza7za7_1140 = 
CAR(BgL_list1237z00_515); 
{ /* ./Llib/date.scm 214 */
int BgL_auxz00_3166;long BgL_auxz00_3158;
BgL_auxz00_3166 = 
(int)(((long)-1)); 
{ /* ./Llib/date.scm 214 */
obj_t BgL_auxz00_3159;
if(
INTEGERP(BgL_tza7za7_1140))
{ /* ./Llib/date.scm 214 */
BgL_auxz00_3159 = BgL_tza7za7_1140
; }  else 
{ /* ./Llib/date.scm 214 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_1140, BGl_string4437z00zz__datez00, 
BINT(((long)9554))); 
exit( -1 );} 
BgL_auxz00_3158 = 
(long)CINT(BgL_auxz00_3159); } 
BgL_res2062z00_1162 = 
bgl_make_date(BgL_sz00_1128, BgL_minz00_1129, BgL_hz00_1130, BgL_arg1230z00_510, BgL_arg1231z00_511, BgL_arg1233z00_512, BgL_auxz00_3158, BgL_auxz00_3166); } }  else 
{ /* ./Llib/date.scm 214 */
goto BgL_tagzd2103zd2_1137;} } } } } } 
BgL_aux2073z00_1328 = BgL_res2062z00_1162; } } } }  else 
{ /* ./Llib/date.scm 197 */
BgL_aux2073z00_1328 = BgL_datez00_9; } } } } } }  else 
{ /* ./Llib/date.scm 197 */
obj_t BgL_cdrzd2601zd2_487;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_986;
if(
PAIRP(BgL_objz00_10))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_986 = BgL_objz00_10; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_objz00_10, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_cdrzd2601zd2_487 = 
CDR(BgL_pairz00_986); } 
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1158z00_488;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1169z00_491;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_987;
if(
PAIRP(BgL_cdrzd2601zd2_487))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_987 = BgL_cdrzd2601zd2_487; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2601zd2_487, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1169z00_491 = 
CDR(BgL_pairz00_987); } 
BgL_test1158z00_488 = 
NULLP(BgL_arg1169z00_491); } 
if(BgL_test1158z00_488)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1160z00_489;obj_t BgL_arg1161z00_490;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_989;
if(
PAIRP(BgL_objz00_10))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_989 = BgL_objz00_10; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_objz00_10, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1160z00_489 = 
CAR(BgL_pairz00_989); } 
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_990;
if(
PAIRP(BgL_cdrzd2601zd2_487))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_990 = BgL_cdrzd2601zd2_487; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2601zd2_487, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1161z00_490 = 
CAR(BgL_pairz00_990); } 
BgL_sz00_420 = BgL_arg1160z00_489; 
BgL_mz00_421 = BgL_arg1161z00_490; 
{ /* ./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_3202;
BgL_auxz00_3202 = 
BINT(BgL_arg1255z00_522); 
BgL_arg1259z00_524 = 
MAKE_PAIR(BgL_auxz00_3202, BNIL); } 
{ /* ./Llib/date.scm 221 */
obj_t BgL_auxz00_3205;
BgL_auxz00_3205 = 
BINT(BgL_arg1254z00_521); 
BgL_list1257z00_523 = 
MAKE_PAIR(BgL_auxz00_3205, BgL_arg1259z00_524); } } 
{ /* ./Llib/date.scm 221 */
obj_t BgL_res2063z00_1203;
{ /* ./Llib/date.scm 221 */
int BgL_sz00_1169;int BgL_minz00_1170;
{ /* ./Llib/date.scm 221 */
obj_t BgL_auxz00_3208;
if(
INTEGERP(BgL_sz00_420))
{ /* ./Llib/date.scm 221 */
BgL_auxz00_3208 = BgL_sz00_420
; }  else 
{ /* ./Llib/date.scm 221 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_sz00_420, BGl_string4437z00zz__datez00, 
BINT(((long)9706))); 
exit( -1 );} 
BgL_sz00_1169 = 
CINT(BgL_auxz00_3208); } 
{ /* ./Llib/date.scm 221 */
obj_t BgL_auxz00_3215;
if(
INTEGERP(BgL_mz00_421))
{ /* ./Llib/date.scm 221 */
BgL_auxz00_3215 = BgL_mz00_421
; }  else 
{ /* ./Llib/date.scm 221 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_mz00_421, BGl_string4437z00zz__datez00, 
BINT(((long)9706))); 
exit( -1 );} 
BgL_minz00_1170 = 
CINT(BgL_auxz00_3215); } 
{ 
obj_t BgL_tza7za7_1181;obj_t BgL_tza7za7_1179;obj_t BgL_dstz00_1180;
{ /* ./Llib/date.scm 221 */
obj_t BgL_cdrzd2110zd2_1184;
BgL_cdrzd2110zd2_1184 = 
CDR(BgL_list1257z00_523); 
{ /* ./Llib/date.scm 221 */
bool_t BgL_test1008z00_1185;
BgL_test1008z00_1185 = 
PAIRP(BgL_cdrzd2110zd2_1184); 
if(BgL_test1008z00_1185)
{ /* ./Llib/date.scm 221 */
bool_t BgL_test1009z00_1186;
{ /* ./Llib/date.scm 221 */
obj_t BgL_arg1018z00_1187;
{ /* ./Llib/date.scm 221 */
obj_t BgL_pairz00_1196;
if(BgL_test1008z00_1185)
{ /* ./Llib/date.scm 221 */
BgL_pairz00_1196 = BgL_cdrzd2110zd2_1184; }  else 
{ /* ./Llib/date.scm 221 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_1184, BGl_string4437z00zz__datez00, 
BINT(((long)9706))); 
exit( -1 );} 
BgL_arg1018z00_1187 = 
CDR(BgL_pairz00_1196); } 
BgL_test1009z00_1186 = 
NULLP(BgL_arg1018z00_1187); } 
if(BgL_test1009z00_1186)
{ /* ./Llib/date.scm 221 */
obj_t BgL_arg1011z00_1188;obj_t BgL_arg1012z00_1189;
BgL_arg1011z00_1188 = 
CAR(BgL_list1257z00_523); 
{ /* ./Llib/date.scm 221 */
obj_t BgL_pairz00_1199;
if(
PAIRP(BgL_cdrzd2110zd2_1184))
{ /* ./Llib/date.scm 221 */
BgL_pairz00_1199 = BgL_cdrzd2110zd2_1184; }  else 
{ /* ./Llib/date.scm 221 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_1184, BGl_string4437z00zz__datez00, 
BINT(((long)9706))); 
exit( -1 );} 
BgL_arg1012z00_1189 = 
CAR(BgL_pairz00_1199); } 
BgL_tza7za7_1179 = BgL_arg1011z00_1188; 
BgL_dstz00_1180 = BgL_arg1012z00_1189; 
{ /* ./Llib/date.scm 221 */
int BgL_auxz00_3247;long BgL_auxz00_3239;
{ /* ./Llib/date.scm 221 */
obj_t BgL_auxz00_3248;
if(
INTEGERP(BgL_dstz00_1180))
{ /* ./Llib/date.scm 221 */
BgL_auxz00_3248 = BgL_dstz00_1180
; }  else 
{ /* ./Llib/date.scm 221 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_dstz00_1180, BGl_string4437z00zz__datez00, 
BINT(((long)9706))); 
exit( -1 );} 
BgL_auxz00_3247 = 
CINT(BgL_auxz00_3248); } 
{ /* ./Llib/date.scm 221 */
obj_t BgL_auxz00_3240;
if(
INTEGERP(BgL_tza7za7_1179))
{ /* ./Llib/date.scm 221 */
BgL_auxz00_3240 = BgL_tza7za7_1179
; }  else 
{ /* ./Llib/date.scm 221 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_1179, BGl_string4437z00zz__datez00, 
BINT(((long)9706))); 
exit( -1 );} 
BgL_auxz00_3239 = 
(long)CINT(BgL_auxz00_3240); } 
BgL_res2063z00_1203 = 
bgl_make_date(BgL_sz00_1169, BgL_minz00_1170, BgL_arg1249z00_517, BgL_arg1250z00_518, BgL_arg1251z00_519, BgL_arg1252z00_520, BgL_auxz00_3239, BgL_auxz00_3247); } }  else 
{ /* ./Llib/date.scm 221 */
BgL_tagzd2103zd2_1178:
{ /* ./Llib/date.scm 221 */
int BgL_auxz00_3256;
BgL_auxz00_3256 = 
(int)(((long)-1)); 
BgL_res2063z00_1203 = 
bgl_make_date(BgL_sz00_1169, BgL_minz00_1170, BgL_arg1249z00_517, BgL_arg1250z00_518, BgL_arg1251z00_519, BgL_arg1252z00_520, ((long)0), BgL_auxz00_3256); } } }  else 
{ /* ./Llib/date.scm 221 */
if(
NULLP(BgL_cdrzd2110zd2_1184))
{ /* ./Llib/date.scm 221 */
BgL_tza7za7_1181 = 
CAR(BgL_list1257z00_523); 
{ /* ./Llib/date.scm 221 */
int BgL_auxz00_3269;long BgL_auxz00_3261;
BgL_auxz00_3269 = 
(int)(((long)-1)); 
{ /* ./Llib/date.scm 221 */
obj_t BgL_auxz00_3262;
if(
INTEGERP(BgL_tza7za7_1181))
{ /* ./Llib/date.scm 221 */
BgL_auxz00_3262 = BgL_tza7za7_1181
; }  else 
{ /* ./Llib/date.scm 221 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_1181, BGl_string4437z00zz__datez00, 
BINT(((long)9706))); 
exit( -1 );} 
BgL_auxz00_3261 = 
(long)CINT(BgL_auxz00_3262); } 
BgL_res2063z00_1203 = 
bgl_make_date(BgL_sz00_1169, BgL_minz00_1170, BgL_arg1249z00_517, BgL_arg1250z00_518, BgL_arg1251z00_519, BgL_arg1252z00_520, BgL_auxz00_3261, BgL_auxz00_3269); } }  else 
{ /* ./Llib/date.scm 221 */
goto BgL_tagzd2103zd2_1178;} } } } } } 
BgL_aux2073z00_1328 = BgL_res2063z00_1203; } } } }  else 
{ /* ./Llib/date.scm 197 */
BgL_aux2073z00_1328 = BgL_datez00_9; } } } } } }  else 
{ /* ./Llib/date.scm 197 */
bool_t BgL_test1176z00_492;
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1183z00_494;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_991;
if(
PAIRP(BgL_objz00_10))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_991 = BgL_objz00_10; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_objz00_10, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1183z00_494 = 
CDR(BgL_pairz00_991); } 
BgL_test1176z00_492 = 
NULLP(BgL_arg1183z00_494); } 
if(BgL_test1176z00_492)
{ /* ./Llib/date.scm 197 */
obj_t BgL_arg1178z00_493;
{ /* ./Llib/date.scm 197 */
obj_t BgL_pairz00_993;
if(
PAIRP(BgL_objz00_10))
{ /* ./Llib/date.scm 197 */
BgL_pairz00_993 = BgL_objz00_10; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_objz00_10, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} 
BgL_arg1178z00_493 = 
CAR(BgL_pairz00_993); } 
BgL_sz00_423 = BgL_arg1178z00_493; 
{ /* ./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_3294;
BgL_auxz00_3294 = 
BINT(BgL_arg1277z00_531); 
BgL_arg1281z00_533 = 
MAKE_PAIR(BgL_auxz00_3294, BNIL); } 
{ /* ./Llib/date.scm 229 */
obj_t BgL_auxz00_3297;
BgL_auxz00_3297 = 
BINT(BgL_arg1276z00_530); 
BgL_list1279z00_532 = 
MAKE_PAIR(BgL_auxz00_3297, BgL_arg1281z00_533); } } 
{ /* ./Llib/date.scm 229 */
obj_t BgL_res2064z00_1245;
{ /* ./Llib/date.scm 229 */
int BgL_sz00_1211;
{ /* ./Llib/date.scm 229 */
obj_t BgL_auxz00_3300;
if(
INTEGERP(BgL_sz00_423))
{ /* ./Llib/date.scm 229 */
BgL_auxz00_3300 = BgL_sz00_423
; }  else 
{ /* ./Llib/date.scm 229 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_sz00_423, BGl_string4437z00zz__datez00, 
BINT(((long)9874))); 
exit( -1 );} 
BgL_sz00_1211 = 
CINT(BgL_auxz00_3300); } 
{ 
obj_t BgL_tza7za7_1223;obj_t BgL_tza7za7_1221;obj_t BgL_dstz00_1222;
{ /* ./Llib/date.scm 229 */
obj_t BgL_cdrzd2110zd2_1226;
BgL_cdrzd2110zd2_1226 = 
CDR(BgL_list1279z00_532); 
{ /* ./Llib/date.scm 229 */
bool_t BgL_test1008z00_1227;
BgL_test1008z00_1227 = 
PAIRP(BgL_cdrzd2110zd2_1226); 
if(BgL_test1008z00_1227)
{ /* ./Llib/date.scm 229 */
bool_t BgL_test1009z00_1228;
{ /* ./Llib/date.scm 229 */
obj_t BgL_arg1018z00_1229;
{ /* ./Llib/date.scm 229 */
obj_t BgL_pairz00_1238;
if(BgL_test1008z00_1227)
{ /* ./Llib/date.scm 229 */
BgL_pairz00_1238 = BgL_cdrzd2110zd2_1226; }  else 
{ /* ./Llib/date.scm 229 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_1226, BGl_string4437z00zz__datez00, 
BINT(((long)9874))); 
exit( -1 );} 
BgL_arg1018z00_1229 = 
CDR(BgL_pairz00_1238); } 
BgL_test1009z00_1228 = 
NULLP(BgL_arg1018z00_1229); } 
if(BgL_test1009z00_1228)
{ /* ./Llib/date.scm 229 */
obj_t BgL_arg1011z00_1230;obj_t BgL_arg1012z00_1231;
BgL_arg1011z00_1230 = 
CAR(BgL_list1279z00_532); 
{ /* ./Llib/date.scm 229 */
obj_t BgL_pairz00_1241;
if(
PAIRP(BgL_cdrzd2110zd2_1226))
{ /* ./Llib/date.scm 229 */
BgL_pairz00_1241 = BgL_cdrzd2110zd2_1226; }  else 
{ /* ./Llib/date.scm 229 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4439z00zz__datez00, BgL_cdrzd2110zd2_1226, BGl_string4437z00zz__datez00, 
BINT(((long)9874))); 
exit( -1 );} 
BgL_arg1012z00_1231 = 
CAR(BgL_pairz00_1241); } 
BgL_tza7za7_1221 = BgL_arg1011z00_1230; 
BgL_dstz00_1222 = BgL_arg1012z00_1231; 
{ /* ./Llib/date.scm 229 */
int BgL_auxz00_3332;long BgL_auxz00_3324;
{ /* ./Llib/date.scm 229 */
obj_t BgL_auxz00_3333;
if(
INTEGERP(BgL_dstz00_1222))
{ /* ./Llib/date.scm 229 */
BgL_auxz00_3333 = BgL_dstz00_1222
; }  else 
{ /* ./Llib/date.scm 229 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4438z00zz__datez00, BgL_dstz00_1222, BGl_string4437z00zz__datez00, 
BINT(((long)9874))); 
exit( -1 );} 
BgL_auxz00_3332 = 
CINT(BgL_auxz00_3333); } 
{ /* ./Llib/date.scm 229 */
obj_t BgL_auxz00_3325;
if(
INTEGERP(BgL_tza7za7_1221))
{ /* ./Llib/date.scm 229 */
BgL_auxz00_3325 = BgL_tza7za7_1221
; }  else 
{ /* ./Llib/date.scm 229 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_1221, BGl_string4437z00zz__datez00, 
BINT(((long)9874))); 
exit( -1 );} 
BgL_auxz00_3324 = 
(long)CINT(BgL_auxz00_3325); } 
BgL_res2064z00_1245 = 
bgl_make_date(BgL_sz00_1211, BgL_arg1269z00_525, BgL_arg1270z00_526, BgL_arg1273z00_527, BgL_arg1274z00_528, BgL_arg1275z00_529, BgL_auxz00_3324, BgL_auxz00_3332); } }  else 
{ /* ./Llib/date.scm 229 */
BgL_tagzd2103zd2_1220:
{ /* ./Llib/date.scm 229 */
int BgL_auxz00_3341;
BgL_auxz00_3341 = 
(int)(((long)-1)); 
BgL_res2064z00_1245 = 
bgl_make_date(BgL_sz00_1211, BgL_arg1269z00_525, BgL_arg1270z00_526, BgL_arg1273z00_527, BgL_arg1274z00_528, BgL_arg1275z00_529, ((long)0), BgL_auxz00_3341); } } }  else 
{ /* ./Llib/date.scm 229 */
if(
NULLP(BgL_cdrzd2110zd2_1226))
{ /* ./Llib/date.scm 229 */
BgL_tza7za7_1223 = 
CAR(BgL_list1279z00_532); 
{ /* ./Llib/date.scm 229 */
int BgL_auxz00_3354;long BgL_auxz00_3346;
BgL_auxz00_3354 = 
(int)(((long)-1)); 
{ /* ./Llib/date.scm 229 */
obj_t BgL_auxz00_3347;
if(
INTEGERP(BgL_tza7za7_1223))
{ /* ./Llib/date.scm 229 */
BgL_auxz00_3347 = BgL_tza7za7_1223
; }  else 
{ /* ./Llib/date.scm 229 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4441z00zz__datez00, BGl_string4436z00zz__datez00, BgL_tza7za7_1223, BGl_string4437z00zz__datez00, 
BINT(((long)9874))); 
exit( -1 );} 
BgL_auxz00_3346 = 
(long)CINT(BgL_auxz00_3347); } 
BgL_res2064z00_1245 = 
bgl_make_date(BgL_sz00_1211, BgL_arg1269z00_525, BgL_arg1270z00_526, BgL_arg1273z00_527, BgL_arg1274z00_528, BgL_arg1275z00_529, BgL_auxz00_3346, BgL_auxz00_3354); } }  else 
{ /* ./Llib/date.scm 229 */
goto BgL_tagzd2103zd2_1220;} } } } } } 
BgL_aux2073z00_1328 = BgL_res2064z00_1245; } } } }  else 
{ /* ./Llib/date.scm 197 */
BgL_aux2073z00_1328 = BgL_datez00_9; } } } }  else 
{ /* ./Llib/date.scm 197 */
BgL_aux2073z00_1328 = BgL_datez00_9; } } } 
POP_TRACE(); 
return BgL_aux2073z00_1328;} } } } 
}



/* _date-copy2219 */
obj_t BGl__datezd2copy2219zd2zz__datez00(obj_t BgL_envz00_1407, obj_t BgL_datez00_1408, obj_t BgL_objz00_1409)
{ AN_OBJECT;
{ /* ./Llib/date.scm 196 */
{ /* ./Llib/date.scm 197 */
obj_t BgL_auxz00_3359;
{ /* ./Llib/date.scm 197 */
bool_t BgL_test3909z00_1794;
BgL_test3909z00_1794 = 
BGL_DATEP(BgL_datez00_1408); 
if(BgL_test3909z00_1794)
{ /* ./Llib/date.scm 197 */
BgL_auxz00_3359 = BgL_datez00_1408
; }  else 
{ /* ./Llib/date.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4442z00zz__datez00, BGl_string4443z00zz__datez00, BgL_datez00_1408, BGl_string4437z00zz__datez00, 
BINT(((long)9143))); 
exit( -1 );} } 
return 
BGl_datezd2copyzd2zz__datez00(BgL_auxz00_3359, BgL_objz00_1409);} } 
}



/* =second */
BGL_EXPORTED_DEF bool_t BGl_zd3secondzd3zz__datez00(long BgL_s1z00_11, long BgL_s2z00_12)
{ AN_OBJECT;
{ /* ./Llib/date.scm 243 */
{ /* ./Llib/date.scm 244 */
obj_t BgL_symbol2078z00_1941;
BgL_symbol2078z00_1941 = BGl_symbol4444z00zz__datez00; 
{ /* ./Llib/date.scm 244 */

PUSH_TRACE(BgL_symbol2078z00_1941); BUNSPEC; 
{ /* ./Llib/date.scm 244 */
bool_t BgL_aux2077z00_1942;
BgL_aux2077z00_1942 = 
(BgL_s1z00_11==BgL_s2z00_12); 
POP_TRACE(); 
return BgL_aux2077z00_1942;} } } } 
}



/* _=second2221 */
obj_t BGl__zd3second2221zd3zz__datez00(obj_t BgL_envz00_1410, obj_t BgL_s1z00_1411, obj_t BgL_s2z00_1412)
{ AN_OBJECT;
{ /* ./Llib/date.scm 243 */
{ /* ./Llib/date.scm 244 */
bool_t BgL_auxz00_3369;
{ /* ./Llib/date.scm 244 */
bool_t BgL_res4514z00_1947;
{ /* ./Llib/date.scm 244 */
long BgL_s1z00_1943;long BgL_s2z00_1944;
{ /* ./Llib/date.scm 244 */
obj_t BgL_auxz00_3370;
if(
ELONGP(BgL_s1z00_1411))
{ /* ./Llib/date.scm 244 */
BgL_auxz00_3370 = BgL_s1z00_1411
; }  else 
{ /* ./Llib/date.scm 244 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4445z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s1z00_1411, BGl_string4437z00zz__datez00, 
BINT(((long)10334))); 
exit( -1 );} 
BgL_s1z00_1943 = 
BELONG_TO_LONG(BgL_auxz00_3370); } 
{ /* ./Llib/date.scm 244 */
obj_t BgL_auxz00_3377;
if(
ELONGP(BgL_s2z00_1412))
{ /* ./Llib/date.scm 244 */
BgL_auxz00_3377 = BgL_s2z00_1412
; }  else 
{ /* ./Llib/date.scm 244 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4445z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s2z00_1412, BGl_string4437z00zz__datez00, 
BINT(((long)10334))); 
exit( -1 );} 
BgL_s2z00_1944 = 
BELONG_TO_LONG(BgL_auxz00_3377); } 
{ /* ./Llib/date.scm 244 */
obj_t BgL_symbol2078z00_1945;
BgL_symbol2078z00_1945 = BGl_symbol4444z00zz__datez00; 
{ /* ./Llib/date.scm 244 */

PUSH_TRACE(BgL_symbol2078z00_1945); BUNSPEC; 
{ /* ./Llib/date.scm 244 */
bool_t BgL_aux2077z00_1946;
BgL_aux2077z00_1946 = 
(BgL_s1z00_1943==BgL_s2z00_1944); 
POP_TRACE(); 
BgL_res4514z00_1947 = BgL_aux2077z00_1946; } } } } 
BgL_auxz00_3369 = BgL_res4514z00_1947; } 
return 
BBOOL(BgL_auxz00_3369);} } 
}



/* <second */
BGL_EXPORTED_DEF bool_t BGl_zc3secondzc3zz__datez00(long BgL_s1z00_13, long BgL_s2z00_14)
{ AN_OBJECT;
{ /* ./Llib/date.scm 249 */
{ /* ./Llib/date.scm 250 */
obj_t BgL_symbol2082z00_1948;
BgL_symbol2082z00_1948 = BGl_symbol4447z00zz__datez00; 
{ /* ./Llib/date.scm 250 */

PUSH_TRACE(BgL_symbol2082z00_1948); BUNSPEC; 
{ /* ./Llib/date.scm 250 */
bool_t BgL_aux2081z00_1949;
BgL_aux2081z00_1949 = 
(BgL_s1z00_13<BgL_s2z00_14); 
POP_TRACE(); 
return BgL_aux2081z00_1949;} } } } 
}



/* _<second2223 */
obj_t BGl__zc3second2223zc3zz__datez00(obj_t BgL_envz00_1413, obj_t BgL_s1z00_1414, obj_t BgL_s2z00_1415)
{ AN_OBJECT;
{ /* ./Llib/date.scm 249 */
{ /* ./Llib/date.scm 250 */
bool_t BgL_auxz00_3391;
{ /* ./Llib/date.scm 250 */
bool_t BgL_res4515z00_1954;
{ /* ./Llib/date.scm 250 */
long BgL_s1z00_1950;long BgL_s2z00_1951;
{ /* ./Llib/date.scm 250 */
obj_t BgL_auxz00_3392;
if(
ELONGP(BgL_s1z00_1414))
{ /* ./Llib/date.scm 250 */
BgL_auxz00_3392 = BgL_s1z00_1414
; }  else 
{ /* ./Llib/date.scm 250 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4448z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s1z00_1414, BGl_string4437z00zz__datez00, 
BINT(((long)10616))); 
exit( -1 );} 
BgL_s1z00_1950 = 
BELONG_TO_LONG(BgL_auxz00_3392); } 
{ /* ./Llib/date.scm 250 */
obj_t BgL_auxz00_3399;
if(
ELONGP(BgL_s2z00_1415))
{ /* ./Llib/date.scm 250 */
BgL_auxz00_3399 = BgL_s2z00_1415
; }  else 
{ /* ./Llib/date.scm 250 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4448z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s2z00_1415, BGl_string4437z00zz__datez00, 
BINT(((long)10616))); 
exit( -1 );} 
BgL_s2z00_1951 = 
BELONG_TO_LONG(BgL_auxz00_3399); } 
{ /* ./Llib/date.scm 250 */
obj_t BgL_symbol2082z00_1952;
BgL_symbol2082z00_1952 = BGl_symbol4447z00zz__datez00; 
{ /* ./Llib/date.scm 250 */

PUSH_TRACE(BgL_symbol2082z00_1952); BUNSPEC; 
{ /* ./Llib/date.scm 250 */
bool_t BgL_aux2081z00_1953;
BgL_aux2081z00_1953 = 
(BgL_s1z00_1950<BgL_s2z00_1951); 
POP_TRACE(); 
BgL_res4515z00_1954 = BgL_aux2081z00_1953; } } } } 
BgL_auxz00_3391 = BgL_res4515z00_1954; } 
return 
BBOOL(BgL_auxz00_3391);} } 
}



/* >second */
BGL_EXPORTED_DEF bool_t BGl_ze3secondze3zz__datez00(long BgL_s1z00_15, long BgL_s2z00_16)
{ AN_OBJECT;
{ /* ./Llib/date.scm 255 */
{ /* ./Llib/date.scm 256 */
obj_t BgL_symbol2086z00_1955;
BgL_symbol2086z00_1955 = BGl_symbol4449z00zz__datez00; 
{ /* ./Llib/date.scm 256 */

PUSH_TRACE(BgL_symbol2086z00_1955); BUNSPEC; 
{ /* ./Llib/date.scm 256 */
bool_t BgL_aux2085z00_1956;
BgL_aux2085z00_1956 = 
(BgL_s1z00_15>BgL_s2z00_16); 
POP_TRACE(); 
return BgL_aux2085z00_1956;} } } } 
}



/* _>second2225 */
obj_t BGl__ze3second2225ze3zz__datez00(obj_t BgL_envz00_1416, obj_t BgL_s1z00_1417, obj_t BgL_s2z00_1418)
{ AN_OBJECT;
{ /* ./Llib/date.scm 255 */
{ /* ./Llib/date.scm 256 */
bool_t BgL_auxz00_3413;
{ /* ./Llib/date.scm 256 */
bool_t BgL_res4516z00_1961;
{ /* ./Llib/date.scm 256 */
long BgL_s1z00_1957;long BgL_s2z00_1958;
{ /* ./Llib/date.scm 256 */
obj_t BgL_auxz00_3414;
if(
ELONGP(BgL_s1z00_1417))
{ /* ./Llib/date.scm 256 */
BgL_auxz00_3414 = BgL_s1z00_1417
; }  else 
{ /* ./Llib/date.scm 256 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4450z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s1z00_1417, BGl_string4437z00zz__datez00, 
BINT(((long)10898))); 
exit( -1 );} 
BgL_s1z00_1957 = 
BELONG_TO_LONG(BgL_auxz00_3414); } 
{ /* ./Llib/date.scm 256 */
obj_t BgL_auxz00_3421;
if(
ELONGP(BgL_s2z00_1418))
{ /* ./Llib/date.scm 256 */
BgL_auxz00_3421 = BgL_s2z00_1418
; }  else 
{ /* ./Llib/date.scm 256 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4450z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s2z00_1418, BGl_string4437z00zz__datez00, 
BINT(((long)10898))); 
exit( -1 );} 
BgL_s2z00_1958 = 
BELONG_TO_LONG(BgL_auxz00_3421); } 
{ /* ./Llib/date.scm 256 */
obj_t BgL_symbol2086z00_1959;
BgL_symbol2086z00_1959 = BGl_symbol4449z00zz__datez00; 
{ /* ./Llib/date.scm 256 */

PUSH_TRACE(BgL_symbol2086z00_1959); BUNSPEC; 
{ /* ./Llib/date.scm 256 */
bool_t BgL_aux2085z00_1960;
BgL_aux2085z00_1960 = 
(BgL_s1z00_1957>BgL_s2z00_1958); 
POP_TRACE(); 
BgL_res4516z00_1961 = BgL_aux2085z00_1960; } } } } 
BgL_auxz00_3413 = BgL_res4516z00_1961; } 
return 
BBOOL(BgL_auxz00_3413);} } 
}



/* <=second */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3secondz10zz__datez00(long BgL_s1z00_17, long BgL_s2z00_18)
{ AN_OBJECT;
{ /* ./Llib/date.scm 261 */
{ /* ./Llib/date.scm 262 */
obj_t BgL_symbol2090z00_1962;
BgL_symbol2090z00_1962 = BGl_symbol4451z00zz__datez00; 
{ /* ./Llib/date.scm 262 */

PUSH_TRACE(BgL_symbol2090z00_1962); BUNSPEC; 
{ /* ./Llib/date.scm 262 */
bool_t BgL_aux2089z00_1963;
BgL_aux2089z00_1963 = 
(BgL_s1z00_17<=BgL_s2z00_18); 
POP_TRACE(); 
return BgL_aux2089z00_1963;} } } } 
}



/* _<=second2227 */
obj_t BGl__zc3zd3second2227z10zz__datez00(obj_t BgL_envz00_1419, obj_t BgL_s1z00_1420, obj_t BgL_s2z00_1421)
{ AN_OBJECT;
{ /* ./Llib/date.scm 261 */
{ /* ./Llib/date.scm 262 */
bool_t BgL_auxz00_3435;
{ /* ./Llib/date.scm 262 */
bool_t BgL_res4517z00_1968;
{ /* ./Llib/date.scm 262 */
long BgL_s1z00_1964;long BgL_s2z00_1965;
{ /* ./Llib/date.scm 262 */
obj_t BgL_auxz00_3436;
if(
ELONGP(BgL_s1z00_1420))
{ /* ./Llib/date.scm 262 */
BgL_auxz00_3436 = BgL_s1z00_1420
; }  else 
{ /* ./Llib/date.scm 262 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4452z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s1z00_1420, BGl_string4437z00zz__datez00, 
BINT(((long)11181))); 
exit( -1 );} 
BgL_s1z00_1964 = 
BELONG_TO_LONG(BgL_auxz00_3436); } 
{ /* ./Llib/date.scm 262 */
obj_t BgL_auxz00_3443;
if(
ELONGP(BgL_s2z00_1421))
{ /* ./Llib/date.scm 262 */
BgL_auxz00_3443 = BgL_s2z00_1421
; }  else 
{ /* ./Llib/date.scm 262 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4452z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s2z00_1421, BGl_string4437z00zz__datez00, 
BINT(((long)11181))); 
exit( -1 );} 
BgL_s2z00_1965 = 
BELONG_TO_LONG(BgL_auxz00_3443); } 
{ /* ./Llib/date.scm 262 */
obj_t BgL_symbol2090z00_1966;
BgL_symbol2090z00_1966 = BGl_symbol4451z00zz__datez00; 
{ /* ./Llib/date.scm 262 */

PUSH_TRACE(BgL_symbol2090z00_1966); BUNSPEC; 
{ /* ./Llib/date.scm 262 */
bool_t BgL_aux2089z00_1967;
BgL_aux2089z00_1967 = 
(BgL_s1z00_1964<=BgL_s2z00_1965); 
POP_TRACE(); 
BgL_res4517z00_1968 = BgL_aux2089z00_1967; } } } } 
BgL_auxz00_3435 = BgL_res4517z00_1968; } 
return 
BBOOL(BgL_auxz00_3435);} } 
}



/* >=second */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3secondz30zz__datez00(long BgL_s1z00_19, long BgL_s2z00_20)
{ AN_OBJECT;
{ /* ./Llib/date.scm 267 */
{ /* ./Llib/date.scm 268 */
obj_t BgL_symbol2094z00_1969;
BgL_symbol2094z00_1969 = BGl_symbol4453z00zz__datez00; 
{ /* ./Llib/date.scm 268 */

PUSH_TRACE(BgL_symbol2094z00_1969); BUNSPEC; 
{ /* ./Llib/date.scm 268 */
bool_t BgL_aux2093z00_1970;
BgL_aux2093z00_1970 = 
(BgL_s1z00_19>=BgL_s2z00_20); 
POP_TRACE(); 
return BgL_aux2093z00_1970;} } } } 
}



/* _>=second2229 */
obj_t BGl__ze3zd3second2229z30zz__datez00(obj_t BgL_envz00_1422, obj_t BgL_s1z00_1423, obj_t BgL_s2z00_1424)
{ AN_OBJECT;
{ /* ./Llib/date.scm 267 */
{ /* ./Llib/date.scm 268 */
bool_t BgL_auxz00_3457;
{ /* ./Llib/date.scm 268 */
bool_t BgL_res4518z00_1975;
{ /* ./Llib/date.scm 268 */
long BgL_s1z00_1971;long BgL_s2z00_1972;
{ /* ./Llib/date.scm 268 */
obj_t BgL_auxz00_3458;
if(
ELONGP(BgL_s1z00_1423))
{ /* ./Llib/date.scm 268 */
BgL_auxz00_3458 = BgL_s1z00_1423
; }  else 
{ /* ./Llib/date.scm 268 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4454z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s1z00_1423, BGl_string4437z00zz__datez00, 
BINT(((long)11465))); 
exit( -1 );} 
BgL_s1z00_1971 = 
BELONG_TO_LONG(BgL_auxz00_3458); } 
{ /* ./Llib/date.scm 268 */
obj_t BgL_auxz00_3465;
if(
ELONGP(BgL_s2z00_1424))
{ /* ./Llib/date.scm 268 */
BgL_auxz00_3465 = BgL_s2z00_1424
; }  else 
{ /* ./Llib/date.scm 268 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4454z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s2z00_1424, BGl_string4437z00zz__datez00, 
BINT(((long)11465))); 
exit( -1 );} 
BgL_s2z00_1972 = 
BELONG_TO_LONG(BgL_auxz00_3465); } 
{ /* ./Llib/date.scm 268 */
obj_t BgL_symbol2094z00_1973;
BgL_symbol2094z00_1973 = BGl_symbol4453z00zz__datez00; 
{ /* ./Llib/date.scm 268 */

PUSH_TRACE(BgL_symbol2094z00_1973); BUNSPEC; 
{ /* ./Llib/date.scm 268 */
bool_t BgL_aux2093z00_1974;
BgL_aux2093z00_1974 = 
(BgL_s1z00_1971>=BgL_s2z00_1972); 
POP_TRACE(); 
BgL_res4518z00_1975 = BgL_aux2093z00_1974; } } } } 
BgL_auxz00_3457 = BgL_res4518z00_1975; } 
return 
BBOOL(BgL_auxz00_3457);} } 
}



/* +second */
BGL_EXPORTED_DEF long BGl_zb2secondzb2zz__datez00(long BgL_s1z00_21, long BgL_s2z00_22)
{ AN_OBJECT;
{ /* ./Llib/date.scm 273 */
{ /* ./Llib/date.scm 274 */
obj_t BgL_symbol2098z00_1976;
BgL_symbol2098z00_1976 = BGl_symbol4455z00zz__datez00; 
{ /* ./Llib/date.scm 274 */

PUSH_TRACE(BgL_symbol2098z00_1976); BUNSPEC; 
{ /* ./Llib/date.scm 274 */
long BgL_aux2097z00_1977;
BgL_aux2097z00_1977 = 
(BgL_s1z00_21+BgL_s2z00_22); 
POP_TRACE(); 
return BgL_aux2097z00_1977;} } } } 
}



/* _+second */
obj_t BGl__zb2secondzb2zz__datez00(obj_t BgL_envz00_1425, obj_t BgL_s1z00_1426, obj_t BgL_s2z00_1427)
{ AN_OBJECT;
{ /* ./Llib/date.scm 273 */
{ /* ./Llib/date.scm 274 */
long BgL_auxz00_3479;
{ /* ./Llib/date.scm 274 */
long BgL_res4519z00_1982;
{ /* ./Llib/date.scm 274 */
long BgL_s1z00_1978;long BgL_s2z00_1979;
{ /* ./Llib/date.scm 274 */
obj_t BgL_auxz00_3480;
if(
ELONGP(BgL_s1z00_1426))
{ /* ./Llib/date.scm 274 */
BgL_auxz00_3480 = BgL_s1z00_1426
; }  else 
{ /* ./Llib/date.scm 274 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4456z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s1z00_1426, BGl_string4437z00zz__datez00, 
BINT(((long)11748))); 
exit( -1 );} 
BgL_s1z00_1978 = 
BELONG_TO_LONG(BgL_auxz00_3480); } 
{ /* ./Llib/date.scm 274 */
obj_t BgL_auxz00_3487;
if(
ELONGP(BgL_s2z00_1427))
{ /* ./Llib/date.scm 274 */
BgL_auxz00_3487 = BgL_s2z00_1427
; }  else 
{ /* ./Llib/date.scm 274 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4456z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s2z00_1427, BGl_string4437z00zz__datez00, 
BINT(((long)11748))); 
exit( -1 );} 
BgL_s2z00_1979 = 
BELONG_TO_LONG(BgL_auxz00_3487); } 
{ /* ./Llib/date.scm 274 */
obj_t BgL_symbol2098z00_1980;
BgL_symbol2098z00_1980 = BGl_symbol4455z00zz__datez00; 
{ /* ./Llib/date.scm 274 */

PUSH_TRACE(BgL_symbol2098z00_1980); BUNSPEC; 
{ /* ./Llib/date.scm 274 */
long BgL_aux2097z00_1981;
BgL_aux2097z00_1981 = 
(BgL_s1z00_1978+BgL_s2z00_1979); 
POP_TRACE(); 
BgL_res4519z00_1982 = BgL_aux2097z00_1981; } } } } 
BgL_auxz00_3479 = BgL_res4519z00_1982; } 
return 
LONG_TO_BELONG(BgL_auxz00_3479);} } 
}



/* *second */
BGL_EXPORTED_DEF long BGl_za2secondza2zz__datez00(long BgL_s1z00_23, long BgL_s2z00_24)
{ AN_OBJECT;
{ /* ./Llib/date.scm 279 */
{ /* ./Llib/date.scm 280 */
obj_t BgL_symbol2102z00_1983;
BgL_symbol2102z00_1983 = BGl_symbol4457z00zz__datez00; 
{ /* ./Llib/date.scm 280 */

PUSH_TRACE(BgL_symbol2102z00_1983); BUNSPEC; 
{ /* ./Llib/date.scm 280 */
long BgL_aux2101z00_1984;
BgL_aux2101z00_1984 = 
(BgL_s1z00_23*BgL_s2z00_24); 
POP_TRACE(); 
return BgL_aux2101z00_1984;} } } } 
}



/* _*second2232 */
obj_t BGl__za2second2232za2zz__datez00(obj_t BgL_envz00_1428, obj_t BgL_s1z00_1429, obj_t BgL_s2z00_1430)
{ AN_OBJECT;
{ /* ./Llib/date.scm 279 */
{ /* ./Llib/date.scm 280 */
long BgL_auxz00_3501;
{ /* ./Llib/date.scm 280 */
long BgL_res4520z00_1989;
{ /* ./Llib/date.scm 280 */
long BgL_s1z00_1985;long BgL_s2z00_1986;
{ /* ./Llib/date.scm 280 */
obj_t BgL_auxz00_3502;
if(
ELONGP(BgL_s1z00_1429))
{ /* ./Llib/date.scm 280 */
BgL_auxz00_3502 = BgL_s1z00_1429
; }  else 
{ /* ./Llib/date.scm 280 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4458z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s1z00_1429, BGl_string4437z00zz__datez00, 
BINT(((long)12032))); 
exit( -1 );} 
BgL_s1z00_1985 = 
BELONG_TO_LONG(BgL_auxz00_3502); } 
{ /* ./Llib/date.scm 280 */
obj_t BgL_auxz00_3509;
if(
ELONGP(BgL_s2z00_1430))
{ /* ./Llib/date.scm 280 */
BgL_auxz00_3509 = BgL_s2z00_1430
; }  else 
{ /* ./Llib/date.scm 280 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4458z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s2z00_1430, BGl_string4437z00zz__datez00, 
BINT(((long)12032))); 
exit( -1 );} 
BgL_s2z00_1986 = 
BELONG_TO_LONG(BgL_auxz00_3509); } 
{ /* ./Llib/date.scm 280 */
obj_t BgL_symbol2102z00_1987;
BgL_symbol2102z00_1987 = BGl_symbol4457z00zz__datez00; 
{ /* ./Llib/date.scm 280 */

PUSH_TRACE(BgL_symbol2102z00_1987); BUNSPEC; 
{ /* ./Llib/date.scm 280 */
long BgL_aux2101z00_1988;
BgL_aux2101z00_1988 = 
(BgL_s1z00_1985*BgL_s2z00_1986); 
POP_TRACE(); 
BgL_res4520z00_1989 = BgL_aux2101z00_1988; } } } } 
BgL_auxz00_3501 = BgL_res4520z00_1989; } 
return 
LONG_TO_BELONG(BgL_auxz00_3501);} } 
}



/* -second */
BGL_EXPORTED_DEF long BGl_zd2secondzd2zz__datez00(long BgL_s1z00_25, long BgL_s2z00_26)
{ AN_OBJECT;
{ /* ./Llib/date.scm 285 */
{ /* ./Llib/date.scm 286 */
obj_t BgL_symbol2106z00_1990;
BgL_symbol2106z00_1990 = BGl_symbol4459z00zz__datez00; 
{ /* ./Llib/date.scm 286 */

PUSH_TRACE(BgL_symbol2106z00_1990); BUNSPEC; 
{ /* ./Llib/date.scm 286 */
long BgL_aux2105z00_1991;
BgL_aux2105z00_1991 = 
(BgL_s1z00_25-BgL_s2z00_26); 
POP_TRACE(); 
return BgL_aux2105z00_1991;} } } } 
}



/* _-second */
obj_t BGl__zd2secondzd2zz__datez00(obj_t BgL_envz00_1431, obj_t BgL_s1z00_1432, obj_t BgL_s2z00_1433)
{ AN_OBJECT;
{ /* ./Llib/date.scm 285 */
{ /* ./Llib/date.scm 286 */
long BgL_auxz00_3523;
{ /* ./Llib/date.scm 286 */
long BgL_res4521z00_1996;
{ /* ./Llib/date.scm 286 */
long BgL_s1z00_1992;long BgL_s2z00_1993;
{ /* ./Llib/date.scm 286 */
obj_t BgL_auxz00_3524;
if(
ELONGP(BgL_s1z00_1432))
{ /* ./Llib/date.scm 286 */
BgL_auxz00_3524 = BgL_s1z00_1432
; }  else 
{ /* ./Llib/date.scm 286 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4460z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s1z00_1432, BGl_string4437z00zz__datez00, 
BINT(((long)12316))); 
exit( -1 );} 
BgL_s1z00_1992 = 
BELONG_TO_LONG(BgL_auxz00_3524); } 
{ /* ./Llib/date.scm 286 */
obj_t BgL_auxz00_3531;
if(
ELONGP(BgL_s2z00_1433))
{ /* ./Llib/date.scm 286 */
BgL_auxz00_3531 = BgL_s2z00_1433
; }  else 
{ /* ./Llib/date.scm 286 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4460z00zz__datez00, BGl_string4446z00zz__datez00, BgL_s2z00_1433, BGl_string4437z00zz__datez00, 
BINT(((long)12316))); 
exit( -1 );} 
BgL_s2z00_1993 = 
BELONG_TO_LONG(BgL_auxz00_3531); } 
{ /* ./Llib/date.scm 286 */
obj_t BgL_symbol2106z00_1994;
BgL_symbol2106z00_1994 = BGl_symbol4459z00zz__datez00; 
{ /* ./Llib/date.scm 286 */

PUSH_TRACE(BgL_symbol2106z00_1994); BUNSPEC; 
{ /* ./Llib/date.scm 286 */
long BgL_aux2105z00_1995;
BgL_aux2105z00_1995 = 
(BgL_s1z00_1992-BgL_s2z00_1993); 
POP_TRACE(); 
BgL_res4521z00_1996 = BgL_aux2105z00_1995; } } } } 
BgL_auxz00_3523 = BgL_res4521z00_1996; } 
return 
LONG_TO_BELONG(BgL_auxz00_3523);} } 
}



/* integer->second */
BGL_EXPORTED_DEF long BGl_integerzd2ze3secondz31zz__datez00(long BgL_iz00_27)
{ AN_OBJECT;
{ /* ./Llib/date.scm 291 */
{ /* ./Llib/date.scm 292 */
obj_t BgL_symbol2110z00_1997;
BgL_symbol2110z00_1997 = BGl_symbol4461z00zz__datez00; 
{ /* ./Llib/date.scm 292 */

PUSH_TRACE(BgL_symbol2110z00_1997); BUNSPEC; 
{ /* ./Llib/date.scm 292 */
long BgL_aux2109z00_1998;
BgL_aux2109z00_1998 = 
(long)(BgL_iz00_27); 
POP_TRACE(); 
return BgL_aux2109z00_1998;} } } } 
}



/* _integer->second */
obj_t BGl__integerzd2ze3secondz31zz__datez00(obj_t BgL_envz00_1434, obj_t BgL_iz00_1435)
{ AN_OBJECT;
{ /* ./Llib/date.scm 291 */
{ /* ./Llib/date.scm 292 */
long BgL_auxz00_3545;
{ /* ./Llib/date.scm 292 */
long BgL_res4522z00_2002;
{ /* ./Llib/date.scm 292 */
long BgL_iz00_1999;
{ /* ./Llib/date.scm 292 */
obj_t BgL_auxz00_3546;
if(
INTEGERP(BgL_iz00_1435))
{ /* ./Llib/date.scm 292 */
BgL_auxz00_3546 = BgL_iz00_1435
; }  else 
{ /* ./Llib/date.scm 292 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4462z00zz__datez00, BGl_string4436z00zz__datez00, BgL_iz00_1435, BGl_string4437z00zz__datez00, 
BINT(((long)12604))); 
exit( -1 );} 
BgL_iz00_1999 = 
(long)CINT(BgL_auxz00_3546); } 
{ /* ./Llib/date.scm 292 */
obj_t BgL_symbol2110z00_2000;
BgL_symbol2110z00_2000 = BGl_symbol4461z00zz__datez00; 
{ /* ./Llib/date.scm 292 */

PUSH_TRACE(BgL_symbol2110z00_2000); BUNSPEC; 
{ /* ./Llib/date.scm 292 */
long BgL_aux2109z00_2001;
BgL_aux2109z00_2001 = 
(long)(BgL_iz00_1999); 
POP_TRACE(); 
BgL_res4522z00_2002 = BgL_aux2109z00_2001; } } } } 
BgL_auxz00_3545 = BgL_res4522z00_2002; } 
return 
LONG_TO_BELONG(BgL_auxz00_3545);} } 
}



/* date-second */
BGL_EXPORTED_DEF int BGl_datezd2secondzd2zz__datez00(obj_t BgL_dz00_28)
{ AN_OBJECT;
{ /* ./Llib/date.scm 297 */
{ /* ./Llib/date.scm 298 */
obj_t BgL_symbol2114z00_2003;
BgL_symbol2114z00_2003 = BGl_symbol4463z00zz__datez00; 
{ /* ./Llib/date.scm 298 */

PUSH_TRACE(BgL_symbol2114z00_2003); BUNSPEC; 
{ /* ./Llib/date.scm 298 */
int BgL_aux2113z00_2004;
BgL_aux2113z00_2004 = 
BGL_DATE_SECOND(BgL_dz00_28); 
POP_TRACE(); 
return BgL_aux2113z00_2004;} } } } 
}



/* _date-second */
obj_t BGl__datezd2secondzd2zz__datez00(obj_t BgL_envz00_1436, obj_t BgL_dz00_1437)
{ AN_OBJECT;
{ /* ./Llib/date.scm 297 */
{ /* ./Llib/date.scm 298 */
int BgL_auxz00_3560;
{ /* ./Llib/date.scm 298 */
int BgL_res4523z00_2008;
{ /* ./Llib/date.scm 298 */
obj_t BgL_dz00_2005;
{ /* ./Llib/date.scm 298 */
bool_t BgL_test4115z00_1830;
BgL_test4115z00_1830 = 
BGL_DATEP(BgL_dz00_1437); 
if(BgL_test4115z00_1830)
{ /* ./Llib/date.scm 298 */
BgL_dz00_2005 = BgL_dz00_1437; }  else 
{ /* ./Llib/date.scm 298 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4464z00zz__datez00, BGl_string4443z00zz__datez00, BgL_dz00_1437, BGl_string4437z00zz__datez00, 
BINT(((long)12895))); 
exit( -1 );} } 
{ /* ./Llib/date.scm 298 */
obj_t BgL_symbol2114z00_2006;
BgL_symbol2114z00_2006 = BGl_symbol4463z00zz__datez00; 
{ /* ./Llib/date.scm 298 */

PUSH_TRACE(BgL_symbol2114z00_2006); BUNSPEC; 
{ /* ./Llib/date.scm 298 */
int BgL_aux2113z00_2007;
BgL_aux2113z00_2007 = 
BGL_DATE_SECOND(BgL_dz00_2005); 
POP_TRACE(); 
BgL_res4523z00_2008 = BgL_aux2113z00_2007; } } } } 
BgL_auxz00_3560 = BgL_res4523z00_2008; } 
return 
BINT(BgL_auxz00_3560);} } 
}



/* date-minute */
BGL_EXPORTED_DEF int BGl_datezd2minutezd2zz__datez00(obj_t BgL_dz00_29)
{ AN_OBJECT;
{ /* ./Llib/date.scm 303 */
{ /* ./Llib/date.scm 304 */
obj_t BgL_symbol2118z00_2009;
BgL_symbol2118z00_2009 = BGl_symbol4465z00zz__datez00; 
{ /* ./Llib/date.scm 304 */

PUSH_TRACE(BgL_symbol2118z00_2009); BUNSPEC; 
{ /* ./Llib/date.scm 304 */
int BgL_aux2117z00_2010;
BgL_aux2117z00_2010 = 
BGL_DATE_MINUTE(BgL_dz00_29); 
POP_TRACE(); 
return BgL_aux2117z00_2010;} } } } 
}



/* _date-minute */
obj_t BGl__datezd2minutezd2zz__datez00(obj_t BgL_envz00_1438, obj_t BgL_dz00_1439)
{ AN_OBJECT;
{ /* ./Llib/date.scm 303 */
{ /* ./Llib/date.scm 304 */
int BgL_auxz00_3573;
{ /* ./Llib/date.scm 304 */
int BgL_res4524z00_2014;
{ /* ./Llib/date.scm 304 */
obj_t BgL_dz00_2011;
{ /* ./Llib/date.scm 304 */
bool_t BgL_test4126z00_1832;
BgL_test4126z00_1832 = 
BGL_DATEP(BgL_dz00_1439); 
if(BgL_test4126z00_1832)
{ /* ./Llib/date.scm 304 */
BgL_dz00_2011 = BgL_dz00_1439; }  else 
{ /* ./Llib/date.scm 304 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4466z00zz__datez00, BGl_string4443z00zz__datez00, BgL_dz00_1439, BGl_string4437z00zz__datez00, 
BINT(((long)13177))); 
exit( -1 );} } 
{ /* ./Llib/date.scm 304 */
obj_t BgL_symbol2118z00_2012;
BgL_symbol2118z00_2012 = BGl_symbol4465z00zz__datez00; 
{ /* ./Llib/date.scm 304 */

PUSH_TRACE(BgL_symbol2118z00_2012); BUNSPEC; 
{ /* ./Llib/date.scm 304 */
int BgL_aux2117z00_2013;
BgL_aux2117z00_2013 = 
BGL_DATE_MINUTE(BgL_dz00_2011); 
POP_TRACE(); 
BgL_res4524z00_2014 = BgL_aux2117z00_2013; } } } } 
BgL_auxz00_3573 = BgL_res4524z00_2014; } 
return 
BINT(BgL_auxz00_3573);} } 
}



/* date-hour */
BGL_EXPORTED_DEF int BGl_datezd2hourzd2zz__datez00(obj_t BgL_dz00_30)
{ AN_OBJECT;
{ /* ./Llib/date.scm 309 */
{ /* ./Llib/date.scm 310 */
obj_t BgL_symbol2122z00_2015;
BgL_symbol2122z00_2015 = BGl_symbol4467z00zz__datez00; 
{ /* ./Llib/date.scm 310 */

PUSH_TRACE(BgL_symbol2122z00_2015); BUNSPEC; 
{ /* ./Llib/date.scm 310 */
int BgL_aux2121z00_2016;
BgL_aux2121z00_2016 = 
BGL_DATE_HOUR(BgL_dz00_30); 
POP_TRACE(); 
return BgL_aux2121z00_2016;} } } } 
}



/* _date-hour */
obj_t BGl__datezd2hourzd2zz__datez00(obj_t BgL_envz00_1440, obj_t BgL_dz00_1441)
{ AN_OBJECT;
{ /* ./Llib/date.scm 309 */
{ /* ./Llib/date.scm 310 */
int BgL_auxz00_3586;
{ /* ./Llib/date.scm 310 */
int BgL_res4525z00_2020;
{ /* ./Llib/date.scm 310 */
obj_t BgL_dz00_2017;
{ /* ./Llib/date.scm 310 */
bool_t BgL_test4137z00_1834;
BgL_test4137z00_1834 = 
BGL_DATEP(BgL_dz00_1441); 
if(BgL_test4137z00_1834)
{ /* ./Llib/date.scm 310 */
BgL_dz00_2017 = BgL_dz00_1441; }  else 
{ /* ./Llib/date.scm 310 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4468z00zz__datez00, BGl_string4443z00zz__datez00, BgL_dz00_1441, BGl_string4437z00zz__datez00, 
BINT(((long)13457))); 
exit( -1 );} } 
{ /* ./Llib/date.scm 310 */
obj_t BgL_symbol2122z00_2018;
BgL_symbol2122z00_2018 = BGl_symbol4467z00zz__datez00; 
{ /* ./Llib/date.scm 310 */

PUSH_TRACE(BgL_symbol2122z00_2018); BUNSPEC; 
{ /* ./Llib/date.scm 310 */
int BgL_aux2121z00_2019;
BgL_aux2121z00_2019 = 
BGL_DATE_HOUR(BgL_dz00_2017); 
POP_TRACE(); 
BgL_res4525z00_2020 = BgL_aux2121z00_2019; } } } } 
BgL_auxz00_3586 = BgL_res4525z00_2020; } 
return 
BINT(BgL_auxz00_3586);} } 
}



/* date-day */
BGL_EXPORTED_DEF int BGl_datezd2dayzd2zz__datez00(obj_t BgL_dz00_31)
{ AN_OBJECT;
{ /* ./Llib/date.scm 315 */
{ /* ./Llib/date.scm 316 */
obj_t BgL_symbol2126z00_2021;
BgL_symbol2126z00_2021 = BGl_symbol4469z00zz__datez00; 
{ /* ./Llib/date.scm 316 */

PUSH_TRACE(BgL_symbol2126z00_2021); BUNSPEC; 
{ /* ./Llib/date.scm 316 */
int BgL_aux2125z00_2022;
BgL_aux2125z00_2022 = 
BGL_DATE_DAY(BgL_dz00_31); 
POP_TRACE(); 
return BgL_aux2125z00_2022;} } } } 
}



/* _date-day */
obj_t BGl__datezd2dayzd2zz__datez00(obj_t BgL_envz00_1442, obj_t BgL_dz00_1443)
{ AN_OBJECT;
{ /* ./Llib/date.scm 315 */
{ /* ./Llib/date.scm 316 */
int BgL_auxz00_3599;
{ /* ./Llib/date.scm 316 */
int BgL_res4526z00_2026;
{ /* ./Llib/date.scm 316 */
obj_t BgL_dz00_2023;
{ /* ./Llib/date.scm 316 */
bool_t BgL_test4148z00_1836;
BgL_test4148z00_1836 = 
BGL_DATEP(BgL_dz00_1443); 
if(BgL_test4148z00_1836)
{ /* ./Llib/date.scm 316 */
BgL_dz00_2023 = BgL_dz00_1443; }  else 
{ /* ./Llib/date.scm 316 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4470z00zz__datez00, BGl_string4443z00zz__datez00, BgL_dz00_1443, BGl_string4437z00zz__datez00, 
BINT(((long)13734))); 
exit( -1 );} } 
{ /* ./Llib/date.scm 316 */
obj_t BgL_symbol2126z00_2024;
BgL_symbol2126z00_2024 = BGl_symbol4469z00zz__datez00; 
{ /* ./Llib/date.scm 316 */

PUSH_TRACE(BgL_symbol2126z00_2024); BUNSPEC; 
{ /* ./Llib/date.scm 316 */
int BgL_aux2125z00_2025;
BgL_aux2125z00_2025 = 
BGL_DATE_DAY(BgL_dz00_2023); 
POP_TRACE(); 
BgL_res4526z00_2026 = BgL_aux2125z00_2025; } } } } 
BgL_auxz00_3599 = BgL_res4526z00_2026; } 
return 
BINT(BgL_auxz00_3599);} } 
}



/* date-wday */
BGL_EXPORTED_DEF int BGl_datezd2wdayzd2zz__datez00(obj_t BgL_dz00_32)
{ AN_OBJECT;
{ /* ./Llib/date.scm 321 */
{ /* ./Llib/date.scm 322 */
obj_t BgL_symbol2130z00_2027;
BgL_symbol2130z00_2027 = BGl_symbol4471z00zz__datez00; 
{ /* ./Llib/date.scm 322 */

PUSH_TRACE(BgL_symbol2130z00_2027); BUNSPEC; 
{ /* ./Llib/date.scm 322 */
int BgL_aux2129z00_2028;
BgL_aux2129z00_2028 = 
BGL_DATE_WDAY(BgL_dz00_32); 
POP_TRACE(); 
return BgL_aux2129z00_2028;} } } } 
}



/* _date-wday */
obj_t BGl__datezd2wdayzd2zz__datez00(obj_t BgL_envz00_1444, obj_t BgL_dz00_1445)
{ AN_OBJECT;
{ /* ./Llib/date.scm 321 */
{ /* ./Llib/date.scm 322 */
int BgL_auxz00_3612;
{ /* ./Llib/date.scm 322 */
int BgL_res4527z00_2032;
{ /* ./Llib/date.scm 322 */
obj_t BgL_dz00_2029;
{ /* ./Llib/date.scm 322 */
bool_t BgL_test4159z00_1838;
BgL_test4159z00_1838 = 
BGL_DATEP(BgL_dz00_1445); 
if(BgL_test4159z00_1838)
{ /* ./Llib/date.scm 322 */
BgL_dz00_2029 = BgL_dz00_1445; }  else 
{ /* ./Llib/date.scm 322 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4472z00zz__datez00, BGl_string4443z00zz__datez00, BgL_dz00_1445, BGl_string4437z00zz__datez00, 
BINT(((long)14011))); 
exit( -1 );} } 
{ /* ./Llib/date.scm 322 */
obj_t BgL_symbol2130z00_2030;
BgL_symbol2130z00_2030 = BGl_symbol4471z00zz__datez00; 
{ /* ./Llib/date.scm 322 */

PUSH_TRACE(BgL_symbol2130z00_2030); BUNSPEC; 
{ /* ./Llib/date.scm 322 */
int BgL_aux2129z00_2031;
BgL_aux2129z00_2031 = 
BGL_DATE_WDAY(BgL_dz00_2029); 
POP_TRACE(); 
BgL_res4527z00_2032 = BgL_aux2129z00_2031; } } } } 
BgL_auxz00_3612 = BgL_res4527z00_2032; } 
return 
BINT(BgL_auxz00_3612);} } 
}



/* date-yday */
BGL_EXPORTED_DEF int BGl_datezd2ydayzd2zz__datez00(obj_t BgL_dz00_33)
{ AN_OBJECT;
{ /* ./Llib/date.scm 327 */
{ /* ./Llib/date.scm 328 */
obj_t BgL_symbol2134z00_2033;
BgL_symbol2134z00_2033 = BGl_symbol4473z00zz__datez00; 
{ /* ./Llib/date.scm 328 */

PUSH_TRACE(BgL_symbol2134z00_2033); BUNSPEC; 
{ /* ./Llib/date.scm 328 */
int BgL_aux2133z00_2034;
BgL_aux2133z00_2034 = 
BGL_DATE_YDAY(BgL_dz00_33); 
POP_TRACE(); 
return BgL_aux2133z00_2034;} } } } 
}



/* _date-yday */
obj_t BGl__datezd2ydayzd2zz__datez00(obj_t BgL_envz00_1446, obj_t BgL_dz00_1447)
{ AN_OBJECT;
{ /* ./Llib/date.scm 327 */
{ /* ./Llib/date.scm 328 */
int BgL_auxz00_3625;
{ /* ./Llib/date.scm 328 */
int BgL_res4528z00_2038;
{ /* ./Llib/date.scm 328 */
obj_t BgL_dz00_2035;
{ /* ./Llib/date.scm 328 */
bool_t BgL_test4170z00_1840;
BgL_test4170z00_1840 = 
BGL_DATEP(BgL_dz00_1447); 
if(BgL_test4170z00_1840)
{ /* ./Llib/date.scm 328 */
BgL_dz00_2035 = BgL_dz00_1447; }  else 
{ /* ./Llib/date.scm 328 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4474z00zz__datez00, BGl_string4443z00zz__datez00, BgL_dz00_1447, BGl_string4437z00zz__datez00, 
BINT(((long)14289))); 
exit( -1 );} } 
{ /* ./Llib/date.scm 328 */
obj_t BgL_symbol2134z00_2036;
BgL_symbol2134z00_2036 = BGl_symbol4473z00zz__datez00; 
{ /* ./Llib/date.scm 328 */

PUSH_TRACE(BgL_symbol2134z00_2036); BUNSPEC; 
{ /* ./Llib/date.scm 328 */
int BgL_aux2133z00_2037;
BgL_aux2133z00_2037 = 
BGL_DATE_YDAY(BgL_dz00_2035); 
POP_TRACE(); 
BgL_res4528z00_2038 = BgL_aux2133z00_2037; } } } } 
BgL_auxz00_3625 = BgL_res4528z00_2038; } 
return 
BINT(BgL_auxz00_3625);} } 
}



/* date-month */
BGL_EXPORTED_DEF int BGl_datezd2monthzd2zz__datez00(obj_t BgL_dz00_34)
{ AN_OBJECT;
{ /* ./Llib/date.scm 333 */
{ /* ./Llib/date.scm 334 */
obj_t BgL_symbol2138z00_2039;
BgL_symbol2138z00_2039 = BGl_symbol4475z00zz__datez00; 
{ /* ./Llib/date.scm 334 */

PUSH_TRACE(BgL_symbol2138z00_2039); BUNSPEC; 
{ /* ./Llib/date.scm 334 */
int BgL_aux2137z00_2040;
BgL_aux2137z00_2040 = 
BGL_DATE_MONTH(BgL_dz00_34); 
POP_TRACE(); 
return BgL_aux2137z00_2040;} } } } 
}



/* _date-month */
obj_t BGl__datezd2monthzd2zz__datez00(obj_t BgL_envz00_1448, obj_t BgL_dz00_1449)
{ AN_OBJECT;
{ /* ./Llib/date.scm 333 */
{ /* ./Llib/date.scm 334 */
int BgL_auxz00_3638;
{ /* ./Llib/date.scm 334 */
int BgL_res4529z00_2044;
{ /* ./Llib/date.scm 334 */
obj_t BgL_dz00_2041;
{ /* ./Llib/date.scm 334 */
bool_t BgL_test4181z00_1842;
BgL_test4181z00_1842 = 
BGL_DATEP(BgL_dz00_1449); 
if(BgL_test4181z00_1842)
{ /* ./Llib/date.scm 334 */
BgL_dz00_2041 = BgL_dz00_1449; }  else 
{ /* ./Llib/date.scm 334 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4476z00zz__datez00, BGl_string4443z00zz__datez00, BgL_dz00_1449, BGl_string4437z00zz__datez00, 
BINT(((long)14568))); 
exit( -1 );} } 
{ /* ./Llib/date.scm 334 */
obj_t BgL_symbol2138z00_2042;
BgL_symbol2138z00_2042 = BGl_symbol4475z00zz__datez00; 
{ /* ./Llib/date.scm 334 */

PUSH_TRACE(BgL_symbol2138z00_2042); BUNSPEC; 
{ /* ./Llib/date.scm 334 */
int BgL_aux2137z00_2043;
BgL_aux2137z00_2043 = 
BGL_DATE_MONTH(BgL_dz00_2041); 
POP_TRACE(); 
BgL_res4529z00_2044 = BgL_aux2137z00_2043; } } } } 
BgL_auxz00_3638 = BgL_res4529z00_2044; } 
return 
BINT(BgL_auxz00_3638);} } 
}



/* date-year */
BGL_EXPORTED_DEF int BGl_datezd2yearzd2zz__datez00(obj_t BgL_dz00_35)
{ AN_OBJECT;
{ /* ./Llib/date.scm 339 */
{ /* ./Llib/date.scm 340 */
obj_t BgL_symbol2142z00_2045;
BgL_symbol2142z00_2045 = BGl_symbol4477z00zz__datez00; 
{ /* ./Llib/date.scm 340 */

PUSH_TRACE(BgL_symbol2142z00_2045); BUNSPEC; 
{ /* ./Llib/date.scm 340 */
int BgL_aux2141z00_2046;
BgL_aux2141z00_2046 = 
BGL_DATE_YEAR(BgL_dz00_35); 
POP_TRACE(); 
return BgL_aux2141z00_2046;} } } } 
}



/* _date-year */
obj_t BGl__datezd2yearzd2zz__datez00(obj_t BgL_envz00_1450, obj_t BgL_dz00_1451)
{ AN_OBJECT;
{ /* ./Llib/date.scm 339 */
{ /* ./Llib/date.scm 340 */
int BgL_auxz00_3651;
{ /* ./Llib/date.scm 340 */
int BgL_res4530z00_2050;
{ /* ./Llib/date.scm 340 */
obj_t BgL_dz00_2047;
{ /* ./Llib/date.scm 340 */
bool_t BgL_test4192z00_1844;
BgL_test4192z00_1844 = 
BGL_DATEP(BgL_dz00_1451); 
if(BgL_test4192z00_1844)
{ /* ./Llib/date.scm 340 */
BgL_dz00_2047 = BgL_dz00_1451; }  else 
{ /* ./Llib/date.scm 340 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4478z00zz__datez00, BGl_string4443z00zz__datez00, BgL_dz00_1451, BGl_string4437z00zz__datez00, 
BINT(((long)14847))); 
exit( -1 );} } 
{ /* ./Llib/date.scm 340 */
obj_t BgL_symbol2142z00_2048;
BgL_symbol2142z00_2048 = BGl_symbol4477z00zz__datez00; 
{ /* ./Llib/date.scm 340 */

PUSH_TRACE(BgL_symbol2142z00_2048); BUNSPEC; 
{ /* ./Llib/date.scm 340 */
int BgL_aux2141z00_2049;
BgL_aux2141z00_2049 = 
BGL_DATE_YEAR(BgL_dz00_2047); 
POP_TRACE(); 
BgL_res4530z00_2050 = BgL_aux2141z00_2049; } } } } 
BgL_auxz00_3651 = BgL_res4530z00_2050; } 
return 
BINT(BgL_auxz00_3651);} } 
}



/* date-timezone */
BGL_EXPORTED_DEF long BGl_datezd2timeza7onez75zz__datez00(obj_t BgL_dz00_36)
{ AN_OBJECT;
{ /* ./Llib/date.scm 345 */
{ /* ./Llib/date.scm 346 */
obj_t BgL_symbol2146z00_2051;
BgL_symbol2146z00_2051 = BGl_symbol4479z00zz__datez00; 
{ /* ./Llib/date.scm 346 */

PUSH_TRACE(BgL_symbol2146z00_2051); BUNSPEC; 
{ /* ./Llib/date.scm 346 */
long BgL_aux2145z00_2052;
BgL_aux2145z00_2052 = 
BGL_DATE_TIMEZONE(BgL_dz00_36); 
POP_TRACE(); 
return BgL_aux2145z00_2052;} } } } 
}



/* _date-timezone */
obj_t BGl__datezd2timeza7onez75zz__datez00(obj_t BgL_envz00_1452, obj_t BgL_dz00_1453)
{ AN_OBJECT;
{ /* ./Llib/date.scm 345 */
{ /* ./Llib/date.scm 346 */
long BgL_auxz00_3664;
{ /* ./Llib/date.scm 346 */
long BgL_res4531z00_2056;
{ /* ./Llib/date.scm 346 */
obj_t BgL_dz00_2053;
{ /* ./Llib/date.scm 346 */
bool_t BgL_test4203z00_1846;
BgL_test4203z00_1846 = 
BGL_DATEP(BgL_dz00_1453); 
if(BgL_test4203z00_1846)
{ /* ./Llib/date.scm 346 */
BgL_dz00_2053 = BgL_dz00_1453; }  else 
{ /* ./Llib/date.scm 346 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4480z00zz__datez00, BGl_string4443z00zz__datez00, BgL_dz00_1453, BGl_string4437z00zz__datez00, 
BINT(((long)15129))); 
exit( -1 );} } 
{ /* ./Llib/date.scm 346 */
obj_t BgL_symbol2146z00_2054;
BgL_symbol2146z00_2054 = BGl_symbol4479z00zz__datez00; 
{ /* ./Llib/date.scm 346 */

PUSH_TRACE(BgL_symbol2146z00_2054); BUNSPEC; 
{ /* ./Llib/date.scm 346 */
long BgL_aux2145z00_2055;
BgL_aux2145z00_2055 = 
BGL_DATE_TIMEZONE(BgL_dz00_2053); 
POP_TRACE(); 
BgL_res4531z00_2056 = BgL_aux2145z00_2055; } } } } 
BgL_auxz00_3664 = BgL_res4531z00_2056; } 
return 
BINT(BgL_auxz00_3664);} } 
}



/* date-is-dst */
BGL_EXPORTED_DEF int BGl_datezd2iszd2dstz00zz__datez00(obj_t BgL_dz00_37)
{ AN_OBJECT;
{ /* ./Llib/date.scm 351 */
{ /* ./Llib/date.scm 352 */
obj_t BgL_symbol2150z00_2057;
BgL_symbol2150z00_2057 = BGl_symbol4481z00zz__datez00; 
{ /* ./Llib/date.scm 352 */

PUSH_TRACE(BgL_symbol2150z00_2057); BUNSPEC; 
{ /* ./Llib/date.scm 352 */
int BgL_aux2149z00_2058;
BgL_aux2149z00_2058 = 
BGL_DATE_ISDST(BgL_dz00_37); 
POP_TRACE(); 
return BgL_aux2149z00_2058;} } } } 
}



/* _date-is-dst2245 */
obj_t BGl__datezd2iszd2dst2245z00zz__datez00(obj_t BgL_envz00_1454, obj_t BgL_dz00_1455)
{ AN_OBJECT;
{ /* ./Llib/date.scm 351 */
{ /* ./Llib/date.scm 352 */
int BgL_auxz00_3677;
{ /* ./Llib/date.scm 352 */
int BgL_res4532z00_2062;
{ /* ./Llib/date.scm 352 */
obj_t BgL_dz00_2059;
{ /* ./Llib/date.scm 352 */
bool_t BgL_test4214z00_1848;
BgL_test4214z00_1848 = 
BGL_DATEP(BgL_dz00_1455); 
if(BgL_test4214z00_1848)
{ /* ./Llib/date.scm 352 */
BgL_dz00_2059 = BgL_dz00_1455; }  else 
{ /* ./Llib/date.scm 352 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4482z00zz__datez00, BGl_string4443z00zz__datez00, BgL_dz00_1455, BGl_string4437z00zz__datez00, 
BINT(((long)15413))); 
exit( -1 );} } 
{ /* ./Llib/date.scm 352 */
obj_t BgL_symbol2150z00_2060;
BgL_symbol2150z00_2060 = BGl_symbol4481z00zz__datez00; 
{ /* ./Llib/date.scm 352 */

PUSH_TRACE(BgL_symbol2150z00_2060); BUNSPEC; 
{ /* ./Llib/date.scm 352 */
int BgL_aux2149z00_2061;
BgL_aux2149z00_2061 = 
BGL_DATE_ISDST(BgL_dz00_2059); 
POP_TRACE(); 
BgL_res4532z00_2062 = BgL_aux2149z00_2061; } } } } 
BgL_auxz00_3677 = BgL_res4532z00_2062; } 
return 
BINT(BgL_auxz00_3677);} } 
}



/* current-seconds */
BGL_EXPORTED_DEF long BGl_currentzd2secondszd2zz__datez00()
{ AN_OBJECT;
{ /* ./Llib/date.scm 357 */
{ /* ./Llib/date.scm 358 */
obj_t BgL_symbol2154z00_2063;
BgL_symbol2154z00_2063 = BGl_symbol4483z00zz__datez00; 
{ /* ./Llib/date.scm 358 */

PUSH_TRACE(BgL_symbol2154z00_2063); BUNSPEC; 
{ /* ./Llib/date.scm 358 */
long BgL_aux2153z00_2064;
BgL_aux2153z00_2064 = 
bgl_current_seconds(); 
POP_TRACE(); 
return BgL_aux2153z00_2064;} } } } 
}



/* _current-seconds */
obj_t BGl__currentzd2secondszd2zz__datez00(obj_t BgL_envz00_1456)
{ AN_OBJECT;
{ /* ./Llib/date.scm 357 */
{ /* ./Llib/date.scm 358 */
long BgL_auxz00_3690;
{ /* ./Llib/date.scm 358 */
long BgL_res4533z00_2067;
{ /* ./Llib/date.scm 358 */
obj_t BgL_symbol2154z00_2065;
BgL_symbol2154z00_2065 = BGl_symbol4483z00zz__datez00; 
{ /* ./Llib/date.scm 358 */

PUSH_TRACE(BgL_symbol2154z00_2065); BUNSPEC; 
{ /* ./Llib/date.scm 358 */
long BgL_aux2153z00_2066;
BgL_aux2153z00_2066 = 
bgl_current_seconds(); 
POP_TRACE(); 
BgL_res4533z00_2067 = BgL_aux2153z00_2066; } } } 
BgL_auxz00_3690 = BgL_res4533z00_2067; } 
return 
LONG_TO_BELONG(BgL_auxz00_3690);} } 
}



/* current-date */
BGL_EXPORTED_DEF obj_t BGl_currentzd2datezd2zz__datez00()
{ AN_OBJECT;
{ /* ./Llib/date.scm 363 */
{ /* ./Llib/date.scm 364 */
obj_t BgL_symbol2158z00_2068;
BgL_symbol2158z00_2068 = BGl_symbol4484z00zz__datez00; 
{ /* ./Llib/date.scm 364 */

PUSH_TRACE(BgL_symbol2158z00_2068); BUNSPEC; 
{ /* ./Llib/date.scm 364 */
obj_t BgL_aux2157z00_2069;
{ /* ./Llib/date.scm 364 */
long BgL_auxz00_3696;
BgL_auxz00_3696 = 
bgl_current_seconds(); 
BgL_aux2157z00_2069 = 
bgl_seconds_to_date(BgL_auxz00_3696); } 
POP_TRACE(); 
return BgL_aux2157z00_2069;} } } } 
}



/* _current-date */
obj_t BGl__currentzd2datezd2zz__datez00(obj_t BgL_envz00_1457)
{ AN_OBJECT;
{ /* ./Llib/date.scm 363 */
{ /* ./Llib/date.scm 364 */
obj_t BgL_res4534z00_2072;
{ /* ./Llib/date.scm 364 */
obj_t BgL_symbol2158z00_2070;
BgL_symbol2158z00_2070 = BGl_symbol4484z00zz__datez00; 
{ /* ./Llib/date.scm 364 */

PUSH_TRACE(BgL_symbol2158z00_2070); BUNSPEC; 
{ /* ./Llib/date.scm 364 */
obj_t BgL_aux2157z00_2071;
{ /* ./Llib/date.scm 364 */
long BgL_auxz00_3701;
BgL_auxz00_3701 = 
bgl_current_seconds(); 
BgL_aux2157z00_2071 = 
bgl_seconds_to_date(BgL_auxz00_3701); } 
POP_TRACE(); 
BgL_res4534z00_2072 = BgL_aux2157z00_2071; } } } 
return BgL_res4534z00_2072;} } 
}



/* seconds->date */
BGL_EXPORTED_DEF obj_t BGl_secondszd2ze3datez31zz__datez00(long BgL_elongz00_38)
{ AN_OBJECT;
{ /* ./Llib/date.scm 369 */
{ /* ./Llib/date.scm 370 */
obj_t BgL_symbol2162z00_2073;
BgL_symbol2162z00_2073 = BGl_symbol4485z00zz__datez00; 
{ /* ./Llib/date.scm 370 */

PUSH_TRACE(BgL_symbol2162z00_2073); BUNSPEC; 
{ /* ./Llib/date.scm 370 */
obj_t BgL_aux2161z00_2074;
BgL_aux2161z00_2074 = 
bgl_seconds_to_date(BgL_elongz00_38); 
POP_TRACE(); 
return BgL_aux2161z00_2074;} } } } 
}



/* _seconds->date */
obj_t BGl__secondszd2ze3datez31zz__datez00(obj_t BgL_envz00_1458, obj_t BgL_elongz00_1459)
{ AN_OBJECT;
{ /* ./Llib/date.scm 369 */
{ /* ./Llib/date.scm 370 */
obj_t BgL_res4535z00_2078;
{ /* ./Llib/date.scm 370 */
long BgL_elongz00_2075;
{ /* ./Llib/date.scm 370 */
obj_t BgL_auxz00_3708;
if(
ELONGP(BgL_elongz00_1459))
{ /* ./Llib/date.scm 370 */
BgL_auxz00_3708 = BgL_elongz00_1459
; }  else 
{ /* ./Llib/date.scm 370 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4486z00zz__datez00, BGl_string4446z00zz__datez00, BgL_elongz00_1459, BGl_string4437z00zz__datez00, 
BINT(((long)16284))); 
exit( -1 );} 
BgL_elongz00_2075 = 
BELONG_TO_LONG(BgL_auxz00_3708); } 
{ /* ./Llib/date.scm 370 */
obj_t BgL_symbol2162z00_2076;
BgL_symbol2162z00_2076 = BGl_symbol4485z00zz__datez00; 
{ /* ./Llib/date.scm 370 */

PUSH_TRACE(BgL_symbol2162z00_2076); BUNSPEC; 
{ /* ./Llib/date.scm 370 */
obj_t BgL_aux2161z00_2077;
BgL_aux2161z00_2077 = 
bgl_seconds_to_date(BgL_elongz00_2075); 
POP_TRACE(); 
BgL_res4535z00_2078 = BgL_aux2161z00_2077; } } } } 
return BgL_res4535z00_2078;} } 
}



/* date->seconds */
BGL_EXPORTED_DEF long BGl_datezd2ze3secondsz31zz__datez00(obj_t BgL_datez00_39)
{ AN_OBJECT;
{ /* ./Llib/date.scm 375 */
{ /* ./Llib/date.scm 376 */
obj_t BgL_symbol2166z00_2079;
BgL_symbol2166z00_2079 = BGl_symbol4487z00zz__datez00; 
{ /* ./Llib/date.scm 376 */

PUSH_TRACE(BgL_symbol2166z00_2079); BUNSPEC; 
{ /* ./Llib/date.scm 376 */
long BgL_aux2165z00_2080;
BgL_aux2165z00_2080 = 
bgl_date_to_seconds(BgL_datez00_39); 
POP_TRACE(); 
return BgL_aux2165z00_2080;} } } } 
}



/* _date->seconds */
obj_t BGl__datezd2ze3secondsz31zz__datez00(obj_t BgL_envz00_1460, obj_t BgL_datez00_1461)
{ AN_OBJECT;
{ /* ./Llib/date.scm 375 */
{ /* ./Llib/date.scm 376 */
long BgL_auxz00_3721;
{ /* ./Llib/date.scm 376 */
long BgL_res4536z00_2084;
{ /* ./Llib/date.scm 376 */
obj_t BgL_datez00_2081;
{ /* ./Llib/date.scm 376 */
bool_t BgL_test4237z00_1852;
BgL_test4237z00_1852 = 
BGL_DATEP(BgL_datez00_1461); 
if(BgL_test4237z00_1852)
{ /* ./Llib/date.scm 376 */
BgL_datez00_2081 = BgL_datez00_1461; }  else 
{ /* ./Llib/date.scm 376 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4488z00zz__datez00, BGl_string4443z00zz__datez00, BgL_datez00_1461, BGl_string4437z00zz__datez00, 
BINT(((long)16575))); 
exit( -1 );} } 
{ /* ./Llib/date.scm 376 */
obj_t BgL_symbol2166z00_2082;
BgL_symbol2166z00_2082 = BGl_symbol4487z00zz__datez00; 
{ /* ./Llib/date.scm 376 */

PUSH_TRACE(BgL_symbol2166z00_2082); BUNSPEC; 
{ /* ./Llib/date.scm 376 */
long BgL_aux2165z00_2083;
BgL_aux2165z00_2083 = 
bgl_date_to_seconds(BgL_datez00_2081); 
POP_TRACE(); 
BgL_res4536z00_2084 = BgL_aux2165z00_2083; } } } } 
BgL_auxz00_3721 = BgL_res4536z00_2084; } 
return 
LONG_TO_BELONG(BgL_auxz00_3721);} } 
}



/* 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 */
obj_t BgL_symbol2170z00_2085;
BgL_symbol2170z00_2085 = BGl_symbol4489z00zz__datez00; 
{ /* ./Llib/date.scm 382 */

PUSH_TRACE(BgL_symbol2170z00_2085); BUNSPEC; 
{ /* ./Llib/date.scm 382 */
obj_t BgL_aux2169z00_2086;
{ /* ./Llib/date.scm 382 */
long BgL_auxz00_3732;
BgL_auxz00_3732 = 
bgl_date_to_seconds(BgL_datez00_40); 
BgL_aux2169z00_2086 = 
bgl_seconds_to_string(BgL_auxz00_3732); } 
POP_TRACE(); 
return BgL_aux2169z00_2086;} } } } 
}



/* _date->string */
obj_t BGl__datezd2ze3stringz31zz__datez00(obj_t BgL_envz00_1462, obj_t BgL_datez00_1463)
{ AN_OBJECT;
{ /* ./Llib/date.scm 381 */
{ /* ./Llib/date.scm 382 */
obj_t BgL_res4537z00_2090;
{ /* ./Llib/date.scm 382 */
obj_t BgL_datez00_2087;
{ /* ./Llib/date.scm 382 */
bool_t BgL_test4248z00_1854;
BgL_test4248z00_1854 = 
BGL_DATEP(BgL_datez00_1463); 
if(BgL_test4248z00_1854)
{ /* ./Llib/date.scm 382 */
BgL_datez00_2087 = BgL_datez00_1463; }  else 
{ /* ./Llib/date.scm 382 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4490z00zz__datez00, BGl_string4443z00zz__datez00, BgL_datez00_1463, BGl_string4437z00zz__datez00, 
BINT(((long)16879))); 
exit( -1 );} } 
{ /* ./Llib/date.scm 382 */
obj_t BgL_symbol2170z00_2088;
BgL_symbol2170z00_2088 = BGl_symbol4489z00zz__datez00; 
{ /* ./Llib/date.scm 382 */

PUSH_TRACE(BgL_symbol2170z00_2088); BUNSPEC; 
{ /* ./Llib/date.scm 382 */
obj_t BgL_aux2169z00_2089;
{ /* ./Llib/date.scm 382 */
long BgL_auxz00_3742;
BgL_auxz00_3742 = 
bgl_date_to_seconds(BgL_datez00_2087); 
BgL_aux2169z00_2089 = 
bgl_seconds_to_string(BgL_auxz00_3742); } 
POP_TRACE(); 
BgL_res4537z00_2090 = BgL_aux2169z00_2089; } } } } 
return BgL_res4537z00_2090;} } 
}



/* 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 */
obj_t BgL_symbol2174z00_2091;
BgL_symbol2174z00_2091 = BGl_symbol4491z00zz__datez00; 
{ /* ./Llib/date.scm 388 */

PUSH_TRACE(BgL_symbol2174z00_2091); BUNSPEC; 
{ /* ./Llib/date.scm 388 */
obj_t BgL_aux2173z00_2092;
{ /* ./Llib/date.scm 388 */
long BgL_auxz00_3747;
BgL_auxz00_3747 = 
bgl_date_to_seconds(BgL_datez00_41); 
BgL_aux2173z00_2092 = 
bgl_seconds_to_utc_string(BgL_auxz00_3747); } 
POP_TRACE(); 
return BgL_aux2173z00_2092;} } } } 
}



/* _date->utc-string */
obj_t BGl__datezd2ze3utczd2stringze3zz__datez00(obj_t BgL_envz00_1464, obj_t BgL_datez00_1465)
{ AN_OBJECT;
{ /* ./Llib/date.scm 387 */
{ /* ./Llib/date.scm 388 */
obj_t BgL_res4538z00_2096;
{ /* ./Llib/date.scm 388 */
obj_t BgL_datez00_2093;
{ /* ./Llib/date.scm 388 */
bool_t BgL_test4258z00_1856;
BgL_test4258z00_1856 = 
BGL_DATEP(BgL_datez00_1465); 
if(BgL_test4258z00_1856)
{ /* ./Llib/date.scm 388 */
BgL_datez00_2093 = BgL_datez00_1465; }  else 
{ /* ./Llib/date.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4492z00zz__datez00, BGl_string4443z00zz__datez00, BgL_datez00_1465, BGl_string4437z00zz__datez00, 
BINT(((long)17188))); 
exit( -1 );} } 
{ /* ./Llib/date.scm 388 */
obj_t BgL_symbol2174z00_2094;
BgL_symbol2174z00_2094 = BGl_symbol4491z00zz__datez00; 
{ /* ./Llib/date.scm 388 */

PUSH_TRACE(BgL_symbol2174z00_2094); BUNSPEC; 
{ /* ./Llib/date.scm 388 */
obj_t BgL_aux2173z00_2095;
{ /* ./Llib/date.scm 388 */
long BgL_auxz00_3757;
BgL_auxz00_3757 = 
bgl_date_to_seconds(BgL_datez00_2093); 
BgL_aux2173z00_2095 = 
bgl_seconds_to_utc_string(BgL_auxz00_3757); } 
POP_TRACE(); 
BgL_res4538z00_2096 = BgL_aux2173z00_2095; } } } } 
return BgL_res4538z00_2096;} } 
}



/* seconds->string */
BGL_EXPORTED_DEF obj_t BGl_secondszd2ze3stringz31zz__datez00(long BgL_secz00_42)
{ AN_OBJECT;
{ /* ./Llib/date.scm 393 */
{ /* ./Llib/date.scm 394 */
obj_t BgL_symbol2178z00_2097;
BgL_symbol2178z00_2097 = BGl_symbol4493z00zz__datez00; 
{ /* ./Llib/date.scm 394 */

PUSH_TRACE(BgL_symbol2178z00_2097); BUNSPEC; 
{ /* ./Llib/date.scm 394 */
obj_t BgL_aux2177z00_2098;
BgL_aux2177z00_2098 = 
bgl_seconds_to_string(BgL_secz00_42); 
POP_TRACE(); 
return BgL_aux2177z00_2098;} } } } 
}



/* _seconds->string */
obj_t BGl__secondszd2ze3stringz31zz__datez00(obj_t BgL_envz00_1466, obj_t BgL_secz00_1467)
{ AN_OBJECT;
{ /* ./Llib/date.scm 393 */
{ /* ./Llib/date.scm 394 */
obj_t BgL_res4539z00_2102;
{ /* ./Llib/date.scm 394 */
long BgL_secz00_2099;
{ /* ./Llib/date.scm 394 */
obj_t BgL_auxz00_3764;
if(
ELONGP(BgL_secz00_1467))
{ /* ./Llib/date.scm 394 */
BgL_auxz00_3764 = BgL_secz00_1467
; }  else 
{ /* ./Llib/date.scm 394 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4494z00zz__datez00, BGl_string4446z00zz__datez00, BgL_secz00_1467, BGl_string4437z00zz__datez00, 
BINT(((long)17474))); 
exit( -1 );} 
BgL_secz00_2099 = 
BELONG_TO_LONG(BgL_auxz00_3764); } 
{ /* ./Llib/date.scm 394 */
obj_t BgL_symbol2178z00_2100;
BgL_symbol2178z00_2100 = BGl_symbol4493z00zz__datez00; 
{ /* ./Llib/date.scm 394 */

PUSH_TRACE(BgL_symbol2178z00_2100); BUNSPEC; 
{ /* ./Llib/date.scm 394 */
obj_t BgL_aux2177z00_2101;
BgL_aux2177z00_2101 = 
bgl_seconds_to_string(BgL_secz00_2099); 
POP_TRACE(); 
BgL_res4539z00_2102 = BgL_aux2177z00_2101; } } } } 
return BgL_res4539z00_2102;} } 
}



/* seconds->utc-string */
BGL_EXPORTED_DEF obj_t BGl_secondszd2ze3utczd2stringze3zz__datez00(long BgL_secz00_43)
{ AN_OBJECT;
{ /* ./Llib/date.scm 399 */
{ /* ./Llib/date.scm 400 */
obj_t BgL_symbol2182z00_2103;
BgL_symbol2182z00_2103 = BGl_symbol4495z00zz__datez00; 
{ /* ./Llib/date.scm 400 */

PUSH_TRACE(BgL_symbol2182z00_2103); BUNSPEC; 
{ /* ./Llib/date.scm 400 */
obj_t BgL_aux2181z00_2104;
BgL_aux2181z00_2104 = 
bgl_seconds_to_utc_string(BgL_secz00_43); 
POP_TRACE(); 
return BgL_aux2181z00_2104;} } } } 
}



/* _seconds->utc-string */
obj_t BGl__secondszd2ze3utczd2stringze3zz__datez00(obj_t BgL_envz00_1468, obj_t BgL_secz00_1469)
{ AN_OBJECT;
{ /* ./Llib/date.scm 399 */
{ /* ./Llib/date.scm 400 */
obj_t BgL_res4540z00_2108;
{ /* ./Llib/date.scm 400 */
long BgL_secz00_2105;
{ /* ./Llib/date.scm 400 */
obj_t BgL_auxz00_3777;
if(
ELONGP(BgL_secz00_1469))
{ /* ./Llib/date.scm 400 */
BgL_auxz00_3777 = BgL_secz00_1469
; }  else 
{ /* ./Llib/date.scm 400 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4496z00zz__datez00, BGl_string4446z00zz__datez00, BgL_secz00_1469, BGl_string4437z00zz__datez00, 
BINT(((long)17773))); 
exit( -1 );} 
BgL_secz00_2105 = 
BELONG_TO_LONG(BgL_auxz00_3777); } 
{ /* ./Llib/date.scm 400 */
obj_t BgL_symbol2182z00_2106;
BgL_symbol2182z00_2106 = BGl_symbol4495z00zz__datez00; 
{ /* ./Llib/date.scm 400 */

PUSH_TRACE(BgL_symbol2182z00_2106); BUNSPEC; 
{ /* ./Llib/date.scm 400 */
obj_t BgL_aux2181z00_2107;
BgL_aux2181z00_2107 = 
bgl_seconds_to_utc_string(BgL_secz00_2105); 
POP_TRACE(); 
BgL_res4540z00_2108 = BgL_aux2181z00_2107; } } } } 
return BgL_res4540z00_2108;} } 
}



/* day-seconds */
BGL_EXPORTED_DEF long BGl_dayzd2secondszd2zz__datez00()
{ AN_OBJECT;
{ /* ./Llib/date.scm 405 */
{ /* ./Llib/date.scm 406 */
obj_t BgL_symbol2186z00_2109;
BgL_symbol2186z00_2109 = BGl_symbol4497z00zz__datez00; 
{ /* ./Llib/date.scm 406 */

PUSH_TRACE(BgL_symbol2186z00_2109); BUNSPEC; 
{ /* ./Llib/date.scm 406 */
long BgL_aux2185z00_2110;
BgL_aux2185z00_2110 = 
BELONG_TO_LONG(ELONG_TO_BELONG( 86400)); 
POP_TRACE(); 
return BgL_aux2185z00_2110;} } } } 
}



/* _day-seconds */
obj_t BGl__dayzd2secondszd2zz__datez00(obj_t BgL_envz00_1470)
{ AN_OBJECT;
{ /* ./Llib/date.scm 405 */
{ /* ./Llib/date.scm 406 */
long BgL_auxz00_3790;
{ /* ./Llib/date.scm 406 */
long BgL_res4541z00_2113;
{ /* ./Llib/date.scm 406 */
obj_t BgL_symbol2186z00_2111;
BgL_symbol2186z00_2111 = BGl_symbol4497z00zz__datez00; 
{ /* ./Llib/date.scm 406 */

PUSH_TRACE(BgL_symbol2186z00_2111); BUNSPEC; 
{ /* ./Llib/date.scm 406 */
long BgL_aux2185z00_2112;
BgL_aux2185z00_2112 = 
BELONG_TO_LONG(ELONG_TO_BELONG( 86400)); 
POP_TRACE(); 
BgL_res4541z00_2113 = BgL_aux2185z00_2112; } } } 
BgL_auxz00_3790 = BgL_res4541z00_2113; } 
return 
LONG_TO_BELONG(BgL_auxz00_3790);} } 
}



/* day-name */
BGL_EXPORTED_DEF obj_t BGl_dayzd2namezd2zz__datez00(int BgL_dayz00_44)
{ AN_OBJECT;
{ /* ./Llib/date.scm 411 */
{ /* ./Llib/date.scm 413 */
obj_t BgL_symbol2190z00_1385;
BgL_symbol2190z00_1385 = BGl_symbol4498z00zz__datez00; 
{ /* ./Llib/date.scm 413 */

PUSH_TRACE(BgL_symbol2190z00_1385); BUNSPEC; 
{ /* ./Llib/date.scm 413 */
obj_t BgL_aux2189z00_1386;
{ /* ./Llib/date.scm 413 */
bool_t BgL_testz00_3796;
{ /* ./Llib/date.scm 413 */
long BgL_auxz00_3797;
BgL_auxz00_3797 = 
(long)(BgL_dayz00_44); 
BgL_testz00_3796 = 
(BgL_auxz00_3797<((long)1)); } 
if(BgL_testz00_3796)
{ /* ./Llib/date.scm 413 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_symbol4498z00zz__datez00, BGl_string4499z00zz__datez00, 
BINT(BgL_dayz00_44), "./Llib/date.scm", ((long)18354)); 
{ /* ./Llib/date.scm 414 */
obj_t BgL_aux4299z00_1861;
BgL_aux4299z00_1861 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4437z00zz__datez00, 
BINT(((long)18354))); 
if(
STRINGP(BgL_aux4299z00_1861))
{ /* ./Llib/date.scm 414 */
BgL_aux2189z00_1386 = BgL_aux4299z00_1861; }  else 
{ /* ./Llib/date.scm 414 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4498z00zz__datez00, BGl_string4500z00zz__datez00, BgL_aux4299z00_1861, BGl_string4437z00zz__datez00, 
BINT(((long)18354))); 
exit( -1 );} } }  else 
{ /* ./Llib/date.scm 415 */
bool_t BgL_testz00_3809;
{ /* ./Llib/date.scm 415 */
long BgL_auxz00_3810;
BgL_auxz00_3810 = 
(long)(BgL_dayz00_44); 
BgL_testz00_3809 = 
(BgL_auxz00_3810>((long)7)); } 
if(BgL_testz00_3809)
{ /* ./Llib/date.scm 415 */
{ /* ./Llib/date.scm 416 */
long BgL_arg1332z00_539;
{ /* ./Llib/date.scm 416 */
long BgL_arg1336z00_541;
{ /* ./Llib/date.scm 416 */
long BgL_auxz00_3813;
BgL_auxz00_3813 = 
(long)(BgL_dayz00_44); 
BgL_arg1336z00_541 = 
(BgL_auxz00_3813%((long)7)); } 
BgL_arg1332z00_539 = 
(((long)1)+BgL_arg1336z00_541); } 
{ /* ./Llib/date.scm 416 */
int BgL_auxz00_3817;
BgL_auxz00_3817 = 
(int)(BgL_arg1332z00_539); 
BgL_aux2189z00_1386 = 
bgl_day_name(BgL_auxz00_3817); } } }  else 
{ /* ./Llib/date.scm 415 */
BgL_aux2189z00_1386 = 
bgl_day_name(BgL_dayz00_44); } } } 
POP_TRACE(); 
return BgL_aux2189z00_1386;} } } } 
}



/* _day-name */
obj_t BGl__dayzd2namezd2zz__datez00(obj_t BgL_envz00_1471, obj_t BgL_dayz00_1472)
{ AN_OBJECT;
{ /* ./Llib/date.scm 411 */
{ /* ./Llib/date.scm 413 */
int BgL_auxz00_3822;
{ /* ./Llib/date.scm 413 */
obj_t BgL_auxz00_3823;
if(
INTEGERP(BgL_dayz00_1472))
{ /* ./Llib/date.scm 413 */
BgL_auxz00_3823 = BgL_dayz00_1472
; }  else 
{ /* ./Llib/date.scm 413 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4501z00zz__datez00, BGl_string4438z00zz__datez00, BgL_dayz00_1472, BGl_string4437z00zz__datez00, 
BINT(((long)18335))); 
exit( -1 );} 
BgL_auxz00_3822 = 
CINT(BgL_auxz00_3823); } 
return 
BGl_dayzd2namezd2zz__datez00(BgL_auxz00_3822);} } 
}



/* day-aname */
BGL_EXPORTED_DEF obj_t BGl_dayzd2anamezd2zz__datez00(int BgL_dayz00_45)
{ AN_OBJECT;
{ /* ./Llib/date.scm 423 */
{ /* ./Llib/date.scm 425 */
obj_t BgL_symbol2194z00_1387;
BgL_symbol2194z00_1387 = BGl_symbol4502z00zz__datez00; 
{ /* ./Llib/date.scm 425 */

PUSH_TRACE(BgL_symbol2194z00_1387); BUNSPEC; 
{ /* ./Llib/date.scm 425 */
obj_t BgL_aux2193z00_1388;
{ /* ./Llib/date.scm 425 */
bool_t BgL_testz00_3832;
{ /* ./Llib/date.scm 425 */
long BgL_auxz00_3833;
BgL_auxz00_3833 = 
(long)(BgL_dayz00_45); 
BgL_testz00_3832 = 
(BgL_auxz00_3833<((long)1)); } 
if(BgL_testz00_3832)
{ /* ./Llib/date.scm 425 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_symbol4502z00zz__datez00, BGl_string4499z00zz__datez00, 
BINT(BgL_dayz00_45), "./Llib/date.scm", ((long)18795)); 
{ /* ./Llib/date.scm 426 */
obj_t BgL_aux4331z00_1865;
BgL_aux4331z00_1865 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4437z00zz__datez00, 
BINT(((long)18795))); 
if(
STRINGP(BgL_aux4331z00_1865))
{ /* ./Llib/date.scm 426 */
BgL_aux2193z00_1388 = BgL_aux4331z00_1865; }  else 
{ /* ./Llib/date.scm 426 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4502z00zz__datez00, BGl_string4500z00zz__datez00, BgL_aux4331z00_1865, BGl_string4437z00zz__datez00, 
BINT(((long)18795))); 
exit( -1 );} } }  else 
{ /* ./Llib/date.scm 427 */
bool_t BgL_testz00_3845;
{ /* ./Llib/date.scm 427 */
long BgL_auxz00_3846;
BgL_auxz00_3846 = 
(long)(BgL_dayz00_45); 
BgL_testz00_3845 = 
(BgL_auxz00_3846>((long)7)); } 
if(BgL_testz00_3845)
{ /* ./Llib/date.scm 427 */
{ /* ./Llib/date.scm 428 */
long BgL_arg1347z00_544;
{ /* ./Llib/date.scm 428 */
long BgL_arg1354z00_546;
{ /* ./Llib/date.scm 428 */
long BgL_auxz00_3849;
BgL_auxz00_3849 = 
(long)(BgL_dayz00_45); 
BgL_arg1354z00_546 = 
(BgL_auxz00_3849%((long)7)); } 
BgL_arg1347z00_544 = 
(((long)1)+BgL_arg1354z00_546); } 
{ /* ./Llib/date.scm 428 */
int BgL_auxz00_3853;
BgL_auxz00_3853 = 
(int)(BgL_arg1347z00_544); 
BgL_aux2193z00_1388 = 
bgl_day_aname(BgL_auxz00_3853); } } }  else 
{ /* ./Llib/date.scm 427 */
BgL_aux2193z00_1388 = 
bgl_day_aname(BgL_dayz00_45); } } } 
POP_TRACE(); 
return BgL_aux2193z00_1388;} } } } 
}



/* _day-aname */
obj_t BGl__dayzd2anamezd2zz__datez00(obj_t BgL_envz00_1473, obj_t BgL_dayz00_1474)
{ AN_OBJECT;
{ /* ./Llib/date.scm 423 */
{ /* ./Llib/date.scm 425 */
int BgL_auxz00_3858;
{ /* ./Llib/date.scm 425 */
obj_t BgL_auxz00_3859;
if(
INTEGERP(BgL_dayz00_1474))
{ /* ./Llib/date.scm 425 */
BgL_auxz00_3859 = BgL_dayz00_1474
; }  else 
{ /* ./Llib/date.scm 425 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4503z00zz__datez00, BGl_string4438z00zz__datez00, BgL_dayz00_1474, BGl_string4437z00zz__datez00, 
BINT(((long)18776))); 
exit( -1 );} 
BgL_auxz00_3858 = 
CINT(BgL_auxz00_3859); } 
return 
BGl_dayzd2anamezd2zz__datez00(BgL_auxz00_3858);} } 
}



/* month-name */
BGL_EXPORTED_DEF obj_t BGl_monthzd2namezd2zz__datez00(int BgL_monthz00_46)
{ AN_OBJECT;
{ /* ./Llib/date.scm 435 */
{ /* ./Llib/date.scm 437 */
obj_t BgL_symbol2198z00_1389;
BgL_symbol2198z00_1389 = BGl_symbol4504z00zz__datez00; 
{ /* ./Llib/date.scm 437 */

PUSH_TRACE(BgL_symbol2198z00_1389); BUNSPEC; 
{ /* ./Llib/date.scm 437 */
obj_t BgL_aux2197z00_1390;
{ /* ./Llib/date.scm 437 */
bool_t BgL_testz00_3868;
{ /* ./Llib/date.scm 437 */
long BgL_auxz00_3869;
BgL_auxz00_3869 = 
(long)(BgL_monthz00_46); 
BgL_testz00_3868 = 
(BgL_auxz00_3869<((long)1)); } 
if(BgL_testz00_3868)
{ /* ./Llib/date.scm 437 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_symbol4505z00zz__datez00, BGl_string4506z00zz__datez00, 
BINT(BgL_monthz00_46), "./Llib/date.scm", ((long)19244)); 
{ /* ./Llib/date.scm 438 */
obj_t BgL_aux4363z00_1869;
BgL_aux4363z00_1869 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4437z00zz__datez00, 
BINT(((long)19244))); 
if(
STRINGP(BgL_aux4363z00_1869))
{ /* ./Llib/date.scm 438 */
BgL_aux2197z00_1390 = BgL_aux4363z00_1869; }  else 
{ /* ./Llib/date.scm 438 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4504z00zz__datez00, BGl_string4500z00zz__datez00, BgL_aux4363z00_1869, BGl_string4437z00zz__datez00, 
BINT(((long)19244))); 
exit( -1 );} } }  else 
{ /* ./Llib/date.scm 439 */
bool_t BgL_testz00_3881;
{ /* ./Llib/date.scm 439 */
long BgL_auxz00_3882;
BgL_auxz00_3882 = 
(long)(BgL_monthz00_46); 
BgL_testz00_3881 = 
(BgL_auxz00_3882>((long)12)); } 
if(BgL_testz00_3881)
{ /* ./Llib/date.scm 439 */
{ /* ./Llib/date.scm 440 */
long BgL_arg1365z00_549;
{ /* ./Llib/date.scm 440 */
long BgL_arg1370z00_551;
{ /* ./Llib/date.scm 440 */
long BgL_auxz00_3885;
BgL_auxz00_3885 = 
(long)(BgL_monthz00_46); 
BgL_arg1370z00_551 = 
(BgL_auxz00_3885%((long)12)); } 
BgL_arg1365z00_549 = 
(((long)1)+BgL_arg1370z00_551); } 
{ /* ./Llib/date.scm 440 */
int BgL_auxz00_3889;
BgL_auxz00_3889 = 
(int)(BgL_arg1365z00_549); 
BgL_aux2197z00_1390 = 
bgl_month_name(BgL_auxz00_3889); } } }  else 
{ /* ./Llib/date.scm 439 */
BgL_aux2197z00_1390 = 
bgl_month_name(BgL_monthz00_46); } } } 
POP_TRACE(); 
return BgL_aux2197z00_1390;} } } } 
}



/* _month-name */
obj_t BGl__monthzd2namezd2zz__datez00(obj_t BgL_envz00_1475, obj_t BgL_monthz00_1476)
{ AN_OBJECT;
{ /* ./Llib/date.scm 435 */
{ /* ./Llib/date.scm 437 */
int BgL_auxz00_3894;
{ /* ./Llib/date.scm 437 */
obj_t BgL_auxz00_3895;
if(
INTEGERP(BgL_monthz00_1476))
{ /* ./Llib/date.scm 437 */
BgL_auxz00_3895 = BgL_monthz00_1476
; }  else 
{ /* ./Llib/date.scm 437 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4507z00zz__datez00, BGl_string4438z00zz__datez00, BgL_monthz00_1476, BGl_string4437z00zz__datez00, 
BINT(((long)19223))); 
exit( -1 );} 
BgL_auxz00_3894 = 
CINT(BgL_auxz00_3895); } 
return 
BGl_monthzd2namezd2zz__datez00(BgL_auxz00_3894);} } 
}



/* month-aname */
BGL_EXPORTED_DEF obj_t BGl_monthzd2anamezd2zz__datez00(int BgL_monthz00_47)
{ AN_OBJECT;
{ /* ./Llib/date.scm 447 */
{ /* ./Llib/date.scm 449 */
obj_t BgL_symbol2202z00_1391;
BgL_symbol2202z00_1391 = BGl_symbol4505z00zz__datez00; 
{ /* ./Llib/date.scm 449 */

PUSH_TRACE(BgL_symbol2202z00_1391); BUNSPEC; 
{ /* ./Llib/date.scm 449 */
obj_t BgL_aux2201z00_1392;
{ /* ./Llib/date.scm 449 */
bool_t BgL_testz00_3904;
{ /* ./Llib/date.scm 449 */
long BgL_auxz00_3905;
BgL_auxz00_3905 = 
(long)(BgL_monthz00_47); 
BgL_testz00_3904 = 
(BgL_auxz00_3905<((long)1)); } 
if(BgL_testz00_3904)
{ /* ./Llib/date.scm 449 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_symbol4505z00zz__datez00, BGl_string4506z00zz__datez00, 
BINT(BgL_monthz00_47), "./Llib/date.scm", ((long)19710)); 
{ /* ./Llib/date.scm 450 */
obj_t BgL_aux4395z00_1873;
BgL_aux4395z00_1873 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4437z00zz__datez00, 
BINT(((long)19710))); 
if(
STRINGP(BgL_aux4395z00_1873))
{ /* ./Llib/date.scm 450 */
BgL_aux2201z00_1392 = BgL_aux4395z00_1873; }  else 
{ /* ./Llib/date.scm 450 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4505z00zz__datez00, BGl_string4500z00zz__datez00, BgL_aux4395z00_1873, BGl_string4437z00zz__datez00, 
BINT(((long)19710))); 
exit( -1 );} } }  else 
{ /* ./Llib/date.scm 451 */
bool_t BgL_testz00_3917;
{ /* ./Llib/date.scm 451 */
long BgL_auxz00_3918;
BgL_auxz00_3918 = 
(long)(BgL_monthz00_47); 
BgL_testz00_3917 = 
(BgL_auxz00_3918>((long)12)); } 
if(BgL_testz00_3917)
{ /* ./Llib/date.scm 451 */
{ /* ./Llib/date.scm 452 */
long BgL_arg1381z00_554;
{ /* ./Llib/date.scm 452 */
long BgL_arg1385z00_556;
{ /* ./Llib/date.scm 452 */
long BgL_auxz00_3921;
BgL_auxz00_3921 = 
(long)(BgL_monthz00_47); 
BgL_arg1385z00_556 = 
(BgL_auxz00_3921%((long)12)); } 
BgL_arg1381z00_554 = 
(((long)1)+BgL_arg1385z00_556); } 
{ /* ./Llib/date.scm 452 */
int BgL_auxz00_3925;
BgL_auxz00_3925 = 
(int)(BgL_arg1381z00_554); 
BgL_aux2201z00_1392 = 
bgl_month_aname(BgL_auxz00_3925); } } }  else 
{ /* ./Llib/date.scm 451 */
BgL_aux2201z00_1392 = 
bgl_month_aname(BgL_monthz00_47); } } } 
POP_TRACE(); 
return BgL_aux2201z00_1392;} } } } 
}



/* _month-aname */
obj_t BGl__monthzd2anamezd2zz__datez00(obj_t BgL_envz00_1477, obj_t BgL_monthz00_1478)
{ AN_OBJECT;
{ /* ./Llib/date.scm 447 */
{ /* ./Llib/date.scm 449 */
int BgL_auxz00_3930;
{ /* ./Llib/date.scm 449 */
obj_t BgL_auxz00_3931;
if(
INTEGERP(BgL_monthz00_1478))
{ /* ./Llib/date.scm 449 */
BgL_auxz00_3931 = BgL_monthz00_1478
; }  else 
{ /* ./Llib/date.scm 449 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4508z00zz__datez00, BGl_string4438z00zz__datez00, BgL_monthz00_1478, BGl_string4437z00zz__datez00, 
BINT(((long)19689))); 
exit( -1 );} 
BgL_auxz00_3930 = 
CINT(BgL_auxz00_3931); } 
return 
BGl_monthzd2anamezd2zz__datez00(BgL_auxz00_3930);} } 
}



/* leap-year? */
BGL_EXPORTED_DEF bool_t BGl_leapzd2yearzf3z21zz__datez00(int BgL_yearz00_48)
{ AN_OBJECT;
{ /* ./Llib/date.scm 459 */
{ /* ./Llib/date.scm 460 */
obj_t BgL_symbol2206z00_2114;
BgL_symbol2206z00_2114 = BGl_symbol4509z00zz__datez00; 
{ /* ./Llib/date.scm 460 */

PUSH_TRACE(BgL_symbol2206z00_2114); BUNSPEC; 
{ /* ./Llib/date.scm 460 */
bool_t BgL_aux2205z00_2115;
{ /* ./Llib/date.scm 460 */
bool_t BgL__andtest_1003z00_2116;
{ /* ./Llib/date.scm 460 */
long BgL_arg1403z00_2117;
{ /* ./Llib/date.scm 460 */
long BgL_auxz00_3940;
BgL_auxz00_3940 = 
(long)(BgL_yearz00_48); 
BgL_arg1403z00_2117 = 
(BgL_auxz00_3940%((long)4)); } 
BgL__andtest_1003z00_2116 = 
(BgL_arg1403z00_2117==((long)0)); } 
if(BgL__andtest_1003z00_2116)
{ /* ./Llib/date.scm 460 */
bool_t BgL__ortest_1004z00_2118;
{ /* ./Llib/date.scm 460 */
bool_t BgL_test1396z00_2119;
{ /* ./Llib/date.scm 460 */
long BgL_arg1398z00_2120;
{ /* ./Llib/date.scm 460 */
long BgL_auxz00_3945;
BgL_auxz00_3945 = 
(long)(BgL_yearz00_48); 
BgL_arg1398z00_2120 = 
(BgL_auxz00_3945%((long)100)); } 
BgL_test1396z00_2119 = 
(BgL_arg1398z00_2120==((long)0)); } 
if(BgL_test1396z00_2119)
{ /* ./Llib/date.scm 460 */
BgL__ortest_1004z00_2118 = ((bool_t)0); }  else 
{ /* ./Llib/date.scm 460 */
BgL__ortest_1004z00_2118 = ((bool_t)1); } } 
if(BgL__ortest_1004z00_2118)
{ /* ./Llib/date.scm 460 */
BgL_aux2205z00_2115 = BgL__ortest_1004z00_2118; }  else 
{ /* ./Llib/date.scm 460 */
long BgL_arg1392z00_2121;
{ /* ./Llib/date.scm 460 */
long BgL_auxz00_3951;
BgL_auxz00_3951 = 
(long)(BgL_yearz00_48); 
BgL_arg1392z00_2121 = 
(BgL_auxz00_3951%((long)400)); } 
BgL_aux2205z00_2115 = 
(BgL_arg1392z00_2121==((long)0)); } }  else 
{ /* ./Llib/date.scm 460 */
BgL_aux2205z00_2115 = ((bool_t)0); } } 
POP_TRACE(); 
return BgL_aux2205z00_2115;} } } } 
}



/* _leap-year? */
obj_t BGl__leapzd2yearzf3z21zz__datez00(obj_t BgL_envz00_1479, obj_t BgL_yearz00_1480)
{ AN_OBJECT;
{ /* ./Llib/date.scm 459 */
{ /* ./Llib/date.scm 460 */
bool_t BgL_auxz00_3956;
{ /* ./Llib/date.scm 460 */
bool_t BgL_res4542z00_2131;
{ /* ./Llib/date.scm 460 */
int BgL_yearz00_2122;
{ /* ./Llib/date.scm 460 */
obj_t BgL_auxz00_3957;
if(
INTEGERP(BgL_yearz00_1480))
{ /* ./Llib/date.scm 460 */
BgL_auxz00_3957 = BgL_yearz00_1480
; }  else 
{ /* ./Llib/date.scm 460 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4510z00zz__datez00, BGl_string4438z00zz__datez00, BgL_yearz00_1480, BGl_string4437z00zz__datez00, 
BINT(((long)20159))); 
exit( -1 );} 
BgL_yearz00_2122 = 
CINT(BgL_auxz00_3957); } 
{ /* ./Llib/date.scm 460 */
obj_t BgL_symbol2206z00_2123;
BgL_symbol2206z00_2123 = BGl_symbol4509z00zz__datez00; 
{ /* ./Llib/date.scm 460 */

PUSH_TRACE(BgL_symbol2206z00_2123); BUNSPEC; 
{ /* ./Llib/date.scm 460 */
bool_t BgL_aux2205z00_2124;
{ /* ./Llib/date.scm 460 */
bool_t BgL__andtest_1003z00_2125;
{ /* ./Llib/date.scm 460 */
long BgL_arg1403z00_2126;
{ /* ./Llib/date.scm 460 */
long BgL_auxz00_3965;
BgL_auxz00_3965 = 
(long)(BgL_yearz00_2122); 
BgL_arg1403z00_2126 = 
(BgL_auxz00_3965%((long)4)); } 
BgL__andtest_1003z00_2125 = 
(BgL_arg1403z00_2126==((long)0)); } 
if(BgL__andtest_1003z00_2125)
{ /* ./Llib/date.scm 460 */
bool_t BgL__ortest_1004z00_2127;
{ /* ./Llib/date.scm 460 */
bool_t BgL_test1396z00_2128;
{ /* ./Llib/date.scm 460 */
long BgL_arg1398z00_2129;
{ /* ./Llib/date.scm 460 */
long BgL_auxz00_3970;
BgL_auxz00_3970 = 
(long)(BgL_yearz00_2122); 
BgL_arg1398z00_2129 = 
(BgL_auxz00_3970%((long)100)); } 
BgL_test1396z00_2128 = 
(BgL_arg1398z00_2129==((long)0)); } 
if(BgL_test1396z00_2128)
{ /* ./Llib/date.scm 460 */
BgL__ortest_1004z00_2127 = ((bool_t)0); }  else 
{ /* ./Llib/date.scm 460 */
BgL__ortest_1004z00_2127 = ((bool_t)1); } } 
if(BgL__ortest_1004z00_2127)
{ /* ./Llib/date.scm 460 */
BgL_aux2205z00_2124 = BgL__ortest_1004z00_2127; }  else 
{ /* ./Llib/date.scm 460 */
long BgL_arg1392z00_2130;
{ /* ./Llib/date.scm 460 */
long BgL_auxz00_3976;
BgL_auxz00_3976 = 
(long)(BgL_yearz00_2122); 
BgL_arg1392z00_2130 = 
(BgL_auxz00_3976%((long)400)); } 
BgL_aux2205z00_2124 = 
(BgL_arg1392z00_2130==((long)0)); } }  else 
{ /* ./Llib/date.scm 460 */
BgL_aux2205z00_2124 = ((bool_t)0); } } 
POP_TRACE(); 
BgL_res4542z00_2131 = BgL_aux2205z00_2124; } } } } 
BgL_auxz00_3956 = BgL_res4542z00_2131; } 
return 
BBOOL(BgL_auxz00_3956);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__datez00()
{ AN_OBJECT;
{ /* ./Llib/date.scm 19 */
{ /* ./Llib/date.scm 19 */
obj_t BgL_symbol2210z00_1395;
BgL_symbol2210z00_1395 = BGl_symbol4511z00zz__datez00; 
{ /* ./Llib/date.scm 19 */

PUSH_TRACE(BgL_symbol2210z00_1395); BUNSPEC; 
{ /* ./Llib/date.scm 19 */
obj_t BgL_aux2209z00_1396;
BgL_aux2209z00_1396 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__date"); 
POP_TRACE(); 
return BgL_aux2209z00_1396;} } } } 
}

