Uname: Linux web3.us.cloudlogin.co 5.10.226-xeon-hst #2 SMP Fri Sep 13 12:28:44 UTC 2024 x86_64
Software: Apache
PHP version: 8.1.31 [ PHP INFO ] PHP os: Linux
Server Ip: 162.210.96.117
Your Ip: 3.17.156.114
User: edustar (269686) | Group: tty (888)
Safe Mode: OFF
Disable Function:
NONE

name : srfi-19.go
GOOF----LE-8-2.0�]�4hح]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-19�	�		gfilenameS�	
fsrfi/srfi-19.scm�	gimportsS�	gsrfi-6�	
�	
�	gsrfi-8�	�	�	gsrfi-9�	�	�	gice-9�	gi18n�	�	�	�	gexportsS�	g
time-duration�	gtime-monotonic�	gtime-process�	gtime-tai�	gtime-thread�	 gtime-utc�	!gcurrent-date�	"gcurrent-julian-day�	#gcurrent-modified-julian-day�	$gtime-resolution�	%g	make-time�	&gtime?�	'g	time-type�	(gtime-nanosecond�	)gtime-second�	*gset-time-type!�	+gset-time-nanosecond!�	,gset-time-second!�	-g	copy-time�	.gtime<=?�	/gtime<?�	0gtime=?�	1gtime>=?�	2gtime>?�	3gtime-difference�	4gtime-difference!�	5gadd-duration�	6g
add-duration!�	7gsubtract-duration�	8gsubtract-duration!�	9g	make-date�	:gdate?�	;gdate-nanosecond�	<gdate-second�	=gdate-minute�	>g	date-hour�	?gdate-day�	@g
date-month�	Ag	date-year�	Bgdate-zone-offset�	Cg
date-year-day�	Dg
date-week-day�	Egdate-week-number�	Fgdate->julian-day�	Ggdate->modified-julian-day�	Hgdate->time-monotonic�	Igdate->time-tai�	Jgdate->time-utc�	Kgjulian-day->date�	Lgjulian-day->time-monotonic�	Mgjulian-day->time-tai�	Ngjulian-day->time-utc�	Ogmodified-julian-day->date�	Pg#modified-julian-day->time-monotonic�	Qgmodified-julian-day->time-tai�	Rgmodified-julian-day->time-utc�	Sgtime-monotonic->date�	Tgtime-monotonic->julian-day�	Ug#time-monotonic->modified-julian-day�	Vgtime-monotonic->time-tai�	Wgtime-monotonic->time-tai!�	Xgtime-monotonic->time-utc�	Ygtime-monotonic->time-utc!�	Zgtime-tai->date�	[gtime-tai->julian-day�	\gtime-tai->modified-julian-day�	]gtime-tai->time-monotonic�	^gtime-tai->time-monotonic!�	_gtime-tai->time-utc�	`gtime-tai->time-utc!�	agtime-utc->date�	bgtime-utc->julian-day�	cgtime-utc->modified-julian-day�	dgtime-utc->time-monotonic�	egtime-utc->time-monotonic!�	fgtime-utc->time-tai�	ggtime-utc->time-tai!�	hgdate->string�	igstring->date�	j !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghiO�	kgreplacementsS�	lgcurrent-time�	ml�	ng	autoloadsS�	ogrdelim�	po�	qg	read-line�	rq�	spr�	tgset-current-module�	ut�	vt�	wgcond-expand-provide�	xgcurrent-module�	y�	zf~a ~b ~d ~H:~M:~S~z ~Y�	{glocale-date-time-format�	|f~m/~d/~y�	}glocale-short-date-format�	~f~H:~M:~S�	glocale-time-format��f~Y-~m-~dT~H:~M:~S~z��giso-8601-date-time-format��gnano��gsid��gsihd��e	4881175/2��gtai-epoch-in-jd��gthrow��g
misc-error��fTIME-ERROR type ~A: ~S��fTIME-ERROR type ~A��g
time-error��gopen-input-file��geof-object?��gread��gopen-input-string��g
string-append��f(��f)��ginexact->exact��gread-tai-utc-data��U�-�	$���O�	#���I\�	"���C��	!���6�	 ���3�H�	���0�$	���.\�	���,2)	���*P��	���'�	���%���	���!��	���%�	���b1�	�����	����ʀ	���Φ	����r�	���?	���
+�	���H��	���	gS	�����	
�����	����X	����g	
��������������������������������gleap-second-table��gread-leap-second-table��gleap-second-delta��gtime��g!%make-time-unnormalized-procedure��gmake-syntax-transformer��������gmake-time-unnormalized��gmacro��g$sc-dispatch��������g_��gany��������g
syntax-object��glambda��gm-46961e50d3-30��gtop������gribcage��gt-46961e50d3-2d��gt-46961e50d3-2e��gt-46961e50d3-2f������������fl-46961e50d3-35��fl-46961e50d3-36��fl-46961e50d3-37����������������gx��������fl-46961e50d3-32�����������gshift��g	proc-name��gargs�������������fl-1e8ba8b5a-2ba��fl-1e8ba8b5a-2bb������������gkey��gvalue��gname��gformals��gbody����������������fl-1e8ba8b5a-2ad��fl-1e8ba8b5a-2ae��fl-1e8ba8b5a-2af��fl-1e8ba8b5a-2b0��fl-1e8ba8b5a-2b1���������������gmake-procedure-name��������fl-1e8ba8b5a-29d��������������fl-1e8ba8b5a-29c������������������������
��ghygiene�����������gtype�������������g
nanosecond����gsecond�����gmake-struct�gm-46961e50d3-2b�	��
gt-1e8ba8b5a-38d�gt-1e8ba8b5a-38c�gt-1e8ba8b5a-38b�

