/*===========================================================================*/
/*   (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-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Llib/date.scm -indent -o objs/obj_u/Llib/date.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* 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_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_z62datezd2timeza7onez17zz__datez00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_datezf3zf3zz__datez00(obj_t);
	static obj_t BGl_z62datezd2weekzd2dayz62zz__datez00(obj_t, obj_t);
	extern BGL_LONGLONG_T bgl_current_microseconds(void);
	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);
	extern long BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(long, long);
	BGL_EXPORTED_DECL obj_t BGl_currentzd2datezd2zz__datez00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_datezd2updatezd2millisecondz12z12zz__datez00(obj_t, long);
	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_z62zc3z04anonymousza31684ze3ze5zz__datez00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31838ze3ze5zz__datez00(obj_t, obj_t);
	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);
	static obj_t BGl_z62currentzd2microsecondszb0zz__datez00(obj_t);
	BGL_EXPORTED_DECL int BGl_datezd2ydayzd2zz__datez00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_nanosecondszd2ze3datez31zz__datez00(BGL_LONGLONG_T);
	static obj_t BGl_dayzd2ofzd2weekzd2grammarzd2zz__datez00 = BUNSPEC;
	extern obj_t bstring_to_keyword(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_millisecondszd2ze3datez31zz__datez00(BGL_LONGLONG_T);
	static obj_t BGl_symbol4994z00zz__datez00 = BUNSPEC;
	BGL_EXPORTED_DECL int BGl_datezd2monthzd2zz__datez00(obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__datez00 = BUNSPEC;
	static obj_t BGl_z62iso8601zd2parsezd2datez62zz__datez00(obj_t, obj_t);
	extern obj_t BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	extern obj_t bgl_seconds_to_gmtdate(long);
	extern obj_t BGl_raisez00zz__errorz00(obj_t);
	extern obj_t bgl_milliseconds_to_date(BGL_LONGLONG_T);
	static obj_t BGl_z62dayzd2secondszb0zz__datez00(obj_t);
	static obj_t BGl_timezd2grammarzd2zz__datez00 = BUNSPEC;
	BGL_EXPORTED_DECL BGL_LONGLONG_T
		BGl_datezd2ze3nanosecondsz31zz__datez00(obj_t);
	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);
	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_z62secondszd2ze3utczd2stringz81zz__datez00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_secondszd2ze3stringz31zz__datez00(long);
	static obj_t BGl_list4975z00zz__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 BGL_LONGLONG_T
		BGl_currentzd2microsecondszd2zz__datez00(void);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		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_z62zc3z04anonymousza33001ze3ze5zz__datez00(obj_t);
	extern obj_t bgl_nanoseconds_to_date(BGL_LONGLONG_T);
	static obj_t BGl_z62datezd2secondzb0zz__datez00(obj_t, obj_t);
	static obj_t BGl_z62currentzd2nanosecondszb0zz__datez00(obj_t);
	static obj_t BGl_z62millisecondszd2ze3datez53zz__datez00(obj_t, obj_t);
	static obj_t BGl_z62datezd2monthzb0zz__datez00(obj_t, obj_t);
	extern obj_t BGl_remainderz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
	extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
	extern obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
	extern obj_t bgl_day_aname(int);
	static obj_t BGl_z62datezd2updatezd2secondz12z70zz__datez00(obj_t, obj_t,
		obj_t);
	extern obj_t bgl_seconds_to_date(long);
	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);
	static obj_t BGl_keyword5002z00zz__datez00 = BUNSPEC;
	static obj_t BGl_toplevelzd2initzd2zz__datez00(void);
	BGL_EXPORTED_DECL obj_t BGl_dayzd2namezd2zz__datez00(int);
	static obj_t BGl_z62datezd2hourzb0zz__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);
	static obj_t BGl_z62datezd2iszd2dstz62zz__datez00(obj_t, obj_t);
	extern BGL_LONGLONG_T bgl_date_to_milliseconds(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);
	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);
	extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__datez00(void);
	extern obj_t BGl_z62iozd2parsezd2errorz62zz__objectz00;
	static obj_t BGl_genericzd2initzd2zz__datez00(void);
	static obj_t BGl_importedzd2moduleszd2initz00zz__datez00(void);
	static obj_t BGl_z62datezd2yearzd2dayz62zz__datez00(obj_t, obj_t);
	static obj_t BGl_gczd2rootszd2initz00zz__datez00(void);
	static obj_t BGl_z62datezd2updatezd2millisecondz12z70zz__datez00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL long BGl_integerzd2ze3secondz31zz__datez00(long);
	static obj_t BGl_z62datezd2ze3gmtdatez12z41zz__datez00(obj_t, obj_t);
	static obj_t BGl_objectzd2initzd2zz__datez00(void);
	static obj_t BGl_z62integerzd2ze3secondz53zz__datez00(obj_t, obj_t);
	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_z62datezd2monthzd2lengthz62zz__datez00(obj_t, obj_t);
	static obj_t BGl_z62datezd2wdayzb0zz__datez00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_iso8601zd2datezd2ze3dateze3zz__datez00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_datezd2updatezd2minutez12z12zz__datez00(obj_t,
		long);
	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_z62zc3z04anonymousza31449ze3ze5zz__datez00(obj_t, obj_t);
	static long BGl_blitzd2int2z12zc0zz__datez00(obj_t, long, int);
	static obj_t BGl_thezd2fixnumzd2grammarz00zz__datez00 = BUNSPEC;
	static obj_t BGl_z62monthzd2namezb0zz__datez00(obj_t, obj_t);
	extern BGL_LONGLONG_T bgl_date_to_nanoseconds(obj_t);
	static obj_t BGl_z62currentzd2millisecondszb0zz__datez00(obj_t);
	static obj_t BGl_symbol4903z00zz__datez00 = BUNSPEC;
	static obj_t BGl_symbol4906z00zz__datez00 = BUNSPEC;
	BGL_EXPORTED_DECL int BGl_datezd2hourzd2zz__datez00(obj_t);
	extern long rgc_buffer_fixnum(obj_t);
	static obj_t BGl_symbol4909z00zz__datez00 = BUNSPEC;
	static obj_t BGl_z62datezd2dayzb0zz__datez00(obj_t, obj_t);
	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);
	BGL_EXPORTED_DECL long BGl_datezd2millisecondzd2zz__datez00(obj_t);
	static obj_t BGl_symbol5004z00zz__datez00 = BUNSPEC;
	static obj_t BGl_z62datezd2ze3utczd2stringz81zz__datez00(obj_t, obj_t);
	static obj_t BGl_z62datezd2minutezb0zz__datez00(obj_t, obj_t);
	extern obj_t BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(obj_t);
	static obj_t BGl_symbol4912z00zz__datez00 = BUNSPEC;
	static obj_t BGl_symbol4915z00zz__datez00 = BUNSPEC;
	static obj_t BGl_symbol4918z00zz__datez00 = BUNSPEC;
	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 BGL_LONGLONG_T
		BGl_currentzd2millisecondszd2zz__datez00(void);
	BGL_EXPORTED_DECL obj_t BGl_secondszd2ze3datez31zz__datez00(long);
	BGL_EXPORTED_DECL long BGl_dayzd2secondszd2zz__datez00(void);
	extern BGL_LONGLONG_T bgl_current_nanoseconds(void);
	static obj_t BGl_symbol5010z00zz__datez00 = BUNSPEC;
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_symbol4921z00zz__datez00 = BUNSPEC;
	static obj_t BGl_symbol4924z00zz__datez00 = BUNSPEC;
	extern obj_t rgc_buffer_symbol(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_secondszd2ze3utczd2stringze3zz__datez00(long);
	extern obj_t bgl_seconds_to_utc_string(long);
	static obj_t BGl_symbol4927z00zz__datez00 = BUNSPEC;
	static obj_t BGl_z62dayzd2namezb0zz__datez00(obj_t, obj_t);
	BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_datezd2nanosecondzd2zz__datez00(obj_t);
	extern obj_t bgl_date_to_gmtdate(obj_t);
	static obj_t BGl_z62datezd2nanosecondzb0zz__datez00(obj_t, obj_t);
	static obj_t BGl_keyword4976z00zz__datez00 = BUNSPEC;
	BGL_EXPORTED_DECL bool_t BGl_leapzd2yearzf3z21zz__datez00(int);
	BGL_EXPORTED_DECL int BGl_datezd2monthzd2lengthz00zz__datez00(obj_t);
	BGL_EXPORTED_DECL int BGl_datezd2wdayzd2zz__datez00(obj_t);
	static obj_t BGl_keyword4978z00zz__datez00 = BUNSPEC;
	static obj_t BGl_methodzd2initzd2zz__datez00(void);
	static obj_t BGl_z62datezd2ze3rfc2822zd2datez81zz__datez00(obj_t, obj_t);
	static obj_t BGl_thezd2failureze70z35zz__datez00(obj_t);
	extern obj_t bgl_month_aname(int);
	static obj_t BGl_thezd2failureze71z35zz__datez00(obj_t);
	static obj_t BGl_symbol4930z00zz__datez00 = BUNSPEC;
	static obj_t BGl_thezd2failureze72z35zz__datez00(obj_t);
	static obj_t BGl_thezd2failureze73z35zz__datez00(obj_t);
	BGL_EXPORTED_DECL int BGl_datezd2secondzd2zz__datez00(obj_t);
	static obj_t BGl_thezd2failureze74z35zz__datez00(obj_t);
	static obj_t BGl_symbol4933z00zz__datez00 = BUNSPEC;
	static obj_t BGl_thezd2failureze75z35zz__datez00(obj_t);
	static obj_t BGl_list4901z00zz__datez00 = BUNSPEC;
	static obj_t BGl_thezd2failureze76z35zz__datez00(obj_t);
	static obj_t BGl_list4902z00zz__datez00 = BUNSPEC;
	static obj_t BGl_thezd2failureze77z35zz__datez00(obj_t);
	BGL_EXPORTED_DECL BGL_LONGLONG_T
		BGl_currentzd2nanosecondszd2zz__datez00(void);
	extern obj_t bgl_milliseconds_to_gmtdate(BGL_LONGLONG_T);
	static obj_t BGl_symbol4936z00zz__datez00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_dayzd2anamezd2zz__datez00(int);
	static obj_t BGl_list4905z00zz__datez00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza32045ze3ze5zz__datez00(obj_t, obj_t);
	static obj_t BGl_list4908z00zz__datez00 = BUNSPEC;
	extern obj_t blit_string(obj_t, long, obj_t, long, long);
	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);
	static obj_t BGl_keyword4980z00zz__datez00 = BUNSPEC;
	static obj_t BGl_keyword4982z00zz__datez00 = BUNSPEC;
	static obj_t BGl_keyword4984z00zz__datez00 = BUNSPEC;
	static obj_t BGl_za2timezd2za7onesza2z75zz__datez00 = BUNSPEC;
	BGL_EXPORTED_DECL long BGl_currentzd2secondszd2zz__datez00(void);
	static obj_t BGl_keyword4986z00zz__datez00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_secondszd2ze3gmtdatez31zz__datez00(long);
	static obj_t BGl_list5001z00zz__datez00 = BUNSPEC;
	static obj_t BGl_keyword4988z00zz__datez00 = BUNSPEC;
	BGL_EXPORTED_DECL int BGl_datezd2weekzd2dayz00zz__datez00(obj_t);
	static long BGl_blitzd2intz12zc0zz__datez00(obj_t, long, int);
	static obj_t BGl_z62currentzd2secondszb0zz__datez00(obj_t);
	static obj_t BGl_list5009z00zz__datez00 = BUNSPEC;
	static obj_t BGl_list4911z00zz__datez00 = BUNSPEC;
	extern obj_t BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00(unsigned char,
		obj_t);
	static obj_t BGl_symbol4945z00zz__datez00 = BUNSPEC;
	static obj_t BGl_symbol4947z00zz__datez00 = BUNSPEC;
	static obj_t BGl_list4914z00zz__datez00 = BUNSPEC;
	extern long bgl_date_to_seconds(obj_t);
	static obj_t BGl_symbol4949z00zz__datez00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_datezd2ze3gmtdatez12z23zz__datez00(obj_t);
	static obj_t BGl_list4917z00zz__datez00 = BUNSPEC;
	static obj_t BGl_parsezd2errorzd2zz__datez00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_keyword4990z00zz__datez00 = BUNSPEC;
	static obj_t BGl_z62monthzd2anamezb0zz__datez00(obj_t, obj_t);
	extern bool_t rgc_fill_buffer(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_rfc2822zd2parsezd2datez00zz__datez00(obj_t);
	static obj_t BGl_keyword4992z00zz__datez00 = BUNSPEC;
	static obj_t BGl_z62millisecondszd2ze3gmtdatez53zz__datez00(obj_t, obj_t);
	BGL_EXPORTED_DECL int BGl_datezd2iszd2dstz00zz__datez00(obj_t);
	extern obj_t bgl_month_name(int);
	static obj_t BGl_symbol5046z00zz__datez00 = BUNSPEC;
	static obj_t BGl_z62leapzd2yearzf3z43zz__datez00(obj_t, obj_t);
	static obj_t BGl_z62datezd2ze3stringz53zz__datez00(obj_t, obj_t);
	extern obj_t make_string(long, unsigned char);
	static obj_t BGl_z62datezd2ydayzb0zz__datez00(obj_t, obj_t);
	static obj_t BGl_symbol4951z00zz__datez00 = BUNSPEC;
	extern obj_t bgl_close_input_port(obj_t);
	static obj_t BGl_z62nanosecondszd2ze3datez53zz__datez00(obj_t, obj_t);
	static obj_t BGl_symbol4953z00zz__datez00 = BUNSPEC;
	static obj_t BGl_list4920z00zz__datez00 = BUNSPEC;
	static obj_t BGl_symbol4955z00zz__datez00 = BUNSPEC;
	static obj_t BGl_list4923z00zz__datez00 = BUNSPEC;
	static obj_t BGl_symbol4957z00zz__datez00 = BUNSPEC;
	static obj_t BGl_symbol4959z00zz__datez00 = BUNSPEC;
	static obj_t BGl_list4926z00zz__datez00 = BUNSPEC;
	static obj_t BGl_list4929z00zz__datez00 = BUNSPEC;
	extern obj_t bgl_day_name(int);
	static obj_t BGl_za2monthzd2lengthsza2zd2zz__datez00 = BUNSPEC;
	static obj_t BGl_z62secondszd2ze3datez53zz__datez00(obj_t, obj_t);
	static obj_t BGl_symbol5050z00zz__datez00 = BUNSPEC;
	static obj_t BGl_symbol5053z00zz__datez00 = BUNSPEC;
	static obj_t BGl_symbol4961z00zz__datez00 = BUNSPEC;
	static obj_t BGl_z62datezd2ze3nanosecondsz53zz__datez00(obj_t, obj_t);
	static obj_t BGl_symbol4963z00zz__datez00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza32331ze3ze5zz__datez00(obj_t, obj_t);
	static obj_t BGl_symbol4965z00zz__datez00 = BUNSPEC;
	static obj_t BGl_list4932z00zz__datez00 = BUNSPEC;
	static obj_t BGl__datezd2updatez12zc0zz__datez00(obj_t, obj_t);
	extern long bgl_current_seconds(void);
	static obj_t BGl_symbol4967z00zz__datez00 = BUNSPEC;
	static obj_t BGl_list4935z00zz__datez00 = BUNSPEC;
	extern obj_t bgl_seconds_to_string(long);
	static obj_t BGl_z62currentzd2datezb0zz__datez00(obj_t);
	extern obj_t rgc_buffer_substring(obj_t, long, long);
	BGL_EXPORTED_DECL long BGl_datezd2ze3secondsz31zz__datez00(obj_t);
	BGL_EXPORTED_DECL long BGl_datezd2za7onezd2offsetza7zz__datez00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_datezd2ze3stringz31zz__datez00(obj_t);
	static obj_t BGl_z62rfc2822zd2parsezd2datez62zz__datez00(obj_t, obj_t);
	static obj_t BGl_z62datezd2yearzb0zz__datez00(obj_t, obj_t);
	static obj_t BGl_z62datezd2millisecondzb0zz__datez00(obj_t, obj_t);
	static obj_t BGl__makezd2datezd2zz__datez00(obj_t, obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_iso8601zd2parsezd2datez00zz__datez00(obj_t);
	static obj_t BGl_z62datezd2updatezd2minutez12z70zz__datez00(obj_t, obj_t,
		obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_nanosecondszd2ze3datezd2envze3zz__datez00,
		BgL_bgl_za762nanosecondsza7d5078z00,
		BGl_z62nanosecondszd2ze3datez53zz__datez00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2millisecondszd2envz00zz__datez00,
		BgL_bgl_za762currentza7d2mil5079z00,
		BGl_z62currentzd2millisecondszb0zz__datez00, 0L, BUNSPEC, 0);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_dayzd2secondszd2envz00zz__datez00,
		BgL_bgl_za762dayza7d2seconds5080z00, BGl_z62dayzd2secondszb0zz__datez00, 0L,
		BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ze3nanosecondszd2envze3zz__datez00,
		BgL_bgl_za762dateza7d2za7e3nan5081za7,
		BGl_z62datezd2ze3nanosecondsz53zz__datez00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_secondszd2ze3utczd2stringzd2envz31zz__datez00,
		BgL_bgl_za762secondsza7d2za7e35082za7,
		BGl_z62secondszd2ze3utczd2stringz81zz__datez00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2yearzd2envz00zz__datez00,
		BgL_bgl_za762dateza7d2yearza7b5083za7, BGl_z62datezd2yearzb0zz__datez00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_LLONG(BGl_llong4974z00zz__datez00,
		BgL_bgl_llong4974za700za7za7__5084za7, ((BGL_LONGLONG_T) 0));
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_iso8601zd2parsezd2datezd2envzd2zz__datez00,
		BgL_bgl_za762iso8601za7d2par5085z00,
		BGl_z62iso8601zd2parsezd2datez62zz__datez00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2timeza7onezd2envza7zz__datez00,
		BgL_bgl_za762dateza7d2timeza7a5086za7,
		BGl_z62datezd2timeza7onez17zz__datez00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezf3zd2envz21zz__datez00,
		BgL_bgl_za762dateza7f3za791za7za7_5087za7, BGl_z62datezf3z91zz__datez00, 0L,
		BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2weekzd2dayzd2envzd2zz__datez00,
		BgL_bgl_za762dateza7d2weekza7d5088za7,
		BGl_z62datezd2weekzd2dayz62zz__datez00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2datezd2envz00zz__datez00,
		BgL_bgl__makeza7d2dateza7d2za75089za7, opt_generic_entry,
		BGl__makezd2datezd2zz__datez00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_dayzd2namezd2envz00zz__datez00,
		BgL_bgl_za762dayza7d2nameza7b05090za7, BGl_z62dayzd2namezb0zz__datez00, 0L,
		BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_millisecondszd2ze3gmtdatezd2envze3zz__datez00,
		BgL_bgl_za762millisecondsza75091z00,
		BGl_z62millisecondszd2ze3gmtdatez53zz__datez00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2minutezd2envz00zz__datez00,
		BgL_bgl_za762dateza7d2minute5092z00, BGl_z62datezd2minutezb0zz__datez00, 0L,
		BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ze3millisecondszd2envze3zz__datez00,
		BgL_bgl_za762dateza7d2za7e3mil5093za7,
		BGl_z62datezd2ze3millisecondsz53zz__datez00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2monthzd2envz00zz__datez00,
		BgL_bgl_za762dateza7d2monthza75094za7, BGl_z62datezd2monthzb0zz__datez00,
		0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4904z00zz__datez00,
		BgL_bgl_string4904za700za7za7_5095za7, "EDT", 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_monthzd2namezd2envz00zz__datez00,
		BgL_bgl_za762monthza7d2nameza75096za7, BGl_z62monthzd2namezb0zz__datez00,
		0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4907z00zz__datez00,
		BgL_bgl_string4907za700za7za7_5097za7, "EST", 3);
	      BGL_DEFINE_STRING(BGl_string5000z00zz__datez00,
		BgL_bgl_string5000za700za7za7_5098za7, "_date-copy", 10);
	      BGL_DEFINE_STRING(BGl_string5003z00zz__datez00,
		BgL_bgl_string5003za700za7za7_5099za7, "isdst", 5);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2dayzd2envz00zz__datez00,
		BgL_bgl_za762dateza7d2dayza7b05100za7, BGl_z62datezd2dayzb0zz__datez00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string5005z00zz__datez00,
		BgL_bgl_string5005za700za7za7_5101za7, "date-copy", 9);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4900z00zz__datez00,
		BgL_bgl_za762za7c3za704anonymo5102za7,
		BGl_z62zc3z04anonymousza32045ze3ze5zz__datez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string5006z00zz__datez00,
		BgL_bgl_string5006za700za7za7_5103za7,
		"wrong number of arguments: [1..10] expected, provided", 53);
	      BGL_DEFINE_STRING(BGl_string5007z00zz__datez00,
		BgL_bgl_string5007za700za7za7_5104za7, "date", 4);
	      BGL_DEFINE_STRING(BGl_string5008z00zz__datez00,
		BgL_bgl_string5008za700za7za7_5105za7, "_date-update!", 13);
	      BGL_DEFINE_STRING(BGl_string4910z00zz__datez00,
		BgL_bgl_string4910za700za7za7_5106za7, "CDT", 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_secondszd2ze3stringzd2envze3zz__datez00,
		BgL_bgl_za762secondsza7d2za7e35107za7,
		BGl_z62secondszd2ze3stringz53zz__datez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4913z00zz__datez00,
		BgL_bgl_string4913za700za7za7_5108za7, "CST", 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2nanosecondzd2envz00zz__datez00,
		BgL_bgl_za762dateza7d2nanose5109z00, BGl_z62datezd2nanosecondzb0zz__datez00,
		0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4916z00zz__datez00,
		BgL_bgl_string4916za700za7za7_5110za7, "MDT", 3);
	      BGL_DEFINE_STRING(BGl_string4919z00zz__datez00,
		BgL_bgl_string4919za700za7za7_5111za7, "MST", 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ze3utczd2stringzd2envz31zz__datez00,
		BgL_bgl_za762dateza7d2za7e3utc5112za7,
		BGl_z62datezd2ze3utczd2stringz81zz__datez00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2microsecondszd2envz00zz__datez00,
		BgL_bgl_za762currentza7d2mic5113z00,
		BGl_z62currentzd2microsecondszb0zz__datez00, 0L, BUNSPEC, 0);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_leapzd2yearzf3zd2envzf3zz__datez00,
		BgL_bgl_za762leapza7d2yearza7f5114za7, BGl_z62leapzd2yearzf3z43zz__datez00,
		0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2secondzd2envz00zz__datez00,
		BgL_bgl_za762dateza7d2second5115z00, BGl_z62datezd2secondzb0zz__datez00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string5011z00zz__datez00,
		BgL_bgl_string5011za700za7za7_5116za7, "date-update!", 12);
	      BGL_DEFINE_STRING(BGl_string5012z00zz__datez00,
		BgL_bgl_string5012za700za7za7_5117za7,
		"wrong number of arguments: [1..8] expected, provided", 52);
	      BGL_DEFINE_STRING(BGl_string5013z00zz__datez00,
		BgL_bgl_string5013za700za7za7_5118za7, "&date->gmtdate!", 15);
	      BGL_DEFINE_STRING(BGl_string5014z00zz__datez00,
		BgL_bgl_string5014za700za7za7_5119za7, "&date-update-millisecond!", 25);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2nanosecondszd2envz00zz__datez00,
		BgL_bgl_za762currentza7d2nan5120z00,
		BGl_z62currentzd2nanosecondszb0zz__datez00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string5015z00zz__datez00,
		BgL_bgl_string5015za700za7za7_5121za7, "&date-update-second!", 20);
	      BGL_DEFINE_STRING(BGl_string5016z00zz__datez00,
		BgL_bgl_string5016za700za7za7_5122za7, "&date-update-minute!", 20);
	      BGL_DEFINE_STRING(BGl_string5017z00zz__datez00,
		BgL_bgl_string5017za700za7za7_5123za7, "&integer->second", 16);
	      BGL_DEFINE_STRING(BGl_string5018z00zz__datez00,
		BgL_bgl_string5018za700za7za7_5124za7, "&date-nanosecond", 16);
	      BGL_DEFINE_STRING(BGl_string5019z00zz__datez00,
		BgL_bgl_string5019za700za7za7_5125za7, "&date-millisecond", 17);
	      BGL_DEFINE_STRING(BGl_string4922z00zz__datez00,
		BgL_bgl_string4922za700za7za7_5126za7, "PDT", 3);
	      BGL_DEFINE_STRING(BGl_string4925z00zz__datez00,
		BgL_bgl_string4925za700za7za7_5127za7, "PST", 3);
	      BGL_DEFINE_STRING(BGl_string4928z00zz__datez00,
		BgL_bgl_string4928za700za7za7_5128za7, "CEST", 4);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2secondszd2envz00zz__datez00,
		BgL_bgl_za762currentza7d2sec5129z00, BGl_z62currentzd2secondszb0zz__datez00,
		0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string5020z00zz__datez00,
		BgL_bgl_string5020za700za7za7_5130za7, "&date-second", 12);
	      BGL_DEFINE_STRING(BGl_string5021z00zz__datez00,
		BgL_bgl_string5021za700za7za7_5131za7, "&date-minute", 12);
	      BGL_DEFINE_STRING(BGl_string5022z00zz__datez00,
		BgL_bgl_string5022za700za7za7_5132za7, "&date-hour", 10);
	      BGL_DEFINE_STRING(BGl_string5023z00zz__datez00,
		BgL_bgl_string5023za700za7za7_5133za7, "&date-day", 9);
	      BGL_DEFINE_STRING(BGl_string5024z00zz__datez00,
		BgL_bgl_string5024za700za7za7_5134za7, "&date-week-day", 14);
	      BGL_DEFINE_STRING(BGl_string5025z00zz__datez00,
		BgL_bgl_string5025za700za7za7_5135za7, "&date-wday", 10);
	      BGL_DEFINE_STRING(BGl_string5026z00zz__datez00,
		BgL_bgl_string5026za700za7za7_5136za7, "&date-year-day", 14);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2datezd2envz00zz__datez00,
		BgL_bgl_za762currentza7d2dat5137z00, BGl_z62currentzd2datezb0zz__datez00,
		0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string5027z00zz__datez00,
		BgL_bgl_string5027za700za7za7_5138za7, "&date-yday", 10);
	      BGL_DEFINE_STRING(BGl_string5028z00zz__datez00,
		BgL_bgl_string5028za700za7za7_5139za7, "&date-month", 11);
	      BGL_DEFINE_STRING(BGl_string5029z00zz__datez00,
		BgL_bgl_string5029za700za7za7_5140za7, "&date-year", 10);
	      BGL_DEFINE_STRING(BGl_string4931z00zz__datez00,
		BgL_bgl_string4931za700za7za7_5141za7, "UT", 2);
	      BGL_DEFINE_STRING(BGl_string4934z00zz__datez00,
		BgL_bgl_string4934za700za7za7_5142za7, "GMT", 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_monthzd2anamezd2envz00zz__datez00,
		BgL_bgl_za762monthza7d2aname5143z00, BGl_z62monthzd2anamezb0zz__datez00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4937z00zz__datez00,
		BgL_bgl_string4937za700za7za7_5144za7, "BST", 3);
	      BGL_DEFINE_STRING(BGl_string4939z00zz__datez00,
		BgL_bgl_string4939za700za7za7_5145za7, "rfc2822-parse-date", 18);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_rfc2822zd2datezd2ze3datezd2envz31zz__datez00,
		BgL_bgl_za762rfc2822za7d2dat5146z00,
		BGl_z62rfc2822zd2datezd2ze3datez81zz__datez00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2iszd2dstzd2envzd2zz__datez00,
		BgL_bgl_za762dateza7d2isza7d2d5147za7, BGl_z62datezd2iszd2dstz62zz__datez00,
		0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ydayzd2envz00zz__datez00,
		BgL_bgl_za762dateza7d2ydayza7b5148za7, BGl_z62datezd2ydayzb0zz__datez00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string5030z00zz__datez00,
		BgL_bgl_string5030za700za7za7_5149za7, "&date-timezone", 14);
	      BGL_DEFINE_STRING(BGl_string5031z00zz__datez00,
		BgL_bgl_string5031za700za7za7_5150za7, "&date-zone-offset", 17);
	      BGL_DEFINE_STRING(BGl_string5032z00zz__datez00,
		BgL_bgl_string5032za700za7za7_5151za7, "&date-is-dst", 12);
	      BGL_DEFINE_STRING(BGl_string5033z00zz__datez00,
		BgL_bgl_string5033za700za7za7_5152za7, "&seconds->date", 14);
	      BGL_DEFINE_STRING(BGl_string5034z00zz__datez00,
		BgL_bgl_string5034za700za7za7_5153za7, "belong", 6);
	      BGL_DEFINE_STRING(BGl_string5035z00zz__datez00,
		BgL_bgl_string5035za700za7za7_5154za7, "&seconds->gmtdate", 17);
	      BGL_DEFINE_STRING(BGl_string5036z00zz__datez00,
		BgL_bgl_string5036za700za7za7_5155za7, "&milliseconds->gmtdate", 22);
	      BGL_DEFINE_STRING(BGl_string5037z00zz__datez00,
		BgL_bgl_string5037za700za7za7_5156za7, "&nanoseconds->date", 18);
	      BGL_DEFINE_STRING(BGl_string5038z00zz__datez00,
		BgL_bgl_string5038za700za7za7_5157za7, "&milliseconds->date", 19);
	      BGL_DEFINE_STRING(BGl_string5039z00zz__datez00,
		BgL_bgl_string5039za700za7za7_5158za7, "&date->seconds", 14);
	      BGL_DEFINE_STRING(BGl_string4940z00zz__datez00,
		BgL_bgl_string4940za700za7za7_5159za7, "Illegal zone", 12);
	      BGL_DEFINE_STRING(BGl_string4941z00zz__datez00,
		BgL_bgl_string4941za700za7za7_5160za7, "regular-grammar", 15);
	      BGL_DEFINE_STRING(BGl_string4942z00zz__datez00,
		BgL_bgl_string4942za700za7za7_5161za7, "Illegal match", 13);
	      BGL_DEFINE_STRING(BGl_string4943z00zz__datez00,
		BgL_bgl_string4943za700za7za7_5162za7, "Illegal time", 12);
	      BGL_DEFINE_STRING(BGl_string4944z00zz__datez00,
		BgL_bgl_string4944za700za7za7_5163za7, "Illegal month", 13);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4938z00zz__datez00,
		BgL_bgl_za762za7c3za704anonymo5164za7,
		BGl_z62zc3z04anonymousza32331ze3ze5zz__datez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4946z00zz__datez00,
		BgL_bgl_string4946za700za7za7_5165za7, "Jan", 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_secondszd2ze3datezd2envze3zz__datez00,
		BgL_bgl_za762secondsza7d2za7e35166za7,
		BGl_z62secondszd2ze3datez53zz__datez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4948z00zz__datez00,
		BgL_bgl_string4948za700za7za7_5167za7, "Feb", 3);
	      BGL_DEFINE_STRING(BGl_string5040z00zz__datez00,
		BgL_bgl_string5040za700za7za7_5168za7, "&date->nanoseconds", 18);
	      BGL_DEFINE_STRING(BGl_string5041z00zz__datez00,
		BgL_bgl_string5041za700za7za7_5169za7, "&date->milliseconds", 19);
	      BGL_DEFINE_STRING(BGl_string5042z00zz__datez00,
		BgL_bgl_string5042za700za7za7_5170za7, "&date->string", 13);
	      BGL_DEFINE_STRING(BGl_string5043z00zz__datez00,
		BgL_bgl_string5043za700za7za7_5171za7, "&date->utc-string", 17);
	      BGL_DEFINE_STRING(BGl_string5044z00zz__datez00,
		BgL_bgl_string5044za700za7za7_5172za7, "&seconds->string", 16);
	      BGL_DEFINE_STRING(BGl_string5045z00zz__datez00,
		BgL_bgl_string5045za700za7za7_5173za7, "&seconds->utc-string", 20);
	      BGL_DEFINE_STRING(BGl_string5047z00zz__datez00,
		BgL_bgl_string5047za700za7za7_5174za7, "day-name", 8);
	      BGL_DEFINE_STRING(BGl_string5048z00zz__datez00,
		BgL_bgl_string5048za700za7za7_5175za7, "Illegal day number", 18);
	      BGL_DEFINE_STRING(BGl_string5049z00zz__datez00,
		BgL_bgl_string5049za700za7za7_5176za7, "&day-name", 9);
	      BGL_DEFINE_STRING(BGl_string4950z00zz__datez00,
		BgL_bgl_string4950za700za7za7_5177za7, "Mar", 3);
	      BGL_DEFINE_STRING(BGl_string4952z00zz__datez00,
		BgL_bgl_string4952za700za7za7_5178za7, "Apr", 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_integerzd2ze3secondzd2envze3zz__datez00,
		BgL_bgl_za762integerza7d2za7e35179za7,
		BGl_z62integerzd2ze3secondz53zz__datez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4954z00zz__datez00,
		BgL_bgl_string4954za700za7za7_5180za7, "May", 3);
	      BGL_DEFINE_STRING(BGl_string4956z00zz__datez00,
		BgL_bgl_string4956za700za7za7_5181za7, "Jun", 3);
	      BGL_DEFINE_STRING(BGl_string4958z00zz__datez00,
		BgL_bgl_string4958za700za7za7_5182za7, "Jul", 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2za7onezd2offsetzd2envz75zz__datez00,
		BgL_bgl_za762dateza7d2za7a7one5183za7,
		BGl_z62datezd2za7onezd2offsetzc5zz__datez00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2monthzd2lengthzd2envzd2zz__datez00,
		BgL_bgl_za762dateza7d2monthza75184za7,
		BGl_z62datezd2monthzd2lengthz62zz__datez00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2wdayzd2envz00zz__datez00,
		BgL_bgl_za762dateza7d2wdayza7b5185za7, BGl_z62datezd2wdayzb0zz__datez00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string5051z00zz__datez00,
		BgL_bgl_string5051za700za7za7_5186za7, "day-aname", 9);
	      BGL_DEFINE_STRING(BGl_string5052z00zz__datez00,
		BgL_bgl_string5052za700za7za7_5187za7, "&day-aname", 10);
	      BGL_DEFINE_STRING(BGl_string5054z00zz__datez00,
		BgL_bgl_string5054za700za7za7_5188za7, "month-aname", 11);
	      BGL_DEFINE_STRING(BGl_string5055z00zz__datez00,
		BgL_bgl_string5055za700za7za7_5189za7, "Illegal month number", 20);
	      BGL_DEFINE_STRING(BGl_string5056z00zz__datez00,
		BgL_bgl_string5056za700za7za7_5190za7, "&month-name", 11);
	      BGL_DEFINE_STRING(BGl_string5057z00zz__datez00,
		BgL_bgl_string5057za700za7za7_5191za7, "&month-aname", 12);
	      BGL_DEFINE_STRING(BGl_string5058z00zz__datez00,
		BgL_bgl_string5058za700za7za7_5192za7, "&date-month-length", 18);
	      BGL_DEFINE_STRING(BGl_string5059z00zz__datez00,
		BgL_bgl_string5059za700za7za7_5193za7, "&leap-year?", 11);
	      BGL_DEFINE_STRING(BGl_string4960z00zz__datez00,
		BgL_bgl_string4960za700za7za7_5194za7, "Aug", 3);
	      BGL_DEFINE_STRING(BGl_string4962z00zz__datez00,
		BgL_bgl_string4962za700za7za7_5195za7, "Sep", 3);
	      BGL_DEFINE_STRING(BGl_string4964z00zz__datez00,
		BgL_bgl_string4964za700za7za7_5196za7, "Oct", 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_datezd2updatezd2secondz12zd2envzc0zz__datez00,
		BgL_bgl_za762dateza7d2update5197z00,
		BGl_z62datezd2updatezd2secondz12z70zz__datez00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string4966z00zz__datez00,
		BgL_bgl_string4966za700za7za7_5198za7, "Nov", 3);
	      BGL_DEFINE_STRING(BGl_string4968z00zz__datez00,
		BgL_bgl_string4968za700za7za7_5199za7, "Dec", 3);
	      BGL_DEFINE_STRING(BGl_string4969z00zz__datez00,
		BgL_bgl_string4969za700za7za7_5200za7, "Illegal integer", 15);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_secondszd2ze3gmtdatezd2envze3zz__datez00,
		BgL_bgl_za762secondsza7d2za7e35201za7,
		BGl_z62secondszd2ze3gmtdatez53zz__datez00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2copyzd2envz00zz__datez00,
		BgL_bgl__dateza7d2copyza7d2za75202za7, opt_generic_entry,
		BGl__datezd2copyzd2zz__datez00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2hourzd2envz00zz__datez00,
		BgL_bgl_za762dateza7d2hourza7b5203za7, BGl_z62datezd2hourzb0zz__datez00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string5060z00zz__datez00,
		BgL_bgl_string5060za700za7za7_5204za7, "&rfc2822-date->date", 19);
	      BGL_DEFINE_STRING(BGl_string5061z00zz__datez00,
		BgL_bgl_string5061za700za7za7_5205za7, "bstring", 7);
	      BGL_DEFINE_STRING(BGl_string5062z00zz__datez00,
		BgL_bgl_string5062za700za7za7_5206za7, "&rfc2822-parse-date", 19);
	      BGL_DEFINE_STRING(BGl_string5063z00zz__datez00,
		BgL_bgl_string5063za700za7za7_5207za7, "input-port", 10);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_datezd2updatezd2millisecondz12zd2envzc0zz__datez00,
		BgL_bgl_za762dateza7d2update5208z00,
		BGl_z62datezd2updatezd2millisecondz12z70zz__datez00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string5064z00zz__datez00,
		BgL_bgl_string5064za700za7za7_5209za7, "&date->rfc2822-date", 19);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ze3gmtdatez12zd2envzf1zz__datez00,
		BgL_bgl_za762dateza7d2za7e3gmt5210za7,
		BGl_z62datezd2ze3gmtdatez12z41zz__datez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string5065z00zz__datez00,
		BgL_bgl_string5065za700za7za7_5211za7, "~a-~2,0d-~2,0dT~2,0d:~2,0d:~2,0dZ",
		33);
	      BGL_DEFINE_STRING(BGl_string5066z00zz__datez00,
		BgL_bgl_string5066za700za7za7_5212za7, "-", 1);
	      BGL_DEFINE_STRING(BGl_string5067z00zz__datez00,
		BgL_bgl_string5067za700za7za7_5213za7, "+", 1);
	      BGL_DEFINE_STRING(BGl_string5068z00zz__datez00,
		BgL_bgl_string5068za700za7za7_5214za7,
		"~a-~2,0d-~2,0dT~2,0d:~2,0d:~2,0d~a~2,0d:~2,0d", 45);
	      BGL_DEFINE_STRING(BGl_string5069z00zz__datez00,
		BgL_bgl_string5069za700za7za7_5215za7, "&date->iso8601-date", 19);
	      BGL_DEFINE_STRING(BGl_string4970z00zz__datez00,
		BgL_bgl_string4970za700za7za7_5216za7, "Illegal day of week", 19);
	      BGL_DEFINE_STRING(BGl_string4971z00zz__datez00,
		BgL_bgl_string4971za700za7za7_5217za7, "/tmp/bigloo/runtime/Llib/date.scm",
		33);
	      BGL_DEFINE_STRING(BGl_string4972z00zz__datez00,
		BgL_bgl_string4972za700za7za7_5218za7, "_make-date", 10);
	      BGL_DEFINE_STRING(BGl_string4973z00zz__datez00,
		BgL_bgl_string4973za700za7za7_5219za7, "vector", 6);
	      BGL_DEFINE_STRING(BGl_string4977z00zz__datez00,
		BgL_bgl_string4977za700za7za7_5220za7, "day", 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rfc2822zd2parsezd2datezd2envzd2zz__datez00,
		BgL_bgl_za762rfc2822za7d2par5221z00,
		BGl_z62rfc2822zd2parsezd2datez62zz__datez00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_datezd2ze3rfc2822zd2datezd2envz31zz__datez00,
		BgL_bgl_za762dateza7d2za7e3rfc5222za7,
		BGl_z62datezd2ze3rfc2822zd2datez81zz__datez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4979z00zz__datez00,
		BgL_bgl_string4979za700za7za7_5223za7, "dst", 3);
	      BGL_DEFINE_STRING(BGl_string5070z00zz__datez00,
		BgL_bgl_string5070za700za7za7_5224za7, "&iso8601-date->date", 19);
	      BGL_DEFINE_STRING(BGl_string5071z00zz__datez00,
		BgL_bgl_string5071za700za7za7_5225za7, "iso8601-parse-date", 18);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_datezd2ze3iso8601zd2datezd2envz31zz__datez00,
		BgL_bgl_za762dateza7d2za7e3iso5226za7,
		BGl_z62datezd2ze3iso8601zd2datez81zz__datez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string5072z00zz__datez00,
		BgL_bgl_string5072za700za7za7_5227za7, "ignore", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_millisecondszd2ze3datezd2envze3zz__datez00,
		BgL_bgl_za762millisecondsza75228z00,
		BGl_z62millisecondszd2ze3datez53zz__datez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string5073z00zz__datez00,
		BgL_bgl_string5073za700za7za7_5229za7, "long", 4);
	      BGL_DEFINE_STRING(BGl_string5074z00zz__datez00,
		BgL_bgl_string5074za700za7za7_5230za7, "&iso8601-parse-date", 19);
	      BGL_DEFINE_STRING(BGl_string5075z00zz__datez00,
		BgL_bgl_string5075za700za7za7_5231za7, "}", 1);
	      BGL_DEFINE_STRING(BGl_string5076z00zz__datez00,
		BgL_bgl_string5076za700za7za7_5232za7, "{", 1);
	      BGL_DEFINE_STRING(BGl_string5077z00zz__datez00,
		BgL_bgl_string5077za700za7za7_5233za7, "__date", 6);
	      BGL_DEFINE_STRING(BGl_string4981z00zz__datez00,
		BgL_bgl_string4981za700za7za7_5234za7, "hour", 4);
	      BGL_DEFINE_STRING(BGl_string4983z00zz__datez00,
		BgL_bgl_string4983za700za7za7_5235za7, "min", 3);
	      BGL_DEFINE_STRING(BGl_string4985z00zz__datez00,
		BgL_bgl_string4985za700za7za7_5236za7, "month", 5);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4898z00zz__datez00,
		BgL_bgl_za762za7c3za704anonymo5237za7,
		BGl_z62zc3z04anonymousza31684ze3ze5zz__datez00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc4899z00zz__datez00,
		BgL_bgl_za762za7c3za704anonymo5238za7,
		BGl_z62zc3z04anonymousza31838ze3ze5zz__datez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4987z00zz__datez00,
		BgL_bgl_string4987za700za7za7_5239za7, "nsec", 4);
	      BGL_DEFINE_STRING(BGl_string4989z00zz__datez00,
		BgL_bgl_string4989za700za7za7_5240za7, "sec", 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2yearzd2dayzd2envzd2zz__datez00,
		BgL_bgl_za762dateza7d2yearza7d5241za7,
		BGl_z62datezd2yearzd2dayz62zz__datez00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2updatez12zd2envz12zz__datez00,
		BgL_bgl__dateza7d2updateza715242z00, opt_generic_entry,
		BGl__datezd2updatez12zc0zz__datez00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string4991z00zz__datez00,
		BgL_bgl_string4991za700za7za7_5243za7, "timezone", 8);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ze3secondszd2envze3zz__datez00,
		BgL_bgl_za762dateza7d2za7e3sec5244za7,
		BGl_z62datezd2ze3secondsz53zz__datez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string4993z00zz__datez00,
		BgL_bgl_string4993za700za7za7_5245za7, "year", 4);
	      BGL_DEFINE_STRING(BGl_string4995z00zz__datez00,
		BgL_bgl_string4995za700za7za7_5246za7, "make-date", 9);
	      BGL_DEFINE_STRING(BGl_string4996z00zz__datez00,
		BgL_bgl_string4996za700za7za7_5247za7, "Illegal keyword argument", 24);
	      BGL_DEFINE_STRING(BGl_string4997z00zz__datez00,
		BgL_bgl_string4997za700za7za7_5248za7,
		"wrong number of arguments: [0..9] expected, provided", 52);
	      BGL_DEFINE_STRING(BGl_string4998z00zz__datez00,
		BgL_bgl_string4998za700za7za7_5249za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string4999z00zz__datez00,
		BgL_bgl_string4999za700za7za7_5250za7, "bllong", 6);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2ze3stringzd2envze3zz__datez00,
		BgL_bgl_za762dateza7d2za7e3str5251za7,
		BGl_z62datezd2ze3stringz53zz__datez00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_dayzd2anamezd2envz00zz__datez00,
		BgL_bgl_za762dayza7d2anameza7b5252za7, BGl_z62dayzd2anamezb0zz__datez00, 0L,
		BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_iso8601zd2datezd2ze3datezd2envz31zz__datez00,
		BgL_bgl_za762iso8601za7d2dat5253z00,
		BGl_z62iso8601zd2datezd2ze3datez81zz__datez00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_datezd2updatezd2minutez12zd2envzc0zz__datez00,
		BgL_bgl_za762dateza7d2update5254z00,
		BGl_z62datezd2updatezd2minutez12z70zz__datez00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_datezd2millisecondzd2envz00zz__datez00,
		BgL_bgl_za762dateza7d2millis5255z00,
		BGl_z62datezd2millisecondzb0zz__datez00, 0L, BUNSPEC, 1);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_datezd2millisecondzd2envz00zz__datez00,
			BgL_bgl_za762dateza7d2millis5255z00);
		BGL_BIND_PROCEDURE(BGl_datezd2updatezd2minutez12zd2envzc0zz__datez00,
			BgL_bgl_za762dateza7d2update5254z00);
		BGL_BIND_PROCEDURE(BGl_iso8601zd2datezd2ze3datezd2envz31zz__datez00,
			BgL_bgl_za762iso8601za7d2dat5253z00);
		BGL_BIND_PROCEDURE(BGl_dayzd2anamezd2envz00zz__datez00,
			BgL_bgl_za762dayza7d2anameza7b5252za7);
		BGL_BIND_PROCEDURE(BGl_datezd2ze3stringzd2envze3zz__datez00,
			BgL_bgl_za762dateza7d2za7e3str5251za7);
		BGL_BIND_STRING(BGl_string4999z00zz__datez00,
			BgL_bgl_string4999za700za7za7_5250za7);
		BGL_BIND_STRING(BGl_string4998z00zz__datez00,
			BgL_bgl_string4998za700za7za7_5249za7);
		BGL_BIND_STRING(BGl_string4997z00zz__datez00,
			BgL_bgl_string4997za700za7za7_5248za7);
		BGL_BIND_STRING(BGl_string4996z00zz__datez00,
			BgL_bgl_string4996za700za7za7_5247za7);
		BGL_BIND_STRING(BGl_string4995z00zz__datez00,
			BgL_bgl_string4995za700za7za7_5246za7);
		BGL_BIND_STRING(BGl_string4993z00zz__datez00,
			BgL_bgl_string4993za700za7za7_5245za7);
		BGL_BIND_PROCEDURE(BGl_datezd2ze3secondszd2envze3zz__datez00,
			BgL_bgl_za762dateza7d2za7e3sec5244za7);
		BGL_BIND_STRING(BGl_string4991z00zz__datez00,
			BgL_bgl_string4991za700za7za7_5243za7);
		BGL_BIND_PROCEDURE(BGl_datezd2updatez12zd2envz12zz__datez00,
			BgL_bgl__dateza7d2updateza715242z00);
		BGL_BIND_PROCEDURE(BGl_datezd2yearzd2dayzd2envzd2zz__datez00,
			BgL_bgl_za762dateza7d2yearza7d5241za7);
		BGL_BIND_STRING(BGl_string4989z00zz__datez00,
			BgL_bgl_string4989za700za7za7_5240za7);
		BGL_BIND_STRING(BGl_string4987z00zz__datez00,
			BgL_bgl_string4987za700za7za7_5239za7);
		BGL_BIND_PROCEDURE(BGl_proc4899z00zz__datez00,
			BgL_bgl_za762za7c3za704anonymo5238za7);
		BGL_BIND_PROCEDURE(BGl_proc4898z00zz__datez00,
			BgL_bgl_za762za7c3za704anonymo5237za7);
		BGL_BIND_STRING(BGl_string4985z00zz__datez00,
			BgL_bgl_string4985za700za7za7_5236za7);
		BGL_BIND_STRING(BGl_string4983z00zz__datez00,
			BgL_bgl_string4983za700za7za7_5235za7);
		BGL_BIND_STRING(BGl_string4981z00zz__datez00,
			BgL_bgl_string4981za700za7za7_5234za7);
		BGL_BIND_STRING(BGl_string5077z00zz__datez00,
			BgL_bgl_string5077za700za7za7_5233za7);
		BGL_BIND_STRING(BGl_string5076z00zz__datez00,
			BgL_bgl_string5076za700za7za7_5232za7);
		BGL_BIND_STRING(BGl_string5075z00zz__datez00,
			BgL_bgl_string5075za700za7za7_5231za7);
		BGL_BIND_STRING(BGl_string5074z00zz__datez00,
			BgL_bgl_string5074za700za7za7_5230za7);
		BGL_BIND_STRING(BGl_string5073z00zz__datez00,
			BgL_bgl_string5073za700za7za7_5229za7);
		BGL_BIND_PROCEDURE(BGl_millisecondszd2ze3datezd2envze3zz__datez00,
			BgL_bgl_za762millisecondsza75228z00);
		BGL_BIND_STRING(BGl_string5072z00zz__datez00,
			BgL_bgl_string5072za700za7za7_5227za7);
		BGL_BIND_PROCEDURE(BGl_datezd2ze3iso8601zd2datezd2envz31zz__datez00,
			BgL_bgl_za762dateza7d2za7e3iso5226za7);
		BGL_BIND_STRING(BGl_string5071z00zz__datez00,
			BgL_bgl_string5071za700za7za7_5225za7);
		BGL_BIND_STRING(BGl_string5070z00zz__datez00,
			BgL_bgl_string5070za700za7za7_5224za7);
		BGL_BIND_STRING(BGl_string4979z00zz__datez00,
			BgL_bgl_string4979za700za7za7_5223za7);
		BGL_BIND_PROCEDURE(BGl_datezd2ze3rfc2822zd2datezd2envz31zz__datez00,
			BgL_bgl_za762dateza7d2za7e3rfc5222za7);
		BGL_BIND_PROCEDURE(BGl_rfc2822zd2parsezd2datezd2envzd2zz__datez00,
			BgL_bgl_za762rfc2822za7d2par5221z00);
		BGL_BIND_STRING(BGl_string4977z00zz__datez00,
			BgL_bgl_string4977za700za7za7_5220za7);
		BGL_BIND_STRING(BGl_string4973z00zz__datez00,
			BgL_bgl_string4973za700za7za7_5219za7);
		BGL_BIND_STRING(BGl_string4972z00zz__datez00,
			BgL_bgl_string4972za700za7za7_5218za7);
		BGL_BIND_STRING(BGl_string4971z00zz__datez00,
			BgL_bgl_string4971za700za7za7_5217za7);
		BGL_BIND_STRING(BGl_string4970z00zz__datez00,
			BgL_bgl_string4970za700za7za7_5216za7);
		BGL_BIND_STRING(BGl_string5069z00zz__datez00,
			BgL_bgl_string5069za700za7za7_5215za7);
		BGL_BIND_STRING(BGl_string5068z00zz__datez00,
			BgL_bgl_string5068za700za7za7_5214za7);
		BGL_BIND_STRING(BGl_string5067z00zz__datez00,
			BgL_bgl_string5067za700za7za7_5213za7);
		BGL_BIND_STRING(BGl_string5066z00zz__datez00,
			BgL_bgl_string5066za700za7za7_5212za7);
		BGL_BIND_STRING(BGl_string5065z00zz__datez00,
			BgL_bgl_string5065za700za7za7_5211za7);
		BGL_BIND_PROCEDURE(BGl_datezd2ze3gmtdatez12zd2envzf1zz__datez00,
			BgL_bgl_za762dateza7d2za7e3gmt5210za7);
		BGL_BIND_STRING(BGl_string5064z00zz__datez00,
			BgL_bgl_string5064za700za7za7_5209za7);
		BGL_BIND_PROCEDURE(BGl_datezd2updatezd2millisecondz12zd2envzc0zz__datez00,
			BgL_bgl_za762dateza7d2update5208z00);
		BGL_BIND_STRING(BGl_string5063z00zz__datez00,
			BgL_bgl_string5063za700za7za7_5207za7);
		BGL_BIND_STRING(BGl_string5062z00zz__datez00,
			BgL_bgl_string5062za700za7za7_5206za7);
		BGL_BIND_STRING(BGl_string5061z00zz__datez00,
			BgL_bgl_string5061za700za7za7_5205za7);
		BGL_BIND_STRING(BGl_string5060z00zz__datez00,
			BgL_bgl_string5060za700za7za7_5204za7);
		BGL_BIND_PROCEDURE(BGl_datezd2hourzd2envz00zz__datez00,
			BgL_bgl_za762dateza7d2hourza7b5203za7);
		BGL_BIND_PROCEDURE(BGl_datezd2copyzd2envz00zz__datez00,
			BgL_bgl__dateza7d2copyza7d2za75202za7);
		BGL_BIND_PROCEDURE(BGl_secondszd2ze3gmtdatezd2envze3zz__datez00,
			BgL_bgl_za762secondsza7d2za7e35201za7);
		BGL_BIND_STRING(BGl_string4969z00zz__datez00,
			BgL_bgl_string4969za700za7za7_5200za7);
		BGL_BIND_STRING(BGl_string4968z00zz__datez00,
			BgL_bgl_string4968za700za7za7_5199za7);
		BGL_BIND_STRING(BGl_string4966z00zz__datez00,
			BgL_bgl_string4966za700za7za7_5198za7);
		BGL_BIND_PROCEDURE(BGl_datezd2updatezd2secondz12zd2envzc0zz__datez00,
			BgL_bgl_za762dateza7d2update5197z00);
		BGL_BIND_STRING(BGl_string4964z00zz__datez00,
			BgL_bgl_string4964za700za7za7_5196za7);
		BGL_BIND_STRING(BGl_string4962z00zz__datez00,
			BgL_bgl_string4962za700za7za7_5195za7);
		BGL_BIND_STRING(BGl_string4960z00zz__datez00,
			BgL_bgl_string4960za700za7za7_5194za7);
		BGL_BIND_STRING(BGl_string5059z00zz__datez00,
			BgL_bgl_string5059za700za7za7_5193za7);
		BGL_BIND_STRING(BGl_string5058z00zz__datez00,
			BgL_bgl_string5058za700za7za7_5192za7);
		BGL_BIND_STRING(BGl_string5057z00zz__datez00,
			BgL_bgl_string5057za700za7za7_5191za7);
		BGL_BIND_STRING(BGl_string5056z00zz__datez00,
			BgL_bgl_string5056za700za7za7_5190za7);
		BGL_BIND_STRING(BGl_string5055z00zz__datez00,
			BgL_bgl_string5055za700za7za7_5189za7);
		BGL_BIND_STRING(BGl_string5054z00zz__datez00,
			BgL_bgl_string5054za700za7za7_5188za7);
		BGL_BIND_STRING(BGl_string5052z00zz__datez00,
			BgL_bgl_string5052za700za7za7_5187za7);
		BGL_BIND_STRING(BGl_string5051z00zz__datez00,
			BgL_bgl_string5051za700za7za7_5186za7);
		BGL_BIND_PROCEDURE(BGl_datezd2wdayzd2envz00zz__datez00,
			BgL_bgl_za762dateza7d2wdayza7b5185za7);
		BGL_BIND_PROCEDURE(BGl_datezd2monthzd2lengthzd2envzd2zz__datez00,
			BgL_bgl_za762dateza7d2monthza75184za7);
		BGL_BIND_PROCEDURE(BGl_datezd2za7onezd2offsetzd2envz75zz__datez00,
			BgL_bgl_za762dateza7d2za7a7one5183za7);
		BGL_BIND_STRING(BGl_string4958z00zz__datez00,
			BgL_bgl_string4958za700za7za7_5182za7);
		BGL_BIND_STRING(BGl_string4956z00zz__datez00,
			BgL_bgl_string4956za700za7za7_5181za7);
		BGL_BIND_STRING(BGl_string4954z00zz__datez00,
			BgL_bgl_string4954za700za7za7_5180za7);
		BGL_BIND_PROCEDURE(BGl_integerzd2ze3secondzd2envze3zz__datez00,
			BgL_bgl_za762integerza7d2za7e35179za7);
		BGL_BIND_STRING(BGl_string4952z00zz__datez00,
			BgL_bgl_string4952za700za7za7_5178za7);
		BGL_BIND_STRING(BGl_string4950z00zz__datez00,
			BgL_bgl_string4950za700za7za7_5177za7);
		BGL_BIND_STRING(BGl_string5049z00zz__datez00,
			BgL_bgl_string5049za700za7za7_5176za7);
		BGL_BIND_STRING(BGl_string5048z00zz__datez00,
			BgL_bgl_string5048za700za7za7_5175za7);
		BGL_BIND_STRING(BGl_string5047z00zz__datez00,
			BgL_bgl_string5047za700za7za7_5174za7);
		BGL_BIND_STRING(BGl_string5045z00zz__datez00,
			BgL_bgl_string5045za700za7za7_5173za7);
		BGL_BIND_STRING(BGl_string5044z00zz__datez00,
			BgL_bgl_string5044za700za7za7_5172za7);
		BGL_BIND_STRING(BGl_string5043z00zz__datez00,
			BgL_bgl_string5043za700za7za7_5171za7);
		BGL_BIND_STRING(BGl_string5042z00zz__datez00,
			BgL_bgl_string5042za700za7za7_5170za7);
		BGL_BIND_STRING(BGl_string5041z00zz__datez00,
			BgL_bgl_string5041za700za7za7_5169za7);
		BGL_BIND_STRING(BGl_string5040z00zz__datez00,
			BgL_bgl_string5040za700za7za7_5168za7);
		BGL_BIND_STRING(BGl_string4948z00zz__datez00,
			BgL_bgl_string4948za700za7za7_5167za7);
		BGL_BIND_PROCEDURE(BGl_secondszd2ze3datezd2envze3zz__datez00,
			BgL_bgl_za762secondsza7d2za7e35166za7);
		BGL_BIND_STRING(BGl_string4946z00zz__datez00,
			BgL_bgl_string4946za700za7za7_5165za7);
		BGL_BIND_PROCEDURE(BGl_proc4938z00zz__datez00,
			BgL_bgl_za762za7c3za704anonymo5164za7);
		BGL_BIND_STRING(BGl_string4944z00zz__datez00,
			BgL_bgl_string4944za700za7za7_5163za7);
		BGL_BIND_STRING(BGl_string4943z00zz__datez00,
			BgL_bgl_string4943za700za7za7_5162za7);
		BGL_BIND_STRING(BGl_string4942z00zz__datez00,
			BgL_bgl_string4942za700za7za7_5161za7);
		BGL_BIND_STRING(BGl_string4941z00zz__datez00,
			BgL_bgl_string4941za700za7za7_5160za7);
		BGL_BIND_STRING(BGl_string4940z00zz__datez00,
			BgL_bgl_string4940za700za7za7_5159za7);
		BGL_BIND_STRING(BGl_string5039z00zz__datez00,
			BgL_bgl_string5039za700za7za7_5158za7);
		BGL_BIND_STRING(BGl_string5038z00zz__datez00,
			BgL_bgl_string5038za700za7za7_5157za7);
		BGL_BIND_STRING(BGl_string5037z00zz__datez00,
			BgL_bgl_string5037za700za7za7_5156za7);
		BGL_BIND_STRING(BGl_string5036z00zz__datez00,
			BgL_bgl_string5036za700za7za7_5155za7);
		BGL_BIND_STRING(BGl_string5035z00zz__datez00,
			BgL_bgl_string5035za700za7za7_5154za7);
		BGL_BIND_STRING(BGl_string5034z00zz__datez00,
			BgL_bgl_string5034za700za7za7_5153za7);
		BGL_BIND_STRING(BGl_string5033z00zz__datez00,
			BgL_bgl_string5033za700za7za7_5152za7);
		BGL_BIND_STRING(BGl_string5032z00zz__datez00,
			BgL_bgl_string5032za700za7za7_5151za7);
		BGL_BIND_STRING(BGl_string5031z00zz__datez00,
			BgL_bgl_string5031za700za7za7_5150za7);
		BGL_BIND_STRING(BGl_string5030z00zz__datez00,
			BgL_bgl_string5030za700za7za7_5149za7);
		BGL_BIND_PROCEDURE(BGl_datezd2ydayzd2envz00zz__datez00,
			BgL_bgl_za762dateza7d2ydayza7b5148za7);
		BGL_BIND_PROCEDURE(BGl_datezd2iszd2dstzd2envzd2zz__datez00,
			BgL_bgl_za762dateza7d2isza7d2d5147za7);
		BGL_BIND_PROCEDURE(BGl_rfc2822zd2datezd2ze3datezd2envz31zz__datez00,
			BgL_bgl_za762rfc2822za7d2dat5146z00);
		BGL_BIND_STRING(BGl_string4939z00zz__datez00,
			BgL_bgl_string4939za700za7za7_5145za7);
		BGL_BIND_STRING(BGl_string4937z00zz__datez00,
			BgL_bgl_string4937za700za7za7_5144za7);
		BGL_BIND_PROCEDURE(BGl_monthzd2anamezd2envz00zz__datez00,
			BgL_bgl_za762monthza7d2aname5143z00);
		BGL_BIND_STRING(BGl_string4934z00zz__datez00,
			BgL_bgl_string4934za700za7za7_5142za7);
		BGL_BIND_STRING(BGl_string4931z00zz__datez00,
			BgL_bgl_string4931za700za7za7_5141za7);
		BGL_BIND_STRING(BGl_string5029z00zz__datez00,
			BgL_bgl_string5029za700za7za7_5140za7);
		BGL_BIND_STRING(BGl_string5028z00zz__datez00,
			BgL_bgl_string5028za700za7za7_5139za7);
		BGL_BIND_STRING(BGl_string5027z00zz__datez00,
			BgL_bgl_string5027za700za7za7_5138za7);
		BGL_BIND_PROCEDURE(BGl_currentzd2datezd2envz00zz__datez00,
			BgL_bgl_za762currentza7d2dat5137z00);
		BGL_BIND_STRING(BGl_string5026z00zz__datez00,
			BgL_bgl_string5026za700za7za7_5136za7);
		BGL_BIND_STRING(BGl_string5025z00zz__datez00,
			BgL_bgl_string5025za700za7za7_5135za7);
		BGL_BIND_STRING(BGl_string5024z00zz__datez00,
			BgL_bgl_string5024za700za7za7_5134za7);
		BGL_BIND_STRING(BGl_string5023z00zz__datez00,
			BgL_bgl_string5023za700za7za7_5133za7);
		BGL_BIND_STRING(BGl_string5022z00zz__datez00,
			BgL_bgl_string5022za700za7za7_5132za7);
		BGL_BIND_STRING(BGl_string5021z00zz__datez00,
			BgL_bgl_string5021za700za7za7_5131za7);
		BGL_BIND_STRING(BGl_string5020z00zz__datez00,
			BgL_bgl_string5020za700za7za7_5130za7);
		BGL_BIND_PROCEDURE(BGl_currentzd2secondszd2envz00zz__datez00,
			BgL_bgl_za762currentza7d2sec5129z00);
		BGL_BIND_STRING(BGl_string4928z00zz__datez00,
			BgL_bgl_string4928za700za7za7_5128za7);
		BGL_BIND_STRING(BGl_string4925z00zz__datez00,
			BgL_bgl_string4925za700za7za7_5127za7);
		BGL_BIND_STRING(BGl_string4922z00zz__datez00,
			BgL_bgl_string4922za700za7za7_5126za7);
		BGL_BIND_STRING(BGl_string5019z00zz__datez00,
			BgL_bgl_string5019za700za7za7_5125za7);
		BGL_BIND_STRING(BGl_string5018z00zz__datez00,
			BgL_bgl_string5018za700za7za7_5124za7);
		BGL_BIND_STRING(BGl_string5017z00zz__datez00,
			BgL_bgl_string5017za700za7za7_5123za7);
		BGL_BIND_STRING(BGl_string5016z00zz__datez00,
			BgL_bgl_string5016za700za7za7_5122za7);
		BGL_BIND_STRING(BGl_string5015z00zz__datez00,
			BgL_bgl_string5015za700za7za7_5121za7);
		BGL_BIND_PROCEDURE(BGl_currentzd2nanosecondszd2envz00zz__datez00,
			BgL_bgl_za762currentza7d2nan5120z00);
		BGL_BIND_STRING(BGl_string5014z00zz__datez00,
			BgL_bgl_string5014za700za7za7_5119za7);
		BGL_BIND_STRING(BGl_string5013z00zz__datez00,
			BgL_bgl_string5013za700za7za7_5118za7);
		BGL_BIND_STRING(BGl_string5012z00zz__datez00,
			BgL_bgl_string5012za700za7za7_5117za7);
		BGL_BIND_STRING(BGl_string5011z00zz__datez00,
			BgL_bgl_string5011za700za7za7_5116za7);
		BGL_BIND_PROCEDURE(BGl_datezd2secondzd2envz00zz__datez00,
			BgL_bgl_za762dateza7d2second5115z00);
		BGL_BIND_PROCEDURE(BGl_leapzd2yearzf3zd2envzf3zz__datez00,
			BgL_bgl_za762leapza7d2yearza7f5114za7);
		BGL_BIND_PROCEDURE(BGl_currentzd2microsecondszd2envz00zz__datez00,
			BgL_bgl_za762currentza7d2mic5113z00);
		BGL_BIND_PROCEDURE(BGl_datezd2ze3utczd2stringzd2envz31zz__datez00,
			BgL_bgl_za762dateza7d2za7e3utc5112za7);
		BGL_BIND_STRING(BGl_string4919z00zz__datez00,
			BgL_bgl_string4919za700za7za7_5111za7);
		BGL_BIND_STRING(BGl_string4916z00zz__datez00,
			BgL_bgl_string4916za700za7za7_5110za7);
		BGL_BIND_PROCEDURE(BGl_datezd2nanosecondzd2envz00zz__datez00,
			BgL_bgl_za762dateza7d2nanose5109z00);
		BGL_BIND_STRING(BGl_string4913z00zz__datez00,
			BgL_bgl_string4913za700za7za7_5108za7);
		BGL_BIND_PROCEDURE(BGl_secondszd2ze3stringzd2envze3zz__datez00,
			BgL_bgl_za762secondsza7d2za7e35107za7);
		BGL_BIND_STRING(BGl_string4910z00zz__datez00,
			BgL_bgl_string4910za700za7za7_5106za7);
		BGL_BIND_STRING(BGl_string5008z00zz__datez00,
			BgL_bgl_string5008za700za7za7_5105za7);
		BGL_BIND_STRING(BGl_string5007z00zz__datez00,
			BgL_bgl_string5007za700za7za7_5104za7);
		BGL_BIND_STRING(BGl_string5006z00zz__datez00,
			BgL_bgl_string5006za700za7za7_5103za7);
		BGL_BIND_PROCEDURE(BGl_proc4900z00zz__datez00,
			BgL_bgl_za762za7c3za704anonymo5102za7);
		BGL_BIND_STRING(BGl_string5005z00zz__datez00,
			BgL_bgl_string5005za700za7za7_5101za7);
		BGL_BIND_PROCEDURE(BGl_datezd2dayzd2envz00zz__datez00,
			BgL_bgl_za762dateza7d2dayza7b05100za7);
		BGL_BIND_STRING(BGl_string5003z00zz__datez00,
			BgL_bgl_string5003za700za7za7_5099za7);
		BGL_BIND_STRING(BGl_string5000z00zz__datez00,
			BgL_bgl_string5000za700za7za7_5098za7);
		BGL_BIND_STRING(BGl_string4907z00zz__datez00,
			BgL_bgl_string4907za700za7za7_5097za7);
		BGL_BIND_PROCEDURE(BGl_monthzd2namezd2envz00zz__datez00,
			BgL_bgl_za762monthza7d2nameza75096za7);
		BGL_BIND_STRING(BGl_string4904z00zz__datez00,
			BgL_bgl_string4904za700za7za7_5095za7);
		BGL_BIND_PROCEDURE(BGl_datezd2monthzd2envz00zz__datez00,
			BgL_bgl_za762dateza7d2monthza75094za7);
		BGL_BIND_PROCEDURE(BGl_datezd2ze3millisecondszd2envze3zz__datez00,
			BgL_bgl_za762dateza7d2za7e3mil5093za7);
		BGL_BIND_PROCEDURE(BGl_datezd2minutezd2envz00zz__datez00,
			BgL_bgl_za762dateza7d2minute5092z00);
		BGL_BIND_PROCEDURE(BGl_millisecondszd2ze3gmtdatezd2envze3zz__datez00,
			BgL_bgl_za762millisecondsza75091z00);
		BGL_BIND_PROCEDURE(BGl_dayzd2namezd2envz00zz__datez00,
			BgL_bgl_za762dayza7d2nameza7b05090za7);
		BGL_BIND_PROCEDURE(BGl_makezd2datezd2envz00zz__datez00,
			BgL_bgl__makeza7d2dateza7d2za75089za7);
		BGL_BIND_PROCEDURE(BGl_datezd2weekzd2dayzd2envzd2zz__datez00,
			BgL_bgl_za762dateza7d2weekza7d5088za7);
		BGL_BIND_PROCEDURE(BGl_datezf3zd2envz21zz__datez00,
			BgL_bgl_za762dateza7f3za791za7za7_5087za7);
		BGL_BIND_PROCEDURE(BGl_datezd2timeza7onezd2envza7zz__datez00,
			BgL_bgl_za762dateza7d2timeza7a5086za7);
		BGL_BIND_PROCEDURE(BGl_iso8601zd2parsezd2datezd2envzd2zz__datez00,
			BgL_bgl_za762iso8601za7d2par5085z00);
		BGL_BIND_LLONG(BGl_llong4974z00zz__datez00,
			BgL_bgl_llong4974za700za7za7__5084za7);
		BGL_BIND_PROCEDURE(BGl_datezd2yearzd2envz00zz__datez00,
			BgL_bgl_za762dateza7d2yearza7b5083za7);
		BGL_BIND_PROCEDURE(BGl_secondszd2ze3utczd2stringzd2envz31zz__datez00,
			BgL_bgl_za762secondsza7d2za7e35082za7);
		BGL_BIND_PROCEDURE(BGl_datezd2ze3nanosecondszd2envze3zz__datez00,
			BgL_bgl_za762dateza7d2za7e3nan5081za7);
		BGL_BIND_PROCEDURE(BGl_dayzd2secondszd2envz00zz__datez00,
			BgL_bgl_za762dayza7d2seconds5080z00);
		BGL_BIND_PROCEDURE(BGl_currentzd2millisecondszd2envz00zz__datez00,
			BgL_bgl_za762currentza7d2mil5079z00);
		BGL_BIND_PROCEDURE(BGl_nanosecondszd2ze3datezd2envze3zz__datez00,
			BgL_bgl_za762nanosecondsza7d5078z00);
	}

/* 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_dayzd2ofzd2weekzd2grammarzd2zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4994z00zz__datez00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__datez00));
		ADD_ROOT((void *) (&BGl_timezd2grammarzd2zz__datez00));
		ADD_ROOT((void *) (&BGl_list4975z00zz__datez00));
		ADD_ROOT((void *) (&BGl_keyword5002z00zz__datez00));
		ADD_ROOT((void *) (&BGl_thezd2fixnumzd2grammarz00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4903z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4906z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4909z00zz__datez00));
		ADD_ROOT((void *) (&BGl_monthzd2grammarzd2zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol5004z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4912z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4915z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4918z00zz__datez00));
		ADD_ROOT((void *) (&BGl_za7onezd2grammarz75zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol5010z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4921z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4924z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4927z00zz__datez00));
		ADD_ROOT((void *) (&BGl_keyword4976z00zz__datez00));
		ADD_ROOT((void *) (&BGl_keyword4978z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4930z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4933z00zz__datez00));
		ADD_ROOT((void *) (&BGl_list4901z00zz__datez00));
		ADD_ROOT((void *) (&BGl_list4902z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4936z00zz__datez00));
		ADD_ROOT((void *) (&BGl_list4905z00zz__datez00));
		ADD_ROOT((void *) (&BGl_list4908z00zz__datez00));
		ADD_ROOT((void *) (&BGl_keyword4980z00zz__datez00));
		ADD_ROOT((void *) (&BGl_keyword4982z00zz__datez00));
		ADD_ROOT((void *) (&BGl_keyword4984z00zz__datez00));
		ADD_ROOT((void *) (&BGl_za2timezd2za7onesza2z75zz__datez00));
		ADD_ROOT((void *) (&BGl_keyword4986z00zz__datez00));
		ADD_ROOT((void *) (&BGl_list5001z00zz__datez00));
		ADD_ROOT((void *) (&BGl_keyword4988z00zz__datez00));
		ADD_ROOT((void *) (&BGl_list5009z00zz__datez00));
		ADD_ROOT((void *) (&BGl_list4911z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4945z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4947z00zz__datez00));
		ADD_ROOT((void *) (&BGl_list4914z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4949z00zz__datez00));
		ADD_ROOT((void *) (&BGl_list4917z00zz__datez00));
		ADD_ROOT((void *) (&BGl_keyword4990z00zz__datez00));
		ADD_ROOT((void *) (&BGl_keyword4992z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol5046z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4951z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4953z00zz__datez00));
		ADD_ROOT((void *) (&BGl_list4920z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4955z00zz__datez00));
		ADD_ROOT((void *) (&BGl_list4923z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4957z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4959z00zz__datez00));
		ADD_ROOT((void *) (&BGl_list4926z00zz__datez00));
		ADD_ROOT((void *) (&BGl_list4929z00zz__datez00));
		ADD_ROOT((void *) (&BGl_za2monthzd2lengthsza2zd2zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol5050z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol5053z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4961z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4963z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4965z00zz__datez00));
		ADD_ROOT((void *) (&BGl_list4932z00zz__datez00));
		ADD_ROOT((void *) (&BGl_symbol4967z00zz__datez00));
		ADD_ROOT((void *) (&BGl_list4935z00zz__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_11202, char *BgL_fromz00_11203)
	{
		{
			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_symbol4903z00zz__datez00 =
				bstring_to_symbol(BGl_string4904z00zz__datez00);
			BGl_list4902z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_symbol4903z00zz__datez00, BINT((-4L)));
			BGl_symbol4906z00zz__datez00 =
				bstring_to_symbol(BGl_string4907z00zz__datez00);
			BGl_list4905z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_symbol4906z00zz__datez00, BINT((-5L)));
			BGl_symbol4909z00zz__datez00 =
				bstring_to_symbol(BGl_string4910z00zz__datez00);
			BGl_list4908z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_symbol4909z00zz__datez00, BINT((-5L)));
			BGl_symbol4912z00zz__datez00 =
				bstring_to_symbol(BGl_string4913z00zz__datez00);
			BGl_list4911z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_symbol4912z00zz__datez00, BINT((-6L)));
			BGl_symbol4915z00zz__datez00 =
				bstring_to_symbol(BGl_string4916z00zz__datez00);
			BGl_list4914z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_symbol4915z00zz__datez00, BINT((-6L)));
			BGl_symbol4918z00zz__datez00 =
				bstring_to_symbol(BGl_string4919z00zz__datez00);
			BGl_list4917z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_symbol4918z00zz__datez00, BINT((-7L)));
			BGl_symbol4921z00zz__datez00 =
				bstring_to_symbol(BGl_string4922z00zz__datez00);
			BGl_list4920z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_symbol4921z00zz__datez00, BINT((-7L)));
			BGl_symbol4924z00zz__datez00 =
				bstring_to_symbol(BGl_string4925z00zz__datez00);
			BGl_list4923z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_symbol4924z00zz__datez00, BINT((-8L)));
			BGl_symbol4927z00zz__datez00 =
				bstring_to_symbol(BGl_string4928z00zz__datez00);
			BGl_list4926z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_symbol4927z00zz__datez00, BINT(2L));
			BGl_symbol4930z00zz__datez00 =
				bstring_to_symbol(BGl_string4931z00zz__datez00);
			BGl_list4929z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_symbol4930z00zz__datez00, BINT(0L));
			BGl_symbol4933z00zz__datez00 =
				bstring_to_symbol(BGl_string4934z00zz__datez00);
			BGl_list4932z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_symbol4933z00zz__datez00, BINT(0L));
			BGl_symbol4936z00zz__datez00 =
				bstring_to_symbol(BGl_string4937z00zz__datez00);
			BGl_list4935z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_symbol4936z00zz__datez00, BINT(1L));
			BGl_list4901z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_list4902z00zz__datez00,
				MAKE_YOUNG_PAIR(BGl_list4905z00zz__datez00,
					MAKE_YOUNG_PAIR(BGl_list4908z00zz__datez00,
						MAKE_YOUNG_PAIR(BGl_list4911z00zz__datez00,
							MAKE_YOUNG_PAIR(BGl_list4914z00zz__datez00,
								MAKE_YOUNG_PAIR(BGl_list4917z00zz__datez00,
									MAKE_YOUNG_PAIR(BGl_list4920z00zz__datez00,
										MAKE_YOUNG_PAIR(BGl_list4923z00zz__datez00,
											MAKE_YOUNG_PAIR(BGl_list4926z00zz__datez00,
												MAKE_YOUNG_PAIR(BGl_list4929z00zz__datez00,
													MAKE_YOUNG_PAIR(BGl_list4932z00zz__datez00,
														MAKE_YOUNG_PAIR(BGl_list4935z00zz__datez00,
															BNIL))))))))))));
			BGl_symbol4945z00zz__datez00 =
				bstring_to_symbol(BGl_string4946z00zz__datez00);
			BGl_symbol4947z00zz__datez00 =
				bstring_to_symbol(BGl_string4948z00zz__datez00);
			BGl_symbol4949z00zz__datez00 =
				bstring_to_symbol(BGl_string4950z00zz__datez00);
			BGl_symbol4951z00zz__datez00 =
				bstring_to_symbol(BGl_string4952z00zz__datez00);
			BGl_symbol4953z00zz__datez00 =
				bstring_to_symbol(BGl_string4954z00zz__datez00);
			BGl_symbol4955z00zz__datez00 =
				bstring_to_symbol(BGl_string4956z00zz__datez00);
			BGl_symbol4957z00zz__datez00 =
				bstring_to_symbol(BGl_string4958z00zz__datez00);
			BGl_symbol4959z00zz__datez00 =
				bstring_to_symbol(BGl_string4960z00zz__datez00);
			BGl_symbol4961z00zz__datez00 =
				bstring_to_symbol(BGl_string4962z00zz__datez00);
			BGl_symbol4963z00zz__datez00 =
				bstring_to_symbol(BGl_string4964z00zz__datez00);
			BGl_symbol4965z00zz__datez00 =
				bstring_to_symbol(BGl_string4966z00zz__datez00);
			BGl_symbol4967z00zz__datez00 =
				bstring_to_symbol(BGl_string4968z00zz__datez00);
			BGl_keyword4976z00zz__datez00 =
				bstring_to_keyword(BGl_string4977z00zz__datez00);
			BGl_keyword4978z00zz__datez00 =
				bstring_to_keyword(BGl_string4979z00zz__datez00);
			BGl_keyword4980z00zz__datez00 =
				bstring_to_keyword(BGl_string4981z00zz__datez00);
			BGl_keyword4982z00zz__datez00 =
				bstring_to_keyword(BGl_string4983z00zz__datez00);
			BGl_keyword4984z00zz__datez00 =
				bstring_to_keyword(BGl_string4985z00zz__datez00);
			BGl_keyword4986z00zz__datez00 =
				bstring_to_keyword(BGl_string4987z00zz__datez00);
			BGl_keyword4988z00zz__datez00 =
				bstring_to_keyword(BGl_string4989z00zz__datez00);
			BGl_keyword4990z00zz__datez00 =
				bstring_to_keyword(BGl_string4991z00zz__datez00);
			BGl_keyword4992z00zz__datez00 =
				bstring_to_keyword(BGl_string4993z00zz__datez00);
			BGl_list4975z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_keyword4976z00zz__datez00,
				MAKE_YOUNG_PAIR(BGl_keyword4978z00zz__datez00,
					MAKE_YOUNG_PAIR(BGl_keyword4980z00zz__datez00,
						MAKE_YOUNG_PAIR(BGl_keyword4982z00zz__datez00,
							MAKE_YOUNG_PAIR(BGl_keyword4984z00zz__datez00,
								MAKE_YOUNG_PAIR(BGl_keyword4986z00zz__datez00,
									MAKE_YOUNG_PAIR(BGl_keyword4988z00zz__datez00,
										MAKE_YOUNG_PAIR(BGl_keyword4990z00zz__datez00,
											MAKE_YOUNG_PAIR(BGl_keyword4992z00zz__datez00,
												BNIL)))))))));
			BGl_symbol4994z00zz__datez00 =
				bstring_to_symbol(BGl_string4995z00zz__datez00);
			BGl_keyword5002z00zz__datez00 =
				bstring_to_keyword(BGl_string5003z00zz__datez00);
			BGl_list5001z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_keyword4976z00zz__datez00,
				MAKE_YOUNG_PAIR(BGl_keyword4980z00zz__datez00,
					MAKE_YOUNG_PAIR(BGl_keyword5002z00zz__datez00,
						MAKE_YOUNG_PAIR(BGl_keyword4982z00zz__datez00,
							MAKE_YOUNG_PAIR(BGl_keyword4984z00zz__datez00,
								MAKE_YOUNG_PAIR(BGl_keyword4986z00zz__datez00,
									MAKE_YOUNG_PAIR(BGl_keyword4988z00zz__datez00,
										MAKE_YOUNG_PAIR(BGl_keyword4990z00zz__datez00,
											MAKE_YOUNG_PAIR(BGl_keyword4992z00zz__datez00,
												BNIL)))))))));
			BGl_symbol5004z00zz__datez00 =
				bstring_to_symbol(BGl_string5005z00zz__datez00);
			BGl_list5009z00zz__datez00 =
				MAKE_YOUNG_PAIR(BGl_keyword4976z00zz__datez00,
				MAKE_YOUNG_PAIR(BGl_keyword4980z00zz__datez00,
					MAKE_YOUNG_PAIR(BGl_keyword4982z00zz__datez00,
						MAKE_YOUNG_PAIR(BGl_keyword4984z00zz__datez00,
							MAKE_YOUNG_PAIR(BGl_keyword4986z00zz__datez00,
								MAKE_YOUNG_PAIR(BGl_keyword4988z00zz__datez00,
									MAKE_YOUNG_PAIR(BGl_keyword4992z00zz__datez00, BNIL)))))));
			BGl_symbol5010z00zz__datez00 =
				bstring_to_symbol(BGl_string5011z00zz__datez00);
			BGl_symbol5046z00zz__datez00 =
				bstring_to_symbol(BGl_string5047z00zz__datez00);
			BGl_symbol5050z00zz__datez00 =
				bstring_to_symbol(BGl_string5051z00zz__datez00);
			return (BGl_symbol5053z00zz__datez00 =
				bstring_to_symbol(BGl_string5054z00zz__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_arg1435z00_1276;

				{	/* Llib/date.scm 676 */
					obj_t BgL_arg1436z00_1277;

					{	/* Llib/date.scm 676 */
						obj_t BgL_arg1437z00_1278;

						{	/* Llib/date.scm 676 */
							obj_t BgL_arg1438z00_1279;

							{	/* Llib/date.scm 676 */
								obj_t BgL_arg1439z00_1280;

								{	/* Llib/date.scm 676 */
									obj_t BgL_arg1442z00_1281;

									{	/* Llib/date.scm 676 */
										obj_t BgL_arg1443z00_1282;

										{	/* Llib/date.scm 676 */
											obj_t BgL_arg1444z00_1283;

											{	/* Llib/date.scm 676 */
												obj_t BgL_arg1445z00_1284;

												{	/* Llib/date.scm 676 */
													obj_t BgL_arg1446z00_1285;

													{	/* Llib/date.scm 676 */
														obj_t BgL_arg1447z00_1286;

														{	/* Llib/date.scm 676 */
															obj_t BgL_arg1448z00_1287;

															BgL_arg1448z00_1287 =
																MAKE_YOUNG_PAIR(BINT(31L), BNIL);
															BgL_arg1447z00_1286 =
																MAKE_YOUNG_PAIR(BINT(30L), BgL_arg1448z00_1287);
														}
														BgL_arg1446z00_1285 =
															MAKE_YOUNG_PAIR(BINT(31L), BgL_arg1447z00_1286);
													}
													BgL_arg1445z00_1284 =
														MAKE_YOUNG_PAIR(BINT(30L), BgL_arg1446z00_1285);
												}
												BgL_arg1444z00_1283 =
													MAKE_YOUNG_PAIR(BINT(31L), BgL_arg1445z00_1284);
											}
											BgL_arg1443z00_1282 =
												MAKE_YOUNG_PAIR(BINT(31L), BgL_arg1444z00_1283);
										}
										BgL_arg1442z00_1281 =
											MAKE_YOUNG_PAIR(BINT(30L), BgL_arg1443z00_1282);
									}
									BgL_arg1439z00_1280 =
										MAKE_YOUNG_PAIR(BINT(31L), BgL_arg1442z00_1281);
								}
								BgL_arg1438z00_1279 =
									MAKE_YOUNG_PAIR(BINT(30L), BgL_arg1439z00_1280);
							}
							BgL_arg1437z00_1278 =
								MAKE_YOUNG_PAIR(BINT(31L), BgL_arg1438z00_1279);
						}
						BgL_arg1436z00_1277 =
							MAKE_YOUNG_PAIR(BINT(28L), BgL_arg1437z00_1278);
					}
					BgL_arg1435z00_1276 = MAKE_YOUNG_PAIR(BINT(31L), BgL_arg1436z00_1277);
				}
				BGl_za2monthzd2lengthsza2zd2zz__datez00 =
					BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_arg1435z00_1276);
			}
			{	/* Llib/date.scm 979 */
				obj_t BgL_zc3z04anonymousza31449ze3z87_10185;

				{
					int BgL_tmpz00_11339;

					BgL_tmpz00_11339 = (int) (0L);
					BgL_zc3z04anonymousza31449ze3z87_10185 =
						MAKE_EL_PROCEDURE(BgL_tmpz00_11339);
				}
				BGl_dayzd2ofzd2weekzd2grammarzd2zz__datez00 =
					BgL_zc3z04anonymousza31449ze3z87_10185;
			}
			BGl_thezd2fixnumzd2grammarz00zz__datez00 = BGl_proc4898z00zz__datez00;
			BGl_monthzd2grammarzd2zz__datez00 = BGl_proc4899z00zz__datez00;
			BGl_timezd2grammarzd2zz__datez00 = BGl_proc4900z00zz__datez00;
			BGl_za2timezd2za7onesza2z75zz__datez00 = BGl_list4901z00zz__datez00;
			return (BGl_za7onezd2grammarz75zz__datez00 =
				BGl_proc4938z00zz__datez00, BUNSPEC);
		}

	}



/* &<@anonymous:2331> */
	obj_t BGl_z62zc3z04anonymousza32331ze3ze5zz__datez00(obj_t BgL_envz00_10186,
		obj_t BgL_iportz00_10187)
	{
		{	/* Llib/date.scm 1121 */
			{
				obj_t BgL_iportz00_10744;
				long BgL_lastzd2matchzd2_10745;
				long BgL_forwardz00_10746;
				long BgL_bufposz00_10747;
				obj_t BgL_iportz00_10736;
				long BgL_lastzd2matchzd2_10737;
				long BgL_forwardz00_10738;
				long BgL_bufposz00_10739;
				obj_t BgL_iportz00_10728;
				long BgL_lastzd2matchzd2_10729;
				long BgL_forwardz00_10730;
				long BgL_bufposz00_10731;
				obj_t BgL_iportz00_10720;
				long BgL_lastzd2matchzd2_10721;
				long BgL_forwardz00_10722;
				long BgL_bufposz00_10723;
				obj_t BgL_iportz00_10712;
				long BgL_lastzd2matchzd2_10713;
				long BgL_forwardz00_10714;
				long BgL_bufposz00_10715;
				obj_t BgL_iportz00_10703;
				long BgL_lastzd2matchzd2_10704;
				long BgL_forwardz00_10705;
				long BgL_bufposz00_10706;
				obj_t BgL_iportz00_10696;
				long BgL_lastzd2matchzd2_10697;
				long BgL_forwardz00_10698;
				long BgL_bufposz00_10699;
				obj_t BgL_iportz00_10688;
				long BgL_lastzd2matchzd2_10689;
				long BgL_forwardz00_10690;
				long BgL_bufposz00_10691;
				obj_t BgL_iportz00_10681;
				long BgL_lastzd2matchzd2_10682;
				long BgL_forwardz00_10683;
				long BgL_bufposz00_10684;
				obj_t BgL_iportz00_10674;
				long BgL_lastzd2matchzd2_10675;
				long BgL_forwardz00_10676;
				long BgL_bufposz00_10677;
				obj_t BgL_iportz00_10664;
				long BgL_lastzd2matchzd2_10665;
				long BgL_forwardz00_10666;
				long BgL_bufposz00_10667;
				obj_t BgL_iportz00_10655;
				long BgL_lastzd2matchzd2_10656;
				long BgL_forwardz00_10657;
				long BgL_bufposz00_10658;
				obj_t BgL_iportz00_10647;
				long BgL_lastzd2matchzd2_10648;
				long BgL_forwardz00_10649;
				long BgL_bufposz00_10650;

			BgL_ignorez00_10595:
				{	/* Llib/date.scm 1121 */
					obj_t BgL_tmpz00_11342;

					BgL_tmpz00_11342 = ((obj_t) BgL_iportz00_10187);
					RGC_START_MATCH(BgL_tmpz00_11342);
				}
				{	/* Llib/date.scm 1121 */
					long BgL_matchz00_10610;

					{	/* Llib/date.scm 1121 */
						long BgL_arg2630z00_10611;
						long BgL_arg2631z00_10612;

						{	/* Llib/date.scm 1121 */
							obj_t BgL_tmpz00_11345;

							BgL_tmpz00_11345 = ((obj_t) BgL_iportz00_10187);
							BgL_arg2630z00_10611 = RGC_BUFFER_FORWARD(BgL_tmpz00_11345);
						}
						{	/* Llib/date.scm 1121 */
							obj_t BgL_tmpz00_11348;

							BgL_tmpz00_11348 = ((obj_t) BgL_iportz00_10187);
							BgL_arg2631z00_10612 = RGC_BUFFER_BUFPOS(BgL_tmpz00_11348);
						}
						BgL_iportz00_10703 = BgL_iportz00_10187;
						BgL_lastzd2matchzd2_10704 = 5L;
						BgL_forwardz00_10705 = BgL_arg2630z00_10611;
						BgL_bufposz00_10706 = BgL_arg2631z00_10612;
					BgL_statezd20zd21208z00_10604:
						if ((BgL_forwardz00_10705 == BgL_bufposz00_10706))
							{	/* Llib/date.scm 1121 */
								if (rgc_fill_buffer(((obj_t) BgL_iportz00_10703)))
									{	/* Llib/date.scm 1121 */
										long BgL_arg2384z00_10707;
										long BgL_arg2385z00_10708;

										{	/* Llib/date.scm 1121 */
											obj_t BgL_tmpz00_11356;

											BgL_tmpz00_11356 = ((obj_t) BgL_iportz00_10703);
											BgL_arg2384z00_10707 =
												RGC_BUFFER_FORWARD(BgL_tmpz00_11356);
										}
										{	/* Llib/date.scm 1121 */
											obj_t BgL_tmpz00_11359;

											BgL_tmpz00_11359 = ((obj_t) BgL_iportz00_10703);
											BgL_arg2385z00_10708 =
												RGC_BUFFER_BUFPOS(BgL_tmpz00_11359);
										}
										{
											long BgL_bufposz00_11363;
											long BgL_forwardz00_11362;

											BgL_forwardz00_11362 = BgL_arg2384z00_10707;
											BgL_bufposz00_11363 = BgL_arg2385z00_10708;
											BgL_bufposz00_10706 = BgL_bufposz00_11363;
											BgL_forwardz00_10705 = BgL_forwardz00_11362;
											goto BgL_statezd20zd21208z00_10604;
										}
									}
								else
									{	/* Llib/date.scm 1121 */
										BgL_matchz00_10610 = BgL_lastzd2matchzd2_10704;
									}
							}
						else
							{	/* Llib/date.scm 1121 */
								int BgL_curz00_10709;

								{	/* Llib/date.scm 1121 */
									obj_t BgL_tmpz00_11364;

									BgL_tmpz00_11364 = ((obj_t) BgL_iportz00_10703);
									BgL_curz00_10709 =
										RGC_BUFFER_GET_CHAR(BgL_tmpz00_11364, BgL_forwardz00_10705);
								}
								{	/* Llib/date.scm 1121 */

									{	/* Llib/date.scm 1121 */
										bool_t BgL_test5259z00_11367;

										{	/* Llib/date.scm 1121 */
											bool_t BgL_test5260z00_11368;

											if (((long) (BgL_curz00_10709) >= 65L))
												{	/* Llib/date.scm 1121 */
													BgL_test5260z00_11368 =
														((long) (BgL_curz00_10709) < 91L);
												}
											else
												{	/* Llib/date.scm 1121 */
													BgL_test5260z00_11368 = ((bool_t) 0);
												}
											if (BgL_test5260z00_11368)
												{	/* Llib/date.scm 1121 */
													BgL_test5259z00_11367 = ((bool_t) 1);
												}
											else
												{	/* Llib/date.scm 1121 */
													if (((long) (BgL_curz00_10709) >= 97L))
														{	/* Llib/date.scm 1121 */
															BgL_test5259z00_11367 =
																((long) (BgL_curz00_10709) < 123L);
														}
													else
														{	/* Llib/date.scm 1121 */
															BgL_test5259z00_11367 = ((bool_t) 0);
														}
												}
										}
										if (BgL_test5259z00_11367)
											{	/* Llib/date.scm 1121 */
												BgL_iportz00_10736 = BgL_iportz00_10703;
												BgL_lastzd2matchzd2_10737 = BgL_lastzd2matchzd2_10704;
												BgL_forwardz00_10738 = (1L + BgL_forwardz00_10705);
												BgL_bufposz00_10739 = BgL_bufposz00_10706;
											BgL_statezd25zd21213z00_10608:
												{	/* Llib/date.scm 1121 */
													long BgL_newzd2matchzd2_10740;

													{	/* Llib/date.scm 1121 */
														obj_t BgL_tmpz00_11379;

														BgL_tmpz00_11379 = ((obj_t) BgL_iportz00_10736);
														RGC_STOP_MATCH(BgL_tmpz00_11379,
															BgL_forwardz00_10738);
													}
													BgL_newzd2matchzd2_10740 = 5L;
													if ((BgL_forwardz00_10738 == BgL_bufposz00_10739))
														{	/* Llib/date.scm 1121 */
															if (rgc_fill_buffer(((obj_t) BgL_iportz00_10736)))
																{	/* Llib/date.scm 1121 */
																	long BgL_arg2345z00_10741;
																	long BgL_arg2346z00_10742;

																	{	/* Llib/date.scm 1121 */
																		obj_t BgL_tmpz00_11387;

																		BgL_tmpz00_11387 =
																			((obj_t) BgL_iportz00_10736);
																		BgL_arg2345z00_10741 =
																			RGC_BUFFER_FORWARD(BgL_tmpz00_11387);
																	}
																	{	/* Llib/date.scm 1121 */
																		obj_t BgL_tmpz00_11390;

																		BgL_tmpz00_11390 =
																			((obj_t) BgL_iportz00_10736);
																		BgL_arg2346z00_10742 =
																			RGC_BUFFER_BUFPOS(BgL_tmpz00_11390);
																	}
																	{
																		long BgL_bufposz00_11394;
																		long BgL_forwardz00_11393;

																		BgL_forwardz00_11393 = BgL_arg2345z00_10741;
																		BgL_bufposz00_11394 = BgL_arg2346z00_10742;
																		BgL_bufposz00_10739 = BgL_bufposz00_11394;
																		BgL_forwardz00_10738 = BgL_forwardz00_11393;
																		goto BgL_statezd25zd21213z00_10608;
																	}
																}
															else
																{	/* Llib/date.scm 1121 */
																	BgL_matchz00_10610 = BgL_newzd2matchzd2_10740;
																}
														}
													else
														{	/* Llib/date.scm 1121 */
															int BgL_curz00_10743;

															{	/* Llib/date.scm 1121 */
																obj_t BgL_tmpz00_11395;

																BgL_tmpz00_11395 = ((obj_t) BgL_iportz00_10736);
																BgL_curz00_10743 =
																	RGC_BUFFER_GET_CHAR(BgL_tmpz00_11395,
																	BgL_forwardz00_10738);
															}
															{	/* Llib/date.scm 1121 */

																{	/* Llib/date.scm 1121 */
																	bool_t BgL_test5265z00_11398;

																	{	/* Llib/date.scm 1121 */
																		bool_t BgL_test5266z00_11399;

																		if (((long) (BgL_curz00_10743) >= 65L))
																			{	/* Llib/date.scm 1121 */
																				BgL_test5266z00_11399 =
																					((long) (BgL_curz00_10743) < 91L);
																			}
																		else
																			{	/* Llib/date.scm 1121 */
																				BgL_test5266z00_11399 = ((bool_t) 0);
																			}
																		if (BgL_test5266z00_11399)
																			{	/* Llib/date.scm 1121 */
																				BgL_test5265z00_11398 = ((bool_t) 1);
																			}
																		else
																			{	/* Llib/date.scm 1121 */
																				if (((long) (BgL_curz00_10743) >= 97L))
																					{	/* Llib/date.scm 1121 */
																						BgL_test5265z00_11398 =
																							(
																							(long) (BgL_curz00_10743) < 123L);
																					}
																				else
																					{	/* Llib/date.scm 1121 */
																						BgL_test5265z00_11398 =
																							((bool_t) 0);
																					}
																			}
																	}
																	if (BgL_test5265z00_11398)
																		{	/* Llib/date.scm 1121 */
																			BgL_iportz00_10720 = BgL_iportz00_10736;
																			BgL_lastzd2matchzd2_10721 =
																				BgL_newzd2matchzd2_10740;
																			BgL_forwardz00_10722 =
																				(1L + BgL_forwardz00_10738);
																			BgL_bufposz00_10723 = BgL_bufposz00_10739;
																		BgL_statezd26zd21214z00_10606:
																			{	/* Llib/date.scm 1121 */
																				long BgL_newzd2matchzd2_10724;

																				{	/* Llib/date.scm 1121 */
																					obj_t BgL_tmpz00_11410;

																					BgL_tmpz00_11410 =
																						((obj_t) BgL_iportz00_10720);
																					RGC_STOP_MATCH(BgL_tmpz00_11410,
																						BgL_forwardz00_10722);
																				}
																				BgL_newzd2matchzd2_10724 = 4L;
																				if (
																					(BgL_forwardz00_10722 ==
																						BgL_bufposz00_10723))
																					{	/* Llib/date.scm 1121 */
																						if (rgc_fill_buffer(
																								((obj_t) BgL_iportz00_10720)))
																							{	/* Llib/date.scm 1121 */
																								long BgL_arg2363z00_10725;
																								long BgL_arg2364z00_10726;

																								{	/* Llib/date.scm 1121 */
																									obj_t BgL_tmpz00_11418;

																									BgL_tmpz00_11418 =
																										((obj_t)
																										BgL_iportz00_10720);
																									BgL_arg2363z00_10725 =
																										RGC_BUFFER_FORWARD
																										(BgL_tmpz00_11418);
																								}
																								{	/* Llib/date.scm 1121 */
																									obj_t BgL_tmpz00_11421;

																									BgL_tmpz00_11421 =
																										((obj_t)
																										BgL_iportz00_10720);
																									BgL_arg2364z00_10726 =
																										RGC_BUFFER_BUFPOS
																										(BgL_tmpz00_11421);
																								}
																								{
																									long BgL_bufposz00_11425;
																									long BgL_forwardz00_11424;

																									BgL_forwardz00_11424 =
																										BgL_arg2363z00_10725;
																									BgL_bufposz00_11425 =
																										BgL_arg2364z00_10726;
																									BgL_bufposz00_10723 =
																										BgL_bufposz00_11425;
																									BgL_forwardz00_10722 =
																										BgL_forwardz00_11424;
																									goto
																										BgL_statezd26zd21214z00_10606;
																								}
																							}
																						else
																							{	/* Llib/date.scm 1121 */
																								BgL_matchz00_10610 =
																									BgL_newzd2matchzd2_10724;
																							}
																					}
																				else
																					{	/* Llib/date.scm 1121 */
																						int BgL_curz00_10727;

																						{	/* Llib/date.scm 1121 */
																							obj_t BgL_tmpz00_11426;

																							BgL_tmpz00_11426 =
																								((obj_t) BgL_iportz00_10720);
																							BgL_curz00_10727 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_tmpz00_11426,
																								BgL_forwardz00_10722);
																						}
																						{	/* Llib/date.scm 1121 */

																							{	/* Llib/date.scm 1121 */
																								bool_t BgL_test5271z00_11429;

																								{	/* Llib/date.scm 1121 */
																									bool_t BgL_test5272z00_11430;

																									if (
																										((long) (BgL_curz00_10727)
																											>= 65L))
																										{	/* Llib/date.scm 1121 */
																											BgL_test5272z00_11430 =
																												(
																												(long)
																												(BgL_curz00_10727) <
																												91L);
																										}
																									else
																										{	/* Llib/date.scm 1121 */
																											BgL_test5272z00_11430 =
																												((bool_t) 0);
																										}
																									if (BgL_test5272z00_11430)
																										{	/* Llib/date.scm 1121 */
																											BgL_test5271z00_11429 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Llib/date.scm 1121 */
																											if (
																												((long)
																													(BgL_curz00_10727) >=
																													97L))
																												{	/* Llib/date.scm 1121 */
																													BgL_test5271z00_11429
																														=
																														((long)
																														(BgL_curz00_10727) <
																														123L);
																												}
																											else
																												{	/* Llib/date.scm 1121 */
																													BgL_test5271z00_11429
																														= ((bool_t) 0);
																												}
																										}
																								}
																								if (BgL_test5271z00_11429)
																									{
																										long BgL_forwardz00_11442;
																										long
																											BgL_lastzd2matchzd2_11441;
																										BgL_lastzd2matchzd2_11441 =
																											BgL_newzd2matchzd2_10724;
																										BgL_forwardz00_11442 =
																											(1L +
																											BgL_forwardz00_10722);
																										BgL_forwardz00_10722 =
																											BgL_forwardz00_11442;
																										BgL_lastzd2matchzd2_10721 =
																											BgL_lastzd2matchzd2_11441;
																										goto
																											BgL_statezd26zd21214z00_10606;
																									}
																								else
																									{	/* Llib/date.scm 1121 */
																										BgL_matchz00_10610 =
																											BgL_newzd2matchzd2_10724;
																									}
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Llib/date.scm 1121 */
																			BgL_matchz00_10610 =
																				BgL_newzd2matchzd2_10740;
																		}
																}
															}
														}
												}
											}
										else
											{	/* Llib/date.scm 1121 */
												if (((long) (BgL_curz00_10709) == 45L))
													{	/* Llib/date.scm 1121 */
														BgL_iportz00_10688 = BgL_iportz00_10703;
														BgL_lastzd2matchzd2_10689 =
															BgL_lastzd2matchzd2_10704;
														BgL_forwardz00_10690 = (1L + BgL_forwardz00_10705);
														BgL_bufposz00_10691 = BgL_bufposz00_10706;
													BgL_statezd24zd21212z00_10602:
														{	/* Llib/date.scm 1121 */
															long BgL_newzd2matchzd2_10692;

															{	/* Llib/date.scm 1121 */
																obj_t BgL_tmpz00_11449;

																BgL_tmpz00_11449 = ((obj_t) BgL_iportz00_10688);
																RGC_STOP_MATCH(BgL_tmpz00_11449,
																	BgL_forwardz00_10690);
															}
															BgL_newzd2matchzd2_10692 = 5L;
															if ((BgL_forwardz00_10690 == BgL_bufposz00_10691))
																{	/* Llib/date.scm 1121 */
																	if (rgc_fill_buffer(
																			((obj_t) BgL_iportz00_10688)))
																		{	/* Llib/date.scm 1121 */
																			long BgL_arg2413z00_10693;
																			long BgL_arg2414z00_10694;

																			{	/* Llib/date.scm 1121 */
																				obj_t BgL_tmpz00_11457;

																				BgL_tmpz00_11457 =
																					((obj_t) BgL_iportz00_10688);
																				BgL_arg2413z00_10693 =
																					RGC_BUFFER_FORWARD(BgL_tmpz00_11457);
																			}
																			{	/* Llib/date.scm 1121 */
																				obj_t BgL_tmpz00_11460;

																				BgL_tmpz00_11460 =
																					((obj_t) BgL_iportz00_10688);
																				BgL_arg2414z00_10694 =
																					RGC_BUFFER_BUFPOS(BgL_tmpz00_11460);
																			}
																			{
																				long BgL_bufposz00_11464;
																				long BgL_forwardz00_11463;

																				BgL_forwardz00_11463 =
																					BgL_arg2413z00_10693;
																				BgL_bufposz00_11464 =
																					BgL_arg2414z00_10694;
																				BgL_bufposz00_10691 =
																					BgL_bufposz00_11464;
																				BgL_forwardz00_10690 =
																					BgL_forwardz00_11463;
																				goto BgL_statezd24zd21212z00_10602;
																			}
																		}
																	else
																		{	/* Llib/date.scm 1121 */
																			BgL_matchz00_10610 =
																				BgL_newzd2matchzd2_10692;
																		}
																}
															else
																{	/* Llib/date.scm 1121 */
																	int BgL_curz00_10695;

																	{	/* Llib/date.scm 1121 */
																		obj_t BgL_tmpz00_11465;

																		BgL_tmpz00_11465 =
																			((obj_t) BgL_iportz00_10688);
																		BgL_curz00_10695 =
																			RGC_BUFFER_GET_CHAR(BgL_tmpz00_11465,
																			BgL_forwardz00_10690);
																	}
																	{	/* Llib/date.scm 1121 */

																		{	/* Llib/date.scm 1121 */
																			bool_t BgL_test5278z00_11468;

																			if (((long) (BgL_curz00_10695) >= 48L))
																				{	/* Llib/date.scm 1121 */
																					BgL_test5278z00_11468 =
																						((long) (BgL_curz00_10695) < 58L);
																				}
																			else
																				{	/* Llib/date.scm 1121 */
																					BgL_test5278z00_11468 = ((bool_t) 0);
																				}
																			if (BgL_test5278z00_11468)
																				{	/* Llib/date.scm 1121 */
																					BgL_iportz00_10681 =
																						BgL_iportz00_10688;
																					BgL_lastzd2matchzd2_10682 =
																						BgL_newzd2matchzd2_10692;
																					BgL_forwardz00_10683 =
																						(1L + BgL_forwardz00_10690);
																					BgL_bufposz00_10684 =
																						BgL_bufposz00_10691;
																				BgL_statezd29zd21217z00_10601:
																					if (
																						(BgL_forwardz00_10683 ==
																							BgL_bufposz00_10684))
																						{	/* Llib/date.scm 1121 */
																							if (rgc_fill_buffer(
																									((obj_t) BgL_iportz00_10681)))
																								{	/* Llib/date.scm 1121 */
																									long BgL_arg2424z00_10685;
																									long BgL_arg2427z00_10686;

																									{	/* Llib/date.scm 1121 */
																										obj_t BgL_tmpz00_11479;

																										BgL_tmpz00_11479 =
																											((obj_t)
																											BgL_iportz00_10681);
																										BgL_arg2424z00_10685 =
																											RGC_BUFFER_FORWARD
																											(BgL_tmpz00_11479);
																									}
																									{	/* Llib/date.scm 1121 */
																										obj_t BgL_tmpz00_11482;

																										BgL_tmpz00_11482 =
																											((obj_t)
																											BgL_iportz00_10681);
																										BgL_arg2427z00_10686 =
																											RGC_BUFFER_BUFPOS
																											(BgL_tmpz00_11482);
																									}
																									{
																										long BgL_bufposz00_11486;
																										long BgL_forwardz00_11485;

																										BgL_forwardz00_11485 =
																											BgL_arg2424z00_10685;
																										BgL_bufposz00_11486 =
																											BgL_arg2427z00_10686;
																										BgL_bufposz00_10684 =
																											BgL_bufposz00_11486;
																										BgL_forwardz00_10683 =
																											BgL_forwardz00_11485;
																										goto
																											BgL_statezd29zd21217z00_10601;
																									}
																								}
																							else
																								{	/* Llib/date.scm 1121 */
																									BgL_matchz00_10610 =
																										BgL_lastzd2matchzd2_10682;
																								}
																						}
																					else
																						{	/* Llib/date.scm 1121 */
																							int BgL_curz00_10687;

																							{	/* Llib/date.scm 1121 */
																								obj_t BgL_tmpz00_11487;

																								BgL_tmpz00_11487 =
																									((obj_t) BgL_iportz00_10681);
																								BgL_curz00_10687 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_tmpz00_11487,
																									BgL_forwardz00_10683);
																							}
																							{	/* Llib/date.scm 1121 */

																								{	/* Llib/date.scm 1121 */
																									bool_t BgL_test5282z00_11490;

																									if (
																										((long) (BgL_curz00_10687)
																											>= 48L))
																										{	/* Llib/date.scm 1121 */
																											BgL_test5282z00_11490 =
																												(
																												(long)
																												(BgL_curz00_10687) <
																												58L);
																										}
																									else
																										{	/* Llib/date.scm 1121 */
																											BgL_test5282z00_11490 =
																												((bool_t) 0);
																										}
																									if (BgL_test5282z00_11490)
																										{	/* Llib/date.scm 1121 */
																											BgL_iportz00_10674 =
																												BgL_iportz00_10681;
																											BgL_lastzd2matchzd2_10675
																												=
																												BgL_lastzd2matchzd2_10682;
																											BgL_forwardz00_10676 =
																												(1L +
																												BgL_forwardz00_10683);
																											BgL_bufposz00_10677 =
																												BgL_bufposz00_10684;
																										BgL_statezd210zd21218z00_10600:
																											if (
																												(BgL_forwardz00_10676 ==
																													BgL_bufposz00_10677))
																												{	/* Llib/date.scm 1121 */
																													if (rgc_fill_buffer(
																															((obj_t)
																																BgL_iportz00_10674)))
																														{	/* Llib/date.scm 1121 */
																															long
																																BgL_arg2436z00_10678;
																															long
																																BgL_arg2437z00_10679;
																															{	/* Llib/date.scm 1121 */
																																obj_t
																																	BgL_tmpz00_11501;
																																BgL_tmpz00_11501
																																	=
																																	((obj_t)
																																	BgL_iportz00_10674);
																																BgL_arg2436z00_10678
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_tmpz00_11501);
																															}
																															{	/* Llib/date.scm 1121 */
																																obj_t
																																	BgL_tmpz00_11504;
																																BgL_tmpz00_11504
																																	=
																																	((obj_t)
																																	BgL_iportz00_10674);
																																BgL_arg2437z00_10679
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_tmpz00_11504);
																															}
																															{
																																long
																																	BgL_bufposz00_11508;
																																long
																																	BgL_forwardz00_11507;
																																BgL_forwardz00_11507
																																	=
																																	BgL_arg2436z00_10678;
																																BgL_bufposz00_11508
																																	=
																																	BgL_arg2437z00_10679;
																																BgL_bufposz00_10677
																																	=
																																	BgL_bufposz00_11508;
																																BgL_forwardz00_10676
																																	=
																																	BgL_forwardz00_11507;
																																goto
																																	BgL_statezd210zd21218z00_10600;
																															}
																														}
																													else
																														{	/* Llib/date.scm 1121 */
																															BgL_matchz00_10610
																																=
																																BgL_lastzd2matchzd2_10675;
																														}
																												}
																											else
																												{	/* Llib/date.scm 1121 */
																													int BgL_curz00_10680;

																													{	/* Llib/date.scm 1121 */
																														obj_t
																															BgL_tmpz00_11509;
																														BgL_tmpz00_11509 =
																															((obj_t)
																															BgL_iportz00_10674);
																														BgL_curz00_10680 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_tmpz00_11509,
																															BgL_forwardz00_10676);
																													}
																													{	/* Llib/date.scm 1121 */

																														{	/* Llib/date.scm 1121 */
																															bool_t
																																BgL_test5286z00_11512;
																															if (((long)
																																	(BgL_curz00_10680)
																																	>= 48L))
																																{	/* Llib/date.scm 1121 */
																																	BgL_test5286z00_11512
																																		=
																																		((long)
																																		(BgL_curz00_10680)
																																		< 58L);
																																}
																															else
																																{	/* Llib/date.scm 1121 */
																																	BgL_test5286z00_11512
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test5286z00_11512)
																																{	/* Llib/date.scm 1121 */
																																	BgL_iportz00_10664
																																		=
																																		BgL_iportz00_10674;
																																	BgL_lastzd2matchzd2_10665
																																		=
																																		BgL_lastzd2matchzd2_10675;
																																	BgL_forwardz00_10666
																																		=
																																		(1L +
																																		BgL_forwardz00_10676);
																																	BgL_bufposz00_10667
																																		=
																																		BgL_bufposz00_10677;
																																BgL_statezd211zd21219z00_10599:
																																	{	/* Llib/date.scm 1121 */
																																		long
																																			BgL_newzd2matchzd2_10668;
																																		{	/* Llib/date.scm 1121 */
																																			obj_t
																																				BgL_tmpz00_11518;
																																			BgL_tmpz00_11518
																																				=
																																				((obj_t)
																																				BgL_iportz00_10664);
																																			RGC_STOP_MATCH
																																				(BgL_tmpz00_11518,
																																				BgL_forwardz00_10666);
																																		}
																																		BgL_newzd2matchzd2_10668
																																			= 2L;
																																		if (
																																			(BgL_forwardz00_10666
																																				==
																																				BgL_bufposz00_10667))
																																			{	/* Llib/date.scm 1121 */
																																				if (rgc_fill_buffer(((obj_t) BgL_iportz00_10664)))
																																					{	/* Llib/date.scm 1121 */
																																						long
																																							BgL_arg2445z00_10669;
																																						long
																																							BgL_arg2446z00_10670;
																																						{	/* Llib/date.scm 1121 */
																																							obj_t
																																								BgL_tmpz00_11526;
																																							BgL_tmpz00_11526
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_10664);
																																							BgL_arg2445z00_10669
																																								=
																																								RGC_BUFFER_FORWARD
																																								(BgL_tmpz00_11526);
																																						}
																																						{	/* Llib/date.scm 1121 */
																																							obj_t
																																								BgL_tmpz00_11529;
																																							BgL_tmpz00_11529
																																								=
																																								(
																																								(obj_t)
																																								BgL_iportz00_10664);
																																							BgL_arg2446z00_10670
																																								=
																																								RGC_BUFFER_BUFPOS
																																								(BgL_tmpz00_11529);
																																						}
																																						{
																																							long
																																								BgL_bufposz00_11533;
																																							long
																																								BgL_forwardz00_11532;
																																							BgL_forwardz00_11532
																																								=
																																								BgL_arg2445z00_10669;
																																							BgL_bufposz00_11533
																																								=
																																								BgL_arg2446z00_10670;
																																							BgL_bufposz00_10667
																																								=
																																								BgL_bufposz00_11533;
																																							BgL_forwardz00_10666
																																								=
																																								BgL_forwardz00_11532;
																																							goto
																																								BgL_statezd211zd21219z00_10599;
																																						}
																																					}
																																				else
																																					{	/* Llib/date.scm 1121 */
																																						BgL_matchz00_10610
																																							=
																																							BgL_newzd2matchzd2_10668;
																																					}
																																			}
																																		else
																																			{	/* Llib/date.scm 1121 */
																																				int
																																					BgL_curz00_10671;
																																				{	/* Llib/date.scm 1121 */
																																					obj_t
																																						BgL_tmpz00_11534;
																																					BgL_tmpz00_11534
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_10664);
																																					BgL_curz00_10671
																																						=
																																						RGC_BUFFER_GET_CHAR
																																						(BgL_tmpz00_11534,
																																						BgL_forwardz00_10666);
																																				}
																																				{	/* Llib/date.scm 1121 */

																																					{	/* Llib/date.scm 1121 */
																																						bool_t
																																							BgL_test5290z00_11537;
																																						if (
																																							((long) (BgL_curz00_10671) >= 48L))
																																							{	/* Llib/date.scm 1121 */
																																								BgL_test5290z00_11537
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_10671)
																																									<
																																									58L);
																																							}
																																						else
																																							{	/* Llib/date.scm 1121 */
																																								BgL_test5290z00_11537
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test5290z00_11537)
																																							{	/* Llib/date.scm 1121 */
																																								long
																																									BgL_arg2451z00_10672;
																																								BgL_arg2451z00_10672
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_10666);
																																								{	/* Llib/date.scm 1121 */
																																									long
																																										BgL_newzd2matchzd2_10673;
																																									{	/* Llib/date.scm 1121 */
																																										obj_t
																																											BgL_tmpz00_11544;
																																										BgL_tmpz00_11544
																																											=
																																											(
																																											(obj_t)
																																											BgL_iportz00_10664);
																																										RGC_STOP_MATCH
																																											(BgL_tmpz00_11544,
																																											BgL_arg2451z00_10672);
																																									}
																																									BgL_newzd2matchzd2_10673
																																										=
																																										1L;
																																									BgL_matchz00_10610
																																										=
																																										BgL_newzd2matchzd2_10673;
																																							}}
																																						else
																																							{	/* Llib/date.scm 1121 */
																																								BgL_matchz00_10610
																																									=
																																									BgL_newzd2matchzd2_10668;
																																							}
																																					}
																																				}
																																			}
																																	}
																																}
																															else
																																{	/* Llib/date.scm 1121 */
																																	BgL_matchz00_10610
																																		=
																																		BgL_lastzd2matchzd2_10675;
																																}
																														}
																													}
																												}
																										}
																									else
																										{	/* Llib/date.scm 1121 */
																											BgL_matchz00_10610 =
																												BgL_lastzd2matchzd2_10682;
																										}
																								}
																							}
																						}
																				}
																			else
																				{	/* Llib/date.scm 1121 */
																					if (
																						((long) (BgL_curz00_10695) == 45L))
																						{	/* Llib/date.scm 1121 */
																							BgL_iportz00_10744 =
																								BgL_iportz00_10688;
																							BgL_lastzd2matchzd2_10745 =
																								BgL_newzd2matchzd2_10692;
																							BgL_forwardz00_10746 =
																								(1L + BgL_forwardz00_10690);
																							BgL_bufposz00_10747 =
																								BgL_bufposz00_10691;
																						BgL_statezd28zd21216z00_10609:
																							if (
																								(BgL_forwardz00_10746 ==
																									BgL_bufposz00_10747))
																								{	/* Llib/date.scm 1121 */
																									if (rgc_fill_buffer(
																											((obj_t)
																												BgL_iportz00_10744)))
																										{	/* Llib/date.scm 1121 */
																											long BgL_arg2335z00_10748;
																											long BgL_arg2337z00_10749;

																											{	/* Llib/date.scm 1121 */
																												obj_t BgL_tmpz00_11558;

																												BgL_tmpz00_11558 =
																													((obj_t)
																													BgL_iportz00_10744);
																												BgL_arg2335z00_10748 =
																													RGC_BUFFER_FORWARD
																													(BgL_tmpz00_11558);
																											}
																											{	/* Llib/date.scm 1121 */
																												obj_t BgL_tmpz00_11561;

																												BgL_tmpz00_11561 =
																													((obj_t)
																													BgL_iportz00_10744);
																												BgL_arg2337z00_10749 =
																													RGC_BUFFER_BUFPOS
																													(BgL_tmpz00_11561);
																											}
																											{
																												long
																													BgL_bufposz00_11565;
																												long
																													BgL_forwardz00_11564;
																												BgL_forwardz00_11564 =
																													BgL_arg2335z00_10748;
																												BgL_bufposz00_11565 =
																													BgL_arg2337z00_10749;
																												BgL_bufposz00_10747 =
																													BgL_bufposz00_11565;
																												BgL_forwardz00_10746 =
																													BgL_forwardz00_11564;
																												goto
																													BgL_statezd28zd21216z00_10609;
																											}
																										}
																									else
																										{	/* Llib/date.scm 1121 */
																											BgL_matchz00_10610 =
																												BgL_lastzd2matchzd2_10745;
																										}
																								}
																							else
																								{	/* Llib/date.scm 1121 */
																									int BgL_curz00_10750;

																									{	/* Llib/date.scm 1121 */
																										obj_t BgL_tmpz00_11566;

																										BgL_tmpz00_11566 =
																											((obj_t)
																											BgL_iportz00_10744);
																										BgL_curz00_10750 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_tmpz00_11566,
																											BgL_forwardz00_10746);
																									}
																									{	/* Llib/date.scm 1121 */

																										{	/* Llib/date.scm 1121 */
																											bool_t
																												BgL_test5295z00_11569;
																											if (((long)
																													(BgL_curz00_10750) >=
																													48L))
																												{	/* Llib/date.scm 1121 */
																													BgL_test5295z00_11569
																														=
																														((long)
																														(BgL_curz00_10750) <
																														58L);
																												}
																											else
																												{	/* Llib/date.scm 1121 */
																													BgL_test5295z00_11569
																														= ((bool_t) 0);
																												}
																											if (BgL_test5295z00_11569)
																												{	/* Llib/date.scm 1121 */
																													BgL_iportz00_10696 =
																														BgL_iportz00_10744;
																													BgL_lastzd2matchzd2_10697
																														=
																														BgL_lastzd2matchzd2_10745;
																													BgL_forwardz00_10698 =
																														(1L +
																														BgL_forwardz00_10746);
																													BgL_bufposz00_10699 =
																														BgL_bufposz00_10747;
																												BgL_statezd213zd21221z00_10603:
																													if (
																														(BgL_forwardz00_10698
																															==
																															BgL_bufposz00_10699))
																														{	/* Llib/date.scm 1121 */
																															if (rgc_fill_buffer(((obj_t) BgL_iportz00_10696)))
																																{	/* Llib/date.scm 1121 */
																																	long
																																		BgL_arg2404z00_10700;
																																	long
																																		BgL_arg2405z00_10701;
																																	{	/* Llib/date.scm 1121 */
																																		obj_t
																																			BgL_tmpz00_11580;
																																		BgL_tmpz00_11580
																																			=
																																			((obj_t)
																																			BgL_iportz00_10696);
																																		BgL_arg2404z00_10700
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_tmpz00_11580);
																																	}
																																	{	/* Llib/date.scm 1121 */
																																		obj_t
																																			BgL_tmpz00_11583;
																																		BgL_tmpz00_11583
																																			=
																																			((obj_t)
																																			BgL_iportz00_10696);
																																		BgL_arg2405z00_10701
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_tmpz00_11583);
																																	}
																																	{
																																		long
																																			BgL_bufposz00_11587;
																																		long
																																			BgL_forwardz00_11586;
																																		BgL_forwardz00_11586
																																			=
																																			BgL_arg2404z00_10700;
																																		BgL_bufposz00_11587
																																			=
																																			BgL_arg2405z00_10701;
																																		BgL_bufposz00_10699
																																			=
																																			BgL_bufposz00_11587;
																																		BgL_forwardz00_10698
																																			=
																																			BgL_forwardz00_11586;
																																		goto
																																			BgL_statezd213zd21221z00_10603;
																																	}
																																}
																															else
																																{	/* Llib/date.scm 1121 */
																																	BgL_matchz00_10610
																																		=
																																		BgL_lastzd2matchzd2_10697;
																																}
																														}
																													else
																														{	/* Llib/date.scm 1121 */
																															int
																																BgL_curz00_10702;
																															{	/* Llib/date.scm 1121 */
																																obj_t
																																	BgL_tmpz00_11588;
																																BgL_tmpz00_11588
																																	=
																																	((obj_t)
																																	BgL_iportz00_10696);
																																BgL_curz00_10702
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_tmpz00_11588,
																																	BgL_forwardz00_10698);
																															}
																															{	/* Llib/date.scm 1121 */

																																{	/* Llib/date.scm 1121 */
																																	bool_t
																																		BgL_test5299z00_11591;
																																	if (((long)
																																			(BgL_curz00_10702)
																																			>= 48L))
																																		{	/* Llib/date.scm 1121 */
																																			BgL_test5299z00_11591
																																				=
																																				((long)
																																				(BgL_curz00_10702)
																																				< 58L);
																																		}
																																	else
																																		{	/* Llib/date.scm 1121 */
																																			BgL_test5299z00_11591
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																	if (BgL_test5299z00_11591)
																																		{	/* Llib/date.scm 1121 */
																																			BgL_iportz00_10655
																																				=
																																				BgL_iportz00_10696;
																																			BgL_lastzd2matchzd2_10656
																																				=
																																				BgL_lastzd2matchzd2_10697;
																																			BgL_forwardz00_10657
																																				=
																																				(1L +
																																				BgL_forwardz00_10698);
																																			BgL_bufposz00_10658
																																				=
																																				BgL_bufposz00_10699;
																																		BgL_statezd214zd21222z00_10598:
																																			if (
																																				(BgL_forwardz00_10657
																																					==
																																					BgL_bufposz00_10658))
																																				{	/* Llib/date.scm 1121 */
																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_10655)))
																																						{	/* Llib/date.scm 1121 */
																																							long
																																								BgL_arg2455z00_10659;
																																							long
																																								BgL_arg2456z00_10660;
																																							{	/* Llib/date.scm 1121 */
																																								obj_t
																																									BgL_tmpz00_11602;
																																								BgL_tmpz00_11602
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_10655);
																																								BgL_arg2455z00_10659
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_tmpz00_11602);
																																							}
																																							{	/* Llib/date.scm 1121 */
																																								obj_t
																																									BgL_tmpz00_11605;
																																								BgL_tmpz00_11605
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_10655);
																																								BgL_arg2456z00_10660
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_tmpz00_11605);
																																							}
																																							{
																																								long
																																									BgL_bufposz00_11609;
																																								long
																																									BgL_forwardz00_11608;
																																								BgL_forwardz00_11608
																																									=
																																									BgL_arg2455z00_10659;
																																								BgL_bufposz00_11609
																																									=
																																									BgL_arg2456z00_10660;
																																								BgL_bufposz00_10658
																																									=
																																									BgL_bufposz00_11609;
																																								BgL_forwardz00_10657
																																									=
																																									BgL_forwardz00_11608;
																																								goto
																																									BgL_statezd214zd21222z00_10598;
																																							}
																																						}
																																					else
																																						{	/* Llib/date.scm 1121 */
																																							BgL_matchz00_10610
																																								=
																																								BgL_lastzd2matchzd2_10656;
																																						}
																																				}
																																			else
																																				{	/* Llib/date.scm 1121 */
																																					int
																																						BgL_curz00_10661;
																																					{	/* Llib/date.scm 1121 */
																																						obj_t
																																							BgL_tmpz00_11610;
																																						BgL_tmpz00_11610
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_10655);
																																						BgL_curz00_10661
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_tmpz00_11610,
																																							BgL_forwardz00_10657);
																																					}
																																					{	/* Llib/date.scm 1121 */

																																						{	/* Llib/date.scm 1121 */
																																							bool_t
																																								BgL_test5303z00_11613;
																																							if (((long) (BgL_curz00_10661) >= 48L))
																																								{	/* Llib/date.scm 1121 */
																																									BgL_test5303z00_11613
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_10661)
																																										<
																																										58L);
																																								}
																																							else
																																								{	/* Llib/date.scm 1121 */
																																									BgL_test5303z00_11613
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							if (BgL_test5303z00_11613)
																																								{	/* Llib/date.scm 1121 */
																																									long
																																										BgL_arg2459z00_10662;
																																									BgL_arg2459z00_10662
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_10657);
																																									{	/* Llib/date.scm 1121 */
																																										long
																																											BgL_newzd2matchzd2_10663;
																																										{	/* Llib/date.scm 1121 */
																																											obj_t
																																												BgL_tmpz00_11620;
																																											BgL_tmpz00_11620
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_10655);
																																											RGC_STOP_MATCH
																																												(BgL_tmpz00_11620,
																																												BgL_arg2459z00_10662);
																																										}
																																										BgL_newzd2matchzd2_10663
																																											=
																																											3L;
																																										BgL_matchz00_10610
																																											=
																																											BgL_newzd2matchzd2_10663;
																																								}}
																																							else
																																								{	/* Llib/date.scm 1121 */
																																									BgL_matchz00_10610
																																										=
																																										BgL_lastzd2matchzd2_10656;
																																								}
																																						}
																																					}
																																				}
																																		}
																																	else
																																		{	/* Llib/date.scm 1121 */
																																			BgL_matchz00_10610
																																				=
																																				BgL_lastzd2matchzd2_10697;
																																		}
																																}
																															}
																														}
																												}
																											else
																												{	/* Llib/date.scm 1121 */
																													BgL_matchz00_10610 =
																														BgL_lastzd2matchzd2_10745;
																												}
																										}
																									}
																								}
																						}
																					else
																						{	/* Llib/date.scm 1121 */
																							BgL_matchz00_10610 =
																								BgL_newzd2matchzd2_10692;
																						}
																				}
																		}
																	}
																}
														}
													}
												else
													{	/* Llib/date.scm 1121 */
														if (((long) (BgL_curz00_10709) == 43L))
															{	/* Llib/date.scm 1121 */
																BgL_iportz00_10728 = BgL_iportz00_10703;
																BgL_lastzd2matchzd2_10729 =
																	BgL_lastzd2matchzd2_10704;
																BgL_forwardz00_10730 =
																	(1L + BgL_forwardz00_10705);
																BgL_bufposz00_10731 = BgL_bufposz00_10706;
															BgL_statezd23zd21211z00_10607:
																{	/* Llib/date.scm 1121 */
																	long BgL_newzd2matchzd2_10732;

																	{	/* Llib/date.scm 1121 */
																		obj_t BgL_tmpz00_11630;

																		BgL_tmpz00_11630 =
																			((obj_t) BgL_iportz00_10728);
																		RGC_STOP_MATCH(BgL_tmpz00_11630,
																			BgL_forwardz00_10730);
																	}
																	BgL_newzd2matchzd2_10732 = 5L;
																	if (
																		(BgL_forwardz00_10730 ==
																			BgL_bufposz00_10731))
																		{	/* Llib/date.scm 1121 */
																			if (rgc_fill_buffer(
																					((obj_t) BgL_iportz00_10728)))
																				{	/* Llib/date.scm 1121 */
																					long BgL_arg2354z00_10733;
																					long BgL_arg2356z00_10734;

																					{	/* Llib/date.scm 1121 */
																						obj_t BgL_tmpz00_11638;

																						BgL_tmpz00_11638 =
																							((obj_t) BgL_iportz00_10728);
																						BgL_arg2354z00_10733 =
																							RGC_BUFFER_FORWARD
																							(BgL_tmpz00_11638);
																					}
																					{	/* Llib/date.scm 1121 */
																						obj_t BgL_tmpz00_11641;

																						BgL_tmpz00_11641 =
																							((obj_t) BgL_iportz00_10728);
																						BgL_arg2356z00_10734 =
																							RGC_BUFFER_BUFPOS
																							(BgL_tmpz00_11641);
																					}
																					{
																						long BgL_bufposz00_11645;
																						long BgL_forwardz00_11644;

																						BgL_forwardz00_11644 =
																							BgL_arg2354z00_10733;
																						BgL_bufposz00_11645 =
																							BgL_arg2356z00_10734;
																						BgL_bufposz00_10731 =
																							BgL_bufposz00_11645;
																						BgL_forwardz00_10730 =
																							BgL_forwardz00_11644;
																						goto BgL_statezd23zd21211z00_10607;
																					}
																				}
																			else
																				{	/* Llib/date.scm 1121 */
																					BgL_matchz00_10610 =
																						BgL_newzd2matchzd2_10732;
																				}
																		}
																	else
																		{	/* Llib/date.scm 1121 */
																			int BgL_curz00_10735;

																			{	/* Llib/date.scm 1121 */
																				obj_t BgL_tmpz00_11646;

																				BgL_tmpz00_11646 =
																					((obj_t) BgL_iportz00_10728);
																				BgL_curz00_10735 =
																					RGC_BUFFER_GET_CHAR(BgL_tmpz00_11646,
																					BgL_forwardz00_10730);
																			}
																			{	/* Llib/date.scm 1121 */

																				{	/* Llib/date.scm 1121 */
																					bool_t BgL_test5308z00_11649;

																					if (
																						((long) (BgL_curz00_10735) >= 48L))
																						{	/* Llib/date.scm 1121 */
																							BgL_test5308z00_11649 =
																								(
																								(long) (BgL_curz00_10735) <
																								58L);
																						}
																					else
																						{	/* Llib/date.scm 1121 */
																							BgL_test5308z00_11649 =
																								((bool_t) 0);
																						}
																					if (BgL_test5308z00_11649)
																						{
																							long BgL_bufposz00_11659;
																							long BgL_forwardz00_11657;
																							long BgL_lastzd2matchzd2_11656;
																							obj_t BgL_iportz00_11655;

																							BgL_iportz00_11655 =
																								BgL_iportz00_10728;
																							BgL_lastzd2matchzd2_11656 =
																								BgL_newzd2matchzd2_10732;
																							BgL_forwardz00_11657 =
																								(1L + BgL_forwardz00_10730);
																							BgL_bufposz00_11659 =
																								BgL_bufposz00_10731;
																							BgL_bufposz00_10684 =
																								BgL_bufposz00_11659;
																							BgL_forwardz00_10683 =
																								BgL_forwardz00_11657;
																							BgL_lastzd2matchzd2_10682 =
																								BgL_lastzd2matchzd2_11656;
																							BgL_iportz00_10681 =
																								BgL_iportz00_11655;
																							goto
																								BgL_statezd29zd21217z00_10601;
																						}
																					else
																						{	/* Llib/date.scm 1121 */
																							BgL_matchz00_10610 =
																								BgL_newzd2matchzd2_10732;
																						}
																				}
																			}
																		}
																}
															}
														else
															{	/* Llib/date.scm 1121 */
																bool_t BgL_test5310z00_11661;

																{	/* Llib/date.scm 1121 */
																	bool_t BgL_test5311z00_11662;

																	if (((long) (BgL_curz00_10709) == 10L))
																		{	/* Llib/date.scm 1121 */
																			BgL_test5311z00_11662 = ((bool_t) 1);
																		}
																	else
																		{	/* Llib/date.scm 1121 */
																			BgL_test5311z00_11662 =
																				((long) (BgL_curz00_10709) == 9L);
																		}
																	if (BgL_test5311z00_11662)
																		{	/* Llib/date.scm 1121 */
																			BgL_test5310z00_11661 = ((bool_t) 1);
																		}
																	else
																		{	/* Llib/date.scm 1121 */
																			if (((long) (BgL_curz00_10709) == 13L))
																				{	/* Llib/date.scm 1121 */
																					BgL_test5310z00_11661 = ((bool_t) 1);
																				}
																			else
																				{	/* Llib/date.scm 1121 */
																					BgL_test5310z00_11661 =
																						((long) (BgL_curz00_10709) == 32L);
																}}}
																if (BgL_test5310z00_11661)
																	{	/* Llib/date.scm 1121 */
																		BgL_iportz00_10712 = BgL_iportz00_10703;
																		BgL_lastzd2matchzd2_10713 =
																			BgL_lastzd2matchzd2_10704;
																		BgL_forwardz00_10714 =
																			(1L + BgL_forwardz00_10705);
																		BgL_bufposz00_10715 = BgL_bufposz00_10706;
																	BgL_statezd22zd21210z00_10605:
																		{	/* Llib/date.scm 1121 */
																			long BgL_newzd2matchzd2_10716;

																			{	/* Llib/date.scm 1121 */
																				obj_t BgL_tmpz00_11673;

																				BgL_tmpz00_11673 =
																					((obj_t) BgL_iportz00_10712);
																				RGC_STOP_MATCH(BgL_tmpz00_11673,
																					BgL_forwardz00_10714);
																			}
																			BgL_newzd2matchzd2_10716 = 0L;
																			if (
																				(BgL_forwardz00_10714 ==
																					BgL_bufposz00_10715))
																				{	/* Llib/date.scm 1121 */
																					if (rgc_fill_buffer(
																							((obj_t) BgL_iportz00_10712)))
																						{	/* Llib/date.scm 1121 */
																							long BgL_arg2372z00_10717;
																							long BgL_arg2373z00_10718;

																							{	/* Llib/date.scm 1121 */
																								obj_t BgL_tmpz00_11681;

																								BgL_tmpz00_11681 =
																									((obj_t) BgL_iportz00_10712);
																								BgL_arg2372z00_10717 =
																									RGC_BUFFER_FORWARD
																									(BgL_tmpz00_11681);
																							}
																							{	/* Llib/date.scm 1121 */
																								obj_t BgL_tmpz00_11684;

																								BgL_tmpz00_11684 =
																									((obj_t) BgL_iportz00_10712);
																								BgL_arg2373z00_10718 =
																									RGC_BUFFER_BUFPOS
																									(BgL_tmpz00_11684);
																							}
																							{
																								long BgL_bufposz00_11688;
																								long BgL_forwardz00_11687;

																								BgL_forwardz00_11687 =
																									BgL_arg2372z00_10717;
																								BgL_bufposz00_11688 =
																									BgL_arg2373z00_10718;
																								BgL_bufposz00_10715 =
																									BgL_bufposz00_11688;
																								BgL_forwardz00_10714 =
																									BgL_forwardz00_11687;
																								goto
																									BgL_statezd22zd21210z00_10605;
																							}
																						}
																					else
																						{	/* Llib/date.scm 1121 */
																							BgL_matchz00_10610 =
																								BgL_newzd2matchzd2_10716;
																						}
																				}
																			else
																				{	/* Llib/date.scm 1121 */
																					int BgL_curz00_10719;

																					{	/* Llib/date.scm 1121 */
																						obj_t BgL_tmpz00_11689;

																						BgL_tmpz00_11689 =
																							((obj_t) BgL_iportz00_10712);
																						BgL_curz00_10719 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_tmpz00_11689,
																							BgL_forwardz00_10714);
																					}
																					{	/* Llib/date.scm 1121 */

																						{	/* Llib/date.scm 1121 */
																							bool_t BgL_test5316z00_11692;

																							{	/* Llib/date.scm 1121 */
																								bool_t BgL_test5317z00_11693;

																								if (
																									((long) (BgL_curz00_10719) ==
																										10L))
																									{	/* Llib/date.scm 1121 */
																										BgL_test5317z00_11693 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Llib/date.scm 1121 */
																										BgL_test5317z00_11693 =
																											(
																											(long) (BgL_curz00_10719)
																											== 9L);
																									}
																								if (BgL_test5317z00_11693)
																									{	/* Llib/date.scm 1121 */
																										BgL_test5316z00_11692 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Llib/date.scm 1121 */
																										if (
																											((long) (BgL_curz00_10719)
																												== 13L))
																											{	/* Llib/date.scm 1121 */
																												BgL_test5316z00_11692 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Llib/date.scm 1121 */
																												BgL_test5316z00_11692 =
																													(
																													(long)
																													(BgL_curz00_10719) ==
																													32L);
																							}}}
																							if (BgL_test5316z00_11692)
																								{	/* Llib/date.scm 1121 */
																									BgL_iportz00_10647 =
																										BgL_iportz00_10712;
																									BgL_lastzd2matchzd2_10648 =
																										BgL_newzd2matchzd2_10716;
																									BgL_forwardz00_10649 =
																										(1L + BgL_forwardz00_10714);
																									BgL_bufposz00_10650 =
																										BgL_bufposz00_10715;
																								BgL_statezd216zd21224z00_10597:
																									{	/* Llib/date.scm 1121 */
																										long
																											BgL_newzd2matchzd2_10651;
																										{	/* Llib/date.scm 1121 */
																											obj_t BgL_tmpz00_11704;

																											BgL_tmpz00_11704 =
																												((obj_t)
																												BgL_iportz00_10647);
																											RGC_STOP_MATCH
																												(BgL_tmpz00_11704,
																												BgL_forwardz00_10649);
																										}
																										BgL_newzd2matchzd2_10651 =
																											0L;
																										if ((BgL_forwardz00_10649 ==
																												BgL_bufposz00_10650))
																											{	/* Llib/date.scm 1121 */
																												if (rgc_fill_buffer(
																														((obj_t)
																															BgL_iportz00_10647)))
																													{	/* Llib/date.scm 1121 */
																														long
																															BgL_arg2465z00_10652;
																														long
																															BgL_arg2470z00_10653;
																														{	/* Llib/date.scm 1121 */
																															obj_t
																																BgL_tmpz00_11712;
																															BgL_tmpz00_11712 =
																																((obj_t)
																																BgL_iportz00_10647);
																															BgL_arg2465z00_10652
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_tmpz00_11712);
																														}
																														{	/* Llib/date.scm 1121 */
																															obj_t
																																BgL_tmpz00_11715;
																															BgL_tmpz00_11715 =
																																((obj_t)
																																BgL_iportz00_10647);
																															BgL_arg2470z00_10653
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_tmpz00_11715);
																														}
																														{
																															long
																																BgL_bufposz00_11719;
																															long
																																BgL_forwardz00_11718;
																															BgL_forwardz00_11718
																																=
																																BgL_arg2465z00_10652;
																															BgL_bufposz00_11719
																																=
																																BgL_arg2470z00_10653;
																															BgL_bufposz00_10650
																																=
																																BgL_bufposz00_11719;
																															BgL_forwardz00_10649
																																=
																																BgL_forwardz00_11718;
																															goto
																																BgL_statezd216zd21224z00_10597;
																														}
																													}
																												else
																													{	/* Llib/date.scm 1121 */
																														BgL_matchz00_10610 =
																															BgL_newzd2matchzd2_10651;
																													}
																											}
																										else
																											{	/* Llib/date.scm 1121 */
																												int BgL_curz00_10654;

																												{	/* Llib/date.scm 1121 */
																													obj_t
																														BgL_tmpz00_11720;
																													BgL_tmpz00_11720 =
																														((obj_t)
																														BgL_iportz00_10647);
																													BgL_curz00_10654 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_tmpz00_11720,
																														BgL_forwardz00_10649);
																												}
																												{	/* Llib/date.scm 1121 */

																													{	/* Llib/date.scm 1121 */
																														bool_t
																															BgL_test5322z00_11723;
																														{	/* Llib/date.scm 1121 */
																															bool_t
																																BgL_test5323z00_11724;
																															if (((long)
																																	(BgL_curz00_10654)
																																	== 10L))
																																{	/* Llib/date.scm 1121 */
																																	BgL_test5323z00_11724
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Llib/date.scm 1121 */
																																	BgL_test5323z00_11724
																																		=
																																		((long)
																																		(BgL_curz00_10654)
																																		== 9L);
																																}
																															if (BgL_test5323z00_11724)
																																{	/* Llib/date.scm 1121 */
																																	BgL_test5322z00_11723
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Llib/date.scm 1121 */
																																	if (
																																		((long)
																																			(BgL_curz00_10654)
																																			== 13L))
																																		{	/* Llib/date.scm 1121 */
																																			BgL_test5322z00_11723
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Llib/date.scm 1121 */
																																			BgL_test5322z00_11723
																																				=
																																				((long)
																																				(BgL_curz00_10654)
																																				== 32L);
																														}}}
																														if (BgL_test5322z00_11723)
																															{
																																long
																																	BgL_forwardz00_11736;
																																long
																																	BgL_lastzd2matchzd2_11735;
																																BgL_lastzd2matchzd2_11735
																																	=
																																	BgL_newzd2matchzd2_10651;
																																BgL_forwardz00_11736
																																	=
																																	(1L +
																																	BgL_forwardz00_10649);
																																BgL_forwardz00_10649
																																	=
																																	BgL_forwardz00_11736;
																																BgL_lastzd2matchzd2_10648
																																	=
																																	BgL_lastzd2matchzd2_11735;
																																goto
																																	BgL_statezd216zd21224z00_10597;
																															}
																														else
																															{	/* Llib/date.scm 1121 */
																																BgL_matchz00_10610
																																	=
																																	BgL_newzd2matchzd2_10651;
																															}
																													}
																												}
																											}
																									}
																								}
																							else
																								{	/* Llib/date.scm 1121 */
																									BgL_matchz00_10610 =
																										BgL_newzd2matchzd2_10716;
																								}
																						}
																					}
																				}
																		}
																	}
																else
																	{	/* Llib/date.scm 1121 */
																		long BgL_arg2399z00_10710;

																		BgL_arg2399z00_10710 =
																			(1L + BgL_forwardz00_10705);
																		{	/* Llib/date.scm 1121 */
																			long BgL_newzd2matchzd2_10711;

																			{	/* Llib/date.scm 1121 */
																				obj_t BgL_tmpz00_11741;

																				BgL_tmpz00_11741 =
																					((obj_t) BgL_iportz00_10703);
																				RGC_STOP_MATCH(BgL_tmpz00_11741,
																					BgL_arg2399z00_10710);
																			}
																			BgL_newzd2matchzd2_10711 = 5L;
																			BgL_matchz00_10610 =
																				BgL_newzd2matchzd2_10711;
					}}}}}}}}}
					{	/* Llib/date.scm 1121 */
						obj_t BgL_tmpz00_11744;

						BgL_tmpz00_11744 = ((obj_t) BgL_iportz00_10187);
						RGC_SET_FILEPOS(BgL_tmpz00_11744);
					}
					switch (BgL_matchz00_10610)
						{
						case 5L:

							{	/* Llib/date.scm 1149 */
								obj_t BgL_arg2580z00_10613;

								{	/* Llib/date.scm 1121 */
									bool_t BgL_test5326z00_11747;

									{	/* Llib/date.scm 1121 */
										long BgL_arg2572z00_10646;

										{	/* Llib/date.scm 1121 */
											obj_t BgL_tmpz00_11748;

											BgL_tmpz00_11748 = ((obj_t) BgL_iportz00_10187);
											BgL_arg2572z00_10646 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_11748);
										}
										BgL_test5326z00_11747 = (BgL_arg2572z00_10646 == 0L);
									}
									if (BgL_test5326z00_11747)
										{	/* Llib/date.scm 1121 */
											BgL_arg2580z00_10613 = BEOF;
										}
									else
										{	/* Llib/date.scm 1121 */
											unsigned char BgL_tmpz00_11752;

											{	/* Llib/date.scm 1121 */
												obj_t BgL_tmpz00_11753;

												BgL_tmpz00_11753 = ((obj_t) BgL_iportz00_10187);
												BgL_tmpz00_11752 =
													RGC_BUFFER_CHARACTER(BgL_tmpz00_11753);
											}
											BgL_arg2580z00_10613 = BCHAR(BgL_tmpz00_11752);
								}}
								return
									BGl_parsezd2errorzd2zz__datez00(BGl_string4939z00zz__datez00,
									BGl_string4940z00zz__datez00, BgL_arg2580z00_10613,
									((obj_t) BgL_iportz00_10187));
							}
							break;
						case 4L:

							{	/* Llib/date.scm 1143 */
								obj_t BgL_cz00_10614;

								{	/* Llib/date.scm 1143 */
									obj_t BgL_arg2585z00_10615;

									BgL_arg2585z00_10615 =
										rgc_buffer_symbol(((obj_t) BgL_iportz00_10187));
									BgL_cz00_10614 =
										BGl_assqz00zz__r4_pairs_and_lists_6_3z00
										(BgL_arg2585z00_10615, BGl_list4901z00zz__datez00);
								}
								if (PAIRP(BgL_cz00_10614))
									{	/* Llib/date.scm 1144 */
										return BINT((3600L * (long) CINT(CDR(BgL_cz00_10614))));
									}
								else
									{	/* Llib/date.scm 1144 */
										return BINT(0L);
									}
							}
							break;
						case 3L:

							{	/* Llib/date.scm 1138 */
								long BgL_hz00_10616;
								long BgL_mz00_10617;

								{	/* Llib/date.scm 1138 */
									int BgL_arg2589z00_10618;

									{	/* Llib/date.scm 1121 */
										int BgL_auxz00_11771;
										obj_t BgL_tmpz00_11769;

										BgL_auxz00_11771 = (int) (2L);
										BgL_tmpz00_11769 = ((obj_t) BgL_iportz00_10187);
										BgL_arg2589z00_10618 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_11769, BgL_auxz00_11771);
									}
									BgL_hz00_10616 = ((long) (BgL_arg2589z00_10618) - 48L);
								}
								{	/* Llib/date.scm 1139 */
									long BgL_arg2590z00_10619;
									long BgL_arg2591z00_10620;

									{	/* Llib/date.scm 1139 */
										long BgL_arg2592z00_10621;

										{	/* Llib/date.scm 1139 */
											int BgL_arg2593z00_10622;

											{	/* Llib/date.scm 1121 */
												int BgL_auxz00_11778;
												obj_t BgL_tmpz00_11776;

												BgL_auxz00_11778 = (int) (3L);
												BgL_tmpz00_11776 = ((obj_t) BgL_iportz00_10187);
												BgL_arg2593z00_10622 =
													RGC_BUFFER_BYTE_REF(BgL_tmpz00_11776,
													BgL_auxz00_11778);
											}
											BgL_arg2592z00_10621 =
												((long) (BgL_arg2593z00_10622) - 48L);
										}
										BgL_arg2590z00_10619 = (10L * BgL_arg2592z00_10621);
									}
									{	/* Llib/date.scm 1139 */
										int BgL_arg2594z00_10623;

										{	/* Llib/date.scm 1121 */
											int BgL_auxz00_11786;
											obj_t BgL_tmpz00_11784;

											BgL_auxz00_11786 = (int) (4L);
											BgL_tmpz00_11784 = ((obj_t) BgL_iportz00_10187);
											BgL_arg2594z00_10623 =
												RGC_BUFFER_BYTE_REF(BgL_tmpz00_11784, BgL_auxz00_11786);
										}
										BgL_arg2591z00_10620 =
											((long) (BgL_arg2594z00_10623) - 48L);
									}
									BgL_mz00_10617 =
										(BgL_arg2590z00_10619 + BgL_arg2591z00_10620);
								}
								return BINT((60L * ((BgL_hz00_10616 * 60L) + BgL_mz00_10617)));
							}
							break;
						case 2L:

							{	/* Llib/date.scm 1131 */
								long BgL_hz00_10624;
								long BgL_mz00_10625;

								{	/* Llib/date.scm 1131 */
									int BgL_arg2603z00_10626;

									{	/* Llib/date.scm 1121 */
										int BgL_auxz00_11798;
										obj_t BgL_tmpz00_11796;

										BgL_auxz00_11798 = (int) (1L);
										BgL_tmpz00_11796 = ((obj_t) BgL_iportz00_10187);
										BgL_arg2603z00_10626 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_11796, BgL_auxz00_11798);
									}
									BgL_hz00_10624 = ((long) (BgL_arg2603z00_10626) - 48L);
								}
								{	/* Llib/date.scm 1132 */
									long BgL_arg2604z00_10627;
									long BgL_arg2605z00_10628;

									{	/* Llib/date.scm 1132 */
										long BgL_arg2606z00_10629;

										{	/* Llib/date.scm 1132 */
											int BgL_arg2607z00_10630;

											{	/* Llib/date.scm 1121 */
												int BgL_auxz00_11805;
												obj_t BgL_tmpz00_11803;

												BgL_auxz00_11805 = (int) (2L);
												BgL_tmpz00_11803 = ((obj_t) BgL_iportz00_10187);
												BgL_arg2607z00_10630 =
													RGC_BUFFER_BYTE_REF(BgL_tmpz00_11803,
													BgL_auxz00_11805);
											}
											BgL_arg2606z00_10629 =
												((long) (BgL_arg2607z00_10630) - 48L);
										}
										BgL_arg2604z00_10627 = (10L * BgL_arg2606z00_10629);
									}
									{	/* Llib/date.scm 1132 */
										int BgL_arg2608z00_10631;

										{	/* Llib/date.scm 1121 */
											int BgL_auxz00_11813;
											obj_t BgL_tmpz00_11811;

											BgL_auxz00_11813 = (int) (3L);
											BgL_tmpz00_11811 = ((obj_t) BgL_iportz00_10187);
											BgL_arg2608z00_10631 =
												RGC_BUFFER_BYTE_REF(BgL_tmpz00_11811, BgL_auxz00_11813);
										}
										BgL_arg2605z00_10628 =
											((long) (BgL_arg2608z00_10631) - 48L);
									}
									BgL_mz00_10625 =
										(BgL_arg2604z00_10627 + BgL_arg2605z00_10628);
								}
								{	/* Llib/date.scm 1133 */
									bool_t BgL_test5328z00_11819;

									{	/* Llib/date.scm 1133 */
										int BgL_arg2602z00_10632;

										{	/* Llib/date.scm 1121 */
											int BgL_auxz00_11822;
											obj_t BgL_tmpz00_11820;

											BgL_auxz00_11822 = (int) (0L);
											BgL_tmpz00_11820 = ((obj_t) BgL_iportz00_10187);
											BgL_arg2602z00_10632 =
												RGC_BUFFER_BYTE_REF(BgL_tmpz00_11820, BgL_auxz00_11822);
										}
										BgL_test5328z00_11819 =
											((long) (BgL_arg2602z00_10632) == 45L);
									}
									if (BgL_test5328z00_11819)
										{	/* Llib/date.scm 1133 */
											return
												BINT(NEG(
													(60L * ((BgL_hz00_10624 * 60L) + BgL_mz00_10625))));
										}
									else
										{	/* Llib/date.scm 1133 */
											return
												BINT((60L * ((BgL_hz00_10624 * 60L) + BgL_mz00_10625)));
										}
								}
							}
							break;
						case 1L:

							{	/* Llib/date.scm 1125 */
								long BgL_hz00_10633;
								long BgL_mz00_10634;

								{	/* Llib/date.scm 1125 */
									long BgL_arg2618z00_10635;
									long BgL_arg2619z00_10636;

									{	/* Llib/date.scm 1125 */
										long BgL_arg2621z00_10637;

										{	/* Llib/date.scm 1125 */
											int BgL_arg2622z00_10638;

											{	/* Llib/date.scm 1121 */
												int BgL_auxz00_11838;
												obj_t BgL_tmpz00_11836;

												BgL_auxz00_11838 = (int) (1L);
												BgL_tmpz00_11836 = ((obj_t) BgL_iportz00_10187);
												BgL_arg2622z00_10638 =
													RGC_BUFFER_BYTE_REF(BgL_tmpz00_11836,
													BgL_auxz00_11838);
											}
											BgL_arg2621z00_10637 =
												((long) (BgL_arg2622z00_10638) - 48L);
										}
										BgL_arg2618z00_10635 = (10L * BgL_arg2621z00_10637);
									}
									{	/* Llib/date.scm 1125 */
										int BgL_arg2623z00_10639;

										{	/* Llib/date.scm 1121 */
											int BgL_auxz00_11846;
											obj_t BgL_tmpz00_11844;

											BgL_auxz00_11846 = (int) (2L);
											BgL_tmpz00_11844 = ((obj_t) BgL_iportz00_10187);
											BgL_arg2623z00_10639 =
												RGC_BUFFER_BYTE_REF(BgL_tmpz00_11844, BgL_auxz00_11846);
										}
										BgL_arg2619z00_10636 =
											((long) (BgL_arg2623z00_10639) - 48L);
									}
									BgL_hz00_10633 =
										(BgL_arg2618z00_10635 + BgL_arg2619z00_10636);
								}
								{	/* Llib/date.scm 1126 */
									long BgL_arg2624z00_10640;
									long BgL_arg2625z00_10641;

									{	/* Llib/date.scm 1126 */
										long BgL_arg2626z00_10642;

										{	/* Llib/date.scm 1126 */
											int BgL_arg2628z00_10643;

											{	/* Llib/date.scm 1121 */
												int BgL_auxz00_11854;
												obj_t BgL_tmpz00_11852;

												BgL_auxz00_11854 = (int) (3L);
												BgL_tmpz00_11852 = ((obj_t) BgL_iportz00_10187);
												BgL_arg2628z00_10643 =
													RGC_BUFFER_BYTE_REF(BgL_tmpz00_11852,
													BgL_auxz00_11854);
											}
											BgL_arg2626z00_10642 =
												((long) (BgL_arg2628z00_10643) - 48L);
										}
										BgL_arg2624z00_10640 = (10L * BgL_arg2626z00_10642);
									}
									{	/* Llib/date.scm 1126 */
										int BgL_arg2629z00_10644;

										{	/* Llib/date.scm 1121 */
											int BgL_auxz00_11862;
											obj_t BgL_tmpz00_11860;

											BgL_auxz00_11862 = (int) (4L);
											BgL_tmpz00_11860 = ((obj_t) BgL_iportz00_10187);
											BgL_arg2629z00_10644 =
												RGC_BUFFER_BYTE_REF(BgL_tmpz00_11860, BgL_auxz00_11862);
										}
										BgL_arg2625z00_10641 =
											((long) (BgL_arg2629z00_10644) - 48L);
									}
									BgL_mz00_10634 =
										(BgL_arg2624z00_10640 + BgL_arg2625z00_10641);
								}
								{	/* Llib/date.scm 1127 */
									bool_t BgL_test5329z00_11868;

									{	/* Llib/date.scm 1127 */
										int BgL_arg2617z00_10645;

										{	/* Llib/date.scm 1121 */
											int BgL_auxz00_11871;
											obj_t BgL_tmpz00_11869;

											BgL_auxz00_11871 = (int) (0L);
											BgL_tmpz00_11869 = ((obj_t) BgL_iportz00_10187);
											BgL_arg2617z00_10645 =
												RGC_BUFFER_BYTE_REF(BgL_tmpz00_11869, BgL_auxz00_11871);
										}
										BgL_test5329z00_11868 =
											((long) (BgL_arg2617z00_10645) == 45L);
									}
									if (BgL_test5329z00_11868)
										{	/* Llib/date.scm 1127 */
											return
												BINT(NEG(
													(60L * ((BgL_hz00_10633 * 60L) + BgL_mz00_10634))));
										}
									else
										{	/* Llib/date.scm 1127 */
											return
												BINT((60L * ((BgL_hz00_10633 * 60L) + BgL_mz00_10634)));
										}
								}
							}
							break;
						case 0L:

							goto BgL_ignorez00_10595;
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string4941z00zz__datez00,
								BGl_string4942z00zz__datez00, BINT(BgL_matchz00_10610));
						}
				}
			}
		}

	}



/* &<@anonymous:2045> */
	obj_t BGl_z62zc3z04anonymousza32045ze3ze5zz__datez00(obj_t BgL_envz00_10188,
		obj_t BgL_iportz00_10189)
	{
		{	/* Llib/date.scm 1063 */
			{
				obj_t BgL_iportz00_10950;
				long BgL_lastzd2matchzd2_10951;
				long BgL_forwardz00_10952;
				long BgL_bufposz00_10953;
				obj_t BgL_iportz00_10942;
				long BgL_lastzd2matchzd2_10943;
				long BgL_forwardz00_10944;
				long BgL_bufposz00_10945;
				obj_t BgL_iportz00_10935;
				long BgL_lastzd2matchzd2_10936;
				long BgL_forwardz00_10937;
				long BgL_bufposz00_10938;
				obj_t BgL_iportz00_10927;
				long BgL_lastzd2matchzd2_10928;
				long BgL_forwardz00_10929;
				long BgL_bufposz00_10930;
				obj_t BgL_iportz00_10918;
				long BgL_lastzd2matchzd2_10919;
				long BgL_forwardz00_10920;
				long BgL_bufposz00_10921;
				obj_t BgL_iportz00_10911;
				long BgL_lastzd2matchzd2_10912;
				long BgL_forwardz00_10913;
				long BgL_bufposz00_10914;
				obj_t BgL_iportz00_10903;
				long BgL_lastzd2matchzd2_10904;
				long BgL_forwardz00_10905;
				long BgL_bufposz00_10906;
				obj_t BgL_iportz00_10896;
				long BgL_lastzd2matchzd2_10897;
				long BgL_forwardz00_10898;
				long BgL_bufposz00_10899;
				obj_t BgL_iportz00_10887;
				long BgL_lastzd2matchzd2_10888;
				long BgL_forwardz00_10889;
				long BgL_bufposz00_10890;
				obj_t BgL_iportz00_10880;
				long BgL_lastzd2matchzd2_10881;
				long BgL_forwardz00_10882;
				long BgL_bufposz00_10883;
				obj_t BgL_iportz00_10865;
				long BgL_lastzd2matchzd2_10866;
				long BgL_forwardz00_10867;
				long BgL_bufposz00_10868;
				obj_t BgL_iportz00_10856;
				long BgL_lastzd2matchzd2_10857;
				long BgL_forwardz00_10858;
				long BgL_bufposz00_10859;
				obj_t BgL_iportz00_10848;
				long BgL_lastzd2matchzd2_10849;
				long BgL_forwardz00_10850;
				long BgL_bufposz00_10851;
				obj_t BgL_iportz00_10841;
				long BgL_lastzd2matchzd2_10842;
				long BgL_forwardz00_10843;
				long BgL_bufposz00_10844;
				obj_t BgL_iportz00_10832;
				long BgL_lastzd2matchzd2_10833;
				long BgL_forwardz00_10834;
				long BgL_bufposz00_10835;
				obj_t BgL_iportz00_10824;
				long BgL_lastzd2matchzd2_10825;
				long BgL_forwardz00_10826;
				long BgL_bufposz00_10827;

			BgL_ignorez00_10751:
				{	/* Llib/date.scm 1063 */
					obj_t BgL_tmpz00_11888;

					BgL_tmpz00_11888 = ((obj_t) BgL_iportz00_10189);
					RGC_START_MATCH(BgL_tmpz00_11888);
				}
				{	/* Llib/date.scm 1063 */
					long BgL_matchz00_10769;

					{	/* Llib/date.scm 1063 */
						long BgL_arg2329z00_10770;
						long BgL_arg2330z00_10771;

						{	/* Llib/date.scm 1063 */
							obj_t BgL_tmpz00_11891;

							BgL_tmpz00_11891 = ((obj_t) BgL_iportz00_10189);
							BgL_arg2329z00_10770 = RGC_BUFFER_FORWARD(BgL_tmpz00_11891);
						}
						{	/* Llib/date.scm 1063 */
							obj_t BgL_tmpz00_11894;

							BgL_tmpz00_11894 = ((obj_t) BgL_iportz00_10189);
							BgL_arg2330z00_10771 = RGC_BUFFER_BUFPOS(BgL_tmpz00_11894);
						}
						BgL_iportz00_10856 = BgL_iportz00_10189;
						BgL_lastzd2matchzd2_10857 = 6L;
						BgL_forwardz00_10858 = BgL_arg2329z00_10770;
						BgL_bufposz00_10859 = BgL_arg2330z00_10771;
					BgL_statezd20zd21184z00_10757:
						if ((BgL_forwardz00_10858 == BgL_bufposz00_10859))
							{	/* Llib/date.scm 1063 */
								if (rgc_fill_buffer(((obj_t) BgL_iportz00_10856)))
									{	/* Llib/date.scm 1063 */
										long BgL_arg2151z00_10860;
										long BgL_arg2152z00_10861;

										{	/* Llib/date.scm 1063 */
											obj_t BgL_tmpz00_11902;

											BgL_tmpz00_11902 = ((obj_t) BgL_iportz00_10856);
											BgL_arg2151z00_10860 =
												RGC_BUFFER_FORWARD(BgL_tmpz00_11902);
										}
										{	/* Llib/date.scm 1063 */
											obj_t BgL_tmpz00_11905;

											BgL_tmpz00_11905 = ((obj_t) BgL_iportz00_10856);
											BgL_arg2152z00_10861 =
												RGC_BUFFER_BUFPOS(BgL_tmpz00_11905);
										}
										{
											long BgL_bufposz00_11909;
											long BgL_forwardz00_11908;

											BgL_forwardz00_11908 = BgL_arg2151z00_10860;
											BgL_bufposz00_11909 = BgL_arg2152z00_10861;
											BgL_bufposz00_10859 = BgL_bufposz00_11909;
											BgL_forwardz00_10858 = BgL_forwardz00_11908;
											goto BgL_statezd20zd21184z00_10757;
										}
									}
								else
									{	/* Llib/date.scm 1063 */
										BgL_matchz00_10769 = BgL_lastzd2matchzd2_10857;
									}
							}
						else
							{	/* Llib/date.scm 1063 */
								int BgL_curz00_10862;

								{	/* Llib/date.scm 1063 */
									obj_t BgL_tmpz00_11910;

									BgL_tmpz00_11910 = ((obj_t) BgL_iportz00_10856);
									BgL_curz00_10862 =
										RGC_BUFFER_GET_CHAR(BgL_tmpz00_11910, BgL_forwardz00_10858);
								}
								{	/* Llib/date.scm 1063 */

									if (((long) (BgL_curz00_10862) == 58L))
										{	/* Llib/date.scm 1063 */
											BgL_iportz00_10927 = BgL_iportz00_10856;
											BgL_lastzd2matchzd2_10928 = BgL_lastzd2matchzd2_10857;
											BgL_forwardz00_10929 = (1L + BgL_forwardz00_10858);
											BgL_bufposz00_10930 = BgL_bufposz00_10859;
										BgL_statezd24zd21188z00_10765:
											{	/* Llib/date.scm 1063 */
												long BgL_newzd2matchzd2_10931;

												{	/* Llib/date.scm 1063 */
													obj_t BgL_tmpz00_11916;

													BgL_tmpz00_11916 = ((obj_t) BgL_iportz00_10927);
													RGC_STOP_MATCH(BgL_tmpz00_11916,
														BgL_forwardz00_10929);
												}
												BgL_newzd2matchzd2_10931 = 6L;
												if ((BgL_forwardz00_10929 == BgL_bufposz00_10930))
													{	/* Llib/date.scm 1063 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_10927)))
															{	/* Llib/date.scm 1063 */
																long BgL_arg2077z00_10932;
																long BgL_arg2078z00_10933;

																{	/* Llib/date.scm 1063 */
																	obj_t BgL_tmpz00_11924;

																	BgL_tmpz00_11924 =
																		((obj_t) BgL_iportz00_10927);
																	BgL_arg2077z00_10932 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_11924);
																}
																{	/* Llib/date.scm 1063 */
																	obj_t BgL_tmpz00_11927;

																	BgL_tmpz00_11927 =
																		((obj_t) BgL_iportz00_10927);
																	BgL_arg2078z00_10933 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_11927);
																}
																{
																	long BgL_bufposz00_11931;
																	long BgL_forwardz00_11930;

																	BgL_forwardz00_11930 = BgL_arg2077z00_10932;
																	BgL_bufposz00_11931 = BgL_arg2078z00_10933;
																	BgL_bufposz00_10930 = BgL_bufposz00_11931;
																	BgL_forwardz00_10929 = BgL_forwardz00_11930;
																	goto BgL_statezd24zd21188z00_10765;
																}
															}
														else
															{	/* Llib/date.scm 1063 */
																BgL_matchz00_10769 = BgL_newzd2matchzd2_10931;
															}
													}
												else
													{	/* Llib/date.scm 1063 */
														int BgL_curz00_10934;

														{	/* Llib/date.scm 1063 */
															obj_t BgL_tmpz00_11932;

															BgL_tmpz00_11932 = ((obj_t) BgL_iportz00_10927);
															BgL_curz00_10934 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_11932,
																BgL_forwardz00_10929);
														}
														{	/* Llib/date.scm 1063 */

															{	/* Llib/date.scm 1063 */
																bool_t BgL_test5335z00_11935;

																if (((long) (BgL_curz00_10934) >= 48L))
																	{	/* Llib/date.scm 1063 */
																		BgL_test5335z00_11935 =
																			((long) (BgL_curz00_10934) < 58L);
																	}
																else
																	{	/* Llib/date.scm 1063 */
																		BgL_test5335z00_11935 = ((bool_t) 0);
																	}
																if (BgL_test5335z00_11935)
																	{	/* Llib/date.scm 1063 */
																		BgL_iportz00_10918 = BgL_iportz00_10927;
																		BgL_lastzd2matchzd2_10919 =
																			BgL_newzd2matchzd2_10931;
																		BgL_forwardz00_10920 =
																			(1L + BgL_forwardz00_10929);
																		BgL_bufposz00_10921 = BgL_bufposz00_10930;
																	BgL_statezd25zd21189z00_10764:
																		if (
																			(BgL_forwardz00_10920 ==
																				BgL_bufposz00_10921))
																			{	/* Llib/date.scm 1063 */
																				if (rgc_fill_buffer(
																						((obj_t) BgL_iportz00_10918)))
																					{	/* Llib/date.scm 1063 */
																						long BgL_arg2085z00_10922;
																						long BgL_arg2086z00_10923;

																						{	/* Llib/date.scm 1063 */
																							obj_t BgL_tmpz00_11946;

																							BgL_tmpz00_11946 =
																								((obj_t) BgL_iportz00_10918);
																							BgL_arg2085z00_10922 =
																								RGC_BUFFER_FORWARD
																								(BgL_tmpz00_11946);
																						}
																						{	/* Llib/date.scm 1063 */
																							obj_t BgL_tmpz00_11949;

																							BgL_tmpz00_11949 =
																								((obj_t) BgL_iportz00_10918);
																							BgL_arg2086z00_10923 =
																								RGC_BUFFER_BUFPOS
																								(BgL_tmpz00_11949);
																						}
																						{
																							long BgL_bufposz00_11953;
																							long BgL_forwardz00_11952;

																							BgL_forwardz00_11952 =
																								BgL_arg2085z00_10922;
																							BgL_bufposz00_11953 =
																								BgL_arg2086z00_10923;
																							BgL_bufposz00_10921 =
																								BgL_bufposz00_11953;
																							BgL_forwardz00_10920 =
																								BgL_forwardz00_11952;
																							goto
																								BgL_statezd25zd21189z00_10764;
																						}
																					}
																				else
																					{	/* Llib/date.scm 1063 */
																						BgL_matchz00_10769 =
																							BgL_lastzd2matchzd2_10919;
																					}
																			}
																		else
																			{	/* Llib/date.scm 1063 */
																				int BgL_curz00_10924;

																				{	/* Llib/date.scm 1063 */
																					obj_t BgL_tmpz00_11954;

																					BgL_tmpz00_11954 =
																						((obj_t) BgL_iportz00_10918);
																					BgL_curz00_10924 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_tmpz00_11954,
																						BgL_forwardz00_10920);
																				}
																				{	/* Llib/date.scm 1063 */

																					{	/* Llib/date.scm 1063 */
																						bool_t BgL_test5339z00_11957;

																						if (
																							((long) (BgL_curz00_10924) >=
																								48L))
																							{	/* Llib/date.scm 1063 */
																								BgL_test5339z00_11957 =
																									(
																									(long) (BgL_curz00_10924) <
																									58L);
																							}
																						else
																							{	/* Llib/date.scm 1063 */
																								BgL_test5339z00_11957 =
																									((bool_t) 0);
																							}
																						if (BgL_test5339z00_11957)
																							{	/* Llib/date.scm 1063 */
																								long BgL_arg2089z00_10925;

																								BgL_arg2089z00_10925 =
																									(1L + BgL_forwardz00_10920);
																								{	/* Llib/date.scm 1063 */
																									long BgL_newzd2matchzd2_10926;

																									{	/* Llib/date.scm 1063 */
																										obj_t BgL_tmpz00_11964;

																										BgL_tmpz00_11964 =
																											((obj_t)
																											BgL_iportz00_10918);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_11964,
																											BgL_arg2089z00_10925);
																									}
																									BgL_newzd2matchzd2_10926 = 5L;
																									BgL_matchz00_10769 =
																										BgL_newzd2matchzd2_10926;
																							}}
																						else
																							{	/* Llib/date.scm 1063 */
																								BgL_matchz00_10769 =
																									BgL_lastzd2matchzd2_10919;
																							}
																					}
																				}
																			}
																	}
																else
																	{	/* Llib/date.scm 1063 */
																		BgL_matchz00_10769 =
																			BgL_newzd2matchzd2_10931;
																	}
															}
														}
													}
											}
										}
									else
										{	/* Llib/date.scm 1063 */
											bool_t BgL_test5341z00_11969;

											if (((long) (BgL_curz00_10862) >= 48L))
												{	/* Llib/date.scm 1063 */
													BgL_test5341z00_11969 =
														((long) (BgL_curz00_10862) < 58L);
												}
											else
												{	/* Llib/date.scm 1063 */
													BgL_test5341z00_11969 = ((bool_t) 0);
												}
											if (BgL_test5341z00_11969)
												{	/* Llib/date.scm 1063 */
													BgL_iportz00_10865 = BgL_iportz00_10856;
													BgL_lastzd2matchzd2_10866 = BgL_lastzd2matchzd2_10857;
													BgL_forwardz00_10867 = (1L + BgL_forwardz00_10858);
													BgL_bufposz00_10868 = BgL_bufposz00_10859;
												BgL_statezd23zd21187z00_10758:
													{	/* Llib/date.scm 1063 */
														long BgL_newzd2matchzd2_10869;

														{	/* Llib/date.scm 1063 */
															obj_t BgL_tmpz00_11975;

															BgL_tmpz00_11975 = ((obj_t) BgL_iportz00_10865);
															RGC_STOP_MATCH(BgL_tmpz00_11975,
																BgL_forwardz00_10867);
														}
														BgL_newzd2matchzd2_10869 = 6L;
														if ((BgL_forwardz00_10867 == BgL_bufposz00_10868))
															{	/* Llib/date.scm 1063 */
																if (rgc_fill_buffer(
																		((obj_t) BgL_iportz00_10865)))
																	{	/* Llib/date.scm 1063 */
																		long BgL_arg2141z00_10870;
																		long BgL_arg2142z00_10871;

																		{	/* Llib/date.scm 1063 */
																			obj_t BgL_tmpz00_11983;

																			BgL_tmpz00_11983 =
																				((obj_t) BgL_iportz00_10865);
																			BgL_arg2141z00_10870 =
																				RGC_BUFFER_FORWARD(BgL_tmpz00_11983);
																		}
																		{	/* Llib/date.scm 1063 */
																			obj_t BgL_tmpz00_11986;

																			BgL_tmpz00_11986 =
																				((obj_t) BgL_iportz00_10865);
																			BgL_arg2142z00_10871 =
																				RGC_BUFFER_BUFPOS(BgL_tmpz00_11986);
																		}
																		{
																			long BgL_bufposz00_11990;
																			long BgL_forwardz00_11989;

																			BgL_forwardz00_11989 =
																				BgL_arg2141z00_10870;
																			BgL_bufposz00_11990 =
																				BgL_arg2142z00_10871;
																			BgL_bufposz00_10868 = BgL_bufposz00_11990;
																			BgL_forwardz00_10867 =
																				BgL_forwardz00_11989;
																			goto BgL_statezd23zd21187z00_10758;
																		}
																	}
																else
																	{	/* Llib/date.scm 1063 */
																		BgL_matchz00_10769 =
																			BgL_newzd2matchzd2_10869;
																	}
															}
														else
															{	/* Llib/date.scm 1063 */
																int BgL_curz00_10872;

																{	/* Llib/date.scm 1063 */
																	obj_t BgL_tmpz00_11991;

																	BgL_tmpz00_11991 =
																		((obj_t) BgL_iportz00_10865);
																	BgL_curz00_10872 =
																		RGC_BUFFER_GET_CHAR(BgL_tmpz00_11991,
																		BgL_forwardz00_10867);
																}
																{	/* Llib/date.scm 1063 */

																	if (((long) (BgL_curz00_10872) == 58L))
																		{	/* Llib/date.scm 1063 */
																			BgL_iportz00_10935 = BgL_iportz00_10865;
																			BgL_lastzd2matchzd2_10936 =
																				BgL_newzd2matchzd2_10869;
																			BgL_forwardz00_10937 =
																				(1L + BgL_forwardz00_10867);
																			BgL_bufposz00_10938 = BgL_bufposz00_10868;
																		BgL_statezd29zd21193z00_10766:
																			if (
																				(BgL_forwardz00_10937 ==
																					BgL_bufposz00_10938))
																				{	/* Llib/date.scm 1063 */
																					if (rgc_fill_buffer(
																							((obj_t) BgL_iportz00_10935)))
																						{	/* Llib/date.scm 1063 */
																							long BgL_arg2068z00_10939;
																							long BgL_arg2069z00_10940;

																							{	/* Llib/date.scm 1063 */
																								obj_t BgL_tmpz00_12002;

																								BgL_tmpz00_12002 =
																									((obj_t) BgL_iportz00_10935);
																								BgL_arg2068z00_10939 =
																									RGC_BUFFER_FORWARD
																									(BgL_tmpz00_12002);
																							}
																							{	/* Llib/date.scm 1063 */
																								obj_t BgL_tmpz00_12005;

																								BgL_tmpz00_12005 =
																									((obj_t) BgL_iportz00_10935);
																								BgL_arg2069z00_10940 =
																									RGC_BUFFER_BUFPOS
																									(BgL_tmpz00_12005);
																							}
																							{
																								long BgL_bufposz00_12009;
																								long BgL_forwardz00_12008;

																								BgL_forwardz00_12008 =
																									BgL_arg2068z00_10939;
																								BgL_bufposz00_12009 =
																									BgL_arg2069z00_10940;
																								BgL_bufposz00_10938 =
																									BgL_bufposz00_12009;
																								BgL_forwardz00_10937 =
																									BgL_forwardz00_12008;
																								goto
																									BgL_statezd29zd21193z00_10766;
																							}
																						}
																					else
																						{	/* Llib/date.scm 1063 */
																							BgL_matchz00_10769 =
																								BgL_lastzd2matchzd2_10936;
																						}
																				}
																			else
																				{	/* Llib/date.scm 1063 */
																					int BgL_curz00_10941;

																					{	/* Llib/date.scm 1063 */
																						obj_t BgL_tmpz00_12010;

																						BgL_tmpz00_12010 =
																							((obj_t) BgL_iportz00_10935);
																						BgL_curz00_10941 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_tmpz00_12010,
																							BgL_forwardz00_10937);
																					}
																					{	/* Llib/date.scm 1063 */

																						{	/* Llib/date.scm 1063 */
																							bool_t BgL_test5348z00_12013;

																							if (
																								((long) (BgL_curz00_10941) >=
																									48L))
																								{	/* Llib/date.scm 1063 */
																									BgL_test5348z00_12013 =
																										(
																										(long) (BgL_curz00_10941) <
																										58L);
																								}
																							else
																								{	/* Llib/date.scm 1063 */
																									BgL_test5348z00_12013 =
																										((bool_t) 0);
																								}
																							if (BgL_test5348z00_12013)
																								{	/* Llib/date.scm 1063 */
																									BgL_iportz00_10880 =
																										BgL_iportz00_10935;
																									BgL_lastzd2matchzd2_10881 =
																										BgL_lastzd2matchzd2_10936;
																									BgL_forwardz00_10882 =
																										(1L + BgL_forwardz00_10937);
																									BgL_bufposz00_10883 =
																										BgL_bufposz00_10938;
																								BgL_statezd210zd21194z00_10759:
																									if (
																										(BgL_forwardz00_10882 ==
																											BgL_bufposz00_10883))
																										{	/* Llib/date.scm 1063 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_10880)))
																												{	/* Llib/date.scm 1063 */
																													long
																														BgL_arg2133z00_10884;
																													long
																														BgL_arg2134z00_10885;
																													{	/* Llib/date.scm 1063 */
																														obj_t
																															BgL_tmpz00_12024;
																														BgL_tmpz00_12024 =
																															((obj_t)
																															BgL_iportz00_10880);
																														BgL_arg2133z00_10884
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_12024);
																													}
																													{	/* Llib/date.scm 1063 */
																														obj_t
																															BgL_tmpz00_12027;
																														BgL_tmpz00_12027 =
																															((obj_t)
																															BgL_iportz00_10880);
																														BgL_arg2134z00_10885
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_12027);
																													}
																													{
																														long
																															BgL_bufposz00_12031;
																														long
																															BgL_forwardz00_12030;
																														BgL_forwardz00_12030
																															=
																															BgL_arg2133z00_10884;
																														BgL_bufposz00_12031
																															=
																															BgL_arg2134z00_10885;
																														BgL_bufposz00_10883
																															=
																															BgL_bufposz00_12031;
																														BgL_forwardz00_10882
																															=
																															BgL_forwardz00_12030;
																														goto
																															BgL_statezd210zd21194z00_10759;
																													}
																												}
																											else
																												{	/* Llib/date.scm 1063 */
																													BgL_matchz00_10769 =
																														BgL_lastzd2matchzd2_10881;
																												}
																										}
																									else
																										{	/* Llib/date.scm 1063 */
																											int BgL_curz00_10886;

																											{	/* Llib/date.scm 1063 */
																												obj_t BgL_tmpz00_12032;

																												BgL_tmpz00_12032 =
																													((obj_t)
																													BgL_iportz00_10880);
																												BgL_curz00_10886 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_12032,
																													BgL_forwardz00_10882);
																											}
																											{	/* Llib/date.scm 1063 */

																												{	/* Llib/date.scm 1063 */
																													bool_t
																														BgL_test5352z00_12035;
																													if (((long)
																															(BgL_curz00_10886)
																															>= 48L))
																														{	/* Llib/date.scm 1063 */
																															BgL_test5352z00_12035
																																=
																																((long)
																																(BgL_curz00_10886)
																																< 58L);
																														}
																													else
																														{	/* Llib/date.scm 1063 */
																															BgL_test5352z00_12035
																																= ((bool_t) 0);
																														}
																													if (BgL_test5352z00_12035)
																														{	/* Llib/date.scm 1063 */
																															BgL_iportz00_10903
																																=
																																BgL_iportz00_10880;
																															BgL_lastzd2matchzd2_10904
																																=
																																BgL_lastzd2matchzd2_10881;
																															BgL_forwardz00_10905
																																=
																																(1L +
																																BgL_forwardz00_10882);
																															BgL_bufposz00_10906
																																=
																																BgL_bufposz00_10883;
																														BgL_statezd211zd21195z00_10762:
																															{	/* Llib/date.scm 1063 */
																																long
																																	BgL_newzd2matchzd2_10907;
																																{	/* Llib/date.scm 1063 */
																																	obj_t
																																		BgL_tmpz00_12041;
																																	BgL_tmpz00_12041
																																		=
																																		((obj_t)
																																		BgL_iportz00_10903);
																																	RGC_STOP_MATCH
																																		(BgL_tmpz00_12041,
																																		BgL_forwardz00_10905);
																																}
																																BgL_newzd2matchzd2_10907
																																	= 1L;
																																if (
																																	(BgL_forwardz00_10905
																																		==
																																		BgL_bufposz00_10906))
																																	{	/* Llib/date.scm 1063 */
																																		if (rgc_fill_buffer(((obj_t) BgL_iportz00_10903)))
																																			{	/* Llib/date.scm 1063 */
																																				long
																																					BgL_arg2109z00_10908;
																																				long
																																					BgL_arg2110z00_10909;
																																				{	/* Llib/date.scm 1063 */
																																					obj_t
																																						BgL_tmpz00_12049;
																																					BgL_tmpz00_12049
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_10903);
																																					BgL_arg2109z00_10908
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_tmpz00_12049);
																																				}
																																				{	/* Llib/date.scm 1063 */
																																					obj_t
																																						BgL_tmpz00_12052;
																																					BgL_tmpz00_12052
																																						=
																																						(
																																						(obj_t)
																																						BgL_iportz00_10903);
																																					BgL_arg2110z00_10909
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_tmpz00_12052);
																																				}
																																				{
																																					long
																																						BgL_bufposz00_12056;
																																					long
																																						BgL_forwardz00_12055;
																																					BgL_forwardz00_12055
																																						=
																																						BgL_arg2109z00_10908;
																																					BgL_bufposz00_12056
																																						=
																																						BgL_arg2110z00_10909;
																																					BgL_bufposz00_10906
																																						=
																																						BgL_bufposz00_12056;
																																					BgL_forwardz00_10905
																																						=
																																						BgL_forwardz00_12055;
																																					goto
																																						BgL_statezd211zd21195z00_10762;
																																				}
																																			}
																																		else
																																			{	/* Llib/date.scm 1063 */
																																				BgL_matchz00_10769
																																					=
																																					BgL_newzd2matchzd2_10907;
																																			}
																																	}
																																else
																																	{	/* Llib/date.scm 1063 */
																																		int
																																			BgL_curz00_10910;
																																		{	/* Llib/date.scm 1063 */
																																			obj_t
																																				BgL_tmpz00_12057;
																																			BgL_tmpz00_12057
																																				=
																																				((obj_t)
																																				BgL_iportz00_10903);
																																			BgL_curz00_10910
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_tmpz00_12057,
																																				BgL_forwardz00_10905);
																																		}
																																		{	/* Llib/date.scm 1063 */

																																			if (
																																				((long)
																																					(BgL_curz00_10910)
																																					==
																																					58L))
																																				{	/* Llib/date.scm 1063 */
																																					BgL_iportz00_10896
																																						=
																																						BgL_iportz00_10903;
																																					BgL_lastzd2matchzd2_10897
																																						=
																																						BgL_newzd2matchzd2_10907;
																																					BgL_forwardz00_10898
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_10905);
																																					BgL_bufposz00_10899
																																						=
																																						BgL_bufposz00_10906;
																																				BgL_statezd212zd21196z00_10761:
																																					if (
																																						(BgL_forwardz00_10898
																																							==
																																							BgL_bufposz00_10899))
																																						{	/* Llib/date.scm 1063 */
																																							if (rgc_fill_buffer(((obj_t) BgL_iportz00_10896)))
																																								{	/* Llib/date.scm 1063 */
																																									long
																																										BgL_arg2116z00_10900;
																																									long
																																										BgL_arg2117z00_10901;
																																									{	/* Llib/date.scm 1063 */
																																										obj_t
																																											BgL_tmpz00_12068;
																																										BgL_tmpz00_12068
																																											=
																																											(
																																											(obj_t)
																																											BgL_iportz00_10896);
																																										BgL_arg2116z00_10900
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_tmpz00_12068);
																																									}
																																									{	/* Llib/date.scm 1063 */
																																										obj_t
																																											BgL_tmpz00_12071;
																																										BgL_tmpz00_12071
																																											=
																																											(
																																											(obj_t)
																																											BgL_iportz00_10896);
																																										BgL_arg2117z00_10901
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_tmpz00_12071);
																																									}
																																									{
																																										long
																																											BgL_bufposz00_12075;
																																										long
																																											BgL_forwardz00_12074;
																																										BgL_forwardz00_12074
																																											=
																																											BgL_arg2116z00_10900;
																																										BgL_bufposz00_12075
																																											=
																																											BgL_arg2117z00_10901;
																																										BgL_bufposz00_10899
																																											=
																																											BgL_bufposz00_12075;
																																										BgL_forwardz00_10898
																																											=
																																											BgL_forwardz00_12074;
																																										goto
																																											BgL_statezd212zd21196z00_10761;
																																									}
																																								}
																																							else
																																								{	/* Llib/date.scm 1063 */
																																									BgL_matchz00_10769
																																										=
																																										BgL_lastzd2matchzd2_10897;
																																								}
																																						}
																																					else
																																						{	/* Llib/date.scm 1063 */
																																							int
																																								BgL_curz00_10902;
																																							{	/* Llib/date.scm 1063 */
																																								obj_t
																																									BgL_tmpz00_12076;
																																								BgL_tmpz00_12076
																																									=
																																									(
																																									(obj_t)
																																									BgL_iportz00_10896);
																																								BgL_curz00_10902
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_tmpz00_12076,
																																									BgL_forwardz00_10898);
																																							}
																																							{	/* Llib/date.scm 1063 */

																																								{	/* Llib/date.scm 1063 */
																																									bool_t
																																										BgL_test5359z00_12079;
																																									if (((long) (BgL_curz00_10902) >= 48L))
																																										{	/* Llib/date.scm 1063 */
																																											BgL_test5359z00_12079
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_10902)
																																												<
																																												58L);
																																										}
																																									else
																																										{	/* Llib/date.scm 1063 */
																																											BgL_test5359z00_12079
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test5359z00_12079)
																																										{	/* Llib/date.scm 1063 */
																																											BgL_iportz00_10887
																																												=
																																												BgL_iportz00_10896;
																																											BgL_lastzd2matchzd2_10888
																																												=
																																												BgL_lastzd2matchzd2_10897;
																																											BgL_forwardz00_10889
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_10898);
																																											BgL_bufposz00_10890
																																												=
																																												BgL_bufposz00_10899;
																																										BgL_statezd213zd21197z00_10760:
																																											if ((BgL_forwardz00_10889 == BgL_bufposz00_10890))
																																												{	/* Llib/date.scm 1063 */
																																													if (rgc_fill_buffer(((obj_t) BgL_iportz00_10887)))
																																														{	/* Llib/date.scm 1063 */
																																															long
																																																BgL_arg2124z00_10891;
																																															long
																																																BgL_arg2125z00_10892;
																																															{	/* Llib/date.scm 1063 */
																																																obj_t
																																																	BgL_tmpz00_12090;
																																																BgL_tmpz00_12090
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_10887);
																																																BgL_arg2124z00_10891
																																																	=
																																																	RGC_BUFFER_FORWARD
																																																	(BgL_tmpz00_12090);
																																															}
																																															{	/* Llib/date.scm 1063 */
																																																obj_t
																																																	BgL_tmpz00_12093;
																																																BgL_tmpz00_12093
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_10887);
																																																BgL_arg2125z00_10892
																																																	=
																																																	RGC_BUFFER_BUFPOS
																																																	(BgL_tmpz00_12093);
																																															}
																																															{
																																																long
																																																	BgL_bufposz00_12097;
																																																long
																																																	BgL_forwardz00_12096;
																																																BgL_forwardz00_12096
																																																	=
																																																	BgL_arg2124z00_10891;
																																																BgL_bufposz00_12097
																																																	=
																																																	BgL_arg2125z00_10892;
																																																BgL_bufposz00_10890
																																																	=
																																																	BgL_bufposz00_12097;
																																																BgL_forwardz00_10889
																																																	=
																																																	BgL_forwardz00_12096;
																																																goto
																																																	BgL_statezd213zd21197z00_10760;
																																															}
																																														}
																																													else
																																														{	/* Llib/date.scm 1063 */
																																															BgL_matchz00_10769
																																																=
																																																BgL_lastzd2matchzd2_10888;
																																														}
																																												}
																																											else
																																												{	/* Llib/date.scm 1063 */
																																													int
																																														BgL_curz00_10893;
																																													{	/* Llib/date.scm 1063 */
																																														obj_t
																																															BgL_tmpz00_12098;
																																														BgL_tmpz00_12098
																																															=
																																															(
																																															(obj_t)
																																															BgL_iportz00_10887);
																																														BgL_curz00_10893
																																															=
																																															RGC_BUFFER_GET_CHAR
																																															(BgL_tmpz00_12098,
																																															BgL_forwardz00_10889);
																																													}
																																													{	/* Llib/date.scm 1063 */

																																														{	/* Llib/date.scm 1063 */
																																															bool_t
																																																BgL_test5363z00_12101;
																																															if (((long) (BgL_curz00_10893) >= 48L))
																																																{	/* Llib/date.scm 1063 */
																																																	BgL_test5363z00_12101
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_10893)
																																																		<
																																																		58L);
																																																}
																																															else
																																																{	/* Llib/date.scm 1063 */
																																																	BgL_test5363z00_12101
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test5363z00_12101)
																																																{	/* Llib/date.scm 1063 */
																																																	long
																																																		BgL_arg2128z00_10894;
																																																	BgL_arg2128z00_10894
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_10889);
																																																	{	/* Llib/date.scm 1063 */
																																																		long
																																																			BgL_newzd2matchzd2_10895;
																																																		{	/* Llib/date.scm 1063 */
																																																			obj_t
																																																				BgL_tmpz00_12108;
																																																			BgL_tmpz00_12108
																																																				=
																																																				(
																																																				(obj_t)
																																																				BgL_iportz00_10887);
																																																			RGC_STOP_MATCH
																																																				(BgL_tmpz00_12108,
																																																				BgL_arg2128z00_10894);
																																																		}
																																																		BgL_newzd2matchzd2_10895
																																																			=
																																																			4L;
																																																		BgL_matchz00_10769
																																																			=
																																																			BgL_newzd2matchzd2_10895;
																																																}}
																																															else
																																																{	/* Llib/date.scm 1063 */
																																																	BgL_matchz00_10769
																																																		=
																																																		BgL_lastzd2matchzd2_10888;
																																																}
																																														}
																																													}
																																												}
																																										}
																																									else
																																										{	/* Llib/date.scm 1063 */
																																											BgL_matchz00_10769
																																												=
																																												BgL_lastzd2matchzd2_10897;
																																										}
																																								}
																																							}
																																						}
																																				}
																																			else
																																				{	/* Llib/date.scm 1063 */
																																					BgL_matchz00_10769
																																						=
																																						BgL_newzd2matchzd2_10907;
																																				}
																																		}
																																	}
																															}
																														}
																													else
																														{	/* Llib/date.scm 1063 */
																															BgL_matchz00_10769
																																=
																																BgL_lastzd2matchzd2_10881;
																														}
																												}
																											}
																										}
																								}
																							else
																								{	/* Llib/date.scm 1063 */
																									BgL_matchz00_10769 =
																										BgL_lastzd2matchzd2_10936;
																								}
																						}
																					}
																				}
																		}
																	else
																		{	/* Llib/date.scm 1063 */
																			bool_t BgL_test5365z00_12116;

																			if (((long) (BgL_curz00_10872) >= 48L))
																				{	/* Llib/date.scm 1063 */
																					BgL_test5365z00_12116 =
																						((long) (BgL_curz00_10872) < 58L);
																				}
																			else
																				{	/* Llib/date.scm 1063 */
																					BgL_test5365z00_12116 = ((bool_t) 0);
																				}
																			if (BgL_test5365z00_12116)
																				{	/* Llib/date.scm 1063 */
																					long BgL_arg2147z00_10873;

																					BgL_arg2147z00_10873 =
																						(1L + BgL_forwardz00_10867);
																					{
																						long BgL_forwardz00_10875;
																						long BgL_bufposz00_10876;

																						BgL_forwardz00_10875 =
																							BgL_arg2147z00_10873;
																						BgL_bufposz00_10876 =
																							BgL_bufposz00_10868;
																					BgL_statezd28zd21192z00_10874:
																						if (
																							(BgL_forwardz00_10875 ==
																								BgL_bufposz00_10876))
																							{	/* Llib/date.scm 1063 */
																								if (rgc_fill_buffer(
																										((obj_t)
																											BgL_iportz00_10865)))
																									{	/* Llib/date.scm 1063 */
																										long BgL_arg2102z00_10877;
																										long BgL_arg2103z00_10878;

																										{	/* Llib/date.scm 1063 */
																											obj_t BgL_tmpz00_12128;

																											BgL_tmpz00_12128 =
																												((obj_t)
																												BgL_iportz00_10865);
																											BgL_arg2102z00_10877 =
																												RGC_BUFFER_FORWARD
																												(BgL_tmpz00_12128);
																										}
																										{	/* Llib/date.scm 1063 */
																											obj_t BgL_tmpz00_12131;

																											BgL_tmpz00_12131 =
																												((obj_t)
																												BgL_iportz00_10865);
																											BgL_arg2103z00_10878 =
																												RGC_BUFFER_BUFPOS
																												(BgL_tmpz00_12131);
																										}
																										{
																											long BgL_bufposz00_12135;
																											long BgL_forwardz00_12134;

																											BgL_forwardz00_12134 =
																												BgL_arg2102z00_10877;
																											BgL_bufposz00_12135 =
																												BgL_arg2103z00_10878;
																											BgL_bufposz00_10876 =
																												BgL_bufposz00_12135;
																											BgL_forwardz00_10875 =
																												BgL_forwardz00_12134;
																											goto
																												BgL_statezd28zd21192z00_10874;
																										}
																									}
																								else
																									{	/* Llib/date.scm 1063 */
																										BgL_matchz00_10769 =
																											BgL_newzd2matchzd2_10869;
																									}
																							}
																						else
																							{	/* Llib/date.scm 1063 */
																								int BgL_curz00_10879;

																								{	/* Llib/date.scm 1063 */
																									obj_t BgL_tmpz00_12136;

																									BgL_tmpz00_12136 =
																										((obj_t)
																										BgL_iportz00_10865);
																									BgL_curz00_10879 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_tmpz00_12136,
																										BgL_forwardz00_10875);
																								}
																								{	/* Llib/date.scm 1063 */

																									if (
																										((long) (BgL_curz00_10879)
																											== 58L))
																										{	/* Llib/date.scm 1063 */
																											BgL_iportz00_10911 =
																												BgL_iportz00_10865;
																											BgL_lastzd2matchzd2_10912
																												=
																												BgL_newzd2matchzd2_10869;
																											BgL_forwardz00_10913 =
																												(1L +
																												BgL_forwardz00_10875);
																											BgL_bufposz00_10914 =
																												BgL_bufposz00_10876;
																										BgL_statezd215zd21199z00_10763:
																											if (
																												(BgL_forwardz00_10913 ==
																													BgL_bufposz00_10914))
																												{	/* Llib/date.scm 1063 */
																													if (rgc_fill_buffer(
																															((obj_t)
																																BgL_iportz00_10911)))
																														{	/* Llib/date.scm 1063 */
																															long
																																BgL_arg2094z00_10915;
																															long
																																BgL_arg2095z00_10916;
																															{	/* Llib/date.scm 1063 */
																																obj_t
																																	BgL_tmpz00_12147;
																																BgL_tmpz00_12147
																																	=
																																	((obj_t)
																																	BgL_iportz00_10911);
																																BgL_arg2094z00_10915
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_tmpz00_12147);
																															}
																															{	/* Llib/date.scm 1063 */
																																obj_t
																																	BgL_tmpz00_12150;
																																BgL_tmpz00_12150
																																	=
																																	((obj_t)
																																	BgL_iportz00_10911);
																																BgL_arg2095z00_10916
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_tmpz00_12150);
																															}
																															{
																																long
																																	BgL_bufposz00_12154;
																																long
																																	BgL_forwardz00_12153;
																																BgL_forwardz00_12153
																																	=
																																	BgL_arg2094z00_10915;
																																BgL_bufposz00_12154
																																	=
																																	BgL_arg2095z00_10916;
																																BgL_bufposz00_10914
																																	=
																																	BgL_bufposz00_12154;
																																BgL_forwardz00_10913
																																	=
																																	BgL_forwardz00_12153;
																																goto
																																	BgL_statezd215zd21199z00_10763;
																															}
																														}
																													else
																														{	/* Llib/date.scm 1063 */
																															BgL_matchz00_10769
																																=
																																BgL_lastzd2matchzd2_10912;
																														}
																												}
																											else
																												{	/* Llib/date.scm 1063 */
																													int BgL_curz00_10917;

																													{	/* Llib/date.scm 1063 */
																														obj_t
																															BgL_tmpz00_12155;
																														BgL_tmpz00_12155 =
																															((obj_t)
																															BgL_iportz00_10911);
																														BgL_curz00_10917 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_tmpz00_12155,
																															BgL_forwardz00_10913);
																													}
																													{	/* Llib/date.scm 1063 */

																														{	/* Llib/date.scm 1063 */
																															bool_t
																																BgL_test5372z00_12158;
																															if (((long)
																																	(BgL_curz00_10917)
																																	>= 48L))
																																{	/* Llib/date.scm 1063 */
																																	BgL_test5372z00_12158
																																		=
																																		((long)
																																		(BgL_curz00_10917)
																																		< 58L);
																																}
																															else
																																{	/* Llib/date.scm 1063 */
																																	BgL_test5372z00_12158
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test5372z00_12158)
																																{	/* Llib/date.scm 1063 */
																																	BgL_iportz00_10950
																																		=
																																		BgL_iportz00_10911;
																																	BgL_lastzd2matchzd2_10951
																																		=
																																		BgL_lastzd2matchzd2_10912;
																																	BgL_forwardz00_10952
																																		=
																																		(1L +
																																		BgL_forwardz00_10913);
																																	BgL_bufposz00_10953
																																		=
																																		BgL_bufposz00_10914;
																																BgL_statezd216zd21200z00_10768:
																																	if (
																																		(BgL_forwardz00_10952
																																			==
																																			BgL_bufposz00_10953))
																																		{	/* Llib/date.scm 1063 */
																																			if (rgc_fill_buffer(((obj_t) BgL_iportz00_10950)))
																																				{	/* Llib/date.scm 1063 */
																																					long
																																						BgL_arg2049z00_10954;
																																					long
																																						BgL_arg2050z00_10955;
																																					{	/* Llib/date.scm 1063 */
																																						obj_t
																																							BgL_tmpz00_12169;
																																						BgL_tmpz00_12169
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_10950);
																																						BgL_arg2049z00_10954
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_tmpz00_12169);
																																					}
																																					{	/* Llib/date.scm 1063 */
																																						obj_t
																																							BgL_tmpz00_12172;
																																						BgL_tmpz00_12172
																																							=
																																							(
																																							(obj_t)
																																							BgL_iportz00_10950);
																																						BgL_arg2050z00_10955
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_tmpz00_12172);
																																					}
																																					{
																																						long
																																							BgL_bufposz00_12176;
																																						long
																																							BgL_forwardz00_12175;
																																						BgL_forwardz00_12175
																																							=
																																							BgL_arg2049z00_10954;
																																						BgL_bufposz00_12176
																																							=
																																							BgL_arg2050z00_10955;
																																						BgL_bufposz00_10953
																																							=
																																							BgL_bufposz00_12176;
																																						BgL_forwardz00_10952
																																							=
																																							BgL_forwardz00_12175;
																																						goto
																																							BgL_statezd216zd21200z00_10768;
																																					}
																																				}
																																			else
																																				{	/* Llib/date.scm 1063 */
																																					BgL_matchz00_10769
																																						=
																																						BgL_lastzd2matchzd2_10951;
																																				}
																																		}
																																	else
																																		{	/* Llib/date.scm 1063 */
																																			int
																																				BgL_curz00_10956;
																																			{	/* Llib/date.scm 1063 */
																																				obj_t
																																					BgL_tmpz00_12177;
																																				BgL_tmpz00_12177
																																					=
																																					(
																																					(obj_t)
																																					BgL_iportz00_10950);
																																				BgL_curz00_10956
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_tmpz00_12177,
																																					BgL_forwardz00_10952);
																																			}
																																			{	/* Llib/date.scm 1063 */

																																				{	/* Llib/date.scm 1063 */
																																					bool_t
																																						BgL_test5376z00_12180;
																																					if ((
																																							(long)
																																							(BgL_curz00_10956)
																																							>=
																																							48L))
																																						{	/* Llib/date.scm 1063 */
																																							BgL_test5376z00_12180
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_10956)
																																								<
																																								58L);
																																						}
																																					else
																																						{	/* Llib/date.scm 1063 */
																																							BgL_test5376z00_12180
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test5376z00_12180)
																																						{	/* Llib/date.scm 1063 */
																																							BgL_iportz00_10848
																																								=
																																								BgL_iportz00_10950;
																																							BgL_lastzd2matchzd2_10849
																																								=
																																								BgL_lastzd2matchzd2_10951;
																																							BgL_forwardz00_10850
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_10952);
																																							BgL_bufposz00_10851
																																								=
																																								BgL_bufposz00_10953;
																																						BgL_statezd217zd21201z00_10756:
																																							{	/* Llib/date.scm 1063 */
																																								long
																																									BgL_newzd2matchzd2_10852;
																																								{	/* Llib/date.scm 1063 */
																																									obj_t
																																										BgL_tmpz00_12186;
																																									BgL_tmpz00_12186
																																										=
																																										(
																																										(obj_t)
																																										BgL_iportz00_10848);
																																									RGC_STOP_MATCH
																																										(BgL_tmpz00_12186,
																																										BgL_forwardz00_10850);
																																								}
																																								BgL_newzd2matchzd2_10852
																																									=
																																									2L;
																																								if ((BgL_forwardz00_10850 == BgL_bufposz00_10851))
																																									{	/* Llib/date.scm 1063 */
																																										if (rgc_fill_buffer(((obj_t) BgL_iportz00_10848)))
																																											{	/* Llib/date.scm 1063 */
																																												long
																																													BgL_arg2167z00_10853;
																																												long
																																													BgL_arg2168z00_10854;
																																												{	/* Llib/date.scm 1063 */
																																													obj_t
																																														BgL_tmpz00_12194;
																																													BgL_tmpz00_12194
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_10848);
																																													BgL_arg2167z00_10853
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_tmpz00_12194);
																																												}
																																												{	/* Llib/date.scm 1063 */
																																													obj_t
																																														BgL_tmpz00_12197;
																																													BgL_tmpz00_12197
																																														=
																																														(
																																														(obj_t)
																																														BgL_iportz00_10848);
																																													BgL_arg2168z00_10854
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_tmpz00_12197);
																																												}
																																												{
																																													long
																																														BgL_bufposz00_12201;
																																													long
																																														BgL_forwardz00_12200;
																																													BgL_forwardz00_12200
																																														=
																																														BgL_arg2167z00_10853;
																																													BgL_bufposz00_12201
																																														=
																																														BgL_arg2168z00_10854;
																																													BgL_bufposz00_10851
																																														=
																																														BgL_bufposz00_12201;
																																													BgL_forwardz00_10850
																																														=
																																														BgL_forwardz00_12200;
																																													goto
																																														BgL_statezd217zd21201z00_10756;
																																												}
																																											}
																																										else
																																											{	/* Llib/date.scm 1063 */
																																												BgL_matchz00_10769
																																													=
																																													BgL_newzd2matchzd2_10852;
																																											}
																																									}
																																								else
																																									{	/* Llib/date.scm 1063 */
																																										int
																																											BgL_curz00_10855;
																																										{	/* Llib/date.scm 1063 */
																																											obj_t
																																												BgL_tmpz00_12202;
																																											BgL_tmpz00_12202
																																												=
																																												(
																																												(obj_t)
																																												BgL_iportz00_10848);
																																											BgL_curz00_10855
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_tmpz00_12202,
																																												BgL_forwardz00_10850);
																																										}
																																										{	/* Llib/date.scm 1063 */

																																											if (((long) (BgL_curz00_10855) == 58L))
																																												{	/* Llib/date.scm 1063 */
																																													BgL_iportz00_10841
																																														=
																																														BgL_iportz00_10848;
																																													BgL_lastzd2matchzd2_10842
																																														=
																																														BgL_newzd2matchzd2_10852;
																																													BgL_forwardz00_10843
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_10850);
																																													BgL_bufposz00_10844
																																														=
																																														BgL_bufposz00_10851;
																																												BgL_statezd218zd21202z00_10755:
																																													if ((BgL_forwardz00_10843 == BgL_bufposz00_10844))
																																														{	/* Llib/date.scm 1063 */
																																															if (rgc_fill_buffer(((obj_t) BgL_iportz00_10841)))
																																																{	/* Llib/date.scm 1063 */
																																																	long
																																																		BgL_arg2174z00_10845;
																																																	long
																																																		BgL_arg2175z00_10846;
																																																	{	/* Llib/date.scm 1063 */
																																																		obj_t
																																																			BgL_tmpz00_12213;
																																																		BgL_tmpz00_12213
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_10841);
																																																		BgL_arg2174z00_10845
																																																			=
																																																			RGC_BUFFER_FORWARD
																																																			(BgL_tmpz00_12213);
																																																	}
																																																	{	/* Llib/date.scm 1063 */
																																																		obj_t
																																																			BgL_tmpz00_12216;
																																																		BgL_tmpz00_12216
																																																			=
																																																			(
																																																			(obj_t)
																																																			BgL_iportz00_10841);
																																																		BgL_arg2175z00_10846
																																																			=
																																																			RGC_BUFFER_BUFPOS
																																																			(BgL_tmpz00_12216);
																																																	}
																																																	{
																																																		long
																																																			BgL_bufposz00_12220;
																																																		long
																																																			BgL_forwardz00_12219;
																																																		BgL_forwardz00_12219
																																																			=
																																																			BgL_arg2174z00_10845;
																																																		BgL_bufposz00_12220
																																																			=
																																																			BgL_arg2175z00_10846;
																																																		BgL_bufposz00_10844
																																																			=
																																																			BgL_bufposz00_12220;
																																																		BgL_forwardz00_10843
																																																			=
																																																			BgL_forwardz00_12219;
																																																		goto
																																																			BgL_statezd218zd21202z00_10755;
																																																	}
																																																}
																																															else
																																																{	/* Llib/date.scm 1063 */
																																																	BgL_matchz00_10769
																																																		=
																																																		BgL_lastzd2matchzd2_10842;
																																																}
																																														}
																																													else
																																														{	/* Llib/date.scm 1063 */
																																															int
																																																BgL_curz00_10847;
																																															{	/* Llib/date.scm 1063 */
																																																obj_t
																																																	BgL_tmpz00_12221;
																																																BgL_tmpz00_12221
																																																	=
																																																	(
																																																	(obj_t)
																																																	BgL_iportz00_10841);
																																																BgL_curz00_10847
																																																	=
																																																	RGC_BUFFER_GET_CHAR
																																																	(BgL_tmpz00_12221,
																																																	BgL_forwardz00_10843);
																																															}
																																															{	/* Llib/date.scm 1063 */

																																																{	/* Llib/date.scm 1063 */
																																																	bool_t
																																																		BgL_test5383z00_12224;
																																																	if (((long) (BgL_curz00_10847) >= 48L))
																																																		{	/* Llib/date.scm 1063 */
																																																			BgL_test5383z00_12224
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_10847)
																																																				<
																																																				58L);
																																																		}
																																																	else
																																																		{	/* Llib/date.scm 1063 */
																																																			BgL_test5383z00_12224
																																																				=
																																																				(
																																																				(bool_t)
																																																				0);
																																																		}
																																																	if (BgL_test5383z00_12224)
																																																		{	/* Llib/date.scm 1063 */
																																																			BgL_iportz00_10832
																																																				=
																																																				BgL_iportz00_10841;
																																																			BgL_lastzd2matchzd2_10833
																																																				=
																																																				BgL_lastzd2matchzd2_10842;
																																																			BgL_forwardz00_10834
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_10843);
																																																			BgL_bufposz00_10835
																																																				=
																																																				BgL_bufposz00_10844;
																																																		BgL_statezd219zd21203z00_10754:
																																																			if ((BgL_forwardz00_10834 == BgL_bufposz00_10835))
																																																				{	/* Llib/date.scm 1063 */
																																																					if (rgc_fill_buffer(((obj_t) BgL_iportz00_10832)))
																																																						{	/* Llib/date.scm 1063 */
																																																							long
																																																								BgL_arg2182z00_10836;
																																																							long
																																																								BgL_arg2184z00_10837;
																																																							{	/* Llib/date.scm 1063 */
																																																								obj_t
																																																									BgL_tmpz00_12235;
																																																								BgL_tmpz00_12235
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_10832);
																																																								BgL_arg2182z00_10836
																																																									=
																																																									RGC_BUFFER_FORWARD
																																																									(BgL_tmpz00_12235);
																																																							}
																																																							{	/* Llib/date.scm 1063 */
																																																								obj_t
																																																									BgL_tmpz00_12238;
																																																								BgL_tmpz00_12238
																																																									=
																																																									(
																																																									(obj_t)
																																																									BgL_iportz00_10832);
																																																								BgL_arg2184z00_10837
																																																									=
																																																									RGC_BUFFER_BUFPOS
																																																									(BgL_tmpz00_12238);
																																																							}
																																																							{
																																																								long
																																																									BgL_bufposz00_12242;
																																																								long
																																																									BgL_forwardz00_12241;
																																																								BgL_forwardz00_12241
																																																									=
																																																									BgL_arg2182z00_10836;
																																																								BgL_bufposz00_12242
																																																									=
																																																									BgL_arg2184z00_10837;
																																																								BgL_bufposz00_10835
																																																									=
																																																									BgL_bufposz00_12242;
																																																								BgL_forwardz00_10834
																																																									=
																																																									BgL_forwardz00_12241;
																																																								goto
																																																									BgL_statezd219zd21203z00_10754;
																																																							}
																																																						}
																																																					else
																																																						{	/* Llib/date.scm 1063 */
																																																							BgL_matchz00_10769
																																																								=
																																																								BgL_lastzd2matchzd2_10833;
																																																						}
																																																				}
																																																			else
																																																				{	/* Llib/date.scm 1063 */
																																																					int
																																																						BgL_curz00_10838;
																																																					{	/* Llib/date.scm 1063 */
																																																						obj_t
																																																							BgL_tmpz00_12243;
																																																						BgL_tmpz00_12243
																																																							=
																																																							(
																																																							(obj_t)
																																																							BgL_iportz00_10832);
																																																						BgL_curz00_10838
																																																							=
																																																							RGC_BUFFER_GET_CHAR
																																																							(BgL_tmpz00_12243,
																																																							BgL_forwardz00_10834);
																																																					}
																																																					{	/* Llib/date.scm 1063 */

																																																						{	/* Llib/date.scm 1063 */
																																																							bool_t
																																																								BgL_test5387z00_12246;
																																																							if (((long) (BgL_curz00_10838) >= 48L))
																																																								{	/* Llib/date.scm 1063 */
																																																									BgL_test5387z00_12246
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_10838)
																																																										<
																																																										58L);
																																																								}
																																																							else
																																																								{	/* Llib/date.scm 1063 */
																																																									BgL_test5387z00_12246
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test5387z00_12246)
																																																								{	/* Llib/date.scm 1063 */
																																																									long
																																																										BgL_arg2187z00_10839;
																																																									BgL_arg2187z00_10839
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_10834);
																																																									{	/* Llib/date.scm 1063 */
																																																										long
																																																											BgL_newzd2matchzd2_10840;
																																																										{	/* Llib/date.scm 1063 */
																																																											obj_t
																																																												BgL_tmpz00_12253;
																																																											BgL_tmpz00_12253
																																																												=
																																																												(
																																																												(obj_t)
																																																												BgL_iportz00_10832);
																																																											RGC_STOP_MATCH
																																																												(BgL_tmpz00_12253,
																																																												BgL_arg2187z00_10839);
																																																										}
																																																										BgL_newzd2matchzd2_10840
																																																											=
																																																											3L;
																																																										BgL_matchz00_10769
																																																											=
																																																											BgL_newzd2matchzd2_10840;
																																																								}}
																																																							else
																																																								{	/* Llib/date.scm 1063 */
																																																									BgL_matchz00_10769
																																																										=
																																																										BgL_lastzd2matchzd2_10833;
																																																								}
																																																						}
																																																					}
																																																				}
																																																		}
																																																	else
																																																		{	/* Llib/date.scm 1063 */
																																																			BgL_matchz00_10769
																																																				=
																																																				BgL_lastzd2matchzd2_10842;
																																																		}
																																																}
																																															}
																																														}
																																												}
																																											else
																																												{	/* Llib/date.scm 1063 */
																																													BgL_matchz00_10769
																																														=
																																														BgL_newzd2matchzd2_10852;
																																												}
																																										}
																																									}
																																							}
																																						}
																																					else
																																						{	/* Llib/date.scm 1063 */
																																							BgL_matchz00_10769
																																								=
																																								BgL_lastzd2matchzd2_10951;
																																						}
																																				}
																																			}
																																		}
																																}
																															else
																																{	/* Llib/date.scm 1063 */
																																	BgL_matchz00_10769
																																		=
																																		BgL_lastzd2matchzd2_10912;
																																}
																														}
																													}
																												}
																										}
																									else
																										{	/* Llib/date.scm 1063 */
																											BgL_matchz00_10769 =
																												BgL_newzd2matchzd2_10869;
																										}
																								}
																							}
																					}
																				}
																			else
																				{	/* Llib/date.scm 1063 */
																					BgL_matchz00_10769 =
																						BgL_newzd2matchzd2_10869;
																				}
																		}
																}
															}
													}
												}
											else
												{	/* Llib/date.scm 1063 */
													bool_t BgL_test5389z00_12262;

													{	/* Llib/date.scm 1063 */
														bool_t BgL_test5390z00_12263;

														if (((long) (BgL_curz00_10862) == 10L))
															{	/* Llib/date.scm 1063 */
																BgL_test5390z00_12263 = ((bool_t) 1);
															}
														else
															{	/* Llib/date.scm 1063 */
																BgL_test5390z00_12263 =
																	((long) (BgL_curz00_10862) == 9L);
															}
														if (BgL_test5390z00_12263)
															{	/* Llib/date.scm 1063 */
																BgL_test5389z00_12262 = ((bool_t) 1);
															}
														else
															{	/* Llib/date.scm 1063 */
																if (((long) (BgL_curz00_10862) == 13L))
																	{	/* Llib/date.scm 1063 */
																		BgL_test5389z00_12262 = ((bool_t) 1);
																	}
																else
																	{	/* Llib/date.scm 1063 */
																		BgL_test5389z00_12262 =
																			((long) (BgL_curz00_10862) == 32L);
													}}}
													if (BgL_test5389z00_12262)
														{	/* Llib/date.scm 1063 */
															BgL_iportz00_10942 = BgL_iportz00_10856;
															BgL_lastzd2matchzd2_10943 =
																BgL_lastzd2matchzd2_10857;
															BgL_forwardz00_10944 =
																(1L + BgL_forwardz00_10858);
															BgL_bufposz00_10945 = BgL_bufposz00_10859;
														BgL_statezd22zd21186z00_10767:
															{	/* Llib/date.scm 1063 */
																long BgL_newzd2matchzd2_10946;

																{	/* Llib/date.scm 1063 */
																	obj_t BgL_tmpz00_12274;

																	BgL_tmpz00_12274 =
																		((obj_t) BgL_iportz00_10942);
																	RGC_STOP_MATCH(BgL_tmpz00_12274,
																		BgL_forwardz00_10944);
																}
																BgL_newzd2matchzd2_10946 = 0L;
																if (
																	(BgL_forwardz00_10944 == BgL_bufposz00_10945))
																	{	/* Llib/date.scm 1063 */
																		if (rgc_fill_buffer(
																				((obj_t) BgL_iportz00_10942)))
																			{	/* Llib/date.scm 1063 */
																				long BgL_arg2058z00_10947;
																				long BgL_arg2059z00_10948;

																				{	/* Llib/date.scm 1063 */
																					obj_t BgL_tmpz00_12282;

																					BgL_tmpz00_12282 =
																						((obj_t) BgL_iportz00_10942);
																					BgL_arg2058z00_10947 =
																						RGC_BUFFER_FORWARD
																						(BgL_tmpz00_12282);
																				}
																				{	/* Llib/date.scm 1063 */
																					obj_t BgL_tmpz00_12285;

																					BgL_tmpz00_12285 =
																						((obj_t) BgL_iportz00_10942);
																					BgL_arg2059z00_10948 =
																						RGC_BUFFER_BUFPOS(BgL_tmpz00_12285);
																				}
																				{
																					long BgL_bufposz00_12289;
																					long BgL_forwardz00_12288;

																					BgL_forwardz00_12288 =
																						BgL_arg2058z00_10947;
																					BgL_bufposz00_12289 =
																						BgL_arg2059z00_10948;
																					BgL_bufposz00_10945 =
																						BgL_bufposz00_12289;
																					BgL_forwardz00_10944 =
																						BgL_forwardz00_12288;
																					goto BgL_statezd22zd21186z00_10767;
																				}
																			}
																		else
																			{	/* Llib/date.scm 1063 */
																				BgL_matchz00_10769 =
																					BgL_newzd2matchzd2_10946;
																			}
																	}
																else
																	{	/* Llib/date.scm 1063 */
																		int BgL_curz00_10949;

																		{	/* Llib/date.scm 1063 */
																			obj_t BgL_tmpz00_12290;

																			BgL_tmpz00_12290 =
																				((obj_t) BgL_iportz00_10942);
																			BgL_curz00_10949 =
																				RGC_BUFFER_GET_CHAR(BgL_tmpz00_12290,
																				BgL_forwardz00_10944);
																		}
																		{	/* Llib/date.scm 1063 */

																			{	/* Llib/date.scm 1063 */
																				bool_t BgL_test5395z00_12293;

																				{	/* Llib/date.scm 1063 */
																					bool_t BgL_test5396z00_12294;

																					if (
																						((long) (BgL_curz00_10949) == 10L))
																						{	/* Llib/date.scm 1063 */
																							BgL_test5396z00_12294 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Llib/date.scm 1063 */
																							BgL_test5396z00_12294 =
																								(
																								(long) (BgL_curz00_10949) ==
																								9L);
																						}
																					if (BgL_test5396z00_12294)
																						{	/* Llib/date.scm 1063 */
																							BgL_test5395z00_12293 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Llib/date.scm 1063 */
																							if (
																								((long) (BgL_curz00_10949) ==
																									13L))
																								{	/* Llib/date.scm 1063 */
																									BgL_test5395z00_12293 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Llib/date.scm 1063 */
																									BgL_test5395z00_12293 =
																										(
																										(long) (BgL_curz00_10949) ==
																										32L);
																				}}}
																				if (BgL_test5395z00_12293)
																					{	/* Llib/date.scm 1063 */
																						BgL_iportz00_10824 =
																							BgL_iportz00_10942;
																						BgL_lastzd2matchzd2_10825 =
																							BgL_newzd2matchzd2_10946;
																						BgL_forwardz00_10826 =
																							(1L + BgL_forwardz00_10944);
																						BgL_bufposz00_10827 =
																							BgL_bufposz00_10945;
																					BgL_statezd221zd21205z00_10753:
																						{	/* Llib/date.scm 1063 */
																							long BgL_newzd2matchzd2_10828;

																							{	/* Llib/date.scm 1063 */
																								obj_t BgL_tmpz00_12305;

																								BgL_tmpz00_12305 =
																									((obj_t) BgL_iportz00_10824);
																								RGC_STOP_MATCH(BgL_tmpz00_12305,
																									BgL_forwardz00_10826);
																							}
																							BgL_newzd2matchzd2_10828 = 0L;
																							if (
																								(BgL_forwardz00_10826 ==
																									BgL_bufposz00_10827))
																								{	/* Llib/date.scm 1063 */
																									if (rgc_fill_buffer(
																											((obj_t)
																												BgL_iportz00_10824)))
																										{	/* Llib/date.scm 1063 */
																											long BgL_arg2192z00_10829;
																											long BgL_arg2193z00_10830;

																											{	/* Llib/date.scm 1063 */
																												obj_t BgL_tmpz00_12313;

																												BgL_tmpz00_12313 =
																													((obj_t)
																													BgL_iportz00_10824);
																												BgL_arg2192z00_10829 =
																													RGC_BUFFER_FORWARD
																													(BgL_tmpz00_12313);
																											}
																											{	/* Llib/date.scm 1063 */
																												obj_t BgL_tmpz00_12316;

																												BgL_tmpz00_12316 =
																													((obj_t)
																													BgL_iportz00_10824);
																												BgL_arg2193z00_10830 =
																													RGC_BUFFER_BUFPOS
																													(BgL_tmpz00_12316);
																											}
																											{
																												long
																													BgL_bufposz00_12320;
																												long
																													BgL_forwardz00_12319;
																												BgL_forwardz00_12319 =
																													BgL_arg2192z00_10829;
																												BgL_bufposz00_12320 =
																													BgL_arg2193z00_10830;
																												BgL_bufposz00_10827 =
																													BgL_bufposz00_12320;
																												BgL_forwardz00_10826 =
																													BgL_forwardz00_12319;
																												goto
																													BgL_statezd221zd21205z00_10753;
																											}
																										}
																									else
																										{	/* Llib/date.scm 1063 */
																											BgL_matchz00_10769 =
																												BgL_newzd2matchzd2_10828;
																										}
																								}
																							else
																								{	/* Llib/date.scm 1063 */
																									int BgL_curz00_10831;

																									{	/* Llib/date.scm 1063 */
																										obj_t BgL_tmpz00_12321;

																										BgL_tmpz00_12321 =
																											((obj_t)
																											BgL_iportz00_10824);
																										BgL_curz00_10831 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_tmpz00_12321,
																											BgL_forwardz00_10826);
																									}
																									{	/* Llib/date.scm 1063 */

																										{	/* Llib/date.scm 1063 */
																											bool_t
																												BgL_test5401z00_12324;
																											{	/* Llib/date.scm 1063 */
																												bool_t
																													BgL_test5402z00_12325;
																												if (((long)
																														(BgL_curz00_10831)
																														== 10L))
																													{	/* Llib/date.scm 1063 */
																														BgL_test5402z00_12325
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Llib/date.scm 1063 */
																														BgL_test5402z00_12325
																															=
																															((long)
																															(BgL_curz00_10831)
																															== 9L);
																													}
																												if (BgL_test5402z00_12325)
																													{	/* Llib/date.scm 1063 */
																														BgL_test5401z00_12324
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Llib/date.scm 1063 */
																														if (
																															((long)
																																(BgL_curz00_10831)
																																== 13L))
																															{	/* Llib/date.scm 1063 */
																																BgL_test5401z00_12324
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Llib/date.scm 1063 */
																																BgL_test5401z00_12324
																																	=
																																	((long)
																																	(BgL_curz00_10831)
																																	== 32L);
																											}}}
																											if (BgL_test5401z00_12324)
																												{
																													long
																														BgL_forwardz00_12337;
																													long
																														BgL_lastzd2matchzd2_12336;
																													BgL_lastzd2matchzd2_12336
																														=
																														BgL_newzd2matchzd2_10828;
																													BgL_forwardz00_12337 =
																														(1L +
																														BgL_forwardz00_10826);
																													BgL_forwardz00_10826 =
																														BgL_forwardz00_12337;
																													BgL_lastzd2matchzd2_10825
																														=
																														BgL_lastzd2matchzd2_12336;
																													goto
																														BgL_statezd221zd21205z00_10753;
																												}
																											else
																												{	/* Llib/date.scm 1063 */
																													BgL_matchz00_10769 =
																														BgL_newzd2matchzd2_10828;
																												}
																										}
																									}
																								}
																						}
																					}
																				else
																					{	/* Llib/date.scm 1063 */
																						BgL_matchz00_10769 =
																							BgL_newzd2matchzd2_10946;
																					}
																			}
																		}
																	}
															}
														}
													else
														{	/* Llib/date.scm 1063 */
															long BgL_arg2163z00_10863;

															BgL_arg2163z00_10863 =
																(1L + BgL_forwardz00_10858);
															{	/* Llib/date.scm 1063 */
																long BgL_newzd2matchzd2_10864;

																{	/* Llib/date.scm 1063 */
																	obj_t BgL_tmpz00_12342;

																	BgL_tmpz00_12342 =
																		((obj_t) BgL_iportz00_10856);
																	RGC_STOP_MATCH(BgL_tmpz00_12342,
																		BgL_arg2163z00_10863);
																}
																BgL_newzd2matchzd2_10864 = 6L;
																BgL_matchz00_10769 = BgL_newzd2matchzd2_10864;
					}}}}}}}
					{	/* Llib/date.scm 1063 */
						obj_t BgL_tmpz00_12345;

						BgL_tmpz00_12345 = ((obj_t) BgL_iportz00_10189);
						RGC_SET_FILEPOS(BgL_tmpz00_12345);
					}
					switch (BgL_matchz00_10769)
						{
						case 6L:

							{	/* Llib/date.scm 1098 */
								obj_t BgL_arg2288z00_10772;

								{	/* Llib/date.scm 1063 */
									bool_t BgL_test5405z00_12348;

									{	/* Llib/date.scm 1063 */
										long BgL_arg2281z00_10823;

										{	/* Llib/date.scm 1063 */
											obj_t BgL_tmpz00_12349;

											BgL_tmpz00_12349 = ((obj_t) BgL_iportz00_10189);
											BgL_arg2281z00_10823 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_12349);
										}
										BgL_test5405z00_12348 = (BgL_arg2281z00_10823 == 0L);
									}
									if (BgL_test5405z00_12348)
										{	/* Llib/date.scm 1063 */
											BgL_arg2288z00_10772 = BEOF;
										}
									else
										{	/* Llib/date.scm 1063 */
											unsigned char BgL_tmpz00_12353;

											{	/* Llib/date.scm 1063 */
												obj_t BgL_tmpz00_12354;

												BgL_tmpz00_12354 = ((obj_t) BgL_iportz00_10189);
												BgL_tmpz00_12353 =
													RGC_BUFFER_CHARACTER(BgL_tmpz00_12354);
											}
											BgL_arg2288z00_10772 = BCHAR(BgL_tmpz00_12353);
								}}
								return
									BGl_parsezd2errorzd2zz__datez00(BGl_string4939z00zz__datez00,
									BGl_string4943z00zz__datez00, BgL_arg2288z00_10772,
									((obj_t) BgL_iportz00_10189));
							}
							break;
						case 5L:

							{	/* Llib/date.scm 1093 */
								long BgL_b1z00_10773;
								long BgL_b2z00_10774;

								{	/* Llib/date.scm 1093 */
									int BgL_arg2292z00_10775;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12362;
										obj_t BgL_tmpz00_12360;

										BgL_auxz00_12362 = (int) (0L);
										BgL_tmpz00_12360 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2292z00_10775 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12360, BgL_auxz00_12362);
									}
									BgL_b1z00_10773 = ((long) (BgL_arg2292z00_10775) - 48L);
								}
								{	/* Llib/date.scm 1094 */
									int BgL_arg2294z00_10776;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12369;
										obj_t BgL_tmpz00_12367;

										BgL_auxz00_12369 = (int) (2L);
										BgL_tmpz00_12367 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2294z00_10776 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12367, BgL_auxz00_12369);
									}
									BgL_b2z00_10774 = ((long) (BgL_arg2294z00_10776) - 48L);
								}
								{	/* Llib/date.scm 1095 */
									obj_t BgL_val0_1280z00_10777;
									long BgL_val2_1282z00_10778;

									BgL_val0_1280z00_10777 = BINT(0L);
									BgL_val2_1282z00_10778 =
										((BgL_b1z00_10773 * 10L) + BgL_b2z00_10774);
									{	/* Llib/date.scm 1095 */
										int BgL_tmpz00_12377;

										BgL_tmpz00_12377 = (int) (3L);
										BGL_MVALUES_NUMBER_SET(BgL_tmpz00_12377);
									}
									{	/* Llib/date.scm 1095 */
										obj_t BgL_auxz00_12382;
										int BgL_tmpz00_12380;

										BgL_auxz00_12382 = BINT(0L);
										BgL_tmpz00_12380 = (int) (1L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_12380, BgL_auxz00_12382);
									}
									{	/* Llib/date.scm 1095 */
										obj_t BgL_auxz00_12387;
										int BgL_tmpz00_12385;

										BgL_auxz00_12387 = BINT(BgL_val2_1282z00_10778);
										BgL_tmpz00_12385 = (int) (2L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_12385, BgL_auxz00_12387);
									}
									return BgL_val0_1280z00_10777;
								}
							}
							break;
						case 4L:

							{	/* Llib/date.scm 1086 */
								long BgL_b1z00_10779;
								long BgL_b3z00_10780;
								long BgL_b4z00_10781;
								long BgL_b5z00_10782;
								long BgL_b6z00_10783;

								{	/* Llib/date.scm 1086 */
									int BgL_arg2297z00_10784;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12392;
										obj_t BgL_tmpz00_12390;

										BgL_auxz00_12392 = (int) (0L);
										BgL_tmpz00_12390 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2297z00_10784 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12390, BgL_auxz00_12392);
									}
									BgL_b1z00_10779 = ((long) (BgL_arg2297z00_10784) - 48L);
								}
								{	/* Llib/date.scm 1087 */
									int BgL_arg2299z00_10785;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12399;
										obj_t BgL_tmpz00_12397;

										BgL_auxz00_12399 = (int) (2L);
										BgL_tmpz00_12397 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2299z00_10785 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12397, BgL_auxz00_12399);
									}
									BgL_b3z00_10780 = ((long) (BgL_arg2299z00_10785) - 48L);
								}
								{	/* Llib/date.scm 1088 */
									int BgL_arg2300z00_10786;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12406;
										obj_t BgL_tmpz00_12404;

										BgL_auxz00_12406 = (int) (3L);
										BgL_tmpz00_12404 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2300z00_10786 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12404, BgL_auxz00_12406);
									}
									BgL_b4z00_10781 = ((long) (BgL_arg2300z00_10786) - 48L);
								}
								{	/* Llib/date.scm 1089 */
									int BgL_arg2301z00_10787;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12413;
										obj_t BgL_tmpz00_12411;

										BgL_auxz00_12413 = (int) (5L);
										BgL_tmpz00_12411 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2301z00_10787 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12411, BgL_auxz00_12413);
									}
									BgL_b5z00_10782 = ((long) (BgL_arg2301z00_10787) - 48L);
								}
								{	/* Llib/date.scm 1090 */
									int BgL_arg2302z00_10788;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12420;
										obj_t BgL_tmpz00_12418;

										BgL_auxz00_12420 = (int) (6L);
										BgL_tmpz00_12418 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2302z00_10788 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12418, BgL_auxz00_12420);
									}
									BgL_b6z00_10783 = ((long) (BgL_arg2302z00_10788) - 48L);
								}
								{	/* Llib/date.scm 1091 */
									long BgL_val1_1284z00_10789;
									long BgL_val2_1285z00_10790;

									BgL_val1_1284z00_10789 =
										((BgL_b3z00_10780 * 10L) + BgL_b4z00_10781);
									BgL_val2_1285z00_10790 =
										((BgL_b5z00_10782 * 10L) + BgL_b6z00_10783);
									{	/* Llib/date.scm 1091 */
										int BgL_tmpz00_12429;

										BgL_tmpz00_12429 = (int) (3L);
										BGL_MVALUES_NUMBER_SET(BgL_tmpz00_12429);
									}
									{	/* Llib/date.scm 1091 */
										obj_t BgL_auxz00_12434;
										int BgL_tmpz00_12432;

										BgL_auxz00_12434 = BINT(BgL_val1_1284z00_10789);
										BgL_tmpz00_12432 = (int) (1L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_12432, BgL_auxz00_12434);
									}
									{	/* Llib/date.scm 1091 */
										obj_t BgL_auxz00_12439;
										int BgL_tmpz00_12437;

										BgL_auxz00_12439 = BINT(BgL_val2_1285z00_10790);
										BgL_tmpz00_12437 = (int) (2L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_12437, BgL_auxz00_12439);
									}
									return BINT(BgL_b1z00_10779);
								}
							}
							break;
						case 3L:

							{	/* Llib/date.scm 1078 */
								long BgL_b1z00_10791;
								long BgL_b2z00_10792;
								long BgL_b3z00_10793;
								long BgL_b4z00_10794;
								long BgL_b5z00_10795;
								long BgL_b6z00_10796;

								{	/* Llib/date.scm 1078 */
									int BgL_arg2307z00_10797;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12445;
										obj_t BgL_tmpz00_12443;

										BgL_auxz00_12445 = (int) (0L);
										BgL_tmpz00_12443 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2307z00_10797 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12443, BgL_auxz00_12445);
									}
									BgL_b1z00_10791 = ((long) (BgL_arg2307z00_10797) - 48L);
								}
								{	/* Llib/date.scm 1079 */
									int BgL_arg2309z00_10798;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12452;
										obj_t BgL_tmpz00_12450;

										BgL_auxz00_12452 = (int) (1L);
										BgL_tmpz00_12450 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2309z00_10798 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12450, BgL_auxz00_12452);
									}
									BgL_b2z00_10792 = ((long) (BgL_arg2309z00_10798) - 48L);
								}
								{	/* Llib/date.scm 1080 */
									int BgL_arg2310z00_10799;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12459;
										obj_t BgL_tmpz00_12457;

										BgL_auxz00_12459 = (int) (3L);
										BgL_tmpz00_12457 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2310z00_10799 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12457, BgL_auxz00_12459);
									}
									BgL_b3z00_10793 = ((long) (BgL_arg2310z00_10799) - 48L);
								}
								{	/* Llib/date.scm 1081 */
									int BgL_arg2311z00_10800;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12466;
										obj_t BgL_tmpz00_12464;

										BgL_auxz00_12466 = (int) (4L);
										BgL_tmpz00_12464 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2311z00_10800 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12464, BgL_auxz00_12466);
									}
									BgL_b4z00_10794 = ((long) (BgL_arg2311z00_10800) - 48L);
								}
								{	/* Llib/date.scm 1082 */
									int BgL_arg2313z00_10801;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12473;
										obj_t BgL_tmpz00_12471;

										BgL_auxz00_12473 = (int) (6L);
										BgL_tmpz00_12471 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2313z00_10801 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12471, BgL_auxz00_12473);
									}
									BgL_b5z00_10795 = ((long) (BgL_arg2313z00_10801) - 48L);
								}
								{	/* Llib/date.scm 1083 */
									int BgL_arg2314z00_10802;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12480;
										obj_t BgL_tmpz00_12478;

										BgL_auxz00_12480 = (int) (7L);
										BgL_tmpz00_12478 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2314z00_10802 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12478, BgL_auxz00_12480);
									}
									BgL_b6z00_10796 = ((long) (BgL_arg2314z00_10802) - 48L);
								}
								{	/* Llib/date.scm 1084 */
									long BgL_val0_1286z00_10803;
									long BgL_val1_1287z00_10804;
									long BgL_val2_1288z00_10805;

									BgL_val0_1286z00_10803 =
										((BgL_b1z00_10791 * 10L) + BgL_b2z00_10792);
									BgL_val1_1287z00_10804 =
										((BgL_b3z00_10793 * 10L) + BgL_b4z00_10794);
									BgL_val2_1288z00_10805 =
										((BgL_b5z00_10795 * 10L) + BgL_b6z00_10796);
									{	/* Llib/date.scm 1084 */
										int BgL_tmpz00_12491;

										BgL_tmpz00_12491 = (int) (3L);
										BGL_MVALUES_NUMBER_SET(BgL_tmpz00_12491);
									}
									{	/* Llib/date.scm 1084 */
										obj_t BgL_auxz00_12496;
										int BgL_tmpz00_12494;

										BgL_auxz00_12496 = BINT(BgL_val1_1287z00_10804);
										BgL_tmpz00_12494 = (int) (1L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_12494, BgL_auxz00_12496);
									}
									{	/* Llib/date.scm 1084 */
										obj_t BgL_auxz00_12501;
										int BgL_tmpz00_12499;

										BgL_auxz00_12501 = BINT(BgL_val2_1288z00_10805);
										BgL_tmpz00_12499 = (int) (2L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_12499, BgL_auxz00_12501);
									}
									return BINT(BgL_val0_1286z00_10803);
								}
							}
							break;
						case 2L:

							{	/* Llib/date.scm 1072 */
								long BgL_b1z00_10806;
								long BgL_b2z00_10807;
								long BgL_b3z00_10808;
								long BgL_b4z00_10809;

								{	/* Llib/date.scm 1072 */
									int BgL_arg2319z00_10810;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12507;
										obj_t BgL_tmpz00_12505;

										BgL_auxz00_12507 = (int) (0L);
										BgL_tmpz00_12505 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2319z00_10810 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12505, BgL_auxz00_12507);
									}
									BgL_b1z00_10806 = ((long) (BgL_arg2319z00_10810) - 48L);
								}
								{	/* Llib/date.scm 1073 */
									int BgL_arg2320z00_10811;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12514;
										obj_t BgL_tmpz00_12512;

										BgL_auxz00_12514 = (int) (1L);
										BgL_tmpz00_12512 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2320z00_10811 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12512, BgL_auxz00_12514);
									}
									BgL_b2z00_10807 = ((long) (BgL_arg2320z00_10811) - 48L);
								}
								{	/* Llib/date.scm 1074 */
									int BgL_arg2322z00_10812;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12521;
										obj_t BgL_tmpz00_12519;

										BgL_auxz00_12521 = (int) (3L);
										BgL_tmpz00_12519 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2322z00_10812 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12519, BgL_auxz00_12521);
									}
									BgL_b3z00_10808 = ((long) (BgL_arg2322z00_10812) - 48L);
								}
								{	/* Llib/date.scm 1075 */
									int BgL_arg2323z00_10813;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12528;
										obj_t BgL_tmpz00_12526;

										BgL_auxz00_12528 = (int) (4L);
										BgL_tmpz00_12526 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2323z00_10813 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12526, BgL_auxz00_12528);
									}
									BgL_b4z00_10809 = ((long) (BgL_arg2323z00_10813) - 48L);
								}
								{	/* Llib/date.scm 1076 */
									long BgL_val0_1289z00_10814;
									long BgL_val1_1290z00_10815;

									BgL_val0_1289z00_10814 =
										((BgL_b1z00_10806 * 10L) + BgL_b2z00_10807);
									BgL_val1_1290z00_10815 =
										((BgL_b3z00_10808 * 10L) + BgL_b4z00_10809);
									{	/* Llib/date.scm 1076 */
										int BgL_tmpz00_12537;

										BgL_tmpz00_12537 = (int) (3L);
										BGL_MVALUES_NUMBER_SET(BgL_tmpz00_12537);
									}
									{	/* Llib/date.scm 1076 */
										obj_t BgL_auxz00_12542;
										int BgL_tmpz00_12540;

										BgL_auxz00_12542 = BINT(BgL_val1_1290z00_10815);
										BgL_tmpz00_12540 = (int) (1L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_12540, BgL_auxz00_12542);
									}
									{	/* Llib/date.scm 1076 */
										obj_t BgL_auxz00_12547;
										int BgL_tmpz00_12545;

										BgL_auxz00_12547 = BINT(0L);
										BgL_tmpz00_12545 = (int) (2L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_12545, BgL_auxz00_12547);
									}
									return BINT(BgL_val0_1289z00_10814);
								}
							}
							break;
						case 1L:

							{	/* Llib/date.scm 1067 */
								long BgL_b1z00_10816;
								long BgL_b3z00_10817;
								long BgL_b4z00_10818;

								{	/* Llib/date.scm 1067 */
									int BgL_arg2325z00_10819;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12553;
										obj_t BgL_tmpz00_12551;

										BgL_auxz00_12553 = (int) (0L);
										BgL_tmpz00_12551 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2325z00_10819 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12551, BgL_auxz00_12553);
									}
									BgL_b1z00_10816 = ((long) (BgL_arg2325z00_10819) - 48L);
								}
								{	/* Llib/date.scm 1068 */
									int BgL_arg2326z00_10820;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12560;
										obj_t BgL_tmpz00_12558;

										BgL_auxz00_12560 = (int) (2L);
										BgL_tmpz00_12558 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2326z00_10820 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12558, BgL_auxz00_12560);
									}
									BgL_b3z00_10817 = ((long) (BgL_arg2326z00_10820) - 48L);
								}
								{	/* Llib/date.scm 1069 */
									int BgL_arg2328z00_10821;

									{	/* Llib/date.scm 1063 */
										int BgL_auxz00_12567;
										obj_t BgL_tmpz00_12565;

										BgL_auxz00_12567 = (int) (3L);
										BgL_tmpz00_12565 = ((obj_t) BgL_iportz00_10189);
										BgL_arg2328z00_10821 =
											RGC_BUFFER_BYTE_REF(BgL_tmpz00_12565, BgL_auxz00_12567);
									}
									BgL_b4z00_10818 = ((long) (BgL_arg2328z00_10821) - 48L);
								}
								{	/* Llib/date.scm 1070 */
									long BgL_val1_1293z00_10822;

									BgL_val1_1293z00_10822 =
										((BgL_b3z00_10817 * 10L) + BgL_b4z00_10818);
									{	/* Llib/date.scm 1070 */
										int BgL_tmpz00_12574;

										BgL_tmpz00_12574 = (int) (3L);
										BGL_MVALUES_NUMBER_SET(BgL_tmpz00_12574);
									}
									{	/* Llib/date.scm 1070 */
										obj_t BgL_auxz00_12579;
										int BgL_tmpz00_12577;

										BgL_auxz00_12579 = BINT(BgL_val1_1293z00_10822);
										BgL_tmpz00_12577 = (int) (1L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_12577, BgL_auxz00_12579);
									}
									{	/* Llib/date.scm 1070 */
										obj_t BgL_auxz00_12584;
										int BgL_tmpz00_12582;

										BgL_auxz00_12584 = BINT(0L);
										BgL_tmpz00_12582 = (int) (2L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_12582, BgL_auxz00_12584);
									}
									return BINT(BgL_b1z00_10816);
								}
							}
							break;
						case 0L:

							goto BgL_ignorez00_10751;
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string4941z00zz__datez00,
								BGl_string4942z00zz__datez00, BINT(BgL_matchz00_10769));
						}
				}
			}
		}

	}



/* &<@anonymous:1838> */
	obj_t BGl_z62zc3z04anonymousza31838ze3ze5zz__datez00(obj_t BgL_envz00_10190,
		obj_t BgL_iportz00_10191)
	{
		{	/* Llib/date.scm 1035 */
			{
				obj_t BgL_iportz00_11005;
				long BgL_lastzd2matchzd2_11006;
				long BgL_forwardz00_11007;
				long BgL_bufposz00_11008;
				obj_t BgL_iportz00_10997;
				long BgL_lastzd2matchzd2_10998;
				long BgL_forwardz00_10999;
				long BgL_bufposz00_11000;
				obj_t BgL_iportz00_10989;
				long BgL_lastzd2matchzd2_10990;
				long BgL_forwardz00_10991;
				long BgL_bufposz00_10992;
				obj_t BgL_iportz00_10981;
				long BgL_lastzd2matchzd2_10982;
				long BgL_forwardz00_10983;
				long BgL_bufposz00_10984;
				obj_t BgL_iportz00_10972;
				long BgL_lastzd2matchzd2_10973;
				long BgL_forwardz00_10974;
				long BgL_bufposz00_10975;

			BgL_ignorez00_10957:
				{	/* Llib/date.scm 1035 */
					obj_t BgL_tmpz00_12591;

					BgL_tmpz00_12591 = ((obj_t) BgL_iportz00_10191);
					RGC_START_MATCH(BgL_tmpz00_12591);
				}
				{	/* Llib/date.scm 1035 */
					long BgL_matchz00_10964;

					{	/* Llib/date.scm 1035 */
						long BgL_arg2043z00_10965;
						long BgL_arg2044z00_10966;

						{	/* Llib/date.scm 1035 */
							obj_t BgL_tmpz00_12594;

							BgL_tmpz00_12594 = ((obj_t) BgL_iportz00_10191);
							BgL_arg2043z00_10965 = RGC_BUFFER_FORWARD(BgL_tmpz00_12594);
						}
						{	/* Llib/date.scm 1035 */
							obj_t BgL_tmpz00_12597;

							BgL_tmpz00_12597 = ((obj_t) BgL_iportz00_10191);
							BgL_arg2044z00_10966 = RGC_BUFFER_BUFPOS(BgL_tmpz00_12597);
						}
						BgL_iportz00_11005 = BgL_iportz00_10191;
						BgL_lastzd2matchzd2_11006 = 2L;
						BgL_forwardz00_11007 = BgL_arg2043z00_10965;
						BgL_bufposz00_11008 = BgL_arg2044z00_10966;
					BgL_statezd20zd21174z00_10963:
						if ((BgL_forwardz00_11007 == BgL_bufposz00_11008))
							{	/* Llib/date.scm 1035 */
								if (rgc_fill_buffer(((obj_t) BgL_iportz00_11005)))
									{	/* Llib/date.scm 1035 */
										long BgL_arg1842z00_11009;
										long BgL_arg1845z00_11010;

										{	/* Llib/date.scm 1035 */
											obj_t BgL_tmpz00_12605;

											BgL_tmpz00_12605 = ((obj_t) BgL_iportz00_11005);
											BgL_arg1842z00_11009 =
												RGC_BUFFER_FORWARD(BgL_tmpz00_12605);
										}
										{	/* Llib/date.scm 1035 */
											obj_t BgL_tmpz00_12608;

											BgL_tmpz00_12608 = ((obj_t) BgL_iportz00_11005);
											BgL_arg1845z00_11010 =
												RGC_BUFFER_BUFPOS(BgL_tmpz00_12608);
										}
										{
											long BgL_bufposz00_12612;
											long BgL_forwardz00_12611;

											BgL_forwardz00_12611 = BgL_arg1842z00_11009;
											BgL_bufposz00_12612 = BgL_arg1845z00_11010;
											BgL_bufposz00_11008 = BgL_bufposz00_12612;
											BgL_forwardz00_11007 = BgL_forwardz00_12611;
											goto BgL_statezd20zd21174z00_10963;
										}
									}
								else
									{	/* Llib/date.scm 1035 */
										BgL_matchz00_10964 = BgL_lastzd2matchzd2_11006;
									}
							}
						else
							{	/* Llib/date.scm 1035 */
								int BgL_curz00_11011;

								{	/* Llib/date.scm 1035 */
									obj_t BgL_tmpz00_12613;

									BgL_tmpz00_12613 = ((obj_t) BgL_iportz00_11005);
									BgL_curz00_11011 =
										RGC_BUFFER_GET_CHAR(BgL_tmpz00_12613, BgL_forwardz00_11007);
								}
								{	/* Llib/date.scm 1035 */

									{	/* Llib/date.scm 1035 */
										bool_t BgL_test5408z00_12616;

										if (((long) (BgL_curz00_11011) == 65L))
											{	/* Llib/date.scm 1035 */
												BgL_test5408z00_12616 = ((bool_t) 1);
											}
										else
											{	/* Llib/date.scm 1035 */
												if (((long) (BgL_curz00_11011) == 68L))
													{	/* Llib/date.scm 1035 */
														BgL_test5408z00_12616 = ((bool_t) 1);
													}
												else
													{	/* Llib/date.scm 1035 */
														if (((long) (BgL_curz00_11011) == 70L))
															{	/* Llib/date.scm 1035 */
																BgL_test5408z00_12616 = ((bool_t) 1);
															}
														else
															{	/* Llib/date.scm 1035 */
																if (((long) (BgL_curz00_11011) == 74L))
																	{	/* Llib/date.scm 1035 */
																		BgL_test5408z00_12616 = ((bool_t) 1);
																	}
																else
																	{	/* Llib/date.scm 1035 */
																		bool_t BgL_test5413z00_12629;

																		if (((long) (BgL_curz00_11011) == 79L))
																			{	/* Llib/date.scm 1035 */
																				BgL_test5413z00_12629 = ((bool_t) 1);
																			}
																		else
																			{	/* Llib/date.scm 1035 */
																				if (((long) (BgL_curz00_11011) == 78L))
																					{	/* Llib/date.scm 1035 */
																						BgL_test5413z00_12629 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Llib/date.scm 1035 */
																						BgL_test5413z00_12629 =
																							(
																							(long) (BgL_curz00_11011) == 77L);
																			}}
																		if (BgL_test5413z00_12629)
																			{	/* Llib/date.scm 1035 */
																				BgL_test5408z00_12616 = ((bool_t) 1);
																			}
																		else
																			{	/* Llib/date.scm 1035 */
																				BgL_test5408z00_12616 =
																					((long) (BgL_curz00_11011) == 83L);
											}}}}}
										if (BgL_test5408z00_12616)
											{	/* Llib/date.scm 1035 */
												BgL_iportz00_10981 = BgL_iportz00_11005;
												BgL_lastzd2matchzd2_10982 = BgL_lastzd2matchzd2_11006;
												BgL_forwardz00_10983 = (1L + BgL_forwardz00_11007);
												BgL_bufposz00_10984 = BgL_bufposz00_11008;
											BgL_statezd23zd21177z00_10960:
												{	/* Llib/date.scm 1035 */
													long BgL_newzd2matchzd2_10985;

													{	/* Llib/date.scm 1035 */
														obj_t BgL_tmpz00_12640;

														BgL_tmpz00_12640 = ((obj_t) BgL_iportz00_10981);
														RGC_STOP_MATCH(BgL_tmpz00_12640,
															BgL_forwardz00_10983);
													}
													BgL_newzd2matchzd2_10985 = 2L;
													if ((BgL_forwardz00_10983 == BgL_bufposz00_10984))
														{	/* Llib/date.scm 1035 */
															if (rgc_fill_buffer(((obj_t) BgL_iportz00_10981)))
																{	/* Llib/date.scm 1035 */
																	long BgL_arg1888z00_10986;
																	long BgL_arg1889z00_10987;

																	{	/* Llib/date.scm 1035 */
																		obj_t BgL_tmpz00_12648;

																		BgL_tmpz00_12648 =
																			((obj_t) BgL_iportz00_10981);
																		BgL_arg1888z00_10986 =
																			RGC_BUFFER_FORWARD(BgL_tmpz00_12648);
																	}
																	{	/* Llib/date.scm 1035 */
																		obj_t BgL_tmpz00_12651;

																		BgL_tmpz00_12651 =
																			((obj_t) BgL_iportz00_10981);
																		BgL_arg1889z00_10987 =
																			RGC_BUFFER_BUFPOS(BgL_tmpz00_12651);
																	}
																	{
																		long BgL_bufposz00_12655;
																		long BgL_forwardz00_12654;

																		BgL_forwardz00_12654 = BgL_arg1888z00_10986;
																		BgL_bufposz00_12655 = BgL_arg1889z00_10987;
																		BgL_bufposz00_10984 = BgL_bufposz00_12655;
																		BgL_forwardz00_10983 = BgL_forwardz00_12654;
																		goto BgL_statezd23zd21177z00_10960;
																	}
																}
															else
																{	/* Llib/date.scm 1035 */
																	BgL_matchz00_10964 = BgL_newzd2matchzd2_10985;
																}
														}
													else
														{	/* Llib/date.scm 1035 */
															int BgL_curz00_10988;

															{	/* Llib/date.scm 1035 */
																obj_t BgL_tmpz00_12656;

																BgL_tmpz00_12656 = ((obj_t) BgL_iportz00_10981);
																BgL_curz00_10988 =
																	RGC_BUFFER_GET_CHAR(BgL_tmpz00_12656,
																	BgL_forwardz00_10983);
															}
															{	/* Llib/date.scm 1035 */

																{	/* Llib/date.scm 1035 */
																	bool_t BgL_test5418z00_12659;

																	{	/* Llib/date.scm 1035 */
																		bool_t BgL_test5419z00_12660;

																		if (((long) (BgL_curz00_10988) == 99L))
																			{	/* Llib/date.scm 1035 */
																				BgL_test5419z00_12660 = ((bool_t) 1);
																			}
																		else
																			{	/* Llib/date.scm 1035 */
																				if (((long) (BgL_curz00_10988) == 98L))
																					{	/* Llib/date.scm 1035 */
																						BgL_test5419z00_12660 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Llib/date.scm 1035 */
																						BgL_test5419z00_12660 =
																							(
																							(long) (BgL_curz00_10988) == 97L);
																			}}
																		if (BgL_test5419z00_12660)
																			{	/* Llib/date.scm 1035 */
																				BgL_test5418z00_12659 = ((bool_t) 1);
																			}
																		else
																			{	/* Llib/date.scm 1035 */
																				if (((long) (BgL_curz00_10988) == 101L))
																					{	/* Llib/date.scm 1035 */
																						BgL_test5418z00_12659 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Llib/date.scm 1035 */
																						if (
																							((long) (BgL_curz00_10988) ==
																								103L))
																							{	/* Llib/date.scm 1035 */
																								BgL_test5418z00_12659 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Llib/date.scm 1035 */
																								if (
																									((long) (BgL_curz00_10988) ==
																										108L))
																									{	/* Llib/date.scm 1035 */
																										BgL_test5418z00_12659 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Llib/date.scm 1035 */
																										bool_t
																											BgL_test5425z00_12678;
																										if (((long)
																												(BgL_curz00_10988) ==
																												112L))
																											{	/* Llib/date.scm 1035 */
																												BgL_test5425z00_12678 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Llib/date.scm 1035 */
																												if (
																													((long)
																														(BgL_curz00_10988)
																														== 111L))
																													{	/* Llib/date.scm 1035 */
																														BgL_test5425z00_12678
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Llib/date.scm 1035 */
																														BgL_test5425z00_12678
																															=
																															((long)
																															(BgL_curz00_10988)
																															== 110L);
																											}}
																										if (BgL_test5425z00_12678)
																											{	/* Llib/date.scm 1035 */
																												BgL_test5418z00_12659 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Llib/date.scm 1035 */
																												if (
																													((long)
																														(BgL_curz00_10988)
																														== 114L))
																													{	/* Llib/date.scm 1035 */
																														BgL_test5418z00_12659
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Llib/date.scm 1035 */
																														bool_t
																															BgL_test5429z00_12690;
																														if (((long)
																																(BgL_curz00_10988)
																																== 118L))
																															{	/* Llib/date.scm 1035 */
																																BgL_test5429z00_12690
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Llib/date.scm 1035 */
																																if (
																																	((long)
																																		(BgL_curz00_10988)
																																		== 117L))
																																	{	/* Llib/date.scm 1035 */
																																		BgL_test5429z00_12690
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Llib/date.scm 1035 */
																																		BgL_test5429z00_12690
																																			=
																																			((long)
																																			(BgL_curz00_10988)
																																			== 116L);
																															}}
																														if (BgL_test5429z00_12690)
																															{	/* Llib/date.scm 1035 */
																																BgL_test5418z00_12659
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Llib/date.scm 1035 */
																																BgL_test5418z00_12659
																																	=
																																	((long)
																																	(BgL_curz00_10988)
																																	== 121L);
																	}}}}}}}}
																	if (BgL_test5418z00_12659)
																		{	/* Llib/date.scm 1035 */
																			BgL_iportz00_10972 = BgL_iportz00_10981;
																			BgL_lastzd2matchzd2_10973 =
																				BgL_newzd2matchzd2_10985;
																			BgL_forwardz00_10974 =
																				(1L + BgL_forwardz00_10983);
																			BgL_bufposz00_10975 = BgL_bufposz00_10984;
																		BgL_statezd24zd21178z00_10959:
																			if (
																				(BgL_forwardz00_10974 ==
																					BgL_bufposz00_10975))
																				{	/* Llib/date.scm 1035 */
																					if (rgc_fill_buffer(
																							((obj_t) BgL_iportz00_10972)))
																						{	/* Llib/date.scm 1035 */
																							long BgL_arg1911z00_10976;
																							long BgL_arg1914z00_10977;

																							{	/* Llib/date.scm 1035 */
																								obj_t BgL_tmpz00_12706;

																								BgL_tmpz00_12706 =
																									((obj_t) BgL_iportz00_10972);
																								BgL_arg1911z00_10976 =
																									RGC_BUFFER_FORWARD
																									(BgL_tmpz00_12706);
																							}
																							{	/* Llib/date.scm 1035 */
																								obj_t BgL_tmpz00_12709;

																								BgL_tmpz00_12709 =
																									((obj_t) BgL_iportz00_10972);
																								BgL_arg1914z00_10977 =
																									RGC_BUFFER_BUFPOS
																									(BgL_tmpz00_12709);
																							}
																							{
																								long BgL_bufposz00_12713;
																								long BgL_forwardz00_12712;

																								BgL_forwardz00_12712 =
																									BgL_arg1911z00_10976;
																								BgL_bufposz00_12713 =
																									BgL_arg1914z00_10977;
																								BgL_bufposz00_10975 =
																									BgL_bufposz00_12713;
																								BgL_forwardz00_10974 =
																									BgL_forwardz00_12712;
																								goto
																									BgL_statezd24zd21178z00_10959;
																							}
																						}
																					else
																						{	/* Llib/date.scm 1035 */
																							BgL_matchz00_10964 =
																								BgL_lastzd2matchzd2_10973;
																						}
																				}
																			else
																				{	/* Llib/date.scm 1035 */
																					int BgL_curz00_10978;

																					{	/* Llib/date.scm 1035 */
																						obj_t BgL_tmpz00_12714;

																						BgL_tmpz00_12714 =
																							((obj_t) BgL_iportz00_10972);
																						BgL_curz00_10978 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_tmpz00_12714,
																							BgL_forwardz00_10974);
																					}
																					{	/* Llib/date.scm 1035 */

																						{	/* Llib/date.scm 1035 */
																							bool_t BgL_test5434z00_12717;

																							{	/* Llib/date.scm 1035 */
																								bool_t BgL_test5435z00_12718;

																								if (
																									((long) (BgL_curz00_10978) ==
																										99L))
																									{	/* Llib/date.scm 1035 */
																										BgL_test5435z00_12718 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Llib/date.scm 1035 */
																										if (
																											((long) (BgL_curz00_10978)
																												== 98L))
																											{	/* Llib/date.scm 1035 */
																												BgL_test5435z00_12718 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Llib/date.scm 1035 */
																												BgL_test5435z00_12718 =
																													(
																													(long)
																													(BgL_curz00_10978) ==
																													97L);
																									}}
																								if (BgL_test5435z00_12718)
																									{	/* Llib/date.scm 1035 */
																										BgL_test5434z00_12717 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Llib/date.scm 1035 */
																										if (
																											((long) (BgL_curz00_10978)
																												== 101L))
																											{	/* Llib/date.scm 1035 */
																												BgL_test5434z00_12717 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Llib/date.scm 1035 */
																												if (
																													((long)
																														(BgL_curz00_10978)
																														== 103L))
																													{	/* Llib/date.scm 1035 */
																														BgL_test5434z00_12717
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Llib/date.scm 1035 */
																														if (
																															((long)
																																(BgL_curz00_10978)
																																== 108L))
																															{	/* Llib/date.scm 1035 */
																																BgL_test5434z00_12717
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Llib/date.scm 1035 */
																																bool_t
																																	BgL_test5441z00_12736;
																																if (((long)
																																		(BgL_curz00_10978)
																																		== 112L))
																																	{	/* Llib/date.scm 1035 */
																																		BgL_test5441z00_12736
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Llib/date.scm 1035 */
																																		if (
																																			((long)
																																				(BgL_curz00_10978)
																																				==
																																				111L))
																																			{	/* Llib/date.scm 1035 */
																																				BgL_test5441z00_12736
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Llib/date.scm 1035 */
																																				BgL_test5441z00_12736
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_10978)
																																					==
																																					110L);
																																	}}
																																if (BgL_test5441z00_12736)
																																	{	/* Llib/date.scm 1035 */
																																		BgL_test5434z00_12717
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Llib/date.scm 1035 */
																																		if (
																																			((long)
																																				(BgL_curz00_10978)
																																				==
																																				114L))
																																			{	/* Llib/date.scm 1035 */
																																				BgL_test5434z00_12717
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Llib/date.scm 1035 */
																																				bool_t
																																					BgL_test5445z00_12748;
																																				if ((
																																						(long)
																																						(BgL_curz00_10978)
																																						==
																																						118L))
																																					{	/* Llib/date.scm 1035 */
																																						BgL_test5445z00_12748
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Llib/date.scm 1035 */
																																						if (
																																							((long) (BgL_curz00_10978) == 117L))
																																							{	/* Llib/date.scm 1035 */
																																								BgL_test5445z00_12748
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Llib/date.scm 1035 */
																																								BgL_test5445z00_12748
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_10978)
																																									==
																																									116L);
																																					}}
																																				if (BgL_test5445z00_12748)
																																					{	/* Llib/date.scm 1035 */
																																						BgL_test5434z00_12717
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Llib/date.scm 1035 */
																																						BgL_test5434z00_12717
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_10978)
																																							==
																																							121L);
																							}}}}}}}}
																							if (BgL_test5434z00_12717)
																								{	/* Llib/date.scm 1035 */
																									long BgL_arg1931z00_10979;

																									BgL_arg1931z00_10979 =
																										(1L + BgL_forwardz00_10974);
																									{	/* Llib/date.scm 1035 */
																										long
																											BgL_newzd2matchzd2_10980;
																										{	/* Llib/date.scm 1035 */
																											obj_t BgL_tmpz00_12760;

																											BgL_tmpz00_12760 =
																												((obj_t)
																												BgL_iportz00_10972);
																											RGC_STOP_MATCH
																												(BgL_tmpz00_12760,
																												BgL_arg1931z00_10979);
																										}
																										BgL_newzd2matchzd2_10980 =
																											1L;
																										BgL_matchz00_10964 =
																											BgL_newzd2matchzd2_10980;
																								}}
																							else
																								{	/* Llib/date.scm 1035 */
																									BgL_matchz00_10964 =
																										BgL_lastzd2matchzd2_10973;
																								}
																						}
																					}
																				}
																		}
																	else
																		{	/* Llib/date.scm 1035 */
																			BgL_matchz00_10964 =
																				BgL_newzd2matchzd2_10985;
																		}
																}
															}
														}
												}
											}
										else
											{	/* Llib/date.scm 1035 */
												bool_t BgL_test5448z00_12765;

												{	/* Llib/date.scm 1035 */
													bool_t BgL_test5449z00_12766;

													if (((long) (BgL_curz00_11011) == 10L))
														{	/* Llib/date.scm 1035 */
															BgL_test5449z00_12766 = ((bool_t) 1);
														}
													else
														{	/* Llib/date.scm 1035 */
															BgL_test5449z00_12766 =
																((long) (BgL_curz00_11011) == 9L);
														}
													if (BgL_test5449z00_12766)
														{	/* Llib/date.scm 1035 */
															BgL_test5448z00_12765 = ((bool_t) 1);
														}
													else
														{	/* Llib/date.scm 1035 */
															if (((long) (BgL_curz00_11011) == 13L))
																{	/* Llib/date.scm 1035 */
																	BgL_test5448z00_12765 = ((bool_t) 1);
																}
															else
																{	/* Llib/date.scm 1035 */
																	BgL_test5448z00_12765 =
																		((long) (BgL_curz00_11011) == 32L);
												}}}
												if (BgL_test5448z00_12765)
													{	/* Llib/date.scm 1035 */
														BgL_iportz00_10997 = BgL_iportz00_11005;
														BgL_lastzd2matchzd2_10998 =
															BgL_lastzd2matchzd2_11006;
														BgL_forwardz00_10999 = (1L + BgL_forwardz00_11007);
														BgL_bufposz00_11000 = BgL_bufposz00_11008;
													BgL_statezd22zd21176z00_10962:
														{	/* Llib/date.scm 1035 */
															long BgL_newzd2matchzd2_11001;

															{	/* Llib/date.scm 1035 */
																obj_t BgL_tmpz00_12777;

																BgL_tmpz00_12777 = ((obj_t) BgL_iportz00_10997);
																RGC_STOP_MATCH(BgL_tmpz00_12777,
																	BgL_forwardz00_10999);
															}
															BgL_newzd2matchzd2_11001 = 0L;
															if ((BgL_forwardz00_10999 == BgL_bufposz00_11000))
																{	/* Llib/date.scm 1035 */
																	if (rgc_fill_buffer(
																			((obj_t) BgL_iportz00_10997)))
																		{	/* Llib/date.scm 1035 */
																			long BgL_arg1864z00_11002;
																			long BgL_arg1865z00_11003;

																			{	/* Llib/date.scm 1035 */
																				obj_t BgL_tmpz00_12785;

																				BgL_tmpz00_12785 =
																					((obj_t) BgL_iportz00_10997);
																				BgL_arg1864z00_11002 =
																					RGC_BUFFER_FORWARD(BgL_tmpz00_12785);
																			}
																			{	/* Llib/date.scm 1035 */
																				obj_t BgL_tmpz00_12788;

																				BgL_tmpz00_12788 =
																					((obj_t) BgL_iportz00_10997);
																				BgL_arg1865z00_11003 =
																					RGC_BUFFER_BUFPOS(BgL_tmpz00_12788);
																			}
																			{
																				long BgL_bufposz00_12792;
																				long BgL_forwardz00_12791;

																				BgL_forwardz00_12791 =
																					BgL_arg1864z00_11002;
																				BgL_bufposz00_12792 =
																					BgL_arg1865z00_11003;
																				BgL_bufposz00_11000 =
																					BgL_bufposz00_12792;
																				BgL_forwardz00_10999 =
																					BgL_forwardz00_12791;
																				goto BgL_statezd22zd21176z00_10962;
																			}
																		}
																	else
																		{	/* Llib/date.scm 1035 */
																			BgL_matchz00_10964 =
																				BgL_newzd2matchzd2_11001;
																		}
																}
															else
																{	/* Llib/date.scm 1035 */
																	int BgL_curz00_11004;

																	{	/* Llib/date.scm 1035 */
																		obj_t BgL_tmpz00_12793;

																		BgL_tmpz00_12793 =
																			((obj_t) BgL_iportz00_10997);
																		BgL_curz00_11004 =
																			RGC_BUFFER_GET_CHAR(BgL_tmpz00_12793,
																			BgL_forwardz00_10999);
																	}
																	{	/* Llib/date.scm 1035 */

																		{	/* Llib/date.scm 1035 */
																			bool_t BgL_test5454z00_12796;

																			{	/* Llib/date.scm 1035 */
																				bool_t BgL_test5455z00_12797;

																				if (((long) (BgL_curz00_11004) == 10L))
																					{	/* Llib/date.scm 1035 */
																						BgL_test5455z00_12797 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Llib/date.scm 1035 */
																						BgL_test5455z00_12797 =
																							((long) (BgL_curz00_11004) == 9L);
																					}
																				if (BgL_test5455z00_12797)
																					{	/* Llib/date.scm 1035 */
																						BgL_test5454z00_12796 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Llib/date.scm 1035 */
																						if (
																							((long) (BgL_curz00_11004) ==
																								13L))
																							{	/* Llib/date.scm 1035 */
																								BgL_test5454z00_12796 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Llib/date.scm 1035 */
																								BgL_test5454z00_12796 =
																									(
																									(long) (BgL_curz00_11004) ==
																									32L);
																			}}}
																			if (BgL_test5454z00_12796)
																				{	/* Llib/date.scm 1035 */
																					BgL_iportz00_10989 =
																						BgL_iportz00_10997;
																					BgL_lastzd2matchzd2_10990 =
																						BgL_newzd2matchzd2_11001;
																					BgL_forwardz00_10991 =
																						(1L + BgL_forwardz00_10999);
																					BgL_bufposz00_10992 =
																						BgL_bufposz00_11000;
																				BgL_statezd27zd21181z00_10961:
																					{	/* Llib/date.scm 1035 */
																						long BgL_newzd2matchzd2_10993;

																						{	/* Llib/date.scm 1035 */
																							obj_t BgL_tmpz00_12808;

																							BgL_tmpz00_12808 =
																								((obj_t) BgL_iportz00_10989);
																							RGC_STOP_MATCH(BgL_tmpz00_12808,
																								BgL_forwardz00_10991);
																						}
																						BgL_newzd2matchzd2_10993 = 0L;
																						if (
																							(BgL_forwardz00_10991 ==
																								BgL_bufposz00_10992))
																							{	/* Llib/date.scm 1035 */
																								if (rgc_fill_buffer(
																										((obj_t)
																											BgL_iportz00_10989)))
																									{	/* Llib/date.scm 1035 */
																										long BgL_arg1876z00_10994;
																										long BgL_arg1878z00_10995;

																										{	/* Llib/date.scm 1035 */
																											obj_t BgL_tmpz00_12816;

																											BgL_tmpz00_12816 =
																												((obj_t)
																												BgL_iportz00_10989);
																											BgL_arg1876z00_10994 =
																												RGC_BUFFER_FORWARD
																												(BgL_tmpz00_12816);
																										}
																										{	/* Llib/date.scm 1035 */
																											obj_t BgL_tmpz00_12819;

																											BgL_tmpz00_12819 =
																												((obj_t)
																												BgL_iportz00_10989);
																											BgL_arg1878z00_10995 =
																												RGC_BUFFER_BUFPOS
																												(BgL_tmpz00_12819);
																										}
																										{
																											long BgL_bufposz00_12823;
																											long BgL_forwardz00_12822;

																											BgL_forwardz00_12822 =
																												BgL_arg1876z00_10994;
																											BgL_bufposz00_12823 =
																												BgL_arg1878z00_10995;
																											BgL_bufposz00_10992 =
																												BgL_bufposz00_12823;
																											BgL_forwardz00_10991 =
																												BgL_forwardz00_12822;
																											goto
																												BgL_statezd27zd21181z00_10961;
																										}
																									}
																								else
																									{	/* Llib/date.scm 1035 */
																										BgL_matchz00_10964 =
																											BgL_newzd2matchzd2_10993;
																									}
																							}
																						else
																							{	/* Llib/date.scm 1035 */
																								int BgL_curz00_10996;

																								{	/* Llib/date.scm 1035 */
																									obj_t BgL_tmpz00_12824;

																									BgL_tmpz00_12824 =
																										((obj_t)
																										BgL_iportz00_10989);
																									BgL_curz00_10996 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_tmpz00_12824,
																										BgL_forwardz00_10991);
																								}
																								{	/* Llib/date.scm 1035 */

																									{	/* Llib/date.scm 1035 */
																										bool_t
																											BgL_test5460z00_12827;
																										{	/* Llib/date.scm 1035 */
																											bool_t
																												BgL_test5461z00_12828;
																											if (((long)
																													(BgL_curz00_10996) ==
																													10L))
																												{	/* Llib/date.scm 1035 */
																													BgL_test5461z00_12828
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Llib/date.scm 1035 */
																													BgL_test5461z00_12828
																														=
																														((long)
																														(BgL_curz00_10996)
																														== 9L);
																												}
																											if (BgL_test5461z00_12828)
																												{	/* Llib/date.scm 1035 */
																													BgL_test5460z00_12827
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Llib/date.scm 1035 */
																													if (
																														((long)
																															(BgL_curz00_10996)
																															== 13L))
																														{	/* Llib/date.scm 1035 */
																															BgL_test5460z00_12827
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Llib/date.scm 1035 */
																															BgL_test5460z00_12827
																																=
																																((long)
																																(BgL_curz00_10996)
																																== 32L);
																										}}}
																										if (BgL_test5460z00_12827)
																											{
																												long
																													BgL_forwardz00_12840;
																												long
																													BgL_lastzd2matchzd2_12839;
																												BgL_lastzd2matchzd2_12839
																													=
																													BgL_newzd2matchzd2_10993;
																												BgL_forwardz00_12840 =
																													(1L +
																													BgL_forwardz00_10991);
																												BgL_forwardz00_10991 =
																													BgL_forwardz00_12840;
																												BgL_lastzd2matchzd2_10990
																													=
																													BgL_lastzd2matchzd2_12839;
																												goto
																													BgL_statezd27zd21181z00_10961;
																											}
																										else
																											{	/* Llib/date.scm 1035 */
																												BgL_matchz00_10964 =
																													BgL_newzd2matchzd2_10993;
																											}
																									}
																								}
																							}
																					}
																				}
																			else
																				{	/* Llib/date.scm 1035 */
																					BgL_matchz00_10964 =
																						BgL_newzd2matchzd2_11001;
																				}
																		}
																	}
																}
														}
													}
												else
													{	/* Llib/date.scm 1035 */
														long BgL_arg1860z00_11012;

														BgL_arg1860z00_11012 = (1L + BgL_forwardz00_11007);
														{	/* Llib/date.scm 1035 */
															long BgL_newzd2matchzd2_11013;

															{	/* Llib/date.scm 1035 */
																obj_t BgL_tmpz00_12845;

																BgL_tmpz00_12845 = ((obj_t) BgL_iportz00_11005);
																RGC_STOP_MATCH(BgL_tmpz00_12845,
																	BgL_arg1860z00_11012);
															}
															BgL_newzd2matchzd2_11013 = 2L;
															BgL_matchz00_10964 = BgL_newzd2matchzd2_11013;
					}}}}}}}
					{	/* Llib/date.scm 1035 */
						obj_t BgL_tmpz00_12848;

						BgL_tmpz00_12848 = ((obj_t) BgL_iportz00_10191);
						RGC_SET_FILEPOS(BgL_tmpz00_12848);
					}
					switch (BgL_matchz00_10964)
						{
						case 2L:

							{	/* Llib/date.scm 1057 */
								obj_t BgL_arg2026z00_10967;

								{	/* Llib/date.scm 1035 */
									bool_t BgL_test5464z00_12851;

									{	/* Llib/date.scm 1035 */
										long BgL_arg2019z00_10971;

										{	/* Llib/date.scm 1035 */
											obj_t BgL_tmpz00_12852;

											BgL_tmpz00_12852 = ((obj_t) BgL_iportz00_10191);
											BgL_arg2019z00_10971 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_12852);
										}
										BgL_test5464z00_12851 = (BgL_arg2019z00_10971 == 0L);
									}
									if (BgL_test5464z00_12851)
										{	/* Llib/date.scm 1035 */
											BgL_arg2026z00_10967 = BEOF;
										}
									else
										{	/* Llib/date.scm 1035 */
											unsigned char BgL_tmpz00_12856;

											{	/* Llib/date.scm 1035 */
												obj_t BgL_tmpz00_12857;

												BgL_tmpz00_12857 = ((obj_t) BgL_iportz00_10191);
												BgL_tmpz00_12856 =
													RGC_BUFFER_CHARACTER(BgL_tmpz00_12857);
											}
											BgL_arg2026z00_10967 = BCHAR(BgL_tmpz00_12856);
								}}
								return
									BGl_parsezd2errorzd2zz__datez00(BGl_string4939z00zz__datez00,
									BGl_string4944z00zz__datez00, BgL_arg2026z00_10967,
									((obj_t) BgL_iportz00_10191));
							}
							break;
						case 1L:

							{	/* Llib/date.scm 1039 */
								obj_t BgL_casezd2valuezd2_10968;

								BgL_casezd2valuezd2_10968 =
									rgc_buffer_symbol(((obj_t) BgL_iportz00_10191));
								if ((BgL_casezd2valuezd2_10968 == BGl_symbol4945z00zz__datez00))
									{	/* Llib/date.scm 1039 */
										return BINT(1L);
									}
								else
									{	/* Llib/date.scm 1039 */
										if (
											(BgL_casezd2valuezd2_10968 ==
												BGl_symbol4947z00zz__datez00))
											{	/* Llib/date.scm 1039 */
												return BINT(2L);
											}
										else
											{	/* Llib/date.scm 1039 */
												if (
													(BgL_casezd2valuezd2_10968 ==
														BGl_symbol4949z00zz__datez00))
													{	/* Llib/date.scm 1039 */
														return BINT(3L);
													}
												else
													{	/* Llib/date.scm 1039 */
														if (
															(BgL_casezd2valuezd2_10968 ==
																BGl_symbol4951z00zz__datez00))
															{	/* Llib/date.scm 1039 */
																return BINT(4L);
															}
														else
															{	/* Llib/date.scm 1039 */
																if (
																	(BgL_casezd2valuezd2_10968 ==
																		BGl_symbol4953z00zz__datez00))
																	{	/* Llib/date.scm 1039 */
																		return BINT(5L);
																	}
																else
																	{	/* Llib/date.scm 1039 */
																		if (
																			(BgL_casezd2valuezd2_10968 ==
																				BGl_symbol4955z00zz__datez00))
																			{	/* Llib/date.scm 1039 */
																				return BINT(6L);
																			}
																		else
																			{	/* Llib/date.scm 1039 */
																				if (
																					(BgL_casezd2valuezd2_10968 ==
																						BGl_symbol4957z00zz__datez00))
																					{	/* Llib/date.scm 1039 */
																						return BINT(7L);
																					}
																				else
																					{	/* Llib/date.scm 1039 */
																						if (
																							(BgL_casezd2valuezd2_10968 ==
																								BGl_symbol4959z00zz__datez00))
																							{	/* Llib/date.scm 1039 */
																								return BINT(8L);
																							}
																						else
																							{	/* Llib/date.scm 1039 */
																								if (
																									(BgL_casezd2valuezd2_10968 ==
																										BGl_symbol4961z00zz__datez00))
																									{	/* Llib/date.scm 1039 */
																										return BINT(9L);
																									}
																								else
																									{	/* Llib/date.scm 1039 */
																										if (
																											(BgL_casezd2valuezd2_10968
																												==
																												BGl_symbol4963z00zz__datez00))
																											{	/* Llib/date.scm 1039 */
																												return BINT(10L);
																											}
																										else
																											{	/* Llib/date.scm 1039 */
																												if (
																													(BgL_casezd2valuezd2_10968
																														==
																														BGl_symbol4965z00zz__datez00))
																													{	/* Llib/date.scm 1039 */
																														return BINT(11L);
																													}
																												else
																													{	/* Llib/date.scm 1039 */
																														if (
																															(BgL_casezd2valuezd2_10968
																																==
																																BGl_symbol4967z00zz__datez00))
																															{	/* Llib/date.scm 1039 */
																																return
																																	BINT(12L);
																															}
																														else
																															{	/* Llib/date.scm 1054 */
																																obj_t
																																	BgL_arg2041z00_10969;
																																{	/* Llib/date.scm 1035 */
																																	long
																																		BgL_arg1939z00_10970;
																																	{	/* Llib/date.scm 1035 */
																																		obj_t
																																			BgL_tmpz00_12901;
																																		BgL_tmpz00_12901
																																			=
																																			((obj_t)
																																			BgL_iportz00_10191);
																																		BgL_arg1939z00_10970
																																			=
																																			RGC_BUFFER_MATCH_LENGTH
																																			(BgL_tmpz00_12901);
																																	}
																																	BgL_arg2041z00_10969
																																		=
																																		rgc_buffer_substring
																																		(((obj_t)
																																			BgL_iportz00_10191),
																																		0L,
																																		BgL_arg1939z00_10970);
																																}
																																return
																																	BGl_parsezd2errorzd2zz__datez00
																																	(BGl_string4939z00zz__datez00,
																																	BGl_string4944z00zz__datez00,
																																	BgL_arg2041z00_10969,
																																	((obj_t)
																																		BgL_iportz00_10191));
																															}
																													}
																											}
																									}
																							}
																					}
																			}
																	}
															}
													}
											}
									}
							}
							break;
						case 0L:

							goto BgL_ignorez00_10957;
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string4941z00zz__datez00,
								BGl_string4942z00zz__datez00, BINT(BgL_matchz00_10964));
						}
				}
			}
		}

	}



/* &<@anonymous:1684> */
	obj_t BGl_z62zc3z04anonymousza31684ze3ze5zz__datez00(obj_t BgL_envz00_10192,
		obj_t BgL_iportz00_10193)
	{
		{	/* Llib/date.scm 1021 */
			{
				obj_t BgL_iportz00_11058;
				long BgL_lastzd2matchzd2_11059;
				long BgL_forwardz00_11060;
				long BgL_bufposz00_11061;
				obj_t BgL_iportz00_11050;
				long BgL_lastzd2matchzd2_11051;
				long BgL_forwardz00_11052;
				long BgL_bufposz00_11053;
				obj_t BgL_iportz00_11042;
				long BgL_lastzd2matchzd2_11043;
				long BgL_forwardz00_11044;
				long BgL_bufposz00_11045;
				obj_t BgL_iportz00_11034;
				long BgL_lastzd2matchzd2_11035;
				long BgL_forwardz00_11036;
				long BgL_bufposz00_11037;
				obj_t BgL_iportz00_11026;
				long BgL_lastzd2matchzd2_11027;
				long BgL_forwardz00_11028;
				long BgL_bufposz00_11029;

			BgL_ignorez00_11014:
				{	/* Llib/date.scm 1021 */
					obj_t BgL_tmpz00_12911;

					BgL_tmpz00_12911 = ((obj_t) BgL_iportz00_10193);
					RGC_START_MATCH(BgL_tmpz00_12911);
				}
				{	/* Llib/date.scm 1021 */
					long BgL_matchz00_11021;

					{	/* Llib/date.scm 1021 */
						long BgL_arg1836z00_11022;
						long BgL_arg1837z00_11023;

						{	/* Llib/date.scm 1021 */
							obj_t BgL_tmpz00_12914;

							BgL_tmpz00_12914 = ((obj_t) BgL_iportz00_10193);
							BgL_arg1836z00_11022 = RGC_BUFFER_FORWARD(BgL_tmpz00_12914);
						}
						{	/* Llib/date.scm 1021 */
							obj_t BgL_tmpz00_12917;

							BgL_tmpz00_12917 = ((obj_t) BgL_iportz00_10193);
							BgL_arg1837z00_11023 = RGC_BUFFER_BUFPOS(BgL_tmpz00_12917);
						}
						BgL_iportz00_11058 = BgL_iportz00_10193;
						BgL_lastzd2matchzd2_11059 = 2L;
						BgL_forwardz00_11060 = BgL_arg1836z00_11022;
						BgL_bufposz00_11061 = BgL_arg1837z00_11023;
					BgL_statezd20zd21165z00_11020:
						if ((BgL_forwardz00_11060 == BgL_bufposz00_11061))
							{	/* Llib/date.scm 1021 */
								if (rgc_fill_buffer(((obj_t) BgL_iportz00_11058)))
									{	/* Llib/date.scm 1021 */
										long BgL_arg1689z00_11062;
										long BgL_arg1690z00_11063;

										{	/* Llib/date.scm 1021 */
											obj_t BgL_tmpz00_12925;

											BgL_tmpz00_12925 = ((obj_t) BgL_iportz00_11058);
											BgL_arg1689z00_11062 =
												RGC_BUFFER_FORWARD(BgL_tmpz00_12925);
										}
										{	/* Llib/date.scm 1021 */
											obj_t BgL_tmpz00_12928;

											BgL_tmpz00_12928 = ((obj_t) BgL_iportz00_11058);
											BgL_arg1690z00_11063 =
												RGC_BUFFER_BUFPOS(BgL_tmpz00_12928);
										}
										{
											long BgL_bufposz00_12932;
											long BgL_forwardz00_12931;

											BgL_forwardz00_12931 = BgL_arg1689z00_11062;
											BgL_bufposz00_12932 = BgL_arg1690z00_11063;
											BgL_bufposz00_11061 = BgL_bufposz00_12932;
											BgL_forwardz00_11060 = BgL_forwardz00_12931;
											goto BgL_statezd20zd21165z00_11020;
										}
									}
								else
									{	/* Llib/date.scm 1021 */
										BgL_matchz00_11021 = BgL_lastzd2matchzd2_11059;
									}
							}
						else
							{	/* Llib/date.scm 1021 */
								int BgL_curz00_11064;

								{	/* Llib/date.scm 1021 */
									obj_t BgL_tmpz00_12933;

									BgL_tmpz00_12933 = ((obj_t) BgL_iportz00_11058);
									BgL_curz00_11064 =
										RGC_BUFFER_GET_CHAR(BgL_tmpz00_12933, BgL_forwardz00_11060);
								}
								{	/* Llib/date.scm 1021 */

									{	/* Llib/date.scm 1021 */
										bool_t BgL_test5479z00_12936;

										if (((long) (BgL_curz00_11064) >= 48L))
											{	/* Llib/date.scm 1021 */
												BgL_test5479z00_12936 =
													((long) (BgL_curz00_11064) < 58L);
											}
										else
											{	/* Llib/date.scm 1021 */
												BgL_test5479z00_12936 = ((bool_t) 0);
											}
										if (BgL_test5479z00_12936)
											{	/* Llib/date.scm 1021 */
												BgL_iportz00_11042 = BgL_iportz00_11058;
												BgL_lastzd2matchzd2_11043 = BgL_lastzd2matchzd2_11059;
												BgL_forwardz00_11044 = (1L + BgL_forwardz00_11060);
												BgL_bufposz00_11045 = BgL_bufposz00_11061;
											BgL_statezd23zd21168z00_11018:
												{	/* Llib/date.scm 1021 */
													long BgL_newzd2matchzd2_11046;

													{	/* Llib/date.scm 1021 */
														obj_t BgL_tmpz00_12942;

														BgL_tmpz00_12942 = ((obj_t) BgL_iportz00_11042);
														RGC_STOP_MATCH(BgL_tmpz00_12942,
															BgL_forwardz00_11044);
													}
													BgL_newzd2matchzd2_11046 = 1L;
													if ((BgL_forwardz00_11044 == BgL_bufposz00_11045))
														{	/* Llib/date.scm 1021 */
															if (rgc_fill_buffer(((obj_t) BgL_iportz00_11042)))
																{	/* Llib/date.scm 1021 */
																	long BgL_arg1718z00_11047;
																	long BgL_arg1719z00_11048;

																	{	/* Llib/date.scm 1021 */
																		obj_t BgL_tmpz00_12950;

																		BgL_tmpz00_12950 =
																			((obj_t) BgL_iportz00_11042);
																		BgL_arg1718z00_11047 =
																			RGC_BUFFER_FORWARD(BgL_tmpz00_12950);
																	}
																	{	/* Llib/date.scm 1021 */
																		obj_t BgL_tmpz00_12953;

																		BgL_tmpz00_12953 =
																			((obj_t) BgL_iportz00_11042);
																		BgL_arg1719z00_11048 =
																			RGC_BUFFER_BUFPOS(BgL_tmpz00_12953);
																	}
																	{
																		long BgL_bufposz00_12957;
																		long BgL_forwardz00_12956;

																		BgL_forwardz00_12956 = BgL_arg1718z00_11047;
																		BgL_bufposz00_12957 = BgL_arg1719z00_11048;
																		BgL_bufposz00_11045 = BgL_bufposz00_12957;
																		BgL_forwardz00_11044 = BgL_forwardz00_12956;
																		goto BgL_statezd23zd21168z00_11018;
																	}
																}
															else
																{	/* Llib/date.scm 1021 */
																	BgL_matchz00_11021 = BgL_newzd2matchzd2_11046;
																}
														}
													else
														{	/* Llib/date.scm 1021 */
															int BgL_curz00_11049;

															{	/* Llib/date.scm 1021 */
																obj_t BgL_tmpz00_12958;

																BgL_tmpz00_12958 = ((obj_t) BgL_iportz00_11042);
																BgL_curz00_11049 =
																	RGC_BUFFER_GET_CHAR(BgL_tmpz00_12958,
																	BgL_forwardz00_11044);
															}
															{	/* Llib/date.scm 1021 */

																{	/* Llib/date.scm 1021 */
																	bool_t BgL_test5483z00_12961;

																	if (((long) (BgL_curz00_11049) >= 48L))
																		{	/* Llib/date.scm 1021 */
																			BgL_test5483z00_12961 =
																				((long) (BgL_curz00_11049) < 58L);
																		}
																	else
																		{	/* Llib/date.scm 1021 */
																			BgL_test5483z00_12961 = ((bool_t) 0);
																		}
																	if (BgL_test5483z00_12961)
																		{	/* Llib/date.scm 1021 */
																			BgL_iportz00_11034 = BgL_iportz00_11042;
																			BgL_lastzd2matchzd2_11035 =
																				BgL_newzd2matchzd2_11046;
																			BgL_forwardz00_11036 =
																				(1L + BgL_forwardz00_11044);
																			BgL_bufposz00_11037 = BgL_bufposz00_11045;
																		BgL_statezd24zd21169z00_11017:
																			{	/* Llib/date.scm 1021 */
																				long BgL_newzd2matchzd2_11038;

																				{	/* Llib/date.scm 1021 */
																					obj_t BgL_tmpz00_12967;

																					BgL_tmpz00_12967 =
																						((obj_t) BgL_iportz00_11034);
																					RGC_STOP_MATCH(BgL_tmpz00_12967,
																						BgL_forwardz00_11036);
																				}
																				BgL_newzd2matchzd2_11038 = 1L;
																				if (
																					(BgL_forwardz00_11036 ==
																						BgL_bufposz00_11037))
																					{	/* Llib/date.scm 1021 */
																						if (rgc_fill_buffer(
																								((obj_t) BgL_iportz00_11034)))
																							{	/* Llib/date.scm 1021 */
																								long BgL_arg1726z00_11039;
																								long BgL_arg1727z00_11040;

																								{	/* Llib/date.scm 1021 */
																									obj_t BgL_tmpz00_12975;

																									BgL_tmpz00_12975 =
																										((obj_t)
																										BgL_iportz00_11034);
																									BgL_arg1726z00_11039 =
																										RGC_BUFFER_FORWARD
																										(BgL_tmpz00_12975);
																								}
																								{	/* Llib/date.scm 1021 */
																									obj_t BgL_tmpz00_12978;

																									BgL_tmpz00_12978 =
																										((obj_t)
																										BgL_iportz00_11034);
																									BgL_arg1727z00_11040 =
																										RGC_BUFFER_BUFPOS
																										(BgL_tmpz00_12978);
																								}
																								{
																									long BgL_bufposz00_12982;
																									long BgL_forwardz00_12981;

																									BgL_forwardz00_12981 =
																										BgL_arg1726z00_11039;
																									BgL_bufposz00_12982 =
																										BgL_arg1727z00_11040;
																									BgL_bufposz00_11037 =
																										BgL_bufposz00_12982;
																									BgL_forwardz00_11036 =
																										BgL_forwardz00_12981;
																									goto
																										BgL_statezd24zd21169z00_11017;
																								}
																							}
																						else
																							{	/* Llib/date.scm 1021 */
																								BgL_matchz00_11021 =
																									BgL_newzd2matchzd2_11038;
																							}
																					}
																				else
																					{	/* Llib/date.scm 1021 */
																						int BgL_curz00_11041;

																						{	/* Llib/date.scm 1021 */
																							obj_t BgL_tmpz00_12983;

																							BgL_tmpz00_12983 =
																								((obj_t) BgL_iportz00_11034);
																							BgL_curz00_11041 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_tmpz00_12983,
																								BgL_forwardz00_11036);
																						}
																						{	/* Llib/date.scm 1021 */

																							{	/* Llib/date.scm 1021 */
																								bool_t BgL_test5487z00_12986;

																								if (
																									((long) (BgL_curz00_11041) >=
																										48L))
																									{	/* Llib/date.scm 1021 */
																										BgL_test5487z00_12986 =
																											(
																											(long) (BgL_curz00_11041)
																											< 58L);
																									}
																								else
																									{	/* Llib/date.scm 1021 */
																										BgL_test5487z00_12986 =
																											((bool_t) 0);
																									}
																								if (BgL_test5487z00_12986)
																									{
																										long BgL_forwardz00_12993;
																										long
																											BgL_lastzd2matchzd2_12992;
																										BgL_lastzd2matchzd2_12992 =
																											BgL_newzd2matchzd2_11038;
																										BgL_forwardz00_12993 =
																											(1L +
																											BgL_forwardz00_11036);
																										BgL_forwardz00_11036 =
																											BgL_forwardz00_12993;
																										BgL_lastzd2matchzd2_11035 =
																											BgL_lastzd2matchzd2_12992;
																										goto
																											BgL_statezd24zd21169z00_11017;
																									}
																								else
																									{	/* Llib/date.scm 1021 */
																										BgL_matchz00_11021 =
																											BgL_newzd2matchzd2_11038;
																									}
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Llib/date.scm 1021 */
																			BgL_matchz00_11021 =
																				BgL_newzd2matchzd2_11046;
																		}
																}
															}
														}
												}
											}
										else
											{	/* Llib/date.scm 1021 */
												bool_t BgL_test5489z00_12997;

												{	/* Llib/date.scm 1021 */
													bool_t BgL_test5490z00_12998;

													if (((long) (BgL_curz00_11064) == 10L))
														{	/* Llib/date.scm 1021 */
															BgL_test5490z00_12998 = ((bool_t) 1);
														}
													else
														{	/* Llib/date.scm 1021 */
															BgL_test5490z00_12998 =
																((long) (BgL_curz00_11064) == 9L);
														}
													if (BgL_test5490z00_12998)
														{	/* Llib/date.scm 1021 */
															BgL_test5489z00_12997 = ((bool_t) 1);
														}
													else
														{	/* Llib/date.scm 1021 */
															if (((long) (BgL_curz00_11064) == 13L))
																{	/* Llib/date.scm 1021 */
																	BgL_test5489z00_12997 = ((bool_t) 1);
																}
															else
																{	/* Llib/date.scm 1021 */
																	BgL_test5489z00_12997 =
																		((long) (BgL_curz00_11064) == 32L);
												}}}
												if (BgL_test5489z00_12997)
													{	/* Llib/date.scm 1021 */
														BgL_iportz00_11050 = BgL_iportz00_11058;
														BgL_lastzd2matchzd2_11051 =
															BgL_lastzd2matchzd2_11059;
														BgL_forwardz00_11052 = (1L + BgL_forwardz00_11060);
														BgL_bufposz00_11053 = BgL_bufposz00_11061;
													BgL_statezd22zd21167z00_11019:
														{	/* Llib/date.scm 1021 */
															long BgL_newzd2matchzd2_11054;

															{	/* Llib/date.scm 1021 */
																obj_t BgL_tmpz00_13009;

																BgL_tmpz00_13009 = ((obj_t) BgL_iportz00_11050);
																RGC_STOP_MATCH(BgL_tmpz00_13009,
																	BgL_forwardz00_11052);
															}
															BgL_newzd2matchzd2_11054 = 0L;
															if ((BgL_forwardz00_11052 == BgL_bufposz00_11053))
																{	/* Llib/date.scm 1021 */
																	if (rgc_fill_buffer(
																			((obj_t) BgL_iportz00_11050)))
																		{	/* Llib/date.scm 1021 */
																			long BgL_arg1708z00_11055;
																			long BgL_arg1709z00_11056;

																			{	/* Llib/date.scm 1021 */
																				obj_t BgL_tmpz00_13017;

																				BgL_tmpz00_13017 =
																					((obj_t) BgL_iportz00_11050);
																				BgL_arg1708z00_11055 =
																					RGC_BUFFER_FORWARD(BgL_tmpz00_13017);
																			}
																			{	/* Llib/date.scm 1021 */
																				obj_t BgL_tmpz00_13020;

																				BgL_tmpz00_13020 =
																					((obj_t) BgL_iportz00_11050);
																				BgL_arg1709z00_11056 =
																					RGC_BUFFER_BUFPOS(BgL_tmpz00_13020);
																			}
																			{
																				long BgL_bufposz00_13024;
																				long BgL_forwardz00_13023;

																				BgL_forwardz00_13023 =
																					BgL_arg1708z00_11055;
																				BgL_bufposz00_13024 =
																					BgL_arg1709z00_11056;
																				BgL_bufposz00_11053 =
																					BgL_bufposz00_13024;
																				BgL_forwardz00_11052 =
																					BgL_forwardz00_13023;
																				goto BgL_statezd22zd21167z00_11019;
																			}
																		}
																	else
																		{	/* Llib/date.scm 1021 */
																			BgL_matchz00_11021 =
																				BgL_newzd2matchzd2_11054;
																		}
																}
															else
																{	/* Llib/date.scm 1021 */
																	int BgL_curz00_11057;

																	{	/* Llib/date.scm 1021 */
																		obj_t BgL_tmpz00_13025;

																		BgL_tmpz00_13025 =
																			((obj_t) BgL_iportz00_11050);
																		BgL_curz00_11057 =
																			RGC_BUFFER_GET_CHAR(BgL_tmpz00_13025,
																			BgL_forwardz00_11052);
																	}
																	{	/* Llib/date.scm 1021 */

																		{	/* Llib/date.scm 1021 */
																			bool_t BgL_test5495z00_13028;

																			{	/* Llib/date.scm 1021 */
																				bool_t BgL_test5496z00_13029;

																				if (((long) (BgL_curz00_11057) == 10L))
																					{	/* Llib/date.scm 1021 */
																						BgL_test5496z00_13029 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Llib/date.scm 1021 */
																						BgL_test5496z00_13029 =
																							((long) (BgL_curz00_11057) == 9L);
																					}
																				if (BgL_test5496z00_13029)
																					{	/* Llib/date.scm 1021 */
																						BgL_test5495z00_13028 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Llib/date.scm 1021 */
																						if (
																							((long) (BgL_curz00_11057) ==
																								13L))
																							{	/* Llib/date.scm 1021 */
																								BgL_test5495z00_13028 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Llib/date.scm 1021 */
																								BgL_test5495z00_13028 =
																									(
																									(long) (BgL_curz00_11057) ==
																									32L);
																			}}}
																			if (BgL_test5495z00_13028)
																				{	/* Llib/date.scm 1021 */
																					BgL_iportz00_11026 =
																						BgL_iportz00_11050;
																					BgL_lastzd2matchzd2_11027 =
																						BgL_newzd2matchzd2_11054;
																					BgL_forwardz00_11028 =
																						(1L + BgL_forwardz00_11052);
																					BgL_bufposz00_11029 =
																						BgL_bufposz00_11053;
																				BgL_statezd26zd21171z00_11016:
																					{	/* Llib/date.scm 1021 */
																						long BgL_newzd2matchzd2_11030;

																						{	/* Llib/date.scm 1021 */
																							obj_t BgL_tmpz00_13040;

																							BgL_tmpz00_13040 =
																								((obj_t) BgL_iportz00_11026);
																							RGC_STOP_MATCH(BgL_tmpz00_13040,
																								BgL_forwardz00_11028);
																						}
																						BgL_newzd2matchzd2_11030 = 0L;
																						if (
																							(BgL_forwardz00_11028 ==
																								BgL_bufposz00_11029))
																							{	/* Llib/date.scm 1021 */
																								if (rgc_fill_buffer(
																										((obj_t)
																											BgL_iportz00_11026)))
																									{	/* Llib/date.scm 1021 */
																										long BgL_arg1734z00_11031;
																										long BgL_arg1735z00_11032;

																										{	/* Llib/date.scm 1021 */
																											obj_t BgL_tmpz00_13048;

																											BgL_tmpz00_13048 =
																												((obj_t)
																												BgL_iportz00_11026);
																											BgL_arg1734z00_11031 =
																												RGC_BUFFER_FORWARD
																												(BgL_tmpz00_13048);
																										}
																										{	/* Llib/date.scm 1021 */
																											obj_t BgL_tmpz00_13051;

																											BgL_tmpz00_13051 =
																												((obj_t)
																												BgL_iportz00_11026);
																											BgL_arg1735z00_11032 =
																												RGC_BUFFER_BUFPOS
																												(BgL_tmpz00_13051);
																										}
																										{
																											long BgL_bufposz00_13055;
																											long BgL_forwardz00_13054;

																											BgL_forwardz00_13054 =
																												BgL_arg1734z00_11031;
																											BgL_bufposz00_13055 =
																												BgL_arg1735z00_11032;
																											BgL_bufposz00_11029 =
																												BgL_bufposz00_13055;
																											BgL_forwardz00_11028 =
																												BgL_forwardz00_13054;
																											goto
																												BgL_statezd26zd21171z00_11016;
																										}
																									}
																								else
																									{	/* Llib/date.scm 1021 */
																										BgL_matchz00_11021 =
																											BgL_newzd2matchzd2_11030;
																									}
																							}
																						else
																							{	/* Llib/date.scm 1021 */
																								int BgL_curz00_11033;

																								{	/* Llib/date.scm 1021 */
																									obj_t BgL_tmpz00_13056;

																									BgL_tmpz00_13056 =
																										((obj_t)
																										BgL_iportz00_11026);
																									BgL_curz00_11033 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_tmpz00_13056,
																										BgL_forwardz00_11028);
																								}
																								{	/* Llib/date.scm 1021 */

																									{	/* Llib/date.scm 1021 */
																										bool_t
																											BgL_test5501z00_13059;
																										{	/* Llib/date.scm 1021 */
																											bool_t
																												BgL_test5502z00_13060;
																											if (((long)
																													(BgL_curz00_11033) ==
																													10L))
																												{	/* Llib/date.scm 1021 */
																													BgL_test5502z00_13060
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Llib/date.scm 1021 */
																													BgL_test5502z00_13060
																														=
																														((long)
																														(BgL_curz00_11033)
																														== 9L);
																												}
																											if (BgL_test5502z00_13060)
																												{	/* Llib/date.scm 1021 */
																													BgL_test5501z00_13059
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Llib/date.scm 1021 */
																													if (
																														((long)
																															(BgL_curz00_11033)
																															== 13L))
																														{	/* Llib/date.scm 1021 */
																															BgL_test5501z00_13059
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Llib/date.scm 1021 */
																															BgL_test5501z00_13059
																																=
																																((long)
																																(BgL_curz00_11033)
																																== 32L);
																										}}}
																										if (BgL_test5501z00_13059)
																											{
																												long
																													BgL_forwardz00_13072;
																												long
																													BgL_lastzd2matchzd2_13071;
																												BgL_lastzd2matchzd2_13071
																													=
																													BgL_newzd2matchzd2_11030;
																												BgL_forwardz00_13072 =
																													(1L +
																													BgL_forwardz00_11028);
																												BgL_forwardz00_11028 =
																													BgL_forwardz00_13072;
																												BgL_lastzd2matchzd2_11027
																													=
																													BgL_lastzd2matchzd2_13071;
																												goto
																													BgL_statezd26zd21171z00_11016;
																											}
																										else
																											{	/* Llib/date.scm 1021 */
																												BgL_matchz00_11021 =
																													BgL_newzd2matchzd2_11030;
																											}
																									}
																								}
																							}
																					}
																				}
																			else
																				{	/* Llib/date.scm 1021 */
																					BgL_matchz00_11021 =
																						BgL_newzd2matchzd2_11054;
																				}
																		}
																	}
																}
														}
													}
												else
													{	/* Llib/date.scm 1021 */
														long BgL_arg1703z00_11065;

														BgL_arg1703z00_11065 = (1L + BgL_forwardz00_11060);
														{	/* Llib/date.scm 1021 */
															long BgL_newzd2matchzd2_11066;

															{	/* Llib/date.scm 1021 */
																obj_t BgL_tmpz00_13077;

																BgL_tmpz00_13077 = ((obj_t) BgL_iportz00_11058);
																RGC_STOP_MATCH(BgL_tmpz00_13077,
																	BgL_arg1703z00_11065);
															}
															BgL_newzd2matchzd2_11066 = 2L;
															BgL_matchz00_11021 = BgL_newzd2matchzd2_11066;
					}}}}}}}
					{	/* Llib/date.scm 1021 */
						obj_t BgL_tmpz00_13080;

						BgL_tmpz00_13080 = ((obj_t) BgL_iportz00_10193);
						RGC_SET_FILEPOS(BgL_tmpz00_13080);
					}
					switch (BgL_matchz00_11021)
						{
						case 2L:

							{	/* Llib/date.scm 1029 */
								obj_t BgL_arg1834z00_11024;

								{	/* Llib/date.scm 1021 */
									bool_t BgL_test5505z00_13083;

									{	/* Llib/date.scm 1021 */
										long BgL_arg1827z00_11025;

										{	/* Llib/date.scm 1021 */
											obj_t BgL_tmpz00_13084;

											BgL_tmpz00_13084 = ((obj_t) BgL_iportz00_10193);
											BgL_arg1827z00_11025 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_13084);
										}
										BgL_test5505z00_13083 = (BgL_arg1827z00_11025 == 0L);
									}
									if (BgL_test5505z00_13083)
										{	/* Llib/date.scm 1021 */
											BgL_arg1834z00_11024 = BEOF;
										}
									else
										{	/* Llib/date.scm 1021 */
											unsigned char BgL_tmpz00_13088;

											{	/* Llib/date.scm 1021 */
												obj_t BgL_tmpz00_13089;

												BgL_tmpz00_13089 = ((obj_t) BgL_iportz00_10193);
												BgL_tmpz00_13088 =
													RGC_BUFFER_CHARACTER(BgL_tmpz00_13089);
											}
											BgL_arg1834z00_11024 = BCHAR(BgL_tmpz00_13088);
								}}
								return
									BGl_parsezd2errorzd2zz__datez00(BGl_string4939z00zz__datez00,
									BGl_string4969z00zz__datez00, BgL_arg1834z00_11024,
									((obj_t) BgL_iportz00_10193));
							}
							break;
						case 1L:

							return BINT(rgc_buffer_fixnum(((obj_t) BgL_iportz00_10193)));
							break;
						case 0L:

							goto BgL_ignorez00_11014;
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string4941z00zz__datez00,
								BGl_string4942z00zz__datez00, BINT(BgL_matchz00_11021));
						}
				}
			}
		}

	}



/* &<@anonymous:1449> */
	obj_t BGl_z62zc3z04anonymousza31449ze3ze5zz__datez00(obj_t BgL_envz00_10194,
		obj_t BgL_iportz00_10195)
	{
		{	/* Llib/date.scm 979 */
			{
				obj_t BgL_iportz00_11167;
				long BgL_lastzd2matchzd2_11168;
				long BgL_forwardz00_11169;
				long BgL_bufposz00_11170;
				obj_t BgL_iportz00_11158;
				long BgL_lastzd2matchzd2_11159;
				long BgL_forwardz00_11160;
				long BgL_bufposz00_11161;
				obj_t BgL_iportz00_11143;
				long BgL_lastzd2matchzd2_11144;
				long BgL_forwardz00_11145;
				long BgL_bufposz00_11146;
				obj_t BgL_iportz00_11135;
				long BgL_lastzd2matchzd2_11136;
				long BgL_forwardz00_11137;
				long BgL_bufposz00_11138;
				obj_t BgL_iportz00_11127;
				long BgL_lastzd2matchzd2_11128;
				long BgL_forwardz00_11129;
				long BgL_bufposz00_11130;
				obj_t BgL_iportz00_11118;
				long BgL_lastzd2matchzd2_11119;
				long BgL_forwardz00_11120;
				long BgL_bufposz00_11121;
				obj_t BgL_iportz00_11110;
				long BgL_lastzd2matchzd2_11111;
				long BgL_forwardz00_11112;
				long BgL_bufposz00_11113;
				obj_t BgL_iportz00_11102;
				long BgL_lastzd2matchzd2_11103;
				long BgL_forwardz00_11104;
				long BgL_bufposz00_11105;

			BgL_ignorez00_11068:
				RGC_START_MATCH(BgL_iportz00_10195);
				{	/* Llib/date.scm 979 */
					long BgL_matchz00_11078;

					{	/* Llib/date.scm 979 */
						long BgL_arg1681z00_11079;
						long BgL_arg1683z00_11080;

						BgL_arg1681z00_11079 = RGC_BUFFER_FORWARD(BgL_iportz00_10195);
						BgL_arg1683z00_11080 = RGC_BUFFER_BUFPOS(BgL_iportz00_10195);
						BgL_iportz00_11167 = BgL_iportz00_10195;
						BgL_lastzd2matchzd2_11168 = 3L;
						BgL_forwardz00_11169 = BgL_arg1681z00_11079;
						BgL_bufposz00_11170 = BgL_arg1683z00_11080;
					BgL_statezd20zd21149z00_11077:
						if ((BgL_forwardz00_11169 == BgL_bufposz00_11170))
							{	/* Llib/date.scm 979 */
								if (rgc_fill_buffer(BgL_iportz00_11167))
									{	/* Llib/date.scm 979 */
										long BgL_arg1453z00_11171;
										long BgL_arg1455z00_11172;

										BgL_arg1453z00_11171 =
											RGC_BUFFER_FORWARD(BgL_iportz00_11167);
										BgL_arg1455z00_11172 =
											RGC_BUFFER_BUFPOS(BgL_iportz00_11167);
										{
											long BgL_bufposz00_13111;
											long BgL_forwardz00_13110;

											BgL_forwardz00_13110 = BgL_arg1453z00_11171;
											BgL_bufposz00_13111 = BgL_arg1455z00_11172;
											BgL_bufposz00_11170 = BgL_bufposz00_13111;
											BgL_forwardz00_11169 = BgL_forwardz00_13110;
											goto BgL_statezd20zd21149z00_11077;
										}
									}
								else
									{	/* Llib/date.scm 979 */
										BgL_matchz00_11078 = BgL_lastzd2matchzd2_11168;
									}
							}
						else
							{	/* Llib/date.scm 979 */
								int BgL_curz00_11173;

								BgL_curz00_11173 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_11167, BgL_forwardz00_11169);
								{	/* Llib/date.scm 979 */

									{	/* Llib/date.scm 979 */
										bool_t BgL_test5508z00_13113;

										if (((long) (BgL_curz00_11173) == 70L))
											{	/* Llib/date.scm 979 */
												BgL_test5508z00_13113 = ((bool_t) 1);
											}
										else
											{	/* Llib/date.scm 979 */
												if (((long) (BgL_curz00_11173) == 77L))
													{	/* Llib/date.scm 979 */
														BgL_test5508z00_13113 = ((bool_t) 1);
													}
												else
													{	/* Llib/date.scm 979 */
														bool_t BgL_test5511z00_13120;

														if (((long) (BgL_curz00_11173) == 84L))
															{	/* Llib/date.scm 979 */
																BgL_test5511z00_13120 = ((bool_t) 1);
															}
														else
															{	/* Llib/date.scm 979 */
																BgL_test5511z00_13120 =
																	((long) (BgL_curz00_11173) == 83L);
															}
														if (BgL_test5511z00_13120)
															{	/* Llib/date.scm 979 */
																BgL_test5508z00_13113 = ((bool_t) 1);
															}
														else
															{	/* Llib/date.scm 979 */
																BgL_test5508z00_13113 =
																	((long) (BgL_curz00_11173) == 87L);
											}}}
										if (BgL_test5508z00_13113)
											{	/* Llib/date.scm 979 */
												BgL_iportz00_11118 = BgL_iportz00_11167;
												BgL_lastzd2matchzd2_11119 = BgL_lastzd2matchzd2_11168;
												BgL_forwardz00_11120 = (1L + BgL_forwardz00_11169);
												BgL_bufposz00_11121 = BgL_bufposz00_11170;
											BgL_statezd24zd21153z00_11072:
												{	/* Llib/date.scm 979 */
													long BgL_newzd2matchzd2_11122;

													RGC_STOP_MATCH(BgL_iportz00_11118,
														BgL_forwardz00_11120);
													BgL_newzd2matchzd2_11122 = 3L;
													if ((BgL_forwardz00_11120 == BgL_bufposz00_11121))
														{	/* Llib/date.scm 979 */
															if (rgc_fill_buffer(BgL_iportz00_11118))
																{	/* Llib/date.scm 979 */
																	long BgL_arg1520z00_11123;
																	long BgL_arg1521z00_11124;

																	BgL_arg1520z00_11123 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_11118);
																	BgL_arg1521z00_11124 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_11118);
																	{
																		long BgL_bufposz00_13136;
																		long BgL_forwardz00_13135;

																		BgL_forwardz00_13135 = BgL_arg1520z00_11123;
																		BgL_bufposz00_13136 = BgL_arg1521z00_11124;
																		BgL_bufposz00_11121 = BgL_bufposz00_13136;
																		BgL_forwardz00_11120 = BgL_forwardz00_13135;
																		goto BgL_statezd24zd21153z00_11072;
																	}
																}
															else
																{	/* Llib/date.scm 979 */
																	BgL_matchz00_11078 = BgL_newzd2matchzd2_11122;
																}
														}
													else
														{	/* Llib/date.scm 979 */
															int BgL_curz00_11125;

															BgL_curz00_11125 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_11118,
																BgL_forwardz00_11120);
															{	/* Llib/date.scm 979 */

																{	/* Llib/date.scm 979 */
																	bool_t BgL_test5515z00_13138;

																	if (((long) (BgL_curz00_11125) == 97L))
																		{	/* Llib/date.scm 979 */
																			BgL_test5515z00_13138 = ((bool_t) 1);
																		}
																	else
																		{	/* Llib/date.scm 979 */
																			bool_t BgL_test5517z00_13142;

																			if (((long) (BgL_curz00_11125) == 101L))
																				{	/* Llib/date.scm 979 */
																					BgL_test5517z00_13142 = ((bool_t) 1);
																				}
																			else
																				{	/* Llib/date.scm 979 */
																					BgL_test5517z00_13142 =
																						((long) (BgL_curz00_11125) == 100L);
																				}
																			if (BgL_test5517z00_13142)
																				{	/* Llib/date.scm 979 */
																					BgL_test5515z00_13138 = ((bool_t) 1);
																				}
																			else
																				{	/* Llib/date.scm 979 */
																					bool_t BgL_test5519z00_13148;

																					if (
																						((long) (BgL_curz00_11125) == 105L))
																						{	/* Llib/date.scm 979 */
																							BgL_test5519z00_13148 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Llib/date.scm 979 */
																							BgL_test5519z00_13148 =
																								(
																								(long) (BgL_curz00_11125) ==
																								104L);
																						}
																					if (BgL_test5519z00_13148)
																						{	/* Llib/date.scm 979 */
																							BgL_test5515z00_13138 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Llib/date.scm 979 */
																							bool_t BgL_test5521z00_13154;

																							if (
																								((long) (BgL_curz00_11125) ==
																									111L))
																								{	/* Llib/date.scm 979 */
																									BgL_test5521z00_13154 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Llib/date.scm 979 */
																									BgL_test5521z00_13154 =
																										(
																										(long) (BgL_curz00_11125) ==
																										110L);
																								}
																							if (BgL_test5521z00_13154)
																								{	/* Llib/date.scm 979 */
																									BgL_test5515z00_13138 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Llib/date.scm 979 */
																									if (
																										((long) (BgL_curz00_11125)
																											== 114L))
																										{	/* Llib/date.scm 979 */
																											BgL_test5515z00_13138 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Llib/date.scm 979 */
																											bool_t
																												BgL__ortest_1162z00_11126;
																											BgL__ortest_1162z00_11126
																												=
																												((long)
																												(BgL_curz00_11125) ==
																												117L);
																											if (BgL__ortest_1162z00_11126)
																												{	/* Llib/date.scm 979 */
																													BgL_test5515z00_13138
																														=
																														BgL__ortest_1162z00_11126;
																												}
																											else
																												{	/* Llib/date.scm 979 */
																													BgL_test5515z00_13138
																														=
																														((long)
																														(BgL_curz00_11125)
																														== 116L);
																		}}}}}}
																	if (BgL_test5515z00_13138)
																		{	/* Llib/date.scm 979 */
																			BgL_iportz00_11143 = BgL_iportz00_11118;
																			BgL_lastzd2matchzd2_11144 =
																				BgL_newzd2matchzd2_11122;
																			BgL_forwardz00_11145 =
																				(1L + BgL_forwardz00_11120);
																			BgL_bufposz00_11146 = BgL_bufposz00_11121;
																		BgL_statezd25zd21154z00_11075:
																			if (
																				(BgL_forwardz00_11145 ==
																					BgL_bufposz00_11146))
																				{	/* Llib/date.scm 979 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_11143))
																						{	/* Llib/date.scm 979 */
																							long BgL_arg1486z00_11147;
																							long BgL_arg1487z00_11148;

																							BgL_arg1486z00_11147 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_11143);
																							BgL_arg1487z00_11148 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_11143);
																							{
																								long BgL_bufposz00_13175;
																								long BgL_forwardz00_13174;

																								BgL_forwardz00_13174 =
																									BgL_arg1486z00_11147;
																								BgL_bufposz00_13175 =
																									BgL_arg1487z00_11148;
																								BgL_bufposz00_11146 =
																									BgL_bufposz00_13175;
																								BgL_forwardz00_11145 =
																									BgL_forwardz00_13174;
																								goto
																									BgL_statezd25zd21154z00_11075;
																							}
																						}
																					else
																						{	/* Llib/date.scm 979 */
																							BgL_matchz00_11078 =
																								BgL_lastzd2matchzd2_11144;
																						}
																				}
																			else
																				{	/* Llib/date.scm 979 */
																					int BgL_curz00_11149;

																					BgL_curz00_11149 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_11143,
																						BgL_forwardz00_11145);
																					{	/* Llib/date.scm 979 */

																						{	/* Llib/date.scm 979 */
																							bool_t BgL_test5527z00_13177;

																							if (
																								((long) (BgL_curz00_11149) ==
																									97L))
																								{	/* Llib/date.scm 979 */
																									BgL_test5527z00_13177 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Llib/date.scm 979 */
																									bool_t BgL_test5529z00_13181;

																									if (
																										((long) (BgL_curz00_11149)
																											== 101L))
																										{	/* Llib/date.scm 979 */
																											BgL_test5529z00_13181 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Llib/date.scm 979 */
																											BgL_test5529z00_13181 =
																												(
																												(long)
																												(BgL_curz00_11149) ==
																												100L);
																										}
																									if (BgL_test5529z00_13181)
																										{	/* Llib/date.scm 979 */
																											BgL_test5527z00_13177 =
																												((bool_t) 1);
																										}
																									else
																										{	/* Llib/date.scm 979 */
																											bool_t
																												BgL_test5531z00_13187;
																											if (((long)
																													(BgL_curz00_11149) ==
																													105L))
																												{	/* Llib/date.scm 979 */
																													BgL_test5531z00_13187
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Llib/date.scm 979 */
																													BgL_test5531z00_13187
																														=
																														((long)
																														(BgL_curz00_11149)
																														== 104L);
																												}
																											if (BgL_test5531z00_13187)
																												{	/* Llib/date.scm 979 */
																													BgL_test5527z00_13177
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Llib/date.scm 979 */
																													bool_t
																														BgL_test5533z00_13193;
																													if (((long)
																															(BgL_curz00_11149)
																															== 111L))
																														{	/* Llib/date.scm 979 */
																															BgL_test5533z00_13193
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Llib/date.scm 979 */
																															BgL_test5533z00_13193
																																=
																																((long)
																																(BgL_curz00_11149)
																																== 110L);
																														}
																													if (BgL_test5533z00_13193)
																														{	/* Llib/date.scm 979 */
																															BgL_test5527z00_13177
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Llib/date.scm 979 */
																															if (
																																((long)
																																	(BgL_curz00_11149)
																																	== 114L))
																																{	/* Llib/date.scm 979 */
																																	BgL_test5527z00_13177
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Llib/date.scm 979 */
																																	bool_t
																																		BgL__ortest_1161z00_11150;
																																	BgL__ortest_1161z00_11150
																																		=
																																		((long)
																																		(BgL_curz00_11149)
																																		== 117L);
																																	if (BgL__ortest_1161z00_11150)
																																		{	/* Llib/date.scm 979 */
																																			BgL_test5527z00_13177
																																				=
																																				BgL__ortest_1161z00_11150;
																																		}
																																	else
																																		{	/* Llib/date.scm 979 */
																																			BgL_test5527z00_13177
																																				=
																																				((long)
																																				(BgL_curz00_11149)
																																				==
																																				116L);
																								}}}}}}
																							if (BgL_test5527z00_13177)
																								{	/* Llib/date.scm 979 */
																									long BgL_arg1497z00_11151;

																									BgL_arg1497z00_11151 =
																										(1L + BgL_forwardz00_11145);
																									{
																										long BgL_forwardz00_11153;
																										long BgL_bufposz00_11154;

																										BgL_forwardz00_11153 =
																											BgL_arg1497z00_11151;
																										BgL_bufposz00_11154 =
																											BgL_bufposz00_11146;
																									BgL_statezd27zd21156z00_11152:
																										if (
																											(BgL_forwardz00_11153 ==
																												BgL_bufposz00_11154))
																											{	/* Llib/date.scm 979 */
																												if (rgc_fill_buffer
																													(BgL_iportz00_11143))
																													{	/* Llib/date.scm 979 */
																														long
																															BgL_arg1545z00_11155;
																														long
																															BgL_arg1546z00_11156;
																														BgL_arg1545z00_11155
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_iportz00_11143);
																														BgL_arg1546z00_11156
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_iportz00_11143);
																														{
																															long
																																BgL_bufposz00_13215;
																															long
																																BgL_forwardz00_13214;
																															BgL_forwardz00_13214
																																=
																																BgL_arg1545z00_11155;
																															BgL_bufposz00_13215
																																=
																																BgL_arg1546z00_11156;
																															BgL_bufposz00_11154
																																=
																																BgL_bufposz00_13215;
																															BgL_forwardz00_11153
																																=
																																BgL_forwardz00_13214;
																															goto
																																BgL_statezd27zd21156z00_11152;
																														}
																													}
																												else
																													{	/* Llib/date.scm 979 */
																														BgL_matchz00_11078 =
																															BgL_lastzd2matchzd2_11144;
																													}
																											}
																										else
																											{	/* Llib/date.scm 979 */
																												int BgL_curz00_11157;

																												BgL_curz00_11157 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_iportz00_11143,
																													BgL_forwardz00_11153);
																												{	/* Llib/date.scm 979 */

																													if (
																														((long)
																															(BgL_curz00_11157)
																															== 44L))
																														{	/* Llib/date.scm 979 */
																															BgL_iportz00_11158
																																=
																																BgL_iportz00_11143;
																															BgL_lastzd2matchzd2_11159
																																=
																																BgL_lastzd2matchzd2_11144;
																															BgL_forwardz00_11160
																																=
																																(1L +
																																BgL_forwardz00_11153);
																															BgL_bufposz00_11161
																																=
																																BgL_bufposz00_11154;
																														BgL_statezd28zd21157z00_11076:
																															if (
																																(BgL_forwardz00_11160
																																	==
																																	BgL_bufposz00_11161))
																																{	/* Llib/date.scm 979 */
																																	if (rgc_fill_buffer(BgL_iportz00_11158))
																																		{	/* Llib/date.scm 979 */
																																			long
																																				BgL_arg1475z00_11162;
																																			long
																																				BgL_arg1476z00_11163;
																																			BgL_arg1475z00_11162
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_11158);
																																			BgL_arg1476z00_11163
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_11158);
																																			{
																																				long
																																					BgL_bufposz00_13227;
																																				long
																																					BgL_forwardz00_13226;
																																				BgL_forwardz00_13226
																																					=
																																					BgL_arg1475z00_11162;
																																				BgL_bufposz00_13227
																																					=
																																					BgL_arg1476z00_11163;
																																				BgL_bufposz00_11161
																																					=
																																					BgL_bufposz00_13227;
																																				BgL_forwardz00_11160
																																					=
																																					BgL_forwardz00_13226;
																																				goto
																																					BgL_statezd28zd21157z00_11076;
																																			}
																																		}
																																	else
																																		{	/* Llib/date.scm 979 */
																																			BgL_matchz00_11078
																																				=
																																				BgL_lastzd2matchzd2_11159;
																																		}
																																}
																															else
																																{	/* Llib/date.scm 979 */
																																	int
																																		BgL_curz00_11164;
																																	BgL_curz00_11164
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_iportz00_11158,
																																		BgL_forwardz00_11160);
																																	{	/* Llib/date.scm 979 */

																																		{	/* Llib/date.scm 979 */
																																			bool_t
																																				BgL_test5542z00_13229;
																																			{	/* Llib/date.scm 979 */
																																				bool_t
																																					BgL_test5543z00_13230;
																																				if ((
																																						(long)
																																						(BgL_curz00_11164)
																																						==
																																						10L))
																																					{	/* Llib/date.scm 979 */
																																						BgL_test5543z00_13230
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Llib/date.scm 979 */
																																						BgL_test5543z00_13230
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_11164)
																																							==
																																							9L);
																																					}
																																				if (BgL_test5543z00_13230)
																																					{	/* Llib/date.scm 979 */
																																						BgL_test5542z00_13229
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Llib/date.scm 979 */
																																						if (
																																							((long) (BgL_curz00_11164) == 13L))
																																							{	/* Llib/date.scm 979 */
																																								BgL_test5542z00_13229
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Llib/date.scm 979 */
																																								BgL_test5542z00_13229
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_11164)
																																									==
																																									32L);
																																			}}}
																																			if (BgL_test5542z00_13229)
																																				{	/* Llib/date.scm 979 */
																																					long
																																						BgL_arg1481z00_11165;
																																					BgL_arg1481z00_11165
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_11160);
																																					{	/* Llib/date.scm 979 */
																																						long
																																							BgL_newzd2matchzd2_11166;
																																						RGC_STOP_MATCH
																																							(BgL_iportz00_11158,
																																							BgL_arg1481z00_11165);
																																						BgL_newzd2matchzd2_11166
																																							=
																																							1L;
																																						BgL_matchz00_11078
																																							=
																																							BgL_newzd2matchzd2_11166;
																																				}}
																																			else
																																				{	/* Llib/date.scm 979 */
																																					BgL_matchz00_11078
																																						=
																																						BgL_lastzd2matchzd2_11159;
																																				}
																																		}
																																	}
																																}
																														}
																													else
																														{	/* Llib/date.scm 979 */
																															BgL_matchz00_11078
																																=
																																BgL_lastzd2matchzd2_11144;
																														}
																												}
																											}
																									}
																								}
																							else
																								{	/* Llib/date.scm 979 */
																									BgL_matchz00_11078 =
																										BgL_lastzd2matchzd2_11144;
																								}
																						}
																					}
																				}
																		}
																	else
																		{	/* Llib/date.scm 979 */
																			BgL_matchz00_11078 =
																				BgL_newzd2matchzd2_11122;
																		}
																}
															}
														}
												}
											}
										else
											{	/* Llib/date.scm 979 */
												bool_t BgL_test5546z00_13246;

												if (((long) (BgL_curz00_11173) >= 48L))
													{	/* Llib/date.scm 979 */
														BgL_test5546z00_13246 =
															((long) (BgL_curz00_11173) < 58L);
													}
												else
													{	/* Llib/date.scm 979 */
														BgL_test5546z00_13246 = ((bool_t) 0);
													}
												if (BgL_test5546z00_13246)
													{	/* Llib/date.scm 979 */
														BgL_iportz00_11127 = BgL_iportz00_11167;
														BgL_lastzd2matchzd2_11128 =
															BgL_lastzd2matchzd2_11168;
														BgL_forwardz00_11129 = (1L + BgL_forwardz00_11169);
														BgL_bufposz00_11130 = BgL_bufposz00_11170;
													BgL_statezd23zd21152z00_11073:
														{	/* Llib/date.scm 979 */
															long BgL_newzd2matchzd2_11131;

															RGC_STOP_MATCH(BgL_iportz00_11127,
																BgL_forwardz00_11129);
															BgL_newzd2matchzd2_11131 = 2L;
															if ((BgL_forwardz00_11129 == BgL_bufposz00_11130))
																{	/* Llib/date.scm 979 */
																	if (rgc_fill_buffer(BgL_iportz00_11127))
																		{	/* Llib/date.scm 979 */
																			long BgL_arg1512z00_11132;
																			long BgL_arg1513z00_11133;

																			BgL_arg1512z00_11132 =
																				RGC_BUFFER_FORWARD(BgL_iportz00_11127);
																			BgL_arg1513z00_11133 =
																				RGC_BUFFER_BUFPOS(BgL_iportz00_11127);
																			{
																				long BgL_bufposz00_13260;
																				long BgL_forwardz00_13259;

																				BgL_forwardz00_13259 =
																					BgL_arg1512z00_11132;
																				BgL_bufposz00_13260 =
																					BgL_arg1513z00_11133;
																				BgL_bufposz00_11130 =
																					BgL_bufposz00_13260;
																				BgL_forwardz00_11129 =
																					BgL_forwardz00_13259;
																				goto BgL_statezd23zd21152z00_11073;
																			}
																		}
																	else
																		{	/* Llib/date.scm 979 */
																			BgL_matchz00_11078 =
																				BgL_newzd2matchzd2_11131;
																		}
																}
															else
																{	/* Llib/date.scm 979 */
																	int BgL_curz00_11134;

																	BgL_curz00_11134 =
																		RGC_BUFFER_GET_CHAR(BgL_iportz00_11127,
																		BgL_forwardz00_11129);
																	{	/* Llib/date.scm 979 */

																		{	/* Llib/date.scm 979 */
																			bool_t BgL_test5550z00_13262;

																			if (((long) (BgL_curz00_11134) >= 48L))
																				{	/* Llib/date.scm 979 */
																					BgL_test5550z00_13262 =
																						((long) (BgL_curz00_11134) < 58L);
																				}
																			else
																				{	/* Llib/date.scm 979 */
																					BgL_test5550z00_13262 = ((bool_t) 0);
																				}
																			if (BgL_test5550z00_13262)
																				{	/* Llib/date.scm 979 */
																					BgL_iportz00_11110 =
																						BgL_iportz00_11127;
																					BgL_lastzd2matchzd2_11111 =
																						BgL_newzd2matchzd2_11131;
																					BgL_forwardz00_11112 =
																						(1L + BgL_forwardz00_11129);
																					BgL_bufposz00_11113 =
																						BgL_bufposz00_11130;
																				BgL_statezd210zd21159z00_11071:
																					{	/* Llib/date.scm 979 */
																						long BgL_newzd2matchzd2_11114;

																						RGC_STOP_MATCH(BgL_iportz00_11110,
																							BgL_forwardz00_11112);
																						BgL_newzd2matchzd2_11114 = 2L;
																						if (
																							(BgL_forwardz00_11112 ==
																								BgL_bufposz00_11113))
																							{	/* Llib/date.scm 979 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_11110))
																									{	/* Llib/date.scm 979 */
																										long BgL_arg1537z00_11115;
																										long BgL_arg1538z00_11116;

																										BgL_arg1537z00_11115 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_11110);
																										BgL_arg1538z00_11116 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_11110);
																										{
																											long BgL_bufposz00_13276;
																											long BgL_forwardz00_13275;

																											BgL_forwardz00_13275 =
																												BgL_arg1537z00_11115;
																											BgL_bufposz00_13276 =
																												BgL_arg1538z00_11116;
																											BgL_bufposz00_11113 =
																												BgL_bufposz00_13276;
																											BgL_forwardz00_11112 =
																												BgL_forwardz00_13275;
																											goto
																												BgL_statezd210zd21159z00_11071;
																										}
																									}
																								else
																									{	/* Llib/date.scm 979 */
																										BgL_matchz00_11078 =
																											BgL_newzd2matchzd2_11114;
																									}
																							}
																						else
																							{	/* Llib/date.scm 979 */
																								int BgL_curz00_11117;

																								BgL_curz00_11117 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_11110,
																									BgL_forwardz00_11112);
																								{	/* Llib/date.scm 979 */

																									{	/* Llib/date.scm 979 */
																										bool_t
																											BgL_test5554z00_13278;
																										if (((long)
																												(BgL_curz00_11117) >=
																												48L))
																											{	/* Llib/date.scm 979 */
																												BgL_test5554z00_13278 =
																													(
																													(long)
																													(BgL_curz00_11117) <
																													58L);
																											}
																										else
																											{	/* Llib/date.scm 979 */
																												BgL_test5554z00_13278 =
																													((bool_t) 0);
																											}
																										if (BgL_test5554z00_13278)
																											{
																												long
																													BgL_forwardz00_13285;
																												long
																													BgL_lastzd2matchzd2_13284;
																												BgL_lastzd2matchzd2_13284
																													=
																													BgL_newzd2matchzd2_11114;
																												BgL_forwardz00_13285 =
																													(1L +
																													BgL_forwardz00_11112);
																												BgL_forwardz00_11112 =
																													BgL_forwardz00_13285;
																												BgL_lastzd2matchzd2_11111
																													=
																													BgL_lastzd2matchzd2_13284;
																												goto
																													BgL_statezd210zd21159z00_11071;
																											}
																										else
																											{	/* Llib/date.scm 979 */
																												BgL_matchz00_11078 =
																													BgL_newzd2matchzd2_11114;
																											}
																									}
																								}
																							}
																					}
																				}
																			else
																				{	/* Llib/date.scm 979 */
																					BgL_matchz00_11078 =
																						BgL_newzd2matchzd2_11131;
																				}
																		}
																	}
																}
														}
													}
												else
													{	/* Llib/date.scm 979 */
														bool_t BgL_test5556z00_13289;

														{	/* Llib/date.scm 979 */
															bool_t BgL_test5557z00_13290;

															if (((long) (BgL_curz00_11173) == 10L))
																{	/* Llib/date.scm 979 */
																	BgL_test5557z00_13290 = ((bool_t) 1);
																}
															else
																{	/* Llib/date.scm 979 */
																	BgL_test5557z00_13290 =
																		((long) (BgL_curz00_11173) == 9L);
																}
															if (BgL_test5557z00_13290)
																{	/* Llib/date.scm 979 */
																	BgL_test5556z00_13289 = ((bool_t) 1);
																}
															else
																{	/* Llib/date.scm 979 */
																	if (((long) (BgL_curz00_11173) == 13L))
																		{	/* Llib/date.scm 979 */
																			BgL_test5556z00_13289 = ((bool_t) 1);
																		}
																	else
																		{	/* Llib/date.scm 979 */
																			BgL_test5556z00_13289 =
																				((long) (BgL_curz00_11173) == 32L);
														}}}
														if (BgL_test5556z00_13289)
															{	/* Llib/date.scm 979 */
																BgL_iportz00_11135 = BgL_iportz00_11167;
																BgL_lastzd2matchzd2_11136 =
																	BgL_lastzd2matchzd2_11168;
																BgL_forwardz00_11137 =
																	(1L + BgL_forwardz00_11169);
																BgL_bufposz00_11138 = BgL_bufposz00_11170;
															BgL_statezd22zd21151z00_11074:
																{	/* Llib/date.scm 979 */
																	long BgL_newzd2matchzd2_11139;

																	RGC_STOP_MATCH(BgL_iportz00_11135,
																		BgL_forwardz00_11137);
																	BgL_newzd2matchzd2_11139 = 0L;
																	if (
																		(BgL_forwardz00_11137 ==
																			BgL_bufposz00_11138))
																		{	/* Llib/date.scm 979 */
																			if (rgc_fill_buffer(BgL_iportz00_11135))
																				{	/* Llib/date.scm 979 */
																					long BgL_arg1501z00_11140;
																					long BgL_arg1502z00_11141;

																					BgL_arg1501z00_11140 =
																						RGC_BUFFER_FORWARD
																						(BgL_iportz00_11135);
																					BgL_arg1502z00_11141 =
																						RGC_BUFFER_BUFPOS
																						(BgL_iportz00_11135);
																					{
																						long BgL_bufposz00_13309;
																						long BgL_forwardz00_13308;

																						BgL_forwardz00_13308 =
																							BgL_arg1501z00_11140;
																						BgL_bufposz00_13309 =
																							BgL_arg1502z00_11141;
																						BgL_bufposz00_11138 =
																							BgL_bufposz00_13309;
																						BgL_forwardz00_11137 =
																							BgL_forwardz00_13308;
																						goto BgL_statezd22zd21151z00_11074;
																					}
																				}
																			else
																				{	/* Llib/date.scm 979 */
																					BgL_matchz00_11078 =
																						BgL_newzd2matchzd2_11139;
																				}
																		}
																	else
																		{	/* Llib/date.scm 979 */
																			int BgL_curz00_11142;

																			BgL_curz00_11142 =
																				RGC_BUFFER_GET_CHAR(BgL_iportz00_11135,
																				BgL_forwardz00_11137);
																			{	/* Llib/date.scm 979 */

																				{	/* Llib/date.scm 979 */
																					bool_t BgL_test5562z00_13311;

																					{	/* Llib/date.scm 979 */
																						bool_t BgL_test5563z00_13312;

																						if (
																							((long) (BgL_curz00_11142) ==
																								10L))
																							{	/* Llib/date.scm 979 */
																								BgL_test5563z00_13312 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Llib/date.scm 979 */
																								BgL_test5563z00_13312 =
																									(
																									(long) (BgL_curz00_11142) ==
																									9L);
																							}
																						if (BgL_test5563z00_13312)
																							{	/* Llib/date.scm 979 */
																								BgL_test5562z00_13311 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Llib/date.scm 979 */
																								if (
																									((long) (BgL_curz00_11142) ==
																										13L))
																									{	/* Llib/date.scm 979 */
																										BgL_test5562z00_13311 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Llib/date.scm 979 */
																										BgL_test5562z00_13311 =
																											(
																											(long) (BgL_curz00_11142)
																											== 32L);
																					}}}
																					if (BgL_test5562z00_13311)
																						{	/* Llib/date.scm 979 */
																							BgL_iportz00_11102 =
																								BgL_iportz00_11135;
																							BgL_lastzd2matchzd2_11103 =
																								BgL_newzd2matchzd2_11139;
																							BgL_forwardz00_11104 =
																								(1L + BgL_forwardz00_11137);
																							BgL_bufposz00_11105 =
																								BgL_bufposz00_11138;
																						BgL_statezd211zd21160z00_11070:
																							{	/* Llib/date.scm 979 */
																								long BgL_newzd2matchzd2_11106;

																								RGC_STOP_MATCH
																									(BgL_iportz00_11102,
																									BgL_forwardz00_11104);
																								BgL_newzd2matchzd2_11106 = 0L;
																								if (
																									(BgL_forwardz00_11104 ==
																										BgL_bufposz00_11105))
																									{	/* Llib/date.scm 979 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_11102))
																											{	/* Llib/date.scm 979 */
																												long
																													BgL_arg1554z00_11107;
																												long
																													BgL_arg1555z00_11108;
																												BgL_arg1554z00_11107 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_11102);
																												BgL_arg1555z00_11108 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_11102);
																												{
																													long
																														BgL_bufposz00_13331;
																													long
																														BgL_forwardz00_13330;
																													BgL_forwardz00_13330 =
																														BgL_arg1554z00_11107;
																													BgL_bufposz00_13331 =
																														BgL_arg1555z00_11108;
																													BgL_bufposz00_11105 =
																														BgL_bufposz00_13331;
																													BgL_forwardz00_11104 =
																														BgL_forwardz00_13330;
																													goto
																														BgL_statezd211zd21160z00_11070;
																												}
																											}
																										else
																											{	/* Llib/date.scm 979 */
																												BgL_matchz00_11078 =
																													BgL_newzd2matchzd2_11106;
																											}
																									}
																								else
																									{	/* Llib/date.scm 979 */
																										int BgL_curz00_11109;

																										BgL_curz00_11109 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_11102,
																											BgL_forwardz00_11104);
																										{	/* Llib/date.scm 979 */

																											{	/* Llib/date.scm 979 */
																												bool_t
																													BgL_test5568z00_13333;
																												{	/* Llib/date.scm 979 */
																													bool_t
																														BgL_test5569z00_13334;
																													if (((long)
																															(BgL_curz00_11109)
																															== 10L))
																														{	/* Llib/date.scm 979 */
																															BgL_test5569z00_13334
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Llib/date.scm 979 */
																															BgL_test5569z00_13334
																																=
																																((long)
																																(BgL_curz00_11109)
																																== 9L);
																														}
																													if (BgL_test5569z00_13334)
																														{	/* Llib/date.scm 979 */
																															BgL_test5568z00_13333
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Llib/date.scm 979 */
																															if (
																																((long)
																																	(BgL_curz00_11109)
																																	== 13L))
																																{	/* Llib/date.scm 979 */
																																	BgL_test5568z00_13333
																																		=
																																		((bool_t)
																																		1);
																																}
																															else
																																{	/* Llib/date.scm 979 */
																																	BgL_test5568z00_13333
																																		=
																																		((long)
																																		(BgL_curz00_11109)
																																		== 32L);
																												}}}
																												if (BgL_test5568z00_13333)
																													{
																														long
																															BgL_forwardz00_13346;
																														long
																															BgL_lastzd2matchzd2_13345;
																														BgL_lastzd2matchzd2_13345
																															=
																															BgL_newzd2matchzd2_11106;
																														BgL_forwardz00_13346
																															=
																															(1L +
																															BgL_forwardz00_11104);
																														BgL_forwardz00_11104
																															=
																															BgL_forwardz00_13346;
																														BgL_lastzd2matchzd2_11103
																															=
																															BgL_lastzd2matchzd2_13345;
																														goto
																															BgL_statezd211zd21160z00_11070;
																													}
																												else
																													{	/* Llib/date.scm 979 */
																														BgL_matchz00_11078 =
																															BgL_newzd2matchzd2_11106;
																													}
																											}
																										}
																									}
																							}
																						}
																					else
																						{	/* Llib/date.scm 979 */
																							BgL_matchz00_11078 =
																								BgL_newzd2matchzd2_11139;
																						}
																				}
																			}
																		}
																}
															}
														else
															{	/* Llib/date.scm 979 */
																long BgL_arg1470z00_11174;

																BgL_arg1470z00_11174 =
																	(1L + BgL_forwardz00_11169);
																{	/* Llib/date.scm 979 */
																	long BgL_newzd2matchzd2_11175;

																	RGC_STOP_MATCH(BgL_iportz00_11167,
																		BgL_arg1470z00_11174);
																	BgL_newzd2matchzd2_11175 = 3L;
																	BgL_matchz00_11078 = BgL_newzd2matchzd2_11175;
					}}}}}}}}
					RGC_SET_FILEPOS(BgL_iportz00_10195);
					switch (BgL_matchz00_11078)
						{
						case 3L:

							{	/* Llib/date.scm 1013 */
								obj_t BgL_auxz00_13353;

								{	/* Llib/date.scm 979 */
									bool_t BgL_test5572z00_13354;

									{	/* Llib/date.scm 979 */
										long BgL_arg1651z00_11101;

										BgL_arg1651z00_11101 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_10195);
										BgL_test5572z00_13354 = (BgL_arg1651z00_11101 == 0L);
									}
									if (BgL_test5572z00_13354)
										{	/* Llib/date.scm 979 */
											BgL_auxz00_13353 = BEOF;
										}
									else
										{	/* Llib/date.scm 979 */
											BgL_auxz00_13353 =
												BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_10195));
										}
								}
								return
									BGl_parsezd2errorzd2zz__datez00(BGl_string4939z00zz__datez00,
									BGl_string4970z00zz__datez00, BgL_auxz00_13353,
									BgL_iportz00_10195);
							}
							break;
						case 2L:

							{	/* Llib/date.scm 998 */
								long BgL_dayz00_11081;

								BgL_dayz00_11081 = rgc_buffer_fixnum(BgL_iportz00_10195);
								{	/* Llib/date.scm 998 */
									obj_t BgL_monthz00_11082;

									BgL_monthz00_11082 =
										BGL_PROCEDURE_CALL1(BGl_monthzd2grammarzd2zz__datez00,
										BgL_iportz00_10195);
									{	/* Llib/date.scm 999 */
										obj_t BgL_yearz00_11083;

										BgL_yearz00_11083 =
											BGL_PROCEDURE_CALL1
											(BGl_thezd2fixnumzd2grammarz00zz__datez00,
											BgL_iportz00_10195);
										{	/* Llib/date.scm 1000 */

											{	/* Llib/date.scm 1001 */
												obj_t BgL_hourz00_11084;

												BgL_hourz00_11084 =
													BGL_PROCEDURE_CALL1(BGl_timezd2grammarzd2zz__datez00,
													BgL_iportz00_10195);
												{	/* Llib/date.scm 1002 */
													obj_t BgL_minutez00_11085;
													obj_t BgL_secondz00_11086;

													{	/* Llib/date.scm 1003 */
														obj_t BgL_tmpz00_11087;

														{	/* Llib/date.scm 1003 */
															int BgL_tmpz00_13373;

															BgL_tmpz00_13373 = (int) (1L);
															BgL_tmpz00_11087 =
																BGL_MVALUES_VAL(BgL_tmpz00_13373);
														}
														{	/* Llib/date.scm 1003 */
															int BgL_tmpz00_13376;

															BgL_tmpz00_13376 = (int) (1L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_13376, BUNSPEC);
														}
														BgL_minutez00_11085 = BgL_tmpz00_11087;
													}
													{	/* Llib/date.scm 1003 */
														obj_t BgL_tmpz00_11088;

														{	/* Llib/date.scm 1003 */
															int BgL_tmpz00_13379;

															BgL_tmpz00_13379 = (int) (2L);
															BgL_tmpz00_11088 =
																BGL_MVALUES_VAL(BgL_tmpz00_13379);
														}
														{	/* Llib/date.scm 1003 */
															int BgL_tmpz00_13382;

															BgL_tmpz00_13382 = (int) (2L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_13382, BUNSPEC);
														}
														BgL_secondz00_11086 = BgL_tmpz00_11088;
													}
													{	/* Llib/date.scm 1003 */
														obj_t BgL_za7oneza7_11089;

														BgL_za7oneza7_11089 =
															BGL_PROCEDURE_CALL1
															(BGl_za7onezd2grammarz75zz__datez00,
															BgL_iportz00_10195);
														{	/* Llib/date.scm 1008 */
															obj_t BgL_arg1660z00_11090;

															if (((long) CINT(BgL_yearz00_11083) < 100L))
																{	/* Llib/date.scm 1008 */
																	BgL_arg1660z00_11090 =
																		ADDFX(BgL_yearz00_11083, BINT(2000L));
																}
															else
																{	/* Llib/date.scm 1008 */
																	BgL_arg1660z00_11090 = BgL_yearz00_11083;
																}
															if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
																(BgL_za7oneza7_11089))
																{	/* Llib/date.scm 232 */
																	return
																		bgl_make_date(((BGL_LONGLONG_T) 0),
																		CINT(BgL_secondz00_11086),
																		CINT(BgL_minutez00_11085),
																		CINT(BgL_hourz00_11084),
																		(int) (BgL_dayz00_11081),
																		CINT(BgL_monthz00_11082),
																		CINT(BgL_arg1660z00_11090),
																		(long) CINT(BgL_za7oneza7_11089),
																		((bool_t) 1), (int) ((-1L)));
																}
															else
																{	/* Llib/date.scm 232 */
																	return
																		bgl_make_date(((BGL_LONGLONG_T) 0),
																		CINT(BgL_secondz00_11086),
																		CINT(BgL_minutez00_11085),
																		CINT(BgL_hourz00_11084),
																		(int) (BgL_dayz00_11081),
																		CINT(BgL_monthz00_11082),
																		CINT(BgL_arg1660z00_11090), 0L,
																		((bool_t) 0), (int) ((-1L)));
							}}}}}}}}} break;
						case 1L:

							{	/* Llib/date.scm 983 */
								obj_t BgL_dayz00_11091;

								BgL_dayz00_11091 =
									BGL_PROCEDURE_CALL1(BGl_thezd2fixnumzd2grammarz00zz__datez00,
									BgL_iportz00_10195);
								{	/* Llib/date.scm 983 */
									obj_t BgL_monthz00_11092;

									BgL_monthz00_11092 =
										BGL_PROCEDURE_CALL1(BGl_monthzd2grammarzd2zz__datez00,
										BgL_iportz00_10195);
									{	/* Llib/date.scm 984 */
										obj_t BgL_yearz00_11093;

										BgL_yearz00_11093 =
											BGL_PROCEDURE_CALL1
											(BGl_thezd2fixnumzd2grammarz00zz__datez00,
											BgL_iportz00_10195);
										{	/* Llib/date.scm 985 */

											{	/* Llib/date.scm 986 */
												obj_t BgL_hourz00_11094;

												BgL_hourz00_11094 =
													BGL_PROCEDURE_CALL1(BGl_timezd2grammarzd2zz__datez00,
													BgL_iportz00_10195);
												{	/* Llib/date.scm 987 */
													obj_t BgL_minutez00_11095;
													obj_t BgL_secondz00_11096;

													{	/* Llib/date.scm 988 */
														obj_t BgL_tmpz00_11097;

														{	/* Llib/date.scm 988 */
															int BgL_tmpz00_13429;

															BgL_tmpz00_13429 = (int) (1L);
															BgL_tmpz00_11097 =
																BGL_MVALUES_VAL(BgL_tmpz00_13429);
														}
														{	/* Llib/date.scm 988 */
															int BgL_tmpz00_13432;

															BgL_tmpz00_13432 = (int) (1L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_13432, BUNSPEC);
														}
														BgL_minutez00_11095 = BgL_tmpz00_11097;
													}
													{	/* Llib/date.scm 988 */
														obj_t BgL_tmpz00_11098;

														{	/* Llib/date.scm 988 */
															int BgL_tmpz00_13435;

															BgL_tmpz00_13435 = (int) (2L);
															BgL_tmpz00_11098 =
																BGL_MVALUES_VAL(BgL_tmpz00_13435);
														}
														{	/* Llib/date.scm 988 */
															int BgL_tmpz00_13438;

															BgL_tmpz00_13438 = (int) (2L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_13438, BUNSPEC);
														}
														BgL_secondz00_11096 = BgL_tmpz00_11098;
													}
													{	/* Llib/date.scm 988 */
														obj_t BgL_za7oneza7_11099;

														BgL_za7oneza7_11099 =
															BGL_PROCEDURE_CALL1
															(BGl_za7onezd2grammarz75zz__datez00,
															BgL_iportz00_10195);
														{	/* Llib/date.scm 993 */
															obj_t BgL_arg1667z00_11100;

															if (((long) CINT(BgL_yearz00_11093) < 100L))
																{	/* Llib/date.scm 993 */
																	BgL_arg1667z00_11100 =
																		ADDFX(BgL_yearz00_11093, BINT(2000L));
																}
															else
																{	/* Llib/date.scm 993 */
																	BgL_arg1667z00_11100 = BgL_yearz00_11093;
																}
															if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
																(BgL_za7oneza7_11099))
																{	/* Llib/date.scm 232 */
																	return
																		bgl_make_date(((BGL_LONGLONG_T) 0),
																		CINT(BgL_secondz00_11096),
																		CINT(BgL_minutez00_11095),
																		CINT(BgL_hourz00_11094),
																		CINT(BgL_dayz00_11091),
																		CINT(BgL_monthz00_11092),
																		CINT(BgL_arg1667z00_11100),
																		(long) CINT(BgL_za7oneza7_11099),
																		((bool_t) 1), (int) ((-1L)));
																}
															else
																{	/* Llib/date.scm 232 */
																	return
																		bgl_make_date(((BGL_LONGLONG_T) 0),
																		CINT(BgL_secondz00_11096),
																		CINT(BgL_minutez00_11095),
																		CINT(BgL_hourz00_11094),
																		CINT(BgL_dayz00_11091),
																		CINT(BgL_monthz00_11092),
																		CINT(BgL_arg1667z00_11100), 0L,
																		((bool_t) 0), (int) ((-1L)));
							}}}}}}}}} break;
						case 0L:

							goto BgL_ignorez00_11068;
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string4941z00zz__datez00,
								BGl_string4942z00zz__datez00, BINT(BgL_matchz00_11078));
						}
				}
			}
		}

	}



/* 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_10196,
		obj_t BgL_objz00_10197)
	{
		{	/* Llib/date.scm 221 */
			return BBOOL(BGl_datezf3zf3zz__datez00(BgL_objz00_10197));
		}

	}



/* _make-date */
	obj_t BGl__makezd2datezd2zz__datez00(obj_t BgL_env1312z00_14,
		obj_t BgL_opt1311z00_13)
	{
		{	/* Llib/date.scm 227 */
			{	/* Llib/date.scm 227 */
				long BgL_l1313z00_3536;

				{	/* Llib/date.scm 227 */
					obj_t BgL_vectorz00_7999;

					if (VECTORP(BgL_opt1311z00_13))
						{	/* Llib/date.scm 227 */
							BgL_vectorz00_7999 = BgL_opt1311z00_13;
						}
					else
						{
							obj_t BgL_auxz00_13477;

							BgL_auxz00_13477 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(10879L), BGl_string4972z00zz__datez00,
								BGl_string4973z00zz__datez00, BgL_opt1311z00_13);
							FAILURE(BgL_auxz00_13477, BFALSE, BFALSE);
						}
					BgL_l1313z00_3536 = VECTOR_LENGTH(BgL_vectorz00_7999);
				}
				{	/* Llib/date.scm 227 */

					{	/* Llib/date.scm 227 */
						obj_t BgL_dayz00_3540;

						BgL_dayz00_3540 = BINT(1L);
						{	/* Llib/date.scm 227 */
							obj_t BgL_dstz00_3541;

							BgL_dstz00_3541 = BINT((-1L));
							{	/* Llib/date.scm 227 */
								obj_t BgL_hourz00_3542;

								BgL_hourz00_3542 = BINT(0L);
								{	/* Llib/date.scm 227 */
									obj_t BgL_minz00_3543;

									BgL_minz00_3543 = BINT(0L);
									{	/* Llib/date.scm 227 */
										obj_t BgL_monthz00_3544;

										BgL_monthz00_3544 = BINT(1L);
										{	/* Llib/date.scm 227 */
											obj_t BgL_nsecz00_3545;

											BgL_nsecz00_3545 = BGl_llong4974z00zz__datez00;
											{	/* Llib/date.scm 227 */
												obj_t BgL_secz00_3546;

												BgL_secz00_3546 = BINT(0L);
												{	/* Llib/date.scm 227 */
													obj_t BgL_timeza7oneza7_3547;

													BgL_timeza7oneza7_3547 = BFALSE;
													{	/* Llib/date.scm 227 */
														obj_t BgL_yearz00_3548;

														BgL_yearz00_3548 = BINT(1970L);
														{	/* Llib/date.scm 227 */

															{
																long BgL_iz00_3549;

																BgL_iz00_3549 = 0L;
															BgL_check1315z00_3550:
																if ((BgL_iz00_3549 == BgL_l1313z00_3536))
																	{	/* Llib/date.scm 227 */
																		BNIL;
																	}
																else
																	{	/* Llib/date.scm 227 */
																		bool_t BgL_test5579z00_13491;

																		{	/* Llib/date.scm 227 */
																			obj_t BgL_arg2642z00_3556;

																			BgL_arg2642z00_3556 =
																				VECTOR_REF(
																				((obj_t) BgL_opt1311z00_13),
																				BgL_iz00_3549);
																			BgL_test5579z00_13491 =
																				CBOOL
																				(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																				(BgL_arg2642z00_3556,
																					BGl_list4975z00zz__datez00));
																		}
																		if (BgL_test5579z00_13491)
																			{
																				long BgL_iz00_13496;

																				BgL_iz00_13496 = (BgL_iz00_3549 + 2L);
																				BgL_iz00_3549 = BgL_iz00_13496;
																				goto BgL_check1315z00_3550;
																			}
																		else
																			{	/* Llib/date.scm 227 */
																				obj_t BgL_arg2641z00_3555;

																				BgL_arg2641z00_3555 =
																					VECTOR_REF(
																					((obj_t) BgL_opt1311z00_13),
																					BgL_iz00_3549);
																				BGl_errorz00zz__errorz00
																					(BGl_symbol4994z00zz__datez00,
																					BGl_string4996z00zz__datez00,
																					BgL_arg2641z00_3555);
																			}
																	}
															}
															{	/* Llib/date.scm 227 */
																obj_t BgL_index1317z00_3557;

																{
																	long BgL_iz00_8015;

																	BgL_iz00_8015 = 0L;
																BgL_search1314z00_8014:
																	if ((BgL_iz00_8015 == BgL_l1313z00_3536))
																		{	/* Llib/date.scm 227 */
																			BgL_index1317z00_3557 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			if (
																				(BgL_iz00_8015 ==
																					(BgL_l1313z00_3536 - 1L)))
																				{	/* Llib/date.scm 227 */
																					BgL_index1317z00_3557 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol4994z00zz__datez00,
																						BGl_string4997z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1311z00_13)));
																				}
																			else
																				{	/* Llib/date.scm 227 */
																					obj_t BgL_vz00_8025;

																					BgL_vz00_8025 =
																						VECTOR_REF(BgL_opt1311z00_13,
																						BgL_iz00_8015);
																					if ((BgL_vz00_8025 ==
																							BGl_keyword4976z00zz__datez00))
																						{	/* Llib/date.scm 227 */
																							BgL_index1317z00_3557 =
																								BINT((BgL_iz00_8015 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_13515;

																							BgL_iz00_13515 =
																								(BgL_iz00_8015 + 2L);
																							BgL_iz00_8015 = BgL_iz00_13515;
																							goto BgL_search1314z00_8014;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 227 */
																	bool_t BgL_test5583z00_13517;

																	{	/* Llib/date.scm 227 */
																		long BgL_n1z00_8029;

																		{	/* Llib/date.scm 227 */
																			obj_t BgL_tmpz00_13518;

																			if (INTEGERP(BgL_index1317z00_3557))
																				{	/* Llib/date.scm 227 */
																					BgL_tmpz00_13518 =
																						BgL_index1317z00_3557;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13521;

																					BgL_auxz00_13521 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1317z00_3557);
																					FAILURE(BgL_auxz00_13521, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8029 =
																				(long) CINT(BgL_tmpz00_13518);
																		}
																		BgL_test5583z00_13517 =
																			(BgL_n1z00_8029 >= 0L);
																	}
																	if (BgL_test5583z00_13517)
																		{
																			long BgL_auxz00_13534;
																			obj_t BgL_auxz00_13527;

																			{	/* Llib/date.scm 227 */
																				obj_t BgL_tmpz00_13535;

																				if (INTEGERP(BgL_index1317z00_3557))
																					{	/* Llib/date.scm 227 */
																						BgL_tmpz00_13535 =
																							BgL_index1317z00_3557;
																					}
																				else
																					{
																						obj_t BgL_auxz00_13538;

																						BgL_auxz00_13538 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(10879L),
																							BGl_string4972z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1317z00_3557);
																						FAILURE(BgL_auxz00_13538, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_13534 =
																					(long) CINT(BgL_tmpz00_13535);
																			}
																			if (VECTORP(BgL_opt1311z00_13))
																				{	/* Llib/date.scm 227 */
																					BgL_auxz00_13527 = BgL_opt1311z00_13;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13530;

																					BgL_auxz00_13530 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1311z00_13);
																					FAILURE(BgL_auxz00_13530, BFALSE,
																						BFALSE);
																				}
																			BgL_dayz00_3540 =
																				VECTOR_REF(BgL_auxz00_13527,
																				BgL_auxz00_13534);
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 227 */
																obj_t BgL_index1318z00_3559;

																{
																	long BgL_iz00_8031;

																	BgL_iz00_8031 = 0L;
																BgL_search1314z00_8030:
																	if ((BgL_iz00_8031 == BgL_l1313z00_3536))
																		{	/* Llib/date.scm 227 */
																			BgL_index1318z00_3559 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			if (
																				(BgL_iz00_8031 ==
																					(BgL_l1313z00_3536 - 1L)))
																				{	/* Llib/date.scm 227 */
																					BgL_index1318z00_3559 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol4994z00zz__datez00,
																						BGl_string4997z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1311z00_13)));
																				}
																			else
																				{	/* Llib/date.scm 227 */
																					obj_t BgL_vz00_8041;

																					BgL_vz00_8041 =
																						VECTOR_REF(BgL_opt1311z00_13,
																						BgL_iz00_8031);
																					if ((BgL_vz00_8041 ==
																							BGl_keyword4978z00zz__datez00))
																						{	/* Llib/date.scm 227 */
																							BgL_index1318z00_3559 =
																								BINT((BgL_iz00_8031 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_13558;

																							BgL_iz00_13558 =
																								(BgL_iz00_8031 + 2L);
																							BgL_iz00_8031 = BgL_iz00_13558;
																							goto BgL_search1314z00_8030;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 227 */
																	bool_t BgL_test5590z00_13560;

																	{	/* Llib/date.scm 227 */
																		long BgL_n1z00_8045;

																		{	/* Llib/date.scm 227 */
																			obj_t BgL_tmpz00_13561;

																			if (INTEGERP(BgL_index1318z00_3559))
																				{	/* Llib/date.scm 227 */
																					BgL_tmpz00_13561 =
																						BgL_index1318z00_3559;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13564;

																					BgL_auxz00_13564 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1318z00_3559);
																					FAILURE(BgL_auxz00_13564, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8045 =
																				(long) CINT(BgL_tmpz00_13561);
																		}
																		BgL_test5590z00_13560 =
																			(BgL_n1z00_8045 >= 0L);
																	}
																	if (BgL_test5590z00_13560)
																		{
																			long BgL_auxz00_13577;
																			obj_t BgL_auxz00_13570;

																			{	/* Llib/date.scm 227 */
																				obj_t BgL_tmpz00_13578;

																				if (INTEGERP(BgL_index1318z00_3559))
																					{	/* Llib/date.scm 227 */
																						BgL_tmpz00_13578 =
																							BgL_index1318z00_3559;
																					}
																				else
																					{
																						obj_t BgL_auxz00_13581;

																						BgL_auxz00_13581 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(10879L),
																							BGl_string4972z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1318z00_3559);
																						FAILURE(BgL_auxz00_13581, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_13577 =
																					(long) CINT(BgL_tmpz00_13578);
																			}
																			if (VECTORP(BgL_opt1311z00_13))
																				{	/* Llib/date.scm 227 */
																					BgL_auxz00_13570 = BgL_opt1311z00_13;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13573;

																					BgL_auxz00_13573 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1311z00_13);
																					FAILURE(BgL_auxz00_13573, BFALSE,
																						BFALSE);
																				}
																			BgL_dstz00_3541 =
																				VECTOR_REF(BgL_auxz00_13570,
																				BgL_auxz00_13577);
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 227 */
																obj_t BgL_index1319z00_3561;

																{
																	long BgL_iz00_8047;

																	BgL_iz00_8047 = 0L;
																BgL_search1314z00_8046:
																	if ((BgL_iz00_8047 == BgL_l1313z00_3536))
																		{	/* Llib/date.scm 227 */
																			BgL_index1319z00_3561 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			if (
																				(BgL_iz00_8047 ==
																					(BgL_l1313z00_3536 - 1L)))
																				{	/* Llib/date.scm 227 */
																					BgL_index1319z00_3561 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol4994z00zz__datez00,
																						BGl_string4997z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1311z00_13)));
																				}
																			else
																				{	/* Llib/date.scm 227 */
																					obj_t BgL_vz00_8057;

																					BgL_vz00_8057 =
																						VECTOR_REF(BgL_opt1311z00_13,
																						BgL_iz00_8047);
																					if ((BgL_vz00_8057 ==
																							BGl_keyword4980z00zz__datez00))
																						{	/* Llib/date.scm 227 */
																							BgL_index1319z00_3561 =
																								BINT((BgL_iz00_8047 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_13601;

																							BgL_iz00_13601 =
																								(BgL_iz00_8047 + 2L);
																							BgL_iz00_8047 = BgL_iz00_13601;
																							goto BgL_search1314z00_8046;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 227 */
																	bool_t BgL_test5597z00_13603;

																	{	/* Llib/date.scm 227 */
																		long BgL_n1z00_8061;

																		{	/* Llib/date.scm 227 */
																			obj_t BgL_tmpz00_13604;

																			if (INTEGERP(BgL_index1319z00_3561))
																				{	/* Llib/date.scm 227 */
																					BgL_tmpz00_13604 =
																						BgL_index1319z00_3561;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13607;

																					BgL_auxz00_13607 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1319z00_3561);
																					FAILURE(BgL_auxz00_13607, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8061 =
																				(long) CINT(BgL_tmpz00_13604);
																		}
																		BgL_test5597z00_13603 =
																			(BgL_n1z00_8061 >= 0L);
																	}
																	if (BgL_test5597z00_13603)
																		{
																			long BgL_auxz00_13620;
																			obj_t BgL_auxz00_13613;

																			{	/* Llib/date.scm 227 */
																				obj_t BgL_tmpz00_13621;

																				if (INTEGERP(BgL_index1319z00_3561))
																					{	/* Llib/date.scm 227 */
																						BgL_tmpz00_13621 =
																							BgL_index1319z00_3561;
																					}
																				else
																					{
																						obj_t BgL_auxz00_13624;

																						BgL_auxz00_13624 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(10879L),
																							BGl_string4972z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1319z00_3561);
																						FAILURE(BgL_auxz00_13624, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_13620 =
																					(long) CINT(BgL_tmpz00_13621);
																			}
																			if (VECTORP(BgL_opt1311z00_13))
																				{	/* Llib/date.scm 227 */
																					BgL_auxz00_13613 = BgL_opt1311z00_13;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13616;

																					BgL_auxz00_13616 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1311z00_13);
																					FAILURE(BgL_auxz00_13616, BFALSE,
																						BFALSE);
																				}
																			BgL_hourz00_3542 =
																				VECTOR_REF(BgL_auxz00_13613,
																				BgL_auxz00_13620);
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 227 */
																obj_t BgL_index1320z00_3563;

																{
																	long BgL_iz00_8063;

																	BgL_iz00_8063 = 0L;
																BgL_search1314z00_8062:
																	if ((BgL_iz00_8063 == BgL_l1313z00_3536))
																		{	/* Llib/date.scm 227 */
																			BgL_index1320z00_3563 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			if (
																				(BgL_iz00_8063 ==
																					(BgL_l1313z00_3536 - 1L)))
																				{	/* Llib/date.scm 227 */
																					BgL_index1320z00_3563 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol4994z00zz__datez00,
																						BGl_string4997z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1311z00_13)));
																				}
																			else
																				{	/* Llib/date.scm 227 */
																					obj_t BgL_vz00_8073;

																					BgL_vz00_8073 =
																						VECTOR_REF(BgL_opt1311z00_13,
																						BgL_iz00_8063);
																					if ((BgL_vz00_8073 ==
																							BGl_keyword4982z00zz__datez00))
																						{	/* Llib/date.scm 227 */
																							BgL_index1320z00_3563 =
																								BINT((BgL_iz00_8063 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_13644;

																							BgL_iz00_13644 =
																								(BgL_iz00_8063 + 2L);
																							BgL_iz00_8063 = BgL_iz00_13644;
																							goto BgL_search1314z00_8062;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 227 */
																	bool_t BgL_test5604z00_13646;

																	{	/* Llib/date.scm 227 */
																		long BgL_n1z00_8077;

																		{	/* Llib/date.scm 227 */
																			obj_t BgL_tmpz00_13647;

																			if (INTEGERP(BgL_index1320z00_3563))
																				{	/* Llib/date.scm 227 */
																					BgL_tmpz00_13647 =
																						BgL_index1320z00_3563;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13650;

																					BgL_auxz00_13650 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1320z00_3563);
																					FAILURE(BgL_auxz00_13650, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8077 =
																				(long) CINT(BgL_tmpz00_13647);
																		}
																		BgL_test5604z00_13646 =
																			(BgL_n1z00_8077 >= 0L);
																	}
																	if (BgL_test5604z00_13646)
																		{
																			long BgL_auxz00_13663;
																			obj_t BgL_auxz00_13656;

																			{	/* Llib/date.scm 227 */
																				obj_t BgL_tmpz00_13664;

																				if (INTEGERP(BgL_index1320z00_3563))
																					{	/* Llib/date.scm 227 */
																						BgL_tmpz00_13664 =
																							BgL_index1320z00_3563;
																					}
																				else
																					{
																						obj_t BgL_auxz00_13667;

																						BgL_auxz00_13667 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(10879L),
																							BGl_string4972z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1320z00_3563);
																						FAILURE(BgL_auxz00_13667, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_13663 =
																					(long) CINT(BgL_tmpz00_13664);
																			}
																			if (VECTORP(BgL_opt1311z00_13))
																				{	/* Llib/date.scm 227 */
																					BgL_auxz00_13656 = BgL_opt1311z00_13;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13659;

																					BgL_auxz00_13659 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1311z00_13);
																					FAILURE(BgL_auxz00_13659, BFALSE,
																						BFALSE);
																				}
																			BgL_minz00_3543 =
																				VECTOR_REF(BgL_auxz00_13656,
																				BgL_auxz00_13663);
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 227 */
																obj_t BgL_index1321z00_3565;

																{
																	long BgL_iz00_8079;

																	BgL_iz00_8079 = 0L;
																BgL_search1314z00_8078:
																	if ((BgL_iz00_8079 == BgL_l1313z00_3536))
																		{	/* Llib/date.scm 227 */
																			BgL_index1321z00_3565 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			if (
																				(BgL_iz00_8079 ==
																					(BgL_l1313z00_3536 - 1L)))
																				{	/* Llib/date.scm 227 */
																					BgL_index1321z00_3565 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol4994z00zz__datez00,
																						BGl_string4997z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1311z00_13)));
																				}
																			else
																				{	/* Llib/date.scm 227 */
																					obj_t BgL_vz00_8089;

																					BgL_vz00_8089 =
																						VECTOR_REF(BgL_opt1311z00_13,
																						BgL_iz00_8079);
																					if ((BgL_vz00_8089 ==
																							BGl_keyword4984z00zz__datez00))
																						{	/* Llib/date.scm 227 */
																							BgL_index1321z00_3565 =
																								BINT((BgL_iz00_8079 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_13687;

																							BgL_iz00_13687 =
																								(BgL_iz00_8079 + 2L);
																							BgL_iz00_8079 = BgL_iz00_13687;
																							goto BgL_search1314z00_8078;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 227 */
																	bool_t BgL_test5611z00_13689;

																	{	/* Llib/date.scm 227 */
																		long BgL_n1z00_8093;

																		{	/* Llib/date.scm 227 */
																			obj_t BgL_tmpz00_13690;

																			if (INTEGERP(BgL_index1321z00_3565))
																				{	/* Llib/date.scm 227 */
																					BgL_tmpz00_13690 =
																						BgL_index1321z00_3565;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13693;

																					BgL_auxz00_13693 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1321z00_3565);
																					FAILURE(BgL_auxz00_13693, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8093 =
																				(long) CINT(BgL_tmpz00_13690);
																		}
																		BgL_test5611z00_13689 =
																			(BgL_n1z00_8093 >= 0L);
																	}
																	if (BgL_test5611z00_13689)
																		{
																			long BgL_auxz00_13706;
																			obj_t BgL_auxz00_13699;

																			{	/* Llib/date.scm 227 */
																				obj_t BgL_tmpz00_13707;

																				if (INTEGERP(BgL_index1321z00_3565))
																					{	/* Llib/date.scm 227 */
																						BgL_tmpz00_13707 =
																							BgL_index1321z00_3565;
																					}
																				else
																					{
																						obj_t BgL_auxz00_13710;

																						BgL_auxz00_13710 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(10879L),
																							BGl_string4972z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1321z00_3565);
																						FAILURE(BgL_auxz00_13710, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_13706 =
																					(long) CINT(BgL_tmpz00_13707);
																			}
																			if (VECTORP(BgL_opt1311z00_13))
																				{	/* Llib/date.scm 227 */
																					BgL_auxz00_13699 = BgL_opt1311z00_13;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13702;

																					BgL_auxz00_13702 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1311z00_13);
																					FAILURE(BgL_auxz00_13702, BFALSE,
																						BFALSE);
																				}
																			BgL_monthz00_3544 =
																				VECTOR_REF(BgL_auxz00_13699,
																				BgL_auxz00_13706);
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 227 */
																obj_t BgL_index1322z00_3567;

																{
																	long BgL_iz00_8095;

																	BgL_iz00_8095 = 0L;
																BgL_search1314z00_8094:
																	if ((BgL_iz00_8095 == BgL_l1313z00_3536))
																		{	/* Llib/date.scm 227 */
																			BgL_index1322z00_3567 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			if (
																				(BgL_iz00_8095 ==
																					(BgL_l1313z00_3536 - 1L)))
																				{	/* Llib/date.scm 227 */
																					BgL_index1322z00_3567 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol4994z00zz__datez00,
																						BGl_string4997z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1311z00_13)));
																				}
																			else
																				{	/* Llib/date.scm 227 */
																					obj_t BgL_vz00_8105;

																					BgL_vz00_8105 =
																						VECTOR_REF(BgL_opt1311z00_13,
																						BgL_iz00_8095);
																					if ((BgL_vz00_8105 ==
																							BGl_keyword4986z00zz__datez00))
																						{	/* Llib/date.scm 227 */
																							BgL_index1322z00_3567 =
																								BINT((BgL_iz00_8095 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_13730;

																							BgL_iz00_13730 =
																								(BgL_iz00_8095 + 2L);
																							BgL_iz00_8095 = BgL_iz00_13730;
																							goto BgL_search1314z00_8094;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 227 */
																	bool_t BgL_test5618z00_13732;

																	{	/* Llib/date.scm 227 */
																		long BgL_n1z00_8109;

																		{	/* Llib/date.scm 227 */
																			obj_t BgL_tmpz00_13733;

																			if (INTEGERP(BgL_index1322z00_3567))
																				{	/* Llib/date.scm 227 */
																					BgL_tmpz00_13733 =
																						BgL_index1322z00_3567;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13736;

																					BgL_auxz00_13736 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1322z00_3567);
																					FAILURE(BgL_auxz00_13736, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8109 =
																				(long) CINT(BgL_tmpz00_13733);
																		}
																		BgL_test5618z00_13732 =
																			(BgL_n1z00_8109 >= 0L);
																	}
																	if (BgL_test5618z00_13732)
																		{
																			long BgL_auxz00_13749;
																			obj_t BgL_auxz00_13742;

																			{	/* Llib/date.scm 227 */
																				obj_t BgL_tmpz00_13750;

																				if (INTEGERP(BgL_index1322z00_3567))
																					{	/* Llib/date.scm 227 */
																						BgL_tmpz00_13750 =
																							BgL_index1322z00_3567;
																					}
																				else
																					{
																						obj_t BgL_auxz00_13753;

																						BgL_auxz00_13753 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(10879L),
																							BGl_string4972z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1322z00_3567);
																						FAILURE(BgL_auxz00_13753, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_13749 =
																					(long) CINT(BgL_tmpz00_13750);
																			}
																			if (VECTORP(BgL_opt1311z00_13))
																				{	/* Llib/date.scm 227 */
																					BgL_auxz00_13742 = BgL_opt1311z00_13;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13745;

																					BgL_auxz00_13745 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1311z00_13);
																					FAILURE(BgL_auxz00_13745, BFALSE,
																						BFALSE);
																				}
																			BgL_nsecz00_3545 =
																				VECTOR_REF(BgL_auxz00_13742,
																				BgL_auxz00_13749);
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 227 */
																obj_t BgL_index1323z00_3569;

																{
																	long BgL_iz00_8111;

																	BgL_iz00_8111 = 0L;
																BgL_search1314z00_8110:
																	if ((BgL_iz00_8111 == BgL_l1313z00_3536))
																		{	/* Llib/date.scm 227 */
																			BgL_index1323z00_3569 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			if (
																				(BgL_iz00_8111 ==
																					(BgL_l1313z00_3536 - 1L)))
																				{	/* Llib/date.scm 227 */
																					BgL_index1323z00_3569 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol4994z00zz__datez00,
																						BGl_string4997z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1311z00_13)));
																				}
																			else
																				{	/* Llib/date.scm 227 */
																					obj_t BgL_vz00_8121;

																					BgL_vz00_8121 =
																						VECTOR_REF(BgL_opt1311z00_13,
																						BgL_iz00_8111);
																					if ((BgL_vz00_8121 ==
																							BGl_keyword4988z00zz__datez00))
																						{	/* Llib/date.scm 227 */
																							BgL_index1323z00_3569 =
																								BINT((BgL_iz00_8111 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_13773;

																							BgL_iz00_13773 =
																								(BgL_iz00_8111 + 2L);
																							BgL_iz00_8111 = BgL_iz00_13773;
																							goto BgL_search1314z00_8110;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 227 */
																	bool_t BgL_test5625z00_13775;

																	{	/* Llib/date.scm 227 */
																		long BgL_n1z00_8125;

																		{	/* Llib/date.scm 227 */
																			obj_t BgL_tmpz00_13776;

																			if (INTEGERP(BgL_index1323z00_3569))
																				{	/* Llib/date.scm 227 */
																					BgL_tmpz00_13776 =
																						BgL_index1323z00_3569;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13779;

																					BgL_auxz00_13779 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1323z00_3569);
																					FAILURE(BgL_auxz00_13779, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8125 =
																				(long) CINT(BgL_tmpz00_13776);
																		}
																		BgL_test5625z00_13775 =
																			(BgL_n1z00_8125 >= 0L);
																	}
																	if (BgL_test5625z00_13775)
																		{
																			long BgL_auxz00_13792;
																			obj_t BgL_auxz00_13785;

																			{	/* Llib/date.scm 227 */
																				obj_t BgL_tmpz00_13793;

																				if (INTEGERP(BgL_index1323z00_3569))
																					{	/* Llib/date.scm 227 */
																						BgL_tmpz00_13793 =
																							BgL_index1323z00_3569;
																					}
																				else
																					{
																						obj_t BgL_auxz00_13796;

																						BgL_auxz00_13796 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(10879L),
																							BGl_string4972z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1323z00_3569);
																						FAILURE(BgL_auxz00_13796, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_13792 =
																					(long) CINT(BgL_tmpz00_13793);
																			}
																			if (VECTORP(BgL_opt1311z00_13))
																				{	/* Llib/date.scm 227 */
																					BgL_auxz00_13785 = BgL_opt1311z00_13;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13788;

																					BgL_auxz00_13788 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1311z00_13);
																					FAILURE(BgL_auxz00_13788, BFALSE,
																						BFALSE);
																				}
																			BgL_secz00_3546 =
																				VECTOR_REF(BgL_auxz00_13785,
																				BgL_auxz00_13792);
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 227 */
																obj_t BgL_index1324z00_3571;

																{
																	long BgL_iz00_8127;

																	BgL_iz00_8127 = 0L;
																BgL_search1314z00_8126:
																	if ((BgL_iz00_8127 == BgL_l1313z00_3536))
																		{	/* Llib/date.scm 227 */
																			BgL_index1324z00_3571 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			if (
																				(BgL_iz00_8127 ==
																					(BgL_l1313z00_3536 - 1L)))
																				{	/* Llib/date.scm 227 */
																					BgL_index1324z00_3571 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol4994z00zz__datez00,
																						BGl_string4997z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1311z00_13)));
																				}
																			else
																				{	/* Llib/date.scm 227 */
																					obj_t BgL_vz00_8137;

																					BgL_vz00_8137 =
																						VECTOR_REF(BgL_opt1311z00_13,
																						BgL_iz00_8127);
																					if ((BgL_vz00_8137 ==
																							BGl_keyword4990z00zz__datez00))
																						{	/* Llib/date.scm 227 */
																							BgL_index1324z00_3571 =
																								BINT((BgL_iz00_8127 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_13816;

																							BgL_iz00_13816 =
																								(BgL_iz00_8127 + 2L);
																							BgL_iz00_8127 = BgL_iz00_13816;
																							goto BgL_search1314z00_8126;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 227 */
																	bool_t BgL_test5632z00_13818;

																	{	/* Llib/date.scm 227 */
																		long BgL_n1z00_8141;

																		{	/* Llib/date.scm 227 */
																			obj_t BgL_tmpz00_13819;

																			if (INTEGERP(BgL_index1324z00_3571))
																				{	/* Llib/date.scm 227 */
																					BgL_tmpz00_13819 =
																						BgL_index1324z00_3571;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13822;

																					BgL_auxz00_13822 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1324z00_3571);
																					FAILURE(BgL_auxz00_13822, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8141 =
																				(long) CINT(BgL_tmpz00_13819);
																		}
																		BgL_test5632z00_13818 =
																			(BgL_n1z00_8141 >= 0L);
																	}
																	if (BgL_test5632z00_13818)
																		{
																			long BgL_auxz00_13835;
																			obj_t BgL_auxz00_13828;

																			{	/* Llib/date.scm 227 */
																				obj_t BgL_tmpz00_13836;

																				if (INTEGERP(BgL_index1324z00_3571))
																					{	/* Llib/date.scm 227 */
																						BgL_tmpz00_13836 =
																							BgL_index1324z00_3571;
																					}
																				else
																					{
																						obj_t BgL_auxz00_13839;

																						BgL_auxz00_13839 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(10879L),
																							BGl_string4972z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1324z00_3571);
																						FAILURE(BgL_auxz00_13839, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_13835 =
																					(long) CINT(BgL_tmpz00_13836);
																			}
																			if (VECTORP(BgL_opt1311z00_13))
																				{	/* Llib/date.scm 227 */
																					BgL_auxz00_13828 = BgL_opt1311z00_13;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13831;

																					BgL_auxz00_13831 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1311z00_13);
																					FAILURE(BgL_auxz00_13831, BFALSE,
																						BFALSE);
																				}
																			BgL_timeza7oneza7_3547 =
																				VECTOR_REF(BgL_auxz00_13828,
																				BgL_auxz00_13835);
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 227 */
																obj_t BgL_index1325z00_3573;

																{
																	long BgL_iz00_8143;

																	BgL_iz00_8143 = 0L;
																BgL_search1314z00_8142:
																	if ((BgL_iz00_8143 == BgL_l1313z00_3536))
																		{	/* Llib/date.scm 227 */
																			BgL_index1325z00_3573 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			if (
																				(BgL_iz00_8143 ==
																					(BgL_l1313z00_3536 - 1L)))
																				{	/* Llib/date.scm 227 */
																					BgL_index1325z00_3573 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol4994z00zz__datez00,
																						BGl_string4997z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1311z00_13)));
																				}
																			else
																				{	/* Llib/date.scm 227 */
																					obj_t BgL_vz00_8153;

																					BgL_vz00_8153 =
																						VECTOR_REF(BgL_opt1311z00_13,
																						BgL_iz00_8143);
																					if ((BgL_vz00_8153 ==
																							BGl_keyword4992z00zz__datez00))
																						{	/* Llib/date.scm 227 */
																							BgL_index1325z00_3573 =
																								BINT((BgL_iz00_8143 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_13859;

																							BgL_iz00_13859 =
																								(BgL_iz00_8143 + 2L);
																							BgL_iz00_8143 = BgL_iz00_13859;
																							goto BgL_search1314z00_8142;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 227 */
																	bool_t BgL_test5639z00_13861;

																	{	/* Llib/date.scm 227 */
																		long BgL_n1z00_8157;

																		{	/* Llib/date.scm 227 */
																			obj_t BgL_tmpz00_13862;

																			if (INTEGERP(BgL_index1325z00_3573))
																				{	/* Llib/date.scm 227 */
																					BgL_tmpz00_13862 =
																						BgL_index1325z00_3573;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13865;

																					BgL_auxz00_13865 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1325z00_3573);
																					FAILURE(BgL_auxz00_13865, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8157 =
																				(long) CINT(BgL_tmpz00_13862);
																		}
																		BgL_test5639z00_13861 =
																			(BgL_n1z00_8157 >= 0L);
																	}
																	if (BgL_test5639z00_13861)
																		{
																			long BgL_auxz00_13878;
																			obj_t BgL_auxz00_13871;

																			{	/* Llib/date.scm 227 */
																				obj_t BgL_tmpz00_13879;

																				if (INTEGERP(BgL_index1325z00_3573))
																					{	/* Llib/date.scm 227 */
																						BgL_tmpz00_13879 =
																							BgL_index1325z00_3573;
																					}
																				else
																					{
																						obj_t BgL_auxz00_13882;

																						BgL_auxz00_13882 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(10879L),
																							BGl_string4972z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1325z00_3573);
																						FAILURE(BgL_auxz00_13882, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_13878 =
																					(long) CINT(BgL_tmpz00_13879);
																			}
																			if (VECTORP(BgL_opt1311z00_13))
																				{	/* Llib/date.scm 227 */
																					BgL_auxz00_13871 = BgL_opt1311z00_13;
																				}
																			else
																				{
																					obj_t BgL_auxz00_13874;

																					BgL_auxz00_13874 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(10879L),
																						BGl_string4972z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1311z00_13);
																					FAILURE(BgL_auxz00_13874, BFALSE,
																						BFALSE);
																				}
																			BgL_yearz00_3548 =
																				VECTOR_REF(BgL_auxz00_13871,
																				BgL_auxz00_13878);
																		}
																	else
																		{	/* Llib/date.scm 227 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 227 */
																obj_t BgL_dayz00_3575;

																BgL_dayz00_3575 = BgL_dayz00_3540;
																{	/* Llib/date.scm 227 */
																	obj_t BgL_dstz00_3576;

																	BgL_dstz00_3576 = BgL_dstz00_3541;
																	{	/* Llib/date.scm 227 */
																		obj_t BgL_hourz00_3577;

																		BgL_hourz00_3577 = BgL_hourz00_3542;
																		{	/* Llib/date.scm 227 */
																			obj_t BgL_minz00_3578;

																			BgL_minz00_3578 = BgL_minz00_3543;
																			{	/* Llib/date.scm 227 */
																				obj_t BgL_monthz00_3579;

																				BgL_monthz00_3579 = BgL_monthz00_3544;
																				{	/* Llib/date.scm 227 */
																					obj_t BgL_nsecz00_3580;

																					BgL_nsecz00_3580 = BgL_nsecz00_3545;
																					{	/* Llib/date.scm 227 */
																						obj_t BgL_secz00_3581;

																						BgL_secz00_3581 = BgL_secz00_3546;
																						{	/* Llib/date.scm 227 */
																							obj_t BgL_timeza7oneza7_3582;

																							BgL_timeza7oneza7_3582 =
																								BgL_timeza7oneza7_3547;
																							{	/* Llib/date.scm 227 */
																								obj_t BgL_yearz00_3583;

																								BgL_yearz00_3583 =
																									BgL_yearz00_3548;
																								if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_timeza7oneza7_3582))
																									{	/* Llib/date.scm 233 */
																										int BgL_auxz00_13962;
																										long BgL_auxz00_13953;
																										int BgL_auxz00_13944;
																										int BgL_auxz00_13935;
																										int BgL_auxz00_13926;
																										int BgL_auxz00_13917;
																										int BgL_auxz00_13908;
																										int BgL_auxz00_13899;
																										BGL_LONGLONG_T
																											BgL_tmpz00_13890;
																										{	/* Llib/date.scm 233 */
																											obj_t BgL_tmpz00_13963;

																											if (INTEGERP
																												(BgL_dstz00_3576))
																												{	/* Llib/date.scm 233 */
																													BgL_tmpz00_13963 =
																														BgL_dstz00_3576;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_13966;
																													BgL_auxz00_13966 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11095L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4998z00zz__datez00,
																														BgL_dstz00_3576);
																													FAILURE
																														(BgL_auxz00_13966,
																														BFALSE, BFALSE);
																												}
																											BgL_auxz00_13962 =
																												CINT(BgL_tmpz00_13963);
																										}
																										{	/* Llib/date.scm 233 */
																											obj_t BgL_tmpz00_13954;

																											if (INTEGERP
																												(BgL_timeza7oneza7_3582))
																												{	/* Llib/date.scm 233 */
																													BgL_tmpz00_13954 =
																														BgL_timeza7oneza7_3582;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_13957;
																													BgL_auxz00_13957 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11083L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4998z00zz__datez00,
																														BgL_timeza7oneza7_3582);
																													FAILURE
																														(BgL_auxz00_13957,
																														BFALSE, BFALSE);
																												}
																											BgL_auxz00_13953 =
																												(long)
																												CINT(BgL_tmpz00_13954);
																										}
																										{	/* Llib/date.scm 233 */
																											obj_t BgL_tmpz00_13945;

																											if (INTEGERP
																												(BgL_yearz00_3583))
																												{	/* Llib/date.scm 233 */
																													BgL_tmpz00_13945 =
																														BgL_yearz00_3583;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_13948;
																													BgL_auxz00_13948 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11078L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4998z00zz__datez00,
																														BgL_yearz00_3583);
																													FAILURE
																														(BgL_auxz00_13948,
																														BFALSE, BFALSE);
																												}
																											BgL_auxz00_13944 =
																												CINT(BgL_tmpz00_13945);
																										}
																										{	/* Llib/date.scm 233 */
																											obj_t BgL_tmpz00_13936;

																											if (INTEGERP
																												(BgL_monthz00_3579))
																												{	/* Llib/date.scm 233 */
																													BgL_tmpz00_13936 =
																														BgL_monthz00_3579;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_13939;
																													BgL_auxz00_13939 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11072L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4998z00zz__datez00,
																														BgL_monthz00_3579);
																													FAILURE
																														(BgL_auxz00_13939,
																														BFALSE, BFALSE);
																												}
																											BgL_auxz00_13935 =
																												CINT(BgL_tmpz00_13936);
																										}
																										{	/* Llib/date.scm 233 */
																											obj_t BgL_tmpz00_13927;

																											if (INTEGERP
																												(BgL_dayz00_3575))
																												{	/* Llib/date.scm 233 */
																													BgL_tmpz00_13927 =
																														BgL_dayz00_3575;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_13930;
																													BgL_auxz00_13930 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11068L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4998z00zz__datez00,
																														BgL_dayz00_3575);
																													FAILURE
																														(BgL_auxz00_13930,
																														BFALSE, BFALSE);
																												}
																											BgL_auxz00_13926 =
																												CINT(BgL_tmpz00_13927);
																										}
																										{	/* Llib/date.scm 233 */
																											obj_t BgL_tmpz00_13918;

																											if (INTEGERP
																												(BgL_hourz00_3577))
																												{	/* Llib/date.scm 233 */
																													BgL_tmpz00_13918 =
																														BgL_hourz00_3577;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_13921;
																													BgL_auxz00_13921 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11063L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4998z00zz__datez00,
																														BgL_hourz00_3577);
																													FAILURE
																														(BgL_auxz00_13921,
																														BFALSE, BFALSE);
																												}
																											BgL_auxz00_13917 =
																												CINT(BgL_tmpz00_13918);
																										}
																										{	/* Llib/date.scm 233 */
																											obj_t BgL_tmpz00_13909;

																											if (INTEGERP
																												(BgL_minz00_3578))
																												{	/* Llib/date.scm 233 */
																													BgL_tmpz00_13909 =
																														BgL_minz00_3578;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_13912;
																													BgL_auxz00_13912 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11059L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4998z00zz__datez00,
																														BgL_minz00_3578);
																													FAILURE
																														(BgL_auxz00_13912,
																														BFALSE, BFALSE);
																												}
																											BgL_auxz00_13908 =
																												CINT(BgL_tmpz00_13909);
																										}
																										{	/* Llib/date.scm 233 */
																											obj_t BgL_tmpz00_13900;

																											if (INTEGERP
																												(BgL_secz00_3581))
																												{	/* Llib/date.scm 233 */
																													BgL_tmpz00_13900 =
																														BgL_secz00_3581;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_13903;
																													BgL_auxz00_13903 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11055L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4998z00zz__datez00,
																														BgL_secz00_3581);
																													FAILURE
																														(BgL_auxz00_13903,
																														BFALSE, BFALSE);
																												}
																											BgL_auxz00_13899 =
																												CINT(BgL_tmpz00_13900);
																										}
																										{	/* Llib/date.scm 233 */
																											obj_t BgL_tmpz00_13891;

																											if (LLONGP
																												(BgL_nsecz00_3580))
																												{	/* Llib/date.scm 233 */
																													BgL_tmpz00_13891 =
																														BgL_nsecz00_3580;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_13894;
																													BgL_auxz00_13894 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11050L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4999z00zz__datez00,
																														BgL_nsecz00_3580);
																													FAILURE
																														(BgL_auxz00_13894,
																														BFALSE, BFALSE);
																												}
																											BgL_tmpz00_13890 =
																												BLLONG_TO_LLONG
																												(BgL_tmpz00_13891);
																										}
																										return
																											bgl_make_date
																											(BgL_tmpz00_13890,
																											BgL_auxz00_13899,
																											BgL_auxz00_13908,
																											BgL_auxz00_13917,
																											BgL_auxz00_13926,
																											BgL_auxz00_13935,
																											BgL_auxz00_13944,
																											BgL_auxz00_13953,
																											((bool_t) 1),
																											BgL_auxz00_13962);
																									}
																								else
																									{	/* Llib/date.scm 234 */
																										int BgL_auxz00_14035;
																										int BgL_auxz00_14026;
																										int BgL_auxz00_14017;
																										int BgL_auxz00_14008;
																										int BgL_auxz00_13999;
																										int BgL_auxz00_13990;
																										int BgL_auxz00_13981;
																										BGL_LONGLONG_T
																											BgL_tmpz00_13972;
																										{	/* Llib/date.scm 234 */
																											obj_t BgL_tmpz00_14036;

																											if (INTEGERP
																												(BgL_dstz00_3576))
																												{	/* Llib/date.scm 234 */
																													BgL_tmpz00_14036 =
																														BgL_dstz00_3576;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_14039;
																													BgL_auxz00_14039 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11156L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4998z00zz__datez00,
																														BgL_dstz00_3576);
																													FAILURE
																														(BgL_auxz00_14039,
																														BFALSE, BFALSE);
																												}
																											BgL_auxz00_14035 =
																												CINT(BgL_tmpz00_14036);
																										}
																										{	/* Llib/date.scm 234 */
																											obj_t BgL_tmpz00_14027;

																											if (INTEGERP
																												(BgL_yearz00_3583))
																												{	/* Llib/date.scm 234 */
																													BgL_tmpz00_14027 =
																														BgL_yearz00_3583;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_14030;
																													BgL_auxz00_14030 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11146L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4998z00zz__datez00,
																														BgL_yearz00_3583);
																													FAILURE
																														(BgL_auxz00_14030,
																														BFALSE, BFALSE);
																												}
																											BgL_auxz00_14026 =
																												CINT(BgL_tmpz00_14027);
																										}
																										{	/* Llib/date.scm 234 */
																											obj_t BgL_tmpz00_14018;

																											if (INTEGERP
																												(BgL_monthz00_3579))
																												{	/* Llib/date.scm 234 */
																													BgL_tmpz00_14018 =
																														BgL_monthz00_3579;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_14021;
																													BgL_auxz00_14021 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11140L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4998z00zz__datez00,
																														BgL_monthz00_3579);
																													FAILURE
																														(BgL_auxz00_14021,
																														BFALSE, BFALSE);
																												}
																											BgL_auxz00_14017 =
																												CINT(BgL_tmpz00_14018);
																										}
																										{	/* Llib/date.scm 234 */
																											obj_t BgL_tmpz00_14009;

																											if (INTEGERP
																												(BgL_dayz00_3575))
																												{	/* Llib/date.scm 234 */
																													BgL_tmpz00_14009 =
																														BgL_dayz00_3575;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_14012;
																													BgL_auxz00_14012 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11136L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4998z00zz__datez00,
																														BgL_dayz00_3575);
																													FAILURE
																														(BgL_auxz00_14012,
																														BFALSE, BFALSE);
																												}
																											BgL_auxz00_14008 =
																												CINT(BgL_tmpz00_14009);
																										}
																										{	/* Llib/date.scm 234 */
																											obj_t BgL_tmpz00_14000;

																											if (INTEGERP
																												(BgL_hourz00_3577))
																												{	/* Llib/date.scm 234 */
																													BgL_tmpz00_14000 =
																														BgL_hourz00_3577;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_14003;
																													BgL_auxz00_14003 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11131L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4998z00zz__datez00,
																														BgL_hourz00_3577);
																													FAILURE
																														(BgL_auxz00_14003,
																														BFALSE, BFALSE);
																												}
																											BgL_auxz00_13999 =
																												CINT(BgL_tmpz00_14000);
																										}
																										{	/* Llib/date.scm 234 */
																											obj_t BgL_tmpz00_13991;

																											if (INTEGERP
																												(BgL_minz00_3578))
																												{	/* Llib/date.scm 234 */
																													BgL_tmpz00_13991 =
																														BgL_minz00_3578;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_13994;
																													BgL_auxz00_13994 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11127L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4998z00zz__datez00,
																														BgL_minz00_3578);
																													FAILURE
																														(BgL_auxz00_13994,
																														BFALSE, BFALSE);
																												}
																											BgL_auxz00_13990 =
																												CINT(BgL_tmpz00_13991);
																										}
																										{	/* Llib/date.scm 234 */
																											obj_t BgL_tmpz00_13982;

																											if (INTEGERP
																												(BgL_secz00_3581))
																												{	/* Llib/date.scm 234 */
																													BgL_tmpz00_13982 =
																														BgL_secz00_3581;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_13985;
																													BgL_auxz00_13985 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11123L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4998z00zz__datez00,
																														BgL_secz00_3581);
																													FAILURE
																														(BgL_auxz00_13985,
																														BFALSE, BFALSE);
																												}
																											BgL_auxz00_13981 =
																												CINT(BgL_tmpz00_13982);
																										}
																										{	/* Llib/date.scm 234 */
																											obj_t BgL_tmpz00_13973;

																											if (LLONGP
																												(BgL_nsecz00_3580))
																												{	/* Llib/date.scm 234 */
																													BgL_tmpz00_13973 =
																														BgL_nsecz00_3580;
																												}
																											else
																												{
																													obj_t
																														BgL_auxz00_13976;
																													BgL_auxz00_13976 =
																														BGl_typezd2errorzd2zz__errorz00
																														(BGl_string4971z00zz__datez00,
																														BINT(11118L),
																														BGl_string4972z00zz__datez00,
																														BGl_string4999z00zz__datez00,
																														BgL_nsecz00_3580);
																													FAILURE
																														(BgL_auxz00_13976,
																														BFALSE, BFALSE);
																												}
																											BgL_tmpz00_13972 =
																												BLLONG_TO_LLONG
																												(BgL_tmpz00_13973);
																										}
																										return
																											bgl_make_date
																											(BgL_tmpz00_13972,
																											BgL_auxz00_13981,
																											BgL_auxz00_13990,
																											BgL_auxz00_13999,
																											BgL_auxz00_14008,
																											BgL_auxz00_14017,
																											BgL_auxz00_14026, 0L,
																											((bool_t) 0),
																											BgL_auxz00_14035);
																									}
																							}
																						}
																					}
																				}
																			}
																		}
																	}
																}
															}
														}
													}
												}
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* 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 232 */
					return
						bgl_make_date(BLLONG_TO_LLONG(BgL_nsecz00_9),
						CINT(BgL_secz00_10),
						CINT(BgL_minz00_7),
						CINT(BgL_hourz00_6),
						CINT(BgL_dayz00_4),
						CINT(BgL_monthz00_8),
						CINT(BgL_yearz00_12),
						(long) CINT(BgL_timeza7oneza7_11), ((bool_t) 1),
						CINT(BgL_dstz00_5));
				}
			else
				{	/* Llib/date.scm 232 */
					return
						bgl_make_date(BLLONG_TO_LLONG(BgL_nsecz00_9),
						CINT(BgL_secz00_10),
						CINT(BgL_minz00_7),
						CINT(BgL_hourz00_6),
						CINT(BgL_dayz00_4),
						CINT(BgL_monthz00_8),
						CINT(BgL_yearz00_12), 0L, ((bool_t) 0), CINT(BgL_dstz00_5));
				}
		}

	}



/* _date-copy */
	obj_t BGl__datezd2copyzd2zz__datez00(obj_t BgL_env1327z00_26,
		obj_t BgL_opt1326z00_25)
	{
		{	/* Llib/date.scm 239 */
			{	/* Llib/date.scm 239 */
				long BgL_l1328z00_3592;

				{	/* Llib/date.scm 239 */
					obj_t BgL_vectorz00_8160;

					if (VECTORP(BgL_opt1326z00_25))
						{	/* Llib/date.scm 239 */
							BgL_vectorz00_8160 = BgL_opt1326z00_25;
						}
					else
						{
							obj_t BgL_auxz00_14068;

							BgL_auxz00_14068 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(11386L), BGl_string5000z00zz__datez00,
								BGl_string4973z00zz__datez00, BgL_opt1326z00_25);
							FAILURE(BgL_auxz00_14068, BFALSE, BFALSE);
						}
					BgL_l1328z00_3592 = VECTOR_LENGTH(BgL_vectorz00_8160);
				}
				{	/* Llib/date.scm 239 */
					obj_t BgL_datez00_3596;

					{
						obj_t BgL_auxz00_14073;

						if (VECTORP(BgL_opt1326z00_25))
							{	/* Llib/date.scm 239 */
								BgL_auxz00_14073 = BgL_opt1326z00_25;
							}
						else
							{
								obj_t BgL_auxz00_14076;

								BgL_auxz00_14076 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
									BINT(11386L), BGl_string5000z00zz__datez00,
									BGl_string4973z00zz__datez00, BgL_opt1326z00_25);
								FAILURE(BgL_auxz00_14076, BFALSE, BFALSE);
							}
						BgL_datez00_3596 = VECTOR_REF(BgL_auxz00_14073, 0L);
					}
					{	/* Llib/date.scm 239 */
						obj_t BgL_dayz00_3597;

						BgL_dayz00_3597 = BFALSE;
						{	/* Llib/date.scm 239 */
							obj_t BgL_hourz00_3598;

							BgL_hourz00_3598 = BFALSE;
							{	/* Llib/date.scm 239 */
								obj_t BgL_isdstz00_3599;

								BgL_isdstz00_3599 = BFALSE;
								{	/* Llib/date.scm 239 */
									obj_t BgL_minz00_3600;

									BgL_minz00_3600 = BFALSE;
									{	/* Llib/date.scm 239 */
										obj_t BgL_monthz00_3601;

										BgL_monthz00_3601 = BFALSE;
										{	/* Llib/date.scm 239 */
											obj_t BgL_nsecz00_3602;

											BgL_nsecz00_3602 = BFALSE;
											{	/* Llib/date.scm 239 */
												obj_t BgL_secz00_3603;

												BgL_secz00_3603 = BFALSE;
												{	/* Llib/date.scm 239 */
													obj_t BgL_timeza7oneza7_3604;

													BgL_timeza7oneza7_3604 = BFALSE;
													{	/* Llib/date.scm 239 */
														obj_t BgL_yearz00_3605;

														BgL_yearz00_3605 = BFALSE;
														{	/* Llib/date.scm 239 */

															{
																long BgL_iz00_3606;

																BgL_iz00_3606 = 1L;
															BgL_check1330z00_3607:
																if ((BgL_iz00_3606 == BgL_l1328z00_3592))
																	{	/* Llib/date.scm 239 */
																		BNIL;
																	}
																else
																	{	/* Llib/date.scm 239 */
																		bool_t BgL_test5665z00_14083;

																		{	/* Llib/date.scm 239 */
																			obj_t BgL_arg2675z00_3613;

																			BgL_arg2675z00_3613 =
																				VECTOR_REF(
																				((obj_t) BgL_opt1326z00_25),
																				BgL_iz00_3606);
																			BgL_test5665z00_14083 =
																				CBOOL
																				(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																				(BgL_arg2675z00_3613,
																					BGl_list5001z00zz__datez00));
																		}
																		if (BgL_test5665z00_14083)
																			{
																				long BgL_iz00_14088;

																				BgL_iz00_14088 = (BgL_iz00_3606 + 2L);
																				BgL_iz00_3606 = BgL_iz00_14088;
																				goto BgL_check1330z00_3607;
																			}
																		else
																			{	/* Llib/date.scm 239 */
																				obj_t BgL_arg2674z00_3612;

																				BgL_arg2674z00_3612 =
																					VECTOR_REF(
																					((obj_t) BgL_opt1326z00_25),
																					BgL_iz00_3606);
																				BGl_errorz00zz__errorz00
																					(BGl_symbol5004z00zz__datez00,
																					BGl_string4996z00zz__datez00,
																					BgL_arg2674z00_3612);
																			}
																	}
															}
															{	/* Llib/date.scm 239 */
																obj_t BgL_index1332z00_3614;

																{
																	long BgL_iz00_8176;

																	BgL_iz00_8176 = 1L;
																BgL_search1329z00_8175:
																	if ((BgL_iz00_8176 == BgL_l1328z00_3592))
																		{	/* Llib/date.scm 239 */
																			BgL_index1332z00_3614 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			if (
																				(BgL_iz00_8176 ==
																					(BgL_l1328z00_3592 - 1L)))
																				{	/* Llib/date.scm 239 */
																					BgL_index1332z00_3614 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol5004z00zz__datez00,
																						BGl_string5006z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1326z00_25)));
																				}
																			else
																				{	/* Llib/date.scm 239 */
																					obj_t BgL_vz00_8186;

																					BgL_vz00_8186 =
																						VECTOR_REF(BgL_opt1326z00_25,
																						BgL_iz00_8176);
																					if ((BgL_vz00_8186 ==
																							BGl_keyword4976z00zz__datez00))
																						{	/* Llib/date.scm 239 */
																							BgL_index1332z00_3614 =
																								BINT((BgL_iz00_8176 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_14107;

																							BgL_iz00_14107 =
																								(BgL_iz00_8176 + 2L);
																							BgL_iz00_8176 = BgL_iz00_14107;
																							goto BgL_search1329z00_8175;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 239 */
																	bool_t BgL_test5669z00_14109;

																	{	/* Llib/date.scm 239 */
																		long BgL_n1z00_8190;

																		{	/* Llib/date.scm 239 */
																			obj_t BgL_tmpz00_14110;

																			if (INTEGERP(BgL_index1332z00_3614))
																				{	/* Llib/date.scm 239 */
																					BgL_tmpz00_14110 =
																						BgL_index1332z00_3614;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14113;

																					BgL_auxz00_14113 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1332z00_3614);
																					FAILURE(BgL_auxz00_14113, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8190 =
																				(long) CINT(BgL_tmpz00_14110);
																		}
																		BgL_test5669z00_14109 =
																			(BgL_n1z00_8190 >= 0L);
																	}
																	if (BgL_test5669z00_14109)
																		{
																			long BgL_auxz00_14126;
																			obj_t BgL_auxz00_14119;

																			{	/* Llib/date.scm 239 */
																				obj_t BgL_tmpz00_14127;

																				if (INTEGERP(BgL_index1332z00_3614))
																					{	/* Llib/date.scm 239 */
																						BgL_tmpz00_14127 =
																							BgL_index1332z00_3614;
																					}
																				else
																					{
																						obj_t BgL_auxz00_14130;

																						BgL_auxz00_14130 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(11386L),
																							BGl_string5000z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1332z00_3614);
																						FAILURE(BgL_auxz00_14130, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_14126 =
																					(long) CINT(BgL_tmpz00_14127);
																			}
																			if (VECTORP(BgL_opt1326z00_25))
																				{	/* Llib/date.scm 239 */
																					BgL_auxz00_14119 = BgL_opt1326z00_25;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14122;

																					BgL_auxz00_14122 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1326z00_25);
																					FAILURE(BgL_auxz00_14122, BFALSE,
																						BFALSE);
																				}
																			BgL_dayz00_3597 =
																				VECTOR_REF(BgL_auxz00_14119,
																				BgL_auxz00_14126);
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 239 */
																obj_t BgL_index1333z00_3616;

																{
																	long BgL_iz00_8192;

																	BgL_iz00_8192 = 1L;
																BgL_search1329z00_8191:
																	if ((BgL_iz00_8192 == BgL_l1328z00_3592))
																		{	/* Llib/date.scm 239 */
																			BgL_index1333z00_3616 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			if (
																				(BgL_iz00_8192 ==
																					(BgL_l1328z00_3592 - 1L)))
																				{	/* Llib/date.scm 239 */
																					BgL_index1333z00_3616 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol5004z00zz__datez00,
																						BGl_string5006z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1326z00_25)));
																				}
																			else
																				{	/* Llib/date.scm 239 */
																					obj_t BgL_vz00_8202;

																					BgL_vz00_8202 =
																						VECTOR_REF(BgL_opt1326z00_25,
																						BgL_iz00_8192);
																					if ((BgL_vz00_8202 ==
																							BGl_keyword4980z00zz__datez00))
																						{	/* Llib/date.scm 239 */
																							BgL_index1333z00_3616 =
																								BINT((BgL_iz00_8192 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_14150;

																							BgL_iz00_14150 =
																								(BgL_iz00_8192 + 2L);
																							BgL_iz00_8192 = BgL_iz00_14150;
																							goto BgL_search1329z00_8191;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 239 */
																	bool_t BgL_test5677z00_14152;

																	{	/* Llib/date.scm 239 */
																		long BgL_n1z00_8206;

																		{	/* Llib/date.scm 239 */
																			obj_t BgL_tmpz00_14153;

																			if (INTEGERP(BgL_index1333z00_3616))
																				{	/* Llib/date.scm 239 */
																					BgL_tmpz00_14153 =
																						BgL_index1333z00_3616;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14156;

																					BgL_auxz00_14156 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1333z00_3616);
																					FAILURE(BgL_auxz00_14156, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8206 =
																				(long) CINT(BgL_tmpz00_14153);
																		}
																		BgL_test5677z00_14152 =
																			(BgL_n1z00_8206 >= 0L);
																	}
																	if (BgL_test5677z00_14152)
																		{
																			long BgL_auxz00_14169;
																			obj_t BgL_auxz00_14162;

																			{	/* Llib/date.scm 239 */
																				obj_t BgL_tmpz00_14170;

																				if (INTEGERP(BgL_index1333z00_3616))
																					{	/* Llib/date.scm 239 */
																						BgL_tmpz00_14170 =
																							BgL_index1333z00_3616;
																					}
																				else
																					{
																						obj_t BgL_auxz00_14173;

																						BgL_auxz00_14173 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(11386L),
																							BGl_string5000z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1333z00_3616);
																						FAILURE(BgL_auxz00_14173, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_14169 =
																					(long) CINT(BgL_tmpz00_14170);
																			}
																			if (VECTORP(BgL_opt1326z00_25))
																				{	/* Llib/date.scm 239 */
																					BgL_auxz00_14162 = BgL_opt1326z00_25;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14165;

																					BgL_auxz00_14165 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1326z00_25);
																					FAILURE(BgL_auxz00_14165, BFALSE,
																						BFALSE);
																				}
																			BgL_hourz00_3598 =
																				VECTOR_REF(BgL_auxz00_14162,
																				BgL_auxz00_14169);
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 239 */
																obj_t BgL_index1334z00_3618;

																{
																	long BgL_iz00_8208;

																	BgL_iz00_8208 = 1L;
																BgL_search1329z00_8207:
																	if ((BgL_iz00_8208 == BgL_l1328z00_3592))
																		{	/* Llib/date.scm 239 */
																			BgL_index1334z00_3618 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			if (
																				(BgL_iz00_8208 ==
																					(BgL_l1328z00_3592 - 1L)))
																				{	/* Llib/date.scm 239 */
																					BgL_index1334z00_3618 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol5004z00zz__datez00,
																						BGl_string5006z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1326z00_25)));
																				}
																			else
																				{	/* Llib/date.scm 239 */
																					obj_t BgL_vz00_8218;

																					BgL_vz00_8218 =
																						VECTOR_REF(BgL_opt1326z00_25,
																						BgL_iz00_8208);
																					if ((BgL_vz00_8218 ==
																							BGl_keyword5002z00zz__datez00))
																						{	/* Llib/date.scm 239 */
																							BgL_index1334z00_3618 =
																								BINT((BgL_iz00_8208 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_14193;

																							BgL_iz00_14193 =
																								(BgL_iz00_8208 + 2L);
																							BgL_iz00_8208 = BgL_iz00_14193;
																							goto BgL_search1329z00_8207;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 239 */
																	bool_t BgL_test5684z00_14195;

																	{	/* Llib/date.scm 239 */
																		long BgL_n1z00_8222;

																		{	/* Llib/date.scm 239 */
																			obj_t BgL_tmpz00_14196;

																			if (INTEGERP(BgL_index1334z00_3618))
																				{	/* Llib/date.scm 239 */
																					BgL_tmpz00_14196 =
																						BgL_index1334z00_3618;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14199;

																					BgL_auxz00_14199 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1334z00_3618);
																					FAILURE(BgL_auxz00_14199, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8222 =
																				(long) CINT(BgL_tmpz00_14196);
																		}
																		BgL_test5684z00_14195 =
																			(BgL_n1z00_8222 >= 0L);
																	}
																	if (BgL_test5684z00_14195)
																		{
																			long BgL_auxz00_14212;
																			obj_t BgL_auxz00_14205;

																			{	/* Llib/date.scm 239 */
																				obj_t BgL_tmpz00_14213;

																				if (INTEGERP(BgL_index1334z00_3618))
																					{	/* Llib/date.scm 239 */
																						BgL_tmpz00_14213 =
																							BgL_index1334z00_3618;
																					}
																				else
																					{
																						obj_t BgL_auxz00_14216;

																						BgL_auxz00_14216 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(11386L),
																							BGl_string5000z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1334z00_3618);
																						FAILURE(BgL_auxz00_14216, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_14212 =
																					(long) CINT(BgL_tmpz00_14213);
																			}
																			if (VECTORP(BgL_opt1326z00_25))
																				{	/* Llib/date.scm 239 */
																					BgL_auxz00_14205 = BgL_opt1326z00_25;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14208;

																					BgL_auxz00_14208 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1326z00_25);
																					FAILURE(BgL_auxz00_14208, BFALSE,
																						BFALSE);
																				}
																			BgL_isdstz00_3599 =
																				VECTOR_REF(BgL_auxz00_14205,
																				BgL_auxz00_14212);
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 239 */
																obj_t BgL_index1335z00_3620;

																{
																	long BgL_iz00_8224;

																	BgL_iz00_8224 = 1L;
																BgL_search1329z00_8223:
																	if ((BgL_iz00_8224 == BgL_l1328z00_3592))
																		{	/* Llib/date.scm 239 */
																			BgL_index1335z00_3620 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			if (
																				(BgL_iz00_8224 ==
																					(BgL_l1328z00_3592 - 1L)))
																				{	/* Llib/date.scm 239 */
																					BgL_index1335z00_3620 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol5004z00zz__datez00,
																						BGl_string5006z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1326z00_25)));
																				}
																			else
																				{	/* Llib/date.scm 239 */
																					obj_t BgL_vz00_8234;

																					BgL_vz00_8234 =
																						VECTOR_REF(BgL_opt1326z00_25,
																						BgL_iz00_8224);
																					if ((BgL_vz00_8234 ==
																							BGl_keyword4982z00zz__datez00))
																						{	/* Llib/date.scm 239 */
																							BgL_index1335z00_3620 =
																								BINT((BgL_iz00_8224 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_14236;

																							BgL_iz00_14236 =
																								(BgL_iz00_8224 + 2L);
																							BgL_iz00_8224 = BgL_iz00_14236;
																							goto BgL_search1329z00_8223;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 239 */
																	bool_t BgL_test5691z00_14238;

																	{	/* Llib/date.scm 239 */
																		long BgL_n1z00_8238;

																		{	/* Llib/date.scm 239 */
																			obj_t BgL_tmpz00_14239;

																			if (INTEGERP(BgL_index1335z00_3620))
																				{	/* Llib/date.scm 239 */
																					BgL_tmpz00_14239 =
																						BgL_index1335z00_3620;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14242;

																					BgL_auxz00_14242 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1335z00_3620);
																					FAILURE(BgL_auxz00_14242, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8238 =
																				(long) CINT(BgL_tmpz00_14239);
																		}
																		BgL_test5691z00_14238 =
																			(BgL_n1z00_8238 >= 0L);
																	}
																	if (BgL_test5691z00_14238)
																		{
																			long BgL_auxz00_14255;
																			obj_t BgL_auxz00_14248;

																			{	/* Llib/date.scm 239 */
																				obj_t BgL_tmpz00_14256;

																				if (INTEGERP(BgL_index1335z00_3620))
																					{	/* Llib/date.scm 239 */
																						BgL_tmpz00_14256 =
																							BgL_index1335z00_3620;
																					}
																				else
																					{
																						obj_t BgL_auxz00_14259;

																						BgL_auxz00_14259 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(11386L),
																							BGl_string5000z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1335z00_3620);
																						FAILURE(BgL_auxz00_14259, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_14255 =
																					(long) CINT(BgL_tmpz00_14256);
																			}
																			if (VECTORP(BgL_opt1326z00_25))
																				{	/* Llib/date.scm 239 */
																					BgL_auxz00_14248 = BgL_opt1326z00_25;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14251;

																					BgL_auxz00_14251 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1326z00_25);
																					FAILURE(BgL_auxz00_14251, BFALSE,
																						BFALSE);
																				}
																			BgL_minz00_3600 =
																				VECTOR_REF(BgL_auxz00_14248,
																				BgL_auxz00_14255);
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 239 */
																obj_t BgL_index1336z00_3622;

																{
																	long BgL_iz00_8240;

																	BgL_iz00_8240 = 1L;
																BgL_search1329z00_8239:
																	if ((BgL_iz00_8240 == BgL_l1328z00_3592))
																		{	/* Llib/date.scm 239 */
																			BgL_index1336z00_3622 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			if (
																				(BgL_iz00_8240 ==
																					(BgL_l1328z00_3592 - 1L)))
																				{	/* Llib/date.scm 239 */
																					BgL_index1336z00_3622 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol5004z00zz__datez00,
																						BGl_string5006z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1326z00_25)));
																				}
																			else
																				{	/* Llib/date.scm 239 */
																					obj_t BgL_vz00_8250;

																					BgL_vz00_8250 =
																						VECTOR_REF(BgL_opt1326z00_25,
																						BgL_iz00_8240);
																					if ((BgL_vz00_8250 ==
																							BGl_keyword4984z00zz__datez00))
																						{	/* Llib/date.scm 239 */
																							BgL_index1336z00_3622 =
																								BINT((BgL_iz00_8240 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_14279;

																							BgL_iz00_14279 =
																								(BgL_iz00_8240 + 2L);
																							BgL_iz00_8240 = BgL_iz00_14279;
																							goto BgL_search1329z00_8239;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 239 */
																	bool_t BgL_test5698z00_14281;

																	{	/* Llib/date.scm 239 */
																		long BgL_n1z00_8254;

																		{	/* Llib/date.scm 239 */
																			obj_t BgL_tmpz00_14282;

																			if (INTEGERP(BgL_index1336z00_3622))
																				{	/* Llib/date.scm 239 */
																					BgL_tmpz00_14282 =
																						BgL_index1336z00_3622;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14285;

																					BgL_auxz00_14285 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1336z00_3622);
																					FAILURE(BgL_auxz00_14285, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8254 =
																				(long) CINT(BgL_tmpz00_14282);
																		}
																		BgL_test5698z00_14281 =
																			(BgL_n1z00_8254 >= 0L);
																	}
																	if (BgL_test5698z00_14281)
																		{
																			long BgL_auxz00_14298;
																			obj_t BgL_auxz00_14291;

																			{	/* Llib/date.scm 239 */
																				obj_t BgL_tmpz00_14299;

																				if (INTEGERP(BgL_index1336z00_3622))
																					{	/* Llib/date.scm 239 */
																						BgL_tmpz00_14299 =
																							BgL_index1336z00_3622;
																					}
																				else
																					{
																						obj_t BgL_auxz00_14302;

																						BgL_auxz00_14302 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(11386L),
																							BGl_string5000z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1336z00_3622);
																						FAILURE(BgL_auxz00_14302, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_14298 =
																					(long) CINT(BgL_tmpz00_14299);
																			}
																			if (VECTORP(BgL_opt1326z00_25))
																				{	/* Llib/date.scm 239 */
																					BgL_auxz00_14291 = BgL_opt1326z00_25;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14294;

																					BgL_auxz00_14294 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1326z00_25);
																					FAILURE(BgL_auxz00_14294, BFALSE,
																						BFALSE);
																				}
																			BgL_monthz00_3601 =
																				VECTOR_REF(BgL_auxz00_14291,
																				BgL_auxz00_14298);
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 239 */
																obj_t BgL_index1337z00_3624;

																{
																	long BgL_iz00_8256;

																	BgL_iz00_8256 = 1L;
																BgL_search1329z00_8255:
																	if ((BgL_iz00_8256 == BgL_l1328z00_3592))
																		{	/* Llib/date.scm 239 */
																			BgL_index1337z00_3624 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			if (
																				(BgL_iz00_8256 ==
																					(BgL_l1328z00_3592 - 1L)))
																				{	/* Llib/date.scm 239 */
																					BgL_index1337z00_3624 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol5004z00zz__datez00,
																						BGl_string5006z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1326z00_25)));
																				}
																			else
																				{	/* Llib/date.scm 239 */
																					obj_t BgL_vz00_8266;

																					BgL_vz00_8266 =
																						VECTOR_REF(BgL_opt1326z00_25,
																						BgL_iz00_8256);
																					if ((BgL_vz00_8266 ==
																							BGl_keyword4986z00zz__datez00))
																						{	/* Llib/date.scm 239 */
																							BgL_index1337z00_3624 =
																								BINT((BgL_iz00_8256 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_14322;

																							BgL_iz00_14322 =
																								(BgL_iz00_8256 + 2L);
																							BgL_iz00_8256 = BgL_iz00_14322;
																							goto BgL_search1329z00_8255;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 239 */
																	bool_t BgL_test5705z00_14324;

																	{	/* Llib/date.scm 239 */
																		long BgL_n1z00_8270;

																		{	/* Llib/date.scm 239 */
																			obj_t BgL_tmpz00_14325;

																			if (INTEGERP(BgL_index1337z00_3624))
																				{	/* Llib/date.scm 239 */
																					BgL_tmpz00_14325 =
																						BgL_index1337z00_3624;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14328;

																					BgL_auxz00_14328 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1337z00_3624);
																					FAILURE(BgL_auxz00_14328, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8270 =
																				(long) CINT(BgL_tmpz00_14325);
																		}
																		BgL_test5705z00_14324 =
																			(BgL_n1z00_8270 >= 0L);
																	}
																	if (BgL_test5705z00_14324)
																		{
																			long BgL_auxz00_14341;
																			obj_t BgL_auxz00_14334;

																			{	/* Llib/date.scm 239 */
																				obj_t BgL_tmpz00_14342;

																				if (INTEGERP(BgL_index1337z00_3624))
																					{	/* Llib/date.scm 239 */
																						BgL_tmpz00_14342 =
																							BgL_index1337z00_3624;
																					}
																				else
																					{
																						obj_t BgL_auxz00_14345;

																						BgL_auxz00_14345 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(11386L),
																							BGl_string5000z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1337z00_3624);
																						FAILURE(BgL_auxz00_14345, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_14341 =
																					(long) CINT(BgL_tmpz00_14342);
																			}
																			if (VECTORP(BgL_opt1326z00_25))
																				{	/* Llib/date.scm 239 */
																					BgL_auxz00_14334 = BgL_opt1326z00_25;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14337;

																					BgL_auxz00_14337 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1326z00_25);
																					FAILURE(BgL_auxz00_14337, BFALSE,
																						BFALSE);
																				}
																			BgL_nsecz00_3602 =
																				VECTOR_REF(BgL_auxz00_14334,
																				BgL_auxz00_14341);
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 239 */
																obj_t BgL_index1338z00_3626;

																{
																	long BgL_iz00_8272;

																	BgL_iz00_8272 = 1L;
																BgL_search1329z00_8271:
																	if ((BgL_iz00_8272 == BgL_l1328z00_3592))
																		{	/* Llib/date.scm 239 */
																			BgL_index1338z00_3626 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			if (
																				(BgL_iz00_8272 ==
																					(BgL_l1328z00_3592 - 1L)))
																				{	/* Llib/date.scm 239 */
																					BgL_index1338z00_3626 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol5004z00zz__datez00,
																						BGl_string5006z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1326z00_25)));
																				}
																			else
																				{	/* Llib/date.scm 239 */
																					obj_t BgL_vz00_8282;

																					BgL_vz00_8282 =
																						VECTOR_REF(BgL_opt1326z00_25,
																						BgL_iz00_8272);
																					if ((BgL_vz00_8282 ==
																							BGl_keyword4988z00zz__datez00))
																						{	/* Llib/date.scm 239 */
																							BgL_index1338z00_3626 =
																								BINT((BgL_iz00_8272 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_14365;

																							BgL_iz00_14365 =
																								(BgL_iz00_8272 + 2L);
																							BgL_iz00_8272 = BgL_iz00_14365;
																							goto BgL_search1329z00_8271;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 239 */
																	bool_t BgL_test5712z00_14367;

																	{	/* Llib/date.scm 239 */
																		long BgL_n1z00_8286;

																		{	/* Llib/date.scm 239 */
																			obj_t BgL_tmpz00_14368;

																			if (INTEGERP(BgL_index1338z00_3626))
																				{	/* Llib/date.scm 239 */
																					BgL_tmpz00_14368 =
																						BgL_index1338z00_3626;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14371;

																					BgL_auxz00_14371 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1338z00_3626);
																					FAILURE(BgL_auxz00_14371, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8286 =
																				(long) CINT(BgL_tmpz00_14368);
																		}
																		BgL_test5712z00_14367 =
																			(BgL_n1z00_8286 >= 0L);
																	}
																	if (BgL_test5712z00_14367)
																		{
																			long BgL_auxz00_14384;
																			obj_t BgL_auxz00_14377;

																			{	/* Llib/date.scm 239 */
																				obj_t BgL_tmpz00_14385;

																				if (INTEGERP(BgL_index1338z00_3626))
																					{	/* Llib/date.scm 239 */
																						BgL_tmpz00_14385 =
																							BgL_index1338z00_3626;
																					}
																				else
																					{
																						obj_t BgL_auxz00_14388;

																						BgL_auxz00_14388 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(11386L),
																							BGl_string5000z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1338z00_3626);
																						FAILURE(BgL_auxz00_14388, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_14384 =
																					(long) CINT(BgL_tmpz00_14385);
																			}
																			if (VECTORP(BgL_opt1326z00_25))
																				{	/* Llib/date.scm 239 */
																					BgL_auxz00_14377 = BgL_opt1326z00_25;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14380;

																					BgL_auxz00_14380 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1326z00_25);
																					FAILURE(BgL_auxz00_14380, BFALSE,
																						BFALSE);
																				}
																			BgL_secz00_3603 =
																				VECTOR_REF(BgL_auxz00_14377,
																				BgL_auxz00_14384);
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 239 */
																obj_t BgL_index1339z00_3628;

																{
																	long BgL_iz00_8288;

																	BgL_iz00_8288 = 1L;
																BgL_search1329z00_8287:
																	if ((BgL_iz00_8288 == BgL_l1328z00_3592))
																		{	/* Llib/date.scm 239 */
																			BgL_index1339z00_3628 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			if (
																				(BgL_iz00_8288 ==
																					(BgL_l1328z00_3592 - 1L)))
																				{	/* Llib/date.scm 239 */
																					BgL_index1339z00_3628 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol5004z00zz__datez00,
																						BGl_string5006z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1326z00_25)));
																				}
																			else
																				{	/* Llib/date.scm 239 */
																					obj_t BgL_vz00_8298;

																					BgL_vz00_8298 =
																						VECTOR_REF(BgL_opt1326z00_25,
																						BgL_iz00_8288);
																					if ((BgL_vz00_8298 ==
																							BGl_keyword4990z00zz__datez00))
																						{	/* Llib/date.scm 239 */
																							BgL_index1339z00_3628 =
																								BINT((BgL_iz00_8288 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_14408;

																							BgL_iz00_14408 =
																								(BgL_iz00_8288 + 2L);
																							BgL_iz00_8288 = BgL_iz00_14408;
																							goto BgL_search1329z00_8287;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 239 */
																	bool_t BgL_test5719z00_14410;

																	{	/* Llib/date.scm 239 */
																		long BgL_n1z00_8302;

																		{	/* Llib/date.scm 239 */
																			obj_t BgL_tmpz00_14411;

																			if (INTEGERP(BgL_index1339z00_3628))
																				{	/* Llib/date.scm 239 */
																					BgL_tmpz00_14411 =
																						BgL_index1339z00_3628;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14414;

																					BgL_auxz00_14414 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1339z00_3628);
																					FAILURE(BgL_auxz00_14414, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8302 =
																				(long) CINT(BgL_tmpz00_14411);
																		}
																		BgL_test5719z00_14410 =
																			(BgL_n1z00_8302 >= 0L);
																	}
																	if (BgL_test5719z00_14410)
																		{
																			long BgL_auxz00_14427;
																			obj_t BgL_auxz00_14420;

																			{	/* Llib/date.scm 239 */
																				obj_t BgL_tmpz00_14428;

																				if (INTEGERP(BgL_index1339z00_3628))
																					{	/* Llib/date.scm 239 */
																						BgL_tmpz00_14428 =
																							BgL_index1339z00_3628;
																					}
																				else
																					{
																						obj_t BgL_auxz00_14431;

																						BgL_auxz00_14431 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(11386L),
																							BGl_string5000z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1339z00_3628);
																						FAILURE(BgL_auxz00_14431, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_14427 =
																					(long) CINT(BgL_tmpz00_14428);
																			}
																			if (VECTORP(BgL_opt1326z00_25))
																				{	/* Llib/date.scm 239 */
																					BgL_auxz00_14420 = BgL_opt1326z00_25;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14423;

																					BgL_auxz00_14423 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1326z00_25);
																					FAILURE(BgL_auxz00_14423, BFALSE,
																						BFALSE);
																				}
																			BgL_timeza7oneza7_3604 =
																				VECTOR_REF(BgL_auxz00_14420,
																				BgL_auxz00_14427);
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 239 */
																obj_t BgL_index1340z00_3630;

																{
																	long BgL_iz00_8304;

																	BgL_iz00_8304 = 1L;
																BgL_search1329z00_8303:
																	if ((BgL_iz00_8304 == BgL_l1328z00_3592))
																		{	/* Llib/date.scm 239 */
																			BgL_index1340z00_3630 = BINT((-1L));
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			if (
																				(BgL_iz00_8304 ==
																					(BgL_l1328z00_3592 - 1L)))
																				{	/* Llib/date.scm 239 */
																					BgL_index1340z00_3630 =
																						BGl_errorz00zz__errorz00
																						(BGl_symbol5004z00zz__datez00,
																						BGl_string5006z00zz__datez00,
																						BINT(VECTOR_LENGTH
																							(BgL_opt1326z00_25)));
																				}
																			else
																				{	/* Llib/date.scm 239 */
																					obj_t BgL_vz00_8314;

																					BgL_vz00_8314 =
																						VECTOR_REF(BgL_opt1326z00_25,
																						BgL_iz00_8304);
																					if ((BgL_vz00_8314 ==
																							BGl_keyword4992z00zz__datez00))
																						{	/* Llib/date.scm 239 */
																							BgL_index1340z00_3630 =
																								BINT((BgL_iz00_8304 + 1L));
																						}
																					else
																						{
																							long BgL_iz00_14451;

																							BgL_iz00_14451 =
																								(BgL_iz00_8304 + 2L);
																							BgL_iz00_8304 = BgL_iz00_14451;
																							goto BgL_search1329z00_8303;
																						}
																				}
																		}
																}
																{	/* Llib/date.scm 239 */
																	bool_t BgL_test5726z00_14453;

																	{	/* Llib/date.scm 239 */
																		long BgL_n1z00_8318;

																		{	/* Llib/date.scm 239 */
																			obj_t BgL_tmpz00_14454;

																			if (INTEGERP(BgL_index1340z00_3630))
																				{	/* Llib/date.scm 239 */
																					BgL_tmpz00_14454 =
																						BgL_index1340z00_3630;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14457;

																					BgL_auxz00_14457 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4998z00zz__datez00,
																						BgL_index1340z00_3630);
																					FAILURE(BgL_auxz00_14457, BFALSE,
																						BFALSE);
																				}
																			BgL_n1z00_8318 =
																				(long) CINT(BgL_tmpz00_14454);
																		}
																		BgL_test5726z00_14453 =
																			(BgL_n1z00_8318 >= 0L);
																	}
																	if (BgL_test5726z00_14453)
																		{
																			long BgL_auxz00_14470;
																			obj_t BgL_auxz00_14463;

																			{	/* Llib/date.scm 239 */
																				obj_t BgL_tmpz00_14471;

																				if (INTEGERP(BgL_index1340z00_3630))
																					{	/* Llib/date.scm 239 */
																						BgL_tmpz00_14471 =
																							BgL_index1340z00_3630;
																					}
																				else
																					{
																						obj_t BgL_auxz00_14474;

																						BgL_auxz00_14474 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string4971z00zz__datez00,
																							BINT(11386L),
																							BGl_string5000z00zz__datez00,
																							BGl_string4998z00zz__datez00,
																							BgL_index1340z00_3630);
																						FAILURE(BgL_auxz00_14474, BFALSE,
																							BFALSE);
																					}
																				BgL_auxz00_14470 =
																					(long) CINT(BgL_tmpz00_14471);
																			}
																			if (VECTORP(BgL_opt1326z00_25))
																				{	/* Llib/date.scm 239 */
																					BgL_auxz00_14463 = BgL_opt1326z00_25;
																				}
																			else
																				{
																					obj_t BgL_auxz00_14466;

																					BgL_auxz00_14466 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string4971z00zz__datez00,
																						BINT(11386L),
																						BGl_string5000z00zz__datez00,
																						BGl_string4973z00zz__datez00,
																						BgL_opt1326z00_25);
																					FAILURE(BgL_auxz00_14466, BFALSE,
																						BFALSE);
																				}
																			BgL_yearz00_3605 =
																				VECTOR_REF(BgL_auxz00_14463,
																				BgL_auxz00_14470);
																		}
																	else
																		{	/* Llib/date.scm 239 */
																			BFALSE;
																		}
																}
															}
															{	/* Llib/date.scm 239 */
																obj_t BgL_arg2686z00_3632;

																{
																	obj_t BgL_auxz00_14480;

																	if (VECTORP(BgL_opt1326z00_25))
																		{	/* Llib/date.scm 239 */
																			BgL_auxz00_14480 = BgL_opt1326z00_25;
																		}
																	else
																		{
																			obj_t BgL_auxz00_14483;

																			BgL_auxz00_14483 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string4971z00zz__datez00,
																				BINT(11386L),
																				BGl_string5000z00zz__datez00,
																				BGl_string4973z00zz__datez00,
																				BgL_opt1326z00_25);
																			FAILURE(BgL_auxz00_14483, BFALSE, BFALSE);
																		}
																	BgL_arg2686z00_3632 =
																		VECTOR_REF(BgL_auxz00_14480, 0L);
																}
																{	/* Llib/date.scm 239 */
																	obj_t BgL_dayz00_3633;

																	BgL_dayz00_3633 = BgL_dayz00_3597;
																	{	/* Llib/date.scm 239 */
																		obj_t BgL_hourz00_3634;

																		BgL_hourz00_3634 = BgL_hourz00_3598;
																		{	/* Llib/date.scm 239 */
																			obj_t BgL_isdstz00_3635;

																			BgL_isdstz00_3635 = BgL_isdstz00_3599;
																			{	/* Llib/date.scm 239 */
																				obj_t BgL_minz00_3636;

																				BgL_minz00_3636 = BgL_minz00_3600;
																				{	/* Llib/date.scm 239 */
																					obj_t BgL_monthz00_3637;

																					BgL_monthz00_3637 = BgL_monthz00_3601;
																					{	/* Llib/date.scm 239 */
																						obj_t BgL_nsecz00_3638;

																						BgL_nsecz00_3638 = BgL_nsecz00_3602;
																						{	/* Llib/date.scm 239 */
																							obj_t BgL_secz00_3639;

																							BgL_secz00_3639 = BgL_secz00_3603;
																							{	/* Llib/date.scm 239 */
																								obj_t BgL_timeza7oneza7_3640;

																								BgL_timeza7oneza7_3640 =
																									BgL_timeza7oneza7_3604;
																								{	/* Llib/date.scm 239 */
																									obj_t BgL_yearz00_3641;

																									BgL_yearz00_3641 =
																										BgL_yearz00_3605;
																									{	/* Llib/date.scm 239 */
																										obj_t BgL_datez00_8319;

																										if (BGL_DATEP
																											(BgL_arg2686z00_3632))
																											{	/* Llib/date.scm 239 */
																												BgL_datez00_8319 =
																													BgL_arg2686z00_3632;
																											}
																										else
																											{
																												obj_t BgL_auxz00_14490;

																												BgL_auxz00_14490 =
																													BGl_typezd2errorzd2zz__errorz00
																													(BGl_string4971z00zz__datez00,
																													BINT(11386L),
																													BGl_string5000z00zz__datez00,
																													BGl_string5007z00zz__datez00,
																													BgL_arg2686z00_3632);
																												FAILURE
																													(BgL_auxz00_14490,
																													BFALSE, BFALSE);
																											}
																										{	/* Llib/date.scm 241 */
																											obj_t BgL_arg2698z00_8320;
																											obj_t BgL_arg2701z00_8321;
																											obj_t BgL_arg2712z00_8322;
																											obj_t BgL_arg2713z00_8323;
																											obj_t BgL_arg2716z00_8324;
																											obj_t BgL_arg2717z00_8325;
																											obj_t BgL_arg2720z00_8326;
																											long BgL_arg2722z00_8327;
																											bool_t
																												BgL_arg2723z00_8328;
																											obj_t BgL_arg2724z00_8329;

																											if (CBOOL
																												(BgL_nsecz00_3638))
																												{	/* Llib/date.scm 241 */
																													BgL_arg2698z00_8320 =
																														BgL_nsecz00_3638;
																												}
																											else
																												{	/* Llib/date.scm 241 */
																													BgL_arg2698z00_8320 =
																														make_bllong
																														(BGL_DATE_NANOSECOND
																														(BgL_datez00_8319));
																												}
																											if (CBOOL
																												(BgL_secz00_3639))
																												{	/* Llib/date.scm 242 */
																													BgL_arg2701z00_8321 =
																														BgL_secz00_3639;
																												}
																											else
																												{	/* Llib/date.scm 242 */
																													BgL_arg2701z00_8321 =
																														BINT(BGL_DATE_SECOND
																														(BgL_datez00_8319));
																												}
																											if (CBOOL
																												(BgL_minz00_3636))
																												{	/* Llib/date.scm 243 */
																													BgL_arg2712z00_8322 =
																														BgL_minz00_3636;
																												}
																											else
																												{	/* Llib/date.scm 243 */
																													BgL_arg2712z00_8322 =
																														BINT(BGL_DATE_MINUTE
																														(BgL_datez00_8319));
																												}
																											if (CBOOL
																												(BgL_hourz00_3634))
																												{	/* Llib/date.scm 244 */
																													BgL_arg2713z00_8323 =
																														BgL_hourz00_3634;
																												}
																											else
																												{	/* Llib/date.scm 244 */
																													BgL_arg2713z00_8323 =
																														BINT(BGL_DATE_HOUR
																														(BgL_datez00_8319));
																												}
																											if (CBOOL
																												(BgL_dayz00_3633))
																												{	/* Llib/date.scm 245 */
																													BgL_arg2716z00_8324 =
																														BgL_dayz00_3633;
																												}
																											else
																												{	/* Llib/date.scm 245 */
																													BgL_arg2716z00_8324 =
																														BINT(BGL_DATE_DAY
																														(BgL_datez00_8319));
																												}
																											if (CBOOL
																												(BgL_monthz00_3637))
																												{	/* Llib/date.scm 246 */
																													BgL_arg2717z00_8325 =
																														BgL_monthz00_3637;
																												}
																											else
																												{	/* Llib/date.scm 246 */
																													BgL_arg2717z00_8325 =
																														BINT(BGL_DATE_MONTH
																														(BgL_datez00_8319));
																												}
																											if (CBOOL
																												(BgL_yearz00_3641))
																												{	/* Llib/date.scm 247 */
																													BgL_arg2720z00_8326 =
																														BgL_yearz00_3641;
																												}
																											else
																												{	/* Llib/date.scm 247 */
																													BgL_arg2720z00_8326 =
																														BINT(BGL_DATE_YEAR
																														(BgL_datez00_8319));
																												}
																											BgL_arg2722z00_8327 =
																												BGL_DATE_TIMEZONE
																												(BgL_datez00_8319);
																											BgL_arg2723z00_8328 =
																												BGL_DATE_ISGMT
																												(BgL_datez00_8319);
																											if (CBOOL
																												(BgL_isdstz00_3635))
																												{	/* Llib/date.scm 250 */
																													BgL_arg2724z00_8329 =
																														BgL_isdstz00_3635;
																												}
																											else
																												{	/* Llib/date.scm 250 */
																													BgL_arg2724z00_8329 =
																														BINT((-1L));
																												}
																											{	/* Llib/date.scm 240 */
																												int BgL_auxz00_14590;
																												int BgL_auxz00_14581;
																												int BgL_auxz00_14572;
																												int BgL_auxz00_14563;
																												int BgL_auxz00_14554;
																												int BgL_auxz00_14545;
																												int BgL_auxz00_14536;
																												BGL_LONGLONG_T
																													BgL_tmpz00_14527;
																												{	/* Llib/date.scm 250 */
																													obj_t
																														BgL_tmpz00_14591;
																													if (INTEGERP
																														(BgL_arg2724z00_8329))
																														{	/* Llib/date.scm 250 */
																															BgL_tmpz00_14591 =
																																BgL_arg2724z00_8329;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14594;
																															BgL_auxz00_14594 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string4971z00zz__datez00,
																																BINT(11789L),
																																BGl_string5000z00zz__datez00,
																																BGl_string4998z00zz__datez00,
																																BgL_arg2724z00_8329);
																															FAILURE
																																(BgL_auxz00_14594,
																																BFALSE, BFALSE);
																														}
																													BgL_auxz00_14590 =
																														CINT
																														(BgL_tmpz00_14591);
																												}
																												{	/* Llib/date.scm 247 */
																													obj_t
																														BgL_tmpz00_14582;
																													if (INTEGERP
																														(BgL_arg2720z00_8326))
																														{	/* Llib/date.scm 247 */
																															BgL_tmpz00_14582 =
																																BgL_arg2720z00_8326;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14585;
																															BgL_auxz00_14585 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string4971z00zz__datez00,
																																BINT(11716L),
																																BGl_string5000z00zz__datez00,
																																BGl_string4998z00zz__datez00,
																																BgL_arg2720z00_8326);
																															FAILURE
																																(BgL_auxz00_14585,
																																BFALSE, BFALSE);
																														}
																													BgL_auxz00_14581 =
																														CINT
																														(BgL_tmpz00_14582);
																												}
																												{	/* Llib/date.scm 246 */
																													obj_t
																														BgL_tmpz00_14573;
																													if (INTEGERP
																														(BgL_arg2717z00_8325))
																														{	/* Llib/date.scm 246 */
																															BgL_tmpz00_14573 =
																																BgL_arg2717z00_8325;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14576;
																															BgL_auxz00_14576 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string4971z00zz__datez00,
																																BINT(11683L),
																																BGl_string5000z00zz__datez00,
																																BGl_string4998z00zz__datez00,
																																BgL_arg2717z00_8325);
																															FAILURE
																																(BgL_auxz00_14576,
																																BFALSE, BFALSE);
																														}
																													BgL_auxz00_14572 =
																														CINT
																														(BgL_tmpz00_14573);
																												}
																												{	/* Llib/date.scm 245 */
																													obj_t
																														BgL_tmpz00_14564;
																													if (INTEGERP
																														(BgL_arg2716z00_8324))
																														{	/* Llib/date.scm 245 */
																															BgL_tmpz00_14564 =
																																BgL_arg2716z00_8324;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14567;
																															BgL_auxz00_14567 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string4971z00zz__datez00,
																																BINT(11648L),
																																BGl_string5000z00zz__datez00,
																																BGl_string4998z00zz__datez00,
																																BgL_arg2716z00_8324);
																															FAILURE
																																(BgL_auxz00_14567,
																																BFALSE, BFALSE);
																														}
																													BgL_auxz00_14563 =
																														CINT
																														(BgL_tmpz00_14564);
																												}
																												{	/* Llib/date.scm 244 */
																													obj_t
																														BgL_tmpz00_14555;
																													if (INTEGERP
																														(BgL_arg2713z00_8323))
																														{	/* Llib/date.scm 244 */
																															BgL_tmpz00_14555 =
																																BgL_arg2713z00_8323;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14558;
																															BgL_auxz00_14558 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string4971z00zz__datez00,
																																BINT(11617L),
																																BGl_string5000z00zz__datez00,
																																BGl_string4998z00zz__datez00,
																																BgL_arg2713z00_8323);
																															FAILURE
																																(BgL_auxz00_14558,
																																BFALSE, BFALSE);
																														}
																													BgL_auxz00_14554 =
																														CINT
																														(BgL_tmpz00_14555);
																												}
																												{	/* Llib/date.scm 243 */
																													obj_t
																														BgL_tmpz00_14546;
																													if (INTEGERP
																														(BgL_arg2712z00_8322))
																														{	/* Llib/date.scm 243 */
																															BgL_tmpz00_14546 =
																																BgL_arg2712z00_8322;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14549;
																															BgL_auxz00_14549 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string4971z00zz__datez00,
																																BINT(11584L),
																																BGl_string5000z00zz__datez00,
																																BGl_string4998z00zz__datez00,
																																BgL_arg2712z00_8322);
																															FAILURE
																																(BgL_auxz00_14549,
																																BFALSE, BFALSE);
																														}
																													BgL_auxz00_14545 =
																														CINT
																														(BgL_tmpz00_14546);
																												}
																												{	/* Llib/date.scm 242 */
																													obj_t
																														BgL_tmpz00_14537;
																													if (INTEGERP
																														(BgL_arg2701z00_8321))
																														{	/* Llib/date.scm 242 */
																															BgL_tmpz00_14537 =
																																BgL_arg2701z00_8321;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14540;
																															BgL_auxz00_14540 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string4971z00zz__datez00,
																																BINT(11550L),
																																BGl_string5000z00zz__datez00,
																																BGl_string4998z00zz__datez00,
																																BgL_arg2701z00_8321);
																															FAILURE
																																(BgL_auxz00_14540,
																																BFALSE, BFALSE);
																														}
																													BgL_auxz00_14536 =
																														CINT
																														(BgL_tmpz00_14537);
																												}
																												{	/* Llib/date.scm 241 */
																													obj_t
																														BgL_tmpz00_14528;
																													if (LLONGP
																														(BgL_arg2698z00_8320))
																														{	/* Llib/date.scm 241 */
																															BgL_tmpz00_14528 =
																																BgL_arg2698z00_8320;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14531;
																															BgL_auxz00_14531 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string4971z00zz__datez00,
																																BINT(11516L),
																																BGl_string5000z00zz__datez00,
																																BGl_string4999z00zz__datez00,
																																BgL_arg2698z00_8320);
																															FAILURE
																																(BgL_auxz00_14531,
																																BFALSE, BFALSE);
																														}
																													BgL_tmpz00_14527 =
																														BLLONG_TO_LLONG
																														(BgL_tmpz00_14528);
																												}
																												return
																													bgl_make_date
																													(BgL_tmpz00_14527,
																													BgL_auxz00_14536,
																													BgL_auxz00_14545,
																													BgL_auxz00_14554,
																													BgL_auxz00_14563,
																													BgL_auxz00_14572,
																													BgL_auxz00_14581,
																													BgL_arg2722z00_8327,
																													BgL_arg2723z00_8328,
																													BgL_auxz00_14590);
																											}
																										}
																									}
																								}
																							}
																						}
																					}
																				}
																			}
																		}
																	}
																}
															}
														}
													}
												}
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* 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_arg2698z00_8346;
				obj_t BgL_arg2701z00_8347;
				obj_t BgL_arg2712z00_8348;
				obj_t BgL_arg2713z00_8349;
				obj_t BgL_arg2716z00_8350;
				obj_t BgL_arg2717z00_8351;
				obj_t BgL_arg2720z00_8352;
				long BgL_arg2722z00_8353;
				bool_t BgL_arg2723z00_8354;
				obj_t BgL_arg2724z00_8355;

				if (CBOOL(BgL_nsecz00_21))
					{	/* Llib/date.scm 241 */
						BgL_arg2698z00_8346 = BgL_nsecz00_21;
					}
				else
					{	/* Llib/date.scm 241 */
						BgL_arg2698z00_8346 =
							make_bllong(BGL_DATE_NANOSECOND(BgL_datez00_15));
					}
				if (CBOOL(BgL_secz00_22))
					{	/* Llib/date.scm 242 */
						BgL_arg2701z00_8347 = BgL_secz00_22;
					}
				else
					{	/* Llib/date.scm 242 */
						BgL_arg2701z00_8347 = BINT(BGL_DATE_SECOND(BgL_datez00_15));
					}
				if (CBOOL(BgL_minz00_19))
					{	/* Llib/date.scm 243 */
						BgL_arg2712z00_8348 = BgL_minz00_19;
					}
				else
					{	/* Llib/date.scm 243 */
						BgL_arg2712z00_8348 = BINT(BGL_DATE_MINUTE(BgL_datez00_15));
					}
				if (CBOOL(BgL_hourz00_17))
					{	/* Llib/date.scm 244 */
						BgL_arg2713z00_8349 = BgL_hourz00_17;
					}
				else
					{	/* Llib/date.scm 244 */
						BgL_arg2713z00_8349 = BINT(BGL_DATE_HOUR(BgL_datez00_15));
					}
				if (CBOOL(BgL_dayz00_16))
					{	/* Llib/date.scm 245 */
						BgL_arg2716z00_8350 = BgL_dayz00_16;
					}
				else
					{	/* Llib/date.scm 245 */
						BgL_arg2716z00_8350 = BINT(BGL_DATE_DAY(BgL_datez00_15));
					}
				if (CBOOL(BgL_monthz00_20))
					{	/* Llib/date.scm 246 */
						BgL_arg2717z00_8351 = BgL_monthz00_20;
					}
				else
					{	/* Llib/date.scm 246 */
						BgL_arg2717z00_8351 = BINT(BGL_DATE_MONTH(BgL_datez00_15));
					}
				if (CBOOL(BgL_yearz00_24))
					{	/* Llib/date.scm 247 */
						BgL_arg2720z00_8352 = BgL_yearz00_24;
					}
				else
					{	/* Llib/date.scm 247 */
						BgL_arg2720z00_8352 = BINT(BGL_DATE_YEAR(BgL_datez00_15));
					}
				BgL_arg2722z00_8353 = BGL_DATE_TIMEZONE(BgL_datez00_15);
				BgL_arg2723z00_8354 = BGL_DATE_ISGMT(BgL_datez00_15);
				if (CBOOL(BgL_isdstz00_18))
					{	/* Llib/date.scm 250 */
						BgL_arg2724z00_8355 = BgL_isdstz00_18;
					}
				else
					{	/* Llib/date.scm 250 */
						BgL_arg2724z00_8355 = BINT((-1L));
					}
				return
					bgl_make_date(BLLONG_TO_LLONG(BgL_arg2698z00_8346),
					CINT(BgL_arg2701z00_8347),
					CINT(BgL_arg2712z00_8348),
					CINT(BgL_arg2713z00_8349),
					CINT(BgL_arg2716z00_8350),
					CINT(BgL_arg2717z00_8351),
					CINT(BgL_arg2720z00_8352), BgL_arg2722z00_8353, BgL_arg2723z00_8354,
					CINT(BgL_arg2724z00_8355));
			}
		}

	}



/* _date-update! */
	obj_t BGl__datezd2updatez12zc0zz__datez00(obj_t BgL_env1342z00_36,
		obj_t BgL_opt1341z00_35)
	{
		{	/* Llib/date.scm 255 */
			{	/* Llib/date.scm 255 */
				long BgL_l1343z00_3667;

				{	/* Llib/date.scm 255 */
					obj_t BgL_vectorz00_8372;

					if (VECTORP(BgL_opt1341z00_35))
						{	/* Llib/date.scm 255 */
							BgL_vectorz00_8372 = BgL_opt1341z00_35;
						}
					else
						{
							obj_t BgL_auxz00_14644;

							BgL_auxz00_14644 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(12016L), BGl_string5008z00zz__datez00,
								BGl_string4973z00zz__datez00, BgL_opt1341z00_35);
							FAILURE(BgL_auxz00_14644, BFALSE, BFALSE);
						}
					BgL_l1343z00_3667 = VECTOR_LENGTH(BgL_vectorz00_8372);
				}
				{	/* Llib/date.scm 255 */
					obj_t BgL_datez00_3671;

					{
						obj_t BgL_auxz00_14649;

						if (VECTORP(BgL_opt1341z00_35))
							{	/* Llib/date.scm 255 */
								BgL_auxz00_14649 = BgL_opt1341z00_35;
							}
						else
							{
								obj_t BgL_auxz00_14652;

								BgL_auxz00_14652 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
									BINT(12016L), BGl_string5008z00zz__datez00,
									BGl_string4973z00zz__datez00, BgL_opt1341z00_35);
								FAILURE(BgL_auxz00_14652, BFALSE, BFALSE);
							}
						BgL_datez00_3671 = VECTOR_REF(BgL_auxz00_14649, 0L);
					}
					{	/* Llib/date.scm 255 */
						obj_t BgL_dayz00_3672;

						BgL_dayz00_3672 = BFALSE;
						{	/* Llib/date.scm 255 */
							obj_t BgL_hourz00_3673;

							BgL_hourz00_3673 = BFALSE;
							{	/* Llib/date.scm 255 */
								obj_t BgL_minz00_3674;

								BgL_minz00_3674 = BFALSE;
								{	/* Llib/date.scm 255 */
									obj_t BgL_monthz00_3675;

									BgL_monthz00_3675 = BFALSE;
									{	/* Llib/date.scm 255 */
										obj_t BgL_nsecz00_3676;

										BgL_nsecz00_3676 = BFALSE;
										{	/* Llib/date.scm 255 */
											obj_t BgL_secz00_3677;

											BgL_secz00_3677 = BFALSE;
											{	/* Llib/date.scm 255 */
												obj_t BgL_yearz00_3678;

												BgL_yearz00_3678 = BFALSE;
												{	/* Llib/date.scm 255 */

													{
														long BgL_iz00_3679;

														BgL_iz00_3679 = 1L;
													BgL_check1345z00_3680:
														if ((BgL_iz00_3679 == BgL_l1343z00_3667))
															{	/* Llib/date.scm 255 */
																BNIL;
															}
														else
															{	/* Llib/date.scm 255 */
																bool_t BgL_test5759z00_14659;

																{	/* Llib/date.scm 255 */
																	obj_t BgL_arg2730z00_3686;

																	BgL_arg2730z00_3686 =
																		VECTOR_REF(
																		((obj_t) BgL_opt1341z00_35), BgL_iz00_3679);
																	BgL_test5759z00_14659 =
																		CBOOL
																		(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																		(BgL_arg2730z00_3686,
																			BGl_list5009z00zz__datez00));
																}
																if (BgL_test5759z00_14659)
																	{
																		long BgL_iz00_14664;

																		BgL_iz00_14664 = (BgL_iz00_3679 + 2L);
																		BgL_iz00_3679 = BgL_iz00_14664;
																		goto BgL_check1345z00_3680;
																	}
																else
																	{	/* Llib/date.scm 255 */
																		obj_t BgL_arg2729z00_3685;

																		BgL_arg2729z00_3685 =
																			VECTOR_REF(
																			((obj_t) BgL_opt1341z00_35),
																			BgL_iz00_3679);
																		BGl_errorz00zz__errorz00
																			(BGl_symbol5010z00zz__datez00,
																			BGl_string4996z00zz__datez00,
																			BgL_arg2729z00_3685);
																	}
															}
													}
													{	/* Llib/date.scm 255 */
														obj_t BgL_index1347z00_3687;

														{
															long BgL_iz00_8388;

															BgL_iz00_8388 = 1L;
														BgL_search1344z00_8387:
															if ((BgL_iz00_8388 == BgL_l1343z00_3667))
																{	/* Llib/date.scm 255 */
																	BgL_index1347z00_3687 = BINT((-1L));
																}
															else
																{	/* Llib/date.scm 255 */
																	if (
																		(BgL_iz00_8388 == (BgL_l1343z00_3667 - 1L)))
																		{	/* Llib/date.scm 255 */
																			BgL_index1347z00_3687 =
																				BGl_errorz00zz__errorz00
																				(BGl_symbol5010z00zz__datez00,
																				BGl_string5012z00zz__datez00,
																				BINT(VECTOR_LENGTH(BgL_opt1341z00_35)));
																		}
																	else
																		{	/* Llib/date.scm 255 */
																			obj_t BgL_vz00_8398;

																			BgL_vz00_8398 =
																				VECTOR_REF(BgL_opt1341z00_35,
																				BgL_iz00_8388);
																			if ((BgL_vz00_8398 ==
																					BGl_keyword4976z00zz__datez00))
																				{	/* Llib/date.scm 255 */
																					BgL_index1347z00_3687 =
																						BINT((BgL_iz00_8388 + 1L));
																				}
																			else
																				{
																					long BgL_iz00_14683;

																					BgL_iz00_14683 = (BgL_iz00_8388 + 2L);
																					BgL_iz00_8388 = BgL_iz00_14683;
																					goto BgL_search1344z00_8387;
																				}
																		}
																}
														}
														{	/* Llib/date.scm 255 */
															bool_t BgL_test5763z00_14685;

															{	/* Llib/date.scm 255 */
																long BgL_n1z00_8402;

																{	/* Llib/date.scm 255 */
																	obj_t BgL_tmpz00_14686;

																	if (INTEGERP(BgL_index1347z00_3687))
																		{	/* Llib/date.scm 255 */
																			BgL_tmpz00_14686 = BgL_index1347z00_3687;
																		}
																	else
																		{
																			obj_t BgL_auxz00_14689;

																			BgL_auxz00_14689 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string4971z00zz__datez00,
																				BINT(12016L),
																				BGl_string5008z00zz__datez00,
																				BGl_string4998z00zz__datez00,
																				BgL_index1347z00_3687);
																			FAILURE(BgL_auxz00_14689, BFALSE, BFALSE);
																		}
																	BgL_n1z00_8402 =
																		(long) CINT(BgL_tmpz00_14686);
																}
																BgL_test5763z00_14685 = (BgL_n1z00_8402 >= 0L);
															}
															if (BgL_test5763z00_14685)
																{
																	long BgL_auxz00_14702;
																	obj_t BgL_auxz00_14695;

																	{	/* Llib/date.scm 255 */
																		obj_t BgL_tmpz00_14703;

																		if (INTEGERP(BgL_index1347z00_3687))
																			{	/* Llib/date.scm 255 */
																				BgL_tmpz00_14703 =
																					BgL_index1347z00_3687;
																			}
																		else
																			{
																				obj_t BgL_auxz00_14706;

																				BgL_auxz00_14706 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string4971z00zz__datez00,
																					BINT(12016L),
																					BGl_string5008z00zz__datez00,
																					BGl_string4998z00zz__datez00,
																					BgL_index1347z00_3687);
																				FAILURE(BgL_auxz00_14706, BFALSE,
																					BFALSE);
																			}
																		BgL_auxz00_14702 =
																			(long) CINT(BgL_tmpz00_14703);
																	}
																	if (VECTORP(BgL_opt1341z00_35))
																		{	/* Llib/date.scm 255 */
																			BgL_auxz00_14695 = BgL_opt1341z00_35;
																		}
																	else
																		{
																			obj_t BgL_auxz00_14698;

																			BgL_auxz00_14698 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string4971z00zz__datez00,
																				BINT(12016L),
																				BGl_string5008z00zz__datez00,
																				BGl_string4973z00zz__datez00,
																				BgL_opt1341z00_35);
																			FAILURE(BgL_auxz00_14698, BFALSE, BFALSE);
																		}
																	BgL_dayz00_3672 =
																		VECTOR_REF(BgL_auxz00_14695,
																		BgL_auxz00_14702);
																}
															else
																{	/* Llib/date.scm 255 */
																	BFALSE;
																}
														}
													}
													{	/* Llib/date.scm 255 */
														obj_t BgL_index1348z00_3689;

														{
															long BgL_iz00_8404;

															BgL_iz00_8404 = 1L;
														BgL_search1344z00_8403:
															if ((BgL_iz00_8404 == BgL_l1343z00_3667))
																{	/* Llib/date.scm 255 */
																	BgL_index1348z00_3689 = BINT((-1L));
																}
															else
																{	/* Llib/date.scm 255 */
																	if (
																		(BgL_iz00_8404 == (BgL_l1343z00_3667 - 1L)))
																		{	/* Llib/date.scm 255 */
																			BgL_index1348z00_3689 =
																				BGl_errorz00zz__errorz00
																				(BGl_symbol5010z00zz__datez00,
																				BGl_string5012z00zz__datez00,
																				BINT(VECTOR_LENGTH(BgL_opt1341z00_35)));
																		}
																	else
																		{	/* Llib/date.scm 255 */
																			obj_t BgL_vz00_8414;

																			BgL_vz00_8414 =
																				VECTOR_REF(BgL_opt1341z00_35,
																				BgL_iz00_8404);
																			if ((BgL_vz00_8414 ==
																					BGl_keyword4980z00zz__datez00))
																				{	/* Llib/date.scm 255 */
																					BgL_index1348z00_3689 =
																						BINT((BgL_iz00_8404 + 1L));
																				}
																			else
																				{
																					long BgL_iz00_14726;

																					BgL_iz00_14726 = (BgL_iz00_8404 + 2L);
																					BgL_iz00_8404 = BgL_iz00_14726;
																					goto BgL_search1344z00_8403;
																				}
																		}
																}
														}
														{	/* Llib/date.scm 255 */
															bool_t BgL_test5770z00_14728;

															{	/* Llib/date.scm 255 */
																long BgL_n1z00_8418;

																{	/* Llib/date.scm 255 */
																	obj_t BgL_tmpz00_14729;

																	if (INTEGERP(BgL_index1348z00_3689))
																		{	/* Llib/date.scm 255 */
																			BgL_tmpz00_14729 = BgL_index1348z00_3689;
																		}
																	else
																		{
																			obj_t BgL_auxz00_14732;

																			BgL_auxz00_14732 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string4971z00zz__datez00,
																				BINT(12016L),
																				BGl_string5008z00zz__datez00,
																				BGl_string4998z00zz__datez00,
																				BgL_index1348z00_3689);
																			FAILURE(BgL_auxz00_14732, BFALSE, BFALSE);
																		}
																	BgL_n1z00_8418 =
																		(long) CINT(BgL_tmpz00_14729);
																}
																BgL_test5770z00_14728 = (BgL_n1z00_8418 >= 0L);
															}
															if (BgL_test5770z00_14728)
																{
																	long BgL_auxz00_14745;
																	obj_t BgL_auxz00_14738;

																	{	/* Llib/date.scm 255 */
																		obj_t BgL_tmpz00_14746;

																		if (INTEGERP(BgL_index1348z00_3689))
																			{	/* Llib/date.scm 255 */
																				BgL_tmpz00_14746 =
																					BgL_index1348z00_3689;
																			}
																		else
																			{
																				obj_t BgL_auxz00_14749;

																				BgL_auxz00_14749 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string4971z00zz__datez00,
																					BINT(12016L),
																					BGl_string5008z00zz__datez00,
																					BGl_string4998z00zz__datez00,
																					BgL_index1348z00_3689);
																				FAILURE(BgL_auxz00_14749, BFALSE,
																					BFALSE);
																			}
																		BgL_auxz00_14745 =
																			(long) CINT(BgL_tmpz00_14746);
																	}
																	if (VECTORP(BgL_opt1341z00_35))
																		{	/* Llib/date.scm 255 */
																			BgL_auxz00_14738 = BgL_opt1341z00_35;
																		}
																	else
																		{
																			obj_t BgL_auxz00_14741;

																			BgL_auxz00_14741 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string4971z00zz__datez00,
																				BINT(12016L),
																				BGl_string5008z00zz__datez00,
																				BGl_string4973z00zz__datez00,
																				BgL_opt1341z00_35);
																			FAILURE(BgL_auxz00_14741, BFALSE, BFALSE);
																		}
																	BgL_hourz00_3673 =
																		VECTOR_REF(BgL_auxz00_14738,
																		BgL_auxz00_14745);
																}
															else
																{	/* Llib/date.scm 255 */
																	BFALSE;
																}
														}
													}
													{	/* Llib/date.scm 255 */
														obj_t BgL_index1349z00_3691;

														{
															long BgL_iz00_8420;

															BgL_iz00_8420 = 1L;
														BgL_search1344z00_8419:
															if ((BgL_iz00_8420 == BgL_l1343z00_3667))
																{	/* Llib/date.scm 255 */
																	BgL_index1349z00_3691 = BINT((-1L));
																}
															else
																{	/* Llib/date.scm 255 */
																	if (
																		(BgL_iz00_8420 == (BgL_l1343z00_3667 - 1L)))
																		{	/* Llib/date.scm 255 */
																			BgL_index1349z00_3691 =
																				BGl_errorz00zz__errorz00
																				(BGl_symbol5010z00zz__datez00,
																				BGl_string5012z00zz__datez00,
																				BINT(VECTOR_LENGTH(BgL_opt1341z00_35)));
																		}
																	else
																		{	/* Llib/date.scm 255 */
																			obj_t BgL_vz00_8430;

																			BgL_vz00_8430 =
																				VECTOR_REF(BgL_opt1341z00_35,
																				BgL_iz00_8420);
																			if ((BgL_vz00_8430 ==
																					BGl_keyword4982z00zz__datez00))
																				{	/* Llib/date.scm 255 */
																					BgL_index1349z00_3691 =
																						BINT((BgL_iz00_8420 + 1L));
																				}
																			else
																				{
																					long BgL_iz00_14769;

																					BgL_iz00_14769 = (BgL_iz00_8420 + 2L);
																					BgL_iz00_8420 = BgL_iz00_14769;
																					goto BgL_search1344z00_8419;
																				}
																		}
																}
														}
														{	/* Llib/date.scm 255 */
															bool_t BgL_test5777z00_14771;

															{	/* Llib/date.scm 255 */
																long BgL_n1z00_8434;

																{	/* Llib/date.scm 255 */
																	obj_t BgL_tmpz00_14772;

																	if (INTEGERP(BgL_index1349z00_3691))
																		{	/* Llib/date.scm 255 */
																			BgL_tmpz00_14772 = BgL_index1349z00_3691;
																		}
																	else
																		{
																			obj_t BgL_auxz00_14775;

																			BgL_auxz00_14775 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string4971z00zz__datez00,
																				BINT(12016L),
																				BGl_string5008z00zz__datez00,
																				BGl_string4998z00zz__datez00,
																				BgL_index1349z00_3691);
																			FAILURE(BgL_auxz00_14775, BFALSE, BFALSE);
																		}
																	BgL_n1z00_8434 =
																		(long) CINT(BgL_tmpz00_14772);
																}
																BgL_test5777z00_14771 = (BgL_n1z00_8434 >= 0L);
															}
															if (BgL_test5777z00_14771)
																{
																	long BgL_auxz00_14788;
																	obj_t BgL_auxz00_14781;

																	{	/* Llib/date.scm 255 */
																		obj_t BgL_tmpz00_14789;

																		if (INTEGERP(BgL_index1349z00_3691))
																			{	/* Llib/date.scm 255 */
																				BgL_tmpz00_14789 =
																					BgL_index1349z00_3691;
																			}
																		else
																			{
																				obj_t BgL_auxz00_14792;

																				BgL_auxz00_14792 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string4971z00zz__datez00,
																					BINT(12016L),
																					BGl_string5008z00zz__datez00,
																					BGl_string4998z00zz__datez00,
																					BgL_index1349z00_3691);
																				FAILURE(BgL_auxz00_14792, BFALSE,
																					BFALSE);
																			}
																		BgL_auxz00_14788 =
																			(long) CINT(BgL_tmpz00_14789);
																	}
																	if (VECTORP(BgL_opt1341z00_35))
																		{	/* Llib/date.scm 255 */
																			BgL_auxz00_14781 = BgL_opt1341z00_35;
																		}
																	else
																		{
																			obj_t BgL_auxz00_14784;

																			BgL_auxz00_14784 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string4971z00zz__datez00,
																				BINT(12016L),
																				BGl_string5008z00zz__datez00,
																				BGl_string4973z00zz__datez00,
																				BgL_opt1341z00_35);
																			FAILURE(BgL_auxz00_14784, BFALSE, BFALSE);
																		}
																	BgL_minz00_3674 =
																		VECTOR_REF(BgL_auxz00_14781,
																		BgL_auxz00_14788);
																}
															else
																{	/* Llib/date.scm 255 */
																	BFALSE;
																}
														}
													}
													{	/* Llib/date.scm 255 */
														obj_t BgL_index1350z00_3693;

														{
															long BgL_iz00_8436;

															BgL_iz00_8436 = 1L;
														BgL_search1344z00_8435:
															if ((BgL_iz00_8436 == BgL_l1343z00_3667))
																{	/* Llib/date.scm 255 */
																	BgL_index1350z00_3693 = BINT((-1L));
																}
															else
																{	/* Llib/date.scm 255 */
																	if (
																		(BgL_iz00_8436 == (BgL_l1343z00_3667 - 1L)))
																		{	/* Llib/date.scm 255 */
																			BgL_index1350z00_3693 =
																				BGl_errorz00zz__errorz00
																				(BGl_symbol5010z00zz__datez00,
																				BGl_string5012z00zz__datez00,
																				BINT(VECTOR_LENGTH(BgL_opt1341z00_35)));
																		}
																	else
																		{	/* Llib/date.scm 255 */
																			obj_t BgL_vz00_8446;

																			BgL_vz00_8446 =
																				VECTOR_REF(BgL_opt1341z00_35,
																				BgL_iz00_8436);
																			if ((BgL_vz00_8446 ==
																					BGl_keyword4984z00zz__datez00))
																				{	/* Llib/date.scm 255 */
																					BgL_index1350z00_3693 =
																						BINT((BgL_iz00_8436 + 1L));
																				}
																			else
																				{
																					long BgL_iz00_14812;

																					BgL_iz00_14812 = (BgL_iz00_8436 + 2L);
																					BgL_iz00_8436 = BgL_iz00_14812;
																					goto BgL_search1344z00_8435;
																				}
																		}
																}
														}
														{	/* Llib/date.scm 255 */
															bool_t BgL_test5784z00_14814;

															{	/* Llib/date.scm 255 */
																long BgL_n1z00_8450;

																{	/* Llib/date.scm 255 */
																	obj_t BgL_tmpz00_14815;

																	if (INTEGERP(BgL_index1350z00_3693))
																		{	/* Llib/date.scm 255 */
																			BgL_tmpz00_14815 = BgL_index1350z00_3693;
																		}
																	else
																		{
																			obj_t BgL_auxz00_14818;

																			BgL_auxz00_14818 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string4971z00zz__datez00,
																				BINT(12016L),
																				BGl_string5008z00zz__datez00,
																				BGl_string4998z00zz__datez00,
																				BgL_index1350z00_3693);
																			FAILURE(BgL_auxz00_14818, BFALSE, BFALSE);
																		}
																	BgL_n1z00_8450 =
																		(long) CINT(BgL_tmpz00_14815);
																}
																BgL_test5784z00_14814 = (BgL_n1z00_8450 >= 0L);
															}
															if (BgL_test5784z00_14814)
																{
																	long BgL_auxz00_14831;
																	obj_t BgL_auxz00_14824;

																	{	/* Llib/date.scm 255 */
																		obj_t BgL_tmpz00_14832;

																		if (INTEGERP(BgL_index1350z00_3693))
																			{	/* Llib/date.scm 255 */
																				BgL_tmpz00_14832 =
																					BgL_index1350z00_3693;
																			}
																		else
																			{
																				obj_t BgL_auxz00_14835;

																				BgL_auxz00_14835 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string4971z00zz__datez00,
																					BINT(12016L),
																					BGl_string5008z00zz__datez00,
																					BGl_string4998z00zz__datez00,
																					BgL_index1350z00_3693);
																				FAILURE(BgL_auxz00_14835, BFALSE,
																					BFALSE);
																			}
																		BgL_auxz00_14831 =
																			(long) CINT(BgL_tmpz00_14832);
																	}
																	if (VECTORP(BgL_opt1341z00_35))
																		{	/* Llib/date.scm 255 */
																			BgL_auxz00_14824 = BgL_opt1341z00_35;
																		}
																	else
																		{
																			obj_t BgL_auxz00_14827;

																			BgL_auxz00_14827 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string4971z00zz__datez00,
																				BINT(12016L),
																				BGl_string5008z00zz__datez00,
																				BGl_string4973z00zz__datez00,
																				BgL_opt1341z00_35);
																			FAILURE(BgL_auxz00_14827, BFALSE, BFALSE);
																		}
																	BgL_monthz00_3675 =
																		VECTOR_REF(BgL_auxz00_14824,
																		BgL_auxz00_14831);
																}
															else
																{	/* Llib/date.scm 255 */
																	BFALSE;
																}
														}
													}
													{	/* Llib/date.scm 255 */
														obj_t BgL_index1351z00_3695;

														{
															long BgL_iz00_8452;

															BgL_iz00_8452 = 1L;
														BgL_search1344z00_8451:
															if ((BgL_iz00_8452 == BgL_l1343z00_3667))
																{	/* Llib/date.scm 255 */
																	BgL_index1351z00_3695 = BINT((-1L));
																}
															else
																{	/* Llib/date.scm 255 */
																	if (
																		(BgL_iz00_8452 == (BgL_l1343z00_3667 - 1L)))
																		{	/* Llib/date.scm 255 */
																			BgL_index1351z00_3695 =
																				BGl_errorz00zz__errorz00
																				(BGl_symbol5010z00zz__datez00,
																				BGl_string5012z00zz__datez00,
																				BINT(VECTOR_LENGTH(BgL_opt1341z00_35)));
																		}
																	else
																		{	/* Llib/date.scm 255 */
																			obj_t BgL_vz00_8462;

																			BgL_vz00_8462 =
																				VECTOR_REF(BgL_opt1341z00_35,
																				BgL_iz00_8452);
																			if ((BgL_vz00_8462 ==
																					BGl_keyword4986z00zz__datez00))
																				{	/* Llib/date.scm 255 */
																					BgL_index1351z00_3695 =
																						BINT((BgL_iz00_8452 + 1L));
																				}
																			else
																				{
																					long BgL_iz00_14855;

																					BgL_iz00_14855 = (BgL_iz00_8452 + 2L);
																					BgL_iz00_8452 = BgL_iz00_14855;
																					goto BgL_search1344z00_8451;
																				}
																		}
																}
														}
														{	/* Llib/date.scm 255 */
															bool_t BgL_test5791z00_14857;

															{	/* Llib/date.scm 255 */
																long BgL_n1z00_8466;

																{	/* Llib/date.scm 255 */
																	obj_t BgL_tmpz00_14858;

																	if (INTEGERP(BgL_index1351z00_3695))
																		{	/* Llib/date.scm 255 */
																			BgL_tmpz00_14858 = BgL_index1351z00_3695;
																		}
																	else
																		{
																			obj_t BgL_auxz00_14861;

																			BgL_auxz00_14861 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string4971z00zz__datez00,
																				BINT(12016L),
																				BGl_string5008z00zz__datez00,
																				BGl_string4998z00zz__datez00,
																				BgL_index1351z00_3695);
																			FAILURE(BgL_auxz00_14861, BFALSE, BFALSE);
																		}
																	BgL_n1z00_8466 =
																		(long) CINT(BgL_tmpz00_14858);
																}
																BgL_test5791z00_14857 = (BgL_n1z00_8466 >= 0L);
															}
															if (BgL_test5791z00_14857)
																{
																	long BgL_auxz00_14874;
																	obj_t BgL_auxz00_14867;

																	{	/* Llib/date.scm 255 */
																		obj_t BgL_tmpz00_14875;

																		if (INTEGERP(BgL_index1351z00_3695))
																			{	/* Llib/date.scm 255 */
																				BgL_tmpz00_14875 =
																					BgL_index1351z00_3695;
																			}
																		else
																			{
																				obj_t BgL_auxz00_14878;

																				BgL_auxz00_14878 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string4971z00zz__datez00,
																					BINT(12016L),
																					BGl_string5008z00zz__datez00,
																					BGl_string4998z00zz__datez00,
																					BgL_index1351z00_3695);
																				FAILURE(BgL_auxz00_14878, BFALSE,
																					BFALSE);
																			}
																		BgL_auxz00_14874 =
																			(long) CINT(BgL_tmpz00_14875);
																	}
																	if (VECTORP(BgL_opt1341z00_35))
																		{	/* Llib/date.scm 255 */
																			BgL_auxz00_14867 = BgL_opt1341z00_35;
																		}
																	else
																		{
																			obj_t BgL_auxz00_14870;

																			BgL_auxz00_14870 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string4971z00zz__datez00,
																				BINT(12016L),
																				BGl_string5008z00zz__datez00,
																				BGl_string4973z00zz__datez00,
																				BgL_opt1341z00_35);
																			FAILURE(BgL_auxz00_14870, BFALSE, BFALSE);
																		}
																	BgL_nsecz00_3676 =
																		VECTOR_REF(BgL_auxz00_14867,
																		BgL_auxz00_14874);
																}
															else
																{	/* Llib/date.scm 255 */
																	BFALSE;
																}
														}
													}
													{	/* Llib/date.scm 255 */
														obj_t BgL_index1352z00_3697;

														{
															long BgL_iz00_8468;

															BgL_iz00_8468 = 1L;
														BgL_search1344z00_8467:
															if ((BgL_iz00_8468 == BgL_l1343z00_3667))
																{	/* Llib/date.scm 255 */
																	BgL_index1352z00_3697 = BINT((-1L));
																}
															else
																{	/* Llib/date.scm 255 */
																	if (
																		(BgL_iz00_8468 == (BgL_l1343z00_3667 - 1L)))
																		{	/* Llib/date.scm 255 */
																			BgL_index1352z00_3697 =
																				BGl_errorz00zz__errorz00
																				(BGl_symbol5010z00zz__datez00,
																				BGl_string5012z00zz__datez00,
																				BINT(VECTOR_LENGTH(BgL_opt1341z00_35)));
																		}
																	else
																		{	/* Llib/date.scm 255 */
																			obj_t BgL_vz00_8478;

																			BgL_vz00_8478 =
																				VECTOR_REF(BgL_opt1341z00_35,
																				BgL_iz00_8468);
																			if ((BgL_vz00_8478 ==
																					BGl_keyword4988z00zz__datez00))
																				{	/* Llib/date.scm 255 */
																					BgL_index1352z00_3697 =
																						BINT((BgL_iz00_8468 + 1L));
																				}
																			else
																				{
																					long BgL_iz00_14898;

																					BgL_iz00_14898 = (BgL_iz00_8468 + 2L);
																					BgL_iz00_8468 = BgL_iz00_14898;
																					goto BgL_search1344z00_8467;
																				}
																		}
																}
														}
														{	/* Llib/date.scm 255 */
															bool_t BgL_test5798z00_14900;

															{	/* Llib/date.scm 255 */
																long BgL_n1z00_8482;

																{	/* Llib/date.scm 255 */
																	obj_t BgL_tmpz00_14901;

																	if (INTEGERP(BgL_index1352z00_3697))
																		{	/* Llib/date.scm 255 */
																			BgL_tmpz00_14901 = BgL_index1352z00_3697;
																		}
																	else
																		{
																			obj_t BgL_auxz00_14904;

																			BgL_auxz00_14904 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string4971z00zz__datez00,
																				BINT(12016L),
																				BGl_string5008z00zz__datez00,
																				BGl_string4998z00zz__datez00,
																				BgL_index1352z00_3697);
																			FAILURE(BgL_auxz00_14904, BFALSE, BFALSE);
																		}
																	BgL_n1z00_8482 =
																		(long) CINT(BgL_tmpz00_14901);
																}
																BgL_test5798z00_14900 = (BgL_n1z00_8482 >= 0L);
															}
															if (BgL_test5798z00_14900)
																{
																	long BgL_auxz00_14917;
																	obj_t BgL_auxz00_14910;

																	{	/* Llib/date.scm 255 */
																		obj_t BgL_tmpz00_14918;

																		if (INTEGERP(BgL_index1352z00_3697))
																			{	/* Llib/date.scm 255 */
																				BgL_tmpz00_14918 =
																					BgL_index1352z00_3697;
																			}
																		else
																			{
																				obj_t BgL_auxz00_14921;

																				BgL_auxz00_14921 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string4971z00zz__datez00,
																					BINT(12016L),
																					BGl_string5008z00zz__datez00,
																					BGl_string4998z00zz__datez00,
																					BgL_index1352z00_3697);
																				FAILURE(BgL_auxz00_14921, BFALSE,
																					BFALSE);
																			}
																		BgL_auxz00_14917 =
																			(long) CINT(BgL_tmpz00_14918);
																	}
																	if (VECTORP(BgL_opt1341z00_35))
																		{	/* Llib/date.scm 255 */
																			BgL_auxz00_14910 = BgL_opt1341z00_35;
																		}
																	else
																		{
																			obj_t BgL_auxz00_14913;

																			BgL_auxz00_14913 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string4971z00zz__datez00,
																				BINT(12016L),
																				BGl_string5008z00zz__datez00,
																				BGl_string4973z00zz__datez00,
																				BgL_opt1341z00_35);
																			FAILURE(BgL_auxz00_14913, BFALSE, BFALSE);
																		}
																	BgL_secz00_3677 =
																		VECTOR_REF(BgL_auxz00_14910,
																		BgL_auxz00_14917);
																}
															else
																{	/* Llib/date.scm 255 */
																	BFALSE;
																}
														}
													}
													{	/* Llib/date.scm 255 */
														obj_t BgL_index1353z00_3699;

														{
															long BgL_iz00_8484;

															BgL_iz00_8484 = 1L;
														BgL_search1344z00_8483:
															if ((BgL_iz00_8484 == BgL_l1343z00_3667))
																{	/* Llib/date.scm 255 */
																	BgL_index1353z00_3699 = BINT((-1L));
																}
															else
																{	/* Llib/date.scm 255 */
																	if (
																		(BgL_iz00_8484 == (BgL_l1343z00_3667 - 1L)))
																		{	/* Llib/date.scm 255 */
																			BgL_index1353z00_3699 =
																				BGl_errorz00zz__errorz00
																				(BGl_symbol5010z00zz__datez00,
																				BGl_string5012z00zz__datez00,
																				BINT(VECTOR_LENGTH(BgL_opt1341z00_35)));
																		}
																	else
																		{	/* Llib/date.scm 255 */
																			obj_t BgL_vz00_8494;

																			BgL_vz00_8494 =
																				VECTOR_REF(BgL_opt1341z00_35,
																				BgL_iz00_8484);
																			if ((BgL_vz00_8494 ==
																					BGl_keyword4992z00zz__datez00))
																				{	/* Llib/date.scm 255 */
																					BgL_index1353z00_3699 =
																						BINT((BgL_iz00_8484 + 1L));
																				}
																			else
																				{
																					long BgL_iz00_14941;

																					BgL_iz00_14941 = (BgL_iz00_8484 + 2L);
																					BgL_iz00_8484 = BgL_iz00_14941;
																					goto BgL_search1344z00_8483;
																				}
																		}
																}
														}
														{	/* Llib/date.scm 255 */
															bool_t BgL_test5805z00_14943;

															{	/* Llib/date.scm 255 */
																long BgL_n1z00_8498;

																{	/* Llib/date.scm 255 */
																	obj_t BgL_tmpz00_14944;

																	if (INTEGERP(BgL_index1353z00_3699))
																		{	/* Llib/date.scm 255 */
																			BgL_tmpz00_14944 = BgL_index1353z00_3699;
																		}
																	else
																		{
																			obj_t BgL_auxz00_14947;

																			BgL_auxz00_14947 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string4971z00zz__datez00,
																				BINT(12016L),
																				BGl_string5008z00zz__datez00,
																				BGl_string4998z00zz__datez00,
																				BgL_index1353z00_3699);
																			FAILURE(BgL_auxz00_14947, BFALSE, BFALSE);
																		}
																	BgL_n1z00_8498 =
																		(long) CINT(BgL_tmpz00_14944);
																}
																BgL_test5805z00_14943 = (BgL_n1z00_8498 >= 0L);
															}
															if (BgL_test5805z00_14943)
																{
																	long BgL_auxz00_14960;
																	obj_t BgL_auxz00_14953;

																	{	/* Llib/date.scm 255 */
																		obj_t BgL_tmpz00_14961;

																		if (INTEGERP(BgL_index1353z00_3699))
																			{	/* Llib/date.scm 255 */
																				BgL_tmpz00_14961 =
																					BgL_index1353z00_3699;
																			}
																		else
																			{
																				obj_t BgL_auxz00_14964;

																				BgL_auxz00_14964 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string4971z00zz__datez00,
																					BINT(12016L),
																					BGl_string5008z00zz__datez00,
																					BGl_string4998z00zz__datez00,
																					BgL_index1353z00_3699);
																				FAILURE(BgL_auxz00_14964, BFALSE,
																					BFALSE);
																			}
																		BgL_auxz00_14960 =
																			(long) CINT(BgL_tmpz00_14961);
																	}
																	if (VECTORP(BgL_opt1341z00_35))
																		{	/* Llib/date.scm 255 */
																			BgL_auxz00_14953 = BgL_opt1341z00_35;
																		}
																	else
																		{
																			obj_t BgL_auxz00_14956;

																			BgL_auxz00_14956 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string4971z00zz__datez00,
																				BINT(12016L),
																				BGl_string5008z00zz__datez00,
																				BGl_string4973z00zz__datez00,
																				BgL_opt1341z00_35);
																			FAILURE(BgL_auxz00_14956, BFALSE, BFALSE);
																		}
																	BgL_yearz00_3678 =
																		VECTOR_REF(BgL_auxz00_14953,
																		BgL_auxz00_14960);
																}
															else
																{	/* Llib/date.scm 255 */
																	BFALSE;
																}
														}
													}
													{	/* Llib/date.scm 255 */
														obj_t BgL_arg2738z00_3701;

														{
															obj_t BgL_auxz00_14970;

															if (VECTORP(BgL_opt1341z00_35))
																{	/* Llib/date.scm 255 */
																	BgL_auxz00_14970 = BgL_opt1341z00_35;
																}
															else
																{
																	obj_t BgL_auxz00_14973;

																	BgL_auxz00_14973 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string4971z00zz__datez00, BINT(12016L),
																		BGl_string5008z00zz__datez00,
																		BGl_string4973z00zz__datez00,
																		BgL_opt1341z00_35);
																	FAILURE(BgL_auxz00_14973, BFALSE, BFALSE);
																}
															BgL_arg2738z00_3701 =
																VECTOR_REF(BgL_auxz00_14970, 0L);
														}
														{	/* Llib/date.scm 255 */
															obj_t BgL_dayz00_3702;

															BgL_dayz00_3702 = BgL_dayz00_3672;
															{	/* Llib/date.scm 255 */
																obj_t BgL_hourz00_3703;

																BgL_hourz00_3703 = BgL_hourz00_3673;
																{	/* Llib/date.scm 255 */
																	obj_t BgL_minz00_3704;

																	BgL_minz00_3704 = BgL_minz00_3674;
																	{	/* Llib/date.scm 255 */
																		obj_t BgL_monthz00_3705;

																		BgL_monthz00_3705 = BgL_monthz00_3675;
																		{	/* Llib/date.scm 255 */
																			obj_t BgL_nsecz00_3706;

																			BgL_nsecz00_3706 = BgL_nsecz00_3676;
																			{	/* Llib/date.scm 255 */
																				obj_t BgL_secz00_3707;

																				BgL_secz00_3707 = BgL_secz00_3677;
																				{	/* Llib/date.scm 255 */
																					obj_t BgL_yearz00_3708;

																					BgL_yearz00_3708 = BgL_yearz00_3678;
																					{	/* Llib/date.scm 255 */
																						obj_t BgL_datez00_8499;

																						if (BGL_DATEP(BgL_arg2738z00_3701))
																							{	/* Llib/date.scm 255 */
																								BgL_datez00_8499 =
																									BgL_arg2738z00_3701;
																							}
																						else
																							{
																								obj_t BgL_auxz00_14980;

																								BgL_auxz00_14980 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string4971z00zz__datez00,
																									BINT(12016L),
																									BGl_string5008z00zz__datez00,
																									BGl_string5007z00zz__datez00,
																									BgL_arg2738z00_3701);
																								FAILURE(BgL_auxz00_14980,
																									BFALSE, BFALSE);
																							}
																						{	/* Llib/date.scm 257 */
																							obj_t BgL_arg2751z00_8500;
																							obj_t BgL_arg2752z00_8501;
																							obj_t BgL_arg2753z00_8502;
																							obj_t BgL_arg2754z00_8503;
																							obj_t BgL_arg2755z00_8504;
																							obj_t BgL_arg2756z00_8505;
																							obj_t BgL_arg2760z00_8506;
																							long BgL_arg2761z00_8507;
																							bool_t BgL_arg2762z00_8508;

																							if (CBOOL(BgL_nsecz00_3706))
																								{	/* Llib/date.scm 257 */
																									BgL_arg2751z00_8500 =
																										BgL_nsecz00_3706;
																								}
																							else
																								{	/* Llib/date.scm 257 */
																									BgL_arg2751z00_8500 =
																										make_bllong
																										(BGL_DATE_NANOSECOND
																										(BgL_datez00_8499));
																								}
																							if (CBOOL(BgL_secz00_3707))
																								{	/* Llib/date.scm 258 */
																									BgL_arg2752z00_8501 =
																										BgL_secz00_3707;
																								}
																							else
																								{	/* Llib/date.scm 258 */
																									BgL_arg2752z00_8501 =
																										BINT(BGL_DATE_SECOND
																										(BgL_datez00_8499));
																								}
																							if (CBOOL(BgL_minz00_3704))
																								{	/* Llib/date.scm 259 */
																									BgL_arg2753z00_8502 =
																										BgL_minz00_3704;
																								}
																							else
																								{	/* Llib/date.scm 259 */
																									BgL_arg2753z00_8502 =
																										BINT(BGL_DATE_MINUTE
																										(BgL_datez00_8499));
																								}
																							if (CBOOL(BgL_hourz00_3703))
																								{	/* Llib/date.scm 260 */
																									BgL_arg2754z00_8503 =
																										BgL_hourz00_3703;
																								}
																							else
																								{	/* Llib/date.scm 260 */
																									BgL_arg2754z00_8503 =
																										BINT(BGL_DATE_HOUR
																										(BgL_datez00_8499));
																								}
																							if (CBOOL(BgL_dayz00_3702))
																								{	/* Llib/date.scm 261 */
																									BgL_arg2755z00_8504 =
																										BgL_dayz00_3702;
																								}
																							else
																								{	/* Llib/date.scm 261 */
																									BgL_arg2755z00_8504 =
																										BINT(BGL_DATE_DAY
																										(BgL_datez00_8499));
																								}
																							if (CBOOL(BgL_monthz00_3705))
																								{	/* Llib/date.scm 262 */
																									BgL_arg2756z00_8505 =
																										BgL_monthz00_3705;
																								}
																							else
																								{	/* Llib/date.scm 262 */
																									BgL_arg2756z00_8505 =
																										BINT(BGL_DATE_MONTH
																										(BgL_datez00_8499));
																								}
																							if (CBOOL(BgL_yearz00_3708))
																								{	/* Llib/date.scm 263 */
																									BgL_arg2760z00_8506 =
																										BgL_yearz00_3708;
																								}
																							else
																								{	/* Llib/date.scm 263 */
																									BgL_arg2760z00_8506 =
																										BINT(BGL_DATE_YEAR
																										(BgL_datez00_8499));
																								}
																							BgL_arg2761z00_8507 =
																								BGL_DATE_TIMEZONE
																								(BgL_datez00_8499);
																							BgL_arg2762z00_8508 =
																								BGL_DATE_ISGMT
																								(BgL_datez00_8499);
																							{	/* Llib/date.scm 256 */
																								int BgL_auxz00_15068;
																								int BgL_auxz00_15059;
																								int BgL_auxz00_15050;
																								int BgL_auxz00_15041;
																								int BgL_auxz00_15032;
																								int BgL_auxz00_15023;
																								BGL_LONGLONG_T BgL_tmpz00_15014;

																								{	/* Llib/date.scm 263 */
																									obj_t BgL_tmpz00_15069;

																									if (INTEGERP
																										(BgL_arg2760z00_8506))
																										{	/* Llib/date.scm 263 */
																											BgL_tmpz00_15069 =
																												BgL_arg2760z00_8506;
																										}
																									else
																										{
																											obj_t BgL_auxz00_15072;

																											BgL_auxz00_15072 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string4971z00zz__datez00,
																												BINT(12342L),
																												BGl_string5008z00zz__datez00,
																												BGl_string4998z00zz__datez00,
																												BgL_arg2760z00_8506);
																											FAILURE(BgL_auxz00_15072,
																												BFALSE, BFALSE);
																										}
																									BgL_auxz00_15068 =
																										CINT(BgL_tmpz00_15069);
																								}
																								{	/* Llib/date.scm 262 */
																									obj_t BgL_tmpz00_15060;

																									if (INTEGERP
																										(BgL_arg2756z00_8505))
																										{	/* Llib/date.scm 262 */
																											BgL_tmpz00_15060 =
																												BgL_arg2756z00_8505;
																										}
																									else
																										{
																											obj_t BgL_auxz00_15063;

																											BgL_auxz00_15063 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string4971z00zz__datez00,
																												BINT(12309L),
																												BGl_string5008z00zz__datez00,
																												BGl_string4998z00zz__datez00,
																												BgL_arg2756z00_8505);
																											FAILURE(BgL_auxz00_15063,
																												BFALSE, BFALSE);
																										}
																									BgL_auxz00_15059 =
																										CINT(BgL_tmpz00_15060);
																								}
																								{	/* Llib/date.scm 261 */
																									obj_t BgL_tmpz00_15051;

																									if (INTEGERP
																										(BgL_arg2755z00_8504))
																										{	/* Llib/date.scm 261 */
																											BgL_tmpz00_15051 =
																												BgL_arg2755z00_8504;
																										}
																									else
																										{
																											obj_t BgL_auxz00_15054;

																											BgL_auxz00_15054 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string4971z00zz__datez00,
																												BINT(12274L),
																												BGl_string5008z00zz__datez00,
																												BGl_string4998z00zz__datez00,
																												BgL_arg2755z00_8504);
																											FAILURE(BgL_auxz00_15054,
																												BFALSE, BFALSE);
																										}
																									BgL_auxz00_15050 =
																										CINT(BgL_tmpz00_15051);
																								}
																								{	/* Llib/date.scm 260 */
																									obj_t BgL_tmpz00_15042;

																									if (INTEGERP
																										(BgL_arg2754z00_8503))
																										{	/* Llib/date.scm 260 */
																											BgL_tmpz00_15042 =
																												BgL_arg2754z00_8503;
																										}
																									else
																										{
																											obj_t BgL_auxz00_15045;

																											BgL_auxz00_15045 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string4971z00zz__datez00,
																												BINT(12243L),
																												BGl_string5008z00zz__datez00,
																												BGl_string4998z00zz__datez00,
																												BgL_arg2754z00_8503);
																											FAILURE(BgL_auxz00_15045,
																												BFALSE, BFALSE);
																										}
																									BgL_auxz00_15041 =
																										CINT(BgL_tmpz00_15042);
																								}
																								{	/* Llib/date.scm 259 */
																									obj_t BgL_tmpz00_15033;

																									if (INTEGERP
																										(BgL_arg2753z00_8502))
																										{	/* Llib/date.scm 259 */
																											BgL_tmpz00_15033 =
																												BgL_arg2753z00_8502;
																										}
																									else
																										{
																											obj_t BgL_auxz00_15036;

																											BgL_auxz00_15036 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string4971z00zz__datez00,
																												BINT(12210L),
																												BGl_string5008z00zz__datez00,
																												BGl_string4998z00zz__datez00,
																												BgL_arg2753z00_8502);
																											FAILURE(BgL_auxz00_15036,
																												BFALSE, BFALSE);
																										}
																									BgL_auxz00_15032 =
																										CINT(BgL_tmpz00_15033);
																								}
																								{	/* Llib/date.scm 258 */
																									obj_t BgL_tmpz00_15024;

																									if (INTEGERP
																										(BgL_arg2752z00_8501))
																										{	/* Llib/date.scm 258 */
																											BgL_tmpz00_15024 =
																												BgL_arg2752z00_8501;
																										}
																									else
																										{
																											obj_t BgL_auxz00_15027;

																											BgL_auxz00_15027 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string4971z00zz__datez00,
																												BINT(12176L),
																												BGl_string5008z00zz__datez00,
																												BGl_string4998z00zz__datez00,
																												BgL_arg2752z00_8501);
																											FAILURE(BgL_auxz00_15027,
																												BFALSE, BFALSE);
																										}
																									BgL_auxz00_15023 =
																										CINT(BgL_tmpz00_15024);
																								}
																								{	/* Llib/date.scm 257 */
																									obj_t BgL_tmpz00_15015;

																									if (LLONGP
																										(BgL_arg2751z00_8500))
																										{	/* Llib/date.scm 257 */
																											BgL_tmpz00_15015 =
																												BgL_arg2751z00_8500;
																										}
																									else
																										{
																											obj_t BgL_auxz00_15018;

																											BgL_auxz00_15018 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string4971z00zz__datez00,
																												BINT(12142L),
																												BGl_string5008z00zz__datez00,
																												BGl_string4999z00zz__datez00,
																												BgL_arg2751z00_8500);
																											FAILURE(BgL_auxz00_15018,
																												BFALSE, BFALSE);
																										}
																									BgL_tmpz00_15014 =
																										BLLONG_TO_LLONG
																										(BgL_tmpz00_15015);
																								}
																								return
																									bgl_update_date
																									(BgL_datez00_8499,
																									BgL_tmpz00_15014,
																									BgL_auxz00_15023,
																									BgL_auxz00_15032,
																									BgL_auxz00_15041,
																									BgL_auxz00_15050,
																									BgL_auxz00_15059,
																									BgL_auxz00_15068,
																									BgL_arg2761z00_8507,
																									BgL_arg2762z00_8508,
																									(int) ((-1L)));
		}}}}}}}}}}}}}}}}}}}}}}

	}



/* 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_arg2751z00_8524;
				obj_t BgL_arg2752z00_8525;
				obj_t BgL_arg2753z00_8526;
				obj_t BgL_arg2754z00_8527;
				obj_t BgL_arg2755z00_8528;
				obj_t BgL_arg2756z00_8529;
				obj_t BgL_arg2760z00_8530;
				long BgL_arg2761z00_8531;
				bool_t BgL_arg2762z00_8532;

				if (CBOOL(BgL_nsecz00_32))
					{	/* Llib/date.scm 257 */
						BgL_arg2751z00_8524 = BgL_nsecz00_32;
					}
				else
					{	/* Llib/date.scm 257 */
						BgL_arg2751z00_8524 =
							make_bllong(BGL_DATE_NANOSECOND(BgL_datez00_27));
					}
				if (CBOOL(BgL_secz00_33))
					{	/* Llib/date.scm 258 */
						BgL_arg2752z00_8525 = BgL_secz00_33;
					}
				else
					{	/* Llib/date.scm 258 */
						BgL_arg2752z00_8525 = BINT(BGL_DATE_SECOND(BgL_datez00_27));
					}
				if (CBOOL(BgL_minz00_30))
					{	/* Llib/date.scm 259 */
						BgL_arg2753z00_8526 = BgL_minz00_30;
					}
				else
					{	/* Llib/date.scm 259 */
						BgL_arg2753z00_8526 = BINT(BGL_DATE_MINUTE(BgL_datez00_27));
					}
				if (CBOOL(BgL_hourz00_29))
					{	/* Llib/date.scm 260 */
						BgL_arg2754z00_8527 = BgL_hourz00_29;
					}
				else
					{	/* Llib/date.scm 260 */
						BgL_arg2754z00_8527 = BINT(BGL_DATE_HOUR(BgL_datez00_27));
					}
				if (CBOOL(BgL_dayz00_28))
					{	/* Llib/date.scm 261 */
						BgL_arg2755z00_8528 = BgL_dayz00_28;
					}
				else
					{	/* Llib/date.scm 261 */
						BgL_arg2755z00_8528 = BINT(BGL_DATE_DAY(BgL_datez00_27));
					}
				if (CBOOL(BgL_monthz00_31))
					{	/* Llib/date.scm 262 */
						BgL_arg2756z00_8529 = BgL_monthz00_31;
					}
				else
					{	/* Llib/date.scm 262 */
						BgL_arg2756z00_8529 = BINT(BGL_DATE_MONTH(BgL_datez00_27));
					}
				if (CBOOL(BgL_yearz00_34))
					{	/* Llib/date.scm 263 */
						BgL_arg2760z00_8530 = BgL_yearz00_34;
					}
				else
					{	/* Llib/date.scm 263 */
						BgL_arg2760z00_8530 = BINT(BGL_DATE_YEAR(BgL_datez00_27));
					}
				BgL_arg2761z00_8531 = BGL_DATE_TIMEZONE(BgL_datez00_27);
				BgL_arg2762z00_8532 = BGL_DATE_ISGMT(BgL_datez00_27);
				return
					bgl_update_date(BgL_datez00_27,
					BLLONG_TO_LLONG(BgL_arg2751z00_8524),
					CINT(BgL_arg2752z00_8525),
					CINT(BgL_arg2753z00_8526),
					CINT(BgL_arg2754z00_8527),
					CINT(BgL_arg2755z00_8528),
					CINT(BgL_arg2756z00_8529),
					CINT(BgL_arg2760z00_8530), BgL_arg2761z00_8531, BgL_arg2762z00_8532,
					(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_10198,
		obj_t BgL_datez00_10199)
	{
		{	/* Llib/date.scm 271 */
			{	/* Llib/date.scm 274 */
				obj_t BgL_auxz00_15119;

				if (BGL_DATEP(BgL_datez00_10199))
					{	/* Llib/date.scm 274 */
						BgL_auxz00_15119 = BgL_datez00_10199;
					}
				else
					{
						obj_t BgL_auxz00_15122;

						BgL_auxz00_15122 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
							BINT(12707L), BGl_string5013z00zz__datez00,
							BGl_string5007z00zz__datez00, BgL_datez00_10199);
						FAILURE(BgL_auxz00_15122, BFALSE, BFALSE);
					}
				return BGl_datezd2ze3gmtdatez12z23zz__datez00(BgL_auxz00_15119);
			}
		}

	}



/* 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_test5833z00_15127;

				if ((BgL_msz00_39 >= 0L))
					{	/* Llib/date.scm 285 */
						BgL_test5833z00_15127 = (BgL_msz00_39 < 1000L);
					}
				else
					{	/* Llib/date.scm 285 */
						BgL_test5833z00_15127 = ((bool_t) 0);
					}
				if (BgL_test5833z00_15127)
					{	/* Llib/date.scm 286 */
						int BgL_osecz00_3735;

						BgL_osecz00_3735 = 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_arg2765z00_3736;

						{	/* Llib/date.scm 289 */
							BGL_LONGLONG_T BgL_arg2766z00_3744;

							BgL_arg2766z00_3744 = LONG_TO_LLONG(BgL_msz00_39);
							BgL_arg2765z00_3736 =
								((16960 +
									((BGL_LONGLONG_T) 65536 * (((BGL_LONGLONG_T) 15)))) *
								BgL_arg2766z00_3744);
						}
						{	/* Llib/date.scm 257 */
							obj_t BgL_arg2752z00_8557;
							obj_t BgL_arg2753z00_8558;
							obj_t BgL_arg2754z00_8559;
							obj_t BgL_arg2755z00_8560;
							obj_t BgL_arg2756z00_8561;
							obj_t BgL_arg2760z00_8562;
							long BgL_arg2761z00_8563;
							bool_t BgL_arg2762z00_8564;

							BgL_arg2752z00_8557 = BINT(BGL_DATE_SECOND(BgL_datez00_38));
							BgL_arg2753z00_8558 = BINT(BGL_DATE_MINUTE(BgL_datez00_38));
							BgL_arg2754z00_8559 = BINT(BGL_DATE_HOUR(BgL_datez00_38));
							BgL_arg2755z00_8560 = BINT(BGL_DATE_DAY(BgL_datez00_38));
							BgL_arg2756z00_8561 = BINT(BGL_DATE_MONTH(BgL_datez00_38));
							BgL_arg2760z00_8562 = BINT(BGL_DATE_YEAR(BgL_datez00_38));
							BgL_arg2761z00_8563 = BGL_DATE_TIMEZONE(BgL_datez00_38);
							BgL_arg2762z00_8564 = BGL_DATE_ISGMT(BgL_datez00_38);
							return
								bgl_update_date(BgL_datez00_38, BgL_arg2765z00_3736,
								CINT(BgL_arg2752z00_8557),
								CINT(BgL_arg2753z00_8558),
								CINT(BgL_arg2754z00_8559),
								CINT(BgL_arg2755z00_8560),
								CINT(BgL_arg2756z00_8561),
								CINT(BgL_arg2760z00_8562), BgL_arg2761z00_8563,
								BgL_arg2762z00_8564, (int) ((-1L)));
		}}}}

	}



/* &date-update-millisecond! */
	obj_t BGl_z62datezd2updatezd2millisecondz12z70zz__datez00(obj_t
		BgL_envz00_10200, obj_t BgL_datez00_10201, obj_t BgL_msz00_10202)
	{
		{	/* Llib/date.scm 282 */
			{	/* Llib/date.scm 285 */
				long BgL_auxz00_15164;
				obj_t BgL_auxz00_15157;

				{	/* Llib/date.scm 285 */
					obj_t BgL_tmpz00_15165;

					if (INTEGERP(BgL_msz00_10202))
						{	/* Llib/date.scm 285 */
							BgL_tmpz00_15165 = BgL_msz00_10202;
						}
					else
						{
							obj_t BgL_auxz00_15168;

							BgL_auxz00_15168 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(13149L), BGl_string5014z00zz__datez00,
								BGl_string4998z00zz__datez00, BgL_msz00_10202);
							FAILURE(BgL_auxz00_15168, BFALSE, BFALSE);
						}
					BgL_auxz00_15164 = (long) CINT(BgL_tmpz00_15165);
				}
				if (BGL_DATEP(BgL_datez00_10201))
					{	/* Llib/date.scm 285 */
						BgL_auxz00_15157 = BgL_datez00_10201;
					}
				else
					{
						obj_t BgL_auxz00_15160;

						BgL_auxz00_15160 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
							BINT(13149L), BGl_string5014z00zz__datez00,
							BGl_string5007z00zz__datez00, BgL_datez00_10201);
						FAILURE(BgL_auxz00_15160, BFALSE, BFALSE);
					}
				return
					BGl_datezd2updatezd2millisecondz12z12zz__datez00(BgL_auxz00_15157,
					BgL_auxz00_15164);
			}
		}

	}



/* 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_test5837z00_15174;

				if ((BgL_secz00_41 >= 0L))
					{	/* Llib/date.scm 299 */
						BgL_test5837z00_15174 = (BgL_secz00_41 < 60L);
					}
				else
					{	/* Llib/date.scm 299 */
						BgL_test5837z00_15174 = ((bool_t) 0);
					}
				if (BgL_test5837z00_15174)
					{	/* Llib/date.scm 300 */
						int BgL_osecz00_3748;

						BgL_osecz00_3748 = BGL_DATE_SECOND(BgL_datez00_40);
						BGL_DATE_UPDATE_SECOND(BgL_datez00_40, BgL_secz00_41);
						{	/* Llib/date.scm 302 */
							long BgL_arg2772z00_3749;

							{	/* Llib/date.scm 302 */
								long BgL_arg2773z00_3750;
								long BgL_arg2774z00_3751;

								BgL_arg2773z00_3750 = BGL_DATE_TIME(BgL_datez00_40);
								BgL_arg2774z00_3751 =
									(BgL_secz00_41 - (long) (BgL_osecz00_3748));
								BgL_arg2772z00_3749 =
									(BgL_arg2773z00_3750 + BgL_arg2774z00_3751);
							}
							BGL_DATE_UPDATE_TIME(BgL_datez00_40, BgL_arg2772z00_3749);
						}
						return BgL_datez00_40;
					}
				else
					{	/* Llib/date.scm 257 */
						obj_t BgL_arg2751z00_8588;
						obj_t BgL_arg2753z00_8590;
						obj_t BgL_arg2754z00_8591;
						obj_t BgL_arg2755z00_8592;
						obj_t BgL_arg2756z00_8593;
						obj_t BgL_arg2760z00_8594;
						long BgL_arg2761z00_8595;
						bool_t BgL_arg2762z00_8596;

						BgL_arg2751z00_8588 =
							make_bllong(BGL_DATE_NANOSECOND(BgL_datez00_40));
						BgL_arg2753z00_8590 = BINT(BGL_DATE_MINUTE(BgL_datez00_40));
						BgL_arg2754z00_8591 = BINT(BGL_DATE_HOUR(BgL_datez00_40));
						BgL_arg2755z00_8592 = BINT(BGL_DATE_DAY(BgL_datez00_40));
						BgL_arg2756z00_8593 = BINT(BGL_DATE_MONTH(BgL_datez00_40));
						BgL_arg2760z00_8594 = BINT(BGL_DATE_YEAR(BgL_datez00_40));
						BgL_arg2761z00_8595 = BGL_DATE_TIMEZONE(BgL_datez00_40);
						BgL_arg2762z00_8596 = BGL_DATE_ISGMT(BgL_datez00_40);
						return
							bgl_update_date(BgL_datez00_40,
							BLLONG_TO_LLONG(BgL_arg2751z00_8588),
							(int) (BgL_secz00_41),
							CINT(BgL_arg2753z00_8590),
							CINT(BgL_arg2754z00_8591),
							CINT(BgL_arg2755z00_8592),
							CINT(BgL_arg2756z00_8593),
							CINT(BgL_arg2760z00_8594), BgL_arg2761z00_8595,
							BgL_arg2762z00_8596, (int) ((-1L)));
		}}}

	}



/* &date-update-second! */
	obj_t BGl_z62datezd2updatezd2secondz12z70zz__datez00(obj_t BgL_envz00_10203,
		obj_t BgL_datez00_10204, obj_t BgL_secz00_10205)
	{
		{	/* Llib/date.scm 296 */
			{	/* Llib/date.scm 299 */
				long BgL_auxz00_15215;
				obj_t BgL_auxz00_15208;

				{	/* Llib/date.scm 299 */
					obj_t BgL_tmpz00_15216;

					if (INTEGERP(BgL_secz00_10205))
						{	/* Llib/date.scm 299 */
							BgL_tmpz00_15216 = BgL_secz00_10205;
						}
					else
						{
							obj_t BgL_auxz00_15219;

							BgL_auxz00_15219 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(13737L), BGl_string5015z00zz__datez00,
								BGl_string4998z00zz__datez00, BgL_secz00_10205);
							FAILURE(BgL_auxz00_15219, BFALSE, BFALSE);
						}
					BgL_auxz00_15215 = (long) CINT(BgL_tmpz00_15216);
				}
				if (BGL_DATEP(BgL_datez00_10204))
					{	/* Llib/date.scm 299 */
						BgL_auxz00_15208 = BgL_datez00_10204;
					}
				else
					{
						obj_t BgL_auxz00_15211;

						BgL_auxz00_15211 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
							BINT(13737L), BGl_string5015z00zz__datez00,
							BGl_string5007z00zz__datez00, BgL_datez00_10204);
						FAILURE(BgL_auxz00_15211, BFALSE, BFALSE);
					}
				return
					BGl_datezd2updatezd2secondz12z12zz__datez00(BgL_auxz00_15208,
					BgL_auxz00_15215);
			}
		}

	}



/* 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_test5841z00_15225;

				if ((BgL_minz00_43 >= 0L))
					{	/* Llib/date.scm 314 */
						BgL_test5841z00_15225 = (BgL_minz00_43 < 60L);
					}
				else
					{	/* Llib/date.scm 314 */
						BgL_test5841z00_15225 = ((bool_t) 0);
					}
				if (BgL_test5841z00_15225)
					{	/* Llib/date.scm 315 */
						int BgL_ominz00_3762;

						BgL_ominz00_3762 = BGL_DATE_MINUTE(BgL_datez00_42);
						BGL_DATE_UPDATE_MINUTE(BgL_datez00_42, BgL_minz00_43);
						{	/* Llib/date.scm 318 */
							long BgL_arg2777z00_3763;

							{	/* Llib/date.scm 318 */
								long BgL_arg2778z00_3764;
								long BgL_arg2779z00_3765;

								BgL_arg2778z00_3764 = BGL_DATE_TIME(BgL_datez00_42);
								BgL_arg2779z00_3765 =
									(60L * (BgL_minz00_43 - (long) (BgL_ominz00_3762)));
								BgL_arg2777z00_3763 =
									(BgL_arg2778z00_3764 + BgL_arg2779z00_3765);
							}
							BGL_DATE_UPDATE_TIME(BgL_datez00_42, BgL_arg2777z00_3763);
						}
						return BgL_datez00_42;
					}
				else
					{	/* Llib/date.scm 257 */
						obj_t BgL_arg2751z00_8621;
						obj_t BgL_arg2752z00_8622;
						obj_t BgL_arg2754z00_8624;
						obj_t BgL_arg2755z00_8625;
						obj_t BgL_arg2756z00_8626;
						obj_t BgL_arg2760z00_8627;
						long BgL_arg2761z00_8628;
						bool_t BgL_arg2762z00_8629;

						BgL_arg2751z00_8621 =
							make_bllong(BGL_DATE_NANOSECOND(BgL_datez00_42));
						BgL_arg2752z00_8622 = BINT(BGL_DATE_SECOND(BgL_datez00_42));
						BgL_arg2754z00_8624 = BINT(BGL_DATE_HOUR(BgL_datez00_42));
						BgL_arg2755z00_8625 = BINT(BGL_DATE_DAY(BgL_datez00_42));
						BgL_arg2756z00_8626 = BINT(BGL_DATE_MONTH(BgL_datez00_42));
						BgL_arg2760z00_8627 = BINT(BGL_DATE_YEAR(BgL_datez00_42));
						BgL_arg2761z00_8628 = BGL_DATE_TIMEZONE(BgL_datez00_42);
						BgL_arg2762z00_8629 = BGL_DATE_ISGMT(BgL_datez00_42);
						return
							bgl_update_date(BgL_datez00_42,
							BLLONG_TO_LLONG(BgL_arg2751z00_8621),
							CINT(BgL_arg2752z00_8622),
							(int) (BgL_minz00_43),
							CINT(BgL_arg2754z00_8624),
							CINT(BgL_arg2755z00_8625),
							CINT(BgL_arg2756z00_8626),
							CINT(BgL_arg2760z00_8627), BgL_arg2761z00_8628,
							BgL_arg2762z00_8629, (int) ((-1L)));
		}}}

	}



/* &date-update-minute! */
	obj_t BGl_z62datezd2updatezd2minutez12z70zz__datez00(obj_t BgL_envz00_10206,
		obj_t BgL_datez00_10207, obj_t BgL_minz00_10208)
	{
		{	/* Llib/date.scm 311 */
			{	/* Llib/date.scm 314 */
				long BgL_auxz00_15267;
				obj_t BgL_auxz00_15260;

				{	/* Llib/date.scm 314 */
					obj_t BgL_tmpz00_15268;

					if (INTEGERP(BgL_minz00_10208))
						{	/* Llib/date.scm 314 */
							BgL_tmpz00_15268 = BgL_minz00_10208;
						}
					else
						{
							obj_t BgL_auxz00_15271;

							BgL_auxz00_15271 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(14322L), BGl_string5016z00zz__datez00,
								BGl_string4998z00zz__datez00, BgL_minz00_10208);
							FAILURE(BgL_auxz00_15271, BFALSE, BFALSE);
						}
					BgL_auxz00_15267 = (long) CINT(BgL_tmpz00_15268);
				}
				if (BGL_DATEP(BgL_datez00_10207))
					{	/* Llib/date.scm 314 */
						BgL_auxz00_15260 = BgL_datez00_10207;
					}
				else
					{
						obj_t BgL_auxz00_15263;

						BgL_auxz00_15263 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
							BINT(14322L), BGl_string5016z00zz__datez00,
							BGl_string5007z00zz__datez00, BgL_datez00_10207);
						FAILURE(BgL_auxz00_15263, BFALSE, BFALSE);
					}
				return
					BGl_datezd2updatezd2minutez12z12zz__datez00(BgL_auxz00_15260,
					BgL_auxz00_15267);
			}
		}

	}



/* 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_10209,
		obj_t BgL_iz00_10210)
	{
		{	/* Llib/date.scm 327 */
			{	/* Llib/date.scm 328 */
				long BgL_tmpz00_15278;

				{	/* Llib/date.scm 328 */
					long BgL_auxz00_15279;

					{	/* Llib/date.scm 328 */
						obj_t BgL_tmpz00_15280;

						if (INTEGERP(BgL_iz00_10210))
							{	/* Llib/date.scm 328 */
								BgL_tmpz00_15280 = BgL_iz00_10210;
							}
						else
							{
								obj_t BgL_auxz00_15283;

								BgL_auxz00_15283 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
									BINT(14879L), BGl_string5017z00zz__datez00,
									BGl_string4998z00zz__datez00, BgL_iz00_10210);
								FAILURE(BgL_auxz00_15283, BFALSE, BFALSE);
							}
						BgL_auxz00_15279 = (long) CINT(BgL_tmpz00_15280);
					}
					BgL_tmpz00_15278 =
						BGl_integerzd2ze3secondz31zz__datez00(BgL_auxz00_15279);
				}
				return make_belong(BgL_tmpz00_15278);
			}
		}

	}



/* 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_10211,
		obj_t BgL_dz00_10212)
	{
		{	/* Llib/date.scm 333 */
			{	/* Llib/date.scm 334 */
				BGL_LONGLONG_T BgL_tmpz00_15291;

				{	/* Llib/date.scm 334 */
					obj_t BgL_auxz00_15292;

					if (BGL_DATEP(BgL_dz00_10212))
						{	/* Llib/date.scm 334 */
							BgL_auxz00_15292 = BgL_dz00_10212;
						}
					else
						{
							obj_t BgL_auxz00_15295;

							BgL_auxz00_15295 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(15173L), BGl_string5018z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10212);
							FAILURE(BgL_auxz00_15295, BFALSE, BFALSE);
						}
					BgL_tmpz00_15291 =
						BGl_datezd2nanosecondzd2zz__datez00(BgL_auxz00_15292);
				}
				return make_bllong(BgL_tmpz00_15291);
			}
		}

	}



/* 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_10213,
		obj_t BgL_dz00_10214)
	{
		{	/* Llib/date.scm 339 */
			{	/* Llib/date.scm 340 */
				long BgL_tmpz00_15302;

				{	/* Llib/date.scm 340 */
					obj_t BgL_auxz00_15303;

					if (BGL_DATEP(BgL_dz00_10214))
						{	/* Llib/date.scm 340 */
							BgL_auxz00_15303 = BgL_dz00_10214;
						}
					else
						{
							obj_t BgL_auxz00_15306;

							BgL_auxz00_15306 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(15463L), BGl_string5019z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10214);
							FAILURE(BgL_auxz00_15306, BFALSE, BFALSE);
						}
					BgL_tmpz00_15302 =
						BGl_datezd2millisecondzd2zz__datez00(BgL_auxz00_15303);
				}
				return BINT(BgL_tmpz00_15302);
			}
		}

	}



/* 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_10215,
		obj_t BgL_dz00_10216)
	{
		{	/* Llib/date.scm 345 */
			{	/* Llib/date.scm 346 */
				int BgL_tmpz00_15313;

				{	/* Llib/date.scm 346 */
					obj_t BgL_auxz00_15314;

					if (BGL_DATEP(BgL_dz00_10216))
						{	/* Llib/date.scm 346 */
							BgL_auxz00_15314 = BgL_dz00_10216;
						}
					else
						{
							obj_t BgL_auxz00_15317;

							BgL_auxz00_15317 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(15749L), BGl_string5020z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10216);
							FAILURE(BgL_auxz00_15317, BFALSE, BFALSE);
						}
					BgL_tmpz00_15313 = BGl_datezd2secondzd2zz__datez00(BgL_auxz00_15314);
				}
				return BINT(BgL_tmpz00_15313);
			}
		}

	}



/* 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_10217,
		obj_t BgL_dz00_10218)
	{
		{	/* Llib/date.scm 351 */
			{	/* Llib/date.scm 352 */
				int BgL_tmpz00_15324;

				{	/* Llib/date.scm 352 */
					obj_t BgL_auxz00_15325;

					if (BGL_DATEP(BgL_dz00_10218))
						{	/* Llib/date.scm 352 */
							BgL_auxz00_15325 = BgL_dz00_10218;
						}
					else
						{
							obj_t BgL_auxz00_15328;

							BgL_auxz00_15328 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(16030L), BGl_string5021z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10218);
							FAILURE(BgL_auxz00_15328, BFALSE, BFALSE);
						}
					BgL_tmpz00_15324 = BGl_datezd2minutezd2zz__datez00(BgL_auxz00_15325);
				}
				return BINT(BgL_tmpz00_15324);
			}
		}

	}



/* 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_10219,
		obj_t BgL_dz00_10220)
	{
		{	/* Llib/date.scm 357 */
			{	/* Llib/date.scm 358 */
				int BgL_tmpz00_15335;

				{	/* Llib/date.scm 358 */
					obj_t BgL_auxz00_15336;

					if (BGL_DATEP(BgL_dz00_10220))
						{	/* Llib/date.scm 358 */
							BgL_auxz00_15336 = BgL_dz00_10220;
						}
					else
						{
							obj_t BgL_auxz00_15339;

							BgL_auxz00_15339 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(16309L), BGl_string5022z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10220);
							FAILURE(BgL_auxz00_15339, BFALSE, BFALSE);
						}
					BgL_tmpz00_15335 = BGl_datezd2hourzd2zz__datez00(BgL_auxz00_15336);
				}
				return BINT(BgL_tmpz00_15335);
			}
		}

	}



/* 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_10221,
		obj_t BgL_dz00_10222)
	{
		{	/* Llib/date.scm 363 */
			{	/* Llib/date.scm 364 */
				int BgL_tmpz00_15346;

				{	/* Llib/date.scm 364 */
					obj_t BgL_auxz00_15347;

					if (BGL_DATEP(BgL_dz00_10222))
						{	/* Llib/date.scm 364 */
							BgL_auxz00_15347 = BgL_dz00_10222;
						}
					else
						{
							obj_t BgL_auxz00_15350;

							BgL_auxz00_15350 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(16585L), BGl_string5023z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10222);
							FAILURE(BgL_auxz00_15350, BFALSE, BFALSE);
						}
					BgL_tmpz00_15346 = BGl_datezd2dayzd2zz__datez00(BgL_auxz00_15347);
				}
				return BINT(BgL_tmpz00_15346);
			}
		}

	}



/* 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_10223,
		obj_t BgL_dz00_10224)
	{
		{	/* Llib/date.scm 369 */
			{	/* Llib/date.scm 370 */
				int BgL_tmpz00_15357;

				{	/* Llib/date.scm 370 */
					obj_t BgL_auxz00_15358;

					if (BGL_DATEP(BgL_dz00_10224))
						{	/* Llib/date.scm 370 */
							BgL_auxz00_15358 = BgL_dz00_10224;
						}
					else
						{
							obj_t BgL_auxz00_15361;

							BgL_auxz00_15361 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(16865L), BGl_string5024z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10224);
							FAILURE(BgL_auxz00_15361, BFALSE, BFALSE);
						}
					BgL_tmpz00_15357 =
						BGl_datezd2weekzd2dayz00zz__datez00(BgL_auxz00_15358);
				}
				return BINT(BgL_tmpz00_15357);
			}
		}

	}



/* 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_10225,
		obj_t BgL_dz00_10226)
	{
		{	/* Llib/date.scm 375 */
			{	/* Llib/date.scm 376 */
				int BgL_tmpz00_15368;

				{	/* Llib/date.scm 376 */
					obj_t BgL_auxz00_15369;

					if (BGL_DATEP(BgL_dz00_10226))
						{	/* Llib/date.scm 376 */
							BgL_auxz00_15369 = BgL_dz00_10226;
						}
					else
						{
							obj_t BgL_auxz00_15372;

							BgL_auxz00_15372 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(17142L), BGl_string5025z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10226);
							FAILURE(BgL_auxz00_15372, BFALSE, BFALSE);
						}
					BgL_tmpz00_15368 = BGl_datezd2wdayzd2zz__datez00(BgL_auxz00_15369);
				}
				return BINT(BgL_tmpz00_15368);
			}
		}

	}



/* 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_10227,
		obj_t BgL_dz00_10228)
	{
		{	/* Llib/date.scm 381 */
			{	/* Llib/date.scm 382 */
				int BgL_tmpz00_15379;

				{	/* Llib/date.scm 382 */
					obj_t BgL_auxz00_15380;

					if (BGL_DATEP(BgL_dz00_10228))
						{	/* Llib/date.scm 382 */
							BgL_auxz00_15380 = BgL_dz00_10228;
						}
					else
						{
							obj_t BgL_auxz00_15383;

							BgL_auxz00_15383 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(17423L), BGl_string5026z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10228);
							FAILURE(BgL_auxz00_15383, BFALSE, BFALSE);
						}
					BgL_tmpz00_15379 =
						BGl_datezd2yearzd2dayz00zz__datez00(BgL_auxz00_15380);
				}
				return BINT(BgL_tmpz00_15379);
			}
		}

	}



/* 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_10229,
		obj_t BgL_dz00_10230)
	{
		{	/* Llib/date.scm 387 */
			{	/* Llib/date.scm 388 */
				int BgL_tmpz00_15390;

				{	/* Llib/date.scm 388 */
					obj_t BgL_auxz00_15391;

					if (BGL_DATEP(BgL_dz00_10230))
						{	/* Llib/date.scm 388 */
							BgL_auxz00_15391 = BgL_dz00_10230;
						}
					else
						{
							obj_t BgL_auxz00_15394;

							BgL_auxz00_15394 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(17700L), BGl_string5027z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10230);
							FAILURE(BgL_auxz00_15394, BFALSE, BFALSE);
						}
					BgL_tmpz00_15390 = BGl_datezd2ydayzd2zz__datez00(BgL_auxz00_15391);
				}
				return BINT(BgL_tmpz00_15390);
			}
		}

	}



/* 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_10231,
		obj_t BgL_dz00_10232)
	{
		{	/* Llib/date.scm 393 */
			{	/* Llib/date.scm 394 */
				int BgL_tmpz00_15401;

				{	/* Llib/date.scm 394 */
					obj_t BgL_auxz00_15402;

					if (BGL_DATEP(BgL_dz00_10232))
						{	/* Llib/date.scm 394 */
							BgL_auxz00_15402 = BgL_dz00_10232;
						}
					else
						{
							obj_t BgL_auxz00_15405;

							BgL_auxz00_15405 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(17978L), BGl_string5028z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10232);
							FAILURE(BgL_auxz00_15405, BFALSE, BFALSE);
						}
					BgL_tmpz00_15401 = BGl_datezd2monthzd2zz__datez00(BgL_auxz00_15402);
				}
				return BINT(BgL_tmpz00_15401);
			}
		}

	}



/* 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_10233,
		obj_t BgL_dz00_10234)
	{
		{	/* Llib/date.scm 399 */
			{	/* Llib/date.scm 400 */
				int BgL_tmpz00_15412;

				{	/* Llib/date.scm 400 */
					obj_t BgL_auxz00_15413;

					if (BGL_DATEP(BgL_dz00_10234))
						{	/* Llib/date.scm 400 */
							BgL_auxz00_15413 = BgL_dz00_10234;
						}
					else
						{
							obj_t BgL_auxz00_15416;

							BgL_auxz00_15416 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(18256L), BGl_string5029z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10234);
							FAILURE(BgL_auxz00_15416, BFALSE, BFALSE);
						}
					BgL_tmpz00_15412 = BGl_datezd2yearzd2zz__datez00(BgL_auxz00_15413);
				}
				return BINT(BgL_tmpz00_15412);
			}
		}

	}



/* 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_10235,
		obj_t BgL_dz00_10236)
	{
		{	/* Llib/date.scm 405 */
			{	/* Llib/date.scm 406 */
				long BgL_tmpz00_15423;

				{	/* Llib/date.scm 406 */
					obj_t BgL_auxz00_15424;

					if (BGL_DATEP(BgL_dz00_10236))
						{	/* Llib/date.scm 406 */
							BgL_auxz00_15424 = BgL_dz00_10236;
						}
					else
						{
							obj_t BgL_auxz00_15427;

							BgL_auxz00_15427 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(18537L), BGl_string5030z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10236);
							FAILURE(BgL_auxz00_15427, BFALSE, BFALSE);
						}
					BgL_tmpz00_15423 =
						BGl_datezd2timeza7onez75zz__datez00(BgL_auxz00_15424);
				}
				return BINT(BgL_tmpz00_15423);
			}
		}

	}



/* 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_arg2784z00_11176;

				BgL_arg2784z00_11176 = BGL_DATE_TIMEZONE(BgL_dz00_58);
				return (3600L * BgL_arg2784z00_11176);
			}
		}

	}



/* &date-zone-offset */
	obj_t BGl_z62datezd2za7onezd2offsetzc5zz__datez00(obj_t BgL_envz00_10237,
		obj_t BgL_dz00_10238)
	{
		{	/* Llib/date.scm 411 */
			{	/* Llib/date.scm 412 */
				long BgL_tmpz00_15435;

				{	/* Llib/date.scm 412 */
					obj_t BgL_auxz00_15436;

					if (BGL_DATEP(BgL_dz00_10238))
						{	/* Llib/date.scm 412 */
							BgL_auxz00_15436 = BgL_dz00_10238;
						}
					else
						{
							obj_t BgL_auxz00_15439;

							BgL_auxz00_15439 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(18835L), BGl_string5031z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10238);
							FAILURE(BgL_auxz00_15439, BFALSE, BFALSE);
						}
					BgL_tmpz00_15435 =
						BGl_datezd2za7onezd2offsetza7zz__datez00(BgL_auxz00_15436);
				}
				return BINT(BgL_tmpz00_15435);
			}
		}

	}



/* 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_10239,
		obj_t BgL_dz00_10240)
	{
		{	/* Llib/date.scm 417 */
			{	/* Llib/date.scm 418 */
				int BgL_tmpz00_15446;

				{	/* Llib/date.scm 418 */
					obj_t BgL_auxz00_15447;

					if (BGL_DATEP(BgL_dz00_10240))
						{	/* Llib/date.scm 418 */
							BgL_auxz00_15447 = BgL_dz00_10240;
						}
					else
						{
							obj_t BgL_auxz00_15450;

							BgL_auxz00_15450 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(19119L), BGl_string5032z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10240);
							FAILURE(BgL_auxz00_15450, BFALSE, BFALSE);
						}
					BgL_tmpz00_15446 =
						BGl_datezd2iszd2dstz00zz__datez00(BgL_auxz00_15447);
				}
				return BINT(BgL_tmpz00_15446);
			}
		}

	}



/* 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_10241)
	{
		{	/* 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_10242)
	{
		{	/* 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_10243)
	{
		{	/* 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_10244)
	{
		{	/* 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_10245)
	{
		{	/* 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_10246,
		obj_t BgL_elongz00_10247)
	{
		{	/* Llib/date.scm 453 */
			{	/* Llib/date.scm 454 */
				long BgL_auxz00_15472;

				{	/* Llib/date.scm 454 */
					obj_t BgL_tmpz00_15473;

					if (ELONGP(BgL_elongz00_10247))
						{	/* Llib/date.scm 454 */
							BgL_tmpz00_15473 = BgL_elongz00_10247;
						}
					else
						{
							obj_t BgL_auxz00_15476;

							BgL_auxz00_15476 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(20874L), BGl_string5033z00zz__datez00,
								BGl_string5034z00zz__datez00, BgL_elongz00_10247);
							FAILURE(BgL_auxz00_15476, BFALSE, BFALSE);
						}
					BgL_auxz00_15472 = BELONG_TO_LONG(BgL_tmpz00_15473);
				}
				return BGl_secondszd2ze3datez31zz__datez00(BgL_auxz00_15472);
			}
		}

	}



/* 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_10248,
		obj_t BgL_elongz00_10249)
	{
		{	/* Llib/date.scm 459 */
			{	/* Llib/date.scm 460 */
				long BgL_auxz00_15483;

				{	/* Llib/date.scm 460 */
					obj_t BgL_tmpz00_15484;

					if (ELONGP(BgL_elongz00_10249))
						{	/* Llib/date.scm 460 */
							BgL_tmpz00_15484 = BgL_elongz00_10249;
						}
					else
						{
							obj_t BgL_auxz00_15487;

							BgL_auxz00_15487 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(21168L), BGl_string5035z00zz__datez00,
								BGl_string5034z00zz__datez00, BgL_elongz00_10249);
							FAILURE(BgL_auxz00_15487, BFALSE, BFALSE);
						}
					BgL_auxz00_15483 = BELONG_TO_LONG(BgL_tmpz00_15484);
				}
				return BGl_secondszd2ze3gmtdatez31zz__datez00(BgL_auxz00_15483);
			}
		}

	}



/* 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_10250,
		obj_t BgL_llongz00_10251)
	{
		{	/* Llib/date.scm 465 */
			{	/* Llib/date.scm 466 */
				BGL_LONGLONG_T BgL_auxz00_15494;

				{	/* Llib/date.scm 466 */
					obj_t BgL_tmpz00_15495;

					if (LLONGP(BgL_llongz00_10251))
						{	/* Llib/date.scm 466 */
							BgL_tmpz00_15495 = BgL_llongz00_10251;
						}
					else
						{
							obj_t BgL_auxz00_15498;

							BgL_auxz00_15498 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(21471L), BGl_string5036z00zz__datez00,
								BGl_string4999z00zz__datez00, BgL_llongz00_10251);
							FAILURE(BgL_auxz00_15498, BFALSE, BFALSE);
						}
					BgL_auxz00_15494 = BLLONG_TO_LLONG(BgL_tmpz00_15495);
				}
				return BGl_millisecondszd2ze3gmtdatez31zz__datez00(BgL_auxz00_15494);
			}
		}

	}



/* 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_10252,
		obj_t BgL_llongz00_10253)
	{
		{	/* Llib/date.scm 471 */
			{	/* Llib/date.scm 472 */
				BGL_LONGLONG_T BgL_auxz00_15505;

				{	/* Llib/date.scm 472 */
					obj_t BgL_tmpz00_15506;

					if (LLONGP(BgL_llongz00_10253))
						{	/* Llib/date.scm 472 */
							BgL_tmpz00_15506 = BgL_llongz00_10253;
						}
					else
						{
							obj_t BgL_auxz00_15509;

							BgL_auxz00_15509 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(21775L), BGl_string5037z00zz__datez00,
								BGl_string4999z00zz__datez00, BgL_llongz00_10253);
							FAILURE(BgL_auxz00_15509, BFALSE, BFALSE);
						}
					BgL_auxz00_15505 = BLLONG_TO_LLONG(BgL_tmpz00_15506);
				}
				return BGl_nanosecondszd2ze3datez31zz__datez00(BgL_auxz00_15505);
			}
		}

	}



/* 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_10254,
		obj_t BgL_llongz00_10255)
	{
		{	/* Llib/date.scm 477 */
			{	/* Llib/date.scm 478 */
				BGL_LONGLONG_T BgL_auxz00_15516;

				{	/* Llib/date.scm 478 */
					obj_t BgL_tmpz00_15517;

					if (LLONGP(BgL_llongz00_10255))
						{	/* Llib/date.scm 478 */
							BgL_tmpz00_15517 = BgL_llongz00_10255;
						}
					else
						{
							obj_t BgL_auxz00_15520;

							BgL_auxz00_15520 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(22075L), BGl_string5038z00zz__datez00,
								BGl_string4999z00zz__datez00, BgL_llongz00_10255);
							FAILURE(BgL_auxz00_15520, BFALSE, BFALSE);
						}
					BgL_auxz00_15516 = BLLONG_TO_LLONG(BgL_tmpz00_15517);
				}
				return BGl_millisecondszd2ze3datez31zz__datez00(BgL_auxz00_15516);
			}
		}

	}



/* 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_10256,
		obj_t BgL_datez00_10257)
	{
		{	/* Llib/date.scm 483 */
			{	/* Llib/date.scm 484 */
				long BgL_tmpz00_15527;

				{	/* Llib/date.scm 484 */
					obj_t BgL_auxz00_15528;

					if (BGL_DATEP(BgL_datez00_10257))
						{	/* Llib/date.scm 484 */
							BgL_auxz00_15528 = BgL_datez00_10257;
						}
					else
						{
							obj_t BgL_auxz00_15531;

							BgL_auxz00_15531 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(22370L), BGl_string5039z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_datez00_10257);
							FAILURE(BgL_auxz00_15531, BFALSE, BFALSE);
						}
					BgL_tmpz00_15527 =
						BGl_datezd2ze3secondsz31zz__datez00(BgL_auxz00_15528);
				}
				return make_belong(BgL_tmpz00_15527);
			}
		}

	}



/* 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_10258,
		obj_t BgL_datez00_10259)
	{
		{	/* Llib/date.scm 489 */
			{	/* Llib/date.scm 490 */
				BGL_LONGLONG_T BgL_tmpz00_15538;

				{	/* Llib/date.scm 490 */
					obj_t BgL_auxz00_15539;

					if (BGL_DATEP(BgL_datez00_10259))
						{	/* Llib/date.scm 490 */
							BgL_auxz00_15539 = BgL_datez00_10259;
						}
					else
						{
							obj_t BgL_auxz00_15542;

							BgL_auxz00_15542 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(22661L), BGl_string5040z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_datez00_10259);
							FAILURE(BgL_auxz00_15542, BFALSE, BFALSE);
						}
					BgL_tmpz00_15538 =
						BGl_datezd2ze3nanosecondsz31zz__datez00(BgL_auxz00_15539);
				}
				return make_bllong(BgL_tmpz00_15538);
			}
		}

	}



/* 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_10260,
		obj_t BgL_datez00_10261)
	{
		{	/* Llib/date.scm 495 */
			{	/* Llib/date.scm 496 */
				BGL_LONGLONG_T BgL_tmpz00_15549;

				{	/* Llib/date.scm 496 */
					obj_t BgL_auxz00_15550;

					if (BGL_DATEP(BgL_datez00_10261))
						{	/* Llib/date.scm 496 */
							BgL_auxz00_15550 = BgL_datez00_10261;
						}
					else
						{
							obj_t BgL_auxz00_15553;

							BgL_auxz00_15553 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(22957L), BGl_string5041z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_datez00_10261);
							FAILURE(BgL_auxz00_15553, BFALSE, BFALSE);
						}
					BgL_tmpz00_15549 =
						BGl_datezd2ze3millisecondsz31zz__datez00(BgL_auxz00_15550);
				}
				return make_bllong(BgL_tmpz00_15549);
			}
		}

	}



/* 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_10262,
		obj_t BgL_datez00_10263)
	{
		{	/* Llib/date.scm 501 */
			{	/* Llib/date.scm 502 */
				obj_t BgL_auxz00_15560;

				if (BGL_DATEP(BgL_datez00_10263))
					{	/* Llib/date.scm 502 */
						BgL_auxz00_15560 = BgL_datez00_10263;
					}
				else
					{
						obj_t BgL_auxz00_15563;

						BgL_auxz00_15563 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
							BINT(23241L), BGl_string5042z00zz__datez00,
							BGl_string5007z00zz__datez00, BgL_datez00_10263);
						FAILURE(BgL_auxz00_15563, BFALSE, BFALSE);
					}
				return BGl_datezd2ze3stringz31zz__datez00(BgL_auxz00_15560);
			}
		}

	}



/* 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 */
					STRING_SET(BgL_bufz00_72, BgL_wz00_73, ((unsigned char) '0'));
					{	/* Llib/date.scm 508 */
						unsigned char BgL_auxz00_15574;
						long BgL_tmpz00_15572;

						BgL_auxz00_15574 = ((48L + (long) (BgL_intz00_74)));
						BgL_tmpz00_15572 = (BgL_wz00_73 + 1L);
						STRING_SET(BgL_bufz00_72, BgL_tmpz00_15572, BgL_auxz00_15574);
				}}
			else
				{	/* Llib/date.scm 514 */
					{	/* Llib/date.scm 519 */
						long BgL_arg2812z00_3781;

						BgL_arg2812z00_3781 = ((long) (BgL_intz00_74) / 10L);
						{	/* Llib/date.scm 508 */
							unsigned char BgL_tmpz00_15581;

							BgL_tmpz00_15581 = ((48L + BgL_arg2812z00_3781));
							STRING_SET(BgL_bufz00_72, BgL_wz00_73, BgL_tmpz00_15581);
					}}
					{	/* Llib/date.scm 520 */
						long BgL_arg2813z00_3782;
						long BgL_arg2817z00_3783;

						BgL_arg2813z00_3782 = (BgL_wz00_73 + 1L);
						BgL_arg2817z00_3783 =
							BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
							(long) (BgL_intz00_74), 10L);
						{	/* Llib/date.scm 508 */
							unsigned char BgL_tmpz00_15588;

							BgL_tmpz00_15588 = ((48L + BgL_arg2817z00_3783));
							STRING_SET(BgL_bufz00_72, BgL_arg2813z00_3782, BgL_tmpz00_15588);
				}}}
			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_tmpz00_15595;

						BgL_tmpz00_15595 = ((48L + (long) (BgL_intz00_77)));
						STRING_SET(BgL_bufz00_75, BgL_wz00_76, BgL_tmpz00_15595);
					}
					return 1L;
				}
			else
				{	/* Llib/date.scm 528 */
					if (((long) (BgL_intz00_77) < 100L))
						{	/* Llib/date.scm 531 */
							{	/* Llib/date.scm 532 */
								long BgL_arg2820z00_3786;

								BgL_arg2820z00_3786 = ((long) (BgL_intz00_77) / 10L);
								{	/* Llib/date.scm 508 */
									unsigned char BgL_tmpz00_15605;

									BgL_tmpz00_15605 = ((48L + BgL_arg2820z00_3786));
									STRING_SET(BgL_bufz00_75, BgL_wz00_76, BgL_tmpz00_15605);
							}}
							{	/* Llib/date.scm 533 */
								long BgL_arg2821z00_3787;
								long BgL_arg2822z00_3788;

								BgL_arg2821z00_3787 = (BgL_wz00_76 + 1L);
								BgL_arg2822z00_3788 =
									BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
									(long) (BgL_intz00_77), 10L);
								{	/* Llib/date.scm 508 */
									unsigned char BgL_tmpz00_15612;

									BgL_tmpz00_15612 = ((48L + BgL_arg2822z00_3788));
									STRING_SET(BgL_bufz00_75, BgL_arg2821z00_3787,
										BgL_tmpz00_15612);
							}}
							return 2L;
						}
					else
						{	/* Llib/date.scm 531 */
							if (((long) (BgL_intz00_77) < 1000L))
								{	/* Llib/date.scm 535 */
									{	/* Llib/date.scm 536 */
										long BgL_arg2824z00_3790;

										BgL_arg2824z00_3790 = ((long) (BgL_intz00_77) / 100L);
										{	/* Llib/date.scm 508 */
											unsigned char BgL_tmpz00_15621;

											BgL_tmpz00_15621 = ((48L + BgL_arg2824z00_3790));
											STRING_SET(BgL_bufz00_75, BgL_wz00_76, BgL_tmpz00_15621);
									}}
									{	/* Llib/date.scm 537 */
										long BgL_rz00_3791;

										BgL_rz00_3791 =
											BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
											(long) (BgL_intz00_77), 100L);
										{	/* Llib/date.scm 538 */
											long BgL_arg2825z00_3792;
											long BgL_arg2826z00_3793;

											BgL_arg2825z00_3792 = (BgL_wz00_76 + 1L);
											BgL_arg2826z00_3793 = (BgL_rz00_3791 / 10L);
											{	/* Llib/date.scm 508 */
												unsigned char BgL_tmpz00_15629;

												BgL_tmpz00_15629 = ((48L + BgL_arg2826z00_3793));
												STRING_SET(BgL_bufz00_75, BgL_arg2825z00_3792,
													BgL_tmpz00_15629);
										}}
										{	/* Llib/date.scm 539 */
											long BgL_arg2827z00_3794;
											long BgL_arg2828z00_3795;

											BgL_arg2827z00_3794 = (BgL_wz00_76 + 2L);
											BgL_arg2828z00_3795 =
												BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00
												(BgL_rz00_3791, 10L);
											{	/* Llib/date.scm 508 */
												unsigned char BgL_tmpz00_15635;

												BgL_tmpz00_15635 = ((48L + BgL_arg2828z00_3795));
												STRING_SET(BgL_bufz00_75, BgL_arg2827z00_3794,
													BgL_tmpz00_15635);
										}}
										return 3L;
									}
								}
							else
								{	/* Llib/date.scm 535 */
									{	/* Llib/date.scm 542 */
										long BgL_arg2829z00_3796;

										BgL_arg2829z00_3796 = ((long) (BgL_intz00_77) / 1000L);
										{	/* Llib/date.scm 508 */
											unsigned char BgL_tmpz00_15641;

											BgL_tmpz00_15641 = ((48L + BgL_arg2829z00_3796));
											STRING_SET(BgL_bufz00_75, BgL_wz00_76, BgL_tmpz00_15641);
									}}
									{	/* Llib/date.scm 543 */
										long BgL_rz00_3797;

										BgL_rz00_3797 =
											BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
											(long) (BgL_intz00_77), 1000L);
										{	/* Llib/date.scm 544 */
											long BgL_arg2830z00_3798;
											long BgL_arg2831z00_3799;

											BgL_arg2830z00_3798 = (BgL_wz00_76 + 1L);
											BgL_arg2831z00_3799 = (BgL_rz00_3797 / 100L);
											{	/* Llib/date.scm 508 */
												unsigned char BgL_tmpz00_15649;

												BgL_tmpz00_15649 = ((48L + BgL_arg2831z00_3799));
												STRING_SET(BgL_bufz00_75, BgL_arg2830z00_3798,
													BgL_tmpz00_15649);
										}}
										{	/* Llib/date.scm 545 */
											long BgL_rz00_3800;

											BgL_rz00_3800 =
												BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
												(long) (BgL_intz00_77), 100L);
											{	/* Llib/date.scm 546 */
												long BgL_arg2832z00_3801;
												long BgL_arg2833z00_3802;

												BgL_arg2832z00_3801 = (BgL_wz00_76 + 2L);
												BgL_arg2833z00_3802 = (BgL_rz00_3800 / 10L);
												{	/* Llib/date.scm 508 */
													unsigned char BgL_tmpz00_15657;

													BgL_tmpz00_15657 = ((48L + BgL_arg2833z00_3802));
													STRING_SET(BgL_bufz00_75, BgL_arg2832z00_3801,
														BgL_tmpz00_15657);
											}}
											{	/* Llib/date.scm 547 */
												long BgL_arg2834z00_3803;
												long BgL_arg2835z00_3804;

												BgL_arg2834z00_3803 = (BgL_wz00_76 + 3L);
												BgL_arg2835z00_3804 =
													BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00
													(BgL_rz00_3800, 10L);
												{	/* Llib/date.scm 508 */
													unsigned char BgL_tmpz00_15663;

													BgL_tmpz00_15663 = ((48L + BgL_arg2835z00_3804));
													STRING_SET(BgL_bufz00_75, BgL_arg2834z00_3803,
														BgL_tmpz00_15663);
											}}
											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_3811;

				{	/* Llib/date.scm 602 */
					long BgL_tza7za7_3807;

					BgL_tza7za7_3807 = BGL_DATE_TIMEZONE(BgL_datez00_81);
					if ((BgL_tza7za7_3807 == 0L))
						{	/* Llib/date.scm 603 */
							BgL_datez00_3811 = BgL_datez00_81;
						BgL_zc3z04anonymousza32839ze3z87_3812:
							{	/* Llib/date.scm 564 */
								obj_t BgL_bufz00_3813;
								long BgL_wz00_3814;

								BgL_bufz00_3813 = make_string(29L, ((unsigned char) ' '));
								BgL_wz00_3814 = 0L;
								{	/* Llib/date.scm 575 */
									long BgL_arg2840z00_3815;

									{	/* Llib/date.scm 575 */
										obj_t BgL_arg2841z00_3816;

										{	/* Llib/date.scm 575 */
											int BgL_arg2844z00_3817;

											BgL_arg2844z00_3817 = BGL_DATE_WDAY(BgL_datez00_3811);
											BgL_arg2841z00_3816 =
												BGl_dayzd2anamezd2zz__datez00(BgL_arg2844z00_3817);
										}
										{	/* Llib/date.scm 575 */
											long BgL_wz00_8775;

											BgL_wz00_8775 = BgL_wz00_3814;
											{	/* Llib/date.scm 554 */
												long BgL_lz00_8776;

												BgL_lz00_8776 = STRING_LENGTH(BgL_arg2841z00_3816);
												blit_string(BgL_arg2841z00_3816, 0L, BgL_bufz00_3813,
													BgL_wz00_8775, BgL_lz00_8776);
												BgL_arg2840z00_3815 = BgL_lz00_8776;
									}}}
									BgL_wz00_3814 = (BgL_wz00_3814 + BgL_arg2840z00_3815);
								}
								STRING_SET(BgL_bufz00_3813, BgL_wz00_3814,
									((unsigned char) ','));
								BgL_wz00_3814 = (BgL_wz00_3814 + 2L);
								{	/* Llib/date.scm 579 */
									long BgL_arg2845z00_3818;

									{	/* Llib/date.scm 579 */
										int BgL_arg2846z00_3819;

										BgL_arg2846z00_3819 = BGL_DATE_DAY(BgL_datez00_3811);
										BgL_arg2845z00_3818 =
											BGl_blitzd2intz12zc0zz__datez00(BgL_bufz00_3813,
											BgL_wz00_3814, BgL_arg2846z00_3819);
									}
									BgL_wz00_3814 = (BgL_wz00_3814 + BgL_arg2845z00_3818);
								}
								BgL_wz00_3814 = (BgL_wz00_3814 + 1L);
								{	/* Llib/date.scm 582 */
									long BgL_arg2847z00_3820;

									{	/* Llib/date.scm 582 */
										obj_t BgL_arg2848z00_3821;

										{	/* Llib/date.scm 582 */
											int BgL_arg2849z00_3822;

											BgL_arg2849z00_3822 = BGL_DATE_MONTH(BgL_datez00_3811);
											BgL_arg2848z00_3821 =
												BGl_monthzd2anamezd2zz__datez00(BgL_arg2849z00_3822);
										}
										{	/* Llib/date.scm 582 */
											long BgL_wz00_8793;

											BgL_wz00_8793 = BgL_wz00_3814;
											{	/* Llib/date.scm 554 */
												long BgL_lz00_8794;

												BgL_lz00_8794 = STRING_LENGTH(BgL_arg2848z00_3821);
												blit_string(BgL_arg2848z00_3821, 0L, BgL_bufz00_3813,
													BgL_wz00_8793, BgL_lz00_8794);
												BgL_arg2847z00_3820 = BgL_lz00_8794;
									}}}
									BgL_wz00_3814 = (BgL_wz00_3814 + BgL_arg2847z00_3820);
								}
								BgL_wz00_3814 = (BgL_wz00_3814 + 1L);
								{	/* Llib/date.scm 585 */
									long BgL_arg2851z00_3823;

									{	/* Llib/date.scm 585 */
										int BgL_arg2853z00_3824;

										BgL_arg2853z00_3824 = BGL_DATE_YEAR(BgL_datez00_3811);
										BgL_arg2851z00_3823 =
											BGl_blitzd2intz12zc0zz__datez00(BgL_bufz00_3813,
											BgL_wz00_3814, BgL_arg2853z00_3824);
									}
									BgL_wz00_3814 = (BgL_wz00_3814 + BgL_arg2851z00_3823);
								}
								BgL_wz00_3814 = (BgL_wz00_3814 + 1L);
								{	/* Llib/date.scm 588 */
									long BgL_arg2856z00_3825;

									{	/* Llib/date.scm 588 */
										int BgL_arg2857z00_3826;

										BgL_arg2857z00_3826 = BGL_DATE_HOUR(BgL_datez00_3811);
										BgL_arg2856z00_3825 =
											BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3813,
											BgL_wz00_3814, BgL_arg2857z00_3826);
									}
									BgL_wz00_3814 = (BgL_wz00_3814 + BgL_arg2856z00_3825);
								}
								STRING_SET(BgL_bufz00_3813, BgL_wz00_3814,
									((unsigned char) ':'));
								BgL_wz00_3814 = (BgL_wz00_3814 + 1L);
								{	/* Llib/date.scm 592 */
									long BgL_arg2858z00_3827;

									{	/* Llib/date.scm 592 */
										int BgL_arg2859z00_3828;

										BgL_arg2859z00_3828 = BGL_DATE_MINUTE(BgL_datez00_3811);
										BgL_arg2858z00_3827 =
											BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3813,
											BgL_wz00_3814, BgL_arg2859z00_3828);
									}
									BgL_wz00_3814 = (BgL_wz00_3814 + BgL_arg2858z00_3827);
								}
								STRING_SET(BgL_bufz00_3813, BgL_wz00_3814,
									((unsigned char) ':'));
								BgL_wz00_3814 = (BgL_wz00_3814 + 1L);
								{	/* Llib/date.scm 596 */
									long BgL_arg2860z00_3829;

									{	/* Llib/date.scm 596 */
										int BgL_arg2861z00_3830;

										BgL_arg2861z00_3830 = BGL_DATE_SECOND(BgL_datez00_3811);
										BgL_arg2860z00_3829 =
											BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3813,
											BgL_wz00_3814, BgL_arg2861z00_3830);
									}
									BgL_wz00_3814 = (BgL_wz00_3814 + BgL_arg2860z00_3829);
								}
								BgL_wz00_3814 = (BgL_wz00_3814 + 1L);
								{	/* Llib/date.scm 599 */
									long BgL_arg2862z00_3831;

									{	/* Llib/date.scm 599 */
										long BgL_wz00_8825;

										BgL_wz00_8825 = BgL_wz00_3814;
										blit_string(BGl_string4934z00zz__datez00, 0L,
											BgL_bufz00_3813, BgL_wz00_8825, 3L);
										BgL_arg2862z00_3831 = 3L;
									}
									BgL_wz00_3814 = (BgL_wz00_3814 + BgL_arg2862z00_3831);
								}
								return bgl_string_shrink(BgL_bufz00_3813, BgL_wz00_3814);
							}
						}
					else
						{
							obj_t BgL_datez00_15709;

							BgL_datez00_15709 =
								bgl_seconds_to_gmtdate(bgl_date_to_seconds(BgL_datez00_81));
							BgL_datez00_3811 = BgL_datez00_15709;
							goto BgL_zc3z04anonymousza32839ze3z87_3812;
						}
				}
			}
		}

	}



/* &date->utc-string */
	obj_t BGl_z62datezd2ze3utczd2stringz81zz__datez00(obj_t BgL_envz00_10264,
		obj_t BgL_datez00_10265)
	{
		{	/* Llib/date.scm 561 */
			{	/* Llib/date.scm 564 */
				obj_t BgL_auxz00_15712;

				if (BGL_DATEP(BgL_datez00_10265))
					{	/* Llib/date.scm 564 */
						BgL_auxz00_15712 = BgL_datez00_10265;
					}
				else
					{
						obj_t BgL_auxz00_15715;

						BgL_auxz00_15715 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
							BINT(25597L), BGl_string5043z00zz__datez00,
							BGl_string5007z00zz__datez00, BgL_datez00_10265);
						FAILURE(BgL_auxz00_15715, BFALSE, BFALSE);
					}
				return BGl_datezd2ze3utczd2stringze3zz__datez00(BgL_auxz00_15712);
			}
		}

	}



/* 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_10266,
		obj_t BgL_secz00_10267)
	{
		{	/* Llib/date.scm 610 */
			{	/* Llib/date.scm 611 */
				long BgL_auxz00_15721;

				{	/* Llib/date.scm 611 */
					obj_t BgL_tmpz00_15722;

					if (ELONGP(BgL_secz00_10267))
						{	/* Llib/date.scm 611 */
							BgL_tmpz00_15722 = BgL_secz00_10267;
						}
					else
						{
							obj_t BgL_auxz00_15725;

							BgL_auxz00_15725 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(27440L), BGl_string5044z00zz__datez00,
								BGl_string5034z00zz__datez00, BgL_secz00_10267);
							FAILURE(BgL_auxz00_15725, BFALSE, BFALSE);
						}
					BgL_auxz00_15721 = BELONG_TO_LONG(BgL_tmpz00_15722);
				}
				return BGl_secondszd2ze3stringz31zz__datez00(BgL_auxz00_15721);
			}
		}

	}



/* 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_10268,
		obj_t BgL_secz00_10269)
	{
		{	/* Llib/date.scm 616 */
			{	/* Llib/date.scm 617 */
				long BgL_auxz00_15732;

				{	/* Llib/date.scm 617 */
					obj_t BgL_tmpz00_15733;

					if (ELONGP(BgL_secz00_10269))
						{	/* Llib/date.scm 617 */
							BgL_tmpz00_15733 = BgL_secz00_10269;
						}
					else
						{
							obj_t BgL_auxz00_15736;

							BgL_auxz00_15736 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(27738L), BGl_string5045z00zz__datez00,
								BGl_string5034z00zz__datez00, BgL_secz00_10269);
							FAILURE(BgL_auxz00_15736, BFALSE, BFALSE);
						}
					BgL_auxz00_15732 = BELONG_TO_LONG(BgL_tmpz00_15733);
				}
				return BGl_secondszd2ze3utczd2stringze3zz__datez00(BgL_auxz00_15732);
			}
		}

	}



/* 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_10270)
	{
		{	/* 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 630 */
					return
						BGl_errorz00zz__errorz00(BGl_symbol5046z00zz__datez00,
						BGl_string5048z00zz__datez00, BINT(BgL_dayz00_84));
				}
			else
				{	/* Llib/date.scm 630 */
					if (((long) (BgL_dayz00_84) > 7L))
						{	/* Llib/date.scm 633 */
							long BgL_arg2865z00_3835;

							{	/* Llib/date.scm 633 */
								long BgL_arg2866z00_3836;

								{	/* Llib/date.scm 633 */
									long BgL_n1z00_8842;
									long BgL_n2z00_8843;

									BgL_n1z00_8842 = (long) (BgL_dayz00_84);
									BgL_n2z00_8843 = 7L;
									{	/* Llib/date.scm 633 */
										bool_t BgL_test5880z00_15753;

										{	/* Llib/date.scm 633 */
											long BgL_arg4466z00_8845;

											BgL_arg4466z00_8845 =
												(((BgL_n1z00_8842) | (BgL_n2z00_8843)) & -2147483648);
											BgL_test5880z00_15753 = (BgL_arg4466z00_8845 == 0L);
										}
										if (BgL_test5880z00_15753)
											{	/* Llib/date.scm 633 */
												int32_t BgL_arg4463z00_8846;

												{	/* Llib/date.scm 633 */
													int32_t BgL_arg4464z00_8847;
													int32_t BgL_arg4465z00_8848;

													BgL_arg4464z00_8847 = (int32_t) (BgL_n1z00_8842);
													BgL_arg4465z00_8848 = (int32_t) (BgL_n2z00_8843);
													BgL_arg4463z00_8846 =
														(BgL_arg4464z00_8847 % BgL_arg4465z00_8848);
												}
												{	/* Llib/date.scm 633 */
													long BgL_arg4564z00_8853;

													BgL_arg4564z00_8853 = (long) (BgL_arg4463z00_8846);
													BgL_arg2866z00_3836 = (long) (BgL_arg4564z00_8853);
											}}
										else
											{	/* Llib/date.scm 633 */
												BgL_arg2866z00_3836 = (BgL_n1z00_8842 % BgL_n2z00_8843);
											}
									}
								}
								BgL_arg2865z00_3835 = (1L + BgL_arg2866z00_3836);
							}
							BGL_TAIL return bgl_day_name((int) (BgL_arg2865z00_3835));
						}
					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_10271,
		obj_t BgL_dayz00_10272)
	{
		{	/* Llib/date.scm 628 */
			{	/* Llib/date.scm 630 */
				int BgL_auxz00_15766;

				{	/* Llib/date.scm 630 */
					obj_t BgL_tmpz00_15767;

					if (INTEGERP(BgL_dayz00_10272))
						{	/* Llib/date.scm 630 */
							BgL_tmpz00_15767 = BgL_dayz00_10272;
						}
					else
						{
							obj_t BgL_auxz00_15770;

							BgL_auxz00_15770 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(28298L), BGl_string5049z00zz__datez00,
								BGl_string4998z00zz__datez00, BgL_dayz00_10272);
							FAILURE(BgL_auxz00_15770, BFALSE, BFALSE);
						}
					BgL_auxz00_15766 = CINT(BgL_tmpz00_15767);
				}
				return BGl_dayzd2namezd2zz__datez00(BgL_auxz00_15766);
			}
		}

	}



/* 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 642 */
					return
						BGl_errorz00zz__errorz00(BGl_symbol5050z00zz__datez00,
						BGl_string5048z00zz__datez00, BINT(BgL_dayz00_85));
				}
			else
				{	/* Llib/date.scm 642 */
					if (((long) (BgL_dayz00_85) > 7L))
						{	/* Llib/date.scm 645 */
							long BgL_arg2869z00_3839;

							{	/* Llib/date.scm 645 */
								long BgL_arg2870z00_3840;

								{	/* Llib/date.scm 645 */
									long BgL_n1z00_8858;
									long BgL_n2z00_8859;

									BgL_n1z00_8858 = (long) (BgL_dayz00_85);
									BgL_n2z00_8859 = 7L;
									{	/* Llib/date.scm 645 */
										bool_t BgL_test5884z00_15785;

										{	/* Llib/date.scm 645 */
											long BgL_arg4466z00_8861;

											BgL_arg4466z00_8861 =
												(((BgL_n1z00_8858) | (BgL_n2z00_8859)) & -2147483648);
											BgL_test5884z00_15785 = (BgL_arg4466z00_8861 == 0L);
										}
										if (BgL_test5884z00_15785)
											{	/* Llib/date.scm 645 */
												int32_t BgL_arg4463z00_8862;

												{	/* Llib/date.scm 645 */
													int32_t BgL_arg4464z00_8863;
													int32_t BgL_arg4465z00_8864;

													BgL_arg4464z00_8863 = (int32_t) (BgL_n1z00_8858);
													BgL_arg4465z00_8864 = (int32_t) (BgL_n2z00_8859);
													BgL_arg4463z00_8862 =
														(BgL_arg4464z00_8863 % BgL_arg4465z00_8864);
												}
												{	/* Llib/date.scm 645 */
													long BgL_arg4564z00_8869;

													BgL_arg4564z00_8869 = (long) (BgL_arg4463z00_8862);
													BgL_arg2870z00_3840 = (long) (BgL_arg4564z00_8869);
											}}
										else
											{	/* Llib/date.scm 645 */
												BgL_arg2870z00_3840 = (BgL_n1z00_8858 % BgL_n2z00_8859);
											}
									}
								}
								BgL_arg2869z00_3839 = (1L + BgL_arg2870z00_3840);
							}
							BGL_TAIL return bgl_day_aname((int) (BgL_arg2869z00_3839));
						}
					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_10273,
		obj_t BgL_dayz00_10274)
	{
		{	/* Llib/date.scm 640 */
			{	/* Llib/date.scm 642 */
				int BgL_auxz00_15798;

				{	/* Llib/date.scm 642 */
					obj_t BgL_tmpz00_15799;

					if (INTEGERP(BgL_dayz00_10274))
						{	/* Llib/date.scm 642 */
							BgL_tmpz00_15799 = BgL_dayz00_10274;
						}
					else
						{
							obj_t BgL_auxz00_15802;

							BgL_auxz00_15802 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(28739L), BGl_string5052z00zz__datez00,
								BGl_string4998z00zz__datez00, BgL_dayz00_10274);
							FAILURE(BgL_auxz00_15802, BFALSE, BFALSE);
						}
					BgL_auxz00_15798 = CINT(BgL_tmpz00_15799);
				}
				return BGl_dayzd2anamezd2zz__datez00(BgL_auxz00_15798);
			}
		}

	}



/* 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 654 */
					return
						BGl_errorz00zz__errorz00(BGl_symbol5053z00zz__datez00,
						BGl_string5055z00zz__datez00, BINT(BgL_monthz00_86));
				}
			else
				{	/* Llib/date.scm 654 */
					if (((long) (BgL_monthz00_86) > 12L))
						{	/* Llib/date.scm 657 */
							long BgL_arg2873z00_3843;

							{	/* Llib/date.scm 657 */
								long BgL_arg2877z00_3844;

								{	/* Llib/date.scm 657 */
									long BgL_n1z00_8874;
									long BgL_n2z00_8875;

									BgL_n1z00_8874 = (long) (BgL_monthz00_86);
									BgL_n2z00_8875 = 12L;
									{	/* Llib/date.scm 657 */
										bool_t BgL_test5888z00_15817;

										{	/* Llib/date.scm 657 */
											long BgL_arg4466z00_8877;

											BgL_arg4466z00_8877 =
												(((BgL_n1z00_8874) | (BgL_n2z00_8875)) & -2147483648);
											BgL_test5888z00_15817 = (BgL_arg4466z00_8877 == 0L);
										}
										if (BgL_test5888z00_15817)
											{	/* Llib/date.scm 657 */
												int32_t BgL_arg4463z00_8878;

												{	/* Llib/date.scm 657 */
													int32_t BgL_arg4464z00_8879;
													int32_t BgL_arg4465z00_8880;

													BgL_arg4464z00_8879 = (int32_t) (BgL_n1z00_8874);
													BgL_arg4465z00_8880 = (int32_t) (BgL_n2z00_8875);
													BgL_arg4463z00_8878 =
														(BgL_arg4464z00_8879 % BgL_arg4465z00_8880);
												}
												{	/* Llib/date.scm 657 */
													long BgL_arg4564z00_8885;

													BgL_arg4564z00_8885 = (long) (BgL_arg4463z00_8878);
													BgL_arg2877z00_3844 = (long) (BgL_arg4564z00_8885);
											}}
										else
											{	/* Llib/date.scm 657 */
												BgL_arg2877z00_3844 = (BgL_n1z00_8874 % BgL_n2z00_8875);
											}
									}
								}
								BgL_arg2873z00_3843 = (1L + BgL_arg2877z00_3844);
							}
							BGL_TAIL return bgl_month_name((int) (BgL_arg2873z00_3843));
						}
					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_10275,
		obj_t BgL_monthz00_10276)
	{
		{	/* Llib/date.scm 652 */
			{	/* Llib/date.scm 654 */
				int BgL_auxz00_15830;

				{	/* Llib/date.scm 654 */
					obj_t BgL_tmpz00_15831;

					if (INTEGERP(BgL_monthz00_10276))
						{	/* Llib/date.scm 654 */
							BgL_tmpz00_15831 = BgL_monthz00_10276;
						}
					else
						{
							obj_t BgL_auxz00_15834;

							BgL_auxz00_15834 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(29186L), BGl_string5056z00zz__datez00,
								BGl_string4998z00zz__datez00, BgL_monthz00_10276);
							FAILURE(BgL_auxz00_15834, BFALSE, BFALSE);
						}
					BgL_auxz00_15830 = CINT(BgL_tmpz00_15831);
				}
				return BGl_monthzd2namezd2zz__datez00(BgL_auxz00_15830);
			}
		}

	}



/* 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 666 */
					return
						BGl_errorz00zz__errorz00(BGl_symbol5053z00zz__datez00,
						BGl_string5055z00zz__datez00, BINT(BgL_monthz00_87));
				}
			else
				{	/* Llib/date.scm 666 */
					if (((long) (BgL_monthz00_87) > 12L))
						{	/* Llib/date.scm 669 */
							long BgL_arg2880z00_3847;

							{	/* Llib/date.scm 669 */
								long BgL_arg2881z00_3848;

								{	/* Llib/date.scm 669 */
									long BgL_n1z00_8890;
									long BgL_n2z00_8891;

									BgL_n1z00_8890 = (long) (BgL_monthz00_87);
									BgL_n2z00_8891 = 12L;
									{	/* Llib/date.scm 669 */
										bool_t BgL_test5892z00_15849;

										{	/* Llib/date.scm 669 */
											long BgL_arg4466z00_8893;

											BgL_arg4466z00_8893 =
												(((BgL_n1z00_8890) | (BgL_n2z00_8891)) & -2147483648);
											BgL_test5892z00_15849 = (BgL_arg4466z00_8893 == 0L);
										}
										if (BgL_test5892z00_15849)
											{	/* Llib/date.scm 669 */
												int32_t BgL_arg4463z00_8894;

												{	/* Llib/date.scm 669 */
													int32_t BgL_arg4464z00_8895;
													int32_t BgL_arg4465z00_8896;

													BgL_arg4464z00_8895 = (int32_t) (BgL_n1z00_8890);
													BgL_arg4465z00_8896 = (int32_t) (BgL_n2z00_8891);
													BgL_arg4463z00_8894 =
														(BgL_arg4464z00_8895 % BgL_arg4465z00_8896);
												}
												{	/* Llib/date.scm 669 */
													long BgL_arg4564z00_8901;

													BgL_arg4564z00_8901 = (long) (BgL_arg4463z00_8894);
													BgL_arg2881z00_3848 = (long) (BgL_arg4564z00_8901);
											}}
										else
											{	/* Llib/date.scm 669 */
												BgL_arg2881z00_3848 = (BgL_n1z00_8890 % BgL_n2z00_8891);
											}
									}
								}
								BgL_arg2880z00_3847 = (1L + BgL_arg2881z00_3848);
							}
							BGL_TAIL return bgl_month_aname((int) (BgL_arg2880z00_3847));
						}
					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_10277,
		obj_t BgL_monthz00_10278)
	{
		{	/* Llib/date.scm 664 */
			{	/* Llib/date.scm 666 */
				int BgL_auxz00_15862;

				{	/* Llib/date.scm 666 */
					obj_t BgL_tmpz00_15863;

					if (INTEGERP(BgL_monthz00_10278))
						{	/* Llib/date.scm 666 */
							BgL_tmpz00_15863 = BgL_monthz00_10278;
						}
					else
						{
							obj_t BgL_auxz00_15866;

							BgL_auxz00_15866 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(29652L), BGl_string5057z00zz__datez00,
								BGl_string4998z00zz__datez00, BgL_monthz00_10278);
							FAILURE(BgL_auxz00_15866, BFALSE, BFALSE);
						}
					BgL_auxz00_15862 = CINT(BgL_tmpz00_15863);
				}
				return BGl_monthzd2anamezd2zz__datez00(BgL_auxz00_15862);
			}
		}

	}



/* 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_3849;

				BgL_mz00_3849 = BGL_DATE_MONTH(BgL_dz00_88);
				if (((long) (BgL_mz00_3849) == 2L))
					{	/* Llib/date.scm 684 */
						bool_t BgL_test5895z00_15876;

						{	/* Llib/date.scm 684 */
							int BgL_arg2899z00_3853;

							BgL_arg2899z00_3853 = BGL_DATE_YEAR(BgL_dz00_88);
							{	/* Llib/date.scm 684 */
								bool_t BgL_res4630z00_8956;

								{	/* Llib/date.scm 691 */
									bool_t BgL_test5896z00_15878;

									{	/* Llib/date.scm 691 */
										long BgL_arg2916z00_8909;

										{	/* Llib/date.scm 691 */
											long BgL_n1z00_8914;
											long BgL_n2z00_8915;

											BgL_n1z00_8914 = (long) (BgL_arg2899z00_3853);
											BgL_n2z00_8915 = 4L;
											{	/* Llib/date.scm 691 */
												bool_t BgL_test5897z00_15880;

												{	/* Llib/date.scm 691 */
													long BgL_arg4466z00_8917;

													BgL_arg4466z00_8917 =
														(((BgL_n1z00_8914) | (BgL_n2z00_8915)) &
														-2147483648);
													BgL_test5897z00_15880 = (BgL_arg4466z00_8917 == 0L);
												}
												if (BgL_test5897z00_15880)
													{	/* Llib/date.scm 691 */
														int32_t BgL_arg4463z00_8918;

														{	/* Llib/date.scm 691 */
															int32_t BgL_arg4464z00_8919;
															int32_t BgL_arg4465z00_8920;

															BgL_arg4464z00_8919 = (int32_t) (BgL_n1z00_8914);
															BgL_arg4465z00_8920 = (int32_t) (BgL_n2z00_8915);
															BgL_arg4463z00_8918 =
																(BgL_arg4464z00_8919 % BgL_arg4465z00_8920);
														}
														{	/* Llib/date.scm 691 */
															long BgL_arg4564z00_8925;

															BgL_arg4564z00_8925 =
																(long) (BgL_arg4463z00_8918);
															BgL_arg2916z00_8909 =
																(long) (BgL_arg4564z00_8925);
													}}
												else
													{	/* Llib/date.scm 691 */
														BgL_arg2916z00_8909 =
															(BgL_n1z00_8914 % BgL_n2z00_8915);
													}
											}
										}
										BgL_test5896z00_15878 = (BgL_arg2916z00_8909 == 0L);
									}
									if (BgL_test5896z00_15878)
										{	/* Llib/date.scm 692 */
											bool_t BgL__ortest_1058z00_8910;

											{	/* Llib/date.scm 692 */
												bool_t BgL_test5898z00_15890;

												{	/* Llib/date.scm 692 */
													long BgL_arg2915z00_8912;

													{	/* Llib/date.scm 692 */
														long BgL_n1z00_8928;
														long BgL_n2z00_8929;

														BgL_n1z00_8928 = (long) (BgL_arg2899z00_3853);
														BgL_n2z00_8929 = 100L;
														{	/* Llib/date.scm 692 */
															bool_t BgL_test5899z00_15892;

															{	/* Llib/date.scm 692 */
																long BgL_arg4466z00_8931;

																BgL_arg4466z00_8931 =
																	(((BgL_n1z00_8928) | (BgL_n2z00_8929)) &
																	-2147483648);
																BgL_test5899z00_15892 =
																	(BgL_arg4466z00_8931 == 0L);
															}
															if (BgL_test5899z00_15892)
																{	/* Llib/date.scm 692 */
																	int32_t BgL_arg4463z00_8932;

																	{	/* Llib/date.scm 692 */
																		int32_t BgL_arg4464z00_8933;
																		int32_t BgL_arg4465z00_8934;

																		BgL_arg4464z00_8933 =
																			(int32_t) (BgL_n1z00_8928);
																		BgL_arg4465z00_8934 =
																			(int32_t) (BgL_n2z00_8929);
																		BgL_arg4463z00_8932 =
																			(BgL_arg4464z00_8933 %
																			BgL_arg4465z00_8934);
																	}
																	{	/* Llib/date.scm 692 */
																		long BgL_arg4564z00_8939;

																		BgL_arg4564z00_8939 =
																			(long) (BgL_arg4463z00_8932);
																		BgL_arg2915z00_8912 =
																			(long) (BgL_arg4564z00_8939);
																}}
															else
																{	/* Llib/date.scm 692 */
																	BgL_arg2915z00_8912 =
																		(BgL_n1z00_8928 % BgL_n2z00_8929);
																}
														}
													}
													BgL_test5898z00_15890 = (BgL_arg2915z00_8912 == 0L);
												}
												if (BgL_test5898z00_15890)
													{	/* Llib/date.scm 692 */
														BgL__ortest_1058z00_8910 = ((bool_t) 0);
													}
												else
													{	/* Llib/date.scm 692 */
														BgL__ortest_1058z00_8910 = ((bool_t) 1);
													}
											}
											if (BgL__ortest_1058z00_8910)
												{	/* Llib/date.scm 692 */
													BgL_res4630z00_8956 = BgL__ortest_1058z00_8910;
												}
											else
												{	/* Llib/date.scm 693 */
													long BgL_arg2910z00_8913;

													{	/* Llib/date.scm 693 */
														long BgL_n1z00_8942;
														long BgL_n2z00_8943;

														BgL_n1z00_8942 = (long) (BgL_arg2899z00_3853);
														BgL_n2z00_8943 = 400L;
														{	/* Llib/date.scm 693 */
															bool_t BgL_test5901z00_15904;

															{	/* Llib/date.scm 693 */
																long BgL_arg4466z00_8945;

																BgL_arg4466z00_8945 =
																	(((BgL_n1z00_8942) | (BgL_n2z00_8943)) &
																	-2147483648);
																BgL_test5901z00_15904 =
																	(BgL_arg4466z00_8945 == 0L);
															}
															if (BgL_test5901z00_15904)
																{	/* Llib/date.scm 693 */
																	int32_t BgL_arg4463z00_8946;

																	{	/* Llib/date.scm 693 */
																		int32_t BgL_arg4464z00_8947;
																		int32_t BgL_arg4465z00_8948;

																		BgL_arg4464z00_8947 =
																			(int32_t) (BgL_n1z00_8942);
																		BgL_arg4465z00_8948 =
																			(int32_t) (BgL_n2z00_8943);
																		BgL_arg4463z00_8946 =
																			(BgL_arg4464z00_8947 %
																			BgL_arg4465z00_8948);
																	}
																	{	/* Llib/date.scm 693 */
																		long BgL_arg4564z00_8953;

																		BgL_arg4564z00_8953 =
																			(long) (BgL_arg4463z00_8946);
																		BgL_arg2910z00_8913 =
																			(long) (BgL_arg4564z00_8953);
																}}
															else
																{	/* Llib/date.scm 693 */
																	BgL_arg2910z00_8913 =
																		(BgL_n1z00_8942 % BgL_n2z00_8943);
																}
														}
													}
													BgL_res4630z00_8956 = (BgL_arg2910z00_8913 == 0L);
												}
										}
									else
										{	/* Llib/date.scm 691 */
											BgL_res4630z00_8956 = ((bool_t) 0);
										}
								}
								BgL_test5895z00_15876 = BgL_res4630z00_8956;
							}
						}
						if (BgL_test5895z00_15876)
							{	/* Llib/date.scm 684 */
								return (int) (29L);
							}
						else
							{	/* Llib/date.scm 684 */
								return (int) (28L);
					}}
				else
					{	/* Llib/date.scm 685 */
						long BgL_arg2909z00_3854;

						BgL_arg2909z00_3854 = ((long) (BgL_mz00_3849) - 1L);
						{	/* Llib/date.scm 685 */
							obj_t BgL_vectorz00_8958;

							BgL_vectorz00_8958 = BGl_za2monthzd2lengthsza2zd2zz__datez00;
							return CINT(VECTOR_REF(BgL_vectorz00_8958, BgL_arg2909z00_3854));
						}
					}
			}
		}

	}



/* &date-month-length */
	obj_t BGl_z62datezd2monthzd2lengthz62zz__datez00(obj_t BgL_envz00_10279,
		obj_t BgL_dz00_10280)
	{
		{	/* Llib/date.scm 681 */
			{	/* Llib/date.scm 682 */
				int BgL_tmpz00_15920;

				{	/* Llib/date.scm 682 */
					obj_t BgL_auxz00_15921;

					if (BGL_DATEP(BgL_dz00_10280))
						{	/* Llib/date.scm 682 */
							BgL_auxz00_15921 = BgL_dz00_10280;
						}
					else
						{
							obj_t BgL_auxz00_15924;

							BgL_auxz00_15924 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
								BINT(30398L), BGl_string5058z00zz__datez00,
								BGl_string5007z00zz__datez00, BgL_dz00_10280);
							FAILURE(BgL_auxz00_15924, BFALSE, BFALSE);
						}
					BgL_tmpz00_15920 =
						BGl_datezd2monthzd2lengthz00zz__datez00(BgL_auxz00_15921);
				}
				return BINT(BgL_tmpz00_15920);
			}
		}

	}



/* 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_test5903z00_15930;

				{	/* Llib/date.scm 691 */
					long BgL_arg2916z00_11177;

					{	/* Llib/date.scm 691 */
						long BgL_n1z00_11178;
						long BgL_n2z00_11179;

						BgL_n1z00_11178 = (long) (BgL_yearz00_89);
						BgL_n2z00_11179 = 4L;
						{	/* Llib/date.scm 691 */
							bool_t BgL_test5904z00_15932;

							{	/* Llib/date.scm 691 */
								long BgL_arg4466z00_11180;

								BgL_arg4466z00_11180 =
									(((BgL_n1z00_11178) | (BgL_n2z00_11179)) & -2147483648);
								BgL_test5904z00_15932 = (BgL_arg4466z00_11180 == 0L);
							}
							if (BgL_test5904z00_15932)
								{	/* Llib/date.scm 691 */
									int32_t BgL_arg4463z00_11181;

									{	/* Llib/date.scm 691 */
										int32_t BgL_arg4464z00_11182;
										int32_t BgL_arg4465z00_11183;

										BgL_arg4464z00_11182 = (int32_t) (BgL_n1z00_11178);
										BgL_arg4465z00_11183 = (int32_t) (BgL_n2z00_11179);
										BgL_arg4463z00_11181 =
											(BgL_arg4464z00_11182 % BgL_arg4465z00_11183);
									}
									{	/* Llib/date.scm 691 */
										long BgL_arg4564z00_11184;

										BgL_arg4564z00_11184 = (long) (BgL_arg4463z00_11181);
										BgL_arg2916z00_11177 = (long) (BgL_arg4564z00_11184);
								}}
							else
								{	/* Llib/date.scm 691 */
									BgL_arg2916z00_11177 = (BgL_n1z00_11178 % BgL_n2z00_11179);
								}
						}
					}
					BgL_test5903z00_15930 = (BgL_arg2916z00_11177 == 0L);
				}
				if (BgL_test5903z00_15930)
					{	/* Llib/date.scm 692 */
						bool_t BgL__ortest_1058z00_11185;

						{	/* Llib/date.scm 692 */
							bool_t BgL_test5905z00_15942;

							{	/* Llib/date.scm 692 */
								long BgL_arg2915z00_11186;

								{	/* Llib/date.scm 692 */
									long BgL_n1z00_11187;
									long BgL_n2z00_11188;

									BgL_n1z00_11187 = (long) (BgL_yearz00_89);
									BgL_n2z00_11188 = 100L;
									{	/* Llib/date.scm 692 */
										bool_t BgL_test5906z00_15944;

										{	/* Llib/date.scm 692 */
											long BgL_arg4466z00_11189;

											BgL_arg4466z00_11189 =
												(((BgL_n1z00_11187) | (BgL_n2z00_11188)) & -2147483648);
											BgL_test5906z00_15944 = (BgL_arg4466z00_11189 == 0L);
										}
										if (BgL_test5906z00_15944)
											{	/* Llib/date.scm 692 */
												int32_t BgL_arg4463z00_11190;

												{	/* Llib/date.scm 692 */
													int32_t BgL_arg4464z00_11191;
													int32_t BgL_arg4465z00_11192;

													BgL_arg4464z00_11191 = (int32_t) (BgL_n1z00_11187);
													BgL_arg4465z00_11192 = (int32_t) (BgL_n2z00_11188);
													BgL_arg4463z00_11190 =
														(BgL_arg4464z00_11191 % BgL_arg4465z00_11192);
												}
												{	/* Llib/date.scm 692 */
													long BgL_arg4564z00_11193;

													BgL_arg4564z00_11193 = (long) (BgL_arg4463z00_11190);
													BgL_arg2915z00_11186 = (long) (BgL_arg4564z00_11193);
											}}
										else
											{	/* Llib/date.scm 692 */
												BgL_arg2915z00_11186 =
													(BgL_n1z00_11187 % BgL_n2z00_11188);
											}
									}
								}
								BgL_test5905z00_15942 = (BgL_arg2915z00_11186 == 0L);
							}
							if (BgL_test5905z00_15942)
								{	/* Llib/date.scm 692 */
									BgL__ortest_1058z00_11185 = ((bool_t) 0);
								}
							else
								{	/* Llib/date.scm 692 */
									BgL__ortest_1058z00_11185 = ((bool_t) 1);
								}
						}
						if (BgL__ortest_1058z00_11185)
							{	/* Llib/date.scm 692 */
								return BgL__ortest_1058z00_11185;
							}
						else
							{	/* Llib/date.scm 693 */
								long BgL_arg2910z00_11194;

								{	/* Llib/date.scm 693 */
									long BgL_n1z00_11195;
									long BgL_n2z00_11196;

									BgL_n1z00_11195 = (long) (BgL_yearz00_89);
									BgL_n2z00_11196 = 400L;
									{	/* Llib/date.scm 693 */
										bool_t BgL_test5908z00_15956;

										{	/* Llib/date.scm 693 */
											long BgL_arg4466z00_11197;

											BgL_arg4466z00_11197 =
												(((BgL_n1z00_11195) | (BgL_n2z00_11196)) & -2147483648);
											BgL_test5908z00_15956 = (BgL_arg4466z00_11197 == 0L);
										}
										if (BgL_test5908z00_15956)
											{	/* Llib/date.scm 693 */
												int32_t BgL_arg4463z00_11198;

												{	/* Llib/date.scm 693 */
													int32_t BgL_arg4464z00_11199;
													int32_t BgL_arg4465z00_11200;

													BgL_arg4464z00_11199 = (int32_t) (BgL_n1z00_11195);
													BgL_arg4465z00_11200 = (int32_t) (BgL_n2z00_11196);
													BgL_arg4463z00_11198 =
														(BgL_arg4464z00_11199 % BgL_arg4465z00_11200);
												}
												{	/* Llib/date.scm 693 */
													long BgL_arg4564z00_11201;

													BgL_arg4564z00_11201 = (long) (BgL_arg4463z00_11198);
													BgL_arg2910z00_11194 = (long) (BgL_arg4564z00_11201);
											}}
										else
											{	/* Llib/date.scm 693 */
												BgL_arg2910z00_11194 =
													(BgL_n1z00_11195 % BgL_n2z00_11196);
											}
									}
								}
								return (BgL_arg2910z00_11194 == 0L);
							}
					}
				else
					{	/* Llib/date.scm 691 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* &leap-year? */
	obj_t BGl_z62leapzd2yearzf3z43zz__datez00(obj_t BgL_envz00_10281,
		obj_t BgL_yearz00_10282)
	{
		{	/* Llib/date.scm 690 */
			{	/* Llib/date.scm 691 */
				bool_t BgL_tmpz00_15966;

				{	/* Llib/date.scm 691 */
					int BgL_auxz00_15967;

					{	/* Llib/date.scm 691 */
						obj_t BgL_tmpz00_15968;

						if (INTEGERP(BgL_yearz00_10282))
							{	/* Llib/date.scm 691 */
								BgL_tmpz00_15968 = BgL_yearz00_10282;
							}
						else
							{
								obj_t BgL_auxz00_15971;

								BgL_auxz00_15971 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
									BINT(30794L), BGl_string5059z00zz__datez00,
									BGl_string4998z00zz__datez00, BgL_yearz00_10282);
								FAILURE(BgL_auxz00_15971, BFALSE, BFALSE);
							}
						BgL_auxz00_15967 = CINT(BgL_tmpz00_15968);
					}
					BgL_tmpz00_15966 = BGl_leapzd2yearzf3z21zz__datez00(BgL_auxz00_15967);
				}
				return BBOOL(BgL_tmpz00_15966);
			}
		}

	}



/* 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_9008;

				{	/* Llib/date.scm 699 */
					long BgL_endz00_9011;

					BgL_endz00_9011 = STRING_LENGTH(BgL_stringz00_90);
					{	/* Llib/date.scm 699 */

						BgL_portz00_9008 =
							BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
							(BgL_stringz00_90, BINT(0L), BINT(BgL_endz00_9011));
				}}
				{	/* Llib/date.scm 700 */
					obj_t BgL_dz00_9012;

					{	/* Llib/date.scm 700 */
						obj_t BgL_res4631z00_9015;

						BgL_res4631z00_9015 =
							BGl_z62zc3z04anonymousza31449ze3ze5zz__datez00
							(BGl_dayzd2ofzd2weekzd2grammarzd2zz__datez00, BgL_portz00_9008);
						BgL_dz00_9012 = BgL_res4631z00_9015;
					}
					bgl_close_input_port(BgL_portz00_9008);
					return BgL_dz00_9012;
				}
			}
		}

	}



/* &rfc2822-date->date */
	obj_t BGl_z62rfc2822zd2datezd2ze3datez81zz__datez00(obj_t BgL_envz00_10283,
		obj_t BgL_stringz00_10284)
	{
		{	/* Llib/date.scm 698 */
			{	/* Llib/date.scm 699 */
				obj_t BgL_auxz00_15987;

				if (STRINGP(BgL_stringz00_10284))
					{	/* Llib/date.scm 699 */
						BgL_auxz00_15987 = BgL_stringz00_10284;
					}
				else
					{
						obj_t BgL_auxz00_15990;

						BgL_auxz00_15990 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
							BINT(31166L), BGl_string5060z00zz__datez00,
							BGl_string5061z00zz__datez00, BgL_stringz00_10284);
						FAILURE(BgL_auxz00_15990, BFALSE, BFALSE);
					}
				return BGl_rfc2822zd2datezd2ze3dateze3zz__datez00(BgL_auxz00_15987);
			}
		}

	}



/* rfc2822-parse-date */
	BGL_EXPORTED_DEF obj_t BGl_rfc2822zd2parsezd2datez00zz__datez00(obj_t
		BgL_ipz00_91)
	{
		{	/* Llib/date.scm 707 */
			return
				BGl_z62zc3z04anonymousza31449ze3ze5zz__datez00
				(BGl_dayzd2ofzd2weekzd2grammarzd2zz__datez00, BgL_ipz00_91);
		}

	}



/* &rfc2822-parse-date */
	obj_t BGl_z62rfc2822zd2parsezd2datez62zz__datez00(obj_t BgL_envz00_10285,
		obj_t BgL_ipz00_10286)
	{
		{	/* Llib/date.scm 707 */
			{	/* Llib/date.scm 708 */
				obj_t BgL_auxz00_15999;

				if (INPUT_PORTP(BgL_ipz00_10286))
					{	/* Llib/date.scm 708 */
						BgL_auxz00_15999 = BgL_ipz00_10286;
					}
				else
					{
						obj_t BgL_auxz00_16002;

						BgL_auxz00_16002 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
							BINT(31553L), BGl_string5062z00zz__datez00,
							BGl_string5063z00zz__datez00, BgL_ipz00_10286);
						FAILURE(BgL_auxz00_16002, BFALSE, BFALSE);
					}
				return BGl_rfc2822zd2parsezd2datez00zz__datez00(BgL_auxz00_15999);
			}
		}

	}



/* date->rfc2822-date */
	BGL_EXPORTED_DEF obj_t BGl_datezd2ze3rfc2822zd2dateze3zz__datez00(obj_t
		BgL_datez00_92)
	{
		{	/* Llib/date.scm 713 */
			{
				obj_t BgL_datez00_3870;
				long BgL_tza7za7_3871;

				{	/* Llib/date.scm 762 */
					long BgL_tza7za7_3868;

					BgL_tza7za7_3868 = BGL_DATE_TIMEZONE(BgL_datez00_92);
					if ((BgL_tza7za7_3868 == 0L))
						{	/* Llib/date.scm 763 */
							BGL_TAIL return
								BGl_datezd2ze3utczd2stringze3zz__datez00(BgL_datez00_92);
						}
					else
						{	/* Llib/date.scm 763 */
							BgL_datez00_3870 = BgL_datez00_92;
							BgL_tza7za7_3871 = BgL_tza7za7_3868;
							{	/* Llib/date.scm 716 */
								obj_t BgL_bufz00_3873;
								long BgL_wz00_3874;

								BgL_bufz00_3873 = make_string(32L, ((unsigned char) ' '));
								BgL_wz00_3874 = 0L;
								{	/* Llib/date.scm 730 */
									long BgL_arg2919z00_3875;

									{	/* Llib/date.scm 730 */
										obj_t BgL_arg2920z00_3876;

										{	/* Llib/date.scm 730 */
											int BgL_arg2921z00_3877;

											BgL_arg2921z00_3877 = BGL_DATE_WDAY(BgL_datez00_3870);
											BgL_arg2920z00_3876 =
												BGl_dayzd2anamezd2zz__datez00(BgL_arg2921z00_3877);
										}
										{	/* Llib/date.scm 730 */
											long BgL_wz00_9018;

											BgL_wz00_9018 = BgL_wz00_3874;
											{	/* Llib/date.scm 554 */
												long BgL_lz00_9019;

												BgL_lz00_9019 = STRING_LENGTH(BgL_arg2920z00_3876);
												blit_string(BgL_arg2920z00_3876, 0L, BgL_bufz00_3873,
													BgL_wz00_9018, BgL_lz00_9019);
												BgL_arg2919z00_3875 = BgL_lz00_9019;
									}}}
									BgL_wz00_3874 = (BgL_wz00_3874 + BgL_arg2919z00_3875);
								}
								STRING_SET(BgL_bufz00_3873, BgL_wz00_3874,
									((unsigned char) ','));
								BgL_wz00_3874 = (BgL_wz00_3874 + 2L);
								{	/* Llib/date.scm 734 */
									long BgL_arg2922z00_3878;

									{	/* Llib/date.scm 734 */
										int BgL_arg2923z00_3879;

										BgL_arg2923z00_3879 = BGL_DATE_DAY(BgL_datez00_3870);
										BgL_arg2922z00_3878 =
											BGl_blitzd2intz12zc0zz__datez00(BgL_bufz00_3873,
											BgL_wz00_3874, BgL_arg2923z00_3879);
									}
									BgL_wz00_3874 = (BgL_wz00_3874 + BgL_arg2922z00_3878);
								}
								BgL_wz00_3874 = (BgL_wz00_3874 + 1L);
								{	/* Llib/date.scm 737 */
									long BgL_arg2924z00_3880;

									{	/* Llib/date.scm 737 */
										obj_t BgL_arg2925z00_3881;

										{	/* Llib/date.scm 737 */
											int BgL_arg2926z00_3882;

											BgL_arg2926z00_3882 = BGL_DATE_MONTH(BgL_datez00_3870);
											BgL_arg2925z00_3881 =
												BGl_monthzd2anamezd2zz__datez00(BgL_arg2926z00_3882);
										}
										{	/* Llib/date.scm 737 */
											long BgL_wz00_9036;

											BgL_wz00_9036 = BgL_wz00_3874;
											{	/* Llib/date.scm 554 */
												long BgL_lz00_9037;

												BgL_lz00_9037 = STRING_LENGTH(BgL_arg2925z00_3881);
												blit_string(BgL_arg2925z00_3881, 0L, BgL_bufz00_3873,
													BgL_wz00_9036, BgL_lz00_9037);
												BgL_arg2924z00_3880 = BgL_lz00_9037;
									}}}
									BgL_wz00_3874 = (BgL_wz00_3874 + BgL_arg2924z00_3880);
								}
								BgL_wz00_3874 = (BgL_wz00_3874 + 1L);
								{	/* Llib/date.scm 740 */
									long BgL_arg2927z00_3883;

									{	/* Llib/date.scm 740 */
										int BgL_arg2928z00_3884;

										BgL_arg2928z00_3884 = BGL_DATE_YEAR(BgL_datez00_3870);
										BgL_arg2927z00_3883 =
											BGl_blitzd2intz12zc0zz__datez00(BgL_bufz00_3873,
											BgL_wz00_3874, BgL_arg2928z00_3884);
									}
									BgL_wz00_3874 = (BgL_wz00_3874 + BgL_arg2927z00_3883);
								}
								BgL_wz00_3874 = (BgL_wz00_3874 + 1L);
								{	/* Llib/date.scm 743 */
									long BgL_arg2929z00_3885;

									{	/* Llib/date.scm 743 */
										int BgL_arg2930z00_3886;

										BgL_arg2930z00_3886 = BGL_DATE_HOUR(BgL_datez00_3870);
										BgL_arg2929z00_3885 =
											BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3873,
											BgL_wz00_3874, BgL_arg2930z00_3886);
									}
									BgL_wz00_3874 = (BgL_wz00_3874 + BgL_arg2929z00_3885);
								}
								STRING_SET(BgL_bufz00_3873, BgL_wz00_3874,
									((unsigned char) ':'));
								BgL_wz00_3874 = (BgL_wz00_3874 + 1L);
								{	/* Llib/date.scm 747 */
									long BgL_arg2931z00_3887;

									{	/* Llib/date.scm 747 */
										int BgL_arg2932z00_3888;

										BgL_arg2932z00_3888 = BGL_DATE_MINUTE(BgL_datez00_3870);
										BgL_arg2931z00_3887 =
											BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3873,
											BgL_wz00_3874, BgL_arg2932z00_3888);
									}
									BgL_wz00_3874 = (BgL_wz00_3874 + BgL_arg2931z00_3887);
								}
								STRING_SET(BgL_bufz00_3873, BgL_wz00_3874,
									((unsigned char) ':'));
								BgL_wz00_3874 = (BgL_wz00_3874 + 1L);
								{	/* Llib/date.scm 751 */
									long BgL_arg2935z00_3889;

									{	/* Llib/date.scm 751 */
										int BgL_arg2936z00_3890;

										BgL_arg2936z00_3890 = BGL_DATE_SECOND(BgL_datez00_3870);
										BgL_arg2935z00_3889 =
											BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3873,
											BgL_wz00_3874, BgL_arg2936z00_3890);
									}
									BgL_wz00_3874 = (BgL_wz00_3874 + BgL_arg2935z00_3889);
								}
								BgL_wz00_3874 = (BgL_wz00_3874 + 1L);
								{	/* Llib/date.scm 754 */
									unsigned char BgL_arg2937z00_3891;

									if ((BgL_tza7za7_3871 < 0L))
										{	/* Llib/date.scm 754 */
											BgL_arg2937z00_3891 = ((unsigned char) '-');
										}
									else
										{	/* Llib/date.scm 754 */
											BgL_arg2937z00_3891 = ((unsigned char) '+');
										}
									STRING_SET(BgL_bufz00_3873, BgL_wz00_3874,
										BgL_arg2937z00_3891);
								}
								BgL_wz00_3874 = (BgL_wz00_3874 + 1L);
								{	/* Llib/date.scm 757 */
									long BgL_arg2939z00_3893;

									{	/* Llib/date.scm 757 */
										long BgL_arg2940z00_3894;

										BgL_arg2940z00_3894 = (BgL_tza7za7_3871 / 3600L);
										BgL_arg2939z00_3893 =
											BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3873,
											BgL_wz00_3874, (int) (BgL_arg2940z00_3894));
									}
									BgL_wz00_3874 = (BgL_wz00_3874 + BgL_arg2939z00_3893);
								}
								{	/* Llib/date.scm 759 */
									long BgL_arg2941z00_3895;

									{	/* Llib/date.scm 759 */
										long BgL_arg2944z00_3896;

										{	/* Llib/date.scm 759 */
											long BgL_n1z00_9076;
											long BgL_n2z00_9077;

											BgL_n1z00_9076 = BgL_tza7za7_3871;
											BgL_n2z00_9077 = 3600L;
											{	/* Llib/date.scm 759 */
												bool_t BgL_test5914z00_16055;

												{	/* Llib/date.scm 759 */
													long BgL_arg4466z00_9079;

													BgL_arg4466z00_9079 =
														(((BgL_n1z00_9076) | (BgL_n2z00_9077)) &
														-2147483648);
													BgL_test5914z00_16055 = (BgL_arg4466z00_9079 == 0L);
												}
												if (BgL_test5914z00_16055)
													{	/* Llib/date.scm 759 */
														int32_t BgL_arg4463z00_9080;

														{	/* Llib/date.scm 759 */
															int32_t BgL_arg4464z00_9081;
															int32_t BgL_arg4465z00_9082;

															BgL_arg4464z00_9081 = (int32_t) (BgL_n1z00_9076);
															BgL_arg4465z00_9082 = (int32_t) (BgL_n2z00_9077);
															BgL_arg4463z00_9080 =
																(BgL_arg4464z00_9081 % BgL_arg4465z00_9082);
														}
														{	/* Llib/date.scm 759 */
															long BgL_arg4564z00_9087;

															BgL_arg4564z00_9087 =
																(long) (BgL_arg4463z00_9080);
															BgL_arg2944z00_3896 =
																(long) (BgL_arg4564z00_9087);
													}}
												else
													{	/* Llib/date.scm 759 */
														BgL_arg2944z00_3896 =
															(BgL_n1z00_9076 % BgL_n2z00_9077);
													}
											}
										}
										BgL_arg2941z00_3895 =
											BGl_blitzd2int2z12zc0zz__datez00(BgL_bufz00_3873,
											BgL_wz00_3874, (int) (BgL_arg2944z00_3896));
									}
									BgL_wz00_3874 = (BgL_wz00_3874 + BgL_arg2941z00_3895);
								}
								return bgl_string_shrink(BgL_bufz00_3873, BgL_wz00_3874);
							}
						}
				}
			}
		}

	}



/* &date->rfc2822-date */
	obj_t BGl_z62datezd2ze3rfc2822zd2datez81zz__datez00(obj_t BgL_envz00_10287,
		obj_t BgL_datez00_10288)
	{
		{	/* Llib/date.scm 713 */
			{	/* Llib/date.scm 716 */
				obj_t BgL_auxz00_16068;

				if (BGL_DATEP(BgL_datez00_10288))
					{	/* Llib/date.scm 716 */
						BgL_auxz00_16068 = BgL_datez00_10288;
					}
				else
					{
						obj_t BgL_auxz00_16071;

						BgL_auxz00_16071 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
							BINT(31886L), BGl_string5064z00zz__datez00,
							BGl_string5007z00zz__datez00, BgL_datez00_10288);
						FAILURE(BgL_auxz00_16071, BFALSE, BFALSE);
					}
				return BGl_datezd2ze3rfc2822zd2dateze3zz__datez00(BgL_auxz00_16068);
			}
		}

	}



/* 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_3898;

				BgL_tza7za7_3898 = BGL_DATE_TIMEZONE(BgL_datez00_93);
				if ((BgL_tza7za7_3898 == 0L))
					{	/* Llib/date.scm 774 */
						int BgL_arg2954z00_3900;
						int BgL_arg2956z00_3901;
						int BgL_arg2958z00_3902;
						int BgL_arg2961z00_3903;
						int BgL_arg2962z00_3904;
						int BgL_arg2967z00_3905;

						BgL_arg2954z00_3900 = BGL_DATE_YEAR(BgL_datez00_93);
						BgL_arg2956z00_3901 = BGL_DATE_MONTH(BgL_datez00_93);
						BgL_arg2958z00_3902 = BGL_DATE_DAY(BgL_datez00_93);
						BgL_arg2961z00_3903 = BGL_DATE_HOUR(BgL_datez00_93);
						BgL_arg2962z00_3904 = BGL_DATE_MINUTE(BgL_datez00_93);
						BgL_arg2967z00_3905 = BGL_DATE_SECOND(BgL_datez00_93);
						{	/* Llib/date.scm 773 */
							obj_t BgL_list2968z00_3906;

							{	/* Llib/date.scm 773 */
								obj_t BgL_arg2971z00_3907;

								{	/* Llib/date.scm 773 */
									obj_t BgL_arg2972z00_3908;

									{	/* Llib/date.scm 773 */
										obj_t BgL_arg2973z00_3909;

										{	/* Llib/date.scm 773 */
											obj_t BgL_arg2974z00_3910;

											{	/* Llib/date.scm 773 */
												obj_t BgL_arg2975z00_3911;

												BgL_arg2975z00_3911 =
													MAKE_YOUNG_PAIR(BINT(BgL_arg2967z00_3905), BNIL);
												BgL_arg2974z00_3910 =
													MAKE_YOUNG_PAIR(BINT(BgL_arg2962z00_3904),
													BgL_arg2975z00_3911);
											}
											BgL_arg2973z00_3909 =
												MAKE_YOUNG_PAIR(BINT(BgL_arg2961z00_3903),
												BgL_arg2974z00_3910);
										}
										BgL_arg2972z00_3908 =
											MAKE_YOUNG_PAIR(BINT(BgL_arg2958z00_3902),
											BgL_arg2973z00_3909);
									}
									BgL_arg2971z00_3907 =
										MAKE_YOUNG_PAIR(BINT(BgL_arg2956z00_3901),
										BgL_arg2972z00_3908);
								}
								BgL_list2968z00_3906 =
									MAKE_YOUNG_PAIR(BINT(BgL_arg2954z00_3900),
									BgL_arg2971z00_3907);
							}
							return
								BGl_formatz00zz__r4_output_6_10_3z00
								(BGl_string5065z00zz__datez00, BgL_list2968z00_3906);
						}
					}
				else
					{	/* Llib/date.scm 781 */
						int BgL_arg2976z00_3912;
						int BgL_arg2977z00_3913;
						int BgL_arg2978z00_3914;
						int BgL_arg2980z00_3915;
						int BgL_arg2981z00_3916;
						int BgL_arg2982z00_3917;
						obj_t BgL_arg2983z00_3918;
						long BgL_arg2984z00_3919;
						long BgL_arg2986z00_3920;

						BgL_arg2976z00_3912 = BGL_DATE_YEAR(BgL_datez00_93);
						BgL_arg2977z00_3913 = BGL_DATE_MONTH(BgL_datez00_93);
						BgL_arg2978z00_3914 = BGL_DATE_DAY(BgL_datez00_93);
						BgL_arg2980z00_3915 = BGL_DATE_HOUR(BgL_datez00_93);
						BgL_arg2981z00_3916 = BGL_DATE_MINUTE(BgL_datez00_93);
						BgL_arg2982z00_3917 = BGL_DATE_SECOND(BgL_datez00_93);
						if ((BgL_tza7za7_3898 < 0L))
							{	/* Llib/date.scm 787 */
								BgL_arg2983z00_3918 = BGl_string5066z00zz__datez00;
							}
						else
							{	/* Llib/date.scm 787 */
								BgL_arg2983z00_3918 = BGl_string5067z00zz__datez00;
							}
						{	/* Llib/date.scm 788 */
							long BgL_nz00_9111;

							BgL_nz00_9111 = (BgL_tza7za7_3898 / 3600L);
							if ((BgL_nz00_9111 < 0L))
								{	/* Llib/date.scm 788 */
									BgL_arg2984z00_3919 = NEG(BgL_nz00_9111);
								}
							else
								{	/* Llib/date.scm 788 */
									BgL_arg2984z00_3919 = BgL_nz00_9111;
								}
						}
						{	/* Llib/date.scm 789 */
							obj_t BgL_arg3000z00_3932;

							BgL_arg3000z00_3932 =
								BGl_remainderz00zz__r4_numbers_6_5_fixnumz00(BINT
								(BgL_tza7za7_3898), BINT(3600L));
							{	/* Llib/date.scm 789 */
								long BgL_nz00_9115;

								BgL_nz00_9115 = (long) CINT(BgL_arg3000z00_3932);
								if ((BgL_nz00_9115 < 0L))
									{	/* Llib/date.scm 789 */
										BgL_arg2986z00_3920 = NEG(BgL_nz00_9115);
									}
								else
									{	/* Llib/date.scm 789 */
										BgL_arg2986z00_3920 = BgL_nz00_9115;
									}
							}
						}
						{	/* Llib/date.scm 780 */
							obj_t BgL_list2987z00_3921;

							{	/* Llib/date.scm 780 */
								obj_t BgL_arg2988z00_3922;

								{	/* Llib/date.scm 780 */
									obj_t BgL_arg2989z00_3923;

									{	/* Llib/date.scm 780 */
										obj_t BgL_arg2990z00_3924;

										{	/* Llib/date.scm 780 */
											obj_t BgL_arg2991z00_3925;

											{	/* Llib/date.scm 780 */
												obj_t BgL_arg2992z00_3926;

												{	/* Llib/date.scm 780 */
													obj_t BgL_arg2994z00_3927;

													{	/* Llib/date.scm 780 */
														obj_t BgL_arg2995z00_3928;

														{	/* Llib/date.scm 780 */
															obj_t BgL_arg2997z00_3929;

															BgL_arg2997z00_3929 =
																MAKE_YOUNG_PAIR(BINT(BgL_arg2986z00_3920),
																BNIL);
															BgL_arg2995z00_3928 =
																MAKE_YOUNG_PAIR(BINT(BgL_arg2984z00_3919),
																BgL_arg2997z00_3929);
														}
														BgL_arg2994z00_3927 =
															MAKE_YOUNG_PAIR(BgL_arg2983z00_3918,
															BgL_arg2995z00_3928);
													}
													BgL_arg2992z00_3926 =
														MAKE_YOUNG_PAIR(BINT(BgL_arg2982z00_3917),
														BgL_arg2994z00_3927);
												}
												BgL_arg2991z00_3925 =
													MAKE_YOUNG_PAIR(BINT(BgL_arg2981z00_3916),
													BgL_arg2992z00_3926);
											}
											BgL_arg2990z00_3924 =
												MAKE_YOUNG_PAIR(BINT(BgL_arg2980z00_3915),
												BgL_arg2991z00_3925);
										}
										BgL_arg2989z00_3923 =
											MAKE_YOUNG_PAIR(BINT(BgL_arg2978z00_3914),
											BgL_arg2990z00_3924);
									}
									BgL_arg2988z00_3922 =
										MAKE_YOUNG_PAIR(BINT(BgL_arg2977z00_3913),
										BgL_arg2989z00_3923);
								}
								BgL_list2987z00_3921 =
									MAKE_YOUNG_PAIR(BINT(BgL_arg2976z00_3912),
									BgL_arg2988z00_3922);
							}
							return
								BGl_formatz00zz__r4_output_6_10_3z00
								(BGl_string5068z00zz__datez00, BgL_list2987z00_3921);
						}
					}
			}
		}

	}



/* &date->iso8601-date */
	obj_t BGl_z62datezd2ze3iso8601zd2datez81zz__datez00(obj_t BgL_envz00_10289,
		obj_t BgL_datez00_10290)
	{
		{	/* Llib/date.scm 770 */
			{	/* Llib/date.scm 771 */
				obj_t BgL_auxz00_16135;

				if (BGL_DATEP(BgL_datez00_10290))
					{	/* Llib/date.scm 771 */
						BgL_auxz00_16135 = BgL_datez00_10290;
					}
				else
					{
						obj_t BgL_auxz00_16138;

						BgL_auxz00_16138 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
							BINT(34068L), BGl_string5069z00zz__datez00,
							BGl_string5007z00zz__datez00, BgL_datez00_10290);
						FAILURE(BgL_auxz00_16138, BFALSE, BFALSE);
					}
				return BGl_datezd2ze3iso8601zd2dateze3zz__datez00(BgL_auxz00_16135);
			}
		}

	}



/* 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_3933;

				{	/* Ieee/port.scm 469 */
					long BgL_endz00_3941;

					BgL_endz00_3941 = STRING_LENGTH(BgL_stringz00_94);
					{	/* Ieee/port.scm 469 */

						BgL_portz00_3933 =
							BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
							(BgL_stringz00_94, BINT(0L), BINT(BgL_endz00_3941));
				}}
				{	/* Llib/date.scm 808 */
					obj_t BgL_exitd1065z00_3934;

					BgL_exitd1065z00_3934 = BGL_EXITD_TOP_AS_OBJ();
					{	/* Llib/date.scm 810 */
						obj_t BgL_zc3z04anonymousza33001ze3z87_10291;

						BgL_zc3z04anonymousza33001ze3z87_10291 =
							MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza33001ze3ze5zz__datez00,
							(int) (0L), (int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza33001ze3z87_10291,
							(int) (0L), BgL_portz00_3933);
						{	/* Llib/date.scm 808 */
							obj_t BgL_arg4613z00_9121;

							{	/* Llib/date.scm 808 */
								obj_t BgL_arg4614z00_9122;

								BgL_arg4614z00_9122 = BGL_EXITD_PROTECT(BgL_exitd1065z00_3934);
								BgL_arg4613z00_9121 =
									MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza33001ze3z87_10291,
									BgL_arg4614z00_9122);
							}
							BGL_EXITD_PROTECT_SET(BgL_exitd1065z00_3934, BgL_arg4613z00_9121);
							BUNSPEC;
						}
						{	/* Llib/date.scm 809 */
							obj_t BgL_tmp1067z00_3936;

							BgL_tmp1067z00_3936 =
								BGl_iso8601zd2parsezd2datez00zz__datez00(BgL_portz00_3933);
							{	/* Llib/date.scm 808 */
								bool_t BgL_test5921z00_16157;

								{	/* Llib/date.scm 808 */
									obj_t BgL_arg4612z00_9124;

									BgL_arg4612z00_9124 =
										BGL_EXITD_PROTECT(BgL_exitd1065z00_3934);
									BgL_test5921z00_16157 = PAIRP(BgL_arg4612z00_9124);
								}
								if (BgL_test5921z00_16157)
									{	/* Llib/date.scm 808 */
										obj_t BgL_arg4610z00_9125;

										{	/* Llib/date.scm 808 */
											obj_t BgL_arg4611z00_9126;

											BgL_arg4611z00_9126 =
												BGL_EXITD_PROTECT(BgL_exitd1065z00_3934);
											BgL_arg4610z00_9125 = CDR(((obj_t) BgL_arg4611z00_9126));
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1065z00_3934,
											BgL_arg4610z00_9125);
										BUNSPEC;
									}
								else
									{	/* Llib/date.scm 808 */
										BFALSE;
									}
							}
							bgl_close_input_port(BgL_portz00_3933);
							return BgL_tmp1067z00_3936;
						}
					}
				}
			}
		}

	}



/* &iso8601-date->date */
	obj_t BGl_z62iso8601zd2datezd2ze3datez81zz__datez00(obj_t BgL_envz00_10292,
		obj_t BgL_stringz00_10293)
	{
		{	/* Llib/date.scm 806 */
			{	/* Llib/date.scm 807 */
				obj_t BgL_auxz00_16165;

				if (STRINGP(BgL_stringz00_10293))
					{	/* Llib/date.scm 807 */
						BgL_auxz00_16165 = BgL_stringz00_10293;
					}
				else
					{
						obj_t BgL_auxz00_16168;

						BgL_auxz00_16168 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
							BINT(35557L), BGl_string5070z00zz__datez00,
							BGl_string5061z00zz__datez00, BgL_stringz00_10293);
						FAILURE(BgL_auxz00_16168, BFALSE, BFALSE);
					}
				return BGl_iso8601zd2datezd2ze3dateze3zz__datez00(BgL_auxz00_16165);
			}
		}

	}



/* &<@anonymous:3001> */
	obj_t BGl_z62zc3z04anonymousza33001ze3ze5zz__datez00(obj_t BgL_envz00_10294)
	{
		{	/* Llib/date.scm 808 */
			{	/* Llib/date.scm 810 */
				obj_t BgL_portz00_10295;

				BgL_portz00_10295 =
					((obj_t) PROCEDURE_REF(BgL_envz00_10294, (int) (0L)));
				return bgl_close_input_port(BgL_portz00_10295);
			}
		}

	}



/* iso8601-parse-date */
	BGL_EXPORTED_DEF obj_t BGl_iso8601zd2parsezd2datez00zz__datez00(obj_t
		BgL_ipz00_95)
	{
		{	/* Llib/date.scm 815 */
			{
				obj_t BgL_iportz00_6225;
				long BgL_yyyyz00_6226;
				long BgL_mmz00_6227;
				long BgL_ddz00_6228;
				long BgL_hhz00_6229;
				long BgL_mmz00_6230;
				long BgL_ssz00_6231;
				BGL_LONGLONG_T BgL_sssz00_6232;
				long BgL_za7hhza7_6233;

				{
					obj_t BgL_iportz00_5877;
					long BgL_yyyyz00_5878;
					long BgL_mmz00_5879;
					long BgL_ddz00_5880;
					long BgL_hhz00_5881;
					long BgL_mmz00_5882;
					long BgL_ssz00_5883;
					BGL_LONGLONG_T BgL_sssz00_5884;

					{
						obj_t BgL_iportz00_5581;
						long BgL_yyyyz00_5582;
						long BgL_mmz00_5583;
						long BgL_ddz00_5584;
						long BgL_hhz00_5585;
						long BgL_mmz00_5586;
						long BgL_ssz00_5587;

						{
							obj_t BgL_iportz00_5308;
							long BgL_yyyyz00_5309;
							long BgL_mmz00_5310;
							long BgL_ddz00_5311;
							long BgL_hhz00_5312;
							long BgL_mmz00_5313;

							{
								obj_t BgL_iportz00_5037;
								long BgL_yyyyz00_5038;
								long BgL_mmz00_5039;
								long BgL_ddz00_5040;
								long BgL_hhz00_5041;

								{
									obj_t BgL_iportz00_4765;
									long BgL_yyyyz00_4766;
									long BgL_mmz00_4767;
									long BgL_ddz00_4768;

									{
										obj_t BgL_iportz00_4496;
										long BgL_yyyyz00_4497;
										long BgL_mmz00_4498;

										{
											obj_t BgL_iportz00_4228;
											long BgL_yyyyz00_4229;

											{
												obj_t BgL_iportz00_3952;

												BgL_iportz00_3952 = BgL_ipz00_95;
												{
													obj_t BgL_iportz00_3987;
													long BgL_lastzd2matchzd2_3988;
													long BgL_forwardz00_3989;
													long BgL_bufposz00_3990;
													obj_t BgL_iportz00_4008;
													long BgL_lastzd2matchzd2_4009;
													long BgL_forwardz00_4010;
													long BgL_bufposz00_4011;
													obj_t BgL_iportz00_4023;
													long BgL_lastzd2matchzd2_4024;
													long BgL_forwardz00_4025;
													long BgL_bufposz00_4026;
													obj_t BgL_iportz00_4037;
													long BgL_lastzd2matchzd2_4038;
													long BgL_forwardz00_4039;
													long BgL_bufposz00_4040;

													RGC_START_MATCH(BgL_iportz00_3952);
													{	/* Llib/date.scm 948 */
														long BgL_matchz00_4176;

														{	/* Llib/date.scm 948 */
															long BgL_arg3174z00_4191;
															long BgL_arg3177z00_4192;

															BgL_arg3174z00_4191 =
																RGC_BUFFER_FORWARD(BgL_iportz00_3952);
															BgL_arg3177z00_4192 =
																RGC_BUFFER_BUFPOS(BgL_iportz00_3952);
															BgL_iportz00_3987 = BgL_iportz00_3952;
															BgL_lastzd2matchzd2_3988 = 1L;
															BgL_forwardz00_3989 = BgL_arg3174z00_4191;
															BgL_bufposz00_3990 = BgL_arg3177z00_4192;
														BgL_zc3z04anonymousza33003ze3z87_3991:
															if ((BgL_forwardz00_3989 == BgL_bufposz00_3990))
																{	/* Llib/date.scm 948 */
																	if (rgc_fill_buffer(BgL_iportz00_3987))
																		{	/* Llib/date.scm 948 */
																			long BgL_arg3008z00_3994;
																			long BgL_arg3012z00_3995;

																			BgL_arg3008z00_3994 =
																				RGC_BUFFER_FORWARD(BgL_iportz00_3987);
																			BgL_arg3012z00_3995 =
																				RGC_BUFFER_BUFPOS(BgL_iportz00_3987);
																			{
																				long BgL_bufposz00_16187;
																				long BgL_forwardz00_16186;

																				BgL_forwardz00_16186 =
																					BgL_arg3008z00_3994;
																				BgL_bufposz00_16187 =
																					BgL_arg3012z00_3995;
																				BgL_bufposz00_3990 =
																					BgL_bufposz00_16187;
																				BgL_forwardz00_3989 =
																					BgL_forwardz00_16186;
																				goto
																					BgL_zc3z04anonymousza33003ze3z87_3991;
																			}
																		}
																	else
																		{	/* Llib/date.scm 948 */
																			BgL_matchz00_4176 =
																				BgL_lastzd2matchzd2_3988;
																		}
																}
															else
																{	/* Llib/date.scm 948 */
																	int BgL_curz00_3996;

																	BgL_curz00_3996 =
																		RGC_BUFFER_GET_CHAR(BgL_iportz00_3987,
																		BgL_forwardz00_3989);
																	{	/* Llib/date.scm 948 */

																		{	/* Llib/date.scm 948 */
																			bool_t BgL_test5925z00_16189;

																			if (((long) (BgL_curz00_3996) >= 48L))
																				{	/* Llib/date.scm 948 */
																					BgL_test5925z00_16189 =
																						((long) (BgL_curz00_3996) < 58L);
																				}
																			else
																				{	/* Llib/date.scm 948 */
																					BgL_test5925z00_16189 = ((bool_t) 0);
																				}
																			if (BgL_test5925z00_16189)
																				{	/* Llib/date.scm 948 */
																					BgL_iportz00_4008 = BgL_iportz00_3987;
																					BgL_lastzd2matchzd2_4009 =
																						BgL_lastzd2matchzd2_3988;
																					BgL_forwardz00_4010 =
																						(1L + BgL_forwardz00_3989);
																					BgL_bufposz00_4011 =
																						BgL_bufposz00_3990;
																				BgL_zc3z04anonymousza33020ze3z87_4012:
																					{	/* Llib/date.scm 948 */
																						long BgL_newzd2matchzd2_4013;

																						RGC_STOP_MATCH(BgL_iportz00_4008,
																							BgL_forwardz00_4010);
																						BgL_newzd2matchzd2_4013 = 1L;
																						if (
																							(BgL_forwardz00_4010 ==
																								BgL_bufposz00_4011))
																							{	/* Llib/date.scm 948 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_4008))
																									{	/* Llib/date.scm 948 */
																										long BgL_arg3024z00_4016;
																										long BgL_arg3026z00_4017;

																										BgL_arg3024z00_4016 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_4008);
																										BgL_arg3026z00_4017 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_4008);
																										{
																											long BgL_bufposz00_16203;
																											long BgL_forwardz00_16202;

																											BgL_forwardz00_16202 =
																												BgL_arg3024z00_4016;
																											BgL_bufposz00_16203 =
																												BgL_arg3026z00_4017;
																											BgL_bufposz00_4011 =
																												BgL_bufposz00_16203;
																											BgL_forwardz00_4010 =
																												BgL_forwardz00_16202;
																											goto
																												BgL_zc3z04anonymousza33020ze3z87_4012;
																										}
																									}
																								else
																									{	/* Llib/date.scm 948 */
																										BgL_matchz00_4176 =
																											BgL_newzd2matchzd2_4013;
																									}
																							}
																						else
																							{	/* Llib/date.scm 948 */
																								int BgL_curz00_4018;

																								BgL_curz00_4018 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_4008,
																									BgL_forwardz00_4010);
																								{	/* Llib/date.scm 948 */

																									{	/* Llib/date.scm 948 */
																										bool_t
																											BgL_test5929z00_16205;
																										if (((long)
																												(BgL_curz00_4018) >=
																												48L))
																											{	/* Llib/date.scm 948 */
																												BgL_test5929z00_16205 =
																													(
																													(long)
																													(BgL_curz00_4018) <
																													58L);
																											}
																										else
																											{	/* Llib/date.scm 948 */
																												BgL_test5929z00_16205 =
																													((bool_t) 0);
																											}
																										if (BgL_test5929z00_16205)
																											{	/* Llib/date.scm 948 */
																												BgL_iportz00_4023 =
																													BgL_iportz00_4008;
																												BgL_lastzd2matchzd2_4024
																													=
																													BgL_newzd2matchzd2_4013;
																												BgL_forwardz00_4025 =
																													(1L +
																													BgL_forwardz00_4010);
																												BgL_bufposz00_4026 =
																													BgL_bufposz00_4011;
																											BgL_zc3z04anonymousza33030ze3z87_4027:
																												if (
																													(BgL_forwardz00_4025
																														==
																														BgL_bufposz00_4026))
																													{	/* Llib/date.scm 948 */
																														if (rgc_fill_buffer
																															(BgL_iportz00_4023))
																															{	/* Llib/date.scm 948 */
																																long
																																	BgL_arg3033z00_4030;
																																long
																																	BgL_arg3034z00_4031;
																																BgL_arg3033z00_4030
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_iportz00_4023);
																																BgL_arg3034z00_4031
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_iportz00_4023);
																																{
																																	long
																																		BgL_bufposz00_16218;
																																	long
																																		BgL_forwardz00_16217;
																																	BgL_forwardz00_16217
																																		=
																																		BgL_arg3033z00_4030;
																																	BgL_bufposz00_16218
																																		=
																																		BgL_arg3034z00_4031;
																																	BgL_bufposz00_4026
																																		=
																																		BgL_bufposz00_16218;
																																	BgL_forwardz00_4025
																																		=
																																		BgL_forwardz00_16217;
																																	goto
																																		BgL_zc3z04anonymousza33030ze3z87_4027;
																																}
																															}
																														else
																															{	/* Llib/date.scm 948 */
																																BgL_matchz00_4176
																																	=
																																	BgL_lastzd2matchzd2_4024;
																															}
																													}
																												else
																													{	/* Llib/date.scm 948 */
																														int BgL_curz00_4032;

																														BgL_curz00_4032 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_iportz00_4023,
																															BgL_forwardz00_4025);
																														{	/* Llib/date.scm 948 */

																															{	/* Llib/date.scm 948 */
																																bool_t
																																	BgL_test5933z00_16220;
																																if (((long)
																																		(BgL_curz00_4032)
																																		>= 48L))
																																	{	/* Llib/date.scm 948 */
																																		BgL_test5933z00_16220
																																			=
																																			((long)
																																			(BgL_curz00_4032)
																																			< 58L);
																																	}
																																else
																																	{	/* Llib/date.scm 948 */
																																		BgL_test5933z00_16220
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test5933z00_16220)
																																	{	/* Llib/date.scm 948 */
																																		BgL_iportz00_4037
																																			=
																																			BgL_iportz00_4023;
																																		BgL_lastzd2matchzd2_4038
																																			=
																																			BgL_lastzd2matchzd2_4024;
																																		BgL_forwardz00_4039
																																			=
																																			(1L +
																																			BgL_forwardz00_4025);
																																		BgL_bufposz00_4040
																																			=
																																			BgL_bufposz00_4026;
																																	BgL_zc3z04anonymousza33038ze3z87_4041:
																																		if (
																																			(BgL_forwardz00_4039
																																				==
																																				BgL_bufposz00_4040))
																																			{	/* Llib/date.scm 948 */
																																				if (rgc_fill_buffer(BgL_iportz00_4037))
																																					{	/* Llib/date.scm 948 */
																																						long
																																							BgL_arg3042z00_4044;
																																						long
																																							BgL_arg3043z00_4045;
																																						BgL_arg3042z00_4044
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_iportz00_4037);
																																						BgL_arg3043z00_4045
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_iportz00_4037);
																																						{
																																							long
																																								BgL_bufposz00_16233;
																																							long
																																								BgL_forwardz00_16232;
																																							BgL_forwardz00_16232
																																								=
																																								BgL_arg3042z00_4044;
																																							BgL_bufposz00_16233
																																								=
																																								BgL_arg3043z00_4045;
																																							BgL_bufposz00_4040
																																								=
																																								BgL_bufposz00_16233;
																																							BgL_forwardz00_4039
																																								=
																																								BgL_forwardz00_16232;
																																							goto
																																								BgL_zc3z04anonymousza33038ze3z87_4041;
																																						}
																																					}
																																				else
																																					{	/* Llib/date.scm 948 */
																																						BgL_matchz00_4176
																																							=
																																							BgL_lastzd2matchzd2_4038;
																																					}
																																			}
																																		else
																																			{	/* Llib/date.scm 948 */
																																				int
																																					BgL_curz00_4046;
																																				BgL_curz00_4046
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_iportz00_4037,
																																					BgL_forwardz00_4039);
																																				{	/* Llib/date.scm 948 */

																																					{	/* Llib/date.scm 948 */
																																						bool_t
																																							BgL_test5937z00_16235;
																																						if (
																																							((long) (BgL_curz00_4046) >= 48L))
																																							{	/* Llib/date.scm 948 */
																																								BgL_test5937z00_16235
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_4046)
																																									<
																																									58L);
																																							}
																																						else
																																							{	/* Llib/date.scm 948 */
																																								BgL_test5937z00_16235
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test5937z00_16235)
																																							{	/* Llib/date.scm 948 */
																																								long
																																									BgL_arg3046z00_4049;
																																								BgL_arg3046z00_4049
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_4039);
																																								{	/* Llib/date.scm 948 */
																																									long
																																										BgL_newzd2matchzd2_9908;
																																									RGC_STOP_MATCH
																																										(BgL_iportz00_4037,
																																										BgL_arg3046z00_4049);
																																									BgL_newzd2matchzd2_9908
																																										=
																																										0L;
																																									BgL_matchz00_4176
																																										=
																																										BgL_newzd2matchzd2_9908;
																																							}}
																																						else
																																							{	/* Llib/date.scm 948 */
																																								BgL_matchz00_4176
																																									=
																																									BgL_lastzd2matchzd2_4038;
																																							}
																																					}
																																				}
																																			}
																																	}
																																else
																																	{	/* Llib/date.scm 948 */
																																		BgL_matchz00_4176
																																			=
																																			BgL_lastzd2matchzd2_4024;
																																	}
																															}
																														}
																													}
																											}
																										else
																											{	/* Llib/date.scm 948 */
																												BgL_matchz00_4176 =
																													BgL_newzd2matchzd2_4013;
																											}
																									}
																								}
																							}
																					}
																				}
																			else
																				{	/* Llib/date.scm 948 */
																					long BgL_arg3018z00_4000;

																					BgL_arg3018z00_4000 =
																						(1L + BgL_forwardz00_3989);
																					{	/* Llib/date.scm 948 */
																						long BgL_newzd2matchzd2_9870;

																						RGC_STOP_MATCH(BgL_iportz00_3987,
																							BgL_arg3018z00_4000);
																						BgL_newzd2matchzd2_9870 = 1L;
																						BgL_matchz00_4176 =
																							BgL_newzd2matchzd2_9870;
														}}}}}}
														RGC_SET_FILEPOS(BgL_iportz00_3952);
														switch (BgL_matchz00_4176)
															{
															case 1L:

																{	/* Llib/date.scm 956 */
																	obj_t BgL_auxz00_16249;

																	{	/* Llib/date.scm 948 */
																		bool_t BgL_test5939z00_16250;

																		{	/* Llib/date.scm 948 */
																			long BgL_arg3157z00_4166;

																			BgL_arg3157z00_4166 =
																				RGC_BUFFER_MATCH_LENGTH
																				(BgL_iportz00_3952);
																			BgL_test5939z00_16250 =
																				(BgL_arg3157z00_4166 == 0L);
																		}
																		if (BgL_test5939z00_16250)
																			{	/* Llib/date.scm 948 */
																				BgL_auxz00_16249 = BEOF;
																			}
																		else
																			{	/* Llib/date.scm 948 */
																				BgL_auxz00_16249 =
																					BCHAR(RGC_BUFFER_CHARACTER
																					(BgL_iportz00_3952));
																			}
																	}
																	return
																		BGl_parsezd2errorzd2zz__datez00
																		(BGl_string5071z00zz__datez00,
																		BGl_string4943z00zz__datez00,
																		BgL_auxz00_16249, BgL_iportz00_3952);
																}
																break;
															case 0L:

																{	/* Llib/date.scm 950 */
																	long BgL_b1z00_4181;
																	long BgL_b2z00_4182;
																	long BgL_b3z00_4183;
																	long BgL_b4z00_4184;

																	{	/* Llib/date.scm 950 */
																		int BgL_arg3170z00_4187;

																		{	/* Llib/date.scm 948 */
																			int BgL_tmpz00_16256;

																			BgL_tmpz00_16256 = (int) (0L);
																			BgL_arg3170z00_4187 =
																				RGC_BUFFER_BYTE_REF(BgL_iportz00_3952,
																				BgL_tmpz00_16256);
																		}
																		BgL_b1z00_4181 =
																			((long) (BgL_arg3170z00_4187) - 48L);
																	}
																	{	/* Llib/date.scm 951 */
																		int BgL_arg3171z00_4188;

																		{	/* Llib/date.scm 948 */
																			int BgL_tmpz00_16261;

																			BgL_tmpz00_16261 = (int) (1L);
																			BgL_arg3171z00_4188 =
																				RGC_BUFFER_BYTE_REF(BgL_iportz00_3952,
																				BgL_tmpz00_16261);
																		}
																		BgL_b2z00_4182 =
																			((long) (BgL_arg3171z00_4188) - 48L);
																	}
																	{	/* Llib/date.scm 952 */
																		int BgL_arg3172z00_4189;

																		{	/* Llib/date.scm 948 */
																			int BgL_tmpz00_16266;

																			BgL_tmpz00_16266 = (int) (3L);
																			BgL_arg3172z00_4189 =
																				RGC_BUFFER_BYTE_REF(BgL_iportz00_3952,
																				BgL_tmpz00_16266);
																		}
																		BgL_b3z00_4183 =
																			((long) (BgL_arg3172z00_4189) - 48L);
																	}
																	{	/* Llib/date.scm 953 */
																		int BgL_arg3173z00_4190;

																		{	/* Llib/date.scm 948 */
																			int BgL_tmpz00_16271;

																			BgL_tmpz00_16271 = (int) (4L);
																			BgL_arg3173z00_4190 =
																				RGC_BUFFER_BYTE_REF(BgL_iportz00_3952,
																				BgL_tmpz00_16271);
																		}
																		BgL_b4z00_4184 =
																			((long) (BgL_arg3173z00_4190) - 48L);
																	}
																	BgL_iportz00_4228 = BgL_iportz00_3952;
																	BgL_yyyyz00_4229 =
																		rgc_buffer_fixnum(BgL_iportz00_3952);
																	{
																		obj_t BgL_iportz00_4282;
																		long BgL_lastzd2matchzd2_4283;
																		long BgL_forwardz00_4284;
																		long BgL_bufposz00_4285;
																		obj_t BgL_iportz00_4297;
																		long BgL_lastzd2matchzd2_4298;
																		long BgL_forwardz00_4299;
																		long BgL_bufposz00_4300;

																		RGC_START_MATCH(BgL_iportz00_4228);
																		{	/* Llib/date.scm 935 */
																			long BgL_matchz00_4436;

																			{	/* Llib/date.scm 935 */
																				long BgL_arg3336z00_4460;
																				long BgL_arg3337z00_4461;

																				BgL_arg3336z00_4460 =
																					RGC_BUFFER_FORWARD(BgL_iportz00_4228);
																				BgL_arg3337z00_4461 =
																					RGC_BUFFER_BUFPOS(BgL_iportz00_4228);
																				{
																					long BgL_forwardz00_9825;
																					long BgL_bufposz00_9826;

																					BgL_forwardz00_9825 =
																						BgL_arg3336z00_4460;
																					BgL_bufposz00_9826 =
																						BgL_arg3337z00_4461;
																				BgL_statezd20zd21130z00_9824:
																					if (
																						(BgL_forwardz00_9825 ==
																							BgL_bufposz00_9826))
																						{	/* Llib/date.scm 935 */
																							if (rgc_fill_buffer
																								(BgL_iportz00_4228))
																								{	/* Llib/date.scm 935 */
																									long BgL_arg3183z00_9832;
																									long BgL_arg3184z00_9833;

																									BgL_arg3183z00_9832 =
																										RGC_BUFFER_FORWARD
																										(BgL_iportz00_4228);
																									BgL_arg3184z00_9833 =
																										RGC_BUFFER_BUFPOS
																										(BgL_iportz00_4228);
																									{
																										long BgL_bufposz00_16286;
																										long BgL_forwardz00_16285;

																										BgL_forwardz00_16285 =
																											BgL_arg3183z00_9832;
																										BgL_bufposz00_16286 =
																											BgL_arg3184z00_9833;
																										BgL_bufposz00_9826 =
																											BgL_bufposz00_16286;
																										BgL_forwardz00_9825 =
																											BgL_forwardz00_16285;
																										goto
																											BgL_statezd20zd21130z00_9824;
																									}
																								}
																							else
																								{	/* Llib/date.scm 935 */
																									BgL_matchz00_4436 = 1L;
																								}
																						}
																					else
																						{	/* Llib/date.scm 935 */
																							int BgL_curz00_9836;

																							BgL_curz00_9836 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_iportz00_4228,
																								BgL_forwardz00_9825);
																							{	/* Llib/date.scm 935 */

																								if (
																									((long) (BgL_curz00_9836) ==
																										45L))
																									{	/* Llib/date.scm 935 */
																										BgL_iportz00_4282 =
																											BgL_iportz00_4228;
																										BgL_lastzd2matchzd2_4283 =
																											1L;
																										BgL_forwardz00_4284 =
																											(1L +
																											BgL_forwardz00_9825);
																										BgL_bufposz00_4285 =
																											BgL_bufposz00_9826;
																									BgL_zc3z04anonymousza33199ze3z87_4286:
																										{	/* Llib/date.scm 935 */
																											long
																												BgL_newzd2matchzd2_4287;
																											RGC_STOP_MATCH
																												(BgL_iportz00_4282,
																												BgL_forwardz00_4284);
																											BgL_newzd2matchzd2_4287 =
																												1L;
																											if ((BgL_forwardz00_4284
																													==
																													BgL_bufposz00_4285))
																												{	/* Llib/date.scm 935 */
																													if (rgc_fill_buffer
																														(BgL_iportz00_4282))
																														{	/* Llib/date.scm 935 */
																															long
																																BgL_arg3203z00_4290;
																															long
																																BgL_arg3204z00_4291;
																															BgL_arg3203z00_4290
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_iportz00_4282);
																															BgL_arg3204z00_4291
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_iportz00_4282);
																															{
																																long
																																	BgL_bufposz00_16299;
																																long
																																	BgL_forwardz00_16298;
																																BgL_forwardz00_16298
																																	=
																																	BgL_arg3203z00_4290;
																																BgL_bufposz00_16299
																																	=
																																	BgL_arg3204z00_4291;
																																BgL_bufposz00_4285
																																	=
																																	BgL_bufposz00_16299;
																																BgL_forwardz00_4284
																																	=
																																	BgL_forwardz00_16298;
																																goto
																																	BgL_zc3z04anonymousza33199ze3z87_4286;
																															}
																														}
																													else
																														{	/* Llib/date.scm 935 */
																															BgL_matchz00_4436
																																=
																																BgL_newzd2matchzd2_4287;
																														}
																												}
																											else
																												{	/* Llib/date.scm 935 */
																													int BgL_curz00_4292;

																													BgL_curz00_4292 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_iportz00_4282,
																														BgL_forwardz00_4284);
																													{	/* Llib/date.scm 935 */

																														{	/* Llib/date.scm 935 */
																															bool_t
																																BgL_test5945z00_16301;
																															if (((long)
																																	(BgL_curz00_4292)
																																	>= 48L))
																																{	/* Llib/date.scm 935 */
																																	BgL_test5945z00_16301
																																		=
																																		((long)
																																		(BgL_curz00_4292)
																																		< 58L);
																																}
																															else
																																{	/* Llib/date.scm 935 */
																																	BgL_test5945z00_16301
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test5945z00_16301)
																																{	/* Llib/date.scm 935 */
																																	BgL_iportz00_4297
																																		=
																																		BgL_iportz00_4282;
																																	BgL_lastzd2matchzd2_4298
																																		=
																																		BgL_newzd2matchzd2_4287;
																																	BgL_forwardz00_4299
																																		=
																																		(1L +
																																		BgL_forwardz00_4284);
																																	BgL_bufposz00_4300
																																		=
																																		BgL_bufposz00_4285;
																																BgL_zc3z04anonymousza33208ze3z87_4301:
																																	if (
																																		(BgL_forwardz00_4299
																																			==
																																			BgL_bufposz00_4300))
																																		{	/* Llib/date.scm 935 */
																																			if (rgc_fill_buffer(BgL_iportz00_4297))
																																				{	/* Llib/date.scm 935 */
																																					long
																																						BgL_arg3211z00_4304;
																																					long
																																						BgL_arg3212z00_4305;
																																					BgL_arg3211z00_4304
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_iportz00_4297);
																																					BgL_arg3212z00_4305
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_iportz00_4297);
																																					{
																																						long
																																							BgL_bufposz00_16314;
																																						long
																																							BgL_forwardz00_16313;
																																						BgL_forwardz00_16313
																																							=
																																							BgL_arg3211z00_4304;
																																						BgL_bufposz00_16314
																																							=
																																							BgL_arg3212z00_4305;
																																						BgL_bufposz00_4300
																																							=
																																							BgL_bufposz00_16314;
																																						BgL_forwardz00_4299
																																							=
																																							BgL_forwardz00_16313;
																																						goto
																																							BgL_zc3z04anonymousza33208ze3z87_4301;
																																					}
																																				}
																																			else
																																				{	/* Llib/date.scm 935 */
																																					BgL_matchz00_4436
																																						=
																																						BgL_lastzd2matchzd2_4298;
																																				}
																																		}
																																	else
																																		{	/* Llib/date.scm 935 */
																																			int
																																				BgL_curz00_4306;
																																			BgL_curz00_4306
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_iportz00_4297,
																																				BgL_forwardz00_4299);
																																			{	/* Llib/date.scm 935 */

																																				{	/* Llib/date.scm 935 */
																																					bool_t
																																						BgL_test5949z00_16316;
																																					if ((
																																							(long)
																																							(BgL_curz00_4306)
																																							>=
																																							48L))
																																						{	/* Llib/date.scm 935 */
																																							BgL_test5949z00_16316
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_4306)
																																								<
																																								58L);
																																						}
																																					else
																																						{	/* Llib/date.scm 935 */
																																							BgL_test5949z00_16316
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test5949z00_16316)
																																						{	/* Llib/date.scm 935 */
																																							long
																																								BgL_arg3215z00_4309;
																																							BgL_arg3215z00_4309
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_4299);
																																							{	/* Llib/date.scm 935 */
																																								long
																																									BgL_newzd2matchzd2_9810;
																																								RGC_STOP_MATCH
																																									(BgL_iportz00_4297,
																																									BgL_arg3215z00_4309);
																																								BgL_newzd2matchzd2_9810
																																									=
																																									0L;
																																								BgL_matchz00_4436
																																									=
																																									BgL_newzd2matchzd2_9810;
																																						}}
																																					else
																																						{	/* Llib/date.scm 935 */
																																							BgL_matchz00_4436
																																								=
																																								BgL_lastzd2matchzd2_4298;
																																						}
																																				}
																																			}
																																		}
																																}
																															else
																																{	/* Llib/date.scm 935 */
																																	BgL_matchz00_4436
																																		=
																																		BgL_newzd2matchzd2_4287;
																																}
																														}
																													}
																												}
																										}
																									}
																								else
																									{	/* Llib/date.scm 935 */
																										long BgL_arg3197z00_9843;

																										BgL_arg3197z00_9843 =
																											(1L +
																											BgL_forwardz00_9825);
																										{	/* Llib/date.scm 935 */
																											long
																												BgL_newzd2matchzd2_9845;
																											RGC_STOP_MATCH
																												(BgL_iportz00_4228,
																												BgL_arg3197z00_9843);
																											BgL_newzd2matchzd2_9845 =
																												1L;
																											BgL_matchz00_4436 =
																												BgL_newzd2matchzd2_9845;
																			}}}}}}
																			RGC_SET_FILEPOS(BgL_iportz00_4228);
																			switch (BgL_matchz00_4436)
																				{
																				case 1L:

																					{	/* Llib/date.scm 942 */
																						bool_t BgL_test5951z00_16329;

																						{	/* Llib/date.scm 942 */
																							obj_t BgL_tmpz00_16330;

																							BgL_tmpz00_16330 =
																								BGl_thezd2failureze77z35zz__datez00
																								(BgL_iportz00_4228);
																							BgL_test5951z00_16329 =
																								EOF_OBJECTP(BgL_tmpz00_16330);
																						}
																						if (BgL_test5951z00_16329)
																							{	/* Llib/date.scm 942 */
																								if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BFALSE))
																									{	/* Llib/date.scm 233 */
																										long BgL_tmpz00_16335;

																										{	/* Llib/date.scm 943 */
																											obj_t
																												BgL_aux4895z00_10552;
																											BgL_aux4895z00_10552 =
																												BFALSE;
																											{
																												obj_t BgL_auxz00_16342;

																												BgL_auxz00_16342 =
																													BGl_typezd2errorzd2zz__errorz00
																													(BGl_string4971z00zz__datez00,
																													BINT(39894L),
																													BGl_string5072z00zz__datez00,
																													BGl_string5073z00zz__datez00,
																													BgL_aux4895z00_10552);
																												FAILURE
																													(BgL_auxz00_16342,
																													BFALSE, BFALSE);
																										}}
																										BgL_tmpz00_16335 = 0L;
																										return
																											bgl_make_date((
																												(BGL_LONGLONG_T) 0),
																											(int) (0L), (int) (0L),
																											(int) (1L), (int) (1L),
																											(int) (1L),
																											(int) (BgL_yyyyz00_4229),
																											BgL_tmpz00_16335,
																											((bool_t) 1),
																											(int) ((-1L)));
																									}
																								else
																									{	/* Llib/date.scm 232 */
																										return
																											bgl_make_date((
																												(BGL_LONGLONG_T) 0),
																											(int) (0L), (int) (0L),
																											(int) (1L), (int) (1L),
																											(int) (1L),
																											(int) (BgL_yyyyz00_4229),
																											0L, ((bool_t) 0),
																											(int) ((-1L)));
																							}}
																						else
																							{	/* Llib/date.scm 942 */
																								return
																									BGl_parsezd2errorzd2zz__datez00
																									(BGl_string5071z00zz__datez00,
																									BGl_string4943z00zz__datez00,
																									BGl_thezd2failureze77z35zz__datez00
																									(BgL_iportz00_4228),
																									BgL_iportz00_4228);
																							}
																					}
																					break;
																				case 0L:

																					{	/* Llib/date.scm 937 */
																						long BgL_b1z00_4453;
																						long BgL_b2z00_4454;

																						{	/* Llib/date.scm 937 */
																							int BgL_arg3333z00_4458;

																							{	/* Llib/date.scm 935 */
																								int BgL_tmpz00_16358;

																								BgL_tmpz00_16358 = (int) (1L);
																								BgL_arg3333z00_4458 =
																									RGC_BUFFER_BYTE_REF
																									(BgL_iportz00_4228,
																									BgL_tmpz00_16358);
																							}
																							BgL_b1z00_4453 =
																								(
																								(long) (BgL_arg3333z00_4458) -
																								48L);
																						}
																						{	/* Llib/date.scm 938 */
																							int BgL_arg3335z00_4459;

																							{	/* Llib/date.scm 935 */
																								int BgL_tmpz00_16363;

																								BgL_tmpz00_16363 = (int) (2L);
																								BgL_arg3335z00_4459 =
																									RGC_BUFFER_BYTE_REF
																									(BgL_iportz00_4228,
																									BgL_tmpz00_16363);
																							}
																							BgL_b2z00_4454 =
																								(
																								(long) (BgL_arg3335z00_4459) -
																								48L);
																						}
																						BgL_iportz00_4496 =
																							BgL_iportz00_4228;
																						BgL_yyyyz00_4497 = BgL_yyyyz00_4229;
																						BgL_mmz00_4498 =
																							(
																							(BgL_b1z00_4453 * 10L) +
																							BgL_b2z00_4454);
																						{
																							obj_t BgL_iportz00_4551;
																							long BgL_lastzd2matchzd2_4552;
																							long BgL_forwardz00_4553;
																							long BgL_bufposz00_4554;
																							obj_t BgL_iportz00_4566;
																							long BgL_lastzd2matchzd2_4567;
																							long BgL_forwardz00_4568;
																							long BgL_bufposz00_4569;

																							RGC_START_MATCH
																								(BgL_iportz00_4496);
																							{	/* Llib/date.scm 921 */
																								long BgL_matchz00_4705;

																								{	/* Llib/date.scm 921 */
																									long BgL_arg3476z00_4729;
																									long BgL_arg3478z00_4730;

																									BgL_arg3476z00_4729 =
																										RGC_BUFFER_FORWARD
																										(BgL_iportz00_4496);
																									BgL_arg3478z00_4730 =
																										RGC_BUFFER_BUFPOS
																										(BgL_iportz00_4496);
																									{
																										long BgL_forwardz00_9738;
																										long BgL_bufposz00_9739;

																										BgL_forwardz00_9738 =
																											BgL_arg3476z00_4729;
																										BgL_bufposz00_9739 =
																											BgL_arg3478z00_4730;
																									BgL_statezd20zd21122z00_9737:
																										if (
																											(BgL_forwardz00_9738 ==
																												BgL_bufposz00_9739))
																											{	/* Llib/date.scm 921 */
																												if (rgc_fill_buffer
																													(BgL_iportz00_4496))
																													{	/* Llib/date.scm 921 */
																														long
																															BgL_arg3342z00_9745;
																														long
																															BgL_arg3343z00_9746;
																														BgL_arg3342z00_9745
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_iportz00_4496);
																														BgL_arg3343z00_9746
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_iportz00_4496);
																														{
																															long
																																BgL_bufposz00_16378;
																															long
																																BgL_forwardz00_16377;
																															BgL_forwardz00_16377
																																=
																																BgL_arg3342z00_9745;
																															BgL_bufposz00_16378
																																=
																																BgL_arg3343z00_9746;
																															BgL_bufposz00_9739
																																=
																																BgL_bufposz00_16378;
																															BgL_forwardz00_9738
																																=
																																BgL_forwardz00_16377;
																															goto
																																BgL_statezd20zd21122z00_9737;
																														}
																													}
																												else
																													{	/* Llib/date.scm 921 */
																														BgL_matchz00_4705 =
																															1L;
																													}
																											}
																										else
																											{	/* Llib/date.scm 921 */
																												int BgL_curz00_9749;

																												BgL_curz00_9749 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_iportz00_4496,
																													BgL_forwardz00_9738);
																												{	/* Llib/date.scm 921 */

																													if (
																														((long)
																															(BgL_curz00_9749)
																															== 45L))
																														{	/* Llib/date.scm 921 */
																															BgL_iportz00_4551
																																=
																																BgL_iportz00_4496;
																															BgL_lastzd2matchzd2_4552
																																= 1L;
																															BgL_forwardz00_4553
																																=
																																(1L +
																																BgL_forwardz00_9738);
																															BgL_bufposz00_4554
																																=
																																BgL_bufposz00_9739;
																														BgL_zc3z04anonymousza33349ze3z87_4555:
																															{	/* Llib/date.scm 921 */
																																long
																																	BgL_newzd2matchzd2_4556;
																																RGC_STOP_MATCH
																																	(BgL_iportz00_4551,
																																	BgL_forwardz00_4553);
																																BgL_newzd2matchzd2_4556
																																	= 1L;
																																if (
																																	(BgL_forwardz00_4553
																																		==
																																		BgL_bufposz00_4554))
																																	{	/* Llib/date.scm 921 */
																																		if (rgc_fill_buffer(BgL_iportz00_4551))
																																			{	/* Llib/date.scm 921 */
																																				long
																																					BgL_arg3352z00_4559;
																																				long
																																					BgL_arg3353z00_4560;
																																				BgL_arg3352z00_4559
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_iportz00_4551);
																																				BgL_arg3353z00_4560
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_iportz00_4551);
																																				{
																																					long
																																						BgL_bufposz00_16391;
																																					long
																																						BgL_forwardz00_16390;
																																					BgL_forwardz00_16390
																																						=
																																						BgL_arg3352z00_4559;
																																					BgL_bufposz00_16391
																																						=
																																						BgL_arg3353z00_4560;
																																					BgL_bufposz00_4554
																																						=
																																						BgL_bufposz00_16391;
																																					BgL_forwardz00_4553
																																						=
																																						BgL_forwardz00_16390;
																																					goto
																																						BgL_zc3z04anonymousza33349ze3z87_4555;
																																				}
																																			}
																																		else
																																			{	/* Llib/date.scm 921 */
																																				BgL_matchz00_4705
																																					=
																																					BgL_newzd2matchzd2_4556;
																																			}
																																	}
																																else
																																	{	/* Llib/date.scm 921 */
																																		int
																																			BgL_curz00_4561;
																																		BgL_curz00_4561
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_iportz00_4551,
																																			BgL_forwardz00_4553);
																																		{	/* Llib/date.scm 921 */

																																			{	/* Llib/date.scm 921 */
																																				bool_t
																																					BgL_test5958z00_16393;
																																				if ((
																																						(long)
																																						(BgL_curz00_4561)
																																						>=
																																						48L))
																																					{	/* Llib/date.scm 921 */
																																						BgL_test5958z00_16393
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_4561)
																																							<
																																							58L);
																																					}
																																				else
																																					{	/* Llib/date.scm 921 */
																																						BgL_test5958z00_16393
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test5958z00_16393)
																																					{	/* Llib/date.scm 921 */
																																						BgL_iportz00_4566
																																							=
																																							BgL_iportz00_4551;
																																						BgL_lastzd2matchzd2_4567
																																							=
																																							BgL_newzd2matchzd2_4556;
																																						BgL_forwardz00_4568
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_4553);
																																						BgL_bufposz00_4569
																																							=
																																							BgL_bufposz00_4554;
																																					BgL_zc3z04anonymousza33358ze3z87_4570:
																																						if (
																																							(BgL_forwardz00_4568
																																								==
																																								BgL_bufposz00_4569))
																																							{	/* Llib/date.scm 921 */
																																								if (rgc_fill_buffer(BgL_iportz00_4566))
																																									{	/* Llib/date.scm 921 */
																																										long
																																											BgL_arg3362z00_4573;
																																										long
																																											BgL_arg3363z00_4574;
																																										BgL_arg3362z00_4573
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_4566);
																																										BgL_arg3363z00_4574
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_4566);
																																										{
																																											long
																																												BgL_bufposz00_16406;
																																											long
																																												BgL_forwardz00_16405;
																																											BgL_forwardz00_16405
																																												=
																																												BgL_arg3362z00_4573;
																																											BgL_bufposz00_16406
																																												=
																																												BgL_arg3363z00_4574;
																																											BgL_bufposz00_4569
																																												=
																																												BgL_bufposz00_16406;
																																											BgL_forwardz00_4568
																																												=
																																												BgL_forwardz00_16405;
																																											goto
																																												BgL_zc3z04anonymousza33358ze3z87_4570;
																																										}
																																									}
																																								else
																																									{	/* Llib/date.scm 921 */
																																										BgL_matchz00_4705
																																											=
																																											BgL_lastzd2matchzd2_4567;
																																									}
																																							}
																																						else
																																							{	/* Llib/date.scm 921 */
																																								int
																																									BgL_curz00_4575;
																																								BgL_curz00_4575
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_4566,
																																									BgL_forwardz00_4568);
																																								{	/* Llib/date.scm 921 */

																																									{	/* Llib/date.scm 921 */
																																										bool_t
																																											BgL_test5962z00_16408;
																																										if (((long) (BgL_curz00_4575) >= 48L))
																																											{	/* Llib/date.scm 921 */
																																												BgL_test5962z00_16408
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_4575)
																																													<
																																													58L);
																																											}
																																										else
																																											{	/* Llib/date.scm 921 */
																																												BgL_test5962z00_16408
																																													=
																																													(
																																													(bool_t)
																																													0);
																																											}
																																										if (BgL_test5962z00_16408)
																																											{	/* Llib/date.scm 921 */
																																												long
																																													BgL_arg3367z00_4578;
																																												BgL_arg3367z00_4578
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_4568);
																																												{	/* Llib/date.scm 921 */
																																													long
																																														BgL_newzd2matchzd2_9723;
																																													RGC_STOP_MATCH
																																														(BgL_iportz00_4566,
																																														BgL_arg3367z00_4578);
																																													BgL_newzd2matchzd2_9723
																																														=
																																														0L;
																																													BgL_matchz00_4705
																																														=
																																														BgL_newzd2matchzd2_9723;
																																											}}
																																										else
																																											{	/* Llib/date.scm 921 */
																																												BgL_matchz00_4705
																																													=
																																													BgL_lastzd2matchzd2_4567;
																																											}
																																									}
																																								}
																																							}
																																					}
																																				else
																																					{	/* Llib/date.scm 921 */
																																						BgL_matchz00_4705
																																							=
																																							BgL_newzd2matchzd2_4556;
																																					}
																																			}
																																		}
																																	}
																															}
																														}
																													else
																														{	/* Llib/date.scm 921 */
																															long
																																BgL_arg3347z00_9756;
																															BgL_arg3347z00_9756
																																=
																																(1L +
																																BgL_forwardz00_9738);
																															{	/* Llib/date.scm 921 */
																																long
																																	BgL_newzd2matchzd2_9758;
																																RGC_STOP_MATCH
																																	(BgL_iportz00_4496,
																																	BgL_arg3347z00_9756);
																																BgL_newzd2matchzd2_9758
																																	= 1L;
																																BgL_matchz00_4705
																																	=
																																	BgL_newzd2matchzd2_9758;
																								}}}}}}
																								RGC_SET_FILEPOS
																									(BgL_iportz00_4496);
																								switch (BgL_matchz00_4705)
																									{
																									case 1L:

																										{	/* Llib/date.scm 928 */
																											bool_t
																												BgL_test5964z00_16421;
																											{	/* Llib/date.scm 928 */
																												obj_t BgL_tmpz00_16422;

																												BgL_tmpz00_16422 =
																													BGl_thezd2failureze76z35zz__datez00
																													(BgL_iportz00_4496);
																												BgL_test5964z00_16421 =
																													EOF_OBJECTP
																													(BgL_tmpz00_16422);
																											}
																											if (BgL_test5964z00_16421)
																												{	/* Llib/date.scm 928 */
																													if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BFALSE))
																														{	/* Llib/date.scm 233 */
																															long
																																BgL_tmpz00_16427;
																															{	/* Llib/date.scm 929 */
																																obj_t
																																	BgL_aux4894z00_10551;
																																BgL_aux4894z00_10551
																																	= BFALSE;
																																{
																																	obj_t
																																		BgL_auxz00_16434;
																																	BgL_auxz00_16434
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string4971z00zz__datez00,
																																		BINT
																																		(39503L),
																																		BGl_string5072z00zz__datez00,
																																		BGl_string5073z00zz__datez00,
																																		BgL_aux4894z00_10551);
																																	FAILURE
																																		(BgL_auxz00_16434,
																																		BFALSE,
																																		BFALSE);
																															}}
																															BgL_tmpz00_16427 =
																																0L;
																															return
																																bgl_make_date((
																																	(BGL_LONGLONG_T)
																																	0),
																																(int) (0L),
																																(int) (0L),
																																(int) (1L),
																																(int) (1L),
																																(int)
																																(BgL_mmz00_4498),
																																(int)
																																(BgL_yyyyz00_4497),
																																BgL_tmpz00_16427,
																																((bool_t) 1),
																																(int) ((-1L)));
																														}
																													else
																														{	/* Llib/date.scm 232 */
																															return
																																bgl_make_date((
																																	(BGL_LONGLONG_T)
																																	0),
																																(int) (0L),
																																(int) (0L),
																																(int) (1L),
																																(int) (1L),
																																(int)
																																(BgL_mmz00_4498),
																																(int)
																																(BgL_yyyyz00_4497),
																																0L,
																																((bool_t) 0),
																																(int) ((-1L)));
																												}}
																											else
																												{	/* Llib/date.scm 928 */
																													return
																														BGl_parsezd2errorzd2zz__datez00
																														(BGl_string5071z00zz__datez00,
																														BGl_string4943z00zz__datez00,
																														BGl_thezd2failureze76z35zz__datez00
																														(BgL_iportz00_4496),
																														BgL_iportz00_4496);
																												}
																										}
																										break;
																									case 0L:

																										{	/* Llib/date.scm 923 */
																											long BgL_b1z00_4722;
																											long BgL_b2z00_4723;

																											{	/* Llib/date.scm 923 */
																												int BgL_arg3473z00_4727;

																												{	/* Llib/date.scm 921 */
																													int BgL_tmpz00_16450;

																													BgL_tmpz00_16450 =
																														(int) (1L);
																													BgL_arg3473z00_4727 =
																														RGC_BUFFER_BYTE_REF
																														(BgL_iportz00_4496,
																														BgL_tmpz00_16450);
																												}
																												BgL_b1z00_4722 =
																													(
																													(long)
																													(BgL_arg3473z00_4727)
																													- 48L);
																											}
																											{	/* Llib/date.scm 924 */
																												int BgL_arg3475z00_4728;

																												{	/* Llib/date.scm 921 */
																													int BgL_tmpz00_16455;

																													BgL_tmpz00_16455 =
																														(int) (2L);
																													BgL_arg3475z00_4728 =
																														RGC_BUFFER_BYTE_REF
																														(BgL_iportz00_4496,
																														BgL_tmpz00_16455);
																												}
																												BgL_b2z00_4723 =
																													(
																													(long)
																													(BgL_arg3475z00_4728)
																													- 48L);
																											}
																											BgL_iportz00_4765 =
																												BgL_iportz00_4496;
																											BgL_yyyyz00_4766 =
																												BgL_yyyyz00_4497;
																											BgL_mmz00_4767 =
																												BgL_mmz00_4498;
																											BgL_ddz00_4768 =
																												((BgL_b1z00_4722 *
																													10L) +
																												BgL_b2z00_4723);
																											{
																												obj_t BgL_iportz00_4802;
																												long
																													BgL_lastzd2matchzd2_4803;
																												long
																													BgL_forwardz00_4804;
																												long BgL_bufposz00_4805;
																												obj_t BgL_iportz00_4823;
																												long
																													BgL_lastzd2matchzd2_4824;
																												long
																													BgL_forwardz00_4825;
																												long BgL_bufposz00_4826;
																												obj_t BgL_iportz00_4838;
																												long
																													BgL_lastzd2matchzd2_4839;
																												long
																													BgL_forwardz00_4840;
																												long BgL_bufposz00_4841;

																												RGC_START_MATCH
																													(BgL_iportz00_4765);
																												{	/* Llib/date.scm 906 */
																													long
																														BgL_matchz00_4977;
																													{	/* Llib/date.scm 906 */
																														long
																															BgL_arg3615z00_5001;
																														long
																															BgL_arg3616z00_5002;
																														BgL_arg3615z00_5001
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_iportz00_4765);
																														BgL_arg3616z00_5002
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_iportz00_4765);
																														BgL_iportz00_4802 =
																															BgL_iportz00_4765;
																														BgL_lastzd2matchzd2_4803
																															= 1L;
																														BgL_forwardz00_4804
																															=
																															BgL_arg3615z00_5001;
																														BgL_bufposz00_4805 =
																															BgL_arg3616z00_5002;
																													BgL_zc3z04anonymousza33480ze3z87_4806:
																														if (
																															(BgL_forwardz00_4804
																																==
																																BgL_bufposz00_4805))
																															{	/* Llib/date.scm 906 */
																																if (rgc_fill_buffer(BgL_iportz00_4802))
																																	{	/* Llib/date.scm 906 */
																																		long
																																			BgL_arg3483z00_4809;
																																		long
																																			BgL_arg3485z00_4810;
																																		BgL_arg3483z00_4809
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_iportz00_4802);
																																		BgL_arg3485z00_4810
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_iportz00_4802);
																																		{
																																			long
																																				BgL_bufposz00_16470;
																																			long
																																				BgL_forwardz00_16469;
																																			BgL_forwardz00_16469
																																				=
																																				BgL_arg3483z00_4809;
																																			BgL_bufposz00_16470
																																				=
																																				BgL_arg3485z00_4810;
																																			BgL_bufposz00_4805
																																				=
																																				BgL_bufposz00_16470;
																																			BgL_forwardz00_4804
																																				=
																																				BgL_forwardz00_16469;
																																			goto
																																				BgL_zc3z04anonymousza33480ze3z87_4806;
																																		}
																																	}
																																else
																																	{	/* Llib/date.scm 906 */
																																		BgL_matchz00_4977
																																			=
																																			BgL_lastzd2matchzd2_4803;
																																	}
																															}
																														else
																															{	/* Llib/date.scm 906 */
																																int
																																	BgL_curz00_4811;
																																BgL_curz00_4811
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_iportz00_4802,
																																	BgL_forwardz00_4804);
																																{	/* Llib/date.scm 906 */

																																	{	/* Llib/date.scm 906 */
																																		bool_t
																																			BgL_test5968z00_16472;
																																		if (((long)
																																				(BgL_curz00_4811)
																																				== 32L))
																																			{	/* Llib/date.scm 906 */
																																				BgL_test5968z00_16472
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Llib/date.scm 906 */
																																				BgL_test5968z00_16472
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_4811)
																																					==
																																					84L);
																																			}
																																		if (BgL_test5968z00_16472)
																																			{	/* Llib/date.scm 906 */
																																				BgL_iportz00_4823
																																					=
																																					BgL_iportz00_4802;
																																				BgL_lastzd2matchzd2_4824
																																					=
																																					BgL_lastzd2matchzd2_4803;
																																				BgL_forwardz00_4825
																																					=
																																					(1L +
																																					BgL_forwardz00_4804);
																																				BgL_bufposz00_4826
																																					=
																																					BgL_bufposz00_4805;
																																			BgL_zc3z04anonymousza33491ze3z87_4827:
																																				{	/* Llib/date.scm 906 */
																																					long
																																						BgL_newzd2matchzd2_4828;
																																					RGC_STOP_MATCH
																																						(BgL_iportz00_4823,
																																						BgL_forwardz00_4825);
																																					BgL_newzd2matchzd2_4828
																																						=
																																						1L;
																																					if (
																																						(BgL_forwardz00_4825
																																							==
																																							BgL_bufposz00_4826))
																																						{	/* Llib/date.scm 906 */
																																							if (rgc_fill_buffer(BgL_iportz00_4823))
																																								{	/* Llib/date.scm 906 */
																																									long
																																										BgL_arg3494z00_4831;
																																									long
																																										BgL_arg3495z00_4832;
																																									BgL_arg3494z00_4831
																																										=
																																										RGC_BUFFER_FORWARD
																																										(BgL_iportz00_4823);
																																									BgL_arg3495z00_4832
																																										=
																																										RGC_BUFFER_BUFPOS
																																										(BgL_iportz00_4823);
																																									{
																																										long
																																											BgL_bufposz00_16486;
																																										long
																																											BgL_forwardz00_16485;
																																										BgL_forwardz00_16485
																																											=
																																											BgL_arg3494z00_4831;
																																										BgL_bufposz00_16486
																																											=
																																											BgL_arg3495z00_4832;
																																										BgL_bufposz00_4826
																																											=
																																											BgL_bufposz00_16486;
																																										BgL_forwardz00_4825
																																											=
																																											BgL_forwardz00_16485;
																																										goto
																																											BgL_zc3z04anonymousza33491ze3z87_4827;
																																									}
																																								}
																																							else
																																								{	/* Llib/date.scm 906 */
																																									BgL_matchz00_4977
																																										=
																																										BgL_newzd2matchzd2_4828;
																																								}
																																						}
																																					else
																																						{	/* Llib/date.scm 906 */
																																							int
																																								BgL_curz00_4833;
																																							BgL_curz00_4833
																																								=
																																								RGC_BUFFER_GET_CHAR
																																								(BgL_iportz00_4823,
																																								BgL_forwardz00_4825);
																																							{	/* Llib/date.scm 906 */

																																								{	/* Llib/date.scm 906 */
																																									bool_t
																																										BgL_test5972z00_16488;
																																									if (((long) (BgL_curz00_4833) >= 48L))
																																										{	/* Llib/date.scm 906 */
																																											BgL_test5972z00_16488
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_4833)
																																												<
																																												58L);
																																										}
																																									else
																																										{	/* Llib/date.scm 906 */
																																											BgL_test5972z00_16488
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test5972z00_16488)
																																										{	/* Llib/date.scm 906 */
																																											BgL_iportz00_4838
																																												=
																																												BgL_iportz00_4823;
																																											BgL_lastzd2matchzd2_4839
																																												=
																																												BgL_newzd2matchzd2_4828;
																																											BgL_forwardz00_4840
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_4825);
																																											BgL_bufposz00_4841
																																												=
																																												BgL_bufposz00_4826;
																																										BgL_zc3z04anonymousza33499ze3z87_4842:
																																											if ((BgL_forwardz00_4840 == BgL_bufposz00_4841))
																																												{	/* Llib/date.scm 906 */
																																													if (rgc_fill_buffer(BgL_iportz00_4838))
																																														{	/* Llib/date.scm 906 */
																																															long
																																																BgL_arg3502z00_4845;
																																															long
																																																BgL_arg3503z00_4846;
																																															BgL_arg3502z00_4845
																																																=
																																																RGC_BUFFER_FORWARD
																																																(BgL_iportz00_4838);
																																															BgL_arg3503z00_4846
																																																=
																																																RGC_BUFFER_BUFPOS
																																																(BgL_iportz00_4838);
																																															{
																																																long
																																																	BgL_bufposz00_16501;
																																																long
																																																	BgL_forwardz00_16500;
																																																BgL_forwardz00_16500
																																																	=
																																																	BgL_arg3502z00_4845;
																																																BgL_bufposz00_16501
																																																	=
																																																	BgL_arg3503z00_4846;
																																																BgL_bufposz00_4841
																																																	=
																																																	BgL_bufposz00_16501;
																																																BgL_forwardz00_4840
																																																	=
																																																	BgL_forwardz00_16500;
																																																goto
																																																	BgL_zc3z04anonymousza33499ze3z87_4842;
																																															}
																																														}
																																													else
																																														{	/* Llib/date.scm 906 */
																																															BgL_matchz00_4977
																																																=
																																																BgL_lastzd2matchzd2_4839;
																																														}
																																												}
																																											else
																																												{	/* Llib/date.scm 906 */
																																													int
																																														BgL_curz00_4847;
																																													BgL_curz00_4847
																																														=
																																														RGC_BUFFER_GET_CHAR
																																														(BgL_iportz00_4838,
																																														BgL_forwardz00_4840);
																																													{	/* Llib/date.scm 906 */

																																														{	/* Llib/date.scm 906 */
																																															bool_t
																																																BgL_test5976z00_16503;
																																															if (((long) (BgL_curz00_4847) >= 48L))
																																																{	/* Llib/date.scm 906 */
																																																	BgL_test5976z00_16503
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_4847)
																																																		<
																																																		58L);
																																																}
																																															else
																																																{	/* Llib/date.scm 906 */
																																																	BgL_test5976z00_16503
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test5976z00_16503)
																																																{	/* Llib/date.scm 906 */
																																																	long
																																																		BgL_arg3507z00_4850;
																																																	BgL_arg3507z00_4850
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_4840);
																																																	{	/* Llib/date.scm 906 */
																																																		long
																																																			BgL_newzd2matchzd2_9660;
																																																		RGC_STOP_MATCH
																																																			(BgL_iportz00_4838,
																																																			BgL_arg3507z00_4850);
																																																		BgL_newzd2matchzd2_9660
																																																			=
																																																			0L;
																																																		BgL_matchz00_4977
																																																			=
																																																			BgL_newzd2matchzd2_9660;
																																																}}
																																															else
																																																{	/* Llib/date.scm 906 */
																																																	BgL_matchz00_4977
																																																		=
																																																		BgL_lastzd2matchzd2_4839;
																																																}
																																														}
																																													}
																																												}
																																										}
																																									else
																																										{	/* Llib/date.scm 906 */
																																											BgL_matchz00_4977
																																												=
																																												BgL_newzd2matchzd2_4828;
																																										}
																																								}
																																							}
																																						}
																																				}
																																			}
																																		else
																																			{	/* Llib/date.scm 906 */
																																				long
																																					BgL_arg3489z00_4815;
																																				BgL_arg3489z00_4815
																																					=
																																					(1L +
																																					BgL_forwardz00_4804);
																																				{	/* Llib/date.scm 906 */
																																					long
																																						BgL_newzd2matchzd2_9632;
																																					RGC_STOP_MATCH
																																						(BgL_iportz00_4802,
																																						BgL_arg3489z00_4815);
																																					BgL_newzd2matchzd2_9632
																																						=
																																						1L;
																																					BgL_matchz00_4977
																																						=
																																						BgL_newzd2matchzd2_9632;
																													}}}}}}
																													RGC_SET_FILEPOS
																														(BgL_iportz00_4765);
																													switch
																														(BgL_matchz00_4977)
																														{
																														case 1L:

																															{	/* Llib/date.scm 914 */
																																bool_t
																																	BgL_test5978z00_16516;
																																{	/* Llib/date.scm 914 */
																																	obj_t
																																		BgL_tmpz00_16517;
																																	BgL_tmpz00_16517
																																		=
																																		BGl_thezd2failureze75z35zz__datez00
																																		(BgL_iportz00_4765);
																																	BgL_test5978z00_16516
																																		=
																																		EOF_OBJECTP
																																		(BgL_tmpz00_16517);
																																}
																																if (BgL_test5978z00_16516)
																																	{	/* Llib/date.scm 914 */
																																		if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BFALSE))
																																			{	/* Llib/date.scm 233 */
																																				long
																																					BgL_tmpz00_16522;
																																				{	/* Llib/date.scm 915 */
																																					obj_t
																																						BgL_aux4893z00_10550;
																																					BgL_aux4893z00_10550
																																						=
																																						BFALSE;
																																					{
																																						obj_t
																																							BgL_auxz00_16529;
																																						BgL_auxz00_16529
																																							=
																																							BGl_typezd2errorzd2zz__errorz00
																																							(BGl_string4971z00zz__datez00,
																																							BINT
																																							(39101L),
																																							BGl_string5072z00zz__datez00,
																																							BGl_string5073z00zz__datez00,
																																							BgL_aux4893z00_10550);
																																						FAILURE
																																							(BgL_auxz00_16529,
																																							BFALSE,
																																							BFALSE);
																																				}}
																																				BgL_tmpz00_16522
																																					= 0L;
																																				return
																																					bgl_make_date
																																					(((BGL_LONGLONG_T) 0), (int) (0L), (int) (0L), (int) (1L), (int) (BgL_ddz00_4768), (int) (BgL_mmz00_4767), (int) (BgL_yyyyz00_4766), BgL_tmpz00_16522, ((bool_t) 1), (int) ((-1L)));
																																			}
																																		else
																																			{	/* Llib/date.scm 232 */
																																				return
																																					bgl_make_date
																																					(((BGL_LONGLONG_T) 0), (int) (0L), (int) (0L), (int) (1L), (int) (BgL_ddz00_4768), (int) (BgL_mmz00_4767), (int) (BgL_yyyyz00_4766), 0L, ((bool_t) 0), (int) ((-1L)));
																																	}}
																																else
																																	{	/* Llib/date.scm 914 */
																																		return
																																			BGl_parsezd2errorzd2zz__datez00
																																			(BGl_string5071z00zz__datez00,
																																			BGl_string4943z00zz__datez00,
																																			BGl_thezd2failureze75z35zz__datez00
																																			(BgL_iportz00_4765),
																																			BgL_iportz00_4765);
																																	}
																															}
																															break;
																														case 0L:

																															{	/* Llib/date.scm 909 */
																																long
																																	BgL_b1z00_4994;
																																long
																																	BgL_b2z00_4995;
																																{	/* Llib/date.scm 909 */
																																	int
																																		BgL_arg3613z00_4999;
																																	{	/* Llib/date.scm 906 */
																																		int
																																			BgL_tmpz00_16545;
																																		BgL_tmpz00_16545
																																			=
																																			(int)
																																			(1L);
																																		BgL_arg3613z00_4999
																																			=
																																			RGC_BUFFER_BYTE_REF
																																			(BgL_iportz00_4765,
																																			BgL_tmpz00_16545);
																																	}
																																	BgL_b1z00_4994
																																		=
																																		((long)
																																		(BgL_arg3613z00_4999)
																																		- 48L);
																																}
																																{	/* Llib/date.scm 910 */
																																	int
																																		BgL_arg3614z00_5000;
																																	{	/* Llib/date.scm 906 */
																																		int
																																			BgL_tmpz00_16550;
																																		BgL_tmpz00_16550
																																			=
																																			(int)
																																			(2L);
																																		BgL_arg3614z00_5000
																																			=
																																			RGC_BUFFER_BYTE_REF
																																			(BgL_iportz00_4765,
																																			BgL_tmpz00_16550);
																																	}
																																	BgL_b2z00_4995
																																		=
																																		((long)
																																		(BgL_arg3614z00_5000)
																																		- 48L);
																																}
																																BgL_iportz00_5037
																																	=
																																	BgL_iportz00_4765;
																																BgL_yyyyz00_5038
																																	=
																																	BgL_yyyyz00_4766;
																																BgL_mmz00_5039 =
																																	BgL_mmz00_4767;
																																BgL_ddz00_5040 =
																																	BgL_ddz00_4768;
																																BgL_hhz00_5041 =
																																	(
																																	(BgL_b1z00_4994
																																		* 10L) +
																																	BgL_b2z00_4995);
																																{
																																	obj_t
																																		BgL_iportz00_5094;
																																	long
																																		BgL_lastzd2matchzd2_5095;
																																	long
																																		BgL_forwardz00_5096;
																																	long
																																		BgL_bufposz00_5097;
																																	obj_t
																																		BgL_iportz00_5109;
																																	long
																																		BgL_lastzd2matchzd2_5110;
																																	long
																																		BgL_forwardz00_5111;
																																	long
																																		BgL_bufposz00_5112;
																																	RGC_START_MATCH
																																		(BgL_iportz00_5037);
																																	{	/* Llib/date.scm 892 */
																																		long
																																			BgL_matchz00_5248;
																																		{	/* Llib/date.scm 892 */
																																			long
																																				BgL_arg3743z00_5272;
																																			long
																																				BgL_arg3744z00_5273;
																																			BgL_arg3743z00_5272
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_5037);
																																			BgL_arg3744z00_5273
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_5037);
																																			{
																																				long
																																					BgL_forwardz00_9587;
																																				long
																																					BgL_bufposz00_9588;
																																				BgL_forwardz00_9587
																																					=
																																					BgL_arg3743z00_5272;
																																				BgL_bufposz00_9588
																																					=
																																					BgL_arg3744z00_5273;
																																			BgL_statezd20zd21106z00_9586:
																																				if (
																																					(BgL_forwardz00_9587
																																						==
																																						BgL_bufposz00_9588))
																																					{	/* Llib/date.scm 892 */
																																						if (rgc_fill_buffer(BgL_iportz00_5037))
																																							{	/* Llib/date.scm 892 */
																																								long
																																									BgL_arg3621z00_9594;
																																								long
																																									BgL_arg3622z00_9595;
																																								BgL_arg3621z00_9594
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_5037);
																																								BgL_arg3622z00_9595
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_5037);
																																								{
																																									long
																																										BgL_bufposz00_16565;
																																									long
																																										BgL_forwardz00_16564;
																																									BgL_forwardz00_16564
																																										=
																																										BgL_arg3621z00_9594;
																																									BgL_bufposz00_16565
																																										=
																																										BgL_arg3622z00_9595;
																																									BgL_bufposz00_9588
																																										=
																																										BgL_bufposz00_16565;
																																									BgL_forwardz00_9587
																																										=
																																										BgL_forwardz00_16564;
																																									goto
																																										BgL_statezd20zd21106z00_9586;
																																								}
																																							}
																																						else
																																							{	/* Llib/date.scm 892 */
																																								BgL_matchz00_5248
																																									=
																																									1L;
																																							}
																																					}
																																				else
																																					{	/* Llib/date.scm 892 */
																																						int
																																							BgL_curz00_9598;
																																						BgL_curz00_9598
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_5037,
																																							BgL_forwardz00_9587);
																																						{	/* Llib/date.scm 892 */

																																							if (((long) (BgL_curz00_9598) == 58L))
																																								{	/* Llib/date.scm 892 */
																																									BgL_iportz00_5094
																																										=
																																										BgL_iportz00_5037;
																																									BgL_lastzd2matchzd2_5095
																																										=
																																										1L;
																																									BgL_forwardz00_5096
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_9587);
																																									BgL_bufposz00_5097
																																										=
																																										BgL_bufposz00_9588;
																																								BgL_zc3z04anonymousza33627ze3z87_5098:
																																									{	/* Llib/date.scm 892 */
																																										long
																																											BgL_newzd2matchzd2_5099;
																																										RGC_STOP_MATCH
																																											(BgL_iportz00_5094,
																																											BgL_forwardz00_5096);
																																										BgL_newzd2matchzd2_5099
																																											=
																																											1L;
																																										if ((BgL_forwardz00_5096 == BgL_bufposz00_5097))
																																											{	/* Llib/date.scm 892 */
																																												if (rgc_fill_buffer(BgL_iportz00_5094))
																																													{	/* Llib/date.scm 892 */
																																														long
																																															BgL_arg3631z00_5102;
																																														long
																																															BgL_arg3632z00_5103;
																																														BgL_arg3631z00_5102
																																															=
																																															RGC_BUFFER_FORWARD
																																															(BgL_iportz00_5094);
																																														BgL_arg3632z00_5103
																																															=
																																															RGC_BUFFER_BUFPOS
																																															(BgL_iportz00_5094);
																																														{
																																															long
																																																BgL_bufposz00_16578;
																																															long
																																																BgL_forwardz00_16577;
																																															BgL_forwardz00_16577
																																																=
																																																BgL_arg3631z00_5102;
																																															BgL_bufposz00_16578
																																																=
																																																BgL_arg3632z00_5103;
																																															BgL_bufposz00_5097
																																																=
																																																BgL_bufposz00_16578;
																																															BgL_forwardz00_5096
																																																=
																																																BgL_forwardz00_16577;
																																															goto
																																																BgL_zc3z04anonymousza33627ze3z87_5098;
																																														}
																																													}
																																												else
																																													{	/* Llib/date.scm 892 */
																																														BgL_matchz00_5248
																																															=
																																															BgL_newzd2matchzd2_5099;
																																													}
																																											}
																																										else
																																											{	/* Llib/date.scm 892 */
																																												int
																																													BgL_curz00_5104;
																																												BgL_curz00_5104
																																													=
																																													RGC_BUFFER_GET_CHAR
																																													(BgL_iportz00_5094,
																																													BgL_forwardz00_5096);
																																												{	/* Llib/date.scm 892 */

																																													{	/* Llib/date.scm 892 */
																																														bool_t
																																															BgL_test5985z00_16580;
																																														if (((long) (BgL_curz00_5104) >= 48L))
																																															{	/* Llib/date.scm 892 */
																																																BgL_test5985z00_16580
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_5104)
																																																	<
																																																	58L);
																																															}
																																														else
																																															{	/* Llib/date.scm 892 */
																																																BgL_test5985z00_16580
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																														if (BgL_test5985z00_16580)
																																															{	/* Llib/date.scm 892 */
																																																BgL_iportz00_5109
																																																	=
																																																	BgL_iportz00_5094;
																																																BgL_lastzd2matchzd2_5110
																																																	=
																																																	BgL_newzd2matchzd2_5099;
																																																BgL_forwardz00_5111
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_5096);
																																																BgL_bufposz00_5112
																																																	=
																																																	BgL_bufposz00_5097;
																																															BgL_zc3z04anonymousza33636ze3z87_5113:
																																																if ((BgL_forwardz00_5111 == BgL_bufposz00_5112))
																																																	{	/* Llib/date.scm 892 */
																																																		if (rgc_fill_buffer(BgL_iportz00_5109))
																																																			{	/* Llib/date.scm 892 */
																																																				long
																																																					BgL_arg3639z00_5116;
																																																				long
																																																					BgL_arg3640z00_5117;
																																																				BgL_arg3639z00_5116
																																																					=
																																																					RGC_BUFFER_FORWARD
																																																					(BgL_iportz00_5109);
																																																				BgL_arg3640z00_5117
																																																					=
																																																					RGC_BUFFER_BUFPOS
																																																					(BgL_iportz00_5109);
																																																				{
																																																					long
																																																						BgL_bufposz00_16593;
																																																					long
																																																						BgL_forwardz00_16592;
																																																					BgL_forwardz00_16592
																																																						=
																																																						BgL_arg3639z00_5116;
																																																					BgL_bufposz00_16593
																																																						=
																																																						BgL_arg3640z00_5117;
																																																					BgL_bufposz00_5112
																																																						=
																																																						BgL_bufposz00_16593;
																																																					BgL_forwardz00_5111
																																																						=
																																																						BgL_forwardz00_16592;
																																																					goto
																																																						BgL_zc3z04anonymousza33636ze3z87_5113;
																																																				}
																																																			}
																																																		else
																																																			{	/* Llib/date.scm 892 */
																																																				BgL_matchz00_5248
																																																					=
																																																					BgL_lastzd2matchzd2_5110;
																																																			}
																																																	}
																																																else
																																																	{	/* Llib/date.scm 892 */
																																																		int
																																																			BgL_curz00_5118;
																																																		BgL_curz00_5118
																																																			=
																																																			RGC_BUFFER_GET_CHAR
																																																			(BgL_iportz00_5109,
																																																			BgL_forwardz00_5111);
																																																		{	/* Llib/date.scm 892 */

																																																			{	/* Llib/date.scm 892 */
																																																				bool_t
																																																					BgL_test5989z00_16595;
																																																				if (((long) (BgL_curz00_5118) >= 48L))
																																																					{	/* Llib/date.scm 892 */
																																																						BgL_test5989z00_16595
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_5118)
																																																							<
																																																							58L);
																																																					}
																																																				else
																																																					{	/* Llib/date.scm 892 */
																																																						BgL_test5989z00_16595
																																																							=
																																																							(
																																																							(bool_t)
																																																							0);
																																																					}
																																																				if (BgL_test5989z00_16595)
																																																					{	/* Llib/date.scm 892 */
																																																						long
																																																							BgL_arg3643z00_5121;
																																																						BgL_arg3643z00_5121
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_5111);
																																																						{	/* Llib/date.scm 892 */
																																																							long
																																																								BgL_newzd2matchzd2_9572;
																																																							RGC_STOP_MATCH
																																																								(BgL_iportz00_5109,
																																																								BgL_arg3643z00_5121);
																																																							BgL_newzd2matchzd2_9572
																																																								=
																																																								0L;
																																																							BgL_matchz00_5248
																																																								=
																																																								BgL_newzd2matchzd2_9572;
																																																					}}
																																																				else
																																																					{	/* Llib/date.scm 892 */
																																																						BgL_matchz00_5248
																																																							=
																																																							BgL_lastzd2matchzd2_5110;
																																																					}
																																																			}
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Llib/date.scm 892 */
																																																BgL_matchz00_5248
																																																	=
																																																	BgL_newzd2matchzd2_5099;
																																															}
																																													}
																																												}
																																											}
																																									}
																																								}
																																							else
																																								{	/* Llib/date.scm 892 */
																																									long
																																										BgL_arg3625z00_9605;
																																									BgL_arg3625z00_9605
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_9587);
																																									{	/* Llib/date.scm 892 */
																																										long
																																											BgL_newzd2matchzd2_9607;
																																										RGC_STOP_MATCH
																																											(BgL_iportz00_5037,
																																											BgL_arg3625z00_9605);
																																										BgL_newzd2matchzd2_9607
																																											=
																																											1L;
																																										BgL_matchz00_5248
																																											=
																																											BgL_newzd2matchzd2_9607;
																																		}}}}}}
																																		RGC_SET_FILEPOS
																																			(BgL_iportz00_5037);
																																		switch
																																			(BgL_matchz00_5248)
																																			{
																																			case 1L:

																																				{	/* Llib/date.scm 899 */
																																					bool_t
																																						BgL_test5991z00_16608;
																																					{	/* Llib/date.scm 899 */
																																						obj_t
																																							BgL_tmpz00_16609;
																																						BgL_tmpz00_16609
																																							=
																																							BGl_thezd2failureze74z35zz__datez00
																																							(BgL_iportz00_5037);
																																						BgL_test5991z00_16608
																																							=
																																							EOF_OBJECTP
																																							(BgL_tmpz00_16609);
																																					}
																																					if (BgL_test5991z00_16608)
																																						{	/* Llib/date.scm 899 */
																																							if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BFALSE))
																																								{	/* Llib/date.scm 233 */
																																									long
																																										BgL_tmpz00_16614;
																																									{	/* Llib/date.scm 900 */
																																										obj_t
																																											BgL_aux4892z00_10549;
																																										BgL_aux4892z00_10549
																																											=
																																											BFALSE;
																																										{
																																											obj_t
																																												BgL_auxz00_16621;
																																											BgL_auxz00_16621
																																												=
																																												BGl_typezd2errorzd2zz__errorz00
																																												(BGl_string4971z00zz__datez00,
																																												BINT
																																												(38617L),
																																												BGl_string5072z00zz__datez00,
																																												BGl_string5073z00zz__datez00,
																																												BgL_aux4892z00_10549);
																																											FAILURE
																																												(BgL_auxz00_16621,
																																												BFALSE,
																																												BFALSE);
																																									}}
																																									BgL_tmpz00_16614
																																										=
																																										0L;
																																									return
																																										bgl_make_date
																																										(
																																										((BGL_LONGLONG_T) 0), (int) (0L), (int) (0L), (int) (BgL_hhz00_5041), (int) (BgL_ddz00_5040), (int) (BgL_mmz00_5039), (int) (BgL_yyyyz00_5038), BgL_tmpz00_16614, ((bool_t) 1), (int) ((-1L)));
																																								}
																																							else
																																								{	/* Llib/date.scm 232 */
																																									return
																																										bgl_make_date
																																										(
																																										((BGL_LONGLONG_T) 0), (int) (0L), (int) (0L), (int) (BgL_hhz00_5041), (int) (BgL_ddz00_5040), (int) (BgL_mmz00_5039), (int) (BgL_yyyyz00_5038), 0L, ((bool_t) 0), (int) ((-1L)));
																																						}}
																																					else
																																						{	/* Llib/date.scm 899 */
																																							return
																																								BGl_parsezd2errorzd2zz__datez00
																																								(BGl_string5071z00zz__datez00,
																																								BGl_string4943z00zz__datez00,
																																								BGl_thezd2failureze74z35zz__datez00
																																								(BgL_iportz00_5037),
																																								BgL_iportz00_5037);
																																						}
																																				}
																																				break;
																																			case 0L:

																																				{	/* Llib/date.scm 894 */
																																					long
																																						BgL_b1z00_5265;
																																					long
																																						BgL_b2z00_5266;
																																					{	/* Llib/date.scm 894 */
																																						int
																																							BgL_arg3741z00_5270;
																																						{	/* Llib/date.scm 892 */
																																							int
																																								BgL_tmpz00_16637;
																																							BgL_tmpz00_16637
																																								=
																																								(int)
																																								(1L);
																																							BgL_arg3741z00_5270
																																								=
																																								RGC_BUFFER_BYTE_REF
																																								(BgL_iportz00_5037,
																																								BgL_tmpz00_16637);
																																						}
																																						BgL_b1z00_5265
																																							=
																																							(
																																							(long)
																																							(BgL_arg3741z00_5270)
																																							-
																																							48L);
																																					}
																																					{	/* Llib/date.scm 895 */
																																						int
																																							BgL_arg3742z00_5271;
																																						{	/* Llib/date.scm 892 */
																																							int
																																								BgL_tmpz00_16642;
																																							BgL_tmpz00_16642
																																								=
																																								(int)
																																								(2L);
																																							BgL_arg3742z00_5271
																																								=
																																								RGC_BUFFER_BYTE_REF
																																								(BgL_iportz00_5037,
																																								BgL_tmpz00_16642);
																																						}
																																						BgL_b2z00_5266
																																							=
																																							(
																																							(long)
																																							(BgL_arg3742z00_5271)
																																							-
																																							48L);
																																					}
																																					BgL_iportz00_5308
																																						=
																																						BgL_iportz00_5037;
																																					BgL_yyyyz00_5309
																																						=
																																						BgL_yyyyz00_5038;
																																					BgL_mmz00_5310
																																						=
																																						BgL_mmz00_5039;
																																					BgL_ddz00_5311
																																						=
																																						BgL_ddz00_5040;
																																					BgL_hhz00_5312
																																						=
																																						BgL_hhz00_5041;
																																					BgL_mmz00_5313
																																						=
																																						(
																																						(BgL_b1z00_5265
																																							*
																																							10L)
																																						+
																																						BgL_b2z00_5266);
																																					{
																																						obj_t
																																							BgL_iportz00_5366;
																																						long
																																							BgL_lastzd2matchzd2_5367;
																																						long
																																							BgL_forwardz00_5368;
																																						long
																																							BgL_bufposz00_5369;
																																						obj_t
																																							BgL_iportz00_5381;
																																						long
																																							BgL_lastzd2matchzd2_5382;
																																						long
																																							BgL_forwardz00_5383;
																																						long
																																							BgL_bufposz00_5384;
																																						RGC_START_MATCH
																																							(BgL_iportz00_5308);
																																						{	/* Llib/date.scm 876 */
																																							long
																																								BgL_matchz00_5520;
																																							{	/* Llib/date.scm 876 */
																																								long
																																									BgL_arg3870z00_5545;
																																								long
																																									BgL_arg3871z00_5546;
																																								BgL_arg3870z00_5545
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_5308);
																																								BgL_arg3871z00_5546
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_5308);
																																								{
																																									long
																																										BgL_forwardz00_9499;
																																									long
																																										BgL_bufposz00_9500;
																																									BgL_forwardz00_9499
																																										=
																																										BgL_arg3870z00_5545;
																																									BgL_bufposz00_9500
																																										=
																																										BgL_arg3871z00_5546;
																																								BgL_statezd20zd21098z00_9498:
																																									if ((BgL_forwardz00_9499 == BgL_bufposz00_9500))
																																										{	/* Llib/date.scm 876 */
																																											if (rgc_fill_buffer(BgL_iportz00_5308))
																																												{	/* Llib/date.scm 876 */
																																													long
																																														BgL_arg3749z00_9506;
																																													long
																																														BgL_arg3750z00_9507;
																																													BgL_arg3749z00_9506
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_iportz00_5308);
																																													BgL_arg3750z00_9507
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_iportz00_5308);
																																													{
																																														long
																																															BgL_bufposz00_16657;
																																														long
																																															BgL_forwardz00_16656;
																																														BgL_forwardz00_16656
																																															=
																																															BgL_arg3749z00_9506;
																																														BgL_bufposz00_16657
																																															=
																																															BgL_arg3750z00_9507;
																																														BgL_bufposz00_9500
																																															=
																																															BgL_bufposz00_16657;
																																														BgL_forwardz00_9499
																																															=
																																															BgL_forwardz00_16656;
																																														goto
																																															BgL_statezd20zd21098z00_9498;
																																													}
																																												}
																																											else
																																												{	/* Llib/date.scm 876 */
																																													BgL_matchz00_5520
																																														=
																																														1L;
																																												}
																																										}
																																									else
																																										{	/* Llib/date.scm 876 */
																																											int
																																												BgL_curz00_9510;
																																											BgL_curz00_9510
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_iportz00_5308,
																																												BgL_forwardz00_9499);
																																											{	/* Llib/date.scm 876 */

																																												if (((long) (BgL_curz00_9510) == 58L))
																																													{	/* Llib/date.scm 876 */
																																														BgL_iportz00_5366
																																															=
																																															BgL_iportz00_5308;
																																														BgL_lastzd2matchzd2_5367
																																															=
																																															1L;
																																														BgL_forwardz00_5368
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_9499);
																																														BgL_bufposz00_5369
																																															=
																																															BgL_bufposz00_9500;
																																													BgL_zc3z04anonymousza33755ze3z87_5370:
																																														{	/* Llib/date.scm 876 */
																																															long
																																																BgL_newzd2matchzd2_5371;
																																															RGC_STOP_MATCH
																																																(BgL_iportz00_5366,
																																																BgL_forwardz00_5368);
																																															BgL_newzd2matchzd2_5371
																																																=
																																																1L;
																																															if ((BgL_forwardz00_5368 == BgL_bufposz00_5369))
																																																{	/* Llib/date.scm 876 */
																																																	if (rgc_fill_buffer(BgL_iportz00_5366))
																																																		{	/* Llib/date.scm 876 */
																																																			long
																																																				BgL_arg3758z00_5374;
																																																			long
																																																				BgL_arg3759z00_5375;
																																																			BgL_arg3758z00_5374
																																																				=
																																																				RGC_BUFFER_FORWARD
																																																				(BgL_iportz00_5366);
																																																			BgL_arg3759z00_5375
																																																				=
																																																				RGC_BUFFER_BUFPOS
																																																				(BgL_iportz00_5366);
																																																			{
																																																				long
																																																					BgL_bufposz00_16670;
																																																				long
																																																					BgL_forwardz00_16669;
																																																				BgL_forwardz00_16669
																																																					=
																																																					BgL_arg3758z00_5374;
																																																				BgL_bufposz00_16670
																																																					=
																																																					BgL_arg3759z00_5375;
																																																				BgL_bufposz00_5369
																																																					=
																																																					BgL_bufposz00_16670;
																																																				BgL_forwardz00_5368
																																																					=
																																																					BgL_forwardz00_16669;
																																																				goto
																																																					BgL_zc3z04anonymousza33755ze3z87_5370;
																																																			}
																																																		}
																																																	else
																																																		{	/* Llib/date.scm 876 */
																																																			BgL_matchz00_5520
																																																				=
																																																				BgL_newzd2matchzd2_5371;
																																																		}
																																																}
																																															else
																																																{	/* Llib/date.scm 876 */
																																																	int
																																																		BgL_curz00_5376;
																																																	BgL_curz00_5376
																																																		=
																																																		RGC_BUFFER_GET_CHAR
																																																		(BgL_iportz00_5366,
																																																		BgL_forwardz00_5368);
																																																	{	/* Llib/date.scm 876 */

																																																		{	/* Llib/date.scm 876 */
																																																			bool_t
																																																				BgL_test5998z00_16672;
																																																			if (((long) (BgL_curz00_5376) >= 48L))
																																																				{	/* Llib/date.scm 876 */
																																																					BgL_test5998z00_16672
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_5376)
																																																						<
																																																						58L);
																																																				}
																																																			else
																																																				{	/* Llib/date.scm 876 */
																																																					BgL_test5998z00_16672
																																																						=
																																																						(
																																																						(bool_t)
																																																						0);
																																																				}
																																																			if (BgL_test5998z00_16672)
																																																				{	/* Llib/date.scm 876 */
																																																					BgL_iportz00_5381
																																																						=
																																																						BgL_iportz00_5366;
																																																					BgL_lastzd2matchzd2_5382
																																																						=
																																																						BgL_newzd2matchzd2_5371;
																																																					BgL_forwardz00_5383
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_5368);
																																																					BgL_bufposz00_5384
																																																						=
																																																						BgL_bufposz00_5369;
																																																				BgL_zc3z04anonymousza33763ze3z87_5385:
																																																					if ((BgL_forwardz00_5383 == BgL_bufposz00_5384))
																																																						{	/* Llib/date.scm 876 */
																																																							if (rgc_fill_buffer(BgL_iportz00_5381))
																																																								{	/* Llib/date.scm 876 */
																																																									long
																																																										BgL_arg3766z00_5388;
																																																									long
																																																										BgL_arg3767z00_5389;
																																																									BgL_arg3766z00_5388
																																																										=
																																																										RGC_BUFFER_FORWARD
																																																										(BgL_iportz00_5381);
																																																									BgL_arg3767z00_5389
																																																										=
																																																										RGC_BUFFER_BUFPOS
																																																										(BgL_iportz00_5381);
																																																									{
																																																										long
																																																											BgL_bufposz00_16685;
																																																										long
																																																											BgL_forwardz00_16684;
																																																										BgL_forwardz00_16684
																																																											=
																																																											BgL_arg3766z00_5388;
																																																										BgL_bufposz00_16685
																																																											=
																																																											BgL_arg3767z00_5389;
																																																										BgL_bufposz00_5384
																																																											=
																																																											BgL_bufposz00_16685;
																																																										BgL_forwardz00_5383
																																																											=
																																																											BgL_forwardz00_16684;
																																																										goto
																																																											BgL_zc3z04anonymousza33763ze3z87_5385;
																																																									}
																																																								}
																																																							else
																																																								{	/* Llib/date.scm 876 */
																																																									BgL_matchz00_5520
																																																										=
																																																										BgL_lastzd2matchzd2_5382;
																																																								}
																																																						}
																																																					else
																																																						{	/* Llib/date.scm 876 */
																																																							int
																																																								BgL_curz00_5390;
																																																							BgL_curz00_5390
																																																								=
																																																								RGC_BUFFER_GET_CHAR
																																																								(BgL_iportz00_5381,
																																																								BgL_forwardz00_5383);
																																																							{	/* Llib/date.scm 876 */

																																																								{	/* Llib/date.scm 876 */
																																																									bool_t
																																																										BgL_test6002z00_16687;
																																																									if (((long) (BgL_curz00_5390) >= 48L))
																																																										{	/* Llib/date.scm 876 */
																																																											BgL_test6002z00_16687
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_5390)
																																																												<
																																																												58L);
																																																										}
																																																									else
																																																										{	/* Llib/date.scm 876 */
																																																											BgL_test6002z00_16687
																																																												=
																																																												(
																																																												(bool_t)
																																																												0);
																																																										}
																																																									if (BgL_test6002z00_16687)
																																																										{	/* Llib/date.scm 876 */
																																																											long
																																																												BgL_arg3770z00_5393;
																																																											BgL_arg3770z00_5393
																																																												=
																																																												(1L
																																																												+
																																																												BgL_forwardz00_5383);
																																																											{	/* Llib/date.scm 876 */
																																																												long
																																																													BgL_newzd2matchzd2_9484;
																																																												RGC_STOP_MATCH
																																																													(BgL_iportz00_5381,
																																																													BgL_arg3770z00_5393);
																																																												BgL_newzd2matchzd2_9484
																																																													=
																																																													0L;
																																																												BgL_matchz00_5520
																																																													=
																																																													BgL_newzd2matchzd2_9484;
																																																										}}
																																																									else
																																																										{	/* Llib/date.scm 876 */
																																																											BgL_matchz00_5520
																																																												=
																																																												BgL_lastzd2matchzd2_5382;
																																																										}
																																																								}
																																																							}
																																																						}
																																																				}
																																																			else
																																																				{	/* Llib/date.scm 876 */
																																																					BgL_matchz00_5520
																																																						=
																																																						BgL_newzd2matchzd2_5371;
																																																				}
																																																		}
																																																	}
																																																}
																																														}
																																													}
																																												else
																																													{	/* Llib/date.scm 876 */
																																														long
																																															BgL_arg3753z00_9517;
																																														BgL_arg3753z00_9517
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_9499);
																																														{	/* Llib/date.scm 876 */
																																															long
																																																BgL_newzd2matchzd2_9519;
																																															RGC_STOP_MATCH
																																																(BgL_iportz00_5308,
																																																BgL_arg3753z00_9517);
																																															BgL_newzd2matchzd2_9519
																																																=
																																																1L;
																																															BgL_matchz00_5520
																																																=
																																																BgL_newzd2matchzd2_9519;
																																							}}}}}}
																																							RGC_SET_FILEPOS
																																								(BgL_iportz00_5308);
																																							switch
																																								(BgL_matchz00_5520)
																																								{
																																								case 1L:

																																									{	/* Llib/date.scm 883 */
																																										bool_t
																																											BgL_test6004z00_16700;
																																										{	/* Llib/date.scm 883 */
																																											obj_t
																																												BgL_tmpz00_16701;
																																											BgL_tmpz00_16701
																																												=
																																												BGl_thezd2failureze73z35zz__datez00
																																												(BgL_iportz00_5308);
																																											BgL_test6004z00_16700
																																												=
																																												EOF_OBJECTP
																																												(BgL_tmpz00_16701);
																																										}
																																										if (BgL_test6004z00_16700)
																																											{	/* Llib/date.scm 883 */
																																												if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BFALSE))
																																													{	/* Llib/date.scm 233 */
																																														long
																																															BgL_tmpz00_16706;
																																														{	/* Llib/date.scm 884 */
																																															obj_t
																																																BgL_aux4891z00_10548;
																																															BgL_aux4891z00_10548
																																																=
																																																BFALSE;
																																															{
																																																obj_t
																																																	BgL_auxz00_16713;
																																																BgL_auxz00_16713
																																																	=
																																																	BGl_typezd2errorzd2zz__errorz00
																																																	(BGl_string4971z00zz__datez00,
																																																	BINT
																																																	(38149L),
																																																	BGl_string5072z00zz__datez00,
																																																	BGl_string5073z00zz__datez00,
																																																	BgL_aux4891z00_10548);
																																																FAILURE
																																																	(BgL_auxz00_16713,
																																																	BFALSE,
																																																	BFALSE);
																																														}}
																																														BgL_tmpz00_16706
																																															=
																																															0L;
																																														return
																																															bgl_make_date
																																															(
																																															((BGL_LONGLONG_T) 0), (int) (0L), (int) (BgL_mmz00_5313), (int) (BgL_hhz00_5312), (int) (BgL_ddz00_5311), (int) (BgL_mmz00_5310), (int) (BgL_yyyyz00_5309), BgL_tmpz00_16706, ((bool_t) 1), (int) ((-1L)));
																																													}
																																												else
																																													{	/* Llib/date.scm 232 */
																																														return
																																															bgl_make_date
																																															(
																																															((BGL_LONGLONG_T) 0), (int) (0L), (int) (BgL_mmz00_5313), (int) (BgL_hhz00_5312), (int) (BgL_ddz00_5311), (int) (BgL_mmz00_5310), (int) (BgL_yyyyz00_5309), 0L, ((bool_t) 0), (int) ((-1L)));
																																											}}
																																										else
																																											{	/* Llib/date.scm 883 */
																																												{	/* Llib/date.scm 887 */
																																													obj_t
																																														BgL_arg3861z00_5534;
																																													BgL_arg3861z00_5534
																																														=
																																														BGl_thezd2failureze73z35zz__datez00
																																														(BgL_iportz00_5308);
																																													BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00
																																														(CCHAR
																																														(BgL_arg3861z00_5534),
																																														BgL_iportz00_5308);
																																												}
																																												BgL_iportz00_5877
																																													=
																																													BgL_iportz00_5308;
																																												BgL_yyyyz00_5878
																																													=
																																													BgL_yyyyz00_5309;
																																												BgL_mmz00_5879
																																													=
																																													BgL_mmz00_5310;
																																												BgL_ddz00_5880
																																													=
																																													BgL_ddz00_5311;
																																												BgL_hhz00_5881
																																													=
																																													BgL_hhz00_5312;
																																												BgL_mmz00_5882
																																													=
																																													BgL_mmz00_5313;
																																												BgL_ssz00_5883
																																													=
																																													0L;
																																												BgL_sssz00_5884
																																													=
																																													(
																																													(BGL_LONGLONG_T)
																																													0);
																																											BgL_zc3z04anonymousza34012ze3z87_5885:
																																												{
																																													obj_t
																																														BgL_iportz00_5922;
																																													long
																																														BgL_lastzd2matchzd2_5923;
																																													long
																																														BgL_forwardz00_5924;
																																													long
																																														BgL_bufposz00_5925;
																																													obj_t
																																														BgL_iportz00_5953;
																																													long
																																														BgL_lastzd2matchzd2_5954;
																																													long
																																														BgL_forwardz00_5955;
																																													long
																																														BgL_bufposz00_5956;
																																													obj_t
																																														BgL_iportz00_5968;
																																													long
																																														BgL_lastzd2matchzd2_5969;
																																													long
																																														BgL_forwardz00_5970;
																																													long
																																														BgL_bufposz00_5971;
																																													obj_t
																																														BgL_iportz00_5983;
																																													long
																																														BgL_lastzd2matchzd2_5984;
																																													long
																																														BgL_forwardz00_5985;
																																													long
																																														BgL_bufposz00_5986;
																																													obj_t
																																														BgL_iportz00_6003;
																																													long
																																														BgL_lastzd2matchzd2_6004;
																																													long
																																														BgL_forwardz00_6005;
																																													long
																																														BgL_bufposz00_6006;
																																													RGC_START_MATCH
																																														(BgL_iportz00_5877);
																																													{	/* Llib/date.scm 835 */
																																														long
																																															BgL_matchz00_6142;
																																														{	/* Llib/date.scm 835 */
																																															long
																																																BgL_arg4167z00_6185;
																																															long
																																																BgL_arg4168z00_6186;
																																															BgL_arg4167z00_6185
																																																=
																																																RGC_BUFFER_FORWARD
																																																(BgL_iportz00_5877);
																																															BgL_arg4168z00_6186
																																																=
																																																RGC_BUFFER_BUFPOS
																																																(BgL_iportz00_5877);
																																															BgL_iportz00_5922
																																																=
																																																BgL_iportz00_5877;
																																															BgL_lastzd2matchzd2_5923
																																																=
																																																3L;
																																															BgL_forwardz00_5924
																																																=
																																																BgL_arg4167z00_6185;
																																															BgL_bufposz00_5925
																																																=
																																																BgL_arg4168z00_6186;
																																														BgL_zc3z04anonymousza34013ze3z87_5926:
																																															if ((BgL_forwardz00_5924 == BgL_bufposz00_5925))
																																																{	/* Llib/date.scm 835 */
																																																	if (rgc_fill_buffer(BgL_iportz00_5922))
																																																		{	/* Llib/date.scm 835 */
																																																			long
																																																				BgL_arg4016z00_5929;
																																																			long
																																																				BgL_arg4017z00_5930;
																																																			BgL_arg4016z00_5929
																																																				=
																																																				RGC_BUFFER_FORWARD
																																																				(BgL_iportz00_5922);
																																																			BgL_arg4017z00_5930
																																																				=
																																																				RGC_BUFFER_BUFPOS
																																																				(BgL_iportz00_5922);
																																																			{
																																																				long
																																																					BgL_bufposz00_16740;
																																																				long
																																																					BgL_forwardz00_16739;
																																																				BgL_forwardz00_16739
																																																					=
																																																					BgL_arg4016z00_5929;
																																																				BgL_bufposz00_16740
																																																					=
																																																					BgL_arg4017z00_5930;
																																																				BgL_bufposz00_5925
																																																					=
																																																					BgL_bufposz00_16740;
																																																				BgL_forwardz00_5924
																																																					=
																																																					BgL_forwardz00_16739;
																																																				goto
																																																					BgL_zc3z04anonymousza34013ze3z87_5926;
																																																			}
																																																		}
																																																	else
																																																		{	/* Llib/date.scm 835 */
																																																			BgL_matchz00_6142
																																																				=
																																																				BgL_lastzd2matchzd2_5923;
																																																		}
																																																}
																																															else
																																																{	/* Llib/date.scm 835 */
																																																	int
																																																		BgL_curz00_5931;
																																																	BgL_curz00_5931
																																																		=
																																																		RGC_BUFFER_GET_CHAR
																																																		(BgL_iportz00_5922,
																																																		BgL_forwardz00_5924);
																																																	{	/* Llib/date.scm 835 */

																																																		{	/* Llib/date.scm 835 */
																																																			bool_t
																																																				BgL_test6008z00_16742;
																																																			if (((long) (BgL_curz00_5931) == 90L))
																																																				{	/* Llib/date.scm 835 */
																																																					BgL_test6008z00_16742
																																																						=
																																																						(
																																																						(bool_t)
																																																						1);
																																																				}
																																																			else
																																																				{	/* Llib/date.scm 835 */
																																																					BgL_test6008z00_16742
																																																						=
																																																						(
																																																						(long)
																																																						(BgL_curz00_5931)
																																																						==
																																																						122L);
																																																				}
																																																			if (BgL_test6008z00_16742)
																																																				{	/* Llib/date.scm 835 */
																																																					long
																																																						BgL_arg4020z00_5934;
																																																					BgL_arg4020z00_5934
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_5924);
																																																					{	/* Llib/date.scm 835 */
																																																						long
																																																							BgL_newzd2matchzd2_9236;
																																																						RGC_STOP_MATCH
																																																							(BgL_iportz00_5922,
																																																							BgL_arg4020z00_5934);
																																																						BgL_newzd2matchzd2_9236
																																																							=
																																																							0L;
																																																						BgL_matchz00_6142
																																																							=
																																																							BgL_newzd2matchzd2_9236;
																																																				}}
																																																			else
																																																				{	/* Llib/date.scm 835 */
																																																					if (((long) (BgL_curz00_5931) == 45L))
																																																						{	/* Llib/date.scm 835 */
																																																							BgL_iportz00_5968
																																																								=
																																																								BgL_iportz00_5922;
																																																							BgL_lastzd2matchzd2_5969
																																																								=
																																																								BgL_lastzd2matchzd2_5923;
																																																							BgL_forwardz00_5970
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_5924);
																																																							BgL_bufposz00_5971
																																																								=
																																																								BgL_bufposz00_5925;
																																																						BgL_zc3z04anonymousza34036ze3z87_5972:
																																																							{	/* Llib/date.scm 835 */
																																																								long
																																																									BgL_newzd2matchzd2_5973;
																																																								RGC_STOP_MATCH
																																																									(BgL_iportz00_5968,
																																																									BgL_forwardz00_5970);
																																																								BgL_newzd2matchzd2_5973
																																																									=
																																																									3L;
																																																								if ((BgL_forwardz00_5970 == BgL_bufposz00_5971))
																																																									{	/* Llib/date.scm 835 */
																																																										if (rgc_fill_buffer(BgL_iportz00_5968))
																																																											{	/* Llib/date.scm 835 */
																																																												long
																																																													BgL_arg4039z00_5976;
																																																												long
																																																													BgL_arg4040z00_5977;
																																																												BgL_arg4039z00_5976
																																																													=
																																																													RGC_BUFFER_FORWARD
																																																													(BgL_iportz00_5968);
																																																												BgL_arg4040z00_5977
																																																													=
																																																													RGC_BUFFER_BUFPOS
																																																													(BgL_iportz00_5968);
																																																												{
																																																													long
																																																														BgL_bufposz00_16761;
																																																													long
																																																														BgL_forwardz00_16760;
																																																													BgL_forwardz00_16760
																																																														=
																																																														BgL_arg4039z00_5976;
																																																													BgL_bufposz00_16761
																																																														=
																																																														BgL_arg4040z00_5977;
																																																													BgL_bufposz00_5971
																																																														=
																																																														BgL_bufposz00_16761;
																																																													BgL_forwardz00_5970
																																																														=
																																																														BgL_forwardz00_16760;
																																																													goto
																																																														BgL_zc3z04anonymousza34036ze3z87_5972;
																																																												}
																																																											}
																																																										else
																																																											{	/* Llib/date.scm 835 */
																																																												BgL_matchz00_6142
																																																													=
																																																													BgL_newzd2matchzd2_5973;
																																																											}
																																																									}
																																																								else
																																																									{	/* Llib/date.scm 835 */
																																																										int
																																																											BgL_curz00_5978;
																																																										BgL_curz00_5978
																																																											=
																																																											RGC_BUFFER_GET_CHAR
																																																											(BgL_iportz00_5968,
																																																											BgL_forwardz00_5970);
																																																										{	/* Llib/date.scm 835 */

																																																											{	/* Llib/date.scm 835 */
																																																												bool_t
																																																													BgL_test6013z00_16763;
																																																												if (((long) (BgL_curz00_5978) >= 48L))
																																																													{	/* Llib/date.scm 835 */
																																																														BgL_test6013z00_16763
																																																															=
																																																															(
																																																															(long)
																																																															(BgL_curz00_5978)
																																																															<
																																																															58L);
																																																													}
																																																												else
																																																													{	/* Llib/date.scm 835 */
																																																														BgL_test6013z00_16763
																																																															=
																																																															(
																																																															(bool_t)
																																																															0);
																																																													}
																																																												if (BgL_test6013z00_16763)
																																																													{	/* Llib/date.scm 835 */
																																																														BgL_iportz00_5983
																																																															=
																																																															BgL_iportz00_5968;
																																																														BgL_lastzd2matchzd2_5984
																																																															=
																																																															BgL_newzd2matchzd2_5973;
																																																														BgL_forwardz00_5985
																																																															=
																																																															(1L
																																																															+
																																																															BgL_forwardz00_5970);
																																																														BgL_bufposz00_5986
																																																															=
																																																															BgL_bufposz00_5971;
																																																													BgL_zc3z04anonymousza34044ze3z87_5987:
																																																														if ((BgL_forwardz00_5985 == BgL_bufposz00_5986))
																																																															{	/* Llib/date.scm 835 */
																																																																if (rgc_fill_buffer(BgL_iportz00_5983))
																																																																	{	/* Llib/date.scm 835 */
																																																																		long
																																																																			BgL_arg4047z00_5990;
																																																																		long
																																																																			BgL_arg4048z00_5991;
																																																																		BgL_arg4047z00_5990
																																																																			=
																																																																			RGC_BUFFER_FORWARD
																																																																			(BgL_iportz00_5983);
																																																																		BgL_arg4048z00_5991
																																																																			=
																																																																			RGC_BUFFER_BUFPOS
																																																																			(BgL_iportz00_5983);
																																																																		{
																																																																			long
																																																																				BgL_bufposz00_16776;
																																																																			long
																																																																				BgL_forwardz00_16775;
																																																																			BgL_forwardz00_16775
																																																																				=
																																																																				BgL_arg4047z00_5990;
																																																																			BgL_bufposz00_16776
																																																																				=
																																																																				BgL_arg4048z00_5991;
																																																																			BgL_bufposz00_5986
																																																																				=
																																																																				BgL_bufposz00_16776;
																																																																			BgL_forwardz00_5985
																																																																				=
																																																																				BgL_forwardz00_16775;
																																																																			goto
																																																																				BgL_zc3z04anonymousza34044ze3z87_5987;
																																																																		}
																																																																	}
																																																																else
																																																																	{	/* Llib/date.scm 835 */
																																																																		BgL_matchz00_6142
																																																																			=
																																																																			BgL_lastzd2matchzd2_5984;
																																																																	}
																																																															}
																																																														else
																																																															{	/* Llib/date.scm 835 */
																																																																int
																																																																	BgL_curz00_5992;
																																																																BgL_curz00_5992
																																																																	=
																																																																	RGC_BUFFER_GET_CHAR
																																																																	(BgL_iportz00_5983,
																																																																	BgL_forwardz00_5985);
																																																																{	/* Llib/date.scm 835 */

																																																																	{	/* Llib/date.scm 835 */
																																																																		bool_t
																																																																			BgL_test6017z00_16778;
																																																																		if (((long) (BgL_curz00_5992) >= 48L))
																																																																			{	/* Llib/date.scm 835 */
																																																																				BgL_test6017z00_16778
																																																																					=
																																																																					(
																																																																					(long)
																																																																					(BgL_curz00_5992)
																																																																					<
																																																																					58L);
																																																																			}
																																																																		else
																																																																			{	/* Llib/date.scm 835 */
																																																																				BgL_test6017z00_16778
																																																																					=
																																																																					(
																																																																					(bool_t)
																																																																					0);
																																																																			}
																																																																		if (BgL_test6017z00_16778)
																																																																			{	/* Llib/date.scm 835 */
																																																																				long
																																																																					BgL_arg4051z00_5995;
																																																																				BgL_arg4051z00_5995
																																																																					=
																																																																					(1L
																																																																					+
																																																																					BgL_forwardz00_5985);
																																																																				{	/* Llib/date.scm 835 */
																																																																					long
																																																																						BgL_newzd2matchzd2_9287;
																																																																					RGC_STOP_MATCH
																																																																						(BgL_iportz00_5983,
																																																																						BgL_arg4051z00_5995);
																																																																					BgL_newzd2matchzd2_9287
																																																																						=
																																																																						2L;
																																																																					BgL_matchz00_6142
																																																																						=
																																																																						BgL_newzd2matchzd2_9287;
																																																																			}}
																																																																		else
																																																																			{	/* Llib/date.scm 835 */
																																																																				BgL_matchz00_6142
																																																																					=
																																																																					BgL_lastzd2matchzd2_5984;
																																																																			}
																																																																	}
																																																																}
																																																															}
																																																													}
																																																												else
																																																													{	/* Llib/date.scm 835 */
																																																														BgL_matchz00_6142
																																																															=
																																																															BgL_newzd2matchzd2_5973;
																																																													}
																																																											}
																																																										}
																																																									}
																																																							}
																																																						}
																																																					else
																																																						{	/* Llib/date.scm 835 */
																																																							if (((long) (BgL_curz00_5931) == 43L))
																																																								{	/* Llib/date.scm 835 */
																																																									BgL_iportz00_5953
																																																										=
																																																										BgL_iportz00_5922;
																																																									BgL_lastzd2matchzd2_5954
																																																										=
																																																										BgL_lastzd2matchzd2_5923;
																																																									BgL_forwardz00_5955
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_5924);
																																																									BgL_bufposz00_5956
																																																										=
																																																										BgL_bufposz00_5925;
																																																								BgL_zc3z04anonymousza34028ze3z87_5957:
																																																									{	/* Llib/date.scm 835 */
																																																										long
																																																											BgL_newzd2matchzd2_5958;
																																																										RGC_STOP_MATCH
																																																											(BgL_iportz00_5953,
																																																											BgL_forwardz00_5955);
																																																										BgL_newzd2matchzd2_5958
																																																											=
																																																											3L;
																																																										if ((BgL_forwardz00_5955 == BgL_bufposz00_5956))
																																																											{	/* Llib/date.scm 835 */
																																																												if (rgc_fill_buffer(BgL_iportz00_5953))
																																																													{	/* Llib/date.scm 835 */
																																																														long
																																																															BgL_arg4031z00_5961;
																																																														long
																																																															BgL_arg4032z00_5962;
																																																														BgL_arg4031z00_5961
																																																															=
																																																															RGC_BUFFER_FORWARD
																																																															(BgL_iportz00_5953);
																																																														BgL_arg4032z00_5962
																																																															=
																																																															RGC_BUFFER_BUFPOS
																																																															(BgL_iportz00_5953);
																																																														{
																																																															long
																																																																BgL_bufposz00_16799;
																																																															long
																																																																BgL_forwardz00_16798;
																																																															BgL_forwardz00_16798
																																																																=
																																																																BgL_arg4031z00_5961;
																																																															BgL_bufposz00_16799
																																																																=
																																																																BgL_arg4032z00_5962;
																																																															BgL_bufposz00_5956
																																																																=
																																																																BgL_bufposz00_16799;
																																																															BgL_forwardz00_5955
																																																																=
																																																																BgL_forwardz00_16798;
																																																															goto
																																																																BgL_zc3z04anonymousza34028ze3z87_5957;
																																																														}
																																																													}
																																																												else
																																																													{	/* Llib/date.scm 835 */
																																																														BgL_matchz00_6142
																																																															=
																																																															BgL_newzd2matchzd2_5958;
																																																													}
																																																											}
																																																										else
																																																											{	/* Llib/date.scm 835 */
																																																												int
																																																													BgL_curz00_5963;
																																																												BgL_curz00_5963
																																																													=
																																																													RGC_BUFFER_GET_CHAR
																																																													(BgL_iportz00_5953,
																																																													BgL_forwardz00_5955);
																																																												{	/* Llib/date.scm 835 */

																																																													{	/* Llib/date.scm 835 */
																																																														bool_t
																																																															BgL_test6022z00_16801;
																																																														if (((long) (BgL_curz00_5963) >= 48L))
																																																															{	/* Llib/date.scm 835 */
																																																																BgL_test6022z00_16801
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_5963)
																																																																	<
																																																																	58L);
																																																															}
																																																														else
																																																															{	/* Llib/date.scm 835 */
																																																																BgL_test6022z00_16801
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	0);
																																																															}
																																																														if (BgL_test6022z00_16801)
																																																															{	/* Llib/date.scm 835 */
																																																																BgL_iportz00_6003
																																																																	=
																																																																	BgL_iportz00_5953;
																																																																BgL_lastzd2matchzd2_6004
																																																																	=
																																																																	BgL_newzd2matchzd2_5958;
																																																																BgL_forwardz00_6005
																																																																	=
																																																																	(1L
																																																																	+
																																																																	BgL_forwardz00_5955);
																																																																BgL_bufposz00_6006
																																																																	=
																																																																	BgL_bufposz00_5956;
																																																															BgL_zc3z04anonymousza34053ze3z87_6007:
																																																																if ((BgL_forwardz00_6005 == BgL_bufposz00_6006))
																																																																	{	/* Llib/date.scm 835 */
																																																																		if (rgc_fill_buffer(BgL_iportz00_6003))
																																																																			{	/* Llib/date.scm 835 */
																																																																				long
																																																																					BgL_arg4056z00_6010;
																																																																				long
																																																																					BgL_arg4057z00_6011;
																																																																				BgL_arg4056z00_6010
																																																																					=
																																																																					RGC_BUFFER_FORWARD
																																																																					(BgL_iportz00_6003);
																																																																				BgL_arg4057z00_6011
																																																																					=
																																																																					RGC_BUFFER_BUFPOS
																																																																					(BgL_iportz00_6003);
																																																																				{
																																																																					long
																																																																						BgL_bufposz00_16814;
																																																																					long
																																																																						BgL_forwardz00_16813;
																																																																					BgL_forwardz00_16813
																																																																						=
																																																																						BgL_arg4056z00_6010;
																																																																					BgL_bufposz00_16814
																																																																						=
																																																																						BgL_arg4057z00_6011;
																																																																					BgL_bufposz00_6006
																																																																						=
																																																																						BgL_bufposz00_16814;
																																																																					BgL_forwardz00_6005
																																																																						=
																																																																						BgL_forwardz00_16813;
																																																																					goto
																																																																						BgL_zc3z04anonymousza34053ze3z87_6007;
																																																																				}
																																																																			}
																																																																		else
																																																																			{	/* Llib/date.scm 835 */
																																																																				BgL_matchz00_6142
																																																																					=
																																																																					BgL_lastzd2matchzd2_6004;
																																																																			}
																																																																	}
																																																																else
																																																																	{	/* Llib/date.scm 835 */
																																																																		int
																																																																			BgL_curz00_6012;
																																																																		BgL_curz00_6012
																																																																			=
																																																																			RGC_BUFFER_GET_CHAR
																																																																			(BgL_iportz00_6003,
																																																																			BgL_forwardz00_6005);
																																																																		{	/* Llib/date.scm 835 */

																																																																			{	/* Llib/date.scm 835 */
																																																																				bool_t
																																																																					BgL_test6026z00_16816;
																																																																				if (((long) (BgL_curz00_6012) >= 48L))
																																																																					{	/* Llib/date.scm 835 */
																																																																						BgL_test6026z00_16816
																																																																							=
																																																																							(
																																																																							(long)
																																																																							(BgL_curz00_6012)
																																																																							<
																																																																							58L);
																																																																					}
																																																																				else
																																																																					{	/* Llib/date.scm 835 */
																																																																						BgL_test6026z00_16816
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							0);
																																																																					}
																																																																				if (BgL_test6026z00_16816)
																																																																					{	/* Llib/date.scm 835 */
																																																																						long
																																																																							BgL_arg4060z00_6015;
																																																																						BgL_arg4060z00_6015
																																																																							=
																																																																							(1L
																																																																							+
																																																																							BgL_forwardz00_6005);
																																																																						{	/* Llib/date.scm 835 */
																																																																							long
																																																																								BgL_newzd2matchzd2_9303;
																																																																							RGC_STOP_MATCH
																																																																								(BgL_iportz00_6003,
																																																																								BgL_arg4060z00_6015);
																																																																							BgL_newzd2matchzd2_9303
																																																																								=
																																																																								1L;
																																																																							BgL_matchz00_6142
																																																																								=
																																																																								BgL_newzd2matchzd2_9303;
																																																																					}}
																																																																				else
																																																																					{	/* Llib/date.scm 835 */
																																																																						BgL_matchz00_6142
																																																																							=
																																																																							BgL_lastzd2matchzd2_6004;
																																																																					}
																																																																			}
																																																																		}
																																																																	}
																																																															}
																																																														else
																																																															{	/* Llib/date.scm 835 */
																																																																BgL_matchz00_6142
																																																																	=
																																																																	BgL_newzd2matchzd2_5958;
																																																															}
																																																													}
																																																												}
																																																											}
																																																									}
																																																								}
																																																							else
																																																								{	/* Llib/date.scm 835 */
																																																									long
																																																										BgL_arg4025z00_5939;
																																																									BgL_arg4025z00_5939
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_5924);
																																																									{	/* Llib/date.scm 835 */
																																																										long
																																																											BgL_newzd2matchzd2_9244;
																																																										RGC_STOP_MATCH
																																																											(BgL_iportz00_5922,
																																																											BgL_arg4025z00_5939);
																																																										BgL_newzd2matchzd2_9244
																																																											=
																																																											3L;
																																																										BgL_matchz00_6142
																																																											=
																																																											BgL_newzd2matchzd2_9244;
																																														}}}}}}}}
																																														RGC_SET_FILEPOS
																																															(BgL_iportz00_5877);
																																														switch
																																															(BgL_matchz00_6142)
																																															{
																																															case 3L:

																																																{	/* Llib/date.scm 850 */
																																																	bool_t
																																																		BgL_test6028z00_16829;
																																																	{	/* Llib/date.scm 850 */
																																																		obj_t
																																																			BgL_tmpz00_16830;
																																																		BgL_tmpz00_16830
																																																			=
																																																			BGl_thezd2failureze71z35zz__datez00
																																																			(BgL_iportz00_5877);
																																																		BgL_test6028z00_16829
																																																			=
																																																			EOF_OBJECTP
																																																			(BgL_tmpz00_16830);
																																																	}
																																																	if (BgL_test6028z00_16829)
																																																		{	/* Llib/date.scm 850 */
																																																			if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BFALSE))
																																																				{	/* Llib/date.scm 233 */
																																																					long
																																																						BgL_tmpz00_16835;
																																																					{	/* Llib/date.scm 851 */
																																																						obj_t
																																																							BgL_aux4889z00_10546;
																																																						BgL_aux4889z00_10546
																																																							=
																																																							BFALSE;
																																																						{
																																																							obj_t
																																																								BgL_auxz00_16842;
																																																							BgL_auxz00_16842
																																																								=
																																																								BGl_typezd2errorzd2zz__errorz00
																																																								(BGl_string4971z00zz__datez00,
																																																								BINT
																																																								(37136L),
																																																								BGl_string5072z00zz__datez00,
																																																								BGl_string5073z00zz__datez00,
																																																								BgL_aux4889z00_10546);
																																																							FAILURE
																																																								(BgL_auxz00_16842,
																																																								BFALSE,
																																																								BFALSE);
																																																					}}
																																																					BgL_tmpz00_16835
																																																						=
																																																						0L;
																																																					return
																																																						bgl_make_date
																																																						(BgL_sssz00_5884,
																																																						(int)
																																																						(BgL_ssz00_5883),
																																																						(int)
																																																						(BgL_mmz00_5882),
																																																						(int)
																																																						(BgL_hhz00_5881),
																																																						(int)
																																																						(BgL_ddz00_5880),
																																																						(int)
																																																						(BgL_mmz00_5879),
																																																						(int)
																																																						(BgL_yyyyz00_5878),
																																																						BgL_tmpz00_16835,
																																																						((bool_t) 1), (int) ((-1L)));
																																																				}
																																																			else
																																																				{	/* Llib/date.scm 232 */
																																																					return
																																																						bgl_make_date
																																																						(BgL_sssz00_5884,
																																																						(int)
																																																						(BgL_ssz00_5883),
																																																						(int)
																																																						(BgL_mmz00_5882),
																																																						(int)
																																																						(BgL_hhz00_5881),
																																																						(int)
																																																						(BgL_ddz00_5880),
																																																						(int)
																																																						(BgL_mmz00_5879),
																																																						(int)
																																																						(BgL_yyyyz00_5878),
																																																						0L,
																																																						((bool_t) 0), (int) ((-1L)));
																																																		}}
																																																	else
																																																		{	/* Llib/date.scm 850 */
																																																			return
																																																				BGl_parsezd2errorzd2zz__datez00
																																																				(BGl_string5071z00zz__datez00,
																																																				BGl_string4943z00zz__datez00,
																																																				BGl_thezd2failureze71z35zz__datez00
																																																				(BgL_iportz00_5877),
																																																				BgL_iportz00_5877);
																																																		}
																																																}
																																																break;
																																															case 2L:

																																																{	/* Llib/date.scm 845 */
																																																	long
																																																		BgL_b1z00_6159;
																																																	long
																																																		BgL_b2z00_6160;
																																																	{	/* Llib/date.scm 845 */
																																																		int
																																																			BgL_arg4159z00_6166;
																																																		{	/* Llib/date.scm 835 */
																																																			int
																																																				BgL_tmpz00_16858;
																																																			BgL_tmpz00_16858
																																																				=
																																																				(int)
																																																				(1L);
																																																			BgL_arg4159z00_6166
																																																				=
																																																				RGC_BUFFER_BYTE_REF
																																																				(BgL_iportz00_5877,
																																																				BgL_tmpz00_16858);
																																																		}
																																																		BgL_b1z00_6159
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_arg4159z00_6166)
																																																			-
																																																			48L);
																																																	}
																																																	{	/* Llib/date.scm 846 */
																																																		int
																																																			BgL_arg4160z00_6167;
																																																		{	/* Llib/date.scm 835 */
																																																			int
																																																				BgL_tmpz00_16863;
																																																			BgL_tmpz00_16863
																																																				=
																																																				(int)
																																																				(2L);
																																																			BgL_arg4160z00_6167
																																																				=
																																																				RGC_BUFFER_BYTE_REF
																																																				(BgL_iportz00_5877,
																																																				BgL_tmpz00_16863);
																																																		}
																																																		BgL_b2z00_6160
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_arg4160z00_6167)
																																																			-
																																																			48L);
																																																	}
																																																	BgL_iportz00_6225
																																																		=
																																																		BgL_iportz00_5877;
																																																	BgL_yyyyz00_6226
																																																		=
																																																		BgL_yyyyz00_5878;
																																																	BgL_mmz00_6227
																																																		=
																																																		BgL_mmz00_5879;
																																																	BgL_ddz00_6228
																																																		=
																																																		BgL_ddz00_5880;
																																																	BgL_hhz00_6229
																																																		=
																																																		BgL_hhz00_5881;
																																																	BgL_mmz00_6230
																																																		=
																																																		BgL_mmz00_5882;
																																																	BgL_ssz00_6231
																																																		=
																																																		BgL_ssz00_5883;
																																																	BgL_sssz00_6232
																																																		=
																																																		BgL_sssz00_5884;
																																																	BgL_za7hhza7_6233
																																																		=
																																																		NEG
																																																		(
																																																		(3600L
																																																			*
																																																			((BgL_b1z00_6159 * 10L) + BgL_b2z00_6160)));
																																																BgL_zc3z04anonymousza34169ze3z87_6234:
																																																	{
																																																		obj_t
																																																			BgL_iportz00_6286;
																																																		long
																																																			BgL_lastzd2matchzd2_6287;
																																																		long
																																																			BgL_forwardz00_6288;
																																																		long
																																																			BgL_bufposz00_6289;
																																																		obj_t
																																																			BgL_iportz00_6301;
																																																		long
																																																			BgL_lastzd2matchzd2_6302;
																																																		long
																																																			BgL_forwardz00_6303;
																																																		long
																																																			BgL_bufposz00_6304;
																																																		RGC_START_MATCH
																																																			(BgL_iportz00_6225);
																																																		{	/* Llib/date.scm 818 */
																																																			long
																																																				BgL_matchz00_6440;
																																																			{	/* Llib/date.scm 818 */
																																																				long
																																																					BgL_arg4297z00_6478;
																																																				long
																																																					BgL_arg4298z00_6479;
																																																				BgL_arg4297z00_6478
																																																					=
																																																					RGC_BUFFER_FORWARD
																																																					(BgL_iportz00_6225);
																																																				BgL_arg4298z00_6479
																																																					=
																																																					RGC_BUFFER_BUFPOS
																																																					(BgL_iportz00_6225);
																																																				{
																																																					long
																																																						BgL_forwardz00_9182;
																																																					long
																																																						BgL_bufposz00_9183;
																																																					BgL_forwardz00_9182
																																																						=
																																																						BgL_arg4297z00_6478;
																																																					BgL_bufposz00_9183
																																																						=
																																																						BgL_arg4298z00_6479;
																																																				BgL_statezd20zd21069z00_9181:
																																																					if ((BgL_forwardz00_9182 == BgL_bufposz00_9183))
																																																						{	/* Llib/date.scm 818 */
																																																							if (rgc_fill_buffer(BgL_iportz00_6225))
																																																								{	/* Llib/date.scm 818 */
																																																									long
																																																										BgL_arg4173z00_9189;
																																																									long
																																																										BgL_arg4174z00_9190;
																																																									BgL_arg4173z00_9189
																																																										=
																																																										RGC_BUFFER_FORWARD
																																																										(BgL_iportz00_6225);
																																																									BgL_arg4174z00_9190
																																																										=
																																																										RGC_BUFFER_BUFPOS
																																																										(BgL_iportz00_6225);
																																																									{
																																																										long
																																																											BgL_bufposz00_16878;
																																																										long
																																																											BgL_forwardz00_16877;
																																																										BgL_forwardz00_16877
																																																											=
																																																											BgL_arg4173z00_9189;
																																																										BgL_bufposz00_16878
																																																											=
																																																											BgL_arg4174z00_9190;
																																																										BgL_bufposz00_9183
																																																											=
																																																											BgL_bufposz00_16878;
																																																										BgL_forwardz00_9182
																																																											=
																																																											BgL_forwardz00_16877;
																																																										goto
																																																											BgL_statezd20zd21069z00_9181;
																																																									}
																																																								}
																																																							else
																																																								{	/* Llib/date.scm 818 */
																																																									BgL_matchz00_6440
																																																										=
																																																										1L;
																																																								}
																																																						}
																																																					else
																																																						{	/* Llib/date.scm 818 */
																																																							int
																																																								BgL_curz00_9193;
																																																							BgL_curz00_9193
																																																								=
																																																								RGC_BUFFER_GET_CHAR
																																																								(BgL_iportz00_6225,
																																																								BgL_forwardz00_9182);
																																																							{	/* Llib/date.scm 818 */

																																																								if (((long) (BgL_curz00_9193) == 58L))
																																																									{	/* Llib/date.scm 818 */
																																																										BgL_iportz00_6286
																																																											=
																																																											BgL_iportz00_6225;
																																																										BgL_lastzd2matchzd2_6287
																																																											=
																																																											1L;
																																																										BgL_forwardz00_6288
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_9182);
																																																										BgL_bufposz00_6289
																																																											=
																																																											BgL_bufposz00_9183;
																																																									BgL_zc3z04anonymousza34179ze3z87_6290:
																																																										{	/* Llib/date.scm 818 */
																																																											long
																																																												BgL_newzd2matchzd2_6291;
																																																											RGC_STOP_MATCH
																																																												(BgL_iportz00_6286,
																																																												BgL_forwardz00_6288);
																																																											BgL_newzd2matchzd2_6291
																																																												=
																																																												1L;
																																																											if ((BgL_forwardz00_6288 == BgL_bufposz00_6289))
																																																												{	/* Llib/date.scm 818 */
																																																													if (rgc_fill_buffer(BgL_iportz00_6286))
																																																														{	/* Llib/date.scm 818 */
																																																															long
																																																																BgL_arg4182z00_6294;
																																																															long
																																																																BgL_arg4183z00_6295;
																																																															BgL_arg4182z00_6294
																																																																=
																																																																RGC_BUFFER_FORWARD
																																																																(BgL_iportz00_6286);
																																																															BgL_arg4183z00_6295
																																																																=
																																																																RGC_BUFFER_BUFPOS
																																																																(BgL_iportz00_6286);
																																																															{
																																																																long
																																																																	BgL_bufposz00_16891;
																																																																long
																																																																	BgL_forwardz00_16890;
																																																																BgL_forwardz00_16890
																																																																	=
																																																																	BgL_arg4182z00_6294;
																																																																BgL_bufposz00_16891
																																																																	=
																																																																	BgL_arg4183z00_6295;
																																																																BgL_bufposz00_6289
																																																																	=
																																																																	BgL_bufposz00_16891;
																																																																BgL_forwardz00_6288
																																																																	=
																																																																	BgL_forwardz00_16890;
																																																																goto
																																																																	BgL_zc3z04anonymousza34179ze3z87_6290;
																																																															}
																																																														}
																																																													else
																																																														{	/* Llib/date.scm 818 */
																																																															BgL_matchz00_6440
																																																																=
																																																																BgL_newzd2matchzd2_6291;
																																																														}
																																																												}
																																																											else
																																																												{	/* Llib/date.scm 818 */
																																																													int
																																																														BgL_curz00_6296;
																																																													BgL_curz00_6296
																																																														=
																																																														RGC_BUFFER_GET_CHAR
																																																														(BgL_iportz00_6286,
																																																														BgL_forwardz00_6288);
																																																													{	/* Llib/date.scm 818 */

																																																														{	/* Llib/date.scm 818 */
																																																															bool_t
																																																																BgL_test6035z00_16893;
																																																															if (((long) (BgL_curz00_6296) >= 48L))
																																																																{	/* Llib/date.scm 818 */
																																																																	BgL_test6035z00_16893
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_6296)
																																																																		<
																																																																		58L);
																																																																}
																																																															else
																																																																{	/* Llib/date.scm 818 */
																																																																	BgL_test6035z00_16893
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		0);
																																																																}
																																																															if (BgL_test6035z00_16893)
																																																																{	/* Llib/date.scm 818 */
																																																																	BgL_iportz00_6301
																																																																		=
																																																																		BgL_iportz00_6286;
																																																																	BgL_lastzd2matchzd2_6302
																																																																		=
																																																																		BgL_newzd2matchzd2_6291;
																																																																	BgL_forwardz00_6303
																																																																		=
																																																																		(1L
																																																																		+
																																																																		BgL_forwardz00_6288);
																																																																	BgL_bufposz00_6304
																																																																		=
																																																																		BgL_bufposz00_6289;
																																																																BgL_zc3z04anonymousza34187ze3z87_6305:
																																																																	if ((BgL_forwardz00_6303 == BgL_bufposz00_6304))
																																																																		{	/* Llib/date.scm 818 */
																																																																			if (rgc_fill_buffer(BgL_iportz00_6301))
																																																																				{	/* Llib/date.scm 818 */
																																																																					long
																																																																						BgL_arg4190z00_6308;
																																																																					long
																																																																						BgL_arg4191z00_6309;
																																																																					BgL_arg4190z00_6308
																																																																						=
																																																																						RGC_BUFFER_FORWARD
																																																																						(BgL_iportz00_6301);
																																																																					BgL_arg4191z00_6309
																																																																						=
																																																																						RGC_BUFFER_BUFPOS
																																																																						(BgL_iportz00_6301);
																																																																					{
																																																																						long
																																																																							BgL_bufposz00_16906;
																																																																						long
																																																																							BgL_forwardz00_16905;
																																																																						BgL_forwardz00_16905
																																																																							=
																																																																							BgL_arg4190z00_6308;
																																																																						BgL_bufposz00_16906
																																																																							=
																																																																							BgL_arg4191z00_6309;
																																																																						BgL_bufposz00_6304
																																																																							=
																																																																							BgL_bufposz00_16906;
																																																																						BgL_forwardz00_6303
																																																																							=
																																																																							BgL_forwardz00_16905;
																																																																						goto
																																																																							BgL_zc3z04anonymousza34187ze3z87_6305;
																																																																					}
																																																																				}
																																																																			else
																																																																				{	/* Llib/date.scm 818 */
																																																																					BgL_matchz00_6440
																																																																						=
																																																																						BgL_lastzd2matchzd2_6302;
																																																																				}
																																																																		}
																																																																	else
																																																																		{	/* Llib/date.scm 818 */
																																																																			int
																																																																				BgL_curz00_6310;
																																																																			BgL_curz00_6310
																																																																				=
																																																																				RGC_BUFFER_GET_CHAR
																																																																				(BgL_iportz00_6301,
																																																																				BgL_forwardz00_6303);
																																																																			{	/* Llib/date.scm 818 */

																																																																				{	/* Llib/date.scm 818 */
																																																																					bool_t
																																																																						BgL_test6039z00_16908;
																																																																					if (((long) (BgL_curz00_6310) >= 48L))
																																																																						{	/* Llib/date.scm 818 */
																																																																							BgL_test6039z00_16908
																																																																								=
																																																																								(
																																																																								(long)
																																																																								(BgL_curz00_6310)
																																																																								<
																																																																								58L);
																																																																						}
																																																																					else
																																																																						{	/* Llib/date.scm 818 */
																																																																							BgL_test6039z00_16908
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								0);
																																																																						}
																																																																					if (BgL_test6039z00_16908)
																																																																						{	/* Llib/date.scm 818 */
																																																																							long
																																																																								BgL_arg4194z00_6313;
																																																																							BgL_arg4194z00_6313
																																																																								=
																																																																								(1L
																																																																								+
																																																																								BgL_forwardz00_6303);
																																																																							{	/* Llib/date.scm 818 */
																																																																								long
																																																																									BgL_newzd2matchzd2_9167;
																																																																								RGC_STOP_MATCH
																																																																									(BgL_iportz00_6301,
																																																																									BgL_arg4194z00_6313);
																																																																								BgL_newzd2matchzd2_9167
																																																																									=
																																																																									0L;
																																																																								BgL_matchz00_6440
																																																																									=
																																																																									BgL_newzd2matchzd2_9167;
																																																																						}}
																																																																					else
																																																																						{	/* Llib/date.scm 818 */
																																																																							BgL_matchz00_6440
																																																																								=
																																																																								BgL_lastzd2matchzd2_6302;
																																																																						}
																																																																				}
																																																																			}
																																																																		}
																																																																}
																																																															else
																																																																{	/* Llib/date.scm 818 */
																																																																	BgL_matchz00_6440
																																																																		=
																																																																		BgL_newzd2matchzd2_6291;
																																																																}
																																																														}
																																																													}
																																																												}
																																																										}
																																																									}
																																																								else
																																																									{	/* Llib/date.scm 818 */
																																																										long
																																																											BgL_arg4177z00_9200;
																																																										BgL_arg4177z00_9200
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_9182);
																																																										{	/* Llib/date.scm 818 */
																																																											long
																																																												BgL_newzd2matchzd2_9202;
																																																											RGC_STOP_MATCH
																																																												(BgL_iportz00_6225,
																																																												BgL_arg4177z00_9200);
																																																											BgL_newzd2matchzd2_9202
																																																												=
																																																												1L;
																																																											BgL_matchz00_6440
																																																												=
																																																												BgL_newzd2matchzd2_9202;
																																																			}}}}}}
																																																			RGC_SET_FILEPOS
																																																				(BgL_iportz00_6225);
																																																			switch
																																																				(BgL_matchz00_6440)
																																																				{
																																																				case 1L:

																																																					{	/* Llib/date.scm 828 */
																																																						bool_t
																																																							BgL_test6041z00_16921;
																																																						{	/* Llib/date.scm 828 */
																																																							obj_t
																																																								BgL_tmpz00_16922;
																																																							BgL_tmpz00_16922
																																																								=
																																																								BGl_thezd2failureze70z35zz__datez00
																																																								(BgL_iportz00_6225);
																																																							BgL_test6041z00_16921
																																																								=
																																																								EOF_OBJECTP
																																																								(BgL_tmpz00_16922);
																																																						}
																																																						if (BgL_test6041z00_16921)
																																																							{	/* Llib/date.scm 828 */
																																																								if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BINT(BgL_za7hhza7_6233)))
																																																									{	/* Llib/date.scm 232 */
																																																										return
																																																											bgl_make_date
																																																											(BgL_sssz00_6232,
																																																											(int)
																																																											(BgL_ssz00_6231),
																																																											(int)
																																																											(BgL_mmz00_6230),
																																																											(int)
																																																											(BgL_hhz00_6229),
																																																											(int)
																																																											(BgL_ddz00_6228),
																																																											(int)
																																																											(BgL_mmz00_6227),
																																																											(int)
																																																											(BgL_yyyyz00_6226),
																																																											BgL_za7hhza7_6233,
																																																											((bool_t) 1), (int) ((-1L)));
																																																									}
																																																								else
																																																									{	/* Llib/date.scm 232 */
																																																										return
																																																											bgl_make_date
																																																											(BgL_sssz00_6232,
																																																											(int)
																																																											(BgL_ssz00_6231),
																																																											(int)
																																																											(BgL_mmz00_6230),
																																																											(int)
																																																											(BgL_hhz00_6229),
																																																											(int)
																																																											(BgL_ddz00_6228),
																																																											(int)
																																																											(BgL_mmz00_6227),
																																																											(int)
																																																											(BgL_yyyyz00_6226),
																																																											0L,
																																																											((bool_t) 0), (int) ((-1L)));
																																																							}}
																																																						else
																																																							{	/* Llib/date.scm 828 */
																																																								return
																																																									BGl_parsezd2errorzd2zz__datez00
																																																									(BGl_string5071z00zz__datez00,
																																																									BGl_string4943z00zz__datez00,
																																																									BGl_thezd2failureze70z35zz__datez00
																																																									(BgL_iportz00_6225),
																																																									BgL_iportz00_6225);
																																																							}
																																																					}
																																																					break;
																																																				case 0L:

																																																					{	/* Llib/date.scm 820 */
																																																						long
																																																							BgL_b1z00_6457;
																																																						{	/* Llib/date.scm 820 */
																																																							int
																																																								BgL_arg4296z00_6477;
																																																							{	/* Llib/date.scm 818 */
																																																								int
																																																									BgL_tmpz00_16946;
																																																								BgL_tmpz00_16946
																																																									=
																																																									(int)
																																																									(1L);
																																																								BgL_arg4296z00_6477
																																																									=
																																																									RGC_BUFFER_BYTE_REF
																																																									(BgL_iportz00_6225,
																																																									BgL_tmpz00_16946);
																																																							}
																																																							BgL_b1z00_6457
																																																								=
																																																								(
																																																								(long)
																																																								(BgL_arg4296z00_6477)
																																																								-
																																																								48L);
																																																						}
																																																						{	/* Llib/date.scm 820 */
																																																							long
																																																								BgL_b2z00_6458;
																																																							{	/* Llib/date.scm 821 */
																																																								int
																																																									BgL_arg4295z00_6476;
																																																								{	/* Llib/date.scm 818 */
																																																									int
																																																										BgL_tmpz00_16951;
																																																									BgL_tmpz00_16951
																																																										=
																																																										(int)
																																																										(2L);
																																																									BgL_arg4295z00_6476
																																																										=
																																																										RGC_BUFFER_BYTE_REF
																																																										(BgL_iportz00_6225,
																																																										BgL_tmpz00_16951);
																																																								}
																																																								BgL_b2z00_6458
																																																									=
																																																									(
																																																									(long)
																																																									(BgL_arg4295z00_6476)
																																																									-
																																																									48L);
																																																							}
																																																							{	/* Llib/date.scm 821 */
																																																								long
																																																									BgL_tza7za7_6459;
																																																								if ((BgL_za7hhza7_6233 < 0L))
																																																									{	/* Llib/date.scm 822 */
																																																										BgL_tza7za7_6459
																																																											=
																																																											(BgL_za7hhza7_6233
																																																											-
																																																											(60L
																																																												*
																																																												((BgL_b1z00_6457 * 10L) + BgL_b2z00_6458)));
																																																									}
																																																								else
																																																									{	/* Llib/date.scm 822 */
																																																										BgL_tza7za7_6459
																																																											=
																																																											(BgL_za7hhza7_6233
																																																											+
																																																											(60L
																																																												*
																																																												((BgL_b1z00_6457 * 10L) + BgL_b2z00_6458)));
																																																									}
																																																								{	/* Llib/date.scm 822 */

																																																									if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BINT(BgL_tza7za7_6459)))
																																																										{	/* Llib/date.scm 232 */
																																																											return
																																																												bgl_make_date
																																																												(BgL_sssz00_6232,
																																																												(int)
																																																												(BgL_ssz00_6231),
																																																												(int)
																																																												(BgL_mmz00_6230),
																																																												(int)
																																																												(BgL_hhz00_6229),
																																																												(int)
																																																												(BgL_ddz00_6228),
																																																												(int)
																																																												(BgL_mmz00_6227),
																																																												(int)
																																																												(BgL_yyyyz00_6226),
																																																												BgL_tza7za7_6459,
																																																												((bool_t) 1), (int) ((-1L)));
																																																										}
																																																									else
																																																										{	/* Llib/date.scm 232 */
																																																											return
																																																												bgl_make_date
																																																												(BgL_sssz00_6232,
																																																												(int)
																																																												(BgL_ssz00_6231),
																																																												(int)
																																																												(BgL_mmz00_6230),
																																																												(int)
																																																												(BgL_hhz00_6229),
																																																												(int)
																																																												(BgL_ddz00_6228),
																																																												(int)
																																																												(BgL_mmz00_6227),
																																																												(int)
																																																												(BgL_yyyyz00_6226),
																																																												0L,
																																																												((bool_t) 0), (int) ((-1L)));
																																																					}}}}}
																																																						break;
																																																				default:
																																																					return BGl_errorz00zz__errorz00(BGl_string4941z00zz__datez00, BGl_string4942z00zz__datez00, BINT(BgL_matchz00_6440));
																																																				}
																																																		}
																																																	}
																																																}
																																																break;
																																															case 1L:

																																																{	/* Llib/date.scm 840 */
																																																	long
																																																		BgL_b1z00_6168;
																																																	long
																																																		BgL_b2z00_6169;
																																																	{	/* Llib/date.scm 840 */
																																																		int
																																																			BgL_arg4165z00_6174;
																																																		{	/* Llib/date.scm 835 */
																																																			int
																																																				BgL_tmpz00_16992;
																																																			BgL_tmpz00_16992
																																																				=
																																																				(int)
																																																				(1L);
																																																			BgL_arg4165z00_6174
																																																				=
																																																				RGC_BUFFER_BYTE_REF
																																																				(BgL_iportz00_5877,
																																																				BgL_tmpz00_16992);
																																																		}
																																																		BgL_b1z00_6168
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_arg4165z00_6174)
																																																			-
																																																			48L);
																																																	}
																																																	{	/* Llib/date.scm 841 */
																																																		int
																																																			BgL_arg4166z00_6175;
																																																		{	/* Llib/date.scm 835 */
																																																			int
																																																				BgL_tmpz00_16997;
																																																			BgL_tmpz00_16997
																																																				=
																																																				(int)
																																																				(2L);
																																																			BgL_arg4166z00_6175
																																																				=
																																																				RGC_BUFFER_BYTE_REF
																																																				(BgL_iportz00_5877,
																																																				BgL_tmpz00_16997);
																																																		}
																																																		BgL_b2z00_6169
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_arg4166z00_6175)
																																																			-
																																																			48L);
																																																	}
																																																	{
																																																		long
																																																			BgL_za7hhza7_17010;
																																																		BGL_LONGLONG_T
																																																			BgL_sssz00_17009;
																																																		long
																																																			BgL_ssz00_17008;
																																																		long
																																																			BgL_mmz00_17007;
																																																		long
																																																			BgL_hhz00_17006;
																																																		long
																																																			BgL_ddz00_17005;
																																																		long
																																																			BgL_mmz00_17004;
																																																		long
																																																			BgL_yyyyz00_17003;
																																																		obj_t
																																																			BgL_iportz00_17002;
																																																		BgL_iportz00_17002
																																																			=
																																																			BgL_iportz00_5877;
																																																		BgL_yyyyz00_17003
																																																			=
																																																			BgL_yyyyz00_5878;
																																																		BgL_mmz00_17004
																																																			=
																																																			BgL_mmz00_5879;
																																																		BgL_ddz00_17005
																																																			=
																																																			BgL_ddz00_5880;
																																																		BgL_hhz00_17006
																																																			=
																																																			BgL_hhz00_5881;
																																																		BgL_mmz00_17007
																																																			=
																																																			BgL_mmz00_5882;
																																																		BgL_ssz00_17008
																																																			=
																																																			BgL_ssz00_5883;
																																																		BgL_sssz00_17009
																																																			=
																																																			BgL_sssz00_5884;
																																																		BgL_za7hhza7_17010
																																																			=
																																																			(3600L
																																																			*
																																																			((BgL_b1z00_6168 * 10L) + BgL_b2z00_6169));
																																																		BgL_za7hhza7_6233
																																																			=
																																																			BgL_za7hhza7_17010;
																																																		BgL_sssz00_6232
																																																			=
																																																			BgL_sssz00_17009;
																																																		BgL_ssz00_6231
																																																			=
																																																			BgL_ssz00_17008;
																																																		BgL_mmz00_6230
																																																			=
																																																			BgL_mmz00_17007;
																																																		BgL_hhz00_6229
																																																			=
																																																			BgL_hhz00_17006;
																																																		BgL_ddz00_6228
																																																			=
																																																			BgL_ddz00_17005;
																																																		BgL_mmz00_6227
																																																			=
																																																			BgL_mmz00_17004;
																																																		BgL_yyyyz00_6226
																																																			=
																																																			BgL_yyyyz00_17003;
																																																		BgL_iportz00_6225
																																																			=
																																																			BgL_iportz00_17002;
																																																		goto
																																																			BgL_zc3z04anonymousza34169ze3z87_6234;
																																																	}
																																																}
																																																break;
																																															case 0L:

																																																if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BINT(0L)))
																																																	{	/* Llib/date.scm 232 */
																																																		return
																																																			bgl_make_date
																																																			(BgL_sssz00_5884,
																																																			(int)
																																																			(BgL_ssz00_5883),
																																																			(int)
																																																			(BgL_mmz00_5882),
																																																			(int)
																																																			(BgL_hhz00_5881),
																																																			(int)
																																																			(BgL_ddz00_5880),
																																																			(int)
																																																			(BgL_mmz00_5879),
																																																			(int)
																																																			(BgL_yyyyz00_5878),
																																																			0L,
																																																			((bool_t) 1), (int) ((-1L)));
																																																	}
																																																else
																																																	{	/* Llib/date.scm 232 */
																																																		return
																																																			bgl_make_date
																																																			(BgL_sssz00_5884,
																																																			(int)
																																																			(BgL_ssz00_5883),
																																																			(int)
																																																			(BgL_mmz00_5882),
																																																			(int)
																																																			(BgL_hhz00_5881),
																																																			(int)
																																																			(BgL_ddz00_5880),
																																																			(int)
																																																			(BgL_mmz00_5879),
																																																			(int)
																																																			(BgL_yyyyz00_5878),
																																																			0L,
																																																			((bool_t) 0), (int) ((-1L)));
																																																	}
																																																	break;
																																															default:
																																																return BGl_errorz00zz__errorz00(BGl_string4941z00zz__datez00, BGl_string4942z00zz__datez00, BINT(BgL_matchz00_6142));
																																															}
																																													}
																																												}
																																											}
																																									}
																																									break;
																																								case 0L:

																																									{	/* Llib/date.scm 878 */
																																										long
																																											BgL_b1z00_5538;
																																										long
																																											BgL_b2z00_5539;
																																										{	/* Llib/date.scm 878 */
																																											int
																																												BgL_arg3868z00_5543;
																																											{	/* Llib/date.scm 876 */
																																												int
																																													BgL_tmpz00_17036;
																																												BgL_tmpz00_17036
																																													=
																																													(int)
																																													(1L);
																																												BgL_arg3868z00_5543
																																													=
																																													RGC_BUFFER_BYTE_REF
																																													(BgL_iportz00_5308,
																																													BgL_tmpz00_17036);
																																											}
																																											BgL_b1z00_5538
																																												=
																																												(
																																												(long)
																																												(BgL_arg3868z00_5543)
																																												-
																																												48L);
																																										}
																																										{	/* Llib/date.scm 879 */
																																											int
																																												BgL_arg3869z00_5544;
																																											{	/* Llib/date.scm 876 */
																																												int
																																													BgL_tmpz00_17041;
																																												BgL_tmpz00_17041
																																													=
																																													(int)
																																													(2L);
																																												BgL_arg3869z00_5544
																																													=
																																													RGC_BUFFER_BYTE_REF
																																													(BgL_iportz00_5308,
																																													BgL_tmpz00_17041);
																																											}
																																											BgL_b2z00_5539
																																												=
																																												(
																																												(long)
																																												(BgL_arg3869z00_5544)
																																												-
																																												48L);
																																										}
																																										BgL_iportz00_5581
																																											=
																																											BgL_iportz00_5308;
																																										BgL_yyyyz00_5582
																																											=
																																											BgL_yyyyz00_5309;
																																										BgL_mmz00_5583
																																											=
																																											BgL_mmz00_5310;
																																										BgL_ddz00_5584
																																											=
																																											BgL_ddz00_5311;
																																										BgL_hhz00_5585
																																											=
																																											BgL_hhz00_5312;
																																										BgL_mmz00_5586
																																											=
																																											BgL_mmz00_5313;
																																										BgL_ssz00_5587
																																											=
																																											(
																																											(BgL_b1z00_5538
																																												*
																																												10L)
																																											+
																																											BgL_b2z00_5539);
																																										{
																																											obj_t
																																												BgL_iportz00_5641;
																																											long
																																												BgL_lastzd2matchzd2_5642;
																																											long
																																												BgL_forwardz00_5643;
																																											long
																																												BgL_bufposz00_5644;
																																											obj_t
																																												BgL_iportz00_5656;
																																											long
																																												BgL_lastzd2matchzd2_5657;
																																											long
																																												BgL_forwardz00_5658;
																																											long
																																												BgL_bufposz00_5659;
																																											obj_t
																																												BgL_iportz00_5670;
																																											long
																																												BgL_lastzd2matchzd2_5671;
																																											long
																																												BgL_forwardz00_5672;
																																											long
																																												BgL_bufposz00_5673;
																																											RGC_START_MATCH
																																												(BgL_iportz00_5581);
																																											{	/* Llib/date.scm 858 */
																																												long
																																													BgL_matchz00_5809;
																																												{	/* Llib/date.scm 858 */
																																													long
																																														BgL_arg4010z00_5840;
																																													long
																																														BgL_arg4011z00_5841;
																																													BgL_arg4010z00_5840
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_iportz00_5581);
																																													BgL_arg4011z00_5841
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_iportz00_5581);
																																													{
																																														long
																																															BgL_forwardz00_9403;
																																														long
																																															BgL_bufposz00_9404;
																																														BgL_forwardz00_9403
																																															=
																																															BgL_arg4010z00_5840;
																																														BgL_bufposz00_9404
																																															=
																																															BgL_arg4011z00_5841;
																																													BgL_statezd20zd21089z00_9402:
																																														if ((BgL_forwardz00_9403 == BgL_bufposz00_9404))
																																															{	/* Llib/date.scm 858 */
																																																if (rgc_fill_buffer(BgL_iportz00_5581))
																																																	{	/* Llib/date.scm 858 */
																																																		long
																																																			BgL_arg3876z00_9410;
																																																		long
																																																			BgL_arg3877z00_9411;
																																																		BgL_arg3876z00_9410
																																																			=
																																																			RGC_BUFFER_FORWARD
																																																			(BgL_iportz00_5581);
																																																		BgL_arg3877z00_9411
																																																			=
																																																			RGC_BUFFER_BUFPOS
																																																			(BgL_iportz00_5581);
																																																		{
																																																			long
																																																				BgL_bufposz00_17056;
																																																			long
																																																				BgL_forwardz00_17055;
																																																			BgL_forwardz00_17055
																																																				=
																																																				BgL_arg3876z00_9410;
																																																			BgL_bufposz00_17056
																																																				=
																																																				BgL_arg3877z00_9411;
																																																			BgL_bufposz00_9404
																																																				=
																																																				BgL_bufposz00_17056;
																																																			BgL_forwardz00_9403
																																																				=
																																																				BgL_forwardz00_17055;
																																																			goto
																																																				BgL_statezd20zd21089z00_9402;
																																																		}
																																																	}
																																																else
																																																	{	/* Llib/date.scm 858 */
																																																		BgL_matchz00_5809
																																																			=
																																																			1L;
																																																	}
																																															}
																																														else
																																															{	/* Llib/date.scm 858 */
																																																int
																																																	BgL_curz00_9414;
																																																BgL_curz00_9414
																																																	=
																																																	RGC_BUFFER_GET_CHAR
																																																	(BgL_iportz00_5581,
																																																	BgL_forwardz00_9403);
																																																{	/* Llib/date.scm 858 */

																																																	if (((long) (BgL_curz00_9414) == 46L))
																																																		{	/* Llib/date.scm 858 */
																																																			BgL_iportz00_5641
																																																				=
																																																				BgL_iportz00_5581;
																																																			BgL_lastzd2matchzd2_5642
																																																				=
																																																				1L;
																																																			BgL_forwardz00_5643
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_9403);
																																																			BgL_bufposz00_5644
																																																				=
																																																				BgL_bufposz00_9404;
																																																		BgL_zc3z04anonymousza33882ze3z87_5645:
																																																			{	/* Llib/date.scm 858 */
																																																				long
																																																					BgL_newzd2matchzd2_5646;
																																																				RGC_STOP_MATCH
																																																					(BgL_iportz00_5641,
																																																					BgL_forwardz00_5643);
																																																				BgL_newzd2matchzd2_5646
																																																					=
																																																					1L;
																																																				if ((BgL_forwardz00_5643 == BgL_bufposz00_5644))
																																																					{	/* Llib/date.scm 858 */
																																																						if (rgc_fill_buffer(BgL_iportz00_5641))
																																																							{	/* Llib/date.scm 858 */
																																																								long
																																																									BgL_arg3885z00_5649;
																																																								long
																																																									BgL_arg3886z00_5650;
																																																								BgL_arg3885z00_5649
																																																									=
																																																									RGC_BUFFER_FORWARD
																																																									(BgL_iportz00_5641);
																																																								BgL_arg3886z00_5650
																																																									=
																																																									RGC_BUFFER_BUFPOS
																																																									(BgL_iportz00_5641);
																																																								{
																																																									long
																																																										BgL_bufposz00_17069;
																																																									long
																																																										BgL_forwardz00_17068;
																																																									BgL_forwardz00_17068
																																																										=
																																																										BgL_arg3885z00_5649;
																																																									BgL_bufposz00_17069
																																																										=
																																																										BgL_arg3886z00_5650;
																																																									BgL_bufposz00_5644
																																																										=
																																																										BgL_bufposz00_17069;
																																																									BgL_forwardz00_5643
																																																										=
																																																										BgL_forwardz00_17068;
																																																									goto
																																																										BgL_zc3z04anonymousza33882ze3z87_5645;
																																																								}
																																																							}
																																																						else
																																																							{	/* Llib/date.scm 858 */
																																																								BgL_matchz00_5809
																																																									=
																																																									BgL_newzd2matchzd2_5646;
																																																							}
																																																					}
																																																				else
																																																					{	/* Llib/date.scm 858 */
																																																						int
																																																							BgL_curz00_5651;
																																																						BgL_curz00_5651
																																																							=
																																																							RGC_BUFFER_GET_CHAR
																																																							(BgL_iportz00_5641,
																																																							BgL_forwardz00_5643);
																																																						{	/* Llib/date.scm 858 */

																																																							{	/* Llib/date.scm 858 */
																																																								bool_t
																																																									BgL_test6051z00_17071;
																																																								if (((long) (BgL_curz00_5651) >= 48L))
																																																									{	/* Llib/date.scm 858 */
																																																										BgL_test6051z00_17071
																																																											=
																																																											(
																																																											(long)
																																																											(BgL_curz00_5651)
																																																											<
																																																											58L);
																																																									}
																																																								else
																																																									{	/* Llib/date.scm 858 */
																																																										BgL_test6051z00_17071
																																																											=
																																																											(
																																																											(bool_t)
																																																											0);
																																																									}
																																																								if (BgL_test6051z00_17071)
																																																									{	/* Llib/date.scm 858 */
																																																										BgL_iportz00_5656
																																																											=
																																																											BgL_iportz00_5641;
																																																										BgL_lastzd2matchzd2_5657
																																																											=
																																																											BgL_newzd2matchzd2_5646;
																																																										BgL_forwardz00_5658
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_5643);
																																																										BgL_bufposz00_5659
																																																											=
																																																											BgL_bufposz00_5644;
																																																									BgL_zc3z04anonymousza33890ze3z87_5660:
																																																										if ((BgL_forwardz00_5658 == BgL_bufposz00_5659))
																																																											{	/* Llib/date.scm 858 */
																																																												if (rgc_fill_buffer(BgL_iportz00_5656))
																																																													{	/* Llib/date.scm 858 */
																																																														long
																																																															BgL_arg3893z00_5663;
																																																														long
																																																															BgL_arg3894z00_5664;
																																																														BgL_arg3893z00_5663
																																																															=
																																																															RGC_BUFFER_FORWARD
																																																															(BgL_iportz00_5656);
																																																														BgL_arg3894z00_5664
																																																															=
																																																															RGC_BUFFER_BUFPOS
																																																															(BgL_iportz00_5656);
																																																														{
																																																															long
																																																																BgL_bufposz00_17084;
																																																															long
																																																																BgL_forwardz00_17083;
																																																															BgL_forwardz00_17083
																																																																=
																																																																BgL_arg3893z00_5663;
																																																															BgL_bufposz00_17084
																																																																=
																																																																BgL_arg3894z00_5664;
																																																															BgL_bufposz00_5659
																																																																=
																																																																BgL_bufposz00_17084;
																																																															BgL_forwardz00_5658
																																																																=
																																																																BgL_forwardz00_17083;
																																																															goto
																																																																BgL_zc3z04anonymousza33890ze3z87_5660;
																																																														}
																																																													}
																																																												else
																																																													{	/* Llib/date.scm 858 */
																																																														BgL_matchz00_5809
																																																															=
																																																															BgL_lastzd2matchzd2_5657;
																																																													}
																																																											}
																																																										else
																																																											{	/* Llib/date.scm 858 */
																																																												int
																																																													BgL_curz00_5665;
																																																												BgL_curz00_5665
																																																													=
																																																													RGC_BUFFER_GET_CHAR
																																																													(BgL_iportz00_5656,
																																																													BgL_forwardz00_5658);
																																																												{	/* Llib/date.scm 858 */

																																																													{	/* Llib/date.scm 858 */
																																																														bool_t
																																																															BgL_test6055z00_17086;
																																																														if (((long) (BgL_curz00_5665) >= 48L))
																																																															{	/* Llib/date.scm 858 */
																																																																BgL_test6055z00_17086
																																																																	=
																																																																	(
																																																																	(long)
																																																																	(BgL_curz00_5665)
																																																																	<
																																																																	58L);
																																																															}
																																																														else
																																																															{	/* Llib/date.scm 858 */
																																																																BgL_test6055z00_17086
																																																																	=
																																																																	(
																																																																	(bool_t)
																																																																	0);
																																																															}
																																																														if (BgL_test6055z00_17086)
																																																															{	/* Llib/date.scm 858 */
																																																																BgL_iportz00_5670
																																																																	=
																																																																	BgL_iportz00_5656;
																																																																BgL_lastzd2matchzd2_5671
																																																																	=
																																																																	BgL_lastzd2matchzd2_5657;
																																																																BgL_forwardz00_5672
																																																																	=
																																																																	(1L
																																																																	+
																																																																	BgL_forwardz00_5658);
																																																																BgL_bufposz00_5673
																																																																	=
																																																																	BgL_bufposz00_5659;
																																																															BgL_zc3z04anonymousza33898ze3z87_5674:
																																																																if ((BgL_forwardz00_5672 == BgL_bufposz00_5673))
																																																																	{	/* Llib/date.scm 858 */
																																																																		if (rgc_fill_buffer(BgL_iportz00_5670))
																																																																			{	/* Llib/date.scm 858 */
																																																																				long
																																																																					BgL_arg3901z00_5677;
																																																																				long
																																																																					BgL_arg3902z00_5678;
																																																																				BgL_arg3901z00_5677
																																																																					=
																																																																					RGC_BUFFER_FORWARD
																																																																					(BgL_iportz00_5670);
																																																																				BgL_arg3902z00_5678
																																																																					=
																																																																					RGC_BUFFER_BUFPOS
																																																																					(BgL_iportz00_5670);
																																																																				{
																																																																					long
																																																																						BgL_bufposz00_17099;
																																																																					long
																																																																						BgL_forwardz00_17098;
																																																																					BgL_forwardz00_17098
																																																																						=
																																																																						BgL_arg3901z00_5677;
																																																																					BgL_bufposz00_17099
																																																																						=
																																																																						BgL_arg3902z00_5678;
																																																																					BgL_bufposz00_5673
																																																																						=
																																																																						BgL_bufposz00_17099;
																																																																					BgL_forwardz00_5672
																																																																						=
																																																																						BgL_forwardz00_17098;
																																																																					goto
																																																																						BgL_zc3z04anonymousza33898ze3z87_5674;
																																																																				}
																																																																			}
																																																																		else
																																																																			{	/* Llib/date.scm 858 */
																																																																				BgL_matchz00_5809
																																																																					=
																																																																					BgL_lastzd2matchzd2_5671;
																																																																			}
																																																																	}
																																																																else
																																																																	{	/* Llib/date.scm 858 */
																																																																		int
																																																																			BgL_curz00_5679;
																																																																		BgL_curz00_5679
																																																																			=
																																																																			RGC_BUFFER_GET_CHAR
																																																																			(BgL_iportz00_5670,
																																																																			BgL_forwardz00_5672);
																																																																		{	/* Llib/date.scm 858 */

																																																																			{	/* Llib/date.scm 858 */
																																																																				bool_t
																																																																					BgL_test6059z00_17101;
																																																																				if (((long) (BgL_curz00_5679) >= 48L))
																																																																					{	/* Llib/date.scm 858 */
																																																																						BgL_test6059z00_17101
																																																																							=
																																																																							(
																																																																							(long)
																																																																							(BgL_curz00_5679)
																																																																							<
																																																																							58L);
																																																																					}
																																																																				else
																																																																					{	/* Llib/date.scm 858 */
																																																																						BgL_test6059z00_17101
																																																																							=
																																																																							(
																																																																							(bool_t)
																																																																							0);
																																																																					}
																																																																				if (BgL_test6059z00_17101)
																																																																					{	/* Llib/date.scm 858 */
																																																																						long
																																																																							BgL_arg3905z00_5682;
																																																																						BgL_arg3905z00_5682
																																																																							=
																																																																							(1L
																																																																							+
																																																																							BgL_forwardz00_5672);
																																																																						{	/* Llib/date.scm 858 */
																																																																							long
																																																																								BgL_newzd2matchzd2_9388;
																																																																							RGC_STOP_MATCH
																																																																								(BgL_iportz00_5670,
																																																																								BgL_arg3905z00_5682);
																																																																							BgL_newzd2matchzd2_9388
																																																																								=
																																																																								0L;
																																																																							BgL_matchz00_5809
																																																																								=
																																																																								BgL_newzd2matchzd2_9388;
																																																																					}}
																																																																				else
																																																																					{	/* Llib/date.scm 858 */
																																																																						BgL_matchz00_5809
																																																																							=
																																																																							BgL_lastzd2matchzd2_5671;
																																																																					}
																																																																			}
																																																																		}
																																																																	}
																																																															}
																																																														else
																																																															{	/* Llib/date.scm 858 */
																																																																BgL_matchz00_5809
																																																																	=
																																																																	BgL_lastzd2matchzd2_5657;
																																																															}
																																																													}
																																																												}
																																																											}
																																																									}
																																																								else
																																																									{	/* Llib/date.scm 858 */
																																																										BgL_matchz00_5809
																																																											=
																																																											BgL_newzd2matchzd2_5646;
																																																									}
																																																							}
																																																						}
																																																					}
																																																			}
																																																		}
																																																	else
																																																		{	/* Llib/date.scm 858 */
																																																			long
																																																				BgL_arg3880z00_9421;
																																																			BgL_arg3880z00_9421
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_9403);
																																																			{	/* Llib/date.scm 858 */
																																																				long
																																																					BgL_newzd2matchzd2_9423;
																																																				RGC_STOP_MATCH
																																																					(BgL_iportz00_5581,
																																																					BgL_arg3880z00_9421);
																																																				BgL_newzd2matchzd2_9423
																																																					=
																																																					1L;
																																																				BgL_matchz00_5809
																																																					=
																																																					BgL_newzd2matchzd2_9423;
																																												}}}}}}
																																												RGC_SET_FILEPOS
																																													(BgL_iportz00_5581);
																																												switch
																																													(BgL_matchz00_5809)
																																													{
																																													case 1L:

																																														{	/* Llib/date.scm 867 */
																																															bool_t
																																																BgL_test6061z00_17115;
																																															{	/* Llib/date.scm 867 */
																																																obj_t
																																																	BgL_tmpz00_17116;
																																																BgL_tmpz00_17116
																																																	=
																																																	BGl_thezd2failureze72z35zz__datez00
																																																	(BgL_iportz00_5581);
																																																BgL_test6061z00_17115
																																																	=
																																																	EOF_OBJECTP
																																																	(BgL_tmpz00_17116);
																																															}
																																															if (BgL_test6061z00_17115)
																																																{	/* Llib/date.scm 867 */
																																																	if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BFALSE))
																																																		{	/* Llib/date.scm 233 */
																																																			long
																																																				BgL_tmpz00_17121;
																																																			{	/* Llib/date.scm 868 */
																																																				obj_t
																																																					BgL_aux4890z00_10547;
																																																				BgL_aux4890z00_10547
																																																					=
																																																					BFALSE;
																																																				{
																																																					obj_t
																																																						BgL_auxz00_17128;
																																																					BgL_auxz00_17128
																																																						=
																																																						BGl_typezd2errorzd2zz__errorz00
																																																						(BGl_string4971z00zz__datez00,
																																																						BINT
																																																						(37666L),
																																																						BGl_string5072z00zz__datez00,
																																																						BGl_string5073z00zz__datez00,
																																																						BgL_aux4890z00_10547);
																																																					FAILURE
																																																						(BgL_auxz00_17128,
																																																						BFALSE,
																																																						BFALSE);
																																																			}}
																																																			BgL_tmpz00_17121
																																																				=
																																																				0L;
																																																			return
																																																				bgl_make_date
																																																				(
																																																				((BGL_LONGLONG_T) 0), (int) (BgL_ssz00_5587), (int) (BgL_mmz00_5586), (int) (BgL_hhz00_5585), (int) (BgL_ddz00_5584), (int) (BgL_mmz00_5583), (int) (BgL_yyyyz00_5582), BgL_tmpz00_17121, ((bool_t) 1), (int) ((-1L)));
																																																		}
																																																	else
																																																		{	/* Llib/date.scm 232 */
																																																			return
																																																				bgl_make_date
																																																				(
																																																				((BGL_LONGLONG_T) 0), (int) (BgL_ssz00_5587), (int) (BgL_mmz00_5586), (int) (BgL_hhz00_5585), (int) (BgL_ddz00_5584), (int) (BgL_mmz00_5583), (int) (BgL_yyyyz00_5582), 0L, ((bool_t) 0), (int) ((-1L)));
																																																}}
																																															else
																																																{	/* Llib/date.scm 867 */
																																																	{	/* Llib/date.scm 871 */
																																																		obj_t
																																																			BgL_arg3996z00_5823;
																																																		BgL_arg3996z00_5823
																																																			=
																																																			BGl_thezd2failureze72z35zz__datez00
																																																			(BgL_iportz00_5581);
																																																		BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00
																																																			(CCHAR
																																																			(BgL_arg3996z00_5823),
																																																			BgL_iportz00_5581);
																																																	}
																																																	{
																																																		BGL_LONGLONG_T
																																																			BgL_sssz00_17152;
																																																		long
																																																			BgL_ssz00_17151;
																																																		long
																																																			BgL_mmz00_17150;
																																																		long
																																																			BgL_hhz00_17149;
																																																		long
																																																			BgL_ddz00_17148;
																																																		long
																																																			BgL_mmz00_17147;
																																																		long
																																																			BgL_yyyyz00_17146;
																																																		obj_t
																																																			BgL_iportz00_17145;
																																																		BgL_iportz00_17145
																																																			=
																																																			BgL_iportz00_5581;
																																																		BgL_yyyyz00_17146
																																																			=
																																																			BgL_yyyyz00_5582;
																																																		BgL_mmz00_17147
																																																			=
																																																			BgL_mmz00_5583;
																																																		BgL_ddz00_17148
																																																			=
																																																			BgL_ddz00_5584;
																																																		BgL_hhz00_17149
																																																			=
																																																			BgL_hhz00_5585;
																																																		BgL_mmz00_17150
																																																			=
																																																			BgL_mmz00_5586;
																																																		BgL_ssz00_17151
																																																			=
																																																			BgL_ssz00_5587;
																																																		BgL_sssz00_17152
																																																			=
																																																			(
																																																			(BGL_LONGLONG_T)
																																																			0);
																																																		BgL_sssz00_5884
																																																			=
																																																			BgL_sssz00_17152;
																																																		BgL_ssz00_5883
																																																			=
																																																			BgL_ssz00_17151;
																																																		BgL_mmz00_5882
																																																			=
																																																			BgL_mmz00_17150;
																																																		BgL_hhz00_5881
																																																			=
																																																			BgL_hhz00_17149;
																																																		BgL_ddz00_5880
																																																			=
																																																			BgL_ddz00_17148;
																																																		BgL_mmz00_5879
																																																			=
																																																			BgL_mmz00_17147;
																																																		BgL_yyyyz00_5878
																																																			=
																																																			BgL_yyyyz00_17146;
																																																		BgL_iportz00_5877
																																																			=
																																																			BgL_iportz00_17145;
																																																		goto
																																																			BgL_zc3z04anonymousza34012ze3z87_5885;
																																																	}
																																																}
																																														}
																																														break;
																																													case 0L:

																																														{	/* Llib/date.scm 860 */
																																															long
																																																BgL_b1z00_5827;
																																															long
																																																BgL_b2z00_5828;
																																															long
																																																BgL_b3z00_5829;
																																															{	/* Llib/date.scm 860 */
																																																int
																																																	BgL_arg4007z00_5837;
																																																{	/* Llib/date.scm 858 */
																																																	int
																																																		BgL_tmpz00_17153;
																																																	BgL_tmpz00_17153
																																																		=
																																																		(int)
																																																		(1L);
																																																	BgL_arg4007z00_5837
																																																		=
																																																		RGC_BUFFER_BYTE_REF
																																																		(BgL_iportz00_5581,
																																																		BgL_tmpz00_17153);
																																																}
																																																BgL_b1z00_5827
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_arg4007z00_5837)
																																																	-
																																																	48L);
																																															}
																																															{	/* Llib/date.scm 861 */
																																																int
																																																	BgL_arg4008z00_5838;
																																																{	/* Llib/date.scm 858 */
																																																	int
																																																		BgL_tmpz00_17158;
																																																	BgL_tmpz00_17158
																																																		=
																																																		(int)
																																																		(2L);
																																																	BgL_arg4008z00_5838
																																																		=
																																																		RGC_BUFFER_BYTE_REF
																																																		(BgL_iportz00_5581,
																																																		BgL_tmpz00_17158);
																																																}
																																																BgL_b2z00_5828
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_arg4008z00_5838)
																																																	-
																																																	48L);
																																															}
																																															{	/* Llib/date.scm 862 */
																																																int
																																																	BgL_arg4009z00_5839;
																																																{	/* Llib/date.scm 858 */
																																																	int
																																																		BgL_tmpz00_17163;
																																																	BgL_tmpz00_17163
																																																		=
																																																		(int)
																																																		(3L);
																																																	BgL_arg4009z00_5839
																																																		=
																																																		RGC_BUFFER_BYTE_REF
																																																		(BgL_iportz00_5581,
																																																		BgL_tmpz00_17163);
																																																}
																																																BgL_b3z00_5829
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_arg4009z00_5839)
																																																	-
																																																	48L);
																																															}
																																															{	/* Llib/date.scm 863 */
																																																BGL_LONGLONG_T
																																																	BgL_arg4001z00_5831;
																																																{	/* Llib/date.scm 865 */
																																																	BGL_LONGLONG_T
																																																		BgL_arg4002z00_5832;
																																																	{	/* Llib/date.scm 865 */
																																																		long
																																																			BgL_tmpz00_17168;
																																																		BgL_tmpz00_17168
																																																			=
																																																			(
																																																			(((BgL_b1z00_5827 * 10L) + BgL_b2z00_5828) * 10L) + BgL_b3z00_5829);
																																																		BgL_arg4002z00_5832
																																																			=
																																																			LONG_TO_LLONG
																																																			(BgL_tmpz00_17168);
																																																	}
																																																	BgL_arg4001z00_5831
																																																		=
																																																		(
																																																		(16960
																																																			+
																																																			((BGL_LONGLONG_T) 65536 * (((BGL_LONGLONG_T) 15)))) * BgL_arg4002z00_5832);
																																																}
																																																{
																																																	BGL_LONGLONG_T
																																																		BgL_sssz00_17182;
																																																	long
																																																		BgL_ssz00_17181;
																																																	long
																																																		BgL_mmz00_17180;
																																																	long
																																																		BgL_hhz00_17179;
																																																	long
																																																		BgL_ddz00_17178;
																																																	long
																																																		BgL_mmz00_17177;
																																																	long
																																																		BgL_yyyyz00_17176;
																																																	obj_t
																																																		BgL_iportz00_17175;
																																																	BgL_iportz00_17175
																																																		=
																																																		BgL_iportz00_5581;
																																																	BgL_yyyyz00_17176
																																																		=
																																																		BgL_yyyyz00_5582;
																																																	BgL_mmz00_17177
																																																		=
																																																		BgL_mmz00_5583;
																																																	BgL_ddz00_17178
																																																		=
																																																		BgL_ddz00_5584;
																																																	BgL_hhz00_17179
																																																		=
																																																		BgL_hhz00_5585;
																																																	BgL_mmz00_17180
																																																		=
																																																		BgL_mmz00_5586;
																																																	BgL_ssz00_17181
																																																		=
																																																		BgL_ssz00_5587;
																																																	BgL_sssz00_17182
																																																		=
																																																		BgL_arg4001z00_5831;
																																																	BgL_sssz00_5884
																																																		=
																																																		BgL_sssz00_17182;
																																																	BgL_ssz00_5883
																																																		=
																																																		BgL_ssz00_17181;
																																																	BgL_mmz00_5882
																																																		=
																																																		BgL_mmz00_17180;
																																																	BgL_hhz00_5881
																																																		=
																																																		BgL_hhz00_17179;
																																																	BgL_ddz00_5880
																																																		=
																																																		BgL_ddz00_17178;
																																																	BgL_mmz00_5879
																																																		=
																																																		BgL_mmz00_17177;
																																																	BgL_yyyyz00_5878
																																																		=
																																																		BgL_yyyyz00_17176;
																																																	BgL_iportz00_5877
																																																		=
																																																		BgL_iportz00_17175;
																																																	goto
																																																		BgL_zc3z04anonymousza34012ze3z87_5885;
																																																}
																																															}
																																														}
																																														break;
																																													default:
																																														return BGl_errorz00zz__errorz00(BGl_string4941z00zz__datez00, BGl_string4942z00zz__datez00, BINT(BgL_matchz00_5809));
																																													}
																																											}
																																										}
																																									}
																																									break;
																																								default:
																																									return BGl_errorz00zz__errorz00(BGl_string4941z00zz__datez00, BGl_string4942z00zz__datez00, BINT(BgL_matchz00_5520));
																																								}
																																						}
																																					}
																																				}
																																				break;
																																			default:
																																				return
																																					BGl_errorz00zz__errorz00
																																					(BGl_string4941z00zz__datez00,
																																					BGl_string4942z00zz__datez00,
																																					BINT
																																					(BgL_matchz00_5248));
																																			}
																																	}
																																}
																															}
																															break;
																														default:
																															return
																																BGl_errorz00zz__errorz00
																																(BGl_string4941z00zz__datez00,
																																BGl_string4942z00zz__datez00,
																																BINT
																																(BgL_matchz00_4977));
																														}
																												}
																											}
																										}
																										break;
																									default:
																										return
																											BGl_errorz00zz__errorz00
																											(BGl_string4941z00zz__datez00,
																											BGl_string4942z00zz__datez00,
																											BINT(BgL_matchz00_4705));
																									}
																							}
																						}
																					}
																					break;
																				default:
																					return
																						BGl_errorz00zz__errorz00
																						(BGl_string4941z00zz__datez00,
																						BGl_string4942z00zz__datez00,
																						BINT(BgL_matchz00_4436));
																				}
																		}
																	}
																}
																break;
															default:
																return
																	BGl_errorz00zz__errorz00
																	(BGl_string4941z00zz__datez00,
																	BGl_string4942z00zz__datez00,
																	BINT(BgL_matchz00_4176));
															}
													}
												}
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* the-failure~0 */
	obj_t BGl_thezd2failureze70z35zz__datez00(obj_t BgL_iportz00_10298)
	{
		{	/* Llib/date.scm 818 */
			{	/* Llib/date.scm 818 */
				bool_t BgL_test6063z00_17215;

				{	/* Llib/date.scm 818 */
					long BgL_arg4276z00_6430;

					BgL_arg4276z00_6430 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_10298);
					BgL_test6063z00_17215 = (BgL_arg4276z00_6430 == 0L);
				}
				if (BgL_test6063z00_17215)
					{	/* Llib/date.scm 818 */
						return BEOF;
					}
				else
					{	/* Llib/date.scm 818 */
						return BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_10298));
					}
			}
		}

	}



/* the-failure~1 */
	obj_t BGl_thezd2failureze71z35zz__datez00(obj_t BgL_iportz00_10299)
	{
		{	/* Llib/date.scm 835 */
			{	/* Llib/date.scm 835 */
				bool_t BgL_test6064z00_17220;

				{	/* Llib/date.scm 835 */
					long BgL_arg4142z00_6132;

					BgL_arg4142z00_6132 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_10299);
					BgL_test6064z00_17220 = (BgL_arg4142z00_6132 == 0L);
				}
				if (BgL_test6064z00_17220)
					{	/* Llib/date.scm 835 */
						return BEOF;
					}
				else
					{	/* Llib/date.scm 835 */
						return BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_10299));
					}
			}
		}

	}



/* the-failure~2 */
	obj_t BGl_thezd2failureze72z35zz__datez00(obj_t BgL_iportz00_10300)
	{
		{	/* Llib/date.scm 858 */
			{	/* Llib/date.scm 858 */
				bool_t BgL_test6065z00_17225;

				{	/* Llib/date.scm 858 */
					long BgL_arg3987z00_5799;

					BgL_arg3987z00_5799 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_10300);
					BgL_test6065z00_17225 = (BgL_arg3987z00_5799 == 0L);
				}
				if (BgL_test6065z00_17225)
					{	/* Llib/date.scm 858 */
						return BEOF;
					}
				else
					{	/* Llib/date.scm 858 */
						return BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_10300));
					}
			}
		}

	}



/* the-failure~3 */
	obj_t BGl_thezd2failureze73z35zz__datez00(obj_t BgL_iportz00_10301)
	{
		{	/* Llib/date.scm 876 */
			{	/* Llib/date.scm 876 */
				bool_t BgL_test6066z00_17230;

				{	/* Llib/date.scm 876 */
					long BgL_arg3852z00_5510;

					BgL_arg3852z00_5510 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_10301);
					BgL_test6066z00_17230 = (BgL_arg3852z00_5510 == 0L);
				}
				if (BgL_test6066z00_17230)
					{	/* Llib/date.scm 876 */
						return BEOF;
					}
				else
					{	/* Llib/date.scm 876 */
						return BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_10301));
					}
			}
		}

	}



/* the-failure~4 */
	obj_t BGl_thezd2failureze74z35zz__datez00(obj_t BgL_iportz00_10302)
	{
		{	/* Llib/date.scm 892 */
			{	/* Llib/date.scm 892 */
				bool_t BgL_test6067z00_17235;

				{	/* Llib/date.scm 892 */
					long BgL_arg3726z00_5238;

					BgL_arg3726z00_5238 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_10302);
					BgL_test6067z00_17235 = (BgL_arg3726z00_5238 == 0L);
				}
				if (BgL_test6067z00_17235)
					{	/* Llib/date.scm 892 */
						return BEOF;
					}
				else
					{	/* Llib/date.scm 892 */
						return BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_10302));
					}
			}
		}

	}



/* the-failure~5 */
	obj_t BGl_thezd2failureze75z35zz__datez00(obj_t BgL_iportz00_10303)
	{
		{	/* Llib/date.scm 906 */
			{	/* Llib/date.scm 906 */
				bool_t BgL_test6068z00_17240;

				{	/* Llib/date.scm 906 */
					long BgL_arg3596z00_4967;

					BgL_arg3596z00_4967 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_10303);
					BgL_test6068z00_17240 = (BgL_arg3596z00_4967 == 0L);
				}
				if (BgL_test6068z00_17240)
					{	/* Llib/date.scm 906 */
						return BEOF;
					}
				else
					{	/* Llib/date.scm 906 */
						return BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_10303));
					}
			}
		}

	}



/* the-failure~6 */
	obj_t BGl_thezd2failureze76z35zz__datez00(obj_t BgL_iportz00_10304)
	{
		{	/* Llib/date.scm 921 */
			{	/* Llib/date.scm 921 */
				bool_t BgL_test6069z00_17245;

				{	/* Llib/date.scm 921 */
					long BgL_arg3457z00_4695;

					BgL_arg3457z00_4695 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_10304);
					BgL_test6069z00_17245 = (BgL_arg3457z00_4695 == 0L);
				}
				if (BgL_test6069z00_17245)
					{	/* Llib/date.scm 921 */
						return BEOF;
					}
				else
					{	/* Llib/date.scm 921 */
						return BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_10304));
					}
			}
		}

	}



/* the-failure~7 */
	obj_t BGl_thezd2failureze77z35zz__datez00(obj_t BgL_iportz00_10305)
	{
		{	/* Llib/date.scm 935 */
			{	/* Llib/date.scm 935 */
				bool_t BgL_test6070z00_17250;

				{	/* Llib/date.scm 935 */
					long BgL_arg3317z00_4426;

					BgL_arg3317z00_4426 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_10305);
					BgL_test6070z00_17250 = (BgL_arg3317z00_4426 == 0L);
				}
				if (BgL_test6070z00_17250)
					{	/* Llib/date.scm 935 */
						return BEOF;
					}
				else
					{	/* Llib/date.scm 935 */
						return BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_10305));
					}
			}
		}

	}



/* &iso8601-parse-date */
	obj_t BGl_z62iso8601zd2parsezd2datez62zz__datez00(obj_t BgL_envz00_10296,
		obj_t BgL_ipz00_10297)
	{
		{	/* Llib/date.scm 815 */
			{	/* Llib/date.scm 818 */
				obj_t BgL_auxz00_17255;

				if (INPUT_PORTP(BgL_ipz00_10297))
					{	/* Llib/date.scm 818 */
						BgL_auxz00_17255 = BgL_ipz00_10297;
					}
				else
					{
						obj_t BgL_auxz00_17258;

						BgL_auxz00_17258 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string4971z00zz__datez00,
							BINT(35982L), BGl_string5074z00zz__datez00,
							BGl_string5063z00zz__datez00, BgL_ipz00_10297);
						FAILURE(BgL_auxz00_17258, BFALSE, BFALSE);
					}
				return BGl_iso8601zd2parsezd2datez00zz__datez00(BgL_auxz00_17255);
			}
		}

	}



/* 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_arg4299z00_6513;

				{	/* Llib/date.scm 966 */
					BgL_z62iozd2parsezd2errorz62_bglt BgL_new1148z00_6514;

					{	/* Llib/date.scm 972 */
						BgL_z62iozd2parsezd2errorz62_bglt BgL_new1147z00_6525;

						BgL_new1147z00_6525 =
							((BgL_z62iozd2parsezd2errorz62_bglt)
							BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62iozd2parsezd2errorz62_bgl))));
						{	/* Llib/date.scm 972 */
							long BgL_arg4310z00_6526;

							BgL_arg4310z00_6526 =
								BGL_CLASS_NUM(BGl_z62iozd2parsezd2errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1147z00_6525),
								BgL_arg4310z00_6526);
						}
						BgL_new1148z00_6514 = BgL_new1147z00_6525;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1148z00_6514)))->
							BgL_fnamez00) =
						((obj_t) INPUT_PORT_NAME(BgL_portz00_99)), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1148z00_6514)))->BgL_locationz00) =
						((obj_t) BINT(INPUT_PORT_FILEPOS(BgL_portz00_99))), BUNSPEC);
					{
						obj_t BgL_auxz00_17274;

						{	/* Llib/date.scm 973 */
							obj_t BgL_arg4300z00_6515;

							{	/* Llib/date.scm 973 */
								obj_t BgL_arg4301z00_6516;

								{	/* Llib/date.scm 973 */
									obj_t BgL_classz00_9940;

									BgL_classz00_9940 = BGl_z62iozd2parsezd2errorz62zz__objectz00;
									BgL_arg4301z00_6516 = BGL_CLASS_ALL_FIELDS(BgL_classz00_9940);
								}
								BgL_arg4300z00_6515 = VECTOR_REF(BgL_arg4301z00_6516, 2L);
							}
							BgL_auxz00_17274 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg4300z00_6515);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1148z00_6514)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_17274), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(
									((BgL_z62errorz62_bglt) BgL_new1148z00_6514)))->BgL_procz00) =
						((obj_t) BgL_procz00_96), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
										BgL_new1148z00_6514)))->BgL_msgz00) =
						((obj_t) BgL_messagez00_97), BUNSPEC);
					{
						obj_t BgL_auxz00_17284;

						if (CHARP(BgL_objz00_98))
							{	/* Llib/date.scm 970 */
								obj_t BgL_arg4303z00_6518;
								obj_t BgL_arg4304z00_6519;

								{	/* Llib/date.scm 970 */
									obj_t BgL_list4309z00_6524;

									BgL_list4309z00_6524 = MAKE_YOUNG_PAIR(BgL_objz00_98, BNIL);
									BgL_arg4303z00_6518 =
										BGl_listzd2ze3stringz31zz__r4_strings_6_7z00
										(BgL_list4309z00_6524);
								}
								BgL_arg4304z00_6519 =
									BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_portz00_99);
								{	/* Llib/date.scm 970 */
									obj_t BgL_list4305z00_6520;

									{	/* Llib/date.scm 970 */
										obj_t BgL_arg4306z00_6521;

										{	/* Llib/date.scm 970 */
											obj_t BgL_arg4307z00_6522;

											{	/* Llib/date.scm 970 */
												obj_t BgL_arg4308z00_6523;

												BgL_arg4308z00_6523 =
													MAKE_YOUNG_PAIR(BgL_arg4304z00_6519, BNIL);
												BgL_arg4307z00_6522 =
													MAKE_YOUNG_PAIR(BGl_string5075z00zz__datez00,
													BgL_arg4308z00_6523);
											}
											BgL_arg4306z00_6521 =
												MAKE_YOUNG_PAIR(BgL_arg4303z00_6518,
												BgL_arg4307z00_6522);
										}
										BgL_list4305z00_6520 =
											MAKE_YOUNG_PAIR(BGl_string5076z00zz__datez00,
											BgL_arg4306z00_6521);
									}
									BgL_auxz00_17284 =
										BGl_stringzd2appendzd2zz__r4_strings_6_7z00
										(BgL_list4305z00_6520);
								}
							}
						else
							{	/* Llib/date.scm 969 */
								BgL_auxz00_17284 = BgL_objz00_98;
							}
						((((BgL_z62errorz62_bglt) COBJECT(
										((BgL_z62errorz62_bglt) BgL_new1148z00_6514)))->
								BgL_objz00) = ((obj_t) BgL_auxz00_17284), BUNSPEC);
					}
					BgL_arg4299z00_6513 = BgL_new1148z00_6514;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg4299z00_6513));
			}
		}

	}



/* 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_string5077z00zz__datez00));
		}

	}

#ifdef __cplusplus
}
#endif
