/*===========================================================================*/
/*   (Llib/date.scm)                                                         */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Llib/date.scm -indent -o objs/obj_s/Llib/date.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C" {
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___DATE_TYPE_DEFINITIONS
#define BGL___DATE_TYPE_DEFINITIONS

/* object type definitions */
typedef struct BgL_z62exceptionz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
} *BgL_z62exceptionz62_bglt;

typedef struct BgL_z62errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62errorz62_bglt;

typedef struct BgL_z62iozd2closedzd2errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62iozd2closedzd2errorz62_bglt;

typedef struct BgL_z62iozd2parsezd2errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62iozd2parsezd2errorz62_bglt;


#endif // BGL___DATE_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

static obj_t BGl_symbol6042z00zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_currentzd2datezd2zz__datez00(void);
BGL_EXPORTED_DECL obj_t BGl_datezd2updatezd2millisecondz12z12zz__datez00(obj_t, long);
static obj_t BGl_list5842z00zz__datez00 = BUNSPEC;
extern obj_t bgl_update_date(obj_t, BGL_LONGLONG_T, int, int, int, int, int, int, long, bool_t, int);
static obj_t BGl_list5845z00zz__datez00 = BUNSPEC;
static obj_t BGl_list5848z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62currentzd2microsecondszb0zz__datez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_nanosecondszd2ze3datez31zz__datez00(BGL_LONGLONG_T);
static obj_t BGl_dayzd2ofzd2weekzd2grammarzd2zz__datez00 = BUNSPEC;
static obj_t BGl_list5851z00zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_datezd2monthzd2zz__datez00(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__datez00 = BUNSPEC;
static obj_t BGl_list5854z00zz__datez00 = BUNSPEC;
extern obj_t BGl_raisez00zz__errorz00(obj_t);
extern obj_t bgl_seconds_to_gmtdate(long);
static obj_t BGl_list5857z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62dayzd2secondszb0zz__datez00(obj_t);
static obj_t BGl_timezd2grammarzd2zz__datez00 = BUNSPEC;
extern bool_t BGl_classzd2fieldzf3z21zz__objectz00(obj_t);
static obj_t BGl_search1333ze70ze7zz__datez00(long, obj_t, obj_t, long);
BGL_EXPORTED_DECL obj_t BGl_datezd2updatez12zc0zz__datez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list5860z00zz__datez00 = BUNSPEC;
static obj_t BGl_list5863z00zz__datez00 = BUNSPEC;
static obj_t BGl_list5866z00zz__datez00 = BUNSPEC;
static obj_t BGl_list5869z00zz__datez00 = BUNSPEC;
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_currentzd2microsecondszd2zz__datez00(void);
static obj_t BGl_list5872z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62millisecondszd2ze3datez53zz__datez00(obj_t, obj_t);
static obj_t BGl_z62datezd2monthzb0zz__datez00(obj_t, obj_t);
extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
extern obj_t bgl_seconds_to_date(long);
static obj_t BGl_symbol6080z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol6085z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol6088z00zz__datez00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__datez00(void);
static obj_t BGl_z62datezd2hourzb0zz__datez00(obj_t, obj_t);
static obj_t BGl_list5961z00zz__datez00 = BUNSPEC;
static obj_t BGl_list5968z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62datezd2iszd2dstz62zz__datez00(obj_t, obj_t);
extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
extern bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_list5973z00zz__datez00 = BUNSPEC;
extern unsigned char BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(long);
extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list5978z00zz__datez00 = BUNSPEC;
extern obj_t BGl_z62iozd2parsezd2errorz62zz__objectz00;
static obj_t BGl_genericzd2initzd2zz__datez00(void);
static obj_t BGl_z62datezd2yearzd2dayz62zz__datez00(obj_t, obj_t);
static obj_t BGl_search1318ze70ze7zz__datez00(long, obj_t, obj_t, long);
static obj_t BGl_list5983z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62datezd2ze3gmtdatez12z41zz__datez00(obj_t, obj_t);
static obj_t BGl_list5986z00zz__datez00 = BUNSPEC;
static obj_t BGl_objectzd2initzd2zz__datez00(void);
static obj_t BGl_list5989z00zz__datez00 = BUNSPEC;
extern obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_z62rfc2822zd2datezd2ze3datez81zz__datez00(obj_t, obj_t);
extern BGL_LONGLONG_T bgl_current_milliseconds(void);
static obj_t BGl_z62datezd2wdayzb0zz__datez00(obj_t, obj_t);
static obj_t BGl_z62datezd2monthzd2lengthz62zz__datez00(obj_t, obj_t);
extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62dayzd2anamezb0zz__datez00(obj_t, obj_t);
static obj_t BGl_z62datezd2ze3iso8601zd2datez81zz__datez00(obj_t, obj_t);
static obj_t BGl_list5992z00zz__datez00 = BUNSPEC;
static long BGl_blitzd2int2z12zc0zz__datez00(obj_t, long, int);
static obj_t BGl_list5995z00zz__datez00 = BUNSPEC;
static obj_t BGl_thezd2fixnumzd2grammarz00zz__datez00 = BUNSPEC;
extern BGL_LONGLONG_T bgl_date_to_nanoseconds(obj_t);
static obj_t BGl_z62zc3z04anonymousza31869ze3ze5zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_datezd2hourzd2zz__datez00(obj_t);
static obj_t BGl_z62datezd2dayzb0zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_datezd2millisecondzd2zz__datez00(obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_datezd2ze3millisecondsz31zz__datez00(obj_t);
static obj_t BGl_za7onezd2grammarz75zz__datez00 = BUNSPEC;
static obj_t BGl_z62iso8601zd2datezd2ze3datez81zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_secondszd2ze3datez31zz__datez00(long);
extern obj_t bstring_to_symbol(obj_t);
extern obj_t bgl_seconds_to_utc_string(long);
static obj_t BGl_z62dayzd2namezb0zz__datez00(obj_t, obj_t);
extern obj_t bgl_date_to_gmtdate(obj_t);
BGL_EXPORTED_DECL int BGl_datezd2wdayzd2zz__datez00(obj_t);
static obj_t BGl_methodzd2initzd2zz__datez00(void);
static obj_t BGl_z62datezd2ze3rfc2822zd2datez81zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_datezd2secondzd2zz__datez00(obj_t);
extern obj_t bgl_milliseconds_to_gmtdate(BGL_LONGLONG_T);
BGL_EXPORTED_DECL obj_t BGl_dayzd2anamezd2zz__datez00(int);
BGL_EXPORTED_DECL long BGl_currentzd2secondszd2zz__datez00(void);
static obj_t BGl_za2timezd2za7onesza2z75zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_secondszd2ze3gmtdatez31zz__datez00(long);
static long BGl_blitzd2intz12zc0zz__datez00(obj_t, long, int);
static obj_t BGl_z62currentzd2secondszb0zz__datez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_datezd2ze3gmtdatez12z23zz__datez00(obj_t);
extern obj_t bgl_month_name(int);
extern obj_t make_string(long, unsigned char);
static obj_t BGl_symbol5840z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5921z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62datezd2ydayzb0zz__datez00(obj_t, obj_t);
extern obj_t bgl_close_input_port(obj_t);
static obj_t BGl_symbol5923z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62nanosecondszd2ze3datez53zz__datez00(obj_t, obj_t);
static obj_t BGl_symbol5843z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5925z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5846z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5927z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5929z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5849z00zz__datez00 = BUNSPEC;
extern obj_t bgl_day_name(int);
static obj_t BGl_za2monthzd2lengthsza2zd2zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5931z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5852z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5933z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5935z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5855z00zz__datez00 = BUNSPEC;
extern long bgl_current_seconds(void);
static obj_t BGl_z62zc3z04anonymousza33044ze3ze5zz__datez00(obj_t);
static obj_t BGl_symbol5937z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5858z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5939z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62currentzd2datezb0zz__datez00(obj_t);
extern obj_t rgc_buffer_substring(obj_t, long, long);
BGL_EXPORTED_DECL long BGl_datezd2za7onezd2offsetza7zz__datez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_datezd2ze3stringz31zz__datez00(obj_t);
static obj_t BGl_z62datezd2yearzb0zz__datez00(obj_t, obj_t);
static obj_t BGl_z62rfc2822zd2parsezd2datez62zz__datez00(obj_t, obj_t);
static obj_t BGl_z62datezd2millisecondzb0zz__datez00(obj_t, obj_t);
static obj_t BGl_list6004z00zz__datez00 = BUNSPEC;
static obj_t BGl__makezd2datezd2zz__datez00(obj_t, obj_t);
static obj_t BGl_symbol5941z00zz__datez00 = BUNSPEC;
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol5861z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5943z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5864z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5867z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62datezd2updatezd2minutez12z70zz__datez00(obj_t, obj_t, obj_t);
static obj_t BGl_search1348ze70ze7zz__datez00(long, obj_t, obj_t, long);
extern obj_t BGl_z62iozd2closedzd2errorz62zz__objectz00;
static obj_t BGl_z62datezd2timeza7onez17zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_datezf3zf3zz__datez00(obj_t);
extern BGL_LONGLONG_T bgl_current_microseconds(void);
static obj_t BGl_z62datezd2weekzd2dayz62zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2datezd2zz__datez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol5870z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5873z00zz__datez00 = BUNSPEC;
extern long BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(long, long);
extern obj_t bgl_make_date(BGL_LONGLONG_T, int, int, int, int, int, int, long, bool_t, int);
BGL_EXPORTED_DECL int BGl_datezd2minutezd2zz__datez00(obj_t);
BGL_EXPORTED_DECL int BGl_datezd2ydayzd2zz__datez00(obj_t);
static obj_t BGl_z62zc3z04anonymousza31710ze3ze5zz__datez00(obj_t, obj_t);
static obj_t BGl_symbol5962z00zz__datez00 = BUNSPEC;
extern obj_t bstring_to_keyword(obj_t);
static obj_t BGl_symbol5964z00zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_millisecondszd2ze3datez31zz__datez00(BGL_LONGLONG_T);
static obj_t BGl_symbol5966z00zz__datez00 = BUNSPEC;
extern obj_t BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62iso8601zd2parsezd2datez62zz__datez00(obj_t, obj_t);
static obj_t BGl_symbol5969z00zz__datez00 = BUNSPEC;
extern obj_t bgl_milliseconds_to_date(BGL_LONGLONG_T);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_datezd2ze3nanosecondsz31zz__datez00(obj_t);
static obj_t BGl_list6031z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62secondszd2ze3gmtdatez53zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_datezd2yearzd2dayz00zz__datez00(obj_t);
BGL_EXPORTED_DECL int BGl_datezd2dayzd2zz__datez00(obj_t);
static obj_t BGl_symbol5971z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5974z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62secondszd2ze3utczd2stringz81zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_secondszd2ze3stringz31zz__datez00(long);
static obj_t BGl_symbol5976z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5979z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62secondszd2ze3stringz53zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_datezd2ze3utczd2stringze3zz__datez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__datez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_EXPORTED_DECL int BGl_datezd2yearzd2zz__datez00(obj_t);
static obj_t BGl_z62datezd2ze3secondsz53zz__datez00(obj_t, obj_t);
static obj_t BGl__datezd2copyzd2zz__datez00(obj_t, obj_t);
static obj_t BGl_list6041z00zz__datez00 = BUNSPEC;
extern obj_t bgl_nanoseconds_to_date(BGL_LONGLONG_T);
static obj_t BGl_z62datezd2secondzb0zz__datez00(obj_t, obj_t);
static obj_t BGl_symbol5981z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5984z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62currentzd2nanosecondszb0zz__datez00(obj_t);
static obj_t BGl_symbol5987z00zz__datez00 = BUNSPEC;
extern obj_t BGl_remainderz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
extern obj_t bgl_day_aname(int);
extern obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_z62datezd2updatezd2secondz12z70zz__datez00(obj_t, obj_t, obj_t);
static obj_t BGl_z62datezf3z91zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_datezd2copyzd2zz__datez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_dayzd2namezd2zz__datez00(int);
static obj_t BGl_symbol5990z00zz__datez00 = BUNSPEC;
static obj_t BGl_symbol5993z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31454ze3ze5zz__datez00(obj_t, obj_t);
static obj_t BGl_symbol5996z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza32078ze3ze5zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_monthzd2anamezd2zz__datez00(int);
BGL_EXPORTED_DECL obj_t BGl_rfc2822zd2datezd2ze3dateze3zz__datez00(obj_t);
static obj_t BGl_z62datezd2za7onezd2offsetzc5zz__datez00(obj_t, obj_t);
extern BGL_LONGLONG_T bgl_date_to_milliseconds(obj_t);
BGL_EXPORTED_DECL obj_t BGl_datezd2ze3iso8601zd2dateze3zz__datez00(obj_t);
extern obj_t BGl_readzd2linezd2zz__r4_input_6_10_2z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_monthzd2namezd2zz__datez00(int);
static obj_t BGl_cnstzd2initzd2zz__datez00(void);
static obj_t BGl_importedzd2moduleszd2initz00zz__datez00(void);
static obj_t BGl_gczd2rootszd2initz00zz__datez00(void);
static obj_t BGl_z62zc3z04anonymousza32371ze3ze5zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_integerzd2ze3secondz31zz__datez00(long);
static obj_t BGl_z62datezd2updatezd2millisecondz12z70zz__datez00(obj_t, obj_t, obj_t);
static obj_t BGl_z62integerzd2ze3secondz53zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_datezd2updatezd2minutez12z12zz__datez00(obj_t, long);
BGL_EXPORTED_DECL obj_t BGl_iso8601zd2datezd2ze3dateze3zz__datez00(obj_t);
static obj_t BGl_keyword6005z00zz__datez00 = BUNSPEC;
static obj_t BGl_keyword6007z00zz__datez00 = BUNSPEC;
static obj_t BGl_keyword6009z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62monthzd2namezb0zz__datez00(obj_t, obj_t);
static obj_t BGl_z62currentzd2millisecondszb0zz__datez00(obj_t);
extern long rgc_buffer_fixnum(obj_t);
static obj_t BGl_keyword6011z00zz__datez00 = BUNSPEC;
static obj_t BGl_keyword6013z00zz__datez00 = BUNSPEC;
static obj_t BGl_keyword6015z00zz__datez00 = BUNSPEC;
static obj_t BGl_keyword6017z00zz__datez00 = BUNSPEC;
static obj_t BGl_keyword6019z00zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_millisecondszd2ze3gmtdatez31zz__datez00(BGL_LONGLONG_T);
static obj_t BGl_monthzd2grammarzd2zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_datezd2ze3rfc2822zd2dateze3zz__datez00(obj_t);
static obj_t BGl_z62datezd2ze3utczd2stringz81zz__datez00(obj_t, obj_t);
extern obj_t BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(obj_t);
static obj_t BGl_z62datezd2minutezb0zz__datez00(obj_t, obj_t);
static obj_t BGl_keyword6021z00zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_currentzd2millisecondszd2zz__datez00(void);
extern BGL_LONGLONG_T bgl_current_nanoseconds(void);
BGL_EXPORTED_DECL long BGl_dayzd2secondszd2zz__datez00(void);
BGL_EXPORTED_DECL obj_t BGl_secondszd2ze3utczd2stringze3zz__datez00(long);
extern obj_t rgc_buffer_symbol(obj_t);
static obj_t BGl_keyword6032z00zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_datezd2nanosecondzd2zz__datez00(obj_t);
static obj_t BGl_z62datezd2nanosecondzb0zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_leapzd2yearzf3z21zz__datez00(int);
BGL_EXPORTED_DECL int BGl_datezd2monthzd2lengthz00zz__datez00(obj_t);
extern obj_t bgl_month_aname(int);
static obj_t BGl_thezd2failureze70z35zz__datez00(obj_t);
static obj_t BGl_thezd2failureze71z35zz__datez00(obj_t);
static obj_t BGl_thezd2failureze72z35zz__datez00(obj_t);
static obj_t BGl_thezd2failureze73z35zz__datez00(obj_t);
static obj_t BGl_thezd2failureze74z35zz__datez00(obj_t);
static obj_t BGl_thezd2failureze75z35zz__datez00(obj_t);
static obj_t BGl_thezd2failureze76z35zz__datez00(obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_currentzd2nanosecondszd2zz__datez00(void);
static obj_t BGl_thezd2failureze77z35zz__datez00(obj_t);
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
static obj_t BGl_z62datezd2ze3millisecondsz53zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_datezd2timeza7onez75zz__datez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_datezd2updatezd2secondz12z12zz__datez00(obj_t, long);
BGL_EXPORTED_DECL int BGl_datezd2weekzd2dayz00zz__datez00(obj_t);
extern obj_t BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00(unsigned char, obj_t);
extern long bgl_date_to_seconds(obj_t);
static obj_t BGl_parsezd2errorzd2zz__datez00(obj_t, obj_t, obj_t, obj_t);
extern bool_t rgc_fill_buffer(obj_t);
static obj_t BGl_z62monthzd2anamezb0zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_rfc2822zd2parsezd2datez00zz__datez00(obj_t);
static obj_t BGl_z62millisecondszd2ze3gmtdatez53zz__datez00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_datezd2iszd2dstz00zz__datez00(obj_t);
static obj_t BGl_z62leapzd2yearzf3z43zz__datez00(obj_t, obj_t);
static obj_t BGl_z62datezd2ze3stringz53zz__datez00(obj_t, obj_t);
static obj_t BGl_z62secondszd2ze3datez53zz__datez00(obj_t, obj_t);
static obj_t BGl_symbol6023z00zz__datez00 = BUNSPEC;
static obj_t BGl_z62datezd2ze3nanosecondsz53zz__datez00(obj_t, obj_t);
static obj_t BGl__datezd2updatez12zc0zz__datez00(obj_t, obj_t);
extern obj_t BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(obj_t, long, obj_t, long, long);
extern obj_t bgl_seconds_to_string(long);
BGL_EXPORTED_DECL long BGl_datezd2ze3secondsz31zz__datez00(obj_t);
static obj_t BGl_symbol6034z00zz__datez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_iso8601zd2parsezd2datez00zz__datez00(obj_t);
static obj_t BGl_list5838z00zz__datez00 = BUNSPEC;
static obj_t BGl_list5839z00zz__datez00 = BUNSPEC;
static obj_t *__cnst;


BGL_DEFINE_STRING(BGl_string5991z00zz__datez00, BgL_bgl_string5991za700za7za7_6127za7, "arg1705", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_dayzd2secondszd2envz00zz__datez00, BgL_bgl_za762dayza7d2seconds6128z00, BGl_z62dayzd2secondszb0zz__datez00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string5994z00zz__datez00, BgL_bgl_string5994za700za7za7_6129za7, "arg1703", 7 );
BGL_DEFINE_STRING(BGl_string5997z00zz__datez00, BgL_bgl_string5997za700za7za7_6130za7, "arg1702", 7 );
BGL_DEFINE_STRING(BGl_string5998z00zz__datez00, BgL_bgl_string5998za700za7za7_6131za7, "<@anonymous:1454>", 17 );
BGL_DEFINE_STRING(BGl_string5999z00zz__datez00, BgL_bgl_string5999za700za7za7_6132za7, "_make-date", 10 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ze3nanosecondszd2envze3zz__datez00, BgL_bgl_za762dateza7d2za7e3nan6133za7, BGl_z62datezd2ze3nanosecondsz53zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_secondszd2ze3utczd2stringzd2envz31zz__datez00, BgL_bgl_za762secondsza7d2za7e36134za7, BGl_z62secondszd2ze3utczd2stringz81zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2yearzd2envz00zz__datez00, BgL_bgl_za762dateza7d2yearza7b6135za7, BGl_z62datezd2yearzb0zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezf3zd2envz21zz__datez00, BgL_bgl_za762dateza7f3za791za7za7_6136za7, BGl_z62datezf3z91zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2weekzd2dayzd2envzd2zz__datez00, BgL_bgl_za762dateza7d2weekza7d6137za7, BGl_z62datezd2weekzd2dayz62zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_dayzd2namezd2envz00zz__datez00, BgL_bgl_za762dayza7d2nameza7b06138za7, BGl_z62dayzd2namezb0zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2minutezd2envz00zz__datez00, BgL_bgl_za762dateza7d2minute6139z00, BGl_z62datezd2minutezb0zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ze3millisecondszd2envze3zz__datez00, BgL_bgl_za762dateza7d2za7e3mil6140za7, BGl_z62datezd2ze3millisecondsz53zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2monthzd2envz00zz__datez00, BgL_bgl_za762dateza7d2monthza76141za7, BGl_z62datezd2monthzb0zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_monthzd2namezd2envz00zz__datez00, BgL_bgl_za762monthza7d2nameza76142za7, BGl_z62monthzd2namezb0zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2nanosecondzd2envz00zz__datez00, BgL_bgl_za762dateza7d2nanose6143z00, BGl_z62datezd2nanosecondzb0zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2microsecondszd2envz00zz__datez00, BgL_bgl_za762currentza7d2mic6144z00, BGl_z62currentzd2microsecondszb0zz__datez00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2secondzd2envz00zz__datez00, BgL_bgl_za762dateza7d2second6145z00, BGl_z62datezd2secondzb0zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2nanosecondszd2envz00zz__datez00, BgL_bgl_za762currentza7d2nan6146z00, BGl_z62currentzd2nanosecondszb0zz__datez00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2secondszd2envz00zz__datez00, BgL_bgl_za762currentza7d2sec6147z00, BGl_z62currentzd2secondszb0zz__datez00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_monthzd2anamezd2envz00zz__datez00, BgL_bgl_za762monthza7d2aname6148z00, BGl_z62monthzd2anamezb0zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_rfc2822zd2datezd2ze3datezd2envz31zz__datez00, BgL_bgl_za762rfc2822za7d2dat6149z00, BGl_z62rfc2822zd2datezd2ze3datez81zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string6000z00zz__datez00, BgL_bgl_string6000za700za7za7_6150za7, "vector", 6 );
BGL_DEFINE_STRING(BGl_string6002z00zz__datez00, BgL_bgl_string6002za700za7za7_6151za7, "check1319", 9 );
BGL_DEFINE_STRING(BGl_string6003z00zz__datez00, BgL_bgl_string6003za700za7za7_6152za7, "vector-ref", 10 );
BGL_DEFINE_STRING(BGl_string6006z00zz__datez00, BgL_bgl_string6006za700za7za7_6153za7, "day", 3 );
BGL_DEFINE_STRING(BGl_string6008z00zz__datez00, BgL_bgl_string6008za700za7za7_6154za7, "dst", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_secondszd2ze3datezd2envze3zz__datez00, BgL_bgl_za762secondsza7d2za7e36155za7, BGl_z62secondszd2ze3datez53zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string6010z00zz__datez00, BgL_bgl_string6010za700za7za7_6156za7, "hour", 4 );
BGL_DEFINE_STRING(BGl_string6012z00zz__datez00, BgL_bgl_string6012za700za7za7_6157za7, "min", 3 );
BGL_DEFINE_STRING(BGl_string6014z00zz__datez00, BgL_bgl_string6014za700za7za7_6158za7, "month", 5 );
BGL_DEFINE_STRING(BGl_string6016z00zz__datez00, BgL_bgl_string6016za700za7za7_6159za7, "nsec", 4 );
BGL_DEFINE_STRING(BGl_string6018z00zz__datez00, BgL_bgl_string6018za700za7za7_6160za7, "sec", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_integerzd2ze3secondzd2envze3zz__datez00, BgL_bgl_za762integerza7d2za7e36161za7, BGl_z62integerzd2ze3secondz53zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2wdayzd2envz00zz__datez00, BgL_bgl_za762dateza7d2wdayza7b6162za7, BGl_z62datezd2wdayzb0zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string6100z00zz__datez00, BgL_bgl_string6100za700za7za7_6163za7, "&date->rfc2822-date", 19 );
BGL_DEFINE_STRING(BGl_string6101z00zz__datez00, BgL_bgl_string6101za700za7za7_6164za7, "~a-~2,0d-~2,0dT~2,0d:~2,0d:~2,0dZ", 33 );
BGL_DEFINE_STRING(BGl_string6020z00zz__datez00, BgL_bgl_string6020za700za7za7_6165za7, "timezone", 8 );
BGL_DEFINE_STRING(BGl_string6102z00zz__datez00, BgL_bgl_string6102za700za7za7_6166za7, "-", 1 );
BGL_DEFINE_STRING(BGl_string6103z00zz__datez00, BgL_bgl_string6103za700za7za7_6167za7, "+", 1 );
BGL_DEFINE_STRING(BGl_string6022z00zz__datez00, BgL_bgl_string6022za700za7za7_6168za7, "year", 4 );
BGL_DEFINE_STRING(BGl_string6104z00zz__datez00, BgL_bgl_string6104za700za7za7_6169za7, "date->iso8601-date", 18 );
BGL_DEFINE_STRING(BGl_string6105z00zz__datez00, BgL_bgl_string6105za700za7za7_6170za7, "~a-~2,0d-~2,0dT~2,0d:~2,0d:~2,0d~a~2,0d:~2,0d", 45 );
BGL_DEFINE_STRING(BGl_string6024z00zz__datez00, BgL_bgl_string6024za700za7za7_6171za7, "make-date", 9 );
BGL_DEFINE_STRING(BGl_string6106z00zz__datez00, BgL_bgl_string6106za700za7za7_6172za7, "&date->iso8601-date", 19 );
BGL_DEFINE_STRING(BGl_string6025z00zz__datez00, BgL_bgl_string6025za700za7za7_6173za7, "Illegal keyword argument", 24 );
BGL_DEFINE_STRING(BGl_string6107z00zz__datez00, BgL_bgl_string6107za700za7za7_6174za7, "iso8601-date->date", 18 );
BGL_DEFINE_STRING(BGl_string6026z00zz__datez00, BgL_bgl_string6026za700za7za7_6175za7, "bllong", 6 );
BGL_DEFINE_STRING(BGl_string6108z00zz__datez00, BgL_bgl_string6108za700za7za7_6176za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string6027z00zz__datez00, BgL_bgl_string6027za700za7za7_6177za7, "search1318~0", 12 );
BGL_DEFINE_STRING(BGl_string6109z00zz__datez00, BgL_bgl_string6109za700za7za7_6178za7, "&iso8601-date->date", 19 );
BGL_DEFINE_STRING(BGl_string6028z00zz__datez00, BgL_bgl_string6028za700za7za7_6179za7, "wrong number of arguments: [0..9] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string6029z00zz__datez00, BgL_bgl_string6029za700za7za7_6180za7, "_date-copy", 10 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_secondszd2ze3gmtdatezd2envze3zz__datez00, BgL_bgl_za762secondsza7d2za7e36181za7, BGl_z62secondszd2ze3gmtdatez53zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2copyzd2envz00zz__datez00, BgL_bgl__dateza7d2copyza7d2za76182za7, opt_generic_entry, BGl__datezd2copyzd2zz__datez00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string6110z00zz__datez00, BgL_bgl_string6110za700za7za7_6183za7, "iso8601-parse-date", 18 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2hourzd2envz00zz__datez00, BgL_bgl_za762dateza7d2hourza7b6184za7, BGl_z62datezd2hourzb0zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string6111z00zz__datez00, BgL_bgl_string6111za700za7za7_6185za7, "iso8601-ZMM-grammar", 19 );
BGL_DEFINE_STRING(BGl_string6030z00zz__datez00, BgL_bgl_string6030za700za7za7_6186za7, "check1334", 9 );
BGL_DEFINE_STRING(BGl_string6112z00zz__datez00, BgL_bgl_string6112za700za7za7_6187za7, "long", 4 );
BGL_DEFINE_STRING(BGl_string6113z00zz__datez00, BgL_bgl_string6113za700za7za7_6188za7, "iso8601-Z-grammar", 17 );
BGL_DEFINE_STRING(BGl_string6114z00zz__datez00, BgL_bgl_string6114za700za7za7_6189za7, "bchar", 5 );
BGL_DEFINE_STRING(BGl_string6033z00zz__datez00, BgL_bgl_string6033za700za7za7_6190za7, "isdst", 5 );
BGL_DEFINE_STRING(BGl_string6115z00zz__datez00, BgL_bgl_string6115za700za7za7_6191za7, "iso8601-sss-grammar", 19 );
BGL_DEFINE_STRING(BGl_string6116z00zz__datez00, BgL_bgl_string6116za700za7za7_6192za7, "iso8601-ss-grammar", 18 );
BGL_DEFINE_STRING(BGl_string6035z00zz__datez00, BgL_bgl_string6035za700za7za7_6193za7, "date-copy", 9 );
BGL_DEFINE_STRING(BGl_string6117z00zz__datez00, BgL_bgl_string6117za700za7za7_6194za7, "iso8601-mm-grammar", 18 );
BGL_DEFINE_STRING(BGl_string6036z00zz__datez00, BgL_bgl_string6036za700za7za7_6195za7, "date", 4 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ze3gmtdatez12zd2envzf1zz__datez00, BgL_bgl_za762dateza7d2za7e3gmt6196za7, BGl_z62datezd2ze3gmtdatez12z41zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string6118z00zz__datez00, BgL_bgl_string6118za700za7za7_6197za7, "iso8601-HH-grammar", 18 );
BGL_DEFINE_STRING(BGl_string6037z00zz__datez00, BgL_bgl_string6037za700za7za7_6198za7, "search1333~0", 12 );
BGL_DEFINE_STRING(BGl_string6119z00zz__datez00, BgL_bgl_string6119za700za7za7_6199za7, "iso8601-DD-grammar", 18 );
BGL_DEFINE_STRING(BGl_string6038z00zz__datez00, BgL_bgl_string6038za700za7za7_6200za7, "wrong number of arguments: [1..10] expected, provided", 53 );
BGL_DEFINE_STRING(BGl_string6039z00zz__datez00, BgL_bgl_string6039za700za7za7_6201za7, "_date-update!", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_rfc2822zd2parsezd2datezd2envzd2zz__datez00, BgL_bgl_za762rfc2822za7d2par6202z00, BGl_z62rfc2822zd2parsezd2datez62zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ze3rfc2822zd2datezd2envz31zz__datez00, BgL_bgl_za762dateza7d2za7e3rfc6203za7, BGl_z62datezd2ze3rfc2822zd2datez81zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string6120z00zz__datez00, BgL_bgl_string6120za700za7za7_6204za7, "iso8601-MM-grammar", 18 );
BGL_DEFINE_STRING(BGl_string6121z00zz__datez00, BgL_bgl_string6121za700za7za7_6205za7, "iso8601-grammar", 15 );
BGL_DEFINE_STRING(BGl_string6040z00zz__datez00, BgL_bgl_string6040za700za7za7_6206za7, "check1349", 9 );
BGL_DEFINE_STRING(BGl_string6122z00zz__datez00, BgL_bgl_string6122za700za7za7_6207za7, "&iso8601-parse-date", 19 );
BGL_DEFINE_STRING(BGl_string6123z00zz__datez00, BgL_bgl_string6123za700za7za7_6208za7, "parse-error", 11 );
BGL_DEFINE_STRING(BGl_string6124z00zz__datez00, BgL_bgl_string6124za700za7za7_6209za7, "}", 1 );
BGL_DEFINE_STRING(BGl_string6043z00zz__datez00, BgL_bgl_string6043za700za7za7_6210za7, "date-update!", 12 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ze3iso8601zd2datezd2envz31zz__datez00, BgL_bgl_za762dateza7d2za7e3iso6211za7, BGl_z62datezd2ze3iso8601zd2datez81zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string6125z00zz__datez00, BgL_bgl_string6125za700za7za7_6212za7, "{", 1 );
BGL_DEFINE_STRING(BGl_string6044z00zz__datez00, BgL_bgl_string6044za700za7za7_6213za7, "search1348~0", 12 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_millisecondszd2ze3datezd2envze3zz__datez00, BgL_bgl_za762millisecondsza76214z00, BGl_z62millisecondszd2ze3datez53zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string6126z00zz__datez00, BgL_bgl_string6126za700za7za7_6215za7, "__date", 6 );
BGL_DEFINE_STRING(BGl_string6045z00zz__datez00, BgL_bgl_string6045za700za7za7_6216za7, "wrong number of arguments: [1..8] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string6046z00zz__datez00, BgL_bgl_string6046za700za7za7_6217za7, "&date->gmtdate!", 15 );
BGL_DEFINE_STRING(BGl_string6047z00zz__datez00, BgL_bgl_string6047za700za7za7_6218za7, "&date-update-millisecond!", 25 );
BGL_DEFINE_STRING(BGl_string6048z00zz__datez00, BgL_bgl_string6048za700za7za7_6219za7, "&date-update-second!", 20 );
BGL_DEFINE_STRING(BGl_string6049z00zz__datez00, BgL_bgl_string6049za700za7za7_6220za7, "&date-update-minute!", 20 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2yearzd2dayzd2envzd2zz__datez00, BgL_bgl_za762dateza7d2yearza7d6221za7, BGl_z62datezd2yearzd2dayz62zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string6050z00zz__datez00, BgL_bgl_string6050za700za7za7_6222za7, "&integer->second", 16 );
BGL_DEFINE_STRING(BGl_string6051z00zz__datez00, BgL_bgl_string6051za700za7za7_6223za7, "&date-nanosecond", 16 );
BGL_DEFINE_STRING(BGl_string6052z00zz__datez00, BgL_bgl_string6052za700za7za7_6224za7, "&date-millisecond", 17 );
BGL_DEFINE_STRING(BGl_string6053z00zz__datez00, BgL_bgl_string6053za700za7za7_6225za7, "&date-second", 12 );
BGL_DEFINE_STRING(BGl_string6054z00zz__datez00, BgL_bgl_string6054za700za7za7_6226za7, "&date-minute", 12 );
BGL_DEFINE_STRING(BGl_string6055z00zz__datez00, BgL_bgl_string6055za700za7za7_6227za7, "&date-hour", 10 );
BGL_DEFINE_STRING(BGl_string6056z00zz__datez00, BgL_bgl_string6056za700za7za7_6228za7, "&date-day", 9 );
BGL_DEFINE_STRING(BGl_string6057z00zz__datez00, BgL_bgl_string6057za700za7za7_6229za7, "&date-week-day", 14 );
BGL_DEFINE_STRING(BGl_string6058z00zz__datez00, BgL_bgl_string6058za700za7za7_6230za7, "&date-wday", 10 );
BGL_DEFINE_STRING(BGl_string6059z00zz__datez00, BgL_bgl_string6059za700za7za7_6231za7, "&date-year-day", 14 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ze3stringzd2envze3zz__datez00, BgL_bgl_za762dateza7d2za7e3str6232za7, BGl_z62datezd2ze3stringz53zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string6060z00zz__datez00, BgL_bgl_string6060za700za7za7_6233za7, "&date-yday", 10 );
BGL_DEFINE_LLONG(BGl_llong6001z00zz__datez00, BgL_bgl_llong6001za700za7za7__6234za7, ((BGL_LONGLONG_T)0));
BGL_DEFINE_STRING(BGl_string6061z00zz__datez00, BgL_bgl_string6061za700za7za7_6235za7, "&date-month", 11 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2updatezd2minutez12zd2envzc0zz__datez00, BgL_bgl_za762dateza7d2update6236z00, BGl_z62datezd2updatezd2minutez12z70zz__datez00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_iso8601zd2datezd2ze3datezd2envz31zz__datez00, BgL_bgl_za762iso8601za7d2dat6237z00, BGl_z62iso8601zd2datezd2ze3datez81zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string6062z00zz__datez00, BgL_bgl_string6062za700za7za7_6238za7, "&date-year", 10 );
BGL_DEFINE_STRING(BGl_string6063z00zz__datez00, BgL_bgl_string6063za700za7za7_6239za7, "&date-timezone", 14 );
BGL_DEFINE_STRING(BGl_string6064z00zz__datez00, BgL_bgl_string6064za700za7za7_6240za7, "&date-zone-offset", 17 );
BGL_DEFINE_STRING(BGl_string6065z00zz__datez00, BgL_bgl_string6065za700za7za7_6241za7, "&date-is-dst", 12 );
BGL_DEFINE_STRING(BGl_string6066z00zz__datez00, BgL_bgl_string6066za700za7za7_6242za7, "&seconds->date", 14 );
BGL_DEFINE_STRING(BGl_string6067z00zz__datez00, BgL_bgl_string6067za700za7za7_6243za7, "belong", 6 );
BGL_DEFINE_STRING(BGl_string6068z00zz__datez00, BgL_bgl_string6068za700za7za7_6244za7, "&seconds->gmtdate", 17 );
BGL_DEFINE_STRING(BGl_string6069z00zz__datez00, BgL_bgl_string6069za700za7za7_6245za7, "&milliseconds->gmtdate", 22 );
BGL_DEFINE_STRING(BGl_string6070z00zz__datez00, BgL_bgl_string6070za700za7za7_6246za7, "&nanoseconds->date", 18 );
BGL_DEFINE_STRING(BGl_string6071z00zz__datez00, BgL_bgl_string6071za700za7za7_6247za7, "&milliseconds->date", 19 );
BGL_DEFINE_STRING(BGl_string6072z00zz__datez00, BgL_bgl_string6072za700za7za7_6248za7, "&date->seconds", 14 );
BGL_DEFINE_STRING(BGl_string6073z00zz__datez00, BgL_bgl_string6073za700za7za7_6249za7, "&date->nanoseconds", 18 );
BGL_DEFINE_STRING(BGl_string6074z00zz__datez00, BgL_bgl_string6074za700za7za7_6250za7, "&date->milliseconds", 19 );
BGL_DEFINE_STRING(BGl_string6075z00zz__datez00, BgL_bgl_string6075za700za7za7_6251za7, "&date->string", 13 );
BGL_DEFINE_STRING(BGl_string6076z00zz__datez00, BgL_bgl_string6076za700za7za7_6252za7, "string-set!", 11 );
BGL_DEFINE_STRING(BGl_string6077z00zz__datez00, BgL_bgl_string6077za700za7za7_6253za7, "&date->utc-string", 17 );
BGL_DEFINE_STRING(BGl_string6078z00zz__datez00, BgL_bgl_string6078za700za7za7_6254za7, "&seconds->string", 16 );
BGL_DEFINE_STRING(BGl_string6079z00zz__datez00, BgL_bgl_string6079za700za7za7_6255za7, "&seconds->utc-string", 20 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_nanosecondszd2ze3datezd2envze3zz__datez00, BgL_bgl_za762nanosecondsza7d6256z00, BGl_z62nanosecondszd2ze3datez53zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string6081z00zz__datez00, BgL_bgl_string6081za700za7za7_6257za7, "day-name", 8 );
BGL_DEFINE_STRING(BGl_string6082z00zz__datez00, BgL_bgl_string6082za700za7za7_6258za7, "Illegal day number", 18 );
BGL_DEFINE_STRING(BGl_string6083z00zz__datez00, BgL_bgl_string6083za700za7za7_6259za7, "bstring", 7 );
BGL_DEFINE_STRING(BGl_string6084z00zz__datez00, BgL_bgl_string6084za700za7za7_6260za7, "&day-name", 9 );
BGL_DEFINE_STRING(BGl_string6086z00zz__datez00, BgL_bgl_string6086za700za7za7_6261za7, "day-aname", 9 );
BGL_DEFINE_STRING(BGl_string6087z00zz__datez00, BgL_bgl_string6087za700za7za7_6262za7, "&day-aname", 10 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2millisecondszd2envz00zz__datez00, BgL_bgl_za762currentza7d2mil6263z00, BGl_z62currentzd2millisecondszb0zz__datez00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string6089z00zz__datez00, BgL_bgl_string6089za700za7za7_6264za7, "month-aname", 11 );
BGL_DEFINE_STRING(BGl_string6090z00zz__datez00, BgL_bgl_string6090za700za7za7_6265za7, "Illegal month number", 20 );
BGL_DEFINE_STRING(BGl_string6091z00zz__datez00, BgL_bgl_string6091za700za7za7_6266za7, "month-name", 10 );
BGL_DEFINE_STRING(BGl_string6092z00zz__datez00, BgL_bgl_string6092za700za7za7_6267za7, "&month-name", 11 );
BGL_DEFINE_STRING(BGl_string6093z00zz__datez00, BgL_bgl_string6093za700za7za7_6268za7, "&month-aname", 12 );
BGL_DEFINE_STRING(BGl_string6094z00zz__datez00, BgL_bgl_string6094za700za7za7_6269za7, "date-month-length", 17 );
BGL_DEFINE_STRING(BGl_string6095z00zz__datez00, BgL_bgl_string6095za700za7za7_6270za7, "&date-month-length", 18 );
BGL_DEFINE_STRING(BGl_string6096z00zz__datez00, BgL_bgl_string6096za700za7za7_6271za7, "&leap-year?", 11 );
BGL_DEFINE_STRING(BGl_string6097z00zz__datez00, BgL_bgl_string6097za700za7za7_6272za7, "rfc2822-date->date", 18 );
BGL_DEFINE_STRING(BGl_string6098z00zz__datez00, BgL_bgl_string6098za700za7za7_6273za7, "&rfc2822-date->date", 19 );
BGL_DEFINE_STRING(BGl_string6099z00zz__datez00, BgL_bgl_string6099za700za7za7_6274za7, "&rfc2822-parse-date", 19 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_iso8601zd2parsezd2datezd2envzd2zz__datez00, BgL_bgl_za762iso8601za7d2par6275z00, BGl_z62iso8601zd2parsezd2datez62zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2timeza7onezd2envza7zz__datez00, BgL_bgl_za762dateza7d2timeza7a6276za7, BGl_z62datezd2timeza7onez17zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2datezd2envz00zz__datez00, BgL_bgl__makeza7d2dateza7d2za76277za7, opt_generic_entry, BGl__makezd2datezd2zz__datez00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_millisecondszd2ze3gmtdatezd2envze3zz__datez00, BgL_bgl_za762millisecondsza76278z00, BGl_z62millisecondszd2ze3gmtdatez53zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2dayzd2envz00zz__datez00, BgL_bgl_za762dateza7d2dayza7b06279za7, BGl_z62datezd2dayzb0zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_secondszd2ze3stringzd2envze3zz__datez00, BgL_bgl_za762secondsza7d2za7e36280za7, BGl_z62secondszd2ze3stringz53zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ze3utczd2stringzd2envz31zz__datez00, BgL_bgl_za762dateza7d2za7e3utc6281za7, BGl_z62datezd2ze3utczd2stringz81zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_leapzd2yearzf3zd2envzf3zz__datez00, BgL_bgl_za762leapza7d2yearza7f6282za7, BGl_z62leapzd2yearzf3z43zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2datezd2envz00zz__datez00, BgL_bgl_za762currentza7d2dat6283z00, BGl_z62currentzd2datezb0zz__datez00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string5900z00zz__datez00, BgL_bgl_string5900za700za7za7_6284za7, "Can't read on a closed input port", 33 );
BGL_DEFINE_STRING(BGl_string5901z00zz__datez00, BgL_bgl_string5901za700za7za7_6285za7, "Illegal time", 12 );
BGL_DEFINE_STRING(BGl_string5902z00zz__datez00, BgL_bgl_string5902za700za7za7_6286za7, "STATE-21-1207", 13 );
BGL_DEFINE_STRING(BGl_string5903z00zz__datez00, BgL_bgl_string5903za700za7za7_6287za7, "STATE-19-1205", 13 );
BGL_DEFINE_STRING(BGl_string5904z00zz__datez00, BgL_bgl_string5904za700za7za7_6288za7, "STATE-18-1204", 13 );
BGL_DEFINE_STRING(BGl_string5905z00zz__datez00, BgL_bgl_string5905za700za7za7_6289za7, "STATE-17-1203", 13 );
BGL_DEFINE_STRING(BGl_string5906z00zz__datez00, BgL_bgl_string5906za700za7za7_6290za7, "STATE-0-1186", 12 );
BGL_DEFINE_STRING(BGl_string5907z00zz__datez00, BgL_bgl_string5907za700za7za7_6291za7, "STATE-3-1189", 12 );
BGL_DEFINE_STRING(BGl_string5908z00zz__datez00, BgL_bgl_string5908za700za7za7_6292za7, "STATE-10-1196", 13 );
BGL_DEFINE_STRING(BGl_string5909z00zz__datez00, BgL_bgl_string5909za700za7za7_6293za7, "STATE-13-1199", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2iszd2dstzd2envzd2zz__datez00, BgL_bgl_za762dateza7d2isza7d2d6294za7, BGl_z62datezd2iszd2dstz62zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ydayzd2envz00zz__datez00, BgL_bgl_za762dateza7d2ydayza7b6295za7, BGl_z62datezd2ydayzb0zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5910z00zz__datez00, BgL_bgl_string5910za700za7za7_6296za7, "STATE-12-1198", 13 );
BGL_DEFINE_STRING(BGl_string5911z00zz__datez00, BgL_bgl_string5911za700za7za7_6297za7, "STATE-11-1197", 13 );
BGL_DEFINE_STRING(BGl_string5912z00zz__datez00, BgL_bgl_string5912za700za7za7_6298za7, "STATE-8-1194", 12 );
BGL_DEFINE_STRING(BGl_string5913z00zz__datez00, BgL_bgl_string5913za700za7za7_6299za7, "STATE-15-1201", 13 );
BGL_DEFINE_STRING(BGl_string5914z00zz__datez00, BgL_bgl_string5914za700za7za7_6300za7, "STATE-5-1191", 12 );
BGL_DEFINE_STRING(BGl_string5915z00zz__datez00, BgL_bgl_string5915za700za7za7_6301za7, "STATE-4-1190", 12 );
BGL_DEFINE_STRING(BGl_string5916z00zz__datez00, BgL_bgl_string5916za700za7za7_6302za7, "STATE-9-1195", 12 );
BGL_DEFINE_STRING(BGl_string5917z00zz__datez00, BgL_bgl_string5917za700za7za7_6303za7, "STATE-2-1188", 12 );
BGL_DEFINE_STRING(BGl_string5918z00zz__datez00, BgL_bgl_string5918za700za7za7_6304za7, "STATE-16-1202", 13 );
BGL_DEFINE_STRING(BGl_string5919z00zz__datez00, BgL_bgl_string5919za700za7za7_6305za7, "<@anonymous:2078>", 17 );
BGL_DEFINE_STRING(BGl_string5920z00zz__datez00, BgL_bgl_string5920za700za7za7_6306za7, "Illegal month", 13 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5835z00zz__datez00, BgL_bgl_za762za7c3za704anonymo6307za7, BGl_z62zc3z04anonymousza31710ze3ze5zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5841z00zz__datez00, BgL_bgl_string5841za700za7za7_6308za7, "EDT", 3 );
BGL_DEFINE_STRING(BGl_string5922z00zz__datez00, BgL_bgl_string5922za700za7za7_6309za7, "Jan", 3 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5836z00zz__datez00, BgL_bgl_za762za7c3za704anonymo6310za7, BGl_z62zc3z04anonymousza31869ze3ze5zz__datez00, 0L, BUNSPEC, 1);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5837z00zz__datez00, BgL_bgl_za762za7c3za704anonymo6311za7, BGl_z62zc3z04anonymousza32078ze3ze5zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5924z00zz__datez00, BgL_bgl_string5924za700za7za7_6312za7, "Feb", 3 );
BGL_DEFINE_STRING(BGl_string5844z00zz__datez00, BgL_bgl_string5844za700za7za7_6313za7, "EST", 3 );
BGL_DEFINE_STRING(BGl_string5926z00zz__datez00, BgL_bgl_string5926za700za7za7_6314za7, "Mar", 3 );
BGL_DEFINE_STRING(BGl_string5847z00zz__datez00, BgL_bgl_string5847za700za7za7_6315za7, "CDT", 3 );
BGL_DEFINE_STRING(BGl_string5928z00zz__datez00, BgL_bgl_string5928za700za7za7_6316za7, "Apr", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2za7onezd2offsetzd2envz75zz__datez00, BgL_bgl_za762dateza7d2za7a7one6317za7, BGl_z62datezd2za7onezd2offsetzc5zz__datez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2monthzd2lengthzd2envzd2zz__datez00, BgL_bgl_za762dateza7d2monthza76318za7, BGl_z62datezd2monthzd2lengthz62zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5930z00zz__datez00, BgL_bgl_string5930za700za7za7_6319za7, "May", 3 );
BGL_DEFINE_STRING(BGl_string5850z00zz__datez00, BgL_bgl_string5850za700za7za7_6320za7, "CST", 3 );
BGL_DEFINE_STRING(BGl_string5932z00zz__datez00, BgL_bgl_string5932za700za7za7_6321za7, "Jun", 3 );
BGL_DEFINE_STRING(BGl_string5853z00zz__datez00, BgL_bgl_string5853za700za7za7_6322za7, "MDT", 3 );
BGL_DEFINE_STRING(BGl_string5934z00zz__datez00, BgL_bgl_string5934za700za7za7_6323za7, "Jul", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2updatezd2secondz12zd2envzc0zz__datez00, BgL_bgl_za762dateza7d2update6324z00, BGl_z62datezd2updatezd2secondz12z70zz__datez00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string5936z00zz__datez00, BgL_bgl_string5936za700za7za7_6325za7, "Aug", 3 );
BGL_DEFINE_STRING(BGl_string5856z00zz__datez00, BgL_bgl_string5856za700za7za7_6326za7, "MST", 3 );
BGL_DEFINE_STRING(BGl_string5938z00zz__datez00, BgL_bgl_string5938za700za7za7_6327za7, "Sep", 3 );
BGL_DEFINE_STRING(BGl_string5859z00zz__datez00, BgL_bgl_string5859za700za7za7_6328za7, "PDT", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2updatezd2millisecondz12zd2envzc0zz__datez00, BgL_bgl_za762dateza7d2update6329z00, BGl_z62datezd2updatezd2millisecondz12z70zz__datez00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string5940z00zz__datez00, BgL_bgl_string5940za700za7za7_6330za7, "Oct", 3 );
BGL_DEFINE_STRING(BGl_string5942z00zz__datez00, BgL_bgl_string5942za700za7za7_6331za7, "Nov", 3 );
BGL_DEFINE_STRING(BGl_string5862z00zz__datez00, BgL_bgl_string5862za700za7za7_6332za7, "PST", 3 );
BGL_DEFINE_STRING(BGl_string5944z00zz__datez00, BgL_bgl_string5944za700za7za7_6333za7, "Dec", 3 );
BGL_DEFINE_STRING(BGl_string5945z00zz__datez00, BgL_bgl_string5945za700za7za7_6334za7, "STATE-4-1180", 12 );
BGL_DEFINE_STRING(BGl_string5865z00zz__datez00, BgL_bgl_string5865za700za7za7_6335za7, "CEST", 4 );
BGL_DEFINE_STRING(BGl_string5946z00zz__datez00, BgL_bgl_string5946za700za7za7_6336za7, "STATE-3-1179", 12 );
BGL_DEFINE_STRING(BGl_string5947z00zz__datez00, BgL_bgl_string5947za700za7za7_6337za7, "STATE-7-1183", 12 );
BGL_DEFINE_STRING(BGl_string5948z00zz__datez00, BgL_bgl_string5948za700za7za7_6338za7, "STATE-2-1178", 12 );
BGL_DEFINE_STRING(BGl_string5868z00zz__datez00, BgL_bgl_string5868za700za7za7_6339za7, "UT", 2 );
BGL_DEFINE_STRING(BGl_string5949z00zz__datez00, BgL_bgl_string5949za700za7za7_6340za7, "STATE-0-1176", 12 );
BGL_DEFINE_STRING(BGl_string5950z00zz__datez00, BgL_bgl_string5950za700za7za7_6341za7, "<@anonymous:1869>", 17 );
BGL_DEFINE_STRING(BGl_string5951z00zz__datez00, BgL_bgl_string5951za700za7za7_6342za7, "Illegal integer", 15 );
BGL_DEFINE_STRING(BGl_string5871z00zz__datez00, BgL_bgl_string5871za700za7za7_6343za7, "GMT", 3 );
BGL_DEFINE_STRING(BGl_string5952z00zz__datez00, BgL_bgl_string5952za700za7za7_6344za7, "STATE-6-1173", 12 );
BGL_DEFINE_STRING(BGl_string5953z00zz__datez00, BgL_bgl_string5953za700za7za7_6345za7, "STATE-4-1171", 12 );
BGL_DEFINE_STRING(BGl_string5954z00zz__datez00, BgL_bgl_string5954za700za7za7_6346za7, "STATE-3-1170", 12 );
BGL_DEFINE_STRING(BGl_string5874z00zz__datez00, BgL_bgl_string5874za700za7za7_6347za7, "BST", 3 );
BGL_DEFINE_STRING(BGl_string5955z00zz__datez00, BgL_bgl_string5955za700za7za7_6348za7, "STATE-2-1169", 12 );
BGL_DEFINE_STRING(BGl_string5956z00zz__datez00, BgL_bgl_string5956za700za7za7_6349za7, "STATE-0-1167", 12 );
BGL_DEFINE_STRING(BGl_string5876z00zz__datez00, BgL_bgl_string5876za700za7za7_6350za7, "/tmp/bigloo/runtime/Llib/date.scm", 33 );
BGL_DEFINE_STRING(BGl_string5957z00zz__datez00, BgL_bgl_string5957za700za7za7_6351za7, "<@anonymous:1710>", 17 );
BGL_DEFINE_STRING(BGl_string5877z00zz__datez00, BgL_bgl_string5877za700za7za7_6352za7, "ignore", 6 );
BGL_DEFINE_STRING(BGl_string5958z00zz__datez00, BgL_bgl_string5958za700za7za7_6353za7, "Illegal day of week", 19 );
BGL_DEFINE_STRING(BGl_string5878z00zz__datez00, BgL_bgl_string5878za700za7za7_6354za7, "input-port", 10 );
BGL_DEFINE_STRING(BGl_string5959z00zz__datez00, BgL_bgl_string5959za700za7za7_6355za7, "procedure", 9 );
BGL_DEFINE_STRING(BGl_string5879z00zz__datez00, BgL_bgl_string5879za700za7za7_6356za7, "rfc2822-parse-date", 18 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2updatez12zd2envz12zz__datez00, BgL_bgl__dateza7d2updateza716357z00, opt_generic_entry, BGl__datezd2updatez12zc0zz__datez00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string5960z00zz__datez00, BgL_bgl_string5960za700za7za7_6358za7, "ignore:Wrong number of arguments", 32 );
BGL_DEFINE_STRING(BGl_string5880z00zz__datez00, BgL_bgl_string5880za700za7za7_6359za7, "Illegal zone", 12 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5875z00zz__datez00, BgL_bgl_za762za7c3za704anonymo6360za7, BGl_z62zc3z04anonymousza32371ze3ze5zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5881z00zz__datez00, BgL_bgl_string5881za700za7za7_6361za7, "bint", 4 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ze3secondszd2envze3zz__datez00, BgL_bgl_za762dateza7d2za7e3sec6362za7, BGl_z62datezd2ze3secondsz53zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5882z00zz__datez00, BgL_bgl_string5882za700za7za7_6363za7, "regular-grammar", 15 );
BGL_DEFINE_STRING(BGl_string5963z00zz__datez00, BgL_bgl_string5963za700za7za7_6364za7, "funcall", 7 );
BGL_DEFINE_STRING(BGl_string5883z00zz__datez00, BgL_bgl_string5883za700za7za7_6365za7, "Illegal match", 13 );
BGL_DEFINE_STRING(BGl_string5884z00zz__datez00, BgL_bgl_string5884za700za7za7_6366za7, "the-failure", 11 );
BGL_DEFINE_STRING(BGl_string5965z00zz__datez00, BgL_bgl_string5965za700za7za7_6367za7, "month-grammar", 13 );
BGL_DEFINE_STRING(BGl_string5885z00zz__datez00, BgL_bgl_string5885za700za7za7_6368za7, "STATE-16-1226", 13 );
BGL_DEFINE_STRING(BGl_string5886z00zz__datez00, BgL_bgl_string5886za700za7za7_6369za7, "STATE-14-1224", 13 );
BGL_DEFINE_STRING(BGl_string5967z00zz__datez00, BgL_bgl_string5967za700za7za7_6370za7, "arg1692", 7 );
BGL_DEFINE_STRING(BGl_string5887z00zz__datez00, BgL_bgl_string5887za700za7za7_6371za7, "STATE-11-1221", 13 );
BGL_DEFINE_STRING(BGl_string5888z00zz__datez00, BgL_bgl_string5888za700za7za7_6372za7, "STATE-10-1220", 13 );
BGL_DEFINE_STRING(BGl_string5889z00zz__datez00, BgL_bgl_string5889za700za7za7_6373za7, "STATE-9-1219", 12 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_dayzd2anamezd2envz00zz__datez00, BgL_bgl_za762dayza7d2anameza7b6374za7, BGl_z62dayzd2anamezb0zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5970z00zz__datez00, BgL_bgl_string5970za700za7za7_6375za7, "the-fixnum-grammar", 18 );
BGL_DEFINE_STRING(BGl_string5890z00zz__datez00, BgL_bgl_string5890za700za7za7_6376za7, "STATE-4-1214", 12 );
BGL_DEFINE_STRING(BGl_string5891z00zz__datez00, BgL_bgl_string5891za700za7za7_6377za7, "STATE-13-1223", 13 );
BGL_DEFINE_STRING(BGl_string5972z00zz__datez00, BgL_bgl_string5972za700za7za7_6378za7, "arg1691", 7 );
BGL_DEFINE_STRING(BGl_string5892z00zz__datez00, BgL_bgl_string5892za700za7za7_6379za7, "STATE-0-1210", 12 );
BGL_DEFINE_STRING(BGl_string5893z00zz__datez00, BgL_bgl_string5893za700za7za7_6380za7, "STATE-2-1212", 12 );
BGL_DEFINE_STRING(BGl_string5894z00zz__datez00, BgL_bgl_string5894za700za7za7_6381za7, "STATE-6-1216", 12 );
BGL_DEFINE_STRING(BGl_string5975z00zz__datez00, BgL_bgl_string5975za700za7za7_6382za7, "time-grammar", 12 );
BGL_DEFINE_STRING(BGl_string5895z00zz__datez00, BgL_bgl_string5895za700za7za7_6383za7, "STATE-3-1213", 12 );
BGL_DEFINE_STRING(BGl_string5896z00zz__datez00, BgL_bgl_string5896za700za7za7_6384za7, "STATE-5-1215", 12 );
BGL_DEFINE_STRING(BGl_string5977z00zz__datez00, BgL_bgl_string5977za700za7za7_6385za7, "arg1690", 7 );
BGL_DEFINE_STRING(BGl_string5897z00zz__datez00, BgL_bgl_string5897za700za7za7_6386za7, "STATE-8-1218", 12 );
BGL_DEFINE_STRING(BGl_string5898z00zz__datez00, BgL_bgl_string5898za700za7za7_6387za7, "<@anonymous:2371>", 17 );
BGL_DEFINE_STRING(BGl_string5899z00zz__datez00, BgL_bgl_string5899za700za7za7_6388za7, "class-field", 11 );
BGL_DEFINE_STRING(BGl_string5980z00zz__datez00, BgL_bgl_string5980za700za7za7_6389za7, "zone-grammar", 12 );
BGL_DEFINE_STRING(BGl_string5982z00zz__datez00, BgL_bgl_string5982za700za7za7_6390za7, "arg1689", 7 );
BGL_DEFINE_STRING(BGl_string5985z00zz__datez00, BgL_bgl_string5985za700za7za7_6391za7, "arg1707", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2millisecondzd2envz00zz__datez00, BgL_bgl_za762dateza7d2millis6392z00, BGl_z62datezd2millisecondzb0zz__datez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5988z00zz__datez00, BgL_bgl_string5988za700za7za7_6393za7, "arg1706", 7 );

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_STRING(BGl_string5988z00zz__datez00, BgL_bgl_string5988za700za7za7_6393za7);
BGL_BIND_PROCEDURE(BGl_datezd2millisecondzd2envz00zz__datez00, BgL_bgl_za762dateza7d2millis6392z00);
BGL_BIND_STRING(BGl_string5985z00zz__datez00, BgL_bgl_string5985za700za7za7_6391za7);
BGL_BIND_STRING(BGl_string5982z00zz__datez00, BgL_bgl_string5982za700za7za7_6390za7);
BGL_BIND_STRING(BGl_string5980z00zz__datez00, BgL_bgl_string5980za700za7za7_6389za7);
BGL_BIND_STRING(BGl_string5899z00zz__datez00, BgL_bgl_string5899za700za7za7_6388za7);
BGL_BIND_STRING(BGl_string5898z00zz__datez00, BgL_bgl_string5898za700za7za7_6387za7);
BGL_BIND_STRING(BGl_string5897z00zz__datez00, BgL_bgl_string5897za700za7za7_6386za7);
BGL_BIND_STRING(BGl_string5977z00zz__datez00, BgL_bgl_string5977za700za7za7_6385za7);
BGL_BIND_STRING(BGl_string5896z00zz__datez00, BgL_bgl_string5896za700za7za7_6384za7);
BGL_BIND_STRING(BGl_string5895z00zz__datez00, BgL_bgl_string5895za700za7za7_6383za7);
BGL_BIND_STRING(BGl_string5975z00zz__datez00, BgL_bgl_string5975za700za7za7_6382za7);
BGL_BIND_STRING(BGl_string5894z00zz__datez00, BgL_bgl_string5894za700za7za7_6381za7);
BGL_BIND_STRING(BGl_string5893z00zz__datez00, BgL_bgl_string5893za700za7za7_6380za7);
BGL_BIND_STRING(BGl_string5892z00zz__datez00, BgL_bgl_string5892za700za7za7_6379za7);
BGL_BIND_STRING(BGl_string5972z00zz__datez00, BgL_bgl_string5972za700za7za7_6378za7);
BGL_BIND_STRING(BGl_string5891z00zz__datez00, BgL_bgl_string5891za700za7za7_6377za7);
BGL_BIND_STRING(BGl_string5890z00zz__datez00, BgL_bgl_string5890za700za7za7_6376za7);
BGL_BIND_STRING(BGl_string5970z00zz__datez00, BgL_bgl_string5970za700za7za7_6375za7);
BGL_BIND_PROCEDURE(BGl_dayzd2anamezd2envz00zz__datez00, BgL_bgl_za762dayza7d2anameza7b6374za7);
BGL_BIND_STRING(BGl_string5889z00zz__datez00, BgL_bgl_string5889za700za7za7_6373za7);
BGL_BIND_STRING(BGl_string5888z00zz__datez00, BgL_bgl_string5888za700za7za7_6372za7);
BGL_BIND_STRING(BGl_string5887z00zz__datez00, BgL_bgl_string5887za700za7za7_6371za7);
BGL_BIND_STRING(BGl_string5967z00zz__datez00, BgL_bgl_string5967za700za7za7_6370za7);
BGL_BIND_STRING(BGl_string5886z00zz__datez00, BgL_bgl_string5886za700za7za7_6369za7);
BGL_BIND_STRING(BGl_string5885z00zz__datez00, BgL_bgl_string5885za700za7za7_6368za7);
BGL_BIND_STRING(BGl_string5965z00zz__datez00, BgL_bgl_string5965za700za7za7_6367za7);
BGL_BIND_STRING(BGl_string5884z00zz__datez00, BgL_bgl_string5884za700za7za7_6366za7);
BGL_BIND_STRING(BGl_string5883z00zz__datez00, BgL_bgl_string5883za700za7za7_6365za7);
BGL_BIND_STRING(BGl_string5963z00zz__datez00, BgL_bgl_string5963za700za7za7_6364za7);
BGL_BIND_STRING(BGl_string5882z00zz__datez00, BgL_bgl_string5882za700za7za7_6363za7);
BGL_BIND_PROCEDURE(BGl_datezd2ze3secondszd2envze3zz__datez00, BgL_bgl_za762dateza7d2za7e3sec6362za7);
BGL_BIND_STRING(BGl_string5881z00zz__datez00, BgL_bgl_string5881za700za7za7_6361za7);
BGL_BIND_PROCEDURE(BGl_proc5875z00zz__datez00, BgL_bgl_za762za7c3za704anonymo6360za7);
BGL_BIND_STRING(BGl_string5880z00zz__datez00, BgL_bgl_string5880za700za7za7_6359za7);
BGL_BIND_STRING(BGl_string5960z00zz__datez00, BgL_bgl_string5960za700za7za7_6358za7);
BGL_BIND_PROCEDURE(BGl_datezd2updatez12zd2envz12zz__datez00, BgL_bgl__dateza7d2updateza716357z00);
BGL_BIND_STRING(BGl_string5879z00zz__datez00, BgL_bgl_string5879za700za7za7_6356za7);
BGL_BIND_STRING(BGl_string5959z00zz__datez00, BgL_bgl_string5959za700za7za7_6355za7);
BGL_BIND_STRING(BGl_string5878z00zz__datez00, BgL_bgl_string5878za700za7za7_6354za7);
BGL_BIND_STRING(BGl_string5958z00zz__datez00, BgL_bgl_string5958za700za7za7_6353za7);
BGL_BIND_STRING(BGl_string5877z00zz__datez00, BgL_bgl_string5877za700za7za7_6352za7);
BGL_BIND_STRING(BGl_string5957z00zz__datez00, BgL_bgl_string5957za700za7za7_6351za7);
BGL_BIND_STRING(BGl_string5876z00zz__datez00, BgL_bgl_string5876za700za7za7_6350za7);
BGL_BIND_STRING(BGl_string5956z00zz__datez00, BgL_bgl_string5956za700za7za7_6349za7);
BGL_BIND_STRING(BGl_string5955z00zz__datez00, BgL_bgl_string5955za700za7za7_6348za7);
BGL_BIND_STRING(BGl_string5874z00zz__datez00, BgL_bgl_string5874za700za7za7_6347za7);
BGL_BIND_STRING(BGl_string5954z00zz__datez00, BgL_bgl_string5954za700za7za7_6346za7);
BGL_BIND_STRING(BGl_string5953z00zz__datez00, BgL_bgl_string5953za700za7za7_6345za7);
BGL_BIND_STRING(BGl_string5952z00zz__datez00, BgL_bgl_string5952za700za7za7_6344za7);
BGL_BIND_STRING(BGl_string5871z00zz__datez00, BgL_bgl_string5871za700za7za7_6343za7);
BGL_BIND_STRING(BGl_string5951z00zz__datez00, BgL_bgl_string5951za700za7za7_6342za7);
BGL_BIND_STRING(BGl_string5950z00zz__datez00, BgL_bgl_string5950za700za7za7_6341za7);
BGL_BIND_STRING(BGl_string5949z00zz__datez00, BgL_bgl_string5949za700za7za7_6340za7);
BGL_BIND_STRING(BGl_string5868z00zz__datez00, BgL_bgl_string5868za700za7za7_6339za7);
BGL_BIND_STRING(BGl_string5948z00zz__datez00, BgL_bgl_string5948za700za7za7_6338za7);
BGL_BIND_STRING(BGl_string5947z00zz__datez00, BgL_bgl_string5947za700za7za7_6337za7);
BGL_BIND_STRING(BGl_string5946z00zz__datez00, BgL_bgl_string5946za700za7za7_6336za7);
BGL_BIND_STRING(BGl_string5865z00zz__datez00, BgL_bgl_string5865za700za7za7_6335za7);
BGL_BIND_STRING(BGl_string5945z00zz__datez00, BgL_bgl_string5945za700za7za7_6334za7);
BGL_BIND_STRING(BGl_string5944z00zz__datez00, BgL_bgl_string5944za700za7za7_6333za7);
BGL_BIND_STRING(BGl_string5862z00zz__datez00, BgL_bgl_string5862za700za7za7_6332za7);
BGL_BIND_STRING(BGl_string5942z00zz__datez00, BgL_bgl_string5942za700za7za7_6331za7);
BGL_BIND_STRING(BGl_string5940z00zz__datez00, BgL_bgl_string5940za700za7za7_6330za7);
BGL_BIND_PROCEDURE(BGl_datezd2updatezd2millisecondz12zd2envzc0zz__datez00, BgL_bgl_za762dateza7d2update6329z00);
BGL_BIND_STRING(BGl_string5859z00zz__datez00, BgL_bgl_string5859za700za7za7_6328za7);
BGL_BIND_STRING(BGl_string5938z00zz__datez00, BgL_bgl_string5938za700za7za7_6327za7);
BGL_BIND_STRING(BGl_string5856z00zz__datez00, BgL_bgl_string5856za700za7za7_6326za7);
BGL_BIND_STRING(BGl_string5936z00zz__datez00, BgL_bgl_string5936za700za7za7_6325za7);
BGL_BIND_PROCEDURE(BGl_datezd2updatezd2secondz12zd2envzc0zz__datez00, BgL_bgl_za762dateza7d2update6324z00);
BGL_BIND_STRING(BGl_string5934z00zz__datez00, BgL_bgl_string5934za700za7za7_6323za7);
BGL_BIND_STRING(BGl_string5853z00zz__datez00, BgL_bgl_string5853za700za7za7_6322za7);
BGL_BIND_STRING(BGl_string5932z00zz__datez00, BgL_bgl_string5932za700za7za7_6321za7);
BGL_BIND_STRING(BGl_string5850z00zz__datez00, BgL_bgl_string5850za700za7za7_6320za7);
BGL_BIND_STRING(BGl_string5930z00zz__datez00, BgL_bgl_string5930za700za7za7_6319za7);
BGL_BIND_PROCEDURE(BGl_datezd2monthzd2lengthzd2envzd2zz__datez00, BgL_bgl_za762dateza7d2monthza76318za7);
BGL_BIND_PROCEDURE(BGl_datezd2za7onezd2offsetzd2envz75zz__datez00, BgL_bgl_za762dateza7d2za7a7one6317za7);
BGL_BIND_STRING(BGl_string5928z00zz__datez00, BgL_bgl_string5928za700za7za7_6316za7);
BGL_BIND_STRING(BGl_string5847z00zz__datez00, BgL_bgl_string5847za700za7za7_6315za7);
BGL_BIND_STRING(BGl_string5926z00zz__datez00, BgL_bgl_string5926za700za7za7_6314za7);
BGL_BIND_STRING(BGl_string5844z00zz__datez00, BgL_bgl_string5844za700za7za7_6313za7);
BGL_BIND_STRING(BGl_string5924z00zz__datez00, BgL_bgl_string5924za700za7za7_6312za7);
BGL_BIND_PROCEDURE(BGl_proc5837z00zz__datez00, BgL_bgl_za762za7c3za704anonymo6311za7);
BGL_BIND_PROCEDURE(BGl_proc5836z00zz__datez00, BgL_bgl_za762za7c3za704anonymo6310za7);
BGL_BIND_STRING(BGl_string5922z00zz__datez00, BgL_bgl_string5922za700za7za7_6309za7);
BGL_BIND_STRING(BGl_string5841z00zz__datez00, BgL_bgl_string5841za700za7za7_6308za7);
BGL_BIND_PROCEDURE(BGl_proc5835z00zz__datez00, BgL_bgl_za762za7c3za704anonymo6307za7);
BGL_BIND_STRING(BGl_string5920z00zz__datez00, BgL_bgl_string5920za700za7za7_6306za7);
BGL_BIND_STRING(BGl_string5919z00zz__datez00, BgL_bgl_string5919za700za7za7_6305za7);
BGL_BIND_STRING(BGl_string5918z00zz__datez00, BgL_bgl_string5918za700za7za7_6304za7);
BGL_BIND_STRING(BGl_string5917z00zz__datez00, BgL_bgl_string5917za700za7za7_6303za7);
BGL_BIND_STRING(BGl_string5916z00zz__datez00, BgL_bgl_string5916za700za7za7_6302za7);
BGL_BIND_STRING(BGl_string5915z00zz__datez00, BgL_bgl_string5915za700za7za7_6301za7);
BGL_BIND_STRING(BGl_string5914z00zz__datez00, BgL_bgl_string5914za700za7za7_6300za7);
BGL_BIND_STRING(BGl_string5913z00zz__datez00, BgL_bgl_string5913za700za7za7_6299za7);
BGL_BIND_STRING(BGl_string5912z00zz__datez00, BgL_bgl_string5912za700za7za7_6298za7);
BGL_BIND_STRING(BGl_string5911z00zz__datez00, BgL_bgl_string5911za700za7za7_6297za7);
BGL_BIND_STRING(BGl_string5910z00zz__datez00, BgL_bgl_string5910za700za7za7_6296za7);
BGL_BIND_PROCEDURE(BGl_datezd2ydayzd2envz00zz__datez00, BgL_bgl_za762dateza7d2ydayza7b6295za7);
BGL_BIND_PROCEDURE(BGl_datezd2iszd2dstzd2envzd2zz__datez00, BgL_bgl_za762dateza7d2isza7d2d6294za7);
BGL_BIND_STRING(BGl_string5909z00zz__datez00, BgL_bgl_string5909za700za7za7_6293za7);
BGL_BIND_STRING(BGl_string5908z00zz__datez00, BgL_bgl_string5908za700za7za7_6292za7);
BGL_BIND_STRING(BGl_string5907z00zz__datez00, BgL_bgl_string5907za700za7za7_6291za7);
BGL_BIND_STRING(BGl_string5906z00zz__datez00, BgL_bgl_string5906za700za7za7_6290za7);
BGL_BIND_STRING(BGl_string5905z00zz__datez00, BgL_bgl_string5905za700za7za7_6289za7);
BGL_BIND_STRING(BGl_string5904z00zz__datez00, BgL_bgl_string5904za700za7za7_6288za7);
BGL_BIND_STRING(BGl_string5903z00zz__datez00, BgL_bgl_string5903za700za7za7_6287za7);
BGL_BIND_STRING(BGl_string5902z00zz__datez00, BgL_bgl_string5902za700za7za7_6286za7);
BGL_BIND_STRING(BGl_string5901z00zz__datez00, BgL_bgl_string5901za700za7za7_6285za7);
BGL_BIND_STRING(BGl_string5900z00zz__datez00, BgL_bgl_string5900za700za7za7_6284za7);
BGL_BIND_PROCEDURE(BGl_currentzd2datezd2envz00zz__datez00, BgL_bgl_za762currentza7d2dat6283z00);
BGL_BIND_PROCEDURE(BGl_leapzd2yearzf3zd2envzf3zz__datez00, BgL_bgl_za762leapza7d2yearza7f6282za7);
BGL_BIND_PROCEDURE(BGl_datezd2ze3utczd2stringzd2envz31zz__datez00, BgL_bgl_za762dateza7d2za7e3utc6281za7);
BGL_BIND_PROCEDURE(BGl_secondszd2ze3stringzd2envze3zz__datez00, BgL_bgl_za762secondsza7d2za7e36280za7);
BGL_BIND_PROCEDURE(BGl_datezd2dayzd2envz00zz__datez00, BgL_bgl_za762dateza7d2dayza7b06279za7);
BGL_BIND_PROCEDURE(BGl_millisecondszd2ze3gmtdatezd2envze3zz__datez00, BgL_bgl_za762millisecondsza76278z00);
BGL_BIND_PROCEDURE(BGl_makezd2datezd2envz00zz__datez00, BgL_bgl__makeza7d2dateza7d2za76277za7);
BGL_BIND_PROCEDURE(BGl_datezd2timeza7onezd2envza7zz__datez00, BgL_bgl_za762dateza7d2timeza7a6276za7);
BGL_BIND_PROCEDURE(BGl_iso8601zd2parsezd2datezd2envzd2zz__datez00, BgL_bgl_za762iso8601za7d2par6275z00);
BGL_BIND_STRING(BGl_string6099z00zz__datez00, BgL_bgl_string6099za700za7za7_6274za7);
BGL_BIND_STRING(BGl_string6098z00zz__datez00, BgL_bgl_string6098za700za7za7_6273za7);
BGL_BIND_STRING(BGl_string6097z00zz__datez00, BgL_bgl_string6097za700za7za7_6272za7);
BGL_BIND_STRING(BGl_string6096z00zz__datez00, BgL_bgl_string6096za700za7za7_6271za7);
BGL_BIND_STRING(BGl_string6095z00zz__datez00, BgL_bgl_string6095za700za7za7_6270za7);
BGL_BIND_STRING(BGl_string6094z00zz__datez00, BgL_bgl_string6094za700za7za7_6269za7);
BGL_BIND_STRING(BGl_string6093z00zz__datez00, BgL_bgl_string6093za700za7za7_6268za7);
BGL_BIND_STRING(BGl_string6092z00zz__datez00, BgL_bgl_string6092za700za7za7_6267za7);
BGL_BIND_STRING(BGl_string6091z00zz__datez00, BgL_bgl_string6091za700za7za7_6266za7);
BGL_BIND_STRING(BGl_string6090z00zz__datez00, BgL_bgl_string6090za700za7za7_6265za7);
BGL_BIND_STRING(BGl_string6089z00zz__datez00, BgL_bgl_string6089za700za7za7_6264za7);
BGL_BIND_PROCEDURE(BGl_currentzd2millisecondszd2envz00zz__datez00, BgL_bgl_za762currentza7d2mil6263z00);
BGL_BIND_STRING(BGl_string6087z00zz__datez00, BgL_bgl_string6087za700za7za7_6262za7);
BGL_BIND_STRING(BGl_string6086z00zz__datez00, BgL_bgl_string6086za700za7za7_6261za7);
BGL_BIND_STRING(BGl_string6084z00zz__datez00, BgL_bgl_string6084za700za7za7_6260za7);
BGL_BIND_STRING(BGl_string6083z00zz__datez00, BgL_bgl_string6083za700za7za7_6259za7);
BGL_BIND_STRING(BGl_string6082z00zz__datez00, BgL_bgl_string6082za700za7za7_6258za7);
BGL_BIND_STRING(BGl_string6081z00zz__datez00, BgL_bgl_string6081za700za7za7_6257za7);
BGL_BIND_PROCEDURE(BGl_nanosecondszd2ze3datezd2envze3zz__datez00, BgL_bgl_za762nanosecondsza7d6256z00);
BGL_BIND_STRING(BGl_string6079z00zz__datez00, BgL_bgl_string6079za700za7za7_6255za7);
BGL_BIND_STRING(BGl_string6078z00zz__datez00, BgL_bgl_string6078za700za7za7_6254za7);
BGL_BIND_STRING(BGl_string6077z00zz__datez00, BgL_bgl_string6077za700za7za7_6253za7);
BGL_BIND_STRING(BGl_string6076z00zz__datez00, BgL_bgl_string6076za700za7za7_6252za7);
BGL_BIND_STRING(BGl_string6075z00zz__datez00, BgL_bgl_string6075za700za7za7_6251za7);
BGL_BIND_STRING(BGl_string6074z00zz__datez00, BgL_bgl_string6074za700za7za7_6250za7);
BGL_BIND_STRING(BGl_string6073z00zz__datez00, BgL_bgl_string6073za700za7za7_6249za7);
BGL_BIND_STRING(BGl_string6072z00zz__datez00, BgL_bgl_string6072za700za7za7_6248za7);
BGL_BIND_STRING(BGl_string6071z00zz__datez00, BgL_bgl_string6071za700za7za7_6247za7);
BGL_BIND_STRING(BGl_string6070z00zz__datez00, BgL_bgl_string6070za700za7za7_6246za7);
BGL_BIND_STRING(BGl_string6069z00zz__datez00, BgL_bgl_string6069za700za7za7_6245za7);
BGL_BIND_STRING(BGl_string6068z00zz__datez00, BgL_bgl_string6068za700za7za7_6244za7);
BGL_BIND_STRING(BGl_string6067z00zz__datez00, BgL_bgl_string6067za700za7za7_6243za7);
BGL_BIND_STRING(BGl_string6066z00zz__datez00, BgL_bgl_string6066za700za7za7_6242za7);
BGL_BIND_STRING(BGl_string6065z00zz__datez00, BgL_bgl_string6065za700za7za7_6241za7);
BGL_BIND_STRING(BGl_string6064z00zz__datez00, BgL_bgl_string6064za700za7za7_6240za7);
BGL_BIND_STRING(BGl_string6063z00zz__datez00, BgL_bgl_string6063za700za7za7_6239za7);
BGL_BIND_STRING(BGl_string6062z00zz__datez00, BgL_bgl_string6062za700za7za7_6238za7);
BGL_BIND_PROCEDURE(BGl_iso8601zd2datezd2ze3datezd2envz31zz__datez00, BgL_bgl_za762iso8601za7d2dat6237z00);
BGL_BIND_PROCEDURE(BGl_datezd2updatezd2minutez12zd2envzc0zz__datez00, BgL_bgl_za762dateza7d2update6236z00);
BGL_BIND_STRING(BGl_string6061z00zz__datez00, BgL_bgl_string6061za700za7za7_6235za7);
BGL_BIND_LLONG(BGl_llong6001z00zz__datez00, BgL_bgl_llong6001za700za7za7__6234za7);
BGL_BIND_STRING(BGl_string6060z00zz__datez00, BgL_bgl_string6060za700za7za7_6233za7);
BGL_BIND_PROCEDURE(BGl_datezd2ze3stringzd2envze3zz__datez00, BgL_bgl_za762dateza7d2za7e3str6232za7);
BGL_BIND_STRING(BGl_string6059z00zz__datez00, BgL_bgl_string6059za700za7za7_6231za7);
BGL_BIND_STRING(BGl_string6058z00zz__datez00, BgL_bgl_string6058za700za7za7_6230za7);
BGL_BIND_STRING(BGl_string6057z00zz__datez00, BgL_bgl_string6057za700za7za7_6229za7);
BGL_BIND_STRING(BGl_string6056z00zz__datez00, BgL_bgl_string6056za700za7za7_6228za7);
BGL_BIND_STRING(BGl_string6055z00zz__datez00, BgL_bgl_string6055za700za7za7_6227za7);
BGL_BIND_STRING(BGl_string6054z00zz__datez00, BgL_bgl_string6054za700za7za7_6226za7);
BGL_BIND_STRING(BGl_string6053z00zz__datez00, BgL_bgl_string6053za700za7za7_6225za7);
BGL_BIND_STRING(BGl_string6052z00zz__datez00, BgL_bgl_string6052za700za7za7_6224za7);
BGL_BIND_STRING(BGl_string6051z00zz__datez00, BgL_bgl_string6051za700za7za7_6223za7);
BGL_BIND_STRING(BGl_string6050z00zz__datez00, BgL_bgl_string6050za700za7za7_6222za7);
BGL_BIND_PROCEDURE(BGl_datezd2yearzd2dayzd2envzd2zz__datez00, BgL_bgl_za762dateza7d2yearza7d6221za7);
BGL_BIND_STRING(BGl_string6049z00zz__datez00, BgL_bgl_string6049za700za7za7_6220za7);
BGL_BIND_STRING(BGl_string6048z00zz__datez00, BgL_bgl_string6048za700za7za7_6219za7);
BGL_BIND_STRING(BGl_string6047z00zz__datez00, BgL_bgl_string6047za700za7za7_6218za7);
BGL_BIND_STRING(BGl_string6046z00zz__datez00, BgL_bgl_string6046za700za7za7_6217za7);
BGL_BIND_STRING(BGl_string6045z00zz__datez00, BgL_bgl_string6045za700za7za7_6216za7);
BGL_BIND_STRING(BGl_string6126z00zz__datez00, BgL_bgl_string6126za700za7za7_6215za7);
BGL_BIND_PROCEDURE(BGl_millisecondszd2ze3datezd2envze3zz__datez00, BgL_bgl_za762millisecondsza76214z00);
BGL_BIND_STRING(BGl_string6044z00zz__datez00, BgL_bgl_string6044za700za7za7_6213za7);
BGL_BIND_STRING(BGl_string6125z00zz__datez00, BgL_bgl_string6125za700za7za7_6212za7);
BGL_BIND_PROCEDURE(BGl_datezd2ze3iso8601zd2datezd2envz31zz__datez00, BgL_bgl_za762dateza7d2za7e3iso6211za7);
BGL_BIND_STRING(BGl_string6043z00zz__datez00, BgL_bgl_string6043za700za7za7_6210za7);
BGL_BIND_STRING(BGl_string6124z00zz__datez00, BgL_bgl_string6124za700za7za7_6209za7);
BGL_BIND_STRING(BGl_string6123z00zz__datez00, BgL_bgl_string6123za700za7za7_6208za7);
BGL_BIND_STRING(BGl_string6122z00zz__datez00, BgL_bgl_string6122za700za7za7_6207za7);
BGL_BIND_STRING(BGl_string6040z00zz__datez00, BgL_bgl_string6040za700za7za7_6206za7);
BGL_BIND_STRING(BGl_string6121z00zz__datez00, BgL_bgl_string6121za700za7za7_6205za7);
BGL_BIND_STRING(BGl_string6120z00zz__datez00, BgL_bgl_string6120za700za7za7_6204za7);
BGL_BIND_PROCEDURE(BGl_datezd2ze3rfc2822zd2datezd2envz31zz__datez00, BgL_bgl_za762dateza7d2za7e3rfc6203za7);
BGL_BIND_PROCEDURE(BGl_rfc2822zd2parsezd2datezd2envzd2zz__datez00, BgL_bgl_za762rfc2822za7d2par6202z00);
BGL_BIND_STRING(BGl_string6039z00zz__datez00, BgL_bgl_string6039za700za7za7_6201za7);
BGL_BIND_STRING(BGl_string6038z00zz__datez00, BgL_bgl_string6038za700za7za7_6200za7);
BGL_BIND_STRING(BGl_string6119z00zz__datez00, BgL_bgl_string6119za700za7za7_6199za7);
BGL_BIND_STRING(BGl_string6037z00zz__datez00, BgL_bgl_string6037za700za7za7_6198za7);
BGL_BIND_STRING(BGl_string6118z00zz__datez00, BgL_bgl_string6118za700za7za7_6197za7);
BGL_BIND_PROCEDURE(BGl_datezd2ze3gmtdatez12zd2envzf1zz__datez00, BgL_bgl_za762dateza7d2za7e3gmt6196za7);
BGL_BIND_STRING(BGl_string6036z00zz__datez00, BgL_bgl_string6036za700za7za7_6195za7);
BGL_BIND_STRING(BGl_string6117z00zz__datez00, BgL_bgl_string6117za700za7za7_6194za7);
BGL_BIND_STRING(BGl_string6035z00zz__datez00, BgL_bgl_string6035za700za7za7_6193za7);
BGL_BIND_STRING(BGl_string6116z00zz__datez00, BgL_bgl_string6116za700za7za7_6192za7);
BGL_BIND_STRING(BGl_string6115z00zz__datez00, BgL_bgl_string6115za700za7za7_6191za7);
BGL_BIND_STRING(BGl_string6033z00zz__datez00, BgL_bgl_string6033za700za7za7_6190za7);
BGL_BIND_STRING(BGl_string6114z00zz__datez00, BgL_bgl_string6114za700za7za7_6189za7);
BGL_BIND_STRING(BGl_string6113z00zz__datez00, BgL_bgl_string6113za700za7za7_6188za7);
BGL_BIND_STRING(BGl_string6112z00zz__datez00, BgL_bgl_string6112za700za7za7_6187za7);
BGL_BIND_STRING(BGl_string6030z00zz__datez00, BgL_bgl_string6030za700za7za7_6186za7);
BGL_BIND_STRING(BGl_string6111z00zz__datez00, BgL_bgl_string6111za700za7za7_6185za7);
BGL_BIND_PROCEDURE(BGl_datezd2hourzd2envz00zz__datez00, BgL_bgl_za762dateza7d2hourza7b6184za7);
BGL_BIND_STRING(BGl_string6110z00zz__datez00, BgL_bgl_string6110za700za7za7_6183za7);
BGL_BIND_PROCEDURE(BGl_datezd2copyzd2envz00zz__datez00, BgL_bgl__dateza7d2copyza7d2za76182za7);
BGL_BIND_PROCEDURE(BGl_secondszd2ze3gmtdatezd2envze3zz__datez00, BgL_bgl_za762secondsza7d2za7e36181za7);
BGL_BIND_STRING(BGl_string6029z00zz__datez00, BgL_bgl_string6029za700za7za7_6180za7);
BGL_BIND_STRING(BGl_string6028z00zz__datez00, BgL_bgl_string6028za700za7za7_6179za7);
BGL_BIND_STRING(BGl_string6109z00zz__datez00, BgL_bgl_string6109za700za7za7_6178za7);
BGL_BIND_STRING(BGl_string6027z00zz__datez00, BgL_bgl_string6027za700za7za7_6177za7);
BGL_BIND_STRING(BGl_string6108z00zz__datez00, BgL_bgl_string6108za700za7za7_6176za7);
BGL_BIND_STRING(BGl_string6026z00zz__datez00, BgL_bgl_string6026za700za7za7_6175za7);
BGL_BIND_STRING(BGl_string6107z00zz__datez00, BgL_bgl_string6107za700za7za7_6174za7);
BGL_BIND_STRING(BGl_string6025z00zz__datez00, BgL_bgl_string6025za700za7za7_6173za7);
BGL_BIND_STRING(BGl_string6106z00zz__datez00, BgL_bgl_string6106za700za7za7_6172za7);
BGL_BIND_STRING(BGl_string6024z00zz__datez00, BgL_bgl_string6024za700za7za7_6171za7);
BGL_BIND_STRING(BGl_string6105z00zz__datez00, BgL_bgl_string6105za700za7za7_6170za7);
BGL_BIND_STRING(BGl_string6104z00zz__datez00, BgL_bgl_string6104za700za7za7_6169za7);
BGL_BIND_STRING(BGl_string6022z00zz__datez00, BgL_bgl_string6022za700za7za7_6168za7);
BGL_BIND_STRING(BGl_string6103z00zz__datez00, BgL_bgl_string6103za700za7za7_6167za7);
BGL_BIND_STRING(BGl_string6102z00zz__datez00, BgL_bgl_string6102za700za7za7_6166za7);
BGL_BIND_STRING(BGl_string6020z00zz__datez00, BgL_bgl_string6020za700za7za7_6165za7);
BGL_BIND_STRING(BGl_string6101z00zz__datez00, BgL_bgl_string6101za700za7za7_6164za7);
BGL_BIND_STRING(BGl_string6100z00zz__datez00, BgL_bgl_string6100za700za7za7_6163za7);
BGL_BIND_PROCEDURE(BGl_datezd2wdayzd2envz00zz__datez00, BgL_bgl_za762dateza7d2wdayza7b6162za7);
BGL_BIND_PROCEDURE(BGl_integerzd2ze3secondzd2envze3zz__datez00, BgL_bgl_za762integerza7d2za7e36161za7);
BGL_BIND_STRING(BGl_string6018z00zz__datez00, BgL_bgl_string6018za700za7za7_6160za7);
BGL_BIND_STRING(BGl_string6016z00zz__datez00, BgL_bgl_string6016za700za7za7_6159za7);
BGL_BIND_STRING(BGl_string6014z00zz__datez00, BgL_bgl_string6014za700za7za7_6158za7);
BGL_BIND_STRING(BGl_string6012z00zz__datez00, BgL_bgl_string6012za700za7za7_6157za7);
BGL_BIND_STRING(BGl_string6010z00zz__datez00, BgL_bgl_string6010za700za7za7_6156za7);
BGL_BIND_PROCEDURE(BGl_secondszd2ze3datezd2envze3zz__datez00, BgL_bgl_za762secondsza7d2za7e36155za7);
BGL_BIND_STRING(BGl_string6008z00zz__datez00, BgL_bgl_string6008za700za7za7_6154za7);
BGL_BIND_STRING(BGl_string6006z00zz__datez00, BgL_bgl_string6006za700za7za7_6153za7);
BGL_BIND_STRING(BGl_string6003z00zz__datez00, BgL_bgl_string6003za700za7za7_6152za7);
BGL_BIND_STRING(BGl_string6002z00zz__datez00, BgL_bgl_string6002za700za7za7_6151za7);
BGL_BIND_STRING(BGl_string6000z00zz__datez00, BgL_bgl_string6000za700za7za7_6150za7);
BGL_BIND_PROCEDURE(BGl_rfc2822zd2datezd2ze3datezd2envz31zz__datez00, BgL_bgl_za762rfc2822za7d2dat6149z00);
BGL_BIND_PROCEDURE(BGl_monthzd2anamezd2envz00zz__datez00, BgL_bgl_za762monthza7d2aname6148z00);
BGL_BIND_PROCEDURE(BGl_currentzd2secondszd2envz00zz__datez00, BgL_bgl_za762currentza7d2sec6147z00);
BGL_BIND_PROCEDURE(BGl_currentzd2nanosecondszd2envz00zz__datez00, BgL_bgl_za762currentza7d2nan6146z00);
BGL_BIND_PROCEDURE(BGl_datezd2secondzd2envz00zz__datez00, BgL_bgl_za762dateza7d2second6145z00);
BGL_BIND_PROCEDURE(BGl_currentzd2microsecondszd2envz00zz__datez00, BgL_bgl_za762currentza7d2mic6144z00);
BGL_BIND_PROCEDURE(BGl_datezd2nanosecondzd2envz00zz__datez00, BgL_bgl_za762dateza7d2nanose6143z00);
BGL_BIND_PROCEDURE(BGl_monthzd2namezd2envz00zz__datez00, BgL_bgl_za762monthza7d2nameza76142za7);
BGL_BIND_PROCEDURE(BGl_datezd2monthzd2envz00zz__datez00, BgL_bgl_za762dateza7d2monthza76141za7);
BGL_BIND_PROCEDURE(BGl_datezd2ze3millisecondszd2envze3zz__datez00, BgL_bgl_za762dateza7d2za7e3mil6140za7);
BGL_BIND_PROCEDURE(BGl_datezd2minutezd2envz00zz__datez00, BgL_bgl_za762dateza7d2minute6139z00);
BGL_BIND_PROCEDURE(BGl_dayzd2namezd2envz00zz__datez00, BgL_bgl_za762dayza7d2nameza7b06138za7);
BGL_BIND_PROCEDURE(BGl_datezd2weekzd2dayzd2envzd2zz__datez00, BgL_bgl_za762dateza7d2weekza7d6137za7);
BGL_BIND_PROCEDURE(BGl_datezf3zd2envz21zz__datez00, BgL_bgl_za762dateza7f3za791za7za7_6136za7);
BGL_BIND_PROCEDURE(BGl_datezd2yearzd2envz00zz__datez00, BgL_bgl_za762dateza7d2yearza7b6135za7);
BGL_BIND_PROCEDURE(BGl_secondszd2ze3utczd2stringzd2envz31zz__datez00, BgL_bgl_za762secondsza7d2za7e36134za7);
BGL_BIND_PROCEDURE(BGl_datezd2ze3nanosecondszd2envze3zz__datez00, BgL_bgl_za762dateza7d2za7e3nan6133za7);
BGL_BIND_STRING(BGl_string5999z00zz__datez00, BgL_bgl_string5999za700za7za7_6132za7);
BGL_BIND_STRING(BGl_string5998z00zz__datez00, BgL_bgl_string5998za700za7za7_6131za7);
BGL_BIND_STRING(BGl_string5997z00zz__datez00, BgL_bgl_string5997za700za7za7_6130za7);
BGL_BIND_STRING(BGl_string5994z00zz__datez00, BgL_bgl_string5994za700za7za7_6129za7);
BGL_BIND_PROCEDURE(BGl_dayzd2secondszd2envz00zz__datez00, BgL_bgl_za762dayza7d2seconds6128z00);
BGL_BIND_STRING(BGl_string5991z00zz__datez00, BgL_bgl_string5991za700za7za7_6127za7);
}

/* GC roots registration */
static obj_t bgl_gc_roots_register() {
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
void *roots_min = (void*)ULONG_MAX, *roots_max = 0;
ADD_ROOT( (void *)(&BGl_symbol6042z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5842z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5845z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5848z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_dayzd2ofzd2weekzd2grammarzd2zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5851z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5854z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5857z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_timezd2grammarzd2zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5860z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5863z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5866z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5869z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5872z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol6080z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol6085z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol6088z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5961z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5968z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5973z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5978z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5983z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5986z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5989z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5992z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5995z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_thezd2fixnumzd2grammarz00zz__datez00) );
ADD_ROOT( (void *)(&BGl_za7onezd2grammarz75zz__datez00) );
ADD_ROOT( (void *)(&BGl_za2timezd2za7onesza2z75zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5840z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5921z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5923z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5843z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5925z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5846z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5927z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5929z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5849z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_za2monthzd2lengthsza2zd2zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5931z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5852z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5933z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5935z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5855z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5937z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5858z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5939z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list6004z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5941z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5861z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5943z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5864z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5867z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5870z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5873z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5962z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5964z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5966z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5969z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list6031z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5971z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5974z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5976z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5979z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list6041z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5981z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5984z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5987z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5990z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5993z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol5996z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_keyword6005z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_keyword6007z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_keyword6009z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_keyword6011z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_keyword6013z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_keyword6015z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_keyword6017z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_keyword6019z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_monthzd2grammarzd2zz__datez00) );
ADD_ROOT( (void *)(&BGl_keyword6021z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_keyword6032z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol6023z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_symbol6034z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5838z00zz__datez00) );
ADD_ROOT( (void *)(&BGl_list5839z00zz__datez00) );
#undef ADD_ROOT
if( roots_max > 0 ) GC_add_roots( roots_min, ((void **)roots_max) + 1 );
#endif
return BUNSPEC;
}



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__datez00(long BgL_checksumz00_11940, char * BgL_fromz00_11941)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__datez00))
{ 
BGl_requirezd2initializa7ationz75zz__datez00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
BGl_gczd2rootszd2initz00zz__datez00(); 
BGl_cnstzd2initzd2zz__datez00(); 
BGl_importedzd2moduleszd2initz00zz__datez00(); 
return 
BGl_toplevelzd2initzd2zz__datez00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__datez00(void)
{
{ /* Llib/date.scm 19 */
BGl_symbol5840z00zz__datez00 = 
bstring_to_symbol(BGl_string5841z00zz__datez00); 
BGl_list5839z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5840z00zz__datez00, 
BINT((-4L))); 
BGl_symbol5843z00zz__datez00 = 
bstring_to_symbol(BGl_string5844z00zz__datez00); 
BGl_list5842z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5843z00zz__datez00, 
BINT((-5L))); 
BGl_symbol5846z00zz__datez00 = 
bstring_to_symbol(BGl_string5847z00zz__datez00); 
BGl_list5845z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5846z00zz__datez00, 
BINT((-5L))); 
BGl_symbol5849z00zz__datez00 = 
bstring_to_symbol(BGl_string5850z00zz__datez00); 
BGl_list5848z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5849z00zz__datez00, 
BINT((-6L))); 
BGl_symbol5852z00zz__datez00 = 
bstring_to_symbol(BGl_string5853z00zz__datez00); 
BGl_list5851z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5852z00zz__datez00, 
BINT((-6L))); 
BGl_symbol5855z00zz__datez00 = 
bstring_to_symbol(BGl_string5856z00zz__datez00); 
BGl_list5854z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5855z00zz__datez00, 
BINT((-7L))); 
BGl_symbol5858z00zz__datez00 = 
bstring_to_symbol(BGl_string5859z00zz__datez00); 
BGl_list5857z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5858z00zz__datez00, 
BINT((-7L))); 
BGl_symbol5861z00zz__datez00 = 
bstring_to_symbol(BGl_string5862z00zz__datez00); 
BGl_list5860z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5861z00zz__datez00, 
BINT((-8L))); 
BGl_symbol5864z00zz__datez00 = 
bstring_to_symbol(BGl_string5865z00zz__datez00); 
BGl_list5863z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5864z00zz__datez00, 
BINT(2L)); 
BGl_symbol5867z00zz__datez00 = 
bstring_to_symbol(BGl_string5868z00zz__datez00); 
BGl_list5866z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5867z00zz__datez00, 
BINT(0L)); 
BGl_symbol5870z00zz__datez00 = 
bstring_to_symbol(BGl_string5871z00zz__datez00); 
BGl_list5869z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5870z00zz__datez00, 
BINT(0L)); 
BGl_symbol5873z00zz__datez00 = 
bstring_to_symbol(BGl_string5874z00zz__datez00); 
BGl_list5872z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5873z00zz__datez00, 
BINT(1L)); 
BGl_list5838z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_list5839z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_list5842z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_list5845z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_list5848z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_list5851z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_list5854z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_list5857z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_list5860z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_list5863z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_list5866z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_list5869z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_list5872z00zz__datez00, BNIL)))))))))))); 
BGl_symbol5921z00zz__datez00 = 
bstring_to_symbol(BGl_string5922z00zz__datez00); 
BGl_symbol5923z00zz__datez00 = 
bstring_to_symbol(BGl_string5924z00zz__datez00); 
BGl_symbol5925z00zz__datez00 = 
bstring_to_symbol(BGl_string5926z00zz__datez00); 
BGl_symbol5927z00zz__datez00 = 
bstring_to_symbol(BGl_string5928z00zz__datez00); 
BGl_symbol5929z00zz__datez00 = 
bstring_to_symbol(BGl_string5930z00zz__datez00); 
BGl_symbol5931z00zz__datez00 = 
bstring_to_symbol(BGl_string5932z00zz__datez00); 
BGl_symbol5933z00zz__datez00 = 
bstring_to_symbol(BGl_string5934z00zz__datez00); 
BGl_symbol5935z00zz__datez00 = 
bstring_to_symbol(BGl_string5936z00zz__datez00); 
BGl_symbol5937z00zz__datez00 = 
bstring_to_symbol(BGl_string5938z00zz__datez00); 
BGl_symbol5939z00zz__datez00 = 
bstring_to_symbol(BGl_string5940z00zz__datez00); 
BGl_symbol5941z00zz__datez00 = 
bstring_to_symbol(BGl_string5942z00zz__datez00); 
BGl_symbol5943z00zz__datez00 = 
bstring_to_symbol(BGl_string5944z00zz__datez00); 
BGl_symbol5962z00zz__datez00 = 
bstring_to_symbol(BGl_string5963z00zz__datez00); 
BGl_symbol5964z00zz__datez00 = 
bstring_to_symbol(BGl_string5965z00zz__datez00); 
BGl_symbol5966z00zz__datez00 = 
bstring_to_symbol(BGl_string5967z00zz__datez00); 
BGl_list5961z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5962z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5964z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5964z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5966z00zz__datez00, BNIL)))); 
BGl_symbol5969z00zz__datez00 = 
bstring_to_symbol(BGl_string5970z00zz__datez00); 
BGl_symbol5971z00zz__datez00 = 
bstring_to_symbol(BGl_string5972z00zz__datez00); 
BGl_list5968z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5962z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5969z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5969z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5971z00zz__datez00, BNIL)))); 
BGl_symbol5974z00zz__datez00 = 
bstring_to_symbol(BGl_string5975z00zz__datez00); 
BGl_symbol5976z00zz__datez00 = 
bstring_to_symbol(BGl_string5977z00zz__datez00); 
BGl_list5973z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5962z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5974z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5974z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5976z00zz__datez00, BNIL)))); 
BGl_symbol5979z00zz__datez00 = 
bstring_to_symbol(BGl_string5980z00zz__datez00); 
BGl_symbol5981z00zz__datez00 = 
bstring_to_symbol(BGl_string5982z00zz__datez00); 
BGl_list5978z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5962z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5979z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5979z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5981z00zz__datez00, BNIL)))); 
BGl_symbol5984z00zz__datez00 = 
bstring_to_symbol(BGl_string5985z00zz__datez00); 
BGl_list5983z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5962z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5969z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5969z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5984z00zz__datez00, BNIL)))); 
BGl_symbol5987z00zz__datez00 = 
bstring_to_symbol(BGl_string5988z00zz__datez00); 
BGl_list5986z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5962z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5964z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5964z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5987z00zz__datez00, BNIL)))); 
BGl_symbol5990z00zz__datez00 = 
bstring_to_symbol(BGl_string5991z00zz__datez00); 
BGl_list5989z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5962z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5969z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5969z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5990z00zz__datez00, BNIL)))); 
BGl_symbol5993z00zz__datez00 = 
bstring_to_symbol(BGl_string5994z00zz__datez00); 
BGl_list5992z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5962z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5974z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5974z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5993z00zz__datez00, BNIL)))); 
BGl_symbol5996z00zz__datez00 = 
bstring_to_symbol(BGl_string5997z00zz__datez00); 
BGl_list5995z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_symbol5962z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5979z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5979z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_symbol5996z00zz__datez00, BNIL)))); 
BGl_keyword6005z00zz__datez00 = 
bstring_to_keyword(BGl_string6006z00zz__datez00); 
BGl_keyword6007z00zz__datez00 = 
bstring_to_keyword(BGl_string6008z00zz__datez00); 
BGl_keyword6009z00zz__datez00 = 
bstring_to_keyword(BGl_string6010z00zz__datez00); 
BGl_keyword6011z00zz__datez00 = 
bstring_to_keyword(BGl_string6012z00zz__datez00); 
BGl_keyword6013z00zz__datez00 = 
bstring_to_keyword(BGl_string6014z00zz__datez00); 
BGl_keyword6015z00zz__datez00 = 
bstring_to_keyword(BGl_string6016z00zz__datez00); 
BGl_keyword6017z00zz__datez00 = 
bstring_to_keyword(BGl_string6018z00zz__datez00); 
BGl_keyword6019z00zz__datez00 = 
bstring_to_keyword(BGl_string6020z00zz__datez00); 
BGl_keyword6021z00zz__datez00 = 
bstring_to_keyword(BGl_string6022z00zz__datez00); 
BGl_list6004z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_keyword6005z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6007z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6009z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6011z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6013z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6015z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6017z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6019z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6021z00zz__datez00, BNIL))))))))); 
BGl_symbol6023z00zz__datez00 = 
bstring_to_symbol(BGl_string6024z00zz__datez00); 
BGl_keyword6032z00zz__datez00 = 
bstring_to_keyword(BGl_string6033z00zz__datez00); 
BGl_list6031z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_keyword6005z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6009z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6032z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6011z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6013z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6015z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6017z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6019z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6021z00zz__datez00, BNIL))))))))); 
BGl_symbol6034z00zz__datez00 = 
bstring_to_symbol(BGl_string6035z00zz__datez00); 
BGl_list6041z00zz__datez00 = 
MAKE_YOUNG_PAIR(BGl_keyword6005z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6009z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6011z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6013z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6015z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6017z00zz__datez00, 
MAKE_YOUNG_PAIR(BGl_keyword6021z00zz__datez00, BNIL))))))); 
BGl_symbol6042z00zz__datez00 = 
bstring_to_symbol(BGl_string6043z00zz__datez00); 
BGl_symbol6080z00zz__datez00 = 
bstring_to_symbol(BGl_string6081z00zz__datez00); 
BGl_symbol6085z00zz__datez00 = 
bstring_to_symbol(BGl_string6086z00zz__datez00); 
return ( 
BGl_symbol6088z00zz__datez00 = 
bstring_to_symbol(BGl_string6089z00zz__datez00), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__datez00(void)
{
{ /* Llib/date.scm 19 */
return 
bgl_gc_roots_register();} 

}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__datez00(void)
{
{ /* Llib/date.scm 19 */
{ /* Llib/date.scm 676 */
 obj_t BgL_arg1439z00_1276;
{ /* Llib/date.scm 676 */
 obj_t BgL_arg1442z00_1277;
{ /* Llib/date.scm 676 */
 obj_t BgL_arg1443z00_1278;
{ /* Llib/date.scm 676 */
 obj_t BgL_arg1444z00_1279;
{ /* Llib/date.scm 676 */
 obj_t BgL_arg1445z00_1280;
{ /* Llib/date.scm 676 */
 obj_t BgL_arg1446z00_1281;
{ /* Llib/date.scm 676 */
 obj_t BgL_arg1447z00_1282;
{ /* Llib/date.scm 676 */
 obj_t BgL_arg1448z00_1283;
{ /* Llib/date.scm 676 */
 obj_t BgL_arg1450z00_1284;
{ /* Llib/date.scm 676 */
 obj_t BgL_arg1451z00_1285;
{ /* Llib/date.scm 676 */
 obj_t BgL_arg1452z00_1286;
{ /* Llib/date.scm 676 */
 obj_t BgL_arg1453z00_1287;
BgL_arg1453z00_1287 = 
MAKE_YOUNG_PAIR(
BINT(31L), BNIL); 
BgL_arg1452z00_1286 = 
MAKE_YOUNG_PAIR(
BINT(30L), BgL_arg1453z00_1287); } 
BgL_arg1451z00_1285 = 
MAKE_YOUNG_PAIR(
BINT(31L), BgL_arg1452z00_1286); } 
BgL_arg1450z00_1284 = 
MAKE_YOUNG_PAIR(
BINT(30L), BgL_arg1451z00_1285); } 
BgL_arg1448z00_1283 = 
MAKE_YOUNG_PAIR(
BINT(31L), BgL_arg1450z00_1284); } 
BgL_arg1447z00_1282 = 
MAKE_YOUNG_PAIR(
BINT(31L), BgL_arg1448z00_1283); } 
BgL_arg1446z00_1281 = 
MAKE_YOUNG_PAIR(
BINT(30L), BgL_arg1447z00_1282); } 
BgL_arg1445z00_1280 = 
MAKE_YOUNG_PAIR(
BINT(31L), BgL_arg1446z00_1281); } 
BgL_arg1444z00_1279 = 
MAKE_YOUNG_PAIR(
BINT(30L), BgL_arg1445z00_1280); } 
BgL_arg1443z00_1278 = 
MAKE_YOUNG_PAIR(
BINT(31L), BgL_arg1444z00_1279); } 
BgL_arg1442z00_1277 = 
MAKE_YOUNG_PAIR(
BINT(28L), BgL_arg1443z00_1278); } 
BgL_arg1439z00_1276 = 
MAKE_YOUNG_PAIR(
BINT(31L), BgL_arg1442z00_1277); } 
BGl_za2monthzd2lengthsza2zd2zz__datez00 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_arg1439z00_1276); } 
{ /* Llib/date.scm 979 */
 obj_t BgL_zc3z04anonymousza31454ze3z87_9765;
{ 
 int BgL_tmpz00_12127;
BgL_tmpz00_12127 = 
(int)(0L); 
BgL_zc3z04anonymousza31454ze3z87_9765 = 
MAKE_EL_PROCEDURE(BgL_tmpz00_12127); } 
BGl_dayzd2ofzd2weekzd2grammarzd2zz__datez00 = BgL_zc3z04anonymousza31454ze3z87_9765; } 
BGl_thezd2fixnumzd2grammarz00zz__datez00 = BGl_proc5835z00zz__datez00; 
BGl_monthzd2grammarzd2zz__datez00 = BGl_proc5836z00zz__datez00; 
BGl_timezd2grammarzd2zz__datez00 = BGl_proc5837z00zz__datez00; 
BGl_za2timezd2za7onesza2z75zz__datez00 = BGl_list5838z00zz__datez00; 
return ( 
BGl_za7onezd2grammarz75zz__datez00 = BGl_proc5875z00zz__datez00, BUNSPEC) ;} 

}



/* &<@anonymous:2371> */
obj_t BGl_z62zc3z04anonymousza32371ze3ze5zz__datez00(obj_t BgL_envz00_9766, obj_t BgL_iportz00_9767)
{
{ /* Llib/date.scm 1121 */
{ 
 obj_t BgL_iportz00_11231; long BgL_lastzd2matchzd2_11232; long BgL_forwardz00_11233; long BgL_bufposz00_11234; obj_t BgL_iportz00_11218; long BgL_lastzd2matchzd2_11219; long BgL_forwardz00_11220; long BgL_bufposz00_11221; obj_t BgL_iportz00_11205; long BgL_lastzd2matchzd2_11206; long BgL_forwardz00_11207; long BgL_bufposz00_11208; obj_t BgL_iportz00_11192; long BgL_lastzd2matchzd2_11193; long BgL_forwardz00_11194; long BgL_bufposz00_11195; obj_t BgL_iportz00_11179; long BgL_lastzd2matchzd2_11180; long BgL_forwardz00_11181; long BgL_bufposz00_11182; obj_t BgL_iportz00_11165; long BgL_lastzd2matchzd2_11166; long BgL_forwardz00_11167; long BgL_bufposz00_11168; obj_t BgL_iportz00_11154; long BgL_lastzd2matchzd2_11155; long BgL_forwardz00_11156; long BgL_bufposz00_11157; obj_t BgL_iportz00_11141; long BgL_lastzd2matchzd2_11142; long BgL_forwardz00_11143; long BgL_bufposz00_11144; obj_t BgL_iportz00_11130; long BgL_lastzd2matchzd2_11131; long BgL_forwardz00_11132; long BgL_bufposz00_11133; obj_t BgL_iportz00_11119; long BgL_lastzd2matchzd2_11120; long BgL_forwardz00_11121; long BgL_bufposz00_11122; obj_t BgL_iportz00_11103; long BgL_lastzd2matchzd2_11104; long BgL_forwardz00_11105; long BgL_bufposz00_11106; obj_t BgL_iportz00_11089; long BgL_lastzd2matchzd2_11090; long BgL_forwardz00_11091; long BgL_bufposz00_11092; obj_t BgL_iportz00_11076; long BgL_lastzd2matchzd2_11077; long BgL_forwardz00_11078; long BgL_bufposz00_11079;
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6395z00_12130;
{ /* Llib/date.scm 1121 */
 obj_t BgL_arg2378z00_11242;
{ /* Llib/date.scm 1121 */
 obj_t BgL_res4746z00_11243;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_res4746z00_11243 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12133;
BgL_auxz00_12133 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5898z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12133,BFALSE,BFALSE);} 
BgL_arg2378z00_11242 = BgL_res4746z00_11243; } 
BgL_test6395z00_12130 = 
INPUT_PORT_CLOSEP(BgL_arg2378z00_11242); } 
if(BgL_test6395z00_12130)
{ /* Llib/date.scm 1121 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg2372z00_11244;
{ /* Llib/date.scm 1121 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1078z00_11245;
{ /* Llib/date.scm 1121 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1077z00_11246;
BgL_new1077z00_11246 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Llib/date.scm 1121 */
 long BgL_arg2376z00_11247;
BgL_arg2376z00_11247 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1077z00_11246), BgL_arg2376z00_11247); } 
BgL_new1078z00_11245 = BgL_new1077z00_11246; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_11245)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_11245)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_12146;
{ /* Llib/date.scm 1121 */
 obj_t BgL_arg2373z00_11248;
{ /* Llib/date.scm 1121 */
 obj_t BgL_arg2375z00_11249;
{ /* Llib/date.scm 1121 */
 obj_t BgL_classz00_11250;
BgL_classz00_11250 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg2375z00_11249 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_11250); } 
BgL_arg2373z00_11248 = 
VECTOR_REF(BgL_arg2375z00_11249,2L); } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_auxz00_12150;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2373z00_11248))
{ /* Llib/date.scm 1121 */
BgL_auxz00_12150 = BgL_arg2373z00_11248
; }  else 
{ 
 obj_t BgL_auxz00_12153;
BgL_auxz00_12153 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5898z00zz__datez00, BGl_string5899z00zz__datez00, BgL_arg2373z00_11248); 
FAILURE(BgL_auxz00_12153,BFALSE,BFALSE);} 
BgL_auxz00_12146 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_12150); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_11245)))->BgL_stackz00)=((obj_t)BgL_auxz00_12146),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_11245)))->BgL_procz00)=((obj_t)BGl_string5882z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_11245)))->BgL_msgz00)=((obj_t)BGl_string5900z00zz__datez00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_12163;
{ /* Llib/date.scm 1121 */
 obj_t BgL_res4747z00_11251;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_res4747z00_11251 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12167;
BgL_auxz00_12167 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5898z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12167,BFALSE,BFALSE);} 
BgL_auxz00_12163 = BgL_res4747z00_11251; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_11245)))->BgL_objz00)=((obj_t)BgL_auxz00_12163),BUNSPEC); } 
BgL_arg2372z00_11244 = BgL_new1078z00_11245; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2372z00_11244));}  else 
{ /* Llib/date.scm 1121 */
BgL_ignorez00_11001:
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11016;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11016 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12176;
BgL_auxz00_12176 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12176,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_11016); } 
{ /* Llib/date.scm 1121 */
 long BgL_matchz00_11017;
{ /* Llib/date.scm 1121 */
 long BgL_arg2684z00_11018; long BgL_arg2686z00_11019;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11020;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11020 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12183;
BgL_auxz00_12183 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12183,BFALSE,BFALSE);} 
BgL_arg2684z00_11018 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11020); } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11021;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11021 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12190;
BgL_auxz00_12190 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12190,BFALSE,BFALSE);} 
BgL_arg2686z00_11019 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11021); } 
BgL_iportz00_11165 = BgL_iportz00_9767; 
BgL_lastzd2matchzd2_11166 = 5L; 
BgL_forwardz00_11167 = BgL_arg2684z00_11018; 
BgL_bufposz00_11168 = BgL_arg2686z00_11019; 
BgL_statezd20zd21210z00_11010:
if(
(BgL_forwardz00_11167==BgL_bufposz00_11168))
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6403z00_12197;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11169;
if(
INPUT_PORTP(BgL_iportz00_11165))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11169 = BgL_iportz00_11165; }  else 
{ 
 obj_t BgL_auxz00_12200;
BgL_auxz00_12200 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5892z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11165); 
FAILURE(BgL_auxz00_12200,BFALSE,BFALSE);} 
BgL_test6403z00_12197 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11169); } 
if(BgL_test6403z00_12197)
{ /* Llib/date.scm 1121 */
 long BgL_arg2436z00_11170; long BgL_arg2437z00_11171;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11172;
if(
INPUT_PORTP(BgL_iportz00_11165))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11172 = BgL_iportz00_11165; }  else 
{ 
 obj_t BgL_auxz00_12207;
BgL_auxz00_12207 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5892z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11165); 
FAILURE(BgL_auxz00_12207,BFALSE,BFALSE);} 
BgL_arg2436z00_11170 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11172); } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11173;
if(
INPUT_PORTP(BgL_iportz00_11165))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11173 = BgL_iportz00_11165; }  else 
{ 
 obj_t BgL_auxz00_12214;
BgL_auxz00_12214 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5892z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11165); 
FAILURE(BgL_auxz00_12214,BFALSE,BFALSE);} 
BgL_arg2437z00_11171 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11173); } 
{ 
 long BgL_bufposz00_12220; long BgL_forwardz00_12219;
BgL_forwardz00_12219 = BgL_arg2436z00_11170; 
BgL_bufposz00_12220 = BgL_arg2437z00_11171; 
BgL_bufposz00_11168 = BgL_bufposz00_12220; 
BgL_forwardz00_11167 = BgL_forwardz00_12219; 
goto BgL_statezd20zd21210z00_11010;} }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_lastzd2matchzd2_11166; } }  else 
{ /* Llib/date.scm 1121 */
 int BgL_curz00_11174;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11175;
if(
INPUT_PORTP(BgL_iportz00_11165))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11175 = BgL_iportz00_11165; }  else 
{ 
 obj_t BgL_auxz00_12223;
BgL_auxz00_12223 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5892z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11165); 
FAILURE(BgL_auxz00_12223,BFALSE,BFALSE);} 
BgL_curz00_11174 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11175, BgL_forwardz00_11167); } 
{ /* Llib/date.scm 1121 */

{ /* Llib/date.scm 1121 */
 bool_t BgL_test6408z00_12228;
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6409z00_12229;
if(
(
(long)(BgL_curz00_11174)>=65L))
{ /* Llib/date.scm 1121 */
BgL_test6409z00_12229 = 
(
(long)(BgL_curz00_11174)<91L)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6409z00_12229 = ((bool_t)0)
; } 
if(BgL_test6409z00_12229)
{ /* Llib/date.scm 1121 */
BgL_test6408z00_12228 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1121 */
if(
(
(long)(BgL_curz00_11174)>=97L))
{ /* Llib/date.scm 1121 */
BgL_test6408z00_12228 = 
(
(long)(BgL_curz00_11174)<123L)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6408z00_12228 = ((bool_t)0)
; } } } 
if(BgL_test6408z00_12228)
{ /* Llib/date.scm 1121 */
BgL_iportz00_11218 = BgL_iportz00_11165; 
BgL_lastzd2matchzd2_11219 = BgL_lastzd2matchzd2_11166; 
BgL_forwardz00_11220 = 
(1L+BgL_forwardz00_11167); 
BgL_bufposz00_11221 = BgL_bufposz00_11168; 
BgL_statezd25zd21215z00_11014:
{ /* Llib/date.scm 1121 */
 long BgL_newzd2matchzd2_11222;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11223;
if(
INPUT_PORTP(BgL_iportz00_11218))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11223 = BgL_iportz00_11218; }  else 
{ 
 obj_t BgL_auxz00_12242;
BgL_auxz00_12242 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5896z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11218); 
FAILURE(BgL_auxz00_12242,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11223, BgL_forwardz00_11220); } 
BgL_newzd2matchzd2_11222 = 5L; 
if(
(BgL_forwardz00_11220==BgL_bufposz00_11221))
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6414z00_12249;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11224;
if(
INPUT_PORTP(BgL_iportz00_11218))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11224 = BgL_iportz00_11218; }  else 
{ 
 obj_t BgL_auxz00_12252;
BgL_auxz00_12252 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5896z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11218); 
FAILURE(BgL_auxz00_12252,BFALSE,BFALSE);} 
BgL_test6414z00_12249 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11224); } 
if(BgL_test6414z00_12249)
{ /* Llib/date.scm 1121 */
 long BgL_arg2391z00_11225; long BgL_arg2393z00_11226;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11227;
if(
INPUT_PORTP(BgL_iportz00_11218))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11227 = BgL_iportz00_11218; }  else 
{ 
 obj_t BgL_auxz00_12259;
BgL_auxz00_12259 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5896z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11218); 
FAILURE(BgL_auxz00_12259,BFALSE,BFALSE);} 
BgL_arg2391z00_11225 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11227); } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11228;
if(
INPUT_PORTP(BgL_iportz00_11218))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11228 = BgL_iportz00_11218; }  else 
{ 
 obj_t BgL_auxz00_12266;
BgL_auxz00_12266 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5896z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11218); 
FAILURE(BgL_auxz00_12266,BFALSE,BFALSE);} 
BgL_arg2393z00_11226 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11228); } 
{ 
 long BgL_bufposz00_12272; long BgL_forwardz00_12271;
BgL_forwardz00_12271 = BgL_arg2391z00_11225; 
BgL_bufposz00_12272 = BgL_arg2393z00_11226; 
BgL_bufposz00_11221 = BgL_bufposz00_12272; 
BgL_forwardz00_11220 = BgL_forwardz00_12271; 
goto BgL_statezd25zd21215z00_11014;} }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_newzd2matchzd2_11222; } }  else 
{ /* Llib/date.scm 1121 */
 int BgL_curz00_11229;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11230;
if(
INPUT_PORTP(BgL_iportz00_11218))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11230 = BgL_iportz00_11218; }  else 
{ 
 obj_t BgL_auxz00_12275;
BgL_auxz00_12275 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5896z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11218); 
FAILURE(BgL_auxz00_12275,BFALSE,BFALSE);} 
BgL_curz00_11229 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11230, BgL_forwardz00_11220); } 
{ /* Llib/date.scm 1121 */

{ /* Llib/date.scm 1121 */
 bool_t BgL_test6419z00_12280;
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6420z00_12281;
if(
(
(long)(BgL_curz00_11229)>=65L))
{ /* Llib/date.scm 1121 */
BgL_test6420z00_12281 = 
(
(long)(BgL_curz00_11229)<91L)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6420z00_12281 = ((bool_t)0)
; } 
if(BgL_test6420z00_12281)
{ /* Llib/date.scm 1121 */
BgL_test6419z00_12280 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1121 */
if(
(
(long)(BgL_curz00_11229)>=97L))
{ /* Llib/date.scm 1121 */
BgL_test6419z00_12280 = 
(
(long)(BgL_curz00_11229)<123L)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6419z00_12280 = ((bool_t)0)
; } } } 
if(BgL_test6419z00_12280)
{ /* Llib/date.scm 1121 */
BgL_iportz00_11192 = BgL_iportz00_11218; 
BgL_lastzd2matchzd2_11193 = BgL_newzd2matchzd2_11222; 
BgL_forwardz00_11194 = 
(1L+BgL_forwardz00_11220); 
BgL_bufposz00_11195 = BgL_bufposz00_11221; 
BgL_statezd26zd21216z00_11012:
{ /* Llib/date.scm 1121 */
 long BgL_newzd2matchzd2_11196;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11197;
if(
INPUT_PORTP(BgL_iportz00_11192))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11197 = BgL_iportz00_11192; }  else 
{ 
 obj_t BgL_auxz00_12294;
BgL_auxz00_12294 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5894z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11192); 
FAILURE(BgL_auxz00_12294,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11197, BgL_forwardz00_11194); } 
BgL_newzd2matchzd2_11196 = 4L; 
if(
(BgL_forwardz00_11194==BgL_bufposz00_11195))
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6425z00_12301;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11198;
if(
INPUT_PORTP(BgL_iportz00_11192))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11198 = BgL_iportz00_11192; }  else 
{ 
 obj_t BgL_auxz00_12304;
BgL_auxz00_12304 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5894z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11192); 
FAILURE(BgL_auxz00_12304,BFALSE,BFALSE);} 
BgL_test6425z00_12301 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11198); } 
if(BgL_test6425z00_12301)
{ /* Llib/date.scm 1121 */
 long BgL_arg2412z00_11199; long BgL_arg2413z00_11200;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11201;
if(
INPUT_PORTP(BgL_iportz00_11192))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11201 = BgL_iportz00_11192; }  else 
{ 
 obj_t BgL_auxz00_12311;
BgL_auxz00_12311 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5894z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11192); 
FAILURE(BgL_auxz00_12311,BFALSE,BFALSE);} 
BgL_arg2412z00_11199 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11201); } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11202;
if(
INPUT_PORTP(BgL_iportz00_11192))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11202 = BgL_iportz00_11192; }  else 
{ 
 obj_t BgL_auxz00_12318;
BgL_auxz00_12318 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5894z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11192); 
FAILURE(BgL_auxz00_12318,BFALSE,BFALSE);} 
BgL_arg2413z00_11200 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11202); } 
{ 
 long BgL_bufposz00_12324; long BgL_forwardz00_12323;
BgL_forwardz00_12323 = BgL_arg2412z00_11199; 
BgL_bufposz00_12324 = BgL_arg2413z00_11200; 
BgL_bufposz00_11195 = BgL_bufposz00_12324; 
BgL_forwardz00_11194 = BgL_forwardz00_12323; 
goto BgL_statezd26zd21216z00_11012;} }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_newzd2matchzd2_11196; } }  else 
{ /* Llib/date.scm 1121 */
 int BgL_curz00_11203;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11204;
if(
INPUT_PORTP(BgL_iportz00_11192))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11204 = BgL_iportz00_11192; }  else 
{ 
 obj_t BgL_auxz00_12327;
BgL_auxz00_12327 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5894z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11192); 
FAILURE(BgL_auxz00_12327,BFALSE,BFALSE);} 
BgL_curz00_11203 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11204, BgL_forwardz00_11194); } 
{ /* Llib/date.scm 1121 */

{ /* Llib/date.scm 1121 */
 bool_t BgL_test6430z00_12332;
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6431z00_12333;
if(
(
(long)(BgL_curz00_11203)>=65L))
{ /* Llib/date.scm 1121 */
BgL_test6431z00_12333 = 
(
(long)(BgL_curz00_11203)<91L)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6431z00_12333 = ((bool_t)0)
; } 
if(BgL_test6431z00_12333)
{ /* Llib/date.scm 1121 */
BgL_test6430z00_12332 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1121 */
if(
(
(long)(BgL_curz00_11203)>=97L))
{ /* Llib/date.scm 1121 */
BgL_test6430z00_12332 = 
(
(long)(BgL_curz00_11203)<123L)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6430z00_12332 = ((bool_t)0)
; } } } 
if(BgL_test6430z00_12332)
{ 
 long BgL_forwardz00_12345; long BgL_lastzd2matchzd2_12344;
BgL_lastzd2matchzd2_12344 = BgL_newzd2matchzd2_11196; 
BgL_forwardz00_12345 = 
(1L+BgL_forwardz00_11194); 
BgL_forwardz00_11194 = BgL_forwardz00_12345; 
BgL_lastzd2matchzd2_11193 = BgL_lastzd2matchzd2_12344; 
goto BgL_statezd26zd21216z00_11012;}  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_newzd2matchzd2_11196; } } } } } }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_newzd2matchzd2_11222; } } } } } }  else 
{ /* Llib/date.scm 1121 */
if(
(
(long)(BgL_curz00_11174)==45L))
{ /* Llib/date.scm 1121 */
BgL_iportz00_11141 = BgL_iportz00_11165; 
BgL_lastzd2matchzd2_11142 = BgL_lastzd2matchzd2_11166; 
BgL_forwardz00_11143 = 
(1L+BgL_forwardz00_11167); 
BgL_bufposz00_11144 = BgL_bufposz00_11168; 
BgL_statezd24zd21214z00_11008:
{ /* Llib/date.scm 1121 */
 long BgL_newzd2matchzd2_11145;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11146;
if(
INPUT_PORTP(BgL_iportz00_11141))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11146 = BgL_iportz00_11141; }  else 
{ 
 obj_t BgL_auxz00_12354;
BgL_auxz00_12354 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5890z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11141); 
FAILURE(BgL_auxz00_12354,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11146, BgL_forwardz00_11143); } 
BgL_newzd2matchzd2_11145 = 5L; 
if(
(BgL_forwardz00_11143==BgL_bufposz00_11144))
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6437z00_12361;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11147;
if(
INPUT_PORTP(BgL_iportz00_11141))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11147 = BgL_iportz00_11141; }  else 
{ 
 obj_t BgL_auxz00_12364;
BgL_auxz00_12364 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5890z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11141); 
FAILURE(BgL_auxz00_12364,BFALSE,BFALSE);} 
BgL_test6437z00_12361 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11147); } 
if(BgL_test6437z00_12361)
{ /* Llib/date.scm 1121 */
 long BgL_arg2470z00_11148; long BgL_arg2472z00_11149;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11150;
if(
INPUT_PORTP(BgL_iportz00_11141))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11150 = BgL_iportz00_11141; }  else 
{ 
 obj_t BgL_auxz00_12371;
BgL_auxz00_12371 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5890z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11141); 
FAILURE(BgL_auxz00_12371,BFALSE,BFALSE);} 
BgL_arg2470z00_11148 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11150); } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11151;
if(
INPUT_PORTP(BgL_iportz00_11141))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11151 = BgL_iportz00_11141; }  else 
{ 
 obj_t BgL_auxz00_12378;
BgL_auxz00_12378 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5890z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11141); 
FAILURE(BgL_auxz00_12378,BFALSE,BFALSE);} 
BgL_arg2472z00_11149 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11151); } 
{ 
 long BgL_bufposz00_12384; long BgL_forwardz00_12383;
BgL_forwardz00_12383 = BgL_arg2470z00_11148; 
BgL_bufposz00_12384 = BgL_arg2472z00_11149; 
BgL_bufposz00_11144 = BgL_bufposz00_12384; 
BgL_forwardz00_11143 = BgL_forwardz00_12383; 
goto BgL_statezd24zd21214z00_11008;} }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_newzd2matchzd2_11145; } }  else 
{ /* Llib/date.scm 1121 */
 int BgL_curz00_11152;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11153;
if(
INPUT_PORTP(BgL_iportz00_11141))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11153 = BgL_iportz00_11141; }  else 
{ 
 obj_t BgL_auxz00_12387;
BgL_auxz00_12387 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5890z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11141); 
FAILURE(BgL_auxz00_12387,BFALSE,BFALSE);} 
BgL_curz00_11152 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11153, BgL_forwardz00_11143); } 
{ /* Llib/date.scm 1121 */

{ /* Llib/date.scm 1121 */
 bool_t BgL_test6442z00_12392;
if(
(
(long)(BgL_curz00_11152)>=48L))
{ /* Llib/date.scm 1121 */
BgL_test6442z00_12392 = 
(
(long)(BgL_curz00_11152)<58L)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6442z00_12392 = ((bool_t)0)
; } 
if(BgL_test6442z00_12392)
{ /* Llib/date.scm 1121 */
BgL_iportz00_11130 = BgL_iportz00_11141; 
BgL_lastzd2matchzd2_11131 = BgL_newzd2matchzd2_11145; 
BgL_forwardz00_11132 = 
(1L+BgL_forwardz00_11143); 
BgL_bufposz00_11133 = BgL_bufposz00_11144; 
BgL_statezd29zd21219z00_11007:
if(
(BgL_forwardz00_11132==BgL_bufposz00_11133))
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6445z00_12400;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11134;
if(
INPUT_PORTP(BgL_iportz00_11130))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11134 = BgL_iportz00_11130; }  else 
{ 
 obj_t BgL_auxz00_12403;
BgL_auxz00_12403 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5889z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11130); 
FAILURE(BgL_auxz00_12403,BFALSE,BFALSE);} 
BgL_test6445z00_12400 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11134); } 
if(BgL_test6445z00_12400)
{ /* Llib/date.scm 1121 */
 long BgL_arg2481z00_11135; long BgL_arg2483z00_11136;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11137;
if(
INPUT_PORTP(BgL_iportz00_11130))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11137 = BgL_iportz00_11130; }  else 
{ 
 obj_t BgL_auxz00_12410;
BgL_auxz00_12410 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5889z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11130); 
FAILURE(BgL_auxz00_12410,BFALSE,BFALSE);} 
BgL_arg2481z00_11135 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11137); } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11138;
if(
INPUT_PORTP(BgL_iportz00_11130))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11138 = BgL_iportz00_11130; }  else 
{ 
 obj_t BgL_auxz00_12417;
BgL_auxz00_12417 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5889z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11130); 
FAILURE(BgL_auxz00_12417,BFALSE,BFALSE);} 
BgL_arg2483z00_11136 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11138); } 
{ 
 long BgL_bufposz00_12423; long BgL_forwardz00_12422;
BgL_forwardz00_12422 = BgL_arg2481z00_11135; 
BgL_bufposz00_12423 = BgL_arg2483z00_11136; 
BgL_bufposz00_11133 = BgL_bufposz00_12423; 
BgL_forwardz00_11132 = BgL_forwardz00_12422; 
goto BgL_statezd29zd21219z00_11007;} }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_lastzd2matchzd2_11131; } }  else 
{ /* Llib/date.scm 1121 */
 int BgL_curz00_11139;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11140;
if(
INPUT_PORTP(BgL_iportz00_11130))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11140 = BgL_iportz00_11130; }  else 
{ 
 obj_t BgL_auxz00_12426;
BgL_auxz00_12426 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5889z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11130); 
FAILURE(BgL_auxz00_12426,BFALSE,BFALSE);} 
BgL_curz00_11139 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11140, BgL_forwardz00_11132); } 
{ /* Llib/date.scm 1121 */

{ /* Llib/date.scm 1121 */
 bool_t BgL_test6450z00_12431;
if(
(
(long)(BgL_curz00_11139)>=48L))
{ /* Llib/date.scm 1121 */
BgL_test6450z00_12431 = 
(
(long)(BgL_curz00_11139)<58L)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6450z00_12431 = ((bool_t)0)
; } 
if(BgL_test6450z00_12431)
{ /* Llib/date.scm 1121 */
BgL_iportz00_11119 = BgL_iportz00_11130; 
BgL_lastzd2matchzd2_11120 = BgL_lastzd2matchzd2_11131; 
BgL_forwardz00_11121 = 
(1L+BgL_forwardz00_11132); 
BgL_bufposz00_11122 = BgL_bufposz00_11133; 
BgL_statezd210zd21220z00_11006:
if(
(BgL_forwardz00_11121==BgL_bufposz00_11122))
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6453z00_12439;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11123;
if(
INPUT_PORTP(BgL_iportz00_11119))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11123 = BgL_iportz00_11119; }  else 
{ 
 obj_t BgL_auxz00_12442;
BgL_auxz00_12442 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5888z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11119); 
FAILURE(BgL_auxz00_12442,BFALSE,BFALSE);} 
BgL_test6453z00_12439 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11123); } 
if(BgL_test6453z00_12439)
{ /* Llib/date.scm 1121 */
 long BgL_arg2490z00_11124; long BgL_arg2492z00_11125;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11126;
if(
INPUT_PORTP(BgL_iportz00_11119))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11126 = BgL_iportz00_11119; }  else 
{ 
 obj_t BgL_auxz00_12449;
BgL_auxz00_12449 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5888z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11119); 
FAILURE(BgL_auxz00_12449,BFALSE,BFALSE);} 
BgL_arg2490z00_11124 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11126); } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11127;
if(
INPUT_PORTP(BgL_iportz00_11119))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11127 = BgL_iportz00_11119; }  else 
{ 
 obj_t BgL_auxz00_12456;
BgL_auxz00_12456 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5888z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11119); 
FAILURE(BgL_auxz00_12456,BFALSE,BFALSE);} 
BgL_arg2492z00_11125 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11127); } 
{ 
 long BgL_bufposz00_12462; long BgL_forwardz00_12461;
BgL_forwardz00_12461 = BgL_arg2490z00_11124; 
BgL_bufposz00_12462 = BgL_arg2492z00_11125; 
BgL_bufposz00_11122 = BgL_bufposz00_12462; 
BgL_forwardz00_11121 = BgL_forwardz00_12461; 
goto BgL_statezd210zd21220z00_11006;} }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_lastzd2matchzd2_11120; } }  else 
{ /* Llib/date.scm 1121 */
 int BgL_curz00_11128;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11129;
if(
INPUT_PORTP(BgL_iportz00_11119))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11129 = BgL_iportz00_11119; }  else 
{ 
 obj_t BgL_auxz00_12465;
BgL_auxz00_12465 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5888z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11119); 
FAILURE(BgL_auxz00_12465,BFALSE,BFALSE);} 
BgL_curz00_11128 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11129, BgL_forwardz00_11121); } 
{ /* Llib/date.scm 1121 */

{ /* Llib/date.scm 1121 */
 bool_t BgL_test6458z00_12470;
if(
(
(long)(BgL_curz00_11128)>=48L))
{ /* Llib/date.scm 1121 */
BgL_test6458z00_12470 = 
(
(long)(BgL_curz00_11128)<58L)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6458z00_12470 = ((bool_t)0)
; } 
if(BgL_test6458z00_12470)
{ /* Llib/date.scm 1121 */
BgL_iportz00_11103 = BgL_iportz00_11119; 
BgL_lastzd2matchzd2_11104 = BgL_lastzd2matchzd2_11120; 
BgL_forwardz00_11105 = 
(1L+BgL_forwardz00_11121); 
BgL_bufposz00_11106 = BgL_bufposz00_11122; 
BgL_statezd211zd21221z00_11005:
{ /* Llib/date.scm 1121 */
 long BgL_newzd2matchzd2_11107;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11108;
if(
INPUT_PORTP(BgL_iportz00_11103))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11108 = BgL_iportz00_11103; }  else 
{ 
 obj_t BgL_auxz00_12478;
BgL_auxz00_12478 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5887z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11103); 
FAILURE(BgL_auxz00_12478,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11108, BgL_forwardz00_11105); } 
BgL_newzd2matchzd2_11107 = 2L; 
if(
(BgL_forwardz00_11105==BgL_bufposz00_11106))
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6462z00_12485;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11109;
if(
INPUT_PORTP(BgL_iportz00_11103))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11109 = BgL_iportz00_11103; }  else 
{ 
 obj_t BgL_auxz00_12488;
BgL_auxz00_12488 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5887z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11103); 
FAILURE(BgL_auxz00_12488,BFALSE,BFALSE);} 
BgL_test6462z00_12485 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11109); } 
if(BgL_test6462z00_12485)
{ /* Llib/date.scm 1121 */
 long BgL_arg2500z00_11110; long BgL_arg2501z00_11111;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11112;
if(
INPUT_PORTP(BgL_iportz00_11103))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11112 = BgL_iportz00_11103; }  else 
{ 
 obj_t BgL_auxz00_12495;
BgL_auxz00_12495 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5887z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11103); 
FAILURE(BgL_auxz00_12495,BFALSE,BFALSE);} 
BgL_arg2500z00_11110 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11112); } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11113;
if(
INPUT_PORTP(BgL_iportz00_11103))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11113 = BgL_iportz00_11103; }  else 
{ 
 obj_t BgL_auxz00_12502;
BgL_auxz00_12502 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5887z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11103); 
FAILURE(BgL_auxz00_12502,BFALSE,BFALSE);} 
BgL_arg2501z00_11111 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11113); } 
{ 
 long BgL_bufposz00_12508; long BgL_forwardz00_12507;
BgL_forwardz00_12507 = BgL_arg2500z00_11110; 
BgL_bufposz00_12508 = BgL_arg2501z00_11111; 
BgL_bufposz00_11106 = BgL_bufposz00_12508; 
BgL_forwardz00_11105 = BgL_forwardz00_12507; 
goto BgL_statezd211zd21221z00_11005;} }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_newzd2matchzd2_11107; } }  else 
{ /* Llib/date.scm 1121 */
 int BgL_curz00_11114;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11115;
if(
INPUT_PORTP(BgL_iportz00_11103))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11115 = BgL_iportz00_11103; }  else 
{ 
 obj_t BgL_auxz00_12511;
BgL_auxz00_12511 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5887z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11103); 
FAILURE(BgL_auxz00_12511,BFALSE,BFALSE);} 
BgL_curz00_11114 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11115, BgL_forwardz00_11105); } 
{ /* Llib/date.scm 1121 */

{ /* Llib/date.scm 1121 */
 bool_t BgL_test6467z00_12516;
if(
(
(long)(BgL_curz00_11114)>=48L))
{ /* Llib/date.scm 1121 */
BgL_test6467z00_12516 = 
(
(long)(BgL_curz00_11114)<58L)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6467z00_12516 = ((bool_t)0)
; } 
if(BgL_test6467z00_12516)
{ /* Llib/date.scm 1121 */
 long BgL_arg2504z00_11116;
BgL_arg2504z00_11116 = 
(1L+BgL_forwardz00_11105); 
{ /* Llib/date.scm 1121 */
 long BgL_newzd2matchzd2_11117;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11118;
if(
INPUT_PORTP(BgL_iportz00_11103))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11118 = BgL_iportz00_11103; }  else 
{ 
 obj_t BgL_auxz00_12525;
BgL_auxz00_12525 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5887z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11103); 
FAILURE(BgL_auxz00_12525,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11118, BgL_arg2504z00_11116); } 
BgL_newzd2matchzd2_11117 = 1L; 
BgL_matchz00_11017 = BgL_newzd2matchzd2_11117; } }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_newzd2matchzd2_11107; } } } } } }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_lastzd2matchzd2_11120; } } } } }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_lastzd2matchzd2_11131; } } } } }  else 
{ /* Llib/date.scm 1121 */
if(
(
(long)(BgL_curz00_11152)==45L))
{ /* Llib/date.scm 1121 */
BgL_iportz00_11231 = BgL_iportz00_11141; 
BgL_lastzd2matchzd2_11232 = BgL_newzd2matchzd2_11145; 
BgL_forwardz00_11233 = 
(1L+BgL_forwardz00_11143); 
BgL_bufposz00_11234 = BgL_bufposz00_11144; 
BgL_statezd28zd21218z00_11015:
if(
(BgL_forwardz00_11233==BgL_bufposz00_11234))
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6472z00_12538;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11235;
if(
INPUT_PORTP(BgL_iportz00_11231))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11235 = BgL_iportz00_11231; }  else 
{ 
 obj_t BgL_auxz00_12541;
BgL_auxz00_12541 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5897z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11231); 
FAILURE(BgL_auxz00_12541,BFALSE,BFALSE);} 
BgL_test6472z00_12538 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11235); } 
if(BgL_test6472z00_12538)
{ /* Llib/date.scm 1121 */
 long BgL_arg2382z00_11236; long BgL_arg2384z00_11237;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11238;
if(
INPUT_PORTP(BgL_iportz00_11231))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11238 = BgL_iportz00_11231; }  else 
{ 
 obj_t BgL_auxz00_12548;
BgL_auxz00_12548 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5897z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11231); 
FAILURE(BgL_auxz00_12548,BFALSE,BFALSE);} 
BgL_arg2382z00_11236 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11238); } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11239;
if(
INPUT_PORTP(BgL_iportz00_11231))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11239 = BgL_iportz00_11231; }  else 
{ 
 obj_t BgL_auxz00_12555;
BgL_auxz00_12555 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5897z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11231); 
FAILURE(BgL_auxz00_12555,BFALSE,BFALSE);} 
BgL_arg2384z00_11237 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11239); } 
{ 
 long BgL_bufposz00_12561; long BgL_forwardz00_12560;
BgL_forwardz00_12560 = BgL_arg2382z00_11236; 
BgL_bufposz00_12561 = BgL_arg2384z00_11237; 
BgL_bufposz00_11234 = BgL_bufposz00_12561; 
BgL_forwardz00_11233 = BgL_forwardz00_12560; 
goto BgL_statezd28zd21218z00_11015;} }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_lastzd2matchzd2_11232; } }  else 
{ /* Llib/date.scm 1121 */
 int BgL_curz00_11240;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11241;
if(
INPUT_PORTP(BgL_iportz00_11231))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11241 = BgL_iportz00_11231; }  else 
{ 
 obj_t BgL_auxz00_12564;
BgL_auxz00_12564 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5897z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11231); 
FAILURE(BgL_auxz00_12564,BFALSE,BFALSE);} 
BgL_curz00_11240 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11241, BgL_forwardz00_11233); } 
{ /* Llib/date.scm 1121 */

{ /* Llib/date.scm 1121 */
 bool_t BgL_test6477z00_12569;
if(
(
(long)(BgL_curz00_11240)>=48L))
{ /* Llib/date.scm 1121 */
BgL_test6477z00_12569 = 
(
(long)(BgL_curz00_11240)<58L)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6477z00_12569 = ((bool_t)0)
; } 
if(BgL_test6477z00_12569)
{ /* Llib/date.scm 1121 */
BgL_iportz00_11154 = BgL_iportz00_11231; 
BgL_lastzd2matchzd2_11155 = BgL_lastzd2matchzd2_11232; 
BgL_forwardz00_11156 = 
(1L+BgL_forwardz00_11233); 
BgL_bufposz00_11157 = BgL_bufposz00_11234; 
BgL_statezd213zd21223z00_11009:
if(
(BgL_forwardz00_11156==BgL_bufposz00_11157))
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6480z00_12577;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11158;
if(
INPUT_PORTP(BgL_iportz00_11154))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11158 = BgL_iportz00_11154; }  else 
{ 
 obj_t BgL_auxz00_12580;
BgL_auxz00_12580 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5891z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11154); 
FAILURE(BgL_auxz00_12580,BFALSE,BFALSE);} 
BgL_test6480z00_12577 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11158); } 
if(BgL_test6480z00_12577)
{ /* Llib/date.scm 1121 */
 long BgL_arg2461z00_11159; long BgL_arg2462z00_11160;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11161;
if(
INPUT_PORTP(BgL_iportz00_11154))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11161 = BgL_iportz00_11154; }  else 
{ 
 obj_t BgL_auxz00_12587;
BgL_auxz00_12587 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5891z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11154); 
FAILURE(BgL_auxz00_12587,BFALSE,BFALSE);} 
BgL_arg2461z00_11159 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11161); } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11162;
if(
INPUT_PORTP(BgL_iportz00_11154))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11162 = BgL_iportz00_11154; }  else 
{ 
 obj_t BgL_auxz00_12594;
BgL_auxz00_12594 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5891z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11154); 
FAILURE(BgL_auxz00_12594,BFALSE,BFALSE);} 
BgL_arg2462z00_11160 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11162); } 
{ 
 long BgL_bufposz00_12600; long BgL_forwardz00_12599;
BgL_forwardz00_12599 = BgL_arg2461z00_11159; 
BgL_bufposz00_12600 = BgL_arg2462z00_11160; 
BgL_bufposz00_11157 = BgL_bufposz00_12600; 
BgL_forwardz00_11156 = BgL_forwardz00_12599; 
goto BgL_statezd213zd21223z00_11009;} }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_lastzd2matchzd2_11155; } }  else 
{ /* Llib/date.scm 1121 */
 int BgL_curz00_11163;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11164;
if(
INPUT_PORTP(BgL_iportz00_11154))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11164 = BgL_iportz00_11154; }  else 
{ 
 obj_t BgL_auxz00_12603;
BgL_auxz00_12603 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5891z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11154); 
FAILURE(BgL_auxz00_12603,BFALSE,BFALSE);} 
BgL_curz00_11163 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11164, BgL_forwardz00_11156); } 
{ /* Llib/date.scm 1121 */

{ /* Llib/date.scm 1121 */
 bool_t BgL_test6485z00_12608;
if(
(
(long)(BgL_curz00_11163)>=48L))
{ /* Llib/date.scm 1121 */
BgL_test6485z00_12608 = 
(
(long)(BgL_curz00_11163)<58L)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6485z00_12608 = ((bool_t)0)
; } 
if(BgL_test6485z00_12608)
{ /* Llib/date.scm 1121 */
BgL_iportz00_11089 = BgL_iportz00_11154; 
BgL_lastzd2matchzd2_11090 = BgL_lastzd2matchzd2_11155; 
BgL_forwardz00_11091 = 
(1L+BgL_forwardz00_11156); 
BgL_bufposz00_11092 = BgL_bufposz00_11157; 
BgL_statezd214zd21224z00_11004:
if(
(BgL_forwardz00_11091==BgL_bufposz00_11092))
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6488z00_12616;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11093;
if(
INPUT_PORTP(BgL_iportz00_11089))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11093 = BgL_iportz00_11089; }  else 
{ 
 obj_t BgL_auxz00_12619;
BgL_auxz00_12619 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5886z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11089); 
FAILURE(BgL_auxz00_12619,BFALSE,BFALSE);} 
BgL_test6488z00_12616 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11093); } 
if(BgL_test6488z00_12616)
{ /* Llib/date.scm 1121 */
 long BgL_arg2508z00_11094; long BgL_arg2509z00_11095;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11096;
if(
INPUT_PORTP(BgL_iportz00_11089))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11096 = BgL_iportz00_11089; }  else 
{ 
 obj_t BgL_auxz00_12626;
BgL_auxz00_12626 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5886z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11089); 
FAILURE(BgL_auxz00_12626,BFALSE,BFALSE);} 
BgL_arg2508z00_11094 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11096); } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11097;
if(
INPUT_PORTP(BgL_iportz00_11089))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11097 = BgL_iportz00_11089; }  else 
{ 
 obj_t BgL_auxz00_12633;
BgL_auxz00_12633 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5886z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11089); 
FAILURE(BgL_auxz00_12633,BFALSE,BFALSE);} 
BgL_arg2509z00_11095 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11097); } 
{ 
 long BgL_bufposz00_12639; long BgL_forwardz00_12638;
BgL_forwardz00_12638 = BgL_arg2508z00_11094; 
BgL_bufposz00_12639 = BgL_arg2509z00_11095; 
BgL_bufposz00_11092 = BgL_bufposz00_12639; 
BgL_forwardz00_11091 = BgL_forwardz00_12638; 
goto BgL_statezd214zd21224z00_11004;} }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_lastzd2matchzd2_11090; } }  else 
{ /* Llib/date.scm 1121 */
 int BgL_curz00_11098;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11099;
if(
INPUT_PORTP(BgL_iportz00_11089))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11099 = BgL_iportz00_11089; }  else 
{ 
 obj_t BgL_auxz00_12642;
BgL_auxz00_12642 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5886z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11089); 
FAILURE(BgL_auxz00_12642,BFALSE,BFALSE);} 
BgL_curz00_11098 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11099, BgL_forwardz00_11091); } 
{ /* Llib/date.scm 1121 */

{ /* Llib/date.scm 1121 */
 bool_t BgL_test6493z00_12647;
if(
(
(long)(BgL_curz00_11098)>=48L))
{ /* Llib/date.scm 1121 */
BgL_test6493z00_12647 = 
(
(long)(BgL_curz00_11098)<58L)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6493z00_12647 = ((bool_t)0)
; } 
if(BgL_test6493z00_12647)
{ /* Llib/date.scm 1121 */
 long BgL_arg2512z00_11100;
BgL_arg2512z00_11100 = 
(1L+BgL_forwardz00_11091); 
{ /* Llib/date.scm 1121 */
 long BgL_newzd2matchzd2_11101;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11102;
if(
INPUT_PORTP(BgL_iportz00_11089))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11102 = BgL_iportz00_11089; }  else 
{ 
 obj_t BgL_auxz00_12656;
BgL_auxz00_12656 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5886z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11089); 
FAILURE(BgL_auxz00_12656,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11102, BgL_arg2512z00_11100); } 
BgL_newzd2matchzd2_11101 = 3L; 
BgL_matchz00_11017 = BgL_newzd2matchzd2_11101; } }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_lastzd2matchzd2_11090; } } } } }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_lastzd2matchzd2_11155; } } } } }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_lastzd2matchzd2_11232; } } } } }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_newzd2matchzd2_11145; } } } } } } }  else 
{ /* Llib/date.scm 1121 */
if(
(
(long)(BgL_curz00_11174)==43L))
{ /* Llib/date.scm 1121 */
BgL_iportz00_11205 = BgL_iportz00_11165; 
BgL_lastzd2matchzd2_11206 = BgL_lastzd2matchzd2_11166; 
BgL_forwardz00_11207 = 
(1L+BgL_forwardz00_11167); 
BgL_bufposz00_11208 = BgL_bufposz00_11168; 
BgL_statezd23zd21213z00_11013:
{ /* Llib/date.scm 1121 */
 long BgL_newzd2matchzd2_11209;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11210;
if(
INPUT_PORTP(BgL_iportz00_11205))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11210 = BgL_iportz00_11205; }  else 
{ 
 obj_t BgL_auxz00_12670;
BgL_auxz00_12670 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5895z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11205); 
FAILURE(BgL_auxz00_12670,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11210, BgL_forwardz00_11207); } 
BgL_newzd2matchzd2_11209 = 5L; 
if(
(BgL_forwardz00_11207==BgL_bufposz00_11208))
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6499z00_12677;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11211;
if(
INPUT_PORTP(BgL_iportz00_11205))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11211 = BgL_iportz00_11205; }  else 
{ 
 obj_t BgL_auxz00_12680;
BgL_auxz00_12680 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5895z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11205); 
FAILURE(BgL_auxz00_12680,BFALSE,BFALSE);} 
BgL_test6499z00_12677 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11211); } 
if(BgL_test6499z00_12677)
{ /* Llib/date.scm 1121 */
 long BgL_arg2402z00_11212; long BgL_arg2404z00_11213;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11214;
if(
INPUT_PORTP(BgL_iportz00_11205))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11214 = BgL_iportz00_11205; }  else 
{ 
 obj_t BgL_auxz00_12687;
BgL_auxz00_12687 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5895z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11205); 
FAILURE(BgL_auxz00_12687,BFALSE,BFALSE);} 
BgL_arg2402z00_11212 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11214); } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11215;
if(
INPUT_PORTP(BgL_iportz00_11205))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11215 = BgL_iportz00_11205; }  else 
{ 
 obj_t BgL_auxz00_12694;
BgL_auxz00_12694 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5895z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11205); 
FAILURE(BgL_auxz00_12694,BFALSE,BFALSE);} 
BgL_arg2404z00_11213 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11215); } 
{ 
 long BgL_bufposz00_12700; long BgL_forwardz00_12699;
BgL_forwardz00_12699 = BgL_arg2402z00_11212; 
BgL_bufposz00_12700 = BgL_arg2404z00_11213; 
BgL_bufposz00_11208 = BgL_bufposz00_12700; 
BgL_forwardz00_11207 = BgL_forwardz00_12699; 
goto BgL_statezd23zd21213z00_11013;} }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_newzd2matchzd2_11209; } }  else 
{ /* Llib/date.scm 1121 */
 int BgL_curz00_11216;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11217;
if(
INPUT_PORTP(BgL_iportz00_11205))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11217 = BgL_iportz00_11205; }  else 
{ 
 obj_t BgL_auxz00_12703;
BgL_auxz00_12703 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5895z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11205); 
FAILURE(BgL_auxz00_12703,BFALSE,BFALSE);} 
BgL_curz00_11216 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11217, BgL_forwardz00_11207); } 
{ /* Llib/date.scm 1121 */

{ /* Llib/date.scm 1121 */
 bool_t BgL_test6504z00_12708;
if(
(
(long)(BgL_curz00_11216)>=48L))
{ /* Llib/date.scm 1121 */
BgL_test6504z00_12708 = 
(
(long)(BgL_curz00_11216)<58L)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6504z00_12708 = ((bool_t)0)
; } 
if(BgL_test6504z00_12708)
{ 
 long BgL_bufposz00_12718; long BgL_forwardz00_12716; long BgL_lastzd2matchzd2_12715; obj_t BgL_iportz00_12714;
BgL_iportz00_12714 = BgL_iportz00_11205; 
BgL_lastzd2matchzd2_12715 = BgL_newzd2matchzd2_11209; 
BgL_forwardz00_12716 = 
(1L+BgL_forwardz00_11207); 
BgL_bufposz00_12718 = BgL_bufposz00_11208; 
BgL_bufposz00_11133 = BgL_bufposz00_12718; 
BgL_forwardz00_11132 = BgL_forwardz00_12716; 
BgL_lastzd2matchzd2_11131 = BgL_lastzd2matchzd2_12715; 
BgL_iportz00_11130 = BgL_iportz00_12714; 
goto BgL_statezd29zd21219z00_11007;}  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_newzd2matchzd2_11209; } } } } } }  else 
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6506z00_12720;
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6507z00_12721;
if(
(
(long)(BgL_curz00_11174)==10L))
{ /* Llib/date.scm 1121 */
BgL_test6507z00_12721 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6507z00_12721 = 
(
(long)(BgL_curz00_11174)==9L)
; } 
if(BgL_test6507z00_12721)
{ /* Llib/date.scm 1121 */
BgL_test6506z00_12720 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1121 */
if(
(
(long)(BgL_curz00_11174)==13L))
{ /* Llib/date.scm 1121 */
BgL_test6506z00_12720 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6506z00_12720 = 
(
(long)(BgL_curz00_11174)==32L)
; } } } 
if(BgL_test6506z00_12720)
{ /* Llib/date.scm 1121 */
BgL_iportz00_11179 = BgL_iportz00_11165; 
BgL_lastzd2matchzd2_11180 = BgL_lastzd2matchzd2_11166; 
BgL_forwardz00_11181 = 
(1L+BgL_forwardz00_11167); 
BgL_bufposz00_11182 = BgL_bufposz00_11168; 
BgL_statezd22zd21212z00_11011:
{ /* Llib/date.scm 1121 */
 long BgL_newzd2matchzd2_11183;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11184;
if(
INPUT_PORTP(BgL_iportz00_11179))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11184 = BgL_iportz00_11179; }  else 
{ 
 obj_t BgL_auxz00_12734;
BgL_auxz00_12734 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5893z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11179); 
FAILURE(BgL_auxz00_12734,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11184, BgL_forwardz00_11181); } 
BgL_newzd2matchzd2_11183 = 0L; 
if(
(BgL_forwardz00_11181==BgL_bufposz00_11182))
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6512z00_12741;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11185;
if(
INPUT_PORTP(BgL_iportz00_11179))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11185 = BgL_iportz00_11179; }  else 
{ 
 obj_t BgL_auxz00_12744;
BgL_auxz00_12744 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5893z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11179); 
FAILURE(BgL_auxz00_12744,BFALSE,BFALSE);} 
BgL_test6512z00_12741 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11185); } 
if(BgL_test6512z00_12741)
{ /* Llib/date.scm 1121 */
 long BgL_arg2421z00_11186; long BgL_arg2424z00_11187;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11188;
if(
INPUT_PORTP(BgL_iportz00_11179))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11188 = BgL_iportz00_11179; }  else 
{ 
 obj_t BgL_auxz00_12751;
BgL_auxz00_12751 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5893z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11179); 
FAILURE(BgL_auxz00_12751,BFALSE,BFALSE);} 
BgL_arg2421z00_11186 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11188); } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11189;
if(
INPUT_PORTP(BgL_iportz00_11179))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11189 = BgL_iportz00_11179; }  else 
{ 
 obj_t BgL_auxz00_12758;
BgL_auxz00_12758 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5893z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11179); 
FAILURE(BgL_auxz00_12758,BFALSE,BFALSE);} 
BgL_arg2424z00_11187 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11189); } 
{ 
 long BgL_bufposz00_12764; long BgL_forwardz00_12763;
BgL_forwardz00_12763 = BgL_arg2421z00_11186; 
BgL_bufposz00_12764 = BgL_arg2424z00_11187; 
BgL_bufposz00_11182 = BgL_bufposz00_12764; 
BgL_forwardz00_11181 = BgL_forwardz00_12763; 
goto BgL_statezd22zd21212z00_11011;} }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_newzd2matchzd2_11183; } }  else 
{ /* Llib/date.scm 1121 */
 int BgL_curz00_11190;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11191;
if(
INPUT_PORTP(BgL_iportz00_11179))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11191 = BgL_iportz00_11179; }  else 
{ 
 obj_t BgL_auxz00_12767;
BgL_auxz00_12767 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5893z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11179); 
FAILURE(BgL_auxz00_12767,BFALSE,BFALSE);} 
BgL_curz00_11190 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11191, BgL_forwardz00_11181); } 
{ /* Llib/date.scm 1121 */

{ /* Llib/date.scm 1121 */
 bool_t BgL_test6517z00_12772;
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6518z00_12773;
if(
(
(long)(BgL_curz00_11190)==10L))
{ /* Llib/date.scm 1121 */
BgL_test6518z00_12773 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6518z00_12773 = 
(
(long)(BgL_curz00_11190)==9L)
; } 
if(BgL_test6518z00_12773)
{ /* Llib/date.scm 1121 */
BgL_test6517z00_12772 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1121 */
if(
(
(long)(BgL_curz00_11190)==13L))
{ /* Llib/date.scm 1121 */
BgL_test6517z00_12772 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6517z00_12772 = 
(
(long)(BgL_curz00_11190)==32L)
; } } } 
if(BgL_test6517z00_12772)
{ /* Llib/date.scm 1121 */
BgL_iportz00_11076 = BgL_iportz00_11179; 
BgL_lastzd2matchzd2_11077 = BgL_newzd2matchzd2_11183; 
BgL_forwardz00_11078 = 
(1L+BgL_forwardz00_11181); 
BgL_bufposz00_11079 = BgL_bufposz00_11182; 
BgL_statezd216zd21226z00_11003:
{ /* Llib/date.scm 1121 */
 long BgL_newzd2matchzd2_11080;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11081;
if(
INPUT_PORTP(BgL_iportz00_11076))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11081 = BgL_iportz00_11076; }  else 
{ 
 obj_t BgL_auxz00_12786;
BgL_auxz00_12786 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5885z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11076); 
FAILURE(BgL_auxz00_12786,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11081, BgL_forwardz00_11078); } 
BgL_newzd2matchzd2_11080 = 0L; 
if(
(BgL_forwardz00_11078==BgL_bufposz00_11079))
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6523z00_12793;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11082;
if(
INPUT_PORTP(BgL_iportz00_11076))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11082 = BgL_iportz00_11076; }  else 
{ 
 obj_t BgL_auxz00_12796;
BgL_auxz00_12796 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5885z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11076); 
FAILURE(BgL_auxz00_12796,BFALSE,BFALSE);} 
BgL_test6523z00_12793 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11082); } 
if(BgL_test6523z00_12793)
{ /* Llib/date.scm 1121 */
 long BgL_arg2518z00_11083; long BgL_arg2519z00_11084;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11085;
if(
INPUT_PORTP(BgL_iportz00_11076))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11085 = BgL_iportz00_11076; }  else 
{ 
 obj_t BgL_auxz00_12803;
BgL_auxz00_12803 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5885z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11076); 
FAILURE(BgL_auxz00_12803,BFALSE,BFALSE);} 
BgL_arg2518z00_11083 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11085); } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11086;
if(
INPUT_PORTP(BgL_iportz00_11076))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11086 = BgL_iportz00_11076; }  else 
{ 
 obj_t BgL_auxz00_12810;
BgL_auxz00_12810 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5885z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11076); 
FAILURE(BgL_auxz00_12810,BFALSE,BFALSE);} 
BgL_arg2519z00_11084 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11086); } 
{ 
 long BgL_bufposz00_12816; long BgL_forwardz00_12815;
BgL_forwardz00_12815 = BgL_arg2518z00_11083; 
BgL_bufposz00_12816 = BgL_arg2519z00_11084; 
BgL_bufposz00_11079 = BgL_bufposz00_12816; 
BgL_forwardz00_11078 = BgL_forwardz00_12815; 
goto BgL_statezd216zd21226z00_11003;} }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_newzd2matchzd2_11080; } }  else 
{ /* Llib/date.scm 1121 */
 int BgL_curz00_11087;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11088;
if(
INPUT_PORTP(BgL_iportz00_11076))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11088 = BgL_iportz00_11076; }  else 
{ 
 obj_t BgL_auxz00_12819;
BgL_auxz00_12819 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5885z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11076); 
FAILURE(BgL_auxz00_12819,BFALSE,BFALSE);} 
BgL_curz00_11087 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11088, BgL_forwardz00_11078); } 
{ /* Llib/date.scm 1121 */

{ /* Llib/date.scm 1121 */
 bool_t BgL_test6528z00_12824;
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6529z00_12825;
if(
(
(long)(BgL_curz00_11087)==10L))
{ /* Llib/date.scm 1121 */
BgL_test6529z00_12825 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6529z00_12825 = 
(
(long)(BgL_curz00_11087)==9L)
; } 
if(BgL_test6529z00_12825)
{ /* Llib/date.scm 1121 */
BgL_test6528z00_12824 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1121 */
if(
(
(long)(BgL_curz00_11087)==13L))
{ /* Llib/date.scm 1121 */
BgL_test6528z00_12824 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1121 */
BgL_test6528z00_12824 = 
(
(long)(BgL_curz00_11087)==32L)
; } } } 
if(BgL_test6528z00_12824)
{ 
 long BgL_forwardz00_12837; long BgL_lastzd2matchzd2_12836;
BgL_lastzd2matchzd2_12836 = BgL_newzd2matchzd2_11080; 
BgL_forwardz00_12837 = 
(1L+BgL_forwardz00_11078); 
BgL_forwardz00_11078 = BgL_forwardz00_12837; 
BgL_lastzd2matchzd2_11077 = BgL_lastzd2matchzd2_12836; 
goto BgL_statezd216zd21226z00_11003;}  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_newzd2matchzd2_11080; } } } } } }  else 
{ /* Llib/date.scm 1121 */
BgL_matchz00_11017 = BgL_newzd2matchzd2_11183; } } } } } }  else 
{ /* Llib/date.scm 1121 */
 long BgL_arg2457z00_11176;
BgL_arg2457z00_11176 = 
(1L+BgL_forwardz00_11167); 
{ /* Llib/date.scm 1121 */
 long BgL_newzd2matchzd2_11177;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11178;
if(
INPUT_PORTP(BgL_iportz00_11165))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11178 = BgL_iportz00_11165; }  else 
{ 
 obj_t BgL_auxz00_12844;
BgL_auxz00_12844 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5892z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11165); 
FAILURE(BgL_auxz00_12844,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11178, BgL_arg2457z00_11176); } 
BgL_newzd2matchzd2_11177 = 5L; 
BgL_matchz00_11017 = BgL_newzd2matchzd2_11177; } } } } } } } } } 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11022;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11022 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12851;
BgL_auxz00_12851 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12851,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_11022); } 
switch( BgL_matchz00_11017) { case 5L : 

{ /* Llib/date.scm 1149 */
 obj_t BgL_arg2618z00_11023; obj_t BgL_arg2619z00_11024;
{ /* Llib/date.scm 1121 */
 bool_t BgL_test6534z00_12856;
{ /* Llib/date.scm 1121 */
 long BgL_arg2611z00_11073;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11074;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11074 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12859;
BgL_auxz00_12859 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5884z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12859,BFALSE,BFALSE);} 
BgL_arg2611z00_11073 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_11074); } 
BgL_test6534z00_12856 = 
(BgL_arg2611z00_11073==0L); } 
if(BgL_test6534z00_12856)
{ /* Llib/date.scm 1121 */
BgL_arg2618z00_11023 = BEOF; }  else 
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11075;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11075 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12867;
BgL_auxz00_12867 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5884z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12867,BFALSE,BFALSE);} 
BgL_arg2618z00_11023 = 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_11075)); } } 
{ /* Llib/date.scm 1149 */
 obj_t BgL_res4745z00_11025;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_res4745z00_11025 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12875;
BgL_auxz00_12875 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12875,BFALSE,BFALSE);} 
BgL_arg2619z00_11024 = BgL_res4745z00_11025; } 
return 
BGl_parsezd2errorzd2zz__datez00(BGl_string5879z00zz__datez00, BGl_string5880z00zz__datez00, BgL_arg2618z00_11023, BgL_arg2619z00_11024);} break;case 4L : 

{ /* Llib/date.scm 1143 */
 obj_t BgL_cz00_11026;
{ /* Llib/date.scm 1143 */
 obj_t BgL_arg2622z00_11027;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11028;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11028 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12882;
BgL_auxz00_12882 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12882,BFALSE,BFALSE);} 
BgL_arg2622z00_11027 = 
rgc_buffer_symbol(BgL_inputzd2portzd2_11028); } 
BgL_cz00_11026 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg2622z00_11027, BGl_list5838z00zz__datez00); } 
if(
PAIRP(BgL_cz00_11026))
{ /* Llib/date.scm 1145 */
 long BgL_za72za7_11029;
{ /* Llib/date.scm 1145 */
 obj_t BgL_tmpz00_12890;
{ /* Llib/date.scm 1145 */
 obj_t BgL_aux4912z00_11030;
BgL_aux4912z00_11030 = 
CDR(BgL_cz00_11026); 
if(
INTEGERP(BgL_aux4912z00_11030))
{ /* Llib/date.scm 1145 */
BgL_tmpz00_12890 = BgL_aux4912z00_11030
; }  else 
{ 
 obj_t BgL_auxz00_12894;
BgL_auxz00_12894 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(46625L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_aux4912z00_11030); 
FAILURE(BgL_auxz00_12894,BFALSE,BFALSE);} } 
BgL_za72za7_11029 = 
(long)CINT(BgL_tmpz00_12890); } 
return 
BINT(
(3600L*BgL_za72za7_11029));}  else 
{ /* Llib/date.scm 1144 */
return 
BINT(0L);} } break;case 3L : 

{ /* Llib/date.scm 1138 */
 long BgL_hz00_11031; long BgL_mz00_11032;
{ /* Llib/date.scm 1138 */
 int BgL_arg2625z00_11033;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11034;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11034 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12904;
BgL_auxz00_12904 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12904,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1121 */
 int BgL_tmpz00_12908;
BgL_tmpz00_12908 = 
(int)(2L); 
BgL_arg2625z00_11033 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11034, BgL_tmpz00_12908); } } 
BgL_hz00_11031 = 
(
(long)(BgL_arg2625z00_11033)-48L); } 
{ /* Llib/date.scm 1139 */
 long BgL_arg2626z00_11035; long BgL_arg2628z00_11036;
{ /* Llib/date.scm 1139 */
 long BgL_arg2629z00_11037;
{ /* Llib/date.scm 1139 */
 int BgL_arg2630z00_11038;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11039;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11039 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12915;
BgL_auxz00_12915 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12915,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1121 */
 int BgL_tmpz00_12919;
BgL_tmpz00_12919 = 
(int)(3L); 
BgL_arg2630z00_11038 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11039, BgL_tmpz00_12919); } } 
BgL_arg2629z00_11037 = 
(
(long)(BgL_arg2630z00_11038)-48L); } 
BgL_arg2626z00_11035 = 
(10L*BgL_arg2629z00_11037); } 
{ /* Llib/date.scm 1139 */
 int BgL_arg2631z00_11040;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11041;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11041 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12927;
BgL_auxz00_12927 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12927,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1121 */
 int BgL_tmpz00_12931;
BgL_tmpz00_12931 = 
(int)(4L); 
BgL_arg2631z00_11040 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11041, BgL_tmpz00_12931); } } 
BgL_arg2628z00_11036 = 
(
(long)(BgL_arg2631z00_11040)-48L); } 
BgL_mz00_11032 = 
(BgL_arg2626z00_11035+BgL_arg2628z00_11036); } 
return 
BINT(
(60L*
(
(BgL_hz00_11031*60L)+BgL_mz00_11032)));} break;case 2L : 

{ /* Llib/date.scm 1131 */
 long BgL_hz00_11042; long BgL_mz00_11043;
{ /* Llib/date.scm 1131 */
 int BgL_arg2644z00_11044;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11045;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11045 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12943;
BgL_auxz00_12943 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12943,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1121 */
 int BgL_tmpz00_12947;
BgL_tmpz00_12947 = 
(int)(1L); 
BgL_arg2644z00_11044 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11045, BgL_tmpz00_12947); } } 
BgL_hz00_11042 = 
(
(long)(BgL_arg2644z00_11044)-48L); } 
{ /* Llib/date.scm 1132 */
 long BgL_arg2645z00_11046; long BgL_arg2647z00_11047;
{ /* Llib/date.scm 1132 */
 long BgL_arg2648z00_11048;
{ /* Llib/date.scm 1132 */
 int BgL_arg2650z00_11049;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11050;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11050 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12954;
BgL_auxz00_12954 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12954,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1121 */
 int BgL_tmpz00_12958;
BgL_tmpz00_12958 = 
(int)(2L); 
BgL_arg2650z00_11049 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11050, BgL_tmpz00_12958); } } 
BgL_arg2648z00_11048 = 
(
(long)(BgL_arg2650z00_11049)-48L); } 
BgL_arg2645z00_11046 = 
(10L*BgL_arg2648z00_11048); } 
{ /* Llib/date.scm 1132 */
 int BgL_arg2651z00_11051;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11052;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11052 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12966;
BgL_auxz00_12966 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12966,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1121 */
 int BgL_tmpz00_12970;
BgL_tmpz00_12970 = 
(int)(3L); 
BgL_arg2651z00_11051 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11052, BgL_tmpz00_12970); } } 
BgL_arg2647z00_11047 = 
(
(long)(BgL_arg2651z00_11051)-48L); } 
BgL_mz00_11043 = 
(BgL_arg2645z00_11046+BgL_arg2647z00_11047); } 
{ /* Llib/date.scm 1133 */
 bool_t BgL_test6547z00_12976;
{ /* Llib/date.scm 1133 */
 int BgL_arg2642z00_11053;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11054;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11054 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12979;
BgL_auxz00_12979 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12979,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1121 */
 int BgL_tmpz00_12983;
BgL_tmpz00_12983 = 
(int)(0L); 
BgL_arg2642z00_11053 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11054, BgL_tmpz00_12983); } } 
BgL_test6547z00_12976 = 
(
(long)(BgL_arg2642z00_11053)==45L); } 
if(BgL_test6547z00_12976)
{ /* Llib/date.scm 1133 */
return 
BINT(
NEG(
(60L*
(
(BgL_hz00_11042*60L)+BgL_mz00_11043))));}  else 
{ /* Llib/date.scm 1133 */
return 
BINT(
(60L*
(
(BgL_hz00_11042*60L)+BgL_mz00_11043)));} } } break;case 1L : 

{ /* Llib/date.scm 1125 */
 long BgL_hz00_11055; long BgL_mz00_11056;
{ /* Llib/date.scm 1125 */
 long BgL_arg2673z00_11057; long BgL_arg2674z00_11058;
{ /* Llib/date.scm 1125 */
 long BgL_arg2675z00_11059;
{ /* Llib/date.scm 1125 */
 int BgL_arg2676z00_11060;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11061;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11061 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_12999;
BgL_auxz00_12999 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_12999,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1121 */
 int BgL_tmpz00_13003;
BgL_tmpz00_13003 = 
(int)(1L); 
BgL_arg2676z00_11060 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11061, BgL_tmpz00_13003); } } 
BgL_arg2675z00_11059 = 
(
(long)(BgL_arg2676z00_11060)-48L); } 
BgL_arg2673z00_11057 = 
(10L*BgL_arg2675z00_11059); } 
{ /* Llib/date.scm 1125 */
 int BgL_arg2677z00_11062;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11063;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11063 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_13011;
BgL_auxz00_13011 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_13011,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1121 */
 int BgL_tmpz00_13015;
BgL_tmpz00_13015 = 
(int)(2L); 
BgL_arg2677z00_11062 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11063, BgL_tmpz00_13015); } } 
BgL_arg2674z00_11058 = 
(
(long)(BgL_arg2677z00_11062)-48L); } 
BgL_hz00_11055 = 
(BgL_arg2673z00_11057+BgL_arg2674z00_11058); } 
{ /* Llib/date.scm 1126 */
 long BgL_arg2678z00_11064; long BgL_arg2680z00_11065;
{ /* Llib/date.scm 1126 */
 long BgL_arg2681z00_11066;
{ /* Llib/date.scm 1126 */
 int BgL_arg2682z00_11067;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11068;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11068 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_13023;
BgL_auxz00_13023 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_13023,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1121 */
 int BgL_tmpz00_13027;
BgL_tmpz00_13027 = 
(int)(3L); 
BgL_arg2682z00_11067 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11068, BgL_tmpz00_13027); } } 
BgL_arg2681z00_11066 = 
(
(long)(BgL_arg2682z00_11067)-48L); } 
BgL_arg2678z00_11064 = 
(10L*BgL_arg2681z00_11066); } 
{ /* Llib/date.scm 1126 */
 int BgL_arg2683z00_11069;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11070;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11070 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_13035;
BgL_auxz00_13035 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_13035,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1121 */
 int BgL_tmpz00_13039;
BgL_tmpz00_13039 = 
(int)(4L); 
BgL_arg2683z00_11069 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11070, BgL_tmpz00_13039); } } 
BgL_arg2680z00_11065 = 
(
(long)(BgL_arg2683z00_11069)-48L); } 
BgL_mz00_11056 = 
(BgL_arg2678z00_11064+BgL_arg2680z00_11065); } 
{ /* Llib/date.scm 1127 */
 bool_t BgL_test6553z00_13045;
{ /* Llib/date.scm 1127 */
 int BgL_arg2672z00_11071;
{ /* Llib/date.scm 1121 */
 obj_t BgL_inputzd2portzd2_11072;
if(
INPUT_PORTP(BgL_iportz00_9767))
{ /* Llib/date.scm 1121 */
BgL_inputzd2portzd2_11072 = BgL_iportz00_9767; }  else 
{ 
 obj_t BgL_auxz00_13048;
BgL_auxz00_13048 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(45672L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9767); 
FAILURE(BgL_auxz00_13048,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1121 */
 int BgL_tmpz00_13052;
BgL_tmpz00_13052 = 
(int)(0L); 
BgL_arg2672z00_11071 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11072, BgL_tmpz00_13052); } } 
BgL_test6553z00_13045 = 
(
(long)(BgL_arg2672z00_11071)==45L); } 
if(BgL_test6553z00_13045)
{ /* Llib/date.scm 1127 */
return 
BINT(
NEG(
(60L*
(
(BgL_hz00_11055*60L)+BgL_mz00_11056))));}  else 
{ /* Llib/date.scm 1127 */
return 
BINT(
(60L*
(
(BgL_hz00_11055*60L)+BgL_mz00_11056)));} } } break;case 0L : 

goto BgL_ignorez00_11001;break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string5882z00zz__datez00, BGl_string5883z00zz__datez00, 
BINT(BgL_matchz00_11017));} } } } } } 

}



/* &<@anonymous:2078> */
obj_t BGl_z62zc3z04anonymousza32078ze3ze5zz__datez00(obj_t BgL_envz00_9768, obj_t BgL_iportz00_9769)
{
{ /* Llib/date.scm 1063 */
{ 
 obj_t BgL_iportz00_11554; long BgL_lastzd2matchzd2_11555; long BgL_forwardz00_11556; long BgL_bufposz00_11557; obj_t BgL_iportz00_11541; long BgL_lastzd2matchzd2_11542; long BgL_forwardz00_11543; long BgL_bufposz00_11544; obj_t BgL_iportz00_11530; long BgL_lastzd2matchzd2_11531; long BgL_forwardz00_11532; long BgL_bufposz00_11533; obj_t BgL_iportz00_11517; long BgL_lastzd2matchzd2_11518; long BgL_forwardz00_11519; long BgL_bufposz00_11520; obj_t BgL_iportz00_11503; long BgL_lastzd2matchzd2_11504; long BgL_forwardz00_11505; long BgL_bufposz00_11506; obj_t BgL_iportz00_11492; long BgL_lastzd2matchzd2_11493; long BgL_forwardz00_11494; long BgL_bufposz00_11495; obj_t BgL_iportz00_11481; long BgL_lastzd2matchzd2_11482; long BgL_forwardz00_11483; long BgL_bufposz00_11484; obj_t BgL_iportz00_11468; long BgL_lastzd2matchzd2_11469; long BgL_forwardz00_11470; long BgL_bufposz00_11471; obj_t BgL_iportz00_11457; long BgL_lastzd2matchzd2_11458; long BgL_forwardz00_11459; long BgL_bufposz00_11460; obj_t BgL_iportz00_11443; long BgL_lastzd2matchzd2_11444; long BgL_forwardz00_11445; long BgL_bufposz00_11446; obj_t BgL_iportz00_11432; long BgL_lastzd2matchzd2_11433; long BgL_forwardz00_11434; long BgL_bufposz00_11435; obj_t BgL_iportz00_11419; long BgL_lastzd2matchzd2_11420; long BgL_forwardz00_11421; long BgL_bufposz00_11422; obj_t BgL_iportz00_11405; long BgL_lastzd2matchzd2_11406; long BgL_forwardz00_11407; long BgL_bufposz00_11408; obj_t BgL_iportz00_11392; long BgL_lastzd2matchzd2_11393; long BgL_forwardz00_11394; long BgL_bufposz00_11395; obj_t BgL_iportz00_11381; long BgL_lastzd2matchzd2_11382; long BgL_forwardz00_11383; long BgL_bufposz00_11384; obj_t BgL_iportz00_11367; long BgL_lastzd2matchzd2_11368; long BgL_forwardz00_11369; long BgL_bufposz00_11370; obj_t BgL_iportz00_11354; long BgL_lastzd2matchzd2_11355; long BgL_forwardz00_11356; long BgL_bufposz00_11357;
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6555z00_13069;
{ /* Llib/date.scm 1063 */
 obj_t BgL_arg2083z00_11565;
{ /* Llib/date.scm 1063 */
 obj_t BgL_res4743z00_11566;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_res4743z00_11566 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_13072;
BgL_auxz00_13072 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5919z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_13072,BFALSE,BFALSE);} 
BgL_arg2083z00_11565 = BgL_res4743z00_11566; } 
BgL_test6555z00_13069 = 
INPUT_PORT_CLOSEP(BgL_arg2083z00_11565); } 
if(BgL_test6555z00_13069)
{ /* Llib/date.scm 1063 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg2079z00_11567;
{ /* Llib/date.scm 1063 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1078z00_11568;
{ /* Llib/date.scm 1063 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1077z00_11569;
BgL_new1077z00_11569 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Llib/date.scm 1063 */
 long BgL_arg2082z00_11570;
BgL_arg2082z00_11570 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1077z00_11569), BgL_arg2082z00_11570); } 
BgL_new1078z00_11568 = BgL_new1077z00_11569; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_11568)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_11568)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_13085;
{ /* Llib/date.scm 1063 */
 obj_t BgL_arg2080z00_11571;
{ /* Llib/date.scm 1063 */
 obj_t BgL_arg2081z00_11572;
{ /* Llib/date.scm 1063 */
 obj_t BgL_classz00_11573;
BgL_classz00_11573 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg2081z00_11572 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_11573); } 
BgL_arg2080z00_11571 = 
VECTOR_REF(BgL_arg2081z00_11572,2L); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_auxz00_13089;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2080z00_11571))
{ /* Llib/date.scm 1063 */
BgL_auxz00_13089 = BgL_arg2080z00_11571
; }  else 
{ 
 obj_t BgL_auxz00_13092;
BgL_auxz00_13092 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5919z00zz__datez00, BGl_string5899z00zz__datez00, BgL_arg2080z00_11571); 
FAILURE(BgL_auxz00_13092,BFALSE,BFALSE);} 
BgL_auxz00_13085 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_13089); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_11568)))->BgL_stackz00)=((obj_t)BgL_auxz00_13085),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_11568)))->BgL_procz00)=((obj_t)BGl_string5882z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_11568)))->BgL_msgz00)=((obj_t)BGl_string5900z00zz__datez00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_13102;
{ /* Llib/date.scm 1063 */
 obj_t BgL_res4744z00_11574;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_res4744z00_11574 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_13106;
BgL_auxz00_13106 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5919z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_13106,BFALSE,BFALSE);} 
BgL_auxz00_13102 = BgL_res4744z00_11574; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_11568)))->BgL_objz00)=((obj_t)BgL_auxz00_13102),BUNSPEC); } 
BgL_arg2079z00_11567 = BgL_new1078z00_11568; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2079z00_11567));}  else 
{ /* Llib/date.scm 1063 */
BgL_ignorez00_11252:
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11271;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11271 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_13115;
BgL_auxz00_13115 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_13115,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_11271); } 
{ /* Llib/date.scm 1063 */
 long BgL_matchz00_11272;
{ /* Llib/date.scm 1063 */
 long BgL_arg2369z00_11273; long BgL_arg2370z00_11274;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11275;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11275 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_13122;
BgL_auxz00_13122 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_13122,BFALSE,BFALSE);} 
BgL_arg2369z00_11273 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11275); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11276;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11276 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_13129;
BgL_auxz00_13129 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_13129,BFALSE,BFALSE);} 
BgL_arg2370z00_11274 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11276); } 
BgL_iportz00_11405 = BgL_iportz00_9769; 
BgL_lastzd2matchzd2_11406 = 6L; 
BgL_forwardz00_11407 = BgL_arg2369z00_11273; 
BgL_bufposz00_11408 = BgL_arg2370z00_11274; 
BgL_statezd20zd21186z00_11258:
if(
(BgL_forwardz00_11407==BgL_bufposz00_11408))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6563z00_13136;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11409;
if(
INPUT_PORTP(BgL_iportz00_11405))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11409 = BgL_iportz00_11405; }  else 
{ 
 obj_t BgL_auxz00_13139;
BgL_auxz00_13139 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5906z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11405); 
FAILURE(BgL_auxz00_13139,BFALSE,BFALSE);} 
BgL_test6563z00_13136 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11409); } 
if(BgL_test6563z00_13136)
{ /* Llib/date.scm 1063 */
 long BgL_arg2189z00_11410; long BgL_arg2190z00_11411;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11412;
if(
INPUT_PORTP(BgL_iportz00_11405))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11412 = BgL_iportz00_11405; }  else 
{ 
 obj_t BgL_auxz00_13146;
BgL_auxz00_13146 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5906z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11405); 
FAILURE(BgL_auxz00_13146,BFALSE,BFALSE);} 
BgL_arg2189z00_11410 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11412); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11413;
if(
INPUT_PORTP(BgL_iportz00_11405))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11413 = BgL_iportz00_11405; }  else 
{ 
 obj_t BgL_auxz00_13153;
BgL_auxz00_13153 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5906z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11405); 
FAILURE(BgL_auxz00_13153,BFALSE,BFALSE);} 
BgL_arg2190z00_11411 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11413); } 
{ 
 long BgL_bufposz00_13159; long BgL_forwardz00_13158;
BgL_forwardz00_13158 = BgL_arg2189z00_11410; 
BgL_bufposz00_13159 = BgL_arg2190z00_11411; 
BgL_bufposz00_11408 = BgL_bufposz00_13159; 
BgL_forwardz00_11407 = BgL_forwardz00_13158; 
goto BgL_statezd20zd21186z00_11258;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11406; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11414;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11415;
if(
INPUT_PORTP(BgL_iportz00_11405))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11415 = BgL_iportz00_11405; }  else 
{ 
 obj_t BgL_auxz00_13162;
BgL_auxz00_13162 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5906z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11405); 
FAILURE(BgL_auxz00_13162,BFALSE,BFALSE);} 
BgL_curz00_11414 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11415, BgL_forwardz00_11407); } 
{ /* Llib/date.scm 1063 */

if(
(
(long)(BgL_curz00_11414)==58L))
{ /* Llib/date.scm 1063 */
BgL_iportz00_11517 = BgL_iportz00_11405; 
BgL_lastzd2matchzd2_11518 = BgL_lastzd2matchzd2_11406; 
BgL_forwardz00_11519 = 
(1L+BgL_forwardz00_11407); 
BgL_bufposz00_11520 = BgL_bufposz00_11408; 
BgL_statezd24zd21190z00_11267:
{ /* Llib/date.scm 1063 */
 long BgL_newzd2matchzd2_11521;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11522;
if(
INPUT_PORTP(BgL_iportz00_11517))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11522 = BgL_iportz00_11517; }  else 
{ 
 obj_t BgL_auxz00_13172;
BgL_auxz00_13172 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5915z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11517); 
FAILURE(BgL_auxz00_13172,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11522, BgL_forwardz00_11519); } 
BgL_newzd2matchzd2_11521 = 6L; 
if(
(BgL_forwardz00_11519==BgL_bufposz00_11520))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6571z00_13179;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11523;
if(
INPUT_PORTP(BgL_iportz00_11517))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11523 = BgL_iportz00_11517; }  else 
{ 
 obj_t BgL_auxz00_13182;
BgL_auxz00_13182 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5915z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11517); 
FAILURE(BgL_auxz00_13182,BFALSE,BFALSE);} 
BgL_test6571z00_13179 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11523); } 
if(BgL_test6571z00_13179)
{ /* Llib/date.scm 1063 */
 long BgL_arg2114z00_11524; long BgL_arg2115z00_11525;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11526;
if(
INPUT_PORTP(BgL_iportz00_11517))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11526 = BgL_iportz00_11517; }  else 
{ 
 obj_t BgL_auxz00_13189;
BgL_auxz00_13189 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5915z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11517); 
FAILURE(BgL_auxz00_13189,BFALSE,BFALSE);} 
BgL_arg2114z00_11524 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11526); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11527;
if(
INPUT_PORTP(BgL_iportz00_11517))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11527 = BgL_iportz00_11517; }  else 
{ 
 obj_t BgL_auxz00_13196;
BgL_auxz00_13196 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5915z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11517); 
FAILURE(BgL_auxz00_13196,BFALSE,BFALSE);} 
BgL_arg2115z00_11525 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11527); } 
{ 
 long BgL_bufposz00_13202; long BgL_forwardz00_13201;
BgL_forwardz00_13201 = BgL_arg2114z00_11524; 
BgL_bufposz00_13202 = BgL_arg2115z00_11525; 
BgL_bufposz00_11520 = BgL_bufposz00_13202; 
BgL_forwardz00_11519 = BgL_forwardz00_13201; 
goto BgL_statezd24zd21190z00_11267;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_newzd2matchzd2_11521; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11528;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11529;
if(
INPUT_PORTP(BgL_iportz00_11517))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11529 = BgL_iportz00_11517; }  else 
{ 
 obj_t BgL_auxz00_13205;
BgL_auxz00_13205 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5915z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11517); 
FAILURE(BgL_auxz00_13205,BFALSE,BFALSE);} 
BgL_curz00_11528 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11529, BgL_forwardz00_11519); } 
{ /* Llib/date.scm 1063 */

{ /* Llib/date.scm 1063 */
 bool_t BgL_test6576z00_13210;
if(
(
(long)(BgL_curz00_11528)>=48L))
{ /* Llib/date.scm 1063 */
BgL_test6576z00_13210 = 
(
(long)(BgL_curz00_11528)<58L)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6576z00_13210 = ((bool_t)0)
; } 
if(BgL_test6576z00_13210)
{ /* Llib/date.scm 1063 */
BgL_iportz00_11503 = BgL_iportz00_11517; 
BgL_lastzd2matchzd2_11504 = BgL_newzd2matchzd2_11521; 
BgL_forwardz00_11505 = 
(1L+BgL_forwardz00_11519); 
BgL_bufposz00_11506 = BgL_bufposz00_11520; 
BgL_statezd25zd21191z00_11266:
if(
(BgL_forwardz00_11505==BgL_bufposz00_11506))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6579z00_13218;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11507;
if(
INPUT_PORTP(BgL_iportz00_11503))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11507 = BgL_iportz00_11503; }  else 
{ 
 obj_t BgL_auxz00_13221;
BgL_auxz00_13221 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5914z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11503); 
FAILURE(BgL_auxz00_13221,BFALSE,BFALSE);} 
BgL_test6579z00_13218 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11507); } 
if(BgL_test6579z00_13218)
{ /* Llib/date.scm 1063 */
 long BgL_arg2122z00_11508; long BgL_arg2123z00_11509;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11510;
if(
INPUT_PORTP(BgL_iportz00_11503))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11510 = BgL_iportz00_11503; }  else 
{ 
 obj_t BgL_auxz00_13228;
BgL_auxz00_13228 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5914z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11503); 
FAILURE(BgL_auxz00_13228,BFALSE,BFALSE);} 
BgL_arg2122z00_11508 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11510); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11511;
if(
INPUT_PORTP(BgL_iportz00_11503))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11511 = BgL_iportz00_11503; }  else 
{ 
 obj_t BgL_auxz00_13235;
BgL_auxz00_13235 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5914z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11503); 
FAILURE(BgL_auxz00_13235,BFALSE,BFALSE);} 
BgL_arg2123z00_11509 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11511); } 
{ 
 long BgL_bufposz00_13241; long BgL_forwardz00_13240;
BgL_forwardz00_13240 = BgL_arg2122z00_11508; 
BgL_bufposz00_13241 = BgL_arg2123z00_11509; 
BgL_bufposz00_11506 = BgL_bufposz00_13241; 
BgL_forwardz00_11505 = BgL_forwardz00_13240; 
goto BgL_statezd25zd21191z00_11266;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11504; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11512;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11513;
if(
INPUT_PORTP(BgL_iportz00_11503))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11513 = BgL_iportz00_11503; }  else 
{ 
 obj_t BgL_auxz00_13244;
BgL_auxz00_13244 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5914z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11503); 
FAILURE(BgL_auxz00_13244,BFALSE,BFALSE);} 
BgL_curz00_11512 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11513, BgL_forwardz00_11505); } 
{ /* Llib/date.scm 1063 */

{ /* Llib/date.scm 1063 */
 bool_t BgL_test6584z00_13249;
if(
(
(long)(BgL_curz00_11512)>=48L))
{ /* Llib/date.scm 1063 */
BgL_test6584z00_13249 = 
(
(long)(BgL_curz00_11512)<58L)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6584z00_13249 = ((bool_t)0)
; } 
if(BgL_test6584z00_13249)
{ /* Llib/date.scm 1063 */
 long BgL_arg2126z00_11514;
BgL_arg2126z00_11514 = 
(1L+BgL_forwardz00_11505); 
{ /* Llib/date.scm 1063 */
 long BgL_newzd2matchzd2_11515;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11516;
if(
INPUT_PORTP(BgL_iportz00_11503))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11516 = BgL_iportz00_11503; }  else 
{ 
 obj_t BgL_auxz00_13258;
BgL_auxz00_13258 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5914z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11503); 
FAILURE(BgL_auxz00_13258,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11516, BgL_arg2126z00_11514); } 
BgL_newzd2matchzd2_11515 = 5L; 
BgL_matchz00_11272 = BgL_newzd2matchzd2_11515; } }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11504; } } } } }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_newzd2matchzd2_11521; } } } } } }  else 
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6587z00_13265;
if(
(
(long)(BgL_curz00_11414)>=48L))
{ /* Llib/date.scm 1063 */
BgL_test6587z00_13265 = 
(
(long)(BgL_curz00_11414)<58L)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6587z00_13265 = ((bool_t)0)
; } 
if(BgL_test6587z00_13265)
{ /* Llib/date.scm 1063 */
BgL_iportz00_11419 = BgL_iportz00_11405; 
BgL_lastzd2matchzd2_11420 = BgL_lastzd2matchzd2_11406; 
BgL_forwardz00_11421 = 
(1L+BgL_forwardz00_11407); 
BgL_bufposz00_11422 = BgL_bufposz00_11408; 
BgL_statezd23zd21189z00_11259:
{ /* Llib/date.scm 1063 */
 long BgL_newzd2matchzd2_11423;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11424;
if(
INPUT_PORTP(BgL_iportz00_11419))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11424 = BgL_iportz00_11419; }  else 
{ 
 obj_t BgL_auxz00_13273;
BgL_auxz00_13273 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5907z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11419); 
FAILURE(BgL_auxz00_13273,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11424, BgL_forwardz00_11421); } 
BgL_newzd2matchzd2_11423 = 6L; 
if(
(BgL_forwardz00_11421==BgL_bufposz00_11422))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6591z00_13280;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11425;
if(
INPUT_PORTP(BgL_iportz00_11419))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11425 = BgL_iportz00_11419; }  else 
{ 
 obj_t BgL_auxz00_13283;
BgL_auxz00_13283 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5907z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11419); 
FAILURE(BgL_auxz00_13283,BFALSE,BFALSE);} 
BgL_test6591z00_13280 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11425); } 
if(BgL_test6591z00_13280)
{ /* Llib/date.scm 1063 */
 long BgL_arg2179z00_11426; long BgL_arg2180z00_11427;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11428;
if(
INPUT_PORTP(BgL_iportz00_11419))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11428 = BgL_iportz00_11419; }  else 
{ 
 obj_t BgL_auxz00_13290;
BgL_auxz00_13290 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5907z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11419); 
FAILURE(BgL_auxz00_13290,BFALSE,BFALSE);} 
BgL_arg2179z00_11426 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11428); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11429;
if(
INPUT_PORTP(BgL_iportz00_11419))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11429 = BgL_iportz00_11419; }  else 
{ 
 obj_t BgL_auxz00_13297;
BgL_auxz00_13297 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5907z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11419); 
FAILURE(BgL_auxz00_13297,BFALSE,BFALSE);} 
BgL_arg2180z00_11427 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11429); } 
{ 
 long BgL_bufposz00_13303; long BgL_forwardz00_13302;
BgL_forwardz00_13302 = BgL_arg2179z00_11426; 
BgL_bufposz00_13303 = BgL_arg2180z00_11427; 
BgL_bufposz00_11422 = BgL_bufposz00_13303; 
BgL_forwardz00_11421 = BgL_forwardz00_13302; 
goto BgL_statezd23zd21189z00_11259;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_newzd2matchzd2_11423; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11430;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11431;
if(
INPUT_PORTP(BgL_iportz00_11419))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11431 = BgL_iportz00_11419; }  else 
{ 
 obj_t BgL_auxz00_13306;
BgL_auxz00_13306 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5907z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11419); 
FAILURE(BgL_auxz00_13306,BFALSE,BFALSE);} 
BgL_curz00_11430 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11431, BgL_forwardz00_11421); } 
{ /* Llib/date.scm 1063 */

if(
(
(long)(BgL_curz00_11430)==58L))
{ /* Llib/date.scm 1063 */
BgL_iportz00_11530 = BgL_iportz00_11419; 
BgL_lastzd2matchzd2_11531 = BgL_newzd2matchzd2_11423; 
BgL_forwardz00_11532 = 
(1L+BgL_forwardz00_11421); 
BgL_bufposz00_11533 = BgL_bufposz00_11422; 
BgL_statezd29zd21195z00_11268:
if(
(BgL_forwardz00_11532==BgL_bufposz00_11533))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6598z00_13316;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11534;
if(
INPUT_PORTP(BgL_iportz00_11530))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11534 = BgL_iportz00_11530; }  else 
{ 
 obj_t BgL_auxz00_13319;
BgL_auxz00_13319 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5916z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11530); 
FAILURE(BgL_auxz00_13319,BFALSE,BFALSE);} 
BgL_test6598z00_13316 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11534); } 
if(BgL_test6598z00_13316)
{ /* Llib/date.scm 1063 */
 long BgL_arg2105z00_11535; long BgL_arg2106z00_11536;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11537;
if(
INPUT_PORTP(BgL_iportz00_11530))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11537 = BgL_iportz00_11530; }  else 
{ 
 obj_t BgL_auxz00_13326;
BgL_auxz00_13326 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5916z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11530); 
FAILURE(BgL_auxz00_13326,BFALSE,BFALSE);} 
BgL_arg2105z00_11535 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11537); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11538;
if(
INPUT_PORTP(BgL_iportz00_11530))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11538 = BgL_iportz00_11530; }  else 
{ 
 obj_t BgL_auxz00_13333;
BgL_auxz00_13333 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5916z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11530); 
FAILURE(BgL_auxz00_13333,BFALSE,BFALSE);} 
BgL_arg2106z00_11536 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11538); } 
{ 
 long BgL_bufposz00_13339; long BgL_forwardz00_13338;
BgL_forwardz00_13338 = BgL_arg2105z00_11535; 
BgL_bufposz00_13339 = BgL_arg2106z00_11536; 
BgL_bufposz00_11533 = BgL_bufposz00_13339; 
BgL_forwardz00_11532 = BgL_forwardz00_13338; 
goto BgL_statezd29zd21195z00_11268;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11531; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11539;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11540;
if(
INPUT_PORTP(BgL_iportz00_11530))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11540 = BgL_iportz00_11530; }  else 
{ 
 obj_t BgL_auxz00_13342;
BgL_auxz00_13342 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5916z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11530); 
FAILURE(BgL_auxz00_13342,BFALSE,BFALSE);} 
BgL_curz00_11539 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11540, BgL_forwardz00_11532); } 
{ /* Llib/date.scm 1063 */

{ /* Llib/date.scm 1063 */
 bool_t BgL_test6603z00_13347;
if(
(
(long)(BgL_curz00_11539)>=48L))
{ /* Llib/date.scm 1063 */
BgL_test6603z00_13347 = 
(
(long)(BgL_curz00_11539)<58L)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6603z00_13347 = ((bool_t)0)
; } 
if(BgL_test6603z00_13347)
{ /* Llib/date.scm 1063 */
BgL_iportz00_11432 = BgL_iportz00_11530; 
BgL_lastzd2matchzd2_11433 = BgL_lastzd2matchzd2_11531; 
BgL_forwardz00_11434 = 
(1L+BgL_forwardz00_11532); 
BgL_bufposz00_11435 = BgL_bufposz00_11533; 
BgL_statezd210zd21196z00_11260:
if(
(BgL_forwardz00_11434==BgL_bufposz00_11435))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6606z00_13355;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11436;
if(
INPUT_PORTP(BgL_iportz00_11432))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11436 = BgL_iportz00_11432; }  else 
{ 
 obj_t BgL_auxz00_13358;
BgL_auxz00_13358 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5908z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11432); 
FAILURE(BgL_auxz00_13358,BFALSE,BFALSE);} 
BgL_test6606z00_13355 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11436); } 
if(BgL_test6606z00_13355)
{ /* Llib/date.scm 1063 */
 long BgL_arg2171z00_11437; long BgL_arg2172z00_11438;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11439;
if(
INPUT_PORTP(BgL_iportz00_11432))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11439 = BgL_iportz00_11432; }  else 
{ 
 obj_t BgL_auxz00_13365;
BgL_auxz00_13365 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5908z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11432); 
FAILURE(BgL_auxz00_13365,BFALSE,BFALSE);} 
BgL_arg2171z00_11437 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11439); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11440;
if(
INPUT_PORTP(BgL_iportz00_11432))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11440 = BgL_iportz00_11432; }  else 
{ 
 obj_t BgL_auxz00_13372;
BgL_auxz00_13372 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5908z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11432); 
FAILURE(BgL_auxz00_13372,BFALSE,BFALSE);} 
BgL_arg2172z00_11438 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11440); } 
{ 
 long BgL_bufposz00_13378; long BgL_forwardz00_13377;
BgL_forwardz00_13377 = BgL_arg2171z00_11437; 
BgL_bufposz00_13378 = BgL_arg2172z00_11438; 
BgL_bufposz00_11435 = BgL_bufposz00_13378; 
BgL_forwardz00_11434 = BgL_forwardz00_13377; 
goto BgL_statezd210zd21196z00_11260;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11433; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11441;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11442;
if(
INPUT_PORTP(BgL_iportz00_11432))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11442 = BgL_iportz00_11432; }  else 
{ 
 obj_t BgL_auxz00_13381;
BgL_auxz00_13381 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5908z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11432); 
FAILURE(BgL_auxz00_13381,BFALSE,BFALSE);} 
BgL_curz00_11441 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11442, BgL_forwardz00_11434); } 
{ /* Llib/date.scm 1063 */

{ /* Llib/date.scm 1063 */
 bool_t BgL_test6611z00_13386;
if(
(
(long)(BgL_curz00_11441)>=48L))
{ /* Llib/date.scm 1063 */
BgL_test6611z00_13386 = 
(
(long)(BgL_curz00_11441)<58L)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6611z00_13386 = ((bool_t)0)
; } 
if(BgL_test6611z00_13386)
{ /* Llib/date.scm 1063 */
BgL_iportz00_11468 = BgL_iportz00_11432; 
BgL_lastzd2matchzd2_11469 = BgL_lastzd2matchzd2_11433; 
BgL_forwardz00_11470 = 
(1L+BgL_forwardz00_11434); 
BgL_bufposz00_11471 = BgL_bufposz00_11435; 
BgL_statezd211zd21197z00_11263:
{ /* Llib/date.scm 1063 */
 long BgL_newzd2matchzd2_11472;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11473;
if(
INPUT_PORTP(BgL_iportz00_11468))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11473 = BgL_iportz00_11468; }  else 
{ 
 obj_t BgL_auxz00_13394;
BgL_auxz00_13394 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5911z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11468); 
FAILURE(BgL_auxz00_13394,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11473, BgL_forwardz00_11470); } 
BgL_newzd2matchzd2_11472 = 1L; 
if(
(BgL_forwardz00_11470==BgL_bufposz00_11471))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6615z00_13401;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11474;
if(
INPUT_PORTP(BgL_iportz00_11468))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11474 = BgL_iportz00_11468; }  else 
{ 
 obj_t BgL_auxz00_13404;
BgL_auxz00_13404 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5911z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11468); 
FAILURE(BgL_auxz00_13404,BFALSE,BFALSE);} 
BgL_test6615z00_13401 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11474); } 
if(BgL_test6615z00_13401)
{ /* Llib/date.scm 1063 */
 long BgL_arg2147z00_11475; long BgL_arg2148z00_11476;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11477;
if(
INPUT_PORTP(BgL_iportz00_11468))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11477 = BgL_iportz00_11468; }  else 
{ 
 obj_t BgL_auxz00_13411;
BgL_auxz00_13411 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5911z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11468); 
FAILURE(BgL_auxz00_13411,BFALSE,BFALSE);} 
BgL_arg2147z00_11475 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11477); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11478;
if(
INPUT_PORTP(BgL_iportz00_11468))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11478 = BgL_iportz00_11468; }  else 
{ 
 obj_t BgL_auxz00_13418;
BgL_auxz00_13418 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5911z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11468); 
FAILURE(BgL_auxz00_13418,BFALSE,BFALSE);} 
BgL_arg2148z00_11476 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11478); } 
{ 
 long BgL_bufposz00_13424; long BgL_forwardz00_13423;
BgL_forwardz00_13423 = BgL_arg2147z00_11475; 
BgL_bufposz00_13424 = BgL_arg2148z00_11476; 
BgL_bufposz00_11471 = BgL_bufposz00_13424; 
BgL_forwardz00_11470 = BgL_forwardz00_13423; 
goto BgL_statezd211zd21197z00_11263;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_newzd2matchzd2_11472; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11479;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11480;
if(
INPUT_PORTP(BgL_iportz00_11468))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11480 = BgL_iportz00_11468; }  else 
{ 
 obj_t BgL_auxz00_13427;
BgL_auxz00_13427 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5911z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11468); 
FAILURE(BgL_auxz00_13427,BFALSE,BFALSE);} 
BgL_curz00_11479 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11480, BgL_forwardz00_11470); } 
{ /* Llib/date.scm 1063 */

if(
(
(long)(BgL_curz00_11479)==58L))
{ /* Llib/date.scm 1063 */
BgL_iportz00_11457 = BgL_iportz00_11468; 
BgL_lastzd2matchzd2_11458 = BgL_newzd2matchzd2_11472; 
BgL_forwardz00_11459 = 
(1L+BgL_forwardz00_11470); 
BgL_bufposz00_11460 = BgL_bufposz00_11471; 
BgL_statezd212zd21198z00_11262:
if(
(BgL_forwardz00_11459==BgL_bufposz00_11460))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6622z00_13437;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11461;
if(
INPUT_PORTP(BgL_iportz00_11457))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11461 = BgL_iportz00_11457; }  else 
{ 
 obj_t BgL_auxz00_13440;
BgL_auxz00_13440 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5910z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11457); 
FAILURE(BgL_auxz00_13440,BFALSE,BFALSE);} 
BgL_test6622z00_13437 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11461); } 
if(BgL_test6622z00_13437)
{ /* Llib/date.scm 1063 */
 long BgL_arg2154z00_11462; long BgL_arg2155z00_11463;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11464;
if(
INPUT_PORTP(BgL_iportz00_11457))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11464 = BgL_iportz00_11457; }  else 
{ 
 obj_t BgL_auxz00_13447;
BgL_auxz00_13447 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5910z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11457); 
FAILURE(BgL_auxz00_13447,BFALSE,BFALSE);} 
BgL_arg2154z00_11462 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11464); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11465;
if(
INPUT_PORTP(BgL_iportz00_11457))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11465 = BgL_iportz00_11457; }  else 
{ 
 obj_t BgL_auxz00_13454;
BgL_auxz00_13454 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5910z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11457); 
FAILURE(BgL_auxz00_13454,BFALSE,BFALSE);} 
BgL_arg2155z00_11463 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11465); } 
{ 
 long BgL_bufposz00_13460; long BgL_forwardz00_13459;
BgL_forwardz00_13459 = BgL_arg2154z00_11462; 
BgL_bufposz00_13460 = BgL_arg2155z00_11463; 
BgL_bufposz00_11460 = BgL_bufposz00_13460; 
BgL_forwardz00_11459 = BgL_forwardz00_13459; 
goto BgL_statezd212zd21198z00_11262;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11458; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11466;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11467;
if(
INPUT_PORTP(BgL_iportz00_11457))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11467 = BgL_iportz00_11457; }  else 
{ 
 obj_t BgL_auxz00_13463;
BgL_auxz00_13463 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5910z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11457); 
FAILURE(BgL_auxz00_13463,BFALSE,BFALSE);} 
BgL_curz00_11466 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11467, BgL_forwardz00_11459); } 
{ /* Llib/date.scm 1063 */

{ /* Llib/date.scm 1063 */
 bool_t BgL_test6627z00_13468;
if(
(
(long)(BgL_curz00_11466)>=48L))
{ /* Llib/date.scm 1063 */
BgL_test6627z00_13468 = 
(
(long)(BgL_curz00_11466)<58L)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6627z00_13468 = ((bool_t)0)
; } 
if(BgL_test6627z00_13468)
{ /* Llib/date.scm 1063 */
BgL_iportz00_11443 = BgL_iportz00_11457; 
BgL_lastzd2matchzd2_11444 = BgL_lastzd2matchzd2_11458; 
BgL_forwardz00_11445 = 
(1L+BgL_forwardz00_11459); 
BgL_bufposz00_11446 = BgL_bufposz00_11460; 
BgL_statezd213zd21199z00_11261:
if(
(BgL_forwardz00_11445==BgL_bufposz00_11446))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6630z00_13476;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11447;
if(
INPUT_PORTP(BgL_iportz00_11443))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11447 = BgL_iportz00_11443; }  else 
{ 
 obj_t BgL_auxz00_13479;
BgL_auxz00_13479 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5909z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11443); 
FAILURE(BgL_auxz00_13479,BFALSE,BFALSE);} 
BgL_test6630z00_13476 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11447); } 
if(BgL_test6630z00_13476)
{ /* Llib/date.scm 1063 */
 long BgL_arg2162z00_11448; long BgL_arg2163z00_11449;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11450;
if(
INPUT_PORTP(BgL_iportz00_11443))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11450 = BgL_iportz00_11443; }  else 
{ 
 obj_t BgL_auxz00_13486;
BgL_auxz00_13486 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5909z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11443); 
FAILURE(BgL_auxz00_13486,BFALSE,BFALSE);} 
BgL_arg2162z00_11448 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11450); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11451;
if(
INPUT_PORTP(BgL_iportz00_11443))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11451 = BgL_iportz00_11443; }  else 
{ 
 obj_t BgL_auxz00_13493;
BgL_auxz00_13493 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5909z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11443); 
FAILURE(BgL_auxz00_13493,BFALSE,BFALSE);} 
BgL_arg2163z00_11449 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11451); } 
{ 
 long BgL_bufposz00_13499; long BgL_forwardz00_13498;
BgL_forwardz00_13498 = BgL_arg2162z00_11448; 
BgL_bufposz00_13499 = BgL_arg2163z00_11449; 
BgL_bufposz00_11446 = BgL_bufposz00_13499; 
BgL_forwardz00_11445 = BgL_forwardz00_13498; 
goto BgL_statezd213zd21199z00_11261;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11444; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11452;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11453;
if(
INPUT_PORTP(BgL_iportz00_11443))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11453 = BgL_iportz00_11443; }  else 
{ 
 obj_t BgL_auxz00_13502;
BgL_auxz00_13502 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5909z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11443); 
FAILURE(BgL_auxz00_13502,BFALSE,BFALSE);} 
BgL_curz00_11452 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11453, BgL_forwardz00_11445); } 
{ /* Llib/date.scm 1063 */

{ /* Llib/date.scm 1063 */
 bool_t BgL_test6635z00_13507;
if(
(
(long)(BgL_curz00_11452)>=48L))
{ /* Llib/date.scm 1063 */
BgL_test6635z00_13507 = 
(
(long)(BgL_curz00_11452)<58L)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6635z00_13507 = ((bool_t)0)
; } 
if(BgL_test6635z00_13507)
{ /* Llib/date.scm 1063 */
 long BgL_arg2166z00_11454;
BgL_arg2166z00_11454 = 
(1L+BgL_forwardz00_11445); 
{ /* Llib/date.scm 1063 */
 long BgL_newzd2matchzd2_11455;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11456;
if(
INPUT_PORTP(BgL_iportz00_11443))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11456 = BgL_iportz00_11443; }  else 
{ 
 obj_t BgL_auxz00_13516;
BgL_auxz00_13516 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5909z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11443); 
FAILURE(BgL_auxz00_13516,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11456, BgL_arg2166z00_11454); } 
BgL_newzd2matchzd2_11455 = 4L; 
BgL_matchz00_11272 = BgL_newzd2matchzd2_11455; } }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11444; } } } } }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11458; } } } } }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_newzd2matchzd2_11472; } } } } }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11433; } } } } }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11531; } } } } }  else 
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6638z00_13526;
if(
(
(long)(BgL_curz00_11430)>=48L))
{ /* Llib/date.scm 1063 */
BgL_test6638z00_13526 = 
(
(long)(BgL_curz00_11430)<58L)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6638z00_13526 = ((bool_t)0)
; } 
if(BgL_test6638z00_13526)
{ /* Llib/date.scm 1063 */
BgL_iportz00_11481 = BgL_iportz00_11419; 
BgL_lastzd2matchzd2_11482 = BgL_newzd2matchzd2_11423; 
BgL_forwardz00_11483 = 
(1L+BgL_forwardz00_11421); 
BgL_bufposz00_11484 = BgL_bufposz00_11422; 
BgL_statezd28zd21194z00_11264:
if(
(BgL_forwardz00_11483==BgL_bufposz00_11484))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6641z00_13534;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11485;
if(
INPUT_PORTP(BgL_iportz00_11481))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11485 = BgL_iportz00_11481; }  else 
{ 
 obj_t BgL_auxz00_13537;
BgL_auxz00_13537 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5912z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11481); 
FAILURE(BgL_auxz00_13537,BFALSE,BFALSE);} 
BgL_test6641z00_13534 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11485); } 
if(BgL_test6641z00_13534)
{ /* Llib/date.scm 1063 */
 long BgL_arg2139z00_11486; long BgL_arg2141z00_11487;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11488;
if(
INPUT_PORTP(BgL_iportz00_11481))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11488 = BgL_iportz00_11481; }  else 
{ 
 obj_t BgL_auxz00_13544;
BgL_auxz00_13544 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5912z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11481); 
FAILURE(BgL_auxz00_13544,BFALSE,BFALSE);} 
BgL_arg2139z00_11486 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11488); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11489;
if(
INPUT_PORTP(BgL_iportz00_11481))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11489 = BgL_iportz00_11481; }  else 
{ 
 obj_t BgL_auxz00_13551;
BgL_auxz00_13551 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5912z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11481); 
FAILURE(BgL_auxz00_13551,BFALSE,BFALSE);} 
BgL_arg2141z00_11487 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11489); } 
{ 
 long BgL_bufposz00_13557; long BgL_forwardz00_13556;
BgL_forwardz00_13556 = BgL_arg2139z00_11486; 
BgL_bufposz00_13557 = BgL_arg2141z00_11487; 
BgL_bufposz00_11484 = BgL_bufposz00_13557; 
BgL_forwardz00_11483 = BgL_forwardz00_13556; 
goto BgL_statezd28zd21194z00_11264;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11482; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11490;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11491;
if(
INPUT_PORTP(BgL_iportz00_11481))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11491 = BgL_iportz00_11481; }  else 
{ 
 obj_t BgL_auxz00_13560;
BgL_auxz00_13560 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5912z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11481); 
FAILURE(BgL_auxz00_13560,BFALSE,BFALSE);} 
BgL_curz00_11490 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11491, BgL_forwardz00_11483); } 
{ /* Llib/date.scm 1063 */

if(
(
(long)(BgL_curz00_11490)==58L))
{ /* Llib/date.scm 1063 */
BgL_iportz00_11492 = BgL_iportz00_11481; 
BgL_lastzd2matchzd2_11493 = BgL_lastzd2matchzd2_11482; 
BgL_forwardz00_11494 = 
(1L+BgL_forwardz00_11483); 
BgL_bufposz00_11495 = BgL_bufposz00_11484; 
BgL_statezd215zd21201z00_11265:
if(
(BgL_forwardz00_11494==BgL_bufposz00_11495))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6648z00_13570;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11496;
if(
INPUT_PORTP(BgL_iportz00_11492))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11496 = BgL_iportz00_11492; }  else 
{ 
 obj_t BgL_auxz00_13573;
BgL_auxz00_13573 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5913z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11492); 
FAILURE(BgL_auxz00_13573,BFALSE,BFALSE);} 
BgL_test6648z00_13570 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11496); } 
if(BgL_test6648z00_13570)
{ /* Llib/date.scm 1063 */
 long BgL_arg2131z00_11497; long BgL_arg2132z00_11498;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11499;
if(
INPUT_PORTP(BgL_iportz00_11492))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11499 = BgL_iportz00_11492; }  else 
{ 
 obj_t BgL_auxz00_13580;
BgL_auxz00_13580 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5913z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11492); 
FAILURE(BgL_auxz00_13580,BFALSE,BFALSE);} 
BgL_arg2131z00_11497 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11499); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11500;
if(
INPUT_PORTP(BgL_iportz00_11492))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11500 = BgL_iportz00_11492; }  else 
{ 
 obj_t BgL_auxz00_13587;
BgL_auxz00_13587 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5913z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11492); 
FAILURE(BgL_auxz00_13587,BFALSE,BFALSE);} 
BgL_arg2132z00_11498 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11500); } 
{ 
 long BgL_bufposz00_13593; long BgL_forwardz00_13592;
BgL_forwardz00_13592 = BgL_arg2131z00_11497; 
BgL_bufposz00_13593 = BgL_arg2132z00_11498; 
BgL_bufposz00_11495 = BgL_bufposz00_13593; 
BgL_forwardz00_11494 = BgL_forwardz00_13592; 
goto BgL_statezd215zd21201z00_11265;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11493; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11501;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11502;
if(
INPUT_PORTP(BgL_iportz00_11492))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11502 = BgL_iportz00_11492; }  else 
{ 
 obj_t BgL_auxz00_13596;
BgL_auxz00_13596 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5913z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11492); 
FAILURE(BgL_auxz00_13596,BFALSE,BFALSE);} 
BgL_curz00_11501 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11502, BgL_forwardz00_11494); } 
{ /* Llib/date.scm 1063 */

{ /* Llib/date.scm 1063 */
 bool_t BgL_test6653z00_13601;
if(
(
(long)(BgL_curz00_11501)>=48L))
{ /* Llib/date.scm 1063 */
BgL_test6653z00_13601 = 
(
(long)(BgL_curz00_11501)<58L)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6653z00_13601 = ((bool_t)0)
; } 
if(BgL_test6653z00_13601)
{ /* Llib/date.scm 1063 */
BgL_iportz00_11554 = BgL_iportz00_11492; 
BgL_lastzd2matchzd2_11555 = BgL_lastzd2matchzd2_11493; 
BgL_forwardz00_11556 = 
(1L+BgL_forwardz00_11494); 
BgL_bufposz00_11557 = BgL_bufposz00_11495; 
BgL_statezd216zd21202z00_11270:
if(
(BgL_forwardz00_11556==BgL_bufposz00_11557))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6656z00_13609;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11558;
if(
INPUT_PORTP(BgL_iportz00_11554))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11558 = BgL_iportz00_11554; }  else 
{ 
 obj_t BgL_auxz00_13612;
BgL_auxz00_13612 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5918z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11554); 
FAILURE(BgL_auxz00_13612,BFALSE,BFALSE);} 
BgL_test6656z00_13609 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11558); } 
if(BgL_test6656z00_13609)
{ /* Llib/date.scm 1063 */
 long BgL_arg2087z00_11559; long BgL_arg2088z00_11560;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11561;
if(
INPUT_PORTP(BgL_iportz00_11554))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11561 = BgL_iportz00_11554; }  else 
{ 
 obj_t BgL_auxz00_13619;
BgL_auxz00_13619 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5918z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11554); 
FAILURE(BgL_auxz00_13619,BFALSE,BFALSE);} 
BgL_arg2087z00_11559 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11561); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11562;
if(
INPUT_PORTP(BgL_iportz00_11554))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11562 = BgL_iportz00_11554; }  else 
{ 
 obj_t BgL_auxz00_13626;
BgL_auxz00_13626 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5918z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11554); 
FAILURE(BgL_auxz00_13626,BFALSE,BFALSE);} 
BgL_arg2088z00_11560 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11562); } 
{ 
 long BgL_bufposz00_13632; long BgL_forwardz00_13631;
BgL_forwardz00_13631 = BgL_arg2087z00_11559; 
BgL_bufposz00_13632 = BgL_arg2088z00_11560; 
BgL_bufposz00_11557 = BgL_bufposz00_13632; 
BgL_forwardz00_11556 = BgL_forwardz00_13631; 
goto BgL_statezd216zd21202z00_11270;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11555; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11563;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11564;
if(
INPUT_PORTP(BgL_iportz00_11554))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11564 = BgL_iportz00_11554; }  else 
{ 
 obj_t BgL_auxz00_13635;
BgL_auxz00_13635 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5918z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11554); 
FAILURE(BgL_auxz00_13635,BFALSE,BFALSE);} 
BgL_curz00_11563 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11564, BgL_forwardz00_11556); } 
{ /* Llib/date.scm 1063 */

{ /* Llib/date.scm 1063 */
 bool_t BgL_test6661z00_13640;
if(
(
(long)(BgL_curz00_11563)>=48L))
{ /* Llib/date.scm 1063 */
BgL_test6661z00_13640 = 
(
(long)(BgL_curz00_11563)<58L)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6661z00_13640 = ((bool_t)0)
; } 
if(BgL_test6661z00_13640)
{ /* Llib/date.scm 1063 */
BgL_iportz00_11392 = BgL_iportz00_11554; 
BgL_lastzd2matchzd2_11393 = BgL_lastzd2matchzd2_11555; 
BgL_forwardz00_11394 = 
(1L+BgL_forwardz00_11556); 
BgL_bufposz00_11395 = BgL_bufposz00_11557; 
BgL_statezd217zd21203z00_11257:
{ /* Llib/date.scm 1063 */
 long BgL_newzd2matchzd2_11396;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11397;
if(
INPUT_PORTP(BgL_iportz00_11392))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11397 = BgL_iportz00_11392; }  else 
{ 
 obj_t BgL_auxz00_13648;
BgL_auxz00_13648 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5905z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11392); 
FAILURE(BgL_auxz00_13648,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11397, BgL_forwardz00_11394); } 
BgL_newzd2matchzd2_11396 = 2L; 
if(
(BgL_forwardz00_11394==BgL_bufposz00_11395))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6665z00_13655;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11398;
if(
INPUT_PORTP(BgL_iportz00_11392))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11398 = BgL_iportz00_11392; }  else 
{ 
 obj_t BgL_auxz00_13658;
BgL_auxz00_13658 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5905z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11392); 
FAILURE(BgL_auxz00_13658,BFALSE,BFALSE);} 
BgL_test6665z00_13655 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11398); } 
if(BgL_test6665z00_13655)
{ /* Llib/date.scm 1063 */
 long BgL_arg2205z00_11399; long BgL_arg2206z00_11400;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11401;
if(
INPUT_PORTP(BgL_iportz00_11392))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11401 = BgL_iportz00_11392; }  else 
{ 
 obj_t BgL_auxz00_13665;
BgL_auxz00_13665 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5905z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11392); 
FAILURE(BgL_auxz00_13665,BFALSE,BFALSE);} 
BgL_arg2205z00_11399 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11401); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11402;
if(
INPUT_PORTP(BgL_iportz00_11392))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11402 = BgL_iportz00_11392; }  else 
{ 
 obj_t BgL_auxz00_13672;
BgL_auxz00_13672 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5905z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11392); 
FAILURE(BgL_auxz00_13672,BFALSE,BFALSE);} 
BgL_arg2206z00_11400 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11402); } 
{ 
 long BgL_bufposz00_13678; long BgL_forwardz00_13677;
BgL_forwardz00_13677 = BgL_arg2205z00_11399; 
BgL_bufposz00_13678 = BgL_arg2206z00_11400; 
BgL_bufposz00_11395 = BgL_bufposz00_13678; 
BgL_forwardz00_11394 = BgL_forwardz00_13677; 
goto BgL_statezd217zd21203z00_11257;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_newzd2matchzd2_11396; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11403;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11404;
if(
INPUT_PORTP(BgL_iportz00_11392))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11404 = BgL_iportz00_11392; }  else 
{ 
 obj_t BgL_auxz00_13681;
BgL_auxz00_13681 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5905z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11392); 
FAILURE(BgL_auxz00_13681,BFALSE,BFALSE);} 
BgL_curz00_11403 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11404, BgL_forwardz00_11394); } 
{ /* Llib/date.scm 1063 */

if(
(
(long)(BgL_curz00_11403)==58L))
{ /* Llib/date.scm 1063 */
BgL_iportz00_11381 = BgL_iportz00_11392; 
BgL_lastzd2matchzd2_11382 = BgL_newzd2matchzd2_11396; 
BgL_forwardz00_11383 = 
(1L+BgL_forwardz00_11394); 
BgL_bufposz00_11384 = BgL_bufposz00_11395; 
BgL_statezd218zd21204z00_11256:
if(
(BgL_forwardz00_11383==BgL_bufposz00_11384))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6672z00_13691;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11385;
if(
INPUT_PORTP(BgL_iportz00_11381))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11385 = BgL_iportz00_11381; }  else 
{ 
 obj_t BgL_auxz00_13694;
BgL_auxz00_13694 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5904z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11381); 
FAILURE(BgL_auxz00_13694,BFALSE,BFALSE);} 
BgL_test6672z00_13691 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11385); } 
if(BgL_test6672z00_13691)
{ /* Llib/date.scm 1063 */
 long BgL_arg2212z00_11386; long BgL_arg2213z00_11387;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11388;
if(
INPUT_PORTP(BgL_iportz00_11381))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11388 = BgL_iportz00_11381; }  else 
{ 
 obj_t BgL_auxz00_13701;
BgL_auxz00_13701 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5904z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11381); 
FAILURE(BgL_auxz00_13701,BFALSE,BFALSE);} 
BgL_arg2212z00_11386 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11388); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11389;
if(
INPUT_PORTP(BgL_iportz00_11381))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11389 = BgL_iportz00_11381; }  else 
{ 
 obj_t BgL_auxz00_13708;
BgL_auxz00_13708 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5904z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11381); 
FAILURE(BgL_auxz00_13708,BFALSE,BFALSE);} 
BgL_arg2213z00_11387 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11389); } 
{ 
 long BgL_bufposz00_13714; long BgL_forwardz00_13713;
BgL_forwardz00_13713 = BgL_arg2212z00_11386; 
BgL_bufposz00_13714 = BgL_arg2213z00_11387; 
BgL_bufposz00_11384 = BgL_bufposz00_13714; 
BgL_forwardz00_11383 = BgL_forwardz00_13713; 
goto BgL_statezd218zd21204z00_11256;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11382; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11390;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11391;
if(
INPUT_PORTP(BgL_iportz00_11381))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11391 = BgL_iportz00_11381; }  else 
{ 
 obj_t BgL_auxz00_13717;
BgL_auxz00_13717 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5904z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11381); 
FAILURE(BgL_auxz00_13717,BFALSE,BFALSE);} 
BgL_curz00_11390 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11391, BgL_forwardz00_11383); } 
{ /* Llib/date.scm 1063 */

{ /* Llib/date.scm 1063 */
 bool_t BgL_test6677z00_13722;
if(
(
(long)(BgL_curz00_11390)>=48L))
{ /* Llib/date.scm 1063 */
BgL_test6677z00_13722 = 
(
(long)(BgL_curz00_11390)<58L)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6677z00_13722 = ((bool_t)0)
; } 
if(BgL_test6677z00_13722)
{ /* Llib/date.scm 1063 */
BgL_iportz00_11367 = BgL_iportz00_11381; 
BgL_lastzd2matchzd2_11368 = BgL_lastzd2matchzd2_11382; 
BgL_forwardz00_11369 = 
(1L+BgL_forwardz00_11383); 
BgL_bufposz00_11370 = BgL_bufposz00_11384; 
BgL_statezd219zd21205z00_11255:
if(
(BgL_forwardz00_11369==BgL_bufposz00_11370))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6680z00_13730;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11371;
if(
INPUT_PORTP(BgL_iportz00_11367))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11371 = BgL_iportz00_11367; }  else 
{ 
 obj_t BgL_auxz00_13733;
BgL_auxz00_13733 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5903z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11367); 
FAILURE(BgL_auxz00_13733,BFALSE,BFALSE);} 
BgL_test6680z00_13730 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11371); } 
if(BgL_test6680z00_13730)
{ /* Llib/date.scm 1063 */
 long BgL_arg2220z00_11372; long BgL_arg2221z00_11373;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11374;
if(
INPUT_PORTP(BgL_iportz00_11367))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11374 = BgL_iportz00_11367; }  else 
{ 
 obj_t BgL_auxz00_13740;
BgL_auxz00_13740 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5903z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11367); 
FAILURE(BgL_auxz00_13740,BFALSE,BFALSE);} 
BgL_arg2220z00_11372 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11374); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11375;
if(
INPUT_PORTP(BgL_iportz00_11367))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11375 = BgL_iportz00_11367; }  else 
{ 
 obj_t BgL_auxz00_13747;
BgL_auxz00_13747 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5903z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11367); 
FAILURE(BgL_auxz00_13747,BFALSE,BFALSE);} 
BgL_arg2221z00_11373 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11375); } 
{ 
 long BgL_bufposz00_13753; long BgL_forwardz00_13752;
BgL_forwardz00_13752 = BgL_arg2220z00_11372; 
BgL_bufposz00_13753 = BgL_arg2221z00_11373; 
BgL_bufposz00_11370 = BgL_bufposz00_13753; 
BgL_forwardz00_11369 = BgL_forwardz00_13752; 
goto BgL_statezd219zd21205z00_11255;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11368; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11376;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11377;
if(
INPUT_PORTP(BgL_iportz00_11367))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11377 = BgL_iportz00_11367; }  else 
{ 
 obj_t BgL_auxz00_13756;
BgL_auxz00_13756 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5903z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11367); 
FAILURE(BgL_auxz00_13756,BFALSE,BFALSE);} 
BgL_curz00_11376 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11377, BgL_forwardz00_11369); } 
{ /* Llib/date.scm 1063 */

{ /* Llib/date.scm 1063 */
 bool_t BgL_test6685z00_13761;
if(
(
(long)(BgL_curz00_11376)>=48L))
{ /* Llib/date.scm 1063 */
BgL_test6685z00_13761 = 
(
(long)(BgL_curz00_11376)<58L)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6685z00_13761 = ((bool_t)0)
; } 
if(BgL_test6685z00_13761)
{ /* Llib/date.scm 1063 */
 long BgL_arg2224z00_11378;
BgL_arg2224z00_11378 = 
(1L+BgL_forwardz00_11369); 
{ /* Llib/date.scm 1063 */
 long BgL_newzd2matchzd2_11379;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11380;
if(
INPUT_PORTP(BgL_iportz00_11367))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11380 = BgL_iportz00_11367; }  else 
{ 
 obj_t BgL_auxz00_13770;
BgL_auxz00_13770 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5903z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11367); 
FAILURE(BgL_auxz00_13770,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11380, BgL_arg2224z00_11378); } 
BgL_newzd2matchzd2_11379 = 3L; 
BgL_matchz00_11272 = BgL_newzd2matchzd2_11379; } }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11368; } } } } }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11382; } } } } }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_newzd2matchzd2_11396; } } } } }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11555; } } } } }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11493; } } } } }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_lastzd2matchzd2_11482; } } } }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_newzd2matchzd2_11423; } } } } } }  else 
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6688z00_13782;
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6689z00_13783;
if(
(
(long)(BgL_curz00_11414)==10L))
{ /* Llib/date.scm 1063 */
BgL_test6689z00_13783 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6689z00_13783 = 
(
(long)(BgL_curz00_11414)==9L)
; } 
if(BgL_test6689z00_13783)
{ /* Llib/date.scm 1063 */
BgL_test6688z00_13782 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1063 */
if(
(
(long)(BgL_curz00_11414)==13L))
{ /* Llib/date.scm 1063 */
BgL_test6688z00_13782 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6688z00_13782 = 
(
(long)(BgL_curz00_11414)==32L)
; } } } 
if(BgL_test6688z00_13782)
{ /* Llib/date.scm 1063 */
BgL_iportz00_11541 = BgL_iportz00_11405; 
BgL_lastzd2matchzd2_11542 = BgL_lastzd2matchzd2_11406; 
BgL_forwardz00_11543 = 
(1L+BgL_forwardz00_11407); 
BgL_bufposz00_11544 = BgL_bufposz00_11408; 
BgL_statezd22zd21188z00_11269:
{ /* Llib/date.scm 1063 */
 long BgL_newzd2matchzd2_11545;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11546;
if(
INPUT_PORTP(BgL_iportz00_11541))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11546 = BgL_iportz00_11541; }  else 
{ 
 obj_t BgL_auxz00_13796;
BgL_auxz00_13796 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5917z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11541); 
FAILURE(BgL_auxz00_13796,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11546, BgL_forwardz00_11543); } 
BgL_newzd2matchzd2_11545 = 0L; 
if(
(BgL_forwardz00_11543==BgL_bufposz00_11544))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6694z00_13803;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11547;
if(
INPUT_PORTP(BgL_iportz00_11541))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11547 = BgL_iportz00_11541; }  else 
{ 
 obj_t BgL_auxz00_13806;
BgL_auxz00_13806 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5917z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11541); 
FAILURE(BgL_auxz00_13806,BFALSE,BFALSE);} 
BgL_test6694z00_13803 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11547); } 
if(BgL_test6694z00_13803)
{ /* Llib/date.scm 1063 */
 long BgL_arg2095z00_11548; long BgL_arg2096z00_11549;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11550;
if(
INPUT_PORTP(BgL_iportz00_11541))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11550 = BgL_iportz00_11541; }  else 
{ 
 obj_t BgL_auxz00_13813;
BgL_auxz00_13813 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5917z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11541); 
FAILURE(BgL_auxz00_13813,BFALSE,BFALSE);} 
BgL_arg2095z00_11548 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11550); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11551;
if(
INPUT_PORTP(BgL_iportz00_11541))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11551 = BgL_iportz00_11541; }  else 
{ 
 obj_t BgL_auxz00_13820;
BgL_auxz00_13820 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5917z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11541); 
FAILURE(BgL_auxz00_13820,BFALSE,BFALSE);} 
BgL_arg2096z00_11549 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11551); } 
{ 
 long BgL_bufposz00_13826; long BgL_forwardz00_13825;
BgL_forwardz00_13825 = BgL_arg2095z00_11548; 
BgL_bufposz00_13826 = BgL_arg2096z00_11549; 
BgL_bufposz00_11544 = BgL_bufposz00_13826; 
BgL_forwardz00_11543 = BgL_forwardz00_13825; 
goto BgL_statezd22zd21188z00_11269;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_newzd2matchzd2_11545; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11552;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11553;
if(
INPUT_PORTP(BgL_iportz00_11541))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11553 = BgL_iportz00_11541; }  else 
{ 
 obj_t BgL_auxz00_13829;
BgL_auxz00_13829 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5917z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11541); 
FAILURE(BgL_auxz00_13829,BFALSE,BFALSE);} 
BgL_curz00_11552 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11553, BgL_forwardz00_11543); } 
{ /* Llib/date.scm 1063 */

{ /* Llib/date.scm 1063 */
 bool_t BgL_test6699z00_13834;
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6700z00_13835;
if(
(
(long)(BgL_curz00_11552)==10L))
{ /* Llib/date.scm 1063 */
BgL_test6700z00_13835 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6700z00_13835 = 
(
(long)(BgL_curz00_11552)==9L)
; } 
if(BgL_test6700z00_13835)
{ /* Llib/date.scm 1063 */
BgL_test6699z00_13834 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1063 */
if(
(
(long)(BgL_curz00_11552)==13L))
{ /* Llib/date.scm 1063 */
BgL_test6699z00_13834 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6699z00_13834 = 
(
(long)(BgL_curz00_11552)==32L)
; } } } 
if(BgL_test6699z00_13834)
{ /* Llib/date.scm 1063 */
BgL_iportz00_11354 = BgL_iportz00_11541; 
BgL_lastzd2matchzd2_11355 = BgL_newzd2matchzd2_11545; 
BgL_forwardz00_11356 = 
(1L+BgL_forwardz00_11543); 
BgL_bufposz00_11357 = BgL_bufposz00_11544; 
BgL_statezd221zd21207z00_11254:
{ /* Llib/date.scm 1063 */
 long BgL_newzd2matchzd2_11358;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11359;
if(
INPUT_PORTP(BgL_iportz00_11354))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11359 = BgL_iportz00_11354; }  else 
{ 
 obj_t BgL_auxz00_13848;
BgL_auxz00_13848 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5902z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11354); 
FAILURE(BgL_auxz00_13848,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11359, BgL_forwardz00_11356); } 
BgL_newzd2matchzd2_11358 = 0L; 
if(
(BgL_forwardz00_11356==BgL_bufposz00_11357))
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6705z00_13855;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11360;
if(
INPUT_PORTP(BgL_iportz00_11354))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11360 = BgL_iportz00_11354; }  else 
{ 
 obj_t BgL_auxz00_13858;
BgL_auxz00_13858 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5902z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11354); 
FAILURE(BgL_auxz00_13858,BFALSE,BFALSE);} 
BgL_test6705z00_13855 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11360); } 
if(BgL_test6705z00_13855)
{ /* Llib/date.scm 1063 */
 long BgL_arg2229z00_11361; long BgL_arg2230z00_11362;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11363;
if(
INPUT_PORTP(BgL_iportz00_11354))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11363 = BgL_iportz00_11354; }  else 
{ 
 obj_t BgL_auxz00_13865;
BgL_auxz00_13865 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5902z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11354); 
FAILURE(BgL_auxz00_13865,BFALSE,BFALSE);} 
BgL_arg2229z00_11361 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11363); } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11364;
if(
INPUT_PORTP(BgL_iportz00_11354))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11364 = BgL_iportz00_11354; }  else 
{ 
 obj_t BgL_auxz00_13872;
BgL_auxz00_13872 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5902z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11354); 
FAILURE(BgL_auxz00_13872,BFALSE,BFALSE);} 
BgL_arg2230z00_11362 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11364); } 
{ 
 long BgL_bufposz00_13878; long BgL_forwardz00_13877;
BgL_forwardz00_13877 = BgL_arg2229z00_11361; 
BgL_bufposz00_13878 = BgL_arg2230z00_11362; 
BgL_bufposz00_11357 = BgL_bufposz00_13878; 
BgL_forwardz00_11356 = BgL_forwardz00_13877; 
goto BgL_statezd221zd21207z00_11254;} }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_newzd2matchzd2_11358; } }  else 
{ /* Llib/date.scm 1063 */
 int BgL_curz00_11365;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11366;
if(
INPUT_PORTP(BgL_iportz00_11354))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11366 = BgL_iportz00_11354; }  else 
{ 
 obj_t BgL_auxz00_13881;
BgL_auxz00_13881 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5902z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11354); 
FAILURE(BgL_auxz00_13881,BFALSE,BFALSE);} 
BgL_curz00_11365 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11366, BgL_forwardz00_11356); } 
{ /* Llib/date.scm 1063 */

{ /* Llib/date.scm 1063 */
 bool_t BgL_test6710z00_13886;
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6711z00_13887;
if(
(
(long)(BgL_curz00_11365)==10L))
{ /* Llib/date.scm 1063 */
BgL_test6711z00_13887 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6711z00_13887 = 
(
(long)(BgL_curz00_11365)==9L)
; } 
if(BgL_test6711z00_13887)
{ /* Llib/date.scm 1063 */
BgL_test6710z00_13886 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1063 */
if(
(
(long)(BgL_curz00_11365)==13L))
{ /* Llib/date.scm 1063 */
BgL_test6710z00_13886 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1063 */
BgL_test6710z00_13886 = 
(
(long)(BgL_curz00_11365)==32L)
; } } } 
if(BgL_test6710z00_13886)
{ 
 long BgL_forwardz00_13899; long BgL_lastzd2matchzd2_13898;
BgL_lastzd2matchzd2_13898 = BgL_newzd2matchzd2_11358; 
BgL_forwardz00_13899 = 
(1L+BgL_forwardz00_11356); 
BgL_forwardz00_11356 = BgL_forwardz00_13899; 
BgL_lastzd2matchzd2_11355 = BgL_lastzd2matchzd2_13898; 
goto BgL_statezd221zd21207z00_11254;}  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_newzd2matchzd2_11358; } } } } } }  else 
{ /* Llib/date.scm 1063 */
BgL_matchz00_11272 = BgL_newzd2matchzd2_11545; } } } } } }  else 
{ /* Llib/date.scm 1063 */
 long BgL_arg2201z00_11416;
BgL_arg2201z00_11416 = 
(1L+BgL_forwardz00_11407); 
{ /* Llib/date.scm 1063 */
 long BgL_newzd2matchzd2_11417;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11418;
if(
INPUT_PORTP(BgL_iportz00_11405))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11418 = BgL_iportz00_11405; }  else 
{ 
 obj_t BgL_auxz00_13906;
BgL_auxz00_13906 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5906z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11405); 
FAILURE(BgL_auxz00_13906,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11418, BgL_arg2201z00_11416); } 
BgL_newzd2matchzd2_11417 = 6L; 
BgL_matchz00_11272 = BgL_newzd2matchzd2_11417; } } } } } } } 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11277;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11277 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_13913;
BgL_auxz00_13913 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_13913,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_11277); } 
switch( BgL_matchz00_11272) { case 6L : 

{ /* Llib/date.scm 1098 */
 obj_t BgL_arg2328z00_11278; obj_t BgL_arg2329z00_11279;
{ /* Llib/date.scm 1063 */
 bool_t BgL_test6716z00_13918;
{ /* Llib/date.scm 1063 */
 long BgL_arg2320z00_11351;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11352;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11352 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_13921;
BgL_auxz00_13921 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5884z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_13921,BFALSE,BFALSE);} 
BgL_arg2320z00_11351 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_11352); } 
BgL_test6716z00_13918 = 
(BgL_arg2320z00_11351==0L); } 
if(BgL_test6716z00_13918)
{ /* Llib/date.scm 1063 */
BgL_arg2328z00_11278 = BEOF; }  else 
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11353;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11353 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_13929;
BgL_auxz00_13929 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5884z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_13929,BFALSE,BFALSE);} 
BgL_arg2328z00_11278 = 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_11353)); } } 
{ /* Llib/date.scm 1098 */
 obj_t BgL_res4742z00_11280;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_res4742z00_11280 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_13937;
BgL_auxz00_13937 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_13937,BFALSE,BFALSE);} 
BgL_arg2329z00_11279 = BgL_res4742z00_11280; } 
return 
BGl_parsezd2errorzd2zz__datez00(BGl_string5879z00zz__datez00, BGl_string5901z00zz__datez00, BgL_arg2328z00_11278, BgL_arg2329z00_11279);} break;case 5L : 

{ /* Llib/date.scm 1093 */
 long BgL_b1z00_11281; long BgL_b2z00_11282;
{ /* Llib/date.scm 1093 */
 int BgL_arg2331z00_11283;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11284;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11284 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_13944;
BgL_auxz00_13944 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_13944,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_13948;
BgL_tmpz00_13948 = 
(int)(0L); 
BgL_arg2331z00_11283 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11284, BgL_tmpz00_13948); } } 
BgL_b1z00_11281 = 
(
(long)(BgL_arg2331z00_11283)-48L); } 
{ /* Llib/date.scm 1094 */
 int BgL_arg2332z00_11285;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11286;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11286 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_13955;
BgL_auxz00_13955 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_13955,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_13959;
BgL_tmpz00_13959 = 
(int)(2L); 
BgL_arg2332z00_11285 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11286, BgL_tmpz00_13959); } } 
BgL_b2z00_11282 = 
(
(long)(BgL_arg2332z00_11285)-48L); } 
{ /* Llib/date.scm 1095 */
 obj_t BgL_val0_1284z00_11287; long BgL_val2_1286z00_11288;
BgL_val0_1284z00_11287 = 
BINT(0L); 
BgL_val2_1286z00_11288 = 
(
(BgL_b1z00_11281*10L)+BgL_b2z00_11282); 
{ /* Llib/date.scm 1095 */
 int BgL_tmpz00_13967;
BgL_tmpz00_13967 = 
(int)(3L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_13967); } 
{ /* Llib/date.scm 1095 */
 obj_t BgL_auxz00_13972; int BgL_tmpz00_13970;
BgL_auxz00_13972 = 
BINT(0L); 
BgL_tmpz00_13970 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_13970, BgL_auxz00_13972); } 
{ /* Llib/date.scm 1095 */
 obj_t BgL_auxz00_13977; int BgL_tmpz00_13975;
BgL_auxz00_13977 = 
BINT(BgL_val2_1286z00_11288); 
BgL_tmpz00_13975 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_13975, BgL_auxz00_13977); } 
return BgL_val0_1284z00_11287;} } break;case 4L : 

{ /* Llib/date.scm 1086 */
 long BgL_b1z00_11289; long BgL_b3z00_11290; long BgL_b4z00_11291; long BgL_b5z00_11292; long BgL_b6z00_11293;
{ /* Llib/date.scm 1086 */
 int BgL_arg2337z00_11294;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11295;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11295 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_13982;
BgL_auxz00_13982 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_13982,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_13986;
BgL_tmpz00_13986 = 
(int)(0L); 
BgL_arg2337z00_11294 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11295, BgL_tmpz00_13986); } } 
BgL_b1z00_11289 = 
(
(long)(BgL_arg2337z00_11294)-48L); } 
{ /* Llib/date.scm 1087 */
 int BgL_arg2338z00_11296;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11297;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11297 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_13993;
BgL_auxz00_13993 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_13993,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_13997;
BgL_tmpz00_13997 = 
(int)(2L); 
BgL_arg2338z00_11296 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11297, BgL_tmpz00_13997); } } 
BgL_b3z00_11290 = 
(
(long)(BgL_arg2338z00_11296)-48L); } 
{ /* Llib/date.scm 1088 */
 int BgL_arg2339z00_11298;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11299;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11299 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14004;
BgL_auxz00_14004 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14004,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14008;
BgL_tmpz00_14008 = 
(int)(3L); 
BgL_arg2339z00_11298 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11299, BgL_tmpz00_14008); } } 
BgL_b4z00_11291 = 
(
(long)(BgL_arg2339z00_11298)-48L); } 
{ /* Llib/date.scm 1089 */
 int BgL_arg2340z00_11300;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11301;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11301 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14015;
BgL_auxz00_14015 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14015,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14019;
BgL_tmpz00_14019 = 
(int)(5L); 
BgL_arg2340z00_11300 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11301, BgL_tmpz00_14019); } } 
BgL_b5z00_11292 = 
(
(long)(BgL_arg2340z00_11300)-48L); } 
{ /* Llib/date.scm 1090 */
 int BgL_arg2343z00_11302;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11303;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11303 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14026;
BgL_auxz00_14026 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14026,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14030;
BgL_tmpz00_14030 = 
(int)(6L); 
BgL_arg2343z00_11302 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11303, BgL_tmpz00_14030); } } 
BgL_b6z00_11293 = 
(
(long)(BgL_arg2343z00_11302)-48L); } 
{ /* Llib/date.scm 1091 */
 long BgL_val1_1288z00_11304; long BgL_val2_1289z00_11305;
BgL_val1_1288z00_11304 = 
(
(BgL_b3z00_11290*10L)+BgL_b4z00_11291); 
BgL_val2_1289z00_11305 = 
(
(BgL_b5z00_11292*10L)+BgL_b6z00_11293); 
{ /* Llib/date.scm 1091 */
 int BgL_tmpz00_14039;
BgL_tmpz00_14039 = 
(int)(3L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_14039); } 
{ /* Llib/date.scm 1091 */
 obj_t BgL_auxz00_14044; int BgL_tmpz00_14042;
BgL_auxz00_14044 = 
BINT(BgL_val1_1288z00_11304); 
BgL_tmpz00_14042 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_14042, BgL_auxz00_14044); } 
{ /* Llib/date.scm 1091 */
 obj_t BgL_auxz00_14049; int BgL_tmpz00_14047;
BgL_auxz00_14049 = 
BINT(BgL_val2_1289z00_11305); 
BgL_tmpz00_14047 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_14047, BgL_auxz00_14049); } 
return 
BINT(BgL_b1z00_11289);} } break;case 3L : 

{ /* Llib/date.scm 1078 */
 long BgL_b1z00_11306; long BgL_b2z00_11307; long BgL_b3z00_11308; long BgL_b4z00_11309; long BgL_b5z00_11310; long BgL_b6z00_11311;
{ /* Llib/date.scm 1078 */
 int BgL_arg2349z00_11312;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11313;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11313 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14055;
BgL_auxz00_14055 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14055,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14059;
BgL_tmpz00_14059 = 
(int)(0L); 
BgL_arg2349z00_11312 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11313, BgL_tmpz00_14059); } } 
BgL_b1z00_11306 = 
(
(long)(BgL_arg2349z00_11312)-48L); } 
{ /* Llib/date.scm 1079 */
 int BgL_arg2350z00_11314;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11315;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11315 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14066;
BgL_auxz00_14066 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14066,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14070;
BgL_tmpz00_14070 = 
(int)(1L); 
BgL_arg2350z00_11314 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11315, BgL_tmpz00_14070); } } 
BgL_b2z00_11307 = 
(
(long)(BgL_arg2350z00_11314)-48L); } 
{ /* Llib/date.scm 1080 */
 int BgL_arg2351z00_11316;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11317;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11317 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14077;
BgL_auxz00_14077 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14077,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14081;
BgL_tmpz00_14081 = 
(int)(3L); 
BgL_arg2351z00_11316 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11317, BgL_tmpz00_14081); } } 
BgL_b3z00_11308 = 
(
(long)(BgL_arg2351z00_11316)-48L); } 
{ /* Llib/date.scm 1081 */
 int BgL_arg2353z00_11318;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11319;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11319 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14088;
BgL_auxz00_14088 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14088,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14092;
BgL_tmpz00_14092 = 
(int)(4L); 
BgL_arg2353z00_11318 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11319, BgL_tmpz00_14092); } } 
BgL_b4z00_11309 = 
(
(long)(BgL_arg2353z00_11318)-48L); } 
{ /* Llib/date.scm 1082 */
 int BgL_arg2354z00_11320;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11321;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11321 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14099;
BgL_auxz00_14099 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14099,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14103;
BgL_tmpz00_14103 = 
(int)(6L); 
BgL_arg2354z00_11320 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11321, BgL_tmpz00_14103); } } 
BgL_b5z00_11310 = 
(
(long)(BgL_arg2354z00_11320)-48L); } 
{ /* Llib/date.scm 1083 */
 int BgL_arg2356z00_11322;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11323;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11323 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14110;
BgL_auxz00_14110 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14110,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14114;
BgL_tmpz00_14114 = 
(int)(7L); 
BgL_arg2356z00_11322 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11323, BgL_tmpz00_14114); } } 
BgL_b6z00_11311 = 
(
(long)(BgL_arg2356z00_11322)-48L); } 
{ /* Llib/date.scm 1084 */
 long BgL_val0_1290z00_11324; long BgL_val1_1291z00_11325; long BgL_val2_1292z00_11326;
BgL_val0_1290z00_11324 = 
(
(BgL_b1z00_11306*10L)+BgL_b2z00_11307); 
BgL_val1_1291z00_11325 = 
(
(BgL_b3z00_11308*10L)+BgL_b4z00_11309); 
BgL_val2_1292z00_11326 = 
(
(BgL_b5z00_11310*10L)+BgL_b6z00_11311); 
{ /* Llib/date.scm 1084 */
 int BgL_tmpz00_14125;
BgL_tmpz00_14125 = 
(int)(3L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_14125); } 
{ /* Llib/date.scm 1084 */
 obj_t BgL_auxz00_14130; int BgL_tmpz00_14128;
BgL_auxz00_14130 = 
BINT(BgL_val1_1291z00_11325); 
BgL_tmpz00_14128 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_14128, BgL_auxz00_14130); } 
{ /* Llib/date.scm 1084 */
 obj_t BgL_auxz00_14135; int BgL_tmpz00_14133;
BgL_auxz00_14135 = 
BINT(BgL_val2_1292z00_11326); 
BgL_tmpz00_14133 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_14133, BgL_auxz00_14135); } 
return 
BINT(BgL_val0_1290z00_11324);} } break;case 2L : 

{ /* Llib/date.scm 1072 */
 long BgL_b1z00_11327; long BgL_b2z00_11328; long BgL_b3z00_11329; long BgL_b4z00_11330;
{ /* Llib/date.scm 1072 */
 int BgL_arg2360z00_11331;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11332;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11332 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14141;
BgL_auxz00_14141 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14141,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14145;
BgL_tmpz00_14145 = 
(int)(0L); 
BgL_arg2360z00_11331 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11332, BgL_tmpz00_14145); } } 
BgL_b1z00_11327 = 
(
(long)(BgL_arg2360z00_11331)-48L); } 
{ /* Llib/date.scm 1073 */
 int BgL_arg2362z00_11333;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11334;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11334 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14152;
BgL_auxz00_14152 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14152,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14156;
BgL_tmpz00_14156 = 
(int)(1L); 
BgL_arg2362z00_11333 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11334, BgL_tmpz00_14156); } } 
BgL_b2z00_11328 = 
(
(long)(BgL_arg2362z00_11333)-48L); } 
{ /* Llib/date.scm 1074 */
 int BgL_arg2363z00_11335;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11336;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11336 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14163;
BgL_auxz00_14163 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14163,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14167;
BgL_tmpz00_14167 = 
(int)(3L); 
BgL_arg2363z00_11335 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11336, BgL_tmpz00_14167); } } 
BgL_b3z00_11329 = 
(
(long)(BgL_arg2363z00_11335)-48L); } 
{ /* Llib/date.scm 1075 */
 int BgL_arg2364z00_11337;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11338;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11338 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14174;
BgL_auxz00_14174 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14174,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14178;
BgL_tmpz00_14178 = 
(int)(4L); 
BgL_arg2364z00_11337 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11338, BgL_tmpz00_14178); } } 
BgL_b4z00_11330 = 
(
(long)(BgL_arg2364z00_11337)-48L); } 
{ /* Llib/date.scm 1076 */
 long BgL_val0_1293z00_11339; long BgL_val1_1294z00_11340;
BgL_val0_1293z00_11339 = 
(
(BgL_b1z00_11327*10L)+BgL_b2z00_11328); 
BgL_val1_1294z00_11340 = 
(
(BgL_b3z00_11329*10L)+BgL_b4z00_11330); 
{ /* Llib/date.scm 1076 */
 int BgL_tmpz00_14187;
BgL_tmpz00_14187 = 
(int)(3L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_14187); } 
{ /* Llib/date.scm 1076 */
 obj_t BgL_auxz00_14192; int BgL_tmpz00_14190;
BgL_auxz00_14192 = 
BINT(BgL_val1_1294z00_11340); 
BgL_tmpz00_14190 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_14190, BgL_auxz00_14192); } 
{ /* Llib/date.scm 1076 */
 obj_t BgL_auxz00_14197; int BgL_tmpz00_14195;
BgL_auxz00_14197 = 
BINT(0L); 
BgL_tmpz00_14195 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_14195, BgL_auxz00_14197); } 
return 
BINT(BgL_val0_1293z00_11339);} } break;case 1L : 

{ /* Llib/date.scm 1067 */
 long BgL_b1z00_11341; long BgL_b3z00_11342; long BgL_b4z00_11343;
{ /* Llib/date.scm 1067 */
 int BgL_arg2366z00_11344;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11345;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11345 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14203;
BgL_auxz00_14203 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14203,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14207;
BgL_tmpz00_14207 = 
(int)(0L); 
BgL_arg2366z00_11344 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11345, BgL_tmpz00_14207); } } 
BgL_b1z00_11341 = 
(
(long)(BgL_arg2366z00_11344)-48L); } 
{ /* Llib/date.scm 1068 */
 int BgL_arg2367z00_11346;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11347;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11347 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14214;
BgL_auxz00_14214 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14214,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14218;
BgL_tmpz00_14218 = 
(int)(2L); 
BgL_arg2367z00_11346 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11347, BgL_tmpz00_14218); } } 
BgL_b3z00_11342 = 
(
(long)(BgL_arg2367z00_11346)-48L); } 
{ /* Llib/date.scm 1069 */
 int BgL_arg2368z00_11348;
{ /* Llib/date.scm 1063 */
 obj_t BgL_inputzd2portzd2_11349;
if(
INPUT_PORTP(BgL_iportz00_9769))
{ /* Llib/date.scm 1063 */
BgL_inputzd2portzd2_11349 = BgL_iportz00_9769; }  else 
{ 
 obj_t BgL_auxz00_14225;
BgL_auxz00_14225 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43846L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9769); 
FAILURE(BgL_auxz00_14225,BFALSE,BFALSE);} 
{ /* Llib/date.scm 1063 */
 int BgL_tmpz00_14229;
BgL_tmpz00_14229 = 
(int)(3L); 
BgL_arg2368z00_11348 = 
RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_11349, BgL_tmpz00_14229); } } 
BgL_b4z00_11343 = 
(
(long)(BgL_arg2368z00_11348)-48L); } 
{ /* Llib/date.scm 1070 */
 long BgL_val1_1297z00_11350;
BgL_val1_1297z00_11350 = 
(
(BgL_b3z00_11342*10L)+BgL_b4z00_11343); 
{ /* Llib/date.scm 1070 */
 int BgL_tmpz00_14236;
BgL_tmpz00_14236 = 
(int)(3L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_14236); } 
{ /* Llib/date.scm 1070 */
 obj_t BgL_auxz00_14241; int BgL_tmpz00_14239;
BgL_auxz00_14241 = 
BINT(BgL_val1_1297z00_11350); 
BgL_tmpz00_14239 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_14239, BgL_auxz00_14241); } 
{ /* Llib/date.scm 1070 */
 obj_t BgL_auxz00_14246; int BgL_tmpz00_14244;
BgL_auxz00_14246 = 
BINT(0L); 
BgL_tmpz00_14244 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_14244, BgL_auxz00_14246); } 
return 
BINT(BgL_b1z00_11341);} } break;case 0L : 

goto BgL_ignorez00_11252;break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string5882z00zz__datez00, BGl_string5883z00zz__datez00, 
BINT(BgL_matchz00_11272));} } } } } } 

}



/* &<@anonymous:1869> */
obj_t BGl_z62zc3z04anonymousza31869ze3ze5zz__datez00(obj_t BgL_envz00_9770, obj_t BgL_iportz00_9771)
{
{ /* Llib/date.scm 1035 */
{ 
 obj_t BgL_iportz00_11656; long BgL_lastzd2matchzd2_11657; long BgL_forwardz00_11658; long BgL_bufposz00_11659; obj_t BgL_iportz00_11643; long BgL_lastzd2matchzd2_11644; long BgL_forwardz00_11645; long BgL_bufposz00_11646; obj_t BgL_iportz00_11630; long BgL_lastzd2matchzd2_11631; long BgL_forwardz00_11632; long BgL_bufposz00_11633; obj_t BgL_iportz00_11617; long BgL_lastzd2matchzd2_11618; long BgL_forwardz00_11619; long BgL_bufposz00_11620; obj_t BgL_iportz00_11603; long BgL_lastzd2matchzd2_11604; long BgL_forwardz00_11605; long BgL_bufposz00_11606;
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6740z00_14253;
{ /* Llib/date.scm 1035 */
 obj_t BgL_arg1879z00_11670;
{ /* Llib/date.scm 1035 */
 obj_t BgL_res4740z00_11671;
if(
INPUT_PORTP(BgL_iportz00_9771))
{ /* Llib/date.scm 1035 */
BgL_res4740z00_11671 = BgL_iportz00_9771; }  else 
{ 
 obj_t BgL_auxz00_14256;
BgL_auxz00_14256 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5950z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9771); 
FAILURE(BgL_auxz00_14256,BFALSE,BFALSE);} 
BgL_arg1879z00_11670 = BgL_res4740z00_11671; } 
BgL_test6740z00_14253 = 
INPUT_PORT_CLOSEP(BgL_arg1879z00_11670); } 
if(BgL_test6740z00_14253)
{ /* Llib/date.scm 1035 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg1870z00_11672;
{ /* Llib/date.scm 1035 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1078z00_11673;
{ /* Llib/date.scm 1035 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1077z00_11674;
BgL_new1077z00_11674 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Llib/date.scm 1035 */
 long BgL_arg1878z00_11675;
BgL_arg1878z00_11675 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1077z00_11674), BgL_arg1878z00_11675); } 
BgL_new1078z00_11673 = BgL_new1077z00_11674; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_11673)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_11673)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_14269;
{ /* Llib/date.scm 1035 */
 obj_t BgL_arg1873z00_11676;
{ /* Llib/date.scm 1035 */
 obj_t BgL_arg1876z00_11677;
{ /* Llib/date.scm 1035 */
 obj_t BgL_classz00_11678;
BgL_classz00_11678 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg1876z00_11677 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_11678); } 
BgL_arg1873z00_11676 = 
VECTOR_REF(BgL_arg1876z00_11677,2L); } 
{ /* Llib/date.scm 1035 */
 obj_t BgL_auxz00_14273;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg1873z00_11676))
{ /* Llib/date.scm 1035 */
BgL_auxz00_14273 = BgL_arg1873z00_11676
; }  else 
{ 
 obj_t BgL_auxz00_14276;
BgL_auxz00_14276 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5950z00zz__datez00, BGl_string5899z00zz__datez00, BgL_arg1873z00_11676); 
FAILURE(BgL_auxz00_14276,BFALSE,BFALSE);} 
BgL_auxz00_14269 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_14273); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_11673)))->BgL_stackz00)=((obj_t)BgL_auxz00_14269),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_11673)))->BgL_procz00)=((obj_t)BGl_string5882z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_11673)))->BgL_msgz00)=((obj_t)BGl_string5900z00zz__datez00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_14286;
{ /* Llib/date.scm 1035 */
 obj_t BgL_res4741z00_11679;
if(
INPUT_PORTP(BgL_iportz00_9771))
{ /* Llib/date.scm 1035 */
BgL_res4741z00_11679 = BgL_iportz00_9771; }  else 
{ 
 obj_t BgL_auxz00_14290;
BgL_auxz00_14290 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5950z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9771); 
FAILURE(BgL_auxz00_14290,BFALSE,BFALSE);} 
BgL_auxz00_14286 = BgL_res4741z00_11679; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_11673)))->BgL_objz00)=((obj_t)BgL_auxz00_14286),BUNSPEC); } 
BgL_arg1870z00_11672 = BgL_new1078z00_11673; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1870z00_11672));}  else 
{ /* Llib/date.scm 1035 */
BgL_ignorez00_11575:
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11582;
if(
INPUT_PORTP(BgL_iportz00_9771))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11582 = BgL_iportz00_9771; }  else 
{ 
 obj_t BgL_auxz00_14299;
BgL_auxz00_14299 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9771); 
FAILURE(BgL_auxz00_14299,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_11582); } 
{ /* Llib/date.scm 1035 */
 long BgL_matchz00_11583;
{ /* Llib/date.scm 1035 */
 long BgL_arg2076z00_11584; long BgL_arg2077z00_11585;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11586;
if(
INPUT_PORTP(BgL_iportz00_9771))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11586 = BgL_iportz00_9771; }  else 
{ 
 obj_t BgL_auxz00_14306;
BgL_auxz00_14306 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9771); 
FAILURE(BgL_auxz00_14306,BFALSE,BFALSE);} 
BgL_arg2076z00_11584 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11586); } 
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11587;
if(
INPUT_PORTP(BgL_iportz00_9771))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11587 = BgL_iportz00_9771; }  else 
{ 
 obj_t BgL_auxz00_14313;
BgL_auxz00_14313 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9771); 
FAILURE(BgL_auxz00_14313,BFALSE,BFALSE);} 
BgL_arg2077z00_11585 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11587); } 
BgL_iportz00_11656 = BgL_iportz00_9771; 
BgL_lastzd2matchzd2_11657 = 2L; 
BgL_forwardz00_11658 = BgL_arg2076z00_11584; 
BgL_bufposz00_11659 = BgL_arg2077z00_11585; 
BgL_statezd20zd21176z00_11581:
if(
(BgL_forwardz00_11658==BgL_bufposz00_11659))
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6748z00_14320;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11660;
if(
INPUT_PORTP(BgL_iportz00_11656))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11660 = BgL_iportz00_11656; }  else 
{ 
 obj_t BgL_auxz00_14323;
BgL_auxz00_14323 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5949z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11656); 
FAILURE(BgL_auxz00_14323,BFALSE,BFALSE);} 
BgL_test6748z00_14320 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11660); } 
if(BgL_test6748z00_14320)
{ /* Llib/date.scm 1035 */
 long BgL_arg1883z00_11661; long BgL_arg1884z00_11662;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11663;
if(
INPUT_PORTP(BgL_iportz00_11656))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11663 = BgL_iportz00_11656; }  else 
{ 
 obj_t BgL_auxz00_14330;
BgL_auxz00_14330 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5949z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11656); 
FAILURE(BgL_auxz00_14330,BFALSE,BFALSE);} 
BgL_arg1883z00_11661 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11663); } 
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11664;
if(
INPUT_PORTP(BgL_iportz00_11656))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11664 = BgL_iportz00_11656; }  else 
{ 
 obj_t BgL_auxz00_14337;
BgL_auxz00_14337 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5949z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11656); 
FAILURE(BgL_auxz00_14337,BFALSE,BFALSE);} 
BgL_arg1884z00_11662 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11664); } 
{ 
 long BgL_bufposz00_14343; long BgL_forwardz00_14342;
BgL_forwardz00_14342 = BgL_arg1883z00_11661; 
BgL_bufposz00_14343 = BgL_arg1884z00_11662; 
BgL_bufposz00_11659 = BgL_bufposz00_14343; 
BgL_forwardz00_11658 = BgL_forwardz00_14342; 
goto BgL_statezd20zd21176z00_11581;} }  else 
{ /* Llib/date.scm 1035 */
BgL_matchz00_11583 = BgL_lastzd2matchzd2_11657; } }  else 
{ /* Llib/date.scm 1035 */
 int BgL_curz00_11665;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11666;
if(
INPUT_PORTP(BgL_iportz00_11656))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11666 = BgL_iportz00_11656; }  else 
{ 
 obj_t BgL_auxz00_14346;
BgL_auxz00_14346 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5949z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11656); 
FAILURE(BgL_auxz00_14346,BFALSE,BFALSE);} 
BgL_curz00_11665 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11666, BgL_forwardz00_11658); } 
{ /* Llib/date.scm 1035 */

{ /* Llib/date.scm 1035 */
 bool_t BgL_test6753z00_14351;
if(
(
(long)(BgL_curz00_11665)==65L))
{ /* Llib/date.scm 1035 */
BgL_test6753z00_14351 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11665)==68L))
{ /* Llib/date.scm 1035 */
BgL_test6753z00_14351 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11665)==70L))
{ /* Llib/date.scm 1035 */
BgL_test6753z00_14351 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11665)==74L))
{ /* Llib/date.scm 1035 */
BgL_test6753z00_14351 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6758z00_14364;
if(
(
(long)(BgL_curz00_11665)==79L))
{ /* Llib/date.scm 1035 */
BgL_test6758z00_14364 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11665)==78L))
{ /* Llib/date.scm 1035 */
BgL_test6758z00_14364 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6758z00_14364 = 
(
(long)(BgL_curz00_11665)==77L)
; } } 
if(BgL_test6758z00_14364)
{ /* Llib/date.scm 1035 */
BgL_test6753z00_14351 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6753z00_14351 = 
(
(long)(BgL_curz00_11665)==83L)
; } } } } } 
if(BgL_test6753z00_14351)
{ /* Llib/date.scm 1035 */
BgL_iportz00_11617 = BgL_iportz00_11656; 
BgL_lastzd2matchzd2_11618 = BgL_lastzd2matchzd2_11657; 
BgL_forwardz00_11619 = 
(1L+BgL_forwardz00_11658); 
BgL_bufposz00_11620 = BgL_bufposz00_11659; 
BgL_statezd23zd21179z00_11578:
{ /* Llib/date.scm 1035 */
 long BgL_newzd2matchzd2_11621;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11622;
if(
INPUT_PORTP(BgL_iportz00_11617))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11622 = BgL_iportz00_11617; }  else 
{ 
 obj_t BgL_auxz00_14377;
BgL_auxz00_14377 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5946z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11617); 
FAILURE(BgL_auxz00_14377,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11622, BgL_forwardz00_11619); } 
BgL_newzd2matchzd2_11621 = 2L; 
if(
(BgL_forwardz00_11619==BgL_bufposz00_11620))
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6763z00_14384;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11623;
if(
INPUT_PORTP(BgL_iportz00_11617))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11623 = BgL_iportz00_11617; }  else 
{ 
 obj_t BgL_auxz00_14387;
BgL_auxz00_14387 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5946z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11617); 
FAILURE(BgL_auxz00_14387,BFALSE,BFALSE);} 
BgL_test6763z00_14384 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11623); } 
if(BgL_test6763z00_14384)
{ /* Llib/date.scm 1035 */
 long BgL_arg1926z00_11624; long BgL_arg1927z00_11625;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11626;
if(
INPUT_PORTP(BgL_iportz00_11617))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11626 = BgL_iportz00_11617; }  else 
{ 
 obj_t BgL_auxz00_14394;
BgL_auxz00_14394 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5946z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11617); 
FAILURE(BgL_auxz00_14394,BFALSE,BFALSE);} 
BgL_arg1926z00_11624 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11626); } 
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11627;
if(
INPUT_PORTP(BgL_iportz00_11617))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11627 = BgL_iportz00_11617; }  else 
{ 
 obj_t BgL_auxz00_14401;
BgL_auxz00_14401 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5946z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11617); 
FAILURE(BgL_auxz00_14401,BFALSE,BFALSE);} 
BgL_arg1927z00_11625 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11627); } 
{ 
 long BgL_bufposz00_14407; long BgL_forwardz00_14406;
BgL_forwardz00_14406 = BgL_arg1926z00_11624; 
BgL_bufposz00_14407 = BgL_arg1927z00_11625; 
BgL_bufposz00_11620 = BgL_bufposz00_14407; 
BgL_forwardz00_11619 = BgL_forwardz00_14406; 
goto BgL_statezd23zd21179z00_11578;} }  else 
{ /* Llib/date.scm 1035 */
BgL_matchz00_11583 = BgL_newzd2matchzd2_11621; } }  else 
{ /* Llib/date.scm 1035 */
 int BgL_curz00_11628;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11629;
if(
INPUT_PORTP(BgL_iportz00_11617))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11629 = BgL_iportz00_11617; }  else 
{ 
 obj_t BgL_auxz00_14410;
BgL_auxz00_14410 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5946z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11617); 
FAILURE(BgL_auxz00_14410,BFALSE,BFALSE);} 
BgL_curz00_11628 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11629, BgL_forwardz00_11619); } 
{ /* Llib/date.scm 1035 */

{ /* Llib/date.scm 1035 */
 bool_t BgL_test6768z00_14415;
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6769z00_14416;
if(
(
(long)(BgL_curz00_11628)==99L))
{ /* Llib/date.scm 1035 */
BgL_test6769z00_14416 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11628)==98L))
{ /* Llib/date.scm 1035 */
BgL_test6769z00_14416 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6769z00_14416 = 
(
(long)(BgL_curz00_11628)==97L)
; } } 
if(BgL_test6769z00_14416)
{ /* Llib/date.scm 1035 */
BgL_test6768z00_14415 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11628)==101L))
{ /* Llib/date.scm 1035 */
BgL_test6768z00_14415 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11628)==103L))
{ /* Llib/date.scm 1035 */
BgL_test6768z00_14415 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11628)==108L))
{ /* Llib/date.scm 1035 */
BgL_test6768z00_14415 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6775z00_14434;
if(
(
(long)(BgL_curz00_11628)==112L))
{ /* Llib/date.scm 1035 */
BgL_test6775z00_14434 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11628)==111L))
{ /* Llib/date.scm 1035 */
BgL_test6775z00_14434 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6775z00_14434 = 
(
(long)(BgL_curz00_11628)==110L)
; } } 
if(BgL_test6775z00_14434)
{ /* Llib/date.scm 1035 */
BgL_test6768z00_14415 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11628)==114L))
{ /* Llib/date.scm 1035 */
BgL_test6768z00_14415 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6779z00_14446;
if(
(
(long)(BgL_curz00_11628)==118L))
{ /* Llib/date.scm 1035 */
BgL_test6779z00_14446 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11628)==117L))
{ /* Llib/date.scm 1035 */
BgL_test6779z00_14446 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6779z00_14446 = 
(
(long)(BgL_curz00_11628)==116L)
; } } 
if(BgL_test6779z00_14446)
{ /* Llib/date.scm 1035 */
BgL_test6768z00_14415 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6768z00_14415 = 
(
(long)(BgL_curz00_11628)==121L)
; } } } } } } } } 
if(BgL_test6768z00_14415)
{ /* Llib/date.scm 1035 */
BgL_iportz00_11603 = BgL_iportz00_11617; 
BgL_lastzd2matchzd2_11604 = BgL_newzd2matchzd2_11621; 
BgL_forwardz00_11605 = 
(1L+BgL_forwardz00_11619); 
BgL_bufposz00_11606 = BgL_bufposz00_11620; 
BgL_statezd24zd21180z00_11577:
if(
(BgL_forwardz00_11605==BgL_bufposz00_11606))
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6783z00_14459;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11607;
if(
INPUT_PORTP(BgL_iportz00_11603))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11607 = BgL_iportz00_11603; }  else 
{ 
 obj_t BgL_auxz00_14462;
BgL_auxz00_14462 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5945z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11603); 
FAILURE(BgL_auxz00_14462,BFALSE,BFALSE);} 
BgL_test6783z00_14459 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11607); } 
if(BgL_test6783z00_14459)
{ /* Llib/date.scm 1035 */
 long BgL_arg1946z00_11608; long BgL_arg1947z00_11609;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11610;
if(
INPUT_PORTP(BgL_iportz00_11603))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11610 = BgL_iportz00_11603; }  else 
{ 
 obj_t BgL_auxz00_14469;
BgL_auxz00_14469 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5945z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11603); 
FAILURE(BgL_auxz00_14469,BFALSE,BFALSE);} 
BgL_arg1946z00_11608 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11610); } 
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11611;
if(
INPUT_PORTP(BgL_iportz00_11603))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11611 = BgL_iportz00_11603; }  else 
{ 
 obj_t BgL_auxz00_14476;
BgL_auxz00_14476 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5945z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11603); 
FAILURE(BgL_auxz00_14476,BFALSE,BFALSE);} 
BgL_arg1947z00_11609 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11611); } 
{ 
 long BgL_bufposz00_14482; long BgL_forwardz00_14481;
BgL_forwardz00_14481 = BgL_arg1946z00_11608; 
BgL_bufposz00_14482 = BgL_arg1947z00_11609; 
BgL_bufposz00_11606 = BgL_bufposz00_14482; 
BgL_forwardz00_11605 = BgL_forwardz00_14481; 
goto BgL_statezd24zd21180z00_11577;} }  else 
{ /* Llib/date.scm 1035 */
BgL_matchz00_11583 = BgL_lastzd2matchzd2_11604; } }  else 
{ /* Llib/date.scm 1035 */
 int BgL_curz00_11612;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11613;
if(
INPUT_PORTP(BgL_iportz00_11603))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11613 = BgL_iportz00_11603; }  else 
{ 
 obj_t BgL_auxz00_14485;
BgL_auxz00_14485 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5945z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11603); 
FAILURE(BgL_auxz00_14485,BFALSE,BFALSE);} 
BgL_curz00_11612 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11613, BgL_forwardz00_11605); } 
{ /* Llib/date.scm 1035 */

{ /* Llib/date.scm 1035 */
 bool_t BgL_test6788z00_14490;
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6789z00_14491;
if(
(
(long)(BgL_curz00_11612)==99L))
{ /* Llib/date.scm 1035 */
BgL_test6789z00_14491 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11612)==98L))
{ /* Llib/date.scm 1035 */
BgL_test6789z00_14491 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6789z00_14491 = 
(
(long)(BgL_curz00_11612)==97L)
; } } 
if(BgL_test6789z00_14491)
{ /* Llib/date.scm 1035 */
BgL_test6788z00_14490 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11612)==101L))
{ /* Llib/date.scm 1035 */
BgL_test6788z00_14490 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11612)==103L))
{ /* Llib/date.scm 1035 */
BgL_test6788z00_14490 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11612)==108L))
{ /* Llib/date.scm 1035 */
BgL_test6788z00_14490 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6795z00_14509;
if(
(
(long)(BgL_curz00_11612)==112L))
{ /* Llib/date.scm 1035 */
BgL_test6795z00_14509 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11612)==111L))
{ /* Llib/date.scm 1035 */
BgL_test6795z00_14509 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6795z00_14509 = 
(
(long)(BgL_curz00_11612)==110L)
; } } 
if(BgL_test6795z00_14509)
{ /* Llib/date.scm 1035 */
BgL_test6788z00_14490 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11612)==114L))
{ /* Llib/date.scm 1035 */
BgL_test6788z00_14490 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6799z00_14521;
if(
(
(long)(BgL_curz00_11612)==118L))
{ /* Llib/date.scm 1035 */
BgL_test6799z00_14521 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11612)==117L))
{ /* Llib/date.scm 1035 */
BgL_test6799z00_14521 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6799z00_14521 = 
(
(long)(BgL_curz00_11612)==116L)
; } } 
if(BgL_test6799z00_14521)
{ /* Llib/date.scm 1035 */
BgL_test6788z00_14490 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6788z00_14490 = 
(
(long)(BgL_curz00_11612)==121L)
; } } } } } } } } 
if(BgL_test6788z00_14490)
{ /* Llib/date.scm 1035 */
 long BgL_arg1962z00_11614;
BgL_arg1962z00_11614 = 
(1L+BgL_forwardz00_11605); 
{ /* Llib/date.scm 1035 */
 long BgL_newzd2matchzd2_11615;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11616;
if(
INPUT_PORTP(BgL_iportz00_11603))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11616 = BgL_iportz00_11603; }  else 
{ 
 obj_t BgL_auxz00_14535;
BgL_auxz00_14535 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5945z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11603); 
FAILURE(BgL_auxz00_14535,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11616, BgL_arg1962z00_11614); } 
BgL_newzd2matchzd2_11615 = 1L; 
BgL_matchz00_11583 = BgL_newzd2matchzd2_11615; } }  else 
{ /* Llib/date.scm 1035 */
BgL_matchz00_11583 = BgL_lastzd2matchzd2_11604; } } } } }  else 
{ /* Llib/date.scm 1035 */
BgL_matchz00_11583 = BgL_newzd2matchzd2_11621; } } } } } }  else 
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6803z00_14542;
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6804z00_14543;
if(
(
(long)(BgL_curz00_11665)==10L))
{ /* Llib/date.scm 1035 */
BgL_test6804z00_14543 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6804z00_14543 = 
(
(long)(BgL_curz00_11665)==9L)
; } 
if(BgL_test6804z00_14543)
{ /* Llib/date.scm 1035 */
BgL_test6803z00_14542 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11665)==13L))
{ /* Llib/date.scm 1035 */
BgL_test6803z00_14542 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6803z00_14542 = 
(
(long)(BgL_curz00_11665)==32L)
; } } } 
if(BgL_test6803z00_14542)
{ /* Llib/date.scm 1035 */
BgL_iportz00_11643 = BgL_iportz00_11656; 
BgL_lastzd2matchzd2_11644 = BgL_lastzd2matchzd2_11657; 
BgL_forwardz00_11645 = 
(1L+BgL_forwardz00_11658); 
BgL_bufposz00_11646 = BgL_bufposz00_11659; 
BgL_statezd22zd21178z00_11580:
{ /* Llib/date.scm 1035 */
 long BgL_newzd2matchzd2_11647;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11648;
if(
INPUT_PORTP(BgL_iportz00_11643))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11648 = BgL_iportz00_11643; }  else 
{ 
 obj_t BgL_auxz00_14556;
BgL_auxz00_14556 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5948z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11643); 
FAILURE(BgL_auxz00_14556,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11648, BgL_forwardz00_11645); } 
BgL_newzd2matchzd2_11647 = 0L; 
if(
(BgL_forwardz00_11645==BgL_bufposz00_11646))
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6809z00_14563;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11649;
if(
INPUT_PORTP(BgL_iportz00_11643))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11649 = BgL_iportz00_11643; }  else 
{ 
 obj_t BgL_auxz00_14566;
BgL_auxz00_14566 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5948z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11643); 
FAILURE(BgL_auxz00_14566,BFALSE,BFALSE);} 
BgL_test6809z00_14563 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11649); } 
if(BgL_test6809z00_14563)
{ /* Llib/date.scm 1035 */
 long BgL_arg1903z00_11650; long BgL_arg1905z00_11651;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11652;
if(
INPUT_PORTP(BgL_iportz00_11643))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11652 = BgL_iportz00_11643; }  else 
{ 
 obj_t BgL_auxz00_14573;
BgL_auxz00_14573 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5948z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11643); 
FAILURE(BgL_auxz00_14573,BFALSE,BFALSE);} 
BgL_arg1903z00_11650 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11652); } 
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11653;
if(
INPUT_PORTP(BgL_iportz00_11643))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11653 = BgL_iportz00_11643; }  else 
{ 
 obj_t BgL_auxz00_14580;
BgL_auxz00_14580 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5948z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11643); 
FAILURE(BgL_auxz00_14580,BFALSE,BFALSE);} 
BgL_arg1905z00_11651 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11653); } 
{ 
 long BgL_bufposz00_14586; long BgL_forwardz00_14585;
BgL_forwardz00_14585 = BgL_arg1903z00_11650; 
BgL_bufposz00_14586 = BgL_arg1905z00_11651; 
BgL_bufposz00_11646 = BgL_bufposz00_14586; 
BgL_forwardz00_11645 = BgL_forwardz00_14585; 
goto BgL_statezd22zd21178z00_11580;} }  else 
{ /* Llib/date.scm 1035 */
BgL_matchz00_11583 = BgL_newzd2matchzd2_11647; } }  else 
{ /* Llib/date.scm 1035 */
 int BgL_curz00_11654;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11655;
if(
INPUT_PORTP(BgL_iportz00_11643))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11655 = BgL_iportz00_11643; }  else 
{ 
 obj_t BgL_auxz00_14589;
BgL_auxz00_14589 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5948z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11643); 
FAILURE(BgL_auxz00_14589,BFALSE,BFALSE);} 
BgL_curz00_11654 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11655, BgL_forwardz00_11645); } 
{ /* Llib/date.scm 1035 */

{ /* Llib/date.scm 1035 */
 bool_t BgL_test6814z00_14594;
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6815z00_14595;
if(
(
(long)(BgL_curz00_11654)==10L))
{ /* Llib/date.scm 1035 */
BgL_test6815z00_14595 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6815z00_14595 = 
(
(long)(BgL_curz00_11654)==9L)
; } 
if(BgL_test6815z00_14595)
{ /* Llib/date.scm 1035 */
BgL_test6814z00_14594 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11654)==13L))
{ /* Llib/date.scm 1035 */
BgL_test6814z00_14594 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6814z00_14594 = 
(
(long)(BgL_curz00_11654)==32L)
; } } } 
if(BgL_test6814z00_14594)
{ /* Llib/date.scm 1035 */
BgL_iportz00_11630 = BgL_iportz00_11643; 
BgL_lastzd2matchzd2_11631 = BgL_newzd2matchzd2_11647; 
BgL_forwardz00_11632 = 
(1L+BgL_forwardz00_11645); 
BgL_bufposz00_11633 = BgL_bufposz00_11646; 
BgL_statezd27zd21183z00_11579:
{ /* Llib/date.scm 1035 */
 long BgL_newzd2matchzd2_11634;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11635;
if(
INPUT_PORTP(BgL_iportz00_11630))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11635 = BgL_iportz00_11630; }  else 
{ 
 obj_t BgL_auxz00_14608;
BgL_auxz00_14608 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5947z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11630); 
FAILURE(BgL_auxz00_14608,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11635, BgL_forwardz00_11632); } 
BgL_newzd2matchzd2_11634 = 0L; 
if(
(BgL_forwardz00_11632==BgL_bufposz00_11633))
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6820z00_14615;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11636;
if(
INPUT_PORTP(BgL_iportz00_11630))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11636 = BgL_iportz00_11630; }  else 
{ 
 obj_t BgL_auxz00_14618;
BgL_auxz00_14618 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5947z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11630); 
FAILURE(BgL_auxz00_14618,BFALSE,BFALSE);} 
BgL_test6820z00_14615 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11636); } 
if(BgL_test6820z00_14615)
{ /* Llib/date.scm 1035 */
 long BgL_arg1915z00_11637; long BgL_arg1916z00_11638;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11639;
if(
INPUT_PORTP(BgL_iportz00_11630))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11639 = BgL_iportz00_11630; }  else 
{ 
 obj_t BgL_auxz00_14625;
BgL_auxz00_14625 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5947z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11630); 
FAILURE(BgL_auxz00_14625,BFALSE,BFALSE);} 
BgL_arg1915z00_11637 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11639); } 
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11640;
if(
INPUT_PORTP(BgL_iportz00_11630))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11640 = BgL_iportz00_11630; }  else 
{ 
 obj_t BgL_auxz00_14632;
BgL_auxz00_14632 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5947z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11630); 
FAILURE(BgL_auxz00_14632,BFALSE,BFALSE);} 
BgL_arg1916z00_11638 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11640); } 
{ 
 long BgL_bufposz00_14638; long BgL_forwardz00_14637;
BgL_forwardz00_14637 = BgL_arg1915z00_11637; 
BgL_bufposz00_14638 = BgL_arg1916z00_11638; 
BgL_bufposz00_11633 = BgL_bufposz00_14638; 
BgL_forwardz00_11632 = BgL_forwardz00_14637; 
goto BgL_statezd27zd21183z00_11579;} }  else 
{ /* Llib/date.scm 1035 */
BgL_matchz00_11583 = BgL_newzd2matchzd2_11634; } }  else 
{ /* Llib/date.scm 1035 */
 int BgL_curz00_11641;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11642;
if(
INPUT_PORTP(BgL_iportz00_11630))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11642 = BgL_iportz00_11630; }  else 
{ 
 obj_t BgL_auxz00_14641;
BgL_auxz00_14641 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5947z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11630); 
FAILURE(BgL_auxz00_14641,BFALSE,BFALSE);} 
BgL_curz00_11641 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11642, BgL_forwardz00_11632); } 
{ /* Llib/date.scm 1035 */

{ /* Llib/date.scm 1035 */
 bool_t BgL_test6825z00_14646;
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6826z00_14647;
if(
(
(long)(BgL_curz00_11641)==10L))
{ /* Llib/date.scm 1035 */
BgL_test6826z00_14647 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6826z00_14647 = 
(
(long)(BgL_curz00_11641)==9L)
; } 
if(BgL_test6826z00_14647)
{ /* Llib/date.scm 1035 */
BgL_test6825z00_14646 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
if(
(
(long)(BgL_curz00_11641)==13L))
{ /* Llib/date.scm 1035 */
BgL_test6825z00_14646 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1035 */
BgL_test6825z00_14646 = 
(
(long)(BgL_curz00_11641)==32L)
; } } } 
if(BgL_test6825z00_14646)
{ 
 long BgL_forwardz00_14659; long BgL_lastzd2matchzd2_14658;
BgL_lastzd2matchzd2_14658 = BgL_newzd2matchzd2_11634; 
BgL_forwardz00_14659 = 
(1L+BgL_forwardz00_11632); 
BgL_forwardz00_11632 = BgL_forwardz00_14659; 
BgL_lastzd2matchzd2_11631 = BgL_lastzd2matchzd2_14658; 
goto BgL_statezd27zd21183z00_11579;}  else 
{ /* Llib/date.scm 1035 */
BgL_matchz00_11583 = BgL_newzd2matchzd2_11634; } } } } } }  else 
{ /* Llib/date.scm 1035 */
BgL_matchz00_11583 = BgL_newzd2matchzd2_11647; } } } } } }  else 
{ /* Llib/date.scm 1035 */
 long BgL_arg1899z00_11667;
BgL_arg1899z00_11667 = 
(1L+BgL_forwardz00_11658); 
{ /* Llib/date.scm 1035 */
 long BgL_newzd2matchzd2_11668;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11669;
if(
INPUT_PORTP(BgL_iportz00_11656))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11669 = BgL_iportz00_11656; }  else 
{ 
 obj_t BgL_auxz00_14666;
BgL_auxz00_14666 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5949z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11656); 
FAILURE(BgL_auxz00_14666,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11669, BgL_arg1899z00_11667); } 
BgL_newzd2matchzd2_11668 = 2L; 
BgL_matchz00_11583 = BgL_newzd2matchzd2_11668; } } } } } } } 
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11588;
if(
INPUT_PORTP(BgL_iportz00_9771))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11588 = BgL_iportz00_9771; }  else 
{ 
 obj_t BgL_auxz00_14673;
BgL_auxz00_14673 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9771); 
FAILURE(BgL_auxz00_14673,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_11588); } 
switch( BgL_matchz00_11583) { case 2L : 

{ /* Llib/date.scm 1057 */
 obj_t BgL_arg2060z00_11589; obj_t BgL_arg2061z00_11590;
{ /* Llib/date.scm 1035 */
 bool_t BgL_test6831z00_14678;
{ /* Llib/date.scm 1035 */
 long BgL_arg2053z00_11600;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11601;
if(
INPUT_PORTP(BgL_iportz00_9771))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11601 = BgL_iportz00_9771; }  else 
{ 
 obj_t BgL_auxz00_14681;
BgL_auxz00_14681 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5884z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9771); 
FAILURE(BgL_auxz00_14681,BFALSE,BFALSE);} 
BgL_arg2053z00_11600 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_11601); } 
BgL_test6831z00_14678 = 
(BgL_arg2053z00_11600==0L); } 
if(BgL_test6831z00_14678)
{ /* Llib/date.scm 1035 */
BgL_arg2060z00_11589 = BEOF; }  else 
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11602;
if(
INPUT_PORTP(BgL_iportz00_9771))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11602 = BgL_iportz00_9771; }  else 
{ 
 obj_t BgL_auxz00_14689;
BgL_auxz00_14689 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5884z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9771); 
FAILURE(BgL_auxz00_14689,BFALSE,BFALSE);} 
BgL_arg2060z00_11589 = 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_11602)); } } 
{ /* Llib/date.scm 1057 */
 obj_t BgL_res4738z00_11591;
if(
INPUT_PORTP(BgL_iportz00_9771))
{ /* Llib/date.scm 1035 */
BgL_res4738z00_11591 = BgL_iportz00_9771; }  else 
{ 
 obj_t BgL_auxz00_14697;
BgL_auxz00_14697 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9771); 
FAILURE(BgL_auxz00_14697,BFALSE,BFALSE);} 
BgL_arg2061z00_11590 = BgL_res4738z00_11591; } 
return 
BGl_parsezd2errorzd2zz__datez00(BGl_string5879z00zz__datez00, BGl_string5920z00zz__datez00, BgL_arg2060z00_11589, BgL_arg2061z00_11590);} break;case 1L : 

{ /* Llib/date.scm 1039 */
 obj_t BgL_casezd2valuezd2_11592;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11593;
if(
INPUT_PORTP(BgL_iportz00_9771))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11593 = BgL_iportz00_9771; }  else 
{ 
 obj_t BgL_auxz00_14704;
BgL_auxz00_14704 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9771); 
FAILURE(BgL_auxz00_14704,BFALSE,BFALSE);} 
BgL_casezd2valuezd2_11592 = 
rgc_buffer_symbol(BgL_inputzd2portzd2_11593); } 
if(
(BgL_casezd2valuezd2_11592==BGl_symbol5921z00zz__datez00))
{ /* Llib/date.scm 1039 */
return 
BINT(1L);}  else 
{ /* Llib/date.scm 1039 */
if(
(BgL_casezd2valuezd2_11592==BGl_symbol5923z00zz__datez00))
{ /* Llib/date.scm 1039 */
return 
BINT(2L);}  else 
{ /* Llib/date.scm 1039 */
if(
(BgL_casezd2valuezd2_11592==BGl_symbol5925z00zz__datez00))
{ /* Llib/date.scm 1039 */
return 
BINT(3L);}  else 
{ /* Llib/date.scm 1039 */
if(
(BgL_casezd2valuezd2_11592==BGl_symbol5927z00zz__datez00))
{ /* Llib/date.scm 1039 */
return 
BINT(4L);}  else 
{ /* Llib/date.scm 1039 */
if(
(BgL_casezd2valuezd2_11592==BGl_symbol5929z00zz__datez00))
{ /* Llib/date.scm 1039 */
return 
BINT(5L);}  else 
{ /* Llib/date.scm 1039 */
if(
(BgL_casezd2valuezd2_11592==BGl_symbol5931z00zz__datez00))
{ /* Llib/date.scm 1039 */
return 
BINT(6L);}  else 
{ /* Llib/date.scm 1039 */
if(
(BgL_casezd2valuezd2_11592==BGl_symbol5933z00zz__datez00))
{ /* Llib/date.scm 1039 */
return 
BINT(7L);}  else 
{ /* Llib/date.scm 1039 */
if(
(BgL_casezd2valuezd2_11592==BGl_symbol5935z00zz__datez00))
{ /* Llib/date.scm 1039 */
return 
BINT(8L);}  else 
{ /* Llib/date.scm 1039 */
if(
(BgL_casezd2valuezd2_11592==BGl_symbol5937z00zz__datez00))
{ /* Llib/date.scm 1039 */
return 
BINT(9L);}  else 
{ /* Llib/date.scm 1039 */
if(
(BgL_casezd2valuezd2_11592==BGl_symbol5939z00zz__datez00))
{ /* Llib/date.scm 1039 */
return 
BINT(10L);}  else 
{ /* Llib/date.scm 1039 */
if(
(BgL_casezd2valuezd2_11592==BGl_symbol5941z00zz__datez00))
{ /* Llib/date.scm 1039 */
return 
BINT(11L);}  else 
{ /* Llib/date.scm 1039 */
if(
(BgL_casezd2valuezd2_11592==BGl_symbol5943z00zz__datez00))
{ /* Llib/date.scm 1039 */
return 
BINT(12L);}  else 
{ /* Llib/date.scm 1054 */
 obj_t BgL_arg2074z00_11594; obj_t BgL_arg2075z00_11595;
{ /* Llib/date.scm 1035 */
 long BgL_arg1970z00_11596;
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11597;
if(
INPUT_PORTP(BgL_iportz00_9771))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11597 = BgL_iportz00_9771; }  else 
{ 
 obj_t BgL_auxz00_14747;
BgL_auxz00_14747 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9771); 
FAILURE(BgL_auxz00_14747,BFALSE,BFALSE);} 
BgL_arg1970z00_11596 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_11597); } 
{ /* Llib/date.scm 1035 */
 obj_t BgL_inputzd2portzd2_11598;
if(
INPUT_PORTP(BgL_iportz00_9771))
{ /* Llib/date.scm 1035 */
BgL_inputzd2portzd2_11598 = BgL_iportz00_9771; }  else 
{ 
 obj_t BgL_auxz00_14754;
BgL_auxz00_14754 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9771); 
FAILURE(BgL_auxz00_14754,BFALSE,BFALSE);} 
BgL_arg2074z00_11594 = 
rgc_buffer_substring(BgL_inputzd2portzd2_11598, 0L, BgL_arg1970z00_11596); } } 
{ /* Llib/date.scm 1054 */
 obj_t BgL_res4739z00_11599;
if(
INPUT_PORTP(BgL_iportz00_9771))
{ /* Llib/date.scm 1035 */
BgL_res4739z00_11599 = BgL_iportz00_9771; }  else 
{ 
 obj_t BgL_auxz00_14761;
BgL_auxz00_14761 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(43080L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9771); 
FAILURE(BgL_auxz00_14761,BFALSE,BFALSE);} 
BgL_arg2075z00_11595 = BgL_res4739z00_11599; } 
return 
BGl_parsezd2errorzd2zz__datez00(BGl_string5879z00zz__datez00, BGl_string5920z00zz__datez00, BgL_arg2074z00_11594, BgL_arg2075z00_11595);} } } } } } } } } } } } } break;case 0L : 

goto BgL_ignorez00_11575;break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string5882z00zz__datez00, BGl_string5883z00zz__datez00, 
BINT(BgL_matchz00_11583));} } } } } } 

}



/* &<@anonymous:1710> */
obj_t BGl_z62zc3z04anonymousza31710ze3ze5zz__datez00(obj_t BgL_envz00_9772, obj_t BgL_iportz00_9773)
{
{ /* Llib/date.scm 1021 */
{ 
 obj_t BgL_iportz00_11753; long BgL_lastzd2matchzd2_11754; long BgL_forwardz00_11755; long BgL_bufposz00_11756; obj_t BgL_iportz00_11740; long BgL_lastzd2matchzd2_11741; long BgL_forwardz00_11742; long BgL_bufposz00_11743; obj_t BgL_iportz00_11727; long BgL_lastzd2matchzd2_11728; long BgL_forwardz00_11729; long BgL_bufposz00_11730; obj_t BgL_iportz00_11714; long BgL_lastzd2matchzd2_11715; long BgL_forwardz00_11716; long BgL_bufposz00_11717; obj_t BgL_iportz00_11701; long BgL_lastzd2matchzd2_11702; long BgL_forwardz00_11703; long BgL_bufposz00_11704;
{ /* Llib/date.scm 1021 */
 bool_t BgL_test6851z00_14769;
{ /* Llib/date.scm 1021 */
 obj_t BgL_arg1716z00_11767;
{ /* Llib/date.scm 1021 */
 obj_t BgL_res4736z00_11768;
if(
INPUT_PORTP(BgL_iportz00_9773))
{ /* Llib/date.scm 1021 */
BgL_res4736z00_11768 = BgL_iportz00_9773; }  else 
{ 
 obj_t BgL_auxz00_14772;
BgL_auxz00_14772 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5957z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9773); 
FAILURE(BgL_auxz00_14772,BFALSE,BFALSE);} 
BgL_arg1716z00_11767 = BgL_res4736z00_11768; } 
BgL_test6851z00_14769 = 
INPUT_PORT_CLOSEP(BgL_arg1716z00_11767); } 
if(BgL_test6851z00_14769)
{ /* Llib/date.scm 1021 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg1711z00_11769;
{ /* Llib/date.scm 1021 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1078z00_11770;
{ /* Llib/date.scm 1021 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1077z00_11771;
BgL_new1077z00_11771 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Llib/date.scm 1021 */
 long BgL_arg1715z00_11772;
BgL_arg1715z00_11772 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1077z00_11771), BgL_arg1715z00_11772); } 
BgL_new1078z00_11770 = BgL_new1077z00_11771; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_11770)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_11770)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_14785;
{ /* Llib/date.scm 1021 */
 obj_t BgL_arg1712z00_11773;
{ /* Llib/date.scm 1021 */
 obj_t BgL_arg1714z00_11774;
{ /* Llib/date.scm 1021 */
 obj_t BgL_classz00_11775;
BgL_classz00_11775 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg1714z00_11774 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_11775); } 
BgL_arg1712z00_11773 = 
VECTOR_REF(BgL_arg1714z00_11774,2L); } 
{ /* Llib/date.scm 1021 */
 obj_t BgL_auxz00_14789;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg1712z00_11773))
{ /* Llib/date.scm 1021 */
BgL_auxz00_14789 = BgL_arg1712z00_11773
; }  else 
{ 
 obj_t BgL_auxz00_14792;
BgL_auxz00_14792 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5957z00zz__datez00, BGl_string5899z00zz__datez00, BgL_arg1712z00_11773); 
FAILURE(BgL_auxz00_14792,BFALSE,BFALSE);} 
BgL_auxz00_14785 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_14789); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_11770)))->BgL_stackz00)=((obj_t)BgL_auxz00_14785),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_11770)))->BgL_procz00)=((obj_t)BGl_string5882z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_11770)))->BgL_msgz00)=((obj_t)BGl_string5900z00zz__datez00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_14802;
{ /* Llib/date.scm 1021 */
 obj_t BgL_res4737z00_11776;
if(
INPUT_PORTP(BgL_iportz00_9773))
{ /* Llib/date.scm 1021 */
BgL_res4737z00_11776 = BgL_iportz00_9773; }  else 
{ 
 obj_t BgL_auxz00_14806;
BgL_auxz00_14806 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5957z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9773); 
FAILURE(BgL_auxz00_14806,BFALSE,BFALSE);} 
BgL_auxz00_14802 = BgL_res4737z00_11776; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_11770)))->BgL_objz00)=((obj_t)BgL_auxz00_14802),BUNSPEC); } 
BgL_arg1711z00_11769 = BgL_new1078z00_11770; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1711z00_11769));}  else 
{ /* Llib/date.scm 1021 */
BgL_ignorez00_11680:
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11687;
if(
INPUT_PORTP(BgL_iportz00_9773))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11687 = BgL_iportz00_9773; }  else 
{ 
 obj_t BgL_auxz00_14815;
BgL_auxz00_14815 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9773); 
FAILURE(BgL_auxz00_14815,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_11687); } 
{ /* Llib/date.scm 1021 */
 long BgL_matchz00_11688;
{ /* Llib/date.scm 1021 */
 long BgL_arg1867z00_11689; long BgL_arg1868z00_11690;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11691;
if(
INPUT_PORTP(BgL_iportz00_9773))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11691 = BgL_iportz00_9773; }  else 
{ 
 obj_t BgL_auxz00_14822;
BgL_auxz00_14822 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9773); 
FAILURE(BgL_auxz00_14822,BFALSE,BFALSE);} 
BgL_arg1867z00_11689 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11691); } 
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11692;
if(
INPUT_PORTP(BgL_iportz00_9773))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11692 = BgL_iportz00_9773; }  else 
{ 
 obj_t BgL_auxz00_14829;
BgL_auxz00_14829 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9773); 
FAILURE(BgL_auxz00_14829,BFALSE,BFALSE);} 
BgL_arg1868z00_11690 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11692); } 
BgL_iportz00_11753 = BgL_iportz00_9773; 
BgL_lastzd2matchzd2_11754 = 2L; 
BgL_forwardz00_11755 = BgL_arg1867z00_11689; 
BgL_bufposz00_11756 = BgL_arg1868z00_11690; 
BgL_statezd20zd21167z00_11686:
if(
(BgL_forwardz00_11755==BgL_bufposz00_11756))
{ /* Llib/date.scm 1021 */
 bool_t BgL_test6859z00_14836;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11757;
if(
INPUT_PORTP(BgL_iportz00_11753))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11757 = BgL_iportz00_11753; }  else 
{ 
 obj_t BgL_auxz00_14839;
BgL_auxz00_14839 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5956z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11753); 
FAILURE(BgL_auxz00_14839,BFALSE,BFALSE);} 
BgL_test6859z00_14836 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11757); } 
if(BgL_test6859z00_14836)
{ /* Llib/date.scm 1021 */
 long BgL_arg1720z00_11758; long BgL_arg1721z00_11759;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11760;
if(
INPUT_PORTP(BgL_iportz00_11753))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11760 = BgL_iportz00_11753; }  else 
{ 
 obj_t BgL_auxz00_14846;
BgL_auxz00_14846 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5956z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11753); 
FAILURE(BgL_auxz00_14846,BFALSE,BFALSE);} 
BgL_arg1720z00_11758 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11760); } 
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11761;
if(
INPUT_PORTP(BgL_iportz00_11753))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11761 = BgL_iportz00_11753; }  else 
{ 
 obj_t BgL_auxz00_14853;
BgL_auxz00_14853 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5956z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11753); 
FAILURE(BgL_auxz00_14853,BFALSE,BFALSE);} 
BgL_arg1721z00_11759 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11761); } 
{ 
 long BgL_bufposz00_14859; long BgL_forwardz00_14858;
BgL_forwardz00_14858 = BgL_arg1720z00_11758; 
BgL_bufposz00_14859 = BgL_arg1721z00_11759; 
BgL_bufposz00_11756 = BgL_bufposz00_14859; 
BgL_forwardz00_11755 = BgL_forwardz00_14858; 
goto BgL_statezd20zd21167z00_11686;} }  else 
{ /* Llib/date.scm 1021 */
BgL_matchz00_11688 = BgL_lastzd2matchzd2_11754; } }  else 
{ /* Llib/date.scm 1021 */
 int BgL_curz00_11762;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11763;
if(
INPUT_PORTP(BgL_iportz00_11753))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11763 = BgL_iportz00_11753; }  else 
{ 
 obj_t BgL_auxz00_14862;
BgL_auxz00_14862 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5956z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11753); 
FAILURE(BgL_auxz00_14862,BFALSE,BFALSE);} 
BgL_curz00_11762 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11763, BgL_forwardz00_11755); } 
{ /* Llib/date.scm 1021 */

{ /* Llib/date.scm 1021 */
 bool_t BgL_test6864z00_14867;
if(
(
(long)(BgL_curz00_11762)>=48L))
{ /* Llib/date.scm 1021 */
BgL_test6864z00_14867 = 
(
(long)(BgL_curz00_11762)<58L)
; }  else 
{ /* Llib/date.scm 1021 */
BgL_test6864z00_14867 = ((bool_t)0)
; } 
if(BgL_test6864z00_14867)
{ /* Llib/date.scm 1021 */
BgL_iportz00_11727 = BgL_iportz00_11753; 
BgL_lastzd2matchzd2_11728 = BgL_lastzd2matchzd2_11754; 
BgL_forwardz00_11729 = 
(1L+BgL_forwardz00_11755); 
BgL_bufposz00_11730 = BgL_bufposz00_11756; 
BgL_statezd23zd21170z00_11684:
{ /* Llib/date.scm 1021 */
 long BgL_newzd2matchzd2_11731;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11732;
if(
INPUT_PORTP(BgL_iportz00_11727))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11732 = BgL_iportz00_11727; }  else 
{ 
 obj_t BgL_auxz00_14875;
BgL_auxz00_14875 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5954z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11727); 
FAILURE(BgL_auxz00_14875,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11732, BgL_forwardz00_11729); } 
BgL_newzd2matchzd2_11731 = 1L; 
if(
(BgL_forwardz00_11729==BgL_bufposz00_11730))
{ /* Llib/date.scm 1021 */
 bool_t BgL_test6868z00_14882;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11733;
if(
INPUT_PORTP(BgL_iportz00_11727))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11733 = BgL_iportz00_11727; }  else 
{ 
 obj_t BgL_auxz00_14885;
BgL_auxz00_14885 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5954z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11727); 
FAILURE(BgL_auxz00_14885,BFALSE,BFALSE);} 
BgL_test6868z00_14882 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11733); } 
if(BgL_test6868z00_14882)
{ /* Llib/date.scm 1021 */
 long BgL_arg1748z00_11734; long BgL_arg1749z00_11735;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11736;
if(
INPUT_PORTP(BgL_iportz00_11727))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11736 = BgL_iportz00_11727; }  else 
{ 
 obj_t BgL_auxz00_14892;
BgL_auxz00_14892 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5954z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11727); 
FAILURE(BgL_auxz00_14892,BFALSE,BFALSE);} 
BgL_arg1748z00_11734 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11736); } 
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11737;
if(
INPUT_PORTP(BgL_iportz00_11727))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11737 = BgL_iportz00_11727; }  else 
{ 
 obj_t BgL_auxz00_14899;
BgL_auxz00_14899 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5954z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11727); 
FAILURE(BgL_auxz00_14899,BFALSE,BFALSE);} 
BgL_arg1749z00_11735 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11737); } 
{ 
 long BgL_bufposz00_14905; long BgL_forwardz00_14904;
BgL_forwardz00_14904 = BgL_arg1748z00_11734; 
BgL_bufposz00_14905 = BgL_arg1749z00_11735; 
BgL_bufposz00_11730 = BgL_bufposz00_14905; 
BgL_forwardz00_11729 = BgL_forwardz00_14904; 
goto BgL_statezd23zd21170z00_11684;} }  else 
{ /* Llib/date.scm 1021 */
BgL_matchz00_11688 = BgL_newzd2matchzd2_11731; } }  else 
{ /* Llib/date.scm 1021 */
 int BgL_curz00_11738;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11739;
if(
INPUT_PORTP(BgL_iportz00_11727))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11739 = BgL_iportz00_11727; }  else 
{ 
 obj_t BgL_auxz00_14908;
BgL_auxz00_14908 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5954z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11727); 
FAILURE(BgL_auxz00_14908,BFALSE,BFALSE);} 
BgL_curz00_11738 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11739, BgL_forwardz00_11729); } 
{ /* Llib/date.scm 1021 */

{ /* Llib/date.scm 1021 */
 bool_t BgL_test6873z00_14913;
if(
(
(long)(BgL_curz00_11738)>=48L))
{ /* Llib/date.scm 1021 */
BgL_test6873z00_14913 = 
(
(long)(BgL_curz00_11738)<58L)
; }  else 
{ /* Llib/date.scm 1021 */
BgL_test6873z00_14913 = ((bool_t)0)
; } 
if(BgL_test6873z00_14913)
{ /* Llib/date.scm 1021 */
BgL_iportz00_11714 = BgL_iportz00_11727; 
BgL_lastzd2matchzd2_11715 = BgL_newzd2matchzd2_11731; 
BgL_forwardz00_11716 = 
(1L+BgL_forwardz00_11729); 
BgL_bufposz00_11717 = BgL_bufposz00_11730; 
BgL_statezd24zd21171z00_11683:
{ /* Llib/date.scm 1021 */
 long BgL_newzd2matchzd2_11718;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11719;
if(
INPUT_PORTP(BgL_iportz00_11714))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11719 = BgL_iportz00_11714; }  else 
{ 
 obj_t BgL_auxz00_14921;
BgL_auxz00_14921 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5953z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11714); 
FAILURE(BgL_auxz00_14921,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11719, BgL_forwardz00_11716); } 
BgL_newzd2matchzd2_11718 = 1L; 
if(
(BgL_forwardz00_11716==BgL_bufposz00_11717))
{ /* Llib/date.scm 1021 */
 bool_t BgL_test6877z00_14928;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11720;
if(
INPUT_PORTP(BgL_iportz00_11714))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11720 = BgL_iportz00_11714; }  else 
{ 
 obj_t BgL_auxz00_14931;
BgL_auxz00_14931 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5953z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11714); 
FAILURE(BgL_auxz00_14931,BFALSE,BFALSE);} 
BgL_test6877z00_14928 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11720); } 
if(BgL_test6877z00_14928)
{ /* Llib/date.scm 1021 */
 long BgL_arg1758z00_11721; long BgL_arg1759z00_11722;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11723;
if(
INPUT_PORTP(BgL_iportz00_11714))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11723 = BgL_iportz00_11714; }  else 
{ 
 obj_t BgL_auxz00_14938;
BgL_auxz00_14938 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5953z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11714); 
FAILURE(BgL_auxz00_14938,BFALSE,BFALSE);} 
BgL_arg1758z00_11721 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11723); } 
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11724;
if(
INPUT_PORTP(BgL_iportz00_11714))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11724 = BgL_iportz00_11714; }  else 
{ 
 obj_t BgL_auxz00_14945;
BgL_auxz00_14945 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5953z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11714); 
FAILURE(BgL_auxz00_14945,BFALSE,BFALSE);} 
BgL_arg1759z00_11722 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11724); } 
{ 
 long BgL_bufposz00_14951; long BgL_forwardz00_14950;
BgL_forwardz00_14950 = BgL_arg1758z00_11721; 
BgL_bufposz00_14951 = BgL_arg1759z00_11722; 
BgL_bufposz00_11717 = BgL_bufposz00_14951; 
BgL_forwardz00_11716 = BgL_forwardz00_14950; 
goto BgL_statezd24zd21171z00_11683;} }  else 
{ /* Llib/date.scm 1021 */
BgL_matchz00_11688 = BgL_newzd2matchzd2_11718; } }  else 
{ /* Llib/date.scm 1021 */
 int BgL_curz00_11725;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11726;
if(
INPUT_PORTP(BgL_iportz00_11714))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11726 = BgL_iportz00_11714; }  else 
{ 
 obj_t BgL_auxz00_14954;
BgL_auxz00_14954 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5953z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11714); 
FAILURE(BgL_auxz00_14954,BFALSE,BFALSE);} 
BgL_curz00_11725 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11726, BgL_forwardz00_11716); } 
{ /* Llib/date.scm 1021 */

{ /* Llib/date.scm 1021 */
 bool_t BgL_test6882z00_14959;
if(
(
(long)(BgL_curz00_11725)>=48L))
{ /* Llib/date.scm 1021 */
BgL_test6882z00_14959 = 
(
(long)(BgL_curz00_11725)<58L)
; }  else 
{ /* Llib/date.scm 1021 */
BgL_test6882z00_14959 = ((bool_t)0)
; } 
if(BgL_test6882z00_14959)
{ 
 long BgL_forwardz00_14966; long BgL_lastzd2matchzd2_14965;
BgL_lastzd2matchzd2_14965 = BgL_newzd2matchzd2_11718; 
BgL_forwardz00_14966 = 
(1L+BgL_forwardz00_11716); 
BgL_forwardz00_11716 = BgL_forwardz00_14966; 
BgL_lastzd2matchzd2_11715 = BgL_lastzd2matchzd2_14965; 
goto BgL_statezd24zd21171z00_11683;}  else 
{ /* Llib/date.scm 1021 */
BgL_matchz00_11688 = BgL_newzd2matchzd2_11718; } } } } } }  else 
{ /* Llib/date.scm 1021 */
BgL_matchz00_11688 = BgL_newzd2matchzd2_11731; } } } } } }  else 
{ /* Llib/date.scm 1021 */
 bool_t BgL_test6884z00_14970;
{ /* Llib/date.scm 1021 */
 bool_t BgL_test6885z00_14971;
if(
(
(long)(BgL_curz00_11762)==10L))
{ /* Llib/date.scm 1021 */
BgL_test6885z00_14971 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1021 */
BgL_test6885z00_14971 = 
(
(long)(BgL_curz00_11762)==9L)
; } 
if(BgL_test6885z00_14971)
{ /* Llib/date.scm 1021 */
BgL_test6884z00_14970 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1021 */
if(
(
(long)(BgL_curz00_11762)==13L))
{ /* Llib/date.scm 1021 */
BgL_test6884z00_14970 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1021 */
BgL_test6884z00_14970 = 
(
(long)(BgL_curz00_11762)==32L)
; } } } 
if(BgL_test6884z00_14970)
{ /* Llib/date.scm 1021 */
BgL_iportz00_11740 = BgL_iportz00_11753; 
BgL_lastzd2matchzd2_11741 = BgL_lastzd2matchzd2_11754; 
BgL_forwardz00_11742 = 
(1L+BgL_forwardz00_11755); 
BgL_bufposz00_11743 = BgL_bufposz00_11756; 
BgL_statezd22zd21169z00_11685:
{ /* Llib/date.scm 1021 */
 long BgL_newzd2matchzd2_11744;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11745;
if(
INPUT_PORTP(BgL_iportz00_11740))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11745 = BgL_iportz00_11740; }  else 
{ 
 obj_t BgL_auxz00_14984;
BgL_auxz00_14984 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5955z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11740); 
FAILURE(BgL_auxz00_14984,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11745, BgL_forwardz00_11742); } 
BgL_newzd2matchzd2_11744 = 0L; 
if(
(BgL_forwardz00_11742==BgL_bufposz00_11743))
{ /* Llib/date.scm 1021 */
 bool_t BgL_test6890z00_14991;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11746;
if(
INPUT_PORTP(BgL_iportz00_11740))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11746 = BgL_iportz00_11740; }  else 
{ 
 obj_t BgL_auxz00_14994;
BgL_auxz00_14994 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5955z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11740); 
FAILURE(BgL_auxz00_14994,BFALSE,BFALSE);} 
BgL_test6890z00_14991 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11746); } 
if(BgL_test6890z00_14991)
{ /* Llib/date.scm 1021 */
 long BgL_arg1735z00_11747; long BgL_arg1739z00_11748;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11749;
if(
INPUT_PORTP(BgL_iportz00_11740))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11749 = BgL_iportz00_11740; }  else 
{ 
 obj_t BgL_auxz00_15001;
BgL_auxz00_15001 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5955z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11740); 
FAILURE(BgL_auxz00_15001,BFALSE,BFALSE);} 
BgL_arg1735z00_11747 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11749); } 
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11750;
if(
INPUT_PORTP(BgL_iportz00_11740))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11750 = BgL_iportz00_11740; }  else 
{ 
 obj_t BgL_auxz00_15008;
BgL_auxz00_15008 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5955z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11740); 
FAILURE(BgL_auxz00_15008,BFALSE,BFALSE);} 
BgL_arg1739z00_11748 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11750); } 
{ 
 long BgL_bufposz00_15014; long BgL_forwardz00_15013;
BgL_forwardz00_15013 = BgL_arg1735z00_11747; 
BgL_bufposz00_15014 = BgL_arg1739z00_11748; 
BgL_bufposz00_11743 = BgL_bufposz00_15014; 
BgL_forwardz00_11742 = BgL_forwardz00_15013; 
goto BgL_statezd22zd21169z00_11685;} }  else 
{ /* Llib/date.scm 1021 */
BgL_matchz00_11688 = BgL_newzd2matchzd2_11744; } }  else 
{ /* Llib/date.scm 1021 */
 int BgL_curz00_11751;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11752;
if(
INPUT_PORTP(BgL_iportz00_11740))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11752 = BgL_iportz00_11740; }  else 
{ 
 obj_t BgL_auxz00_15017;
BgL_auxz00_15017 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5955z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11740); 
FAILURE(BgL_auxz00_15017,BFALSE,BFALSE);} 
BgL_curz00_11751 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11752, BgL_forwardz00_11742); } 
{ /* Llib/date.scm 1021 */

{ /* Llib/date.scm 1021 */
 bool_t BgL_test6895z00_15022;
{ /* Llib/date.scm 1021 */
 bool_t BgL_test6896z00_15023;
if(
(
(long)(BgL_curz00_11751)==10L))
{ /* Llib/date.scm 1021 */
BgL_test6896z00_15023 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1021 */
BgL_test6896z00_15023 = 
(
(long)(BgL_curz00_11751)==9L)
; } 
if(BgL_test6896z00_15023)
{ /* Llib/date.scm 1021 */
BgL_test6895z00_15022 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1021 */
if(
(
(long)(BgL_curz00_11751)==13L))
{ /* Llib/date.scm 1021 */
BgL_test6895z00_15022 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1021 */
BgL_test6895z00_15022 = 
(
(long)(BgL_curz00_11751)==32L)
; } } } 
if(BgL_test6895z00_15022)
{ /* Llib/date.scm 1021 */
BgL_iportz00_11701 = BgL_iportz00_11740; 
BgL_lastzd2matchzd2_11702 = BgL_newzd2matchzd2_11744; 
BgL_forwardz00_11703 = 
(1L+BgL_forwardz00_11742); 
BgL_bufposz00_11704 = BgL_bufposz00_11743; 
BgL_statezd26zd21173z00_11682:
{ /* Llib/date.scm 1021 */
 long BgL_newzd2matchzd2_11705;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11706;
if(
INPUT_PORTP(BgL_iportz00_11701))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11706 = BgL_iportz00_11701; }  else 
{ 
 obj_t BgL_auxz00_15036;
BgL_auxz00_15036 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5952z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11701); 
FAILURE(BgL_auxz00_15036,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11706, BgL_forwardz00_11703); } 
BgL_newzd2matchzd2_11705 = 0L; 
if(
(BgL_forwardz00_11703==BgL_bufposz00_11704))
{ /* Llib/date.scm 1021 */
 bool_t BgL_test6901z00_15043;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11707;
if(
INPUT_PORTP(BgL_iportz00_11701))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11707 = BgL_iportz00_11701; }  else 
{ 
 obj_t BgL_auxz00_15046;
BgL_auxz00_15046 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5952z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11701); 
FAILURE(BgL_auxz00_15046,BFALSE,BFALSE);} 
BgL_test6901z00_15043 = 
rgc_fill_buffer(BgL_inputzd2portzd2_11707); } 
if(BgL_test6901z00_15043)
{ /* Llib/date.scm 1021 */
 long BgL_arg1766z00_11708; long BgL_arg1767z00_11709;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11710;
if(
INPUT_PORTP(BgL_iportz00_11701))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11710 = BgL_iportz00_11701; }  else 
{ 
 obj_t BgL_auxz00_15053;
BgL_auxz00_15053 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5952z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11701); 
FAILURE(BgL_auxz00_15053,BFALSE,BFALSE);} 
BgL_arg1766z00_11708 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_11710); } 
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11711;
if(
INPUT_PORTP(BgL_iportz00_11701))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11711 = BgL_iportz00_11701; }  else 
{ 
 obj_t BgL_auxz00_15060;
BgL_auxz00_15060 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5952z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11701); 
FAILURE(BgL_auxz00_15060,BFALSE,BFALSE);} 
BgL_arg1767z00_11709 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_11711); } 
{ 
 long BgL_bufposz00_15066; long BgL_forwardz00_15065;
BgL_forwardz00_15065 = BgL_arg1766z00_11708; 
BgL_bufposz00_15066 = BgL_arg1767z00_11709; 
BgL_bufposz00_11704 = BgL_bufposz00_15066; 
BgL_forwardz00_11703 = BgL_forwardz00_15065; 
goto BgL_statezd26zd21173z00_11682;} }  else 
{ /* Llib/date.scm 1021 */
BgL_matchz00_11688 = BgL_newzd2matchzd2_11705; } }  else 
{ /* Llib/date.scm 1021 */
 int BgL_curz00_11712;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11713;
if(
INPUT_PORTP(BgL_iportz00_11701))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11713 = BgL_iportz00_11701; }  else 
{ 
 obj_t BgL_auxz00_15069;
BgL_auxz00_15069 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5952z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11701); 
FAILURE(BgL_auxz00_15069,BFALSE,BFALSE);} 
BgL_curz00_11712 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_11713, BgL_forwardz00_11703); } 
{ /* Llib/date.scm 1021 */

{ /* Llib/date.scm 1021 */
 bool_t BgL_test6906z00_15074;
{ /* Llib/date.scm 1021 */
 bool_t BgL_test6907z00_15075;
if(
(
(long)(BgL_curz00_11712)==10L))
{ /* Llib/date.scm 1021 */
BgL_test6907z00_15075 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1021 */
BgL_test6907z00_15075 = 
(
(long)(BgL_curz00_11712)==9L)
; } 
if(BgL_test6907z00_15075)
{ /* Llib/date.scm 1021 */
BgL_test6906z00_15074 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1021 */
if(
(
(long)(BgL_curz00_11712)==13L))
{ /* Llib/date.scm 1021 */
BgL_test6906z00_15074 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 1021 */
BgL_test6906z00_15074 = 
(
(long)(BgL_curz00_11712)==32L)
; } } } 
if(BgL_test6906z00_15074)
{ 
 long BgL_forwardz00_15087; long BgL_lastzd2matchzd2_15086;
BgL_lastzd2matchzd2_15086 = BgL_newzd2matchzd2_11705; 
BgL_forwardz00_15087 = 
(1L+BgL_forwardz00_11703); 
BgL_forwardz00_11703 = BgL_forwardz00_15087; 
BgL_lastzd2matchzd2_11702 = BgL_lastzd2matchzd2_15086; 
goto BgL_statezd26zd21173z00_11682;}  else 
{ /* Llib/date.scm 1021 */
BgL_matchz00_11688 = BgL_newzd2matchzd2_11705; } } } } } }  else 
{ /* Llib/date.scm 1021 */
BgL_matchz00_11688 = BgL_newzd2matchzd2_11744; } } } } } }  else 
{ /* Llib/date.scm 1021 */
 long BgL_arg1730z00_11764;
BgL_arg1730z00_11764 = 
(1L+BgL_forwardz00_11755); 
{ /* Llib/date.scm 1021 */
 long BgL_newzd2matchzd2_11765;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11766;
if(
INPUT_PORTP(BgL_iportz00_11753))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11766 = BgL_iportz00_11753; }  else 
{ 
 obj_t BgL_auxz00_15094;
BgL_auxz00_15094 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5956z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_11753); 
FAILURE(BgL_auxz00_15094,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_11766, BgL_arg1730z00_11764); } 
BgL_newzd2matchzd2_11765 = 2L; 
BgL_matchz00_11688 = BgL_newzd2matchzd2_11765; } } } } } } } 
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11693;
if(
INPUT_PORTP(BgL_iportz00_9773))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11693 = BgL_iportz00_9773; }  else 
{ 
 obj_t BgL_auxz00_15101;
BgL_auxz00_15101 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9773); 
FAILURE(BgL_auxz00_15101,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_11693); } 
switch( BgL_matchz00_11688) { case 2L : 

{ /* Llib/date.scm 1029 */
 obj_t BgL_arg1865z00_11694; obj_t BgL_arg1866z00_11695;
{ /* Llib/date.scm 1021 */
 bool_t BgL_test6912z00_15106;
{ /* Llib/date.scm 1021 */
 long BgL_arg1858z00_11698;
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11699;
if(
INPUT_PORTP(BgL_iportz00_9773))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11699 = BgL_iportz00_9773; }  else 
{ 
 obj_t BgL_auxz00_15109;
BgL_auxz00_15109 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5884z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9773); 
FAILURE(BgL_auxz00_15109,BFALSE,BFALSE);} 
BgL_arg1858z00_11698 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_11699); } 
BgL_test6912z00_15106 = 
(BgL_arg1858z00_11698==0L); } 
if(BgL_test6912z00_15106)
{ /* Llib/date.scm 1021 */
BgL_arg1865z00_11694 = BEOF; }  else 
{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11700;
if(
INPUT_PORTP(BgL_iportz00_9773))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11700 = BgL_iportz00_9773; }  else 
{ 
 obj_t BgL_auxz00_15117;
BgL_auxz00_15117 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5884z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9773); 
FAILURE(BgL_auxz00_15117,BFALSE,BFALSE);} 
BgL_arg1865z00_11694 = 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_11700)); } } 
{ /* Llib/date.scm 1029 */
 obj_t BgL_res4735z00_11696;
if(
INPUT_PORTP(BgL_iportz00_9773))
{ /* Llib/date.scm 1021 */
BgL_res4735z00_11696 = BgL_iportz00_9773; }  else 
{ 
 obj_t BgL_auxz00_15125;
BgL_auxz00_15125 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9773); 
FAILURE(BgL_auxz00_15125,BFALSE,BFALSE);} 
BgL_arg1866z00_11695 = BgL_res4735z00_11696; } 
return 
BGl_parsezd2errorzd2zz__datez00(BGl_string5879z00zz__datez00, BGl_string5951z00zz__datez00, BgL_arg1865z00_11694, BgL_arg1866z00_11695);} break;case 1L : 

{ /* Llib/date.scm 1021 */
 obj_t BgL_inputzd2portzd2_11697;
if(
INPUT_PORTP(BgL_iportz00_9773))
{ /* Llib/date.scm 1021 */
BgL_inputzd2portzd2_11697 = BgL_iportz00_9773; }  else 
{ 
 obj_t BgL_auxz00_15132;
BgL_auxz00_15132 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42604L), BGl_string5877z00zz__datez00, BGl_string5878z00zz__datez00, BgL_iportz00_9773); 
FAILURE(BgL_auxz00_15132,BFALSE,BFALSE);} 
return 
BINT(
rgc_buffer_fixnum(BgL_inputzd2portzd2_11697));} break;case 0L : 

goto BgL_ignorez00_11680;break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string5882z00zz__datez00, BGl_string5883z00zz__datez00, 
BINT(BgL_matchz00_11688));} } } } } } 

}



/* &<@anonymous:1454> */
obj_t BGl_z62zc3z04anonymousza31454ze3ze5zz__datez00(obj_t BgL_envz00_9774, obj_t BgL_iportz00_9775)
{
{ /* Llib/date.scm 979 */
{ 
 obj_t BgL_iportz00_11898; long BgL_lastzd2matchzd2_11899; long BgL_forwardz00_11900; long BgL_bufposz00_11901; obj_t BgL_iportz00_11889; long BgL_lastzd2matchzd2_11890; long BgL_forwardz00_11891; long BgL_bufposz00_11892; obj_t BgL_iportz00_11881; long BgL_lastzd2matchzd2_11882; long BgL_forwardz00_11883; long BgL_bufposz00_11884; obj_t BgL_iportz00_11873; long BgL_lastzd2matchzd2_11874; long BgL_forwardz00_11875; long BgL_bufposz00_11876; obj_t BgL_iportz00_11865; long BgL_lastzd2matchzd2_11866; long BgL_forwardz00_11867; long BgL_bufposz00_11868; obj_t BgL_iportz00_11856; long BgL_lastzd2matchzd2_11857; long BgL_forwardz00_11858; long BgL_bufposz00_11859; obj_t BgL_iportz00_11848; long BgL_lastzd2matchzd2_11849; long BgL_forwardz00_11850; long BgL_bufposz00_11851; obj_t BgL_iportz00_11841; long BgL_lastzd2matchzd2_11842; long BgL_forwardz00_11843; long BgL_bufposz00_11844; obj_t BgL_iportz00_11833; long BgL_lastzd2matchzd2_11834; long BgL_forwardz00_11835; long BgL_bufposz00_11836;
if(
INPUT_PORT_CLOSEP(BgL_iportz00_9775))
{ /* Llib/date.scm 979 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg1457z00_11907;
{ /* Llib/date.scm 979 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1078z00_11908;
{ /* Llib/date.scm 979 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1077z00_11909;
BgL_new1077z00_11909 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Llib/date.scm 979 */
 long BgL_arg1460z00_11910;
BgL_arg1460z00_11910 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1077z00_11909), BgL_arg1460z00_11910); } 
BgL_new1078z00_11908 = BgL_new1077z00_11909; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_11908)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_11908)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_15151;
{ /* Llib/date.scm 979 */
 obj_t BgL_arg1458z00_11911;
{ /* Llib/date.scm 979 */
 obj_t BgL_arg1459z00_11912;
{ /* Llib/date.scm 979 */
 obj_t BgL_classz00_11913;
BgL_classz00_11913 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg1459z00_11912 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_11913); } 
BgL_arg1458z00_11911 = 
VECTOR_REF(BgL_arg1459z00_11912,2L); } 
{ /* Llib/date.scm 979 */
 obj_t BgL_auxz00_15155;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg1458z00_11911))
{ /* Llib/date.scm 979 */
BgL_auxz00_15155 = BgL_arg1458z00_11911
; }  else 
{ 
 obj_t BgL_auxz00_15158;
BgL_auxz00_15158 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41155L), BGl_string5998z00zz__datez00, BGl_string5899z00zz__datez00, BgL_arg1458z00_11911); 
FAILURE(BgL_auxz00_15158,BFALSE,BFALSE);} 
BgL_auxz00_15151 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_15155); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_11908)))->BgL_stackz00)=((obj_t)BgL_auxz00_15151),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_11908)))->BgL_procz00)=((obj_t)BGl_string5882z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_11908)))->BgL_msgz00)=((obj_t)BGl_string5900z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_11908)))->BgL_objz00)=((obj_t)BgL_iportz00_9775),BUNSPEC); 
BgL_arg1457z00_11907 = BgL_new1078z00_11908; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1457z00_11907));}  else 
{ /* Llib/date.scm 979 */
BgL_ignorez00_11778:
RGC_START_MATCH(BgL_iportz00_9775); 
{ /* Llib/date.scm 979 */
 long BgL_matchz00_11789;
{ /* Llib/date.scm 979 */
 long BgL_arg1708z00_11790; long BgL_arg1709z00_11791;
BgL_arg1708z00_11790 = 
RGC_BUFFER_FORWARD(BgL_iportz00_9775); 
BgL_arg1709z00_11791 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_9775); 
BgL_iportz00_11898 = BgL_iportz00_9775; 
BgL_lastzd2matchzd2_11899 = 3L; 
BgL_forwardz00_11900 = BgL_arg1708z00_11790; 
BgL_bufposz00_11901 = BgL_arg1709z00_11791; 
BgL_statezd20zd21151z00_11788:
if(
(BgL_forwardz00_11900==BgL_bufposz00_11901))
{ /* Llib/date.scm 979 */
if(
rgc_fill_buffer(BgL_iportz00_11898))
{ /* Llib/date.scm 979 */
 long BgL_arg1465z00_11902; long BgL_arg1466z00_11903;
BgL_arg1465z00_11902 = 
RGC_BUFFER_FORWARD(BgL_iportz00_11898); 
BgL_arg1466z00_11903 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_11898); 
{ 
 long BgL_bufposz00_15182; long BgL_forwardz00_15181;
BgL_forwardz00_15181 = BgL_arg1465z00_11902; 
BgL_bufposz00_15182 = BgL_arg1466z00_11903; 
BgL_bufposz00_11901 = BgL_bufposz00_15182; 
BgL_forwardz00_11900 = BgL_forwardz00_15181; 
goto BgL_statezd20zd21151z00_11788;} }  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_lastzd2matchzd2_11899; } }  else 
{ /* Llib/date.scm 979 */
 int BgL_curz00_11904;
BgL_curz00_11904 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_11898, BgL_forwardz00_11900); 
{ /* Llib/date.scm 979 */

{ /* Llib/date.scm 979 */
 bool_t BgL_test6921z00_15184;
if(
(
(long)(BgL_curz00_11904)==70L))
{ /* Llib/date.scm 979 */
BgL_test6921z00_15184 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
if(
(
(long)(BgL_curz00_11904)==77L))
{ /* Llib/date.scm 979 */
BgL_test6921z00_15184 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
 bool_t BgL_test6924z00_15191;
if(
(
(long)(BgL_curz00_11904)==84L))
{ /* Llib/date.scm 979 */
BgL_test6924z00_15191 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6924z00_15191 = 
(
(long)(BgL_curz00_11904)==83L)
; } 
if(BgL_test6924z00_15191)
{ /* Llib/date.scm 979 */
BgL_test6921z00_15184 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6921z00_15184 = 
(
(long)(BgL_curz00_11904)==87L)
; } } } 
if(BgL_test6921z00_15184)
{ /* Llib/date.scm 979 */
BgL_iportz00_11856 = BgL_iportz00_11898; 
BgL_lastzd2matchzd2_11857 = BgL_lastzd2matchzd2_11899; 
BgL_forwardz00_11858 = 
(1L+BgL_forwardz00_11900); 
BgL_bufposz00_11859 = BgL_bufposz00_11901; 
BgL_statezd24zd21155z00_11783:
{ /* Llib/date.scm 979 */
 long BgL_newzd2matchzd2_11860;
RGC_STOP_MATCH(BgL_iportz00_11856, BgL_forwardz00_11858); 
BgL_newzd2matchzd2_11860 = 3L; 
if(
(BgL_forwardz00_11858==BgL_bufposz00_11859))
{ /* Llib/date.scm 979 */
if(
rgc_fill_buffer(BgL_iportz00_11856))
{ /* Llib/date.scm 979 */
 long BgL_arg1537z00_11861; long BgL_arg1538z00_11862;
BgL_arg1537z00_11861 = 
RGC_BUFFER_FORWARD(BgL_iportz00_11856); 
BgL_arg1538z00_11862 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_11856); 
{ 
 long BgL_bufposz00_15207; long BgL_forwardz00_15206;
BgL_forwardz00_15206 = BgL_arg1537z00_11861; 
BgL_bufposz00_15207 = BgL_arg1538z00_11862; 
BgL_bufposz00_11859 = BgL_bufposz00_15207; 
BgL_forwardz00_11858 = BgL_forwardz00_15206; 
goto BgL_statezd24zd21155z00_11783;} }  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_newzd2matchzd2_11860; } }  else 
{ /* Llib/date.scm 979 */
 int BgL_curz00_11863;
BgL_curz00_11863 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_11856, BgL_forwardz00_11858); 
{ /* Llib/date.scm 979 */

{ /* Llib/date.scm 979 */
 bool_t BgL_test6928z00_15209;
if(
(
(long)(BgL_curz00_11863)==97L))
{ /* Llib/date.scm 979 */
BgL_test6928z00_15209 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
 bool_t BgL_test6930z00_15213;
if(
(
(long)(BgL_curz00_11863)==101L))
{ /* Llib/date.scm 979 */
BgL_test6930z00_15213 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6930z00_15213 = 
(
(long)(BgL_curz00_11863)==100L)
; } 
if(BgL_test6930z00_15213)
{ /* Llib/date.scm 979 */
BgL_test6928z00_15209 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
 bool_t BgL_test6932z00_15219;
if(
(
(long)(BgL_curz00_11863)==105L))
{ /* Llib/date.scm 979 */
BgL_test6932z00_15219 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6932z00_15219 = 
(
(long)(BgL_curz00_11863)==104L)
; } 
if(BgL_test6932z00_15219)
{ /* Llib/date.scm 979 */
BgL_test6928z00_15209 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
 bool_t BgL_test6934z00_15225;
if(
(
(long)(BgL_curz00_11863)==111L))
{ /* Llib/date.scm 979 */
BgL_test6934z00_15225 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6934z00_15225 = 
(
(long)(BgL_curz00_11863)==110L)
; } 
if(BgL_test6934z00_15225)
{ /* Llib/date.scm 979 */
BgL_test6928z00_15209 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
if(
(
(long)(BgL_curz00_11863)==114L))
{ /* Llib/date.scm 979 */
BgL_test6928z00_15209 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
 bool_t BgL__ortest_1164z00_11864;
BgL__ortest_1164z00_11864 = 
(
(long)(BgL_curz00_11863)==117L); 
if(BgL__ortest_1164z00_11864)
{ /* Llib/date.scm 979 */
BgL_test6928z00_15209 = BgL__ortest_1164z00_11864
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6928z00_15209 = 
(
(long)(BgL_curz00_11863)==116L)
; } } } } } } 
if(BgL_test6928z00_15209)
{ /* Llib/date.scm 979 */
BgL_iportz00_11881 = BgL_iportz00_11856; 
BgL_lastzd2matchzd2_11882 = BgL_newzd2matchzd2_11860; 
BgL_forwardz00_11883 = 
(1L+BgL_forwardz00_11858); 
BgL_bufposz00_11884 = BgL_bufposz00_11859; 
BgL_statezd25zd21156z00_11786:
if(
(BgL_forwardz00_11883==BgL_bufposz00_11884))
{ /* Llib/date.scm 979 */
if(
rgc_fill_buffer(BgL_iportz00_11881))
{ /* Llib/date.scm 979 */
 long BgL_arg1497z00_11885; long BgL_arg1498z00_11886;
BgL_arg1497z00_11885 = 
RGC_BUFFER_FORWARD(BgL_iportz00_11881); 
BgL_arg1498z00_11886 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_11881); 
{ 
 long BgL_bufposz00_15246; long BgL_forwardz00_15245;
BgL_forwardz00_15245 = BgL_arg1497z00_11885; 
BgL_bufposz00_15246 = BgL_arg1498z00_11886; 
BgL_bufposz00_11884 = BgL_bufposz00_15246; 
BgL_forwardz00_11883 = BgL_forwardz00_15245; 
goto BgL_statezd25zd21156z00_11786;} }  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_lastzd2matchzd2_11882; } }  else 
{ /* Llib/date.scm 979 */
 int BgL_curz00_11887;
BgL_curz00_11887 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_11881, BgL_forwardz00_11883); 
{ /* Llib/date.scm 979 */

{ /* Llib/date.scm 979 */
 bool_t BgL_test6940z00_15248;
if(
(
(long)(BgL_curz00_11887)==97L))
{ /* Llib/date.scm 979 */
BgL_test6940z00_15248 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
 bool_t BgL_test6942z00_15252;
if(
(
(long)(BgL_curz00_11887)==101L))
{ /* Llib/date.scm 979 */
BgL_test6942z00_15252 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6942z00_15252 = 
(
(long)(BgL_curz00_11887)==100L)
; } 
if(BgL_test6942z00_15252)
{ /* Llib/date.scm 979 */
BgL_test6940z00_15248 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
 bool_t BgL_test6944z00_15258;
if(
(
(long)(BgL_curz00_11887)==105L))
{ /* Llib/date.scm 979 */
BgL_test6944z00_15258 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6944z00_15258 = 
(
(long)(BgL_curz00_11887)==104L)
; } 
if(BgL_test6944z00_15258)
{ /* Llib/date.scm 979 */
BgL_test6940z00_15248 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
 bool_t BgL_test6946z00_15264;
if(
(
(long)(BgL_curz00_11887)==111L))
{ /* Llib/date.scm 979 */
BgL_test6946z00_15264 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6946z00_15264 = 
(
(long)(BgL_curz00_11887)==110L)
; } 
if(BgL_test6946z00_15264)
{ /* Llib/date.scm 979 */
BgL_test6940z00_15248 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
if(
(
(long)(BgL_curz00_11887)==114L))
{ /* Llib/date.scm 979 */
BgL_test6940z00_15248 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
 bool_t BgL__ortest_1163z00_11888;
BgL__ortest_1163z00_11888 = 
(
(long)(BgL_curz00_11887)==117L); 
if(BgL__ortest_1163z00_11888)
{ /* Llib/date.scm 979 */
BgL_test6940z00_15248 = BgL__ortest_1163z00_11888
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6940z00_15248 = 
(
(long)(BgL_curz00_11887)==116L)
; } } } } } } 
if(BgL_test6940z00_15248)
{ /* Llib/date.scm 979 */
BgL_iportz00_11841 = BgL_iportz00_11881; 
BgL_lastzd2matchzd2_11842 = BgL_lastzd2matchzd2_11882; 
BgL_forwardz00_11843 = 
(1L+BgL_forwardz00_11883); 
BgL_bufposz00_11844 = BgL_bufposz00_11884; 
BgL_statezd27zd21158z00_11781:
if(
(BgL_forwardz00_11843==BgL_bufposz00_11844))
{ /* Llib/date.scm 979 */
if(
rgc_fill_buffer(BgL_iportz00_11841))
{ /* Llib/date.scm 979 */
 long BgL_arg1562z00_11845; long BgL_arg1563z00_11846;
BgL_arg1562z00_11845 = 
RGC_BUFFER_FORWARD(BgL_iportz00_11841); 
BgL_arg1563z00_11846 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_11841); 
{ 
 long BgL_bufposz00_15285; long BgL_forwardz00_15284;
BgL_forwardz00_15284 = BgL_arg1562z00_11845; 
BgL_bufposz00_15285 = BgL_arg1563z00_11846; 
BgL_bufposz00_11844 = BgL_bufposz00_15285; 
BgL_forwardz00_11843 = BgL_forwardz00_15284; 
goto BgL_statezd27zd21158z00_11781;} }  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_lastzd2matchzd2_11842; } }  else 
{ /* Llib/date.scm 979 */
 int BgL_curz00_11847;
BgL_curz00_11847 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_11841, BgL_forwardz00_11843); 
{ /* Llib/date.scm 979 */

if(
(
(long)(BgL_curz00_11847)==44L))
{ /* Llib/date.scm 979 */
BgL_iportz00_11889 = BgL_iportz00_11841; 
BgL_lastzd2matchzd2_11890 = BgL_lastzd2matchzd2_11842; 
BgL_forwardz00_11891 = 
(1L+BgL_forwardz00_11843); 
BgL_bufposz00_11892 = BgL_bufposz00_11844; 
BgL_statezd28zd21159z00_11787:
if(
(BgL_forwardz00_11891==BgL_bufposz00_11892))
{ /* Llib/date.scm 979 */
if(
rgc_fill_buffer(BgL_iportz00_11889))
{ /* Llib/date.scm 979 */
 long BgL_arg1486z00_11893; long BgL_arg1487z00_11894;
BgL_arg1486z00_11893 = 
RGC_BUFFER_FORWARD(BgL_iportz00_11889); 
BgL_arg1487z00_11894 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_11889); 
{ 
 long BgL_bufposz00_15297; long BgL_forwardz00_15296;
BgL_forwardz00_15296 = BgL_arg1486z00_11893; 
BgL_bufposz00_15297 = BgL_arg1487z00_11894; 
BgL_bufposz00_11892 = BgL_bufposz00_15297; 
BgL_forwardz00_11891 = BgL_forwardz00_15296; 
goto BgL_statezd28zd21159z00_11787;} }  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_lastzd2matchzd2_11890; } }  else 
{ /* Llib/date.scm 979 */
 int BgL_curz00_11895;
BgL_curz00_11895 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_11889, BgL_forwardz00_11891); 
{ /* Llib/date.scm 979 */

{ /* Llib/date.scm 979 */
 bool_t BgL_test6955z00_15299;
{ /* Llib/date.scm 979 */
 bool_t BgL_test6956z00_15300;
if(
(
(long)(BgL_curz00_11895)==10L))
{ /* Llib/date.scm 979 */
BgL_test6956z00_15300 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6956z00_15300 = 
(
(long)(BgL_curz00_11895)==9L)
; } 
if(BgL_test6956z00_15300)
{ /* Llib/date.scm 979 */
BgL_test6955z00_15299 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
if(
(
(long)(BgL_curz00_11895)==13L))
{ /* Llib/date.scm 979 */
BgL_test6955z00_15299 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6955z00_15299 = 
(
(long)(BgL_curz00_11895)==32L)
; } } } 
if(BgL_test6955z00_15299)
{ /* Llib/date.scm 979 */
 long BgL_arg1492z00_11896;
BgL_arg1492z00_11896 = 
(1L+BgL_forwardz00_11891); 
{ /* Llib/date.scm 979 */
 long BgL_newzd2matchzd2_11897;
RGC_STOP_MATCH(BgL_iportz00_11889, BgL_arg1492z00_11896); 
BgL_newzd2matchzd2_11897 = 1L; 
BgL_matchz00_11789 = BgL_newzd2matchzd2_11897; } }  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_lastzd2matchzd2_11890; } } } } }  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_lastzd2matchzd2_11842; } } } }  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_lastzd2matchzd2_11882; } } } } }  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_newzd2matchzd2_11860; } } } } } }  else 
{ /* Llib/date.scm 979 */
 bool_t BgL_test6959z00_15317;
if(
(
(long)(BgL_curz00_11904)>=48L))
{ /* Llib/date.scm 979 */
BgL_test6959z00_15317 = 
(
(long)(BgL_curz00_11904)<58L)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6959z00_15317 = ((bool_t)0)
; } 
if(BgL_test6959z00_15317)
{ /* Llib/date.scm 979 */
BgL_iportz00_11865 = BgL_iportz00_11898; 
BgL_lastzd2matchzd2_11866 = BgL_lastzd2matchzd2_11899; 
BgL_forwardz00_11867 = 
(1L+BgL_forwardz00_11900); 
BgL_bufposz00_11868 = BgL_bufposz00_11901; 
BgL_statezd23zd21154z00_11784:
{ /* Llib/date.scm 979 */
 long BgL_newzd2matchzd2_11869;
RGC_STOP_MATCH(BgL_iportz00_11865, BgL_forwardz00_11867); 
BgL_newzd2matchzd2_11869 = 2L; 
if(
(BgL_forwardz00_11867==BgL_bufposz00_11868))
{ /* Llib/date.scm 979 */
if(
rgc_fill_buffer(BgL_iportz00_11865))
{ /* Llib/date.scm 979 */
 long BgL_arg1525z00_11870; long BgL_arg1526z00_11871;
BgL_arg1525z00_11870 = 
RGC_BUFFER_FORWARD(BgL_iportz00_11865); 
BgL_arg1526z00_11871 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_11865); 
{ 
 long BgL_bufposz00_15331; long BgL_forwardz00_15330;
BgL_forwardz00_15330 = BgL_arg1525z00_11870; 
BgL_bufposz00_15331 = BgL_arg1526z00_11871; 
BgL_bufposz00_11868 = BgL_bufposz00_15331; 
BgL_forwardz00_11867 = BgL_forwardz00_15330; 
goto BgL_statezd23zd21154z00_11784;} }  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_newzd2matchzd2_11869; } }  else 
{ /* Llib/date.scm 979 */
 int BgL_curz00_11872;
BgL_curz00_11872 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_11865, BgL_forwardz00_11867); 
{ /* Llib/date.scm 979 */

{ /* Llib/date.scm 979 */
 bool_t BgL_test6963z00_15333;
if(
(
(long)(BgL_curz00_11872)>=48L))
{ /* Llib/date.scm 979 */
BgL_test6963z00_15333 = 
(
(long)(BgL_curz00_11872)<58L)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6963z00_15333 = ((bool_t)0)
; } 
if(BgL_test6963z00_15333)
{ /* Llib/date.scm 979 */
BgL_iportz00_11848 = BgL_iportz00_11865; 
BgL_lastzd2matchzd2_11849 = BgL_newzd2matchzd2_11869; 
BgL_forwardz00_11850 = 
(1L+BgL_forwardz00_11867); 
BgL_bufposz00_11851 = BgL_bufposz00_11868; 
BgL_statezd210zd21161z00_11782:
{ /* Llib/date.scm 979 */
 long BgL_newzd2matchzd2_11852;
RGC_STOP_MATCH(BgL_iportz00_11848, BgL_forwardz00_11850); 
BgL_newzd2matchzd2_11852 = 2L; 
if(
(BgL_forwardz00_11850==BgL_bufposz00_11851))
{ /* Llib/date.scm 979 */
if(
rgc_fill_buffer(BgL_iportz00_11848))
{ /* Llib/date.scm 979 */
 long BgL_arg1554z00_11853; long BgL_arg1555z00_11854;
BgL_arg1554z00_11853 = 
RGC_BUFFER_FORWARD(BgL_iportz00_11848); 
BgL_arg1555z00_11854 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_11848); 
{ 
 long BgL_bufposz00_15347; long BgL_forwardz00_15346;
BgL_forwardz00_15346 = BgL_arg1554z00_11853; 
BgL_bufposz00_15347 = BgL_arg1555z00_11854; 
BgL_bufposz00_11851 = BgL_bufposz00_15347; 
BgL_forwardz00_11850 = BgL_forwardz00_15346; 
goto BgL_statezd210zd21161z00_11782;} }  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_newzd2matchzd2_11852; } }  else 
{ /* Llib/date.scm 979 */
 int BgL_curz00_11855;
BgL_curz00_11855 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_11848, BgL_forwardz00_11850); 
{ /* Llib/date.scm 979 */

{ /* Llib/date.scm 979 */
 bool_t BgL_test6967z00_15349;
if(
(
(long)(BgL_curz00_11855)>=48L))
{ /* Llib/date.scm 979 */
BgL_test6967z00_15349 = 
(
(long)(BgL_curz00_11855)<58L)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6967z00_15349 = ((bool_t)0)
; } 
if(BgL_test6967z00_15349)
{ 
 long BgL_forwardz00_15356; long BgL_lastzd2matchzd2_15355;
BgL_lastzd2matchzd2_15355 = BgL_newzd2matchzd2_11852; 
BgL_forwardz00_15356 = 
(1L+BgL_forwardz00_11850); 
BgL_forwardz00_11850 = BgL_forwardz00_15356; 
BgL_lastzd2matchzd2_11849 = BgL_lastzd2matchzd2_15355; 
goto BgL_statezd210zd21161z00_11782;}  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_newzd2matchzd2_11852; } } } } } }  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_newzd2matchzd2_11869; } } } } } }  else 
{ /* Llib/date.scm 979 */
 bool_t BgL_test6969z00_15360;
{ /* Llib/date.scm 979 */
 bool_t BgL_test6970z00_15361;
if(
(
(long)(BgL_curz00_11904)==10L))
{ /* Llib/date.scm 979 */
BgL_test6970z00_15361 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6970z00_15361 = 
(
(long)(BgL_curz00_11904)==9L)
; } 
if(BgL_test6970z00_15361)
{ /* Llib/date.scm 979 */
BgL_test6969z00_15360 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
if(
(
(long)(BgL_curz00_11904)==13L))
{ /* Llib/date.scm 979 */
BgL_test6969z00_15360 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6969z00_15360 = 
(
(long)(BgL_curz00_11904)==32L)
; } } } 
if(BgL_test6969z00_15360)
{ /* Llib/date.scm 979 */
BgL_iportz00_11873 = BgL_iportz00_11898; 
BgL_lastzd2matchzd2_11874 = BgL_lastzd2matchzd2_11899; 
BgL_forwardz00_11875 = 
(1L+BgL_forwardz00_11900); 
BgL_bufposz00_11876 = BgL_bufposz00_11901; 
BgL_statezd22zd21153z00_11785:
{ /* Llib/date.scm 979 */
 long BgL_newzd2matchzd2_11877;
RGC_STOP_MATCH(BgL_iportz00_11873, BgL_forwardz00_11875); 
BgL_newzd2matchzd2_11877 = 0L; 
if(
(BgL_forwardz00_11875==BgL_bufposz00_11876))
{ /* Llib/date.scm 979 */
if(
rgc_fill_buffer(BgL_iportz00_11873))
{ /* Llib/date.scm 979 */
 long BgL_arg1512z00_11878; long BgL_arg1513z00_11879;
BgL_arg1512z00_11878 = 
RGC_BUFFER_FORWARD(BgL_iportz00_11873); 
BgL_arg1513z00_11879 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_11873); 
{ 
 long BgL_bufposz00_15380; long BgL_forwardz00_15379;
BgL_forwardz00_15379 = BgL_arg1512z00_11878; 
BgL_bufposz00_15380 = BgL_arg1513z00_11879; 
BgL_bufposz00_11876 = BgL_bufposz00_15380; 
BgL_forwardz00_11875 = BgL_forwardz00_15379; 
goto BgL_statezd22zd21153z00_11785;} }  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_newzd2matchzd2_11877; } }  else 
{ /* Llib/date.scm 979 */
 int BgL_curz00_11880;
BgL_curz00_11880 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_11873, BgL_forwardz00_11875); 
{ /* Llib/date.scm 979 */

{ /* Llib/date.scm 979 */
 bool_t BgL_test6975z00_15382;
{ /* Llib/date.scm 979 */
 bool_t BgL_test6976z00_15383;
if(
(
(long)(BgL_curz00_11880)==10L))
{ /* Llib/date.scm 979 */
BgL_test6976z00_15383 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6976z00_15383 = 
(
(long)(BgL_curz00_11880)==9L)
; } 
if(BgL_test6976z00_15383)
{ /* Llib/date.scm 979 */
BgL_test6975z00_15382 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
if(
(
(long)(BgL_curz00_11880)==13L))
{ /* Llib/date.scm 979 */
BgL_test6975z00_15382 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6975z00_15382 = 
(
(long)(BgL_curz00_11880)==32L)
; } } } 
if(BgL_test6975z00_15382)
{ /* Llib/date.scm 979 */
BgL_iportz00_11833 = BgL_iportz00_11873; 
BgL_lastzd2matchzd2_11834 = BgL_newzd2matchzd2_11877; 
BgL_forwardz00_11835 = 
(1L+BgL_forwardz00_11875); 
BgL_bufposz00_11836 = BgL_bufposz00_11876; 
BgL_statezd211zd21162z00_11780:
{ /* Llib/date.scm 979 */
 long BgL_newzd2matchzd2_11837;
RGC_STOP_MATCH(BgL_iportz00_11833, BgL_forwardz00_11835); 
BgL_newzd2matchzd2_11837 = 0L; 
if(
(BgL_forwardz00_11835==BgL_bufposz00_11836))
{ /* Llib/date.scm 979 */
if(
rgc_fill_buffer(BgL_iportz00_11833))
{ /* Llib/date.scm 979 */
 long BgL_arg1569z00_11838; long BgL_arg1573z00_11839;
BgL_arg1569z00_11838 = 
RGC_BUFFER_FORWARD(BgL_iportz00_11833); 
BgL_arg1573z00_11839 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_11833); 
{ 
 long BgL_bufposz00_15402; long BgL_forwardz00_15401;
BgL_forwardz00_15401 = BgL_arg1569z00_11838; 
BgL_bufposz00_15402 = BgL_arg1573z00_11839; 
BgL_bufposz00_11836 = BgL_bufposz00_15402; 
BgL_forwardz00_11835 = BgL_forwardz00_15401; 
goto BgL_statezd211zd21162z00_11780;} }  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_newzd2matchzd2_11837; } }  else 
{ /* Llib/date.scm 979 */
 int BgL_curz00_11840;
BgL_curz00_11840 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_11833, BgL_forwardz00_11835); 
{ /* Llib/date.scm 979 */

{ /* Llib/date.scm 979 */
 bool_t BgL_test6981z00_15404;
{ /* Llib/date.scm 979 */
 bool_t BgL_test6982z00_15405;
if(
(
(long)(BgL_curz00_11840)==10L))
{ /* Llib/date.scm 979 */
BgL_test6982z00_15405 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6982z00_15405 = 
(
(long)(BgL_curz00_11840)==9L)
; } 
if(BgL_test6982z00_15405)
{ /* Llib/date.scm 979 */
BgL_test6981z00_15404 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
if(
(
(long)(BgL_curz00_11840)==13L))
{ /* Llib/date.scm 979 */
BgL_test6981z00_15404 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 979 */
BgL_test6981z00_15404 = 
(
(long)(BgL_curz00_11840)==32L)
; } } } 
if(BgL_test6981z00_15404)
{ 
 long BgL_forwardz00_15417; long BgL_lastzd2matchzd2_15416;
BgL_lastzd2matchzd2_15416 = BgL_newzd2matchzd2_11837; 
BgL_forwardz00_15417 = 
(1L+BgL_forwardz00_11835); 
BgL_forwardz00_11835 = BgL_forwardz00_15417; 
BgL_lastzd2matchzd2_11834 = BgL_lastzd2matchzd2_15416; 
goto BgL_statezd211zd21162z00_11780;}  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_newzd2matchzd2_11837; } } } } } }  else 
{ /* Llib/date.scm 979 */
BgL_matchz00_11789 = BgL_newzd2matchzd2_11877; } } } } } }  else 
{ /* Llib/date.scm 979 */
 long BgL_arg1481z00_11905;
BgL_arg1481z00_11905 = 
(1L+BgL_forwardz00_11900); 
{ /* Llib/date.scm 979 */
 long BgL_newzd2matchzd2_11906;
RGC_STOP_MATCH(BgL_iportz00_11898, BgL_arg1481z00_11905); 
BgL_newzd2matchzd2_11906 = 3L; 
BgL_matchz00_11789 = BgL_newzd2matchzd2_11906; } } } } } } } } 
RGC_SET_FILEPOS(BgL_iportz00_9775); 
switch( BgL_matchz00_11789) { case 3L : 

{ /* Llib/date.scm 1013 */
 obj_t BgL_auxz00_15424;
{ /* Llib/date.scm 979 */
 bool_t BgL_test6985z00_15425;
{ /* Llib/date.scm 979 */
 long BgL_arg1671z00_11832;
BgL_arg1671z00_11832 = 
RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_9775); 
BgL_test6985z00_15425 = 
(BgL_arg1671z00_11832==0L); } 
if(BgL_test6985z00_15425)
{ /* Llib/date.scm 979 */
BgL_auxz00_15424 = BEOF
; }  else 
{ /* Llib/date.scm 979 */
BgL_auxz00_15424 = 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_iportz00_9775))
; } } 
return 
BGl_parsezd2errorzd2zz__datez00(BGl_string5879z00zz__datez00, BGl_string5958z00zz__datez00, BgL_auxz00_15424, BgL_iportz00_9775);} break;case 2L : 

{ /* Llib/date.scm 998 */
 long BgL_dayz00_11792;
BgL_dayz00_11792 = 
rgc_buffer_fixnum(BgL_iportz00_9775); 
{ /* Llib/date.scm 998 */
 obj_t BgL_monthz00_11793;
{ /* Llib/date.scm 999 */
 obj_t BgL_funz00_11794;
{ /* Llib/date.scm 999 */
 obj_t BgL_aux5437z00_11795;
BgL_aux5437z00_11795 = BGl_monthzd2grammarzd2zz__datez00; 
if(
PROCEDUREP(BgL_aux5437z00_11795))
{ /* Llib/date.scm 999 */
BgL_funz00_11794 = BgL_aux5437z00_11795; }  else 
{ 
 obj_t BgL_auxz00_15434;
BgL_auxz00_15434 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41831L), BGl_string5877z00zz__datez00, BGl_string5959z00zz__datez00, BgL_aux5437z00_11795); 
FAILURE(BgL_auxz00_15434,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_11794, 1))
{ /* Llib/date.scm 999 */
BgL_monthz00_11793 = 
(VA_PROCEDUREP( BgL_funz00_11794 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_11794))(BGl_monthzd2grammarzd2zz__datez00, BgL_iportz00_9775, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_11794))(BGl_monthzd2grammarzd2zz__datez00, BgL_iportz00_9775) ); }  else 
{ /* Llib/date.scm 999 */
FAILURE(BGl_string5960z00zz__datez00,BGl_list5961z00zz__datez00,BgL_funz00_11794);} } 
{ /* Llib/date.scm 999 */
 obj_t BgL_yearz00_11796;
{ /* Llib/date.scm 1000 */
 obj_t BgL_funz00_11797;
{ /* Llib/date.scm 1000 */
 obj_t BgL_aux5440z00_11798;
BgL_aux5440z00_11798 = BGl_thezd2fixnumzd2grammarz00zz__datez00; 
if(
PROCEDUREP(BgL_aux5440z00_11798))
{ /* Llib/date.scm 1000 */
BgL_funz00_11797 = BgL_aux5440z00_11798; }  else 
{ 
 obj_t BgL_auxz00_15447;
BgL_auxz00_15447 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41880L), BGl_string5877z00zz__datez00, BGl_string5959z00zz__datez00, BgL_aux5440z00_11798); 
FAILURE(BgL_auxz00_15447,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_11797, 1))
{ /* Llib/date.scm 1000 */
BgL_yearz00_11796 = 
(VA_PROCEDUREP( BgL_funz00_11797 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_11797))(BGl_thezd2fixnumzd2grammarz00zz__datez00, BgL_iportz00_9775, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_11797))(BGl_thezd2fixnumzd2grammarz00zz__datez00, BgL_iportz00_9775) ); }  else 
{ /* Llib/date.scm 1000 */
FAILURE(BGl_string5960z00zz__datez00,BGl_list5968z00zz__datez00,BgL_funz00_11797);} } 
{ /* Llib/date.scm 1000 */

{ /* Llib/date.scm 1001 */
 obj_t BgL_hourz00_11799;
{ /* Llib/date.scm 1002 */
 obj_t BgL_funz00_11800;
{ /* Llib/date.scm 1002 */
 obj_t BgL_aux5443z00_11801;
BgL_aux5443z00_11801 = BGl_timezd2grammarzd2zz__datez00; 
if(
PROCEDUREP(BgL_aux5443z00_11801))
{ /* Llib/date.scm 1002 */
BgL_funz00_11800 = BgL_aux5443z00_11801; }  else 
{ 
 obj_t BgL_auxz00_15460;
BgL_auxz00_15460 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41973L), BGl_string5877z00zz__datez00, BGl_string5959z00zz__datez00, BgL_aux5443z00_11801); 
FAILURE(BgL_auxz00_15460,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_11800, 1))
{ /* Llib/date.scm 1002 */
BgL_hourz00_11799 = 
(VA_PROCEDUREP( BgL_funz00_11800 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_11800))(BGl_timezd2grammarzd2zz__datez00, BgL_iportz00_9775, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_11800))(BGl_timezd2grammarzd2zz__datez00, BgL_iportz00_9775) ); }  else 
{ /* Llib/date.scm 1002 */
FAILURE(BGl_string5960z00zz__datez00,BGl_list5973z00zz__datez00,BgL_funz00_11800);} } 
{ /* Llib/date.scm 1002 */
 obj_t BgL_minutez00_11802; obj_t BgL_secondz00_11803;
{ /* Llib/date.scm 1003 */
 obj_t BgL_tmpz00_11804;
{ /* Llib/date.scm 1003 */
 int BgL_tmpz00_15471;
BgL_tmpz00_15471 = 
(int)(1L); 
BgL_tmpz00_11804 = 
BGL_MVALUES_VAL(BgL_tmpz00_15471); } 
{ /* Llib/date.scm 1003 */
 int BgL_tmpz00_15474;
BgL_tmpz00_15474 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_15474, BUNSPEC); } 
BgL_minutez00_11802 = BgL_tmpz00_11804; } 
{ /* Llib/date.scm 1003 */
 obj_t BgL_tmpz00_11805;
{ /* Llib/date.scm 1003 */
 int BgL_tmpz00_15477;
BgL_tmpz00_15477 = 
(int)(2L); 
BgL_tmpz00_11805 = 
BGL_MVALUES_VAL(BgL_tmpz00_15477); } 
{ /* Llib/date.scm 1003 */
 int BgL_tmpz00_15480;
BgL_tmpz00_15480 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_15480, BUNSPEC); } 
BgL_secondz00_11803 = BgL_tmpz00_11805; } 
{ /* Llib/date.scm 1003 */
 obj_t BgL_za7oneza7_11806;
{ /* Llib/date.scm 1003 */
 obj_t BgL_funz00_11807;
{ /* Llib/date.scm 1003 */
 obj_t BgL_aux5446z00_11808;
BgL_aux5446z00_11808 = BGl_za7onezd2grammarz75zz__datez00; 
if(
PROCEDUREP(BgL_aux5446z00_11808))
{ /* Llib/date.scm 1003 */
BgL_funz00_11807 = BgL_aux5446z00_11808; }  else 
{ 
 obj_t BgL_auxz00_15485;
BgL_auxz00_15485 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42025L), BGl_string5877z00zz__datez00, BGl_string5959z00zz__datez00, BgL_aux5446z00_11808); 
FAILURE(BgL_auxz00_15485,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_11807, 1))
{ /* Llib/date.scm 1003 */
BgL_za7oneza7_11806 = 
(VA_PROCEDUREP( BgL_funz00_11807 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_11807))(BGl_za7onezd2grammarz75zz__datez00, BgL_iportz00_9775, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_11807))(BGl_za7onezd2grammarz75zz__datez00, BgL_iportz00_9775) ); }  else 
{ /* Llib/date.scm 1003 */
FAILURE(BGl_string5960z00zz__datez00,BGl_list5978z00zz__datez00,BgL_funz00_11807);} } 
{ /* Llib/date.scm 1008 */
 obj_t BgL_arg1687z00_11809;
{ /* Llib/date.scm 1008 */
 bool_t BgL_test6994z00_15496;
{ /* Llib/date.scm 1008 */
 long BgL_n1z00_11810;
{ /* Llib/date.scm 1008 */
 obj_t BgL_tmpz00_15497;
if(
INTEGERP(BgL_yearz00_11796))
{ /* Llib/date.scm 1008 */
BgL_tmpz00_15497 = BgL_yearz00_11796
; }  else 
{ 
 obj_t BgL_auxz00_15500;
BgL_auxz00_15500 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42157L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_yearz00_11796); 
FAILURE(BgL_auxz00_15500,BFALSE,BFALSE);} 
BgL_n1z00_11810 = 
(long)CINT(BgL_tmpz00_15497); } 
BgL_test6994z00_15496 = 
(BgL_n1z00_11810<100L); } 
if(BgL_test6994z00_15496)
{ /* Llib/date.scm 1003 */
 obj_t BgL_tmpz00_15506;
if(
INTEGERP(BgL_yearz00_11796))
{ /* Llib/date.scm 1008 */
BgL_tmpz00_15506 = BgL_yearz00_11796
; }  else 
{ 
 obj_t BgL_auxz00_15509;
BgL_auxz00_15509 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42172L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_yearz00_11796); 
FAILURE(BgL_auxz00_15509,BFALSE,BFALSE);} 
BgL_arg1687z00_11809 = 
ADDFX(BgL_tmpz00_15506, 
BINT(2000L)); }  else 
{ /* Llib/date.scm 1008 */
BgL_arg1687z00_11809 = BgL_yearz00_11796; } } 
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_za7oneza7_11806))
{ /* Llib/date.scm 233 */
 long BgL_auxz00_15563; int BgL_auxz00_15554; int BgL_auxz00_15544; int BgL_auxz00_15535; int BgL_auxz00_15526; int BgL_tmpz00_15517;
{ /* Llib/date.scm 1010 */
 obj_t BgL_tmpz00_15564;
if(
INTEGERP(BgL_za7oneza7_11806))
{ /* Llib/date.scm 1010 */
BgL_tmpz00_15564 = BgL_za7oneza7_11806
; }  else 
{ 
 obj_t BgL_auxz00_15567;
BgL_auxz00_15567 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42218L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_za7oneza7_11806); 
FAILURE(BgL_auxz00_15567,BFALSE,BFALSE);} 
BgL_auxz00_15563 = 
(long)CINT(BgL_tmpz00_15564); } 
{ /* Llib/date.scm 1008 */
 obj_t BgL_tmpz00_15555;
if(
INTEGERP(BgL_arg1687z00_11809))
{ /* Llib/date.scm 1008 */
BgL_tmpz00_15555 = BgL_arg1687z00_11809
; }  else 
{ 
 obj_t BgL_auxz00_15558;
BgL_auxz00_15558 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42187L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg1687z00_11809); 
FAILURE(BgL_auxz00_15558,BFALSE,BFALSE);} 
BgL_auxz00_15554 = 
CINT(BgL_tmpz00_15555); } 
{ /* Llib/date.scm 1007 */
 obj_t BgL_tmpz00_15546;
if(
INTEGERP(BgL_monthz00_11793))
{ /* Llib/date.scm 1007 */
BgL_tmpz00_15546 = BgL_monthz00_11793
; }  else 
{ 
 obj_t BgL_auxz00_15549;
BgL_auxz00_15549 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42131L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_monthz00_11793); 
FAILURE(BgL_auxz00_15549,BFALSE,BFALSE);} 
BgL_auxz00_15544 = 
CINT(BgL_tmpz00_15546); } 
{ /* Llib/date.scm 1006 */
 obj_t BgL_tmpz00_15536;
if(
INTEGERP(BgL_hourz00_11799))
{ /* Llib/date.scm 1006 */
BgL_tmpz00_15536 = BgL_hourz00_11799
; }  else 
{ 
 obj_t BgL_auxz00_15539;
BgL_auxz00_15539 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42114L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_hourz00_11799); 
FAILURE(BgL_auxz00_15539,BFALSE,BFALSE);} 
BgL_auxz00_15535 = 
CINT(BgL_tmpz00_15536); } 
{ /* Llib/date.scm 1005 */
 obj_t BgL_tmpz00_15527;
if(
INTEGERP(BgL_minutez00_11802))
{ /* Llib/date.scm 1005 */
BgL_tmpz00_15527 = BgL_minutez00_11802
; }  else 
{ 
 obj_t BgL_auxz00_15530;
BgL_auxz00_15530 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42096L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_minutez00_11802); 
FAILURE(BgL_auxz00_15530,BFALSE,BFALSE);} 
BgL_auxz00_15526 = 
CINT(BgL_tmpz00_15527); } 
{ /* Llib/date.scm 1004 */
 obj_t BgL_tmpz00_15518;
if(
INTEGERP(BgL_secondz00_11803))
{ /* Llib/date.scm 1004 */
BgL_tmpz00_15518 = BgL_secondz00_11803
; }  else 
{ 
 obj_t BgL_auxz00_15521;
BgL_auxz00_15521 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42079L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_secondz00_11803); 
FAILURE(BgL_auxz00_15521,BFALSE,BFALSE);} 
BgL_tmpz00_15517 = 
CINT(BgL_tmpz00_15518); } 
return 
bgl_make_date(((BGL_LONGLONG_T)0), BgL_tmpz00_15517, BgL_auxz00_15526, BgL_auxz00_15535, 
(int)(BgL_dayz00_11792), BgL_auxz00_15544, BgL_auxz00_15554, BgL_auxz00_15563, ((bool_t)1), 
(int)((-1L)));}  else 
{ /* Llib/date.scm 234 */
 int BgL_auxz00_15611; int BgL_auxz00_15601; int BgL_auxz00_15592; int BgL_auxz00_15583; int BgL_tmpz00_15574;
{ /* Llib/date.scm 1008 */
 obj_t BgL_tmpz00_15612;
if(
INTEGERP(BgL_arg1687z00_11809))
{ /* Llib/date.scm 1008 */
BgL_tmpz00_15612 = BgL_arg1687z00_11809
; }  else 
{ 
 obj_t BgL_auxz00_15615;
BgL_auxz00_15615 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42187L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg1687z00_11809); 
FAILURE(BgL_auxz00_15615,BFALSE,BFALSE);} 
BgL_auxz00_15611 = 
CINT(BgL_tmpz00_15612); } 
{ /* Llib/date.scm 1007 */
 obj_t BgL_tmpz00_15603;
if(
INTEGERP(BgL_monthz00_11793))
{ /* Llib/date.scm 1007 */
BgL_tmpz00_15603 = BgL_monthz00_11793
; }  else 
{ 
 obj_t BgL_auxz00_15606;
BgL_auxz00_15606 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42131L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_monthz00_11793); 
FAILURE(BgL_auxz00_15606,BFALSE,BFALSE);} 
BgL_auxz00_15601 = 
CINT(BgL_tmpz00_15603); } 
{ /* Llib/date.scm 1006 */
 obj_t BgL_tmpz00_15593;
if(
INTEGERP(BgL_hourz00_11799))
{ /* Llib/date.scm 1006 */
BgL_tmpz00_15593 = BgL_hourz00_11799
; }  else 
{ 
 obj_t BgL_auxz00_15596;
BgL_auxz00_15596 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42114L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_hourz00_11799); 
FAILURE(BgL_auxz00_15596,BFALSE,BFALSE);} 
BgL_auxz00_15592 = 
CINT(BgL_tmpz00_15593); } 
{ /* Llib/date.scm 1005 */
 obj_t BgL_tmpz00_15584;
if(
INTEGERP(BgL_minutez00_11802))
{ /* Llib/date.scm 1005 */
BgL_tmpz00_15584 = BgL_minutez00_11802
; }  else 
{ 
 obj_t BgL_auxz00_15587;
BgL_auxz00_15587 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42096L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_minutez00_11802); 
FAILURE(BgL_auxz00_15587,BFALSE,BFALSE);} 
BgL_auxz00_15583 = 
CINT(BgL_tmpz00_15584); } 
{ /* Llib/date.scm 1004 */
 obj_t BgL_tmpz00_15575;
if(
INTEGERP(BgL_secondz00_11803))
{ /* Llib/date.scm 1004 */
BgL_tmpz00_15575 = BgL_secondz00_11803
; }  else 
{ 
 obj_t BgL_auxz00_15578;
BgL_auxz00_15578 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(42079L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_secondz00_11803); 
FAILURE(BgL_auxz00_15578,BFALSE,BFALSE);} 
BgL_tmpz00_15574 = 
CINT(BgL_tmpz00_15575); } 
return 
bgl_make_date(((BGL_LONGLONG_T)0), BgL_tmpz00_15574, BgL_auxz00_15583, BgL_auxz00_15592, 
(int)(BgL_dayz00_11792), BgL_auxz00_15601, BgL_auxz00_15611, 0L, ((bool_t)0), 
(int)((-1L)));} } } } } } } } } break;case 1L : 

{ /* Llib/date.scm 983 */
 obj_t BgL_dayz00_11811;
{ /* Llib/date.scm 983 */
 obj_t BgL_funz00_11812;
{ /* Llib/date.scm 983 */
 obj_t BgL_aux5462z00_11813;
BgL_aux5462z00_11813 = BGl_thezd2fixnumzd2grammarz00zz__datez00; 
if(
PROCEDUREP(BgL_aux5462z00_11813))
{ /* Llib/date.scm 983 */
BgL_funz00_11812 = BgL_aux5462z00_11813; }  else 
{ 
 obj_t BgL_auxz00_15624;
BgL_auxz00_15624 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41302L), BGl_string5877z00zz__datez00, BGl_string5959z00zz__datez00, BgL_aux5462z00_11813); 
FAILURE(BgL_auxz00_15624,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_11812, 1))
{ /* Llib/date.scm 983 */
BgL_dayz00_11811 = 
(VA_PROCEDUREP( BgL_funz00_11812 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_11812))(BGl_thezd2fixnumzd2grammarz00zz__datez00, BgL_iportz00_9775, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_11812))(BGl_thezd2fixnumzd2grammarz00zz__datez00, BgL_iportz00_9775) ); }  else 
{ /* Llib/date.scm 983 */
FAILURE(BGl_string5960z00zz__datez00,BGl_list5983z00zz__datez00,BgL_funz00_11812);} } 
{ /* Llib/date.scm 983 */
 obj_t BgL_monthz00_11814;
{ /* Llib/date.scm 984 */
 obj_t BgL_funz00_11815;
{ /* Llib/date.scm 984 */
 obj_t BgL_aux5465z00_11816;
BgL_aux5465z00_11816 = BGl_monthzd2grammarzd2zz__datez00; 
if(
PROCEDUREP(BgL_aux5465z00_11816))
{ /* Llib/date.scm 984 */
BgL_funz00_11815 = BgL_aux5465z00_11816; }  else 
{ 
 obj_t BgL_auxz00_15637;
BgL_auxz00_15637 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41357L), BGl_string5877z00zz__datez00, BGl_string5959z00zz__datez00, BgL_aux5465z00_11816); 
FAILURE(BgL_auxz00_15637,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_11815, 1))
{ /* Llib/date.scm 984 */
BgL_monthz00_11814 = 
(VA_PROCEDUREP( BgL_funz00_11815 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_11815))(BGl_monthzd2grammarzd2zz__datez00, BgL_iportz00_9775, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_11815))(BGl_monthzd2grammarzd2zz__datez00, BgL_iportz00_9775) ); }  else 
{ /* Llib/date.scm 984 */
FAILURE(BGl_string5960z00zz__datez00,BGl_list5986z00zz__datez00,BgL_funz00_11815);} } 
{ /* Llib/date.scm 984 */
 obj_t BgL_yearz00_11817;
{ /* Llib/date.scm 985 */
 obj_t BgL_funz00_11818;
{ /* Llib/date.scm 985 */
 obj_t BgL_aux5468z00_11819;
BgL_aux5468z00_11819 = BGl_thezd2fixnumzd2grammarz00zz__datez00; 
if(
PROCEDUREP(BgL_aux5468z00_11819))
{ /* Llib/date.scm 985 */
BgL_funz00_11818 = BgL_aux5468z00_11819; }  else 
{ 
 obj_t BgL_auxz00_15650;
BgL_auxz00_15650 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41406L), BGl_string5877z00zz__datez00, BGl_string5959z00zz__datez00, BgL_aux5468z00_11819); 
FAILURE(BgL_auxz00_15650,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_11818, 1))
{ /* Llib/date.scm 985 */
BgL_yearz00_11817 = 
(VA_PROCEDUREP( BgL_funz00_11818 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_11818))(BGl_thezd2fixnumzd2grammarz00zz__datez00, BgL_iportz00_9775, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_11818))(BGl_thezd2fixnumzd2grammarz00zz__datez00, BgL_iportz00_9775) ); }  else 
{ /* Llib/date.scm 985 */
FAILURE(BGl_string5960z00zz__datez00,BGl_list5989z00zz__datez00,BgL_funz00_11818);} } 
{ /* Llib/date.scm 985 */

{ /* Llib/date.scm 986 */
 obj_t BgL_hourz00_11820;
{ /* Llib/date.scm 987 */
 obj_t BgL_funz00_11821;
{ /* Llib/date.scm 987 */
 obj_t BgL_aux5471z00_11822;
BgL_aux5471z00_11822 = BGl_timezd2grammarzd2zz__datez00; 
if(
PROCEDUREP(BgL_aux5471z00_11822))
{ /* Llib/date.scm 987 */
BgL_funz00_11821 = BgL_aux5471z00_11822; }  else 
{ 
 obj_t BgL_auxz00_15663;
BgL_auxz00_15663 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41499L), BGl_string5877z00zz__datez00, BGl_string5959z00zz__datez00, BgL_aux5471z00_11822); 
FAILURE(BgL_auxz00_15663,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_11821, 1))
{ /* Llib/date.scm 987 */
BgL_hourz00_11820 = 
(VA_PROCEDUREP( BgL_funz00_11821 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_11821))(BGl_timezd2grammarzd2zz__datez00, BgL_iportz00_9775, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_11821))(BGl_timezd2grammarzd2zz__datez00, BgL_iportz00_9775) ); }  else 
{ /* Llib/date.scm 987 */
FAILURE(BGl_string5960z00zz__datez00,BGl_list5992z00zz__datez00,BgL_funz00_11821);} } 
{ /* Llib/date.scm 987 */
 obj_t BgL_minutez00_11823; obj_t BgL_secondz00_11824;
{ /* Llib/date.scm 988 */
 obj_t BgL_tmpz00_11825;
{ /* Llib/date.scm 988 */
 int BgL_tmpz00_15674;
BgL_tmpz00_15674 = 
(int)(1L); 
BgL_tmpz00_11825 = 
BGL_MVALUES_VAL(BgL_tmpz00_15674); } 
{ /* Llib/date.scm 988 */
 int BgL_tmpz00_15677;
BgL_tmpz00_15677 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_15677, BUNSPEC); } 
BgL_minutez00_11823 = BgL_tmpz00_11825; } 
{ /* Llib/date.scm 988 */
 obj_t BgL_tmpz00_11826;
{ /* Llib/date.scm 988 */
 int BgL_tmpz00_15680;
BgL_tmpz00_15680 = 
(int)(2L); 
BgL_tmpz00_11826 = 
BGL_MVALUES_VAL(BgL_tmpz00_15680); } 
{ /* Llib/date.scm 988 */
 int BgL_tmpz00_15683;
BgL_tmpz00_15683 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_15683, BUNSPEC); } 
BgL_secondz00_11824 = BgL_tmpz00_11826; } 
{ /* Llib/date.scm 988 */
 obj_t BgL_za7oneza7_11827;
{ /* Llib/date.scm 988 */
 obj_t BgL_funz00_11828;
{ /* Llib/date.scm 988 */
 obj_t BgL_aux5474z00_11829;
BgL_aux5474z00_11829 = BGl_za7onezd2grammarz75zz__datez00; 
if(
PROCEDUREP(BgL_aux5474z00_11829))
{ /* Llib/date.scm 988 */
BgL_funz00_11828 = BgL_aux5474z00_11829; }  else 
{ 
 obj_t BgL_auxz00_15688;
BgL_auxz00_15688 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41551L), BGl_string5877z00zz__datez00, BGl_string5959z00zz__datez00, BgL_aux5474z00_11829); 
FAILURE(BgL_auxz00_15688,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_11828, 1))
{ /* Llib/date.scm 988 */
BgL_za7oneza7_11827 = 
(VA_PROCEDUREP( BgL_funz00_11828 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_11828))(BGl_za7onezd2grammarz75zz__datez00, BgL_iportz00_9775, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_11828))(BGl_za7onezd2grammarz75zz__datez00, BgL_iportz00_9775) ); }  else 
{ /* Llib/date.scm 988 */
FAILURE(BGl_string5960z00zz__datez00,BGl_list5995z00zz__datez00,BgL_funz00_11828);} } 
{ /* Llib/date.scm 993 */
 obj_t BgL_arg1697z00_11830;
{ /* Llib/date.scm 993 */
 bool_t BgL_test7019z00_15699;
{ /* Llib/date.scm 993 */
 long BgL_n1z00_11831;
{ /* Llib/date.scm 993 */
 obj_t BgL_tmpz00_15700;
if(
INTEGERP(BgL_yearz00_11817))
{ /* Llib/date.scm 993 */
BgL_tmpz00_15700 = BgL_yearz00_11817
; }  else 
{ 
 obj_t BgL_auxz00_15703;
BgL_auxz00_15703 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41683L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_yearz00_11817); 
FAILURE(BgL_auxz00_15703,BFALSE,BFALSE);} 
BgL_n1z00_11831 = 
(long)CINT(BgL_tmpz00_15700); } 
BgL_test7019z00_15699 = 
(BgL_n1z00_11831<100L); } 
if(BgL_test7019z00_15699)
{ /* Llib/date.scm 988 */
 obj_t BgL_tmpz00_15709;
if(
INTEGERP(BgL_yearz00_11817))
{ /* Llib/date.scm 993 */
BgL_tmpz00_15709 = BgL_yearz00_11817
; }  else 
{ 
 obj_t BgL_auxz00_15712;
BgL_auxz00_15712 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41698L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_yearz00_11817); 
FAILURE(BgL_auxz00_15712,BFALSE,BFALSE);} 
BgL_arg1697z00_11830 = 
ADDFX(BgL_tmpz00_15709, 
BINT(2000L)); }  else 
{ /* Llib/date.scm 993 */
BgL_arg1697z00_11830 = BgL_yearz00_11817; } } 
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_za7oneza7_11827))
{ /* Llib/date.scm 233 */
 long BgL_auxz00_15774; int BgL_auxz00_15765; int BgL_auxz00_15756; int BgL_auxz00_15747; int BgL_auxz00_15738; int BgL_auxz00_15729; int BgL_tmpz00_15720;
{ /* Llib/date.scm 995 */
 obj_t BgL_tmpz00_15775;
if(
INTEGERP(BgL_za7oneza7_11827))
{ /* Llib/date.scm 995 */
BgL_tmpz00_15775 = BgL_za7oneza7_11827
; }  else 
{ 
 obj_t BgL_auxz00_15778;
BgL_auxz00_15778 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41744L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_za7oneza7_11827); 
FAILURE(BgL_auxz00_15778,BFALSE,BFALSE);} 
BgL_auxz00_15774 = 
(long)CINT(BgL_tmpz00_15775); } 
{ /* Llib/date.scm 993 */
 obj_t BgL_tmpz00_15766;
if(
INTEGERP(BgL_arg1697z00_11830))
{ /* Llib/date.scm 993 */
BgL_tmpz00_15766 = BgL_arg1697z00_11830
; }  else 
{ 
 obj_t BgL_auxz00_15769;
BgL_auxz00_15769 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41713L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg1697z00_11830); 
FAILURE(BgL_auxz00_15769,BFALSE,BFALSE);} 
BgL_auxz00_15765 = 
CINT(BgL_tmpz00_15766); } 
{ /* Llib/date.scm 992 */
 obj_t BgL_tmpz00_15757;
if(
INTEGERP(BgL_monthz00_11814))
{ /* Llib/date.scm 992 */
BgL_tmpz00_15757 = BgL_monthz00_11814
; }  else 
{ 
 obj_t BgL_auxz00_15760;
BgL_auxz00_15760 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41657L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_monthz00_11814); 
FAILURE(BgL_auxz00_15760,BFALSE,BFALSE);} 
BgL_auxz00_15756 = 
CINT(BgL_tmpz00_15757); } 
{ /* Llib/date.scm 994 */
 obj_t BgL_tmpz00_15748;
if(
INTEGERP(BgL_dayz00_11811))
{ /* Llib/date.scm 994 */
BgL_tmpz00_15748 = BgL_dayz00_11811
; }  else 
{ 
 obj_t BgL_auxz00_15751;
BgL_auxz00_15751 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41725L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_dayz00_11811); 
FAILURE(BgL_auxz00_15751,BFALSE,BFALSE);} 
BgL_auxz00_15747 = 
CINT(BgL_tmpz00_15748); } 
{ /* Llib/date.scm 991 */
 obj_t BgL_tmpz00_15739;
if(
INTEGERP(BgL_hourz00_11820))
{ /* Llib/date.scm 991 */
BgL_tmpz00_15739 = BgL_hourz00_11820
; }  else 
{ 
 obj_t BgL_auxz00_15742;
BgL_auxz00_15742 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41640L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_hourz00_11820); 
FAILURE(BgL_auxz00_15742,BFALSE,BFALSE);} 
BgL_auxz00_15738 = 
CINT(BgL_tmpz00_15739); } 
{ /* Llib/date.scm 990 */
 obj_t BgL_tmpz00_15730;
if(
INTEGERP(BgL_minutez00_11823))
{ /* Llib/date.scm 990 */
BgL_tmpz00_15730 = BgL_minutez00_11823
; }  else 
{ 
 obj_t BgL_auxz00_15733;
BgL_auxz00_15733 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41622L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_minutez00_11823); 
FAILURE(BgL_auxz00_15733,BFALSE,BFALSE);} 
BgL_auxz00_15729 = 
CINT(BgL_tmpz00_15730); } 
{ /* Llib/date.scm 989 */
 obj_t BgL_tmpz00_15721;
if(
INTEGERP(BgL_secondz00_11824))
{ /* Llib/date.scm 989 */
BgL_tmpz00_15721 = BgL_secondz00_11824
; }  else 
{ 
 obj_t BgL_auxz00_15724;
BgL_auxz00_15724 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41605L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_secondz00_11824); 
FAILURE(BgL_auxz00_15724,BFALSE,BFALSE);} 
BgL_tmpz00_15720 = 
CINT(BgL_tmpz00_15721); } 
return 
bgl_make_date(((BGL_LONGLONG_T)0), BgL_tmpz00_15720, BgL_auxz00_15729, BgL_auxz00_15738, BgL_auxz00_15747, BgL_auxz00_15756, BgL_auxz00_15765, BgL_auxz00_15774, ((bool_t)1), 
(int)((-1L)));}  else 
{ /* Llib/date.scm 234 */
 int BgL_auxz00_15830; int BgL_auxz00_15821; int BgL_auxz00_15812; int BgL_auxz00_15803; int BgL_auxz00_15794; int BgL_tmpz00_15785;
{ /* Llib/date.scm 993 */
 obj_t BgL_tmpz00_15831;
if(
INTEGERP(BgL_arg1697z00_11830))
{ /* Llib/date.scm 993 */
BgL_tmpz00_15831 = BgL_arg1697z00_11830
; }  else 
{ 
 obj_t BgL_auxz00_15834;
BgL_auxz00_15834 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41713L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg1697z00_11830); 
FAILURE(BgL_auxz00_15834,BFALSE,BFALSE);} 
BgL_auxz00_15830 = 
CINT(BgL_tmpz00_15831); } 
{ /* Llib/date.scm 992 */
 obj_t BgL_tmpz00_15822;
if(
INTEGERP(BgL_monthz00_11814))
{ /* Llib/date.scm 992 */
BgL_tmpz00_15822 = BgL_monthz00_11814
; }  else 
{ 
 obj_t BgL_auxz00_15825;
BgL_auxz00_15825 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41657L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_monthz00_11814); 
FAILURE(BgL_auxz00_15825,BFALSE,BFALSE);} 
BgL_auxz00_15821 = 
CINT(BgL_tmpz00_15822); } 
{ /* Llib/date.scm 994 */
 obj_t BgL_tmpz00_15813;
if(
INTEGERP(BgL_dayz00_11811))
{ /* Llib/date.scm 994 */
BgL_tmpz00_15813 = BgL_dayz00_11811
; }  else 
{ 
 obj_t BgL_auxz00_15816;
BgL_auxz00_15816 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41725L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_dayz00_11811); 
FAILURE(BgL_auxz00_15816,BFALSE,BFALSE);} 
BgL_auxz00_15812 = 
CINT(BgL_tmpz00_15813); } 
{ /* Llib/date.scm 991 */
 obj_t BgL_tmpz00_15804;
if(
INTEGERP(BgL_hourz00_11820))
{ /* Llib/date.scm 991 */
BgL_tmpz00_15804 = BgL_hourz00_11820
; }  else 
{ 
 obj_t BgL_auxz00_15807;
BgL_auxz00_15807 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41640L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_hourz00_11820); 
FAILURE(BgL_auxz00_15807,BFALSE,BFALSE);} 
BgL_auxz00_15803 = 
CINT(BgL_tmpz00_15804); } 
{ /* Llib/date.scm 990 */
 obj_t BgL_tmpz00_15795;
if(
INTEGERP(BgL_minutez00_11823))
{ /* Llib/date.scm 990 */
BgL_tmpz00_15795 = BgL_minutez00_11823
; }  else 
{ 
 obj_t BgL_auxz00_15798;
BgL_auxz00_15798 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41622L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_minutez00_11823); 
FAILURE(BgL_auxz00_15798,BFALSE,BFALSE);} 
BgL_auxz00_15794 = 
CINT(BgL_tmpz00_15795); } 
{ /* Llib/date.scm 989 */
 obj_t BgL_tmpz00_15786;
if(
INTEGERP(BgL_secondz00_11824))
{ /* Llib/date.scm 989 */
BgL_tmpz00_15786 = BgL_secondz00_11824
; }  else 
{ 
 obj_t BgL_auxz00_15789;
BgL_auxz00_15789 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(41605L), BGl_string5877z00zz__datez00, BGl_string5881z00zz__datez00, BgL_secondz00_11824); 
FAILURE(BgL_auxz00_15789,BFALSE,BFALSE);} 
BgL_tmpz00_15785 = 
CINT(BgL_tmpz00_15786); } 
return 
bgl_make_date(((BGL_LONGLONG_T)0), BgL_tmpz00_15785, BgL_auxz00_15794, BgL_auxz00_15803, BgL_auxz00_15812, BgL_auxz00_15821, BgL_auxz00_15830, 0L, ((bool_t)0), 
(int)((-1L)));} } } } } } } } } break;case 0L : 

goto BgL_ignorez00_11778;break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string5882z00zz__datez00, BGl_string5883z00zz__datez00, 
BINT(BgL_matchz00_11789));} } } } } 

}



/* date? */
BGL_EXPORTED_DEF bool_t BGl_datezf3zf3zz__datez00(obj_t BgL_objz00_3)
{
{ /* Llib/date.scm 221 */
return 
BGL_DATEP(BgL_objz00_3);} 

}



/* &date? */
obj_t BGl_z62datezf3z91zz__datez00(obj_t BgL_envz00_9776, obj_t BgL_objz00_9777)
{
{ /* Llib/date.scm 221 */
return 
BBOOL(
BGl_datezf3zf3zz__datez00(BgL_objz00_9777));} 

}



/* _make-date */
obj_t BGl__makezd2datezd2zz__datez00(obj_t BgL_env1316z00_14, obj_t BgL_opt1315z00_13)
{
{ /* Llib/date.scm 227 */
{ /* Llib/date.scm 227 */
 long BgL_l1317z00_3577;
{ /* Llib/date.scm 227 */
 obj_t BgL_vectorz00_8096;
if(
VECTORP(BgL_opt1315z00_13))
{ /* Llib/date.scm 227 */
BgL_vectorz00_8096 = BgL_opt1315z00_13; }  else 
{ 
 obj_t BgL_auxz00_15849;
BgL_auxz00_15849 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1315z00_13); 
FAILURE(BgL_auxz00_15849,BFALSE,BFALSE);} 
BgL_l1317z00_3577 = 
VECTOR_LENGTH(BgL_vectorz00_8096); } 
{ /* Llib/date.scm 227 */

{ /* Llib/date.scm 227 */
 obj_t BgL_dayz00_3581;
BgL_dayz00_3581 = 
BINT(1L); 
{ /* Llib/date.scm 227 */
 obj_t BgL_dstz00_3582;
BgL_dstz00_3582 = 
BINT((-1L)); 
{ /* Llib/date.scm 227 */
 obj_t BgL_hourz00_3583;
BgL_hourz00_3583 = 
BINT(0L); 
{ /* Llib/date.scm 227 */
 obj_t BgL_minz00_3584;
BgL_minz00_3584 = 
BINT(0L); 
{ /* Llib/date.scm 227 */
 obj_t BgL_monthz00_3585;
BgL_monthz00_3585 = 
BINT(1L); 
{ /* Llib/date.scm 227 */
 obj_t BgL_nsecz00_3586;
BgL_nsecz00_3586 = BGl_llong6001z00zz__datez00; 
{ /* Llib/date.scm 227 */
 obj_t BgL_secz00_3587;
BgL_secz00_3587 = 
BINT(0L); 
{ /* Llib/date.scm 227 */
 obj_t BgL_timeza7oneza7_3588;
BgL_timeza7oneza7_3588 = BFALSE; 
{ /* Llib/date.scm 227 */
 obj_t BgL_yearz00_3589;
BgL_yearz00_3589 = 
BINT(1970L); 
{ /* Llib/date.scm 227 */

{ 
 long BgL_iz00_3590;
BgL_iz00_3590 = 0L; 
BgL_check1319z00_3591:
if(
(BgL_iz00_3590==BgL_l1317z00_3577))
{ /* Llib/date.scm 227 */BNIL; }  else 
{ /* Llib/date.scm 227 */
 bool_t BgL_test7038z00_15863;
{ /* Llib/date.scm 227 */
 obj_t BgL_arg2701z00_3597;
{ /* Llib/date.scm 227 */
 obj_t BgL_vectorz00_8106;
if(
VECTORP(BgL_opt1315z00_13))
{ /* Llib/date.scm 227 */
BgL_vectorz00_8106 = BgL_opt1315z00_13; }  else 
{ 
 obj_t BgL_auxz00_15866;
BgL_auxz00_15866 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string6002z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1315z00_13); 
FAILURE(BgL_auxz00_15866,BFALSE,BFALSE);} 
{ /* Llib/date.scm 227 */
 bool_t BgL_test7040z00_15870;
{ /* Llib/date.scm 227 */
 long BgL_tmpz00_15871;
BgL_tmpz00_15871 = 
VECTOR_LENGTH(BgL_vectorz00_8106); 
BgL_test7040z00_15870 = 
BOUND_CHECK(BgL_iz00_3590, BgL_tmpz00_15871); } 
if(BgL_test7040z00_15870)
{ /* Llib/date.scm 227 */
BgL_arg2701z00_3597 = 
VECTOR_REF(BgL_vectorz00_8106,BgL_iz00_3590); }  else 
{ 
 obj_t BgL_auxz00_15875;
BgL_auxz00_15875 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string6003z00zz__datez00, BgL_vectorz00_8106, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_8106)), 
(int)(BgL_iz00_3590)); 
FAILURE(BgL_auxz00_15875,BFALSE,BFALSE);} } } 
BgL_test7038z00_15863 = 
CBOOL(
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg2701z00_3597, BGl_list6004z00zz__datez00)); } 
if(BgL_test7038z00_15863)
{ 
 long BgL_iz00_15884;
BgL_iz00_15884 = 
(BgL_iz00_3590+2L); 
BgL_iz00_3590 = BgL_iz00_15884; 
goto BgL_check1319z00_3591;}  else 
{ /* Llib/date.scm 227 */
 obj_t BgL_arg2698z00_3596;
{ /* Llib/date.scm 227 */
 obj_t BgL_vectorz00_8109;
if(
VECTORP(BgL_opt1315z00_13))
{ /* Llib/date.scm 227 */
BgL_vectorz00_8109 = BgL_opt1315z00_13; }  else 
{ 
 obj_t BgL_auxz00_15888;
BgL_auxz00_15888 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string6002z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1315z00_13); 
FAILURE(BgL_auxz00_15888,BFALSE,BFALSE);} 
{ /* Llib/date.scm 227 */
 bool_t BgL_test7042z00_15892;
{ /* Llib/date.scm 227 */
 long BgL_tmpz00_15893;
BgL_tmpz00_15893 = 
VECTOR_LENGTH(BgL_vectorz00_8109); 
BgL_test7042z00_15892 = 
BOUND_CHECK(BgL_iz00_3590, BgL_tmpz00_15893); } 
if(BgL_test7042z00_15892)
{ /* Llib/date.scm 227 */
BgL_arg2698z00_3596 = 
VECTOR_REF(BgL_vectorz00_8109,BgL_iz00_3590); }  else 
{ 
 obj_t BgL_auxz00_15897;
BgL_auxz00_15897 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string6003z00zz__datez00, BgL_vectorz00_8109, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_8109)), 
(int)(BgL_iz00_3590)); 
FAILURE(BgL_auxz00_15897,BFALSE,BFALSE);} } } 
BGl_errorz00zz__errorz00(BGl_symbol6023z00zz__datez00, BGl_string6025z00zz__datez00, BgL_arg2698z00_3596); } } } 
{ /* Llib/date.scm 227 */
 obj_t BgL_index1321z00_3598;
BgL_index1321z00_3598 = 
BGl_search1318ze70ze7zz__datez00(BgL_l1317z00_3577, BgL_opt1315z00_13, BGl_keyword6005z00zz__datez00, 0L); 
{ /* Llib/date.scm 227 */
 bool_t BgL_test7043z00_15906;
{ /* Llib/date.scm 227 */
 long BgL_n1z00_8111;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_15907;
if(
INTEGERP(BgL_index1321z00_3598))
{ /* Llib/date.scm 227 */
BgL_tmpz00_15907 = BgL_index1321z00_3598
; }  else 
{ 
 obj_t BgL_auxz00_15910;
BgL_auxz00_15910 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1321z00_3598); 
FAILURE(BgL_auxz00_15910,BFALSE,BFALSE);} 
BgL_n1z00_8111 = 
(long)CINT(BgL_tmpz00_15907); } 
BgL_test7043z00_15906 = 
(BgL_n1z00_8111>=0L); } 
if(BgL_test7043z00_15906)
{ 
 long BgL_auxz00_15923; obj_t BgL_auxz00_15916;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_15924;
if(
INTEGERP(BgL_index1321z00_3598))
{ /* Llib/date.scm 227 */
BgL_tmpz00_15924 = BgL_index1321z00_3598
; }  else 
{ 
 obj_t BgL_auxz00_15927;
BgL_auxz00_15927 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1321z00_3598); 
FAILURE(BgL_auxz00_15927,BFALSE,BFALSE);} 
BgL_auxz00_15923 = 
(long)CINT(BgL_tmpz00_15924); } 
if(
VECTORP(BgL_opt1315z00_13))
{ /* Llib/date.scm 227 */
BgL_auxz00_15916 = BgL_opt1315z00_13
; }  else 
{ 
 obj_t BgL_auxz00_15919;
BgL_auxz00_15919 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1315z00_13); 
FAILURE(BgL_auxz00_15919,BFALSE,BFALSE);} 
BgL_dayz00_3581 = 
VECTOR_REF(BgL_auxz00_15916,BgL_auxz00_15923); }  else 
{ /* Llib/date.scm 227 */BFALSE; } } } 
{ /* Llib/date.scm 227 */
 obj_t BgL_index1322z00_3600;
BgL_index1322z00_3600 = 
BGl_search1318ze70ze7zz__datez00(BgL_l1317z00_3577, BgL_opt1315z00_13, BGl_keyword6007z00zz__datez00, 0L); 
{ /* Llib/date.scm 227 */
 bool_t BgL_test7047z00_15934;
{ /* Llib/date.scm 227 */
 long BgL_n1z00_8112;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_15935;
if(
INTEGERP(BgL_index1322z00_3600))
{ /* Llib/date.scm 227 */
BgL_tmpz00_15935 = BgL_index1322z00_3600
; }  else 
{ 
 obj_t BgL_auxz00_15938;
BgL_auxz00_15938 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1322z00_3600); 
FAILURE(BgL_auxz00_15938,BFALSE,BFALSE);} 
BgL_n1z00_8112 = 
(long)CINT(BgL_tmpz00_15935); } 
BgL_test7047z00_15934 = 
(BgL_n1z00_8112>=0L); } 
if(BgL_test7047z00_15934)
{ 
 long BgL_auxz00_15951; obj_t BgL_auxz00_15944;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_15952;
if(
INTEGERP(BgL_index1322z00_3600))
{ /* Llib/date.scm 227 */
BgL_tmpz00_15952 = BgL_index1322z00_3600
; }  else 
{ 
 obj_t BgL_auxz00_15955;
BgL_auxz00_15955 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1322z00_3600); 
FAILURE(BgL_auxz00_15955,BFALSE,BFALSE);} 
BgL_auxz00_15951 = 
(long)CINT(BgL_tmpz00_15952); } 
if(
VECTORP(BgL_opt1315z00_13))
{ /* Llib/date.scm 227 */
BgL_auxz00_15944 = BgL_opt1315z00_13
; }  else 
{ 
 obj_t BgL_auxz00_15947;
BgL_auxz00_15947 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1315z00_13); 
FAILURE(BgL_auxz00_15947,BFALSE,BFALSE);} 
BgL_dstz00_3582 = 
VECTOR_REF(BgL_auxz00_15944,BgL_auxz00_15951); }  else 
{ /* Llib/date.scm 227 */BFALSE; } } } 
{ /* Llib/date.scm 227 */
 obj_t BgL_index1323z00_3602;
BgL_index1323z00_3602 = 
BGl_search1318ze70ze7zz__datez00(BgL_l1317z00_3577, BgL_opt1315z00_13, BGl_keyword6009z00zz__datez00, 0L); 
{ /* Llib/date.scm 227 */
 bool_t BgL_test7051z00_15962;
{ /* Llib/date.scm 227 */
 long BgL_n1z00_8113;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_15963;
if(
INTEGERP(BgL_index1323z00_3602))
{ /* Llib/date.scm 227 */
BgL_tmpz00_15963 = BgL_index1323z00_3602
; }  else 
{ 
 obj_t BgL_auxz00_15966;
BgL_auxz00_15966 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1323z00_3602); 
FAILURE(BgL_auxz00_15966,BFALSE,BFALSE);} 
BgL_n1z00_8113 = 
(long)CINT(BgL_tmpz00_15963); } 
BgL_test7051z00_15962 = 
(BgL_n1z00_8113>=0L); } 
if(BgL_test7051z00_15962)
{ 
 long BgL_auxz00_15979; obj_t BgL_auxz00_15972;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_15980;
if(
INTEGERP(BgL_index1323z00_3602))
{ /* Llib/date.scm 227 */
BgL_tmpz00_15980 = BgL_index1323z00_3602
; }  else 
{ 
 obj_t BgL_auxz00_15983;
BgL_auxz00_15983 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1323z00_3602); 
FAILURE(BgL_auxz00_15983,BFALSE,BFALSE);} 
BgL_auxz00_15979 = 
(long)CINT(BgL_tmpz00_15980); } 
if(
VECTORP(BgL_opt1315z00_13))
{ /* Llib/date.scm 227 */
BgL_auxz00_15972 = BgL_opt1315z00_13
; }  else 
{ 
 obj_t BgL_auxz00_15975;
BgL_auxz00_15975 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1315z00_13); 
FAILURE(BgL_auxz00_15975,BFALSE,BFALSE);} 
BgL_hourz00_3583 = 
VECTOR_REF(BgL_auxz00_15972,BgL_auxz00_15979); }  else 
{ /* Llib/date.scm 227 */BFALSE; } } } 
{ /* Llib/date.scm 227 */
 obj_t BgL_index1324z00_3604;
BgL_index1324z00_3604 = 
BGl_search1318ze70ze7zz__datez00(BgL_l1317z00_3577, BgL_opt1315z00_13, BGl_keyword6011z00zz__datez00, 0L); 
{ /* Llib/date.scm 227 */
 bool_t BgL_test7055z00_15990;
{ /* Llib/date.scm 227 */
 long BgL_n1z00_8114;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_15991;
if(
INTEGERP(BgL_index1324z00_3604))
{ /* Llib/date.scm 227 */
BgL_tmpz00_15991 = BgL_index1324z00_3604
; }  else 
{ 
 obj_t BgL_auxz00_15994;
BgL_auxz00_15994 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1324z00_3604); 
FAILURE(BgL_auxz00_15994,BFALSE,BFALSE);} 
BgL_n1z00_8114 = 
(long)CINT(BgL_tmpz00_15991); } 
BgL_test7055z00_15990 = 
(BgL_n1z00_8114>=0L); } 
if(BgL_test7055z00_15990)
{ 
 long BgL_auxz00_16007; obj_t BgL_auxz00_16000;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_16008;
if(
INTEGERP(BgL_index1324z00_3604))
{ /* Llib/date.scm 227 */
BgL_tmpz00_16008 = BgL_index1324z00_3604
; }  else 
{ 
 obj_t BgL_auxz00_16011;
BgL_auxz00_16011 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1324z00_3604); 
FAILURE(BgL_auxz00_16011,BFALSE,BFALSE);} 
BgL_auxz00_16007 = 
(long)CINT(BgL_tmpz00_16008); } 
if(
VECTORP(BgL_opt1315z00_13))
{ /* Llib/date.scm 227 */
BgL_auxz00_16000 = BgL_opt1315z00_13
; }  else 
{ 
 obj_t BgL_auxz00_16003;
BgL_auxz00_16003 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1315z00_13); 
FAILURE(BgL_auxz00_16003,BFALSE,BFALSE);} 
BgL_minz00_3584 = 
VECTOR_REF(BgL_auxz00_16000,BgL_auxz00_16007); }  else 
{ /* Llib/date.scm 227 */BFALSE; } } } 
{ /* Llib/date.scm 227 */
 obj_t BgL_index1325z00_3606;
BgL_index1325z00_3606 = 
BGl_search1318ze70ze7zz__datez00(BgL_l1317z00_3577, BgL_opt1315z00_13, BGl_keyword6013z00zz__datez00, 0L); 
{ /* Llib/date.scm 227 */
 bool_t BgL_test7059z00_16018;
{ /* Llib/date.scm 227 */
 long BgL_n1z00_8115;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_16019;
if(
INTEGERP(BgL_index1325z00_3606))
{ /* Llib/date.scm 227 */
BgL_tmpz00_16019 = BgL_index1325z00_3606
; }  else 
{ 
 obj_t BgL_auxz00_16022;
BgL_auxz00_16022 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1325z00_3606); 
FAILURE(BgL_auxz00_16022,BFALSE,BFALSE);} 
BgL_n1z00_8115 = 
(long)CINT(BgL_tmpz00_16019); } 
BgL_test7059z00_16018 = 
(BgL_n1z00_8115>=0L); } 
if(BgL_test7059z00_16018)
{ 
 long BgL_auxz00_16035; obj_t BgL_auxz00_16028;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_16036;
if(
INTEGERP(BgL_index1325z00_3606))
{ /* Llib/date.scm 227 */
BgL_tmpz00_16036 = BgL_index1325z00_3606
; }  else 
{ 
 obj_t BgL_auxz00_16039;
BgL_auxz00_16039 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1325z00_3606); 
FAILURE(BgL_auxz00_16039,BFALSE,BFALSE);} 
BgL_auxz00_16035 = 
(long)CINT(BgL_tmpz00_16036); } 
if(
VECTORP(BgL_opt1315z00_13))
{ /* Llib/date.scm 227 */
BgL_auxz00_16028 = BgL_opt1315z00_13
; }  else 
{ 
 obj_t BgL_auxz00_16031;
BgL_auxz00_16031 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1315z00_13); 
FAILURE(BgL_auxz00_16031,BFALSE,BFALSE);} 
BgL_monthz00_3585 = 
VECTOR_REF(BgL_auxz00_16028,BgL_auxz00_16035); }  else 
{ /* Llib/date.scm 227 */BFALSE; } } } 
{ /* Llib/date.scm 227 */
 obj_t BgL_index1326z00_3608;
BgL_index1326z00_3608 = 
BGl_search1318ze70ze7zz__datez00(BgL_l1317z00_3577, BgL_opt1315z00_13, BGl_keyword6015z00zz__datez00, 0L); 
{ /* Llib/date.scm 227 */
 bool_t BgL_test7063z00_16046;
{ /* Llib/date.scm 227 */
 long BgL_n1z00_8116;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_16047;
if(
INTEGERP(BgL_index1326z00_3608))
{ /* Llib/date.scm 227 */
BgL_tmpz00_16047 = BgL_index1326z00_3608
; }  else 
{ 
 obj_t BgL_auxz00_16050;
BgL_auxz00_16050 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1326z00_3608); 
FAILURE(BgL_auxz00_16050,BFALSE,BFALSE);} 
BgL_n1z00_8116 = 
(long)CINT(BgL_tmpz00_16047); } 
BgL_test7063z00_16046 = 
(BgL_n1z00_8116>=0L); } 
if(BgL_test7063z00_16046)
{ 
 long BgL_auxz00_16063; obj_t BgL_auxz00_16056;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_16064;
if(
INTEGERP(BgL_index1326z00_3608))
{ /* Llib/date.scm 227 */
BgL_tmpz00_16064 = BgL_index1326z00_3608
; }  else 
{ 
 obj_t BgL_auxz00_16067;
BgL_auxz00_16067 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1326z00_3608); 
FAILURE(BgL_auxz00_16067,BFALSE,BFALSE);} 
BgL_auxz00_16063 = 
(long)CINT(BgL_tmpz00_16064); } 
if(
VECTORP(BgL_opt1315z00_13))
{ /* Llib/date.scm 227 */
BgL_auxz00_16056 = BgL_opt1315z00_13
; }  else 
{ 
 obj_t BgL_auxz00_16059;
BgL_auxz00_16059 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1315z00_13); 
FAILURE(BgL_auxz00_16059,BFALSE,BFALSE);} 
BgL_nsecz00_3586 = 
VECTOR_REF(BgL_auxz00_16056,BgL_auxz00_16063); }  else 
{ /* Llib/date.scm 227 */BFALSE; } } } 
{ /* Llib/date.scm 227 */
 obj_t BgL_index1327z00_3610;
BgL_index1327z00_3610 = 
BGl_search1318ze70ze7zz__datez00(BgL_l1317z00_3577, BgL_opt1315z00_13, BGl_keyword6017z00zz__datez00, 0L); 
{ /* Llib/date.scm 227 */
 bool_t BgL_test7067z00_16074;
{ /* Llib/date.scm 227 */
 long BgL_n1z00_8117;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_16075;
if(
INTEGERP(BgL_index1327z00_3610))
{ /* Llib/date.scm 227 */
BgL_tmpz00_16075 = BgL_index1327z00_3610
; }  else 
{ 
 obj_t BgL_auxz00_16078;
BgL_auxz00_16078 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1327z00_3610); 
FAILURE(BgL_auxz00_16078,BFALSE,BFALSE);} 
BgL_n1z00_8117 = 
(long)CINT(BgL_tmpz00_16075); } 
BgL_test7067z00_16074 = 
(BgL_n1z00_8117>=0L); } 
if(BgL_test7067z00_16074)
{ 
 long BgL_auxz00_16091; obj_t BgL_auxz00_16084;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_16092;
if(
INTEGERP(BgL_index1327z00_3610))
{ /* Llib/date.scm 227 */
BgL_tmpz00_16092 = BgL_index1327z00_3610
; }  else 
{ 
 obj_t BgL_auxz00_16095;
BgL_auxz00_16095 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1327z00_3610); 
FAILURE(BgL_auxz00_16095,BFALSE,BFALSE);} 
BgL_auxz00_16091 = 
(long)CINT(BgL_tmpz00_16092); } 
if(
VECTORP(BgL_opt1315z00_13))
{ /* Llib/date.scm 227 */
BgL_auxz00_16084 = BgL_opt1315z00_13
; }  else 
{ 
 obj_t BgL_auxz00_16087;
BgL_auxz00_16087 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1315z00_13); 
FAILURE(BgL_auxz00_16087,BFALSE,BFALSE);} 
BgL_secz00_3587 = 
VECTOR_REF(BgL_auxz00_16084,BgL_auxz00_16091); }  else 
{ /* Llib/date.scm 227 */BFALSE; } } } 
{ /* Llib/date.scm 227 */
 obj_t BgL_index1328z00_3612;
BgL_index1328z00_3612 = 
BGl_search1318ze70ze7zz__datez00(BgL_l1317z00_3577, BgL_opt1315z00_13, BGl_keyword6019z00zz__datez00, 0L); 
{ /* Llib/date.scm 227 */
 bool_t BgL_test7071z00_16102;
{ /* Llib/date.scm 227 */
 long BgL_n1z00_8118;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_16103;
if(
INTEGERP(BgL_index1328z00_3612))
{ /* Llib/date.scm 227 */
BgL_tmpz00_16103 = BgL_index1328z00_3612
; }  else 
{ 
 obj_t BgL_auxz00_16106;
BgL_auxz00_16106 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1328z00_3612); 
FAILURE(BgL_auxz00_16106,BFALSE,BFALSE);} 
BgL_n1z00_8118 = 
(long)CINT(BgL_tmpz00_16103); } 
BgL_test7071z00_16102 = 
(BgL_n1z00_8118>=0L); } 
if(BgL_test7071z00_16102)
{ 
 long BgL_auxz00_16119; obj_t BgL_auxz00_16112;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_16120;
if(
INTEGERP(BgL_index1328z00_3612))
{ /* Llib/date.scm 227 */
BgL_tmpz00_16120 = BgL_index1328z00_3612
; }  else 
{ 
 obj_t BgL_auxz00_16123;
BgL_auxz00_16123 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1328z00_3612); 
FAILURE(BgL_auxz00_16123,BFALSE,BFALSE);} 
BgL_auxz00_16119 = 
(long)CINT(BgL_tmpz00_16120); } 
if(
VECTORP(BgL_opt1315z00_13))
{ /* Llib/date.scm 227 */
BgL_auxz00_16112 = BgL_opt1315z00_13
; }  else 
{ 
 obj_t BgL_auxz00_16115;
BgL_auxz00_16115 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1315z00_13); 
FAILURE(BgL_auxz00_16115,BFALSE,BFALSE);} 
BgL_timeza7oneza7_3588 = 
VECTOR_REF(BgL_auxz00_16112,BgL_auxz00_16119); }  else 
{ /* Llib/date.scm 227 */BFALSE; } } } 
{ /* Llib/date.scm 227 */
 obj_t BgL_index1329z00_3614;
BgL_index1329z00_3614 = 
BGl_search1318ze70ze7zz__datez00(BgL_l1317z00_3577, BgL_opt1315z00_13, BGl_keyword6021z00zz__datez00, 0L); 
{ /* Llib/date.scm 227 */
 bool_t BgL_test7075z00_16130;
{ /* Llib/date.scm 227 */
 long BgL_n1z00_8119;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_16131;
if(
INTEGERP(BgL_index1329z00_3614))
{ /* Llib/date.scm 227 */
BgL_tmpz00_16131 = BgL_index1329z00_3614
; }  else 
{ 
 obj_t BgL_auxz00_16134;
BgL_auxz00_16134 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1329z00_3614); 
FAILURE(BgL_auxz00_16134,BFALSE,BFALSE);} 
BgL_n1z00_8119 = 
(long)CINT(BgL_tmpz00_16131); } 
BgL_test7075z00_16130 = 
(BgL_n1z00_8119>=0L); } 
if(BgL_test7075z00_16130)
{ 
 long BgL_auxz00_16147; obj_t BgL_auxz00_16140;
{ /* Llib/date.scm 227 */
 obj_t BgL_tmpz00_16148;
if(
INTEGERP(BgL_index1329z00_3614))
{ /* Llib/date.scm 227 */
BgL_tmpz00_16148 = BgL_index1329z00_3614
; }  else 
{ 
 obj_t BgL_auxz00_16151;
BgL_auxz00_16151 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1329z00_3614); 
FAILURE(BgL_auxz00_16151,BFALSE,BFALSE);} 
BgL_auxz00_16147 = 
(long)CINT(BgL_tmpz00_16148); } 
if(
VECTORP(BgL_opt1315z00_13))
{ /* Llib/date.scm 227 */
BgL_auxz00_16140 = BgL_opt1315z00_13
; }  else 
{ 
 obj_t BgL_auxz00_16143;
BgL_auxz00_16143 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string5999z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1315z00_13); 
FAILURE(BgL_auxz00_16143,BFALSE,BFALSE);} 
BgL_yearz00_3589 = 
VECTOR_REF(BgL_auxz00_16140,BgL_auxz00_16147); }  else 
{ /* Llib/date.scm 227 */BFALSE; } } } 
{ /* Llib/date.scm 227 */
 obj_t BgL_dayz00_3616;
BgL_dayz00_3616 = BgL_dayz00_3581; 
{ /* Llib/date.scm 227 */
 obj_t BgL_dstz00_3617;
BgL_dstz00_3617 = BgL_dstz00_3582; 
{ /* Llib/date.scm 227 */
 obj_t BgL_hourz00_3618;
BgL_hourz00_3618 = BgL_hourz00_3583; 
{ /* Llib/date.scm 227 */
 obj_t BgL_minz00_3619;
BgL_minz00_3619 = BgL_minz00_3584; 
{ /* Llib/date.scm 227 */
 obj_t BgL_monthz00_3620;
BgL_monthz00_3620 = BgL_monthz00_3585; 
{ /* Llib/date.scm 227 */
 obj_t BgL_nsecz00_3621;
BgL_nsecz00_3621 = BgL_nsecz00_3586; 
{ /* Llib/date.scm 227 */
 obj_t BgL_secz00_3622;
BgL_secz00_3622 = BgL_secz00_3587; 
{ /* Llib/date.scm 227 */
 obj_t BgL_timeza7oneza7_3623;
BgL_timeza7oneza7_3623 = BgL_timeza7oneza7_3588; 
{ /* Llib/date.scm 227 */
 obj_t BgL_yearz00_3624;
BgL_yearz00_3624 = BgL_yearz00_3589; 
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_timeza7oneza7_3623))
{ /* Llib/date.scm 233 */
 int BgL_auxz00_16231; long BgL_auxz00_16222; int BgL_auxz00_16213; int BgL_auxz00_16204; int BgL_auxz00_16195; int BgL_auxz00_16186; int BgL_auxz00_16177; int BgL_auxz00_16168; BGL_LONGLONG_T BgL_tmpz00_16159;
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16232;
if(
INTEGERP(BgL_dstz00_3617))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16232 = BgL_dstz00_3617
; }  else 
{ 
 obj_t BgL_auxz00_16235;
BgL_auxz00_16235 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11095L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_dstz00_3617); 
FAILURE(BgL_auxz00_16235,BFALSE,BFALSE);} 
BgL_auxz00_16231 = 
CINT(BgL_tmpz00_16232); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16223;
if(
INTEGERP(BgL_timeza7oneza7_3623))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16223 = BgL_timeza7oneza7_3623
; }  else 
{ 
 obj_t BgL_auxz00_16226;
BgL_auxz00_16226 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11083L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_timeza7oneza7_3623); 
FAILURE(BgL_auxz00_16226,BFALSE,BFALSE);} 
BgL_auxz00_16222 = 
(long)CINT(BgL_tmpz00_16223); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16214;
if(
INTEGERP(BgL_yearz00_3624))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16214 = BgL_yearz00_3624
; }  else 
{ 
 obj_t BgL_auxz00_16217;
BgL_auxz00_16217 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11078L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_yearz00_3624); 
FAILURE(BgL_auxz00_16217,BFALSE,BFALSE);} 
BgL_auxz00_16213 = 
CINT(BgL_tmpz00_16214); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16205;
if(
INTEGERP(BgL_monthz00_3620))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16205 = BgL_monthz00_3620
; }  else 
{ 
 obj_t BgL_auxz00_16208;
BgL_auxz00_16208 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11072L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_monthz00_3620); 
FAILURE(BgL_auxz00_16208,BFALSE,BFALSE);} 
BgL_auxz00_16204 = 
CINT(BgL_tmpz00_16205); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16196;
if(
INTEGERP(BgL_dayz00_3616))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16196 = BgL_dayz00_3616
; }  else 
{ 
 obj_t BgL_auxz00_16199;
BgL_auxz00_16199 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11068L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_dayz00_3616); 
FAILURE(BgL_auxz00_16199,BFALSE,BFALSE);} 
BgL_auxz00_16195 = 
CINT(BgL_tmpz00_16196); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16187;
if(
INTEGERP(BgL_hourz00_3618))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16187 = BgL_hourz00_3618
; }  else 
{ 
 obj_t BgL_auxz00_16190;
BgL_auxz00_16190 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11063L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_hourz00_3618); 
FAILURE(BgL_auxz00_16190,BFALSE,BFALSE);} 
BgL_auxz00_16186 = 
CINT(BgL_tmpz00_16187); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16178;
if(
INTEGERP(BgL_minz00_3619))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16178 = BgL_minz00_3619
; }  else 
{ 
 obj_t BgL_auxz00_16181;
BgL_auxz00_16181 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11059L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_minz00_3619); 
FAILURE(BgL_auxz00_16181,BFALSE,BFALSE);} 
BgL_auxz00_16177 = 
CINT(BgL_tmpz00_16178); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16169;
if(
INTEGERP(BgL_secz00_3622))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16169 = BgL_secz00_3622
; }  else 
{ 
 obj_t BgL_auxz00_16172;
BgL_auxz00_16172 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11055L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_secz00_3622); 
FAILURE(BgL_auxz00_16172,BFALSE,BFALSE);} 
BgL_auxz00_16168 = 
CINT(BgL_tmpz00_16169); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16160;
if(
LLONGP(BgL_nsecz00_3621))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16160 = BgL_nsecz00_3621
; }  else 
{ 
 obj_t BgL_auxz00_16163;
BgL_auxz00_16163 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11050L), BGl_string5999z00zz__datez00, BGl_string6026z00zz__datez00, BgL_nsecz00_3621); 
FAILURE(BgL_auxz00_16163,BFALSE,BFALSE);} 
BgL_tmpz00_16159 = 
BLLONG_TO_LLONG(BgL_tmpz00_16160); } 
return 
bgl_make_date(BgL_tmpz00_16159, BgL_auxz00_16168, BgL_auxz00_16177, BgL_auxz00_16186, BgL_auxz00_16195, BgL_auxz00_16204, BgL_auxz00_16213, BgL_auxz00_16222, ((bool_t)1), BgL_auxz00_16231);}  else 
{ /* Llib/date.scm 234 */
 int BgL_auxz00_16304; int BgL_auxz00_16295; int BgL_auxz00_16286; int BgL_auxz00_16277; int BgL_auxz00_16268; int BgL_auxz00_16259; int BgL_auxz00_16250; BGL_LONGLONG_T BgL_tmpz00_16241;
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16305;
if(
INTEGERP(BgL_dstz00_3617))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16305 = BgL_dstz00_3617
; }  else 
{ 
 obj_t BgL_auxz00_16308;
BgL_auxz00_16308 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11156L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_dstz00_3617); 
FAILURE(BgL_auxz00_16308,BFALSE,BFALSE);} 
BgL_auxz00_16304 = 
CINT(BgL_tmpz00_16305); } 
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16296;
if(
INTEGERP(BgL_yearz00_3624))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16296 = BgL_yearz00_3624
; }  else 
{ 
 obj_t BgL_auxz00_16299;
BgL_auxz00_16299 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11146L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_yearz00_3624); 
FAILURE(BgL_auxz00_16299,BFALSE,BFALSE);} 
BgL_auxz00_16295 = 
CINT(BgL_tmpz00_16296); } 
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16287;
if(
INTEGERP(BgL_monthz00_3620))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16287 = BgL_monthz00_3620
; }  else 
{ 
 obj_t BgL_auxz00_16290;
BgL_auxz00_16290 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11140L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_monthz00_3620); 
FAILURE(BgL_auxz00_16290,BFALSE,BFALSE);} 
BgL_auxz00_16286 = 
CINT(BgL_tmpz00_16287); } 
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16278;
if(
INTEGERP(BgL_dayz00_3616))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16278 = BgL_dayz00_3616
; }  else 
{ 
 obj_t BgL_auxz00_16281;
BgL_auxz00_16281 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11136L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_dayz00_3616); 
FAILURE(BgL_auxz00_16281,BFALSE,BFALSE);} 
BgL_auxz00_16277 = 
CINT(BgL_tmpz00_16278); } 
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16269;
if(
INTEGERP(BgL_hourz00_3618))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16269 = BgL_hourz00_3618
; }  else 
{ 
 obj_t BgL_auxz00_16272;
BgL_auxz00_16272 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11131L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_hourz00_3618); 
FAILURE(BgL_auxz00_16272,BFALSE,BFALSE);} 
BgL_auxz00_16268 = 
CINT(BgL_tmpz00_16269); } 
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16260;
if(
INTEGERP(BgL_minz00_3619))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16260 = BgL_minz00_3619
; }  else 
{ 
 obj_t BgL_auxz00_16263;
BgL_auxz00_16263 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11127L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_minz00_3619); 
FAILURE(BgL_auxz00_16263,BFALSE,BFALSE);} 
BgL_auxz00_16259 = 
CINT(BgL_tmpz00_16260); } 
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16251;
if(
INTEGERP(BgL_secz00_3622))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16251 = BgL_secz00_3622
; }  else 
{ 
 obj_t BgL_auxz00_16254;
BgL_auxz00_16254 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11123L), BGl_string5999z00zz__datez00, BGl_string5881z00zz__datez00, BgL_secz00_3622); 
FAILURE(BgL_auxz00_16254,BFALSE,BFALSE);} 
BgL_auxz00_16250 = 
CINT(BgL_tmpz00_16251); } 
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16242;
if(
LLONGP(BgL_nsecz00_3621))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16242 = BgL_nsecz00_3621
; }  else 
{ 
 obj_t BgL_auxz00_16245;
BgL_auxz00_16245 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11118L), BGl_string5999z00zz__datez00, BGl_string6026z00zz__datez00, BgL_nsecz00_3621); 
FAILURE(BgL_auxz00_16245,BFALSE,BFALSE);} 
BgL_tmpz00_16241 = 
BLLONG_TO_LLONG(BgL_tmpz00_16242); } 
return 
bgl_make_date(BgL_tmpz00_16241, BgL_auxz00_16250, BgL_auxz00_16259, BgL_auxz00_16268, BgL_auxz00_16277, BgL_auxz00_16286, BgL_auxz00_16295, 0L, ((bool_t)0), BgL_auxz00_16304);} } } } } } } } } } } } } } } } } } } } } } } 

}



/* search1318~0 */
obj_t BGl_search1318ze70ze7zz__datez00(long BgL_l1317z00_9891, obj_t BgL_opt1315z00_9890, obj_t BgL_k1z00_3578, long BgL_iz00_3579)
{
{ /* Llib/date.scm 227 */
BGl_search1318ze70ze7zz__datez00:
if(
(BgL_iz00_3579==BgL_l1317z00_9891))
{ /* Llib/date.scm 227 */
return 
BINT((-1L));}  else 
{ /* Llib/date.scm 227 */
if(
(BgL_iz00_3579==
(BgL_l1317z00_9891-1L)))
{ /* Llib/date.scm 227 */
 long BgL_arg2716z00_3628;
{ 
 obj_t BgL_auxz00_16320;
if(
VECTORP(BgL_opt1315z00_9890))
{ /* Llib/date.scm 227 */
BgL_auxz00_16320 = BgL_opt1315z00_9890
; }  else 
{ 
 obj_t BgL_auxz00_16323;
BgL_auxz00_16323 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string6027z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1315z00_9890); 
FAILURE(BgL_auxz00_16323,BFALSE,BFALSE);} 
BgL_arg2716z00_3628 = 
VECTOR_LENGTH(BgL_auxz00_16320); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol6023z00zz__datez00, BGl_string6028z00zz__datez00, 
BINT(BgL_arg2716z00_3628));}  else 
{ /* Llib/date.scm 227 */
 obj_t BgL_vz00_3629;
{ 
 obj_t BgL_auxz00_16330;
if(
VECTORP(BgL_opt1315z00_9890))
{ /* Llib/date.scm 227 */
BgL_auxz00_16330 = BgL_opt1315z00_9890
; }  else 
{ 
 obj_t BgL_auxz00_16333;
BgL_auxz00_16333 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(10879L), BGl_string6027z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1315z00_9890); 
FAILURE(BgL_auxz00_16333,BFALSE,BFALSE);} 
BgL_vz00_3629 = 
VECTOR_REF(BgL_auxz00_16330,BgL_iz00_3579); } 
if(
(BgL_vz00_3629==BgL_k1z00_3578))
{ /* Llib/date.scm 227 */
return 
BINT(
(BgL_iz00_3579+1L));}  else 
{ 
 long BgL_iz00_16342;
BgL_iz00_16342 = 
(BgL_iz00_3579+2L); 
BgL_iz00_3579 = BgL_iz00_16342; 
goto BGl_search1318ze70ze7zz__datez00;} } } } 

}



/* make-date */
BGL_EXPORTED_DEF obj_t BGl_makezd2datezd2zz__datez00(obj_t BgL_dayz00_4, obj_t BgL_dstz00_5, obj_t BgL_hourz00_6, obj_t BgL_minz00_7, obj_t BgL_monthz00_8, obj_t BgL_nsecz00_9, obj_t BgL_secz00_10, obj_t BgL_timeza7oneza7_11, obj_t BgL_yearz00_12)
{
{ /* Llib/date.scm 227 */
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_timeza7oneza7_11))
{ /* Llib/date.scm 233 */
 int BgL_auxz00_16418; long BgL_auxz00_16409; int BgL_auxz00_16400; int BgL_auxz00_16391; int BgL_auxz00_16382; int BgL_auxz00_16373; int BgL_auxz00_16364; int BgL_auxz00_16355; BGL_LONGLONG_T BgL_tmpz00_16346;
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16419;
if(
INTEGERP(BgL_dstz00_5))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16419 = BgL_dstz00_5
; }  else 
{ 
 obj_t BgL_auxz00_16422;
BgL_auxz00_16422 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11095L), BGl_string6024z00zz__datez00, BGl_string5881z00zz__datez00, BgL_dstz00_5); 
FAILURE(BgL_auxz00_16422,BFALSE,BFALSE);} 
BgL_auxz00_16418 = 
CINT(BgL_tmpz00_16419); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16410;
if(
INTEGERP(BgL_timeza7oneza7_11))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16410 = BgL_timeza7oneza7_11
; }  else 
{ 
 obj_t BgL_auxz00_16413;
BgL_auxz00_16413 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11083L), BGl_string6024z00zz__datez00, BGl_string5881z00zz__datez00, BgL_timeza7oneza7_11); 
FAILURE(BgL_auxz00_16413,BFALSE,BFALSE);} 
BgL_auxz00_16409 = 
(long)CINT(BgL_tmpz00_16410); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16401;
if(
INTEGERP(BgL_yearz00_12))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16401 = BgL_yearz00_12
; }  else 
{ 
 obj_t BgL_auxz00_16404;
BgL_auxz00_16404 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11078L), BGl_string6024z00zz__datez00, BGl_string5881z00zz__datez00, BgL_yearz00_12); 
FAILURE(BgL_auxz00_16404,BFALSE,BFALSE);} 
BgL_auxz00_16400 = 
CINT(BgL_tmpz00_16401); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16392;
if(
INTEGERP(BgL_monthz00_8))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16392 = BgL_monthz00_8
; }  else 
{ 
 obj_t BgL_auxz00_16395;
BgL_auxz00_16395 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11072L), BGl_string6024z00zz__datez00, BGl_string5881z00zz__datez00, BgL_monthz00_8); 
FAILURE(BgL_auxz00_16395,BFALSE,BFALSE);} 
BgL_auxz00_16391 = 
CINT(BgL_tmpz00_16392); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16383;
if(
INTEGERP(BgL_dayz00_4))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16383 = BgL_dayz00_4
; }  else 
{ 
 obj_t BgL_auxz00_16386;
BgL_auxz00_16386 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11068L), BGl_string6024z00zz__datez00, BGl_string5881z00zz__datez00, BgL_dayz00_4); 
FAILURE(BgL_auxz00_16386,BFALSE,BFALSE);} 
BgL_auxz00_16382 = 
CINT(BgL_tmpz00_16383); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16374;
if(
INTEGERP(BgL_hourz00_6))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16374 = BgL_hourz00_6
; }  else 
{ 
 obj_t BgL_auxz00_16377;
BgL_auxz00_16377 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11063L), BGl_string6024z00zz__datez00, BGl_string5881z00zz__datez00, BgL_hourz00_6); 
FAILURE(BgL_auxz00_16377,BFALSE,BFALSE);} 
BgL_auxz00_16373 = 
CINT(BgL_tmpz00_16374); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16365;
if(
INTEGERP(BgL_minz00_7))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16365 = BgL_minz00_7
; }  else 
{ 
 obj_t BgL_auxz00_16368;
BgL_auxz00_16368 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11059L), BGl_string6024z00zz__datez00, BGl_string5881z00zz__datez00, BgL_minz00_7); 
FAILURE(BgL_auxz00_16368,BFALSE,BFALSE);} 
BgL_auxz00_16364 = 
CINT(BgL_tmpz00_16365); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16356;
if(
INTEGERP(BgL_secz00_10))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16356 = BgL_secz00_10
; }  else 
{ 
 obj_t BgL_auxz00_16359;
BgL_auxz00_16359 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11055L), BGl_string6024z00zz__datez00, BGl_string5881z00zz__datez00, BgL_secz00_10); 
FAILURE(BgL_auxz00_16359,BFALSE,BFALSE);} 
BgL_auxz00_16355 = 
CINT(BgL_tmpz00_16356); } 
{ /* Llib/date.scm 233 */
 obj_t BgL_tmpz00_16347;
if(
LLONGP(BgL_nsecz00_9))
{ /* Llib/date.scm 233 */
BgL_tmpz00_16347 = BgL_nsecz00_9
; }  else 
{ 
 obj_t BgL_auxz00_16350;
BgL_auxz00_16350 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11050L), BGl_string6024z00zz__datez00, BGl_string6026z00zz__datez00, BgL_nsecz00_9); 
FAILURE(BgL_auxz00_16350,BFALSE,BFALSE);} 
BgL_tmpz00_16346 = 
BLLONG_TO_LLONG(BgL_tmpz00_16347); } 
return 
bgl_make_date(BgL_tmpz00_16346, BgL_auxz00_16355, BgL_auxz00_16364, BgL_auxz00_16373, BgL_auxz00_16382, BgL_auxz00_16391, BgL_auxz00_16400, BgL_auxz00_16409, ((bool_t)1), BgL_auxz00_16418);}  else 
{ /* Llib/date.scm 234 */
 int BgL_auxz00_16491; int BgL_auxz00_16482; int BgL_auxz00_16473; int BgL_auxz00_16464; int BgL_auxz00_16455; int BgL_auxz00_16446; int BgL_auxz00_16437; BGL_LONGLONG_T BgL_tmpz00_16428;
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16492;
if(
INTEGERP(BgL_dstz00_5))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16492 = BgL_dstz00_5
; }  else 
{ 
 obj_t BgL_auxz00_16495;
BgL_auxz00_16495 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11156L), BGl_string6024z00zz__datez00, BGl_string5881z00zz__datez00, BgL_dstz00_5); 
FAILURE(BgL_auxz00_16495,BFALSE,BFALSE);} 
BgL_auxz00_16491 = 
CINT(BgL_tmpz00_16492); } 
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16483;
if(
INTEGERP(BgL_yearz00_12))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16483 = BgL_yearz00_12
; }  else 
{ 
 obj_t BgL_auxz00_16486;
BgL_auxz00_16486 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11146L), BGl_string6024z00zz__datez00, BGl_string5881z00zz__datez00, BgL_yearz00_12); 
FAILURE(BgL_auxz00_16486,BFALSE,BFALSE);} 
BgL_auxz00_16482 = 
CINT(BgL_tmpz00_16483); } 
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16474;
if(
INTEGERP(BgL_monthz00_8))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16474 = BgL_monthz00_8
; }  else 
{ 
 obj_t BgL_auxz00_16477;
BgL_auxz00_16477 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11140L), BGl_string6024z00zz__datez00, BGl_string5881z00zz__datez00, BgL_monthz00_8); 
FAILURE(BgL_auxz00_16477,BFALSE,BFALSE);} 
BgL_auxz00_16473 = 
CINT(BgL_tmpz00_16474); } 
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16465;
if(
INTEGERP(BgL_dayz00_4))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16465 = BgL_dayz00_4
; }  else 
{ 
 obj_t BgL_auxz00_16468;
BgL_auxz00_16468 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11136L), BGl_string6024z00zz__datez00, BGl_string5881z00zz__datez00, BgL_dayz00_4); 
FAILURE(BgL_auxz00_16468,BFALSE,BFALSE);} 
BgL_auxz00_16464 = 
CINT(BgL_tmpz00_16465); } 
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16456;
if(
INTEGERP(BgL_hourz00_6))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16456 = BgL_hourz00_6
; }  else 
{ 
 obj_t BgL_auxz00_16459;
BgL_auxz00_16459 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11131L), BGl_string6024z00zz__datez00, BGl_string5881z00zz__datez00, BgL_hourz00_6); 
FAILURE(BgL_auxz00_16459,BFALSE,BFALSE);} 
BgL_auxz00_16455 = 
CINT(BgL_tmpz00_16456); } 
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16447;
if(
INTEGERP(BgL_minz00_7))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16447 = BgL_minz00_7
; }  else 
{ 
 obj_t BgL_auxz00_16450;
BgL_auxz00_16450 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11127L), BGl_string6024z00zz__datez00, BGl_string5881z00zz__datez00, BgL_minz00_7); 
FAILURE(BgL_auxz00_16450,BFALSE,BFALSE);} 
BgL_auxz00_16446 = 
CINT(BgL_tmpz00_16447); } 
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16438;
if(
INTEGERP(BgL_secz00_10))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16438 = BgL_secz00_10
; }  else 
{ 
 obj_t BgL_auxz00_16441;
BgL_auxz00_16441 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11123L), BGl_string6024z00zz__datez00, BGl_string5881z00zz__datez00, BgL_secz00_10); 
FAILURE(BgL_auxz00_16441,BFALSE,BFALSE);} 
BgL_auxz00_16437 = 
CINT(BgL_tmpz00_16438); } 
{ /* Llib/date.scm 234 */
 obj_t BgL_tmpz00_16429;
if(
LLONGP(BgL_nsecz00_9))
{ /* Llib/date.scm 234 */
BgL_tmpz00_16429 = BgL_nsecz00_9
; }  else 
{ 
 obj_t BgL_auxz00_16432;
BgL_auxz00_16432 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11118L), BGl_string6024z00zz__datez00, BGl_string6026z00zz__datez00, BgL_nsecz00_9); 
FAILURE(BgL_auxz00_16432,BFALSE,BFALSE);} 
BgL_tmpz00_16428 = 
BLLONG_TO_LLONG(BgL_tmpz00_16429); } 
return 
bgl_make_date(BgL_tmpz00_16428, BgL_auxz00_16437, BgL_auxz00_16446, BgL_auxz00_16455, BgL_auxz00_16464, BgL_auxz00_16473, BgL_auxz00_16482, 0L, ((bool_t)0), BgL_auxz00_16491);} } 

}



/* _date-copy */
obj_t BGl__datezd2copyzd2zz__datez00(obj_t BgL_env1331z00_26, obj_t BgL_opt1330z00_25)
{
{ /* Llib/date.scm 239 */
{ /* Llib/date.scm 239 */
 long BgL_l1332z00_3633;
{ /* Llib/date.scm 239 */
 obj_t BgL_vectorz00_8122;
if(
VECTORP(BgL_opt1330z00_25))
{ /* Llib/date.scm 239 */
BgL_vectorz00_8122 = BgL_opt1330z00_25; }  else 
{ 
 obj_t BgL_auxz00_16503;
BgL_auxz00_16503 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_25); 
FAILURE(BgL_auxz00_16503,BFALSE,BFALSE);} 
BgL_l1332z00_3633 = 
VECTOR_LENGTH(BgL_vectorz00_8122); } 
{ /* Llib/date.scm 239 */
 obj_t BgL_datez00_3637;
{ 
 obj_t BgL_auxz00_16508;
if(
VECTORP(BgL_opt1330z00_25))
{ /* Llib/date.scm 239 */
BgL_auxz00_16508 = BgL_opt1330z00_25
; }  else 
{ 
 obj_t BgL_auxz00_16511;
BgL_auxz00_16511 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_25); 
FAILURE(BgL_auxz00_16511,BFALSE,BFALSE);} 
BgL_datez00_3637 = 
VECTOR_REF(BgL_auxz00_16508,0L); } 
{ /* Llib/date.scm 239 */
 obj_t BgL_dayz00_3638;
BgL_dayz00_3638 = BFALSE; 
{ /* Llib/date.scm 239 */
 obj_t BgL_hourz00_3639;
BgL_hourz00_3639 = BFALSE; 
{ /* Llib/date.scm 239 */
 obj_t BgL_isdstz00_3640;
BgL_isdstz00_3640 = BFALSE; 
{ /* Llib/date.scm 239 */
 obj_t BgL_minz00_3641;
BgL_minz00_3641 = BFALSE; 
{ /* Llib/date.scm 239 */
 obj_t BgL_monthz00_3642;
BgL_monthz00_3642 = BFALSE; 
{ /* Llib/date.scm 239 */
 obj_t BgL_nsecz00_3643;
BgL_nsecz00_3643 = BFALSE; 
{ /* Llib/date.scm 239 */
 obj_t BgL_secz00_3644;
BgL_secz00_3644 = BFALSE; 
{ /* Llib/date.scm 239 */
 obj_t BgL_timeza7oneza7_3645;
BgL_timeza7oneza7_3645 = BFALSE; 
{ /* Llib/date.scm 239 */
 obj_t BgL_yearz00_3646;
BgL_yearz00_3646 = BFALSE; 
{ /* Llib/date.scm 239 */

{ 
 long BgL_iz00_3647;
BgL_iz00_3647 = 1L; 
BgL_check1334z00_3648:
if(
(BgL_iz00_3647==BgL_l1332z00_3633))
{ /* Llib/date.scm 239 */BNIL; }  else 
{ /* Llib/date.scm 239 */
 bool_t BgL_test7123z00_16518;
{ /* Llib/date.scm 239 */
 obj_t BgL_arg2727z00_3654;
{ /* Llib/date.scm 239 */
 obj_t BgL_vectorz00_8132;
if(
VECTORP(BgL_opt1330z00_25))
{ /* Llib/date.scm 239 */
BgL_vectorz00_8132 = BgL_opt1330z00_25; }  else 
{ 
 obj_t BgL_auxz00_16521;
BgL_auxz00_16521 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6030z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_25); 
FAILURE(BgL_auxz00_16521,BFALSE,BFALSE);} 
{ /* Llib/date.scm 239 */
 bool_t BgL_test7125z00_16525;
{ /* Llib/date.scm 239 */
 long BgL_tmpz00_16526;
BgL_tmpz00_16526 = 
VECTOR_LENGTH(BgL_vectorz00_8132); 
BgL_test7125z00_16525 = 
BOUND_CHECK(BgL_iz00_3647, BgL_tmpz00_16526); } 
if(BgL_test7125z00_16525)
{ /* Llib/date.scm 239 */
BgL_arg2727z00_3654 = 
VECTOR_REF(BgL_vectorz00_8132,BgL_iz00_3647); }  else 
{ 
 obj_t BgL_auxz00_16530;
BgL_auxz00_16530 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6003z00zz__datez00, BgL_vectorz00_8132, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_8132)), 
(int)(BgL_iz00_3647)); 
FAILURE(BgL_auxz00_16530,BFALSE,BFALSE);} } } 
BgL_test7123z00_16518 = 
CBOOL(
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg2727z00_3654, BGl_list6031z00zz__datez00)); } 
if(BgL_test7123z00_16518)
{ 
 long BgL_iz00_16539;
BgL_iz00_16539 = 
(BgL_iz00_3647+2L); 
BgL_iz00_3647 = BgL_iz00_16539; 
goto BgL_check1334z00_3648;}  else 
{ /* Llib/date.scm 239 */
 obj_t BgL_arg2726z00_3653;
{ /* Llib/date.scm 239 */
 obj_t BgL_vectorz00_8135;
if(
VECTORP(BgL_opt1330z00_25))
{ /* Llib/date.scm 239 */
BgL_vectorz00_8135 = BgL_opt1330z00_25; }  else 
{ 
 obj_t BgL_auxz00_16543;
BgL_auxz00_16543 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6030z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_25); 
FAILURE(BgL_auxz00_16543,BFALSE,BFALSE);} 
{ /* Llib/date.scm 239 */
 bool_t BgL_test7127z00_16547;
{ /* Llib/date.scm 239 */
 long BgL_tmpz00_16548;
BgL_tmpz00_16548 = 
VECTOR_LENGTH(BgL_vectorz00_8135); 
BgL_test7127z00_16547 = 
BOUND_CHECK(BgL_iz00_3647, BgL_tmpz00_16548); } 
if(BgL_test7127z00_16547)
{ /* Llib/date.scm 239 */
BgL_arg2726z00_3653 = 
VECTOR_REF(BgL_vectorz00_8135,BgL_iz00_3647); }  else 
{ 
 obj_t BgL_auxz00_16552;
BgL_auxz00_16552 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6003z00zz__datez00, BgL_vectorz00_8135, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_8135)), 
(int)(BgL_iz00_3647)); 
FAILURE(BgL_auxz00_16552,BFALSE,BFALSE);} } } 
BGl_errorz00zz__errorz00(BGl_symbol6034z00zz__datez00, BGl_string6025z00zz__datez00, BgL_arg2726z00_3653); } } } 
{ /* Llib/date.scm 239 */
 obj_t BgL_index1336z00_3655;
BgL_index1336z00_3655 = 
BGl_search1333ze70ze7zz__datez00(BgL_l1332z00_3633, BgL_opt1330z00_25, BGl_keyword6005z00zz__datez00, 1L); 
{ /* Llib/date.scm 239 */
 bool_t BgL_test7128z00_16561;
{ /* Llib/date.scm 239 */
 long BgL_n1z00_8137;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16562;
if(
INTEGERP(BgL_index1336z00_3655))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16562 = BgL_index1336z00_3655
; }  else 
{ 
 obj_t BgL_auxz00_16565;
BgL_auxz00_16565 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1336z00_3655); 
FAILURE(BgL_auxz00_16565,BFALSE,BFALSE);} 
BgL_n1z00_8137 = 
(long)CINT(BgL_tmpz00_16562); } 
BgL_test7128z00_16561 = 
(BgL_n1z00_8137>=0L); } 
if(BgL_test7128z00_16561)
{ 
 long BgL_auxz00_16578; obj_t BgL_auxz00_16571;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16579;
if(
INTEGERP(BgL_index1336z00_3655))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16579 = BgL_index1336z00_3655
; }  else 
{ 
 obj_t BgL_auxz00_16582;
BgL_auxz00_16582 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1336z00_3655); 
FAILURE(BgL_auxz00_16582,BFALSE,BFALSE);} 
BgL_auxz00_16578 = 
(long)CINT(BgL_tmpz00_16579); } 
if(
VECTORP(BgL_opt1330z00_25))
{ /* Llib/date.scm 239 */
BgL_auxz00_16571 = BgL_opt1330z00_25
; }  else 
{ 
 obj_t BgL_auxz00_16574;
BgL_auxz00_16574 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_25); 
FAILURE(BgL_auxz00_16574,BFALSE,BFALSE);} 
BgL_dayz00_3638 = 
VECTOR_REF(BgL_auxz00_16571,BgL_auxz00_16578); }  else 
{ /* Llib/date.scm 239 */BFALSE; } } } 
{ /* Llib/date.scm 239 */
 obj_t BgL_index1337z00_3657;
BgL_index1337z00_3657 = 
BGl_search1333ze70ze7zz__datez00(BgL_l1332z00_3633, BgL_opt1330z00_25, BGl_keyword6009z00zz__datez00, 1L); 
{ /* Llib/date.scm 239 */
 bool_t BgL_test7132z00_16589;
{ /* Llib/date.scm 239 */
 long BgL_n1z00_8138;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16590;
if(
INTEGERP(BgL_index1337z00_3657))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16590 = BgL_index1337z00_3657
; }  else 
{ 
 obj_t BgL_auxz00_16593;
BgL_auxz00_16593 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1337z00_3657); 
FAILURE(BgL_auxz00_16593,BFALSE,BFALSE);} 
BgL_n1z00_8138 = 
(long)CINT(BgL_tmpz00_16590); } 
BgL_test7132z00_16589 = 
(BgL_n1z00_8138>=0L); } 
if(BgL_test7132z00_16589)
{ 
 long BgL_auxz00_16606; obj_t BgL_auxz00_16599;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16607;
if(
INTEGERP(BgL_index1337z00_3657))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16607 = BgL_index1337z00_3657
; }  else 
{ 
 obj_t BgL_auxz00_16610;
BgL_auxz00_16610 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1337z00_3657); 
FAILURE(BgL_auxz00_16610,BFALSE,BFALSE);} 
BgL_auxz00_16606 = 
(long)CINT(BgL_tmpz00_16607); } 
if(
VECTORP(BgL_opt1330z00_25))
{ /* Llib/date.scm 239 */
BgL_auxz00_16599 = BgL_opt1330z00_25
; }  else 
{ 
 obj_t BgL_auxz00_16602;
BgL_auxz00_16602 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_25); 
FAILURE(BgL_auxz00_16602,BFALSE,BFALSE);} 
BgL_hourz00_3639 = 
VECTOR_REF(BgL_auxz00_16599,BgL_auxz00_16606); }  else 
{ /* Llib/date.scm 239 */BFALSE; } } } 
{ /* Llib/date.scm 239 */
 obj_t BgL_index1338z00_3659;
BgL_index1338z00_3659 = 
BGl_search1333ze70ze7zz__datez00(BgL_l1332z00_3633, BgL_opt1330z00_25, BGl_keyword6032z00zz__datez00, 1L); 
{ /* Llib/date.scm 239 */
 bool_t BgL_test7136z00_16617;
{ /* Llib/date.scm 239 */
 long BgL_n1z00_8139;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16618;
if(
INTEGERP(BgL_index1338z00_3659))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16618 = BgL_index1338z00_3659
; }  else 
{ 
 obj_t BgL_auxz00_16621;
BgL_auxz00_16621 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1338z00_3659); 
FAILURE(BgL_auxz00_16621,BFALSE,BFALSE);} 
BgL_n1z00_8139 = 
(long)CINT(BgL_tmpz00_16618); } 
BgL_test7136z00_16617 = 
(BgL_n1z00_8139>=0L); } 
if(BgL_test7136z00_16617)
{ 
 long BgL_auxz00_16634; obj_t BgL_auxz00_16627;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16635;
if(
INTEGERP(BgL_index1338z00_3659))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16635 = BgL_index1338z00_3659
; }  else 
{ 
 obj_t BgL_auxz00_16638;
BgL_auxz00_16638 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1338z00_3659); 
FAILURE(BgL_auxz00_16638,BFALSE,BFALSE);} 
BgL_auxz00_16634 = 
(long)CINT(BgL_tmpz00_16635); } 
if(
VECTORP(BgL_opt1330z00_25))
{ /* Llib/date.scm 239 */
BgL_auxz00_16627 = BgL_opt1330z00_25
; }  else 
{ 
 obj_t BgL_auxz00_16630;
BgL_auxz00_16630 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_25); 
FAILURE(BgL_auxz00_16630,BFALSE,BFALSE);} 
BgL_isdstz00_3640 = 
VECTOR_REF(BgL_auxz00_16627,BgL_auxz00_16634); }  else 
{ /* Llib/date.scm 239 */BFALSE; } } } 
{ /* Llib/date.scm 239 */
 obj_t BgL_index1339z00_3661;
BgL_index1339z00_3661 = 
BGl_search1333ze70ze7zz__datez00(BgL_l1332z00_3633, BgL_opt1330z00_25, BGl_keyword6011z00zz__datez00, 1L); 
{ /* Llib/date.scm 239 */
 bool_t BgL_test7140z00_16645;
{ /* Llib/date.scm 239 */
 long BgL_n1z00_8140;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16646;
if(
INTEGERP(BgL_index1339z00_3661))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16646 = BgL_index1339z00_3661
; }  else 
{ 
 obj_t BgL_auxz00_16649;
BgL_auxz00_16649 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1339z00_3661); 
FAILURE(BgL_auxz00_16649,BFALSE,BFALSE);} 
BgL_n1z00_8140 = 
(long)CINT(BgL_tmpz00_16646); } 
BgL_test7140z00_16645 = 
(BgL_n1z00_8140>=0L); } 
if(BgL_test7140z00_16645)
{ 
 long BgL_auxz00_16662; obj_t BgL_auxz00_16655;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16663;
if(
INTEGERP(BgL_index1339z00_3661))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16663 = BgL_index1339z00_3661
; }  else 
{ 
 obj_t BgL_auxz00_16666;
BgL_auxz00_16666 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1339z00_3661); 
FAILURE(BgL_auxz00_16666,BFALSE,BFALSE);} 
BgL_auxz00_16662 = 
(long)CINT(BgL_tmpz00_16663); } 
if(
VECTORP(BgL_opt1330z00_25))
{ /* Llib/date.scm 239 */
BgL_auxz00_16655 = BgL_opt1330z00_25
; }  else 
{ 
 obj_t BgL_auxz00_16658;
BgL_auxz00_16658 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_25); 
FAILURE(BgL_auxz00_16658,BFALSE,BFALSE);} 
BgL_minz00_3641 = 
VECTOR_REF(BgL_auxz00_16655,BgL_auxz00_16662); }  else 
{ /* Llib/date.scm 239 */BFALSE; } } } 
{ /* Llib/date.scm 239 */
 obj_t BgL_index1340z00_3663;
BgL_index1340z00_3663 = 
BGl_search1333ze70ze7zz__datez00(BgL_l1332z00_3633, BgL_opt1330z00_25, BGl_keyword6013z00zz__datez00, 1L); 
{ /* Llib/date.scm 239 */
 bool_t BgL_test7144z00_16673;
{ /* Llib/date.scm 239 */
 long BgL_n1z00_8141;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16674;
if(
INTEGERP(BgL_index1340z00_3663))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16674 = BgL_index1340z00_3663
; }  else 
{ 
 obj_t BgL_auxz00_16677;
BgL_auxz00_16677 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1340z00_3663); 
FAILURE(BgL_auxz00_16677,BFALSE,BFALSE);} 
BgL_n1z00_8141 = 
(long)CINT(BgL_tmpz00_16674); } 
BgL_test7144z00_16673 = 
(BgL_n1z00_8141>=0L); } 
if(BgL_test7144z00_16673)
{ 
 long BgL_auxz00_16690; obj_t BgL_auxz00_16683;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16691;
if(
INTEGERP(BgL_index1340z00_3663))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16691 = BgL_index1340z00_3663
; }  else 
{ 
 obj_t BgL_auxz00_16694;
BgL_auxz00_16694 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1340z00_3663); 
FAILURE(BgL_auxz00_16694,BFALSE,BFALSE);} 
BgL_auxz00_16690 = 
(long)CINT(BgL_tmpz00_16691); } 
if(
VECTORP(BgL_opt1330z00_25))
{ /* Llib/date.scm 239 */
BgL_auxz00_16683 = BgL_opt1330z00_25
; }  else 
{ 
 obj_t BgL_auxz00_16686;
BgL_auxz00_16686 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_25); 
FAILURE(BgL_auxz00_16686,BFALSE,BFALSE);} 
BgL_monthz00_3642 = 
VECTOR_REF(BgL_auxz00_16683,BgL_auxz00_16690); }  else 
{ /* Llib/date.scm 239 */BFALSE; } } } 
{ /* Llib/date.scm 239 */
 obj_t BgL_index1341z00_3665;
BgL_index1341z00_3665 = 
BGl_search1333ze70ze7zz__datez00(BgL_l1332z00_3633, BgL_opt1330z00_25, BGl_keyword6015z00zz__datez00, 1L); 
{ /* Llib/date.scm 239 */
 bool_t BgL_test7148z00_16701;
{ /* Llib/date.scm 239 */
 long BgL_n1z00_8142;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16702;
if(
INTEGERP(BgL_index1341z00_3665))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16702 = BgL_index1341z00_3665
; }  else 
{ 
 obj_t BgL_auxz00_16705;
BgL_auxz00_16705 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1341z00_3665); 
FAILURE(BgL_auxz00_16705,BFALSE,BFALSE);} 
BgL_n1z00_8142 = 
(long)CINT(BgL_tmpz00_16702); } 
BgL_test7148z00_16701 = 
(BgL_n1z00_8142>=0L); } 
if(BgL_test7148z00_16701)
{ 
 long BgL_auxz00_16718; obj_t BgL_auxz00_16711;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16719;
if(
INTEGERP(BgL_index1341z00_3665))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16719 = BgL_index1341z00_3665
; }  else 
{ 
 obj_t BgL_auxz00_16722;
BgL_auxz00_16722 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1341z00_3665); 
FAILURE(BgL_auxz00_16722,BFALSE,BFALSE);} 
BgL_auxz00_16718 = 
(long)CINT(BgL_tmpz00_16719); } 
if(
VECTORP(BgL_opt1330z00_25))
{ /* Llib/date.scm 239 */
BgL_auxz00_16711 = BgL_opt1330z00_25
; }  else 
{ 
 obj_t BgL_auxz00_16714;
BgL_auxz00_16714 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_25); 
FAILURE(BgL_auxz00_16714,BFALSE,BFALSE);} 
BgL_nsecz00_3643 = 
VECTOR_REF(BgL_auxz00_16711,BgL_auxz00_16718); }  else 
{ /* Llib/date.scm 239 */BFALSE; } } } 
{ /* Llib/date.scm 239 */
 obj_t BgL_index1342z00_3667;
BgL_index1342z00_3667 = 
BGl_search1333ze70ze7zz__datez00(BgL_l1332z00_3633, BgL_opt1330z00_25, BGl_keyword6017z00zz__datez00, 1L); 
{ /* Llib/date.scm 239 */
 bool_t BgL_test7152z00_16729;
{ /* Llib/date.scm 239 */
 long BgL_n1z00_8143;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16730;
if(
INTEGERP(BgL_index1342z00_3667))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16730 = BgL_index1342z00_3667
; }  else 
{ 
 obj_t BgL_auxz00_16733;
BgL_auxz00_16733 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1342z00_3667); 
FAILURE(BgL_auxz00_16733,BFALSE,BFALSE);} 
BgL_n1z00_8143 = 
(long)CINT(BgL_tmpz00_16730); } 
BgL_test7152z00_16729 = 
(BgL_n1z00_8143>=0L); } 
if(BgL_test7152z00_16729)
{ 
 long BgL_auxz00_16746; obj_t BgL_auxz00_16739;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16747;
if(
INTEGERP(BgL_index1342z00_3667))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16747 = BgL_index1342z00_3667
; }  else 
{ 
 obj_t BgL_auxz00_16750;
BgL_auxz00_16750 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1342z00_3667); 
FAILURE(BgL_auxz00_16750,BFALSE,BFALSE);} 
BgL_auxz00_16746 = 
(long)CINT(BgL_tmpz00_16747); } 
if(
VECTORP(BgL_opt1330z00_25))
{ /* Llib/date.scm 239 */
BgL_auxz00_16739 = BgL_opt1330z00_25
; }  else 
{ 
 obj_t BgL_auxz00_16742;
BgL_auxz00_16742 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_25); 
FAILURE(BgL_auxz00_16742,BFALSE,BFALSE);} 
BgL_secz00_3644 = 
VECTOR_REF(BgL_auxz00_16739,BgL_auxz00_16746); }  else 
{ /* Llib/date.scm 239 */BFALSE; } } } 
{ /* Llib/date.scm 239 */
 obj_t BgL_index1343z00_3669;
BgL_index1343z00_3669 = 
BGl_search1333ze70ze7zz__datez00(BgL_l1332z00_3633, BgL_opt1330z00_25, BGl_keyword6019z00zz__datez00, 1L); 
{ /* Llib/date.scm 239 */
 bool_t BgL_test7156z00_16757;
{ /* Llib/date.scm 239 */
 long BgL_n1z00_8144;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16758;
if(
INTEGERP(BgL_index1343z00_3669))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16758 = BgL_index1343z00_3669
; }  else 
{ 
 obj_t BgL_auxz00_16761;
BgL_auxz00_16761 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1343z00_3669); 
FAILURE(BgL_auxz00_16761,BFALSE,BFALSE);} 
BgL_n1z00_8144 = 
(long)CINT(BgL_tmpz00_16758); } 
BgL_test7156z00_16757 = 
(BgL_n1z00_8144>=0L); } 
if(BgL_test7156z00_16757)
{ 
 long BgL_auxz00_16774; obj_t BgL_auxz00_16767;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16775;
if(
INTEGERP(BgL_index1343z00_3669))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16775 = BgL_index1343z00_3669
; }  else 
{ 
 obj_t BgL_auxz00_16778;
BgL_auxz00_16778 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1343z00_3669); 
FAILURE(BgL_auxz00_16778,BFALSE,BFALSE);} 
BgL_auxz00_16774 = 
(long)CINT(BgL_tmpz00_16775); } 
if(
VECTORP(BgL_opt1330z00_25))
{ /* Llib/date.scm 239 */
BgL_auxz00_16767 = BgL_opt1330z00_25
; }  else 
{ 
 obj_t BgL_auxz00_16770;
BgL_auxz00_16770 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_25); 
FAILURE(BgL_auxz00_16770,BFALSE,BFALSE);} 
BgL_timeza7oneza7_3645 = 
VECTOR_REF(BgL_auxz00_16767,BgL_auxz00_16774); }  else 
{ /* Llib/date.scm 239 */BFALSE; } } } 
{ /* Llib/date.scm 239 */
 obj_t BgL_index1344z00_3671;
BgL_index1344z00_3671 = 
BGl_search1333ze70ze7zz__datez00(BgL_l1332z00_3633, BgL_opt1330z00_25, BGl_keyword6021z00zz__datez00, 1L); 
{ /* Llib/date.scm 239 */
 bool_t BgL_test7160z00_16785;
{ /* Llib/date.scm 239 */
 long BgL_n1z00_8145;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16786;
if(
INTEGERP(BgL_index1344z00_3671))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16786 = BgL_index1344z00_3671
; }  else 
{ 
 obj_t BgL_auxz00_16789;
BgL_auxz00_16789 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1344z00_3671); 
FAILURE(BgL_auxz00_16789,BFALSE,BFALSE);} 
BgL_n1z00_8145 = 
(long)CINT(BgL_tmpz00_16786); } 
BgL_test7160z00_16785 = 
(BgL_n1z00_8145>=0L); } 
if(BgL_test7160z00_16785)
{ 
 long BgL_auxz00_16802; obj_t BgL_auxz00_16795;
{ /* Llib/date.scm 239 */
 obj_t BgL_tmpz00_16803;
if(
INTEGERP(BgL_index1344z00_3671))
{ /* Llib/date.scm 239 */
BgL_tmpz00_16803 = BgL_index1344z00_3671
; }  else 
{ 
 obj_t BgL_auxz00_16806;
BgL_auxz00_16806 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1344z00_3671); 
FAILURE(BgL_auxz00_16806,BFALSE,BFALSE);} 
BgL_auxz00_16802 = 
(long)CINT(BgL_tmpz00_16803); } 
if(
VECTORP(BgL_opt1330z00_25))
{ /* Llib/date.scm 239 */
BgL_auxz00_16795 = BgL_opt1330z00_25
; }  else 
{ 
 obj_t BgL_auxz00_16798;
BgL_auxz00_16798 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_25); 
FAILURE(BgL_auxz00_16798,BFALSE,BFALSE);} 
BgL_yearz00_3646 = 
VECTOR_REF(BgL_auxz00_16795,BgL_auxz00_16802); }  else 
{ /* Llib/date.scm 239 */BFALSE; } } } 
{ /* Llib/date.scm 239 */
 obj_t BgL_arg2737z00_3673;
{ 
 obj_t BgL_auxz00_16812;
if(
VECTORP(BgL_opt1330z00_25))
{ /* Llib/date.scm 239 */
BgL_auxz00_16812 = BgL_opt1330z00_25
; }  else 
{ 
 obj_t BgL_auxz00_16815;
BgL_auxz00_16815 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_25); 
FAILURE(BgL_auxz00_16815,BFALSE,BFALSE);} 
BgL_arg2737z00_3673 = 
VECTOR_REF(BgL_auxz00_16812,0L); } 
{ /* Llib/date.scm 239 */
 obj_t BgL_dayz00_3674;
BgL_dayz00_3674 = BgL_dayz00_3638; 
{ /* Llib/date.scm 239 */
 obj_t BgL_hourz00_3675;
BgL_hourz00_3675 = BgL_hourz00_3639; 
{ /* Llib/date.scm 239 */
 obj_t BgL_isdstz00_3676;
BgL_isdstz00_3676 = BgL_isdstz00_3640; 
{ /* Llib/date.scm 239 */
 obj_t BgL_minz00_3677;
BgL_minz00_3677 = BgL_minz00_3641; 
{ /* Llib/date.scm 239 */
 obj_t BgL_monthz00_3678;
BgL_monthz00_3678 = BgL_monthz00_3642; 
{ /* Llib/date.scm 239 */
 obj_t BgL_nsecz00_3679;
BgL_nsecz00_3679 = BgL_nsecz00_3643; 
{ /* Llib/date.scm 239 */
 obj_t BgL_secz00_3680;
BgL_secz00_3680 = BgL_secz00_3644; 
{ /* Llib/date.scm 239 */
 obj_t BgL_timeza7oneza7_3681;
BgL_timeza7oneza7_3681 = BgL_timeza7oneza7_3645; 
{ /* Llib/date.scm 239 */
 obj_t BgL_yearz00_3682;
BgL_yearz00_3682 = BgL_yearz00_3646; 
{ /* Llib/date.scm 239 */
 obj_t BgL_datez00_8146;
if(
BGL_DATEP(BgL_arg2737z00_3673))
{ /* Llib/date.scm 239 */
BgL_datez00_8146 = BgL_arg2737z00_3673; }  else 
{ 
 obj_t BgL_auxz00_16822;
BgL_auxz00_16822 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6029z00zz__datez00, BGl_string6036z00zz__datez00, BgL_arg2737z00_3673); 
FAILURE(BgL_auxz00_16822,BFALSE,BFALSE);} 
{ /* Llib/date.scm 241 */
 obj_t BgL_arg2750z00_8147; obj_t BgL_arg2751z00_8148; obj_t BgL_arg2752z00_8149; obj_t BgL_arg2753z00_8150; obj_t BgL_arg2754z00_8151; obj_t BgL_arg2755z00_8152; obj_t BgL_arg2756z00_8153; long BgL_arg2760z00_8154; bool_t BgL_arg2761z00_8155; obj_t BgL_arg2762z00_8156;
if(
CBOOL(BgL_nsecz00_3679))
{ /* Llib/date.scm 241 */
BgL_arg2750z00_8147 = BgL_nsecz00_3679; }  else 
{ /* Llib/date.scm 241 */
BgL_arg2750z00_8147 = 
make_bllong(
BGL_DATE_NANOSECOND(BgL_datez00_8146)); } 
if(
CBOOL(BgL_secz00_3680))
{ /* Llib/date.scm 242 */
BgL_arg2751z00_8148 = BgL_secz00_3680; }  else 
{ /* Llib/date.scm 242 */
BgL_arg2751z00_8148 = 
BINT(
BGL_DATE_SECOND(BgL_datez00_8146)); } 
if(
CBOOL(BgL_minz00_3677))
{ /* Llib/date.scm 243 */
BgL_arg2752z00_8149 = BgL_minz00_3677; }  else 
{ /* Llib/date.scm 243 */
BgL_arg2752z00_8149 = 
BINT(
BGL_DATE_MINUTE(BgL_datez00_8146)); } 
if(
CBOOL(BgL_hourz00_3675))
{ /* Llib/date.scm 244 */
BgL_arg2753z00_8150 = BgL_hourz00_3675; }  else 
{ /* Llib/date.scm 244 */
BgL_arg2753z00_8150 = 
BINT(
BGL_DATE_HOUR(BgL_datez00_8146)); } 
if(
CBOOL(BgL_dayz00_3674))
{ /* Llib/date.scm 245 */
BgL_arg2754z00_8151 = BgL_dayz00_3674; }  else 
{ /* Llib/date.scm 245 */
BgL_arg2754z00_8151 = 
BINT(
BGL_DATE_DAY(BgL_datez00_8146)); } 
if(
CBOOL(BgL_monthz00_3678))
{ /* Llib/date.scm 246 */
BgL_arg2755z00_8152 = BgL_monthz00_3678; }  else 
{ /* Llib/date.scm 246 */
BgL_arg2755z00_8152 = 
BINT(
BGL_DATE_MONTH(BgL_datez00_8146)); } 
if(
CBOOL(BgL_yearz00_3682))
{ /* Llib/date.scm 247 */
BgL_arg2756z00_8153 = BgL_yearz00_3682; }  else 
{ /* Llib/date.scm 247 */
BgL_arg2756z00_8153 = 
BINT(
BGL_DATE_YEAR(BgL_datez00_8146)); } 
BgL_arg2760z00_8154 = 
BGL_DATE_TIMEZONE(BgL_datez00_8146); 
BgL_arg2761z00_8155 = 
BGL_DATE_ISGMT(BgL_datez00_8146); 
if(
CBOOL(BgL_isdstz00_3676))
{ /* Llib/date.scm 250 */
BgL_arg2762z00_8156 = BgL_isdstz00_3676; }  else 
{ /* Llib/date.scm 250 */
BgL_arg2762z00_8156 = 
BINT((-1L)); } 
{ /* Llib/date.scm 240 */
 int BgL_auxz00_16922; int BgL_auxz00_16913; int BgL_auxz00_16904; int BgL_auxz00_16895; int BgL_auxz00_16886; int BgL_auxz00_16877; int BgL_auxz00_16868; BGL_LONGLONG_T BgL_tmpz00_16859;
{ /* Llib/date.scm 250 */
 obj_t BgL_tmpz00_16923;
if(
INTEGERP(BgL_arg2762z00_8156))
{ /* Llib/date.scm 250 */
BgL_tmpz00_16923 = BgL_arg2762z00_8156
; }  else 
{ 
 obj_t BgL_auxz00_16926;
BgL_auxz00_16926 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11789L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2762z00_8156); 
FAILURE(BgL_auxz00_16926,BFALSE,BFALSE);} 
BgL_auxz00_16922 = 
CINT(BgL_tmpz00_16923); } 
{ /* Llib/date.scm 247 */
 obj_t BgL_tmpz00_16914;
if(
INTEGERP(BgL_arg2756z00_8153))
{ /* Llib/date.scm 247 */
BgL_tmpz00_16914 = BgL_arg2756z00_8153
; }  else 
{ 
 obj_t BgL_auxz00_16917;
BgL_auxz00_16917 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11716L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2756z00_8153); 
FAILURE(BgL_auxz00_16917,BFALSE,BFALSE);} 
BgL_auxz00_16913 = 
CINT(BgL_tmpz00_16914); } 
{ /* Llib/date.scm 246 */
 obj_t BgL_tmpz00_16905;
if(
INTEGERP(BgL_arg2755z00_8152))
{ /* Llib/date.scm 246 */
BgL_tmpz00_16905 = BgL_arg2755z00_8152
; }  else 
{ 
 obj_t BgL_auxz00_16908;
BgL_auxz00_16908 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11683L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2755z00_8152); 
FAILURE(BgL_auxz00_16908,BFALSE,BFALSE);} 
BgL_auxz00_16904 = 
CINT(BgL_tmpz00_16905); } 
{ /* Llib/date.scm 245 */
 obj_t BgL_tmpz00_16896;
if(
INTEGERP(BgL_arg2754z00_8151))
{ /* Llib/date.scm 245 */
BgL_tmpz00_16896 = BgL_arg2754z00_8151
; }  else 
{ 
 obj_t BgL_auxz00_16899;
BgL_auxz00_16899 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11648L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2754z00_8151); 
FAILURE(BgL_auxz00_16899,BFALSE,BFALSE);} 
BgL_auxz00_16895 = 
CINT(BgL_tmpz00_16896); } 
{ /* Llib/date.scm 244 */
 obj_t BgL_tmpz00_16887;
if(
INTEGERP(BgL_arg2753z00_8150))
{ /* Llib/date.scm 244 */
BgL_tmpz00_16887 = BgL_arg2753z00_8150
; }  else 
{ 
 obj_t BgL_auxz00_16890;
BgL_auxz00_16890 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11617L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2753z00_8150); 
FAILURE(BgL_auxz00_16890,BFALSE,BFALSE);} 
BgL_auxz00_16886 = 
CINT(BgL_tmpz00_16887); } 
{ /* Llib/date.scm 243 */
 obj_t BgL_tmpz00_16878;
if(
INTEGERP(BgL_arg2752z00_8149))
{ /* Llib/date.scm 243 */
BgL_tmpz00_16878 = BgL_arg2752z00_8149
; }  else 
{ 
 obj_t BgL_auxz00_16881;
BgL_auxz00_16881 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11584L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2752z00_8149); 
FAILURE(BgL_auxz00_16881,BFALSE,BFALSE);} 
BgL_auxz00_16877 = 
CINT(BgL_tmpz00_16878); } 
{ /* Llib/date.scm 242 */
 obj_t BgL_tmpz00_16869;
if(
INTEGERP(BgL_arg2751z00_8148))
{ /* Llib/date.scm 242 */
BgL_tmpz00_16869 = BgL_arg2751z00_8148
; }  else 
{ 
 obj_t BgL_auxz00_16872;
BgL_auxz00_16872 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11550L), BGl_string6029z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2751z00_8148); 
FAILURE(BgL_auxz00_16872,BFALSE,BFALSE);} 
BgL_auxz00_16868 = 
CINT(BgL_tmpz00_16869); } 
{ /* Llib/date.scm 241 */
 obj_t BgL_tmpz00_16860;
if(
LLONGP(BgL_arg2750z00_8147))
{ /* Llib/date.scm 241 */
BgL_tmpz00_16860 = BgL_arg2750z00_8147
; }  else 
{ 
 obj_t BgL_auxz00_16863;
BgL_auxz00_16863 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11516L), BGl_string6029z00zz__datez00, BGl_string6026z00zz__datez00, BgL_arg2750z00_8147); 
FAILURE(BgL_auxz00_16863,BFALSE,BFALSE);} 
BgL_tmpz00_16859 = 
BLLONG_TO_LLONG(BgL_tmpz00_16860); } 
return 
bgl_make_date(BgL_tmpz00_16859, BgL_auxz00_16868, BgL_auxz00_16877, BgL_auxz00_16886, BgL_auxz00_16895, BgL_auxz00_16904, BgL_auxz00_16913, BgL_arg2760z00_8154, BgL_arg2761z00_8155, BgL_auxz00_16922);} } } } } } } } } } } } } } } } } } } } } } } } } } 

}



/* search1333~0 */
obj_t BGl_search1333ze70ze7zz__datez00(long BgL_l1332z00_9889, obj_t BgL_opt1330z00_9888, obj_t BgL_k1z00_3634, long BgL_iz00_3635)
{
{ /* Llib/date.scm 239 */
BGl_search1333ze70ze7zz__datez00:
if(
(BgL_iz00_3635==BgL_l1332z00_9889))
{ /* Llib/date.scm 239 */
return 
BINT((-1L));}  else 
{ /* Llib/date.scm 239 */
if(
(BgL_iz00_3635==
(BgL_l1332z00_9889-1L)))
{ /* Llib/date.scm 239 */
 long BgL_arg2741z00_3686;
{ 
 obj_t BgL_auxz00_16938;
if(
VECTORP(BgL_opt1330z00_9888))
{ /* Llib/date.scm 239 */
BgL_auxz00_16938 = BgL_opt1330z00_9888
; }  else 
{ 
 obj_t BgL_auxz00_16941;
BgL_auxz00_16941 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6037z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_9888); 
FAILURE(BgL_auxz00_16941,BFALSE,BFALSE);} 
BgL_arg2741z00_3686 = 
VECTOR_LENGTH(BgL_auxz00_16938); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol6034z00zz__datez00, BGl_string6038z00zz__datez00, 
BINT(BgL_arg2741z00_3686));}  else 
{ /* Llib/date.scm 239 */
 obj_t BgL_vz00_3687;
{ 
 obj_t BgL_auxz00_16948;
if(
VECTORP(BgL_opt1330z00_9888))
{ /* Llib/date.scm 239 */
BgL_auxz00_16948 = BgL_opt1330z00_9888
; }  else 
{ 
 obj_t BgL_auxz00_16951;
BgL_auxz00_16951 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11386L), BGl_string6037z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1330z00_9888); 
FAILURE(BgL_auxz00_16951,BFALSE,BFALSE);} 
BgL_vz00_3687 = 
VECTOR_REF(BgL_auxz00_16948,BgL_iz00_3635); } 
if(
(BgL_vz00_3687==BgL_k1z00_3634))
{ /* Llib/date.scm 239 */
return 
BINT(
(BgL_iz00_3635+1L));}  else 
{ 
 long BgL_iz00_16960;
BgL_iz00_16960 = 
(BgL_iz00_3635+2L); 
BgL_iz00_3635 = BgL_iz00_16960; 
goto BGl_search1333ze70ze7zz__datez00;} } } } 

}



/* date-copy */
BGL_EXPORTED_DEF obj_t BGl_datezd2copyzd2zz__datez00(obj_t BgL_datez00_15, obj_t BgL_dayz00_16, obj_t BgL_hourz00_17, obj_t BgL_isdstz00_18, obj_t BgL_minz00_19, obj_t BgL_monthz00_20, obj_t BgL_nsecz00_21, obj_t BgL_secz00_22, obj_t BgL_timeza7oneza7_23, obj_t BgL_yearz00_24)
{
{ /* Llib/date.scm 239 */
{ /* Llib/date.scm 241 */
 obj_t BgL_arg2750z00_8173; obj_t BgL_arg2751z00_8174; obj_t BgL_arg2752z00_8175; obj_t BgL_arg2753z00_8176; obj_t BgL_arg2754z00_8177; obj_t BgL_arg2755z00_8178; obj_t BgL_arg2756z00_8179; long BgL_arg2760z00_8180; bool_t BgL_arg2761z00_8181; obj_t BgL_arg2762z00_8182;
if(
CBOOL(BgL_nsecz00_21))
{ /* Llib/date.scm 241 */
BgL_arg2750z00_8173 = BgL_nsecz00_21; }  else 
{ /* Llib/date.scm 241 */
BgL_arg2750z00_8173 = 
make_bllong(
BGL_DATE_NANOSECOND(BgL_datez00_15)); } 
if(
CBOOL(BgL_secz00_22))
{ /* Llib/date.scm 242 */
BgL_arg2751z00_8174 = BgL_secz00_22; }  else 
{ /* Llib/date.scm 242 */
BgL_arg2751z00_8174 = 
BINT(
BGL_DATE_SECOND(BgL_datez00_15)); } 
if(
CBOOL(BgL_minz00_19))
{ /* Llib/date.scm 243 */
BgL_arg2752z00_8175 = BgL_minz00_19; }  else 
{ /* Llib/date.scm 243 */
BgL_arg2752z00_8175 = 
BINT(
BGL_DATE_MINUTE(BgL_datez00_15)); } 
if(
CBOOL(BgL_hourz00_17))
{ /* Llib/date.scm 244 */
BgL_arg2753z00_8176 = BgL_hourz00_17; }  else 
{ /* Llib/date.scm 244 */
BgL_arg2753z00_8176 = 
BINT(
BGL_DATE_HOUR(BgL_datez00_15)); } 
if(
CBOOL(BgL_dayz00_16))
{ /* Llib/date.scm 245 */
BgL_arg2754z00_8177 = BgL_dayz00_16; }  else 
{ /* Llib/date.scm 245 */
BgL_arg2754z00_8177 = 
BINT(
BGL_DATE_DAY(BgL_datez00_15)); } 
if(
CBOOL(BgL_monthz00_20))
{ /* Llib/date.scm 246 */
BgL_arg2755z00_8178 = BgL_monthz00_20; }  else 
{ /* Llib/date.scm 246 */
BgL_arg2755z00_8178 = 
BINT(
BGL_DATE_MONTH(BgL_datez00_15)); } 
if(
CBOOL(BgL_yearz00_24))
{ /* Llib/date.scm 247 */
BgL_arg2756z00_8179 = BgL_yearz00_24; }  else 
{ /* Llib/date.scm 247 */
BgL_arg2756z00_8179 = 
BINT(
BGL_DATE_YEAR(BgL_datez00_15)); } 
BgL_arg2760z00_8180 = 
BGL_DATE_TIMEZONE(BgL_datez00_15); 
BgL_arg2761z00_8181 = 
BGL_DATE_ISGMT(BgL_datez00_15); 
if(
CBOOL(BgL_isdstz00_18))
{ /* Llib/date.scm 250 */
BgL_arg2762z00_8182 = BgL_isdstz00_18; }  else 
{ /* Llib/date.scm 250 */
BgL_arg2762z00_8182 = 
BINT((-1L)); } 
{ /* Llib/date.scm 240 */
 int BgL_auxz00_17058; int BgL_auxz00_17049; int BgL_auxz00_17040; int BgL_auxz00_17031; int BgL_auxz00_17022; int BgL_auxz00_17013; int BgL_auxz00_17004; BGL_LONGLONG_T BgL_tmpz00_16995;
{ /* Llib/date.scm 250 */
 obj_t BgL_tmpz00_17059;
if(
INTEGERP(BgL_arg2762z00_8182))
{ /* Llib/date.scm 250 */
BgL_tmpz00_17059 = BgL_arg2762z00_8182
; }  else 
{ 
 obj_t BgL_auxz00_17062;
BgL_auxz00_17062 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11789L), BGl_string6035z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2762z00_8182); 
FAILURE(BgL_auxz00_17062,BFALSE,BFALSE);} 
BgL_auxz00_17058 = 
CINT(BgL_tmpz00_17059); } 
{ /* Llib/date.scm 247 */
 obj_t BgL_tmpz00_17050;
if(
INTEGERP(BgL_arg2756z00_8179))
{ /* Llib/date.scm 247 */
BgL_tmpz00_17050 = BgL_arg2756z00_8179
; }  else 
{ 
 obj_t BgL_auxz00_17053;
BgL_auxz00_17053 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11716L), BGl_string6035z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2756z00_8179); 
FAILURE(BgL_auxz00_17053,BFALSE,BFALSE);} 
BgL_auxz00_17049 = 
CINT(BgL_tmpz00_17050); } 
{ /* Llib/date.scm 246 */
 obj_t BgL_tmpz00_17041;
if(
INTEGERP(BgL_arg2755z00_8178))
{ /* Llib/date.scm 246 */
BgL_tmpz00_17041 = BgL_arg2755z00_8178
; }  else 
{ 
 obj_t BgL_auxz00_17044;
BgL_auxz00_17044 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11683L), BGl_string6035z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2755z00_8178); 
FAILURE(BgL_auxz00_17044,BFALSE,BFALSE);} 
BgL_auxz00_17040 = 
CINT(BgL_tmpz00_17041); } 
{ /* Llib/date.scm 245 */
 obj_t BgL_tmpz00_17032;
if(
INTEGERP(BgL_arg2754z00_8177))
{ /* Llib/date.scm 245 */
BgL_tmpz00_17032 = BgL_arg2754z00_8177
; }  else 
{ 
 obj_t BgL_auxz00_17035;
BgL_auxz00_17035 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11648L), BGl_string6035z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2754z00_8177); 
FAILURE(BgL_auxz00_17035,BFALSE,BFALSE);} 
BgL_auxz00_17031 = 
CINT(BgL_tmpz00_17032); } 
{ /* Llib/date.scm 244 */
 obj_t BgL_tmpz00_17023;
if(
INTEGERP(BgL_arg2753z00_8176))
{ /* Llib/date.scm 244 */
BgL_tmpz00_17023 = BgL_arg2753z00_8176
; }  else 
{ 
 obj_t BgL_auxz00_17026;
BgL_auxz00_17026 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11617L), BGl_string6035z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2753z00_8176); 
FAILURE(BgL_auxz00_17026,BFALSE,BFALSE);} 
BgL_auxz00_17022 = 
CINT(BgL_tmpz00_17023); } 
{ /* Llib/date.scm 243 */
 obj_t BgL_tmpz00_17014;
if(
INTEGERP(BgL_arg2752z00_8175))
{ /* Llib/date.scm 243 */
BgL_tmpz00_17014 = BgL_arg2752z00_8175
; }  else 
{ 
 obj_t BgL_auxz00_17017;
BgL_auxz00_17017 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11584L), BGl_string6035z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2752z00_8175); 
FAILURE(BgL_auxz00_17017,BFALSE,BFALSE);} 
BgL_auxz00_17013 = 
CINT(BgL_tmpz00_17014); } 
{ /* Llib/date.scm 242 */
 obj_t BgL_tmpz00_17005;
if(
INTEGERP(BgL_arg2751z00_8174))
{ /* Llib/date.scm 242 */
BgL_tmpz00_17005 = BgL_arg2751z00_8174
; }  else 
{ 
 obj_t BgL_auxz00_17008;
BgL_auxz00_17008 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11550L), BGl_string6035z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2751z00_8174); 
FAILURE(BgL_auxz00_17008,BFALSE,BFALSE);} 
BgL_auxz00_17004 = 
CINT(BgL_tmpz00_17005); } 
{ /* Llib/date.scm 241 */
 obj_t BgL_tmpz00_16996;
if(
LLONGP(BgL_arg2750z00_8173))
{ /* Llib/date.scm 241 */
BgL_tmpz00_16996 = BgL_arg2750z00_8173
; }  else 
{ 
 obj_t BgL_auxz00_16999;
BgL_auxz00_16999 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(11516L), BGl_string6035z00zz__datez00, BGl_string6026z00zz__datez00, BgL_arg2750z00_8173); 
FAILURE(BgL_auxz00_16999,BFALSE,BFALSE);} 
BgL_tmpz00_16995 = 
BLLONG_TO_LLONG(BgL_tmpz00_16996); } 
return 
bgl_make_date(BgL_tmpz00_16995, BgL_auxz00_17004, BgL_auxz00_17013, BgL_auxz00_17022, BgL_auxz00_17031, BgL_auxz00_17040, BgL_auxz00_17049, BgL_arg2760z00_8180, BgL_arg2761z00_8181, BgL_auxz00_17058);} } } 

}



/* _date-update! */
obj_t BGl__datezd2updatez12zc0zz__datez00(obj_t BgL_env1346z00_36, obj_t BgL_opt1345z00_35)
{
{ /* Llib/date.scm 255 */
{ /* Llib/date.scm 255 */
 long BgL_l1347z00_3708;
{ /* Llib/date.scm 255 */
 obj_t BgL_vectorz00_8199;
if(
VECTORP(BgL_opt1345z00_35))
{ /* Llib/date.scm 255 */
BgL_vectorz00_8199 = BgL_opt1345z00_35; }  else 
{ 
 obj_t BgL_auxz00_17070;
BgL_auxz00_17070 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1345z00_35); 
FAILURE(BgL_auxz00_17070,BFALSE,BFALSE);} 
BgL_l1347z00_3708 = 
VECTOR_LENGTH(BgL_vectorz00_8199); } 
{ /* Llib/date.scm 255 */
 obj_t BgL_datez00_3712;
{ 
 obj_t BgL_auxz00_17075;
if(
VECTORP(BgL_opt1345z00_35))
{ /* Llib/date.scm 255 */
BgL_auxz00_17075 = BgL_opt1345z00_35
; }  else 
{ 
 obj_t BgL_auxz00_17078;
BgL_auxz00_17078 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1345z00_35); 
FAILURE(BgL_auxz00_17078,BFALSE,BFALSE);} 
BgL_datez00_3712 = 
VECTOR_REF(BgL_auxz00_17075,0L); } 
{ /* Llib/date.scm 255 */
 obj_t BgL_dayz00_3713;
BgL_dayz00_3713 = BFALSE; 
{ /* Llib/date.scm 255 */
 obj_t BgL_hourz00_3714;
BgL_hourz00_3714 = BFALSE; 
{ /* Llib/date.scm 255 */
 obj_t BgL_minz00_3715;
BgL_minz00_3715 = BFALSE; 
{ /* Llib/date.scm 255 */
 obj_t BgL_monthz00_3716;
BgL_monthz00_3716 = BFALSE; 
{ /* Llib/date.scm 255 */
 obj_t BgL_nsecz00_3717;
BgL_nsecz00_3717 = BFALSE; 
{ /* Llib/date.scm 255 */
 obj_t BgL_secz00_3718;
BgL_secz00_3718 = BFALSE; 
{ /* Llib/date.scm 255 */
 obj_t BgL_yearz00_3719;
BgL_yearz00_3719 = BFALSE; 
{ /* Llib/date.scm 255 */

{ 
 long BgL_iz00_3720;
BgL_iz00_3720 = 1L; 
BgL_check1349z00_3721:
if(
(BgL_iz00_3720==BgL_l1347z00_3708))
{ /* Llib/date.scm 255 */BNIL; }  else 
{ /* Llib/date.scm 255 */
 bool_t BgL_test7206z00_17085;
{ /* Llib/date.scm 255 */
 obj_t BgL_arg2768z00_3727;
{ /* Llib/date.scm 255 */
 obj_t BgL_vectorz00_8209;
if(
VECTORP(BgL_opt1345z00_35))
{ /* Llib/date.scm 255 */
BgL_vectorz00_8209 = BgL_opt1345z00_35; }  else 
{ 
 obj_t BgL_auxz00_17088;
BgL_auxz00_17088 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6040z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1345z00_35); 
FAILURE(BgL_auxz00_17088,BFALSE,BFALSE);} 
{ /* Llib/date.scm 255 */
 bool_t BgL_test7208z00_17092;
{ /* Llib/date.scm 255 */
 long BgL_tmpz00_17093;
BgL_tmpz00_17093 = 
VECTOR_LENGTH(BgL_vectorz00_8209); 
BgL_test7208z00_17092 = 
BOUND_CHECK(BgL_iz00_3720, BgL_tmpz00_17093); } 
if(BgL_test7208z00_17092)
{ /* Llib/date.scm 255 */
BgL_arg2768z00_3727 = 
VECTOR_REF(BgL_vectorz00_8209,BgL_iz00_3720); }  else 
{ 
 obj_t BgL_auxz00_17097;
BgL_auxz00_17097 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6003z00zz__datez00, BgL_vectorz00_8209, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_8209)), 
(int)(BgL_iz00_3720)); 
FAILURE(BgL_auxz00_17097,BFALSE,BFALSE);} } } 
BgL_test7206z00_17085 = 
CBOOL(
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg2768z00_3727, BGl_list6041z00zz__datez00)); } 
if(BgL_test7206z00_17085)
{ 
 long BgL_iz00_17106;
BgL_iz00_17106 = 
(BgL_iz00_3720+2L); 
BgL_iz00_3720 = BgL_iz00_17106; 
goto BgL_check1349z00_3721;}  else 
{ /* Llib/date.scm 255 */
 obj_t BgL_arg2767z00_3726;
{ /* Llib/date.scm 255 */
 obj_t BgL_vectorz00_8212;
if(
VECTORP(BgL_opt1345z00_35))
{ /* Llib/date.scm 255 */
BgL_vectorz00_8212 = BgL_opt1345z00_35; }  else 
{ 
 obj_t BgL_auxz00_17110;
BgL_auxz00_17110 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6040z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1345z00_35); 
FAILURE(BgL_auxz00_17110,BFALSE,BFALSE);} 
{ /* Llib/date.scm 255 */
 bool_t BgL_test7210z00_17114;
{ /* Llib/date.scm 255 */
 long BgL_tmpz00_17115;
BgL_tmpz00_17115 = 
VECTOR_LENGTH(BgL_vectorz00_8212); 
BgL_test7210z00_17114 = 
BOUND_CHECK(BgL_iz00_3720, BgL_tmpz00_17115); } 
if(BgL_test7210z00_17114)
{ /* Llib/date.scm 255 */
BgL_arg2767z00_3726 = 
VECTOR_REF(BgL_vectorz00_8212,BgL_iz00_3720); }  else 
{ 
 obj_t BgL_auxz00_17119;
BgL_auxz00_17119 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6003z00zz__datez00, BgL_vectorz00_8212, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_8212)), 
(int)(BgL_iz00_3720)); 
FAILURE(BgL_auxz00_17119,BFALSE,BFALSE);} } } 
BGl_errorz00zz__errorz00(BGl_symbol6042z00zz__datez00, BGl_string6025z00zz__datez00, BgL_arg2767z00_3726); } } } 
{ /* Llib/date.scm 255 */
 obj_t BgL_index1351z00_3728;
BgL_index1351z00_3728 = 
BGl_search1348ze70ze7zz__datez00(BgL_l1347z00_3708, BgL_opt1345z00_35, BGl_keyword6005z00zz__datez00, 1L); 
{ /* Llib/date.scm 255 */
 bool_t BgL_test7211z00_17128;
{ /* Llib/date.scm 255 */
 long BgL_n1z00_8214;
{ /* Llib/date.scm 255 */
 obj_t BgL_tmpz00_17129;
if(
INTEGERP(BgL_index1351z00_3728))
{ /* Llib/date.scm 255 */
BgL_tmpz00_17129 = BgL_index1351z00_3728
; }  else 
{ 
 obj_t BgL_auxz00_17132;
BgL_auxz00_17132 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1351z00_3728); 
FAILURE(BgL_auxz00_17132,BFALSE,BFALSE);} 
BgL_n1z00_8214 = 
(long)CINT(BgL_tmpz00_17129); } 
BgL_test7211z00_17128 = 
(BgL_n1z00_8214>=0L); } 
if(BgL_test7211z00_17128)
{ 
 long BgL_auxz00_17145; obj_t BgL_auxz00_17138;
{ /* Llib/date.scm 255 */
 obj_t BgL_tmpz00_17146;
if(
INTEGERP(BgL_index1351z00_3728))
{ /* Llib/date.scm 255 */
BgL_tmpz00_17146 = BgL_index1351z00_3728
; }  else 
{ 
 obj_t BgL_auxz00_17149;
BgL_auxz00_17149 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1351z00_3728); 
FAILURE(BgL_auxz00_17149,BFALSE,BFALSE);} 
BgL_auxz00_17145 = 
(long)CINT(BgL_tmpz00_17146); } 
if(
VECTORP(BgL_opt1345z00_35))
{ /* Llib/date.scm 255 */
BgL_auxz00_17138 = BgL_opt1345z00_35
; }  else 
{ 
 obj_t BgL_auxz00_17141;
BgL_auxz00_17141 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1345z00_35); 
FAILURE(BgL_auxz00_17141,BFALSE,BFALSE);} 
BgL_dayz00_3713 = 
VECTOR_REF(BgL_auxz00_17138,BgL_auxz00_17145); }  else 
{ /* Llib/date.scm 255 */BFALSE; } } } 
{ /* Llib/date.scm 255 */
 obj_t BgL_index1352z00_3730;
BgL_index1352z00_3730 = 
BGl_search1348ze70ze7zz__datez00(BgL_l1347z00_3708, BgL_opt1345z00_35, BGl_keyword6009z00zz__datez00, 1L); 
{ /* Llib/date.scm 255 */
 bool_t BgL_test7215z00_17156;
{ /* Llib/date.scm 255 */
 long BgL_n1z00_8215;
{ /* Llib/date.scm 255 */
 obj_t BgL_tmpz00_17157;
if(
INTEGERP(BgL_index1352z00_3730))
{ /* Llib/date.scm 255 */
BgL_tmpz00_17157 = BgL_index1352z00_3730
; }  else 
{ 
 obj_t BgL_auxz00_17160;
BgL_auxz00_17160 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1352z00_3730); 
FAILURE(BgL_auxz00_17160,BFALSE,BFALSE);} 
BgL_n1z00_8215 = 
(long)CINT(BgL_tmpz00_17157); } 
BgL_test7215z00_17156 = 
(BgL_n1z00_8215>=0L); } 
if(BgL_test7215z00_17156)
{ 
 long BgL_auxz00_17173; obj_t BgL_auxz00_17166;
{ /* Llib/date.scm 255 */
 obj_t BgL_tmpz00_17174;
if(
INTEGERP(BgL_index1352z00_3730))
{ /* Llib/date.scm 255 */
BgL_tmpz00_17174 = BgL_index1352z00_3730
; }  else 
{ 
 obj_t BgL_auxz00_17177;
BgL_auxz00_17177 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1352z00_3730); 
FAILURE(BgL_auxz00_17177,BFALSE,BFALSE);} 
BgL_auxz00_17173 = 
(long)CINT(BgL_tmpz00_17174); } 
if(
VECTORP(BgL_opt1345z00_35))
{ /* Llib/date.scm 255 */
BgL_auxz00_17166 = BgL_opt1345z00_35
; }  else 
{ 
 obj_t BgL_auxz00_17169;
BgL_auxz00_17169 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1345z00_35); 
FAILURE(BgL_auxz00_17169,BFALSE,BFALSE);} 
BgL_hourz00_3714 = 
VECTOR_REF(BgL_auxz00_17166,BgL_auxz00_17173); }  else 
{ /* Llib/date.scm 255 */BFALSE; } } } 
{ /* Llib/date.scm 255 */
 obj_t BgL_index1353z00_3732;
BgL_index1353z00_3732 = 
BGl_search1348ze70ze7zz__datez00(BgL_l1347z00_3708, BgL_opt1345z00_35, BGl_keyword6011z00zz__datez00, 1L); 
{ /* Llib/date.scm 255 */
 bool_t BgL_test7219z00_17184;
{ /* Llib/date.scm 255 */
 long BgL_n1z00_8216;
{ /* Llib/date.scm 255 */
 obj_t BgL_tmpz00_17185;
if(
INTEGERP(BgL_index1353z00_3732))
{ /* Llib/date.scm 255 */
BgL_tmpz00_17185 = BgL_index1353z00_3732
; }  else 
{ 
 obj_t BgL_auxz00_17188;
BgL_auxz00_17188 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1353z00_3732); 
FAILURE(BgL_auxz00_17188,BFALSE,BFALSE);} 
BgL_n1z00_8216 = 
(long)CINT(BgL_tmpz00_17185); } 
BgL_test7219z00_17184 = 
(BgL_n1z00_8216>=0L); } 
if(BgL_test7219z00_17184)
{ 
 long BgL_auxz00_17201; obj_t BgL_auxz00_17194;
{ /* Llib/date.scm 255 */
 obj_t BgL_tmpz00_17202;
if(
INTEGERP(BgL_index1353z00_3732))
{ /* Llib/date.scm 255 */
BgL_tmpz00_17202 = BgL_index1353z00_3732
; }  else 
{ 
 obj_t BgL_auxz00_17205;
BgL_auxz00_17205 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1353z00_3732); 
FAILURE(BgL_auxz00_17205,BFALSE,BFALSE);} 
BgL_auxz00_17201 = 
(long)CINT(BgL_tmpz00_17202); } 
if(
VECTORP(BgL_opt1345z00_35))
{ /* Llib/date.scm 255 */
BgL_auxz00_17194 = BgL_opt1345z00_35
; }  else 
{ 
 obj_t BgL_auxz00_17197;
BgL_auxz00_17197 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1345z00_35); 
FAILURE(BgL_auxz00_17197,BFALSE,BFALSE);} 
BgL_minz00_3715 = 
VECTOR_REF(BgL_auxz00_17194,BgL_auxz00_17201); }  else 
{ /* Llib/date.scm 255 */BFALSE; } } } 
{ /* Llib/date.scm 255 */
 obj_t BgL_index1354z00_3734;
BgL_index1354z00_3734 = 
BGl_search1348ze70ze7zz__datez00(BgL_l1347z00_3708, BgL_opt1345z00_35, BGl_keyword6013z00zz__datez00, 1L); 
{ /* Llib/date.scm 255 */
 bool_t BgL_test7223z00_17212;
{ /* Llib/date.scm 255 */
 long BgL_n1z00_8217;
{ /* Llib/date.scm 255 */
 obj_t BgL_tmpz00_17213;
if(
INTEGERP(BgL_index1354z00_3734))
{ /* Llib/date.scm 255 */
BgL_tmpz00_17213 = BgL_index1354z00_3734
; }  else 
{ 
 obj_t BgL_auxz00_17216;
BgL_auxz00_17216 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1354z00_3734); 
FAILURE(BgL_auxz00_17216,BFALSE,BFALSE);} 
BgL_n1z00_8217 = 
(long)CINT(BgL_tmpz00_17213); } 
BgL_test7223z00_17212 = 
(BgL_n1z00_8217>=0L); } 
if(BgL_test7223z00_17212)
{ 
 long BgL_auxz00_17229; obj_t BgL_auxz00_17222;
{ /* Llib/date.scm 255 */
 obj_t BgL_tmpz00_17230;
if(
INTEGERP(BgL_index1354z00_3734))
{ /* Llib/date.scm 255 */
BgL_tmpz00_17230 = BgL_index1354z00_3734
; }  else 
{ 
 obj_t BgL_auxz00_17233;
BgL_auxz00_17233 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1354z00_3734); 
FAILURE(BgL_auxz00_17233,BFALSE,BFALSE);} 
BgL_auxz00_17229 = 
(long)CINT(BgL_tmpz00_17230); } 
if(
VECTORP(BgL_opt1345z00_35))
{ /* Llib/date.scm 255 */
BgL_auxz00_17222 = BgL_opt1345z00_35
; }  else 
{ 
 obj_t BgL_auxz00_17225;
BgL_auxz00_17225 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1345z00_35); 
FAILURE(BgL_auxz00_17225,BFALSE,BFALSE);} 
BgL_monthz00_3716 = 
VECTOR_REF(BgL_auxz00_17222,BgL_auxz00_17229); }  else 
{ /* Llib/date.scm 255 */BFALSE; } } } 
{ /* Llib/date.scm 255 */
 obj_t BgL_index1355z00_3736;
BgL_index1355z00_3736 = 
BGl_search1348ze70ze7zz__datez00(BgL_l1347z00_3708, BgL_opt1345z00_35, BGl_keyword6015z00zz__datez00, 1L); 
{ /* Llib/date.scm 255 */
 bool_t BgL_test7227z00_17240;
{ /* Llib/date.scm 255 */
 long BgL_n1z00_8218;
{ /* Llib/date.scm 255 */
 obj_t BgL_tmpz00_17241;
if(
INTEGERP(BgL_index1355z00_3736))
{ /* Llib/date.scm 255 */
BgL_tmpz00_17241 = BgL_index1355z00_3736
; }  else 
{ 
 obj_t BgL_auxz00_17244;
BgL_auxz00_17244 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1355z00_3736); 
FAILURE(BgL_auxz00_17244,BFALSE,BFALSE);} 
BgL_n1z00_8218 = 
(long)CINT(BgL_tmpz00_17241); } 
BgL_test7227z00_17240 = 
(BgL_n1z00_8218>=0L); } 
if(BgL_test7227z00_17240)
{ 
 long BgL_auxz00_17257; obj_t BgL_auxz00_17250;
{ /* Llib/date.scm 255 */
 obj_t BgL_tmpz00_17258;
if(
INTEGERP(BgL_index1355z00_3736))
{ /* Llib/date.scm 255 */
BgL_tmpz00_17258 = BgL_index1355z00_3736
; }  else 
{ 
 obj_t BgL_auxz00_17261;
BgL_auxz00_17261 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1355z00_3736); 
FAILURE(BgL_auxz00_17261,BFALSE,BFALSE);} 
BgL_auxz00_17257 = 
(long)CINT(BgL_tmpz00_17258); } 
if(
VECTORP(BgL_opt1345z00_35))
{ /* Llib/date.scm 255 */
BgL_auxz00_17250 = BgL_opt1345z00_35
; }  else 
{ 
 obj_t BgL_auxz00_17253;
BgL_auxz00_17253 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1345z00_35); 
FAILURE(BgL_auxz00_17253,BFALSE,BFALSE);} 
BgL_nsecz00_3717 = 
VECTOR_REF(BgL_auxz00_17250,BgL_auxz00_17257); }  else 
{ /* Llib/date.scm 255 */BFALSE; } } } 
{ /* Llib/date.scm 255 */
 obj_t BgL_index1356z00_3738;
BgL_index1356z00_3738 = 
BGl_search1348ze70ze7zz__datez00(BgL_l1347z00_3708, BgL_opt1345z00_35, BGl_keyword6017z00zz__datez00, 1L); 
{ /* Llib/date.scm 255 */
 bool_t BgL_test7231z00_17268;
{ /* Llib/date.scm 255 */
 long BgL_n1z00_8219;
{ /* Llib/date.scm 255 */
 obj_t BgL_tmpz00_17269;
if(
INTEGERP(BgL_index1356z00_3738))
{ /* Llib/date.scm 255 */
BgL_tmpz00_17269 = BgL_index1356z00_3738
; }  else 
{ 
 obj_t BgL_auxz00_17272;
BgL_auxz00_17272 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1356z00_3738); 
FAILURE(BgL_auxz00_17272,BFALSE,BFALSE);} 
BgL_n1z00_8219 = 
(long)CINT(BgL_tmpz00_17269); } 
BgL_test7231z00_17268 = 
(BgL_n1z00_8219>=0L); } 
if(BgL_test7231z00_17268)
{ 
 long BgL_auxz00_17285; obj_t BgL_auxz00_17278;
{ /* Llib/date.scm 255 */
 obj_t BgL_tmpz00_17286;
if(
INTEGERP(BgL_index1356z00_3738))
{ /* Llib/date.scm 255 */
BgL_tmpz00_17286 = BgL_index1356z00_3738
; }  else 
{ 
 obj_t BgL_auxz00_17289;
BgL_auxz00_17289 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1356z00_3738); 
FAILURE(BgL_auxz00_17289,BFALSE,BFALSE);} 
BgL_auxz00_17285 = 
(long)CINT(BgL_tmpz00_17286); } 
if(
VECTORP(BgL_opt1345z00_35))
{ /* Llib/date.scm 255 */
BgL_auxz00_17278 = BgL_opt1345z00_35
; }  else 
{ 
 obj_t BgL_auxz00_17281;
BgL_auxz00_17281 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1345z00_35); 
FAILURE(BgL_auxz00_17281,BFALSE,BFALSE);} 
BgL_secz00_3718 = 
VECTOR_REF(BgL_auxz00_17278,BgL_auxz00_17285); }  else 
{ /* Llib/date.scm 255 */BFALSE; } } } 
{ /* Llib/date.scm 255 */
 obj_t BgL_index1357z00_3740;
BgL_index1357z00_3740 = 
BGl_search1348ze70ze7zz__datez00(BgL_l1347z00_3708, BgL_opt1345z00_35, BGl_keyword6021z00zz__datez00, 1L); 
{ /* Llib/date.scm 255 */
 bool_t BgL_test7235z00_17296;
{ /* Llib/date.scm 255 */
 long BgL_n1z00_8220;
{ /* Llib/date.scm 255 */
 obj_t BgL_tmpz00_17297;
if(
INTEGERP(BgL_index1357z00_3740))
{ /* Llib/date.scm 255 */
BgL_tmpz00_17297 = BgL_index1357z00_3740
; }  else 
{ 
 obj_t BgL_auxz00_17300;
BgL_auxz00_17300 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1357z00_3740); 
FAILURE(BgL_auxz00_17300,BFALSE,BFALSE);} 
BgL_n1z00_8220 = 
(long)CINT(BgL_tmpz00_17297); } 
BgL_test7235z00_17296 = 
(BgL_n1z00_8220>=0L); } 
if(BgL_test7235z00_17296)
{ 
 long BgL_auxz00_17313; obj_t BgL_auxz00_17306;
{ /* Llib/date.scm 255 */
 obj_t BgL_tmpz00_17314;
if(
INTEGERP(BgL_index1357z00_3740))
{ /* Llib/date.scm 255 */
BgL_tmpz00_17314 = BgL_index1357z00_3740
; }  else 
{ 
 obj_t BgL_auxz00_17317;
BgL_auxz00_17317 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string5881z00zz__datez00, BgL_index1357z00_3740); 
FAILURE(BgL_auxz00_17317,BFALSE,BFALSE);} 
BgL_auxz00_17313 = 
(long)CINT(BgL_tmpz00_17314); } 
if(
VECTORP(BgL_opt1345z00_35))
{ /* Llib/date.scm 255 */
BgL_auxz00_17306 = BgL_opt1345z00_35
; }  else 
{ 
 obj_t BgL_auxz00_17309;
BgL_auxz00_17309 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1345z00_35); 
FAILURE(BgL_auxz00_17309,BFALSE,BFALSE);} 
BgL_yearz00_3719 = 
VECTOR_REF(BgL_auxz00_17306,BgL_auxz00_17313); }  else 
{ /* Llib/date.scm 255 */BFALSE; } } } 
{ /* Llib/date.scm 255 */
 obj_t BgL_arg2776z00_3742;
{ 
 obj_t BgL_auxz00_17323;
if(
VECTORP(BgL_opt1345z00_35))
{ /* Llib/date.scm 255 */
BgL_auxz00_17323 = BgL_opt1345z00_35
; }  else 
{ 
 obj_t BgL_auxz00_17326;
BgL_auxz00_17326 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1345z00_35); 
FAILURE(BgL_auxz00_17326,BFALSE,BFALSE);} 
BgL_arg2776z00_3742 = 
VECTOR_REF(BgL_auxz00_17323,0L); } 
{ /* Llib/date.scm 255 */
 obj_t BgL_dayz00_3743;
BgL_dayz00_3743 = BgL_dayz00_3713; 
{ /* Llib/date.scm 255 */
 obj_t BgL_hourz00_3744;
BgL_hourz00_3744 = BgL_hourz00_3714; 
{ /* Llib/date.scm 255 */
 obj_t BgL_minz00_3745;
BgL_minz00_3745 = BgL_minz00_3715; 
{ /* Llib/date.scm 255 */
 obj_t BgL_monthz00_3746;
BgL_monthz00_3746 = BgL_monthz00_3716; 
{ /* Llib/date.scm 255 */
 obj_t BgL_nsecz00_3747;
BgL_nsecz00_3747 = BgL_nsecz00_3717; 
{ /* Llib/date.scm 255 */
 obj_t BgL_secz00_3748;
BgL_secz00_3748 = BgL_secz00_3718; 
{ /* Llib/date.scm 255 */
 obj_t BgL_yearz00_3749;
BgL_yearz00_3749 = BgL_yearz00_3719; 
{ /* Llib/date.scm 255 */
 obj_t BgL_auxz00_17331;
if(
BGL_DATEP(BgL_arg2776z00_3742))
{ /* Llib/date.scm 255 */
BgL_auxz00_17331 = BgL_arg2776z00_3742
; }  else 
{ 
 obj_t BgL_auxz00_17334;
BgL_auxz00_17334 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6039z00zz__datez00, BGl_string6036z00zz__datez00, BgL_arg2776z00_3742); 
FAILURE(BgL_auxz00_17334,BFALSE,BFALSE);} 
return 
BGl_datezd2updatez12zc0zz__datez00(BgL_auxz00_17331, BgL_dayz00_3743, BgL_hourz00_3744, BgL_minz00_3745, BgL_monthz00_3746, BgL_nsecz00_3747, BgL_secz00_3748, BgL_yearz00_3749);} } } } } } } } } } } } } } } } } } } } 

}



/* search1348~0 */
obj_t BGl_search1348ze70ze7zz__datez00(long BgL_l1347z00_9887, obj_t BgL_opt1345z00_9886, obj_t BgL_k1z00_3709, long BgL_iz00_3710)
{
{ /* Llib/date.scm 255 */
BGl_search1348ze70ze7zz__datez00:
if(
(BgL_iz00_3710==BgL_l1347z00_9887))
{ /* Llib/date.scm 255 */
return 
BINT((-1L));}  else 
{ /* Llib/date.scm 255 */
if(
(BgL_iz00_3710==
(BgL_l1347z00_9887-1L)))
{ /* Llib/date.scm 255 */
 long BgL_arg2783z00_3753;
{ 
 obj_t BgL_auxz00_17345;
if(
VECTORP(BgL_opt1345z00_9886))
{ /* Llib/date.scm 255 */
BgL_auxz00_17345 = BgL_opt1345z00_9886
; }  else 
{ 
 obj_t BgL_auxz00_17348;
BgL_auxz00_17348 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6044z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1345z00_9886); 
FAILURE(BgL_auxz00_17348,BFALSE,BFALSE);} 
BgL_arg2783z00_3753 = 
VECTOR_LENGTH(BgL_auxz00_17345); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol6042z00zz__datez00, BGl_string6045z00zz__datez00, 
BINT(BgL_arg2783z00_3753));}  else 
{ /* Llib/date.scm 255 */
 obj_t BgL_vz00_3754;
{ 
 obj_t BgL_auxz00_17355;
if(
VECTORP(BgL_opt1345z00_9886))
{ /* Llib/date.scm 255 */
BgL_auxz00_17355 = BgL_opt1345z00_9886
; }  else 
{ 
 obj_t BgL_auxz00_17358;
BgL_auxz00_17358 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12016L), BGl_string6044z00zz__datez00, BGl_string6000z00zz__datez00, BgL_opt1345z00_9886); 
FAILURE(BgL_auxz00_17358,BFALSE,BFALSE);} 
BgL_vz00_3754 = 
VECTOR_REF(BgL_auxz00_17355,BgL_iz00_3710); } 
if(
(BgL_vz00_3754==BgL_k1z00_3709))
{ /* Llib/date.scm 255 */
return 
BINT(
(BgL_iz00_3710+1L));}  else 
{ 
 long BgL_iz00_17367;
BgL_iz00_17367 = 
(BgL_iz00_3710+2L); 
BgL_iz00_3710 = BgL_iz00_17367; 
goto BGl_search1348ze70ze7zz__datez00;} } } } 

}



/* date-update! */
BGL_EXPORTED_DEF obj_t BGl_datezd2updatez12zc0zz__datez00(obj_t BgL_datez00_27, obj_t BgL_dayz00_28, obj_t BgL_hourz00_29, obj_t BgL_minz00_30, obj_t BgL_monthz00_31, obj_t BgL_nsecz00_32, obj_t BgL_secz00_33, obj_t BgL_yearz00_34)
{
{ /* Llib/date.scm 255 */
{ /* Llib/date.scm 257 */
 obj_t BgL_arg2786z00_3757; obj_t BgL_arg2787z00_3758; obj_t BgL_arg2788z00_3759; obj_t BgL_arg2805z00_3760; obj_t BgL_arg2812z00_3761; obj_t BgL_arg2813z00_3762; obj_t BgL_arg2817z00_3763; long BgL_arg2818z00_3764; bool_t BgL_arg2819z00_3765;
if(
CBOOL(BgL_nsecz00_32))
{ /* Llib/date.scm 257 */
BgL_arg2786z00_3757 = BgL_nsecz00_32; }  else 
{ /* Llib/date.scm 257 */
BgL_arg2786z00_3757 = 
make_bllong(
BGL_DATE_NANOSECOND(BgL_datez00_27)); } 
if(
CBOOL(BgL_secz00_33))
{ /* Llib/date.scm 258 */
BgL_arg2787z00_3758 = BgL_secz00_33; }  else 
{ /* Llib/date.scm 258 */
BgL_arg2787z00_3758 = 
BINT(
BGL_DATE_SECOND(BgL_datez00_27)); } 
if(
CBOOL(BgL_minz00_30))
{ /* Llib/date.scm 259 */
BgL_arg2788z00_3759 = BgL_minz00_30; }  else 
{ /* Llib/date.scm 259 */
BgL_arg2788z00_3759 = 
BINT(
BGL_DATE_MINUTE(BgL_datez00_27)); } 
if(
CBOOL(BgL_hourz00_29))
{ /* Llib/date.scm 260 */
BgL_arg2805z00_3760 = BgL_hourz00_29; }  else 
{ /* Llib/date.scm 260 */
BgL_arg2805z00_3760 = 
BINT(
BGL_DATE_HOUR(BgL_datez00_27)); } 
if(
CBOOL(BgL_dayz00_28))
{ /* Llib/date.scm 261 */
BgL_arg2812z00_3761 = BgL_dayz00_28; }  else 
{ /* Llib/date.scm 261 */
BgL_arg2812z00_3761 = 
BINT(
BGL_DATE_DAY(BgL_datez00_27)); } 
if(
CBOOL(BgL_monthz00_31))
{ /* Llib/date.scm 262 */
BgL_arg2813z00_3762 = BgL_monthz00_31; }  else 
{ /* Llib/date.scm 262 */
BgL_arg2813z00_3762 = 
BINT(
BGL_DATE_MONTH(BgL_datez00_27)); } 
if(
CBOOL(BgL_yearz00_34))
{ /* Llib/date.scm 263 */
BgL_arg2817z00_3763 = BgL_yearz00_34; }  else 
{ /* Llib/date.scm 263 */
BgL_arg2817z00_3763 = 
BINT(
BGL_DATE_YEAR(BgL_datez00_27)); } 
BgL_arg2818z00_3764 = 
BGL_DATE_TIMEZONE(BgL_datez00_27); 
BgL_arg2819z00_3765 = 
BGL_DATE_ISGMT(BgL_datez00_27); 
{ /* Llib/date.scm 256 */
 int BgL_auxz00_17453; int BgL_auxz00_17444; int BgL_auxz00_17435; int BgL_auxz00_17426; int BgL_auxz00_17417; int BgL_auxz00_17408; BGL_LONGLONG_T BgL_tmpz00_17399;
{ /* Llib/date.scm 263 */
 obj_t BgL_tmpz00_17454;
if(
INTEGERP(BgL_arg2817z00_3763))
{ /* Llib/date.scm 263 */
BgL_tmpz00_17454 = BgL_arg2817z00_3763
; }  else 
{ 
 obj_t BgL_auxz00_17457;
BgL_auxz00_17457 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12342L), BGl_string6043z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2817z00_3763); 
FAILURE(BgL_auxz00_17457,BFALSE,BFALSE);} 
BgL_auxz00_17453 = 
CINT(BgL_tmpz00_17454); } 
{ /* Llib/date.scm 262 */
 obj_t BgL_tmpz00_17445;
if(
INTEGERP(BgL_arg2813z00_3762))
{ /* Llib/date.scm 262 */
BgL_tmpz00_17445 = BgL_arg2813z00_3762
; }  else 
{ 
 obj_t BgL_auxz00_17448;
BgL_auxz00_17448 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12309L), BGl_string6043z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2813z00_3762); 
FAILURE(BgL_auxz00_17448,BFALSE,BFALSE);} 
BgL_auxz00_17444 = 
CINT(BgL_tmpz00_17445); } 
{ /* Llib/date.scm 261 */
 obj_t BgL_tmpz00_17436;
if(
INTEGERP(BgL_arg2812z00_3761))
{ /* Llib/date.scm 261 */
BgL_tmpz00_17436 = BgL_arg2812z00_3761
; }  else 
{ 
 obj_t BgL_auxz00_17439;
BgL_auxz00_17439 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12274L), BGl_string6043z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2812z00_3761); 
FAILURE(BgL_auxz00_17439,BFALSE,BFALSE);} 
BgL_auxz00_17435 = 
CINT(BgL_tmpz00_17436); } 
{ /* Llib/date.scm 260 */
 obj_t BgL_tmpz00_17427;
if(
INTEGERP(BgL_arg2805z00_3760))
{ /* Llib/date.scm 260 */
BgL_tmpz00_17427 = BgL_arg2805z00_3760
; }  else 
{ 
 obj_t BgL_auxz00_17430;
BgL_auxz00_17430 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12243L), BGl_string6043z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2805z00_3760); 
FAILURE(BgL_auxz00_17430,BFALSE,BFALSE);} 
BgL_auxz00_17426 = 
CINT(BgL_tmpz00_17427); } 
{ /* Llib/date.scm 259 */
 obj_t BgL_tmpz00_17418;
if(
INTEGERP(BgL_arg2788z00_3759))
{ /* Llib/date.scm 259 */
BgL_tmpz00_17418 = BgL_arg2788z00_3759
; }  else 
{ 
 obj_t BgL_auxz00_17421;
BgL_auxz00_17421 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12210L), BGl_string6043z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2788z00_3759); 
FAILURE(BgL_auxz00_17421,BFALSE,BFALSE);} 
BgL_auxz00_17417 = 
CINT(BgL_tmpz00_17418); } 
{ /* Llib/date.scm 258 */
 obj_t BgL_tmpz00_17409;
if(
INTEGERP(BgL_arg2787z00_3758))
{ /* Llib/date.scm 258 */
BgL_tmpz00_17409 = BgL_arg2787z00_3758
; }  else 
{ 
 obj_t BgL_auxz00_17412;
BgL_auxz00_17412 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12176L), BGl_string6043z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg2787z00_3758); 
FAILURE(BgL_auxz00_17412,BFALSE,BFALSE);} 
BgL_auxz00_17408 = 
CINT(BgL_tmpz00_17409); } 
{ /* Llib/date.scm 257 */
 obj_t BgL_tmpz00_17400;
if(
LLONGP(BgL_arg2786z00_3757))
{ /* Llib/date.scm 257 */
BgL_tmpz00_17400 = BgL_arg2786z00_3757
; }  else 
{ 
 obj_t BgL_auxz00_17403;
BgL_auxz00_17403 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12142L), BGl_string6043z00zz__datez00, BGl_string6026z00zz__datez00, BgL_arg2786z00_3757); 
FAILURE(BgL_auxz00_17403,BFALSE,BFALSE);} 
BgL_tmpz00_17399 = 
BLLONG_TO_LLONG(BgL_tmpz00_17400); } 
return 
bgl_update_date(BgL_datez00_27, BgL_tmpz00_17399, BgL_auxz00_17408, BgL_auxz00_17417, BgL_auxz00_17426, BgL_auxz00_17435, BgL_auxz00_17444, BgL_auxz00_17453, BgL_arg2818z00_3764, BgL_arg2819z00_3765, 
(int)((-1L)));} } } 

}



/* date->gmtdate! */
BGL_EXPORTED_DEF obj_t BGl_datezd2ze3gmtdatez12z23zz__datez00(obj_t BgL_datez00_37)
{
{ /* Llib/date.scm 271 */
BGL_TAIL return 
bgl_date_to_gmtdate(BgL_datez00_37);} 

}



/* &date->gmtdate! */
obj_t BGl_z62datezd2ze3gmtdatez12z41zz__datez00(obj_t BgL_envz00_9778, obj_t BgL_datez00_9779)
{
{ /* Llib/date.scm 271 */
{ /* Llib/date.scm 274 */
 obj_t BgL_auxz00_17465;
if(
BGL_DATEP(BgL_datez00_9779))
{ /* Llib/date.scm 274 */
BgL_auxz00_17465 = BgL_datez00_9779
; }  else 
{ 
 obj_t BgL_auxz00_17468;
BgL_auxz00_17468 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(12707L), BGl_string6046z00zz__datez00, BGl_string6036z00zz__datez00, BgL_datez00_9779); 
FAILURE(BgL_auxz00_17468,BFALSE,BFALSE);} 
return 
BGl_datezd2ze3gmtdatez12z23zz__datez00(BgL_auxz00_17465);} } 

}



/* date-update-millisecond! */
BGL_EXPORTED_DEF obj_t BGl_datezd2updatezd2millisecondz12z12zz__datez00(obj_t BgL_datez00_38, long BgL_msz00_39)
{
{ /* Llib/date.scm 282 */
{ /* Llib/date.scm 285 */
 bool_t BgL_test7261z00_17473;
if(
(BgL_msz00_39>=0L))
{ /* Llib/date.scm 285 */
BgL_test7261z00_17473 = 
(BgL_msz00_39<1000L)
; }  else 
{ /* Llib/date.scm 285 */
BgL_test7261z00_17473 = ((bool_t)0)
; } 
if(BgL_test7261z00_17473)
{ /* Llib/date.scm 286 */
 int BgL_osecz00_3776;
BgL_osecz00_3776 = 
BGL_DATE_SECOND(BgL_datez00_38); 
BGL_DATE_UPDATE_MILLISECOND(BgL_datez00_38, BgL_msz00_39); 
return BgL_datez00_38;}  else 
{ /* Llib/date.scm 289 */
 BGL_LONGLONG_T BgL_arg2822z00_3777;
{ /* Llib/date.scm 289 */
 BGL_LONGLONG_T BgL_arg2823z00_3785;
BgL_arg2823z00_3785 = 
LONG_TO_LLONG(BgL_msz00_39); 
BgL_arg2822z00_3777 = 
((16960 + ((BGL_LONGLONG_T)65536 * (((BGL_LONGLONG_T)15))))*BgL_arg2823z00_3785); } 
return 
BGl_datezd2updatez12zc0zz__datez00(BgL_datez00_38, BFALSE, BFALSE, BFALSE, BFALSE, 
make_bllong(BgL_arg2822z00_3777), BFALSE, BFALSE);} } } 

}



/* &date-update-millisecond! */
obj_t BGl_z62datezd2updatezd2millisecondz12z70zz__datez00(obj_t BgL_envz00_9780, obj_t BgL_datez00_9781, obj_t BgL_msz00_9782)
{
{ /* Llib/date.scm 282 */
{ /* Llib/date.scm 285 */
 long BgL_auxz00_17490; obj_t BgL_auxz00_17483;
{ /* Llib/date.scm 285 */
 obj_t BgL_tmpz00_17491;
if(
INTEGERP(BgL_msz00_9782))
{ /* Llib/date.scm 285 */
BgL_tmpz00_17491 = BgL_msz00_9782
; }  else 
{ 
 obj_t BgL_auxz00_17494;
BgL_auxz00_17494 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(13149L), BGl_string6047z00zz__datez00, BGl_string5881z00zz__datez00, BgL_msz00_9782); 
FAILURE(BgL_auxz00_17494,BFALSE,BFALSE);} 
BgL_auxz00_17490 = 
(long)CINT(BgL_tmpz00_17491); } 
if(
BGL_DATEP(BgL_datez00_9781))
{ /* Llib/date.scm 285 */
BgL_auxz00_17483 = BgL_datez00_9781
; }  else 
{ 
 obj_t BgL_auxz00_17486;
BgL_auxz00_17486 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(13149L), BGl_string6047z00zz__datez00, BGl_string6036z00zz__datez00, BgL_datez00_9781); 
FAILURE(BgL_auxz00_17486,BFALSE,BFALSE);} 
return 
BGl_datezd2updatezd2millisecondz12z12zz__datez00(BgL_auxz00_17483, BgL_auxz00_17490);} } 

}



/* date-update-second! */
BGL_EXPORTED_DEF obj_t BGl_datezd2updatezd2secondz12z12zz__datez00(obj_t BgL_datez00_40, long BgL_secz00_41)
{
{ /* Llib/date.scm 296 */
{ /* Llib/date.scm 299 */
 bool_t BgL_test7265z00_17500;
if(
(BgL_secz00_41>=0L))
{ /* Llib/date.scm 299 */
BgL_test7265z00_17500 = 
(BgL_secz00_41<60L)
; }  else 
{ /* Llib/date.scm 299 */
BgL_test7265z00_17500 = ((bool_t)0)
; } 
if(BgL_test7265z00_17500)
{ /* Llib/date.scm 300 */
 int BgL_osecz00_3789;
BgL_osecz00_3789 = 
BGL_DATE_SECOND(BgL_datez00_40); 
BGL_DATE_UPDATE_SECOND(BgL_datez00_40, BgL_secz00_41); 
{ /* Llib/date.scm 302 */
 long BgL_arg2826z00_3790;
{ /* Llib/date.scm 302 */
 long BgL_arg2827z00_3791; long BgL_arg2828z00_3792;
BgL_arg2827z00_3791 = 
BGL_DATE_TIME(BgL_datez00_40); 
BgL_arg2828z00_3792 = 
(BgL_secz00_41-
(long)(BgL_osecz00_3789)); 
BgL_arg2826z00_3790 = 
(BgL_arg2827z00_3791+BgL_arg2828z00_3792); } 
BGL_DATE_UPDATE_TIME(BgL_datez00_40, BgL_arg2826z00_3790); } 
return BgL_datez00_40;}  else 
{ /* Llib/date.scm 299 */
return 
BGl_datezd2updatez12zc0zz__datez00(BgL_datez00_40, BFALSE, BFALSE, BFALSE, BFALSE, BFALSE, 
BINT(BgL_secz00_41), BFALSE);} } } 

}



/* &date-update-second! */
obj_t BGl_z62datezd2updatezd2secondz12z70zz__datez00(obj_t BgL_envz00_9783, obj_t BgL_datez00_9784, obj_t BgL_secz00_9785)
{
{ /* Llib/date.scm 296 */
{ /* Llib/date.scm 299 */
 long BgL_auxz00_17520; obj_t BgL_auxz00_17513;
{ /* Llib/date.scm 299 */
 obj_t BgL_tmpz00_17521;
if(
INTEGERP(BgL_secz00_9785))
{ /* Llib/date.scm 299 */
BgL_tmpz00_17521 = BgL_secz00_9785
; }  else 
{ 
 obj_t BgL_auxz00_17524;
BgL_auxz00_17524 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(13737L), BGl_string6048z00zz__datez00, BGl_string5881z00zz__datez00, BgL_secz00_9785); 
FAILURE(BgL_auxz00_17524,BFALSE,BFALSE);} 
BgL_auxz00_17520 = 
(long)CINT(BgL_tmpz00_17521); } 
if(
BGL_DATEP(BgL_datez00_9784))
{ /* Llib/date.scm 299 */
BgL_auxz00_17513 = BgL_datez00_9784
; }  else 
{ 
 obj_t BgL_auxz00_17516;
BgL_auxz00_17516 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(13737L), BGl_string6048z00zz__datez00, BGl_string6036z00zz__datez00, BgL_datez00_9784); 
FAILURE(BgL_auxz00_17516,BFALSE,BFALSE);} 
return 
BGl_datezd2updatezd2secondz12z12zz__datez00(BgL_auxz00_17513, BgL_auxz00_17520);} } 

}



/* date-update-minute! */
BGL_EXPORTED_DEF obj_t BGl_datezd2updatezd2minutez12z12zz__datez00(obj_t BgL_datez00_42, long BgL_minz00_43)
{
{ /* Llib/date.scm 311 */
{ /* Llib/date.scm 314 */
 bool_t BgL_test7269z00_17530;
if(
(BgL_minz00_43>=0L))
{ /* Llib/date.scm 314 */
BgL_test7269z00_17530 = 
(BgL_minz00_43<60L)
; }  else 
{ /* Llib/date.scm 314 */
BgL_test7269z00_17530 = ((bool_t)0)
; } 
if(BgL_test7269z00_17530)
{ /* Llib/date.scm 315 */
 int BgL_ominz00_3803;
BgL_ominz00_3803 = 
BGL_DATE_MINUTE(BgL_datez00_42); 
BGL_DATE_UPDATE_MINUTE(BgL_datez00_42, BgL_minz00_43); 
{ /* Llib/date.scm 318 */
 long BgL_arg2831z00_3804;
{ /* Llib/date.scm 318 */
 long BgL_arg2832z00_3805; long BgL_arg2833z00_3806;
BgL_arg2832z00_3805 = 
BGL_DATE_TIME(BgL_datez00_42); 
BgL_arg2833z00_3806 = 
(60L*
(BgL_minz00_43-
(long)(BgL_ominz00_3803))); 
BgL_arg2831z00_3804 = 
(BgL_arg2832z00_3805+BgL_arg2833z00_3806); } 
BGL_DATE_UPDATE_TIME(BgL_datez00_42, BgL_arg2831z00_3804); } 
return BgL_datez00_42;}  else 
{ /* Llib/date.scm 314 */
return 
BGl_datezd2updatez12zc0zz__datez00(BgL_datez00_42, BFALSE, BFALSE, 
BINT(BgL_minz00_43), BFALSE, BFALSE, BFALSE, BFALSE);} } } 

}



/* &date-update-minute! */
obj_t BGl_z62datezd2updatezd2minutez12z70zz__datez00(obj_t BgL_envz00_9786, obj_t BgL_datez00_9787, obj_t BgL_minz00_9788)
{
{ /* Llib/date.scm 311 */
{ /* Llib/date.scm 314 */
 long BgL_auxz00_17551; obj_t BgL_auxz00_17544;
{ /* Llib/date.scm 314 */
 obj_t BgL_tmpz00_17552;
if(
INTEGERP(BgL_minz00_9788))
{ /* Llib/date.scm 314 */
BgL_tmpz00_17552 = BgL_minz00_9788
; }  else 
{ 
 obj_t BgL_auxz00_17555;
BgL_auxz00_17555 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(14322L), BGl_string6049z00zz__datez00, BGl_string5881z00zz__datez00, BgL_minz00_9788); 
FAILURE(BgL_auxz00_17555,BFALSE,BFALSE);} 
BgL_auxz00_17551 = 
(long)CINT(BgL_tmpz00_17552); } 
if(
BGL_DATEP(BgL_datez00_9787))
{ /* Llib/date.scm 314 */
BgL_auxz00_17544 = BgL_datez00_9787
; }  else 
{ 
 obj_t BgL_auxz00_17547;
BgL_auxz00_17547 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(14322L), BGl_string6049z00zz__datez00, BGl_string6036z00zz__datez00, BgL_datez00_9787); 
FAILURE(BgL_auxz00_17547,BFALSE,BFALSE);} 
return 
BGl_datezd2updatezd2minutez12z12zz__datez00(BgL_auxz00_17544, BgL_auxz00_17551);} } 

}



/* integer->second */
BGL_EXPORTED_DEF long BGl_integerzd2ze3secondz31zz__datez00(long BgL_iz00_44)
{
{ /* Llib/date.scm 327 */
return 
(long)(BgL_iz00_44);} 

}



/* &integer->second */
obj_t BGl_z62integerzd2ze3secondz53zz__datez00(obj_t BgL_envz00_9789, obj_t BgL_iz00_9790)
{
{ /* Llib/date.scm 327 */
{ /* Llib/date.scm 328 */
 long BgL_tmpz00_17562;
{ /* Llib/date.scm 328 */
 long BgL_auxz00_17563;
{ /* Llib/date.scm 328 */
 obj_t BgL_tmpz00_17564;
if(
INTEGERP(BgL_iz00_9790))
{ /* Llib/date.scm 328 */
BgL_tmpz00_17564 = BgL_iz00_9790
; }  else 
{ 
 obj_t BgL_auxz00_17567;
BgL_auxz00_17567 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(14879L), BGl_string6050z00zz__datez00, BGl_string5881z00zz__datez00, BgL_iz00_9790); 
FAILURE(BgL_auxz00_17567,BFALSE,BFALSE);} 
BgL_auxz00_17563 = 
(long)CINT(BgL_tmpz00_17564); } 
BgL_tmpz00_17562 = 
BGl_integerzd2ze3secondz31zz__datez00(BgL_auxz00_17563); } 
return 
make_belong(BgL_tmpz00_17562);} } 

}



/* date-nanosecond */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_datezd2nanosecondzd2zz__datez00(obj_t BgL_dz00_45)
{
{ /* Llib/date.scm 333 */
return 
BGL_DATE_NANOSECOND(BgL_dz00_45);} 

}



/* &date-nanosecond */
obj_t BGl_z62datezd2nanosecondzb0zz__datez00(obj_t BgL_envz00_9791, obj_t BgL_dz00_9792)
{
{ /* Llib/date.scm 333 */
{ /* Llib/date.scm 334 */
 BGL_LONGLONG_T BgL_tmpz00_17575;
{ /* Llib/date.scm 334 */
 obj_t BgL_auxz00_17576;
if(
BGL_DATEP(BgL_dz00_9792))
{ /* Llib/date.scm 334 */
BgL_auxz00_17576 = BgL_dz00_9792
; }  else 
{ 
 obj_t BgL_auxz00_17579;
BgL_auxz00_17579 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(15173L), BGl_string6051z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9792); 
FAILURE(BgL_auxz00_17579,BFALSE,BFALSE);} 
BgL_tmpz00_17575 = 
BGl_datezd2nanosecondzd2zz__datez00(BgL_auxz00_17576); } 
return 
make_bllong(BgL_tmpz00_17575);} } 

}



/* date-millisecond */
BGL_EXPORTED_DEF long BGl_datezd2millisecondzd2zz__datez00(obj_t BgL_dz00_46)
{
{ /* Llib/date.scm 339 */
return 
BGL_DATE_MILLISECOND(BgL_dz00_46);} 

}



/* &date-millisecond */
obj_t BGl_z62datezd2millisecondzb0zz__datez00(obj_t BgL_envz00_9793, obj_t BgL_dz00_9794)
{
{ /* Llib/date.scm 339 */
{ /* Llib/date.scm 340 */
 long BgL_tmpz00_17586;
{ /* Llib/date.scm 340 */
 obj_t BgL_auxz00_17587;
if(
BGL_DATEP(BgL_dz00_9794))
{ /* Llib/date.scm 340 */
BgL_auxz00_17587 = BgL_dz00_9794
; }  else 
{ 
 obj_t BgL_auxz00_17590;
BgL_auxz00_17590 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(15463L), BGl_string6052z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9794); 
FAILURE(BgL_auxz00_17590,BFALSE,BFALSE);} 
BgL_tmpz00_17586 = 
BGl_datezd2millisecondzd2zz__datez00(BgL_auxz00_17587); } 
return 
BINT(BgL_tmpz00_17586);} } 

}



/* date-second */
BGL_EXPORTED_DEF int BGl_datezd2secondzd2zz__datez00(obj_t BgL_dz00_47)
{
{ /* Llib/date.scm 345 */
return 
BGL_DATE_SECOND(BgL_dz00_47);} 

}



/* &date-second */
obj_t BGl_z62datezd2secondzb0zz__datez00(obj_t BgL_envz00_9795, obj_t BgL_dz00_9796)
{
{ /* Llib/date.scm 345 */
{ /* Llib/date.scm 346 */
 int BgL_tmpz00_17597;
{ /* Llib/date.scm 346 */
 obj_t BgL_auxz00_17598;
if(
BGL_DATEP(BgL_dz00_9796))
{ /* Llib/date.scm 346 */
BgL_auxz00_17598 = BgL_dz00_9796
; }  else 
{ 
 obj_t BgL_auxz00_17601;
BgL_auxz00_17601 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(15749L), BGl_string6053z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9796); 
FAILURE(BgL_auxz00_17601,BFALSE,BFALSE);} 
BgL_tmpz00_17597 = 
BGl_datezd2secondzd2zz__datez00(BgL_auxz00_17598); } 
return 
BINT(BgL_tmpz00_17597);} } 

}



/* date-minute */
BGL_EXPORTED_DEF int BGl_datezd2minutezd2zz__datez00(obj_t BgL_dz00_48)
{
{ /* Llib/date.scm 351 */
return 
BGL_DATE_MINUTE(BgL_dz00_48);} 

}



/* &date-minute */
obj_t BGl_z62datezd2minutezb0zz__datez00(obj_t BgL_envz00_9797, obj_t BgL_dz00_9798)
{
{ /* Llib/date.scm 351 */
{ /* Llib/date.scm 352 */
 int BgL_tmpz00_17608;
{ /* Llib/date.scm 352 */
 obj_t BgL_auxz00_17609;
if(
BGL_DATEP(BgL_dz00_9798))
{ /* Llib/date.scm 352 */
BgL_auxz00_17609 = BgL_dz00_9798
; }  else 
{ 
 obj_t BgL_auxz00_17612;
BgL_auxz00_17612 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(16030L), BGl_string6054z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9798); 
FAILURE(BgL_auxz00_17612,BFALSE,BFALSE);} 
BgL_tmpz00_17608 = 
BGl_datezd2minutezd2zz__datez00(BgL_auxz00_17609); } 
return 
BINT(BgL_tmpz00_17608);} } 

}



/* date-hour */
BGL_EXPORTED_DEF int BGl_datezd2hourzd2zz__datez00(obj_t BgL_dz00_49)
{
{ /* Llib/date.scm 357 */
return 
BGL_DATE_HOUR(BgL_dz00_49);} 

}



/* &date-hour */
obj_t BGl_z62datezd2hourzb0zz__datez00(obj_t BgL_envz00_9799, obj_t BgL_dz00_9800)
{
{ /* Llib/date.scm 357 */
{ /* Llib/date.scm 358 */
 int BgL_tmpz00_17619;
{ /* Llib/date.scm 358 */
 obj_t BgL_auxz00_17620;
if(
BGL_DATEP(BgL_dz00_9800))
{ /* Llib/date.scm 358 */
BgL_auxz00_17620 = BgL_dz00_9800
; }  else 
{ 
 obj_t BgL_auxz00_17623;
BgL_auxz00_17623 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(16309L), BGl_string6055z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9800); 
FAILURE(BgL_auxz00_17623,BFALSE,BFALSE);} 
BgL_tmpz00_17619 = 
BGl_datezd2hourzd2zz__datez00(BgL_auxz00_17620); } 
return 
BINT(BgL_tmpz00_17619);} } 

}



/* date-day */
BGL_EXPORTED_DEF int BGl_datezd2dayzd2zz__datez00(obj_t BgL_dz00_50)
{
{ /* Llib/date.scm 363 */
return 
BGL_DATE_DAY(BgL_dz00_50);} 

}



/* &date-day */
obj_t BGl_z62datezd2dayzb0zz__datez00(obj_t BgL_envz00_9801, obj_t BgL_dz00_9802)
{
{ /* Llib/date.scm 363 */
{ /* Llib/date.scm 364 */
 int BgL_tmpz00_17630;
{ /* Llib/date.scm 364 */
 obj_t BgL_auxz00_17631;
if(
BGL_DATEP(BgL_dz00_9802))
{ /* Llib/date.scm 364 */
BgL_auxz00_17631 = BgL_dz00_9802
; }  else 
{ 
 obj_t BgL_auxz00_17634;
BgL_auxz00_17634 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(16585L), BGl_string6056z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9802); 
FAILURE(BgL_auxz00_17634,BFALSE,BFALSE);} 
BgL_tmpz00_17630 = 
BGl_datezd2dayzd2zz__datez00(BgL_auxz00_17631); } 
return 
BINT(BgL_tmpz00_17630);} } 

}



/* date-week-day */
BGL_EXPORTED_DEF int BGl_datezd2weekzd2dayz00zz__datez00(obj_t BgL_dz00_51)
{
{ /* Llib/date.scm 369 */
return 
BGL_DATE_WDAY(BgL_dz00_51);} 

}



/* &date-week-day */
obj_t BGl_z62datezd2weekzd2dayz62zz__datez00(obj_t BgL_envz00_9803, obj_t BgL_dz00_9804)
{
{ /* Llib/date.scm 369 */
{ /* Llib/date.scm 370 */
 int BgL_tmpz00_17641;
{ /* Llib/date.scm 370 */
 obj_t BgL_auxz00_17642;
if(
BGL_DATEP(BgL_dz00_9804))
{ /* Llib/date.scm 370 */
BgL_auxz00_17642 = BgL_dz00_9804
; }  else 
{ 
 obj_t BgL_auxz00_17645;
BgL_auxz00_17645 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(16865L), BGl_string6057z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9804); 
FAILURE(BgL_auxz00_17645,BFALSE,BFALSE);} 
BgL_tmpz00_17641 = 
BGl_datezd2weekzd2dayz00zz__datez00(BgL_auxz00_17642); } 
return 
BINT(BgL_tmpz00_17641);} } 

}



/* date-wday */
BGL_EXPORTED_DEF int BGl_datezd2wdayzd2zz__datez00(obj_t BgL_dz00_52)
{
{ /* Llib/date.scm 375 */
return 
BGL_DATE_WDAY(BgL_dz00_52);} 

}



/* &date-wday */
obj_t BGl_z62datezd2wdayzb0zz__datez00(obj_t BgL_envz00_9805, obj_t BgL_dz00_9806)
{
{ /* Llib/date.scm 375 */
{ /* Llib/date.scm 376 */
 int BgL_tmpz00_17652;
{ /* Llib/date.scm 376 */
 obj_t BgL_auxz00_17653;
if(
BGL_DATEP(BgL_dz00_9806))
{ /* Llib/date.scm 376 */
BgL_auxz00_17653 = BgL_dz00_9806
; }  else 
{ 
 obj_t BgL_auxz00_17656;
BgL_auxz00_17656 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(17142L), BGl_string6058z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9806); 
FAILURE(BgL_auxz00_17656,BFALSE,BFALSE);} 
BgL_tmpz00_17652 = 
BGl_datezd2wdayzd2zz__datez00(BgL_auxz00_17653); } 
return 
BINT(BgL_tmpz00_17652);} } 

}



/* date-year-day */
BGL_EXPORTED_DEF int BGl_datezd2yearzd2dayz00zz__datez00(obj_t BgL_dz00_53)
{
{ /* Llib/date.scm 381 */
return 
BGL_DATE_YDAY(BgL_dz00_53);} 

}



/* &date-year-day */
obj_t BGl_z62datezd2yearzd2dayz62zz__datez00(obj_t BgL_envz00_9807, obj_t BgL_dz00_9808)
{
{ /* Llib/date.scm 381 */
{ /* Llib/date.scm 382 */
 int BgL_tmpz00_17663;
{ /* Llib/date.scm 382 */
 obj_t BgL_auxz00_17664;
if(
BGL_DATEP(BgL_dz00_9808))
{ /* Llib/date.scm 382 */
BgL_auxz00_17664 = BgL_dz00_9808
; }  else 
{ 
 obj_t BgL_auxz00_17667;
BgL_auxz00_17667 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(17423L), BGl_string6059z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9808); 
FAILURE(BgL_auxz00_17667,BFALSE,BFALSE);} 
BgL_tmpz00_17663 = 
BGl_datezd2yearzd2dayz00zz__datez00(BgL_auxz00_17664); } 
return 
BINT(BgL_tmpz00_17663);} } 

}



/* date-yday */
BGL_EXPORTED_DEF int BGl_datezd2ydayzd2zz__datez00(obj_t BgL_dz00_54)
{
{ /* Llib/date.scm 387 */
return 
BGL_DATE_YDAY(BgL_dz00_54);} 

}



/* &date-yday */
obj_t BGl_z62datezd2ydayzb0zz__datez00(obj_t BgL_envz00_9809, obj_t BgL_dz00_9810)
{
{ /* Llib/date.scm 387 */
{ /* Llib/date.scm 388 */
 int BgL_tmpz00_17674;
{ /* Llib/date.scm 388 */
 obj_t BgL_auxz00_17675;
if(
BGL_DATEP(BgL_dz00_9810))
{ /* Llib/date.scm 388 */
BgL_auxz00_17675 = BgL_dz00_9810
; }  else 
{ 
 obj_t BgL_auxz00_17678;
BgL_auxz00_17678 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(17700L), BGl_string6060z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9810); 
FAILURE(BgL_auxz00_17678,BFALSE,BFALSE);} 
BgL_tmpz00_17674 = 
BGl_datezd2ydayzd2zz__datez00(BgL_auxz00_17675); } 
return 
BINT(BgL_tmpz00_17674);} } 

}



/* date-month */
BGL_EXPORTED_DEF int BGl_datezd2monthzd2zz__datez00(obj_t BgL_dz00_55)
{
{ /* Llib/date.scm 393 */
return 
BGL_DATE_MONTH(BgL_dz00_55);} 

}



/* &date-month */
obj_t BGl_z62datezd2monthzb0zz__datez00(obj_t BgL_envz00_9811, obj_t BgL_dz00_9812)
{
{ /* Llib/date.scm 393 */
{ /* Llib/date.scm 394 */
 int BgL_tmpz00_17685;
{ /* Llib/date.scm 394 */
 obj_t BgL_auxz00_17686;
if(
BGL_DATEP(BgL_dz00_9812))
{ /* Llib/date.scm 394 */
BgL_auxz00_17686 = BgL_dz00_9812
; }  else 
{ 
 obj_t BgL_auxz00_17689;
BgL_auxz00_17689 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(17978L), BGl_string6061z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9812); 
FAILURE(BgL_auxz00_17689,BFALSE,BFALSE);} 
BgL_tmpz00_17685 = 
BGl_datezd2monthzd2zz__datez00(BgL_auxz00_17686); } 
return 
BINT(BgL_tmpz00_17685);} } 

}



/* date-year */
BGL_EXPORTED_DEF int BGl_datezd2yearzd2zz__datez00(obj_t BgL_dz00_56)
{
{ /* Llib/date.scm 399 */
return 
BGL_DATE_YEAR(BgL_dz00_56);} 

}



/* &date-year */
obj_t BGl_z62datezd2yearzb0zz__datez00(obj_t BgL_envz00_9813, obj_t BgL_dz00_9814)
{
{ /* Llib/date.scm 399 */
{ /* Llib/date.scm 400 */
 int BgL_tmpz00_17696;
{ /* Llib/date.scm 400 */
 obj_t BgL_auxz00_17697;
if(
BGL_DATEP(BgL_dz00_9814))
{ /* Llib/date.scm 400 */
BgL_auxz00_17697 = BgL_dz00_9814
; }  else 
{ 
 obj_t BgL_auxz00_17700;
BgL_auxz00_17700 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(18256L), BGl_string6062z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9814); 
FAILURE(BgL_auxz00_17700,BFALSE,BFALSE);} 
BgL_tmpz00_17696 = 
BGl_datezd2yearzd2zz__datez00(BgL_auxz00_17697); } 
return 
BINT(BgL_tmpz00_17696);} } 

}



/* date-timezone */
BGL_EXPORTED_DEF long BGl_datezd2timeza7onez75zz__datez00(obj_t BgL_dz00_57)
{
{ /* Llib/date.scm 405 */
return 
BGL_DATE_TIMEZONE(BgL_dz00_57);} 

}



/* &date-timezone */
obj_t BGl_z62datezd2timeza7onez17zz__datez00(obj_t BgL_envz00_9815, obj_t BgL_dz00_9816)
{
{ /* Llib/date.scm 405 */
{ /* Llib/date.scm 406 */
 long BgL_tmpz00_17707;
{ /* Llib/date.scm 406 */
 obj_t BgL_auxz00_17708;
if(
BGL_DATEP(BgL_dz00_9816))
{ /* Llib/date.scm 406 */
BgL_auxz00_17708 = BgL_dz00_9816
; }  else 
{ 
 obj_t BgL_auxz00_17711;
BgL_auxz00_17711 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(18537L), BGl_string6063z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9816); 
FAILURE(BgL_auxz00_17711,BFALSE,BFALSE);} 
BgL_tmpz00_17707 = 
BGl_datezd2timeza7onez75zz__datez00(BgL_auxz00_17708); } 
return 
BINT(BgL_tmpz00_17707);} } 

}



/* date-zone-offset */
BGL_EXPORTED_DEF long BGl_datezd2za7onezd2offsetza7zz__datez00(obj_t BgL_dz00_58)
{
{ /* Llib/date.scm 411 */
{ /* Llib/date.scm 412 */
 long BgL_arg2835z00_11914;
BgL_arg2835z00_11914 = 
BGL_DATE_TIMEZONE(BgL_dz00_58); 
return 
(3600L*BgL_arg2835z00_11914);} } 

}



/* &date-zone-offset */
obj_t BGl_z62datezd2za7onezd2offsetzc5zz__datez00(obj_t BgL_envz00_9817, obj_t BgL_dz00_9818)
{
{ /* Llib/date.scm 411 */
{ /* Llib/date.scm 412 */
 long BgL_tmpz00_17719;
{ /* Llib/date.scm 412 */
 obj_t BgL_auxz00_17720;
if(
BGL_DATEP(BgL_dz00_9818))
{ /* Llib/date.scm 412 */
BgL_auxz00_17720 = BgL_dz00_9818
; }  else 
{ 
 obj_t BgL_auxz00_17723;
BgL_auxz00_17723 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(18835L), BGl_string6064z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9818); 
FAILURE(BgL_auxz00_17723,BFALSE,BFALSE);} 
BgL_tmpz00_17719 = 
BGl_datezd2za7onezd2offsetza7zz__datez00(BgL_auxz00_17720); } 
return 
BINT(BgL_tmpz00_17719);} } 

}



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

}



/* &date-is-dst */
obj_t BGl_z62datezd2iszd2dstz62zz__datez00(obj_t BgL_envz00_9819, obj_t BgL_dz00_9820)
{
{ /* Llib/date.scm 417 */
{ /* Llib/date.scm 418 */
 int BgL_tmpz00_17730;
{ /* Llib/date.scm 418 */
 obj_t BgL_auxz00_17731;
if(
BGL_DATEP(BgL_dz00_9820))
{ /* Llib/date.scm 418 */
BgL_auxz00_17731 = BgL_dz00_9820
; }  else 
{ 
 obj_t BgL_auxz00_17734;
BgL_auxz00_17734 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(19119L), BGl_string6065z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9820); 
FAILURE(BgL_auxz00_17734,BFALSE,BFALSE);} 
BgL_tmpz00_17730 = 
BGl_datezd2iszd2dstz00zz__datez00(BgL_auxz00_17731); } 
return 
BINT(BgL_tmpz00_17730);} } 

}



/* current-seconds */
BGL_EXPORTED_DEF long BGl_currentzd2secondszd2zz__datez00(void)
{
{ /* Llib/date.scm 423 */
BGL_TAIL return 
bgl_current_seconds();} 

}



/* &current-seconds */
obj_t BGl_z62currentzd2secondszb0zz__datez00(obj_t BgL_envz00_9821)
{
{ /* Llib/date.scm 423 */
return 
make_belong(
BGl_currentzd2secondszd2zz__datez00());} 

}



/* current-milliseconds */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_currentzd2millisecondszd2zz__datez00(void)
{
{ /* Llib/date.scm 429 */
BGL_TAIL return 
bgl_current_milliseconds();} 

}



/* &current-milliseconds */
obj_t BGl_z62currentzd2millisecondszb0zz__datez00(obj_t BgL_envz00_9822)
{
{ /* Llib/date.scm 429 */
return 
make_bllong(
BGl_currentzd2millisecondszd2zz__datez00());} 

}



/* current-microseconds */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_currentzd2microsecondszd2zz__datez00(void)
{
{ /* Llib/date.scm 435 */
BGL_TAIL return 
bgl_current_microseconds();} 

}



/* &current-microseconds */
obj_t BGl_z62currentzd2microsecondszb0zz__datez00(obj_t BgL_envz00_9823)
{
{ /* Llib/date.scm 435 */
return 
make_bllong(
BGl_currentzd2microsecondszd2zz__datez00());} 

}



/* current-nanoseconds */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_currentzd2nanosecondszd2zz__datez00(void)
{
{ /* Llib/date.scm 441 */
BGL_TAIL return 
bgl_current_nanoseconds();} 

}



/* &current-nanoseconds */
obj_t BGl_z62currentzd2nanosecondszb0zz__datez00(obj_t BgL_envz00_9824)
{
{ /* Llib/date.scm 441 */
return 
make_bllong(
BGl_currentzd2nanosecondszd2zz__datez00());} 

}



/* current-date */
BGL_EXPORTED_DEF obj_t BGl_currentzd2datezd2zz__datez00(void)
{
{ /* Llib/date.scm 447 */
return 
bgl_nanoseconds_to_date(
bgl_current_nanoseconds());} 

}



/* &current-date */
obj_t BGl_z62currentzd2datezb0zz__datez00(obj_t BgL_envz00_9825)
{
{ /* Llib/date.scm 447 */
return 
BGl_currentzd2datezd2zz__datez00();} 

}



/* seconds->date */
BGL_EXPORTED_DEF obj_t BGl_secondszd2ze3datez31zz__datez00(long BgL_elongz00_60)
{
{ /* Llib/date.scm 453 */
BGL_TAIL return 
bgl_seconds_to_date(BgL_elongz00_60);} 

}



/* &seconds->date */
obj_t BGl_z62secondszd2ze3datez53zz__datez00(obj_t BgL_envz00_9826, obj_t BgL_elongz00_9827)
{
{ /* Llib/date.scm 453 */
{ /* Llib/date.scm 454 */
 long BgL_auxz00_17756;
{ /* Llib/date.scm 454 */
 obj_t BgL_tmpz00_17757;
if(
ELONGP(BgL_elongz00_9827))
{ /* Llib/date.scm 454 */
BgL_tmpz00_17757 = BgL_elongz00_9827
; }  else 
{ 
 obj_t BgL_auxz00_17760;
BgL_auxz00_17760 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(20874L), BGl_string6066z00zz__datez00, BGl_string6067z00zz__datez00, BgL_elongz00_9827); 
FAILURE(BgL_auxz00_17760,BFALSE,BFALSE);} 
BgL_auxz00_17756 = 
BELONG_TO_LONG(BgL_tmpz00_17757); } 
return 
BGl_secondszd2ze3datez31zz__datez00(BgL_auxz00_17756);} } 

}



/* seconds->gmtdate */
BGL_EXPORTED_DEF obj_t BGl_secondszd2ze3gmtdatez31zz__datez00(long BgL_elongz00_61)
{
{ /* Llib/date.scm 459 */
BGL_TAIL return 
bgl_seconds_to_gmtdate(BgL_elongz00_61);} 

}



/* &seconds->gmtdate */
obj_t BGl_z62secondszd2ze3gmtdatez53zz__datez00(obj_t BgL_envz00_9828, obj_t BgL_elongz00_9829)
{
{ /* Llib/date.scm 459 */
{ /* Llib/date.scm 460 */
 long BgL_auxz00_17767;
{ /* Llib/date.scm 460 */
 obj_t BgL_tmpz00_17768;
if(
ELONGP(BgL_elongz00_9829))
{ /* Llib/date.scm 460 */
BgL_tmpz00_17768 = BgL_elongz00_9829
; }  else 
{ 
 obj_t BgL_auxz00_17771;
BgL_auxz00_17771 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(21168L), BGl_string6068z00zz__datez00, BGl_string6067z00zz__datez00, BgL_elongz00_9829); 
FAILURE(BgL_auxz00_17771,BFALSE,BFALSE);} 
BgL_auxz00_17767 = 
BELONG_TO_LONG(BgL_tmpz00_17768); } 
return 
BGl_secondszd2ze3gmtdatez31zz__datez00(BgL_auxz00_17767);} } 

}



/* milliseconds->gmtdate */
BGL_EXPORTED_DEF obj_t BGl_millisecondszd2ze3gmtdatez31zz__datez00(BGL_LONGLONG_T BgL_llongz00_62)
{
{ /* Llib/date.scm 465 */
BGL_TAIL return 
bgl_milliseconds_to_gmtdate(BgL_llongz00_62);} 

}



/* &milliseconds->gmtdate */
obj_t BGl_z62millisecondszd2ze3gmtdatez53zz__datez00(obj_t BgL_envz00_9830, obj_t BgL_llongz00_9831)
{
{ /* Llib/date.scm 465 */
{ /* Llib/date.scm 466 */
 BGL_LONGLONG_T BgL_auxz00_17778;
{ /* Llib/date.scm 466 */
 obj_t BgL_tmpz00_17779;
if(
LLONGP(BgL_llongz00_9831))
{ /* Llib/date.scm 466 */
BgL_tmpz00_17779 = BgL_llongz00_9831
; }  else 
{ 
 obj_t BgL_auxz00_17782;
BgL_auxz00_17782 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(21471L), BGl_string6069z00zz__datez00, BGl_string6026z00zz__datez00, BgL_llongz00_9831); 
FAILURE(BgL_auxz00_17782,BFALSE,BFALSE);} 
BgL_auxz00_17778 = 
BLLONG_TO_LLONG(BgL_tmpz00_17779); } 
return 
BGl_millisecondszd2ze3gmtdatez31zz__datez00(BgL_auxz00_17778);} } 

}



/* nanoseconds->date */
BGL_EXPORTED_DEF obj_t BGl_nanosecondszd2ze3datez31zz__datez00(BGL_LONGLONG_T BgL_llongz00_63)
{
{ /* Llib/date.scm 471 */
BGL_TAIL return 
bgl_nanoseconds_to_date(BgL_llongz00_63);} 

}



/* &nanoseconds->date */
obj_t BGl_z62nanosecondszd2ze3datez53zz__datez00(obj_t BgL_envz00_9832, obj_t BgL_llongz00_9833)
{
{ /* Llib/date.scm 471 */
{ /* Llib/date.scm 472 */
 BGL_LONGLONG_T BgL_auxz00_17789;
{ /* Llib/date.scm 472 */
 obj_t BgL_tmpz00_17790;
if(
LLONGP(BgL_llongz00_9833))
{ /* Llib/date.scm 472 */
BgL_tmpz00_17790 = BgL_llongz00_9833
; }  else 
{ 
 obj_t BgL_auxz00_17793;
BgL_auxz00_17793 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(21775L), BGl_string6070z00zz__datez00, BGl_string6026z00zz__datez00, BgL_llongz00_9833); 
FAILURE(BgL_auxz00_17793,BFALSE,BFALSE);} 
BgL_auxz00_17789 = 
BLLONG_TO_LLONG(BgL_tmpz00_17790); } 
return 
BGl_nanosecondszd2ze3datez31zz__datez00(BgL_auxz00_17789);} } 

}



/* milliseconds->date */
BGL_EXPORTED_DEF obj_t BGl_millisecondszd2ze3datez31zz__datez00(BGL_LONGLONG_T BgL_llongz00_64)
{
{ /* Llib/date.scm 477 */
BGL_TAIL return 
bgl_milliseconds_to_date(BgL_llongz00_64);} 

}



/* &milliseconds->date */
obj_t BGl_z62millisecondszd2ze3datez53zz__datez00(obj_t BgL_envz00_9834, obj_t BgL_llongz00_9835)
{
{ /* Llib/date.scm 477 */
{ /* Llib/date.scm 478 */
 BGL_LONGLONG_T BgL_auxz00_17800;
{ /* Llib/date.scm 478 */
 obj_t BgL_tmpz00_17801;
if(
LLONGP(BgL_llongz00_9835))
{ /* Llib/date.scm 478 */
BgL_tmpz00_17801 = BgL_llongz00_9835
; }  else 
{ 
 obj_t BgL_auxz00_17804;
BgL_auxz00_17804 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(22075L), BGl_string6071z00zz__datez00, BGl_string6026z00zz__datez00, BgL_llongz00_9835); 
FAILURE(BgL_auxz00_17804,BFALSE,BFALSE);} 
BgL_auxz00_17800 = 
BLLONG_TO_LLONG(BgL_tmpz00_17801); } 
return 
BGl_millisecondszd2ze3datez31zz__datez00(BgL_auxz00_17800);} } 

}



/* date->seconds */
BGL_EXPORTED_DEF long BGl_datezd2ze3secondsz31zz__datez00(obj_t BgL_datez00_65)
{
{ /* Llib/date.scm 483 */
BGL_TAIL return 
bgl_date_to_seconds(BgL_datez00_65);} 

}



/* &date->seconds */
obj_t BGl_z62datezd2ze3secondsz53zz__datez00(obj_t BgL_envz00_9836, obj_t BgL_datez00_9837)
{
{ /* Llib/date.scm 483 */
{ /* Llib/date.scm 484 */
 long BgL_tmpz00_17811;
{ /* Llib/date.scm 484 */
 obj_t BgL_auxz00_17812;
if(
BGL_DATEP(BgL_datez00_9837))
{ /* Llib/date.scm 484 */
BgL_auxz00_17812 = BgL_datez00_9837
; }  else 
{ 
 obj_t BgL_auxz00_17815;
BgL_auxz00_17815 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(22370L), BGl_string6072z00zz__datez00, BGl_string6036z00zz__datez00, BgL_datez00_9837); 
FAILURE(BgL_auxz00_17815,BFALSE,BFALSE);} 
BgL_tmpz00_17811 = 
BGl_datezd2ze3secondsz31zz__datez00(BgL_auxz00_17812); } 
return 
make_belong(BgL_tmpz00_17811);} } 

}



/* date->nanoseconds */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_datezd2ze3nanosecondsz31zz__datez00(obj_t BgL_datez00_66)
{
{ /* Llib/date.scm 489 */
BGL_TAIL return 
bgl_date_to_nanoseconds(BgL_datez00_66);} 

}



/* &date->nanoseconds */
obj_t BGl_z62datezd2ze3nanosecondsz53zz__datez00(obj_t BgL_envz00_9838, obj_t BgL_datez00_9839)
{
{ /* Llib/date.scm 489 */
{ /* Llib/date.scm 490 */
 BGL_LONGLONG_T BgL_tmpz00_17822;
{ /* Llib/date.scm 490 */
 obj_t BgL_auxz00_17823;
if(
BGL_DATEP(BgL_datez00_9839))
{ /* Llib/date.scm 490 */
BgL_auxz00_17823 = BgL_datez00_9839
; }  else 
{ 
 obj_t BgL_auxz00_17826;
BgL_auxz00_17826 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(22661L), BGl_string6073z00zz__datez00, BGl_string6036z00zz__datez00, BgL_datez00_9839); 
FAILURE(BgL_auxz00_17826,BFALSE,BFALSE);} 
BgL_tmpz00_17822 = 
BGl_datezd2ze3nanosecondsz31zz__datez00(BgL_auxz00_17823); } 
return 
make_bllong(BgL_tmpz00_17822);} } 

}



/* date->milliseconds */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_datezd2ze3millisecondsz31zz__datez00(obj_t BgL_datez00_67)
{
{ /* Llib/date.scm 495 */
BGL_TAIL return 
bgl_date_to_milliseconds(BgL_datez00_67);} 

}



/* &date->milliseconds */
obj_t BGl_z62datezd2ze3millisecondsz53zz__datez00(obj_t BgL_envz00_9840, obj_t BgL_datez00_9841)
{
{ /* Llib/date.scm 495 */
{ /* Llib/date.scm 496 */
 BGL_LONGLONG_T BgL_tmpz00_17833;
{ /* Llib/date.scm 496 */
 obj_t BgL_auxz00_17834;
if(
BGL_DATEP(BgL_datez00_9841))
{ /* Llib/date.scm 496 */
BgL_auxz00_17834 = BgL_datez00_9841
; }  else 
{ 
 obj_t BgL_auxz00_17837;
BgL_auxz00_17837 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(22957L), BGl_string6074z00zz__datez00, BGl_string6036z00zz__datez00, BgL_datez00_9841); 
FAILURE(BgL_auxz00_17837,BFALSE,BFALSE);} 
BgL_tmpz00_17833 = 
BGl_datezd2ze3millisecondsz31zz__datez00(BgL_auxz00_17834); } 
return 
make_bllong(BgL_tmpz00_17833);} } 

}



/* date->string */
BGL_EXPORTED_DEF obj_t BGl_datezd2ze3stringz31zz__datez00(obj_t BgL_datez00_68)
{
{ /* Llib/date.scm 501 */
BGL_TAIL return 
BGl_datezd2ze3rfc2822zd2dateze3zz__datez00(BgL_datez00_68);} 

}



/* &date->string */
obj_t BGl_z62datezd2ze3stringz53zz__datez00(obj_t BgL_envz00_9842, obj_t BgL_datez00_9843)
{
{ /* Llib/date.scm 501 */
{ /* Llib/date.scm 502 */
 obj_t BgL_auxz00_17844;
if(
BGL_DATEP(BgL_datez00_9843))
{ /* Llib/date.scm 502 */
BgL_auxz00_17844 = BgL_datez00_9843
; }  else 
{ 
 obj_t BgL_auxz00_17847;
BgL_auxz00_17847 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(23241L), BGl_string6075z00zz__datez00, BGl_string6036z00zz__datez00, BgL_datez00_9843); 
FAILURE(BgL_auxz00_17847,BFALSE,BFALSE);} 
return 
BGl_datezd2ze3stringz31zz__datez00(BgL_auxz00_17844);} } 

}



/* blit-int2! */
long BGl_blitzd2int2z12zc0zz__datez00(obj_t BgL_bufz00_72, long BgL_wz00_73, int BgL_intz00_74)
{
{ /* Llib/date.scm 513 */
if(
(
(long)(BgL_intz00_74)<10L))
{ /* Llib/date.scm 514 */
{ /* Llib/date.scm 516 */
 long BgL_l4814z00_9918;
BgL_l4814z00_9918 = 
STRING_LENGTH(BgL_bufz00_72); 
if(
BOUND_CHECK(BgL_wz00_73, BgL_l4814z00_9918))
{ /* Llib/date.scm 516 */
STRING_SET(BgL_bufz00_72, BgL_wz00_73, ((unsigned char)'0')); }  else 
{ 
 obj_t BgL_auxz00_17859;
BgL_auxz00_17859 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(23888L), BGl_string6076z00zz__datez00, BgL_bufz00_72, 
(int)(BgL_l4814z00_9918), 
(int)(BgL_wz00_73)); 
FAILURE(BgL_auxz00_17859,BFALSE,BFALSE);} } 
{ /* Llib/date.scm 517 */
 long BgL_arg2840z00_3821;
BgL_arg2840z00_3821 = 
(BgL_wz00_73+1L); 
{ /* Llib/date.scm 508 */
 unsigned char BgL_arg2837z00_8265;
BgL_arg2837z00_8265 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(48L+
(long)(BgL_intz00_74))); 
{ /* Llib/date.scm 508 */
 long BgL_l4818z00_9922;
BgL_l4818z00_9922 = 
STRING_LENGTH(BgL_bufz00_72); 
if(
BOUND_CHECK(BgL_arg2840z00_3821, BgL_l4818z00_9922))
{ /* Llib/date.scm 508 */
STRING_SET(BgL_bufz00_72, BgL_arg2840z00_3821, BgL_arg2837z00_8265); }  else 
{ 
 obj_t BgL_auxz00_17873;
BgL_auxz00_17873 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(23528L), BGl_string6076z00zz__datez00, BgL_bufz00_72, 
(int)(BgL_l4818z00_9922), 
(int)(BgL_arg2840z00_3821)); 
FAILURE(BgL_auxz00_17873,BFALSE,BFALSE);} } } } }  else 
{ /* Llib/date.scm 514 */
{ /* Llib/date.scm 519 */
 long BgL_arg2841z00_3822;
BgL_arg2841z00_3822 = 
(
(long)(BgL_intz00_74)/10L); 
{ /* Llib/date.scm 508 */
 unsigned char BgL_arg2837z00_8272;
BgL_arg2837z00_8272 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(48L+BgL_arg2841z00_3822)); 
{ /* Llib/date.scm 508 */
 long BgL_l4822z00_9926;
BgL_l4822z00_9926 = 
STRING_LENGTH(BgL_bufz00_72); 
if(
BOUND_CHECK(BgL_wz00_73, BgL_l4822z00_9926))
{ /* Llib/date.scm 508 */
STRING_SET(BgL_bufz00_72, BgL_wz00_73, BgL_arg2837z00_8272); }  else 
{ 
 obj_t BgL_auxz00_17887;
BgL_auxz00_17887 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(23528L), BGl_string6076z00zz__datez00, BgL_bufz00_72, 
(int)(BgL_l4822z00_9926), 
(int)(BgL_wz00_73)); 
FAILURE(BgL_auxz00_17887,BFALSE,BFALSE);} } } } 
{ /* Llib/date.scm 520 */
 long BgL_arg2844z00_3823; long BgL_arg2845z00_3824;
BgL_arg2844z00_3823 = 
(BgL_wz00_73+1L); 
BgL_arg2845z00_3824 = 
BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_intz00_74), 10L); 
{ /* Llib/date.scm 508 */
 unsigned char BgL_arg2837z00_8279;
BgL_arg2837z00_8279 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(48L+BgL_arg2845z00_3824)); 
{ /* Llib/date.scm 508 */
 long BgL_l4826z00_9930;
BgL_l4826z00_9930 = 
STRING_LENGTH(BgL_bufz00_72); 
if(
BOUND_CHECK(BgL_arg2844z00_3823, BgL_l4826z00_9930))
{ /* Llib/date.scm 508 */
STRING_SET(BgL_bufz00_72, BgL_arg2844z00_3823, BgL_arg2837z00_8279); }  else 
{ 
 obj_t BgL_auxz00_17902;
BgL_auxz00_17902 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(23528L), BGl_string6076z00zz__datez00, BgL_bufz00_72, 
(int)(BgL_l4826z00_9930), 
(int)(BgL_arg2844z00_3823)); 
FAILURE(BgL_auxz00_17902,BFALSE,BFALSE);} } } } } 
return 2L;} 

}



/* blit-int! */
long BGl_blitzd2intz12zc0zz__datez00(obj_t BgL_bufz00_75, long BgL_wz00_76, int BgL_intz00_77)
{
{ /* Llib/date.scm 526 */
if(
(
(long)(BgL_intz00_77)<10L))
{ /* Llib/date.scm 528 */
{ /* Llib/date.scm 508 */
 unsigned char BgL_arg2837z00_8286;
BgL_arg2837z00_8286 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(48L+
(long)(BgL_intz00_77))); 
{ /* Llib/date.scm 508 */
 long BgL_l4830z00_9934;
BgL_l4830z00_9934 = 
STRING_LENGTH(BgL_bufz00_75); 
if(
BOUND_CHECK(BgL_wz00_76, BgL_l4830z00_9934))
{ /* Llib/date.scm 508 */
STRING_SET(BgL_bufz00_75, BgL_wz00_76, BgL_arg2837z00_8286); }  else 
{ 
 obj_t BgL_auxz00_17918;
BgL_auxz00_17918 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(23528L), BGl_string6076z00zz__datez00, BgL_bufz00_75, 
(int)(BgL_l4830z00_9934), 
(int)(BgL_wz00_76)); 
FAILURE(BgL_auxz00_17918,BFALSE,BFALSE);} } } 
return 1L;}  else 
{ /* Llib/date.scm 528 */
if(
(
(long)(BgL_intz00_77)<100L))
{ /* Llib/date.scm 531 */
{ /* Llib/date.scm 532 */
 long BgL_arg2848z00_3827;
BgL_arg2848z00_3827 = 
(
(long)(BgL_intz00_77)/10L); 
{ /* Llib/date.scm 508 */
 unsigned char BgL_arg2837z00_8294;
BgL_arg2837z00_8294 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(48L+BgL_arg2848z00_3827)); 
{ /* Llib/date.scm 508 */
 long BgL_l4834z00_9938;
BgL_l4834z00_9938 = 
STRING_LENGTH(BgL_bufz00_75); 
if(
BOUND_CHECK(BgL_wz00_76, BgL_l4834z00_9938))
{ /* Llib/date.scm 508 */
STRING_SET(BgL_bufz00_75, BgL_wz00_76, BgL_arg2837z00_8294); }  else 
{ 
 obj_t BgL_auxz00_17935;
BgL_auxz00_17935 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(23528L), BGl_string6076z00zz__datez00, BgL_bufz00_75, 
(int)(BgL_l4834z00_9938), 
(int)(BgL_wz00_76)); 
FAILURE(BgL_auxz00_17935,BFALSE,BFALSE);} } } } 
{ /* Llib/date.scm 533 */
 long BgL_arg2849z00_3828; long BgL_arg2851z00_3829;
BgL_arg2849z00_3828 = 
(BgL_wz00_76+1L); 
BgL_arg2851z00_3829 = 
BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_intz00_77), 10L); 
{ /* Llib/date.scm 508 */
 unsigned char BgL_arg2837z00_8301;
BgL_arg2837z00_8301 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(48L+BgL_arg2851z00_3829)); 
{ /* Llib/date.scm 508 */
 long BgL_l4838z00_9942;
BgL_l4838z00_9942 = 
STRING_LENGTH(BgL_bufz00_75); 
if(
BOUND_CHECK(BgL_arg2849z00_3828, BgL_l4838z00_9942))
{ /* Llib/date.scm 508 */
STRING_SET(BgL_bufz00_75, BgL_arg2849z00_3828, BgL_arg2837z00_8301); }  else 
{ 
 obj_t BgL_auxz00_17950;
BgL_auxz00_17950 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(23528L), BGl_string6076z00zz__datez00, BgL_bufz00_75, 
(int)(BgL_l4838z00_9942), 
(int)(BgL_arg2849z00_3828)); 
FAILURE(BgL_auxz00_17950,BFALSE,BFALSE);} } } } 
return 2L;}  else 
{ /* Llib/date.scm 531 */
if(
(
(long)(BgL_intz00_77)<1000L))
{ /* Llib/date.scm 535 */
{ /* Llib/date.scm 536 */
 long BgL_arg2853z00_3831;
BgL_arg2853z00_3831 = 
(
(long)(BgL_intz00_77)/100L); 
{ /* Llib/date.scm 508 */
 unsigned char BgL_arg2837z00_8309;
BgL_arg2837z00_8309 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(48L+BgL_arg2853z00_3831)); 
{ /* Llib/date.scm 508 */
 long BgL_l4842z00_9946;
BgL_l4842z00_9946 = 
STRING_LENGTH(BgL_bufz00_75); 
if(
BOUND_CHECK(BgL_wz00_76, BgL_l4842z00_9946))
{ /* Llib/date.scm 508 */
STRING_SET(BgL_bufz00_75, BgL_wz00_76, BgL_arg2837z00_8309); }  else 
{ 
 obj_t BgL_auxz00_17967;
BgL_auxz00_17967 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(23528L), BGl_string6076z00zz__datez00, BgL_bufz00_75, 
(int)(BgL_l4842z00_9946), 
(int)(BgL_wz00_76)); 
FAILURE(BgL_auxz00_17967,BFALSE,BFALSE);} } } } 
{ /* Llib/date.scm 537 */
 long BgL_rz00_3832;
BgL_rz00_3832 = 
BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_intz00_77), 100L); 
{ /* Llib/date.scm 538 */
 long BgL_arg2856z00_3833; long BgL_arg2857z00_3834;
BgL_arg2856z00_3833 = 
(BgL_wz00_76+1L); 
BgL_arg2857z00_3834 = 
(BgL_rz00_3832/10L); 
{ /* Llib/date.scm 508 */
 unsigned char BgL_arg2837z00_8317;
BgL_arg2837z00_8317 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(48L+BgL_arg2857z00_3834)); 
{ /* Llib/date.scm 508 */
 long BgL_l4846z00_9950;
BgL_l4846z00_9950 = 
STRING_LENGTH(BgL_bufz00_75); 
if(
BOUND_CHECK(BgL_arg2856z00_3833, BgL_l4846z00_9950))
{ /* Llib/date.scm 508 */
STRING_SET(BgL_bufz00_75, BgL_arg2856z00_3833, BgL_arg2837z00_8317); }  else 
{ 
 obj_t BgL_auxz00_17983;
BgL_auxz00_17983 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(23528L), BGl_string6076z00zz__datez00, BgL_bufz00_75, 
(int)(BgL_l4846z00_9950), 
(int)(BgL_arg2856z00_3833)); 
FAILURE(BgL_auxz00_17983,BFALSE,BFALSE);} } } } 
{ /* Llib/date.scm 539 */
 long BgL_arg2858z00_3835; long BgL_arg2859z00_3836;
BgL_arg2858z00_3835 = 
(BgL_wz00_76+2L); 
BgL_arg2859z00_3836 = 
BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(BgL_rz00_3832, 10L); 
{ /* Llib/date.scm 508 */
 unsigned char BgL_arg2837z00_8324;
BgL_arg2837z00_8324 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(48L+BgL_arg2859z00_3836)); 
{ /* Llib/date.scm 508 */
 long BgL_l4850z00_9954;
BgL_l4850z00_9954 = 
STRING_LENGTH(BgL_bufz00_75); 
if(
BOUND_CHECK(BgL_arg2858z00_3835, BgL_l4850z00_9954))
{ /* Llib/date.scm 508 */
STRING_SET(BgL_bufz00_75, BgL_arg2858z00_3835, BgL_arg2837z00_8324); }  else 
{ 
 obj_t BgL_auxz00_17997;
BgL_auxz00_17997 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(23528L), BGl_string6076z00zz__datez00, BgL_bufz00_75, 
(int)(BgL_l4850z00_9954), 
(int)(BgL_arg2858z00_3835)); 
FAILURE(BgL_auxz00_17997,BFALSE,BFALSE);} } } } 
return 3L;} }  else 
{ /* Llib/date.scm 535 */
{ /* Llib/date.scm 542 */
 long BgL_arg2860z00_3837;
BgL_arg2860z00_3837 = 
(
(long)(BgL_intz00_77)/1000L); 
{ /* Llib/date.scm 508 */
 unsigned char BgL_arg2837z00_8331;
BgL_arg2837z00_8331 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(48L+BgL_arg2860z00_3837)); 
{ /* Llib/date.scm 508 */
 long BgL_l4854z00_9958;
BgL_l4854z00_9958 = 
STRING_LENGTH(BgL_bufz00_75); 
if(
BOUND_CHECK(BgL_wz00_76, BgL_l4854z00_9958))
{ /* Llib/date.scm 508 */
STRING_SET(BgL_bufz00_75, BgL_wz00_76, BgL_arg2837z00_8331); }  else 
{ 
 obj_t BgL_auxz00_18011;
BgL_auxz00_18011 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(23528L), BGl_string6076z00zz__datez00, BgL_bufz00_75, 
(int)(BgL_l4854z00_9958), 
(int)(BgL_wz00_76)); 
FAILURE(BgL_auxz00_18011,BFALSE,BFALSE);} } } } 
{ /* Llib/date.scm 543 */
 long BgL_rz00_3838;
BgL_rz00_3838 = 
BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_intz00_77), 1000L); 
{ /* Llib/date.scm 544 */
 long BgL_arg2861z00_3839; long BgL_arg2862z00_3840;
BgL_arg2861z00_3839 = 
(BgL_wz00_76+1L); 
BgL_arg2862z00_3840 = 
(BgL_rz00_3838/100L); 
{ /* Llib/date.scm 508 */
 unsigned char BgL_arg2837z00_8339;
BgL_arg2837z00_8339 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(48L+BgL_arg2862z00_3840)); 
{ /* Llib/date.scm 508 */
 long BgL_l4858z00_9962;
BgL_l4858z00_9962 = 
STRING_LENGTH(BgL_bufz00_75); 
if(
BOUND_CHECK(BgL_arg2861z00_3839, BgL_l4858z00_9962))
{ /* Llib/date.scm 508 */
STRING_SET(BgL_bufz00_75, BgL_arg2861z00_3839, BgL_arg2837z00_8339); }  else 
{ 
 obj_t BgL_auxz00_18027;
BgL_auxz00_18027 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(23528L), BGl_string6076z00zz__datez00, BgL_bufz00_75, 
(int)(BgL_l4858z00_9962), 
(int)(BgL_arg2861z00_3839)); 
FAILURE(BgL_auxz00_18027,BFALSE,BFALSE);} } } } 
{ /* Llib/date.scm 545 */
 long BgL_rz00_3841;
BgL_rz00_3841 = 
BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_intz00_77), 100L); 
{ /* Llib/date.scm 546 */
 long BgL_arg2865z00_3842; long BgL_arg2866z00_3843;
BgL_arg2865z00_3842 = 
(BgL_wz00_76+2L); 
BgL_arg2866z00_3843 = 
(BgL_rz00_3841/10L); 
{ /* Llib/date.scm 508 */
 unsigned char BgL_arg2837z00_8347;
BgL_arg2837z00_8347 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(48L+BgL_arg2866z00_3843)); 
{ /* Llib/date.scm 508 */
 long BgL_l4862z00_9966;
BgL_l4862z00_9966 = 
STRING_LENGTH(BgL_bufz00_75); 
if(
BOUND_CHECK(BgL_arg2865z00_3842, BgL_l4862z00_9966))
{ /* Llib/date.scm 508 */
STRING_SET(BgL_bufz00_75, BgL_arg2865z00_3842, BgL_arg2837z00_8347); }  else 
{ 
 obj_t BgL_auxz00_18043;
BgL_auxz00_18043 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(23528L), BGl_string6076z00zz__datez00, BgL_bufz00_75, 
(int)(BgL_l4862z00_9966), 
(int)(BgL_arg2865z00_3842)); 
FAILURE(BgL_auxz00_18043,BFALSE,BFALSE);} } } } 
{ /* Llib/date.scm 547 */
 long BgL_arg2868z00_3844; long BgL_arg2869z00_3845;
BgL_arg2868z00_3844 = 
(BgL_wz00_76+3L); 
BgL_arg2869z00_3845 = 
BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(BgL_rz00_3841, 10L); 
{ /* Llib/date.scm 508 */
 unsigned char BgL_arg2837z00_8354;
BgL_arg2837z00_8354 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(48L+BgL_arg2869z00_3845)); 
{ /* Llib/date.scm 508 */
 long BgL_l4866z00_9970;
BgL_l4866z00_9970 = 
STRING_LENGTH(BgL_bufz00_75); 
if(
BOUND_CHECK(BgL_arg2868z00_3844, BgL_l4866z00_9970))
{ /* Llib/date.scm 508 */
STRING_SET(BgL_bufz00_75, BgL_arg2868z00_3844, BgL_arg2837z00_8354); }  else 
{ 
 obj_t BgL_auxz00_18057;
BgL_auxz00_18057 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(23528L), BGl_string6076z00zz__datez00, BgL_bufz00_75, 
(int)(BgL_l4866z00_9970), 
(int)(BgL_arg2868z00_3844)); 
FAILURE(BgL_auxz00_18057,BFALSE,BFALSE);} } } } 
return 4L;} } } } } } 

}



/* date->utc-string */
BGL_EXPORTED_DEF obj_t BGl_datezd2ze3utczd2stringze3zz__datez00(obj_t BgL_datez00_81)
{
{ /* Llib/date.scm 561 */
{ 
 obj_t BgL_datez00_3852;
{ /* Llib/date.scm 602 */
 long BgL_tza7za7_3848;
BgL_tza7za7_3848 = 
BGL_DATE_TIMEZONE(BgL_datez00_81); 
if(
(BgL_tza7za7_3848==0L))
{ /* Llib/date.scm 603 */
BgL_datez00_3852 = BgL_datez00_81; 
BgL_zc3z04anonymousza32873ze3z87_3853:
{ /* Llib/date.scm 564 */
 obj_t BgL_bufz00_3854; long BgL_wz00_3855;
BgL_bufz00_3854 = 
make_string(29L, ((unsigned char)' ')); 
BgL_wz00_3855 = 0L; 
{ /* Llib/date.scm 575 */
 long BgL_arg2877z00_3856;
{ /* Llib/date.scm 575 */
 obj_t BgL_arg2878z00_3857;
{ /* Llib/date.scm 575 */
 int BgL_arg2879z00_3858;
BgL_arg2879z00_3858 = 
BGL_DATE_WDAY(BgL_datez00_3852); 
BgL_arg2878z00_3857 = 
BGl_dayzd2anamezd2zz__datez00(BgL_arg2879z00_3858); } 
{ /* Llib/date.scm 575 */
 long BgL_wz00_8363;
BgL_wz00_8363 = BgL_wz00_3855; 
{ /* Llib/date.scm 554 */
 long BgL_lz00_8364;
BgL_lz00_8364 = 
STRING_LENGTH(BgL_arg2878z00_3857); 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_arg2878z00_3857, 0L, BgL_bufz00_3854, BgL_wz00_8363, BgL_lz00_8364); 
BgL_arg2877z00_3856 = BgL_lz00_8364; } } } 
BgL_wz00_3855 = 
(BgL_wz00_3855+BgL_arg2877z00_3856); } 
{ /* Llib/date.scm 576 */
 long BgL_kz00_8369;
BgL_kz00_8369 = BgL_wz00_3855; 
{ /* Llib/date.scm 576 */
 long BgL_l4870z00_9974;
BgL_l4870z00_9974 = 
STRING_LENGTH(BgL_bufz00_3854); 
if(
BOUND_CHECK(BgL_kz00_8369, BgL_l4870z00_9974))
{ /* Llib/date.scm 576 */
STRING_SET(BgL_bufz00_3854, BgL_kz00_8369, ((unsigned char)',')); }  else 
{ 
 obj_t BgL_auxz00_18076;
BgL_auxz00_18076 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(26294L), BGl_string6076z00zz__datez00, BgL_bufz00_3854, 
(int)(BgL_l4870z00_9974), 
(int)(BgL_kz00_8369)); 
FAILURE(BgL_auxz00_18076,BFALSE,BFALSE);} } } 
BgL_wz00_3855 = 
(BgL_wz00_3855+2L); 
{ /* Llib/date.scm 579 */
 long BgL_arg2880z00_3859;
{ /* Llib/date.scm 579 */
 int BgL_arg2881z00_3860;
BgL_arg2881z00_3860 = 
BGL_DATE_DAY(BgL_datez00_3852); 
BgL_arg2880z00_3859 = 
BGl_blitzd2intz12zc0zz__datez00(BgL_bufz00_3854, BgL_wz00_3855, BgL_arg2881z00_3860); } 
BgL_wz00_3855 = 
(BgL_wz00_3855+BgL_arg2880z00_3859); } 
BgL_wz00_3855 = 
(BgL_wz00_3855+1L); 
{ /* Llib/date.scm 582 */
 long BgL_arg2882z00_3861;
{ /* Llib/date.scm 582 */
 obj_t BgL_arg2897z00_3862;
{ /* Llib/date.scm 582 */
 int BgL_arg2898z00_3863;
BgL_arg2898z00_3863 = 
BGL_DATE_MONTH(BgL_datez00_3852); 
BgL_arg2897z00_3862 = 
BGl_monthzd2anamezd2zz__datez00(BgL_arg2898z00_3863); } 
{ /* Llib/date.scm 582 */
 long BgL_wz00_8377;
BgL_wz00_8377 = BgL_wz00_3855; 
{ /* Llib/date.scm 554 */
 long BgL_lz00_8378;
BgL_lz00_8378 = 
STRING_LENGTH(BgL_arg2897z00_3862); 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_arg2897z00_3862, 0L, BgL_bufz00_3854, BgL_wz00_8377, BgL_lz00_8378); 
BgL_arg2882z00_3861 = BgL_lz00_8378; } } } 
BgL_wz00_3855 = 
(BgL_wz00_3855+BgL_arg2882z00_3861); } 
BgL_wz00_3855 = 
(BgL_wz00_3855+1L); 
{ /* Llib/date.scm 585 */
 long BgL_arg2899z00_3864;
{ /* Llib/date.scm 585 */
 int BgL_arg2909z00_3865;
BgL_arg2909z00_3865 = 
BGL_DATE_YEAR(BgL_datez00_3852); 
BgL_arg2899z00_3864 = 
BGl_blitzd2intz12zc0zz__datez00(BgL_bufz00_3854, BgL_wz00_3855, BgL_arg2909z00_3865); } 
BgL_wz00_3855 = 
(BgL_wz00_3855+BgL_arg2899z00_3864); } 
BgL_wz00_3855 = 
(BgL_wz00_3855+1L); 
{ /* Llib/date.scm 588 */
 long BgL_arg2910z00_3866;
{ /* Llib/date.scm 588 */
 int BgL_arg2912z00_3867;
BgL_arg2912z00_3867 = 
BGL_DATE_HOUR(BgL_datez00_3852); 
BgL_arg2910z00_3866 = 
BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3854, BgL_wz00_3855, BgL_arg2912z00_3867); } 
BgL_wz00_3855 = 
(BgL_wz00_3855+BgL_arg2910z00_3866); } 
{ /* Llib/date.scm 589 */
 long BgL_kz00_8391;
BgL_kz00_8391 = BgL_wz00_3855; 
{ /* Llib/date.scm 589 */
 long BgL_l4874z00_9978;
BgL_l4874z00_9978 = 
STRING_LENGTH(BgL_bufz00_3854); 
if(
BOUND_CHECK(BgL_kz00_8391, BgL_l4874z00_9978))
{ /* Llib/date.scm 589 */
STRING_SET(BgL_bufz00_3854, BgL_kz00_8391, ((unsigned char)':')); }  else 
{ 
 obj_t BgL_auxz00_18104;
BgL_auxz00_18104 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(26696L), BGl_string6076z00zz__datez00, BgL_bufz00_3854, 
(int)(BgL_l4874z00_9978), 
(int)(BgL_kz00_8391)); 
FAILURE(BgL_auxz00_18104,BFALSE,BFALSE);} } } 
BgL_wz00_3855 = 
(BgL_wz00_3855+1L); 
{ /* Llib/date.scm 592 */
 long BgL_arg2913z00_3868;
{ /* Llib/date.scm 592 */
 int BgL_arg2915z00_3869;
BgL_arg2915z00_3869 = 
BGL_DATE_MINUTE(BgL_datez00_3852); 
BgL_arg2913z00_3868 = 
BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3854, BgL_wz00_3855, BgL_arg2915z00_3869); } 
BgL_wz00_3855 = 
(BgL_wz00_3855+BgL_arg2913z00_3868); } 
{ /* Llib/date.scm 593 */
 long BgL_kz00_8398;
BgL_kz00_8398 = BgL_wz00_3855; 
{ /* Llib/date.scm 593 */
 long BgL_l4878z00_9982;
BgL_l4878z00_9982 = 
STRING_LENGTH(BgL_bufz00_3854); 
if(
BOUND_CHECK(BgL_kz00_8398, BgL_l4878z00_9982))
{ /* Llib/date.scm 593 */
STRING_SET(BgL_bufz00_3854, BgL_kz00_8398, ((unsigned char)':')); }  else 
{ 
 obj_t BgL_auxz00_18118;
BgL_auxz00_18118 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(26817L), BGl_string6076z00zz__datez00, BgL_bufz00_3854, 
(int)(BgL_l4878z00_9982), 
(int)(BgL_kz00_8398)); 
FAILURE(BgL_auxz00_18118,BFALSE,BFALSE);} } } 
BgL_wz00_3855 = 
(BgL_wz00_3855+1L); 
{ /* Llib/date.scm 596 */
 long BgL_arg2916z00_3870;
{ /* Llib/date.scm 596 */
 int BgL_arg2917z00_3871;
BgL_arg2917z00_3871 = 
BGL_DATE_SECOND(BgL_datez00_3852); 
BgL_arg2916z00_3870 = 
BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3854, BgL_wz00_3855, BgL_arg2917z00_3871); } 
BgL_wz00_3855 = 
(BgL_wz00_3855+BgL_arg2916z00_3870); } 
BgL_wz00_3855 = 
(BgL_wz00_3855+1L); 
{ /* Llib/date.scm 599 */
 long BgL_arg2918z00_3872;
{ /* Llib/date.scm 599 */
 long BgL_wz00_8405;
BgL_wz00_8405 = BgL_wz00_3855; 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BGl_string5871z00zz__datez00, 0L, BgL_bufz00_3854, BgL_wz00_8405, 3L); 
BgL_arg2918z00_3872 = 3L; } 
BgL_wz00_3855 = 
(BgL_wz00_3855+BgL_arg2918z00_3872); } 
return 
bgl_string_shrink(BgL_bufz00_3854, BgL_wz00_3855);} }  else 
{ 
 obj_t BgL_datez00_18132;
BgL_datez00_18132 = 
bgl_seconds_to_gmtdate(
bgl_date_to_seconds(BgL_datez00_81)); 
BgL_datez00_3852 = BgL_datez00_18132; 
goto BgL_zc3z04anonymousza32873ze3z87_3853;} } } } 

}



/* &date->utc-string */
obj_t BGl_z62datezd2ze3utczd2stringz81zz__datez00(obj_t BgL_envz00_9844, obj_t BgL_datez00_9845)
{
{ /* Llib/date.scm 561 */
{ /* Llib/date.scm 564 */
 obj_t BgL_auxz00_18135;
if(
BGL_DATEP(BgL_datez00_9845))
{ /* Llib/date.scm 564 */
BgL_auxz00_18135 = BgL_datez00_9845
; }  else 
{ 
 obj_t BgL_auxz00_18138;
BgL_auxz00_18138 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(25597L), BGl_string6077z00zz__datez00, BGl_string6036z00zz__datez00, BgL_datez00_9845); 
FAILURE(BgL_auxz00_18138,BFALSE,BFALSE);} 
return 
BGl_datezd2ze3utczd2stringze3zz__datez00(BgL_auxz00_18135);} } 

}



/* seconds->string */
BGL_EXPORTED_DEF obj_t BGl_secondszd2ze3stringz31zz__datez00(long BgL_secz00_82)
{
{ /* Llib/date.scm 610 */
BGL_TAIL return 
bgl_seconds_to_string(BgL_secz00_82);} 

}



/* &seconds->string */
obj_t BGl_z62secondszd2ze3stringz53zz__datez00(obj_t BgL_envz00_9846, obj_t BgL_secz00_9847)
{
{ /* Llib/date.scm 610 */
{ /* Llib/date.scm 611 */
 long BgL_auxz00_18144;
{ /* Llib/date.scm 611 */
 obj_t BgL_tmpz00_18145;
if(
ELONGP(BgL_secz00_9847))
{ /* Llib/date.scm 611 */
BgL_tmpz00_18145 = BgL_secz00_9847
; }  else 
{ 
 obj_t BgL_auxz00_18148;
BgL_auxz00_18148 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(27440L), BGl_string6078z00zz__datez00, BGl_string6067z00zz__datez00, BgL_secz00_9847); 
FAILURE(BgL_auxz00_18148,BFALSE,BFALSE);} 
BgL_auxz00_18144 = 
BELONG_TO_LONG(BgL_tmpz00_18145); } 
return 
BGl_secondszd2ze3stringz31zz__datez00(BgL_auxz00_18144);} } 

}



/* seconds->utc-string */
BGL_EXPORTED_DEF obj_t BGl_secondszd2ze3utczd2stringze3zz__datez00(long BgL_secz00_83)
{
{ /* Llib/date.scm 616 */
BGL_TAIL return 
bgl_seconds_to_utc_string(BgL_secz00_83);} 

}



/* &seconds->utc-string */
obj_t BGl_z62secondszd2ze3utczd2stringz81zz__datez00(obj_t BgL_envz00_9848, obj_t BgL_secz00_9849)
{
{ /* Llib/date.scm 616 */
{ /* Llib/date.scm 617 */
 long BgL_auxz00_18155;
{ /* Llib/date.scm 617 */
 obj_t BgL_tmpz00_18156;
if(
ELONGP(BgL_secz00_9849))
{ /* Llib/date.scm 617 */
BgL_tmpz00_18156 = BgL_secz00_9849
; }  else 
{ 
 obj_t BgL_auxz00_18159;
BgL_auxz00_18159 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(27738L), BGl_string6079z00zz__datez00, BGl_string6067z00zz__datez00, BgL_secz00_9849); 
FAILURE(BgL_auxz00_18159,BFALSE,BFALSE);} 
BgL_auxz00_18155 = 
BELONG_TO_LONG(BgL_tmpz00_18156); } 
return 
BGl_secondszd2ze3utczd2stringze3zz__datez00(BgL_auxz00_18155);} } 

}



/* day-seconds */
BGL_EXPORTED_DEF long BGl_dayzd2secondszd2zz__datez00(void)
{
{ /* Llib/date.scm 622 */
return ((long)86400);} 

}



/* &day-seconds */
obj_t BGl_z62dayzd2secondszb0zz__datez00(obj_t BgL_envz00_9850)
{
{ /* Llib/date.scm 622 */
return 
make_belong(
BGl_dayzd2secondszd2zz__datez00());} 

}



/* day-name */
BGL_EXPORTED_DEF obj_t BGl_dayzd2namezd2zz__datez00(int BgL_dayz00_84)
{
{ /* Llib/date.scm 628 */
if(
(
(long)(BgL_dayz00_84)<1L))
{ /* Llib/date.scm 631 */
 obj_t BgL_aux5767z00_10879;
BgL_aux5767z00_10879 = 
BGl_errorz00zz__errorz00(BGl_symbol6080z00zz__datez00, BGl_string6082z00zz__datez00, 
BINT(BgL_dayz00_84)); 
if(
STRINGP(BgL_aux5767z00_10879))
{ /* Llib/date.scm 631 */
return BgL_aux5767z00_10879;}  else 
{ 
 obj_t BgL_auxz00_18174;
BgL_auxz00_18174 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(28318L), BGl_string6081z00zz__datez00, BGl_string6083z00zz__datez00, BgL_aux5767z00_10879); 
FAILURE(BgL_auxz00_18174,BFALSE,BFALSE);} }  else 
{ /* Llib/date.scm 630 */
if(
(
(long)(BgL_dayz00_84)>7L))
{ /* Llib/date.scm 633 */
 long BgL_arg2921z00_3876;
{ /* Llib/date.scm 633 */
 long BgL_arg2922z00_3877;
{ /* Llib/date.scm 633 */
 long BgL_n1z00_8418; long BgL_n2z00_8419;
BgL_n1z00_8418 = 
(long)(BgL_dayz00_84); 
BgL_n2z00_8419 = 7L; 
{ /* Llib/date.scm 633 */
 bool_t BgL_test7326z00_18182;
{ /* Llib/date.scm 633 */
 long BgL_arg4567z00_8421;
BgL_arg4567z00_8421 = 
(((BgL_n1z00_8418) | (BgL_n2z00_8419)) & -2147483648); 
BgL_test7326z00_18182 = 
(BgL_arg4567z00_8421==0L); } 
if(BgL_test7326z00_18182)
{ /* Llib/date.scm 633 */
 int32_t BgL_arg4564z00_8422;
{ /* Llib/date.scm 633 */
 int32_t BgL_arg4565z00_8423; int32_t BgL_arg4566z00_8424;
BgL_arg4565z00_8423 = 
(int32_t)(BgL_n1z00_8418); 
BgL_arg4566z00_8424 = 
(int32_t)(BgL_n2z00_8419); 
BgL_arg4564z00_8422 = 
(BgL_arg4565z00_8423%BgL_arg4566z00_8424); } 
{ /* Llib/date.scm 633 */
 long BgL_arg4665z00_8429;
BgL_arg4665z00_8429 = 
(long)(BgL_arg4564z00_8422); 
BgL_arg2922z00_3877 = 
(long)(BgL_arg4665z00_8429); } }  else 
{ /* Llib/date.scm 633 */
BgL_arg2922z00_3877 = 
(BgL_n1z00_8418%BgL_n2z00_8419); } } } 
BgL_arg2921z00_3876 = 
(1L+BgL_arg2922z00_3877); } 
BGL_TAIL return 
bgl_day_name(
(int)(BgL_arg2921z00_3876));}  else 
{ /* Llib/date.scm 632 */
BGL_TAIL return 
bgl_day_name(BgL_dayz00_84);} } } 

}



/* &day-name */
obj_t BGl_z62dayzd2namezb0zz__datez00(obj_t BgL_envz00_9851, obj_t BgL_dayz00_9852)
{
{ /* Llib/date.scm 628 */
{ /* Llib/date.scm 630 */
 int BgL_auxz00_18195;
{ /* Llib/date.scm 630 */
 obj_t BgL_tmpz00_18196;
if(
INTEGERP(BgL_dayz00_9852))
{ /* Llib/date.scm 630 */
BgL_tmpz00_18196 = BgL_dayz00_9852
; }  else 
{ 
 obj_t BgL_auxz00_18199;
BgL_auxz00_18199 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(28298L), BGl_string6084z00zz__datez00, BGl_string5881z00zz__datez00, BgL_dayz00_9852); 
FAILURE(BgL_auxz00_18199,BFALSE,BFALSE);} 
BgL_auxz00_18195 = 
CINT(BgL_tmpz00_18196); } 
return 
BGl_dayzd2namezd2zz__datez00(BgL_auxz00_18195);} } 

}



/* day-aname */
BGL_EXPORTED_DEF obj_t BGl_dayzd2anamezd2zz__datez00(int BgL_dayz00_85)
{
{ /* Llib/date.scm 640 */
if(
(
(long)(BgL_dayz00_85)<1L))
{ /* Llib/date.scm 643 */
 obj_t BgL_aux5770z00_10882;
BgL_aux5770z00_10882 = 
BGl_errorz00zz__errorz00(BGl_symbol6085z00zz__datez00, BGl_string6082z00zz__datez00, 
BINT(BgL_dayz00_85)); 
if(
STRINGP(BgL_aux5770z00_10882))
{ /* Llib/date.scm 643 */
return BgL_aux5770z00_10882;}  else 
{ 
 obj_t BgL_auxz00_18212;
BgL_auxz00_18212 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(28759L), BGl_string6086z00zz__datez00, BGl_string6083z00zz__datez00, BgL_aux5770z00_10882); 
FAILURE(BgL_auxz00_18212,BFALSE,BFALSE);} }  else 
{ /* Llib/date.scm 642 */
if(
(
(long)(BgL_dayz00_85)>7L))
{ /* Llib/date.scm 645 */
 long BgL_arg2925z00_3880;
{ /* Llib/date.scm 645 */
 long BgL_arg2926z00_3881;
{ /* Llib/date.scm 645 */
 long BgL_n1z00_8434; long BgL_n2z00_8435;
BgL_n1z00_8434 = 
(long)(BgL_dayz00_85); 
BgL_n2z00_8435 = 7L; 
{ /* Llib/date.scm 645 */
 bool_t BgL_test7331z00_18220;
{ /* Llib/date.scm 645 */
 long BgL_arg4567z00_8437;
BgL_arg4567z00_8437 = 
(((BgL_n1z00_8434) | (BgL_n2z00_8435)) & -2147483648); 
BgL_test7331z00_18220 = 
(BgL_arg4567z00_8437==0L); } 
if(BgL_test7331z00_18220)
{ /* Llib/date.scm 645 */
 int32_t BgL_arg4564z00_8438;
{ /* Llib/date.scm 645 */
 int32_t BgL_arg4565z00_8439; int32_t BgL_arg4566z00_8440;
BgL_arg4565z00_8439 = 
(int32_t)(BgL_n1z00_8434); 
BgL_arg4566z00_8440 = 
(int32_t)(BgL_n2z00_8435); 
BgL_arg4564z00_8438 = 
(BgL_arg4565z00_8439%BgL_arg4566z00_8440); } 
{ /* Llib/date.scm 645 */
 long BgL_arg4665z00_8445;
BgL_arg4665z00_8445 = 
(long)(BgL_arg4564z00_8438); 
BgL_arg2926z00_3881 = 
(long)(BgL_arg4665z00_8445); } }  else 
{ /* Llib/date.scm 645 */
BgL_arg2926z00_3881 = 
(BgL_n1z00_8434%BgL_n2z00_8435); } } } 
BgL_arg2925z00_3880 = 
(1L+BgL_arg2926z00_3881); } 
BGL_TAIL return 
bgl_day_aname(
(int)(BgL_arg2925z00_3880));}  else 
{ /* Llib/date.scm 644 */
BGL_TAIL return 
bgl_day_aname(BgL_dayz00_85);} } } 

}



/* &day-aname */
obj_t BGl_z62dayzd2anamezb0zz__datez00(obj_t BgL_envz00_9853, obj_t BgL_dayz00_9854)
{
{ /* Llib/date.scm 640 */
{ /* Llib/date.scm 642 */
 int BgL_auxz00_18233;
{ /* Llib/date.scm 642 */
 obj_t BgL_tmpz00_18234;
if(
INTEGERP(BgL_dayz00_9854))
{ /* Llib/date.scm 642 */
BgL_tmpz00_18234 = BgL_dayz00_9854
; }  else 
{ 
 obj_t BgL_auxz00_18237;
BgL_auxz00_18237 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(28739L), BGl_string6087z00zz__datez00, BGl_string5881z00zz__datez00, BgL_dayz00_9854); 
FAILURE(BgL_auxz00_18237,BFALSE,BFALSE);} 
BgL_auxz00_18233 = 
CINT(BgL_tmpz00_18234); } 
return 
BGl_dayzd2anamezd2zz__datez00(BgL_auxz00_18233);} } 

}



/* month-name */
BGL_EXPORTED_DEF obj_t BGl_monthzd2namezd2zz__datez00(int BgL_monthz00_86)
{
{ /* Llib/date.scm 652 */
if(
(
(long)(BgL_monthz00_86)<1L))
{ /* Llib/date.scm 655 */
 obj_t BgL_aux5773z00_10885;
BgL_aux5773z00_10885 = 
BGl_errorz00zz__errorz00(BGl_symbol6088z00zz__datez00, BGl_string6090z00zz__datez00, 
BINT(BgL_monthz00_86)); 
if(
STRINGP(BgL_aux5773z00_10885))
{ /* Llib/date.scm 655 */
return BgL_aux5773z00_10885;}  else 
{ 
 obj_t BgL_auxz00_18250;
BgL_auxz00_18250 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(29208L), BGl_string6091z00zz__datez00, BGl_string6083z00zz__datez00, BgL_aux5773z00_10885); 
FAILURE(BgL_auxz00_18250,BFALSE,BFALSE);} }  else 
{ /* Llib/date.scm 654 */
if(
(
(long)(BgL_monthz00_86)>12L))
{ /* Llib/date.scm 657 */
 long BgL_arg2929z00_3884;
{ /* Llib/date.scm 657 */
 long BgL_arg2930z00_3885;
{ /* Llib/date.scm 657 */
 long BgL_n1z00_8450; long BgL_n2z00_8451;
BgL_n1z00_8450 = 
(long)(BgL_monthz00_86); 
BgL_n2z00_8451 = 12L; 
{ /* Llib/date.scm 657 */
 bool_t BgL_test7336z00_18258;
{ /* Llib/date.scm 657 */
 long BgL_arg4567z00_8453;
BgL_arg4567z00_8453 = 
(((BgL_n1z00_8450) | (BgL_n2z00_8451)) & -2147483648); 
BgL_test7336z00_18258 = 
(BgL_arg4567z00_8453==0L); } 
if(BgL_test7336z00_18258)
{ /* Llib/date.scm 657 */
 int32_t BgL_arg4564z00_8454;
{ /* Llib/date.scm 657 */
 int32_t BgL_arg4565z00_8455; int32_t BgL_arg4566z00_8456;
BgL_arg4565z00_8455 = 
(int32_t)(BgL_n1z00_8450); 
BgL_arg4566z00_8456 = 
(int32_t)(BgL_n2z00_8451); 
BgL_arg4564z00_8454 = 
(BgL_arg4565z00_8455%BgL_arg4566z00_8456); } 
{ /* Llib/date.scm 657 */
 long BgL_arg4665z00_8461;
BgL_arg4665z00_8461 = 
(long)(BgL_arg4564z00_8454); 
BgL_arg2930z00_3885 = 
(long)(BgL_arg4665z00_8461); } }  else 
{ /* Llib/date.scm 657 */
BgL_arg2930z00_3885 = 
(BgL_n1z00_8450%BgL_n2z00_8451); } } } 
BgL_arg2929z00_3884 = 
(1L+BgL_arg2930z00_3885); } 
BGL_TAIL return 
bgl_month_name(
(int)(BgL_arg2929z00_3884));}  else 
{ /* Llib/date.scm 656 */
BGL_TAIL return 
bgl_month_name(BgL_monthz00_86);} } } 

}



/* &month-name */
obj_t BGl_z62monthzd2namezb0zz__datez00(obj_t BgL_envz00_9855, obj_t BgL_monthz00_9856)
{
{ /* Llib/date.scm 652 */
{ /* Llib/date.scm 654 */
 int BgL_auxz00_18271;
{ /* Llib/date.scm 654 */
 obj_t BgL_tmpz00_18272;
if(
INTEGERP(BgL_monthz00_9856))
{ /* Llib/date.scm 654 */
BgL_tmpz00_18272 = BgL_monthz00_9856
; }  else 
{ 
 obj_t BgL_auxz00_18275;
BgL_auxz00_18275 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(29186L), BGl_string6092z00zz__datez00, BGl_string5881z00zz__datez00, BgL_monthz00_9856); 
FAILURE(BgL_auxz00_18275,BFALSE,BFALSE);} 
BgL_auxz00_18271 = 
CINT(BgL_tmpz00_18272); } 
return 
BGl_monthzd2namezd2zz__datez00(BgL_auxz00_18271);} } 

}



/* month-aname */
BGL_EXPORTED_DEF obj_t BGl_monthzd2anamezd2zz__datez00(int BgL_monthz00_87)
{
{ /* Llib/date.scm 664 */
if(
(
(long)(BgL_monthz00_87)<1L))
{ /* Llib/date.scm 667 */
 obj_t BgL_aux5776z00_10888;
BgL_aux5776z00_10888 = 
BGl_errorz00zz__errorz00(BGl_symbol6088z00zz__datez00, BGl_string6090z00zz__datez00, 
BINT(BgL_monthz00_87)); 
if(
STRINGP(BgL_aux5776z00_10888))
{ /* Llib/date.scm 667 */
return BgL_aux5776z00_10888;}  else 
{ 
 obj_t BgL_auxz00_18288;
BgL_auxz00_18288 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(29674L), BGl_string6089z00zz__datez00, BGl_string6083z00zz__datez00, BgL_aux5776z00_10888); 
FAILURE(BgL_auxz00_18288,BFALSE,BFALSE);} }  else 
{ /* Llib/date.scm 666 */
if(
(
(long)(BgL_monthz00_87)>12L))
{ /* Llib/date.scm 669 */
 long BgL_arg2935z00_3888;
{ /* Llib/date.scm 669 */
 long BgL_arg2936z00_3889;
{ /* Llib/date.scm 669 */
 long BgL_n1z00_8466; long BgL_n2z00_8467;
BgL_n1z00_8466 = 
(long)(BgL_monthz00_87); 
BgL_n2z00_8467 = 12L; 
{ /* Llib/date.scm 669 */
 bool_t BgL_test7341z00_18296;
{ /* Llib/date.scm 669 */
 long BgL_arg4567z00_8469;
BgL_arg4567z00_8469 = 
(((BgL_n1z00_8466) | (BgL_n2z00_8467)) & -2147483648); 
BgL_test7341z00_18296 = 
(BgL_arg4567z00_8469==0L); } 
if(BgL_test7341z00_18296)
{ /* Llib/date.scm 669 */
 int32_t BgL_arg4564z00_8470;
{ /* Llib/date.scm 669 */
 int32_t BgL_arg4565z00_8471; int32_t BgL_arg4566z00_8472;
BgL_arg4565z00_8471 = 
(int32_t)(BgL_n1z00_8466); 
BgL_arg4566z00_8472 = 
(int32_t)(BgL_n2z00_8467); 
BgL_arg4564z00_8470 = 
(BgL_arg4565z00_8471%BgL_arg4566z00_8472); } 
{ /* Llib/date.scm 669 */
 long BgL_arg4665z00_8477;
BgL_arg4665z00_8477 = 
(long)(BgL_arg4564z00_8470); 
BgL_arg2936z00_3889 = 
(long)(BgL_arg4665z00_8477); } }  else 
{ /* Llib/date.scm 669 */
BgL_arg2936z00_3889 = 
(BgL_n1z00_8466%BgL_n2z00_8467); } } } 
BgL_arg2935z00_3888 = 
(1L+BgL_arg2936z00_3889); } 
BGL_TAIL return 
bgl_month_aname(
(int)(BgL_arg2935z00_3888));}  else 
{ /* Llib/date.scm 668 */
BGL_TAIL return 
bgl_month_aname(BgL_monthz00_87);} } } 

}



/* &month-aname */
obj_t BGl_z62monthzd2anamezb0zz__datez00(obj_t BgL_envz00_9857, obj_t BgL_monthz00_9858)
{
{ /* Llib/date.scm 664 */
{ /* Llib/date.scm 666 */
 int BgL_auxz00_18309;
{ /* Llib/date.scm 666 */
 obj_t BgL_tmpz00_18310;
if(
INTEGERP(BgL_monthz00_9858))
{ /* Llib/date.scm 666 */
BgL_tmpz00_18310 = BgL_monthz00_9858
; }  else 
{ 
 obj_t BgL_auxz00_18313;
BgL_auxz00_18313 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(29652L), BGl_string6093z00zz__datez00, BGl_string5881z00zz__datez00, BgL_monthz00_9858); 
FAILURE(BgL_auxz00_18313,BFALSE,BFALSE);} 
BgL_auxz00_18309 = 
CINT(BgL_tmpz00_18310); } 
return 
BGl_monthzd2anamezd2zz__datez00(BgL_auxz00_18309);} } 

}



/* date-month-length */
BGL_EXPORTED_DEF int BGl_datezd2monthzd2lengthz00zz__datez00(obj_t BgL_dz00_88)
{
{ /* Llib/date.scm 681 */
{ /* Llib/date.scm 682 */
 int BgL_mz00_3890;
BgL_mz00_3890 = 
BGL_DATE_MONTH(BgL_dz00_88); 
if(
(
(long)(BgL_mz00_3890)==2L))
{ /* Llib/date.scm 684 */
 bool_t BgL_test7344z00_18323;
{ /* Llib/date.scm 684 */
 int BgL_arg2940z00_3894;
BgL_arg2940z00_3894 = 
BGL_DATE_YEAR(BgL_dz00_88); 
{ /* Llib/date.scm 684 */
 bool_t BgL_res4748z00_8532;
{ /* Llib/date.scm 691 */
 bool_t BgL_test7345z00_18325;
{ /* Llib/date.scm 691 */
 long BgL_arg2956z00_8485;
{ /* Llib/date.scm 691 */
 long BgL_n1z00_8490; long BgL_n2z00_8491;
BgL_n1z00_8490 = 
(long)(BgL_arg2940z00_3894); 
BgL_n2z00_8491 = 4L; 
{ /* Llib/date.scm 691 */
 bool_t BgL_test7346z00_18327;
{ /* Llib/date.scm 691 */
 long BgL_arg4567z00_8493;
BgL_arg4567z00_8493 = 
(((BgL_n1z00_8490) | (BgL_n2z00_8491)) & -2147483648); 
BgL_test7346z00_18327 = 
(BgL_arg4567z00_8493==0L); } 
if(BgL_test7346z00_18327)
{ /* Llib/date.scm 691 */
 int32_t BgL_arg4564z00_8494;
{ /* Llib/date.scm 691 */
 int32_t BgL_arg4565z00_8495; int32_t BgL_arg4566z00_8496;
BgL_arg4565z00_8495 = 
(int32_t)(BgL_n1z00_8490); 
BgL_arg4566z00_8496 = 
(int32_t)(BgL_n2z00_8491); 
BgL_arg4564z00_8494 = 
(BgL_arg4565z00_8495%BgL_arg4566z00_8496); } 
{ /* Llib/date.scm 691 */
 long BgL_arg4665z00_8501;
BgL_arg4665z00_8501 = 
(long)(BgL_arg4564z00_8494); 
BgL_arg2956z00_8485 = 
(long)(BgL_arg4665z00_8501); } }  else 
{ /* Llib/date.scm 691 */
BgL_arg2956z00_8485 = 
(BgL_n1z00_8490%BgL_n2z00_8491); } } } 
BgL_test7345z00_18325 = 
(BgL_arg2956z00_8485==0L); } 
if(BgL_test7345z00_18325)
{ /* Llib/date.scm 692 */
 bool_t BgL__ortest_1058z00_8486;
{ /* Llib/date.scm 692 */
 bool_t BgL_test7347z00_18337;
{ /* Llib/date.scm 692 */
 long BgL_arg2954z00_8488;
{ /* Llib/date.scm 692 */
 long BgL_n1z00_8504; long BgL_n2z00_8505;
BgL_n1z00_8504 = 
(long)(BgL_arg2940z00_3894); 
BgL_n2z00_8505 = 100L; 
{ /* Llib/date.scm 692 */
 bool_t BgL_test7348z00_18339;
{ /* Llib/date.scm 692 */
 long BgL_arg4567z00_8507;
BgL_arg4567z00_8507 = 
(((BgL_n1z00_8504) | (BgL_n2z00_8505)) & -2147483648); 
BgL_test7348z00_18339 = 
(BgL_arg4567z00_8507==0L); } 
if(BgL_test7348z00_18339)
{ /* Llib/date.scm 692 */
 int32_t BgL_arg4564z00_8508;
{ /* Llib/date.scm 692 */
 int32_t BgL_arg4565z00_8509; int32_t BgL_arg4566z00_8510;
BgL_arg4565z00_8509 = 
(int32_t)(BgL_n1z00_8504); 
BgL_arg4566z00_8510 = 
(int32_t)(BgL_n2z00_8505); 
BgL_arg4564z00_8508 = 
(BgL_arg4565z00_8509%BgL_arg4566z00_8510); } 
{ /* Llib/date.scm 692 */
 long BgL_arg4665z00_8515;
BgL_arg4665z00_8515 = 
(long)(BgL_arg4564z00_8508); 
BgL_arg2954z00_8488 = 
(long)(BgL_arg4665z00_8515); } }  else 
{ /* Llib/date.scm 692 */
BgL_arg2954z00_8488 = 
(BgL_n1z00_8504%BgL_n2z00_8505); } } } 
BgL_test7347z00_18337 = 
(BgL_arg2954z00_8488==0L); } 
if(BgL_test7347z00_18337)
{ /* Llib/date.scm 692 */
BgL__ortest_1058z00_8486 = ((bool_t)0); }  else 
{ /* Llib/date.scm 692 */
BgL__ortest_1058z00_8486 = ((bool_t)1); } } 
if(BgL__ortest_1058z00_8486)
{ /* Llib/date.scm 692 */
BgL_res4748z00_8532 = BgL__ortest_1058z00_8486; }  else 
{ /* Llib/date.scm 693 */
 long BgL_arg2944z00_8489;
{ /* Llib/date.scm 693 */
 long BgL_n1z00_8518; long BgL_n2z00_8519;
BgL_n1z00_8518 = 
(long)(BgL_arg2940z00_3894); 
BgL_n2z00_8519 = 400L; 
{ /* Llib/date.scm 693 */
 bool_t BgL_test7350z00_18351;
{ /* Llib/date.scm 693 */
 long BgL_arg4567z00_8521;
BgL_arg4567z00_8521 = 
(((BgL_n1z00_8518) | (BgL_n2z00_8519)) & -2147483648); 
BgL_test7350z00_18351 = 
(BgL_arg4567z00_8521==0L); } 
if(BgL_test7350z00_18351)
{ /* Llib/date.scm 693 */
 int32_t BgL_arg4564z00_8522;
{ /* Llib/date.scm 693 */
 int32_t BgL_arg4565z00_8523; int32_t BgL_arg4566z00_8524;
BgL_arg4565z00_8523 = 
(int32_t)(BgL_n1z00_8518); 
BgL_arg4566z00_8524 = 
(int32_t)(BgL_n2z00_8519); 
BgL_arg4564z00_8522 = 
(BgL_arg4565z00_8523%BgL_arg4566z00_8524); } 
{ /* Llib/date.scm 693 */
 long BgL_arg4665z00_8529;
BgL_arg4665z00_8529 = 
(long)(BgL_arg4564z00_8522); 
BgL_arg2944z00_8489 = 
(long)(BgL_arg4665z00_8529); } }  else 
{ /* Llib/date.scm 693 */
BgL_arg2944z00_8489 = 
(BgL_n1z00_8518%BgL_n2z00_8519); } } } 
BgL_res4748z00_8532 = 
(BgL_arg2944z00_8489==0L); } }  else 
{ /* Llib/date.scm 691 */
BgL_res4748z00_8532 = ((bool_t)0); } } 
BgL_test7344z00_18323 = BgL_res4748z00_8532; } } 
if(BgL_test7344z00_18323)
{ /* Llib/date.scm 684 */
return 
(int)(29L);}  else 
{ /* Llib/date.scm 684 */
return 
(int)(28L);} }  else 
{ /* Llib/date.scm 685 */
 long BgL_arg2941z00_3895;
BgL_arg2941z00_3895 = 
(
(long)(BgL_mz00_3890)-1L); 
{ /* Llib/date.scm 685 */
 obj_t BgL_vectorz00_8534;
BgL_vectorz00_8534 = BGl_za2monthzd2lengthsza2zd2zz__datez00; 
{ /* Llib/date.scm 685 */
 bool_t BgL_test7351z00_18365;
{ /* Llib/date.scm 685 */
 long BgL_tmpz00_18366;
BgL_tmpz00_18366 = 
VECTOR_LENGTH(BgL_vectorz00_8534); 
BgL_test7351z00_18365 = 
BOUND_CHECK(BgL_arg2941z00_3895, BgL_tmpz00_18366); } 
if(BgL_test7351z00_18365)
{ /* Llib/date.scm 685 */
 obj_t BgL_tmpz00_18369;
{ /* Llib/date.scm 685 */
 obj_t BgL_aux5779z00_10891;
BgL_aux5779z00_10891 = 
VECTOR_REF(BgL_vectorz00_8534,BgL_arg2941z00_3895); 
if(
INTEGERP(BgL_aux5779z00_10891))
{ /* Llib/date.scm 685 */
BgL_tmpz00_18369 = BgL_aux5779z00_10891
; }  else 
{ 
 obj_t BgL_auxz00_18373;
BgL_auxz00_18373 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(30488L), BGl_string6094z00zz__datez00, BGl_string5881z00zz__datez00, BgL_aux5779z00_10891); 
FAILURE(BgL_auxz00_18373,BFALSE,BFALSE);} } 
return 
CINT(BgL_tmpz00_18369);}  else 
{ 
 obj_t BgL_auxz00_18378;
BgL_auxz00_18378 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(30488L), BGl_string6003z00zz__datez00, BgL_vectorz00_8534, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_8534)), 
(int)(BgL_arg2941z00_3895)); 
FAILURE(BgL_auxz00_18378,BFALSE,BFALSE);} } } } } } 

}



/* &date-month-length */
obj_t BGl_z62datezd2monthzd2lengthz62zz__datez00(obj_t BgL_envz00_9859, obj_t BgL_dz00_9860)
{
{ /* Llib/date.scm 681 */
{ /* Llib/date.scm 682 */
 int BgL_tmpz00_18385;
{ /* Llib/date.scm 682 */
 obj_t BgL_auxz00_18386;
if(
BGL_DATEP(BgL_dz00_9860))
{ /* Llib/date.scm 682 */
BgL_auxz00_18386 = BgL_dz00_9860
; }  else 
{ 
 obj_t BgL_auxz00_18389;
BgL_auxz00_18389 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(30398L), BGl_string6095z00zz__datez00, BGl_string6036z00zz__datez00, BgL_dz00_9860); 
FAILURE(BgL_auxz00_18389,BFALSE,BFALSE);} 
BgL_tmpz00_18385 = 
BGl_datezd2monthzd2lengthz00zz__datez00(BgL_auxz00_18386); } 
return 
BINT(BgL_tmpz00_18385);} } 

}



/* leap-year? */
BGL_EXPORTED_DEF bool_t BGl_leapzd2yearzf3z21zz__datez00(int BgL_yearz00_89)
{
{ /* Llib/date.scm 690 */
{ /* Llib/date.scm 691 */
 bool_t BgL_test7354z00_18395;
{ /* Llib/date.scm 691 */
 long BgL_arg2956z00_11915;
{ /* Llib/date.scm 691 */
 long BgL_n1z00_11916; long BgL_n2z00_11917;
BgL_n1z00_11916 = 
(long)(BgL_yearz00_89); 
BgL_n2z00_11917 = 4L; 
{ /* Llib/date.scm 691 */
 bool_t BgL_test7355z00_18397;
{ /* Llib/date.scm 691 */
 long BgL_arg4567z00_11918;
BgL_arg4567z00_11918 = 
(((BgL_n1z00_11916) | (BgL_n2z00_11917)) & -2147483648); 
BgL_test7355z00_18397 = 
(BgL_arg4567z00_11918==0L); } 
if(BgL_test7355z00_18397)
{ /* Llib/date.scm 691 */
 int32_t BgL_arg4564z00_11919;
{ /* Llib/date.scm 691 */
 int32_t BgL_arg4565z00_11920; int32_t BgL_arg4566z00_11921;
BgL_arg4565z00_11920 = 
(int32_t)(BgL_n1z00_11916); 
BgL_arg4566z00_11921 = 
(int32_t)(BgL_n2z00_11917); 
BgL_arg4564z00_11919 = 
(BgL_arg4565z00_11920%BgL_arg4566z00_11921); } 
{ /* Llib/date.scm 691 */
 long BgL_arg4665z00_11922;
BgL_arg4665z00_11922 = 
(long)(BgL_arg4564z00_11919); 
BgL_arg2956z00_11915 = 
(long)(BgL_arg4665z00_11922); } }  else 
{ /* Llib/date.scm 691 */
BgL_arg2956z00_11915 = 
(BgL_n1z00_11916%BgL_n2z00_11917); } } } 
BgL_test7354z00_18395 = 
(BgL_arg2956z00_11915==0L); } 
if(BgL_test7354z00_18395)
{ /* Llib/date.scm 692 */
 bool_t BgL__ortest_1058z00_11923;
{ /* Llib/date.scm 692 */
 bool_t BgL_test7356z00_18407;
{ /* Llib/date.scm 692 */
 long BgL_arg2954z00_11924;
{ /* Llib/date.scm 692 */
 long BgL_n1z00_11925; long BgL_n2z00_11926;
BgL_n1z00_11925 = 
(long)(BgL_yearz00_89); 
BgL_n2z00_11926 = 100L; 
{ /* Llib/date.scm 692 */
 bool_t BgL_test7357z00_18409;
{ /* Llib/date.scm 692 */
 long BgL_arg4567z00_11927;
BgL_arg4567z00_11927 = 
(((BgL_n1z00_11925) | (BgL_n2z00_11926)) & -2147483648); 
BgL_test7357z00_18409 = 
(BgL_arg4567z00_11927==0L); } 
if(BgL_test7357z00_18409)
{ /* Llib/date.scm 692 */
 int32_t BgL_arg4564z00_11928;
{ /* Llib/date.scm 692 */
 int32_t BgL_arg4565z00_11929; int32_t BgL_arg4566z00_11930;
BgL_arg4565z00_11929 = 
(int32_t)(BgL_n1z00_11925); 
BgL_arg4566z00_11930 = 
(int32_t)(BgL_n2z00_11926); 
BgL_arg4564z00_11928 = 
(BgL_arg4565z00_11929%BgL_arg4566z00_11930); } 
{ /* Llib/date.scm 692 */
 long BgL_arg4665z00_11931;
BgL_arg4665z00_11931 = 
(long)(BgL_arg4564z00_11928); 
BgL_arg2954z00_11924 = 
(long)(BgL_arg4665z00_11931); } }  else 
{ /* Llib/date.scm 692 */
BgL_arg2954z00_11924 = 
(BgL_n1z00_11925%BgL_n2z00_11926); } } } 
BgL_test7356z00_18407 = 
(BgL_arg2954z00_11924==0L); } 
if(BgL_test7356z00_18407)
{ /* Llib/date.scm 692 */
BgL__ortest_1058z00_11923 = ((bool_t)0); }  else 
{ /* Llib/date.scm 692 */
BgL__ortest_1058z00_11923 = ((bool_t)1); } } 
if(BgL__ortest_1058z00_11923)
{ /* Llib/date.scm 692 */
return BgL__ortest_1058z00_11923;}  else 
{ /* Llib/date.scm 693 */
 long BgL_arg2944z00_11932;
{ /* Llib/date.scm 693 */
 long BgL_n1z00_11933; long BgL_n2z00_11934;
BgL_n1z00_11933 = 
(long)(BgL_yearz00_89); 
BgL_n2z00_11934 = 400L; 
{ /* Llib/date.scm 693 */
 bool_t BgL_test7359z00_18421;
{ /* Llib/date.scm 693 */
 long BgL_arg4567z00_11935;
BgL_arg4567z00_11935 = 
(((BgL_n1z00_11933) | (BgL_n2z00_11934)) & -2147483648); 
BgL_test7359z00_18421 = 
(BgL_arg4567z00_11935==0L); } 
if(BgL_test7359z00_18421)
{ /* Llib/date.scm 693 */
 int32_t BgL_arg4564z00_11936;
{ /* Llib/date.scm 693 */
 int32_t BgL_arg4565z00_11937; int32_t BgL_arg4566z00_11938;
BgL_arg4565z00_11937 = 
(int32_t)(BgL_n1z00_11933); 
BgL_arg4566z00_11938 = 
(int32_t)(BgL_n2z00_11934); 
BgL_arg4564z00_11936 = 
(BgL_arg4565z00_11937%BgL_arg4566z00_11938); } 
{ /* Llib/date.scm 693 */
 long BgL_arg4665z00_11939;
BgL_arg4665z00_11939 = 
(long)(BgL_arg4564z00_11936); 
BgL_arg2944z00_11932 = 
(long)(BgL_arg4665z00_11939); } }  else 
{ /* Llib/date.scm 693 */
BgL_arg2944z00_11932 = 
(BgL_n1z00_11933%BgL_n2z00_11934); } } } 
return 
(BgL_arg2944z00_11932==0L);} }  else 
{ /* Llib/date.scm 691 */
return ((bool_t)0);} } } 

}



/* &leap-year? */
obj_t BGl_z62leapzd2yearzf3z43zz__datez00(obj_t BgL_envz00_9861, obj_t BgL_yearz00_9862)
{
{ /* Llib/date.scm 690 */
{ /* Llib/date.scm 691 */
 bool_t BgL_tmpz00_18431;
{ /* Llib/date.scm 691 */
 int BgL_auxz00_18432;
{ /* Llib/date.scm 691 */
 obj_t BgL_tmpz00_18433;
if(
INTEGERP(BgL_yearz00_9862))
{ /* Llib/date.scm 691 */
BgL_tmpz00_18433 = BgL_yearz00_9862
; }  else 
{ 
 obj_t BgL_auxz00_18436;
BgL_auxz00_18436 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(30794L), BGl_string6096z00zz__datez00, BGl_string5881z00zz__datez00, BgL_yearz00_9862); 
FAILURE(BgL_auxz00_18436,BFALSE,BFALSE);} 
BgL_auxz00_18432 = 
CINT(BgL_tmpz00_18433); } 
BgL_tmpz00_18431 = 
BGl_leapzd2yearzf3z21zz__datez00(BgL_auxz00_18432); } 
return 
BBOOL(BgL_tmpz00_18431);} } 

}



/* rfc2822-date->date */
BGL_EXPORTED_DEF obj_t BGl_rfc2822zd2datezd2ze3dateze3zz__datez00(obj_t BgL_stringz00_90)
{
{ /* Llib/date.scm 698 */
{ /* Llib/date.scm 699 */
 obj_t BgL_portz00_3903;
{ /* Ieee/port.scm 469 */
 long BgL_endz00_3907;
BgL_endz00_3907 = 
STRING_LENGTH(BgL_stringz00_90); 
{ /* Ieee/port.scm 469 */

BgL_portz00_3903 = 
BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(BgL_stringz00_90, 
BINT(0L), 
BINT(BgL_endz00_3907)); } } 
{ /* Llib/date.scm 700 */
 obj_t BgL_dz00_3904;
{ /* Llib/date.scm 700 */
 obj_t BgL_res4749z00_8586;
{ /* Llib/date.scm 708 */
 obj_t BgL_aux5783z00_10895;
BgL_aux5783z00_10895 = 
BGl_z62zc3z04anonymousza31454ze3ze5zz__datez00(BGl_dayzd2ofzd2weekzd2grammarzd2zz__datez00, BgL_portz00_3903); 
if(
BGL_DATEP(BgL_aux5783z00_10895))
{ /* Llib/date.scm 708 */
BgL_res4749z00_8586 = BgL_aux5783z00_10895; }  else 
{ 
 obj_t BgL_auxz00_18453;
BgL_auxz00_18453 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(31553L), BGl_string6097z00zz__datez00, BGl_string6036z00zz__datez00, BgL_aux5783z00_10895); 
FAILURE(BgL_auxz00_18453,BFALSE,BFALSE);} } 
BgL_dz00_3904 = BgL_res4749z00_8586; } 
bgl_close_input_port(BgL_portz00_3903); 
return BgL_dz00_3904;} } } 

}



/* &rfc2822-date->date */
obj_t BGl_z62rfc2822zd2datezd2ze3datez81zz__datez00(obj_t BgL_envz00_9863, obj_t BgL_stringz00_9864)
{
{ /* Llib/date.scm 698 */
{ /* Llib/date.scm 699 */
 obj_t BgL_auxz00_18458;
if(
STRINGP(BgL_stringz00_9864))
{ /* Llib/date.scm 699 */
BgL_auxz00_18458 = BgL_stringz00_9864
; }  else 
{ 
 obj_t BgL_auxz00_18461;
BgL_auxz00_18461 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(31166L), BGl_string6098z00zz__datez00, BGl_string6083z00zz__datez00, BgL_stringz00_9864); 
FAILURE(BgL_auxz00_18461,BFALSE,BFALSE);} 
return 
BGl_rfc2822zd2datezd2ze3dateze3zz__datez00(BgL_auxz00_18458);} } 

}



/* rfc2822-parse-date */
BGL_EXPORTED_DEF obj_t BGl_rfc2822zd2parsezd2datez00zz__datez00(obj_t BgL_ipz00_91)
{
{ /* Llib/date.scm 707 */
{ /* Llib/date.scm 708 */
 obj_t BgL_aux5787z00_10899;
BgL_aux5787z00_10899 = 
BGl_z62zc3z04anonymousza31454ze3ze5zz__datez00(BGl_dayzd2ofzd2weekzd2grammarzd2zz__datez00, BgL_ipz00_91); 
if(
BGL_DATEP(BgL_aux5787z00_10899))
{ /* Llib/date.scm 708 */
return BgL_aux5787z00_10899;}  else 
{ 
 obj_t BgL_auxz00_18472;
BgL_auxz00_18472 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(31553L), BGl_string5879z00zz__datez00, BGl_string6036z00zz__datez00, BgL_aux5787z00_10899); 
FAILURE(BgL_auxz00_18472,BFALSE,BFALSE);} } } 

}



/* &rfc2822-parse-date */
obj_t BGl_z62rfc2822zd2parsezd2datez62zz__datez00(obj_t BgL_envz00_9865, obj_t BgL_ipz00_9866)
{
{ /* Llib/date.scm 707 */
{ /* Llib/date.scm 708 */
 obj_t BgL_auxz00_18476;
if(
INPUT_PORTP(BgL_ipz00_9866))
{ /* Llib/date.scm 708 */
BgL_auxz00_18476 = BgL_ipz00_9866
; }  else 
{ 
 obj_t BgL_auxz00_18479;
BgL_auxz00_18479 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(31553L), BGl_string6099z00zz__datez00, BGl_string5878z00zz__datez00, BgL_ipz00_9866); 
FAILURE(BgL_auxz00_18479,BFALSE,BFALSE);} 
return 
BGl_rfc2822zd2parsezd2datez00zz__datez00(BgL_auxz00_18476);} } 

}



/* date->rfc2822-date */
BGL_EXPORTED_DEF obj_t BGl_datezd2ze3rfc2822zd2dateze3zz__datez00(obj_t BgL_datez00_92)
{
{ /* Llib/date.scm 713 */
{ 
 obj_t BgL_datez00_3911; long BgL_tza7za7_3912;
{ /* Llib/date.scm 762 */
 long BgL_tza7za7_3909;
BgL_tza7za7_3909 = 
BGL_DATE_TIMEZONE(BgL_datez00_92); 
if(
(BgL_tza7za7_3909==0L))
{ /* Llib/date.scm 763 */
BGL_TAIL return 
BGl_datezd2ze3utczd2stringze3zz__datez00(BgL_datez00_92);}  else 
{ /* Llib/date.scm 763 */
BgL_datez00_3911 = BgL_datez00_92; 
BgL_tza7za7_3912 = BgL_tza7za7_3909; 
{ /* Llib/date.scm 716 */
 obj_t BgL_bufz00_3914; long BgL_wz00_3915;
BgL_bufz00_3914 = 
make_string(32L, ((unsigned char)' ')); 
BgL_wz00_3915 = 0L; 
{ /* Llib/date.scm 730 */
 long BgL_arg2961z00_3916;
{ /* Llib/date.scm 730 */
 obj_t BgL_arg2962z00_3917;
{ /* Llib/date.scm 730 */
 int BgL_arg2967z00_3918;
BgL_arg2967z00_3918 = 
BGL_DATE_WDAY(BgL_datez00_3911); 
BgL_arg2962z00_3917 = 
BGl_dayzd2anamezd2zz__datez00(BgL_arg2967z00_3918); } 
{ /* Llib/date.scm 730 */
 long BgL_wz00_8589;
BgL_wz00_8589 = BgL_wz00_3915; 
{ /* Llib/date.scm 554 */
 long BgL_lz00_8590;
BgL_lz00_8590 = 
STRING_LENGTH(BgL_arg2962z00_3917); 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_arg2962z00_3917, 0L, BgL_bufz00_3914, BgL_wz00_8589, BgL_lz00_8590); 
BgL_arg2961z00_3916 = BgL_lz00_8590; } } } 
BgL_wz00_3915 = 
(BgL_wz00_3915+BgL_arg2961z00_3916); } 
{ /* Llib/date.scm 731 */
 long BgL_kz00_8595;
BgL_kz00_8595 = BgL_wz00_3915; 
{ /* Llib/date.scm 731 */
 long BgL_l4886z00_9990;
BgL_l4886z00_9990 = 
STRING_LENGTH(BgL_bufz00_3914); 
if(
BOUND_CHECK(BgL_kz00_8595, BgL_l4886z00_9990))
{ /* Llib/date.scm 731 */
STRING_SET(BgL_bufz00_3914, BgL_kz00_8595, ((unsigned char)',')); }  else 
{ 
 obj_t BgL_auxz00_18498;
BgL_auxz00_18498 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(32789L), BGl_string6076z00zz__datez00, BgL_bufz00_3914, 
(int)(BgL_l4886z00_9990), 
(int)(BgL_kz00_8595)); 
FAILURE(BgL_auxz00_18498,BFALSE,BFALSE);} } } 
BgL_wz00_3915 = 
(BgL_wz00_3915+2L); 
{ /* Llib/date.scm 734 */
 long BgL_arg2968z00_3919;
{ /* Llib/date.scm 734 */
 int BgL_arg2971z00_3920;
BgL_arg2971z00_3920 = 
BGL_DATE_DAY(BgL_datez00_3911); 
BgL_arg2968z00_3919 = 
BGl_blitzd2intz12zc0zz__datez00(BgL_bufz00_3914, BgL_wz00_3915, BgL_arg2971z00_3920); } 
BgL_wz00_3915 = 
(BgL_wz00_3915+BgL_arg2968z00_3919); } 
BgL_wz00_3915 = 
(BgL_wz00_3915+1L); 
{ /* Llib/date.scm 737 */
 long BgL_arg2972z00_3921;
{ /* Llib/date.scm 737 */
 obj_t BgL_arg2973z00_3922;
{ /* Llib/date.scm 737 */
 int BgL_arg2974z00_3923;
BgL_arg2974z00_3923 = 
BGL_DATE_MONTH(BgL_datez00_3911); 
BgL_arg2973z00_3922 = 
BGl_monthzd2anamezd2zz__datez00(BgL_arg2974z00_3923); } 
{ /* Llib/date.scm 737 */
 long BgL_wz00_8603;
BgL_wz00_8603 = BgL_wz00_3915; 
{ /* Llib/date.scm 554 */
 long BgL_lz00_8604;
BgL_lz00_8604 = 
STRING_LENGTH(BgL_arg2973z00_3922); 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_arg2973z00_3922, 0L, BgL_bufz00_3914, BgL_wz00_8603, BgL_lz00_8604); 
BgL_arg2972z00_3921 = BgL_lz00_8604; } } } 
BgL_wz00_3915 = 
(BgL_wz00_3915+BgL_arg2972z00_3921); } 
BgL_wz00_3915 = 
(BgL_wz00_3915+1L); 
{ /* Llib/date.scm 740 */
 long BgL_arg2975z00_3924;
{ /* Llib/date.scm 740 */
 int BgL_arg2976z00_3925;
BgL_arg2976z00_3925 = 
BGL_DATE_YEAR(BgL_datez00_3911); 
BgL_arg2975z00_3924 = 
BGl_blitzd2intz12zc0zz__datez00(BgL_bufz00_3914, BgL_wz00_3915, BgL_arg2976z00_3925); } 
BgL_wz00_3915 = 
(BgL_wz00_3915+BgL_arg2975z00_3924); } 
BgL_wz00_3915 = 
(BgL_wz00_3915+1L); 
{ /* Llib/date.scm 743 */
 long BgL_arg2977z00_3926;
{ /* Llib/date.scm 743 */
 int BgL_arg2978z00_3927;
BgL_arg2978z00_3927 = 
BGL_DATE_HOUR(BgL_datez00_3911); 
BgL_arg2977z00_3926 = 
BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3914, BgL_wz00_3915, BgL_arg2978z00_3927); } 
BgL_wz00_3915 = 
(BgL_wz00_3915+BgL_arg2977z00_3926); } 
{ /* Llib/date.scm 744 */
 long BgL_kz00_8617;
BgL_kz00_8617 = BgL_wz00_3915; 
{ /* Llib/date.scm 744 */
 long BgL_l4890z00_9994;
BgL_l4890z00_9994 = 
STRING_LENGTH(BgL_bufz00_3914); 
if(
BOUND_CHECK(BgL_kz00_8617, BgL_l4890z00_9994))
{ /* Llib/date.scm 744 */
STRING_SET(BgL_bufz00_3914, BgL_kz00_8617, ((unsigned char)':')); }  else 
{ 
 obj_t BgL_auxz00_18526;
BgL_auxz00_18526 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(33191L), BGl_string6076z00zz__datez00, BgL_bufz00_3914, 
(int)(BgL_l4890z00_9994), 
(int)(BgL_kz00_8617)); 
FAILURE(BgL_auxz00_18526,BFALSE,BFALSE);} } } 
BgL_wz00_3915 = 
(BgL_wz00_3915+1L); 
{ /* Llib/date.scm 747 */
 long BgL_arg2980z00_3928;
{ /* Llib/date.scm 747 */
 int BgL_arg2981z00_3929;
BgL_arg2981z00_3929 = 
BGL_DATE_MINUTE(BgL_datez00_3911); 
BgL_arg2980z00_3928 = 
BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3914, BgL_wz00_3915, BgL_arg2981z00_3929); } 
BgL_wz00_3915 = 
(BgL_wz00_3915+BgL_arg2980z00_3928); } 
{ /* Llib/date.scm 748 */
 long BgL_kz00_8624;
BgL_kz00_8624 = BgL_wz00_3915; 
{ /* Llib/date.scm 748 */
 long BgL_l4894z00_9998;
BgL_l4894z00_9998 = 
STRING_LENGTH(BgL_bufz00_3914); 
if(
BOUND_CHECK(BgL_kz00_8624, BgL_l4894z00_9998))
{ /* Llib/date.scm 748 */
STRING_SET(BgL_bufz00_3914, BgL_kz00_8624, ((unsigned char)':')); }  else 
{ 
 obj_t BgL_auxz00_18540;
BgL_auxz00_18540 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(33312L), BGl_string6076z00zz__datez00, BgL_bufz00_3914, 
(int)(BgL_l4894z00_9998), 
(int)(BgL_kz00_8624)); 
FAILURE(BgL_auxz00_18540,BFALSE,BFALSE);} } } 
BgL_wz00_3915 = 
(BgL_wz00_3915+1L); 
{ /* Llib/date.scm 751 */
 long BgL_arg2982z00_3930;
{ /* Llib/date.scm 751 */
 int BgL_arg2983z00_3931;
BgL_arg2983z00_3931 = 
BGL_DATE_SECOND(BgL_datez00_3911); 
BgL_arg2982z00_3930 = 
BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3914, BgL_wz00_3915, BgL_arg2983z00_3931); } 
BgL_wz00_3915 = 
(BgL_wz00_3915+BgL_arg2982z00_3930); } 
BgL_wz00_3915 = 
(BgL_wz00_3915+1L); 
{ /* Llib/date.scm 754 */
 unsigned char BgL_arg2984z00_3932;
if(
(BgL_tza7za7_3912<0L))
{ /* Llib/date.scm 754 */
BgL_arg2984z00_3932 = ((unsigned char)'-'); }  else 
{ /* Llib/date.scm 754 */
BgL_arg2984z00_3932 = ((unsigned char)'+'); } 
{ /* Llib/date.scm 754 */
 long BgL_kz00_8633;
BgL_kz00_8633 = BgL_wz00_3915; 
{ /* Llib/date.scm 754 */
 long BgL_l4898z00_10002;
BgL_l4898z00_10002 = 
STRING_LENGTH(BgL_bufz00_3914); 
if(
BOUND_CHECK(BgL_kz00_8633, BgL_l4898z00_10002))
{ /* Llib/date.scm 754 */
STRING_SET(BgL_bufz00_3914, BgL_kz00_8633, BgL_arg2984z00_3932); }  else 
{ 
 obj_t BgL_auxz00_18557;
BgL_auxz00_18557 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(33463L), BGl_string6076z00zz__datez00, BgL_bufz00_3914, 
(int)(BgL_l4898z00_10002), 
(int)(BgL_kz00_8633)); 
FAILURE(BgL_auxz00_18557,BFALSE,BFALSE);} } } } 
BgL_wz00_3915 = 
(BgL_wz00_3915+1L); 
{ /* Llib/date.scm 757 */
 long BgL_arg2986z00_3934;
{ /* Llib/date.scm 757 */
 long BgL_arg2987z00_3935;
BgL_arg2987z00_3935 = 
(BgL_tza7za7_3912/3600L); 
BgL_arg2986z00_3934 = 
BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3914, BgL_wz00_3915, 
(int)(BgL_arg2987z00_3935)); } 
BgL_wz00_3915 = 
(BgL_wz00_3915+BgL_arg2986z00_3934); } 
{ /* Llib/date.scm 759 */
 long BgL_arg2988z00_3936;
{ /* Llib/date.scm 759 */
 long BgL_arg2989z00_3937;
{ /* Llib/date.scm 759 */
 long BgL_n1z00_8639; long BgL_n2z00_8640;
BgL_n1z00_8639 = BgL_tza7za7_3912; 
BgL_n2z00_8640 = 3600L; 
{ /* Llib/date.scm 759 */
 bool_t BgL_test7371z00_18568;
{ /* Llib/date.scm 759 */
 long BgL_arg4567z00_8642;
BgL_arg4567z00_8642 = 
(((BgL_n1z00_8639) | (BgL_n2z00_8640)) & -2147483648); 
BgL_test7371z00_18568 = 
(BgL_arg4567z00_8642==0L); } 
if(BgL_test7371z00_18568)
{ /* Llib/date.scm 759 */
 int32_t BgL_arg4564z00_8643;
{ /* Llib/date.scm 759 */
 int32_t BgL_arg4565z00_8644; int32_t BgL_arg4566z00_8645;
BgL_arg4565z00_8644 = 
(int32_t)(BgL_n1z00_8639); 
BgL_arg4566z00_8645 = 
(int32_t)(BgL_n2z00_8640); 
BgL_arg4564z00_8643 = 
(BgL_arg4565z00_8644%BgL_arg4566z00_8645); } 
{ /* Llib/date.scm 759 */
 long BgL_arg4665z00_8650;
BgL_arg4665z00_8650 = 
(long)(BgL_arg4564z00_8643); 
BgL_arg2989z00_3937 = 
(long)(BgL_arg4665z00_8650); } }  else 
{ /* Llib/date.scm 759 */
BgL_arg2989z00_3937 = 
(BgL_n1z00_8639%BgL_n2z00_8640); } } } 
BgL_arg2988z00_3936 = 
BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3914, BgL_wz00_3915, 
(int)(BgL_arg2989z00_3937)); } 
BgL_wz00_3915 = 
(BgL_wz00_3915+BgL_arg2988z00_3936); } 
return 
bgl_string_shrink(BgL_bufz00_3914, BgL_wz00_3915);} } } } } 

}



/* &date->rfc2822-date */
obj_t BGl_z62datezd2ze3rfc2822zd2datez81zz__datez00(obj_t BgL_envz00_9867, obj_t BgL_datez00_9868)
{
{ /* Llib/date.scm 713 */
{ /* Llib/date.scm 716 */
 obj_t BgL_auxz00_18581;
if(
BGL_DATEP(BgL_datez00_9868))
{ /* Llib/date.scm 716 */
BgL_auxz00_18581 = BgL_datez00_9868
; }  else 
{ 
 obj_t BgL_auxz00_18584;
BgL_auxz00_18584 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(31886L), BGl_string6100z00zz__datez00, BGl_string6036z00zz__datez00, BgL_datez00_9868); 
FAILURE(BgL_auxz00_18584,BFALSE,BFALSE);} 
return 
BGl_datezd2ze3rfc2822zd2dateze3zz__datez00(BgL_auxz00_18581);} } 

}



/* date->iso8601-date */
BGL_EXPORTED_DEF obj_t BGl_datezd2ze3iso8601zd2dateze3zz__datez00(obj_t BgL_datez00_93)
{
{ /* Llib/date.scm 770 */
{ /* Llib/date.scm 771 */
 long BgL_tza7za7_3939;
BgL_tza7za7_3939 = 
BGL_DATE_TIMEZONE(BgL_datez00_93); 
if(
(BgL_tza7za7_3939==0L))
{ /* Llib/date.scm 774 */
 int BgL_arg2991z00_3941; int BgL_arg2992z00_3942; int BgL_arg2994z00_3943; int BgL_arg2995z00_3944; int BgL_arg2997z00_3945; int BgL_arg2998z00_3946;
BgL_arg2991z00_3941 = 
BGL_DATE_YEAR(BgL_datez00_93); 
BgL_arg2992z00_3942 = 
BGL_DATE_MONTH(BgL_datez00_93); 
BgL_arg2994z00_3943 = 
BGL_DATE_DAY(BgL_datez00_93); 
BgL_arg2995z00_3944 = 
BGL_DATE_HOUR(BgL_datez00_93); 
BgL_arg2997z00_3945 = 
BGL_DATE_MINUTE(BgL_datez00_93); 
BgL_arg2998z00_3946 = 
BGL_DATE_SECOND(BgL_datez00_93); 
{ /* Llib/date.scm 773 */
 obj_t BgL_list2999z00_3947;
{ /* Llib/date.scm 773 */
 obj_t BgL_arg3000z00_3948;
{ /* Llib/date.scm 773 */
 obj_t BgL_arg3003z00_3949;
{ /* Llib/date.scm 773 */
 obj_t BgL_arg3004z00_3950;
{ /* Llib/date.scm 773 */
 obj_t BgL_arg3008z00_3951;
{ /* Llib/date.scm 773 */
 obj_t BgL_arg3012z00_3952;
BgL_arg3012z00_3952 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg2998z00_3946), BNIL); 
BgL_arg3008z00_3951 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg2997z00_3945), BgL_arg3012z00_3952); } 
BgL_arg3004z00_3950 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg2995z00_3944), BgL_arg3008z00_3951); } 
BgL_arg3003z00_3949 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg2994z00_3943), BgL_arg3004z00_3950); } 
BgL_arg3000z00_3948 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg2992z00_3942), BgL_arg3003z00_3949); } 
BgL_list2999z00_3947 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg2991z00_3941), BgL_arg3000z00_3948); } 
return 
BGl_formatz00zz__r4_output_6_10_3z00(BGl_string6101z00zz__datez00, BgL_list2999z00_3947);} }  else 
{ /* Llib/date.scm 781 */
 int BgL_arg3013z00_3953; int BgL_arg3017z00_3954; int BgL_arg3018z00_3955; int BgL_arg3022z00_3956; int BgL_arg3024z00_3957; int BgL_arg3026z00_3958; obj_t BgL_arg3027z00_3959; long BgL_arg3029z00_3960; long BgL_arg3030z00_3961;
BgL_arg3013z00_3953 = 
BGL_DATE_YEAR(BgL_datez00_93); 
BgL_arg3017z00_3954 = 
BGL_DATE_MONTH(BgL_datez00_93); 
BgL_arg3018z00_3955 = 
BGL_DATE_DAY(BgL_datez00_93); 
BgL_arg3022z00_3956 = 
BGL_DATE_HOUR(BgL_datez00_93); 
BgL_arg3024z00_3957 = 
BGL_DATE_MINUTE(BgL_datez00_93); 
BgL_arg3026z00_3958 = 
BGL_DATE_SECOND(BgL_datez00_93); 
if(
(BgL_tza7za7_3939<0L))
{ /* Llib/date.scm 787 */
BgL_arg3027z00_3959 = BGl_string6102z00zz__datez00; }  else 
{ /* Llib/date.scm 787 */
BgL_arg3027z00_3959 = BGl_string6103z00zz__datez00; } 
{ /* Llib/date.scm 788 */
 long BgL_nz00_8674;
BgL_nz00_8674 = 
(BgL_tza7za7_3939/3600L); 
if(
(BgL_nz00_8674<0L))
{ /* Llib/date.scm 788 */
BgL_arg3029z00_3960 = 
NEG(BgL_nz00_8674); }  else 
{ /* Llib/date.scm 788 */
BgL_arg3029z00_3960 = BgL_nz00_8674; } } 
{ /* Llib/date.scm 789 */
 obj_t BgL_arg3043z00_3973;
BgL_arg3043z00_3973 = 
BGl_remainderz00zz__r4_numbers_6_5_fixnumz00(
BINT(BgL_tza7za7_3939), 
BINT(3600L)); 
{ /* Llib/date.scm 789 */
 long BgL_nz00_8678;
{ /* Llib/date.scm 789 */
 obj_t BgL_tmpz00_18626;
if(
INTEGERP(BgL_arg3043z00_3973))
{ /* Llib/date.scm 789 */
BgL_tmpz00_18626 = BgL_arg3043z00_3973
; }  else 
{ 
 obj_t BgL_auxz00_18629;
BgL_auxz00_18629 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(34707L), BGl_string6104z00zz__datez00, BGl_string5881z00zz__datez00, BgL_arg3043z00_3973); 
FAILURE(BgL_auxz00_18629,BFALSE,BFALSE);} 
BgL_nz00_8678 = 
(long)CINT(BgL_tmpz00_18626); } 
if(
(BgL_nz00_8678<0L))
{ /* Llib/date.scm 789 */
BgL_arg3030z00_3961 = 
NEG(BgL_nz00_8678); }  else 
{ /* Llib/date.scm 789 */
BgL_arg3030z00_3961 = BgL_nz00_8678; } } } 
{ /* Llib/date.scm 780 */
 obj_t BgL_list3031z00_3962;
{ /* Llib/date.scm 780 */
 obj_t BgL_arg3033z00_3963;
{ /* Llib/date.scm 780 */
 obj_t BgL_arg3034z00_3964;
{ /* Llib/date.scm 780 */
 obj_t BgL_arg3035z00_3965;
{ /* Llib/date.scm 780 */
 obj_t BgL_arg3036z00_3966;
{ /* Llib/date.scm 780 */
 obj_t BgL_arg3037z00_3967;
{ /* Llib/date.scm 780 */
 obj_t BgL_arg3038z00_3968;
{ /* Llib/date.scm 780 */
 obj_t BgL_arg3039z00_3969;
{ /* Llib/date.scm 780 */
 obj_t BgL_arg3040z00_3970;
BgL_arg3040z00_3970 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg3030z00_3961), BNIL); 
BgL_arg3039z00_3969 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg3029z00_3960), BgL_arg3040z00_3970); } 
BgL_arg3038z00_3968 = 
MAKE_YOUNG_PAIR(BgL_arg3027z00_3959, BgL_arg3039z00_3969); } 
BgL_arg3037z00_3967 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg3026z00_3958), BgL_arg3038z00_3968); } 
BgL_arg3036z00_3966 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg3024z00_3957), BgL_arg3037z00_3967); } 
BgL_arg3035z00_3965 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg3022z00_3956), BgL_arg3036z00_3966); } 
BgL_arg3034z00_3964 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg3018z00_3955), BgL_arg3035z00_3965); } 
BgL_arg3033z00_3963 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg3017z00_3954), BgL_arg3034z00_3964); } 
BgL_list3031z00_3962 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg3013z00_3953), BgL_arg3033z00_3963); } 
return 
BGl_formatz00zz__r4_output_6_10_3z00(BGl_string6105z00zz__datez00, BgL_list3031z00_3962);} } } } 

}



/* &date->iso8601-date */
obj_t BGl_z62datezd2ze3iso8601zd2datez81zz__datez00(obj_t BgL_envz00_9869, obj_t BgL_datez00_9870)
{
{ /* Llib/date.scm 770 */
{ /* Llib/date.scm 771 */
 obj_t BgL_auxz00_18655;
if(
BGL_DATEP(BgL_datez00_9870))
{ /* Llib/date.scm 771 */
BgL_auxz00_18655 = BgL_datez00_9870
; }  else 
{ 
 obj_t BgL_auxz00_18658;
BgL_auxz00_18658 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(34068L), BGl_string6106z00zz__datez00, BGl_string6036z00zz__datez00, BgL_datez00_9870); 
FAILURE(BgL_auxz00_18658,BFALSE,BFALSE);} 
return 
BGl_datezd2ze3iso8601zd2dateze3zz__datez00(BgL_auxz00_18655);} } 

}



/* iso8601-date->date */
BGL_EXPORTED_DEF obj_t BGl_iso8601zd2datezd2ze3dateze3zz__datez00(obj_t BgL_stringz00_94)
{
{ /* Llib/date.scm 806 */
{ /* Llib/date.scm 807 */
 obj_t BgL_portz00_3974;
{ /* Ieee/port.scm 469 */
 long BgL_endz00_3982;
BgL_endz00_3982 = 
STRING_LENGTH(BgL_stringz00_94); 
{ /* Ieee/port.scm 469 */

BgL_portz00_3974 = 
BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(BgL_stringz00_94, 
BINT(0L), 
BINT(BgL_endz00_3982)); } } 
{ /* Llib/date.scm 808 */
 obj_t BgL_exitd1065z00_3975;
BgL_exitd1065z00_3975 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Llib/date.scm 810 */
 obj_t BgL_zc3z04anonymousza33044ze3z87_9871;
BgL_zc3z04anonymousza33044ze3z87_9871 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza33044ze3ze5zz__datez00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza33044ze3z87_9871, 
(int)(0L), BgL_portz00_3974); 
{ /* Llib/date.scm 808 */
 obj_t BgL_arg4721z00_8684;
{ /* Llib/date.scm 808 */
 obj_t BgL_arg4722z00_8685;
BgL_arg4722z00_8685 = 
BGL_EXITD_PROTECT(BgL_exitd1065z00_3975); 
BgL_arg4721z00_8684 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza33044ze3z87_9871, BgL_arg4722z00_8685); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1065z00_3975, BgL_arg4721z00_8684); BUNSPEC; } 
{ /* Llib/date.scm 809 */
 obj_t BgL_tmp1067z00_3977;
BgL_tmp1067z00_3977 = 
BGl_iso8601zd2parsezd2datez00zz__datez00(BgL_portz00_3974); 
{ /* Llib/date.scm 808 */
 bool_t BgL_test7379z00_18677;
{ /* Llib/date.scm 808 */
 obj_t BgL_arg4720z00_8687;
BgL_arg4720z00_8687 = 
BGL_EXITD_PROTECT(BgL_exitd1065z00_3975); 
BgL_test7379z00_18677 = 
PAIRP(BgL_arg4720z00_8687); } 
if(BgL_test7379z00_18677)
{ /* Llib/date.scm 808 */
 obj_t BgL_arg4718z00_8688;
{ /* Llib/date.scm 808 */
 obj_t BgL_arg4719z00_8689;
BgL_arg4719z00_8689 = 
BGL_EXITD_PROTECT(BgL_exitd1065z00_3975); 
{ /* Llib/date.scm 808 */
 obj_t BgL_pairz00_8690;
if(
PAIRP(BgL_arg4719z00_8689))
{ /* Llib/date.scm 808 */
BgL_pairz00_8690 = BgL_arg4719z00_8689; }  else 
{ 
 obj_t BgL_auxz00_18683;
BgL_auxz00_18683 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(35604L), BGl_string6107z00zz__datez00, BGl_string6108z00zz__datez00, BgL_arg4719z00_8689); 
FAILURE(BgL_auxz00_18683,BFALSE,BFALSE);} 
BgL_arg4718z00_8688 = 
CDR(BgL_pairz00_8690); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1065z00_3975, BgL_arg4718z00_8688); BUNSPEC; }  else 
{ /* Llib/date.scm 808 */BFALSE; } } 
bgl_close_input_port(BgL_portz00_3974); 
return BgL_tmp1067z00_3977;} } } } } 

}



/* &iso8601-date->date */
obj_t BGl_z62iso8601zd2datezd2ze3datez81zz__datez00(obj_t BgL_envz00_9872, obj_t BgL_stringz00_9873)
{
{ /* Llib/date.scm 806 */
{ /* Llib/date.scm 807 */
 obj_t BgL_auxz00_18690;
if(
STRINGP(BgL_stringz00_9873))
{ /* Llib/date.scm 807 */
BgL_auxz00_18690 = BgL_stringz00_9873
; }  else 
{ 
 obj_t BgL_auxz00_18693;
BgL_auxz00_18693 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(35557L), BGl_string6109z00zz__datez00, BGl_string6083z00zz__datez00, BgL_stringz00_9873); 
FAILURE(BgL_auxz00_18693,BFALSE,BFALSE);} 
return 
BGl_iso8601zd2datezd2ze3dateze3zz__datez00(BgL_auxz00_18690);} } 

}



/* &<@anonymous:3044> */
obj_t BGl_z62zc3z04anonymousza33044ze3ze5zz__datez00(obj_t BgL_envz00_9874)
{
{ /* Llib/date.scm 808 */
{ /* Llib/date.scm 810 */
 obj_t BgL_portz00_9875;
BgL_portz00_9875 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_9874, 
(int)(0L))); 
return 
bgl_close_input_port(BgL_portz00_9875);} } 

}



/* iso8601-parse-date */
BGL_EXPORTED_DEF obj_t BGl_iso8601zd2parsezd2datez00zz__datez00(obj_t BgL_ipz00_95)
{
{ /* Llib/date.scm 815 */
{ 
 obj_t BgL_iportz00_6330; long BgL_yyyyz00_6331; long BgL_mmz00_6332; long BgL_ddz00_6333; long BgL_hhz00_6334; long BgL_mmz00_6335; long BgL_ssz00_6336; BGL_LONGLONG_T BgL_sssz00_6337; long BgL_za7hhza7_6338;
{ 
 obj_t BgL_iportz00_5974; long BgL_yyyyz00_5975; long BgL_mmz00_5976; long BgL_ddz00_5977; long BgL_hhz00_5978; long BgL_mmz00_5979; long BgL_ssz00_5980; BGL_LONGLONG_T BgL_sssz00_5981;
{ 
 obj_t BgL_iportz00_5670; long BgL_yyyyz00_5671; long BgL_mmz00_5672; long BgL_ddz00_5673; long BgL_hhz00_5674; long BgL_mmz00_5675; long BgL_ssz00_5676;
{ 
 obj_t BgL_iportz00_5389; long BgL_yyyyz00_5390; long BgL_mmz00_5391; long BgL_ddz00_5392; long BgL_hhz00_5393; long BgL_mmz00_5394;
{ 
 obj_t BgL_iportz00_5110; long BgL_yyyyz00_5111; long BgL_mmz00_5112; long BgL_ddz00_5113; long BgL_hhz00_5114;
{ 
 obj_t BgL_iportz00_4830; long BgL_yyyyz00_4831; long BgL_mmz00_4832; long BgL_ddz00_4833;
{ 
 obj_t BgL_iportz00_4553; long BgL_yyyyz00_4554; long BgL_mmz00_4555;
{ 
 obj_t BgL_iportz00_4277; long BgL_yyyyz00_4278;
{ 
 obj_t BgL_iportz00_3993;
{ /* Llib/date.scm 959 */
 obj_t BgL_aux5829z00_10941;
BgL_iportz00_3993 = BgL_ipz00_95; 
{ 
 obj_t BgL_iportz00_4036; long BgL_lastzd2matchzd2_4037; long BgL_forwardz00_4038; long BgL_bufposz00_4039; obj_t BgL_iportz00_4057; long BgL_lastzd2matchzd2_4058; long BgL_forwardz00_4059; long BgL_bufposz00_4060; obj_t BgL_iportz00_4072; long BgL_lastzd2matchzd2_4073; long BgL_forwardz00_4074; long BgL_bufposz00_4075; obj_t BgL_iportz00_4086; long BgL_lastzd2matchzd2_4087; long BgL_forwardz00_4088; long BgL_bufposz00_4089;
if(
INPUT_PORT_CLOSEP(BgL_iportz00_3993))
{ /* Llib/date.scm 948 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg3046z00_4029;
{ /* Llib/date.scm 948 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1078z00_4030;
{ /* Llib/date.scm 948 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1077z00_4033;
BgL_new1077z00_4033 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Llib/date.scm 948 */
 long BgL_arg3051z00_4034;
BgL_arg3051z00_4034 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1077z00_4033), BgL_arg3051z00_4034); } 
BgL_new1078z00_4030 = BgL_new1077z00_4033; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_4030)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_4030)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_18712;
{ /* Llib/date.scm 948 */
 obj_t BgL_arg3047z00_4031;
{ /* Llib/date.scm 948 */
 obj_t BgL_arg3049z00_4032;
{ /* Llib/date.scm 948 */
 obj_t BgL_classz00_9423;
BgL_classz00_9423 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg3049z00_4032 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_9423); } 
BgL_arg3047z00_4031 = 
VECTOR_REF(BgL_arg3049z00_4032,2L); } 
{ /* Llib/date.scm 948 */
 obj_t BgL_auxz00_18716;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg3047z00_4031))
{ /* Llib/date.scm 948 */
BgL_auxz00_18716 = BgL_arg3047z00_4031
; }  else 
{ 
 obj_t BgL_auxz00_18719;
BgL_auxz00_18719 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(40048L), BGl_string6121z00zz__datez00, BGl_string5899z00zz__datez00, BgL_arg3047z00_4031); 
FAILURE(BgL_auxz00_18719,BFALSE,BFALSE);} 
BgL_auxz00_18712 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_18716); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_4030)))->BgL_stackz00)=((obj_t)BgL_auxz00_18712),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_4030)))->BgL_procz00)=((obj_t)BGl_string5882z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_4030)))->BgL_msgz00)=((obj_t)BGl_string5900z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_4030)))->BgL_objz00)=((obj_t)BgL_iportz00_3993),BUNSPEC); 
BgL_arg3046z00_4029 = BgL_new1078z00_4030; } 
BgL_aux5829z00_10941 = 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg3046z00_4029)); }  else 
{ /* Llib/date.scm 948 */
RGC_START_MATCH(BgL_iportz00_3993); 
{ /* Llib/date.scm 948 */
 long BgL_matchz00_4225;
{ /* Llib/date.scm 948 */
 long BgL_arg3226z00_4240; long BgL_arg3227z00_4241;
BgL_arg3226z00_4240 = 
RGC_BUFFER_FORWARD(BgL_iportz00_3993); 
BgL_arg3227z00_4241 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_3993); 
BgL_iportz00_4036 = BgL_iportz00_3993; 
BgL_lastzd2matchzd2_4037 = 1L; 
BgL_forwardz00_4038 = BgL_arg3226z00_4240; 
BgL_bufposz00_4039 = BgL_arg3227z00_4241; 
BgL_zc3z04anonymousza33054ze3z87_4040:
if(
(BgL_forwardz00_4038==BgL_bufposz00_4039))
{ /* Llib/date.scm 948 */
if(
rgc_fill_buffer(BgL_iportz00_4036))
{ /* Llib/date.scm 948 */
 long BgL_arg3057z00_4043; long BgL_arg3061z00_4044;
BgL_arg3057z00_4043 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4036); 
BgL_arg3061z00_4044 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4036); 
{ 
 long BgL_bufposz00_18743; long BgL_forwardz00_18742;
BgL_forwardz00_18742 = BgL_arg3057z00_4043; 
BgL_bufposz00_18743 = BgL_arg3061z00_4044; 
BgL_bufposz00_4039 = BgL_bufposz00_18743; 
BgL_forwardz00_4038 = BgL_forwardz00_18742; 
goto BgL_zc3z04anonymousza33054ze3z87_4040;} }  else 
{ /* Llib/date.scm 948 */
BgL_matchz00_4225 = BgL_lastzd2matchzd2_4037; } }  else 
{ /* Llib/date.scm 948 */
 int BgL_curz00_4045;
BgL_curz00_4045 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_4036, BgL_forwardz00_4038); 
{ /* Llib/date.scm 948 */

{ /* Llib/date.scm 948 */
 bool_t BgL_test7386z00_18745;
if(
(
(long)(BgL_curz00_4045)>=48L))
{ /* Llib/date.scm 948 */
BgL_test7386z00_18745 = 
(
(long)(BgL_curz00_4045)<58L)
; }  else 
{ /* Llib/date.scm 948 */
BgL_test7386z00_18745 = ((bool_t)0)
; } 
if(BgL_test7386z00_18745)
{ /* Llib/date.scm 948 */
BgL_iportz00_4057 = BgL_iportz00_4036; 
BgL_lastzd2matchzd2_4058 = BgL_lastzd2matchzd2_4037; 
BgL_forwardz00_4059 = 
(1L+BgL_forwardz00_4038); 
BgL_bufposz00_4060 = BgL_bufposz00_4039; 
BgL_zc3z04anonymousza33068ze3z87_4061:
{ /* Llib/date.scm 948 */
 long BgL_newzd2matchzd2_4062;
RGC_STOP_MATCH(BgL_iportz00_4057, BgL_forwardz00_4059); 
BgL_newzd2matchzd2_4062 = 1L; 
if(
(BgL_forwardz00_4059==BgL_bufposz00_4060))
{ /* Llib/date.scm 948 */
if(
rgc_fill_buffer(BgL_iportz00_4057))
{ /* Llib/date.scm 948 */
 long BgL_arg3071z00_4065; long BgL_arg3073z00_4066;
BgL_arg3071z00_4065 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4057); 
BgL_arg3073z00_4066 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4057); 
{ 
 long BgL_bufposz00_18759; long BgL_forwardz00_18758;
BgL_forwardz00_18758 = BgL_arg3071z00_4065; 
BgL_bufposz00_18759 = BgL_arg3073z00_4066; 
BgL_bufposz00_4060 = BgL_bufposz00_18759; 
BgL_forwardz00_4059 = BgL_forwardz00_18758; 
goto BgL_zc3z04anonymousza33068ze3z87_4061;} }  else 
{ /* Llib/date.scm 948 */
BgL_matchz00_4225 = BgL_newzd2matchzd2_4062; } }  else 
{ /* Llib/date.scm 948 */
 int BgL_curz00_4067;
BgL_curz00_4067 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_4057, BgL_forwardz00_4059); 
{ /* Llib/date.scm 948 */

{ /* Llib/date.scm 948 */
 bool_t BgL_test7390z00_18761;
if(
(
(long)(BgL_curz00_4067)>=48L))
{ /* Llib/date.scm 948 */
BgL_test7390z00_18761 = 
(
(long)(BgL_curz00_4067)<58L)
; }  else 
{ /* Llib/date.scm 948 */
BgL_test7390z00_18761 = ((bool_t)0)
; } 
if(BgL_test7390z00_18761)
{ /* Llib/date.scm 948 */
BgL_iportz00_4072 = BgL_iportz00_4057; 
BgL_lastzd2matchzd2_4073 = BgL_newzd2matchzd2_4062; 
BgL_forwardz00_4074 = 
(1L+BgL_forwardz00_4059); 
BgL_bufposz00_4075 = BgL_bufposz00_4060; 
BgL_zc3z04anonymousza33077ze3z87_4076:
if(
(BgL_forwardz00_4074==BgL_bufposz00_4075))
{ /* Llib/date.scm 948 */
if(
rgc_fill_buffer(BgL_iportz00_4072))
{ /* Llib/date.scm 948 */
 long BgL_arg3080z00_4079; long BgL_arg3081z00_4080;
BgL_arg3080z00_4079 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4072); 
BgL_arg3081z00_4080 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4072); 
{ 
 long BgL_bufposz00_18774; long BgL_forwardz00_18773;
BgL_forwardz00_18773 = BgL_arg3080z00_4079; 
BgL_bufposz00_18774 = BgL_arg3081z00_4080; 
BgL_bufposz00_4075 = BgL_bufposz00_18774; 
BgL_forwardz00_4074 = BgL_forwardz00_18773; 
goto BgL_zc3z04anonymousza33077ze3z87_4076;} }  else 
{ /* Llib/date.scm 948 */
BgL_matchz00_4225 = BgL_lastzd2matchzd2_4073; } }  else 
{ /* Llib/date.scm 948 */
 int BgL_curz00_4081;
BgL_curz00_4081 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_4072, BgL_forwardz00_4074); 
{ /* Llib/date.scm 948 */

{ /* Llib/date.scm 948 */
 bool_t BgL_test7394z00_18776;
if(
(
(long)(BgL_curz00_4081)>=48L))
{ /* Llib/date.scm 948 */
BgL_test7394z00_18776 = 
(
(long)(BgL_curz00_4081)<58L)
; }  else 
{ /* Llib/date.scm 948 */
BgL_test7394z00_18776 = ((bool_t)0)
; } 
if(BgL_test7394z00_18776)
{ /* Llib/date.scm 948 */
BgL_iportz00_4086 = BgL_iportz00_4072; 
BgL_lastzd2matchzd2_4087 = BgL_lastzd2matchzd2_4073; 
BgL_forwardz00_4088 = 
(1L+BgL_forwardz00_4074); 
BgL_bufposz00_4089 = BgL_bufposz00_4075; 
BgL_zc3z04anonymousza33087ze3z87_4090:
if(
(BgL_forwardz00_4088==BgL_bufposz00_4089))
{ /* Llib/date.scm 948 */
if(
rgc_fill_buffer(BgL_iportz00_4086))
{ /* Llib/date.scm 948 */
 long BgL_arg3090z00_4093; long BgL_arg3091z00_4094;
BgL_arg3090z00_4093 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4086); 
BgL_arg3091z00_4094 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4086); 
{ 
 long BgL_bufposz00_18789; long BgL_forwardz00_18788;
BgL_forwardz00_18788 = BgL_arg3090z00_4093; 
BgL_bufposz00_18789 = BgL_arg3091z00_4094; 
BgL_bufposz00_4089 = BgL_bufposz00_18789; 
BgL_forwardz00_4088 = BgL_forwardz00_18788; 
goto BgL_zc3z04anonymousza33087ze3z87_4090;} }  else 
{ /* Llib/date.scm 948 */
BgL_matchz00_4225 = BgL_lastzd2matchzd2_4087; } }  else 
{ /* Llib/date.scm 948 */
 int BgL_curz00_4095;
BgL_curz00_4095 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_4086, BgL_forwardz00_4088); 
{ /* Llib/date.scm 948 */

{ /* Llib/date.scm 948 */
 bool_t BgL_test7398z00_18791;
if(
(
(long)(BgL_curz00_4095)>=48L))
{ /* Llib/date.scm 948 */
BgL_test7398z00_18791 = 
(
(long)(BgL_curz00_4095)<58L)
; }  else 
{ /* Llib/date.scm 948 */
BgL_test7398z00_18791 = ((bool_t)0)
; } 
if(BgL_test7398z00_18791)
{ /* Llib/date.scm 948 */
 long BgL_arg3096z00_4098;
BgL_arg3096z00_4098 = 
(1L+BgL_forwardz00_4088); 
{ /* Llib/date.scm 948 */
 long BgL_newzd2matchzd2_9391;
RGC_STOP_MATCH(BgL_iportz00_4086, BgL_arg3096z00_4098); 
BgL_newzd2matchzd2_9391 = 0L; 
BgL_matchz00_4225 = BgL_newzd2matchzd2_9391; } }  else 
{ /* Llib/date.scm 948 */
BgL_matchz00_4225 = BgL_lastzd2matchzd2_4087; } } } } }  else 
{ /* Llib/date.scm 948 */
BgL_matchz00_4225 = BgL_lastzd2matchzd2_4073; } } } } }  else 
{ /* Llib/date.scm 948 */
BgL_matchz00_4225 = BgL_newzd2matchzd2_4062; } } } } } }  else 
{ /* Llib/date.scm 948 */
 long BgL_arg3066z00_4049;
BgL_arg3066z00_4049 = 
(1L+BgL_forwardz00_4038); 
{ /* Llib/date.scm 948 */
 long BgL_newzd2matchzd2_9353;
RGC_STOP_MATCH(BgL_iportz00_4036, BgL_arg3066z00_4049); 
BgL_newzd2matchzd2_9353 = 1L; 
BgL_matchz00_4225 = BgL_newzd2matchzd2_9353; } } } } } } 
RGC_SET_FILEPOS(BgL_iportz00_3993); 
switch( BgL_matchz00_4225) { case 1L : 

{ /* Llib/date.scm 956 */
 obj_t BgL_auxz00_18805;
{ /* Llib/date.scm 948 */
 bool_t BgL_test7400z00_18806;
{ /* Llib/date.scm 948 */
 long BgL_arg3211z00_4215;
BgL_arg3211z00_4215 = 
RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_3993); 
BgL_test7400z00_18806 = 
(BgL_arg3211z00_4215==0L); } 
if(BgL_test7400z00_18806)
{ /* Llib/date.scm 948 */
BgL_auxz00_18805 = BEOF
; }  else 
{ /* Llib/date.scm 948 */
BgL_auxz00_18805 = 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_iportz00_3993))
; } } 
BgL_aux5829z00_10941 = 
BGl_parsezd2errorzd2zz__datez00(BGl_string6110z00zz__datez00, BGl_string5901z00zz__datez00, BgL_auxz00_18805, BgL_iportz00_3993); } break;case 0L : 

{ /* Llib/date.scm 950 */
 long BgL_b1z00_4230; long BgL_b2z00_4231; long BgL_b3z00_4232; long BgL_b4z00_4233;
{ /* Llib/date.scm 950 */
 int BgL_arg3222z00_4236;
{ /* Llib/date.scm 948 */
 int BgL_tmpz00_18812;
BgL_tmpz00_18812 = 
(int)(0L); 
BgL_arg3222z00_4236 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_3993, BgL_tmpz00_18812); } 
BgL_b1z00_4230 = 
(
(long)(BgL_arg3222z00_4236)-48L); } 
{ /* Llib/date.scm 951 */
 int BgL_arg3223z00_4237;
{ /* Llib/date.scm 948 */
 int BgL_tmpz00_18817;
BgL_tmpz00_18817 = 
(int)(1L); 
BgL_arg3223z00_4237 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_3993, BgL_tmpz00_18817); } 
BgL_b2z00_4231 = 
(
(long)(BgL_arg3223z00_4237)-48L); } 
{ /* Llib/date.scm 952 */
 int BgL_arg3224z00_4238;
{ /* Llib/date.scm 948 */
 int BgL_tmpz00_18822;
BgL_tmpz00_18822 = 
(int)(3L); 
BgL_arg3224z00_4238 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_3993, BgL_tmpz00_18822); } 
BgL_b3z00_4232 = 
(
(long)(BgL_arg3224z00_4238)-48L); } 
{ /* Llib/date.scm 953 */
 int BgL_arg3225z00_4239;
{ /* Llib/date.scm 948 */
 int BgL_tmpz00_18827;
BgL_tmpz00_18827 = 
(int)(4L); 
BgL_arg3225z00_4239 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_3993, BgL_tmpz00_18827); } 
BgL_b4z00_4233 = 
(
(long)(BgL_arg3225z00_4239)-48L); } 
BgL_iportz00_4277 = BgL_iportz00_3993; 
BgL_yyyyz00_4278 = 
rgc_buffer_fixnum(BgL_iportz00_3993); 
{ 
 obj_t BgL_iportz00_4320; long BgL_lastzd2matchzd2_4321; long BgL_forwardz00_4322; long BgL_bufposz00_4323; obj_t BgL_iportz00_4339; long BgL_lastzd2matchzd2_4340; long BgL_forwardz00_4341; long BgL_bufposz00_4342; obj_t BgL_iportz00_4354; long BgL_lastzd2matchzd2_4355; long BgL_forwardz00_4356; long BgL_bufposz00_4357;
if(
INPUT_PORT_CLOSEP(BgL_iportz00_4277))
{ /* Llib/date.scm 935 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg3229z00_4313;
{ /* Llib/date.scm 935 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1078z00_4314;
{ /* Llib/date.scm 935 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1077z00_4317;
BgL_new1077z00_4317 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Llib/date.scm 935 */
 long BgL_arg3235z00_4318;
BgL_arg3235z00_4318 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1077z00_4317), BgL_arg3235z00_4318); } 
BgL_new1078z00_4314 = BgL_new1077z00_4317; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_4314)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_4314)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_18842;
{ /* Llib/date.scm 935 */
 obj_t BgL_arg3233z00_4315;
{ /* Llib/date.scm 935 */
 obj_t BgL_arg3234z00_4316;
{ /* Llib/date.scm 935 */
 obj_t BgL_classz00_9339;
BgL_classz00_9339 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg3234z00_4316 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_9339); } 
BgL_arg3233z00_4315 = 
VECTOR_REF(BgL_arg3234z00_4316,2L); } 
{ /* Llib/date.scm 935 */
 obj_t BgL_auxz00_18846;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg3233z00_4315))
{ /* Llib/date.scm 935 */
BgL_auxz00_18846 = BgL_arg3233z00_4315
; }  else 
{ 
 obj_t BgL_auxz00_18849;
BgL_auxz00_18849 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(39676L), BGl_string6120z00zz__datez00, BGl_string5899z00zz__datez00, BgL_arg3233z00_4315); 
FAILURE(BgL_auxz00_18849,BFALSE,BFALSE);} 
BgL_auxz00_18842 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_18846); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_4314)))->BgL_stackz00)=((obj_t)BgL_auxz00_18842),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_4314)))->BgL_procz00)=((obj_t)BGl_string5882z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_4314)))->BgL_msgz00)=((obj_t)BGl_string5900z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_4314)))->BgL_objz00)=((obj_t)BgL_iportz00_4277),BUNSPEC); 
BgL_arg3229z00_4313 = BgL_new1078z00_4314; } 
BgL_aux5829z00_10941 = 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg3229z00_4313)); }  else 
{ /* Llib/date.scm 935 */
RGC_START_MATCH(BgL_iportz00_4277); 
{ /* Llib/date.scm 935 */
 long BgL_matchz00_4493;
{ /* Llib/date.scm 935 */
 long BgL_arg3387z00_4517; long BgL_arg3388z00_4518;
BgL_arg3387z00_4517 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4277); 
BgL_arg3388z00_4518 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4277); 
BgL_iportz00_4320 = BgL_iportz00_4277; 
BgL_lastzd2matchzd2_4321 = 1L; 
BgL_forwardz00_4322 = BgL_arg3387z00_4517; 
BgL_bufposz00_4323 = BgL_arg3388z00_4518; 
BgL_zc3z04anonymousza33237ze3z87_4324:
if(
(BgL_forwardz00_4322==BgL_bufposz00_4323))
{ /* Llib/date.scm 935 */
if(
rgc_fill_buffer(BgL_iportz00_4320))
{ /* Llib/date.scm 935 */
 long BgL_arg3240z00_4327; long BgL_arg3241z00_4328;
BgL_arg3240z00_4327 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4320); 
BgL_arg3241z00_4328 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4320); 
{ 
 long BgL_bufposz00_18873; long BgL_forwardz00_18872;
BgL_forwardz00_18872 = BgL_arg3240z00_4327; 
BgL_bufposz00_18873 = BgL_arg3241z00_4328; 
BgL_bufposz00_4323 = BgL_bufposz00_18873; 
BgL_forwardz00_4322 = BgL_forwardz00_18872; 
goto BgL_zc3z04anonymousza33237ze3z87_4324;} }  else 
{ /* Llib/date.scm 935 */
BgL_matchz00_4493 = BgL_lastzd2matchzd2_4321; } }  else 
{ /* Llib/date.scm 935 */
 int BgL_curz00_4329;
BgL_curz00_4329 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_4320, BgL_forwardz00_4322); 
{ /* Llib/date.scm 935 */

if(
(
(long)(BgL_curz00_4329)==45L))
{ /* Llib/date.scm 935 */
BgL_iportz00_4339 = BgL_iportz00_4320; 
BgL_lastzd2matchzd2_4340 = BgL_lastzd2matchzd2_4321; 
BgL_forwardz00_4341 = 
(1L+BgL_forwardz00_4322); 
BgL_bufposz00_4342 = BgL_bufposz00_4323; 
BgL_zc3z04anonymousza33248ze3z87_4343:
{ /* Llib/date.scm 935 */
 long BgL_newzd2matchzd2_4344;
RGC_STOP_MATCH(BgL_iportz00_4339, BgL_forwardz00_4341); 
BgL_newzd2matchzd2_4344 = 1L; 
if(
(BgL_forwardz00_4341==BgL_bufposz00_4342))
{ /* Llib/date.scm 935 */
if(
rgc_fill_buffer(BgL_iportz00_4339))
{ /* Llib/date.scm 935 */
 long BgL_arg3251z00_4347; long BgL_arg3252z00_4348;
BgL_arg3251z00_4347 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4339); 
BgL_arg3252z00_4348 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4339); 
{ 
 long BgL_bufposz00_18886; long BgL_forwardz00_18885;
BgL_forwardz00_18885 = BgL_arg3251z00_4347; 
BgL_bufposz00_18886 = BgL_arg3252z00_4348; 
BgL_bufposz00_4342 = BgL_bufposz00_18886; 
BgL_forwardz00_4341 = BgL_forwardz00_18885; 
goto BgL_zc3z04anonymousza33248ze3z87_4343;} }  else 
{ /* Llib/date.scm 935 */
BgL_matchz00_4493 = BgL_newzd2matchzd2_4344; } }  else 
{ /* Llib/date.scm 935 */
 int BgL_curz00_4349;
BgL_curz00_4349 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_4339, BgL_forwardz00_4341); 
{ /* Llib/date.scm 935 */

{ /* Llib/date.scm 935 */
 bool_t BgL_test7408z00_18888;
if(
(
(long)(BgL_curz00_4349)>=48L))
{ /* Llib/date.scm 935 */
BgL_test7408z00_18888 = 
(
(long)(BgL_curz00_4349)<58L)
; }  else 
{ /* Llib/date.scm 935 */
BgL_test7408z00_18888 = ((bool_t)0)
; } 
if(BgL_test7408z00_18888)
{ /* Llib/date.scm 935 */
BgL_iportz00_4354 = BgL_iportz00_4339; 
BgL_lastzd2matchzd2_4355 = BgL_newzd2matchzd2_4344; 
BgL_forwardz00_4356 = 
(1L+BgL_forwardz00_4341); 
BgL_bufposz00_4357 = BgL_bufposz00_4342; 
BgL_zc3z04anonymousza33258ze3z87_4358:
if(
(BgL_forwardz00_4356==BgL_bufposz00_4357))
{ /* Llib/date.scm 935 */
if(
rgc_fill_buffer(BgL_iportz00_4354))
{ /* Llib/date.scm 935 */
 long BgL_arg3261z00_4361; long BgL_arg3262z00_4362;
BgL_arg3261z00_4361 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4354); 
BgL_arg3262z00_4362 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4354); 
{ 
 long BgL_bufposz00_18901; long BgL_forwardz00_18900;
BgL_forwardz00_18900 = BgL_arg3261z00_4361; 
BgL_bufposz00_18901 = BgL_arg3262z00_4362; 
BgL_bufposz00_4357 = BgL_bufposz00_18901; 
BgL_forwardz00_4356 = BgL_forwardz00_18900; 
goto BgL_zc3z04anonymousza33258ze3z87_4358;} }  else 
{ /* Llib/date.scm 935 */
BgL_matchz00_4493 = BgL_lastzd2matchzd2_4355; } }  else 
{ /* Llib/date.scm 935 */
 int BgL_curz00_4363;
BgL_curz00_4363 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_4354, BgL_forwardz00_4356); 
{ /* Llib/date.scm 935 */

{ /* Llib/date.scm 935 */
 bool_t BgL_test7412z00_18903;
if(
(
(long)(BgL_curz00_4363)>=48L))
{ /* Llib/date.scm 935 */
BgL_test7412z00_18903 = 
(
(long)(BgL_curz00_4363)<58L)
; }  else 
{ /* Llib/date.scm 935 */
BgL_test7412z00_18903 = ((bool_t)0)
; } 
if(BgL_test7412z00_18903)
{ /* Llib/date.scm 935 */
 long BgL_arg3268z00_4366;
BgL_arg3268z00_4366 = 
(1L+BgL_forwardz00_4356); 
{ /* Llib/date.scm 935 */
 long BgL_newzd2matchzd2_9309;
RGC_STOP_MATCH(BgL_iportz00_4354, BgL_arg3268z00_4366); 
BgL_newzd2matchzd2_9309 = 0L; 
BgL_matchz00_4493 = BgL_newzd2matchzd2_9309; } }  else 
{ /* Llib/date.scm 935 */
BgL_matchz00_4493 = BgL_lastzd2matchzd2_4355; } } } } }  else 
{ /* Llib/date.scm 935 */
BgL_matchz00_4493 = BgL_newzd2matchzd2_4344; } } } } } }  else 
{ /* Llib/date.scm 935 */
 long BgL_arg3246z00_4332;
BgL_arg3246z00_4332 = 
(1L+BgL_forwardz00_4322); 
{ /* Llib/date.scm 935 */
 long BgL_newzd2matchzd2_9281;
RGC_STOP_MATCH(BgL_iportz00_4320, BgL_arg3246z00_4332); 
BgL_newzd2matchzd2_9281 = 1L; 
BgL_matchz00_4493 = BgL_newzd2matchzd2_9281; } } } } } 
RGC_SET_FILEPOS(BgL_iportz00_4277); 
switch( BgL_matchz00_4493) { case 1L : 

{ /* Llib/date.scm 942 */
 bool_t BgL_test7414z00_18916;
{ /* Llib/date.scm 942 */
 obj_t BgL_tmpz00_18917;
BgL_tmpz00_18917 = 
BGl_thezd2failureze77z35zz__datez00(BgL_iportz00_4277); 
BgL_test7414z00_18916 = 
EOF_OBJECTP(BgL_tmpz00_18917); } 
if(BgL_test7414z00_18916)
{ /* Llib/date.scm 942 */
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BFALSE))
{ /* Llib/date.scm 233 */
 long BgL_tmpz00_18922;
{ /* Llib/date.scm 943 */
 obj_t BgL_aux5824z00_10936;
BgL_aux5824z00_10936 = BFALSE; 
{ 
 obj_t BgL_auxz00_18929;
BgL_auxz00_18929 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(39894L), BGl_string5877z00zz__datez00, BGl_string6112z00zz__datez00, BgL_aux5824z00_10936); 
FAILURE(BgL_auxz00_18929,BFALSE,BFALSE);} } 
BgL_tmpz00_18922 = 0L; 
BgL_aux5829z00_10941 = 
bgl_make_date(((BGL_LONGLONG_T)0), 
(int)(0L), 
(int)(0L), 
(int)(1L), 
(int)(1L), 
(int)(1L), 
(int)(BgL_yyyyz00_4278), BgL_tmpz00_18922, ((bool_t)1), 
(int)((-1L))); }  else 
{ /* Llib/date.scm 232 */
BgL_aux5829z00_10941 = 
bgl_make_date(((BGL_LONGLONG_T)0), 
(int)(0L), 
(int)(0L), 
(int)(1L), 
(int)(1L), 
(int)(1L), 
(int)(BgL_yyyyz00_4278), 0L, ((bool_t)0), 
(int)((-1L))); } }  else 
{ /* Llib/date.scm 942 */
BgL_aux5829z00_10941 = 
BGl_parsezd2errorzd2zz__datez00(BGl_string6110z00zz__datez00, BGl_string5901z00zz__datez00, 
BGl_thezd2failureze77z35zz__datez00(BgL_iportz00_4277), BgL_iportz00_4277); } } break;case 0L : 

{ /* Llib/date.scm 937 */
 long BgL_b1z00_4510; long BgL_b2z00_4511;
{ /* Llib/date.scm 937 */
 int BgL_arg3384z00_4515;
{ /* Llib/date.scm 935 */
 int BgL_tmpz00_18945;
BgL_tmpz00_18945 = 
(int)(1L); 
BgL_arg3384z00_4515 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_4277, BgL_tmpz00_18945); } 
BgL_b1z00_4510 = 
(
(long)(BgL_arg3384z00_4515)-48L); } 
{ /* Llib/date.scm 938 */
 int BgL_arg3386z00_4516;
{ /* Llib/date.scm 935 */
 int BgL_tmpz00_18950;
BgL_tmpz00_18950 = 
(int)(2L); 
BgL_arg3386z00_4516 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_4277, BgL_tmpz00_18950); } 
BgL_b2z00_4511 = 
(
(long)(BgL_arg3386z00_4516)-48L); } 
BgL_iportz00_4553 = BgL_iportz00_4277; 
BgL_yyyyz00_4554 = BgL_yyyyz00_4278; 
BgL_mmz00_4555 = 
(
(BgL_b1z00_4510*10L)+BgL_b2z00_4511); 
{ 
 obj_t BgL_iportz00_4597; long BgL_lastzd2matchzd2_4598; long BgL_forwardz00_4599; long BgL_bufposz00_4600; obj_t BgL_iportz00_4616; long BgL_lastzd2matchzd2_4617; long BgL_forwardz00_4618; long BgL_bufposz00_4619; obj_t BgL_iportz00_4631; long BgL_lastzd2matchzd2_4632; long BgL_forwardz00_4633; long BgL_bufposz00_4634;
if(
INPUT_PORT_CLOSEP(BgL_iportz00_4553))
{ /* Llib/date.scm 921 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg3390z00_4590;
{ /* Llib/date.scm 921 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1078z00_4591;
{ /* Llib/date.scm 921 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1077z00_4594;
BgL_new1077z00_4594 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Llib/date.scm 921 */
 long BgL_arg3394z00_4595;
BgL_arg3394z00_4595 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1077z00_4594), BgL_arg3394z00_4595); } 
BgL_new1078z00_4591 = BgL_new1077z00_4594; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_4591)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_4591)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_18965;
{ /* Llib/date.scm 921 */
 obj_t BgL_arg3392z00_4592;
{ /* Llib/date.scm 921 */
 obj_t BgL_arg3393z00_4593;
{ /* Llib/date.scm 921 */
 obj_t BgL_classz00_9268;
BgL_classz00_9268 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg3393z00_4593 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_9268); } 
BgL_arg3392z00_4592 = 
VECTOR_REF(BgL_arg3393z00_4593,2L); } 
{ /* Llib/date.scm 921 */
 obj_t BgL_auxz00_18969;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg3392z00_4592))
{ /* Llib/date.scm 921 */
BgL_auxz00_18969 = BgL_arg3392z00_4592
; }  else 
{ 
 obj_t BgL_auxz00_18972;
BgL_auxz00_18972 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(39279L), BGl_string6119z00zz__datez00, BGl_string5899z00zz__datez00, BgL_arg3392z00_4592); 
FAILURE(BgL_auxz00_18972,BFALSE,BFALSE);} 
BgL_auxz00_18965 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_18969); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_4591)))->BgL_stackz00)=((obj_t)BgL_auxz00_18965),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_4591)))->BgL_procz00)=((obj_t)BGl_string5882z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_4591)))->BgL_msgz00)=((obj_t)BGl_string5900z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_4591)))->BgL_objz00)=((obj_t)BgL_iportz00_4553),BUNSPEC); 
BgL_arg3390z00_4590 = BgL_new1078z00_4591; } 
BgL_aux5829z00_10941 = 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg3390z00_4590)); }  else 
{ /* Llib/date.scm 921 */
RGC_START_MATCH(BgL_iportz00_4553); 
{ /* Llib/date.scm 921 */
 long BgL_matchz00_4770;
{ /* Llib/date.scm 921 */
 long BgL_arg3533z00_4794; long BgL_arg3534z00_4795;
BgL_arg3533z00_4794 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4553); 
BgL_arg3534z00_4795 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4553); 
BgL_iportz00_4597 = BgL_iportz00_4553; 
BgL_lastzd2matchzd2_4598 = 1L; 
BgL_forwardz00_4599 = BgL_arg3533z00_4794; 
BgL_bufposz00_4600 = BgL_arg3534z00_4795; 
BgL_zc3z04anonymousza33397ze3z87_4601:
if(
(BgL_forwardz00_4599==BgL_bufposz00_4600))
{ /* Llib/date.scm 921 */
if(
rgc_fill_buffer(BgL_iportz00_4597))
{ /* Llib/date.scm 921 */
 long BgL_arg3400z00_4604; long BgL_arg3401z00_4605;
BgL_arg3400z00_4604 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4597); 
BgL_arg3401z00_4605 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4597); 
{ 
 long BgL_bufposz00_18996; long BgL_forwardz00_18995;
BgL_forwardz00_18995 = BgL_arg3400z00_4604; 
BgL_bufposz00_18996 = BgL_arg3401z00_4605; 
BgL_bufposz00_4600 = BgL_bufposz00_18996; 
BgL_forwardz00_4599 = BgL_forwardz00_18995; 
goto BgL_zc3z04anonymousza33397ze3z87_4601;} }  else 
{ /* Llib/date.scm 921 */
BgL_matchz00_4770 = BgL_lastzd2matchzd2_4598; } }  else 
{ /* Llib/date.scm 921 */
 int BgL_curz00_4606;
BgL_curz00_4606 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_4597, BgL_forwardz00_4599); 
{ /* Llib/date.scm 921 */

if(
(
(long)(BgL_curz00_4606)==45L))
{ /* Llib/date.scm 921 */
BgL_iportz00_4616 = BgL_iportz00_4597; 
BgL_lastzd2matchzd2_4617 = BgL_lastzd2matchzd2_4598; 
BgL_forwardz00_4618 = 
(1L+BgL_forwardz00_4599); 
BgL_bufposz00_4619 = BgL_bufposz00_4600; 
BgL_zc3z04anonymousza33407ze3z87_4620:
{ /* Llib/date.scm 921 */
 long BgL_newzd2matchzd2_4621;
RGC_STOP_MATCH(BgL_iportz00_4616, BgL_forwardz00_4618); 
BgL_newzd2matchzd2_4621 = 1L; 
if(
(BgL_forwardz00_4618==BgL_bufposz00_4619))
{ /* Llib/date.scm 921 */
if(
rgc_fill_buffer(BgL_iportz00_4616))
{ /* Llib/date.scm 921 */
 long BgL_arg3410z00_4624; long BgL_arg3411z00_4625;
BgL_arg3410z00_4624 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4616); 
BgL_arg3411z00_4625 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4616); 
{ 
 long BgL_bufposz00_19009; long BgL_forwardz00_19008;
BgL_forwardz00_19008 = BgL_arg3410z00_4624; 
BgL_bufposz00_19009 = BgL_arg3411z00_4625; 
BgL_bufposz00_4619 = BgL_bufposz00_19009; 
BgL_forwardz00_4618 = BgL_forwardz00_19008; 
goto BgL_zc3z04anonymousza33407ze3z87_4620;} }  else 
{ /* Llib/date.scm 921 */
BgL_matchz00_4770 = BgL_newzd2matchzd2_4621; } }  else 
{ /* Llib/date.scm 921 */
 int BgL_curz00_4626;
BgL_curz00_4626 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_4616, BgL_forwardz00_4618); 
{ /* Llib/date.scm 921 */

{ /* Llib/date.scm 921 */
 bool_t BgL_test7423z00_19011;
if(
(
(long)(BgL_curz00_4626)>=48L))
{ /* Llib/date.scm 921 */
BgL_test7423z00_19011 = 
(
(long)(BgL_curz00_4626)<58L)
; }  else 
{ /* Llib/date.scm 921 */
BgL_test7423z00_19011 = ((bool_t)0)
; } 
if(BgL_test7423z00_19011)
{ /* Llib/date.scm 921 */
BgL_iportz00_4631 = BgL_iportz00_4616; 
BgL_lastzd2matchzd2_4632 = BgL_newzd2matchzd2_4621; 
BgL_forwardz00_4633 = 
(1L+BgL_forwardz00_4618); 
BgL_bufposz00_4634 = BgL_bufposz00_4619; 
BgL_zc3z04anonymousza33416ze3z87_4635:
if(
(BgL_forwardz00_4633==BgL_bufposz00_4634))
{ /* Llib/date.scm 921 */
if(
rgc_fill_buffer(BgL_iportz00_4631))
{ /* Llib/date.scm 921 */
 long BgL_arg3419z00_4638; long BgL_arg3420z00_4639;
BgL_arg3419z00_4638 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4631); 
BgL_arg3420z00_4639 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4631); 
{ 
 long BgL_bufposz00_19024; long BgL_forwardz00_19023;
BgL_forwardz00_19023 = BgL_arg3419z00_4638; 
BgL_bufposz00_19024 = BgL_arg3420z00_4639; 
BgL_bufposz00_4634 = BgL_bufposz00_19024; 
BgL_forwardz00_4633 = BgL_forwardz00_19023; 
goto BgL_zc3z04anonymousza33416ze3z87_4635;} }  else 
{ /* Llib/date.scm 921 */
BgL_matchz00_4770 = BgL_lastzd2matchzd2_4632; } }  else 
{ /* Llib/date.scm 921 */
 int BgL_curz00_4640;
BgL_curz00_4640 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_4631, BgL_forwardz00_4633); 
{ /* Llib/date.scm 921 */

{ /* Llib/date.scm 921 */
 bool_t BgL_test7427z00_19026;
if(
(
(long)(BgL_curz00_4640)>=48L))
{ /* Llib/date.scm 921 */
BgL_test7427z00_19026 = 
(
(long)(BgL_curz00_4640)<58L)
; }  else 
{ /* Llib/date.scm 921 */
BgL_test7427z00_19026 = ((bool_t)0)
; } 
if(BgL_test7427z00_19026)
{ /* Llib/date.scm 921 */
 long BgL_arg3423z00_4643;
BgL_arg3423z00_4643 = 
(1L+BgL_forwardz00_4633); 
{ /* Llib/date.scm 921 */
 long BgL_newzd2matchzd2_9238;
RGC_STOP_MATCH(BgL_iportz00_4631, BgL_arg3423z00_4643); 
BgL_newzd2matchzd2_9238 = 0L; 
BgL_matchz00_4770 = BgL_newzd2matchzd2_9238; } }  else 
{ /* Llib/date.scm 921 */
BgL_matchz00_4770 = BgL_lastzd2matchzd2_4632; } } } } }  else 
{ /* Llib/date.scm 921 */
BgL_matchz00_4770 = BgL_newzd2matchzd2_4621; } } } } } }  else 
{ /* Llib/date.scm 921 */
 long BgL_arg3405z00_4609;
BgL_arg3405z00_4609 = 
(1L+BgL_forwardz00_4599); 
{ /* Llib/date.scm 921 */
 long BgL_newzd2matchzd2_9210;
RGC_STOP_MATCH(BgL_iportz00_4597, BgL_arg3405z00_4609); 
BgL_newzd2matchzd2_9210 = 1L; 
BgL_matchz00_4770 = BgL_newzd2matchzd2_9210; } } } } } 
RGC_SET_FILEPOS(BgL_iportz00_4553); 
switch( BgL_matchz00_4770) { case 1L : 

{ /* Llib/date.scm 928 */
 bool_t BgL_test7429z00_19039;
{ /* Llib/date.scm 928 */
 obj_t BgL_tmpz00_19040;
BgL_tmpz00_19040 = 
BGl_thezd2failureze76z35zz__datez00(BgL_iportz00_4553); 
BgL_test7429z00_19039 = 
EOF_OBJECTP(BgL_tmpz00_19040); } 
if(BgL_test7429z00_19039)
{ /* Llib/date.scm 928 */
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BFALSE))
{ /* Llib/date.scm 233 */
 long BgL_tmpz00_19045;
{ /* Llib/date.scm 929 */
 obj_t BgL_aux5821z00_10933;
BgL_aux5821z00_10933 = BFALSE; 
{ 
 obj_t BgL_auxz00_19052;
BgL_auxz00_19052 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(39503L), BGl_string5877z00zz__datez00, BGl_string6112z00zz__datez00, BgL_aux5821z00_10933); 
FAILURE(BgL_auxz00_19052,BFALSE,BFALSE);} } 
BgL_tmpz00_19045 = 0L; 
BgL_aux5829z00_10941 = 
bgl_make_date(((BGL_LONGLONG_T)0), 
(int)(0L), 
(int)(0L), 
(int)(1L), 
(int)(1L), 
(int)(BgL_mmz00_4555), 
(int)(BgL_yyyyz00_4554), BgL_tmpz00_19045, ((bool_t)1), 
(int)((-1L))); }  else 
{ /* Llib/date.scm 232 */
BgL_aux5829z00_10941 = 
bgl_make_date(((BGL_LONGLONG_T)0), 
(int)(0L), 
(int)(0L), 
(int)(1L), 
(int)(1L), 
(int)(BgL_mmz00_4555), 
(int)(BgL_yyyyz00_4554), 0L, ((bool_t)0), 
(int)((-1L))); } }  else 
{ /* Llib/date.scm 928 */
BgL_aux5829z00_10941 = 
BGl_parsezd2errorzd2zz__datez00(BGl_string6110z00zz__datez00, BGl_string5901z00zz__datez00, 
BGl_thezd2failureze76z35zz__datez00(BgL_iportz00_4553), BgL_iportz00_4553); } } break;case 0L : 

{ /* Llib/date.scm 923 */
 long BgL_b1z00_4787; long BgL_b2z00_4788;
{ /* Llib/date.scm 923 */
 int BgL_arg3531z00_4792;
{ /* Llib/date.scm 921 */
 int BgL_tmpz00_19068;
BgL_tmpz00_19068 = 
(int)(1L); 
BgL_arg3531z00_4792 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_4553, BgL_tmpz00_19068); } 
BgL_b1z00_4787 = 
(
(long)(BgL_arg3531z00_4792)-48L); } 
{ /* Llib/date.scm 924 */
 int BgL_arg3532z00_4793;
{ /* Llib/date.scm 921 */
 int BgL_tmpz00_19073;
BgL_tmpz00_19073 = 
(int)(2L); 
BgL_arg3532z00_4793 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_4553, BgL_tmpz00_19073); } 
BgL_b2z00_4788 = 
(
(long)(BgL_arg3532z00_4793)-48L); } 
BgL_iportz00_4830 = BgL_iportz00_4553; 
BgL_yyyyz00_4831 = BgL_yyyyz00_4554; 
BgL_mmz00_4832 = BgL_mmz00_4555; 
BgL_ddz00_4833 = 
(
(BgL_b1z00_4787*10L)+BgL_b2z00_4788); 
{ 
 obj_t BgL_iportz00_4875; long BgL_lastzd2matchzd2_4876; long BgL_forwardz00_4877; long BgL_bufposz00_4878; obj_t BgL_iportz00_4896; long BgL_lastzd2matchzd2_4897; long BgL_forwardz00_4898; long BgL_bufposz00_4899; obj_t BgL_iportz00_4911; long BgL_lastzd2matchzd2_4912; long BgL_forwardz00_4913; long BgL_bufposz00_4914;
if(
INPUT_PORT_CLOSEP(BgL_iportz00_4830))
{ /* Llib/date.scm 906 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg3537z00_4868;
{ /* Llib/date.scm 906 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1078z00_4869;
{ /* Llib/date.scm 906 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1077z00_4872;
BgL_new1077z00_4872 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Llib/date.scm 906 */
 long BgL_arg3540z00_4873;
BgL_arg3540z00_4873 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1077z00_4872), BgL_arg3540z00_4873); } 
BgL_new1078z00_4869 = BgL_new1077z00_4872; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_4869)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_4869)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_19088;
{ /* Llib/date.scm 906 */
 obj_t BgL_arg3538z00_4870;
{ /* Llib/date.scm 906 */
 obj_t BgL_arg3539z00_4871;
{ /* Llib/date.scm 906 */
 obj_t BgL_classz00_9197;
BgL_classz00_9197 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg3539z00_4871 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_9197); } 
BgL_arg3538z00_4870 = 
VECTOR_REF(BgL_arg3539z00_4871,2L); } 
{ /* Llib/date.scm 906 */
 obj_t BgL_auxz00_19092;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg3538z00_4870))
{ /* Llib/date.scm 906 */
BgL_auxz00_19092 = BgL_arg3538z00_4870
; }  else 
{ 
 obj_t BgL_auxz00_19095;
BgL_auxz00_19095 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(38800L), BGl_string6118z00zz__datez00, BGl_string5899z00zz__datez00, BgL_arg3538z00_4870); 
FAILURE(BgL_auxz00_19095,BFALSE,BFALSE);} 
BgL_auxz00_19088 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_19092); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_4869)))->BgL_stackz00)=((obj_t)BgL_auxz00_19088),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_4869)))->BgL_procz00)=((obj_t)BGl_string5882z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_4869)))->BgL_msgz00)=((obj_t)BGl_string5900z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_4869)))->BgL_objz00)=((obj_t)BgL_iportz00_4830),BUNSPEC); 
BgL_arg3537z00_4868 = BgL_new1078z00_4869; } 
BgL_aux5829z00_10941 = 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg3537z00_4868)); }  else 
{ /* Llib/date.scm 906 */
RGC_START_MATCH(BgL_iportz00_4830); 
{ /* Llib/date.scm 906 */
 long BgL_matchz00_5050;
{ /* Llib/date.scm 906 */
 long BgL_arg3676z00_5074; long BgL_arg3677z00_5075;
BgL_arg3676z00_5074 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4830); 
BgL_arg3677z00_5075 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4830); 
BgL_iportz00_4875 = BgL_iportz00_4830; 
BgL_lastzd2matchzd2_4876 = 1L; 
BgL_forwardz00_4877 = BgL_arg3676z00_5074; 
BgL_bufposz00_4878 = BgL_arg3677z00_5075; 
BgL_zc3z04anonymousza33543ze3z87_4879:
if(
(BgL_forwardz00_4877==BgL_bufposz00_4878))
{ /* Llib/date.scm 906 */
if(
rgc_fill_buffer(BgL_iportz00_4875))
{ /* Llib/date.scm 906 */
 long BgL_arg3546z00_4882; long BgL_arg3548z00_4883;
BgL_arg3546z00_4882 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4875); 
BgL_arg3548z00_4883 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4875); 
{ 
 long BgL_bufposz00_19119; long BgL_forwardz00_19118;
BgL_forwardz00_19118 = BgL_arg3546z00_4882; 
BgL_bufposz00_19119 = BgL_arg3548z00_4883; 
BgL_bufposz00_4878 = BgL_bufposz00_19119; 
BgL_forwardz00_4877 = BgL_forwardz00_19118; 
goto BgL_zc3z04anonymousza33543ze3z87_4879;} }  else 
{ /* Llib/date.scm 906 */
BgL_matchz00_5050 = BgL_lastzd2matchzd2_4876; } }  else 
{ /* Llib/date.scm 906 */
 int BgL_curz00_4884;
BgL_curz00_4884 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_4875, BgL_forwardz00_4877); 
{ /* Llib/date.scm 906 */

{ /* Llib/date.scm 906 */
 bool_t BgL_test7435z00_19121;
if(
(
(long)(BgL_curz00_4884)==32L))
{ /* Llib/date.scm 906 */
BgL_test7435z00_19121 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 906 */
BgL_test7435z00_19121 = 
(
(long)(BgL_curz00_4884)==84L)
; } 
if(BgL_test7435z00_19121)
{ /* Llib/date.scm 906 */
BgL_iportz00_4896 = BgL_iportz00_4875; 
BgL_lastzd2matchzd2_4897 = BgL_lastzd2matchzd2_4876; 
BgL_forwardz00_4898 = 
(1L+BgL_forwardz00_4877); 
BgL_bufposz00_4899 = BgL_bufposz00_4878; 
BgL_zc3z04anonymousza33555ze3z87_4900:
{ /* Llib/date.scm 906 */
 long BgL_newzd2matchzd2_4901;
RGC_STOP_MATCH(BgL_iportz00_4896, BgL_forwardz00_4898); 
BgL_newzd2matchzd2_4901 = 1L; 
if(
(BgL_forwardz00_4898==BgL_bufposz00_4899))
{ /* Llib/date.scm 906 */
if(
rgc_fill_buffer(BgL_iportz00_4896))
{ /* Llib/date.scm 906 */
 long BgL_arg3558z00_4904; long BgL_arg3560z00_4905;
BgL_arg3558z00_4904 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4896); 
BgL_arg3560z00_4905 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4896); 
{ 
 long BgL_bufposz00_19135; long BgL_forwardz00_19134;
BgL_forwardz00_19134 = BgL_arg3558z00_4904; 
BgL_bufposz00_19135 = BgL_arg3560z00_4905; 
BgL_bufposz00_4899 = BgL_bufposz00_19135; 
BgL_forwardz00_4898 = BgL_forwardz00_19134; 
goto BgL_zc3z04anonymousza33555ze3z87_4900;} }  else 
{ /* Llib/date.scm 906 */
BgL_matchz00_5050 = BgL_newzd2matchzd2_4901; } }  else 
{ /* Llib/date.scm 906 */
 int BgL_curz00_4906;
BgL_curz00_4906 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_4896, BgL_forwardz00_4898); 
{ /* Llib/date.scm 906 */

{ /* Llib/date.scm 906 */
 bool_t BgL_test7439z00_19137;
if(
(
(long)(BgL_curz00_4906)>=48L))
{ /* Llib/date.scm 906 */
BgL_test7439z00_19137 = 
(
(long)(BgL_curz00_4906)<58L)
; }  else 
{ /* Llib/date.scm 906 */
BgL_test7439z00_19137 = ((bool_t)0)
; } 
if(BgL_test7439z00_19137)
{ /* Llib/date.scm 906 */
BgL_iportz00_4911 = BgL_iportz00_4896; 
BgL_lastzd2matchzd2_4912 = BgL_newzd2matchzd2_4901; 
BgL_forwardz00_4913 = 
(1L+BgL_forwardz00_4898); 
BgL_bufposz00_4914 = BgL_bufposz00_4899; 
BgL_zc3z04anonymousza33564ze3z87_4915:
if(
(BgL_forwardz00_4913==BgL_bufposz00_4914))
{ /* Llib/date.scm 906 */
if(
rgc_fill_buffer(BgL_iportz00_4911))
{ /* Llib/date.scm 906 */
 long BgL_arg3567z00_4918; long BgL_arg3568z00_4919;
BgL_arg3567z00_4918 = 
RGC_BUFFER_FORWARD(BgL_iportz00_4911); 
BgL_arg3568z00_4919 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_4911); 
{ 
 long BgL_bufposz00_19150; long BgL_forwardz00_19149;
BgL_forwardz00_19149 = BgL_arg3567z00_4918; 
BgL_bufposz00_19150 = BgL_arg3568z00_4919; 
BgL_bufposz00_4914 = BgL_bufposz00_19150; 
BgL_forwardz00_4913 = BgL_forwardz00_19149; 
goto BgL_zc3z04anonymousza33564ze3z87_4915;} }  else 
{ /* Llib/date.scm 906 */
BgL_matchz00_5050 = BgL_lastzd2matchzd2_4912; } }  else 
{ /* Llib/date.scm 906 */
 int BgL_curz00_4920;
BgL_curz00_4920 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_4911, BgL_forwardz00_4913); 
{ /* Llib/date.scm 906 */

{ /* Llib/date.scm 906 */
 bool_t BgL_test7443z00_19152;
if(
(
(long)(BgL_curz00_4920)>=48L))
{ /* Llib/date.scm 906 */
BgL_test7443z00_19152 = 
(
(long)(BgL_curz00_4920)<58L)
; }  else 
{ /* Llib/date.scm 906 */
BgL_test7443z00_19152 = ((bool_t)0)
; } 
if(BgL_test7443z00_19152)
{ /* Llib/date.scm 906 */
 long BgL_arg3571z00_4923;
BgL_arg3571z00_4923 = 
(1L+BgL_forwardz00_4913); 
{ /* Llib/date.scm 906 */
 long BgL_newzd2matchzd2_9167;
RGC_STOP_MATCH(BgL_iportz00_4911, BgL_arg3571z00_4923); 
BgL_newzd2matchzd2_9167 = 0L; 
BgL_matchz00_5050 = BgL_newzd2matchzd2_9167; } }  else 
{ /* Llib/date.scm 906 */
BgL_matchz00_5050 = BgL_lastzd2matchzd2_4912; } } } } }  else 
{ /* Llib/date.scm 906 */
BgL_matchz00_5050 = BgL_newzd2matchzd2_4901; } } } } } }  else 
{ /* Llib/date.scm 906 */
 long BgL_arg3553z00_4888;
BgL_arg3553z00_4888 = 
(1L+BgL_forwardz00_4877); 
{ /* Llib/date.scm 906 */
 long BgL_newzd2matchzd2_9139;
RGC_STOP_MATCH(BgL_iportz00_4875, BgL_arg3553z00_4888); 
BgL_newzd2matchzd2_9139 = 1L; 
BgL_matchz00_5050 = BgL_newzd2matchzd2_9139; } } } } } } 
RGC_SET_FILEPOS(BgL_iportz00_4830); 
switch( BgL_matchz00_5050) { case 1L : 

{ /* Llib/date.scm 914 */
 bool_t BgL_test7445z00_19165;
{ /* Llib/date.scm 914 */
 obj_t BgL_tmpz00_19166;
BgL_tmpz00_19166 = 
BGl_thezd2failureze75z35zz__datez00(BgL_iportz00_4830); 
BgL_test7445z00_19165 = 
EOF_OBJECTP(BgL_tmpz00_19166); } 
if(BgL_test7445z00_19165)
{ /* Llib/date.scm 914 */
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BFALSE))
{ /* Llib/date.scm 233 */
 long BgL_tmpz00_19171;
{ /* Llib/date.scm 915 */
 obj_t BgL_aux5818z00_10930;
BgL_aux5818z00_10930 = BFALSE; 
{ 
 obj_t BgL_auxz00_19178;
BgL_auxz00_19178 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(39101L), BGl_string5877z00zz__datez00, BGl_string6112z00zz__datez00, BgL_aux5818z00_10930); 
FAILURE(BgL_auxz00_19178,BFALSE,BFALSE);} } 
BgL_tmpz00_19171 = 0L; 
BgL_aux5829z00_10941 = 
bgl_make_date(((BGL_LONGLONG_T)0), 
(int)(0L), 
(int)(0L), 
(int)(1L), 
(int)(BgL_ddz00_4833), 
(int)(BgL_mmz00_4832), 
(int)(BgL_yyyyz00_4831), BgL_tmpz00_19171, ((bool_t)1), 
(int)((-1L))); }  else 
{ /* Llib/date.scm 232 */
BgL_aux5829z00_10941 = 
bgl_make_date(((BGL_LONGLONG_T)0), 
(int)(0L), 
(int)(0L), 
(int)(1L), 
(int)(BgL_ddz00_4833), 
(int)(BgL_mmz00_4832), 
(int)(BgL_yyyyz00_4831), 0L, ((bool_t)0), 
(int)((-1L))); } }  else 
{ /* Llib/date.scm 914 */
BgL_aux5829z00_10941 = 
BGl_parsezd2errorzd2zz__datez00(BGl_string6110z00zz__datez00, BGl_string5901z00zz__datez00, 
BGl_thezd2failureze75z35zz__datez00(BgL_iportz00_4830), BgL_iportz00_4830); } } break;case 0L : 

{ /* Llib/date.scm 909 */
 long BgL_b1z00_5067; long BgL_b2z00_5068;
{ /* Llib/date.scm 909 */
 int BgL_arg3674z00_5072;
{ /* Llib/date.scm 906 */
 int BgL_tmpz00_19194;
BgL_tmpz00_19194 = 
(int)(1L); 
BgL_arg3674z00_5072 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_4830, BgL_tmpz00_19194); } 
BgL_b1z00_5067 = 
(
(long)(BgL_arg3674z00_5072)-48L); } 
{ /* Llib/date.scm 910 */
 int BgL_arg3675z00_5073;
{ /* Llib/date.scm 906 */
 int BgL_tmpz00_19199;
BgL_tmpz00_19199 = 
(int)(2L); 
BgL_arg3675z00_5073 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_4830, BgL_tmpz00_19199); } 
BgL_b2z00_5068 = 
(
(long)(BgL_arg3675z00_5073)-48L); } 
BgL_iportz00_5110 = BgL_iportz00_4830; 
BgL_yyyyz00_5111 = BgL_yyyyz00_4831; 
BgL_mmz00_5112 = BgL_mmz00_4832; 
BgL_ddz00_5113 = BgL_ddz00_4833; 
BgL_hhz00_5114 = 
(
(BgL_b1z00_5067*10L)+BgL_b2z00_5068); 
{ 
 obj_t BgL_iportz00_5156; long BgL_lastzd2matchzd2_5157; long BgL_forwardz00_5158; long BgL_bufposz00_5159; obj_t BgL_iportz00_5175; long BgL_lastzd2matchzd2_5176; long BgL_forwardz00_5177; long BgL_bufposz00_5178; obj_t BgL_iportz00_5190; long BgL_lastzd2matchzd2_5191; long BgL_forwardz00_5192; long BgL_bufposz00_5193;
if(
INPUT_PORT_CLOSEP(BgL_iportz00_5110))
{ /* Llib/date.scm 892 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg3679z00_5149;
{ /* Llib/date.scm 892 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1078z00_5150;
{ /* Llib/date.scm 892 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1077z00_5153;
BgL_new1077z00_5153 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Llib/date.scm 892 */
 long BgL_arg3682z00_5154;
BgL_arg3682z00_5154 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1077z00_5153), BgL_arg3682z00_5154); } 
BgL_new1078z00_5150 = BgL_new1077z00_5153; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_5150)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_5150)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_19214;
{ /* Llib/date.scm 892 */
 obj_t BgL_arg3680z00_5151;
{ /* Llib/date.scm 892 */
 obj_t BgL_arg3681z00_5152;
{ /* Llib/date.scm 892 */
 obj_t BgL_classz00_9125;
BgL_classz00_9125 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg3681z00_5152 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_9125); } 
BgL_arg3680z00_5151 = 
VECTOR_REF(BgL_arg3681z00_5152,2L); } 
{ /* Llib/date.scm 892 */
 obj_t BgL_auxz00_19218;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg3680z00_5151))
{ /* Llib/date.scm 892 */
BgL_auxz00_19218 = BgL_arg3680z00_5151
; }  else 
{ 
 obj_t BgL_auxz00_19221;
BgL_auxz00_19221 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(38381L), BGl_string6117z00zz__datez00, BGl_string5899z00zz__datez00, BgL_arg3680z00_5151); 
FAILURE(BgL_auxz00_19221,BFALSE,BFALSE);} 
BgL_auxz00_19214 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_19218); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_5150)))->BgL_stackz00)=((obj_t)BgL_auxz00_19214),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_5150)))->BgL_procz00)=((obj_t)BGl_string5882z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_5150)))->BgL_msgz00)=((obj_t)BGl_string5900z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_5150)))->BgL_objz00)=((obj_t)BgL_iportz00_5110),BUNSPEC); 
BgL_arg3679z00_5149 = BgL_new1078z00_5150; } 
BgL_aux5829z00_10941 = 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg3679z00_5149)); }  else 
{ /* Llib/date.scm 892 */
RGC_START_MATCH(BgL_iportz00_5110); 
{ /* Llib/date.scm 892 */
 long BgL_matchz00_5329;
{ /* Llib/date.scm 892 */
 long BgL_arg3807z00_5353; long BgL_arg3808z00_5354;
BgL_arg3807z00_5353 = 
RGC_BUFFER_FORWARD(BgL_iportz00_5110); 
BgL_arg3808z00_5354 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_5110); 
BgL_iportz00_5156 = BgL_iportz00_5110; 
BgL_lastzd2matchzd2_5157 = 1L; 
BgL_forwardz00_5158 = BgL_arg3807z00_5353; 
BgL_bufposz00_5159 = BgL_arg3808z00_5354; 
BgL_zc3z04anonymousza33684ze3z87_5160:
if(
(BgL_forwardz00_5158==BgL_bufposz00_5159))
{ /* Llib/date.scm 892 */
if(
rgc_fill_buffer(BgL_iportz00_5156))
{ /* Llib/date.scm 892 */
 long BgL_arg3687z00_5163; long BgL_arg3688z00_5164;
BgL_arg3687z00_5163 = 
RGC_BUFFER_FORWARD(BgL_iportz00_5156); 
BgL_arg3688z00_5164 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_5156); 
{ 
 long BgL_bufposz00_19245; long BgL_forwardz00_19244;
BgL_forwardz00_19244 = BgL_arg3687z00_5163; 
BgL_bufposz00_19245 = BgL_arg3688z00_5164; 
BgL_bufposz00_5159 = BgL_bufposz00_19245; 
BgL_forwardz00_5158 = BgL_forwardz00_19244; 
goto BgL_zc3z04anonymousza33684ze3z87_5160;} }  else 
{ /* Llib/date.scm 892 */
BgL_matchz00_5329 = BgL_lastzd2matchzd2_5157; } }  else 
{ /* Llib/date.scm 892 */
 int BgL_curz00_5165;
BgL_curz00_5165 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_5156, BgL_forwardz00_5158); 
{ /* Llib/date.scm 892 */

if(
(
(long)(BgL_curz00_5165)==58L))
{ /* Llib/date.scm 892 */
BgL_iportz00_5175 = BgL_iportz00_5156; 
BgL_lastzd2matchzd2_5176 = BgL_lastzd2matchzd2_5157; 
BgL_forwardz00_5177 = 
(1L+BgL_forwardz00_5158); 
BgL_bufposz00_5178 = BgL_bufposz00_5159; 
BgL_zc3z04anonymousza33693ze3z87_5179:
{ /* Llib/date.scm 892 */
 long BgL_newzd2matchzd2_5180;
RGC_STOP_MATCH(BgL_iportz00_5175, BgL_forwardz00_5177); 
BgL_newzd2matchzd2_5180 = 1L; 
if(
(BgL_forwardz00_5177==BgL_bufposz00_5178))
{ /* Llib/date.scm 892 */
if(
rgc_fill_buffer(BgL_iportz00_5175))
{ /* Llib/date.scm 892 */
 long BgL_arg3696z00_5183; long BgL_arg3697z00_5184;
BgL_arg3696z00_5183 = 
RGC_BUFFER_FORWARD(BgL_iportz00_5175); 
BgL_arg3697z00_5184 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_5175); 
{ 
 long BgL_bufposz00_19258; long BgL_forwardz00_19257;
BgL_forwardz00_19257 = BgL_arg3696z00_5183; 
BgL_bufposz00_19258 = BgL_arg3697z00_5184; 
BgL_bufposz00_5178 = BgL_bufposz00_19258; 
BgL_forwardz00_5177 = BgL_forwardz00_19257; 
goto BgL_zc3z04anonymousza33693ze3z87_5179;} }  else 
{ /* Llib/date.scm 892 */
BgL_matchz00_5329 = BgL_newzd2matchzd2_5180; } }  else 
{ /* Llib/date.scm 892 */
 int BgL_curz00_5185;
BgL_curz00_5185 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_5175, BgL_forwardz00_5177); 
{ /* Llib/date.scm 892 */

{ /* Llib/date.scm 892 */
 bool_t BgL_test7454z00_19260;
if(
(
(long)(BgL_curz00_5185)>=48L))
{ /* Llib/date.scm 892 */
BgL_test7454z00_19260 = 
(
(long)(BgL_curz00_5185)<58L)
; }  else 
{ /* Llib/date.scm 892 */
BgL_test7454z00_19260 = ((bool_t)0)
; } 
if(BgL_test7454z00_19260)
{ /* Llib/date.scm 892 */
BgL_iportz00_5190 = BgL_iportz00_5175; 
BgL_lastzd2matchzd2_5191 = BgL_newzd2matchzd2_5180; 
BgL_forwardz00_5192 = 
(1L+BgL_forwardz00_5177); 
BgL_bufposz00_5193 = BgL_bufposz00_5178; 
BgL_zc3z04anonymousza33701ze3z87_5194:
if(
(BgL_forwardz00_5192==BgL_bufposz00_5193))
{ /* Llib/date.scm 892 */
if(
rgc_fill_buffer(BgL_iportz00_5190))
{ /* Llib/date.scm 892 */
 long BgL_arg3704z00_5197; long BgL_arg3705z00_5198;
BgL_arg3704z00_5197 = 
RGC_BUFFER_FORWARD(BgL_iportz00_5190); 
BgL_arg3705z00_5198 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_5190); 
{ 
 long BgL_bufposz00_19273; long BgL_forwardz00_19272;
BgL_forwardz00_19272 = BgL_arg3704z00_5197; 
BgL_bufposz00_19273 = BgL_arg3705z00_5198; 
BgL_bufposz00_5193 = BgL_bufposz00_19273; 
BgL_forwardz00_5192 = BgL_forwardz00_19272; 
goto BgL_zc3z04anonymousza33701ze3z87_5194;} }  else 
{ /* Llib/date.scm 892 */
BgL_matchz00_5329 = BgL_lastzd2matchzd2_5191; } }  else 
{ /* Llib/date.scm 892 */
 int BgL_curz00_5199;
BgL_curz00_5199 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_5190, BgL_forwardz00_5192); 
{ /* Llib/date.scm 892 */

{ /* Llib/date.scm 892 */
 bool_t BgL_test7458z00_19275;
if(
(
(long)(BgL_curz00_5199)>=48L))
{ /* Llib/date.scm 892 */
BgL_test7458z00_19275 = 
(
(long)(BgL_curz00_5199)<58L)
; }  else 
{ /* Llib/date.scm 892 */
BgL_test7458z00_19275 = ((bool_t)0)
; } 
if(BgL_test7458z00_19275)
{ /* Llib/date.scm 892 */
 long BgL_arg3708z00_5202;
BgL_arg3708z00_5202 = 
(1L+BgL_forwardz00_5192); 
{ /* Llib/date.scm 892 */
 long BgL_newzd2matchzd2_9095;
RGC_STOP_MATCH(BgL_iportz00_5190, BgL_arg3708z00_5202); 
BgL_newzd2matchzd2_9095 = 0L; 
BgL_matchz00_5329 = BgL_newzd2matchzd2_9095; } }  else 
{ /* Llib/date.scm 892 */
BgL_matchz00_5329 = BgL_lastzd2matchzd2_5191; } } } } }  else 
{ /* Llib/date.scm 892 */
BgL_matchz00_5329 = BgL_newzd2matchzd2_5180; } } } } } }  else 
{ /* Llib/date.scm 892 */
 long BgL_arg3691z00_5168;
BgL_arg3691z00_5168 = 
(1L+BgL_forwardz00_5158); 
{ /* Llib/date.scm 892 */
 long BgL_newzd2matchzd2_9067;
RGC_STOP_MATCH(BgL_iportz00_5156, BgL_arg3691z00_5168); 
BgL_newzd2matchzd2_9067 = 1L; 
BgL_matchz00_5329 = BgL_newzd2matchzd2_9067; } } } } } 
RGC_SET_FILEPOS(BgL_iportz00_5110); 
switch( BgL_matchz00_5329) { case 1L : 

{ /* Llib/date.scm 899 */
 bool_t BgL_test7460z00_19288;
{ /* Llib/date.scm 899 */
 obj_t BgL_tmpz00_19289;
BgL_tmpz00_19289 = 
BGl_thezd2failureze74z35zz__datez00(BgL_iportz00_5110); 
BgL_test7460z00_19288 = 
EOF_OBJECTP(BgL_tmpz00_19289); } 
if(BgL_test7460z00_19288)
{ /* Llib/date.scm 899 */
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BFALSE))
{ /* Llib/date.scm 233 */
 long BgL_tmpz00_19294;
{ /* Llib/date.scm 900 */
 obj_t BgL_aux5815z00_10927;
BgL_aux5815z00_10927 = BFALSE; 
{ 
 obj_t BgL_auxz00_19301;
BgL_auxz00_19301 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(38617L), BGl_string5877z00zz__datez00, BGl_string6112z00zz__datez00, BgL_aux5815z00_10927); 
FAILURE(BgL_auxz00_19301,BFALSE,BFALSE);} } 
BgL_tmpz00_19294 = 0L; 
BgL_aux5829z00_10941 = 
bgl_make_date(((BGL_LONGLONG_T)0), 
(int)(0L), 
(int)(0L), 
(int)(BgL_hhz00_5114), 
(int)(BgL_ddz00_5113), 
(int)(BgL_mmz00_5112), 
(int)(BgL_yyyyz00_5111), BgL_tmpz00_19294, ((bool_t)1), 
(int)((-1L))); }  else 
{ /* Llib/date.scm 232 */
BgL_aux5829z00_10941 = 
bgl_make_date(((BGL_LONGLONG_T)0), 
(int)(0L), 
(int)(0L), 
(int)(BgL_hhz00_5114), 
(int)(BgL_ddz00_5113), 
(int)(BgL_mmz00_5112), 
(int)(BgL_yyyyz00_5111), 0L, ((bool_t)0), 
(int)((-1L))); } }  else 
{ /* Llib/date.scm 899 */
BgL_aux5829z00_10941 = 
BGl_parsezd2errorzd2zz__datez00(BGl_string6110z00zz__datez00, BGl_string5901z00zz__datez00, 
BGl_thezd2failureze74z35zz__datez00(BgL_iportz00_5110), BgL_iportz00_5110); } } break;case 0L : 

{ /* Llib/date.scm 894 */
 long BgL_b1z00_5346; long BgL_b2z00_5347;
{ /* Llib/date.scm 894 */
 int BgL_arg3805z00_5351;
{ /* Llib/date.scm 892 */
 int BgL_tmpz00_19317;
BgL_tmpz00_19317 = 
(int)(1L); 
BgL_arg3805z00_5351 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_5110, BgL_tmpz00_19317); } 
BgL_b1z00_5346 = 
(
(long)(BgL_arg3805z00_5351)-48L); } 
{ /* Llib/date.scm 895 */
 int BgL_arg3806z00_5352;
{ /* Llib/date.scm 892 */
 int BgL_tmpz00_19322;
BgL_tmpz00_19322 = 
(int)(2L); 
BgL_arg3806z00_5352 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_5110, BgL_tmpz00_19322); } 
BgL_b2z00_5347 = 
(
(long)(BgL_arg3806z00_5352)-48L); } 
BgL_iportz00_5389 = BgL_iportz00_5110; 
BgL_yyyyz00_5390 = BgL_yyyyz00_5111; 
BgL_mmz00_5391 = BgL_mmz00_5112; 
BgL_ddz00_5392 = BgL_ddz00_5113; 
BgL_hhz00_5393 = BgL_hhz00_5114; 
BgL_mmz00_5394 = 
(
(BgL_b1z00_5346*10L)+BgL_b2z00_5347); 
{ 
 obj_t BgL_iportz00_5436; long BgL_lastzd2matchzd2_5437; long BgL_forwardz00_5438; long BgL_bufposz00_5439; obj_t BgL_iportz00_5455; long BgL_lastzd2matchzd2_5456; long BgL_forwardz00_5457; long BgL_bufposz00_5458; obj_t BgL_iportz00_5470; long BgL_lastzd2matchzd2_5471; long BgL_forwardz00_5472; long BgL_bufposz00_5473;
if(
INPUT_PORT_CLOSEP(BgL_iportz00_5389))
{ /* Llib/date.scm 876 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg3810z00_5429;
{ /* Llib/date.scm 876 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1078z00_5430;
{ /* Llib/date.scm 876 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1077z00_5433;
BgL_new1077z00_5433 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Llib/date.scm 876 */
 long BgL_arg3813z00_5434;
BgL_arg3813z00_5434 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1077z00_5433), BgL_arg3813z00_5434); } 
BgL_new1078z00_5430 = BgL_new1077z00_5433; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_5430)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_5430)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_19337;
{ /* Llib/date.scm 876 */
 obj_t BgL_arg3811z00_5431;
{ /* Llib/date.scm 876 */
 obj_t BgL_arg3812z00_5432;
{ /* Llib/date.scm 876 */
 obj_t BgL_classz00_9054;
BgL_classz00_9054 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg3812z00_5432 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_9054); } 
BgL_arg3811z00_5431 = 
VECTOR_REF(BgL_arg3812z00_5432,2L); } 
{ /* Llib/date.scm 876 */
 obj_t BgL_auxz00_19341;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg3811z00_5431))
{ /* Llib/date.scm 876 */
BgL_auxz00_19341 = BgL_arg3811z00_5431
; }  else 
{ 
 obj_t BgL_auxz00_19344;
BgL_auxz00_19344 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(37906L), BGl_string6116z00zz__datez00, BGl_string5899z00zz__datez00, BgL_arg3811z00_5431); 
FAILURE(BgL_auxz00_19344,BFALSE,BFALSE);} 
BgL_auxz00_19337 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_19341); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_5430)))->BgL_stackz00)=((obj_t)BgL_auxz00_19337),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_5430)))->BgL_procz00)=((obj_t)BGl_string5882z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_5430)))->BgL_msgz00)=((obj_t)BGl_string5900z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_5430)))->BgL_objz00)=((obj_t)BgL_iportz00_5389),BUNSPEC); 
BgL_arg3810z00_5429 = BgL_new1078z00_5430; } 
BgL_aux5829z00_10941 = 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg3810z00_5429)); }  else 
{ /* Llib/date.scm 876 */
RGC_START_MATCH(BgL_iportz00_5389); 
{ /* Llib/date.scm 876 */
 long BgL_matchz00_5609;
{ /* Llib/date.scm 876 */
 long BgL_arg3939z00_5634; long BgL_arg3940z00_5635;
BgL_arg3939z00_5634 = 
RGC_BUFFER_FORWARD(BgL_iportz00_5389); 
BgL_arg3940z00_5635 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_5389); 
BgL_iportz00_5436 = BgL_iportz00_5389; 
BgL_lastzd2matchzd2_5437 = 1L; 
BgL_forwardz00_5438 = BgL_arg3939z00_5634; 
BgL_bufposz00_5439 = BgL_arg3940z00_5635; 
BgL_zc3z04anonymousza33815ze3z87_5440:
if(
(BgL_forwardz00_5438==BgL_bufposz00_5439))
{ /* Llib/date.scm 876 */
if(
rgc_fill_buffer(BgL_iportz00_5436))
{ /* Llib/date.scm 876 */
 long BgL_arg3818z00_5443; long BgL_arg3819z00_5444;
BgL_arg3818z00_5443 = 
RGC_BUFFER_FORWARD(BgL_iportz00_5436); 
BgL_arg3819z00_5444 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_5436); 
{ 
 long BgL_bufposz00_19368; long BgL_forwardz00_19367;
BgL_forwardz00_19367 = BgL_arg3818z00_5443; 
BgL_bufposz00_19368 = BgL_arg3819z00_5444; 
BgL_bufposz00_5439 = BgL_bufposz00_19368; 
BgL_forwardz00_5438 = BgL_forwardz00_19367; 
goto BgL_zc3z04anonymousza33815ze3z87_5440;} }  else 
{ /* Llib/date.scm 876 */
BgL_matchz00_5609 = BgL_lastzd2matchzd2_5437; } }  else 
{ /* Llib/date.scm 876 */
 int BgL_curz00_5445;
BgL_curz00_5445 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_5436, BgL_forwardz00_5438); 
{ /* Llib/date.scm 876 */

if(
(
(long)(BgL_curz00_5445)==58L))
{ /* Llib/date.scm 876 */
BgL_iportz00_5455 = BgL_iportz00_5436; 
BgL_lastzd2matchzd2_5456 = BgL_lastzd2matchzd2_5437; 
BgL_forwardz00_5457 = 
(1L+BgL_forwardz00_5438); 
BgL_bufposz00_5458 = BgL_bufposz00_5439; 
BgL_zc3z04anonymousza33824ze3z87_5459:
{ /* Llib/date.scm 876 */
 long BgL_newzd2matchzd2_5460;
RGC_STOP_MATCH(BgL_iportz00_5455, BgL_forwardz00_5457); 
BgL_newzd2matchzd2_5460 = 1L; 
if(
(BgL_forwardz00_5457==BgL_bufposz00_5458))
{ /* Llib/date.scm 876 */
if(
rgc_fill_buffer(BgL_iportz00_5455))
{ /* Llib/date.scm 876 */
 long BgL_arg3827z00_5463; long BgL_arg3828z00_5464;
BgL_arg3827z00_5463 = 
RGC_BUFFER_FORWARD(BgL_iportz00_5455); 
BgL_arg3828z00_5464 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_5455); 
{ 
 long BgL_bufposz00_19381; long BgL_forwardz00_19380;
BgL_forwardz00_19380 = BgL_arg3827z00_5463; 
BgL_bufposz00_19381 = BgL_arg3828z00_5464; 
BgL_bufposz00_5458 = BgL_bufposz00_19381; 
BgL_forwardz00_5457 = BgL_forwardz00_19380; 
goto BgL_zc3z04anonymousza33824ze3z87_5459;} }  else 
{ /* Llib/date.scm 876 */
BgL_matchz00_5609 = BgL_newzd2matchzd2_5460; } }  else 
{ /* Llib/date.scm 876 */
 int BgL_curz00_5465;
BgL_curz00_5465 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_5455, BgL_forwardz00_5457); 
{ /* Llib/date.scm 876 */

{ /* Llib/date.scm 876 */
 bool_t BgL_test7469z00_19383;
if(
(
(long)(BgL_curz00_5465)>=48L))
{ /* Llib/date.scm 876 */
BgL_test7469z00_19383 = 
(
(long)(BgL_curz00_5465)<58L)
; }  else 
{ /* Llib/date.scm 876 */
BgL_test7469z00_19383 = ((bool_t)0)
; } 
if(BgL_test7469z00_19383)
{ /* Llib/date.scm 876 */
BgL_iportz00_5470 = BgL_iportz00_5455; 
BgL_lastzd2matchzd2_5471 = BgL_newzd2matchzd2_5460; 
BgL_forwardz00_5472 = 
(1L+BgL_forwardz00_5457); 
BgL_bufposz00_5473 = BgL_bufposz00_5458; 
BgL_zc3z04anonymousza33832ze3z87_5474:
if(
(BgL_forwardz00_5472==BgL_bufposz00_5473))
{ /* Llib/date.scm 876 */
if(
rgc_fill_buffer(BgL_iportz00_5470))
{ /* Llib/date.scm 876 */
 long BgL_arg3835z00_5477; long BgL_arg3836z00_5478;
BgL_arg3835z00_5477 = 
RGC_BUFFER_FORWARD(BgL_iportz00_5470); 
BgL_arg3836z00_5478 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_5470); 
{ 
 long BgL_bufposz00_19396; long BgL_forwardz00_19395;
BgL_forwardz00_19395 = BgL_arg3835z00_5477; 
BgL_bufposz00_19396 = BgL_arg3836z00_5478; 
BgL_bufposz00_5473 = BgL_bufposz00_19396; 
BgL_forwardz00_5472 = BgL_forwardz00_19395; 
goto BgL_zc3z04anonymousza33832ze3z87_5474;} }  else 
{ /* Llib/date.scm 876 */
BgL_matchz00_5609 = BgL_lastzd2matchzd2_5471; } }  else 
{ /* Llib/date.scm 876 */
 int BgL_curz00_5479;
BgL_curz00_5479 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_5470, BgL_forwardz00_5472); 
{ /* Llib/date.scm 876 */

{ /* Llib/date.scm 876 */
 bool_t BgL_test7473z00_19398;
if(
(
(long)(BgL_curz00_5479)>=48L))
{ /* Llib/date.scm 876 */
BgL_test7473z00_19398 = 
(
(long)(BgL_curz00_5479)<58L)
; }  else 
{ /* Llib/date.scm 876 */
BgL_test7473z00_19398 = ((bool_t)0)
; } 
if(BgL_test7473z00_19398)
{ /* Llib/date.scm 876 */
 long BgL_arg3839z00_5482;
BgL_arg3839z00_5482 = 
(1L+BgL_forwardz00_5472); 
{ /* Llib/date.scm 876 */
 long BgL_newzd2matchzd2_9023;
RGC_STOP_MATCH(BgL_iportz00_5470, BgL_arg3839z00_5482); 
BgL_newzd2matchzd2_9023 = 0L; 
BgL_matchz00_5609 = BgL_newzd2matchzd2_9023; } }  else 
{ /* Llib/date.scm 876 */
BgL_matchz00_5609 = BgL_lastzd2matchzd2_5471; } } } } }  else 
{ /* Llib/date.scm 876 */
BgL_matchz00_5609 = BgL_newzd2matchzd2_5460; } } } } } }  else 
{ /* Llib/date.scm 876 */
 long BgL_arg3822z00_5448;
BgL_arg3822z00_5448 = 
(1L+BgL_forwardz00_5438); 
{ /* Llib/date.scm 876 */
 long BgL_newzd2matchzd2_8995;
RGC_STOP_MATCH(BgL_iportz00_5436, BgL_arg3822z00_5448); 
BgL_newzd2matchzd2_8995 = 1L; 
BgL_matchz00_5609 = BgL_newzd2matchzd2_8995; } } } } } 
RGC_SET_FILEPOS(BgL_iportz00_5389); 
switch( BgL_matchz00_5609) { case 1L : 

{ /* Llib/date.scm 883 */
 bool_t BgL_test7475z00_19411;
{ /* Llib/date.scm 883 */
 obj_t BgL_tmpz00_19412;
BgL_tmpz00_19412 = 
BGl_thezd2failureze73z35zz__datez00(BgL_iportz00_5389); 
BgL_test7475z00_19411 = 
EOF_OBJECTP(BgL_tmpz00_19412); } 
if(BgL_test7475z00_19411)
{ /* Llib/date.scm 883 */
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BFALSE))
{ /* Llib/date.scm 233 */
 long BgL_tmpz00_19417;
{ /* Llib/date.scm 884 */
 obj_t BgL_aux5810z00_10922;
BgL_aux5810z00_10922 = BFALSE; 
{ 
 obj_t BgL_auxz00_19424;
BgL_auxz00_19424 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(38149L), BGl_string5877z00zz__datez00, BGl_string6112z00zz__datez00, BgL_aux5810z00_10922); 
FAILURE(BgL_auxz00_19424,BFALSE,BFALSE);} } 
BgL_tmpz00_19417 = 0L; 
BgL_aux5829z00_10941 = 
bgl_make_date(((BGL_LONGLONG_T)0), 
(int)(0L), 
(int)(BgL_mmz00_5394), 
(int)(BgL_hhz00_5393), 
(int)(BgL_ddz00_5392), 
(int)(BgL_mmz00_5391), 
(int)(BgL_yyyyz00_5390), BgL_tmpz00_19417, ((bool_t)1), 
(int)((-1L))); }  else 
{ /* Llib/date.scm 232 */
BgL_aux5829z00_10941 = 
bgl_make_date(((BGL_LONGLONG_T)0), 
(int)(0L), 
(int)(BgL_mmz00_5394), 
(int)(BgL_hhz00_5393), 
(int)(BgL_ddz00_5392), 
(int)(BgL_mmz00_5391), 
(int)(BgL_yyyyz00_5390), 0L, ((bool_t)0), 
(int)((-1L))); } }  else 
{ /* Llib/date.scm 883 */
{ /* Llib/date.scm 887 */
 obj_t BgL_arg3930z00_5623;
BgL_arg3930z00_5623 = 
BGl_thezd2failureze73z35zz__datez00(BgL_iportz00_5389); 
{ /* Llib/date.scm 887 */
 unsigned char BgL_auxz00_19439;
{ /* Llib/date.scm 887 */
 obj_t BgL_tmpz00_19440;
if(
CHARP(BgL_arg3930z00_5623))
{ /* Llib/date.scm 887 */
BgL_tmpz00_19440 = BgL_arg3930z00_5623
; }  else 
{ 
 obj_t BgL_auxz00_19443;
BgL_auxz00_19443 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(38254L), BGl_string5877z00zz__datez00, BGl_string6114z00zz__datez00, BgL_arg3930z00_5623); 
FAILURE(BgL_auxz00_19443,BFALSE,BFALSE);} 
BgL_auxz00_19439 = 
CCHAR(BgL_tmpz00_19440); } 
BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_19439, BgL_iportz00_5389); } } 
BgL_iportz00_5974 = BgL_iportz00_5389; 
BgL_yyyyz00_5975 = BgL_yyyyz00_5390; 
BgL_mmz00_5976 = BgL_mmz00_5391; 
BgL_ddz00_5977 = BgL_ddz00_5392; 
BgL_hhz00_5978 = BgL_hhz00_5393; 
BgL_mmz00_5979 = BgL_mmz00_5394; 
BgL_ssz00_5980 = 0L; 
BgL_sssz00_5981 = ((BGL_LONGLONG_T)0); 
BgL_zc3z04anonymousza34086ze3z87_5982:
{ 
 obj_t BgL_iportz00_6027; long BgL_lastzd2matchzd2_6028; long BgL_forwardz00_6029; long BgL_bufposz00_6030; obj_t BgL_iportz00_6058; long BgL_lastzd2matchzd2_6059; long BgL_forwardz00_6060; long BgL_bufposz00_6061; obj_t BgL_iportz00_6073; long BgL_lastzd2matchzd2_6074; long BgL_forwardz00_6075; long BgL_bufposz00_6076; obj_t BgL_iportz00_6088; long BgL_lastzd2matchzd2_6089; long BgL_forwardz00_6090; long BgL_bufposz00_6091; obj_t BgL_iportz00_6108; long BgL_lastzd2matchzd2_6109; long BgL_forwardz00_6110; long BgL_bufposz00_6111;
if(
INPUT_PORT_CLOSEP(BgL_iportz00_5974))
{ /* Llib/date.scm 835 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg4087z00_6020;
{ /* Llib/date.scm 835 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1078z00_6021;
{ /* Llib/date.scm 835 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1077z00_6024;
BgL_new1077z00_6024 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Llib/date.scm 835 */
 long BgL_arg4090z00_6025;
BgL_arg4090z00_6025 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1077z00_6024), BgL_arg4090z00_6025); } 
BgL_new1078z00_6021 = BgL_new1077z00_6024; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_6021)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_6021)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_19459;
{ /* Llib/date.scm 835 */
 obj_t BgL_arg4088z00_6022;
{ /* Llib/date.scm 835 */
 obj_t BgL_arg4089z00_6023;
{ /* Llib/date.scm 835 */
 obj_t BgL_classz00_8892;
BgL_classz00_8892 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg4089z00_6023 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_8892); } 
BgL_arg4088z00_6022 = 
VECTOR_REF(BgL_arg4089z00_6023,2L); } 
{ /* Llib/date.scm 835 */
 obj_t BgL_auxz00_19463;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg4088z00_6022))
{ /* Llib/date.scm 835 */
BgL_auxz00_19463 = BgL_arg4088z00_6022
; }  else 
{ 
 obj_t BgL_auxz00_19466;
BgL_auxz00_19466 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(36574L), BGl_string6113z00zz__datez00, BGl_string5899z00zz__datez00, BgL_arg4088z00_6022); 
FAILURE(BgL_auxz00_19466,BFALSE,BFALSE);} 
BgL_auxz00_19459 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_19463); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_6021)))->BgL_stackz00)=((obj_t)BgL_auxz00_19459),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_6021)))->BgL_procz00)=((obj_t)BGl_string5882z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_6021)))->BgL_msgz00)=((obj_t)BGl_string5900z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_6021)))->BgL_objz00)=((obj_t)BgL_iportz00_5974),BUNSPEC); 
BgL_arg4087z00_6020 = BgL_new1078z00_6021; } 
BgL_aux5829z00_10941 = 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg4087z00_6020)); }  else 
{ /* Llib/date.scm 835 */
RGC_START_MATCH(BgL_iportz00_5974); 
{ /* Llib/date.scm 835 */
 long BgL_matchz00_6247;
{ /* Llib/date.scm 835 */
 long BgL_arg4246z00_6290; long BgL_arg4247z00_6291;
BgL_arg4246z00_6290 = 
RGC_BUFFER_FORWARD(BgL_iportz00_5974); 
BgL_arg4247z00_6291 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_5974); 
BgL_iportz00_6027 = BgL_iportz00_5974; 
BgL_lastzd2matchzd2_6028 = 3L; 
BgL_forwardz00_6029 = BgL_arg4246z00_6290; 
BgL_bufposz00_6030 = BgL_arg4247z00_6291; 
BgL_zc3z04anonymousza34092ze3z87_6031:
if(
(BgL_forwardz00_6029==BgL_bufposz00_6030))
{ /* Llib/date.scm 835 */
if(
rgc_fill_buffer(BgL_iportz00_6027))
{ /* Llib/date.scm 835 */
 long BgL_arg4095z00_6034; long BgL_arg4096z00_6035;
BgL_arg4095z00_6034 = 
RGC_BUFFER_FORWARD(BgL_iportz00_6027); 
BgL_arg4096z00_6035 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_6027); 
{ 
 long BgL_bufposz00_19490; long BgL_forwardz00_19489;
BgL_forwardz00_19489 = BgL_arg4095z00_6034; 
BgL_bufposz00_19490 = BgL_arg4096z00_6035; 
BgL_bufposz00_6030 = BgL_bufposz00_19490; 
BgL_forwardz00_6029 = BgL_forwardz00_19489; 
goto BgL_zc3z04anonymousza34092ze3z87_6031;} }  else 
{ /* Llib/date.scm 835 */
BgL_matchz00_6247 = BgL_lastzd2matchzd2_6028; } }  else 
{ /* Llib/date.scm 835 */
 int BgL_curz00_6036;
BgL_curz00_6036 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_6027, BgL_forwardz00_6029); 
{ /* Llib/date.scm 835 */

{ /* Llib/date.scm 835 */
 bool_t BgL_test7482z00_19492;
if(
(
(long)(BgL_curz00_6036)==90L))
{ /* Llib/date.scm 835 */
BgL_test7482z00_19492 = ((bool_t)1)
; }  else 
{ /* Llib/date.scm 835 */
BgL_test7482z00_19492 = 
(
(long)(BgL_curz00_6036)==122L)
; } 
if(BgL_test7482z00_19492)
{ /* Llib/date.scm 835 */
 long BgL_arg4099z00_6039;
BgL_arg4099z00_6039 = 
(1L+BgL_forwardz00_6029); 
{ /* Llib/date.scm 835 */
 long BgL_newzd2matchzd2_8783;
RGC_STOP_MATCH(BgL_iportz00_6027, BgL_arg4099z00_6039); 
BgL_newzd2matchzd2_8783 = 0L; 
BgL_matchz00_6247 = BgL_newzd2matchzd2_8783; } }  else 
{ /* Llib/date.scm 835 */
if(
(
(long)(BgL_curz00_6036)==45L))
{ /* Llib/date.scm 835 */
BgL_iportz00_6073 = BgL_iportz00_6027; 
BgL_lastzd2matchzd2_6074 = BgL_lastzd2matchzd2_6028; 
BgL_forwardz00_6075 = 
(1L+BgL_forwardz00_6029); 
BgL_bufposz00_6076 = BgL_bufposz00_6030; 
BgL_zc3z04anonymousza34115ze3z87_6077:
{ /* Llib/date.scm 835 */
 long BgL_newzd2matchzd2_6078;
RGC_STOP_MATCH(BgL_iportz00_6073, BgL_forwardz00_6075); 
BgL_newzd2matchzd2_6078 = 3L; 
if(
(BgL_forwardz00_6075==BgL_bufposz00_6076))
{ /* Llib/date.scm 835 */
if(
rgc_fill_buffer(BgL_iportz00_6073))
{ /* Llib/date.scm 835 */
 long BgL_arg4118z00_6081; long BgL_arg4119z00_6082;
BgL_arg4118z00_6081 = 
RGC_BUFFER_FORWARD(BgL_iportz00_6073); 
BgL_arg4119z00_6082 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_6073); 
{ 
 long BgL_bufposz00_19511; long BgL_forwardz00_19510;
BgL_forwardz00_19510 = BgL_arg4118z00_6081; 
BgL_bufposz00_19511 = BgL_arg4119z00_6082; 
BgL_bufposz00_6076 = BgL_bufposz00_19511; 
BgL_forwardz00_6075 = BgL_forwardz00_19510; 
goto BgL_zc3z04anonymousza34115ze3z87_6077;} }  else 
{ /* Llib/date.scm 835 */
BgL_matchz00_6247 = BgL_newzd2matchzd2_6078; } }  else 
{ /* Llib/date.scm 835 */
 int BgL_curz00_6083;
BgL_curz00_6083 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_6073, BgL_forwardz00_6075); 
{ /* Llib/date.scm 835 */

{ /* Llib/date.scm 835 */
 bool_t BgL_test7487z00_19513;
if(
(
(long)(BgL_curz00_6083)>=48L))
{ /* Llib/date.scm 835 */
BgL_test7487z00_19513 = 
(
(long)(BgL_curz00_6083)<58L)
; }  else 
{ /* Llib/date.scm 835 */
BgL_test7487z00_19513 = ((bool_t)0)
; } 
if(BgL_test7487z00_19513)
{ /* Llib/date.scm 835 */
BgL_iportz00_6088 = BgL_iportz00_6073; 
BgL_lastzd2matchzd2_6089 = BgL_newzd2matchzd2_6078; 
BgL_forwardz00_6090 = 
(1L+BgL_forwardz00_6075); 
BgL_bufposz00_6091 = BgL_bufposz00_6076; 
BgL_zc3z04anonymousza34123ze3z87_6092:
if(
(BgL_forwardz00_6090==BgL_bufposz00_6091))
{ /* Llib/date.scm 835 */
if(
rgc_fill_buffer(BgL_iportz00_6088))
{ /* Llib/date.scm 835 */
 long BgL_arg4126z00_6095; long BgL_arg4127z00_6096;
BgL_arg4126z00_6095 = 
RGC_BUFFER_FORWARD(BgL_iportz00_6088); 
BgL_arg4127z00_6096 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_6088); 
{ 
 long BgL_bufposz00_19526; long BgL_forwardz00_19525;
BgL_forwardz00_19525 = BgL_arg4126z00_6095; 
BgL_bufposz00_19526 = BgL_arg4127z00_6096; 
BgL_bufposz00_6091 = BgL_bufposz00_19526; 
BgL_forwardz00_6090 = BgL_forwardz00_19525; 
goto BgL_zc3z04anonymousza34123ze3z87_6092;} }  else 
{ /* Llib/date.scm 835 */
BgL_matchz00_6247 = BgL_lastzd2matchzd2_6089; } }  else 
{ /* Llib/date.scm 835 */
 int BgL_curz00_6097;
BgL_curz00_6097 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_6088, BgL_forwardz00_6090); 
{ /* Llib/date.scm 835 */

{ /* Llib/date.scm 835 */
 bool_t BgL_test7491z00_19528;
if(
(
(long)(BgL_curz00_6097)>=48L))
{ /* Llib/date.scm 835 */
BgL_test7491z00_19528 = 
(
(long)(BgL_curz00_6097)<58L)
; }  else 
{ /* Llib/date.scm 835 */
BgL_test7491z00_19528 = ((bool_t)0)
; } 
if(BgL_test7491z00_19528)
{ /* Llib/date.scm 835 */
 long BgL_arg4130z00_6100;
BgL_arg4130z00_6100 = 
(1L+BgL_forwardz00_6090); 
{ /* Llib/date.scm 835 */
 long BgL_newzd2matchzd2_8834;
RGC_STOP_MATCH(BgL_iportz00_6088, BgL_arg4130z00_6100); 
BgL_newzd2matchzd2_8834 = 2L; 
BgL_matchz00_6247 = BgL_newzd2matchzd2_8834; } }  else 
{ /* Llib/date.scm 835 */
BgL_matchz00_6247 = BgL_lastzd2matchzd2_6089; } } } } }  else 
{ /* Llib/date.scm 835 */
BgL_matchz00_6247 = BgL_newzd2matchzd2_6078; } } } } } }  else 
{ /* Llib/date.scm 835 */
if(
(
(long)(BgL_curz00_6036)==43L))
{ /* Llib/date.scm 835 */
BgL_iportz00_6058 = BgL_iportz00_6027; 
BgL_lastzd2matchzd2_6059 = BgL_lastzd2matchzd2_6028; 
BgL_forwardz00_6060 = 
(1L+BgL_forwardz00_6029); 
BgL_bufposz00_6061 = BgL_bufposz00_6030; 
BgL_zc3z04anonymousza34107ze3z87_6062:
{ /* Llib/date.scm 835 */
 long BgL_newzd2matchzd2_6063;
RGC_STOP_MATCH(BgL_iportz00_6058, BgL_forwardz00_6060); 
BgL_newzd2matchzd2_6063 = 3L; 
if(
(BgL_forwardz00_6060==BgL_bufposz00_6061))
{ /* Llib/date.scm 835 */
if(
rgc_fill_buffer(BgL_iportz00_6058))
{ /* Llib/date.scm 835 */
 long BgL_arg4110z00_6066; long BgL_arg4111z00_6067;
BgL_arg4110z00_6066 = 
RGC_BUFFER_FORWARD(BgL_iportz00_6058); 
BgL_arg4111z00_6067 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_6058); 
{ 
 long BgL_bufposz00_19549; long BgL_forwardz00_19548;
BgL_forwardz00_19548 = BgL_arg4110z00_6066; 
BgL_bufposz00_19549 = BgL_arg4111z00_6067; 
BgL_bufposz00_6061 = BgL_bufposz00_19549; 
BgL_forwardz00_6060 = BgL_forwardz00_19548; 
goto BgL_zc3z04anonymousza34107ze3z87_6062;} }  else 
{ /* Llib/date.scm 835 */
BgL_matchz00_6247 = BgL_newzd2matchzd2_6063; } }  else 
{ /* Llib/date.scm 835 */
 int BgL_curz00_6068;
BgL_curz00_6068 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_6058, BgL_forwardz00_6060); 
{ /* Llib/date.scm 835 */

{ /* Llib/date.scm 835 */
 bool_t BgL_test7496z00_19551;
if(
(
(long)(BgL_curz00_6068)>=48L))
{ /* Llib/date.scm 835 */
BgL_test7496z00_19551 = 
(
(long)(BgL_curz00_6068)<58L)
; }  else 
{ /* Llib/date.scm 835 */
BgL_test7496z00_19551 = ((bool_t)0)
; } 
if(BgL_test7496z00_19551)
{ /* Llib/date.scm 835 */
BgL_iportz00_6108 = BgL_iportz00_6058; 
BgL_lastzd2matchzd2_6109 = BgL_newzd2matchzd2_6063; 
BgL_forwardz00_6110 = 
(1L+BgL_forwardz00_6060); 
BgL_bufposz00_6111 = BgL_bufposz00_6061; 
BgL_zc3z04anonymousza34132ze3z87_6112:
if(
(BgL_forwardz00_6110==BgL_bufposz00_6111))
{ /* Llib/date.scm 835 */
if(
rgc_fill_buffer(BgL_iportz00_6108))
{ /* Llib/date.scm 835 */
 long BgL_arg4135z00_6115; long BgL_arg4136z00_6116;
BgL_arg4135z00_6115 = 
RGC_BUFFER_FORWARD(BgL_iportz00_6108); 
BgL_arg4136z00_6116 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_6108); 
{ 
 long BgL_bufposz00_19564; long BgL_forwardz00_19563;
BgL_forwardz00_19563 = BgL_arg4135z00_6115; 
BgL_bufposz00_19564 = BgL_arg4136z00_6116; 
BgL_bufposz00_6111 = BgL_bufposz00_19564; 
BgL_forwardz00_6110 = BgL_forwardz00_19563; 
goto BgL_zc3z04anonymousza34132ze3z87_6112;} }  else 
{ /* Llib/date.scm 835 */
BgL_matchz00_6247 = BgL_lastzd2matchzd2_6109; } }  else 
{ /* Llib/date.scm 835 */
 int BgL_curz00_6117;
BgL_curz00_6117 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_6108, BgL_forwardz00_6110); 
{ /* Llib/date.scm 835 */

{ /* Llib/date.scm 835 */
 bool_t BgL_test7500z00_19566;
if(
(
(long)(BgL_curz00_6117)>=48L))
{ /* Llib/date.scm 835 */
BgL_test7500z00_19566 = 
(
(long)(BgL_curz00_6117)<58L)
; }  else 
{ /* Llib/date.scm 835 */
BgL_test7500z00_19566 = ((bool_t)0)
; } 
if(BgL_test7500z00_19566)
{ /* Llib/date.scm 835 */
 long BgL_arg4139z00_6120;
BgL_arg4139z00_6120 = 
(1L+BgL_forwardz00_6110); 
{ /* Llib/date.scm 835 */
 long BgL_newzd2matchzd2_8850;
RGC_STOP_MATCH(BgL_iportz00_6108, BgL_arg4139z00_6120); 
BgL_newzd2matchzd2_8850 = 1L; 
BgL_matchz00_6247 = BgL_newzd2matchzd2_8850; } }  else 
{ /* Llib/date.scm 835 */
BgL_matchz00_6247 = BgL_lastzd2matchzd2_6109; } } } } }  else 
{ /* Llib/date.scm 835 */
BgL_matchz00_6247 = BgL_newzd2matchzd2_6063; } } } } } }  else 
{ /* Llib/date.scm 835 */
 long BgL_arg4104z00_6044;
BgL_arg4104z00_6044 = 
(1L+BgL_forwardz00_6029); 
{ /* Llib/date.scm 835 */
 long BgL_newzd2matchzd2_8791;
RGC_STOP_MATCH(BgL_iportz00_6027, BgL_arg4104z00_6044); 
BgL_newzd2matchzd2_8791 = 3L; 
BgL_matchz00_6247 = BgL_newzd2matchzd2_8791; } } } } } } } } 
RGC_SET_FILEPOS(BgL_iportz00_5974); 
switch( BgL_matchz00_6247) { case 3L : 

{ /* Llib/date.scm 850 */
 bool_t BgL_test7502z00_19579;
{ /* Llib/date.scm 850 */
 obj_t BgL_tmpz00_19580;
BgL_tmpz00_19580 = 
BGl_thezd2failureze71z35zz__datez00(BgL_iportz00_5974); 
BgL_test7502z00_19579 = 
EOF_OBJECTP(BgL_tmpz00_19580); } 
if(BgL_test7502z00_19579)
{ /* Llib/date.scm 850 */
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BFALSE))
{ /* Llib/date.scm 233 */
 long BgL_tmpz00_19585;
{ /* Llib/date.scm 851 */
 obj_t BgL_aux5802z00_10914;
BgL_aux5802z00_10914 = BFALSE; 
{ 
 obj_t BgL_auxz00_19592;
BgL_auxz00_19592 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(37136L), BGl_string5877z00zz__datez00, BGl_string6112z00zz__datez00, BgL_aux5802z00_10914); 
FAILURE(BgL_auxz00_19592,BFALSE,BFALSE);} } 
BgL_tmpz00_19585 = 0L; 
BgL_aux5829z00_10941 = 
bgl_make_date(BgL_sssz00_5981, 
(int)(BgL_ssz00_5980), 
(int)(BgL_mmz00_5979), 
(int)(BgL_hhz00_5978), 
(int)(BgL_ddz00_5977), 
(int)(BgL_mmz00_5976), 
(int)(BgL_yyyyz00_5975), BgL_tmpz00_19585, ((bool_t)1), 
(int)((-1L))); }  else 
{ /* Llib/date.scm 232 */
BgL_aux5829z00_10941 = 
bgl_make_date(BgL_sssz00_5981, 
(int)(BgL_ssz00_5980), 
(int)(BgL_mmz00_5979), 
(int)(BgL_hhz00_5978), 
(int)(BgL_ddz00_5977), 
(int)(BgL_mmz00_5976), 
(int)(BgL_yyyyz00_5975), 0L, ((bool_t)0), 
(int)((-1L))); } }  else 
{ /* Llib/date.scm 850 */
BgL_aux5829z00_10941 = 
BGl_parsezd2errorzd2zz__datez00(BGl_string6110z00zz__datez00, BGl_string5901z00zz__datez00, 
BGl_thezd2failureze71z35zz__datez00(BgL_iportz00_5974), BgL_iportz00_5974); } } break;case 2L : 

{ /* Llib/date.scm 845 */
 long BgL_b1z00_6264; long BgL_b2z00_6265;
{ /* Llib/date.scm 845 */
 int BgL_arg4238z00_6271;
{ /* Llib/date.scm 835 */
 int BgL_tmpz00_19608;
BgL_tmpz00_19608 = 
(int)(1L); 
BgL_arg4238z00_6271 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_5974, BgL_tmpz00_19608); } 
BgL_b1z00_6264 = 
(
(long)(BgL_arg4238z00_6271)-48L); } 
{ /* Llib/date.scm 846 */
 int BgL_arg4239z00_6272;
{ /* Llib/date.scm 835 */
 int BgL_tmpz00_19613;
BgL_tmpz00_19613 = 
(int)(2L); 
BgL_arg4239z00_6272 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_5974, BgL_tmpz00_19613); } 
BgL_b2z00_6265 = 
(
(long)(BgL_arg4239z00_6272)-48L); } 
BgL_iportz00_6330 = BgL_iportz00_5974; 
BgL_yyyyz00_6331 = BgL_yyyyz00_5975; 
BgL_mmz00_6332 = BgL_mmz00_5976; 
BgL_ddz00_6333 = BgL_ddz00_5977; 
BgL_hhz00_6334 = BgL_hhz00_5978; 
BgL_mmz00_6335 = BgL_mmz00_5979; 
BgL_ssz00_6336 = BgL_ssz00_5980; 
BgL_sssz00_6337 = BgL_sssz00_5981; 
BgL_za7hhza7_6338 = 
NEG(
(3600L*
(
(BgL_b1z00_6264*10L)+BgL_b2z00_6265))); 
BgL_zc3z04anonymousza34248ze3z87_6339:
{ 
 obj_t BgL_iportz00_6380; long BgL_lastzd2matchzd2_6381; long BgL_forwardz00_6382; long BgL_bufposz00_6383; obj_t BgL_iportz00_6399; long BgL_lastzd2matchzd2_6400; long BgL_forwardz00_6401; long BgL_bufposz00_6402; obj_t BgL_iportz00_6414; long BgL_lastzd2matchzd2_6415; long BgL_forwardz00_6416; long BgL_bufposz00_6417;
if(
INPUT_PORT_CLOSEP(BgL_iportz00_6330))
{ /* Llib/date.scm 818 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg4249z00_6373;
{ /* Llib/date.scm 818 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1078z00_6374;
{ /* Llib/date.scm 818 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1077z00_6377;
BgL_new1077z00_6377 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Llib/date.scm 818 */
 long BgL_arg4252z00_6378;
BgL_arg4252z00_6378 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1077z00_6377), BgL_arg4252z00_6378); } 
BgL_new1078z00_6374 = BgL_new1077z00_6377; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_6374)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_6374)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_19628;
{ /* Llib/date.scm 818 */
 obj_t BgL_arg4250z00_6375;
{ /* Llib/date.scm 818 */
 obj_t BgL_arg4251z00_6376;
{ /* Llib/date.scm 818 */
 obj_t BgL_classz00_8770;
BgL_classz00_8770 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg4251z00_6376 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_8770); } 
BgL_arg4250z00_6375 = 
VECTOR_REF(BgL_arg4251z00_6376,2L); } 
{ /* Llib/date.scm 818 */
 obj_t BgL_auxz00_19632;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg4250z00_6375))
{ /* Llib/date.scm 818 */
BgL_auxz00_19632 = BgL_arg4250z00_6375
; }  else 
{ 
 obj_t BgL_auxz00_19635;
BgL_auxz00_19635 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(35982L), BGl_string6111z00zz__datez00, BGl_string5899z00zz__datez00, BgL_arg4250z00_6375); 
FAILURE(BgL_auxz00_19635,BFALSE,BFALSE);} 
BgL_auxz00_19628 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_19632); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_6374)))->BgL_stackz00)=((obj_t)BgL_auxz00_19628),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_6374)))->BgL_procz00)=((obj_t)BGl_string5882z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_6374)))->BgL_msgz00)=((obj_t)BGl_string5900z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_6374)))->BgL_objz00)=((obj_t)BgL_iportz00_6330),BUNSPEC); 
BgL_arg4249z00_6373 = BgL_new1078z00_6374; } 
BgL_aux5829z00_10941 = 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg4249z00_6373)); }  else 
{ /* Llib/date.scm 818 */
RGC_START_MATCH(BgL_iportz00_6330); 
{ /* Llib/date.scm 818 */
 long BgL_matchz00_6553;
{ /* Llib/date.scm 818 */
 long BgL_arg4381z00_6591; long BgL_arg4382z00_6592;
BgL_arg4381z00_6591 = 
RGC_BUFFER_FORWARD(BgL_iportz00_6330); 
BgL_arg4382z00_6592 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_6330); 
BgL_iportz00_6380 = BgL_iportz00_6330; 
BgL_lastzd2matchzd2_6381 = 1L; 
BgL_forwardz00_6382 = BgL_arg4381z00_6591; 
BgL_bufposz00_6383 = BgL_arg4382z00_6592; 
BgL_zc3z04anonymousza34254ze3z87_6384:
if(
(BgL_forwardz00_6382==BgL_bufposz00_6383))
{ /* Llib/date.scm 818 */
if(
rgc_fill_buffer(BgL_iportz00_6380))
{ /* Llib/date.scm 818 */
 long BgL_arg4257z00_6387; long BgL_arg4258z00_6388;
BgL_arg4257z00_6387 = 
RGC_BUFFER_FORWARD(BgL_iportz00_6380); 
BgL_arg4258z00_6388 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_6380); 
{ 
 long BgL_bufposz00_19659; long BgL_forwardz00_19658;
BgL_forwardz00_19658 = BgL_arg4257z00_6387; 
BgL_bufposz00_19659 = BgL_arg4258z00_6388; 
BgL_bufposz00_6383 = BgL_bufposz00_19659; 
BgL_forwardz00_6382 = BgL_forwardz00_19658; 
goto BgL_zc3z04anonymousza34254ze3z87_6384;} }  else 
{ /* Llib/date.scm 818 */
BgL_matchz00_6553 = BgL_lastzd2matchzd2_6381; } }  else 
{ /* Llib/date.scm 818 */
 int BgL_curz00_6389;
BgL_curz00_6389 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_6380, BgL_forwardz00_6382); 
{ /* Llib/date.scm 818 */

if(
(
(long)(BgL_curz00_6389)==58L))
{ /* Llib/date.scm 818 */
BgL_iportz00_6399 = BgL_iportz00_6380; 
BgL_lastzd2matchzd2_6400 = BgL_lastzd2matchzd2_6381; 
BgL_forwardz00_6401 = 
(1L+BgL_forwardz00_6382); 
BgL_bufposz00_6402 = BgL_bufposz00_6383; 
BgL_zc3z04anonymousza34263ze3z87_6403:
{ /* Llib/date.scm 818 */
 long BgL_newzd2matchzd2_6404;
RGC_STOP_MATCH(BgL_iportz00_6399, BgL_forwardz00_6401); 
BgL_newzd2matchzd2_6404 = 1L; 
if(
(BgL_forwardz00_6401==BgL_bufposz00_6402))
{ /* Llib/date.scm 818 */
if(
rgc_fill_buffer(BgL_iportz00_6399))
{ /* Llib/date.scm 818 */
 long BgL_arg4266z00_6407; long BgL_arg4267z00_6408;
BgL_arg4266z00_6407 = 
RGC_BUFFER_FORWARD(BgL_iportz00_6399); 
BgL_arg4267z00_6408 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_6399); 
{ 
 long BgL_bufposz00_19672; long BgL_forwardz00_19671;
BgL_forwardz00_19671 = BgL_arg4266z00_6407; 
BgL_bufposz00_19672 = BgL_arg4267z00_6408; 
BgL_bufposz00_6402 = BgL_bufposz00_19672; 
BgL_forwardz00_6401 = BgL_forwardz00_19671; 
goto BgL_zc3z04anonymousza34263ze3z87_6403;} }  else 
{ /* Llib/date.scm 818 */
BgL_matchz00_6553 = BgL_newzd2matchzd2_6404; } }  else 
{ /* Llib/date.scm 818 */
 int BgL_curz00_6409;
BgL_curz00_6409 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_6399, BgL_forwardz00_6401); 
{ /* Llib/date.scm 818 */

{ /* Llib/date.scm 818 */
 bool_t BgL_test7511z00_19674;
if(
(
(long)(BgL_curz00_6409)>=48L))
{ /* Llib/date.scm 818 */
BgL_test7511z00_19674 = 
(
(long)(BgL_curz00_6409)<58L)
; }  else 
{ /* Llib/date.scm 818 */
BgL_test7511z00_19674 = ((bool_t)0)
; } 
if(BgL_test7511z00_19674)
{ /* Llib/date.scm 818 */
BgL_iportz00_6414 = BgL_iportz00_6399; 
BgL_lastzd2matchzd2_6415 = BgL_newzd2matchzd2_6404; 
BgL_forwardz00_6416 = 
(1L+BgL_forwardz00_6401); 
BgL_bufposz00_6417 = BgL_bufposz00_6402; 
BgL_zc3z04anonymousza34271ze3z87_6418:
if(
(BgL_forwardz00_6416==BgL_bufposz00_6417))
{ /* Llib/date.scm 818 */
if(
rgc_fill_buffer(BgL_iportz00_6414))
{ /* Llib/date.scm 818 */
 long BgL_arg4274z00_6421; long BgL_arg4275z00_6422;
BgL_arg4274z00_6421 = 
RGC_BUFFER_FORWARD(BgL_iportz00_6414); 
BgL_arg4275z00_6422 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_6414); 
{ 
 long BgL_bufposz00_19687; long BgL_forwardz00_19686;
BgL_forwardz00_19686 = BgL_arg4274z00_6421; 
BgL_bufposz00_19687 = BgL_arg4275z00_6422; 
BgL_bufposz00_6417 = BgL_bufposz00_19687; 
BgL_forwardz00_6416 = BgL_forwardz00_19686; 
goto BgL_zc3z04anonymousza34271ze3z87_6418;} }  else 
{ /* Llib/date.scm 818 */
BgL_matchz00_6553 = BgL_lastzd2matchzd2_6415; } }  else 
{ /* Llib/date.scm 818 */
 int BgL_curz00_6423;
BgL_curz00_6423 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_6414, BgL_forwardz00_6416); 
{ /* Llib/date.scm 818 */

{ /* Llib/date.scm 818 */
 bool_t BgL_test7515z00_19689;
if(
(
(long)(BgL_curz00_6423)>=48L))
{ /* Llib/date.scm 818 */
BgL_test7515z00_19689 = 
(
(long)(BgL_curz00_6423)<58L)
; }  else 
{ /* Llib/date.scm 818 */
BgL_test7515z00_19689 = ((bool_t)0)
; } 
if(BgL_test7515z00_19689)
{ /* Llib/date.scm 818 */
 long BgL_arg4278z00_6426;
BgL_arg4278z00_6426 = 
(1L+BgL_forwardz00_6416); 
{ /* Llib/date.scm 818 */
 long BgL_newzd2matchzd2_8730;
RGC_STOP_MATCH(BgL_iportz00_6414, BgL_arg4278z00_6426); 
BgL_newzd2matchzd2_8730 = 0L; 
BgL_matchz00_6553 = BgL_newzd2matchzd2_8730; } }  else 
{ /* Llib/date.scm 818 */
BgL_matchz00_6553 = BgL_lastzd2matchzd2_6415; } } } } }  else 
{ /* Llib/date.scm 818 */
BgL_matchz00_6553 = BgL_newzd2matchzd2_6404; } } } } } }  else 
{ /* Llib/date.scm 818 */
 long BgL_arg4261z00_6392;
BgL_arg4261z00_6392 = 
(1L+BgL_forwardz00_6382); 
{ /* Llib/date.scm 818 */
 long BgL_newzd2matchzd2_8702;
RGC_STOP_MATCH(BgL_iportz00_6380, BgL_arg4261z00_6392); 
BgL_newzd2matchzd2_8702 = 1L; 
BgL_matchz00_6553 = BgL_newzd2matchzd2_8702; } } } } } 
RGC_SET_FILEPOS(BgL_iportz00_6330); 
switch( BgL_matchz00_6553) { case 1L : 

{ /* Llib/date.scm 828 */
 bool_t BgL_test7517z00_19702;
{ /* Llib/date.scm 828 */
 obj_t BgL_tmpz00_19703;
BgL_tmpz00_19703 = 
BGl_thezd2failureze70z35zz__datez00(BgL_iportz00_6330); 
BgL_test7517z00_19702 = 
EOF_OBJECTP(BgL_tmpz00_19703); } 
if(BgL_test7517z00_19702)
{ /* Llib/date.scm 828 */
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(
BINT(BgL_za7hhza7_6338)))
{ /* Llib/date.scm 232 */
BgL_aux5829z00_10941 = 
bgl_make_date(BgL_sssz00_6337, 
(int)(BgL_ssz00_6336), 
(int)(BgL_mmz00_6335), 
(int)(BgL_hhz00_6334), 
(int)(BgL_ddz00_6333), 
(int)(BgL_mmz00_6332), 
(int)(BgL_yyyyz00_6331), BgL_za7hhza7_6338, ((bool_t)1), 
(int)((-1L))); }  else 
{ /* Llib/date.scm 232 */
BgL_aux5829z00_10941 = 
bgl_make_date(BgL_sssz00_6337, 
(int)(BgL_ssz00_6336), 
(int)(BgL_mmz00_6335), 
(int)(BgL_hhz00_6334), 
(int)(BgL_ddz00_6333), 
(int)(BgL_mmz00_6332), 
(int)(BgL_yyyyz00_6331), 0L, ((bool_t)0), 
(int)((-1L))); } }  else 
{ /* Llib/date.scm 828 */
BgL_aux5829z00_10941 = 
BGl_parsezd2errorzd2zz__datez00(BGl_string6110z00zz__datez00, BGl_string5901z00zz__datez00, 
BGl_thezd2failureze70z35zz__datez00(BgL_iportz00_6330), BgL_iportz00_6330); } } break;case 0L : 

{ /* Llib/date.scm 820 */
 long BgL_b1z00_6570;
{ /* Llib/date.scm 820 */
 int BgL_arg4380z00_6590;
{ /* Llib/date.scm 818 */
 int BgL_tmpz00_19727;
BgL_tmpz00_19727 = 
(int)(1L); 
BgL_arg4380z00_6590 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_6330, BgL_tmpz00_19727); } 
BgL_b1z00_6570 = 
(
(long)(BgL_arg4380z00_6590)-48L); } 
{ /* Llib/date.scm 820 */
 long BgL_b2z00_6571;
{ /* Llib/date.scm 821 */
 int BgL_arg4379z00_6589;
{ /* Llib/date.scm 818 */
 int BgL_tmpz00_19732;
BgL_tmpz00_19732 = 
(int)(2L); 
BgL_arg4379z00_6589 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_6330, BgL_tmpz00_19732); } 
BgL_b2z00_6571 = 
(
(long)(BgL_arg4379z00_6589)-48L); } 
{ /* Llib/date.scm 821 */
 long BgL_tza7za7_6572;
if(
(BgL_za7hhza7_6338<0L))
{ /* Llib/date.scm 822 */
BgL_tza7za7_6572 = 
(BgL_za7hhza7_6338-
(60L*
(
(BgL_b1z00_6570*10L)+BgL_b2z00_6571))); }  else 
{ /* Llib/date.scm 822 */
BgL_tza7za7_6572 = 
(BgL_za7hhza7_6338+
(60L*
(
(BgL_b1z00_6570*10L)+BgL_b2z00_6571))); } 
{ /* Llib/date.scm 822 */

if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(
BINT(BgL_tza7za7_6572)))
{ /* Llib/date.scm 232 */
BgL_aux5829z00_10941 = 
bgl_make_date(BgL_sssz00_6337, 
(int)(BgL_ssz00_6336), 
(int)(BgL_mmz00_6335), 
(int)(BgL_hhz00_6334), 
(int)(BgL_ddz00_6333), 
(int)(BgL_mmz00_6332), 
(int)(BgL_yyyyz00_6331), BgL_tza7za7_6572, ((bool_t)1), 
(int)((-1L))); }  else 
{ /* Llib/date.scm 232 */
BgL_aux5829z00_10941 = 
bgl_make_date(BgL_sssz00_6337, 
(int)(BgL_ssz00_6336), 
(int)(BgL_mmz00_6335), 
(int)(BgL_hhz00_6334), 
(int)(BgL_ddz00_6333), 
(int)(BgL_mmz00_6332), 
(int)(BgL_yyyyz00_6331), 0L, ((bool_t)0), 
(int)((-1L))); } } } } } break;
default: 
BgL_aux5829z00_10941 = 
BGl_errorz00zz__errorz00(BGl_string5882z00zz__datez00, BGl_string5883z00zz__datez00, 
BINT(BgL_matchz00_6553)); } } } } } break;case 1L : 

{ /* Llib/date.scm 840 */
 long BgL_b1z00_6273; long BgL_b2z00_6274;
{ /* Llib/date.scm 840 */
 int BgL_arg4244z00_6279;
{ /* Llib/date.scm 835 */
 int BgL_tmpz00_19773;
BgL_tmpz00_19773 = 
(int)(1L); 
BgL_arg4244z00_6279 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_5974, BgL_tmpz00_19773); } 
BgL_b1z00_6273 = 
(
(long)(BgL_arg4244z00_6279)-48L); } 
{ /* Llib/date.scm 841 */
 int BgL_arg4245z00_6280;
{ /* Llib/date.scm 835 */
 int BgL_tmpz00_19778;
BgL_tmpz00_19778 = 
(int)(2L); 
BgL_arg4245z00_6280 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_5974, BgL_tmpz00_19778); } 
BgL_b2z00_6274 = 
(
(long)(BgL_arg4245z00_6280)-48L); } 
{ 
 long BgL_za7hhza7_19791; BGL_LONGLONG_T BgL_sssz00_19790; long BgL_ssz00_19789; long BgL_mmz00_19788; long BgL_hhz00_19787; long BgL_ddz00_19786; long BgL_mmz00_19785; long BgL_yyyyz00_19784; obj_t BgL_iportz00_19783;
BgL_iportz00_19783 = BgL_iportz00_5974; 
BgL_yyyyz00_19784 = BgL_yyyyz00_5975; 
BgL_mmz00_19785 = BgL_mmz00_5976; 
BgL_ddz00_19786 = BgL_ddz00_5977; 
BgL_hhz00_19787 = BgL_hhz00_5978; 
BgL_mmz00_19788 = BgL_mmz00_5979; 
BgL_ssz00_19789 = BgL_ssz00_5980; 
BgL_sssz00_19790 = BgL_sssz00_5981; 
BgL_za7hhza7_19791 = 
(3600L*
(
(BgL_b1z00_6273*10L)+BgL_b2z00_6274)); 
BgL_za7hhza7_6338 = BgL_za7hhza7_19791; 
BgL_sssz00_6337 = BgL_sssz00_19790; 
BgL_ssz00_6336 = BgL_ssz00_19789; 
BgL_mmz00_6335 = BgL_mmz00_19788; 
BgL_hhz00_6334 = BgL_hhz00_19787; 
BgL_ddz00_6333 = BgL_ddz00_19786; 
BgL_mmz00_6332 = BgL_mmz00_19785; 
BgL_yyyyz00_6331 = BgL_yyyyz00_19784; 
BgL_iportz00_6330 = BgL_iportz00_19783; 
goto BgL_zc3z04anonymousza34248ze3z87_6339;} } break;case 0L : 

if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(
BINT(0L)))
{ /* Llib/date.scm 232 */
BgL_aux5829z00_10941 = 
bgl_make_date(BgL_sssz00_5981, 
(int)(BgL_ssz00_5980), 
(int)(BgL_mmz00_5979), 
(int)(BgL_hhz00_5978), 
(int)(BgL_ddz00_5977), 
(int)(BgL_mmz00_5976), 
(int)(BgL_yyyyz00_5975), 0L, ((bool_t)1), 
(int)((-1L))); }  else 
{ /* Llib/date.scm 232 */
BgL_aux5829z00_10941 = 
bgl_make_date(BgL_sssz00_5981, 
(int)(BgL_ssz00_5980), 
(int)(BgL_mmz00_5979), 
(int)(BgL_hhz00_5978), 
(int)(BgL_ddz00_5977), 
(int)(BgL_mmz00_5976), 
(int)(BgL_yyyyz00_5975), 0L, ((bool_t)0), 
(int)((-1L))); } break;
default: 
BgL_aux5829z00_10941 = 
BGl_errorz00zz__errorz00(BGl_string5882z00zz__datez00, BGl_string5883z00zz__datez00, 
BINT(BgL_matchz00_6247)); } } } } } } break;case 0L : 

{ /* Llib/date.scm 878 */
 long BgL_b1z00_5627; long BgL_b2z00_5628;
{ /* Llib/date.scm 878 */
 int BgL_arg3937z00_5632;
{ /* Llib/date.scm 876 */
 int BgL_tmpz00_19817;
BgL_tmpz00_19817 = 
(int)(1L); 
BgL_arg3937z00_5632 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_5389, BgL_tmpz00_19817); } 
BgL_b1z00_5627 = 
(
(long)(BgL_arg3937z00_5632)-48L); } 
{ /* Llib/date.scm 879 */
 int BgL_arg3938z00_5633;
{ /* Llib/date.scm 876 */
 int BgL_tmpz00_19822;
BgL_tmpz00_19822 = 
(int)(2L); 
BgL_arg3938z00_5633 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_5389, BgL_tmpz00_19822); } 
BgL_b2z00_5628 = 
(
(long)(BgL_arg3938z00_5633)-48L); } 
BgL_iportz00_5670 = BgL_iportz00_5389; 
BgL_yyyyz00_5671 = BgL_yyyyz00_5390; 
BgL_mmz00_5672 = BgL_mmz00_5391; 
BgL_ddz00_5673 = BgL_ddz00_5392; 
BgL_hhz00_5674 = BgL_hhz00_5393; 
BgL_mmz00_5675 = BgL_mmz00_5394; 
BgL_ssz00_5676 = 
(
(BgL_b1z00_5627*10L)+BgL_b2z00_5628); 
{ 
 obj_t BgL_iportz00_5719; long BgL_lastzd2matchzd2_5720; long BgL_forwardz00_5721; long BgL_bufposz00_5722; obj_t BgL_iportz00_5738; long BgL_lastzd2matchzd2_5739; long BgL_forwardz00_5740; long BgL_bufposz00_5741; obj_t BgL_iportz00_5753; long BgL_lastzd2matchzd2_5754; long BgL_forwardz00_5755; long BgL_bufposz00_5756; obj_t BgL_iportz00_5767; long BgL_lastzd2matchzd2_5768; long BgL_forwardz00_5769; long BgL_bufposz00_5770;
if(
INPUT_PORT_CLOSEP(BgL_iportz00_5670))
{ /* Llib/date.scm 858 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg3942z00_5712;
{ /* Llib/date.scm 858 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1078z00_5713;
{ /* Llib/date.scm 858 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1077z00_5716;
BgL_new1077z00_5716 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Llib/date.scm 858 */
 long BgL_arg3945z00_5717;
BgL_arg3945z00_5717 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1077z00_5716), BgL_arg3945z00_5717); } 
BgL_new1078z00_5713 = BgL_new1077z00_5716; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_5713)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_5713)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_19837;
{ /* Llib/date.scm 858 */
 obj_t BgL_arg3943z00_5714;
{ /* Llib/date.scm 858 */
 obj_t BgL_arg3944z00_5715;
{ /* Llib/date.scm 858 */
 obj_t BgL_classz00_8982;
BgL_classz00_8982 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg3944z00_5715 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_8982); } 
BgL_arg3943z00_5714 = 
VECTOR_REF(BgL_arg3944z00_5715,2L); } 
{ /* Llib/date.scm 858 */
 obj_t BgL_auxz00_19841;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg3943z00_5714))
{ /* Llib/date.scm 858 */
BgL_auxz00_19841 = BgL_arg3943z00_5714
; }  else 
{ 
 obj_t BgL_auxz00_19844;
BgL_auxz00_19844 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(37348L), BGl_string6115z00zz__datez00, BGl_string5899z00zz__datez00, BgL_arg3943z00_5714); 
FAILURE(BgL_auxz00_19844,BFALSE,BFALSE);} 
BgL_auxz00_19837 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_19841); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1078z00_5713)))->BgL_stackz00)=((obj_t)BgL_auxz00_19837),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_5713)))->BgL_procz00)=((obj_t)BGl_string5882z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_5713)))->BgL_msgz00)=((obj_t)BGl_string5900z00zz__datez00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1078z00_5713)))->BgL_objz00)=((obj_t)BgL_iportz00_5670),BUNSPEC); 
BgL_arg3942z00_5712 = BgL_new1078z00_5713; } 
BgL_aux5829z00_10941 = 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg3942z00_5712)); }  else 
{ /* Llib/date.scm 858 */
RGC_START_MATCH(BgL_iportz00_5670); 
{ /* Llib/date.scm 858 */
 long BgL_matchz00_5906;
{ /* Llib/date.scm 858 */
 long BgL_arg4084z00_5937; long BgL_arg4085z00_5938;
BgL_arg4084z00_5937 = 
RGC_BUFFER_FORWARD(BgL_iportz00_5670); 
BgL_arg4085z00_5938 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_5670); 
BgL_iportz00_5719 = BgL_iportz00_5670; 
BgL_lastzd2matchzd2_5720 = 1L; 
BgL_forwardz00_5721 = BgL_arg4084z00_5937; 
BgL_bufposz00_5722 = BgL_arg4085z00_5938; 
BgL_zc3z04anonymousza33947ze3z87_5723:
if(
(BgL_forwardz00_5721==BgL_bufposz00_5722))
{ /* Llib/date.scm 858 */
if(
rgc_fill_buffer(BgL_iportz00_5719))
{ /* Llib/date.scm 858 */
 long BgL_arg3950z00_5726; long BgL_arg3951z00_5727;
BgL_arg3950z00_5726 = 
RGC_BUFFER_FORWARD(BgL_iportz00_5719); 
BgL_arg3951z00_5727 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_5719); 
{ 
 long BgL_bufposz00_19868; long BgL_forwardz00_19867;
BgL_forwardz00_19867 = BgL_arg3950z00_5726; 
BgL_bufposz00_19868 = BgL_arg3951z00_5727; 
BgL_bufposz00_5722 = BgL_bufposz00_19868; 
BgL_forwardz00_5721 = BgL_forwardz00_19867; 
goto BgL_zc3z04anonymousza33947ze3z87_5723;} }  else 
{ /* Llib/date.scm 858 */
BgL_matchz00_5906 = BgL_lastzd2matchzd2_5720; } }  else 
{ /* Llib/date.scm 858 */
 int BgL_curz00_5728;
BgL_curz00_5728 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_5719, BgL_forwardz00_5721); 
{ /* Llib/date.scm 858 */

if(
(
(long)(BgL_curz00_5728)==46L))
{ /* Llib/date.scm 858 */
BgL_iportz00_5738 = BgL_iportz00_5719; 
BgL_lastzd2matchzd2_5739 = BgL_lastzd2matchzd2_5720; 
BgL_forwardz00_5740 = 
(1L+BgL_forwardz00_5721); 
BgL_bufposz00_5741 = BgL_bufposz00_5722; 
BgL_zc3z04anonymousza33956ze3z87_5742:
{ /* Llib/date.scm 858 */
 long BgL_newzd2matchzd2_5743;
RGC_STOP_MATCH(BgL_iportz00_5738, BgL_forwardz00_5740); 
BgL_newzd2matchzd2_5743 = 1L; 
if(
(BgL_forwardz00_5740==BgL_bufposz00_5741))
{ /* Llib/date.scm 858 */
if(
rgc_fill_buffer(BgL_iportz00_5738))
{ /* Llib/date.scm 858 */
 long BgL_arg3959z00_5746; long BgL_arg3960z00_5747;
BgL_arg3959z00_5746 = 
RGC_BUFFER_FORWARD(BgL_iportz00_5738); 
BgL_arg3960z00_5747 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_5738); 
{ 
 long BgL_bufposz00_19881; long BgL_forwardz00_19880;
BgL_forwardz00_19880 = BgL_arg3959z00_5746; 
BgL_bufposz00_19881 = BgL_arg3960z00_5747; 
BgL_bufposz00_5741 = BgL_bufposz00_19881; 
BgL_forwardz00_5740 = BgL_forwardz00_19880; 
goto BgL_zc3z04anonymousza33956ze3z87_5742;} }  else 
{ /* Llib/date.scm 858 */
BgL_matchz00_5906 = BgL_newzd2matchzd2_5743; } }  else 
{ /* Llib/date.scm 858 */
 int BgL_curz00_5748;
BgL_curz00_5748 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_5738, BgL_forwardz00_5740); 
{ /* Llib/date.scm 858 */

{ /* Llib/date.scm 858 */
 bool_t BgL_test7529z00_19883;
if(
(
(long)(BgL_curz00_5748)>=48L))
{ /* Llib/date.scm 858 */
BgL_test7529z00_19883 = 
(
(long)(BgL_curz00_5748)<58L)
; }  else 
{ /* Llib/date.scm 858 */
BgL_test7529z00_19883 = ((bool_t)0)
; } 
if(BgL_test7529z00_19883)
{ /* Llib/date.scm 858 */
BgL_iportz00_5753 = BgL_iportz00_5738; 
BgL_lastzd2matchzd2_5754 = BgL_newzd2matchzd2_5743; 
BgL_forwardz00_5755 = 
(1L+BgL_forwardz00_5740); 
BgL_bufposz00_5756 = BgL_bufposz00_5741; 
BgL_zc3z04anonymousza33964ze3z87_5757:
if(
(BgL_forwardz00_5755==BgL_bufposz00_5756))
{ /* Llib/date.scm 858 */
if(
rgc_fill_buffer(BgL_iportz00_5753))
{ /* Llib/date.scm 858 */
 long BgL_arg3967z00_5760; long BgL_arg3968z00_5761;
BgL_arg3967z00_5760 = 
RGC_BUFFER_FORWARD(BgL_iportz00_5753); 
BgL_arg3968z00_5761 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_5753); 
{ 
 long BgL_bufposz00_19896; long BgL_forwardz00_19895;
BgL_forwardz00_19895 = BgL_arg3967z00_5760; 
BgL_bufposz00_19896 = BgL_arg3968z00_5761; 
BgL_bufposz00_5756 = BgL_bufposz00_19896; 
BgL_forwardz00_5755 = BgL_forwardz00_19895; 
goto BgL_zc3z04anonymousza33964ze3z87_5757;} }  else 
{ /* Llib/date.scm 858 */
BgL_matchz00_5906 = BgL_lastzd2matchzd2_5754; } }  else 
{ /* Llib/date.scm 858 */
 int BgL_curz00_5762;
BgL_curz00_5762 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_5753, BgL_forwardz00_5755); 
{ /* Llib/date.scm 858 */

{ /* Llib/date.scm 858 */
 bool_t BgL_test7533z00_19898;
if(
(
(long)(BgL_curz00_5762)>=48L))
{ /* Llib/date.scm 858 */
BgL_test7533z00_19898 = 
(
(long)(BgL_curz00_5762)<58L)
; }  else 
{ /* Llib/date.scm 858 */
BgL_test7533z00_19898 = ((bool_t)0)
; } 
if(BgL_test7533z00_19898)
{ /* Llib/date.scm 858 */
BgL_iportz00_5767 = BgL_iportz00_5753; 
BgL_lastzd2matchzd2_5768 = BgL_lastzd2matchzd2_5754; 
BgL_forwardz00_5769 = 
(1L+BgL_forwardz00_5755); 
BgL_bufposz00_5770 = BgL_bufposz00_5756; 
BgL_zc3z04anonymousza33972ze3z87_5771:
if(
(BgL_forwardz00_5769==BgL_bufposz00_5770))
{ /* Llib/date.scm 858 */
if(
rgc_fill_buffer(BgL_iportz00_5767))
{ /* Llib/date.scm 858 */
 long BgL_arg3975z00_5774; long BgL_arg3976z00_5775;
BgL_arg3975z00_5774 = 
RGC_BUFFER_FORWARD(BgL_iportz00_5767); 
BgL_arg3976z00_5775 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_5767); 
{ 
 long BgL_bufposz00_19911; long BgL_forwardz00_19910;
BgL_forwardz00_19910 = BgL_arg3975z00_5774; 
BgL_bufposz00_19911 = BgL_arg3976z00_5775; 
BgL_bufposz00_5770 = BgL_bufposz00_19911; 
BgL_forwardz00_5769 = BgL_forwardz00_19910; 
goto BgL_zc3z04anonymousza33972ze3z87_5771;} }  else 
{ /* Llib/date.scm 858 */
BgL_matchz00_5906 = BgL_lastzd2matchzd2_5768; } }  else 
{ /* Llib/date.scm 858 */
 int BgL_curz00_5776;
BgL_curz00_5776 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_5767, BgL_forwardz00_5769); 
{ /* Llib/date.scm 858 */

{ /* Llib/date.scm 858 */
 bool_t BgL_test7537z00_19913;
if(
(
(long)(BgL_curz00_5776)>=48L))
{ /* Llib/date.scm 858 */
BgL_test7537z00_19913 = 
(
(long)(BgL_curz00_5776)<58L)
; }  else 
{ /* Llib/date.scm 858 */
BgL_test7537z00_19913 = ((bool_t)0)
; } 
if(BgL_test7537z00_19913)
{ /* Llib/date.scm 858 */
 long BgL_arg3979z00_5779;
BgL_arg3979z00_5779 = 
(1L+BgL_forwardz00_5769); 
{ /* Llib/date.scm 858 */
 long BgL_newzd2matchzd2_8943;
RGC_STOP_MATCH(BgL_iportz00_5767, BgL_arg3979z00_5779); 
BgL_newzd2matchzd2_8943 = 0L; 
BgL_matchz00_5906 = BgL_newzd2matchzd2_8943; } }  else 
{ /* Llib/date.scm 858 */
BgL_matchz00_5906 = BgL_lastzd2matchzd2_5768; } } } } }  else 
{ /* Llib/date.scm 858 */
BgL_matchz00_5906 = BgL_lastzd2matchzd2_5754; } } } } }  else 
{ /* Llib/date.scm 858 */
BgL_matchz00_5906 = BgL_newzd2matchzd2_5743; } } } } } }  else 
{ /* Llib/date.scm 858 */
 long BgL_arg3954z00_5731;
BgL_arg3954z00_5731 = 
(1L+BgL_forwardz00_5721); 
{ /* Llib/date.scm 858 */
 long BgL_newzd2matchzd2_8905;
RGC_STOP_MATCH(BgL_iportz00_5719, BgL_arg3954z00_5731); 
BgL_newzd2matchzd2_8905 = 1L; 
BgL_matchz00_5906 = BgL_newzd2matchzd2_8905; } } } } } 
RGC_SET_FILEPOS(BgL_iportz00_5670); 
switch( BgL_matchz00_5906) { case 1L : 

{ /* Llib/date.scm 867 */
 bool_t BgL_test7539z00_19927;
{ /* Llib/date.scm 867 */
 obj_t BgL_tmpz00_19928;
BgL_tmpz00_19928 = 
BGl_thezd2failureze72z35zz__datez00(BgL_iportz00_5670); 
BgL_test7539z00_19927 = 
EOF_OBJECTP(BgL_tmpz00_19928); } 
if(BgL_test7539z00_19927)
{ /* Llib/date.scm 867 */
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BFALSE))
{ /* Llib/date.scm 233 */
 long BgL_tmpz00_19933;
{ /* Llib/date.scm 868 */
 obj_t BgL_aux5805z00_10917;
BgL_aux5805z00_10917 = BFALSE; 
{ 
 obj_t BgL_auxz00_19940;
BgL_auxz00_19940 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(37666L), BGl_string5877z00zz__datez00, BGl_string6112z00zz__datez00, BgL_aux5805z00_10917); 
FAILURE(BgL_auxz00_19940,BFALSE,BFALSE);} } 
BgL_tmpz00_19933 = 0L; 
BgL_aux5829z00_10941 = 
bgl_make_date(((BGL_LONGLONG_T)0), 
(int)(BgL_ssz00_5676), 
(int)(BgL_mmz00_5675), 
(int)(BgL_hhz00_5674), 
(int)(BgL_ddz00_5673), 
(int)(BgL_mmz00_5672), 
(int)(BgL_yyyyz00_5671), BgL_tmpz00_19933, ((bool_t)1), 
(int)((-1L))); }  else 
{ /* Llib/date.scm 232 */
BgL_aux5829z00_10941 = 
bgl_make_date(((BGL_LONGLONG_T)0), 
(int)(BgL_ssz00_5676), 
(int)(BgL_mmz00_5675), 
(int)(BgL_hhz00_5674), 
(int)(BgL_ddz00_5673), 
(int)(BgL_mmz00_5672), 
(int)(BgL_yyyyz00_5671), 0L, ((bool_t)0), 
(int)((-1L))); } }  else 
{ /* Llib/date.scm 867 */
{ /* Llib/date.scm 871 */
 obj_t BgL_arg4070z00_5920;
BgL_arg4070z00_5920 = 
BGl_thezd2failureze72z35zz__datez00(BgL_iportz00_5670); 
{ /* Llib/date.scm 871 */
 unsigned char BgL_auxz00_19955;
{ /* Llib/date.scm 871 */
 obj_t BgL_tmpz00_19956;
if(
CHARP(BgL_arg4070z00_5920))
{ /* Llib/date.scm 871 */
BgL_tmpz00_19956 = BgL_arg4070z00_5920
; }  else 
{ 
 obj_t BgL_auxz00_19959;
BgL_auxz00_19959 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(37778L), BGl_string5877z00zz__datez00, BGl_string6114z00zz__datez00, BgL_arg4070z00_5920); 
FAILURE(BgL_auxz00_19959,BFALSE,BFALSE);} 
BgL_auxz00_19955 = 
CCHAR(BgL_tmpz00_19956); } 
BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_19955, BgL_iportz00_5670); } } 
{ 
 BGL_LONGLONG_T BgL_sssz00_19972; long BgL_ssz00_19971; long BgL_mmz00_19970; long BgL_hhz00_19969; long BgL_ddz00_19968; long BgL_mmz00_19967; long BgL_yyyyz00_19966; obj_t BgL_iportz00_19965;
BgL_iportz00_19965 = BgL_iportz00_5670; 
BgL_yyyyz00_19966 = BgL_yyyyz00_5671; 
BgL_mmz00_19967 = BgL_mmz00_5672; 
BgL_ddz00_19968 = BgL_ddz00_5673; 
BgL_hhz00_19969 = BgL_hhz00_5674; 
BgL_mmz00_19970 = BgL_mmz00_5675; 
BgL_ssz00_19971 = BgL_ssz00_5676; 
BgL_sssz00_19972 = ((BGL_LONGLONG_T)0); 
BgL_sssz00_5981 = BgL_sssz00_19972; 
BgL_ssz00_5980 = BgL_ssz00_19971; 
BgL_mmz00_5979 = BgL_mmz00_19970; 
BgL_hhz00_5978 = BgL_hhz00_19969; 
BgL_ddz00_5977 = BgL_ddz00_19968; 
BgL_mmz00_5976 = BgL_mmz00_19967; 
BgL_yyyyz00_5975 = BgL_yyyyz00_19966; 
BgL_iportz00_5974 = BgL_iportz00_19965; 
goto BgL_zc3z04anonymousza34086ze3z87_5982;} } } break;case 0L : 

{ /* Llib/date.scm 860 */
 long BgL_b1z00_5924; long BgL_b2z00_5925; long BgL_b3z00_5926;
{ /* Llib/date.scm 860 */
 int BgL_arg4081z00_5934;
{ /* Llib/date.scm 858 */
 int BgL_tmpz00_19973;
BgL_tmpz00_19973 = 
(int)(1L); 
BgL_arg4081z00_5934 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_5670, BgL_tmpz00_19973); } 
BgL_b1z00_5924 = 
(
(long)(BgL_arg4081z00_5934)-48L); } 
{ /* Llib/date.scm 861 */
 int BgL_arg4082z00_5935;
{ /* Llib/date.scm 858 */
 int BgL_tmpz00_19978;
BgL_tmpz00_19978 = 
(int)(2L); 
BgL_arg4082z00_5935 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_5670, BgL_tmpz00_19978); } 
BgL_b2z00_5925 = 
(
(long)(BgL_arg4082z00_5935)-48L); } 
{ /* Llib/date.scm 862 */
 int BgL_arg4083z00_5936;
{ /* Llib/date.scm 858 */
 int BgL_tmpz00_19983;
BgL_tmpz00_19983 = 
(int)(3L); 
BgL_arg4083z00_5936 = 
RGC_BUFFER_BYTE_REF(BgL_iportz00_5670, BgL_tmpz00_19983); } 
BgL_b3z00_5926 = 
(
(long)(BgL_arg4083z00_5936)-48L); } 
{ /* Llib/date.scm 863 */
 BGL_LONGLONG_T BgL_arg4075z00_5928;
{ /* Llib/date.scm 865 */
 BGL_LONGLONG_T BgL_arg4076z00_5929;
{ /* Llib/date.scm 865 */
 long BgL_tmpz00_19988;
BgL_tmpz00_19988 = 
(
(
(
(BgL_b1z00_5924*10L)+BgL_b2z00_5925)*10L)+BgL_b3z00_5926); 
BgL_arg4076z00_5929 = 
LONG_TO_LLONG(BgL_tmpz00_19988); } 
BgL_arg4075z00_5928 = 
((16960 + ((BGL_LONGLONG_T)65536 * (((BGL_LONGLONG_T)15))))*BgL_arg4076z00_5929); } 
{ 
 BGL_LONGLONG_T BgL_sssz00_20002; long BgL_ssz00_20001; long BgL_mmz00_20000; long BgL_hhz00_19999; long BgL_ddz00_19998; long BgL_mmz00_19997; long BgL_yyyyz00_19996; obj_t BgL_iportz00_19995;
BgL_iportz00_19995 = BgL_iportz00_5670; 
BgL_yyyyz00_19996 = BgL_yyyyz00_5671; 
BgL_mmz00_19997 = BgL_mmz00_5672; 
BgL_ddz00_19998 = BgL_ddz00_5673; 
BgL_hhz00_19999 = BgL_hhz00_5674; 
BgL_mmz00_20000 = BgL_mmz00_5675; 
BgL_ssz00_20001 = BgL_ssz00_5676; 
BgL_sssz00_20002 = BgL_arg4075z00_5928; 
BgL_sssz00_5981 = BgL_sssz00_20002; 
BgL_ssz00_5980 = BgL_ssz00_20001; 
BgL_mmz00_5979 = BgL_mmz00_20000; 
BgL_hhz00_5978 = BgL_hhz00_19999; 
BgL_ddz00_5977 = BgL_ddz00_19998; 
BgL_mmz00_5976 = BgL_mmz00_19997; 
BgL_yyyyz00_5975 = BgL_yyyyz00_19996; 
BgL_iportz00_5974 = BgL_iportz00_19995; 
goto BgL_zc3z04anonymousza34086ze3z87_5982;} } } break;
default: 
BgL_aux5829z00_10941 = 
BGl_errorz00zz__errorz00(BGl_string5882z00zz__datez00, BGl_string5883z00zz__datez00, 
BINT(BgL_matchz00_5906)); } } } } } break;
default: 
BgL_aux5829z00_10941 = 
BGl_errorz00zz__errorz00(BGl_string5882z00zz__datez00, BGl_string5883z00zz__datez00, 
BINT(BgL_matchz00_5609)); } } } } } break;
default: 
BgL_aux5829z00_10941 = 
BGl_errorz00zz__errorz00(BGl_string5882z00zz__datez00, BGl_string5883z00zz__datez00, 
BINT(BgL_matchz00_5329)); } } } } } break;
default: 
BgL_aux5829z00_10941 = 
BGl_errorz00zz__errorz00(BGl_string5882z00zz__datez00, BGl_string5883z00zz__datez00, 
BINT(BgL_matchz00_5050)); } } } } } break;
default: 
BgL_aux5829z00_10941 = 
BGl_errorz00zz__errorz00(BGl_string5882z00zz__datez00, BGl_string5883z00zz__datez00, 
BINT(BgL_matchz00_4770)); } } } } } break;
default: 
BgL_aux5829z00_10941 = 
BGl_errorz00zz__errorz00(BGl_string5882z00zz__datez00, BGl_string5883z00zz__datez00, 
BINT(BgL_matchz00_4493)); } } } } } break;
default: 
BgL_aux5829z00_10941 = 
BGl_errorz00zz__errorz00(BGl_string5882z00zz__datez00, BGl_string5883z00zz__datez00, 
BINT(BgL_matchz00_4225)); } } } } 
if(
BGL_DATEP(BgL_aux5829z00_10941))
{ /* Llib/date.scm 959 */
return BgL_aux5829z00_10941;}  else 
{ 
 obj_t BgL_auxz00_20037;
BgL_auxz00_20037 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(40342L), BGl_string6110z00zz__datez00, BGl_string6036z00zz__datez00, BgL_aux5829z00_10941); 
FAILURE(BgL_auxz00_20037,BFALSE,BFALSE);} } } } } } } } } } } } 

}



/* the-failure~0 */
obj_t BGl_thezd2failureze70z35zz__datez00(obj_t BgL_iportz00_9878)
{
{ /* Llib/date.scm 818 */
{ /* Llib/date.scm 818 */
 bool_t BgL_test7543z00_20041;
{ /* Llib/date.scm 818 */
 long BgL_arg4360z00_6543;
BgL_arg4360z00_6543 = 
RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_9878); 
BgL_test7543z00_20041 = 
(BgL_arg4360z00_6543==0L); } 
if(BgL_test7543z00_20041)
{ /* Llib/date.scm 818 */
return BEOF;}  else 
{ /* Llib/date.scm 818 */
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_iportz00_9878));} } } 

}



/* the-failure~1 */
obj_t BGl_thezd2failureze71z35zz__datez00(obj_t BgL_iportz00_9879)
{
{ /* Llib/date.scm 835 */
{ /* Llib/date.scm 835 */
 bool_t BgL_test7544z00_20046;
{ /* Llib/date.scm 835 */
 long BgL_arg4221z00_6237;
BgL_arg4221z00_6237 = 
RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_9879); 
BgL_test7544z00_20046 = 
(BgL_arg4221z00_6237==0L); } 
if(BgL_test7544z00_20046)
{ /* Llib/date.scm 835 */
return BEOF;}  else 
{ /* Llib/date.scm 835 */
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_iportz00_9879));} } } 

}



/* the-failure~2 */
obj_t BGl_thezd2failureze72z35zz__datez00(obj_t BgL_iportz00_9880)
{
{ /* Llib/date.scm 858 */
{ /* Llib/date.scm 858 */
 bool_t BgL_test7545z00_20051;
{ /* Llib/date.scm 858 */
 long BgL_arg4061z00_5896;
BgL_arg4061z00_5896 = 
RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_9880); 
BgL_test7545z00_20051 = 
(BgL_arg4061z00_5896==0L); } 
if(BgL_test7545z00_20051)
{ /* Llib/date.scm 858 */
return BEOF;}  else 
{ /* Llib/date.scm 858 */
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_iportz00_9880));} } } 

}



/* the-failure~3 */
obj_t BGl_thezd2failureze73z35zz__datez00(obj_t BgL_iportz00_9881)
{
{ /* Llib/date.scm 876 */
{ /* Llib/date.scm 876 */
 bool_t BgL_test7546z00_20056;
{ /* Llib/date.scm 876 */
 long BgL_arg3921z00_5599;
BgL_arg3921z00_5599 = 
RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_9881); 
BgL_test7546z00_20056 = 
(BgL_arg3921z00_5599==0L); } 
if(BgL_test7546z00_20056)
{ /* Llib/date.scm 876 */
return BEOF;}  else 
{ /* Llib/date.scm 876 */
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_iportz00_9881));} } } 

}



/* the-failure~4 */
obj_t BGl_thezd2failureze74z35zz__datez00(obj_t BgL_iportz00_9882)
{
{ /* Llib/date.scm 892 */
{ /* Llib/date.scm 892 */
 bool_t BgL_test7547z00_20061;
{ /* Llib/date.scm 892 */
 long BgL_arg3790z00_5319;
BgL_arg3790z00_5319 = 
RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_9882); 
BgL_test7547z00_20061 = 
(BgL_arg3790z00_5319==0L); } 
if(BgL_test7547z00_20061)
{ /* Llib/date.scm 892 */
return BEOF;}  else 
{ /* Llib/date.scm 892 */
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_iportz00_9882));} } } 

}



/* the-failure~5 */
obj_t BGl_thezd2failureze75z35zz__datez00(obj_t BgL_iportz00_9883)
{
{ /* Llib/date.scm 906 */
{ /* Llib/date.scm 906 */
 bool_t BgL_test7548z00_20066;
{ /* Llib/date.scm 906 */
 long BgL_arg3659z00_5040;
BgL_arg3659z00_5040 = 
RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_9883); 
BgL_test7548z00_20066 = 
(BgL_arg3659z00_5040==0L); } 
if(BgL_test7548z00_20066)
{ /* Llib/date.scm 906 */
return BEOF;}  else 
{ /* Llib/date.scm 906 */
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_iportz00_9883));} } } 

}



/* the-failure~6 */
obj_t BGl_thezd2failureze76z35zz__datez00(obj_t BgL_iportz00_9884)
{
{ /* Llib/date.scm 921 */
{ /* Llib/date.scm 921 */
 bool_t BgL_test7549z00_20071;
{ /* Llib/date.scm 921 */
 long BgL_arg3514z00_4760;
BgL_arg3514z00_4760 = 
RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_9884); 
BgL_test7549z00_20071 = 
(BgL_arg3514z00_4760==0L); } 
if(BgL_test7549z00_20071)
{ /* Llib/date.scm 921 */
return BEOF;}  else 
{ /* Llib/date.scm 921 */
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_iportz00_9884));} } } 

}



/* the-failure~7 */
obj_t BGl_thezd2failureze77z35zz__datez00(obj_t BgL_iportz00_9885)
{
{ /* Llib/date.scm 935 */
{ /* Llib/date.scm 935 */
 bool_t BgL_test7550z00_20076;
{ /* Llib/date.scm 935 */
 long BgL_arg3367z00_4483;
BgL_arg3367z00_4483 = 
RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_9885); 
BgL_test7550z00_20076 = 
(BgL_arg3367z00_4483==0L); } 
if(BgL_test7550z00_20076)
{ /* Llib/date.scm 935 */
return BEOF;}  else 
{ /* Llib/date.scm 935 */
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_iportz00_9885));} } } 

}



/* &iso8601-parse-date */
obj_t BGl_z62iso8601zd2parsezd2datez62zz__datez00(obj_t BgL_envz00_9876, obj_t BgL_ipz00_9877)
{
{ /* Llib/date.scm 815 */
{ /* Llib/date.scm 818 */
 obj_t BgL_auxz00_20081;
if(
INPUT_PORTP(BgL_ipz00_9877))
{ /* Llib/date.scm 818 */
BgL_auxz00_20081 = BgL_ipz00_9877
; }  else 
{ 
 obj_t BgL_auxz00_20084;
BgL_auxz00_20084 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(35982L), BGl_string6122z00zz__datez00, BGl_string5878z00zz__datez00, BgL_ipz00_9877); 
FAILURE(BgL_auxz00_20084,BFALSE,BFALSE);} 
return 
BGl_iso8601zd2parsezd2datez00zz__datez00(BgL_auxz00_20081);} } 

}



/* parse-error */
obj_t BGl_parsezd2errorzd2zz__datez00(obj_t BgL_procz00_96, obj_t BgL_messagez00_97, obj_t BgL_objz00_98, obj_t BgL_portz00_99)
{
{ /* Llib/date.scm 964 */
{ /* Llib/date.scm 966 */
 BgL_z62iozd2parsezd2errorz62_bglt BgL_arg4383z00_6626;
{ /* Llib/date.scm 966 */
 BgL_z62iozd2parsezd2errorz62_bglt BgL_new1150z00_6627;
{ /* Llib/date.scm 972 */
 BgL_z62iozd2parsezd2errorz62_bglt BgL_new1149z00_6638;
BgL_new1149z00_6638 = 
((BgL_z62iozd2parsezd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2parsezd2errorz62_bgl) ))); 
{ /* Llib/date.scm 972 */
 long BgL_arg4394z00_6639;
BgL_arg4394z00_6639 = 
BGL_CLASS_NUM(BGl_z62iozd2parsezd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1149z00_6638), BgL_arg4394z00_6639); } 
BgL_new1150z00_6627 = BgL_new1149z00_6638; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1150z00_6627)))->BgL_fnamez00)=((obj_t)
INPUT_PORT_NAME(BgL_portz00_99)),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1150z00_6627)))->BgL_locationz00)=((obj_t)
BINT(
INPUT_PORT_FILEPOS(BgL_portz00_99))),BUNSPEC); 
{ 
 obj_t BgL_auxz00_20100;
{ /* Llib/date.scm 973 */
 obj_t BgL_arg4384z00_6628;
{ /* Llib/date.scm 973 */
 obj_t BgL_arg4385z00_6629;
{ /* Llib/date.scm 973 */
 obj_t BgL_classz00_9431;
BgL_classz00_9431 = BGl_z62iozd2parsezd2errorz62zz__objectz00; 
BgL_arg4385z00_6629 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_9431); } 
BgL_arg4384z00_6628 = 
VECTOR_REF(BgL_arg4385z00_6629,2L); } 
{ /* Llib/date.scm 973 */
 obj_t BgL_auxz00_20104;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg4384z00_6628))
{ /* Llib/date.scm 973 */
BgL_auxz00_20104 = BgL_arg4384z00_6628
; }  else 
{ 
 obj_t BgL_auxz00_20107;
BgL_auxz00_20107 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string5876z00zz__datez00, 
BINT(40870L), BGl_string6123z00zz__datez00, BGl_string5899z00zz__datez00, BgL_arg4384z00_6628); 
FAILURE(BgL_auxz00_20107,BFALSE,BFALSE);} 
BgL_auxz00_20100 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_20104); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1150z00_6627)))->BgL_stackz00)=((obj_t)BgL_auxz00_20100),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1150z00_6627)))->BgL_procz00)=((obj_t)BgL_procz00_96),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1150z00_6627)))->BgL_msgz00)=((obj_t)BgL_messagez00_97),BUNSPEC); 
{ 
 obj_t BgL_auxz00_20117;
if(
CHARP(BgL_objz00_98))
{ /* Llib/date.scm 970 */
 obj_t BgL_arg4387z00_6631; obj_t BgL_arg4388z00_6632;
{ /* Llib/date.scm 970 */
 obj_t BgL_list4393z00_6637;
BgL_list4393z00_6637 = 
MAKE_YOUNG_PAIR(BgL_objz00_98, BNIL); 
BgL_arg4387z00_6631 = 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_list4393z00_6637); } 
BgL_arg4388z00_6632 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_portz00_99); 
{ /* Llib/date.scm 970 */
 obj_t BgL_list4389z00_6633;
{ /* Llib/date.scm 970 */
 obj_t BgL_arg4390z00_6634;
{ /* Llib/date.scm 970 */
 obj_t BgL_arg4391z00_6635;
{ /* Llib/date.scm 970 */
 obj_t BgL_arg4392z00_6636;
BgL_arg4392z00_6636 = 
MAKE_YOUNG_PAIR(BgL_arg4388z00_6632, BNIL); 
BgL_arg4391z00_6635 = 
MAKE_YOUNG_PAIR(BGl_string6124z00zz__datez00, BgL_arg4392z00_6636); } 
BgL_arg4390z00_6634 = 
MAKE_YOUNG_PAIR(BgL_arg4387z00_6631, BgL_arg4391z00_6635); } 
BgL_list4389z00_6633 = 
MAKE_YOUNG_PAIR(BGl_string6125z00zz__datez00, BgL_arg4390z00_6634); } 
BgL_auxz00_20117 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list4389z00_6633); } }  else 
{ /* Llib/date.scm 969 */
BgL_auxz00_20117 = BgL_objz00_98
; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1150z00_6627)))->BgL_objz00)=((obj_t)BgL_auxz00_20117),BUNSPEC); } 
BgL_arg4383z00_6626 = BgL_new1150z00_6627; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg4383z00_6626));} } 

}



/* object-init */
obj_t BGl_objectzd2initzd2zz__datez00(void)
{
{ /* Llib/date.scm 19 */
return BUNSPEC;} 

}



/* generic-init */
obj_t BGl_genericzd2initzd2zz__datez00(void)
{
{ /* Llib/date.scm 19 */
return BUNSPEC;} 

}



/* method-init */
obj_t BGl_methodzd2initzd2zz__datez00(void)
{
{ /* Llib/date.scm 19 */
return BUNSPEC;} 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__datez00(void)
{
{ /* Llib/date.scm 19 */
return 
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string6126z00zz__datez00));} 

}

#ifdef __cplusplus
}
#endif