�gm-1e8ba8b5a-38e����fl-1e8ba8b5a-392�fl-1e8ba8b5a-393�fl-1e8ba8b5a-394���
�g	ctor-args��fl-1e8ba8b5a-37a�����gctor�gfield��fl-1e8ba8b5a-376�fl-1e8ba8b5a-377� �!�� �"gform�#g	type-name�$gconstructor-spec�%gfield-names�&"#$%�'�����(fl-1e8ba8b5a-36b�)fl-1e8ba8b5a-36c�*fl-1e8ba8b5a-36d�+fl-1e8ba8b5a-36e�,()*+�-�&',�.g
record-layout�/gfunctional-setters�0gsetters�1gcopier�2ggetters�3gconstructor�4ggetter-identifiers�5gfield-identifiers�6./012345�7���������8fl-1e8ba8b5a-343�9fl-1e8ba8b5a-341�:fl-1e8ba8b5a-33f�;fl-1e8ba8b5a-33d�<fl-1e8ba8b5a-33b�=fl-1e8ba8b5a-339�>fl-1e8ba8b5a-337�?fl-1e8ba8b5a-335�@89:;<=>?�A�67@�Bfl-1e8ba8b5a-334�CB�D���C�E	��������!�-AD�F�E��G����H�
E��IFGH�J�I�Kgeach-any�L�K��Mgsyntax-violation�NM�OM�PfWrong number of arguments�Qgidentifier?�RQ�SQ�T����U��T�VM�WM�Xf-source expression failed to match any pattern�Ygrecord-type-vtable�ZY�[Y�\gpwpwpw�]gdefault-record-printer�^]�_]�`��agset-struct-vtable-name!�ba�ca�dgvtable-offset-user�ed�fd�gg%time?-procedure�h���igm-46961e50d3-41�ji��kgt-46961e50d3-40�lk�mj�nfl-46961e50d3-46�on�p�lmo�qfl-46961e50d3-43�rq�s��mr�tjp�s���������
�u��t��vgobj�wgt-1e8ba8b5a-47e�xgt-1e8ba8b5a-478�ygt-1e8ba8b5a-479�zgt-1e8ba8b5a-47a�{gt-1e8ba8b5a-47d�|gt-1e8ba8b5a-47c�}gt-1e8ba8b5a-47b�~wxyz{|}�gm-1e8ba8b5a-47f��������������fl-1e8ba8b5a-483��fl-1e8ba8b5a-484��fl-1e8ba8b5a-485��fl-1e8ba8b5a-486��fl-1e8ba8b5a-487��fl-1e8ba8b5a-488��fl-1e8ba8b5a-489������������~����g	copier-id�����fl-1e8ba8b5a-476�����������g	ctor-name�����fl-1e8ba8b5a-46e�����������%��fl-1e8ba8b5a-46c�����������glayout�����fl-1e8ba8b5a-46a�����������g
immutable?�����fl-1e8ba8b5a-468�����������gfield-count�����fl-1e8ba8b5a-466�����������g
getter-ids�����fl-1e8ba8b5a-463�����������g	field-ids�����fl-1e8ba8b5a-460�����������gpredicate-name��g
field-spec���"#$������������fl-1e8ba8b5a-453��fl-1e8ba8b5a-454��fl-1e8ba8b5a-455��fl-1e8ba8b5a-456��fl-1e8ba8b5a-457��fl-1e8ba8b5a-458����������������	p�s�����������������������AD���v�������gand��������gstruct?������������geq?��������g
struct-vtable�������������p�s�����������������u������s���g���gthrow-bad-struct��������g%time-type-procedure��gfree-id��g
%%on-error��gm-46961e50d3-4d���������fl-46961e50d3-4f���������������������������������������g%%type��gt-1e8ba8b5a-3a5��gt-1e8ba8b5a-3a6��gt-1e8ba8b5a-3a7��gt-1e8ba8b5a-3a8��gt-1e8ba8b5a-3a9��gt-1e8ba8b5a-3aa��gt-1e8ba8b5a-3ab�����������gm-1e8ba8b5a-3ac���������������fl-1e8ba8b5a-3b0��fl-1e8ba8b5a-3b1��fl-1e8ba8b5a-3b2��fl-1e8ba8b5a-3b3��fl-1e8ba8b5a-3b4��fl-1e8ba8b5a-3b5��fl-1e8ba8b5a-3b6�����������������ggetter��gindex������fl-1e8ba8b5a-3a3��fl-1e8ba8b5a-3a4������������#��������fl-1e8ba8b5a-39e�fl-1e8ba8b5a-39f�fl-1e8ba8b5a-3a0������	����������AD�����������	gck�
gerr�gs�
�
���fl-46961e50d3-52�fl-46961e50d3-53���
�������������
��	��gquote�������������g%%index����������fl-46961e50d3-57�fl-46961e50d3-58� �!�
 �"�!�����������
�#�	"��$�"��%!���&�
%�'$&�('�)g%%copier�*�)��+�*�,��+��-fl-46961e50d3-5c�.fl-46961e50d3-5d�/-.�0�
/�1�0�����������
�2�	1��3�1��4g%%time-set-fields�5�0���6�45�736�87�9gt-46961e50d3-4c�:9�;fl-46961e50d3-61�<;�=�:�<�>�=�����������
�?��>��@	=����������AD�A�@��BA�Cgif�D�C@��E��@��F��@��GFA�H�=���I��H�JEGI�Kg
struct-ref�L�K@��M=���N�
M�OLAN�P��@��Q�@��R�'H�SQR�TPAS�UDJOT�V?BU�W����X��W�Yg%time-nanosecond-procedure�Zgm-46961e50d3-68�[Z��\[�]fl-46961e50d3-6a�^]�_��\^�`[�_����������a��`��b�a�cb��d	�_��������AD�e��d��f�e�g�cf��h[[�ifl-46961e50d3-6d�jfl-46961e50d3-6e�kij�l�hk�m[l�_���������
�n�	m��o�m��p�l�_�q��p�roq�sr�t�d��u�t�v�cu��wfl-46961e50d3-72�xfl-46961e50d3-73�ywx�z�hy�{[z�_���������
�|�	{��}�{��~z�_��~��}������)d��������c����fl-46961e50d3-77��fl-46961e50d3-78�������h���[��_���������
���	������������_���4����������gt-46961e50d3-67�����fl-46961e50d3-7c�������\���[��_���������
��������	��_��������AD�����������C�����������������������_�������������K������_�����������������������(�������������������������_���Y���g%time-second-procedure��gm-46961e50d3-83���������fl-46961e50d3-85���������������������������������������	����������AD����������������������fl-46961e50d3-88��fl-46961e50d3-89������������������������
���	������������������������������������������fl-46961e50d3-8d��fl-46961e50d3-8e������������������������
���	���������������	�����������)��������������fl-46961e50d3-92��fl-46961e50d3-93������������������������
���	����������������4����������gt-46961e50d3-82�����fl-46961e50d3-97������������������������
��������	�����������AD�����������C�������������������������������������K����������	��������������������)����������������������������geach��������������	g%%set-fields�
gdummy�gcheck?�gexpr�

��gm-46961e50d3-9e���				�fl-46961e50d3-a3�fl-46961e50d3-a4�fl-46961e50d3-a5�fl-46961e50d3-a6�fl-46961e50d3-a7���
��fl-46961e50d3-a0�����gt-1e8ba8b5a-3c4�gt-1e8ba8b5a-3c6�gt-1e8ba8b5a-3c5�� gm-1e8ba8b5a-3c7�! ��"!!!�#fl-1e8ba8b5a-3cb�$fl-1e8ba8b5a-3cc�%fl-1e8ba8b5a-3cd�&#$%�'�"&�(fl-1e8ba8b5a-3c1�)fl-1e8ba8b5a-3c2�*fl-1e8ba8b5a-3c3�+()*�,���+�-	���'���,AD
�.�	-��/���0��/�1�'/�2�(/�3�)/�4123�5gmap�65�75�8glist�9g%set-time-type!-procedure�:����;gm-46961e50d3-b2�<;��=gt-46961e50d3-b0�>gt-46961e50d3-b1�?=>�@<<�Afl-46961e50d3-b7�Bfl-46961e50d3-b8�CAB�D�?@C�E<�Ffl-46961e50d3-b4�GF�H��EG�I<D�H���������
�J��I��Kgt-1e8ba8b5a-3e6�Lgt-1e8ba8b5a-3e7�MKL�Ngm-1e8ba8b5a-3e8�ON��POO�Qfl-1e8ba8b5a-3ec�Rfl-1e8ba8b5a-3ed�SQR�T�MPS�Ugsetter�V��U�Wfl-1e8ba8b5a-3e0�Xfl-1e8ba8b5a-3e1�Yfl-1e8ba8b5a-3e2�ZWXY�[�V�Z�\���]fl-1e8ba8b5a-3d7�^fl-1e8ba8b5a-3d8�_]^�`�\�_�agfield-specs�b#a�cfl-1e8ba8b5a-3d3�dfl-1e8ba8b5a-3d4�ecd�f�b�e�g	D�H��T[�`�fAD�h�g��igval�j�ig��khj�l�Cg��m��g��n��g��onh�p�D�H�q��p�rmoq�sgstruct-set!�t�sg��uD�H�v�
u�wthvj�x��g��y�g��z�*p�{yz�|xh{�}lrw|�~Jk}���H���9��g%set-time-nanosecond!-procedure��gm-46961e50d3-c2������gt-46961e50d3-c0��gt-46961e50d3-c1����������fl-46961e50d3-c7��fl-46961e50d3-c8���������������fl-46961e50d3-c4������������������������
��������	�����T[�`�fAD��������i���������C�������������������������������������s�������������������������������+���������������������������������g%set-time-second!-procedure��gm-46961e50d3-d2������gt-46961e50d3-d0��gt-46961e50d3-d1����������fl-46961e50d3-d7��fl-46961e50d3-d8���������������fl-46961e50d3-d4������������������������
��������	�����T[�`�fAD��������i���������C�������������������������������������s����������	���������������������,���������������������������������ginteger?��gtruncate��g
split-real��gabs��gtime-normalize!��gmktime��g
set-tm:sec��g
set-tm:min��gset-tm:hour��gset-tm:mday��g
set-tm:mon��gset-tm:year��gset-tm:isdst��g
set-tm:gmtoff��gdate->broken-down-time��ggettimeofday��gcurrent-time-utc��gcurrent-time-tai��gcurrent-time-monotonic��gunsupported-clock-type��gcurrent-time-thread��ginternal-time-units-per-second��gns-per-guile-tick��gget-internal-run-time��gcurrent-time-process��ginvalid-clock-type��gnot-duration��gincompatible-time-types��gpriv:time-tai->time-utc!��gpriv:time-utc->time-tai!��gdate��g%make-date-procedure�����������	��gm-46961e50d3-343������gt-46961e50d3-33b��gt-46961e50d3-33c��gt-46961e50d3-33d��gt-46961e50d3-33e��gt-46961e50d3-33f��gt-46961e50d3-340��gt-46961e50d3-341��gt-46961e50d3-342���������������������fl-46961e50d3-348�fl-46961e50d3-349�fl-46961e50d3-34a�fl-46961e50d3-34b�fl-46961e50d3-34c�fl-46961e50d3-34d�fl-46961e50d3-34e�fl-46961e50d3-34f��	����
��fl-46961e50d3-345��
��
��	�
���������
������	�
�����gminute���ghour���gday���gmonth���gyear���gzone-offset���� gm-46961e50d3-339�! ��"!	�
�����!�-AD�#�"��$���%�
"��&#$%�'&�(��
�)��(�*gpwpwpwpwpwpwpwpw�+�,g%date?-procedure�-gm-46961e50d3-35e�.-��/gt-46961e50d3-35d�0/�1.�2fl-46961e50d3-363�32�4�013�5fl-46961e50d3-360�65�7��16�8.4�7���������
�9��8��:!4�7�����������������������AD�;�v:��<;�=��:��>��:��?>;�@��:��A��:��BA;�C�4�7�D��C�E@BD�F=?E�G9<F�H��7�I�,H�Jg%date-nanosecond-procedure�Kgm-46961e50d3-36a�LK��ML�Nfl-46961e50d3-36c�ON�P��MO�QL�P����������R��Q��S�R�TS��U!�P��������AD�V��U��W�V�X�TW��YLL�Zfl-46961e50d3-36f�[fl-46961e50d3-370�\Z[�]�Y\�^L]�P���������
�_�	^��`�^��a�]�P�b��a�c`b�dc�e�U��f�e�g�Tf��hfl-46961e50d3-374�ifl-46961e50d3-375�jhi�k�Yj�lLk�P���������
�m�	l��n�l��ok�P�p�
o�qnp�rq�s�)U��t�s�u�Tt��vfl-46961e50d3-379�wfl-46961e50d3-37a�xvw�y�Yx�zLy�P���������
�{�	z��|�z��}g%%date-set-fields�~�y�P��}~��|�����gt-46961e50d3-369�����fl-46961e50d3-37e�������M���L��P���������
��������!��P��������AD�����������C�����������������������P�������������K������P���
��������������������;�������������������������P���J���g%date-second-procedure��gm-46961e50d3-385���������fl-46961e50d3-387���������������������������������������!����������AD����������������������fl-46961e50d3-38a��fl-46961e50d3-38b������������������������
���	������������������������������������������fl-46961e50d3-38f��fl-46961e50d3-390������������������������
���	��������������������������)��������������fl-46961e50d3-394��fl-46961e50d3-395������������������������
���	����������������}����������gt-46961e50d3-384�����fl-46961e50d3-399������������������������
��������!�����������AD�����������C�������������������������������������K������������������������������<���������������������������������g%date-minute-procedure��gm-46961e50d3-3a0���������fl-46961e50d3-3a2��������������������������������������!����������AD��������������fl-46961e50d3-3a5�fl-46961e50d3-3a6����	������������
�
�		���	������
���
�����������fl-46961e50d3-3aa�fl-46961e50d3-3ab����������������
��	���������	����)���� ����!fl-46961e50d3-3af�"fl-46961e50d3-3b0�#!"�$�#�%�$�����������
�&�	%��'�%��(�$���)�}(�*')�+*�,gt-46961e50d3-39f�-,�.fl-46961e50d3-3b4�/.�0�-�/�1�0�����������
�2��1��3!0����������AD�4�3��54�6�C3��7��3��8��3��984�:�0���;��:�<79;�=�K3��>0���?�	>�@=4?�A��3��B�3��C�=:�DBC�EA4D�F6<@E�G25F�H����I��H�Jg%date-hour-procedure�Kgm-46961e50d3-3bb�LK��ML�Nfl-46961e50d3-3bd�ON�P��MO�QL�P����������R��Q��S�R�TS��U!�P��������AD�V��U��W�V�X�TW��YLL�Zfl-46961e50d3-3c0�[fl-46961e50d3-3c1�\Z[�]�Y\�^L]�P���������
�_�	^��`�^��a�]�P�b��a�c`b�dc�e�U��f�e�g�Tf��hfl-46961e50d3-3c5�ifl-46961e50d3-3c6�jhi�k�Yj�lLk�P���������
�m�	l��n�l��ok�P�p�	o�qnp�rq�s�)U��t�s�u�Tt��vfl-46961e50d3-3ca�wfl-46961e50d3-3cb�xvw�y�Yx�zLy�P���������
�{�	z��|�z��}�y�P�~�}}�|~����gt-46961e50d3-3ba�����fl-46961e50d3-3cf�������M���L��P���������
��������!��P��������AD�����������C�����������������������P�������������K������P���	��������������������>�������������������������P���J���g%date-day-procedure��gm-46961e50d3-3d6���������fl-46961e50d3-3d8���������������������������������������!����������AD����������������������fl-46961e50d3-3db��fl-46961e50d3-3dc������������������������
���	������������������������������������������fl-46961e50d3-3e0��fl-46961e50d3-3e1������������������������
���	���������������	�����������)��������������fl-46961e50d3-3e5��fl-46961e50d3-3e6������������������������
���	����������������}����������gt-46961e50d3-3d5�����fl-46961e50d3-3ea������������������������
��������!�����������AD�����������C�������������������������������������K����������	��������������������?���������������������������������g%date-month-procedure��gm-46961e50d3-3f1���������fl-46961e50d3-3f3���������������������������������������!����������AD���������������fl-46961e50d3-3f6�fl-46961e50d3-3f7����������������
�	�	��
����������

