home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / gnu / src / amiga / emacs-19.28-src.lha / emacs-19.28 / site-lisp / timezone.elc < prev    next >
Emacs Compiled Lisp  |  1994-12-29  |  8.5 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was processed as: Emacs Compiled Lisp (other/emacsCompiledLisp).
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Emacs Compiled Lisp (other/emacsCompiledLisp) magic Unsupported
100% file Emacs/XEmacs v19 byte-compiled Lisp data default
99% file data default
100% TrID Emacs/XEmacs byte-compiled Lisp (generic) default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|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 64 67 69 6c 62 65 72 |piled by| dgilber|
|00000020| 74 40 67 61 6d 69 67 61 | 2e 67 75 65 6c 70 68 6e |t@gamiga|.guelphn|
|00000030| 65 74 2e 64 77 65 6f 6d | 65 72 2e 6f 72 67 20 6f |et.dweom|er.org o|
|00000040| 6e 20 54 68 75 20 44 65 | 63 20 32 39 20 31 30 3a |n Thu De|c 29 10:|
|00000050| 32 30 3a 31 30 20 31 39 | 39 34 0a 3b 3b 3b 20 66 |20:10 19|94.;;; f|
|00000060| 72 6f 6d 20 66 69 6c 65 | 20 66 69 76 65 3a 43 57 |rom file| five:CW|
|00000070| 6f 72 6b 2f 65 6d 61 63 | 73 2d 31 39 2e 32 35 2f |ork/emac|s-19.25/|
|00000080| 76 6d 2f 74 69 6d 65 7a | 6f 6e 65 2e 65 6c 0a 3b |vm/timez|one.el.;|
|00000090| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000a0| 20 31 39 2e 32 35 2e 31 | 2e 0a 3b 3b 3b 20 62 79 | 19.25.1|..;;; by|
|000000b0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 46 |tecomp v|ersion F|
|000000c0| 53 46 20 32 2e 31 30 0a | 3b 3b 3b 20 6f 70 74 69 |SF 2.10.|;;; opti|
|000000d0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|000000e0| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|000000f0| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000100| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000110| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000120| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000130| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000140| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000150| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000160| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000170| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |.. (|string-l|
|00000180| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000190| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)). (|
|000001a0| 65 72 72 6f 72 20 22 60 | 66 69 76 65 3a 43 57 6f |error "`|five:CWo|
|000001b0| 72 6b 2f 65 6d 61 63 73 | 2d 31 39 2e 32 35 2f 76 |rk/emacs|-19.25/v|
|000001c0| 6d 2f 74 69 6d 65 7a 6f | 6e 65 2e 65 6c 27 20 77 |m/timezo|ne.el' w|
|000001d0| 61 73 20 63 6f 6d 70 69 | 6c 65 64 20 66 6f 72 20 |as compi|led for |
|000001e0| 45 6d 61 63 73 20 31 39 | 22 29 29 0a 0a 28 70 72 |Emacs 19|"))..(pr|
|000001f0| 6f 76 69 64 65 20 28 71 | 75 6f 74 65 20 74 69 6d |ovide (q|uote tim|
|00000200| 65 7a 6f 6e 65 29 29 0a | 28 64 65 66 76 61 72 20 |ezone)).|(defvar |
|00000210| 74 69 6d 65 7a 6f 6e 65 | 2d 77 6f 72 6c 64 2d 74 |timezone|-world-t|
|00000220| 69 6d 65 7a 6f 6e 65 73 | 20 28 71 75 6f 74 65 20 |imezones| (quote |
|00000230| 28 28 22 50 53 54 22 20 | 2e 20 2d 38 30 30 29 20 |(("PST" |. -800) |
|00000240| 28 22 50 44 54 22 20 2e | 20 2d 37 30 30 29 20 28 |("PDT" .| -700) (|
|00000250| 22 4d 53 54 22 20 2e 20 | 2d 37 30 30 29 20 28 22 |"MST" . |-700) ("|
|00000260| 4d 44 54 22 20 2e 20 2d | 36 30 30 29 20 28 22 43 |MDT" . -|600) ("C|
|00000270| 53 54 22 20 2e 20 2d 36 | 30 30 29 20 28 22 43 44 |ST" . -6|00) ("CD|
|00000280| 54 22 20 2e 20 2d 35 30 | 30 29 20 28 22 45 53 54 |T" . -50|0) ("EST|
|00000290| 22 20 2e 20 2d 35 30 30 | 29 20 28 22 45 44 54 22 |" . -500|) ("EDT"|
|000002a0| 20 2e 20 2d 34 30 30 29 | 20 28 22 41 53 54 22 20 | . -400)| ("AST" |
|000002b0| 2e 20 2d 34 30 30 29 20 | 28 22 4e 53 54 22 20 2e |. -400) |("NST" .|
|000002c0| 20 2d 33 33 30 29 20 28 | 22 47 4d 54 22 20 2e 20 | -330) (|"GMT" . |
|000002d0| 30 29 20 28 22 42 53 54 | 22 20 2e 20 31 30 30 29 |0) ("BST|" . 100)|
|000002e0| 20 28 22 4d 45 54 22 20 | 2e 20 31 30 30 29 20 28 | ("MET" |. 100) (|
|000002f0| 22 45 45 54 22 20 2e 20 | 32 30 30 29 20 28 22 4a |"EET" . |200) ("J|
|00000300| 53 54 22 20 2e 20 39 30 | 30 29 20 28 22 47 4d 54 |ST" . 90|0) ("GMT|
|00000310| 2b 31 22 20 2e 20 31 30 | 30 29 20 28 22 47 4d 54 |+1" . 10|0) ("GMT|
|00000320| 2b 32 22 20 2e 20 32 30 | 30 29 20 28 22 47 4d 54 |+2" . 20|0) ("GMT|
|00000330| 2b 33 22 20 2e 20 33 30 | 30 29 20 28 22 47 4d 54 |+3" . 30|0) ("GMT|
|00000340| 2b 34 22 20 2e 20 34 30 | 30 29 20 28 22 47 4d 54 |+4" . 40|0) ("GMT|
|00000350| 2b 35 22 20 2e 20 35 30 | 30 29 20 28 22 47 4d 54 |+5" . 50|0) ("GMT|
|00000360| 2b 36 22 20 2e 20 36 30 | 30 29 20 28 22 47 4d 54 |+6" . 60|0) ("GMT|
|00000370| 2b 37 22 20 2e 20 37 30 | 30 29 20 28 22 47 4d 54 |+7" . 70|0) ("GMT|
|00000380| 2b 38 22 20 2e 20 38 30 | 30 29 20 28 22 47 4d 54 |+8" . 80|0) ("GMT|
|00000390| 2b 39 22 20 2e 20 39 30 | 30 29 20 28 22 47 4d 54 |+9" . 90|0) ("GMT|
|000003a0| 2b 31 30 22 20 2e 20 31 | 30 30 30 29 20 28 22 47 |+10" . 1|000) ("G|
|000003b0| 4d 54 2b 31 31 22 20 2e | 20 31 31 30 30 29 20 28 |MT+11" .| 1100) (|
|000003c0| 22 47 4d 54 2b 31 32 22 | 20 2e 20 31 32 30 30 29 |"GMT+12"| . 1200)|
|000003d0| 20 28 22 47 4d 54 2b 31 | 33 22 20 2e 20 31 33 30 | ("GMT+1|3" . 130|
|000003e0| 30 29 20 28 22 47 4d 54 | 2d 31 22 20 2e 20 2d 31 |0) ("GMT|-1" . -1|
|000003f0| 30 30 29 20 28 22 47 4d | 54 2d 32 22 20 2e 20 2d |00) ("GM|T-2" . -|
|00000400| 32 30 30 29 20 28 22 47 | 4d 54 2d 33 22 20 2e 20 |200) ("G|MT-3" . |
|00000410| 2d 33 30 30 29 20 28 22 | 47 4d 54 2d 34 22 20 2e |-300) ("|GMT-4" .|
|00000420| 20 2d 34 30 30 29 20 28 | 22 47 4d 54 2d 35 22 20 | -400) (|"GMT-5" |
|00000430| 2e 20 2d 35 30 30 29 20 | 28 22 47 4d 54 2d 36 22 |. -500) |("GMT-6"|
|00000440| 20 2e 20 2d 36 30 30 29 | 20 28 22 47 4d 54 2d 37 | . -600)| ("GMT-7|
|00000450| 22 20 2e 20 2d 37 30 30 | 29 20 28 22 47 4d 54 2d |" . -700|) ("GMT-|
|00000460| 38 22 20 2e 20 2d 38 30 | 30 29 20 28 22 47 4d 54 |8" . -80|0) ("GMT|
|00000470| 2d 39 22 20 2e 20 2d 39 | 30 30 29 20 28 22 47 4d |-9" . -9|00) ("GM|
|00000480| 54 2d 31 30 22 20 2e 20 | 2d 31 30 30 30 29 20 28 |T-10" . |-1000) (|
|00000490| 22 47 4d 54 2d 31 31 22 | 20 2e 20 2d 31 31 30 30 |"GMT-11"| . -1100|
|000004a0| 29 20 28 22 47 4d 54 2d | 31 32 22 20 2e 20 2d 31 |) ("GMT-|12" . -1|
|000004b0| 32 30 30 29 29 29 20 22 | 5c 0a 2a 54 69 6d 65 20 |200))) "|\.*Time |
|000004c0| 64 69 66 66 65 72 65 6e | 74 69 61 6c 73 20 6f 66 |differen|tials of|
|000004d0| 20 74 69 6d 65 7a 6f 6e | 65 20 66 72 6f 6d 20 47 | timezon|e from G|
|000004e0| 4d 54 20 69 6e 20 2b 2d | 48 48 4d 4d 20 66 6f 72 |MT in +-|HHMM for|
|000004f0| 6d 2e 0a 54 68 69 73 20 | 6c 69 73 74 20 69 73 20 |m..This |list is |
|00000500| 6f 62 73 6f 6c 65 73 63 | 65 6e 74 2c 20 61 6e 64 |obsolesc|ent, and|
|00000510| 20 69 73 20 70 72 65 73 | 65 6e 74 20 6f 6e 6c 79 | is pres|ent only|
|00000520| 20 66 6f 72 20 62 61 63 | 6b 77 61 72 64 73 20 63 | for bac|kwards c|
|00000530| 6f 6d 70 61 74 69 62 69 | 6c 69 74 79 2c 0a 62 65 |ompatibi|lity,.be|
|00000540| 63 61 75 73 65 20 74 69 | 6d 65 20 7a 6f 6e 65 20 |cause ti|me zone |
|00000550| 6e 61 6d 65 73 20 61 72 | 65 20 61 6d 62 69 67 75 |names ar|e ambigu|
|00000560| 6f 75 73 20 69 6e 20 70 | 72 61 63 74 69 63 65 2e |ous in p|ractice.|
|00000570| 0a 55 73 65 20 60 63 75 | 72 72 65 6e 74 2d 74 69 |.Use `cu|rrent-ti|
|00000580| 6d 65 2d 7a 6f 6e 65 27 | 20 69 6e 73 74 65 61 64 |me-zone'| instead|
|00000590| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 74 69 6d 65 |.").(def|var time|
|000005a0| 7a 6f 6e 65 2d 6d 6f 6e | 74 68 73 2d 61 73 73 6f |zone-mon|ths-asso|
|000005b0| 63 20 28 71 75 6f 74 65 | 20 28 28 22 4a 41 4e 22 |c (quote| (("JAN"|
|000005c0| 20 2e 20 31 29 20 28 22 | 46 45 42 22 20 2e 20 32 | . 1) ("|FEB" . 2|
|000005d0| 29 20 28 22 4d 41 52 22 | 20 2e 20 33 29 20 28 22 |) ("MAR"| . 3) ("|
|000005e0| 41 50 52 22 20 2e 20 34 | 29 20 28 22 4d 41 59 22 |APR" . 4|) ("MAY"|
|000005f0| 20 2e 20 35 29 20 28 22 | 4a 55 4e 22 20 2e 20 36 | . 5) ("|JUN" . 6|
|00000600| 29 20 28 22 4a 55 4c 22 | 20 2e 20 37 29 20 28 22 |) ("JUL"| . 7) ("|
|00000610| 41 55 47 22 20 2e 20 38 | 29 20 28 22 53 45 50 22 |AUG" . 8|) ("SEP"|
|00000620| 20 2e 20 39 29 20 28 22 | 4f 43 54 22 20 2e 20 31 | . 9) ("|OCT" . 1|
|00000630| 30 29 20 28 22 4e 4f 56 | 22 20 2e 20 31 31 29 20 |0) ("NOV|" . 11) |
|00000640| 28 22 44 45 43 22 20 2e | 20 31 32 29 29 29 20 22 |("DEC" .| 12))) "|
|00000650| 5c 0a 41 6c 69 73 74 20 | 6f 66 20 66 69 72 73 74 |\.Alist |of first|
|00000660| 20 74 68 72 65 65 20 6c | 65 74 74 65 72 73 20 6f | three l|etters o|
|00000670| 66 20 61 20 6d 6f 6e 74 | 68 20 61 6e 64 20 69 74 |f a mont|h and it|
|00000680| 73 20 6e 75 6d 65 72 69 | 63 61 6c 20 72 65 70 72 |s numeri|cal repr|
|00000690| 65 73 65 6e 74 61 74 69 | 6f 6e 2e 22 29 0a 28 64 |esentati|on.").(d|
|000006a0| 65 66 61 6c 69 61 73 20 | 27 74 69 6d 65 7a 6f 6e |efalias |'timezon|
|000006b0| 65 2d 6d 61 6b 65 2d 64 | 61 74 65 2d 61 72 70 61 |e-make-d|ate-arpa|
|000006c0| 2d 73 74 61 6e 64 61 72 | 64 20 23 5b 28 64 61 74 |-standar|d #[(dat|
|000006d0| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 6c 6f 63 61 |e &optio|nal loca|
|000006e0| 6c 20 74 69 6d 65 7a 6f | 6e 65 29 20 22 c0 09 5c |l timezo|ne) "..\|
|000006f0| 6e 0b 23 1c c5 5c 66 c6 | 48 5c 66 c7 48 5c 66 c8 |n.#..\f.|H\f.H\f.|
|00000700| 48 c9 5c 66 ca 48 5c 66 | cb 48 5c 66 cc 48 23 5c |H.\f.H\f|.H\f.H#\|
|00000710| 66 cd 48 25 29 87 22 20 | 5b 74 69 6d 65 7a 6f 6e |f.H%)." |[timezon|
|00000720| 65 2d 66 69 78 2d 74 69 | 6d 65 20 64 61 74 65 20 |e-fix-ti|me date |
|00000730| 6c 6f 63 61 6c 20 74 69 | 6d 65 7a 6f 6e 65 20 6e |local ti|mezone n|
|00000740| 65 77 20 74 69 6d 65 7a | 6f 6e 65 2d 6d 61 6b 65 |ew timez|one-make|
|00000750| 2d 61 72 70 61 2d 64 61 | 74 65 20 30 20 31 20 32 |-arpa-da|te 0 1 2|
|00000760| 20 74 69 6d 65 7a 6f 6e | 65 2d 6d 61 6b 65 2d 74 | timezon|e-make-t|
|00000770| 69 6d 65 2d 73 74 72 69 | 6e 67 20 33 20 34 20 35 |ime-stri|ng 3 4 5|
|00000780| 20 36 5d 20 39 20 22 5c | 0a 43 6f 6e 76 65 72 74 | 6] 9 "\|.Convert|
|00000790| 20 44 41 54 45 20 74 6f | 20 61 6e 20 61 72 70 61 | DATE to| an arpa|
|000007a0| 6e 65 74 20 73 74 61 6e | 64 61 72 64 20 64 61 74 |net stan|dard dat|
|000007b0| 65 2e 0a 4f 70 74 69 6f | 6e 61 6c 20 31 73 74 20 |e..Optio|nal 1st |
|000007c0| 61 72 67 75 6d 65 6e 74 | 20 4c 4f 43 41 4c 20 73 |argument| LOCAL s|
|000007d0| 70 65 63 69 66 69 65 73 | 20 74 68 65 20 64 65 66 |pecifies| the def|
|000007e0| 61 75 6c 74 20 6c 6f 63 | 61 6c 20 74 69 6d 65 7a |ault loc|al timez|
|000007f0| 6f 6e 65 20 6f 66 20 74 | 68 65 20 44 41 54 45 3b |one of t|he DATE;|
|00000800| 0a 69 66 20 6e 69 6c 2c | 20 47 4d 54 20 69 73 20 |.if nil,| GMT is |
|00000810| 61 73 73 75 6d 65 64 2e | 0a 4f 70 74 69 6f 6e 61 |assumed.|.Optiona|
|00000820| 6c 20 32 6e 64 20 61 72 | 67 75 6d 65 6e 74 20 54 |l 2nd ar|gument T|
|00000830| 49 4d 45 5a 4f 4e 45 20 | 73 70 65 63 69 66 69 65 |IMEZONE |specifie|
|00000840| 73 20 61 20 74 69 6d 65 | 20 7a 6f 6e 65 20 74 6f |s a time| zone to|
|00000850| 20 62 65 20 72 65 70 72 | 65 73 65 6e 74 65 64 20 | be repr|esented |
|00000860| 69 6e 3b 0a 69 66 20 6e | 69 6c 2c 20 74 68 65 20 |in;.if n|il, the |
|00000870| 6c 6f 63 61 6c 20 74 69 | 6d 65 20 7a 6f 6e 65 20 |local ti|me zone |
|00000880| 69 73 20 61 73 73 75 6d | 65 64 2e 22 5d 29 0a 28 |is assum|ed."]).(|
|00000890| 64 65 66 61 6c 69 61 73 | 20 27 74 69 6d 65 7a 6f |defalias| 'timezo|
|000008a0| 6e 65 2d 6d 61 6b 65 2d | 64 61 74 65 2d 73 6f 72 |ne-make-|date-sor|
|000008b0| 74 61 62 6c 65 20 23 5b | 28 64 61 74 65 20 26 6f |table #[|(date &o|
|000008c0| 70 74 69 6f 6e 61 6c 20 | 6c 6f 63 61 6c 20 74 69 |ptional |local ti|
|000008d0| 6d 65 7a 6f 6e 65 29 20 | 22 c0 09 5c 6e 0b 23 1c |mezone) |"..\n.#.|
|000008e0| c5 5c 66 c6 48 5c 66 c7 | 48 5c 66 c8 48 c9 5c 66 |.\f.H\f.|H\f.H.\f|
|000008f0| ca 48 5c 66 cb 48 5c 66 | cc 48 23 24 29 87 22 20 |.H\f.H\f|.H#$)." |
|00000900| 5b 74 69 6d 65 7a 6f 6e | 65 2d 66 69 78 2d 74 69 |[timezon|e-fix-ti|
|00000910| 6d 65 20 64 61 74 65 20 | 6c 6f 63 61 6c 20 74 69 |me date |local ti|
|00000920| 6d 65 7a 6f 6e 65 20 6e | 65 77 20 74 69 6d 65 7a |mezone n|ew timez|
|00000930| 6f 6e 65 2d 6d 61 6b 65 | 2d 73 6f 72 74 61 62 6c |one-make|-sortabl|
|00000940| 65 2d 64 61 74 65 20 30 | 20 31 20 32 20 74 69 6d |e-date 0| 1 2 tim|
|00000950| 65 7a 6f 6e 65 2d 6d 61 | 6b 65 2d 74 69 6d 65 2d |ezone-ma|ke-time-|
|00000960| 73 74 72 69 6e 67 20 33 | 20 34 20 35 5d 20 39 20 |string 3| 4 5] 9 |
|00000970| 22 5c 0a 43 6f 6e 76 65 | 72 74 20 44 41 54 45 20 |"\.Conve|rt DATE |
|00000980| 74 6f 20 61 20 73 6f 72 | 74 61 62 6c 65 20 64 61 |to a sor|table da|
|00000990| 74 65 20 73 74 72 69 6e | 67 2e 0a 4f 70 74 69 6f |te strin|g..Optio|
|000009a0| 6e 61 6c 20 31 73 74 20 | 61 72 67 75 6d 65 6e 74 |nal 1st |argument|
|000009b0| 20 4c 4f 43 41 4c 20 73 | 70 65 63 69 66 69 65 73 | LOCAL s|pecifies|
|000009c0| 20 74 68 65 20 64 65 66 | 61 75 6c 74 20 6c 6f 63 | the def|ault loc|
|000009d0| 61 6c 20 74 69 6d 65 7a | 6f 6e 65 20 6f 66 20 74 |al timez|one of t|
|000009e0| 68 65 20 44 41 54 45 3b | 0a 69 66 20 6e 69 6c 2c |he DATE;|.if nil,|
|000009f0| 20 47 4d 54 20 69 73 20 | 61 73 73 75 6d 65 64 2e | GMT is |assumed.|
|00000a00| 0a 4f 70 74 69 6f 6e 61 | 6c 20 32 6e 64 20 61 72 |.Optiona|l 2nd ar|
|00000a10| 67 75 6d 65 6e 74 20 54 | 49 4d 45 5a 4f 4e 45 20 |gument T|IMEZONE |
|00000a20| 73 70 65 63 69 66 69 65 | 73 20 61 20 74 69 6d 65 |specifie|s a time|
|00000a30| 7a 6f 6e 65 20 74 6f 20 | 62 65 20 72 65 70 72 65 |zone to |be repre|
|00000a40| 73 65 6e 74 65 64 20 69 | 6e 3b 0a 69 66 20 6e 69 |sented i|n;.if ni|
|00000a50| 6c 2c 20 74 68 65 20 6c | 6f 63 61 6c 20 74 69 6d |l, the l|ocal tim|
|00000a60| 65 20 7a 6f 6e 65 20 69 | 73 20 61 73 73 75 6d 65 |e zone i|s assume|
|00000a70| 64 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |d."]).(d|efalias |
|00000a80| 27 74 69 6d 65 7a 6f 6e | 65 2d 6d 61 6b 65 2d 61 |'timezon|e-make-a|
|00000a90| 72 70 61 2d 64 61 74 65 | 20 23 5b 28 79 65 61 72 |rpa-date| #[(year|
|00000aa0| 20 6d 6f 6e 74 68 20 64 | 61 79 20 74 69 6d 65 20 | month d|ay time |
|00000ab0| 26 6f 70 74 69 6f 6e 61 | 6c 20 74 69 6d 65 7a 6f |&optiona|l timezo|
|00000ac0| 6e 65 29 20 22 08 3c 83 | 2e 00 c1 08 21 89 1a c3 |ne) ".<.|....!...|
|00000ad0| 57 83 14 00 5c 6e 5b 82 | 15 00 5c 6e 1c c5 c6 5c |W...\n[.|..\n...\|
|00000ae0| 6e c3 57 83 5c 22 00 c7 | 82 23 00 c8 5c 66 c9 a5 |n.W.\"..|.#..\f..|
|00000af0| 5c 66 c9 a6 24 2a 82 2f | 00 08 1e 5c 6e c5 cb 0e |\f..$*./|...\n...|
|00000b00| 5c 66 cd ce 0e 0f 0e 10 | 5c 22 40 21 0e 11 0e 12 |\f......|\"@!....|
|00000b10| 0e 5c 6e 26 06 29 87 22 | 20 5b 74 69 6d 65 7a 6f |.\n&.)."| [timezo|
|00000b20| 6e 65 20 74 69 6d 65 7a | 6f 6e 65 2d 7a 6f 6e 65 |ne timez|one-zone|
|00000b30| 2d 74 6f 2d 6d 69 6e 75 | 74 65 20 6d 20 30 20 61 |-to-minu|te m 0 a|
|00000b40| 62 73 6d 20 66 6f 72 6d | 61 74 20 22 25 63 25 30 |bsm form|at "%c%0|
|00000b50| 32 64 25 30 32 64 22 20 | 34 35 20 34 33 20 36 30 |2d%02d" |45 43 60|
|00000b60| 20 7a 6f 6e 65 20 22 25 | 30 32 64 20 25 73 20 25 | zone "%|02d %s %|
|00000b70| 30 34 64 20 25 73 20 25 | 73 22 20 64 61 79 20 63 |04d %s %|s" day c|
|00000b80| 61 70 69 74 61 6c 69 7a | 65 20 72 61 73 73 71 20 |apitaliz|e rassq |
|00000b90| 6d 6f 6e 74 68 20 74 69 | 6d 65 7a 6f 6e 65 2d 6d |month ti|mezone-m|
|00000ba0| 6f 6e 74 68 73 2d 61 73 | 73 6f 63 20 79 65 61 72 |onths-as|soc year|
|00000bb0| 20 74 69 6d 65 5d 20 38 | 20 22 5c 0a 4d 61 6b 65 | time] 8| "\.Make|
|00000bc0| 20 61 72 70 61 6e 65 74 | 20 73 74 61 6e 64 61 72 | arpanet| standar|
|00000bd0| 64 20 64 61 74 65 20 73 | 74 72 69 6e 67 20 66 72 |d date s|tring fr|
|00000be0| 6f 6d 20 59 45 41 52 2c | 20 4d 4f 4e 54 48 2c 20 |om YEAR,| MONTH, |
|00000bf0| 44 41 59 2c 20 61 6e 64 | 20 54 49 4d 45 2e 0a 4f |DAY, and| TIME..O|
|00000c00| 70 74 69 6f 6e 61 6c 20 | 61 72 67 75 6d 65 6e 74 |ptional |argument|
|00000c10| 20 54 49 4d 45 5a 4f 4e | 45 20 73 70 65 63 69 66 | TIMEZON|E specif|
|00000c20| 69 65 73 20 61 20 74 69 | 6d 65 20 7a 6f 6e 65 2e |ies a ti|me zone.|
|00000c30| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |"]).(def|alias 't|
|00000c40| 69 6d 65 7a 6f 6e 65 2d | 6d 61 6b 65 2d 73 6f 72 |imezone-|make-sor|
|00000c50| 74 61 62 6c 65 2d 64 61 | 74 65 20 23 5b 28 79 65 |table-da|te #[(ye|
|00000c60| 61 72 20 6d 6f 6e 74 68 | 20 64 61 79 20 74 69 6d |ar month| day tim|
|00000c70| 65 29 20 22 c0 c1 5c 6e | 0b 5c 66 0d 25 87 22 20 |e) "..\n|.\f.%." |
|00000c80| 5b 66 6f 72 6d 61 74 20 | 22 25 34 64 25 30 32 64 |[format |"%4d%02d|
|00000c90| 25 30 32 64 25 73 22 20 | 79 65 61 72 20 6d 6f 6e |%02d%s" |year mon|
|00000ca0| 74 68 20 64 61 79 20 74 | 69 6d 65 5d 20 36 20 22 |th day t|ime] 6 "|
|00000cb0| 5c 0a 4d 61 6b 65 20 73 | 6f 72 74 61 62 6c 65 20 |\.Make s|ortable |
|00000cc0| 64 61 74 65 20 73 74 72 | 69 6e 67 20 66 72 6f 6d |date str|ing from|
|00000cd0| 20 59 45 41 52 2c 20 4d | 4f 4e 54 48 2c 20 44 41 | YEAR, M|ONTH, DA|
|00000ce0| 59 2c 20 61 6e 64 20 54 | 49 4d 45 2e 22 5d 29 0a |Y, and T|IME."]).|
|00000cf0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 69 6d 65 7a |(defalia|s 'timez|
|00000d00| 6f 6e 65 2d 6d 61 6b 65 | 2d 74 69 6d 65 2d 73 74 |one-make|-time-st|
|00000d10| 72 69 6e 67 20 23 5b 28 | 68 6f 75 72 20 6d 69 6e |ring #[(|hour min|
|00000d20| 75 74 65 20 73 65 63 6f | 6e 64 29 20 22 c0 c1 5c |ute seco|nd) "..\|
|00000d30| 6e 0b 5c 66 24 87 22 20 | 5b 66 6f 72 6d 61 74 20 |n.\f$." |[format |
|00000d40| 22 25 30 32 64 3a 25 30 | 32 64 3a 25 30 32 64 22 |"%02d:%0|2d:%02d"|
|00000d50| 20 68 6f 75 72 20 6d 69 | 6e 75 74 65 20 73 65 63 | hour mi|nute sec|
|00000d60| 6f 6e 64 5d 20 35 20 22 | 5c 0a 4d 61 6b 65 20 74 |ond] 5 "|\.Make t|
|00000d70| 69 6d 65 20 73 74 72 69 | 6e 67 20 66 72 6f 6d 20 |ime stri|ng from |
|00000d80| 48 4f 55 52 2c 20 4d 49 | 4e 55 54 45 2c 20 61 6e |HOUR, MI|NUTE, an|
|00000d90| 64 20 53 45 43 4f 4e 44 | 2e 22 5d 29 0a 28 64 65 |d SECOND|."]).(de|
|00000da0| 66 61 6c 69 61 73 20 27 | 74 69 6d 65 7a 6f 6e 65 |falias '|timezone|
|00000db0| 2d 70 61 72 73 65 2d 64 | 61 74 65 20 23 5b 28 64 |-parse-d|ate #[(d|
|00000dc0| 61 74 65 29 20 22 08 86 | 05 00 c1 c2 89 89 89 89 |ate) "..|........|
|00000dd0| 1b 1c 1d 1e 06 1e 07 18 | c8 c9 08 5c 22 83 28 00 |........|...\".(.|
|00000de0| ca 16 07 cb 16 06 cc 15 | cd 14 c2 13 82 93 00 c8 |........|........|
|00000df0| ce 08 5c 22 83 3e 00 ca | 16 07 cb 16 06 cc 15 cd |..\".>..|........|
|00000e00| 14 cf 13 82 93 00 c8 d0 | 08 5c 22 83 54 00 cd 16 |........|.\".T...|
|00000e10| 07 cc 16 06 cb 15 ca 14 | c2 13 82 93 00 c8 d1 08 |........|........|
|00000e20| 5c 22 83 6a 00 cf 16 07 | cc 16 06 cb 15 ca 14 cd |\".j....|........|
|00000e30| 13 82 93 00 c8 d2 08 5c | 22 83 80 00 ca 16 07 cb |.......\|".......|
|00000e40| 16 06 cc 15 cd 14 cf 13 | 82 93 00 c8 d3 08 5c 22 |........|......\"|
|00000e50| 83 93 00 ca 16 07 cb 16 | 06 cc 15 cd 14 c2 13 0e |........|........|
|00000e60| 07 83 d4 00 08 0e 07 94 | 0e 07 95 4f 89 16 07 47 |........|...O...G|
|00000e70| cd 57 83 b2 00 d4 0e 07 | d5 c2 4f 50 16 07 d6 d7 |.W......|..OP....|
|00000e80| 08 0e 06 94 0e 06 94 ca | 5c 5c 4f 96 0e 18 5c 22 |........|\\O...\"|
|00000e90| 41 21 16 06 08 0d 94 0d | 95 4f 15 08 5c 66 94 5c |A!......|.O..\f.\|
|00000ea0| 66 95 4f 14 0b 83 df 00 | 08 0b 94 0b 95 4f 13 0e |f.O.....|.....O..|
|00000eb0| 07 83 f0 00 d9 0e 07 0e | 06 0d 5c 66 0b 25 82 f7 |........|..\f.%..|
|00000ec0| 00 d9 da 89 89 89 c2 25 | 2e 06 87 22 20 5b 64 61 |.......%|..." [da|
|00000ed0| 74 65 20 22 22 20 6e 69 | 6c 20 7a 6f 6e 65 20 74 |te "" ni|l zone t|
|00000ee0| 69 6d 65 20 64 61 79 20 | 6d 6f 6e 74 68 20 79 65 |ime day |month ye|
|00000ef0| 61 72 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |ar strin|g-match |
|00000f00| 22 5c 5c 28 5b 30 2d 39 | 5d 2b 5c 5c 29 5b 20 09 |"\\([0-9|]+\\)[ .|
|00000f10| 5d 2b 5c 5c 28 5b 5e 20 | 09 2c 5d 2b 5c 5c 29 5b |]+\\([^ |.,]+\\)[|
|00000f20| 20 09 5d 2b 5c 5c 28 5b | 30 2d 39 5d 2b 5c 5c 29 | .]+\\([|0-9]+\\)|
|00000f30| 5b 20 09 5d 2b 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 09 5d 2a 5c 5c |0-9:]+\\|)[ .]*\\|
|00000f50| 27 22 20 33 20 32 20 31 | 20 34 20 22 5c 5c 28 5b |'" 3 2 1| 4 "\\([|
|00000f60| 30 2d 39 5d 2b 5c 5c 29 | 5b 20 09 5d 2b 5c 5c 28 |0-9]+\\)|[ .]+\\(|
|00000f70| 5b 5e 20 09 2c 5d 2b 5c | 5c 29 5b 20 09 5d 2b 5c |[^ .,]+\|\)[ .]+\|
|00000f80| 5c 28 5b 30 2d 39 5d 2b | 5c 5c 29 5b 20 09 5d 2b |\([0-9]+|\\)[ .]+|
|00000f90| 5c 5c 28 5b 30 2d 39 5d | 2b 3a 5b 30 2d 39 3a 5d |\\([0-9]|+:[0-9:]|
|00000fa0| 2b 5c 5c 29 5b 20 09 5d | 2a 5c 5c 28 5b 2d 2b 61 |+\\)[ .]|*\\([-+a|
|00000fb0| 2d 7a 41 2d 5a 30 2d 39 | 5d 2b 5c 5c 29 22 20 35 |-zA-Z0-9|]+\\)" 5|
|00000fc0| 20 22 5c 5c 28 5b 5e 20 | 09 2c 5d 2b 5c 5c 29 5b | "\\([^ |.,]+\\)[|
|00000fd0| 20 09 5d 2b 5c 5c 28 5b | 30 2d 39 5d 2b 5c 5c 29 | .]+\\([|0-9]+\\)|
|00000fe0| 5b 20 09 5d 2b 5c 5c 28 | 5b 30 2d 39 5d 2b 3a 5b |[ .]+\\(|[0-9]+:[|
|00000ff0| 30 2d 39 3a 5d 2b 5c 5c | 29 5b 20 09 5d 2b 5c 5c |0-9:]+\\|)[ .]+\\|
|00001000| 28 5b 30 2d 39 5d 2b 5c | 5c 29 22 20 22 5c 5c 28 |([0-9]+\|\)" "\\(|
|00001010| 5b 5e 20 09 2c 5d 2b 5c | 5c 29 5b 20 09 5d 2b 5c |[^ .,]+\|\)[ .]+\|
|00001020| 5c 28 5b 30 2d 39 5d 2b | 5c 5c 29 5b 20 09 5d 2b |\([0-9]+|\\)[ .]+|
|00001030| 5c 5c 28 5b 30 2d 39 5d | 2b 3a 5b 30 2d 39 3a 5d |\\([0-9]|+:[0-9:]|
|00001040| 2b 5c 5c 29 5b 20 09 5d | 2b 5c 5c 28 5b 2d 2b 61 |+\\)[ .]|+\\([-+a|
|00001050| 2d 7a 41 2d 5a 30 2d 39 | 5d 2b 5c 5c 29 5b 20 09 |-zA-Z0-9|]+\\)[ .|
|00001060| 5d 2b 5c 5c 28 5b 30 2d | 39 5d 2b 5c 5c 29 22 20 |]+\\([0-|9]+\\)" |
|00001070| 22 5c 5c 28 5b 30 2d 39 | 5d 2b 5c 5c 29 5b 20 09 |"\\([0-9|]+\\)[ .|
|00001080| 5d 2b 5c 5c 28 5b 5e 20 | 09 2c 5d 2b 5c 5c 29 5b |]+\\([^ |.,]+\\)[|
|00001090| 20 09 5d 2b 5c 5c 28 5b | 30 2d 39 5d 2b 5c 5c 29 | .]+\\([|0-9]+\\)|
|000010a0| 5b 20 09 5d 2b 5c 5c 28 | 5b 30 2d 39 5d 2b 5c 5c |[ .]+\\(|[0-9]+\\|
|000010b0| 29 5b 20 09 5d 2a 5c 5c | 28 5b 2d 2b 61 2d 7a 41 |)[ .]*\\|([-+a-zA|
|000010c0| 2d 5a 30 2d 39 5d 2b 5c | 5c 29 22 20 22 5c 5c 28 |-Z0-9]+\|\)" "\\(|
|000010d0| 5b 30 2d 39 5d 2b 5c 5c | 29 2d 5c 5c 28 5b 41 2d |[0-9]+\\|)-\\([A-|
|000010e0| 5a 61 2d 7a 5d 2b 5c 5c | 29 2d 5c 5c 28 5b 30 2d |Za-z]+\\|)-\\([0-|
|000010f0| 39 5d 2b 5c 5c 29 5b 20 | 09 5d 2b 5c 5c 28 5b 30 |9]+\\)[ |.]+\\([0|
|00001100| 2d 39 5d 2b 3a 5b 30 2d | 39 5d 2b 3a 5b 30 2d 39 |-9]+:[0-|9]+:[0-9|
|00001110| 5d 2b 5c 5c 29 5c 5c 2e | 5b 30 2d 39 5d 2b 22 20 |]+\\)\\.|[0-9]+" |
|00001120| 22 31 39 22 20 2d 32 20 | 69 6e 74 2d 74 6f 2d 73 |"19" -2 |int-to-s|
|00001130| 74 72 69 6e 67 20 61 73 | 73 6f 63 20 74 69 6d 65 |tring as|soc time|
|00001140| 7a 6f 6e 65 2d 6d 6f 6e | 74 68 73 2d 61 73 73 6f |zone-mon|ths-asso|
|00001150| 63 20 76 65 63 74 6f 72 | 20 22 30 22 5d 20 37 20 |c vector| "0"] 7 |
|00001160| 22 5c 0a 50 61 72 73 65 | 20 44 41 54 45 20 61 6e |"\.Parse| DATE an|
|00001170| 64 20 72 65 74 75 72 6e | 20 61 20 76 65 63 74 6f |d return| a vecto|
|00001180| 72 20 5b 59 45 41 52 20 | 4d 4f 4e 54 48 20 44 41 |r [YEAR |MONTH DA|
|00001190| 59 20 54 49 4d 45 20 54 | 49 4d 45 5a 4f 4e 45 5d |Y TIME T|IMEZONE]|
|000011a0| 2e 0a 31 39 20 69 73 20 | 70 72 65 70 65 6e 64 65 |..19 is |prepende|
|000011b0| 64 20 74 6f 20 79 65 61 | 72 20 69 66 20 6e 65 63 |d to yea|r if nec|
|000011c0| 65 73 73 61 72 79 2e 20 | 20 54 69 6d 65 7a 6f 6e |essary. | Timezon|
|000011d0| 65 20 6d 61 79 20 62 65 | 20 6e 69 6c 20 69 66 20 |e may be| nil if |
|000011e0| 6e 6f 74 68 69 6e 67 2e | 0a 55 6e 64 65 72 73 74 |nothing.|.Underst|
|000011f0| 61 6e 64 73 20 74 68 65 | 20 66 6f 6c 6c 6f 77 69 |ands the| followi|
|00001200| 6e 67 20 73 74 79 6c 65 | 73 3a 0a 20 28 31 29 20 |ng style|s:. (1) |
|00001210| 31 34 20 41 70 72 20 38 | 39 20 30 33 3a 32 30 5b |14 Apr 8|9 03:20[|
|00001220| 3a 31 32 5d 20 5b 47 4d | 54 5d 0a 20 28 32 29 20 |:12] [GM|T]. (2) |
|00001230| 46 72 69 2c 20 31 37 20 | 4d 61 72 20 38 39 20 34 |Fri, 17 |Mar 89 4|
|00001240| 3a 30 31 5b 3a 33 33 5d | 20 5b 47 4d 54 5d 0a 20 |:01[:33]| [GMT]. |
|00001250| 28 33 29 20 4d 6f 6e 20 | 4a 61 6e 20 31 36 20 31 |(3) Mon |Jan 16 1|
|00001260| 36 3a 31 32 5b 3a 33 37 | 5d 20 5b 47 4d 54 5d 20 |6:12[:37|] [GMT] |
|00001270| 31 39 38 39 0a 20 28 34 | 29 20 36 20 4d 61 79 20 |1989. (4|) 6 May |
|00001280| 31 39 39 32 20 31 36 34 | 31 2d 4a 53 54 20 28 57 |1992 164|1-JST (W|
|00001290| 65 64 6e 65 73 64 61 79 | 29 0a 20 28 35 29 20 32 |ednesday|). (5) 2|
|000012a0| 32 2d 41 55 47 2d 31 39 | 39 33 20 31 30 3a 35 39 |2-AUG-19|93 10:59|
|000012b0| 3a 31 32 2e 38 32 22 5d | 29 0a 28 64 65 66 61 6c |:12.82"]|).(defal|
|000012c0| 69 61 73 20 27 74 69 6d | 65 7a 6f 6e 65 2d 70 61 |ias 'tim|ezone-pa|
|000012d0| 72 73 65 2d 74 69 6d 65 | 20 23 5b 28 74 69 6d 65 |rse-time| #[(time|
|000012e0| 29 20 22 08 86 05 00 c1 | c2 89 89 1b 1c 1d 18 c6 |) ".....|........|
|000012f0| c7 08 5c 22 83 1c 00 c8 | 15 c9 14 ca 13 82 49 00 |..\"....|......I.|
|00001300| c6 cb 08 5c 22 83 2c 00 | c8 15 c9 14 c2 13 82 49 |...\".,.|.......I|
|00001310| 00 c6 cc 08 5c 22 83 3c | 00 c8 15 c9 14 ca 13 82 |....\".<|........|
|00001320| 49 00 c6 cd 08 5c 22 83 | 49 00 c8 15 c9 14 c2 13 |I....\".|I.......|
|00001330| ce 0d 83 57 00 08 0d 94 | 0d 95 4f 82 58 00 cf 5c |...W....|..O.X..\|
|00001340| 66 83 65 00 08 5c 66 94 | 5c 66 95 4f 82 66 00 cf |f.e..\f.|\f.O.f..|
|00001350| 0b 83 73 00 08 0b 94 0b | 95 4f 82 74 00 cf 23 2c |..s.....|.O.t..#,|
|00001360| 87 22 20 5b 74 69 6d 65 | 20 22 22 20 6e 69 6c 20 |." [time| "" nil |
|00001370| 73 65 63 6f 6e 64 20 6d | 69 6e 75 74 65 20 68 6f |second m|inute ho|
|00001380| 75 72 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |ur strin|g-match |
|00001390| 22 5c 5c 60 5c 5c 28 5b | 30 2d 39 5d 2b 5c 5c 29 |"\\`\\([|0-9]+\\)|
|000013a0| 3a 5c 5c 28 5b 30 2d 39 | 5d 2b 5c 5c 29 3a 5c 5c |:\\([0-9|]+\\):\\|
|000013b0| 28 5b 30 2d 39 5d 2b 5c | 5c 29 5c 5c 27 22 20 31 |([0-9]+\|\)\\'" 1|
|000013c0| 20 32 20 33 20 22 5c 5c | 60 5c 5c 28 5b 30 2d 39 | 2 3 "\\|`\\([0-9|
|000013d0| 5d 2b 5c 5c 29 3a 5c 5c | 28 5b 30 2d 39 5d 2b 5c |]+\\):\\|([0-9]+\|
|000013e0| 5c 29 5c 5c 27 22 20 22 | 5c 5c 60 5c 5c 28 5b 30 |\)\\'" "|\\`\\([0|
|000013f0| 2d 39 5d 5b 30 2d 39 5d | 5c 5c 29 5c 5c 28 5b 30 |-9][0-9]|\\)\\([0|
|00001400| 2d 39 5d 5b 30 2d 39 5d | 5c 5c 29 5c 5c 28 5b 30 |-9][0-9]|\\)\\([0|
|00001410| 2d 39 5d 5b 30 2d 39 5d | 5c 5c 29 5c 5c 27 22 20 |-9][0-9]|\\)\\'" |
|00001420| 22 5c 5c 60 5c 5c 28 5b | 30 2d 39 5d 5b 30 2d 39 |"\\`\\([|0-9][0-9|
|00001430| 5d 5c 5c 29 5c 5c 28 5b | 30 2d 39 5d 5b 30 2d 39 |]\\)\\([|0-9][0-9|
|00001440| 5d 5c 5c 29 5c 5c 27 22 | 20 76 65 63 74 6f 72 20 |]\\)\\'"| vector |
|00001450| 22 30 22 5d 20 36 20 22 | 5c 0a 50 61 72 73 65 20 |"0"] 6 "|\.Parse |
|00001460| 54 49 4d 45 20 28 48 48 | 3a 4d 4d 3a 53 53 29 20 |TIME (HH|:MM:SS) |
|00001470| 61 6e 64 20 72 65 74 75 | 72 6e 20 61 20 76 65 63 |and retu|rn a vec|
|00001480| 74 6f 72 20 5b 68 6f 75 | 72 20 6d 69 6e 75 74 65 |tor [hou|r minute|
|00001490| 20 73 65 63 6f 6e 64 5d | 2e 0a 52 65 63 6f 67 6e | second]|..Recogn|
|000014a0| 69 7a 65 20 48 48 3a 4d | 4d 3a 53 53 2c 20 48 48 |ize HH:M|M:SS, HH|
|000014b0| 3a 4d 4d 2c 20 48 48 4d | 4d 53 53 2c 20 48 48 4d |:MM, HHM|MSS, HHM|
|000014c0| 4d 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |M."]).(d|efalias |
|000014d0| 27 74 69 6d 65 7a 6f 6e | 65 2d 7a 6f 6e 65 2d 74 |'timezon|e-zone-t|
|000014e0| 6f 2d 6d 69 6e 75 74 65 | 20 23 5b 28 74 69 6d 65 |o-minute| #[(time|
|000014f0| 7a 6f 6e 65 29 20 22 08 | 3a 83 5c 6e 00 08 40 c1 |zone) ".|:.\n..@.|
|00001500| a5 87 08 83 43 00 c2 08 | 96 0b 5c 22 41 86 18 00 |....C...|..\"A...|
|00001510| 08 89 10 3b 83 5c 22 00 | c4 08 21 10 c5 08 21 89 |...;.\".|..!...!.|
|00001520| 1e 06 c7 a5 c1 5f 0e 06 | c7 a6 5c 5c 1e 08 08 c9 |....._..|..\\....|
|00001530| 57 83 3f 00 0e 08 5b 82 | 41 00 0e 08 2a 87 c9 87 |W.?...[.|A...*...|
|00001540| 22 20 5b 74 69 6d 65 7a | 6f 6e 65 20 36 30 20 61 |" [timez|one 60 a|
|00001550| 73 73 6f 63 20 74 69 6d | 65 7a 6f 6e 65 2d 77 6f |ssoc tim|ezone-wo|
|00001560| 72 6c 64 2d 74 69 6d 65 | 7a 6f 6e 65 73 20 73 74 |rld-time|zones st|
|00001570| 72 69 6e 67 2d 74 6f 2d | 69 6e 74 20 74 69 6d 65 |ring-to-|int time|
|00001580| 7a 6f 6e 65 2d 61 62 73 | 20 61 62 73 7a 6f 6e 65 |zone-abs| abszone|
|00001590| 20 31 30 30 20 6d 69 6e | 75 74 65 73 20 30 5d 20 | 100 min|utes 0] |
|000015a0| 34 20 22 5c 0a 54 72 61 | 6e 73 6c 61 74 65 20 54 |4 "\.Tra|nslate T|
|000015b0| 49 4d 45 5a 4f 4e 45 20 | 74 6f 20 61 6e 20 69 6e |IMEZONE |to an in|
|000015c0| 74 65 67 65 72 20 6d 69 | 6e 75 74 65 20 6f 66 66 |teger mi|nute off|
|000015d0| 73 65 74 20 66 72 6f 6d | 20 47 4d 54 2e 0a 54 49 |set from| GMT..TI|
|000015e0| 4d 45 5a 4f 4e 45 20 63 | 61 6e 20 62 65 20 61 20 |MEZONE c|an be a |
|000015f0| 63 6f 6e 73 20 63 65 6c | 6c 20 63 6f 6e 74 61 69 |cons cel|l contai|
|00001600| 6e 69 6e 67 20 74 68 65 | 20 6f 75 74 70 75 74 20 |ning the| output |
|00001610| 6f 66 20 63 75 72 72 65 | 6e 74 2d 74 69 6d 65 2d |of curre|nt-time-|
|00001620| 7a 6f 6e 65 2c 0a 6f 72 | 20 61 6e 20 69 6e 74 65 |zone,.or| an inte|
|00001630| 67 65 72 20 6f 66 20 74 | 68 65 20 66 6f 72 6d 20 |ger of t|he form |
|00001640| 2b 2d 48 48 4d 4d 2c 20 | 6f 72 20 61 20 74 69 6d |+-HHMM, |or a tim|
|00001650| 65 20 7a 6f 6e 65 20 6e | 61 6d 65 2e 22 5d 29 0a |e zone n|ame."]).|
|00001660| 28 64 65 66 61 6c 69 61 | 73 20 27 74 69 6d 65 7a |(defalia|s 'timez|
|00001670| 6f 6e 65 2d 74 69 6d 65 | 2d 66 72 6f 6d 2d 61 62 |one-time|-from-ab|
|00001680| 73 6f 6c 75 74 65 20 23 | 5b 28 64 61 74 65 20 73 |solute #|[(date s|
|00001690| 65 63 6f 6e 64 73 29 20 | 22 c0 19 5c 6e 09 5a 1b |econds) |"..\n.Z.|
|000016a0| c4 c5 21 1e 06 0e 07 0b | 0e 06 5f 5c 5c 1e 07 c4 |..!.....|.._\\...|
|000016b0| c8 21 1e 09 ca 0e 07 0e | 09 a5 21 89 1e 0b 0e 09 |.!......|..!.....|
|000016c0| 5f 1e 5c 66 ca 0e 07 0e | 5c 66 5a 21 1e 0d ce 0e |_.\f....|\fZ!....|
|000016d0| 07 0e 5c 66 0e 0d 5c 5c | 5a 21 cf 57 85 45 00 0e |..\f..\\|Z!.W.E..|
|000016e0| 0b 0e 0d 42 2e 08 87 22 | 20 5b 37 31 39 31 36 32 |...B..."| [719162|
|000016f0| 20 63 75 72 72 65 6e 74 | 2d 74 69 6d 65 2d 6f 72 | current|-time-or|
|00001700| 69 67 69 6e 20 64 61 74 | 65 20 64 61 79 73 20 66 |igin dat|e days f|
|00001710| 6c 6f 61 74 20 38 36 34 | 30 30 20 73 65 63 6f 6e |loat 864|00 secon|
|00001720| 64 73 2d 70 65 72 2d 64 | 61 79 20 73 65 63 6f 6e |ds-per-d|ay secon|
|00001730| 64 73 20 36 35 35 33 36 | 20 63 75 72 72 65 6e 74 |ds 65536| current|
|00001740| 2d 74 69 6d 65 2d 61 72 | 69 74 68 6d 65 74 69 63 |-time-ar|ithmetic|
|00001750| 2d 62 61 73 65 20 74 69 | 6d 65 7a 6f 6e 65 2d 66 |-base ti|mezone-f|
|00001760| 6c 6f 6f 72 20 68 69 20 | 68 69 62 61 73 65 20 6c |loor hi |hibase l|
|00001770| 6f 20 74 69 6d 65 7a 6f | 6e 65 2d 61 62 73 20 32 |o timezo|ne-abs 2|
|00001780| 5d 20 35 20 22 5c 0a 43 | 6f 6d 70 75 74 65 20 74 |] 5 "\.C|ompute t|
|00001790| 68 65 20 55 54 43 20 74 | 69 6d 65 20 65 71 75 69 |he UTC t|ime equi|
|000017a0| 76 61 6c 65 6e 74 20 74 | 6f 20 44 41 54 45 20 61 |valent t|o DATE a|
|000017b0| 74 20 74 69 6d 65 20 53 | 45 43 4f 4e 44 53 20 61 |t time S|ECONDS a|
|000017c0| 66 74 65 72 20 6d 69 64 | 6e 69 67 68 74 2e 0a 52 |fter mid|night..R|
|000017d0| 65 74 75 72 6e 20 61 20 | 6c 69 73 74 20 73 75 69 |eturn a |list sui|
|000017e0| 74 61 62 6c 65 20 61 73 | 20 61 6e 20 61 72 67 75 |table as| an argu|
|000017f0| 6d 65 6e 74 20 74 6f 20 | 63 75 72 72 65 6e 74 2d |ment to |current-|
|00001800| 74 69 6d 65 2d 7a 6f 6e | 65 2c 0a 6f 72 20 6e 69 |time-zon|e,.or ni|
|00001810| 6c 20 69 66 20 74 68 65 | 20 64 61 74 65 20 63 61 |l if the| date ca|
|00001820| 6e 6e 6f 74 20 62 65 20 | 74 68 75 73 20 72 65 70 |nnot be |thus rep|
|00001830| 72 65 73 65 6e 74 65 64 | 2e 0a 44 41 54 45 20 69 |resented|..DATE i|
|00001840| 73 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |s the nu|mber of |
|00001850| 64 61 79 73 20 65 6c 61 | 70 73 65 64 20 73 69 6e |days ela|psed sin|
|00001860| 63 65 20 74 68 65 20 28 | 69 6d 61 67 69 6e 61 72 |ce the (|imaginar|
|00001870| 79 29 0a 47 72 65 67 6f | 72 69 61 6e 20 64 61 74 |y).Grego|rian dat|
|00001880| 65 20 53 75 6e 64 61 79 | 2c 20 44 65 63 65 6d 62 |e Sunday|, Decemb|
|00001890| 65 72 20 33 31 2c 20 31 | 20 42 43 2e 22 5d 29 0a |er 31, 1| BC."]).|
|000018a0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 69 6d 65 7a |(defalia|s 'timez|
|000018b0| 6f 6e 65 2d 74 69 6d 65 | 2d 7a 6f 6e 65 2d 66 72 |one-time|-zone-fr|
|000018c0| 6f 6d 2d 61 62 73 6f 6c | 75 74 65 20 23 5b 28 64 |om-absol|ute #[(d|
|000018d0| 61 74 65 20 73 65 63 6f | 6e 64 73 29 20 22 c0 c1 |ate seco|nds) "..|
|000018e0| 21 85 1d 00 c2 0b 5c 66 | 5c 22 89 1d 85 1c 00 c1 |!.....\f|\"......|
|000018f0| 0d 21 89 1e 06 40 85 1b | 00 0e 06 29 29 87 22 20 |.!...@..|...))." |
|00001900| 5b 66 62 6f 75 6e 64 70 | 20 63 75 72 72 65 6e 74 |[fboundp| current|
|00001910| 2d 74 69 6d 65 2d 7a 6f | 6e 65 20 74 69 6d 65 7a |-time-zo|ne timez|
|00001920| 6f 6e 65 2d 74 69 6d 65 | 2d 66 72 6f 6d 2d 61 62 |one-time|-from-ab|
|00001930| 73 6f 6c 75 74 65 20 64 | 61 74 65 20 73 65 63 6f |solute d|ate seco|
|00001940| 6e 64 73 20 75 74 63 2d | 74 69 6d 65 20 7a 6f 6e |nds utc-|time zon|
|00001950| 65 5d 20 34 20 22 5c 0a | 43 6f 6d 70 75 74 65 20 |e] 4 "\.|Compute |
|00001960| 74 68 65 20 6c 6f 63 61 | 6c 20 74 69 6d 65 20 7a |the loca|l time z|
|00001970| 6f 6e 65 20 66 6f 72 20 | 44 41 54 45 20 61 74 20 |one for |DATE at |
|00001980| 74 69 6d 65 20 53 45 43 | 4f 4e 44 53 20 61 66 74 |time SEC|ONDS aft|
|00001990| 65 72 20 6d 69 64 6e 69 | 67 68 74 2e 0a 52 65 74 |er midni|ght..Ret|
|000019a0| 75 72 6e 20 61 20 6c 69 | 73 74 20 69 6e 20 74 68 |urn a li|st in th|
|000019b0| 65 20 73 61 6d 65 20 66 | 6f 72 6d 61 74 20 61 73 |e same f|ormat as|
|000019c0| 20 63 75 72 72 65 6e 74 | 2d 74 69 6d 65 2d 7a 6f | current|-time-zo|
|000019d0| 6e 65 27 73 20 72 65 73 | 75 6c 74 2c 0a 6f 72 20 |ne's res|ult,.or |
|000019e0| 6e 69 6c 20 69 66 20 74 | 68 65 20 6c 6f 63 61 6c |nil if t|he local|
|000019f0| 20 74 69 6d 65 20 7a 6f | 6e 65 20 63 6f 75 6c 64 | time zo|ne could|
|00001a00| 20 6e 6f 74 20 62 65 20 | 63 6f 6d 70 75 74 65 64 | not be |computed|
|00001a10| 2e 0a 44 41 54 45 20 69 | 73 20 74 68 65 20 6e 75 |..DATE i|s the nu|
|00001a20| 6d 62 65 72 20 6f 66 20 | 64 61 79 73 20 65 6c 61 |mber of |days ela|
|00001a30| 70 73 65 64 20 73 69 6e | 63 65 20 74 68 65 20 28 |psed sin|ce the (|
|00001a40| 69 6d 61 67 69 6e 61 72 | 79 29 0a 47 72 65 67 6f |imaginar|y).Grego|
|00001a50| 72 69 61 6e 20 64 61 74 | 65 20 53 75 6e 64 61 79 |rian dat|e Sunday|
|00001a60| 2c 20 44 65 63 65 6d 62 | 65 72 20 33 31 2c 20 31 |, Decemb|er 31, 1|
|00001a70| 20 42 43 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 | BC."]).|(defalia|
|00001a80| 73 20 27 74 69 6d 65 7a | 6f 6e 65 2d 66 69 78 2d |s 'timez|one-fix-|
|00001a90| 74 69 6d 65 20 23 5b 28 | 64 61 74 65 20 6c 6f 63 |time #[(|date loc|
|00001aa0| 61 6c 20 74 69 6d 65 7a | 6f 6e 65 29 20 22 c0 09 |al timez|one) "..|
|00001ab0| 21 19 c2 09 c3 48 21 89 | 1c c5 57 83 16 00 5c 66 |!....H!.|..W...\f|
|00001ac0| c6 5c 5c 82 17 00 5c 66 | 1c c2 09 c7 48 21 1e 08 |.\\...\f|....H!..|
|00001ad0| c2 09 c9 48 21 1e 5c 6e | cb 09 cc 48 21 1e 0d c2 |...H!.\n|...H!...|
|00001ae0| 0e 0d c3 48 21 1e 0e c2 | 0e 0d c7 48 21 1e 0f c2 |...H!...|...H!...|
|00001af0| 0e 0d c9 48 21 1e 10 09 | d1 48 86 4d 00 0e 12 1e |...H!...|.H.M....|
|00001b00| 12 0e 13 86 69 00 d4 d5 | 0e 08 0e 5c 6e 5c 66 23 |....i...|...\n\f#|
|00001b10| 0e 10 0e 0f 0e 0e d6 5f | 5c 5c d6 5f 5c 5c 5c 22 |......._|\\._\\\"|
|00001b20| 1e 13 d7 0e 13 21 d7 0e | 12 21 5a 1e 18 0e 0f 0e |.....!..|.!Z.....|
|00001b30| 18 5c 5c 1e 0f d9 0e 0f | d6 5c 22 1e 1a 0e 0e 0e |.\\.....|.\".....|
|00001b40| 1a 5c 5c 16 0e 0e 0f 0e | 1a d6 5f 5a 16 0f db 0e |.\\.....|.._Z....|
|00001b50| 0e 58 83 c9 00 0e 0e db | 5a 16 0e 0e 5c 6e 54 16 |.X......|Z...\nT.|
|00001b60| 5c 6e dc 0e 08 5c 66 5c | 22 0e 5c 6e 57 83 fb 00 |\n...\f\|".\nW...|
|00001b70| 0e 08 54 16 08 c7 16 5c | 6e dd 0e 08 57 83 fb 00 |..T....\|n...W...|
|00001b80| c7 16 08 5c 66 54 14 82 | fb 00 c3 0e 0e 56 83 fb |...\fT..|.....V..|
|00001b90| 00 0e 0e db 5c 5c 16 0e | 0e 5c 6e 53 16 5c 6e c7 |....\\..|.\nS.\n.|
|00001ba0| 0e 5c 6e 56 83 fb 00 0e | 08 53 16 08 c7 0e 08 56 |.\nV....|.S.....V|
|00001bb0| 83 f4 00 dd 16 08 5c 66 | 53 14 dc 0e 08 5c 66 5c |......\f|S....\f\|
|00001bc0| 22 16 5c 6e de 5c 66 0e | 08 0e 5c 6e 0e 0e 0e 0f |".\n.\f.|..\n....|
|00001bd0| 0e 10 0e 13 26 07 2e 0e | 87 22 20 5b 74 69 6d 65 |....&...|." [time|
|00001be0| 7a 6f 6e 65 2d 70 61 72 | 73 65 2d 64 61 74 65 20 |zone-par|se-date |
|00001bf0| 64 61 74 65 20 73 74 72 | 69 6e 67 2d 74 6f 2d 69 |date str|ing-to-i|
|00001c00| 6e 74 20 30 20 79 65 61 | 72 20 31 30 30 20 31 39 |nt 0 yea|r 100 19|
|00001c10| 30 30 20 31 20 6d 6f 6e | 74 68 20 32 20 64 61 79 |00 1 mon|th 2 day|
|00001c20| 20 74 69 6d 65 7a 6f 6e | 65 2d 70 61 72 73 65 2d | timezon|e-parse-|
|00001c30| 74 69 6d 65 20 33 20 74 | 69 6d 65 20 68 6f 75 72 |time 3 t|ime hour|
|00001c40| 20 6d 69 6e 75 74 65 20 | 73 65 63 6f 6e 64 20 34 | minute |second 4|
|00001c50| 20 6c 6f 63 61 6c 20 74 | 69 6d 65 7a 6f 6e 65 20 | local t|imezone |
|00001c60| 74 69 6d 65 7a 6f 6e 65 | 2d 74 69 6d 65 2d 7a 6f |timezone|-time-zo|
|00001c70| 6e 65 2d 66 72 6f 6d 2d | 61 62 73 6f 6c 75 74 65 |ne-from-|absolute|
|00001c80| 20 74 69 6d 65 7a 6f 6e | 65 2d 61 62 73 6f 6c 75 | timezon|e-absolu|
|00001c90| 74 65 2d 66 72 6f 6d 2d | 67 72 65 67 6f 72 69 61 |te-from-|gregoria|
|00001ca0| 6e 20 36 30 20 74 69 6d | 65 7a 6f 6e 65 2d 7a 6f |n 60 tim|ezone-zo|
|00001cb0| 6e 65 2d 74 6f 2d 6d 69 | 6e 75 74 65 20 64 69 66 |ne-to-mi|nute dif|
|00001cc0| 66 20 74 69 6d 65 7a 6f | 6e 65 2d 66 6c 6f 6f 72 |f timezo|ne-floor|
|00001cd0| 20 68 6f 75 72 2d 66 69 | 78 20 32 34 20 74 69 6d | hour-fi|x 24 tim|
|00001ce0| 65 7a 6f 6e 65 2d 6c 61 | 73 74 2d 64 61 79 2d 6f |ezone-la|st-day-o|
|00001cf0| 66 2d 6d 6f 6e 74 68 20 | 31 32 20 76 65 63 74 6f |f-month |12 vecto|
|00001d00| 72 5d 20 39 20 22 5c 0a | 43 6f 6e 76 65 72 74 20 |r] 9 "\.|Convert |
|00001d10| 44 41 54 45 20 28 64 65 | 66 61 75 6c 74 20 74 69 |DATE (de|fault ti|
|00001d20| 6d 65 7a 6f 6e 65 20 4c | 4f 43 41 4c 29 20 74 6f |mezone L|OCAL) to|
|00001d30| 20 59 59 59 59 2d 4d 4d | 2d 44 44 2d 48 48 2d 4d | YYYY-MM|-DD-HH-M|
|00001d40| 4d 2d 53 53 2d 5a 4f 4e | 45 20 76 65 63 74 6f 72 |M-SS-ZON|E vector|
|00001d50| 2e 0a 49 66 20 4c 4f 43 | 41 4c 20 69 73 20 6e 69 |..If LOC|AL is ni|
|00001d60| 6c 2c 20 69 74 20 69 73 | 20 61 73 73 75 6d 65 64 |l, it is| assumed|
|00001d70| 20 74 6f 20 62 65 20 47 | 4d 54 2e 0a 49 66 20 54 | to be G|MT..If T|
|00001d80| 49 4d 45 5a 4f 4e 45 20 | 69 73 20 6e 69 6c 2c 20 |IMEZONE |is nil, |
|00001d90| 75 73 65 20 74 68 65 20 | 6c 6f 63 61 6c 20 74 69 |use the |local ti|
|00001da0| 6d 65 20 7a 6f 6e 65 2e | 22 5d 29 0a 28 64 65 66 |me zone.|"]).(def|
|00001db0| 61 6c 69 61 73 20 27 74 | 69 6d 65 7a 6f 6e 65 2d |alias 't|imezone-|
|00001dc0| 6c 61 73 74 2d 64 61 79 | 2d 6f 66 2d 6d 6f 6e 74 |last-day|-of-mont|
|00001dd0| 68 20 23 5b 28 6d 6f 6e | 74 68 20 79 65 61 72 29 |h #[(mon|th year)|
|00001de0| 20 22 08 c1 55 83 0e 00 | c2 0b 21 83 0e 00 c4 87 | "..U...|..!.....|
|00001df0| c5 08 53 48 87 22 20 5b | 6d 6f 6e 74 68 20 32 20 |..SH." [|month 2 |
|00001e00| 74 69 6d 65 7a 6f 6e 65 | 2d 6c 65 61 70 2d 79 65 |timezone|-leap-ye|
|00001e10| 61 72 2d 70 20 79 65 61 | 72 20 32 39 20 5b 33 31 |ar-p yea|r 29 [31|
|00001e20| 20 32 38 20 33 31 20 33 | 30 20 33 31 20 33 30 20 | 28 31 3|0 31 30 |
|00001e30| 33 31 20 33 31 20 33 30 | 20 33 31 20 33 30 20 33 |31 31 30| 31 30 3|
|00001e40| 31 5d 5d 20 32 20 22 5c | 0a 54 68 65 20 6c 61 73 |1]] 2 "\|.The las|
|00001e50| 74 20 64 61 79 20 69 6e | 20 4d 4f 4e 54 48 20 64 |t day in| MONTH d|
|00001e60| 75 72 69 6e 67 20 59 45 | 41 52 2e 22 5d 29 0a 28 |uring YE|AR."]).(|
|00001e70| 64 65 66 61 6c 69 61 73 | 20 27 74 69 6d 65 7a 6f |defalias| 'timezo|
|00001e80| 6e 65 2d 6c 65 61 70 2d | 79 65 61 72 2d 70 20 23 |ne-leap-|year-p #|
|00001e90| 5b 28 79 65 61 72 29 20 | 22 08 c1 a6 c2 55 83 11 |[(year) |"....U..|
|00001ea0| 00 08 c3 a6 c2 55 3f 86 | 16 00 08 c4 a6 c2 55 87 |.....U?.|......U.|
|00001eb0| 22 20 5b 79 65 61 72 20 | 34 20 30 20 31 30 30 20 |" [year |4 0 100 |
|00001ec0| 34 30 30 5d 20 32 20 22 | 5c 0a 52 65 74 75 72 6e |400] 2 "|\.Return|
|00001ed0| 73 20 74 20 69 66 20 59 | 45 41 52 20 69 73 20 61 |s t if Y|EAR is a|
|00001ee0| 20 47 72 65 67 6f 72 69 | 61 6e 20 6c 65 61 70 20 | Gregori|an leap |
|00001ef0| 79 65 61 72 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |year."])|.(defali|
|00001f00| 61 73 20 27 74 69 6d 65 | 7a 6f 6e 65 2d 64 61 79 |as 'time|zone-day|
|00001f10| 2d 6e 75 6d 62 65 72 20 | 23 5b 28 6d 6f 6e 74 68 |-number |#[(month|
|00001f20| 20 64 61 79 20 79 65 61 | 72 29 20 22 08 09 53 c2 | day yea|r) "..S.|
|00001f30| 5f 5c 5c 1b 09 c4 56 83 | 21 00 0b 09 c5 5f c6 5c |_\\...V.|!...._.\|
|00001f40| 5c c7 a5 5a 13 c8 0e 09 | 21 83 21 00 0b 54 13 0b |\..Z....|!.!..T..|
|00001f50| 29 87 22 20 5b 64 61 79 | 20 6d 6f 6e 74 68 20 33 |)." [day| month 3|
|00001f60| 31 20 64 61 79 2d 6f 66 | 2d 79 65 61 72 20 32 20 |1 day-of|-year 2 |
|00001f70| 34 20 32 33 20 31 30 20 | 74 69 6d 65 7a 6f 6e 65 |4 23 10 |timezone|
|00001f80| 2d 6c 65 61 70 2d 79 65 | 61 72 2d 70 20 79 65 61 |-leap-ye|ar-p yea|
|00001f90| 72 5d 20 33 20 22 5c 0a | 52 65 74 75 72 6e 20 74 |r] 3 "\.|Return t|
|00001fa0| 68 65 20 64 61 79 20 6e | 75 6d 62 65 72 20 77 69 |he day n|umber wi|
|00001fb0| 74 68 69 6e 20 74 68 65 | 20 79 65 61 72 20 6f 66 |thin the| year of|
|00001fc0| 20 74 68 65 20 64 61 74 | 65 20 6d 6f 6e 74 68 2f | the dat|e month/|
|00001fd0| 64 61 79 2f 79 65 61 72 | 2e 22 5d 29 0a 28 64 65 |day/year|."]).(de|
|00001fe0| 66 61 6c 69 61 73 20 27 | 74 69 6d 65 7a 6f 6e 65 |falias '|timezone|
|00001ff0| 2d 61 62 73 6f 6c 75 74 | 65 2d 66 72 6f 6d 2d 67 |-absolut|e-from-g|
|00002000| 72 65 67 6f 72 69 61 6e | 20 23 5b 28 6d 6f 6e 74 |regorian| #[(mont|
|00002010| 68 20 64 61 79 20 79 65 | 61 72 29 20 22 c0 09 5c |h day ye|ar) "..\|
|00002020| 6e 0b 23 0b 53 c4 5f 0b | 53 c5 a5 0b 53 c6 a5 5b |n.#.S._.|S...S..[|
|00002030| 0b 53 c7 a5 5c 5c 5c 5c | 5c 5c 5c 5c 87 22 20 5b |.S..\\\\|\\\\." [|
|00002040| 74 69 6d 65 7a 6f 6e 65 | 2d 64 61 79 2d 6e 75 6d |timezone|-day-num|
|00002050| 62 65 72 20 6d 6f 6e 74 | 68 20 64 61 79 20 79 65 |ber mont|h day ye|
|00002060| 61 72 20 33 36 35 20 34 | 20 31 30 30 20 34 30 30 |ar 365 4| 100 400|
|00002070| 5d 20 36 20 22 5c 0a 54 | 68 65 20 6e 75 6d 62 65 |] 6 "\.T|he numbe|
|00002080| 72 20 6f 66 20 64 61 79 | 73 20 62 65 74 77 65 65 |r of day|s betwee|
|00002090| 6e 20 74 68 65 20 47 72 | 65 67 6f 72 69 61 6e 20 |n the Gr|egorian |
|000020a0| 64 61 74 65 20 31 32 2f | 33 31 2f 31 20 42 43 20 |date 12/|31/1 BC |
|000020b0| 61 6e 64 20 6d 6f 6e 74 | 68 2f 64 61 79 2f 79 65 |and mont|h/day/ye|
|000020c0| 61 72 2e 0a 54 68 65 20 | 47 72 65 67 6f 72 69 61 |ar..The |Gregoria|
|000020d0| 6e 20 64 61 74 65 20 53 | 75 6e 64 61 79 2c 20 44 |n date S|unday, D|
|000020e0| 65 63 65 6d 62 65 72 20 | 33 31 2c 20 31 20 42 43 |ecember |31, 1 BC|
|000020f0| 20 69 73 20 69 6d 61 67 | 69 6e 61 72 79 2e 22 5d | is imag|inary."]|
|00002100| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00002110| c2 5c 22 88 c0 c3 c4 5c | 22 87 22 20 5b 64 65 66 |.\"....\|"." [def|
|00002120| 61 6c 69 61 73 20 74 69 | 6d 65 7a 6f 6e 65 2d 61 |alias ti|mezone-a|
|00002130| 62 73 20 23 5b 28 6e 29 | 20 22 c0 c1 21 83 5c 6e |bs #[(n)| "..!.\n|
|00002140| 00 c1 5c 6e 21 87 5c 6e | c3 57 83 13 00 5c 6e 5b |..\n!.\n|.W...\n[|
|00002150| 87 5c 6e 87 22 20 5b 66 | 62 6f 75 6e 64 70 20 61 |.\n." [f|boundp a|
|00002160| 62 73 20 6e 20 30 5d 20 | 32 5d 20 74 69 6d 65 7a |bs n 0] |2] timez|
|00002170| 6f 6e 65 2d 66 6c 6f 6f | 72 20 23 5b 28 6e 20 26 |one-floo|r #[(n &|
|00002180| 6f 70 74 69 6f 6e 61 6c | 20 64 69 76 69 73 6f 72 |optional| divisor|
|00002190| 29 20 22 c0 c1 21 83 0b | 00 c1 5c 6e 0b 5c 22 87 |) "..!..|..\n.\".|
|000021a0| 0b 84 11 00 c4 13 5c 6e | c5 57 83 20 00 0b 5c 6e |......\n|.W. ..\n|
|000021b0| 5a c4 5a 0b a5 5b 87 5c | 6e 0b a5 87 22 20 5b 66 |Z.Z..[.\|n..." [f|
|000021c0| 62 6f 75 6e 64 70 20 66 | 6c 6f 6f 72 20 6e 20 64 |boundp f|loor n d|
|000021d0| 69 76 69 73 6f 72 20 31 | 20 30 5d 20 33 5d 5d 20 |ivisor 1| 0] 3]] |
|000021e0| 33 29 0a | |3). | |
+--------+-------------------------+-------------------------+--------+--------+