; S`QU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*].UQUOTE;Loading TIME 4   pSETQxDEFPROPTW*U*U+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071TIME4VERSIONPUSHU*UjUFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS     xANDFEATURECOMPLRU:UjuSPECIALSTANDARD-OUTPUT!#xBOUNDPTYO##%xTIME:DAYS!xU;]*WMonday )px xTuesday -pw*Unux xWednesday 1px xU;]*wThursday 5px xFrida )p99xu+]jW9 xSatur ;5px xSunda )pw:]*w??x? x'+/379=?xTIME:MONTHS! xJanuary A!pCCxu+]jwC xFebruary "Ep##x# xMarch Gp$$xu;].w$ xApril Ip%%x% xMay Kp&&x& xW;U.wJune Mp''x' xJuly (pQQxQ xU+]jUAugust S*pUUxU x Septemberw:U.w W,pYYxY xOctober [.p]]x] xU+]jW November _0paaxa xDecem c0pw:U*U22x2 x  +C/#3$7%&='OQ)U+Y-]/a12xDATEDAYTIMEDOWEQUALTIME:GET-TIME-LISTEXPLODENU)&NREVERSEIMPLODESUBRez85 g3ziE|5g0Sgz88[`gez85 g g45B`i`e,< `5[ a+a`0n=`/. Np-,`` $Z`,8,8,<03`+ g`k`=` a+A+0n-+.. Np-,+` g-,As Bg3+c/ $(-,6@33[`Z`[Z [ (aZg Bg[@`[ g,8-,1,X-,` $ -, $(-, $-,`03-,,X-,/0.U*P,xmTIME:PRINT-TIMEREVERSELEXPR-FUNCALLTIME:PRINT-CURRENT-TIMELSUBR-00 `  4n7 @`o#@&0 ,>,8,8?`i`oZ*g-,1@`k",<8/,x7]:U*W9gARGSsq'+x~D/~D/~D ~D:~2,'0D:~2,'0D :u;w<pw( yyxy xFORMAT-0,< 0@Z(@Z(@Z( g}1n+J@`#0.2`..6 Np "p+O-, ,X,8333 /.6 (p,8,8g{,8gz,8gy0``K",<=//,xyp9`s7=OxTIME:PRINT-DATE*APPENDTIME:PRINT-CURRENT-DATE-0 ` @+^# ,8@`i*g-, $*g>", >U<8/,x{h9Zs}'+xTIME:VERIFY-DATECERRORU*U*W~A the ~:R of ~A, ~D; ~D:~2,'0'0D ~A @AB;C pw*]nWDDxD xASSQam Epx xpm Fpw@`x x-0,< @Z(@Z(@Z(@;`Z( +r# g0.2+v..6 Np "p@` g-, Bg3 &3 g~ ?4B,8,8,8,8",o,< 0 ,/,83a g~ 8an `0+  g~aZ`C,< g~5[ +a`0n=`B/. Np-,` $Z``,8,8,<3`) g`k`;` +A+0n-+B.. Np-,+ g-,00As Bg3+/0F $(-,6,8g|  *g|aZ,8g| gz&. Pp *p6@( "1 B`,8gy@,8gx&.71",<=@D_ /,xDX9fs{O)xP`TIME:MONTH-STRING-0 @@( ;`mZ(+7 "  aZ} 0,xp9csG+/xTIME:DAY-OF-THE-WEEK-STRING-0` @;+?Z(` 0 " aZ,xx9:u*U*Us+/xTIME:ON-WHAT-DAY-OF-THE-WEEK?SAMEPNAMEPThe ~:R of ~A, ~D fell on a ~AU;]*U, not. IJKL pMMxM xToday is a ~3G~A, noU;]*wt a ~A. NOPpx x~D will fa IJQKLpRRxpR x,<,8,8 0.20`..6 Np "p+I "-,,< ,8A g~HK`o 8an ` ,T0,8,8gKo,<5[ +a+\0n=+\/. ` Np-,+\ $Z`,8,8,<3+b g`k+k` +A`0n-`.. ` Np-,` g-, As Bg3`/``0 $(-,6D`` `a5B`i-, [Z[Z [ (,8,8 (0.2`..6 Np "p+z "( B` ,,8,8 [`S`  2og|`2Og|` {` "M+ S`  2Og|` S`7 "R`,8g{  g{aZ,8g{33AB@0K<=`! "/0u*U,xmArgs to TIME:DAY-OF-WEEK U+]jmust be fixnums STUVpx xERROR,<`,8 an `5` an `5 `n +!` A,8{ g~-,3-,71 g-,7",<W+< `0.20`I..6 Np "p+% `-, B`/.&..s.0&>$0.2.  ,<&.2$.2; &.;} w,<&.H;&? w.g.2&Ļ.pÀ .ˀ/ -,0 ,xxjUjuN@m%GMT~TIMEZONE-OFFSETXxEDTY'xESTu:].W'xCDTZ+xCST+xMDT[/xMST/xW+U.WPDT\3xPST3xMONDAYDAY-VALUE]]xMON^]xW+UjuTUESDAYxTUE_xWEDNESDAYxWED`xTHURSDAYu:].WxTHUaxFRIDAYxFRIbxSATURDAYxW+UjWSATcxSUNDAYxSUNdxJANUARYMONTH-VALUE+exW+UjuJAN+exFEBRUARYf/exFEB/exMARCHg3exMARu:].W3exAPRILh7exAPR7exMAYiexJUNE=exW+UjuJUNj=exJULYOexJULkOexAUGUST)exAUGu:].Wl)exSEPTEMBER+exSEPm+exSEPT+exOCTOBERn-exW+UjuOCT-exNOVEMBERo/exNOV/exDECEMBERp1exDECu( 01exCHARSTIME:PARSE-WORD-INTERNAL,<[q,8 `+A+D1n-+H+a+F1n=+HL `k6+Q+a+L0n=+L/. Np "p` `Zq Dq3 B`-,1[q D``/jU*U,xm135U*T79MEMQTIME:PARSE-NUMBER-INTERNAL,<,8b,82Hbrstuvz g$f[qw7@`+X-,0HD`Zq,8q Dq[` 8/. g$0. Np "p  Bg ]+T/,x'mU*U*USMHDOY)-U*U*U MEMBERGETPMAMTHEATINU*U*UONSTNDRDTHCLOCKANOONNOWU*U*UTODAYTOMORROWYESTERDAYHENCEAFTERFROMAGOBEFOREOFU*U*UWKWKSWEEKWEEKSDYDYSDAYDAYSHRU*U*UHRSHOURHOURSAFTERNOONEVENINGNIGHTLATEMORNINGEARLYU*U*UFIFTYFIFTIETHFORTYFORTIETHTHIRTYTHIRTIETHTWENTYTWENTIETHU*U*U NINETEENNINETEENTHEIGHTEENEIGHTEENTH SEVENTEENSEVENTEENTHU*U*USIXTEENSIXTEENTHFIFTEENFIFTEENTHFOURTEENFOURTEENTHU*U*UTHIRTEENTHIRTEENTHTWELVETWELFTHELEVENELEVENTHTENTENTHU*U*UNINENINTHEIGHTEIGHTHSEVENSEVENTHSIXSIXTHFIVEU*U*UFIFTHFOURFOURTHTHREETHIRDTWOSECONDONEFIRSTU*U.wANSyntax error in time spec /_0a1pccxc xU( /TIME:NORMALIZE-DATE-INTERNALTIME:PARSE-LIST-,|-,|P"5 *x,8V,8W-,D"q y z {!7Bq`|+}-z 3][~Zq Dq+l@7Bq+s[ 80N`Z DqB14.z4.z z5.z-, Bz ` *x+l` g}4.~c`- Bg}`A`  B` $ea4B  -,10 Bz *x g~G.-,0 Bg~+l `a Bg!+l `1B``7+-$/.--, *x`-HB-0N+ '.. A -,+l `0`;`O1G-/.--,  *x`I-0N+' 'AC+l `1B+l a4B.A g}. Nww "ww Bg}+l `0+l P( 1B+l0+l1B`30`31B `30`3+B4.BZq,8q  Dq[` 8'`-`0BD`--, g~-, ( *x Bg~+l0 +l0B+K g~PH$+- *1 ' Hy ' g~A-, Bg~+l ` g~(-, Bg~+l1B+l ` g}A..  Bg}+l0B` g}/. ( Nwx "wx Bg}+l` g~-,@AA * Bg~ J` `1B+^+c@- g} ' Bg} +l1B +e+j- g} Nwy "wy ' Bg}+l0B `4nl&. -/. .g} 'AAA Bg}+l0`1B `0` @0B +{s $.T Nwz "wz ( *x+l0+B+0 +B` s $. @AA *x+l0`1B` P 0`0B`s  Nw{@AA "w{ *x+l0!`1B` P(0#`1B`0%`;1B`; @ +0'`-0B+ *s+"0)  +0B`7 +"0+`;0B ( + -+"1B+!/`O *"[q 8-`MZq Bq` B`  +P`+ `01+*0B+, 3 A"`+1B+.5+0 *P( `+07+20B+4 9AAD`+1B+6;+8 *`+ P(@ 0=+:0B+< ?`+1B ADA+>A+@ *!`+0C+B Q 0B"+D `+0E+F0B#DAA+H *1`+0G+J0B$+L"( */`+0I+N0B%+P *- `+ `0K`0B&+X  'ˀ   `+0M+Z0B'`5.\ 'AA.. Nw| "w|`+0O` @(0B(+g 'ˀ(`+0Q+i0B)` 5.k '.. Nw} "w}  `+0S`0B*+v 'AAˀ`+0U+x @(0B+`5.z '.. Nw~( "w~`+0W`0B,+  'ˀ  `+0Y+0B-`5. 'AA.. Nw "w`+0[`! P( 1B.`!0 `!]`+% 'ˀA0 3,8,8X3",<W-/.D@--, Bz *x g~G.-,! Bg~+lkQ {QD@/.6-, B{ *x g~G.-,0  Bg~+l0.2`[q 8@0N+< g~+- g~-,  Bg~/. --, *xdZq Dq` By-[q 81NA"2+9'`uZq Dq`-`-) 2z 3-[q~ g~A.- g~G.@0-,Zq Dq Bg~` B`@ $/.--, *x `-, R1A Bz2z 3-[q~'+M$ ` B{-+l z4.X4.X { 5.X1n +X-, B{ g~@!G.-, *x Bg~+l {H  z g~++D+l&.2-, $.2sH -, By ' g~G.-,@!! (x Bg~3+l4.l z5.l!!! g~+4Nn4.l y4.l4.l@2-, Bz g~G.-, *x! Bg~+l4. z5.z-,1 Bz *x g~G.-, Bg~ + {1n `-,@` B{ *x g~G.-, Bg~+@ $-, *x g~-, Bg~+`-ez85 g)A&gz88[`g3ziE|5gez85 g g0S4'ez85 g Bggz88[`g3ziE|5!!g B`+99 y9@@9[`Z`[ DyZ`Z(" [= ' yA ' JyE 'A.4N' { B5.'5.' zQA.5N-[g@ B{Zg[ZgZ[ Fz {!!A5./[g B{g z5.2++3!BZg[ zk + Jz@s .ˀ Np "p#!-,`e4.@0. +@ @ 1`3 . -,D z-, Bz`y,8y",8z,8{ ,M,8 gH 0Ko-,1,X-,,X 0-,,X-,,X-,,X -,,X-,,D"//Y,x'x''c.@`0Lm,<,<,8!A,8 z+`! { zH z !-, g Jz 5Ni (1b" {-, B{ { "(H B`/ˀ! ./` zs.-, Bz`ˀ,8{ Np *p 1n @` + {ˀ-, B{ g  $(H /g~5N g J{@ 2 `-,3 Hz "@Kx//,x+m;