�
�����������fl-46961e50d3-3fb�fl-46961e50d3-3fc����������������
��	���������	����)��������� fl-46961e50d3-400�!fl-46961e50d3-401�" !�#�"�$�#�����������
�%�	$��&�$��'�#���(�}'�)&(�*)�+gt-46961e50d3-3f0�,+�-fl-46961e50d3-405�.-�/�,�.�0�/�����������
�1��0��2!/����������AD�3�2��43�5�C2��6��2��7��2��873�9�/���:��9�;68:�<�K2��=/���>�	=�?<3>�@��2��A�2��B�@9�CAB�D@3C�E5;?D�F14E�G����H��G�Ig%date-year-procedure�Jgm-46961e50d3-40c�KJ��LK�Mfl-46961e50d3-40e�NM�O��LN�PK�O����������Q��P��R�Q�SR��T!�O��������AD�U��T��V�U�W�SV��XKK�Yfl-46961e50d3-411�Zfl-46961e50d3-412�[YZ�\�X[�]K\�O���������
�^�	]��_�]��`�\�O�a��`�b_a�cb�d�T��e�d�f�Se��gfl-46961e50d3-416�hfl-46961e50d3-417�igh�j�Xi�kKj�O���������
�l�	k��m�k��nj�O�o�	n�pmo�qp�r�)T��s�r�t�Ss��ufl-46961e50d3-41b�vfl-46961e50d3-41c�wuv�x�Xw�yKx�O���������
�z�	y��{�y��|�x�O�}�}|�~{}�~��gt-46961e50d3-40b�����fl-46961e50d3-420�������L���K��O���������
��������!��O��������AD�����������C�����������������������O�������������K������O���	��������������������A�������������������������O���I���g%date-zone-offset-procedure��gm-46961e50d3-427���������fl-46961e50d3-429���������������������������������������!����������AD����������������������fl-46961e50d3-42c��fl-46961e50d3-42d������������������������
���	������������������������������������������fl-46961e50d3-431��fl-46961e50d3-432������������������������
���	���������������	�����������)��������������fl-46961e50d3-436��fl-46961e50d3-437������������������������
���	����������������}����������gt-46961e50d3-426�����fl-46961e50d3-43b������������������������
��������!�����������AD�����������C�������������������������������������K����������	��������������������B���������������������������������gm-46961e50d3-442�������!!!!��fl-46961e50d3-447��fl-46961e50d3-448��fl-46961e50d3-449��fl-46961e50d3-44a��fl-46961e50d3-44b����������
�������fl-46961e50d3-444���������!����'���,AD
��	����������;��<��=��>�	�?�
�@��A��B�
	
�gset-date-nanosecond!�g%set-date-nanosecond!-procedure�gm-46961e50d3-456���gt-46961e50d3-454�gt-46961e50d3-455���fl-46961e50d3-45b�fl-46961e50d3-45c�����fl-46961e50d3-458���������������
����� !���T[�`�fAD�!� ��"�i ��#!"�$�C ��%�� ��&�� ��'&!�(���)��(�*%')�+�s ��,��-�
,�.+!-"�/�� ��0� ��1�(�201�3/!2�4$*.3�5#4�6���7�6�8gset-date-second!�9g%set-date-second!-procedure�:gm-46961e50d3-466�;:��<gt-46961e50d3-464�=gt-46961e50d3-465�><=�?;;�@fl-46961e50d3-46b�Afl-46961e50d3-46c�B@A�C�>?B�D;�Efl-46961e50d3-468�FE�G��DF�H;C�G���������
�I��H��J!C�G��T[�`�fAD�K�J��L�iJ��MKL�N�CJ��O��J��P��J��QPK�R�C�G�S��R�TOQS�U�sJ��VC�G�W�V�XUKWL�Y��J��Z�J��[�8R�\Z[�]YK\�^NTX]�_IM^�`��G�a�9`�bgset-date-minute!�cg%set-date-minute!-procedure�dgm-46961e50d3-476�ed��fgt-46961e50d3-474�ggt-46961e50d3-475�hfg�iee�jfl-46961e50d3-47b�kfl-46961e50d3-47c�ljk�m�hil�ne�ofl-46961e50d3-478�po�q��np�rem�q���������
�s��r��t!m�q��T[�`�fAD�u�t��v�it��wuv�x�Ct��y��t��z��t��{zu�|�m�q�}��|�~y{}��st���m�q���	���u�v����t����t����b|�������u���x~����sw�����q���c���gset-date-hour!��g%set-date-hour!-procedure��gm-46961e50d3-486������gt-46961e50d3-484��gt-46961e50d3-485����������fl-46961e50d3-48b��fl-46961e50d3-48c���������������fl-46961e50d3-488������������������������
��������!�����T[�`�fAD��������i���������C�������������������������������������s����������	�������������������������������������������������������g
set-date-day!��g%set-date-day!-procedure��gm-46961e50d3-496������gt-46961e50d3-494��gt-46961e50d3-495����������fl-46961e50d3-49b��fl-46961e50d3-49c���������������fl-46961e50d3-498������������������������
��������!�����T[�`�fAD��������i���������C�������������������������������������s����������	�������������������������������������������������������gset-date-month!��g%set-date-month!-procedure��gm-46961e50d3-4a6������gt-46961e50d3-4a4��gt-46961e50d3-4a5����������fl-46961e50d3-4ab��fl-46961e50d3-4ac���������������fl-46961e50d3-4a8������������������������
��������!�����T[�`�fAD��������i���������C�������������������������������������s����������	���������������������������������	���
gset-date-year!�g%set-date-year!-procedure�gm-46961e50d3-4b6�
��gt-46961e50d3-4b4�gt-46961e50d3-4b5��

�fl-46961e50d3-4bb�fl-46961e50d3-4bc����
�fl-46961e50d3-4b8�����
����������
�����!���T[�`�fAD�����i��� �C��!����"����#"�$���%��$�&!#%�'�s��(��)�	(�*')�+����,���-�
$�.,-�/+.�0 &*/�10�2���3�2�4gset-date-zone-offset!�5g %set-date-zone-offset!-procedure�6gm-46961e50d3-4c6�76��8gt-46961e50d3-4c4�9gt-46961e50d3-4c5�:89�;77�<fl-46961e50d3-4cb�=fl-46961e50d3-4cc�><=�?�:;>�@7�Afl-46961e50d3-4c8�BA�C��@B�D7?�C���������
�E��D��F!?�C��T[�`�fAD�G�F��H�iF��IGH�J�CF��K��F��L��F��MLG�N�?�C�O��N�PKMO�Q�sF��R?�C�S�	R�TQGSH�U��F��V�F��W�4N�XVW�YUGX�ZJPTY�[EIZ�\��C�]�5\�^gencode-julian-day-number�_gdecode-julian-day-number�`g	tm:gmtoff�ag	localtime�bglocal-tz-offset�cgtime->julian-day-number�dgassoc�egleap-second?�fg
time->date�gground�he1/2�ig
leap-year?�j
��k		��l		;��m		Z��n		x��o	���p	���q	Ԍ�r		�s	
��t	0��u	N��vjklmnopqrstu�wgmonth-assoc�xginvalid-month-specification�ygyear-day�zgweek-day�{gdays-before-first-week�|gnatural-year�}e-1/2�~e	4800001/2�gnumber->string��g
string-length��gmake-string��gpadding��gexpt��g
last-n-digits��glocale-day-short��glocale-abbr-weekday��g
locale-day��glocale-long-weekday��glocale-month-short��glocale-abbr-month��glocale-month��glocale-long-month��gdate-reverse-lookup��gstring=?��glocale-abbr-weekday->index��glocale-long-weekday->index��glocale-abbr-month->index��glocale-long-month->index��g
tz-printer��glocale-print-time-zone��glocale-pm-string��glocale-am-string��glocale-am-string/pm��gdisplay��fZ��f-��f+��e1.0��glocale-decimal-point��g	substring��f~b��gnewline��f~I:~M:~S ~p��f~Y-~m-~d��f
~H:~M:~S~z��f~Y-~m-~dT~H:~M:~S��g
directives��g
get-formatter��g
string-ref��gchar=?��gdate-printer��gbad-date-format-string��gopen-output-string��f~c��gget-output-string��g	char->int��gbad-date-template-string��fNon-integer character��g	peek-char��g
char-numeric?��g	read-char��ginteger-reader��gmake-integer-reader��f!Premature ending to integer read.��f'Non-numeric characters in integer read.��ginteger-reader-exact��gmake-integer-exact-reader��fInvalid time zone +/-��fInvalid time zone number��gzone-reader��gchar-alphabetic?��glist->string��greverse!��fInvalid string for ��g
locale-reader��gmake-locale-reader��fInvalid character match.��gmake-char-id-reader��gread-directives��gpriv:string->date��fIncomplete date read. �C5h8S�]@4	
jkmns54v>"G4wi4xi5y>"GR  RRRRRz{R|}R~R��R;���RQ��R���R��R����h0�]$66�gcaller
		*gtype		*gvalue			*gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	
��	�	 ��	�	9��	�	��	�	
��	"�	 ��	'�	5��	*�	��		*	gnameg
time-error�C�R����������qh�N]945H"�45$"~444555���������������$45	�
�45�J�K"45"���45"��sJCFgfilename
	�gport	
�gtable		
�gline		�gdata		6�gyear		;�gjd		D�gsecs		O�gfilenamefsrfi/srfi-19.scm�
�
��	�	��	
�	��	
�	��	�	��	�	��	�	��	"�	��	%�	��	(�	 ��	,�	/��	0�	8��	2�	 ��	4�	��	6�	��	6�	��	;�	��	;�	��	@�	!��	A�	��	D�	��	I�	!��	L�	��	O�	��	W�	��	[�	��	\�	
��	e�	��	h�	��	i�	��	p�	��	s�	��	u�	��	z�	����	����	����	����	��'	�gnamegread-tai-utc-data�C�R��R��h�]45 C�gfilename
		
gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	��		
gnamegread-leap-second-table�C�R��h8�]	"���$��C�"������$
C"����gutc-seconds
		6gtable		gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	)��	
�	��	�	��	�	��	�	#��	�	��	�	��	$�	��	(�	��	,�	��	6�	��		6gnamegleap-second-delta�C�R�h�]�C�gtype
		g
nanosecond		gsecond			gfilenamefsrfi/srfi-19.scm�
�
��			gnameg!%make-time-unnormalized-procedure�C�R4�����Jhq]Cigt-46961e50d3-2d
		gt-46961e50d3-2e		gt-46961e50d3-2f						CLO�PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
CUh]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
�
��		nC5�R[\_�`�4c�>"G	f��i��R�hr]�$��CCjgobj
		gfilenamefsrfi/srfi-19.scm�
�
��		gnameg%time?-procedure�CgR4�&��h�h7]C/gt-46961e50d3-40
		
		
CLO&PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
C�h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
�
��		nC5&R��'ht]�&
�C6lgs
		gfilenamefsrfi/srfi-19.scm�
�
��		gnameg%time-type-procedure�C�R4�'��h:]��C2gerr
		gs					C#(h:]��C2gerr
		gs					C,28h:]��C2gerr
		gs					ChVh7]C/gt-46961e50d3-4c
		
		
CLO'PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
CXh]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
�
��	�C5'R��(hz]�&�C6rgs
		gfilenamefsrfi/srfi-19.scm�
