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 g time-thread gtime-utc !g current-date "gcurrent-julian-day #gcurrent-modified-julian-day $gtime-resolution %g make-time &gtime? 'g time-type (gtime-nanosecond )g time-second *gset-time-type! +gset-time-nanosecond! ,gset-time-second! -g copy-time .gtime<=? /gtime=? 2gtime>? 3gtime-difference 4gtime-difference! 5g add-duration 6g add-duration! 7gsubtract-duration 8gsubtract-duration! 9g make-date :gdate? ;gdate-nanosecond 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 g eof-object? gread gopen-input-string g string-append f( f) ginexact->exact gread-tai-utc-data U- $ O # I\ " C ! 6  3H  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-60 fl-1e8ba8b5a-61   gkey gvalue gname gformals gbody   fl-1e8ba8b5a-53 fl-1e8ba8b5a-54 fl-1e8ba8b5a-55 fl-1e8ba8b5a-56 fl-1e8ba8b5a-57   gmake-procedure-name   fl-1e8ba8b5a-43    fl-1e8ba8b5a-42     ghygiene   gtype    g nanosecond  gsecond   g make-struct gm-46961e50d3-2b    gt-1e8ba8b5a-133  gt-1e8ba8b5a-132  gt-1e8ba8b5a-131      gm-1e8ba8b5a-134   fl-1e8ba8b5a-138 fl-1e8ba8b5a-139 fl-1e8ba8b5a-13a    g ctor-args  fl-1e8ba8b5a-120   gctor gfield  fl-1e8ba8b5a-11c fl-1e8ba8b5a-11d   !  "gform #g type-name $gconstructor-spec %g field-names &"#$% ' (fl-1e8ba8b5a-111 )fl-1e8ba8b5a-112 *fl-1e8ba8b5a-113 +fl-1e8ba8b5a-114 ,()*+ -&', .g record-layout /gfunctional-setters 0gsetters 1gcopier 2ggetters 3g constructor 4ggetter-identifiers 5gfield-identifiers 6./012345 7 8fl-1e8ba8b5a-e9 9fl-1e8ba8b5a-e7 :fl-1e8ba8b5a-e5 ;fl-1e8ba8b5a-e3 fl-1e8ba8b5a-dd ?fl-1e8ba8b5a-db @89:;<=>? A67@ Bfl-1e8ba8b5a-da CB DC E !-AD FE G H E IFGH JI Kgeach-any LK Mgsyntax-violation NM OM PfWrong number of arguments Qg identifier? RQ SQ T UT 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 plmo qfl-46961e50d3-43 rq smr tjps  ut vgobj wgt-1e8ba8b5a-224 xgt-1e8ba8b5a-21e ygt-1e8ba8b5a-21f zgt-1e8ba8b5a-220 {gt-1e8ba8b5a-223 |gt-1e8ba8b5a-222 }gt-1e8ba8b5a-221 ~wxyz{|} gm-1e8ba8b5a-225   fl-1e8ba8b5a-229 fl-1e8ba8b5a-22a fl-1e8ba8b5a-22b fl-1e8ba8b5a-22c fl-1e8ba8b5a-22d fl-1e8ba8b5a-22e fl-1e8ba8b5a-22f  ~ g copier-id  fl-1e8ba8b5a-21c   g ctor-name  fl-1e8ba8b5a-214   % fl-1e8ba8b5a-212   glayout  fl-1e8ba8b5a-210   g immutable?  fl-1e8ba8b5a-20e   g field-count  fl-1e8ba8b5a-20c   g getter-ids  fl-1e8ba8b5a-209   g field-ids  fl-1e8ba8b5a-206   gpredicate-name g field-spec "#$  fl-1e8ba8b5a-1f9 fl-1e8ba8b5a-1fa fl-1e8ba8b5a-1fb fl-1e8ba8b5a-1fc fl-1e8ba8b5a-1fd fl-1e8ba8b5a-1fe    psAD v  gand  gstruct?   geq?  g struct-vtable   ps    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-14b gt-1e8ba8b5a-14c gt-1e8ba8b5a-14d gt-1e8ba8b5a-14e gt-1e8ba8b5a-14f gt-1e8ba8b5a-150 gt-1e8ba8b5a-151  gm-1e8ba8b5a-152   fl-1e8ba8b5a-156 fl-1e8ba8b5a-157 fl-1e8ba8b5a-158 fl-1e8ba8b5a-159 fl-1e8ba8b5a-15a fl-1e8ba8b5a-15b fl-1e8ba8b5a-15c   ggetter gindex  fl-1e8ba8b5a-149 fl-1e8ba8b5a-14a   #  fl-1e8ba8b5a-144 fl-1e8ba8b5a-145 fl-1e8ba8b5a-146    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  / 10  2 1 31 4g%%time-set-fields 50 645 736 87 9gt-46961e50d3-4c :9 ;fl-46961e50d3-61 <; =:< >=  ?> @ =AD A @ BA Cgif DC@ E@ F@ GFA H= IH JEGI Kg struct-ref LK@ M= N M OLAN P@ Q@ R'H SQR TPAS UDJOT V?BU W XW Yg%time-nanosecond-procedure Zgm-46961e50d3-68 [Z \[ ]fl-46961e50d3-6a ^] _\^ `[_  a` ba cb d _AD ed fe gcf h[[ ifl-46961e50d3-6d jfl-46961e50d3-6e kij l hk m[l_  n m om pl_ qp roq sr td ut vcu 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-16a gt-1e8ba8b5a-16c gt-1e8ba8b5a-16b   gm-1e8ba8b5a-16d !  "!!! #fl-1e8ba8b5a-171 $fl-1e8ba8b5a-172 %fl-1e8ba8b5a-173 &#$% '"& (fl-1e8ba8b5a-167 )fl-1e8ba8b5a-168 *fl-1e8ba8b5a-169 +()* ,+ - ',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 HEG I<DH  JI Kgt-1e8ba8b5a-18c Lgt-1e8ba8b5a-18d MKL Ngm-1e8ba8b5a-18e ON POO Qfl-1e8ba8b5a-192 Rfl-1e8ba8b5a-193 SQR TMPS Ugsetter VU Wfl-1e8ba8b5a-186 Xfl-1e8ba8b5a-187 Yfl-1e8ba8b5a-188 ZWXY [VZ \ ]fl-1e8ba8b5a-17d ^fl-1e8ba8b5a-17e _]^ `\_ ag field-specs b#a cfl-1e8ba8b5a-179 dfl-1e8ba8b5a-17a ecd fbe g DHT[`fAD h g igval jig khj lCg mg ng onh pDH qp rmoq sg struct-set! tsg uDH v u wthvj xg yg 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 g set-tm:hour g set-tm:mday g set-tm:mon g set-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  g zone-offset    gm-46961e50d3-339 !  "!  !-AD #" $ % " &#$%  '& (  )( *gpwpwpwpwpwpwpwpw + ,g%date?-procedure -gm-46961e50d3-35e .- /gt-46961e50d3-35d 0/ 1. 2fl-46961e50d3-363 32 4013 5fl-46961e50d3-360 65 716 8.47  98 :!47AD ;v: <; =: >: ?>; @: A: BA; C47 DC E@BD F=?E G9<F H7 I,H Jg%date-nanosecond-procedure Kgm-46961e50d3-36a LK ML Nfl-46961e50d3-36c ON PMO QLP  RQ SR TS U!PAD VU WV XTW YLL Zfl-46961e50d3-36f [fl-46961e50d3-370 \Z[ ] Y\ ^L]P  _ ^ `^ a]P ba c`b dc eU fe gTf hfl-46961e50d3-374 ifl-46961e50d3-375 jhi k Yj lLkP  m l nl okP p o qnp rq s)U ts uTt vfl-46961e50d3-379 wfl-46961e50d3-37a xvw y Yx zLyP  { z |z }g%%date-set-fields ~yP }~ |  gt-46961e50d3-369  fl-46961e50d3-37e  M LP   !PAD    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-/ 10  21 3!0AD 4 3 54 6C3 73 83 984 :0 ;: <79; =K3 >0 ? > @=4? A3 B3 C=: DBC EA4D F6<@E G25F H IH Jg%date-hour-procedure Kgm-46961e50d3-3bb LK ML Nfl-46961e50d3-3bd ON PMO QLP  RQ SR TS U!PAD VU WV XTW YLL Zfl-46961e50d3-3c0 [fl-46961e50d3-3c1 \Z[ ] Y\ ^L]P  _ ^ `^ a]P ba c`b dc eU fe gTf hfl-46961e50d3-3c5 ifl-46961e50d3-3c6 jhi k Yj lLkP  m l nl okP p o qnp rq s)U ts uTt vfl-46961e50d3-3ca wfl-46961e50d3-3cb xvw y Yx zLyP  { z |z }yP ~}} |~  gt-46961e50d3-3ba  fl-46961e50d3-3cf  M LP   !PAD    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/  10 2!/AD 3 2 43 5C2 62 72 873 9/ :9 ;68: <K2 =/ > = ?<3> @2 A2 B@9 CAB D@3C E5;?D F14E G HG Ig%date-year-procedure Jgm-46961e50d3-40c KJ LK Mfl-46961e50d3-40e NM OLN PKO  QP RQ SR T!OAD UT VU WSV XKK Yfl-46961e50d3-411 Zfl-46961e50d3-412 [YZ \ X[ ]K\O  ^ ] _] `\O a` b_a cb dT ed fSe gfl-46961e50d3-416 hfl-46961e50d3-417 igh j Xi kKjO  l k mk njO o n pmo qp r)T sr tSs ufl-46961e50d3-41b vfl-46961e50d3-41c wuv x Xw yKxO  z y {y |xO }}| ~{} ~ gt-46961e50d3-40b  fl-46961e50d3-420  L KO   !OAD    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 76 8gset-date-second! 9g%set-date-second!-procedure :gm-46961e50d3-466 ;: <= ?;; @fl-46961e50d3-46b Afl-46961e50d3-46c B@A C>?B D; Efl-46961e50d3-468 FE GDF H;CG  IH J!CGT[`fAD K J LiJ MKL NCJ OJ PJ QPK RCG SR TOQS UsJ VCG W V XUKWL YJ ZJ [8R \Z[ ]YK\ ^NTX] _IM^ `G a9` 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 mhil ne ofl-46961e50d3-478 po qnp remq  sr t!mqT[`fAD u t vit wuv xCt yt zt {zu |mq }| ~y{} st mq   uv 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 <= ?:;> @7 Afl-46961e50d3-4c8 BA C@B D7?C  ED F!?CT[`fAD G F HiF IGH JCF KF LF MLG N?C ON PKMO QsF R?C S R TQGSH UF VF W4N 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  wg month-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 g make-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 g zone-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   jkmns5 4v>"G4wi4xi5y>"GR  RRRRRz{R|}R~RR;RQRRRh0]$66gcaller  *gtype  *gvalue   *gfilenamefsrfi/srfi-19.scm     9    " ' 5 *   * gnameg time-errorCRq hN]945H"45$"~444555 $45  45JK"4 5"4 5"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-dataCRRh]45 Cgfilename  gfilenamefsrfi/srfi-19.scm     gnamegread-leap-second-tableCRh8] "$C" $ C"g utc-seconds  6gtable  gfilenamefsrfi/srfi-19.scm   )       #     $  (  ,  6   6 gnamegleap-second-deltaCRh]Cgtype  g nanosecond  gsecond   gfilenamefsrfi/srfi-19.scm    gnameg!%make-time-unnormalized-procedureCR4Jhq]Cigt-46961e50d3-2d  gt-46961e50d3-2e  gt-46961e50d3-2f      CLOPhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     CUh]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm   n C5R[\_`4c>"G fiRhr]$CCjgobj  gfilenamefsrfi/srfi-19.scm    gnameg%time?-procedureCgR4&hh7]C/gt-46961e50d3-40    CLO&PhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     Ch]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm   n C5&R'ht]& C6lgs  gfilenamefsrfi/srfi-19.scm    gnameg%time-type-procedureCR4'h:]C2gerr  gs    C#(h:]C2gerr  gs    C,28h:]C2gerr  gs    ChVh7]C/gt-46961e50d3-4c    CLO'PhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     CXh]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm   C5'R(hz]& C6rgs  gfilenamefsrfi/srfi-19.scm    gnameg%time-nanosecond-procedureCYR4(gnsh:]C2gerr  gs    Cv|h:]C2gerr  gs    Ch:]C2gerr  gs    Chh7]C/gt-46961e50d3-67    CLO(PhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  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-procedureCR4)h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Chh7]C/gt-46961e50d3-82    CLO)PhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm   C5)R44.0478h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      CWXh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-19.scm   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C54R*h ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm    gnameg%set-time-type!-procedureC9R4*:~hT]CLgt-46961e50d3-b0  gt-46961e50d3-b1    CLO*PhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     Ch]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm   n C5*R+h ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm    gnameg%set-time-nanosecond!-procedureCR4+:hT]CLgt-46961e50d3-c0  gt-46961e50d3-c1    CLO+PhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     Ch]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm   n C5+R,h ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm    gnameg%set-time-second!-procedureCR4,:hT]CLgt-46961e50d3-d0  gt-46961e50d3-d1    CLO,PhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     Ch]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm   n C5,R%'()hX]& " 45& " 45&  " 456gtime  Ugfilenamefsrfi/srfi-19.scm   !   ;  5 U    U gnameg copy-timeC-Rh0] 45$ 45 D4545Dgr  .gl  .gfilenamefsrfi/srfi-19.scm                   !   ,  # .    . gnameg split-realCR(),+ 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"",Cgt  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!CRh]6gtype  g nanosecond  gsecond   gfilenamefsrfi/srfi-19.scm          gnameg make-timeC%R<=>?@ABh] 4 5445>"G445>"G445>"G44 5>"G4 4 5>"G4  l4 5>"G4 >"G4 45>"GCgdate  gresult  gfilenamefsrfi/srfi-19.scm !  "   "  %   %   %  $ &  ) &  4 &  = '  B '  M '  V )  [ )  f )  o *  t *  { *  *  ,  , ,  ,  -  .  .  .  .  .   gnamegdate->broken-down-timeCR% h ]45 6gtod  gfilenamefsrfi/srfi-19.scm 5  7  7   8   8   8 +  8    gnamegcurrent-time-utcCR%h0]45 456gtod  )gsec )gusec   )gfilenamefsrfi/srfi-19.scm :  <   <  =  <   >   <   @   A  A  ' A  ) ?   ) gnamegcurrent-time-taiCRho]6ggfilenamefsrfi/srfi-19.scm N  P    gnamegcurrent-time-monotonicCRlh]6gfilenamefsrfi/srfi-19.scm R  S   S  S 4 S   gnamegcurrent-time-threadCR;iR%h ]456grun-time  gfilenamefsrfi/srfi-19.scm W  X   X   [   [   ]   Y    gnamegcurrent-time-processCR lh`-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-timeClR  $ hX-13("$ C$ C$ C$C 6g clock-type Wg clock-type  Wgfilenamefsrfi/srfi-19.scm q  r   r 4  r  # s  Q z  S z ) W z  W gnamegtime-resolutionC$R)('h]&  " 45&  " 45$q& " 45& " 45$6& " 45& " 45CCCgt1  gt2  gfilenamefsrfi/srfi-19.scm ~     9   =   @  Z   r   v   y       gnamegtime=?C0R)(h] &  " 45&  " 45$C&  " 45&  " 45$6& " 45& " 45CCgt1  gt2  gt  9 gfilenamefsrfi/srfi-19.scm      9   9   G   b   {        #    gnamegtime>?C2R)(h] &  " 45&  " 45$C&  " 45&  " 45$6& " 45& " 45CCgt1  gt2  gt  9 gfilenamefsrfi/srfi-19.scm      9   9   G   b   {        #    gnamegtime=?C1R)(h] &  " 45&  " 45$C&  " 45&  " 45$6& " 45& " 45CCgt1  gt2  gt  9 gfilenamefsrfi/srfi-19.scm      9   9   G   b   {        $    gnamegtime<=?C.R)(*,+ h1]&  " 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] 456gtime1  gtime2  gresult  gfilenamefsrfi/srfi-19.scm            gnamegtime-differenceC3R')(,+5 hF]& " 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] 456gt  gduration  gresult  gfilenamefsrfi/srfi-19.scm            gnameg add-durationC5R')(,+5 hM]& " 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] 456gtime1  gduration  gresult  gfilenamefsrfi/srfi-19.scm            gnamegsubtract-durationC7R' *(+),h h] & " 45&"4>"G&  "4>"G& " 4 5&  "4 >"G&  " 4 54 &  " 4 55&  "4 >"GC`gtime-in  gtime-out  gcaller   gval  > kgval  gval  gfilenamefsrfi/srfi-19.scm     "   '   -   4   >   n  !    $  $  %  $  !     gnamegpriv:time-tai->time-utc!CR_h]6gtime-in  gfilenamefsrfi/srfi-19.scm    $   F      gnamegtime-tai->time-utcC_R`h]6gtime-in  gfilenamefsrfi/srfi-19.scm   ,    gnamegtime-tai->time-utc!C`R' *(+),h h] & " 45&"4>"G&  "4>"G& " 4 5&  "4 >"G&  " 4 54 &  " 4 55&  "4 >"GC`gtime-in  gtime-out  gcaller   gval  > kgval  gval  gfilenamefsrfi/srfi-19.scm     "   '   -   4   >   n  !    $  $  %  $  !     gnamegpriv:time-utc->time-tai!CRfh]6gtime-in  gfilenamefsrfi/srfi-19.scm    $   F      gnamegtime-utc->time-taiCfRgh]6gtime-in  gfilenamefsrfi/srfi-19.scm   ,    gnamegtime-utc->time-tai!CgR'X-* h]& " 45&"4>"G45 &  "4 >"G 6gtime-in  ~gntime C ~gval  G tgfilenamefsrfi/srfi-19.scm     "   '   +   -   4   =   C   G   |  * ~    ~ gnamegtime-monotonic->time-utcCXR'Y*X hx] & " 45&"4>"G&  "4 >"G  6gtime-in  ugval > kgfilenamefsrfi/srfi-19.scm     "   '   +   -   4   >   s  , u    u gnamegtime-monotonic->time-utc!CYR'V-* hx]& " 45&"4>"G45 &  "4 >"GCgtime-in  wgntime C wgval  G tgfilenamefsrfi/srfi-19.scm     "   '   +   -   4   =   C   G    w gnamegtime-monotonic->time-taiCVR'W* hp] & " 45&"4>"G&  "4 >"GCgtime-in  ngval > kgfilenamefsrfi/srfi-19.scm     "   '   +   -   4   >    n gnamegtime-monotonic->time-tai!CWR' d* h]& " 45&"4>"G45 &  "4 >"GCgtime-in  gntime M gval  Q ~gfilenamefsrfi/srfi-19.scm     "   '   +   -   4   =   I  1 K  ) M   M   Q    gnamegtime-utc->time-monotonicCdR' e* h]& " 45&"4>"G45 &  "4 >"GCgtime-in  {gntime G {gval  K xgfilenamefsrfi/srfi-19.scm     "   '   +   -   4   =   E  ) G   G   K    { gnamegtime-utc->time-monotonic!CeR']-* hx]& " 45&"4>"G45 &  "4 >"GCgtime-in  wgntime C wgval  G tgfilenamefsrfi/srfi-19.scm     "   '   +   -   4   =   C   G    w gnamegtime-tai->time-monotonicC]R'^* hp] & " 45&"4>"G&  "4 >"GCgtime-in  ngval > kgfilenamefsrfi/srfi-19.scm     "   '   +   -   4   > !   n gnamegtime-tai->time-monotonic!C^Rh ,3 Cg nanosecond  gsecond  gminute   ghour   gday   gmonth   gyear   g zone-offset   gfilenamefsrfi/srfi-19.scm )    gnameg%make-date-procedureCR49'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  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    C)h]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C59R[*_+4c>"G fiRhr]$CCjgobj  gfilenamefsrfi/srfi-19.scm )    gnameg%date?-procedureC,R4:hGh8]C0gt-46961e50d3-35d    CLO:PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    CIh]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C5:R;hz]& C6rgs  gfilenamefsrfi/srfi-19.scm )    gnameg%date-nanosecond-procedureCJR4;X_dh:]C2gerr  gs    Cgmrh:]C2gerr  gs    Cu{h:]C2gerr  gs    Chh8]C0gt-46961e50d3-369    CLO;PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm )   C5;R<hv]& C6ngs  gfilenamefsrfi/srfi-19.scm )    gnameg%date-second-procedureCR4<h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Chh8]C0gt-46961e50d3-384    CLO<PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm )   C5h t]& C6lgs  gfilenamefsrfi/srfi-19.scm )    gnameg%date-hour-procedureCJR4>X_dh:]C2gerr  gs    Cgmrh:]C2gerr  gs    Cu{h:]C2gerr  gs    Chh8]C0gt-46961e50d3-3ba    CLO>PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  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-procedureCR4?h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Chh8]C0gt-46961e50d3-3d5    CLO?PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  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-procedureCR4@ h:]C2gerr  gs    Ch:]C2gerr  gs    C%*h:]C2gerr  gs    ChFh8]C0gt-46961e50d3-3f0    CLO@PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    CHh]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm )   C5@RAh t]& C6lgs  gfilenamefsrfi/srfi-19.scm )    gnameg%date-year-procedureCIR4AW^ch:]C2gerr  gs    Cflqh:]C2gerr  gs    Ctzh:]C2gerr  gs    Chh8]C0gt-46961e50d3-40b    CLOAPhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm )   C5ARBh {]& C6sgs  gfilenamefsrfi/srfi-19.scm )    gnameg%date-zone-offset-procedureCR4Bh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Chh8]C0gt-46961e50d3-426    CLOBPhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm )   C5BR4} 78h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      CWXh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-19.scm )   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5}Rh ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg%set-date-nanosecond!-procedureCR4:5hV]CNgt-46961e50d3-454  gt-46961e50d3-455    CLOPhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    C7h]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C5R8h ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg%set-date-second!-procedureC9R48:_hV]CNgt-46961e50d3-464  gt-46961e50d3-465    CLO8PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Cah]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C58Rbh ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg%set-date-minute!-procedureCcR4b:hV]CNgt-46961e50d3-474  gt-46961e50d3-475    CLObPhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C5bRh ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg%set-date-hour!-procedureCR4:hV]CNgt-46961e50d3-484  gt-46961e50d3-485    CLOPhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C5Rh ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg%set-date-day!-procedureCR4:hV]CNgt-46961e50d3-494  gt-46961e50d3-495    CLOPhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C5Rh ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg%set-date-month!-procedureCR4:hV]CNgt-46961e50d3-4a4  gt-46961e50d3-4a5    CLOPhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    C h]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C5R h ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg%set-date-year!-procedureC R4 :1hV]CNgt-46961e50d3-4b4  gt-46961e50d3-4b5    CLO PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    C3h]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C5 R4h ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg %set-date-zone-offset!-procedureC5R44:[hV]CNgt-46961e50d3-4c4  gt-46961e50d3-4c5    CLO4PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    C]h]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C54Rhh]    $ "       m   d  ӖCgday  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-numberC^Rh]A4455 },  ::          d @        $"Dgjdn  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-numberC_R`a)h0] 44&  " 4555Cgutc-time  *gfilenamefsrfi/srfi-19.scm Y  [   [   [  [  & [  ( [  ) [   * gnameglocal-tz-offsetCbRh]Cgseconds  g tz-offset  gfilenamefsrfi/srfi-19.scm ^  _  _   _    gnamegtime->julian-day-numberCcRdh]45$CC{gsecond  gfilenamefsrfi/srfi-19.scm c  d   d    gnameg leap-second?CeR' fbe)c_g(hPR-13& " 45&"4>"G( 45"4 &  " 4 554 $ &  " 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->dateCaR'fb_)ec_g(hH-13& " 45&"4>"G(44 55"&  " 4 54 &  " 4 554 54 $"54> G 4455      <  <& " 45$"    Cgtime 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->dateCZR'fbX)ec_g(hH-13& " 45&"4>"G(44 55"&  " 4 54 &  " 4 554 54 $"54> G 4455      <  <& " 45$"    Cgtime 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->dateCSR^?@Ah% ;>=<Bh]4&  " 45&  " 45&  " 4554 5  & " 4 5  < <&  " 4 5 < <&  " 45 <& " 45 &  " 456gdate  gjdays [ g jdays-1/2  g gfilenamefsrfi/srfi-19.scm       - #  1 >  1 X   [   [   ^   d  - e  $ g   g   p                                 gnamegdate->time-utcCJRgJh]456{gdate  gfilenamefsrfi/srfi-19.scm        gnamegdate->time-taiCIReJh]456gdate  gfilenamefsrfi/srfi-19.scm        gnamegdate->time-monotonicCHRh0]   $C  $  d CCgyear  +gt +gfilenamefsrfi/srfi-19.scm               %  ) '  & (  !  + gnameg leap-year?CiRvwRdwCxih`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-dayCyRy?@AhX]&  " 45&  " 45&  " 456gdate  Wgfilenamefsrfi/srfi-19.scm    "   =  . W    W gnameg date-year-dayCCRhHy]       d   Cqgday  Ggmonth  Ggyear   Gga  Ggy   Ggm   Ggfilenamefsrfi/srfi-19.scm                     %  *   +  ,   1   2   3  9   :  ?   B   C  F    G gnamegweek-dayCzRz?@AhX]&  " 45&  " 45&  " 456gdate  Wgfilenamefsrfi/srfi-19.scm    "   =  . W    W gnameg date-week-dayCDRADhH ]&  " 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-weekC{RC{h]4545 Cgdate  gday-of-week-starting-week  gfilenamefsrfi/srfi-19.scm               gnamegdate-week-numberCERl abh0-1345( 45"6g tz-offset ,gtime  ,gfilenamefsrfi/srfi-19.scm            *  ,   , gnameg current-dateC!R!AhhI]45&  " 45 d d d$C $C 2$C dCAgn  hgs  'g current-year ' hgcurrent-century  1 hgfilenamefsrfi/srfi-19.scm    "    '   .   1   1   8 !  <   C "  G   O #  R # U #  Y   ^ # 6 d $  g $   h gnameg natural-yearC|R;<=>?@AB^}h]A& " 45& " 45&  " 45&  " 45&  " 45&  " 45&  " 4 5&  " 4 54 5  < < < Cgdate  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-dayCFRF~h]45Cgdate  gfilenamefsrfi/srfi-19.scm 8  9  :  9   gnamegdate->modified-julian-dayCGR' f)( h]& " 45&"4>"G&  " 45& " 4 5   Cgtime  |gfilenamefsrfi/srfi-19.scm <  =  " =  ' >  + >  - >  4 >  ? ? Z ? ! t ?  u ?  x ?  { ?   | gnamegtime-utc->julian-dayCbRb~h]45Cgtime  gfilenamefsrfi/srfi-19.scm C  D  E  D   gnamegtime-utc->modified-julian-dayCcR'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-dayC[R[~h]45Cgtime  gfilenamefsrfi/srfi-19.scm P  Q  R  Q   gnamegtime-tai->modified-julian-dayC\R'f)(h]& " 45&"4>"G&  " 454 &  " 455& " 4 5   C gtime  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-dayCTRT~h]45Cgtime  gfilenamefsrfi/srfi-19.scm ^  _  `  _   gnameg#time-monotonic->modified-julian-dayCUR% h0]4> G6gjdn  +gsecs +gseconds   +gparts   +gfilenamefsrfi/srfi-19.scm b c  c  c  e   d  ' g  + f   + gnamegjulian-day->time-utcCNRgNh]456gjdn  gfilenamefsrfi/srfi-19.scm j  k  k   gnamegjulian-day->time-taiCMReNh]456gjdn  gfilenamefsrfi/srfi-19.scm m  n  n   gnamegjulian-day->time-monotonicCLRNbah0-1345( 45"6gjdn 0g tz-offset 0gtime   0goffset  & 0gfilenamefsrfi/srfi-19.scm p q   q   r   s  & t  & q  0 u  0 gnamegjulian-day->dateCKRK~h-13@gjdn g tz-offset gfilenamefsrfi/srfi-19.scm w  x !  x   x   gnamegmodified-julian-day->dateCORN~h]6gjdn  gfilenamefsrfi/srfi-19.scm {  |  |  |   gnamegmodified-julian-day->time-utcCRRM~h]6gjdn  gfilenamefsrfi/srfi-19.scm ~         gnamegmodified-julian-day->time-taiCQRL~h]6gjdn  gfilenamefsrfi/srfi-19.scm    %      gnameg#modified-julian-day->time-monotonicCPRbl ht]456lgfilenamefsrfi/srfi-19.scm        gnamegcurrent-julian-dayC"Rcl h}]456ugfilenamefsrfi/srfi-19.scm    !    gnamegcurrent-modified-julian-dayC#RhH2]4545$"$C456*gn  Egpad-with  Eglength   Egstr  Egstr-len   Egt   ,gfilenamefsrfi/srfi-19.scm                 )  0   6   =  $ A   E    E gnamegpaddingCRh]4 56gi  gn  gfilenamefsrfi/srfi-19.scm             gnameg last-n-digitsCRh]6}gn  gfilenamefsrfi/srfi-19.scm    2    gnameglocale-abbr-weekdayCRh]6}gn  gfilenamefsrfi/srfi-19.scm    ,    gnameglocale-long-weekdayCRiRiRh8,] ")$C4455$C" "$gneedle  6g haystack-ref  6g haystack-len   6gsame?   6gindex   /gfilenamefsrfi/srfi-19.scm                #   )   /   /    6 gnamegdate-reverse-lookupCRh] 6gstring  gfilenamefsrfi/srfi-19.scm       gnameglocale-abbr-weekday->indexCRh] 6gstring  gfilenamefsrfi/srfi-19.scm       gnameglocale-long-weekday->indexCRh] 6~gstring  gfilenamefsrfi/srfi-19.scm       gnameglocale-abbr-month->indexCRh] 6~gstring  gfilenamefsrfi/srfi-19.scm       gnameglocale-long-month->indexCRBh(]&  " 456gdate  #gport  #gfilenamefsrfi/srfi-19.scm     #    # gnameglocale-print-time-zoneCRh] $66ghr  gfilenamefsrfi/srfi-19.scm            #   gnameglocale-am-string/pmCRh] $4>"G"4 $4>"G"4>"G $C4 54  <5440 5>"G40 56goffset  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-printerCR~h]~6gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm     CaDh]44556gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm       -         CADh]44556gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm       -         Cb@h(]4&  " 4556gdate  (gpad-with  (gport   (gfilenamefsrfi/srfi-19.scm      + $   (    ( CB@h(]4&  " 4556gdate  (gpad-with  (gport   (gfilenamefsrfi/srfi-19.scm      + $   (    ( Cch{h]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm          Cd?h0]4&  " 450 56gdate  ,gpad-with  ,gport   ,gfilenamefsrfi/srfi-19.scm      ! (   ,    , CDh|h]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm      +        Ce?h0]4&  " 45 56gdate  ,gpad-with  ,gport   ,gfilenamefsrfi/srfi-19.scm      ! (   ,    , Cf;<h]#& " 45$:44& " 45 5>"G"544& " 45 5>"G4& " 45 > G4 54 5 $(44 5>"G4  56Cgdate  gpad-with  gport   gi  gf  gns  gle  gfilenamefsrfi/srfi-19.scm        #   $   '   ,  ( D  % J   Q   ^   a   f  %        *  $  /  $      #    #         )   )   "   Chhh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm      +        CH>h0]4&  " 45 56gdate  ,gpad-with  ,gport   ,gfilenamefsrfi/srfi-19.scm      ! (   ,    , CI>hP] &  " 45 $4  564 56gdate  Mgpad-with  Mgport   Mghr   Mgfilenamefsrfi/srfi-19.scm        $   (   +   2  ' 8   <   ?   M    M CjCh]445 56gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm       !         Ck>h0]4&  " 45 56gdate  ,gpad-with  ,gport   ,gfilenamefsrfi/srfi-19.scm      ! (   ,    , Cl>hx] &  " 45 $"&  " 45 "&  " 454 56gdate  tgpad-with  tgport   tghr  a tgfilenamefsrfi/srfi-19.scm      $   '  B   I  5 a   f   t    t Cm@h0]4&  " 45 56gdate  ,gpad-with  ,gport   ,gfilenamefsrfi/srfi-19.scm      ! (   ,    , CM=h0]4&  " 45 56gdate  ,gpad-with  ,gport   ,gfilenamefsrfi/srfi-19.scm      ! (   ,    , Cnh]6gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm "  #    CN;h0]4& " 45 56gdate  +gpad-with  +gport   +gfilenamefsrfi/srfi-19.scm $  %  % ! ' %  + %   + Cp>h(]4&  " 4556gdate  (gpad-with  (gport   (gfilenamefsrfi/srfi-19.scm (  )  ) - $ )  ( )   ( Crhh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm *  +  + + +   +    CsJ)h0] 45&  " 456gdate  /gpad-with  /gport   /gs  +gfilenamefsrfi/srfi-19.scm ,  - % -  / -   / CS;<hx]& " 45$*4& " 45 564& " 45 56gdate  vgpad-with  vgport   vgfilenamefsrfi/srfi-19.scm .  /   /  # /  & 1  + 1 ( C 1 % I 1  M 1  P 4  U 4 % r 4  v 4   v Cth] 6gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm 7 8   CTh~h]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm 9  :  : + :   :    CU{Eh@]4 5 $44 50 5644 50 56gdate  ?gpad-with  ?gport   ?gfilenamefsrfi/srfi-19.scm ;  <  <   <   =   = (  = % $ =  ( =  + ?  . ? % ; ?  ? ?   ? CVEh ]44 50 56gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm A  B   B !  B   B    CwDh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm D  E   E    Cxh}h]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm F  G   G    CXhh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm H  I   I    CW{Eh@]4 5 $44 50 5644 50 56gdate  ?gpad-with  ?gport   ?gfilenamefsrfi/srfi-19.scm J  K  K   K   L   L (  L % $ L  ( L  + N  . N % ; N  ? N   ? CyAh8]44&  " 45 5 56gdate  3gpad-with  3gport   3gfilenamefsrfi/srfi-19.scm P  Q   Q ! R ' ) Q ! / Q  3 Q   3 CYAh(]&  " 456gdate  #gpad-with  #gport   #gfilenamefsrfi/srfi-19.scm V  W  # W   # CzBh(]&  " 456gdate  #gpad-with  #gport   #gfilenamefsrfi/srfi-19.scm X  Y  # Y   # CZh]6gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm Z [   C1hh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm \  ]  ] + ]   ]    C2hh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm ^  _  _ + _   _    C3h~h]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm `  a  a + a   a    C4hh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm b  c  c + c   c    C5hh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm d  e  e + e   e    C)Rdh ] 45$CCgchar  g associated gfilenamefsrfi/srfi-19.scm h  i  i   j   j    gnameg get-formatterCR h ]$|454~5$A$ 6454-5$_ $ 644 55$&4>"G 664_5$` $ 644 55$'4 >"G 664455$'40>"G 664>"G6Cgdate  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-printerCRhH-1345("4 45>"G6gdate Eg format-string Egstr-port   Egfmt-str   Egfilenamefsrfi/srfi-19.scm         +   0    "   *  ! 7   E   E gnameg date->stringChRh]0$ C1$ C2$ C3$ C4$ C5$ C6$ C7$ C8$ C9$ C6gch  gfilenamefsrfi/srfi-19.scm    |   ~        gnameg char->intCRh]*"l4545$"(45$"$ "$C 4455" "{gupto  |gport  |gaccum   rgnchars   rgch  rgt   Ngt  + Kgfilenamefsrfi/srfi-19.scm               $   +   +  >   C   R   Z   [  ^  + f  g   j   r  r    | gnameginteger-readerCRh`]L6Xgport  gfilenamefsrfi/srfi-19.scm      Chv]OCngupto  gfilenamefsrfi/srfi-19.scm    gnamegmake-integer-readerCRi 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-exactCRh`]L6Xgport  gfilenamefsrfi/srfi-19.scm      Chy]OCqgn  gfilenamefsrfi/srfi-19.scm    gnamegmake-integer-exact-readerCRi h9]! HH4545$4>"G"4Z5$" 4z5$ C4+5$K"/4-5$K"4>"G4545$4>"G"4 5 < "G"J4 5 < "G"J4 5 "G"J4 5 "G"gport  Kgskipper  Kgch  Kgfilenamefsrfi/srfi-19.scm z   {  {  |  |   }   } $ } ! ~  + ~ .   K  &  K gnameg skip-untilCid hX]FOQ$7454~5$$ 64545  $      4 >"G4 5 4  5$4>"G" $4  >"G"   664 54 5  $" 45 $4>"G" 6Cgdate  Tgindex  Tg format-string   Tgstr-len   Tgport   Tgtemplate-string   Tg skip-until  Tg current-char  $ Rg format-char  Q g format-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->dateCRBb% 4Ji;<=>?@AhB]  4 4545>"G&  " 45$"v44 55&  "4 >"G44 55&  "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->dateCiRC gm  4grtd grtd g gg char-fail <Ggireader4 =Ggireader2 =Gg eireader2 =Gglocale-reader-abbr-weekday =Gglocale-reader-long-weekday =Gglocale-reader-abbr-month =Gglocale-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  : )  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