/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / gnus / timezone.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 38 3a 35 33 3a 33 35 20 |Feb  1 1|8:53:35 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 67 6e 75 | 73 2f 74 69 6d 65 7a 6f |lisp/gnu|s/timezo|
|00000080| 6e 65 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |ne.el.;;|; emacs |
|00000090| 76 65 72 73 69 6f 6e 20 | 31 39 2e 34 2e 31 33 20 |version |19.4.13 |
|000000a0| 4c 75 63 69 64 2e 0a 3b | 3b 3b 20 62 79 74 65 63 |Lucid..;|;; bytec|
|000000b0| 6f 6d 70 20 76 65 72 73 | 69 6f 6e 20 32 2e 31 30 |omp vers|ion 2.10|
|000000c0| 3b 20 20 31 2d 66 65 62 | 2d 39 33 2e 0a 3b 3b 3b |;  1-feb|-93..;;;|
|000000d0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|000000e0| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|000000f0| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000100| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000110| 73 74 20 69 6e 20 45 6d | 61 63 73 31 38 2e 0a 0a |st in Em|acs18...|
|00000120| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000130| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000140| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000150| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000160| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000170| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|00000180| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|00000190| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|000001a0| 20 20 20 28 65 72 72 6f | 72 20 22 54 68 69 73 20 |   (erro|r "This |
|000001b0| 66 69 6c 65 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |file was| compile|
|000001c0| 64 20 66 6f 72 20 45 6d | 61 63 73 31 39 2e 22 29 |d for Em|acs19.")|
|000001d0| 29 0a 0a 28 70 72 6f 76 | 69 64 65 20 27 74 69 6d |)..(prov|ide 'tim|
|000001e0| 65 7a 6f 6e 65 29 0a 28 | 64 65 66 76 61 72 20 74 |ezone).(|defvar t|
|000001f0| 69 6d 65 7a 6f 6e 65 2d | 77 6f 72 6c 64 2d 74 69 |imezone-|world-ti|
|00000200| 6d 65 7a 6f 6e 65 73 20 | 27 28 28 22 50 53 54 22 |mezones |'(("PST"|
|00000210| 20 2e 20 2d 38 30 30 29 | 20 28 22 50 44 54 22 20 | . -800)| ("PDT" |
|00000220| 2e 20 2d 37 30 30 29 20 | 28 22 4d 53 54 22 20 2e |. -700) |("MST" .|
|00000230| 20 2d 37 30 30 29 20 28 | 22 4d 44 54 22 20 2e 20 | -700) (|"MDT" . |
|00000240| 2d 36 30 30 29 20 28 22 | 43 53 54 22 20 2e 20 2d |-600) ("|CST" . -|
|00000250| 36 30 30 29 20 28 22 43 | 44 54 22 20 2e 20 2d 35 |600) ("C|DT" . -5|
|00000260| 30 30 29 20 28 22 45 53 | 54 22 20 2e 20 2d 35 30 |00) ("ES|T" . -50|
|00000270| 30 29 20 28 22 45 44 54 | 22 20 2e 20 2d 34 30 30 |0) ("EDT|" . -400|
|00000280| 29 20 28 22 47 4d 54 22 | 20 2e 20 30 29 20 28 22 |) ("GMT"| . 0) ("|
|00000290| 42 53 54 22 20 2e 20 31 | 30 30 29 20 28 22 4d 45 |BST" . 1|00) ("ME|
|000002a0| 54 22 20 2e 20 31 30 30 | 29 20 28 22 45 45 54 22 |T" . 100|) ("EET"|
|000002b0| 20 2e 20 32 30 30 29 20 | 28 22 4a 53 54 22 20 2e | . 200) |("JST" .|
|000002c0| 20 39 30 30 29 20 28 22 | 47 4d 54 2b 31 22 20 2e | 900) ("|GMT+1" .|
|000002d0| 20 31 30 30 29 20 28 22 | 47 4d 54 2b 32 22 20 2e | 100) ("|GMT+2" .|
|000002e0| 20 32 30 30 29 20 28 22 | 47 4d 54 2b 33 22 20 2e | 200) ("|GMT+3" .|
|000002f0| 20 33 30 30 29 20 28 22 | 47 4d 54 2b 34 22 20 2e | 300) ("|GMT+4" .|
|00000300| 20 34 30 30 29 20 28 22 | 47 4d 54 2b 35 22 20 2e | 400) ("|GMT+5" .|
|00000310| 20 35 30 30 29 20 28 22 | 47 4d 54 2b 36 22 20 2e | 500) ("|GMT+6" .|
|00000320| 20 36 30 30 29 20 28 22 | 47 4d 54 2b 37 22 20 2e | 600) ("|GMT+7" .|
|00000330| 20 37 30 30 29 20 28 22 | 47 4d 54 2b 38 22 20 2e | 700) ("|GMT+8" .|
|00000340| 20 38 30 30 29 20 28 22 | 47 4d 54 2b 39 22 20 2e | 800) ("|GMT+9" .|
|00000350| 20 39 30 30 29 20 28 22 | 47 4d 54 2b 31 30 22 20 | 900) ("|GMT+10" |
|00000360| 2e 20 31 30 30 30 29 20 | 28 22 47 4d 54 2b 31 31 |. 1000) |("GMT+11|
|00000370| 22 20 2e 20 31 31 30 30 | 29 20 28 22 47 4d 54 2b |" . 1100|) ("GMT+|
|00000380| 31 32 22 20 2e 20 31 32 | 30 30 29 20 28 22 47 4d |12" . 12|00) ("GM|
|00000390| 54 2b 31 33 22 20 2e 20 | 31 33 30 30 29 20 28 22 |T+13" . |1300) ("|
|000003a0| 47 4d 54 2d 31 22 20 2e | 20 2d 31 30 30 29 20 28 |GMT-1" .| -100) (|
|000003b0| 22 47 4d 54 2d 32 22 20 | 2e 20 2d 32 30 30 29 20 |"GMT-2" |. -200) |
|000003c0| 28 22 47 4d 54 2d 33 22 | 20 2e 20 2d 33 30 30 29 |("GMT-3"| . -300)|
|000003d0| 20 28 22 47 4d 54 2d 34 | 22 20 2e 20 2d 34 30 30 | ("GMT-4|" . -400|
|000003e0| 29 20 28 22 47 4d 54 2d | 35 22 20 2e 20 2d 35 30 |) ("GMT-|5" . -50|
|000003f0| 30 29 20 28 22 47 4d 54 | 2d 36 22 20 2e 20 2d 36 |0) ("GMT|-6" . -6|
|00000400| 30 30 29 20 28 22 47 4d | 54 2d 37 22 20 2e 20 2d |00) ("GM|T-7" . -|
|00000410| 37 30 30 29 20 28 22 47 | 4d 54 2d 38 22 20 2e 20 |700) ("G|MT-8" . |
|00000420| 2d 38 30 30 29 20 28 22 | 47 4d 54 2d 39 22 20 2e |-800) ("|GMT-9" .|
|00000430| 20 2d 39 30 30 29 20 28 | 22 47 4d 54 2d 31 30 22 | -900) (|"GMT-10"|
|00000440| 20 2e 20 2d 31 30 30 30 | 29 20 28 22 47 4d 54 2d | . -1000|) ("GMT-|
|00000450| 31 31 22 20 2e 20 2d 31 | 31 30 30 29 20 28 22 47 |11" . -1|100) ("G|
|00000460| 4d 54 2d 31 32 22 20 2e | 20 2d 31 32 30 30 29 29 |MT-12" .| -1200))|
|00000470| 20 22 5c 0a 2a 54 69 6d | 65 20 64 69 66 66 65 72 | "\.*Tim|e differ|
|00000480| 65 6e 74 69 61 6c 73 20 | 6f 66 20 74 69 6d 65 7a |entials |of timez|
|00000490| 6f 6e 65 20 66 72 6f 6d | 20 47 4d 54 20 69 6e 20 |one from| GMT in |
|000004a0| 68 6f 75 72 2e 22 29 0a | 28 64 65 66 76 61 72 20 |hour.").|(defvar |
|000004b0| 74 69 6d 65 7a 6f 6e 65 | 2d 6d 6f 6e 74 68 73 2d |timezone|-months-|
|000004c0| 61 73 73 6f 63 20 27 28 | 28 22 4a 41 4e 22 20 2e |assoc '(|("JAN" .|
|000004d0| 20 31 29 20 28 22 46 45 | 42 22 20 2e 20 32 29 20 | 1) ("FE|B" . 2) |
|000004e0| 28 22 4d 41 52 22 20 2e | 20 33 29 20 28 22 41 50 |("MAR" .| 3) ("AP|
|000004f0| 52 22 20 2e 20 34 29 20 | 28 22 4d 41 59 22 20 2e |R" . 4) |("MAY" .|
|00000500| 20 35 29 20 28 22 4a 55 | 4e 22 20 2e 20 36 29 20 | 5) ("JU|N" . 6) |
|00000510| 28 22 4a 55 4c 22 20 2e | 20 37 29 20 28 22 41 55 |("JUL" .| 7) ("AU|
|00000520| 47 22 20 2e 20 38 29 20 | 28 22 53 45 50 22 20 2e |G" . 8) |("SEP" .|
|00000530| 20 39 29 20 28 22 4f 43 | 54 22 20 2e 20 31 30 29 | 9) ("OC|T" . 10)|
|00000540| 20 28 22 4e 4f 56 22 20 | 2e 20 31 31 29 20 28 22 | ("NOV" |. 11) ("|
|00000550| 44 45 43 22 20 2e 20 31 | 32 29 29 20 22 5c 0a 41 |DEC" . 1|2)) "\.A|
|00000560| 6c 69 73 74 20 6f 66 20 | 66 69 72 73 74 20 74 68 |list of |first th|
|00000570| 72 65 65 20 6c 65 74 74 | 65 72 73 20 6f 66 20 61 |ree lett|ers of a|
|00000580| 20 6d 6f 6e 74 68 20 61 | 6e 64 20 69 74 73 20 6e | month a|nd its n|
|00000590| 75 6d 65 72 69 63 61 6c | 20 72 65 70 72 65 73 65 |umerical| represe|
|000005a0| 6e 74 61 74 69 6f 6e 2e | 22 29 0a 28 66 73 65 74 |ntation.|").(fset|
|000005b0| 20 27 74 69 6d 65 7a 6f | 6e 65 2d 6d 61 6b 65 2d | 'timezo|ne-make-|
|000005c0| 64 61 74 65 2d 61 72 70 | 61 2d 73 74 61 6e 64 61 |date-arp|a-standa|
|000005d0| 72 64 20 23 5b 28 64 61 | 74 65 20 26 6f 70 74 69 |rd #[(da|te &opti|
|000005e0| 6f 6e 61 6c 20 6c 6f 63 | 61 6c 20 74 69 6d 65 7a |onal loc|al timez|
|000005f0| 6f 6e 65 29 20 22 c0 09 | 21 19 c2 09 c3 48 21 1c |one) "..|!....H!.|
|00000600| c2 09 c5 48 21 1e 06 c2 | 09 c7 48 21 1e 08 c9 09 |...H!...|..H!....|
|00000610| ca 48 21 1e 0b c2 0e 0b | c3 48 21 1e 0c c2 0e 0b |.H!.....|.H!.....|
|00000620| c5 48 21 1e 0d c2 0e 0b | c7 48 21 1e 0e 09 cf 48 |.H!.....|.H!....H|
|00000630| ae 82 0e 10 1e 10 0e 11 | ae 82 0e 10 1e 11 d2 0e |........|........|
|00000640| 11 21 d2 0e 10 21 5a 1e | 13 d4 0c 0e 06 0e 08 0e |.!...!Z.|........|
|00000650| 0c 0e 0d 0e 13 5c 5c 0e | 0e 26 06 1e 15 d6 0e 15 |.....\\.|.&......|
|00000660| c3 48 0e 15 c5 48 0e 15 | c7 48 d7 0e 15 ca 48 0e |.H...H..|.H....H.|
|00000670| 15 cf 48 0e 15 d8 48 23 | 0e 11 25 2e 0c 87 22 20 |..H...H#|..%..." |
|00000680| 5b 74 69 6d 65 7a 6f 6e | 65 2d 70 61 72 73 65 2d |[timezon|e-parse-|
|00000690| 64 61 74 65 20 64 61 74 | 65 20 73 74 72 69 6e 67 |date dat|e string|
|000006a0| 2d 74 6f 2d 69 6e 74 20 | 30 20 79 65 61 72 20 31 |-to-int |0 year 1|
|000006b0| 20 6d 6f 6e 74 68 20 32 | 20 64 61 79 20 74 69 6d | month 2| day tim|
|000006c0| 65 7a 6f 6e 65 2d 70 61 | 72 73 65 2d 74 69 6d 65 |ezone-pa|rse-time|
|000006d0| 20 33 20 74 69 6d 65 20 | 68 6f 75 72 20 6d 69 6e | 3 time |hour min|
|000006e0| 75 74 65 20 73 65 63 6f | 6e 64 20 34 20 6c 6f 63 |ute seco|nd 4 loc|
|000006f0| 61 6c 20 74 69 6d 65 7a | 6f 6e 65 20 74 69 6d 65 |al timez|one time|
|00000700| 7a 6f 6e 65 2d 7a 6f 6e | 65 2d 74 6f 2d 6d 69 6e |zone-zon|e-to-min|
|00000710| 75 74 65 20 64 69 66 66 | 20 74 69 6d 65 7a 6f 6e |ute diff| timezon|
|00000720| 65 2d 66 69 78 2d 74 69 | 6d 65 20 6e 65 77 20 74 |e-fix-ti|me new t|
|00000730| 69 6d 65 7a 6f 6e 65 2d | 6d 61 6b 65 2d 61 72 70 |imezone-|make-arp|
|00000740| 61 2d 64 61 74 65 20 74 | 69 6d 65 7a 6f 6e 65 2d |a-date t|imezone-|
|00000750| 6d 61 6b 65 2d 74 69 6d | 65 2d 73 74 72 69 6e 67 |make-tim|e-string|
|00000760| 20 35 5d 20 39 20 22 5c | 0a 43 6f 6e 76 65 72 74 | 5] 9 "\|.Convert|
|00000770| 20 44 41 54 45 20 74 6f | 20 61 6e 20 61 72 70 61 | DATE to| an arpa|
|00000780| 6e 65 74 20 73 74 61 6e | 64 61 72 64 20 64 61 74 |net stan|dard dat|
|00000790| 65 2e 0a 4f 70 74 69 6f | 6e 61 6c 20 31 73 74 20 |e..Optio|nal 1st |
|000007a0| 61 72 67 75 6d 65 74 6e | 20 4c 4f 43 41 4c 20 73 |argumetn| LOCAL s|
|000007b0| 70 65 63 69 66 69 65 73 | 20 74 68 65 20 64 65 66 |pecifies| the def|
|000007c0| 61 75 6c 74 20 6c 6f 63 | 61 6c 20 74 69 6d 65 7a |ault loc|al timez|
|000007d0| 6f 6e 65 20 6f 66 20 74 | 68 65 20 44 41 54 45 2e |one of t|he DATE.|
|000007e0| 0a 4f 70 74 69 6f 6e 61 | 6c 20 32 6e 64 20 61 72 |.Optiona|l 2nd ar|
|000007f0| 67 75 6d 65 6e 74 20 54 | 49 4d 45 5a 4f 4e 45 20 |gument T|IMEZONE |
|00000800| 73 70 65 63 69 66 69 65 | 73 20 61 20 74 69 6d 65 |specifie|s a time|
|00000810| 7a 6f 6e 65 20 74 6f 20 | 62 65 20 72 65 70 72 65 |zone to |be repre|
|00000820| 73 65 6e 74 65 64 20 69 | 6e 2e 22 5d 29 0a 28 66 |sented i|n."]).(f|
|00000830| 73 65 74 20 27 74 69 6d | 65 7a 6f 6e 65 2d 6d 61 |set 'tim|ezone-ma|
|00000840| 6b 65 2d 64 61 74 65 2d | 73 6f 72 74 61 62 6c 65 |ke-date-|sortable|
|00000850| 20 23 5b 28 64 61 74 65 | 20 26 6f 70 74 69 6f 6e | #[(date| &option|
|00000860| 61 6c 20 6c 6f 63 61 6c | 20 74 69 6d 65 7a 6f 6e |al local| timezon|
|00000870| 65 29 20 22 c0 09 21 19 | c2 09 c3 48 21 1c c2 09 |e) "..!.|...H!...|
|00000880| c5 48 21 1e 06 c2 09 c7 | 48 21 1e 08 c9 09 ca 48 |.H!.....|H!.....H|
|00000890| 21 1e 0b c2 0e 0b c3 48 | 21 1e 0c c2 0e 0b c5 48 |!......H|!......H|
|000008a0| 21 1e 0d c2 0e 0b c7 48 | 21 1e 0e 09 cf 48 ae 82 |!......H|!....H..|
|000008b0| 0e 10 1e 10 0e 11 ae 82 | 0e 10 1e 11 d2 0e 11 21 |........|.......!|
|000008c0| d2 0e 10 21 5a 1e 13 d4 | 0c 0e 06 0e 08 0e 0c 0e |...!Z...|........|
|000008d0| 0d 0e 13 5c 5c 0e 0e 26 | 06 1e 15 d6 0e 15 c3 48 |...\\..&|.......H|
|000008e0| 0e 15 c5 48 0e 15 c7 48 | d7 0e 15 ca 48 0e 15 cf |...H...H|....H...|
|000008f0| 48 0e 15 d8 48 23 24 2e | 0c 87 22 20 5b 74 69 6d |H...H#$.|.." [tim|
|00000900| 65 7a 6f 6e 65 2d 70 61 | 72 73 65 2d 64 61 74 65 |ezone-pa|rse-date|
|00000910| 20 64 61 74 65 20 73 74 | 72 69 6e 67 2d 74 6f 2d | date st|ring-to-|
|00000920| 69 6e 74 20 30 20 79 65 | 61 72 20 31 20 6d 6f 6e |int 0 ye|ar 1 mon|
|00000930| 74 68 20 32 20 64 61 79 | 20 74 69 6d 65 7a 6f 6e |th 2 day| timezon|
|00000940| 65 2d 70 61 72 73 65 2d | 74 69 6d 65 20 33 20 74 |e-parse-|time 3 t|
|00000950| 69 6d 65 20 68 6f 75 72 | 20 6d 69 6e 75 74 65 20 |ime hour| minute |
|00000960| 73 65 63 6f 6e 64 20 34 | 20 6c 6f 63 61 6c 20 74 |second 4| local t|
|00000970| 69 6d 65 7a 6f 6e 65 20 | 74 69 6d 65 7a 6f 6e 65 |imezone |timezone|
|00000980| 2d 7a 6f 6e 65 2d 74 6f | 2d 6d 69 6e 75 74 65 20 |-zone-to|-minute |
|00000990| 64 69 66 66 20 74 69 6d | 65 7a 6f 6e 65 2d 66 69 |diff tim|ezone-fi|
|000009a0| 78 2d 74 69 6d 65 20 6e | 65 77 20 74 69 6d 65 7a |x-time n|ew timez|
|000009b0| 6f 6e 65 2d 6d 61 6b 65 | 2d 73 6f 72 74 61 62 6c |one-make|-sortabl|
|000009c0| 65 2d 64 61 74 65 20 74 | 69 6d 65 7a 6f 6e 65 2d |e-date t|imezone-|
|000009d0| 6d 61 6b 65 2d 74 69 6d | 65 2d 73 74 72 69 6e 67 |make-tim|e-string|
|000009e0| 20 35 5d 20 39 20 22 5c | 0a 43 6f 6e 76 65 72 74 | 5] 9 "\|.Convert|
|000009f0| 20 44 41 54 45 20 74 6f | 20 61 20 73 6f 72 74 61 | DATE to| a sorta|
|00000a00| 62 6c 65 20 64 61 74 65 | 20 73 74 72 69 6e 67 2e |ble date| string.|
|00000a10| 0a 4f 70 74 69 6f 6e 61 | 6c 20 31 73 74 20 61 72 |.Optiona|l 1st ar|
|00000a20| 67 75 6d 65 74 6e 20 4c | 4f 43 41 4c 20 73 70 65 |gumetn L|OCAL spe|
|00000a30| 63 69 66 69 65 73 20 74 | 68 65 20 64 65 66 61 75 |cifies t|he defau|
|00000a40| 6c 74 20 6c 6f 63 61 6c | 20 74 69 6d 65 7a 6f 6e |lt local| timezon|
|00000a50| 65 20 6f 66 20 74 68 65 | 20 44 41 54 45 2e 0a 4f |e of the| DATE..O|
|00000a60| 70 74 69 6f 6e 61 6c 20 | 32 6e 64 20 61 72 67 75 |ptional |2nd argu|
|00000a70| 6d 65 6e 74 20 54 49 4d | 45 5a 4f 4e 45 20 73 70 |ment TIM|EZONE sp|
|00000a80| 65 63 69 66 69 65 73 20 | 61 20 74 69 6d 65 7a 6f |ecifies |a timezo|
|00000a90| 6e 65 20 74 6f 20 62 65 | 20 72 65 70 72 65 73 65 |ne to be| represe|
|00000aa0| 6e 74 65 64 20 69 6e 2e | 22 5d 29 0a 28 66 73 65 |nted in.|"]).(fse|
|00000ab0| 74 20 27 74 69 6d 65 7a | 6f 6e 65 2d 6d 61 6b 65 |t 'timez|one-make|
|00000ac0| 2d 61 72 70 61 2d 64 61 | 74 65 20 23 5b 28 79 65 |-arpa-da|te #[(ye|
|00000ad0| 61 72 20 6d 6f 6e 74 68 | 20 64 61 79 20 74 69 6d |ar month| day tim|
|00000ae0| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 74 69 6d 65 |e &optio|nal time|
|00000af0| 7a 6f 6e 65 29 20 22 c0 | c1 5c 6e c3 c4 0d 0e 06 |zone) ".|.\n.....|
|00000b00| 5c 22 40 21 0e 07 c8 57 | ab 86 0e 07 c9 5c 5c aa |\"@!...W|.....\\.|
|00000b10| 82 0e 07 0e 5c 6e 0e 0b | ab 86 cc 0e 0b 50 aa 81 |....\n..|.....P..|
|00000b20| cd 26 06 87 22 20 5b 66 | 6f 72 6d 61 74 20 22 25 |.&.." [f|ormat "%|
|00000b30| 30 32 64 20 25 73 20 25 | 34 64 20 25 73 25 73 22 |02d %s %|4d %s%s"|
|00000b40| 20 64 61 79 20 63 61 70 | 69 74 61 6c 69 7a 65 20 | day cap|italize |
|00000b50| 72 61 73 73 71 20 6d 6f | 6e 74 68 20 74 69 6d 65 |rassq mo|nth time|
|00000b60| 7a 6f 6e 65 2d 6d 6f 6e | 74 68 73 2d 61 73 73 6f |zone-mon|ths-asso|
|00000b70| 63 20 79 65 61 72 20 31 | 30 30 20 31 39 30 30 20 |c year 1|00 1900 |
|00000b80| 74 69 6d 65 20 74 69 6d | 65 7a 6f 6e 65 20 22 20 |time tim|ezone " |
|00000b90| 22 20 22 22 5d 20 38 20 | 22 5c 0a 4d 61 6b 65 20 |" ""] 8 |"\.Make |
|00000ba0| 61 72 70 61 6e 65 74 20 | 73 74 61 6e 64 61 72 64 |arpanet |standard|
|00000bb0| 20 64 61 74 65 20 73 74 | 72 69 6e 67 20 66 72 6f | date st|ring fro|
|00000bc0| 6d 20 59 45 41 52 2c 20 | 4d 4f 4e 54 48 2c 20 44 |m YEAR, |MONTH, D|
|00000bd0| 41 59 2c 20 61 6e 64 20 | 54 49 4d 45 2e 0a 4f 70 |AY, and |TIME..Op|
|00000be0| 74 69 6f 6e 61 6c 20 61 | 72 67 75 6d 65 6e 74 20 |tional a|rgument |
|00000bf0| 54 49 4d 45 5a 4f 4e 45 | 20 73 70 65 63 69 66 69 |TIMEZONE| specifi|
|00000c00| 65 73 20 61 20 74 69 6d | 65 20 7a 6f 6e 65 2e 22 |es a tim|e zone."|
|00000c10| 5d 29 0a 28 66 73 65 74 | 20 27 74 69 6d 65 7a 6f |]).(fset| 'timezo|
|00000c20| 6e 65 2d 6d 61 6b 65 2d | 73 6f 72 74 61 62 6c 65 |ne-make-|sortable|
|00000c30| 2d 64 61 74 65 20 23 5b | 28 79 65 61 72 20 6d 6f |-date #[|(year mo|
|00000c40| 6e 74 68 20 64 61 79 20 | 74 69 6d 65 29 20 22 c0 |nth day |time) ".|
|00000c50| c1 5c 6e c3 57 ab 85 5c | 6e c4 5c 5c aa 81 5c 6e |.\n.W..\|n.\\..\n|
|00000c60| 0d 0e 06 0e 07 25 87 22 | 20 5b 66 6f 72 6d 61 74 |.....%."| [format|
|00000c70| 20 22 25 34 64 25 30 32 | 64 25 30 32 64 25 73 22 | "%4d%02|d%02d%s"|
|00000c80| 20 79 65 61 72 20 31 30 | 30 20 31 39 30 30 20 6d | year 10|0 1900 m|
|00000c90| 6f 6e 74 68 20 64 61 79 | 20 74 69 6d 65 5d 20 36 |onth day| time] 6|
|00000ca0| 20 22 5c 0a 4d 61 6b 65 | 20 73 6f 72 74 61 62 6c | "\.Make| sortabl|
|00000cb0| 65 20 64 61 74 65 20 73 | 74 72 69 6e 67 20 66 72 |e date s|tring fr|
|00000cc0| 6f 6d 20 59 45 41 52 2c | 20 4d 4f 4e 54 48 2c 20 |om YEAR,| MONTH, |
|00000cd0| 44 41 59 2c 20 61 6e 64 | 20 54 49 4d 45 2e 22 5d |DAY, and| TIME."]|
|00000ce0| 29 0a 28 66 73 65 74 20 | 27 74 69 6d 65 7a 6f 6e |).(fset |'timezon|
|00000cf0| 65 2d 6d 61 6b 65 2d 74 | 69 6d 65 2d 73 74 72 69 |e-make-t|ime-stri|
|00000d00| 6e 67 20 23 5b 28 68 6f | 75 72 20 6d 69 6e 75 74 |ng #[(ho|ur minut|
|00000d10| 65 20 73 65 63 6f 6e 64 | 29 20 22 c0 c1 5c 6e 0b |e second|) "..\n.|
|00000d20| 0c 24 87 22 20 5b 66 6f | 72 6d 61 74 20 22 25 30 |.$." [fo|rmat "%0|
|00000d30| 32 64 3a 25 30 32 64 3a | 25 30 32 64 22 20 68 6f |2d:%02d:|%02d" ho|
|00000d40| 75 72 20 6d 69 6e 75 74 | 65 20 73 65 63 6f 6e 64 |ur minut|e second|
|00000d50| 5d 20 35 20 22 5c 0a 4d | 61 6b 65 20 74 69 6d 65 |] 5 "\.M|ake time|
|00000d60| 20 73 74 72 69 6e 67 20 | 66 72 6f 6d 20 48 4f 55 | string |from HOU|
|00000d70| 52 2c 20 4d 49 4e 55 54 | 45 2c 20 61 6e 64 20 53 |R, MINUT|E, and S|
|00000d80| 45 43 4f 4e 44 2e 22 5d | 29 0a 28 66 73 65 74 20 |ECOND."]|).(fset |
|00000d90| 27 74 69 6d 65 7a 6f 6e | 65 2d 70 61 72 73 65 2d |'timezon|e-parse-|
|00000da0| 64 61 74 65 20 23 5b 28 | 64 61 74 65 29 20 22 08 |date #[(|date) ".|
|00000db0| ae 81 c1 c2 89 89 89 89 | 1b 1c 1d 1e 06 1e 07 18 |........|........|
|00000dc0| c8 c9 08 5c 22 ab 8e ca | 16 07 cb 16 06 cc 15 cd |...\"...|........|
|00000dd0| 14 c2 13 aa ce c8 ce 08 | 5c 22 ab 8e ca 16 07 cb |........|\"......|
|00000de0| 16 06 cc 15 cd 14 cf 13 | aa ba c8 d0 08 5c 22 ab |........|.....\".|
|00000df0| 8e cd 16 07 cc 16 06 cb | 15 ca 14 c2 13 aa a6 c8 |........|........|
|00000e00| d1 08 5c 22 ab 8e cf 16 | 07 cc 16 06 cb 15 ca 14 |..\"....|........|
|00000e10| cd 13 aa 92 c8 d2 08 5c | 22 ab 8c ca 16 07 cb 16 |.......\|".......|
|00000e20| 06 cc 15 cd 14 cf 13 0e | 07 ab bb 08 0e 07 94 0e |........|........|
|00000e30| 07 95 4f 89 16 07 47 cd | 57 ab 89 d3 0e 07 d4 c2 |..O...G.|W.......|
|00000e40| 4f 50 16 07 d5 d6 08 0e | 06 94 0e 06 94 ca 5c 5c |OP......|......\\|
|00000e50| 4f 96 0e 17 5c 22 41 21 | 16 06 08 0d 94 0d 95 4f |O...\"A!|.......O|
|00000e60| 15 08 0c 94 0c 95 4f 14 | 0b ab 87 08 0b 94 0b 95 |......O.|........|
|00000e70| 4f 13 0e 07 ab 8b d8 0e | 07 0e 06 0d 0c 0b 25 aa |O.......|......%.|
|00000e80| 87 d8 d9 89 89 89 c2 25 | 2e 06 87 22 20 5b 64 61 |.......%|..." [da|
|00000e90| 74 65 20 22 22 20 6e 69 | 6c 20 7a 6f 6e 65 20 74 |te "" ni|l zone t|
|00000ea0| 69 6d 65 20 64 61 79 20 | 6d 6f 6e 74 68 20 79 65 |ime day |month ye|
|00000eb0| 61 72 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |ar strin|g-match |
|00000ec0| 22 5c 5c 28 5b 30 2d 39 | 5d 2b 5c 5c 29 20 5c 5c |"\\([0-9|]+\\) \\|
|00000ed0| 28 5b 5e 20 2c 5d 2b 5c | 5c 29 20 5c 5c 28 5b 30 |([^ ,]+\|\) \\([0|
|00000ee0| 2d 39 5d 2b 5c 5c 29 20 | 5c 5c 28 5b 30 2d 39 5d |-9]+\\) |\\([0-9]|
|00000ef0| 2b 3a 5b 30 2d 39 3a 5d | 2b 5c 5c 29 5b 20 5d 2a |+:[0-9:]|+\\)[ ]*|
|00000f00| 5c 5c 27 22 20 33 20 32 | 20 31 20 34 20 22 5c 5c |\\'" 3 2| 1 4 "\\|
|00000f10| 28 5b 30 2d 39 5d 2b 5c | 5c 29 20 5c 5c 28 5b 5e |([0-9]+\|\) \\([^|
|00000f20| 20 2c 5d 2b 5c 5c 29 20 | 5c 5c 28 5b 30 2d 39 5d | ,]+\\) |\\([0-9]|
|00000f30| 2b 5c 5c 29 20 5c 5c 28 | 5b 30 2d 39 5d 2b 3a 5b |+\\) \\(|[0-9]+:[|
|00000f40| 30 2d 39 3a 5d 2b 5c 5c | 29 5b 20 5d 2a 5c 5c 28 |0-9:]+\\|)[ ]*\\(|
|00000f50| 5b 2d 2b 61 2d 7a 41 2d | 5a 30 2d 39 5d 2b 5c 5c |[-+a-zA-|Z0-9]+\\|
|00000f60| 29 22 20 35 20 22 5c 5c | 28 5b 5e 20 2c 5d 2b 5c |)" 5 "\\|([^ ,]+\|
|00000f70| 5c 29 20 2b 5c 5c 28 5b | 30 2d 39 5d 2b 5c 5c 29 |\) +\\([|0-9]+\\)|
|00000f80| 20 5c 5c 28 5b 30 2d 39 | 5d 2b 3a 5b 30 2d 39 3a | \\([0-9|]+:[0-9:|
|00000f90| 5d 2b 5c 5c 29 20 5c 5c | 28 5b 30 2d 39 5d 2b 5c |]+\\) \\|([0-9]+\|
|00000fa0| 5c 29 22 20 22 5c 5c 28 | 5b 5e 20 2c 5d 2b 5c 5c |\)" "\\(|[^ ,]+\\|
|00000fb0| 29 20 2b 5c 5c 28 5b 30 | 2d 39 5d 2b 5c 5c 29 20 |) +\\([0|-9]+\\) |
|00000fc0| 5c 5c 28 5b 30 2d 39 5d | 2b 3a 5b 30 2d 39 3a 5d |\\([0-9]|+:[0-9:]|
|00000fd0| 2b 5c 5c 29 20 5c 5c 28 | 5b 2d 2b 61 2d 7a 41 2d |+\\) \\(|[-+a-zA-|
|00000fe0| 5a 30 2d 39 5d 2b 5c 5c | 29 20 5c 5c 28 5b 30 2d |Z0-9]+\\|) \\([0-|
|00000ff0| 39 5d 2b 5c 5c 29 22 20 | 22 5c 5c 28 5b 30 2d 39 |9]+\\)" |"\\([0-9|
|00001000| 5d 2b 5c 5c 29 20 5c 5c | 28 5b 5e 20 2c 5d 2b 5c |]+\\) \\|([^ ,]+\|
|00001010| 5c 29 20 5c 5c 28 5b 30 | 2d 39 5d 2b 5c 5c 29 20 |\) \\([0|-9]+\\) |
|00001020| 5c 5c 28 5b 30 2d 39 5d | 2b 5c 5c 29 5b 20 5d 2a |\\([0-9]|+\\)[ ]*|
|00001030| 5c 5c 28 5b 2d 2b 61 2d | 7a 41 2d 5a 30 2d 39 5d |\\([-+a-|zA-Z0-9]|
|00001040| 2b 5c 5c 29 22 20 22 31 | 39 22 20 2d 32 20 69 6e |+\\)" "1|9" -2 in|
|00001050| 74 2d 74 6f 2d 73 74 72 | 69 6e 67 20 61 73 73 6f |t-to-str|ing asso|
|00001060| 63 20 74 69 6d 65 7a 6f | 6e 65 2d 6d 6f 6e 74 68 |c timezo|ne-month|
|00001070| 73 2d 61 73 73 6f 63 20 | 76 65 63 74 6f 72 20 22 |s-assoc |vector "|
|00001080| 30 22 5d 20 37 20 22 5c | 0a 50 61 72 73 65 20 44 |0"] 7 "\|.Parse D|
|00001090| 41 54 45 20 61 6e 64 20 | 72 65 74 75 72 6e 20 61 |ATE and |return a|
|000010a0| 20 76 65 63 74 6f 72 20 | 5b 79 65 61 72 20 6d 6f | vector |[year mo|
|000010b0| 6e 74 68 20 64 61 79 20 | 74 69 6d 65 20 74 69 6d |nth day |time tim|
|000010c0| 65 7a 6f 6e 65 5d 2e 0a | 31 39 20 69 73 20 70 72 |ezone]..|19 is pr|
|000010d0| 65 70 65 6e 64 65 64 20 | 74 6f 20 79 65 61 72 20 |epended |to year |
|000010e0| 69 66 20 6e 65 63 65 73 | 73 61 72 79 2e 20 54 69 |if neces|sary. Ti|
|000010f0| 6d 65 7a 6f 6e 65 20 6d | 61 79 20 62 65 20 4e 49 |mezone m|ay be NI|
|00001100| 4c 20 69 66 20 6e 6f 74 | 68 69 6e 67 2e 0a 55 6e |L if not|hing..Un|
|00001110| 64 65 72 73 74 61 6e 64 | 20 74 68 65 20 66 6f 6c |derstand| the fol|
|00001120| 6c 6f 77 69 6e 67 20 73 | 74 79 6c 65 73 3a 0a 20 |lowing s|tyles:. |
|00001130| 28 31 29 20 31 34 20 41 | 70 72 20 38 39 20 30 33 |(1) 14 A|pr 89 03|
|00001140| 3a 32 30 5b 3a 31 32 5d | 20 5b 47 4d 54 5d 0a 20 |:20[:12]| [GMT]. |
|00001150| 28 32 29 20 46 72 69 2c | 20 31 37 20 4d 61 72 20 |(2) Fri,| 17 Mar |
|00001160| 38 39 20 34 3a 30 31 5b | 3a 33 33 5d 20 5b 47 4d |89 4:01[|:33] [GM|
|00001170| 54 5d 0a 20 28 33 29 20 | 4d 6f 6e 20 4a 61 6e 20 |T]. (3) |Mon Jan |
|00001180| 31 36 20 31 36 3a 31 32 | 5b 3a 33 37 5d 20 5b 47 |16 16:12|[:37] [G|
|00001190| 4d 54 5d 20 31 39 38 39 | 0a 20 28 34 29 20 36 20 |MT] 1989|. (4) 6 |
|000011a0| 4d 61 79 20 31 39 39 32 | 20 31 36 34 31 2d 4a 53 |May 1992| 1641-JS|
|000011b0| 54 20 28 57 65 64 6e 65 | 73 64 61 79 29 22 5d 29 |T (Wedne|sday)"])|
|000011c0| 0a 28 66 73 65 74 20 27 | 74 69 6d 65 7a 6f 6e 65 |.(fset '|timezone|
|000011d0| 2d 70 61 72 73 65 2d 74 | 69 6d 65 20 23 5b 28 74 |-parse-t|ime #[(t|
|000011e0| 69 6d 65 29 20 22 08 ae | 81 c1 c2 89 89 1b 1c 1d |ime) "..|........|
|000011f0| 18 c6 c7 08 5c 22 ab 88 | c8 15 c9 14 ca 13 aa a8 |....\"..|........|
|00001200| c6 cb 08 5c 22 ab 88 c8 | 15 c9 14 c2 13 aa 9a c6 |...\"...|........|
|00001210| cc 08 5c 22 ab 88 c8 15 | c9 14 ca 13 aa 8c c6 cd |..\"....|........|
|00001220| 08 5c 22 ab 86 c8 15 c9 | 14 c2 13 ce 0d ab 88 08 |.\".....|........|
|00001230| 0d 94 0d 95 4f aa 81 cf | 0c ab 88 08 0c 94 0c 95 |....O...|........|
|00001240| 4f aa 81 cf 0b ab 88 08 | 0b 94 0b 95 4f aa 81 cf |O.......|....O...|
|00001250| 23 2c 87 22 20 5b 74 69 | 6d 65 20 22 22 20 6e 69 |#,." [ti|me "" ni|
|00001260| 6c 20 73 65 63 6f 6e 64 | 20 6d 69 6e 75 74 65 20 |l second| minute |
|00001270| 68 6f 75 72 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |hour str|ing-matc|
|00001280| 68 20 22 5c 5c 60 5c 5c | 28 5b 30 2d 39 5d 2b 5c |h "\\`\\|([0-9]+\|
|00001290| 5c 29 3a 5c 5c 28 5b 30 | 2d 39 5d 2b 5c 5c 29 3a |\):\\([0|-9]+\\):|
|000012a0| 5c 5c 28 5b 30 2d 39 5d | 2b 5c 5c 29 5c 5c 27 22 |\\([0-9]|+\\)\\'"|
|000012b0| 20 31 20 32 20 33 20 22 | 5c 5c 60 5c 5c 28 5b 30 | 1 2 3 "|\\`\\([0|
|000012c0| 2d 39 5d 2b 5c 5c 29 3a | 5c 5c 28 5b 30 2d 39 5d |-9]+\\):|\\([0-9]|
|000012d0| 2b 5c 5c 29 5c 5c 27 22 | 20 22 5c 5c 60 5c 5c 28 |+\\)\\'"| "\\`\\(|
|000012e0| 5b 30 2d 39 5d 5b 30 2d | 39 5d 5c 5c 29 5c 5c 28 |[0-9][0-|9]\\)\\(|
|000012f0| 5b 30 2d 39 5d 5b 30 2d | 39 5d 5c 5c 29 5c 5c 28 |[0-9][0-|9]\\)\\(|
|00001300| 5b 30 2d 39 5d 5b 30 2d | 39 5d 5c 5c 29 5c 5c 27 |[0-9][0-|9]\\)\\'|
|00001310| 22 20 22 5c 5c 60 5c 5c | 28 5b 30 2d 39 5d 5b 30 |" "\\`\\|([0-9][0|
|00001320| 2d 39 5d 5c 5c 29 5c 5c | 28 5b 30 2d 39 5d 5b 30 |-9]\\)\\|([0-9][0|
|00001330| 2d 39 5d 5c 5c 29 5c 5c | 27 22 20 76 65 63 74 6f |-9]\\)\\|'" vecto|
|00001340| 72 20 22 30 22 5d 20 36 | 20 22 5c 0a 50 61 72 73 |r "0"] 6| "\.Pars|
|00001350| 65 20 54 49 4d 45 20 28 | 48 48 3a 4d 4d 3a 53 53 |e TIME (|HH:MM:SS|
|00001360| 29 20 61 6e 64 20 72 65 | 74 75 72 6e 20 61 20 76 |) and re|turn a v|
|00001370| 65 63 74 6f 72 20 5b 68 | 6f 75 72 20 6d 69 6e 75 |ector [h|our minu|
|00001380| 74 65 20 73 65 63 6f 6e | 64 5d 2e 0a 52 65 63 6f |te secon|d]..Reco|
|00001390| 67 6e 69 7a 65 20 48 48 | 3a 4d 4d 3a 53 53 2c 20 |gnize HH|:MM:SS, |
|000013a0| 48 48 3a 4d 4d 2c 20 48 | 48 4d 4d 53 53 2c 20 48 |HH:MM, H|HMMSS, H|
|000013b0| 48 4d 4d 2e 22 5d 29 0a | 28 66 73 65 74 20 27 74 |HMM."]).|(fset 't|
|000013c0| 69 6d 65 7a 6f 6e 65 2d | 7a 6f 6e 65 2d 74 6f 2d |imezone-|zone-to-|
|000013d0| 6d 69 6e 75 74 65 20 23 | 5b 28 74 69 6d 65 7a 6f |minute #|[(timezo|
|000013e0| 6e 65 29 20 22 08 ab 9c | c1 08 96 5c 6e 5c 22 41 |ne) "...|...\n\"A|
|000013f0| ae 81 08 89 10 3b ab 84 | c3 08 21 10 08 c4 a5 c5 |.....;..|..!.....|
|00001400| 5f 08 c4 a6 5c 5c 87 c6 | 87 22 20 5b 74 69 6d 65 |_...\\..|." [time|
|00001410| 7a 6f 6e 65 20 61 73 73 | 6f 63 20 74 69 6d 65 7a |zone ass|oc timez|
|00001420| 6f 6e 65 2d 77 6f 72 6c | 64 2d 74 69 6d 65 7a 6f |one-worl|d-timezo|
|00001430| 6e 65 73 20 73 74 72 69 | 6e 67 2d 74 6f 2d 69 6e |nes stri|ng-to-in|
|00001440| 74 20 31 30 30 20 36 30 | 20 30 5d 20 34 20 22 5c |t 100 60| 0] 4 "\|
|00001450| 0a 54 72 61 6e 73 6c 61 | 74 65 20 54 49 4d 45 5a |.Transla|te TIMEZ|
|00001460| 4f 4e 45 20 28 69 6e 20 | 7a 6f 6e 65 20 6e 61 6d |ONE (in |zone nam|
|00001470| 65 20 6f 72 20 69 6e 74 | 65 67 65 72 29 20 74 6f |e or int|eger) to|
|00001480| 20 69 6e 74 65 67 65 72 | 20 6d 69 6e 75 74 65 2e | integer| minute.|
|00001490| 22 5d 29 0a 28 66 73 65 | 74 20 27 74 69 6d 65 7a |"]).(fse|t 'timez|
|000014a0| 6f 6e 65 2d 66 69 78 2d | 74 69 6d 65 20 23 5b 28 |one-fix-|time #[(|
|000014b0| 79 65 61 72 20 6d 6f 6e | 74 68 20 64 61 79 20 68 |year mon|th day h|
|000014c0| 6f 75 72 20 6d 69 6e 75 | 74 65 20 73 65 63 6f 6e |our minu|te secon|
|000014d0| 64 29 20 22 08 c1 57 ab | 87 08 c2 5a c3 a5 aa 83 |d) "..W.|...Z....|
|000014e0| 08 c3 a5 1c 0d 0c 5c 5c | 15 08 0c c3 5f 5a 10 29 |......\\|...._Z.)|
|000014f0| c6 0d 58 ab ac 0d c6 5a | 15 0e 07 54 16 07 c8 0e |..X....Z|...T....|
|00001500| 09 0e 5c 6e 5c 22 0e 07 | 57 ab c7 0e 09 54 16 09 |..\n\"..|W....T..|
|00001510| cb 16 07 cc 0e 09 57 ab | b9 cb 16 09 0e 5c 6e 54 |......W.|.....\nT|
|00001520| 16 5c 6e aa af c1 0d 56 | ab aa 0d c6 5c 5c 15 0e |.\n....V|....\\..|
|00001530| 07 53 16 07 cb 0e 07 56 | ab 9b 0e 09 53 16 09 cb |.S.....V|....S...|
|00001540| 0e 09 56 ab 88 cc 16 09 | 0e 5c 6e 53 16 5c 6e c8 |..V.....|.\nS.\n.|
|00001550| 0e 09 0e 5c 6e 5c 22 16 | 07 cd 0e 5c 6e 0e 09 0e |...\n\".|...\n...|
|00001560| 07 0d 08 0e 0e 26 06 87 | 22 20 5b 6d 69 6e 75 74 |.....&..|" [minut|
|00001570| 65 20 30 20 35 39 20 36 | 30 20 68 6f 75 72 2d 66 |e 0 59 6|0 hour-f|
|00001580| 69 78 20 68 6f 75 72 20 | 32 34 20 64 61 79 20 74 |ix hour |24 day t|
|00001590| 69 6d 65 7a 6f 6e 65 2d | 6c 61 73 74 2d 64 61 79 |imezone-|last-day|
|000015a0| 2d 6f 66 2d 6d 6f 6e 74 | 68 20 6d 6f 6e 74 68 20 |-of-mont|h month |
|000015b0| 79 65 61 72 20 31 20 31 | 32 20 76 65 63 74 6f 72 |year 1 1|2 vector|
|000015c0| 20 73 65 63 6f 6e 64 5d | 20 37 20 22 5c 0a 46 69 | second]| 7 "\.Fi|
|000015d0| 78 20 64 61 74 65 20 61 | 6e 64 20 74 69 6d 65 2e |x date a|nd time.|
|000015e0| 22 5d 29 0a 28 66 73 65 | 74 20 27 74 69 6d 65 7a |"]).(fse|t 'timez|
|000015f0| 6f 6e 65 2d 6c 61 73 74 | 2d 64 61 79 2d 6f 66 2d |one-last|-day-of-|
|00001600| 6d 6f 6e 74 68 20 23 5b | 28 6d 6f 6e 74 68 20 79 |month #[|(month y|
|00001610| 65 61 72 29 20 22 08 c1 | 55 ab 87 c2 0b 21 ab 82 |ear) "..|U....!..|
|00001620| c4 87 c5 08 53 48 87 22 | 20 5b 6d 6f 6e 74 68 20 |....SH."| [month |
|00001630| 32 20 74 69 6d 65 7a 6f | 6e 65 2d 6c 65 61 70 2d |2 timezo|ne-leap-|
|00001640| 79 65 61 72 2d 70 20 79 | 65 61 72 20 32 39 20 5b |year-p y|ear 29 [|
|00001650| 33 31 20 32 38 20 33 31 | 20 33 30 20 33 31 20 33 |31 28 31| 30 31 3|
|00001660| 30 20 33 31 20 33 31 20 | 33 30 20 33 31 20 33 30 |0 31 31 |30 31 30|
|00001670| 20 33 31 5d 5d 20 32 20 | 22 5c 0a 54 68 65 20 6c | 31]] 2 |"\.The l|
|00001680| 61 73 74 20 64 61 79 20 | 69 6e 20 4d 4f 4e 54 48 |ast day |in MONTH|
|00001690| 20 64 75 72 69 6e 67 20 | 59 45 41 52 2e 22 5d 29 | during |YEAR."])|
|000016a0| 0a 28 66 73 65 74 20 27 | 74 69 6d 65 7a 6f 6e 65 |.(fset '|timezone|
|000016b0| 2d 6c 65 61 70 2d 79 65 | 61 72 2d 70 20 23 5b 28 |-leap-ye|ar-p #[(|
|000016c0| 79 65 61 72 29 20 22 08 | c1 a6 c2 55 ab 88 08 c3 |year) ".|...U....|
|000016d0| a6 c2 55 3f ae 85 08 c4 | a6 c2 55 87 22 20 5b 79 |..U?....|..U." [y|
|000016e0| 65 61 72 20 34 20 30 20 | 31 30 30 20 34 30 30 5d |ear 4 0 |100 400]|
|000016f0| 20 32 20 22 5c 0a 52 65 | 74 75 72 6e 73 20 74 20 | 2 "\.Re|turns t |
|00001700| 69 66 20 59 45 41 52 20 | 69 73 20 61 20 47 72 65 |if YEAR |is a Gre|
|00001710| 67 6f 72 69 61 6e 20 6c | 65 61 70 20 79 65 61 72 |gorian l|eap year|
|00001720| 2e 22 5d 29 0a          |                         |."]).   |        |
+--------+-------------------------+-------------------------+--------+--------+