�
��		gnameg%time-nanosecond-procedure�CYR4�(��gnsh:]��C2gerr
		gs					Cv|�h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					Ch�h7]C/gt-46961e50d3-67
		
		
CLO(PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
C�h]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
�
��	�C5(R��)h v]�&	�C6ngs
		gfilenamefsrfi/srfi-19.scm�
�
��		gnameg%time-second-procedure�C�R4�)�����h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					Chh7]C/gt-46961e50d3-82
		
		
CLO)PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
Ch]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
�
��	�C5)R4�4��.0478h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						CWXh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-19.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C54R��*h �]�&
�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
�
��			gnameg%set-time-type!-procedure�C9R4�*��:~hT]CLgt-46961e50d3-b0
		gt-46961e50d3-b1					CLO*PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
C�h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
�
��		nC5*R��+h �]�&�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
�
��			gnameg%set-time-nanosecond!-procedure�C�R4�+��:�hT]CLgt-46961e50d3-c0
		gt-46961e50d3-c1					CLO+PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
C�h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
�
��		nC5+R��,h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
�
��			gnameg%set-time-second!-procedure�C�R4�,��:�hT]CLgt-46961e50d3-d0
		gt-46961e50d3-d1					CLO,PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
C�h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
�
��		nC5,R%��'()hX�]�&
�"	45�&�"	45�&		�"	456�gtime
		Ugfilenamefsrfi/srfi-19.scm�
�
��		
��	!	��	;	5��	U	��		Ugnameg	copy-time�C-R���h0�]	45$
45
D4545�D�gr
		.gl		.gfilenamefsrfi/srfi-19.scm�

��		��	
	��		��		��		��		��	!	��	,	#��	.	��		.gnameg
split-real�C�R���(�),+	h��]4�&�"	455;���$�4�&�"	45>G�&		�"	45;�����&	�"4>"G;�����&�"4>"G""��&		�"	45
�$��&�"	45
�$��&		�"	45��&	�"4>"G;���&�"	45��&�"4>"�G"�"�"��&		�"	45
�$��&�"	45
�$��&		�"	45��&	�"4>"G;���&�"	45��&�"4>"G""��4""��,C�gt
	�gint	R�gfrac		R�gval	��gval	��gvalV�gval��gval>lgval��	gfilenamefsrfi/srfi-19.scm�

��			
��			��	!		
��	+		��	/		��	0	
��	5	��	Q	
��	U
	��	\	���
	���	���	���	#���	 ���	���	��	��	��	��5	��:	
��=	#��V	 ��V	���	2���	$���	���	���	���	��	��	��	��"	��%	��>	��>	��x	.���	 ���	��+	�gnamegtime-normalize!�C�R��h�]�6�gtype
		g
nanosecond		gsecond			gfilenamefsrfi/srfi-19.scm�

��		��		��			gnameg	make-time�C%R��<�=�>�?�@�A��Bh��]	4
5445>"G445>"G445>"G44	5>"G4
45�>"G4l4
5�>"G4	�>"G4
45�>"GC�gdate
	�gresult	�gfilenamefsrfi/srfi-19.scm�
!
��	"	��	"	��	%	��	%	��	%	��	$&	��	)&	��	4&	��	='	��	B'	��	M'	��	V)	��	[)	��	f)	��	o*	��	t*	��	{*	���*	���,	���,	 ���,	���,	���-	���.	���.	���.	���.	���.	��	�gnamegdate->broken-down-time�C�R�% h �]45���6�gtod
		gfilenamefsrfi/srfi-19.scm�
5
��	7	
��	7	��	8	��	8	��	8	+��	8	��		
gnamegcurrent-time-utc�C�R�%�h0�]45���45�6�gtod
		)gsec		)gusec			)gfilenamefsrfi/srfi-19.scm�
:
��	<	��	<	��	=	��	<	��	>	��	<	��	@	��	A	��	 A	��	'A	��	)?	��
		)
gnamegcurrent-time-tai�C�R�ho]6ggfilenamefsrfi/srfi-19.scm�
N
��	P	��		
gnamegcurrent-time-monotonic�C�R�l�h�]6gfilenamefsrfi/srfi-19.scm�
R
��	S	��	S	��	
S	4��	S	��		
gnamegcurrent-time-thread�C�R;���i��R�%��h �]45���6�grun-time
		gfilenamefsrfi/srfi-19.scm�
W
��	X	��	X	��	[	��	[	��	]	��	Y	��		
gnamegcurrent-time-process�C�R ������l�h`-13("�&6&6&6&6	&
6
6g
clock-type
			`g
clock-type		`gfilenamefsrfi/srfi-19.scm�
b
��	c	��	c	4��	c	��	"d	��	&e	 ��	.d	��	2f	 ��	:d	��	>g	&��	Fd	��	Jh	#��	Rd	��	Vi	$��	Zk	��	\k	%��	`k	��			`


gnamegcurrent-time�ClR  ��$�
hX�-13("��$�C�$�C�$�C�$C	6�g
clock-type
			Wg
clock-type		Wgfilenamefsrfi/srfi-19.scm�
q
��	r	��	r	4��	r	��	#s	��	Qz	��	Sz	)��	Wz	��				W


gnamegtime-resolution�C$R��)('h��]�&		�"	45�&		�"	45�$q�&�"	45�&�"	45�$6�&
�"	45�&
�"	45�CCC�gt1
	�gt2	�gfilenamefsrfi/srfi-19.scm�
~
��	�	
��	 �	��	9�	��	=�	��	@�	
��	Z�	��	r�	��	v�	��	y�	����	����	��
	�	gnamegtime=?�C0R��)(h��]
�&		�"	45�&		�"	45�$C�&		�"	45�&		�"	45�$6�&�"	45�&�"	45�CC�gt1
	�gt2	�gt		9�gfilenamefsrfi/srfi-19.scm�
�
��	�		��	 �	��	9�	��	9�	��	G�	��	b�	��	{�	��	�	����	����	#����	��
	�	gnamegtime>?�C2R��)(h��]
�&		�"	45�&		�"	45�$C�&		�"	45�&		�"	45�$6�&�"	45�&�"	45�CC�gt1
	�gt2	�gt		9�gfilenamefsrfi/srfi-19.scm�
�
��	�		��	 �	��	9�	��	9�	��	G�	��	b�	��	{�	��	�	����	����	#����	��
	�	gnamegtime<?�C/R��)(h��]
�&		�"	45�&		�"	45�$C�&		�"	45�&		�"	45�$6�&�"	45�&�"	45�CC�gt1
	�gt2	�gt		9�gfilenamefsrfi/srfi-19.scm�
�
��	�		��	 �	��	9�	��	9�	��	G�	��	b�	��	{�	��	�	����	����	$����	��
	�	gnamegtime>=?�C1R��)(h��]
�&		�"	45�&		�"	45�$C�&		�"	45�&		�"	45�$6�&�"	45�&�"	45�CC�gt1
	�gt2	�gt		9�gfilenamefsrfi/srfi-19.scm�
�
��	�		��	 �	��	9�	��	9�	��	G�	��	b�	��	{�	��	�	����	����	$����	��
	�	gnamegtime<=?�C.R��)(*,+�
h�1]�&		�"	45�&		�"	45��&�"	45�&�"	45��&
�"4>"G�&	�"4>"G�&�"4>"G	6)gtime1
	�gtime2	�gsec-diff		n�g	nsec-diff		n�gval		t�gfilenamefsrfi/srfi-19.scm�
�
��	�	��	 �	)��	9�	��	<�	��	V�	.��	n�	��	n�	��	t�	����	����	����	��
	�	gnamegtime-difference!�C4R-4h�]
456�gtime1
		gtime2		gresult				gfilenamefsrfi/srfi-19.scm�
�
��	�	��		�	��	�	��			gnamegtime-difference�C3R��')(,+��5�
h�F]�&
�"	45&��&		�"	45�&		�"	45��&�"	45�&�"	45��&	�"4>"G�&�"4>"G	6
6>gt
	�gduration	�gsec-plus	��g	nsec-plus	��gfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	%�	��	@�	)��	Y�	��	\�	��	v�	.����	����	����	����	����	����	����	 ����	��	�	gnameg
add-duration!�C6R-6h�]
456�gt
		gduration		gresult				gfilenamefsrfi/srfi-19.scm�
�
��	�	��		�	��	�	��			gnamegadd-duration�C5R��')(,+��5�
h�M]�&
�"	45&��&		�"	45�&		�"	45��&�"	45�&�"	45��&	�"4>"G�&�"4>"G	6
6Egt
	�gduration	�g	sec-minus	��g
nsec-minus	��gfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	%�	��	@�	+��	Y�	��	\�	��	v�	/����	����	����	����	����	����	����	 ����	��	�	gnamegsubtract-duration!�C8R-8h�]
456�gtime1
		gduration		gresult				gfilenamefsrfi/srfi-19.scm�
�
��	�	��		�	��	�	��			gnamegsubtract-duration�C7R��'�� *(+)�,h h]�&
�"	45&"4>"G�&
�"4>"G�&�"	4	5�&�"4
>"G�&		�"	454�&		�"	455��&	�"4
>"GC`gtime-in
	gtime-out	gcaller		gval		>	kgval	��gval	�gfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	'�	��	-�	��	4�	��	>�	��	n�	!����	����	$����	$����	%����	$����	!����	��		gnamegpriv:time-tai->time-utc!�C�R��_h�]�6�gtime-in
		gfilenamefsrfi/srfi-19.scm�
�
��	�	$��	�	F��	�	��		gnamegtime-tai->time-utc�C_R�`h�]6�gtime-in
		gfilenamefsrfi/srfi-19.scm�
�
��	
�	,��	�	��		gnamegtime-tai->time-utc!�C`R��' ��*(+)�,h h]�&
�"	45&"4>"G�&
�"4>"G�&�"	4	5�&�"4
>"G�&		�"	454�&		�"	455��&	�"4
>"GC`gtime-in
	gtime-out	gcaller		gval		>	kgval	��gval	�gfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	'�	��	-�	��	4�	��	>�	��	n�	!����	����	$����	$����	%����	$����	!����	��		gnamegpriv:time-utc->time-tai!�C�R��fh�]�6�gtime-in
		gfilenamefsrfi/srfi-19.scm�
�
��	�	$��	�	F��	�	��		gnamegtime-utc->time-tai�CfR�gh�]6�gtime-in
		gfilenamefsrfi/srfi-19.scm�
�
��	
�	,��	�	��		gnamegtime-utc->time-tai!�CgR��'�X�-*�h�]�&
�"	45&"4>"G45	�&
�"4
>"G6�gtime-in
		~gntime	C	~gval		G	tgfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	'�	��	+�	��	-�	��	4�	��	=�	��	C�	��	G�	��	|�	*��	~�	��
		~gnamegtime-monotonic->time-utc�CXR��'�Y�*�Xhx�]	�&
�"	45&"4>"G�&
�"4	>"G
6�gtime-in
		ugval	>	kgfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	'�	��	+�	��	-�	��	4�	��	>�	��	s�	,��	u�	��		ugnamegtime-monotonic->time-utc!�CYR��'�V�-*hx�]�&
�"	45&"4>"G45	�&
�"4
>"GC�gtime-in
		wgntime	C	wgval		G	tgfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	'�	��	+�	��	-�	��	4�	��	=�	��	C�	��	G�	��		wgnamegtime-monotonic->time-tai�CVR��'�W�*
hp�]	�&
�"	45&"4>"G�&
�"4	>"GC�gtime-in
		ngval	>	kgfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	'�	��	+�	��	-�	��	4�	��	>	��			ngnamegtime-monotonic->time-tai!�CWR��' �d��*h�]�&
�"	45&"4>"G4�5	�&
�"4
>"GCgtime-in
	�gntime	M�gval		Q	~gfilenamefsrfi/srfi-19.scm�

��		��	"	��	'	��	+	��	-	��	4	��	=	��	I	1��	K	)��	M	��	M	��	Q		��	�gnamegtime-utc->time-monotonic�CdR��' �e��*h�]�&
�"	45&"4>"G45	�&
�"4
>"GC�gtime-in
		{gntime	G	{gval		K	xgfilenamefsrfi/srfi-19.scm�

��	
	��	"
	��	'	��	+	��	-	��	4	��	=	��	E	)��	G	��	G	��	K	��
		{gnamegtime-utc->time-monotonic!�CeR��'�]�-*hx�]�&
�"	45&"4>"G45	�&
�"4
>"GC�gtime-in
		wgntime	C	wgval		G	tgfilenamefsrfi/srfi-19.scm�

��		��	"	��	'	��	+	��	-	��	4	��	=	��	C	��	G	��		wgnamegtime-tai->time-monotonic�C]R��'�^�*
hp�]	�&
�"	45&"4>"G�&
�"4	>"GC�gtime-in
		ngval	>	kgfilenamefsrfi/srfi-19.scm�

��		��	"	��	'	��	+	��	- 	��	4	��	>!	��			ngnamegtime-tai->time-monotonic!�C^R�h ,3�	C�g
nanosecond
		gsecond		gminute			ghour			gday			gmonth			gyear			gzone-offset			gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%make-date-procedure�C�R4�9���'h 
,3	Cgt-46961e50d3-33b
		gt-46961e50d3-33c		gt-46961e50d3-33d			gt-46961e50d3-33e			gt-46961e50d3-33f			gt-46961e50d3-340			gt-46961e50d3-341			gt-46961e50d3-342						CLO9PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C)h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC59R[*_�+�4c�>"G	f��i��R�hr]�$��CCjgobj
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date?-procedure�C,R4�:��hGh8]C0gt-46961e50d3-35d
		
		
CLO:PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
CIh]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC5:R��;hz]�&
�C6rgs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-nanosecond-procedure�CJR4�;��X_dh:]��C2gerr
		gs					Cgmrh:]��C2gerr
		gs					Cu{�h:]��C2gerr
		gs					Ch�h8]C0gt-46961e50d3-369
		
		
CLO;PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5;R��<hv]�&�C6ngs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-second-procedure�C�R4�<�����h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					Ch�h8]C0gt-46961e50d3-384
		
		
CLO<PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5<R��=h v]�&	�C6ngs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-minute-procedure�C�R4�=��
h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C &+h:]��C2gerr
		gs					ChGh8]C0gt-46961e50d3-39f
		
		
CLO=PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
CIh]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5=R��>h t]�&	�C6lgs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-hour-procedure�CJR4�>��X_dh:]��C2gerr
		gs					Cgmrh:]��C2gerr
		gs					Cu{�h:]��C2gerr
		gs					Ch�h8]C0gt-46961e50d3-3ba
		
		
CLO>PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5>R��?h s]�&	�C6kgs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-day-procedure�C�R4�?�����h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					Ch�h8]C0gt-46961e50d3-3d5
		
		
CLO?PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5?R��@h u]�&	�C6mgs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-month-procedure�C�R4�@��	h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C%*h:]��C2gerr
		gs					ChFh8]C0gt-46961e50d3-3f0
		
		
CLO@PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
CHh]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5@R��Ah t]�&	�C6lgs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-year-procedure�CIR4�A��W^ch:]��C2gerr
		gs					Cflqh:]��C2gerr
		gs					Ctzh:]��C2gerr
		gs					Ch�h8]C0gt-46961e50d3-40b
		
		
CLOAPhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5AR��Bh {]�&	�C6sgs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-zone-offset-procedure�C�R4�B�����h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					Ch�h8]C0gt-46961e50d3-426
		
		
CLOBPhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5BR4�}��
78h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						CWXh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-19.scm�
)
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5}R��h �]�&
�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%set-date-nanosecond!-procedure�CR4���:5hV]CNgt-46961e50d3-454
		gt-46961e50d3-455					CLOPhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C7h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC5R��8h �]�&�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%set-date-second!-procedure�C9R4�8��:_hV]CNgt-46961e50d3-464
		gt-46961e50d3-465					CLO8PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
Cah]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC58R��bh �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%set-date-minute!-procedure�CcR4�b��:�hV]CNgt-46961e50d3-474
		gt-46961e50d3-475					CLObPhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC5bR���h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%set-date-hour!-procedure�C�R4����:�hV]CNgt-46961e50d3-484
		gt-46961e50d3-485					CLO�PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC5�R���h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%set-date-day!-procedure�C�R4����:�hV]CNgt-46961e50d3-494
		gt-46961e50d3-495					CLO�PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC5�R���h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%set-date-month!-procedure�C�R4����:hV]CNgt-46961e50d3-4a4
		gt-46961e50d3-4a5					CLO�PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C	h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC5�R��
h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%set-date-year!-procedure�CR4�
��:1hV]CNgt-46961e50d3-4b4
		gt-46961e50d3-4b5					CLO
PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C3h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC5
R��4h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg %set-date-zone-offset!-procedure�C5R4�4��:[hV]CNgt-46961e50d3-4c4
		gt-46961e50d3-4c5					CLO4PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C]h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC54Rhh�]	�	����
�$	�"
�	��	���	�	��m��	��
	d�������ӖC�gday
		dgmonth		dgyear			dga		
	dgy		%	dgm		2	dgfilenamefsrfi/srfi-19.scm�
9
��	:	��	
:	��	
:	��	;	��	;	��	;	#��	;	��	%;	��	%:	��	.<	��	/<	��	2<	��	2:	��	<>	��	?>	��	B>	��	C=	��	I?	��	J=	��	O@	��	P=	��	QA	��	VA	
��	WA	��	X=	��	^B	��	_=	��		d	gnamegencode-julian-day-number�C^R���h��]A4455},�	�	�:��:��	��	�	�����	��	�	���	d���@�	
����
��	�	����	�	�	
���
�$�"D�gjdn
	�gdays	�ga		�gb		*�gc		>�gd		L�ge		Z�gm		h�gy		|�	gfilenamefsrfi/srfi-19.scm�
F
��	G	��	G	��	G	��	G	��	H	��	G	��	I	��	 I	��	*I	��	*G	��	:J	��	=J	��	>J	��	>G	��	EK	��	HK	��	LK	��	LG	��	VL	��	YL	��	ZL	��	ZG	��	aM	��	dM	��	hM	��	hG	��	oN	��	rN	��	{N	!��	|N	��	|G	���P	���P	���Q	
���Q	���Q	���Q	
���Q	
���Q	���R	���R	���R	���R	���S		���S	���S	���O	��1	�gnamegdecode-julian-day-number�C_R`a��)h0�]
44�&		�"	4555�C�gutc-time
		*gfilenamefsrfi/srfi-19.scm�
Y
��	[	��	[	��	[	��	[	��	&[	��	([	��	)[	��			*gnameglocal-tz-offset�CbR���h�]����C�gseconds
		g	tz-offset		gfilenamefsrfi/srfi-19.scm�
^
��	_	��	
_	��	_	��			gnamegtime->julian-day-number�CcRd�h�]45$CC{gsecond
		gfilenamefsrfi/srfi-19.scm�
c
��	d	��	d	��		gnamegleap-second?�CeR��' �f�be)c_�g(�hPR-13�&
�"	45&"4>"G(45"�4	�&		�"	4
5�54$ �&		�"	4
5�"�&		�"	4
554>G4
455		�
	�	<�	<�
�&�"	45$
�"

�	CJgtime
		Mg	tz-offset		Mgoffset		WMgleap-second?		|Mgjdn	�Mgsecs	�Mgdate	�Mgmonth	�Mgyear	�Mgint-secs		�Mghours	
�Mgrem	�Mgminutes	Mgseconds	
Mg
nanosecond	3Mgsecond	3Mgfilenamefsrfi/srfi-19.scm�
f
��	g	��	)g	��	.h	��	2h	��	4h	��	;h	��	Ii	��	Jj	��	Wk	��	Wi	��	Zl	��	al	/��	zl	%��	|l	��	|i	��	m	���m	'���n	3���n	0���o	0���m	���i	���r	!���r	���v	���v	)���v	���v	���w	,���w	���v	���x	-���x	���v	��y	��v	��z	��v	��
{	��*|	��-|	&��3{	
��,		M
gnamegtime-utc->date�CaR��'�f�b_)�ec_�g(�hH�-13�&
�"	45&"4>"G(44	55"��&		�"	4
54�&		�"	4
55�4�54
$�"54>G	4455

�
�	<�
	<��&�"	45$�"
	�	C�gtime
		Eg	tz-offset		Egoffset		\Egseconds	�Egleap-second?	�Egjdn	�Egsecs	�Egdate	�Egmonth	�Egyear		�Egint-secs	
�Eghours	�Egrem	�Egminutes	
�Egseconds	Eg
nanosecond	+Egsecond	+Egfilenamefsrfi/srfi-19.scm�
�
��	�	��	)�	��	.�	��	2�	��	4�	��	;�	��	I�	��	J�	��	M�	&��	U�	��	\�	��	\�	��	a�	��	z�	��	�	(����	����	����	����	����	%����	����	����	����	'����	0����	����	����	!����	����	����	)����	����	����	,����	����	����	-����	����	����	����	���	���	���	��"�	��%�	&��+�	
��1		E
gnamegtime-tai->date�CZR��'�f�bX)�ec_�g(�hH�-13�&
�"	45&"4>"G(44	55"��&		�"	4
54�&		�"	4
55�4�54
$�"54>G	4455

�
�	<�
	<��&�"	45$�"
	�	C�gtime
		Eg	tz-offset		Egoffset		\Egseconds	�Egleap-second?	�Egjdn	�Egsecs	�Egdate	�Egmonth	�Egyear		�Egint-secs	
�Eghours	�Egrem	�Egminutes	
�Egseconds	Eg
nanosecond	+Egsecond	+Egfilenamefsrfi/srfi-19.scm�
�
��	�	��	)�	��	.�	��	2�	��	4�	��	;�	��	I�	��	J�	��	M�	&��	U�	��	\�	��	\�	��	a�	��	z�	��	�	(����	����	����	����	����	%����	����	����	����	'����	0����	����	����	!����	����	����	)����	����	����	,����	����	����	-����	����	����	����	���	���	���	��"�	��%�	&��+�	
��1		E
gnamegtime-monotonic->date�CSR^��?@A��h% ;>=<Bh�]4�&		�"	45�&		�"	45�&		�"	455�4	�5
�&
�"	45	�	<�	<��&		�"	4
5	<�	<���&		�"	45	<���&�"	45�
�&		�"	45��6�gdate
	gjdays	[g	jdays-1/2		ggfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	-��	#�	1��	>�	1��	X�	��	[�	��	[�	��	^�	��	d�	-��	e�	$��	g�	��	g�	��	p�	����	����	����	����	����	����	����	����	����	����	����	���	���	���	��	gnamegdate->time-utc�CJRgJh�]456{gdate
		
gfilenamefsrfi/srfi-19.scm�
�
��	�	��	
�	��		
gnamegdate->time-tai�CIReJh�]456�gdate
		
gfilenamefsrfi/srfi-19.scm�
�
��	�	��	
�	��		
gnamegdate->time-monotonic�CHRh0�]	��
�$C	�
�$		d�
��CC�gyear
		+gt	
	+gfilenamefsrfi/srfi-19.scm�
�
��	�		��	
�	��	
�	��	�	��	�	��	 �	��	%�	)��	'�	&��	(�	!��		+gnameg
leap-year?�CiRvwRdw�Cxih`4]45$"4>"G"��C45$	�$	���C"���"���,gday
		]gmonth		]gyear			]gdays-pr			]gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	#��	%�	��	6�	��	7�	��	8�	��	9�	
��	C�	��	H�	��	L�	��	Q�	��	R�	��		]	gnamegyear-day�CyRy��?@AhX�]�&		�"	45�&		�"	45�&		�"	456�gdate
		Wgfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	=�	.��	W�	��		Wgnameg
date-year-day�CCRhHy]	�	��	��	���	��
	d������	�	��	�Cqgday
		Ggmonth		Ggyear			Gga		
	Ggy			Ggm			Ggfilenamefsrfi/srfi-19.scm�
�
��	�	��	
�	��	
�	��	�	��	�	��	�	��	�	��	�	��	%�	��	*�	��	+�	��	,�	��	1�	��	2�	��	3�	��	9�	��	:�	��	?�	��	B�	��	C�	��	F�	��		G	gnamegweek-day�CzRz��?@AhX�]�&		�"	45�&		�"	45�&		�"	456�gdate
		Wgfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	=�	.��	W�	��		Wgnameg
date-week-day�CDR��ADhH ]�&		�"	45



�	45�	�Cgdate
		Dgday-of-week-starting-week		Dgyear			0g	first-day		0	Dg
fdweek-day		9	Dgfilenamefsrfi/srfi-19.scm�

��		��		��	0	��	3	��	9	��	@	��	C	��			D	gnamegdays-before-first-week�C{RC{h�]45�45�	�C�gdate
		gday-of-week-starting-week		gfilenamefsrfi/srfi-19.scm�

��		��	
	��		��		��		��			gnamegdate-week-number�CERl abh0�-1345(45"�6�g	tz-offset
			,gtime		,gfilenamefsrfi/srfi-19.scm�

��	
	��		��		��			��	*		��	,	��			,


gnamegcurrent-date�C!R!��AhhI]45�&		�"	45	d�	d�	d�$C
�$C��	2�$�C	d��CAgn
		hgs		'gcurrent-year	'	hgcurrent-century		1	hgfilenamefsrfi/srfi-19.scm�

��		"��		��	'	��	.	��	1	��	1	��	8!	��	< 	��	C"	��	G 	��	O#	��	R#	��	U#	��	Y 	��	^#	6��	d$	��	g$	��		hgnamegnatural-year�C|R��;<=>?@AB^}��h�]A�&
�"	45�&�"	45�&		�"	45�&		�"	45�&		�"	45�&		�"	45�&		�"	4	5�&		�"	4
545�
�	<�	<��	<���
����C�gdate
	g
nanosecond�gsecond	�gminute	�ghour	�gday	�gmonth	�gyear	�goffset	�	gfilenamefsrfi/srfi-19.scm�
&
��	'	��	(	��	9)	��	T*	��	o+	
���,	���-	���.	���'	���/	���0	���/	���1	���2	��1	
��3	��	1	
��5	��1	
��1	
��/	��	gnamegdate->julian-day�CFRF~h�]45�C�gdate
		
gfilenamefsrfi/srfi-19.scm�
8
��	9	��	:	��	9	��		
gnamegdate->modified-julian-day�CGR��' �f�)(���
h��]�&
�"	45&"4>"G�&		�"	45�&�"	4	5
����C�gtime
		|gfilenamefsrfi/srfi-19.scm�
<
��	=	��	"=	��	'>	��	+>	��	->	��	4>	��	??	��	Z?	!��	t?	��	u?	��	x?	��	{?	��		|gnamegtime-utc->julian-day�CbRb~h�]45�C�gtime
		
gfilenamefsrfi/srfi-19.scm�
C
��	D	��	E	��	D	��		
gnamegtime-utc->modified-julian-day�CcR��'�f�)�(���h�
]�&
�"	45&"4>"G�&		�"	454	�&		�"	455��&�"	4
5���
�Cgtime
	�gfilenamefsrfi/srfi-19.scm�
G
��	H	��	"H	��	'I	��	+I	��	-I	��	4I	��	?J	��	XK	��	]K	!��	wK	��	xJ	��	{L	���L	���J	���J	���J	��	�gnamegtime-tai->julian-day�C[R[~h�]45�C�gtime
		
gfilenamefsrfi/srfi-19.scm�
P
��	Q	��	R	��	Q	��		
gnamegtime-tai->modified-julian-day�C\R��'�f�)�(���h�]�&
�"	45&"4>"G�&		�"	454	�&		�"	455��&�"	4
5���
�Cgtime
	�gfilenamefsrfi/srfi-19.scm�
U
��	V	��	"V	��	'W	��	+W	��	-W	��	4W	��	?X	��	XY	��	]Y	!��	wY	��	xX	��	{Z	���Z	���X	���X	���X	��	�gnamegtime-monotonic->julian-day�CTRT~h�]45�C�gtime
		
gfilenamefsrfi/srfi-19.scm�
^
��	_	��	`	��	_	��		
gnameg#time-monotonic->modified-julian-day�CUR���% �h0�]��4>G�6�gjdn
		+gsecs	
	+gseconds			+gparts			+gfilenamefsrfi/srfi-19.scm�
b
��		c	��	
c	��	
c	��	
e	��	d	��	'g	��	+f	��			+gnamegjulian-day->time-utc�CNRgNh�]456�gjdn
		
gfilenamefsrfi/srfi-19.scm�
j
��	k	��	
k	��		
gnamegjulian-day->time-tai�CMReNh�]456�gjdn
		
gfilenamefsrfi/srfi-19.scm�
m
��	n	��	
n	��		
gnamegjulian-day->time-monotonic�CLRNbah0�-1345(45"�6�gjdn
			0g	tz-offset			0gtime			0goffset		&	0gfilenamefsrfi/srfi-19.scm�
p
��	
q	��	q	��	r	��	s	��	&t	��	&q	��	0u	��				0
gnamegjulian-day->date�CKRK~h�-13�@�gjdn
			g	tz-offset			gfilenamefsrfi/srfi-19.scm�
w
��	x	!��	x	��	x	��			
gnamegmodified-julian-day->date�CORN~h�]�6�gjdn
		gfilenamefsrfi/srfi-19.scm�
{
��	|	��		|	��	|	��		gnamegmodified-julian-day->time-utc�CRRM~h�]�6�gjdn
		gfilenamefsrfi/srfi-19.scm�
~
��		��			��		��		gnamegmodified-julian-day->time-tai�CQRL~h�]�6�gjdn
		gfilenamefsrfi/srfi-19.scm�
�
��	�	%��		�	��	�	��		gnameg#modified-julian-day->time-monotonic�CPRbl ht]456lgfilenamefsrfi/srfi-19.scm�
�
��	�	��	
�	��		
gnamegcurrent-julian-day�C"Rcl h}]456ugfilenamefsrfi/srfi-19.scm�
�
��	�	!��	
�	��		
gnamegcurrent-modified-julian-day�C#R���hH2]4545�$"�$C4�56*gn
		Egpad-with		Eglength			Egstr				Egstr-len			Egt			,gfilenamefsrfi/srfi-19.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	)�	��	0�	��	6�	��	=�	$��	A�	��	E�	��		E	gnamegpadding�C�R��h�]4	
5�6�gi
		gn		gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	��	�	��			gnameg
last-n-digits�C�R�h�]�6}gn
			gfilenamefsrfi/srfi-19.scm�
�
��	�	2��		�	 ��			gnameglocale-abbr-weekday�C�R�h�]�6}gn
			gfilenamefsrfi/srfi-19.scm�
�
��	�	,��		�	 ��			gnameglocale-long-weekday�C�R�i�R�i�Rh8,]")�$C4455$C�"���"���$gneedle
		6ghaystack-ref		6ghaystack-len			6gsame?			6gindex			/gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	#�	��	)�	��	/�	��	/�	��		6	gnamegdate-reverse-lookup�C�R���h�]	6�gstring
		gfilenamefsrfi/srfi-19.scm�
�
��	�	��		gnameglocale-abbr-weekday->index�C�R���h�]	6�gstring
		gfilenamefsrfi/srfi-19.scm�
�
��	�	��		gnameglocale-long-weekday->index�C�R���h�]	6~gstring
		gfilenamefsrfi/srfi-19.scm�
�
��	�	��		gnameglocale-abbr-month->index�C�R���h�]	6~gstring
		gfilenamefsrfi/srfi-19.scm�
�
��	�	��		gnameglocale-long-month->index�C�R���Bh(�]�&		�"	456�gdate
		#gport		#gfilenamefsrfi/srfi-19.scm�
�
��	�	��	#�	��		#	gnameglocale-print-time-zone�C�R��h�]	�$66�ghr
		gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	��	�	��	�	#��		gnameglocale-am-string/pm�C�R������h��]
�$4>"G"4
�$4>"G"4>"G
�$C4�54�	<�5440	5>"G40	56�goffset
	�gport	�ghours		y�gminutes		y�gfilenamefsrfi/srfi-19.scm�
�
��	�	��	
�	��	�	��	�	��	�	��	%�	��	*�	��	+�	��	/�	 ��	6�	��	C�		��	G�	��	N�		��	Z�	��	^�	��	a�	��	h�	+��	i�	��	k�	��	l�	��	s�	6��	t�	$��	w�	��	y�	��	y�	��	~�	����	����	����	����	�� 	�	gnameg
tz-printer�C�R~�h�]~6�gdate
		
gpad-with		
gport			
gfilenamefsrfi/srfi-19.scm�
�	
��	
�	��		
	C�a��Dh�]44556�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	�	-��	�	��	�	��			C�A��Dh�]44556�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	�	-��	�	��	�	��			C�b����@h(�]4�&		�"	4556�gdate
		(gpad-with		(gport			(gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	
�	+��	$�	��	(�	��		(	C�B����@h(�]4�&		�"	4556�gdate
		(gpad-with		(gport			(gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	
�	+��	$�	��	(�	��		(	C�c�h{h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	�	��			C�d����?h0�]4�&		�"	450	56�gdate
		,gpad-with		,gport			,gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	
�	!��	(�	��	,�	��		,	C�D�h|h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	�	+��	
�	��	�	��			C�e����?h0�]4�&		�"	45 	56�gdate
		,gpad-with		,gport			,gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	
�	!��	(�	��	,�	��		,	C�f��;���<�����h�]#�&
�"	45�$:44�&�"	45�	5>"G"544�&�"	45	5>"G4�&
�"	45�	�>G4
545	�$(445>"G4
	56C�gdate
	gpad-with	gport		gi	�gf	�gns	�gle	�gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	�	��	#�	��	$�	��	'�	��	,�	(��	D�	%��	J�	��	Q�	��	^�	��	a�	��	f�	%����	����	����	����	*����	$����	/����	$����	����	����	#����	����	#����	����	����	����	 ����	)����	 ����	)���	 ��"		C�h�h�h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	�	+��	
�	��	�	��			C�H����>h0�]4�&		�"	45	56�gdate
		,gpad-with		,gport			,gfilenamefsrfi/srfi-19.scm�
	
��		��	
	!��	(	��	,	��		,	C�I��>��hP�]�&		�"	45	�$4	�	564	56�gdate
		Mgpad-with		Mgport			Mghr			Mgfilenamefsrfi/srfi-19.scm�
	
��		��		��	$	��	(	��	+	��	2	'��	8	��	<	��	?
	��	M
	��		M	C�j��Ch�]445	56�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�

	
��		��		!��		��		��			C�k����>h0�]4�&		�"	45 	56�gdate
		,gpad-with		,gport			,gfilenamefsrfi/srfi-19.scm�
	
��		��	
	!��	(	��	,	��		,	C�l��>��hx�]�&		�"	45	�$"�&		�"	45	�"�&		�"	454 	56�gdate
		tgpad-with		tgport			tghr		a	tgfilenamefsrfi/srfi-19.scm�
	
��		 ��	 	��	$	��	'	 ��	B	��	I	5��	a	��	f	��	t	��		t	C�m����@h0�]4�&		�"	45	56�gdate
		,gpad-with		,gport			,gfilenamefsrfi/srfi-19.scm�
	
��		��	
	!��	(	��	,	��		,	C�M����=h0�]4�&		�"	45	56�gdate
		,gpad-with		,gport			,gfilenamefsrfi/srfi-19.scm�
	
��		��	
	!��	(	��	,	��		,	C�n�h�]6�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
"	
��	#	��			C�N����;h0�]4�&
�"	45	56�gdate
		+gpad-with		+gport			+gfilenamefsrfi/srfi-19.scm�
$	
��	%	��	
%	!��	'%	��	+%	��		+	C�p����>h(�]4�&		�"	4556�gdate
		(gpad-with		(gport			(gfilenamefsrfi/srfi-19.scm�
(	
��	)	��	
)	-��	$)	��	()	��		(	C�r�h�h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
*	
��	+	��	+	+��	
+	��	+	��			C�s�J��)h0�]45�&		�"	456�gdate
		/gpad-with		/gport			/gs			+gfilenamefsrfi/srfi-19.scm�
,	
��	-	%��	-	��	/-	��		/	C�S��;���<hx�]�&
�"	45�$*4�&�"	45�	564�&�"	45	56�gdate
		vgpad-with		vgport			vgfilenamefsrfi/srfi-19.scm�
.	
��	/	��	/	��	#/	��	&1	��	+1	(��	C1	%��	I1	��	M1	��	P4	��	U4	%��	r4	��	v4	��		v	C�t�h�]	6�gdate
		
gpad-with		
gport			
gfilenamefsrfi/srfi-19.scm�
7	
��	
8	��		
	C�T�h~h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
9	
��	:	��	:	+��	
:	��	:	��			C�U{��Eh@�]4
5
�$44
5�0	5644
50	56�gdate
		?gpad-with		?gport			?gfilenamefsrfi/srfi-19.scm�
;	
��	<	��	<	��	<	��	=	��	=	(��	=	%��	$=	��	(=	��	+?	��	.?	%��	;?	��	??	��		?	C�V��Eh �]4450	56�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
A	
��	B	��	B	!��	B	��	B	��			C�w�Dh�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
D	
��	E	��	E	��			C�x�h}h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
F	
��	G	��	G	��			C�X�hh�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
H	
��	I	��	I	��			C�W{��Eh@�]45
�$445�0	564450	56�gdate
		?gpad-with		?gport			?gfilenamefsrfi/srfi-19.scm�
J	
��	K	��	K	��	K	��	L	��	L	(��	L	%��	$L	��	(L	��	+N	��	.N	%��	;N	��	?N	��		?	C�y�����Ah8�]44�&		�"	45	5	56�gdate
		3gpad-with		3gport			3gfilenamefsrfi/srfi-19.scm�
P	
��	Q	��	Q	!��	
R	'��	)Q	!��	/Q	��	3Q	��		3	C�Y���Ah(�]�&		�"	456�gdate
		#gpad-with		#gport			#gfilenamefsrfi/srfi-19.scm�
V	
��	W	��	#W	��		#	C�z���Bh(�]�&		�"	456�gdate
		#gpad-with		#gport			#gfilenamefsrfi/srfi-19.scm�
X	
��	Y	��	#Y	��		#	C�Z�h�]6�gdate
		
gpad-with		
gport			
gfilenamefsrfi/srfi-19.scm�
Z	
��	
[	��		
	C�1�h�h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
\	
��	]	��	]	+��	
]	��	]	��			C�2�h�h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
^	
��	_	��	_	+��	
_	��	_	��			C�3�h~h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
`	
��	a	��	a	+��	
a	��	a	��			C�4�h�h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
b	
��	c	��	c	+��	
c	��	c	��			C�5�h�h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
d	
��	e	��	e	+��	
e	��	e	��			C�)�Rd�h �]	45$�CC�gchar
		g
associated		gfilenamefsrfi/srfi-19.scm�
h
��	i	��	i	��	j	��	j	��		gnameg
get-formatter�C�R��������	h�]�$|454~5$A��$
64�54-5$_	��$
644	�55$&4>"G	�664_5$`	��$
644	�55$'4 >"G	�6644�55$'40>"G	�664>"G�6Cgdate
	�gindex	�g
format-string		�gstr-len		�gport		�gcurrent-char		�g	pad-char?		Adg	formatter		w�g	formatter	�g	formatter	+d
gfilenamefsrfi/srfi-19.scm�
l
��	m	��	m	��	n	��	n	��	o	��	#o	��	&s	��	)s	��	-s	��	1t	��	3t	*��	7t	��	8v	!��	?v	;��	Av	!��	Av	��	Dx	��	Pw	��	Uy	��	Xy	��	\y	��	`z	$��	b{	)��	fz	��	g}	)��	j~	*��	s	6��	u~	*��	w}	)��	w}	��	�	����	 ����	3����	 ����	*����	/����	����	���w	����	����	����	����	$����	)����	����	)����	*����	6����	*����	)����	����	����	 ��
�	3���	 ���	*���	/���	���	%�� �	&��'�	2��)�	&��+�	%��+�	��3�	��4�	��R�	/��Z�	��^�	&��`�	+��d�	��eq	��r	!���r	��L	�	gnamegdate-printer�C�R�����hH-1345("�4
45>"G6�gdate
			Eg
format-string			Egstr-port			Egfmt-str			Egfilenamefsrfi/srfi-19.scm�
�
��	
�	��	�	��	�	+��	�	0��	�	��	"�	��	*�	!��	7�	��	E�	��			E
gnamegdate->string�ChR����h��]0�$
C1�$C2�$	C3�$	C4�$	C5�$	C6�$	C7�$	C8�$	C9�$		C6�gch
	�gfilenamefsrfi/srfi-19.scm�
�
��	�	��	|�	��	~�	 ����	 ����	����		��	�gnameg	char->int�C�R�����h��]*"l4545$"(45�$"$	�"$C	
�4455��"���

"���{gupto
		|gport		|gaccum			rgnchars			rgch		
	rgt			Ngt		+	Kgfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	��	
�	��	�	��	�	
��	$�	��	+�	��	+�	
��	>�	��	C�	��	R�	��	Z�	��	[�	 ��	^�	+��	f�	 ��	g�	��	j�	��	r�	
��	r�	��		|	gnameginteger-reader�C�R�h`]L6Xgport
		
gfilenamefsrfi/srfi-19.scm�
�	��	
�	��		
Chv]OCngupto
		
gfilenamefsrfi/srfi-19.scm�
�
��		
gnamegmake-integer-reader�C�R���i������h�
]*H"�45�$C45$
645$$K	
�44	55��"���J$#4	>"G�"��~
6

"��fgn
	�gport	�g
padding-ok		�gport			�gaccum			�gnchars			�gch		�gfilenamefsrfi/srfi-19.scm�
�
��	�	��		�	��	
�	��	�	��	�	
��	�	��	�	
��	)�	��	-�	��	/�	$��	1�	��	3�	
��	4�	
��	>�	��	A�	
��	H�	��	I�	%��	L�	0��	T�	%��	U�	��	X�	��	b�	
��	h�	��	i�	
����	 ����	
����	����	$����	����	
����	��!	�	gnameginteger-reader-exact�C�R�h`]L6Xgport
		
gfilenamefsrfi/srfi-19.scm�
�	��	
�	��		
Chy]OCqgn
		
gfilenamefsrfi/srfi-19.scm�
�
��		
gnamegmake-integer-exact-reader�C�R���i�����
h�9]!
HH4545$4>"G"4Z5$"	4z5$
C4+5$K"/4-5$K"4>"G4545$4>"G"4	5	
�	<�	<�K4545$4>"G"J4	5	<�	<��K4545$4>"G"J4	5	
�	<��K4545$4>"G"J4	5	<��KJ$JC
J�C1gport
	�goffset	�g	positive?		�gch		�gt		D	]gch	��gch	�6gch	=~gch	��	gfilenamefsrfi/srfi-19.scm�
�
��	�	��		�	��	�	��	�	
��	�	��	�	
��	!�	��	#�	$��	%�	!��	*�	��	/�	
��	<�	��	D�	
��	R�	��	a�	��	d�	��	p�	��	s�	��	x�	����	����	����	����	����	(����	%����	����	���	���	���	���	���	���	���	,���	)���	#���	���	���	���	���	���	���	��	��	��	��		,��		)��		#��	��$
	(��-
	%��1
	��3
	��7	��=	��@
	��J
	��K	��O	��Q	,��S	)��X	#��]	��l	(��u	%��y	��{	��	���	���	���	���	���	���	,���	)���	#���	���	(���	%���	���	���	���	!��V	�gnamegzone-reader�C�R�����h8�]	4L545$4L5�"���456�gresult
		1gch			1gfilenamefsrfi/srfi-19.scm�
	��		��			��		
��		��	 	"��	  	��	& 	
��	)!	��	1!	
��		1gnamegread-char-string�C�i��h@3]OQ4545$C6+gport
		;gindexer		;gread-char-string			;gstr			;gindex		!	;gfilenamefsrfi/srfi-19.scm�

��	#	��	#	 ��	#	��	#	��	$	��	!#	��	)%	��	0%	 ��	2&	%��	4'	+��	9'	%��	;%	��		;	gnameg
locale-reader�C�R�h`]L6Xgport
		
gfilenamefsrfi/srfi-19.scm�
*	��	
+	��		
Chx]OCpgindexer
		
gfilenamefsrfi/srfi-19.scm�
)
��		
gnamegmake-locale-reader�C�R���i��h(�]4L455$LC6�gport
		!gfilenamefsrfi/srfi-19.scm�
.	��	/	��	/	��	/	��	/	��	1	��	2	��	3	��	!1	��
		!Chv]OCngchar
		
gfilenamefsrfi/srfi-19.scm�
-
��		
gnamegmake-char-id-reader�C�Rhk]Ccgch
		gfilenamefsrfi/srfi-19.scm�
M	��		gnameg	char-fail�C4�i	54�i	54�i	54�i�i54�i�i54�i�i54�i�i5~4�i~5a�iA�ib�i���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
T	��	U	
��			CB�i���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
W	��	X	
��			Cd�i���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
Y	&��	Z	(��			Ce���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
\	#��	]	%��			Ch�i���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
_	��	`	
��			CH�i���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
a	&��	b	(��			Ck���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
c	#��	d	%��			Cm�i���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
e	&��	f	(��			CM�i��bh s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
g	&��	h	(��			CS�i��8h s]�&�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
j	&��	k	(��			Cy|��
h(�]
45�&	�C6�gval
		$gobject		$gval				$gfilenamefsrfi/srfi-19.scm�
m	��	n	$��		n	
��		$	CY�i��
h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
o	&��	p	(��			Cz�hH�]	4Z5$C4z5$C4+5$C-6�gc
		Fgt		Fgt		Fgt	3	Fgfilenamefsrfi/srfi-19.scm�
q	��	r	��	r	��	s	��	r	��	+t	��	3r	��	Fu	��			FC�i��4h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
v	��	w	��			C�R���i��hP�]
4545$
L645$C4>"G"����gport
		Kgskipper		Kgch				Kgfilenamefsrfi/srfi-19.scm�
z	��	{	��		{	��	|	
��	|	��	}	��	}	$��	 }	
��	!~	��	+~	
��	.	��	K	&��
		K	gnameg
skip-until�C���i�d����hX�]FOQ�$7454~5$���$
64�545		$�	��	���	����
4
>"G45
4	
5$4>"G"$4
>"G"

	�66454	5		$"
45�	$4>"G"
�6C�gdate
	Tgindex	Tg
format-string		Tgstr-len		Tgport		Tgtemplate-string		Tg
skip-until		Tgcurrent-char		$Rgformat-char		Q�gformat-info			\�gskipper	
	s�greader		s�gactor		s�gval	
��g	port-char	Rgt			#gfilenamefsrfi/srfi-19.scm�
y
��	�	��	�	��	�	��	$�	��	'�	��	3�	��	6�	��	9�	��	=�	��	A�	��	C�	!��	G�	��	H�	$��	O�	>��	Q�	$��	Q�	��	T�	$��	\�	��	d�	��	g�	'��	k�	'��	p�	'��	s�	��	z�	����	%����	����	 ����	����	 ����	,����	1����	 ����	 ����	*����	-����	����	"����	'����	����	���	���	��	�	���	�� �	��'�	��(�	��,�	��.�	#��5�	��H�	!��R�	��6	T	gnamegpriv:string->date�C�R�����Bb% 4J�i��;<=>?@AhB]



�	4
4545>"G�&		�"	45$"v44	

55�&	�"4
>"G4455�&	�"4
>"G"
6�&
�"	45$��&�"	45$��&		�"	45$��&		�"	45$��&		�"	45$l�&		�"	45$I�&		�"	45$&�&		�"	45$C"���"���"���"���"���"���"���"���:ginput-string
	�gtemplate-string	�gnewdate		�gval		g�gval	��gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	��	�	��	�	��	!�	��	.�	��	9�	
��	U�	��	Z�	!��	]�	"��	g�	!��	g�	
����	!����	"����	!����	
����		����		����	����		����	����	����		���	���		�� �	��#�		��?�	��B�		��^�	��a�		��}�	����		����	����		����	����		����	��(	�	gnamegstring->date�CiRC�gm
		4grtd

�
�grtd
g�g�g	char-fail
<�G�gireader4=G�gireader2	=G�g	eireader2	=G�glocale-reader-abbr-weekday	=G�glocale-reader-long-weekday	=G�glocale-reader-abbr-month	=G�glocale-reader-long-month	=G�gfilenamefsrfi/srfi-19.scm�		)
��	5�
��	:�	��	B�	&��	G�
��	Q�	��	T�
��	V�	��	Y�
��	[�	��	^�
��	`�	��	c�
��	e�	��	h�
��	j�	��	m�
��	o�	 ��	r�
��	t�	!��	w�
��	y�	��	|�
��	~�	"����
����
����
����
����	����
����
����
����	����
����
����
����
��)��
��*�
��0_
��1=
��3�!
��4�5
��6:
��6�N
��7[R
��7jU	��7nU
��8]W
��:b
��;cq
��=~
��>��
��@��
��Bd�
��D,�
��F|�
��G`�
��I��
��J��
��M �
��N
�
��P��
��Q��
��R6�
��T��
��U��
��V^�
��X�
��Y��
��[%�
��\��
��^K
��_�
��a�
��b�
��d2)
����9
���yF
����Y
���c^
���c
����f
����
���F�
���*�
�����
��˄�
��̐�
��̓�	��̗�
���P�
���_�
���5�
���G�
����
����
����
��ו
����&
��ے8
���&<
����C
���G
���P
���fU
���,^
���ib
���j
����m
���
p
����w
���{
���m~
���3�
�����
���x�
����
�����
����
���9�
���B�
���K�
����
���t�
���,�
�����
����
���y�
���D�
�����
�����	���\�	���4�	���$�	����	�����	�����	�����	�����	����	����	���	��	���
	���	��	Q	��
D	��<	���"	���$	��
�(	���*	���,	��.	���7	���9	���;	���A	��zD	��:F	���H	��DJ	��VP	��*V	��X	���Z	���\	��\^	��4`	��b	���d	����	����
�� �h
��&�l
��(
�
��)Y�
��+�
��,��
��/��
��0��
��6��
��9�
��:�)
��<J-
��<�B	��<�B	��<�C	��<�D	��<�E	$��<�G	$��=I	$��=K	$��=B	��=2P	��=?P	��=LQ	��=YR	��>S	��>�V	��?~Y	��@6\	��@�^	��A�a	��B^c	��Ce	��C�g	��D�j	��E`l	��Fo	��G�q	��G�O	��G�A
��N�y
��S5�
���	S7
C6
© 2025 GrazzMean