home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1996-10-12 | 35.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.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs v18 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '(require (quote calc-ext))
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|00000010| 20 63 61 6c 63 2d 65 78 | 74 29 29 0a 0a 28 64 65 | calc-ex|t))..(de|
|00000020| 66 75 6e 20 63 61 6c 63 | 2d 4e 65 65 64 2d 63 61 |fun calc|-Need-ca|
|00000030| 6c 63 2d 66 6f 72 6d 73 | 20 6e 69 6c 20 28 62 79 |lc-forms| nil (by|
|00000040| 74 65 2d 63 6f 64 65 20 | 22 c0 87 22 20 5b 6e 69 |te-code |".." [ni|
|00000050| 6c 5d 20 31 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |l] 1))..|(defun c|
|00000060| 61 6c 63 2d 74 69 6d 65 | 20 6e 69 6c 20 28 69 6e |alc-time| nil (in|
|00000070| 74 65 72 61 63 74 69 76 | 65 29 20 28 62 79 74 65 |teractiv|e) (byte|
|00000080| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 21 87 22 20 5b |-code ".|...!." [|
|00000090| 6e 69 6c 20 63 61 6c 63 | 2d 64 6f 20 28 6c 61 6d |nil calc|-do (lam|
|000000a0| 62 64 61 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |bda nil |(byte-co|
|000000b0| 64 65 20 22 c1 20 18 c2 | c3 c4 c5 c6 c7 08 c8 c9 |de ". ..|........|
|000000c0| 4f 21 c7 08 ca cb 4f 21 | c7 08 cc cd 4f 21 46 c6 |O!....O!|....O!F.|
|000000d0| ce c3 c3 46 45 23 29 87 | 22 20 5b 74 69 6d 65 20 |...FE#).|" [time |
|000000e0| 63 75 72 72 65 6e 74 2d | 74 69 6d 65 2d 73 74 72 |current-|time-str|
|000000f0| 69 6e 67 20 63 61 6c 63 | 2d 65 6e 74 65 72 2d 72 |ing calc|-enter-r|
|00000100| 65 73 75 6c 74 20 30 20 | 22 74 69 6d 65 22 20 6d |esult 0 |"time" m|
|00000110| 6f 64 20 68 6d 73 20 73 | 74 72 69 6e 67 2d 74 6f |od hms s|tring-to|
|00000120| 2d 69 6e 74 20 31 31 20 | 31 33 20 31 34 20 31 36 |-int 11 |13 14 16|
|00000130| 20 31 37 20 31 39 20 32 | 34 5d 20 31 34 29 29 5d | 17 19 2|4] 14))]|
|00000140| 20 32 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 2))..(d|efun cal|
|00000150| 63 2d 74 6f 2d 68 6d 73 | 20 28 61 72 67 29 20 28 |c-to-hms| (arg) (|
|00000160| 69 6e 74 65 72 61 63 74 | 69 76 65 20 22 50 22 29 |interact|ive "P")|
|00000170| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c1 | (byte-c|ode "...|
|00000180| c2 21 87 22 20 5b 6e 69 | 6c 20 63 61 6c 63 2d 64 |.!." [ni|l calc-d|
|00000190| 6f 20 28 6c 61 6d 62 64 | 61 20 6e 69 6c 20 28 62 |o (lambd|a nil (b|
|000001a0| 79 74 65 2d 63 6f 64 65 | 20 22 c2 20 83 1b 00 08 |yte-code| ". ....|
|000001b0| c3 3d 83 13 00 c4 c5 c6 | 09 23 82 18 00 c4 c7 c8 |.=......|.#......|
|000001c0| 09 23 82 20 00 c4 c9 ca | 09 23 87 22 20 5b 63 61 |.#. ....|.#." [ca|
|000001d0| 6c 63 2d 61 6e 67 6c 65 | 2d 6d 6f 64 65 20 61 72 |lc-angle|-mode ar|
|000001e0| 67 20 63 61 6c 63 2d 69 | 73 2d 69 6e 76 65 72 73 |g calc-i|s-invers|
|000001f0| 65 20 72 61 64 20 63 61 | 6c 63 2d 75 6e 61 72 79 |e rad ca|lc-unary|
|00000200| 2d 6f 70 20 22 3e 72 61 | 64 22 20 63 61 6c 63 46 |-op ">ra|d" calcF|
|00000210| 75 6e 63 2d 72 61 64 20 | 22 3e 64 65 67 22 20 63 |unc-rad |">deg" c|
|00000220| 61 6c 63 46 75 6e 63 2d | 64 65 67 20 22 3e 68 6d |alcFunc-|deg ">hm|
|00000230| 73 22 20 63 61 6c 63 46 | 75 6e 63 2d 68 6d 73 5d |s" calcF|unc-hms]|
|00000240| 20 37 29 29 5d 20 32 29 | 29 0a 0a 28 64 65 66 75 | 7))] 2)|)..(defu|
|00000250| 6e 20 63 61 6c 63 2d 66 | 72 6f 6d 2d 68 6d 73 20 |n calc-f|rom-hms |
|00000260| 28 61 72 67 29 20 28 69 | 6e 74 65 72 61 63 74 69 |(arg) (i|nteracti|
|00000270| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|00000280| 64 65 20 22 c1 88 c2 20 | 88 c3 08 21 87 22 20 5b |de "... |...!." [|
|00000290| 61 72 67 20 6e 69 6c 20 | 63 61 6c 63 2d 69 6e 76 |arg nil |calc-inv|
|000002a0| 65 72 74 2d 66 75 6e 63 | 20 63 61 6c 63 2d 74 6f |ert-func| calc-to|
|000002b0| 2d 68 6d 73 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |-hms] 3)|)..(defu|
|000002c0| 6e 20 63 61 6c 63 2d 68 | 6d 73 2d 6e 6f 74 61 74 |n calc-h|ms-notat|
|000002d0| 69 6f 6e 20 28 66 6d 74 | 29 20 28 69 6e 74 65 72 |ion (fmt|) (inter|
|000002e0| 61 63 74 69 76 65 20 22 | 73 48 6f 75 72 73 2d 6d |active "|sHours-m|
|000002f0| 69 6e 75 74 65 73 2d 73 | 65 63 6f 6e 64 73 20 66 |inutes-s|econds f|
|00000300| 6f 72 6d 61 74 20 28 68 | 6d 73 2c 20 40 20 27 20 |ormat (h|ms, @ ' |
|00000310| 5c 22 2c 20 65 74 63 2e | 29 3a 20 22 29 20 28 62 |\", etc.|): ") (b|
|00000320| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c1 c2 21 87 |yte-code| "....!.|
|00000330| 22 20 5b 6e 69 6c 20 63 | 61 6c 63 2d 64 6f 20 28 |" [nil c|alc-do (|
|00000340| 6c 61 6d 62 64 61 20 6e | 69 6c 20 28 62 79 74 65 |lambda n|il (byte|
|00000350| 2d 63 6f 64 65 20 22 c3 | c4 08 5c 22 83 2d 00 c5 |-code ".|..\".-..|
|00000360| c2 c6 c7 c8 08 c9 5c 22 | c8 08 ca 5c 22 c7 c8 08 |......\"|...\"...|
|00000370| cb 5c 22 c8 08 cc 5c 22 | c7 c8 08 cd 5c 22 26 08 |.\"...\"|....\"&.|
|00000380| c1 23 88 ce c2 0a 5c 22 | 82 30 00 cf d0 21 87 22 |.#....\"|.0...!."|
|00000390| 20 5b 66 6d 74 20 74 20 | 63 61 6c 63 2d 68 6d 73 | [fmt t |calc-hms|
|000003a0| 2d 66 6f 72 6d 61 74 20 | 73 74 72 69 6e 67 2d 6d |-format |string-m|
|000003b0| 61 74 63 68 20 22 5c 5c | 60 5c 5c 28 5b 5e 2c 3b |atch "\\|`\\([^,;|
|000003c0| 20 5d 2b 5c 5c 29 5c 5c | 28 5b 2c 3b 20 5d 2a 5c | ]+\\)\\|([,; ]*\|
|000003d0| 5c 29 5c 5c 28 5b 5e 2c | 3b 20 5d 5c 5c 29 5c 5c |\)\\([^,|; ]\\)\\|
|000003e0| 28 5b 2c 3b 20 5d 2a 5c | 5c 29 5c 5c 28 5b 5e 2c |([,; ]*\|\)\\([^,|
|000003f0| 3b 20 5d 5c 5c 29 5c 5c | 27 22 20 63 61 6c 63 2d |; ]\\)\\|'" calc-|
|00000400| 63 68 61 6e 67 65 2d 6d | 6f 64 65 20 63 6f 6e 63 |change-m|ode conc|
|00000410| 61 74 20 22 25 73 22 20 | 6d 61 74 68 2d 6d 61 74 |at "%s" |math-mat|
|00000420| 63 68 2d 73 75 62 73 74 | 72 69 6e 67 20 31 20 32 |ch-subst|ring 1 2|
|00000430| 20 33 20 34 20 35 20 73 | 65 74 2d 64 65 66 61 75 | 3 4 5 s|et-defau|
|00000440| 6c 74 20 65 72 72 6f 72 | 20 22 42 61 64 20 68 6f |lt error| "Bad ho|
|00000450| 75 72 73 2d 6d 69 6e 75 | 74 65 73 2d 73 65 63 6f |urs-minu|tes-seco|
|00000460| 6e 64 73 20 66 6f 72 6d | 61 74 2e 22 5d 20 31 38 |nds form|at."] 18|
|00000470| 29 29 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |))] 2)).|.(defun |
|00000480| 63 61 6c 63 2d 64 61 74 | 65 2d 6e 6f 74 61 74 69 |calc-dat|e-notati|
|00000490| 6f 6e 20 28 66 6d 74 20 | 61 72 67 29 20 28 69 6e |on (fmt |arg) (in|
|000004a0| 74 65 72 61 63 74 69 76 | 65 20 22 73 44 61 74 65 |teractiv|e "sDate|
|000004b0| 20 66 6f 72 6d 61 74 20 | 28 65 2e 67 2e 2c 20 4d | format |(e.g., M|
|000004c0| 2f 44 2f 59 59 20 68 3a | 6d 6d 3a 73 73 29 3a 20 |/D/YY h:|mm:ss): |
|000004d0| 0a 50 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |.P") (by|te-code |
|000004e0| 22 c0 88 c1 c2 21 87 22 | 20 5b 6e 69 6c 20 63 61 |"....!."| [nil ca|
|000004f0| 6c 63 2d 64 6f 20 28 6c | 61 6d 62 64 61 20 6e 69 |lc-do (l|ambda ni|
|00000500| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 cd 08 |l (byte-|code "..|
|00000510| ce 5c 22 85 0a 00 cf 89 | 10 88 d0 d1 08 5c 22 85 |.\".....|.....\".|
|00000520| 19 00 d2 08 21 09 38 89 | 10 88 d0 d3 08 5c 22 86 |....!.8.|.....\".|
|00000530| 24 00 d4 d5 21 88 0a 85 | 48 00 d6 0a 21 89 12 d7 |$...!...|H...!...|
|00000540| 59 85 48 00 0a d8 58 85 | 48 00 d9 09 21 89 11 85 |Y.H...X.|H...!...|
|00000550| 48 00 da db 0a 09 5c 22 | 08 5c 22 88 c4 1b d0 dc |H.....\"|.\".....|
|00000560| 08 5c 22 3f 85 83 00 d0 | dd 08 5c 22 85 83 00 d0 |.\"?....|..\"....|
|00000570| de df e0 08 e1 5c 22 21 | de 51 08 5c 22 85 83 00 |.....\"!|.Q.\"...|
|00000580| e2 08 d7 e3 d7 21 4f e4 | 08 e3 d7 21 e5 d7 21 4f |.....!O.|...!..!O|
|00000590| e6 08 e5 d7 21 c4 4f 25 | 89 10 29 88 c4 c4 c4 c4 |....!.O%|..).....|
|000005a0| c4 c4 c4 1e 0b 1e 0a 1e | 09 1e 08 1e 07 1e 06 1d |........|........|
|000005b0| c4 1b d0 e7 08 5c 22 89 | 16 0b 85 aa 00 08 0e 0b |.....\".|........|
|000005c0| e8 49 29 88 d0 e9 08 5c | 22 89 16 08 85 9b 01 0e |.I)....\|".......|
|000005d0| 08 d7 56 85 c6 00 08 d7 | 0e 08 4f 0d 42 89 15 88 |..V.....|..O.B...|
|000005e0| 0e 08 54 89 16 09 88 08 | 0e 08 48 ea 55 83 f6 00 |..T.....|..H.U...|
|000005f0| 0e 07 85 df 00 d4 eb 21 | 88 0d 85 ee 00 ec 0d 0e |.......!|........|
|00000600| 06 5c 22 16 06 c4 89 15 | 88 cc 89 16 07 82 8f 01 |.\".....|........|
|00000610| 08 0e 08 48 ed 55 83 1f | 01 0e 07 86 07 01 d4 ee |...H.U..|........|
|00000620| 21 88 0d 85 17 01 ef 0d | 21 0e 06 42 16 06 c4 89 |!.......|!..B....|
|00000630| 15 88 c4 89 16 07 82 8f | 01 d0 f0 08 5c 22 85 2c |........|....\".,|
|00000640| 01 0e 09 54 89 16 09 88 | 0e 09 08 47 57 85 43 01 |...T....|...GW.C.|
|00000650| f1 08 0e 09 48 21 f1 08 | 0e 09 53 48 21 55 85 50 |....H!..|..SH!U.P|
|00000660| 01 0e 09 54 89 16 09 88 | 82 2d 01 88 f2 08 0e 08 |...T....|.-......|
|00000670| 0e 09 4f 21 89 16 0a 88 | 0e 0a f3 3e 86 7b 01 0e |..O!....|...>.{..|
|00000680| 0a f4 3d 85 73 01 0d 3f | 85 73 01 0e 06 3f 86 7b |..=.s..?|.s...?.{|
|00000690| 01 d4 f5 0e 0a 5c 22 88 | 0e 0a f6 3e 85 88 01 f7 |.....\".|...>....|
|000006a0| 0d 42 89 15 88 0e 0a 0d | 42 89 15 88 08 0e 09 c4 |.B......|B.......|
|000006b0| 4f 89 10 88 82 ac 00 88 | cd 08 ce 5c 22 86 a8 01 |O.......|...\"...|
|000006c0| 08 0d 42 89 15 88 0d 85 | c6 01 0e 07 83 be 01 ef |..B.....|........|
|000006d0| 0d 21 0e 06 42 89 16 06 | 82 c6 01 ec 0d 0e 06 5c |.!..B...|.......\|
|000006e0| 22 89 16 06 88 f8 f9 ef | 0e 06 21 cc 23 2e 07 87 |".......|..!.#...|
|000006f0| 22 20 5b 66 6d 74 20 63 | 61 6c 63 2d 73 74 61 6e |" [fmt c|alc-stan|
|00000700| 64 61 72 64 2d 64 61 74 | 65 2d 66 6f 72 6d 61 74 |dard-dat|e-format|
|00000710| 73 20 61 72 67 20 63 61 | 73 65 2d 66 6f 6c 64 2d |s arg ca|se-fold-|
|00000720| 73 65 61 72 63 68 20 6e | 69 6c 20 6c 66 6d 74 20 |search n|il lfmt |
|00000730| 66 75 6c 6c 66 6d 74 20 | 74 69 6d 65 20 70 6f 73 |fullfmt |time pos|
|00000740| 20 70 6f 73 32 20 73 79 | 6d 20 74 65 6d 70 20 74 | pos2 sy|m temp t|
|00000750| 20 65 71 75 61 6c 20 22 | 22 20 22 31 22 20 73 74 | equal "|" "1" st|
|00000760| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5c 5c 60 20 |ring-mat|ch "\\` |
|00000770| 2a 5b 30 2d 39 5d 20 2a | 5c 5c 27 22 20 73 74 72 |*[0-9] *|\\'" str|
|00000780| 69 6e 67 2d 74 6f 2d 69 | 6e 74 20 22 5b 61 2d 7a |ing-to-i|nt "[a-z|
|00000790| 41 2d 5a 5d 22 20 65 72 | 72 6f 72 20 22 42 61 64 |A-Z]" er|ror "Bad|
|000007a0| 20 64 61 74 65 20 66 6f | 72 6d 61 74 20 73 70 65 | date fo|rmat spe|
|000007b0| 63 69 66 69 65 72 22 20 | 70 72 65 66 69 78 2d 6e |cifier" |prefix-n|
|000007c0| 75 6d 65 72 69 63 2d 76 | 61 6c 75 65 20 30 20 39 |umeric-v|alue 0 9|
|000007d0| 20 63 6f 70 79 2d 73 65 | 71 75 65 6e 63 65 20 73 | copy-se|quence s|
|000007e0| 65 74 63 61 72 20 6e 74 | 68 63 64 72 20 22 3c 2e |etcar nt|hcdr "<.|
|000007f0| 2a 3e 22 20 22 5c 5c 60 | 5b 5e 68 48 73 70 50 5d |*>" "\\`|[^hHspP]|
|00000800| 2a 5c 5c 28 5b 5e 61 63 | 2d 67 69 2d 6c 6e 6f 71 |*\\([^ac|-gi-lnoq|
|00000810| 72 74 2d 7a 41 43 2d 47 | 49 2d 4f 51 52 54 2d 5a |rt-zAC-G|I-OQRT-Z|
|00000820| 5d 2a 5b 62 42 68 48 6d | 70 50 73 53 5d 2b 5b 5e |]*[bBhHm|pPsS]+[^|
|00000830| 61 63 2d 67 69 2d 6c 6e | 6f 71 72 74 2d 7a 41 43 |ac-gi-ln|oqrt-zAC|
|00000840| 2d 47 49 2d 4f 51 52 54 | 2d 5a 5d 2a 5c 5c 29 5b |-GI-OQRT|-Z]*\\)[|
|00000850| 5e 68 48 73 70 50 5d 2a | 5c 5c 27 22 20 22 5b 5e |^hHspP]*|\\'" "[^|
|00000860| 61 63 2d 67 69 2d 6c 6e | 6f 71 72 74 2d 7a 41 43 |ac-gi-ln|oqrt-zAC|
|00000870| 2d 47 49 2d 4f 51 52 54 | 2d 5a 5d 2a 22 20 72 65 |-GI-OQRT|-Z]*" re|
|00000880| 67 65 78 70 2d 71 75 6f | 74 65 20 6d 61 74 68 2d |gexp-quo|te math-|
|00000890| 6d 61 74 63 68 2d 73 75 | 62 73 74 72 69 6e 67 20 |match-su|bstring |
|000008a0| 31 20 63 6f 6e 63 61 74 | 20 6d 61 74 63 68 2d 62 |1 concat| match-b|
|000008b0| 65 67 69 6e 6e 69 6e 67 | 20 22 3c 22 20 6d 61 74 |eginning| "<" mat|
|000008c0| 63 68 2d 65 6e 64 20 22 | 3e 22 20 22 3a 5b 42 53 |ch-end "|>" ":[BS|
|000008d0| 5d 53 22 20 36 37 20 22 | 5b 3c 3e 61 2d 7a 41 2d |]S" 67 "|[<>a-zA-|
|000008e0| 5a 5d 22 20 36 30 20 22 | 4e 65 73 74 65 64 20 3c |Z]" 60 "|Nested <|
|000008f0| 27 73 20 6e 6f 74 20 61 | 6c 6c 6f 77 65 64 22 20 |'s not a|llowed" |
|00000900| 6e 63 6f 6e 63 20 36 32 | 20 22 4d 69 73 70 6c 61 |nconc 62| "Mispla|
|00000910| 63 65 64 20 3e 20 69 6e | 20 66 6f 72 6d 61 74 22 |ced > in| format"|
|00000920| 20 6e 72 65 76 65 72 73 | 65 20 22 5c 5c 60 5b 5e | nrevers|e "\\`[^|
|00000930| 61 2d 7a 41 2d 5a 5d 2a | 5b 62 42 5d 5b 61 2d 7a |a-zA-Z]*|[bB][a-z|
|00000940| 41 2d 5a 5d 22 20 75 70 | 63 61 73 65 20 69 6e 74 |A-Z]" up|case int|
|00000950| 65 72 6e 20 28 59 20 59 | 59 20 42 59 20 59 59 59 |ern (Y Y|Y BY YYY|
|00000960| 20 59 59 59 59 20 61 61 | 20 41 41 20 61 61 61 20 | YYYY aa| AA aaa |
|00000970| 41 41 41 20 61 61 61 61 | 20 41 41 41 41 20 62 62 |AAA aaaa| AAAA bb|
|00000980| 20 42 42 20 62 62 62 20 | 42 42 42 20 62 62 62 62 | BB bbb |BBB bbbb|
|00000990| 20 42 42 42 42 20 4d 20 | 4d 4d 20 42 4d 20 6d 6d | BBBB M |MM BM mm|
|000009a0| 6d 20 4d 6d 6d 20 4d 6d | 6d 6d 20 4d 4d 4d 20 4d |m Mmm Mm|mm MMM M|
|000009b0| 4d 4d 4d 20 44 20 44 44 | 20 42 44 20 64 20 64 64 |MMM D DD| BD d dd|
|000009c0| 64 20 62 64 64 20 57 20 | 77 77 77 20 57 77 77 20 |d bdd W |www Www |
|000009d0| 57 77 77 77 20 57 57 57 | 20 57 57 57 57 20 68 20 |Wwww WWW| WWWW h |
|000009e0| 68 68 20 62 68 20 48 20 | 48 48 20 42 48 20 70 20 |hh bh H |HH BH p |
|000009f0| 50 20 70 70 20 50 50 20 | 70 70 70 70 20 50 50 50 |P pp PP |pppp PPP|
|00000a00| 50 20 6d 20 6d 6d 20 62 | 6d 20 73 20 73 73 20 62 |P m mm b|m s ss b|
|00000a10| 73 73 20 53 53 20 42 53 | 20 43 20 4e 20 6e 20 4a |ss SS BS| C N n J|
|00000a20| 20 6a 20 55 20 62 29 20 | 58 20 22 42 61 64 20 66 | j U b) |X "Bad f|
|00000a30| 6f 72 6d 61 74 20 63 6f | 64 65 3a 20 25 73 22 20 |ormat co|de: %s" |
|00000a40| 28 62 62 20 42 42 20 62 | 62 62 20 42 42 42 20 62 |(bb BB b|bb BBB b|
|00000a50| 62 62 62 20 42 42 42 42 | 29 20 62 20 63 61 6c 63 |bbb BBBB|) b calc|
|00000a60| 2d 63 68 61 6e 67 65 2d | 6d 6f 64 65 20 63 61 6c |-change-|mode cal|
|00000a70| 63 2d 64 61 74 65 2d 66 | 6f 72 6d 61 74 5d 20 33 |c-date-f|ormat] 3|
|00000a80| 38 29 29 5d 20 32 29 29 | 0a 0a 28 64 65 66 75 6e |8))] 2))|..(defun|
|00000a90| 20 63 61 6c 63 2d 68 6d | 73 2d 6d 6f 64 65 20 6e | calc-hm|s-mode n|
|00000aa0| 69 6c 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |il (inte|ractive)|
|00000ab0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c1 | (byte-c|ode "...|
|00000ac0| c2 21 87 22 20 5b 6e 69 | 6c 20 63 61 6c 63 2d 64 |.!." [ni|l calc-d|
|00000ad0| 6f 20 28 6c 61 6d 62 64 | 61 20 6e 69 6c 20 28 62 |o (lambd|a nil (b|
|00000ae0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 88 |yte-code| "...\".|
|00000af0| c3 c4 21 87 22 20 5b 63 | 61 6c 63 2d 63 68 61 6e |..!." [c|alc-chan|
|00000b00| 67 65 2d 6d 6f 64 65 20 | 63 61 6c 63 2d 61 6e 67 |ge-mode |calc-ang|
|00000b10| 6c 65 2d 6d 6f 64 65 20 | 68 6d 73 20 6d 65 73 73 |le-mode |hms mess|
|00000b20| 61 67 65 20 22 41 6e 67 | 6c 65 73 20 6d 65 61 73 |age "Ang|les meas|
|00000b30| 75 72 65 64 20 69 6e 20 | 64 65 67 72 65 65 73 2d |ured in |degrees-|
|00000b40| 6d 69 6e 75 74 65 73 2d | 73 65 63 6f 6e 64 73 2e |minutes-|seconds.|
|00000b50| 22 5d 20 33 29 29 5d 20 | 32 29 29 0a 0a 28 64 65 |"] 3))] |2))..(de|
|00000b60| 66 75 6e 20 63 61 6c 63 | 2d 6e 6f 77 20 28 61 72 |fun calc|-now (ar|
|00000b70| 67 29 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |g) (inte|ractive |
|00000b80| 22 50 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |"P") (by|te-code |
|00000b90| 22 c1 88 c2 c3 c4 08 23 | 87 22 20 5b 61 72 67 20 |"......#|." [arg |
|00000ba0| 6e 69 6c 20 63 61 6c 63 | 2d 64 61 74 65 2d 7a 65 |nil calc|-date-ze|
|00000bb0| 72 6f 2d 61 72 67 73 20 | 22 6e 6f 77 22 20 63 61 |ro-args |"now" ca|
|00000bc0| 6c 63 46 75 6e 63 2d 6e | 6f 77 5d 20 34 29 29 0a |lcFunc-n|ow] 4)).|
|00000bd0| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 64 61 74 |.(defun |calc-dat|
|00000be0| 65 2d 70 61 72 74 20 28 | 61 72 67 29 20 28 69 6e |e-part (|arg) (in|
|00000bf0| 74 65 72 61 63 74 69 76 | 65 20 22 4e 50 61 72 74 |teractiv|e "NPart|
|00000c00| 20 63 6f 64 65 20 28 31 | 2d 39 20 3d 20 59 2c 4d | code (1|-9 = Y,M|
|00000c10| 2c 44 2c 48 2c 4d 2c 53 | 2c 57 64 2c 59 64 2c 48 |,D,H,M,S|,Wd,Yd,H|
|00000c20| 6d 73 29 3a 20 22 29 20 | 28 62 79 74 65 2d 63 6f |ms): ") |(byte-co|
|00000c30| 64 65 20 22 c1 88 08 c2 | 57 86 0b 00 08 c3 56 85 |de "....|W.....V.|
|00000c40| 11 00 c4 c5 21 88 c6 c7 | 21 87 22 20 5b 61 72 67 |....!...|!." [arg|
|00000c50| 20 6e 69 6c 20 31 20 39 | 20 65 72 72 6f 72 20 22 | nil 1 9| error "|
|00000c60| 50 61 72 74 20 63 6f 64 | 65 20 6f 75 74 20 6f 66 |Part cod|e out of|
|00000c70| 20 72 61 6e 67 65 22 20 | 63 61 6c 63 2d 64 6f 20 | range" |calc-do |
|00000c80| 28 6c 61 6d 62 64 61 20 | 6e 69 6c 20 28 62 79 74 |(lambda |nil (byt|
|00000c90| 65 2d 63 6f 64 65 20 22 | c1 c2 08 c3 38 08 c4 38 |e-code "|....8..8|
|00000ca0| c5 c2 21 44 23 87 22 20 | 5b 61 72 67 20 63 61 6c |..!D#." |[arg cal|
|00000cb0| 63 2d 65 6e 74 65 72 2d | 72 65 73 75 6c 74 20 31 |c-enter-|result 1|
|00000cc0| 20 28 6e 69 6c 20 22 79 | 65 61 72 22 20 22 6d 6e | (nil "y|ear" "mn|
|00000cd0| 74 68 22 20 22 64 61 79 | 22 20 22 68 6f 75 72 22 |th" "day|" "hour"|
|00000ce0| 20 22 6d 69 6e 75 22 20 | 22 73 65 63 22 20 22 77 | "minu" |"sec" "w|
|00000cf0| 64 61 79 22 20 22 79 64 | 61 79 22 20 22 68 6d 73 |day" "yd|ay" "hms|
|00000d00| 74 22 29 20 28 6e 69 6c | 20 63 61 6c 63 46 75 6e |t") (nil| calcFun|
|00000d10| 63 2d 79 65 61 72 20 63 | 61 6c 63 46 75 6e 63 2d |c-year c|alcFunc-|
|00000d20| 6d 6f 6e 74 68 20 63 61 | 6c 63 46 75 6e 63 2d 64 |month ca|lcFunc-d|
|00000d30| 61 79 20 63 61 6c 63 46 | 75 6e 63 2d 68 6f 75 72 |ay calcF|unc-hour|
|00000d40| 20 63 61 6c 63 46 75 6e | 63 2d 6d 69 6e 75 74 65 | calcFun|c-minute|
|00000d50| 20 63 61 6c 63 46 75 6e | 63 2d 73 65 63 6f 6e 64 | calcFun|c-second|
|00000d60| 20 63 61 6c 63 46 75 6e | 63 2d 77 65 65 6b 64 61 | calcFun|c-weekda|
|00000d70| 79 20 63 61 6c 63 46 75 | 6e 63 2d 79 65 61 72 64 |y calcFu|nc-yeard|
|00000d80| 61 79 20 63 61 6c 63 46 | 75 6e 63 2d 74 69 6d 65 |ay calcF|unc-time|
|00000d90| 29 20 63 61 6c 63 2d 74 | 6f 70 2d 6e 5d 20 36 29 |) calc-t|op-n] 6)|
|00000da0| 29 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |)] 3))..|(defun c|
|00000db0| 61 6c 63 2d 64 61 74 65 | 20 28 61 72 67 29 20 28 |alc-date| (arg) (|
|00000dc0| 69 6e 74 65 72 61 63 74 | 69 76 65 20 22 70 22 29 |interact|ive "p")|
|00000dd0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 88 08 | (byte-c|ode "...|
|00000de0| c2 57 86 0b 00 08 c3 56 | 85 11 00 c4 c5 21 88 c6 |.W.....V|.....!..|
|00000df0| c7 21 87 22 20 5b 61 72 | 67 20 6e 69 6c 20 31 20 |.!." [ar|g nil 1 |
|00000e00| 36 20 65 72 72 6f 72 20 | 22 42 65 74 77 65 65 6e |6 error |"Between|
|00000e10| 20 6f 6e 65 20 61 6e 64 | 20 73 69 78 20 61 72 67 | one and| six arg|
|00000e20| 75 6d 65 6e 74 73 20 61 | 72 65 20 61 6c 6c 6f 77 |uments a|re allow|
|00000e30| 65 64 22 20 63 61 6c 63 | 2d 64 6f 20 28 6c 61 6d |ed" calc|-do (lam|
|00000e40| 62 64 61 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |bda nil |(byte-co|
|00000e50| 64 65 20 22 c1 08 c2 c3 | c4 08 21 42 23 87 22 20 |de "....|..!B#." |
|00000e60| 5b 61 72 67 20 63 61 6c | 63 2d 65 6e 74 65 72 2d |[arg cal|c-enter-|
|00000e70| 72 65 73 75 6c 74 20 22 | 64 61 74 65 22 20 63 61 |result "|date" ca|
|00000e80| 6c 63 46 75 6e 63 2d 64 | 61 74 65 20 63 61 6c 63 |lcFunc-d|ate calc|
|00000e90| 2d 74 6f 70 2d 6c 69 73 | 74 2d 6e 5d 20 36 29 29 |-top-lis|t-n] 6))|
|00000ea0| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 3))..(|defun ca|
|00000eb0| 6c 63 2d 6a 75 6c 69 61 | 6e 20 28 61 72 67 29 20 |lc-julia|n (arg) |
|00000ec0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 50 22 |(interac|tive "P"|
|00000ed0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 88 |) (byte-|code "..|
|00000ee0| c2 c3 c4 08 23 87 22 20 | 5b 61 72 67 20 6e 69 6c |....#." |[arg nil|
|00000ef0| 20 63 61 6c 63 2d 64 61 | 74 65 2d 6f 6e 65 2d 61 | calc-da|te-one-a|
|00000f00| 72 67 20 22 6a 75 6c 6e | 22 20 63 61 6c 63 46 75 |rg "juln|" calcFu|
|00000f10| 6e 63 2d 6a 75 6c 69 61 | 6e 5d 20 34 29 29 0a 0a |nc-julia|n] 4))..|
|00000f20| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 75 6e 69 78 |(defun c|alc-unix|
|00000f30| 2d 74 69 6d 65 20 28 61 | 72 67 29 20 28 69 6e 74 |-time (a|rg) (int|
|00000f40| 65 72 61 63 74 69 76 65 | 20 22 50 22 29 20 28 62 |eractive| "P") (b|
|00000f50| 79 74 65 2d 63 6f 64 65 | 20 22 c1 88 c2 c3 c4 08 |yte-code| "......|
|00000f60| 23 87 22 20 5b 61 72 67 | 20 6e 69 6c 20 63 61 6c |#." [arg| nil cal|
|00000f70| 63 2d 64 61 74 65 2d 6f | 6e 65 2d 61 72 67 20 22 |c-date-o|ne-arg "|
|00000f80| 75 6e 69 78 22 20 63 61 | 6c 63 46 75 6e 63 2d 75 |unix" ca|lcFunc-u|
|00000f90| 6e 69 78 74 69 6d 65 5d | 20 34 29 29 0a 0a 28 64 |nixtime]| 4))..(d|
|00000fa0| 65 66 75 6e 20 63 61 6c | 63 2d 74 69 6d 65 2d 7a |efun cal|c-time-z|
|00000fb0| 6f 6e 65 20 28 61 72 67 | 29 20 28 69 6e 74 65 72 |one (arg|) (inter|
|00000fc0| 61 63 74 69 76 65 20 22 | 50 22 29 20 28 62 79 74 |active "|P") (byt|
|00000fd0| 65 2d 63 6f 64 65 20 22 | c1 88 c2 c3 c4 08 23 87 |e-code "|......#.|
|00000fe0| 22 20 5b 61 72 67 20 6e | 69 6c 20 63 61 6c 63 2d |" [arg n|il calc-|
|00000ff0| 64 61 74 65 2d 7a 65 72 | 6f 2d 61 72 67 73 20 22 |date-zer|o-args "|
|00001000| 7a 6f 6e 65 22 20 63 61 | 6c 63 46 75 6e 63 2d 74 |zone" ca|lcFunc-t|
|00001010| 7a 6f 6e 65 5d 20 34 29 | 29 0a 0a 28 64 65 66 75 |zone] 4)|)..(defu|
|00001020| 6e 20 63 61 6c 63 2d 63 | 6f 6e 76 65 72 74 2d 74 |n calc-c|onvert-t|
|00001030| 69 6d 65 2d 7a 6f 6e 65 | 73 20 28 6f 6c 64 20 26 |ime-zone|s (old &|
|00001040| 6f 70 74 69 6f 6e 61 6c | 20 6e 65 77 29 20 28 69 |optional| new) (i|
|00001050| 6e 74 65 72 61 63 74 69 | 76 65 20 22 73 46 72 6f |nteracti|ve "sFro|
|00001060| 6d 20 74 69 6d 65 20 7a | 6f 6e 65 3a 20 22 29 20 |m time z|one: ") |
|00001070| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|00001080| 21 87 22 20 5b 6e 69 6c | 20 63 61 6c 63 2d 64 6f |!." [nil| calc-do|
|00001090| 20 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 62 79 | (lambda| nil (by|
|000010a0| 74 65 2d 63 6f 64 65 20 | 22 c2 08 c3 5c 22 83 13 |te-code |"...\"..|
|000010b0| 00 c4 c5 c6 c7 c8 c5 21 | 42 23 82 75 00 c2 08 c9 |.......!|B#.u....|
|000010c0| 5c 22 85 1d 00 ca 89 10 | 88 09 86 2a 00 cb cc 08 |\"......|...*....|
|000010d0| cd 51 21 89 11 88 08 3b | 85 35 00 ce 08 21 89 10 |.Q!....;|.5...!..|
|000010e0| 88 cf 08 21 d0 3d 85 44 | 00 d0 d1 d2 08 38 5c 22 |...!.=.D|.....8\"|
|000010f0| 88 c2 09 c9 5c 22 85 4f | 00 ca 89 11 88 09 3b 85 |....\".O|......;.|
|00001100| 5a 00 ce 09 21 89 11 88 | cf 09 21 d0 3d 85 69 00 |Z...!...|..!.=.i.|
|00001110| d0 d1 d2 09 38 5c 22 88 | c4 d2 c6 c7 d3 d2 21 08 |....8\".|......!.|
|00001120| 09 46 23 87 22 20 5b 6f | 6c 64 20 6e 65 77 20 65 |.F#." [o|ld new e|
|00001130| 71 75 61 6c 20 22 24 22 | 20 63 61 6c 63 2d 65 6e |qual "$"| calc-en|
|00001140| 74 65 72 2d 72 65 73 75 | 6c 74 20 33 20 22 74 7a |ter-resu|lt 3 "tz|
|00001150| 63 76 22 20 63 61 6c 63 | 46 75 6e 63 2d 74 7a 63 |cv" calc|Func-tzc|
|00001160| 6f 6e 76 20 63 61 6c 63 | 2d 74 6f 70 2d 6c 69 73 |onv calc|-top-lis|
|00001170| 74 2d 6e 20 22 22 20 22 | 6c 6f 63 61 6c 22 20 72 |t-n "" "|local" r|
|00001180| 65 61 64 2d 73 74 72 69 | 6e 67 20 22 46 72 6f 6d |ead-stri|ng "From|
|00001190| 20 74 69 6d 65 20 7a 6f | 6e 65 3a 20 22 20 22 2c | time zo|ne: " ",|
|000011a0| 20 74 6f 20 7a 6f 6e 65 | 3a 20 22 20 6d 61 74 68 | to zone|: " math|
|000011b0| 2d 72 65 61 64 2d 65 78 | 70 72 20 63 61 72 2d 73 |-read-ex|pr car-s|
|000011c0| 61 66 65 20 65 72 72 6f | 72 20 22 45 72 72 6f 72 |afe erro|r "Error|
|000011d0| 20 69 6e 20 65 78 70 72 | 65 73 73 69 6f 6e 3a 20 | in expr|ession: |
|000011e0| 22 20 31 20 63 61 6c 63 | 2d 74 6f 70 2d 6e 5d 20 |" 1 calc|-top-n] |
|000011f0| 32 30 29 29 5d 20 32 29 | 29 0a 0a 28 64 65 66 75 |20))] 2)|)..(defu|
|00001200| 6e 20 63 61 6c 63 2d 6e | 65 77 2d 77 65 65 6b 20 |n calc-n|ew-week |
|00001210| 28 61 72 67 29 20 28 69 | 6e 74 65 72 61 63 74 69 |(arg) (i|nteracti|
|00001220| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|00001230| 64 65 20 22 c1 88 c2 c3 | c4 08 23 87 22 20 5b 61 |de "....|..#." [a|
|00001240| 72 67 20 6e 69 6c 20 63 | 61 6c 63 2d 64 61 74 65 |rg nil c|alc-date|
|00001250| 2d 6f 6e 65 2d 61 72 67 | 20 22 6e 77 77 6b 22 20 |-one-arg| "nwwk" |
|00001260| 63 61 6c 63 46 75 6e 63 | 2d 6e 65 77 77 65 65 6b |calcFunc|-newweek|
|00001270| 5d 20 34 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 4))..(|defun ca|
|00001280| 6c 63 2d 6e 65 77 2d 6d | 6f 6e 74 68 20 28 61 72 |lc-new-m|onth (ar|
|00001290| 67 29 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |g) (inte|ractive |
|000012a0| 22 50 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |"P") (by|te-code |
|000012b0| 22 c1 88 c2 c3 c4 08 23 | 87 22 20 5b 61 72 67 20 |"......#|." [arg |
|000012c0| 6e 69 6c 20 63 61 6c 63 | 2d 64 61 74 65 2d 6f 6e |nil calc|-date-on|
|000012d0| 65 2d 61 72 67 20 22 6e | 77 6d 6e 22 20 63 61 6c |e-arg "n|wmn" cal|
|000012e0| 63 46 75 6e 63 2d 6e 65 | 77 6d 6f 6e 74 68 5d 20 |cFunc-ne|wmonth] |
|000012f0| 34 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |4))..(de|fun calc|
|00001300| 2d 6e 65 77 2d 79 65 61 | 72 20 28 61 72 67 29 20 |-new-yea|r (arg) |
|00001310| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 50 22 |(interac|tive "P"|
|00001320| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 88 |) (byte-|code "..|
|00001330| c2 c3 c4 08 23 87 22 20 | 5b 61 72 67 20 6e 69 6c |....#." |[arg nil|
|00001340| 20 63 61 6c 63 2d 64 61 | 74 65 2d 6f 6e 65 2d 61 | calc-da|te-one-a|
|00001350| 72 67 20 22 6e 77 79 72 | 22 20 63 61 6c 63 46 75 |rg "nwyr|" calcFu|
|00001360| 6e 63 2d 6e 65 77 79 65 | 61 72 5d 20 34 29 29 0a |nc-newye|ar] 4)).|
|00001370| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 69 6e 63 |.(defun |calc-inc|
|00001380| 2d 6d 6f 6e 74 68 20 28 | 61 72 67 29 20 28 69 6e |-month (|arg) (in|
|00001390| 74 65 72 61 63 74 69 76 | 65 20 22 70 22 29 20 28 |teractiv|e "p") (|
|000013a0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 88 c2 c3 c4 |byte-cod|e ".....|
|000013b0| 08 23 87 22 20 5b 61 72 | 67 20 6e 69 6c 20 63 61 |.#." [ar|g nil ca|
|000013c0| 6c 63 2d 64 61 74 65 2d | 6f 6e 65 2d 61 72 67 20 |lc-date-|one-arg |
|000013d0| 22 69 6e 63 6d 22 20 63 | 61 6c 63 46 75 6e 63 2d |"incm" c|alcFunc-|
|000013e0| 69 6e 63 6d 6f 6e 74 68 | 5d 20 34 29 29 0a 0a 28 |incmonth|] 4))..(|
|000013f0| 64 65 66 75 6e 20 63 61 | 6c 63 2d 62 75 73 69 6e |defun ca|lc-busin|
|00001400| 65 73 73 2d 64 61 79 73 | 2d 70 6c 75 73 20 28 61 |ess-days|-plus (a|
|00001410| 72 67 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |rg) (int|eractive|
|00001420| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|00001430| 20 22 c0 88 c1 c2 21 87 | 22 20 5b 6e 69 6c 20 63 | "....!.|" [nil c|
|00001440| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|00001450| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |il (byte|-code ".|
|00001460| c2 c3 08 23 87 22 20 5b | 61 72 67 20 63 61 6c 63 |...#." [|arg calc|
|00001470| 2d 62 69 6e 61 72 79 2d | 6f 70 20 22 62 75 73 2b |-binary-|op "bus+|
|00001480| 22 20 63 61 6c 63 46 75 | 6e 63 2d 62 61 64 64 5d |" calcFu|nc-badd]|
|00001490| 20 34 29 29 5d 20 32 29 | 29 0a 0a 28 64 65 66 75 | 4))] 2)|)..(defu|
|000014a0| 6e 20 63 61 6c 63 2d 62 | 75 73 69 6e 65 73 73 2d |n calc-b|usiness-|
|000014b0| 64 61 79 73 2d 6d 69 6e | 75 73 20 28 61 72 67 29 |days-min|us (arg)|
|000014c0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 50 | (intera|ctive "P|
|000014d0| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |") (byte|-code ".|
|000014e0| 88 c1 c2 21 87 22 20 5b | 6e 69 6c 20 63 61 6c 63 |...!." [|nil calc|
|000014f0| 2d 64 6f 20 28 6c 61 6d | 62 64 61 20 6e 69 6c 20 |-do (lam|bda nil |
|00001500| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 c2 c3 08 |(byte-co|de "....|
|00001510| 23 87 22 20 5b 61 72 67 | 20 63 61 6c 63 2d 62 69 |#." [arg| calc-bi|
|00001520| 6e 61 72 79 2d 6f 70 20 | 22 62 75 73 2d 22 20 63 |nary-op |"bus-" c|
|00001530| 61 6c 63 46 75 6e 63 2d | 62 73 75 62 5d 20 34 29 |alcFunc-|bsub] 4)|
|00001540| 29 5d 20 32 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |)] 2))..|(defun c|
|00001550| 61 6c 63 2d 64 61 74 65 | 2d 7a 65 72 6f 2d 61 72 |alc-date|-zero-ar|
|00001560| 67 73 20 28 70 72 65 66 | 69 78 20 66 75 6e 63 20 |gs (pref|ix func |
|00001570| 61 72 67 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |arg) (by|te-code |
|00001580| 22 c0 c1 21 87 22 20 5b | 63 61 6c 63 2d 64 6f 20 |"..!." [|calc-do |
|00001590| 28 6c 61 6d 62 64 61 20 | 6e 69 6c 20 28 62 79 74 |(lambda |nil (byt|
|000015a0| 65 2d 63 6f 64 65 20 22 | 08 3a 83 11 00 c3 c4 09 |e-code "|.:......|
|000015b0| 0a c5 c4 21 44 23 82 23 | 00 c3 c6 09 08 83 20 00 |...!D#.#|...... .|
|000015c0| 0a c7 08 21 44 82 5c 22 | 00 0a 43 23 87 22 20 5b |...!D.\"|..C#." [|
|000015d0| 61 72 67 20 70 72 65 66 | 69 78 20 66 75 6e 63 20 |arg pref|ix func |
|000015e0| 63 61 6c 63 2d 65 6e 74 | 65 72 2d 72 65 73 75 6c |calc-ent|er-resul|
|000015f0| 74 20 31 20 63 61 6c 63 | 2d 74 6f 70 2d 6e 20 30 |t 1 calc|-top-n 0|
|00001600| 20 70 72 65 66 69 78 2d | 6e 75 6d 65 72 69 63 2d | prefix-|numeric-|
|00001610| 76 61 6c 75 65 5d 20 38 | 29 29 5d 20 32 29 29 0a |value] 8|))] 2)).|
|00001620| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 64 61 74 |.(defun |calc-dat|
|00001630| 65 2d 6f 6e 65 2d 61 72 | 67 20 28 70 72 65 66 69 |e-one-ar|g (prefi|
|00001640| 78 20 66 75 6e 63 20 61 | 72 67 29 20 28 62 79 74 |x func a|rg) (byt|
|00001650| 65 2d 63 6f 64 65 20 22 | c0 c1 21 87 22 20 5b 63 |e-code "|..!." [c|
|00001660| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|00001670| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |il (byte|-code ".|
|00001680| 3a 83 11 00 c3 c4 09 0a | c5 c4 21 42 23 82 29 00 |:.......|..!B#.).|
|00001690| c3 c6 09 08 83 23 00 0a | c7 c6 21 c8 08 21 45 82 |.....#..|..!..!E.|
|000016a0| 28 00 0a c7 c6 21 44 23 | 87 22 20 5b 61 72 67 20 |(....!D#|." [arg |
|000016b0| 70 72 65 66 69 78 20 66 | 75 6e 63 20 63 61 6c 63 |prefix f|unc calc|
|000016c0| 2d 65 6e 74 65 72 2d 72 | 65 73 75 6c 74 20 32 20 |-enter-r|esult 2 |
|000016d0| 63 61 6c 63 2d 74 6f 70 | 2d 6c 69 73 74 2d 6e 20 |calc-top|-list-n |
|000016e0| 31 20 63 61 6c 63 2d 74 | 6f 70 2d 6e 20 70 72 65 |1 calc-t|op-n pre|
|000016f0| 66 69 78 2d 6e 75 6d 65 | 72 69 63 2d 76 61 6c 75 |fix-nume|ric-valu|
|00001700| 65 5d 20 31 30 29 29 5d | 20 32 29 29 0a 0a 28 64 |e] 10))]| 2))..(d|
|00001710| 65 66 75 6e 20 6d 61 74 | 68 2d 6e 6f 72 6d 61 6c |efun mat|h-normal|
|00001720| 69 7a 65 2d 68 6d 73 20 | 28 61 29 20 28 62 79 74 |ize-hms |(a) (byt|
|00001730| 65 2d 63 6f 64 65 20 22 | c5 c6 09 38 21 c5 c7 09 |e-code "|...8!...|
|00001740| 38 21 0c c8 5a c9 5d 1c | c5 c9 09 38 21 29 1b 1a |8!..Z.].|...8!)..|
|00001750| 18 ca 08 21 83 71 00 cb | 0b 21 85 30 00 cc 0b cd |...!.q..|.!.0....|
|00001760| 5c 22 13 cc 0a c6 5c 22 | 89 12 88 cb 0a 21 85 42 |\"....\"|.....!.B|
|00001770| 00 cc 0a cd 5c 22 12 cc | 08 c6 5c 22 89 10 88 ce |....\"..|..\"....|
|00001780| cd 0b 5c 22 cf 55 3f 85 | 58 00 cc 0b d0 5c 22 13 |..\".U?.|X....\".|
|00001790| cc 0a cf 5c 22 89 12 88 | ce cd 0a 5c 22 cf 55 3f |...\"...|...\".U?|
|000017a0| 85 6e 00 cc 0a d0 5c 22 | 12 cc 08 cf 5c 22 89 10 |.n....\"|....\"..|
|000017b0| 82 c0 00 ca 0b 21 85 82 | 00 cc 0b d0 5c 22 13 cc |.....!..|....\"..|
|000017c0| 0a cf 5c 22 89 12 88 ca | 0a 21 85 94 00 cc 0a d0 |..\"....|.!......|
|000017d0| 5c 22 12 cc 08 cf 5c 22 | 89 10 88 ce 0b d0 5c 22 |\"....\"|......\"|
|000017e0| cf 55 3f 85 aa 00 cc 0b | cd 5c 22 13 cc 0a c6 5c |.U?.....|.\"....\|
|000017f0| 22 89 12 88 ce 0a d0 5c | 22 cf 55 3f 85 c0 00 cc |"......\|".U?....|
|00001800| 0a cd 5c 22 12 cc 08 c6 | 5c 22 89 10 88 d1 0b 21 |..\"....|\".....!|
|00001810| d2 3d 85 d6 00 d3 c6 0b | 38 21 c7 0b 38 5c 5c c7 |.=......|8!..8\\.|
|00001820| 0c 5a 58 85 dc 00 d4 89 | 13 88 d5 08 0a 0b 46 2b |.ZX.....|......F+|
|00001830| 87 22 20 5b 68 20 61 20 | 6d 20 73 20 63 61 6c 63 |." [h a |m s calc|
|00001840| 2d 69 6e 74 65 72 6e 61 | 6c 2d 70 72 65 63 20 6d |-interna|l-prec m|
|00001850| 61 74 68 2d 6e 6f 72 6d | 61 6c 69 7a 65 20 31 20 |ath-norm|alize 1 |
|00001860| 32 20 34 20 33 20 6d 61 | 74 68 2d 6e 65 67 70 20 |2 4 3 ma|th-negp |
|00001870| 6d 61 74 68 2d 70 6f 73 | 70 20 6d 61 74 68 2d 61 |math-pos|p math-a|
|00001880| 64 64 20 2d 36 30 20 6d | 61 74 68 2d 63 6f 6d 70 |dd -60 m|ath-comp|
|00001890| 61 72 65 20 2d 31 20 36 | 30 20 63 61 72 2d 73 61 |are -1 6|0 car-sa|
|000018a0| 66 65 20 66 6c 6f 61 74 | 20 6d 61 74 68 2d 6e 75 |fe float| math-nu|
|000018b0| 6d 64 69 67 73 20 30 20 | 68 6d 73 5d 20 33 34 29 |mdigs 0 |hms] 34)|
|000018c0| 29 0a 0a 28 64 65 66 75 | 6e 20 6d 61 74 68 2d 74 |)..(defu|n math-t|
|000018d0| 6f 2d 68 6d 73 20 28 61 | 20 26 6f 70 74 69 6f 6e |o-hms (a| &option|
|000018e0| 61 6c 20 61 6e 67 29 20 | 28 62 79 74 65 2d 63 6f |al ang) |(byte-co|
|000018f0| 64 65 20 22 c7 08 21 c8 | 3d 83 0c 00 08 82 8d 00 |de "..!.|=.......|
|00001900| c7 08 21 c9 3d 83 23 00 | ca cb cc 08 38 21 cb cd |..!.=.#.|....8!..|
|00001910| 08 38 21 5c 22 82 8d 00 | 08 3a 3f 86 2d 00 08 40 |.8!\"...|.:?.-..@|
|00001920| ce 3e 3f 83 37 00 cf 08 | 44 82 8d 00 d0 08 21 83 |.>?.7...|D.....!.|
|00001930| 48 00 d1 cb d1 08 21 09 | 5c 22 21 82 8d 00 09 86 |H.....!.|\"!.....|
|00001940| 4d 00 0a d2 3d 83 5d 00 | cb d3 08 d4 20 5c 22 d5 |M...=.].|.... \".|
|00001950| 5c 22 82 8d 00 c7 08 21 | d6 3e 83 69 00 08 82 8d |\".....!|.>.i....|
|00001960| 00 d7 d8 08 d9 5c 22 1c | da d3 0c db 5c 22 21 1d |.....\".|....\"!.|
|00001970| dc 0d db 5c 22 1e 06 c8 | 0e 06 40 0e 06 41 dd 0c |...\"...|..@..A..|
|00001980| d8 0d db 5c 22 5c 22 46 | 2b 21 87 22 20 5b 61 20 |...\"\"F|+!." [a |
|00001990| 61 6e 67 20 63 61 6c 63 | 2d 61 6e 67 6c 65 2d 6d |ang calc|-angle-m|
|000019a0| 6f 64 65 20 74 20 62 20 | 68 6d 20 68 6d 64 20 63 |ode t b |hm hmd c|
|000019b0| 61 72 2d 73 61 66 65 20 | 68 6d 73 20 73 64 65 76 |ar-safe |hms sdev|
|000019c0| 20 6d 61 74 68 2d 6d 61 | 6b 65 2d 73 64 65 76 20 | math-ma|ke-sdev |
|000019d0| 6d 61 74 68 2d 74 6f 2d | 68 6d 73 20 31 20 32 20 |math-to-|hms 1 2 |
|000019e0| 28 62 69 67 70 6f 73 20 | 62 69 67 6e 65 67 20 66 |(bigpos |bigneg f|
|000019f0| 72 61 63 20 66 6c 6f 61 | 74 20 63 70 6c 78 20 70 |rac floa|t cplx p|
|00001a00| 6f 6c 61 72 29 20 63 61 | 6c 63 46 75 6e 63 2d 68 |olar) ca|lcFunc-h|
|00001a10| 6d 73 20 6d 61 74 68 2d | 6e 65 67 70 20 6d 61 74 |ms math-|negp mat|
|00001a20| 68 2d 6e 65 67 20 72 61 | 64 20 6d 61 74 68 2d 64 |h-neg ra|d math-d|
|00001a30| 69 76 20 6d 61 74 68 2d | 70 69 2d 6f 76 65 72 2d |iv math-|pi-over-|
|00001a40| 31 38 30 20 64 65 67 20 | 28 63 70 6c 78 20 70 6f |180 deg |(cplx po|
|00001a50| 6c 61 72 29 20 6d 61 74 | 68 2d 6e 6f 72 6d 61 6c |lar) mat|h-normal|
|00001a60| 69 7a 65 20 6d 61 74 68 | 2d 6d 75 6c 20 33 36 30 |ize math|-mul 360|
|00001a70| 30 20 6d 61 74 68 2d 74 | 72 75 6e 63 20 36 30 20 |0 math-t|runc 60 |
|00001a80| 6d 61 74 68 2d 69 64 69 | 76 6d 6f 64 20 6d 61 74 |math-idi|vmod mat|
|00001a90| 68 2d 73 75 62 5d 20 32 | 36 29 29 0a 0a 28 64 65 |h-sub] 2|6))..(de|
|00001aa0| 66 75 6e 20 63 61 6c 63 | 46 75 6e 63 2d 68 6d 73 |fun calc|Func-hms|
|00001ab0| 20 28 68 20 26 6f 70 74 | 69 6f 6e 61 6c 20 6d 20 | (h &opt|ional m |
|00001ac0| 73 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |s) (byte|-code ".|
|00001ad0| 3a 3f 86 0a 00 08 40 c3 | 3e 86 11 00 c4 08 c5 5c |:?....@.|>......\|
|00001ae0| 22 88 09 86 19 00 c6 89 | 11 88 09 3a 3f 86 24 00 |".......|...:?.$.|
|00001af0| 09 40 c7 3e 86 2b 00 c4 | 09 c5 5c 22 88 0a 86 33 |.@.>.+..|..\"...3|
|00001b00| 00 c6 89 12 88 0a 3a 3f | 86 3e 00 0a 40 c8 3e 86 |......:?|.>..@.>.|
|00001b10| 45 00 c4 0a c5 5c 22 88 | c9 09 c6 5c 22 ca 55 3f |E....\".|...\".U?|
|00001b20| 85 69 00 c9 09 cb 5c 22 | ca 55 85 69 00 c9 0a c6 |.i....\"|.U.i....|
|00001b30| 5c 22 ca 55 3f 85 69 00 | c9 0a cb 5c 22 ca 55 83 |\".U?.i.|...\".U.|
|00001b40| 79 00 cc cd 08 21 ce c6 | 09 0a 46 5c 22 82 91 00 |y....!..|..F\"...|
|00001b50| cd cc 08 cc cf 09 86 83 | 00 c6 cb 5c 22 cf 0a 86 |........|...\"...|
|00001b60| 8b 00 c6 d0 5c 22 5c 22 | 5c 22 d1 5c 22 87 22 20 |....\"\"|\".\"." |
|00001b70| 5b 68 20 6d 20 73 20 28 | 62 69 67 70 6f 73 20 62 |[h m s (|bigpos b|
|00001b80| 69 67 6e 65 67 20 66 72 | 61 63 20 66 6c 6f 61 74 |igneg fr|ac float|
|00001b90| 29 20 6d 61 74 68 2d 72 | 65 6a 65 63 74 2d 61 72 |) math-r|eject-ar|
|00001ba0| 67 20 72 65 61 6c 70 20 | 30 20 28 62 69 67 70 6f |g realp |0 (bigpo|
|00001bb0| 73 20 62 69 67 6e 65 67 | 20 66 72 61 63 20 66 6c |s bigneg| frac fl|
|00001bc0| 6f 61 74 29 20 28 62 69 | 67 70 6f 73 20 62 69 67 |oat) (bi|gpos big|
|00001bd0| 6e 65 67 20 66 72 61 63 | 20 66 6c 6f 61 74 29 20 |neg frac| float) |
|00001be0| 6d 61 74 68 2d 63 6f 6d | 70 61 72 65 20 2d 31 20 |math-com|pare -1 |
|00001bf0| 36 30 20 6d 61 74 68 2d | 61 64 64 20 6d 61 74 68 |60 math-|add math|
|00001c00| 2d 74 6f 2d 68 6d 73 20 | 68 6d 73 20 6d 61 74 68 |-to-hms |hms math|
|00001c10| 2d 64 69 76 20 33 36 30 | 30 20 64 65 67 5d 20 31 |-div 360|0 deg] 1|
|00001c20| 38 29 29 0a 0a 28 64 65 | 66 75 6e 20 6d 61 74 68 |8))..(de|fun math|
|00001c30| 2d 66 72 6f 6d 2d 68 6d | 73 20 28 61 20 26 6f 70 |-from-hm|s (a &op|
|00001c40| 74 69 6f 6e 61 6c 20 61 | 6e 67 29 20 28 62 79 74 |tional a|ng) (byt|
|00001c50| 65 2d 63 6f 64 65 20 22 | c4 08 21 c5 3d 3f 83 49 |e-code "|..!.=?.I|
|00001c60| 00 08 3a 3f 86 13 00 08 | 40 c6 3e 83 1a 00 08 82 |..:?....|@.>.....|
|00001c70| 46 00 c4 08 21 c7 3d 83 | 33 00 c8 c9 ca 08 38 09 |F...!.=.|3.....8.|
|00001c80| 5c 22 c9 cb 08 38 09 5c | 22 5c 22 82 46 00 09 86 |\"...8.\|"\".F...|
|00001c90| 38 00 0a cc 3d 83 43 00 | cd 08 44 82 46 00 ce 08 |8...=.C.|..D.F...|
|00001ca0| 44 82 82 00 cf 08 21 83 | 5a 00 d0 c9 d0 08 21 09 |D.....!.|Z.....!.|
|00001cb0| 5c 22 21 82 82 00 09 86 | 5f 00 0a cc 3d 83 6f 00 |\"!.....|_...=.o.|
|00001cc0| d1 c9 08 d2 5c 22 d3 20 | 5c 22 82 82 00 d4 d5 d4 |....\". |\"......|
|00001cd0| d5 d6 08 38 d7 5c 22 cb | 08 38 5c 22 d8 5c 22 ca |...8.\".|.8\".\".|
|00001ce0| 08 38 5c 22 87 22 20 5b | 61 20 61 6e 67 20 63 61 |.8\"." [|a ang ca|
|00001cf0| 6c 63 2d 61 6e 67 6c 65 | 2d 6d 6f 64 65 20 74 20 |lc-angle|-mode t |
|00001d00| 63 61 72 2d 73 61 66 65 | 20 68 6d 73 20 28 62 69 |car-safe| hms (bi|
|00001d10| 67 70 6f 73 20 62 69 67 | 6e 65 67 20 66 72 61 63 |gpos big|neg frac|
|00001d20| 20 66 6c 6f 61 74 20 63 | 70 6c 78 20 70 6f 6c 61 | float c|plx pola|
|00001d30| 72 29 20 73 64 65 76 20 | 6d 61 74 68 2d 6d 61 6b |r) sdev |math-mak|
|00001d40| 65 2d 73 64 65 76 20 6d | 61 74 68 2d 66 72 6f 6d |e-sdev m|ath-from|
|00001d50| 2d 68 6d 73 20 31 20 32 | 20 72 61 64 20 63 61 6c |-hms 1 2| rad cal|
|00001d60| 63 46 75 6e 63 2d 72 61 | 64 20 63 61 6c 63 46 75 |cFunc-ra|d calcFu|
|00001d70| 6e 63 2d 64 65 67 20 6d | 61 74 68 2d 6e 65 67 70 |nc-deg m|ath-negp|
|00001d80| 20 6d 61 74 68 2d 6e 65 | 67 20 6d 61 74 68 2d 6d | math-ne|g math-m|
|00001d90| 75 6c 20 64 65 67 20 6d | 61 74 68 2d 70 69 2d 6f |ul deg m|ath-pi-o|
|00001da0| 76 65 72 2d 31 38 30 20 | 6d 61 74 68 2d 61 64 64 |ver-180 |math-add|
|00001db0| 20 6d 61 74 68 2d 64 69 | 76 20 33 20 28 66 6c 6f | math-di|v 3 (flo|
|00001dc0| 61 74 20 36 20 31 29 20 | 36 30 5d 20 31 39 29 29 |at 6 1) |60] 19))|
|00001dd0| 0a 0a 28 64 65 66 75 6e | 20 6d 61 74 68 2d 64 61 |..(defun| math-da|
|00001de0| 74 65 2d 74 6f 2d 64 74 | 20 28 76 61 6c 75 65 29 |te-to-dt| (value)|
|00001df0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c8 08 21 | (byte-c|ode "..!|
|00001e00| c2 3d 85 0d 00 c9 08 38 | 89 10 88 ca 08 21 86 18 |.=.....8|.....!..|
|00001e10| 00 cb 08 cc 5c 22 88 cd | 08 21 19 09 40 1a c9 09 |....\"..|.!..@...|
|00001e20| 38 1b c9 1c ce 1d cf d0 | 0a d1 0a d2 5c 22 d3 55 |8.......|....\".U|
|00001e30| 83 38 00 d4 82 39 00 d5 | 5c 22 d6 08 21 83 44 00 |.8...9..|\"..!.D.|
|00001e40| d7 82 45 00 d4 5c 22 1e | 06 ce 1e 07 d1 0a d8 0e |..E..\".|........|
|00001e50| 06 c9 c9 23 89 16 07 5c | 22 d3 55 85 68 00 d0 0e |...#...\|".U.h...|
|00001e60| 06 d3 5c 22 89 16 06 88 | 82 4b 00 88 0e 06 d9 3d |..\"....|.K.....=|
|00001e70| 85 74 00 d3 89 16 06 88 | da 0a 0e 07 5c 22 54 89 |.t......|....\"T.|
|00001e80| 12 88 0e 06 db 3d 85 90 | 00 0a dc 59 85 90 00 0a |.....=..|...Y....|
|00001e90| dd 5c 5c 89 12 88 de 0e | 06 21 83 9c 00 df 82 9d |.\\.....|.!......|
|00001ea0| 00 e0 89 16 07 88 0a 0e | 07 0c 48 59 85 b2 00 0c |........|..HY....|
|00001eb0| 54 89 14 88 82 a1 00 88 | 0a 0e 07 0c 53 48 5a 54 |T.......|....SHZT|
|00001ec0| 89 15 88 e1 08 21 83 cc | 00 0e 06 0c 0d 45 82 e7 |.....!..|.....E..|
|00001ed0| 00 e2 0e 06 0c 0d e3 0b | e4 5c 22 e5 e3 0b e6 5c |........|.\"....\|
|00001ee0| 22 e6 5c 22 d0 e5 0b e6 | 5c 22 e7 09 38 5c 22 26 |".\"....|\"..8\"&|
|00001ef0| 06 2e 07 87 22 20 5b 76 | 61 6c 75 65 20 70 61 72 |...." [v|alue par|
|00001f00| 74 73 20 64 61 74 65 20 | 74 69 6d 65 20 6d 6f 6e |ts date |time mon|
|00001f10| 74 68 20 64 61 79 20 79 | 65 61 72 20 74 65 6d 70 |th day y|ear temp|
|00001f20| 20 63 61 72 2d 73 61 66 | 65 20 31 20 6d 61 74 68 | car-saf|e 1 math|
|00001f30| 2d 72 65 61 6c 70 20 6d | 61 74 68 2d 72 65 6a 65 |-realp m|ath-reje|
|00001f40| 63 74 2d 61 72 67 20 64 | 61 74 65 70 20 6d 61 74 |ct-arg d|atep mat|
|00001f50| 68 2d 64 61 74 65 2d 70 | 61 72 74 73 20 6e 69 6c |h-date-p|arts nil|
|00001f60| 20 6d 61 74 68 2d 71 75 | 6f 74 69 65 6e 74 20 6d | math-qu|otient m|
|00001f70| 61 74 68 2d 61 64 64 20 | 6d 61 74 68 2d 63 6f 6d |ath-add |math-com|
|00001f80| 70 61 72 65 20 37 31 31 | 38 35 39 20 2d 31 20 33 |pare 711|859 -1 3|
|00001f90| 36 35 20 2d 31 30 38 20 | 6d 61 74 68 2d 6e 65 67 |65 -108 |math-neg|
|00001fa0| 70 20 33 36 36 20 6d 61 | 74 68 2d 61 62 73 6f 6c |p 366 ma|th-absol|
|00001fb0| 75 74 65 2d 66 72 6f 6d | 2d 64 61 74 65 20 30 20 |ute-from|-date 0 |
|00001fc0| 6d 61 74 68 2d 73 75 62 | 20 31 37 35 32 20 32 34 |math-sub| 1752 24|
|00001fd0| 37 20 31 31 20 6d 61 74 | 68 2d 6c 65 61 70 2d 79 |7 11 mat|h-leap-y|
|00001fe0| 65 61 72 2d 70 20 5b 31 | 20 33 32 20 36 31 20 39 |ear-p [1| 32 61 9|
|00001ff0| 32 20 31 32 32 20 31 35 | 33 20 31 38 33 20 32 31 |2 122 15|3 183 21|
|00002000| 34 20 32 34 35 20 32 37 | 35 20 33 30 36 20 33 33 |4 245 27|5 306 33|
|00002010| 36 20 39 39 39 5d 20 5b | 31 20 33 32 20 36 30 20 |6 999] [|1 32 60 |
|00002020| 39 31 20 31 32 31 20 31 | 35 32 20 31 38 32 20 32 |91 121 1|52 182 2|
|00002030| 31 33 20 32 34 34 20 32 | 37 34 20 33 30 35 20 33 |13 244 2|74 305 3|
|00002040| 33 35 20 39 39 39 5d 20 | 6d 61 74 68 2d 69 6e 74 |35 999] |math-int|
|00002050| 65 67 65 72 70 20 6c 69 | 73 74 20 2f 20 33 36 30 |egerp li|st / 360|
|00002060| 30 20 25 20 36 30 20 32 | 5d 20 32 38 29 29 0a 0a |0 % 60 2|] 28))..|
|00002070| 28 64 65 66 75 6e 20 6d | 61 74 68 2d 64 74 2d 74 |(defun m|ath-dt-t|
|00002080| 6f 2d 64 61 74 65 20 28 | 64 74 29 20 28 62 79 74 |o-date (|dt) (byt|
|00002090| 65 2d 63 6f 64 65 20 22 | c2 c3 08 38 21 86 0e 00 |e-code "|...8!...|
|000020a0| c4 c3 08 38 c5 5c 22 88 | c3 08 38 c3 57 86 1c 00 |...8.\".|..8.W...|
|000020b0| c3 08 38 c6 56 85 25 00 | c4 c3 08 38 c7 5c 22 88 |..8.V.%.|...8.\".|
|000020c0| c2 c8 08 38 21 86 34 00 | c4 c8 08 38 c5 5c 22 88 |...8!.4.|...8.\".|
|000020d0| c8 08 38 c3 57 86 42 00 | c8 08 38 c9 56 85 4b 00 |..8.W.B.|..8.V.K.|
|000020e0| c4 c8 08 38 ca 5c 22 88 | cb 08 40 c3 08 38 c8 08 |...8.\".|..@..8..|
|000020f0| 38 23 19 cc 08 38 83 7a | 00 cd ce 09 21 cf cd d0 |8#...8.z|....!...|
|00002100| cc 08 38 d1 5c 22 d0 d2 | 08 38 d3 5c 22 5c 5c d4 |..8.\"..|.8.\"\\.|
|00002110| 08 38 5c 22 d5 5c 22 5c | 22 82 7b 00 09 29 87 22 |.8\".\"\|".{..)."|
|00002120| 20 5b 64 74 20 64 61 74 | 65 20 69 6e 74 65 67 65 | [dt dat|e intege|
|00002130| 72 70 20 31 20 6d 61 74 | 68 2d 72 65 6a 65 63 74 |rp 1 mat|h-reject|
|00002140| 2d 61 72 67 20 66 69 78 | 6e 75 6d 70 20 31 32 20 |-arg fix|nump 12 |
|00002150| 22 4d 6f 6e 74 68 20 76 | 61 6c 75 65 20 69 73 20 |"Month v|alue is |
|00002160| 6f 75 74 20 6f 66 20 72 | 61 6e 67 65 22 20 32 20 |out of r|ange" 2 |
|00002170| 33 31 20 22 44 61 79 20 | 76 61 6c 75 65 20 69 73 |31 "Day |value is|
|00002180| 20 6f 75 74 20 6f 66 20 | 72 61 6e 67 65 22 20 6d | out of |range" m|
|00002190| 61 74 68 2d 61 62 73 6f | 6c 75 74 65 2d 66 72 6f |ath-abso|lute-fro|
|000021a0| 6d 2d 64 61 74 65 20 33 | 20 6d 61 74 68 2d 61 64 |m-date 3| math-ad|
|000021b0| 64 20 6d 61 74 68 2d 66 | 6c 6f 61 74 20 6d 61 74 |d math-f|loat mat|
|000021c0| 68 2d 64 69 76 20 2a 20 | 33 36 30 30 20 34 20 36 |h-div * |3600 4 6|
|000021d0| 30 20 35 20 28 66 6c 6f | 61 74 20 38 36 34 20 32 |0 5 (flo|at 864 2|
|000021e0| 29 5d 20 31 37 29 29 0a | 0a 28 64 65 66 75 6e 20 |)] 17)).|.(defun |
|000021f0| 6d 61 74 68 2d 64 61 74 | 65 2d 70 61 72 74 73 20 |math-dat|e-parts |
|00002200| 28 76 61 6c 75 65 20 26 | 6f 70 74 69 6f 6e 61 6c |(value &|optional|
|00002210| 20 6f 66 66 73 65 74 29 | 20 28 62 79 74 65 2d 63 | offset)| (byte-c|
|00002220| 6f 64 65 20 22 c6 09 21 | 18 c7 c8 c9 09 0b 86 0d |ode "..!|........|
|00002230| 00 08 5c 22 ca 5c 22 0c | cb 56 85 19 00 0c cb 5a |..\".\".|.V.....Z|
|00002240| 5c 22 1a c6 0a 21 1d 08 | 0d c9 0a 0d 5c 22 45 2b |\"...!..|....\"E+|
|00002250| 87 22 20 5b 64 61 74 65 | 20 76 61 6c 75 65 20 74 |." [date| value t|
|00002260| 69 6d 65 20 6f 66 66 73 | 65 74 20 63 61 6c 63 2d |ime offs|et calc-|
|00002270| 69 6e 74 65 72 6e 61 6c | 2d 70 72 65 63 20 66 74 |internal|-prec ft|
|00002280| 69 6d 65 20 6d 61 74 68 | 2d 66 6c 6f 6f 72 20 6d |ime math|-floor m|
|00002290| 61 74 68 2d 72 6f 75 6e | 64 20 6d 61 74 68 2d 6d |ath-roun|d math-m|
|000022a0| 75 6c 20 6d 61 74 68 2d | 73 75 62 20 38 36 34 30 |ul math-|sub 8640|
|000022b0| 30 20 31 32 5d 20 31 30 | 29 29 0a 0a 28 64 65 66 |0 12] 10|))..(def|
|000022c0| 75 6e 20 6d 61 74 68 2d | 74 68 69 73 2d 79 65 61 |un math-|this-yea|
|000022d0| 72 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |r nil (b|yte-code|
|000022e0| 20 22 c0 c1 20 c2 c3 4f | 21 87 22 20 5b 73 74 72 | ".. ..O|!." [str|
|000022f0| 69 6e 67 2d 74 6f 2d 69 | 6e 74 20 63 75 72 72 65 |ing-to-i|nt curre|
|00002300| 6e 74 2d 74 69 6d 65 2d | 73 74 72 69 6e 67 20 2d |nt-time-|string -|
|00002310| 34 20 6e 69 6c 5d 20 35 | 29 29 0a 0a 28 64 65 66 |4 nil] 5|))..(def|
|00002320| 75 6e 20 6d 61 74 68 2d | 6c 65 61 70 2d 79 65 61 |un math-|leap-yea|
|00002330| 72 2d 70 20 28 79 65 61 | 72 29 20 28 62 79 74 65 |r-p (yea|r) (byte|
|00002340| 2d 63 6f 64 65 20 22 c1 | 08 c2 5c 22 c3 55 83 23 |-code ".|..\".U.#|
|00002350| 00 c4 08 21 83 1a 00 c5 | c6 08 21 c7 5c 22 c8 55 |...!....|..!.\".U|
|00002360| 82 20 00 c5 08 c7 5c 22 | c9 55 82 40 00 c5 08 ca |. ....\"|.U.@....|
|00002370| 5c 22 89 10 88 cb 08 c7 | 5c 22 c9 55 85 3a 00 cc |\"......|\".U.:..|
|00002380| cb 08 cd 5c 22 c9 5c 22 | 86 40 00 08 c9 55 87 22 |...\".\"|.@...U."|
|00002390| 20 5b 79 65 61 72 20 6d | 61 74 68 2d 63 6f 6d 70 | [year m|ath-comp|
|000023a0| 61 72 65 20 31 37 35 32 | 20 2d 31 20 6d 61 74 68 |are 1752| -1 math|
|000023b0| 2d 6e 65 67 70 20 6d 61 | 74 68 2d 69 6d 6f 64 20 |-negp ma|th-imod |
|000023c0| 6d 61 74 68 2d 6e 65 67 | 20 34 20 31 20 30 20 34 |math-neg| 4 1 0 4|
|000023d0| 30 30 20 25 20 2f 3d 20 | 31 30 30 5d 20 31 31 29 |00 % /= |100] 11)|
|000023e0| 29 0a 0a 28 64 65 66 75 | 6e 20 6d 61 74 68 2d 64 |)..(defu|n math-d|
|000023f0| 61 79 73 2d 69 6e 2d 6d | 6f 6e 74 68 20 28 79 65 |ays-in-m|onth (ye|
|00002400| 61 72 20 6d 6f 6e 74 68 | 29 20 28 62 79 74 65 2d |ar month|) (byte-|
|00002410| 63 6f 64 65 20 22 08 c2 | 55 85 09 00 c3 09 21 83 |code "..|U.....!.|
|00002420| 10 00 c4 82 14 00 c5 08 | 53 48 87 22 20 5b 6d 6f |........|SH." [mo|
|00002430| 6e 74 68 20 79 65 61 72 | 20 32 20 6d 61 74 68 2d |nth year| 2 math-|
|00002440| 6c 65 61 70 2d 79 65 61 | 72 2d 70 20 32 39 20 5b |leap-yea|r-p 29 [|
|00002450| 33 31 20 32 38 20 33 31 | 20 33 30 20 33 31 20 33 |31 28 31| 30 31 3|
|00002460| 30 20 33 31 20 33 31 20 | 33 30 20 33 31 20 33 30 |0 31 31 |30 31 30|
|00002470| 20 33 31 5d 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 | 31]] 3)|)..(defu|
|00002480| 6e 20 6d 61 74 68 2d 64 | 61 79 2d 6e 75 6d 62 65 |n math-d|ay-numbe|
|00002490| 72 20 28 79 65 61 72 20 | 6d 6f 6e 74 68 20 64 61 |r (year |month da|
|000024a0| 79 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 09 |y) (byte|-code ".|
|000024b0| c4 c5 0a 53 5c 22 5c 5c | 18 0a c6 56 85 26 00 08 |...S\"\\|...V.&..|
|000024c0| c7 c8 c4 c9 0a 5c 22 5c | 5c ca 5c 22 5a 89 10 88 |.....\"\|\.\"Z...|
|000024d0| cb 0b 21 85 26 00 08 54 | 89 10 88 0b cc 3d 85 44 |..!.&..T|.....=.D|
|000024e0| 00 0a cd 56 86 3c 00 0a | cd 55 85 3c 00 09 ce 59 |...V.<..|.U.<...Y|
|000024f0| 85 44 00 08 cf 5a 89 10 | 88 08 29 87 22 20 5b 64 |.D...Z..|..)." [d|
|00002500| 61 79 2d 6f 66 2d 79 65 | 61 72 20 64 61 79 20 6d |ay-of-ye|ar day m|
|00002510| 6f 6e 74 68 20 79 65 61 | 72 20 2a 20 33 31 20 32 |onth yea|r * 31 2|
|00002520| 20 2f 20 32 33 20 34 20 | 31 30 20 6d 61 74 68 2d | / 23 4 |10 math-|
|00002530| 6c 65 61 70 2d 79 65 61 | 72 2d 70 20 31 37 35 32 |leap-yea|r-p 1752|
|00002540| 20 39 20 31 34 20 31 31 | 5d 20 37 29 29 0a 0a 28 | 9 14 11|] 7))..(|
|00002550| 64 65 66 75 6e 20 6d 61 | 74 68 2d 61 62 73 6f 6c |defun ma|th-absol|
|00002560| 75 74 65 2d 66 72 6f 6d | 2d 64 61 74 65 20 28 79 |ute-from|-date (y|
|00002570| 65 61 72 20 6d 6f 6e 74 | 68 20 64 61 79 29 20 28 |ear mont|h day) (|
|00002580| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 c6 3d 85 09 |byte-cod|e "..=..|
|00002590| 00 c7 89 10 88 c8 08 c9 | 5c 22 19 c8 ca cb 08 0a |........|\"......|
|000025a0| 0b 23 ca cc cd 09 5c 22 | ce 08 21 83 28 00 cf 09 |.#....\"|..!.(...|
|000025b0| d0 5c 22 82 32 00 c8 cd | cf c8 d1 08 5c 22 d0 5c |.\".2...|....\".\|
|000025c0| 22 5c 22 5c 22 5c 22 d2 | 08 d3 5c 22 c7 55 86 46 |"\"\"\".|..\".U.F|
|000025d0| 00 08 d4 3d 85 46 00 0a | d5 58 83 4d 00 c9 82 6c |...=.F..|.X.M...l|
|000025e0| 00 cc cf 09 d6 5c 22 d1 | 5c 22 1c d7 0c d0 5c 22 |.....\".|\"....\"|
|000025f0| 1d ca 0d 41 c6 55 83 66 | 00 c7 82 67 00 c6 0d 40 |...A.U.f|...g...@|
|00002600| 5c 22 29 29 5c 22 29 87 | 22 20 5b 79 65 61 72 20 |\"))\").|" [year |
|00002610| 79 65 61 72 6d 31 20 6d | 6f 6e 74 68 20 64 61 79 |yearm1 m|onth day|
|00002620| 20 63 6f 72 72 65 63 74 | 69 6f 6e 20 72 65 73 20 | correct|ion res |
|00002630| 30 20 2d 31 20 6d 61 74 | 68 2d 73 75 62 20 31 20 |0 -1 mat|h-sub 1 |
|00002640| 6d 61 74 68 2d 61 64 64 | 20 6d 61 74 68 2d 64 61 |math-add| math-da|
|00002650| 79 2d 6e 75 6d 62 65 72 | 20 6d 61 74 68 2d 6d 75 |y-number| math-mu|
|00002660| 6c 20 33 36 35 20 6d 61 | 74 68 2d 70 6f 73 70 20 |l 365 ma|th-posp |
|00002670| 6d 61 74 68 2d 71 75 6f | 74 69 65 6e 74 20 34 20 |math-quo|tient 4 |
|00002680| 33 20 6d 61 74 68 2d 63 | 6f 6d 70 61 72 65 20 31 |3 math-c|ompare 1|
|00002690| 37 35 33 20 31 37 35 32 | 20 39 20 31 30 30 20 6d |753 1752| 9 100 m|
|000026a0| 61 74 68 2d 69 64 69 76 | 6d 6f 64 5d 20 31 39 29 |ath-idiv|mod] 19)|
|000026b0| 29 0a 0a 28 64 65 66 76 | 61 72 20 6d 61 74 68 2d |)..(defv|ar math-|
|000026c0| 6c 6f 6e 67 2d 77 65 65 | 6b 64 61 79 2d 6e 61 6d |long-wee|kday-nam|
|000026d0| 65 73 20 28 71 75 6f 74 | 65 20 28 22 53 75 6e 64 |es (quot|e ("Sund|
|000026e0| 61 79 22 20 22 4d 6f 6e | 64 61 79 22 20 22 54 75 |ay" "Mon|day" "Tu|
|000026f0| 65 73 64 61 79 22 20 22 | 57 65 64 6e 65 73 64 61 |esday" "|Wednesda|
|00002700| 79 22 20 22 54 68 75 72 | 73 64 61 79 22 20 22 46 |y" "Thur|sday" "F|
|00002710| 72 69 64 61 79 22 20 22 | 53 61 74 75 72 64 61 79 |riday" "|Saturday|
|00002720| 22 29 29 29 0a 0a 28 64 | 65 66 76 61 72 20 6d 61 |")))..(d|efvar ma|
|00002730| 74 68 2d 73 68 6f 72 74 | 2d 77 65 65 6b 64 61 79 |th-short|-weekday|
|00002740| 2d 6e 61 6d 65 73 20 28 | 71 75 6f 74 65 20 28 22 |-names (|quote ("|
|00002750| 53 75 6e 22 20 22 4d 6f | 6e 22 20 22 54 75 65 22 |Sun" "Mo|n" "Tue"|
|00002760| 20 22 57 65 64 22 20 22 | 54 68 75 22 20 22 46 72 | "Wed" "|Thu" "Fr|
|00002770| 69 22 20 22 53 61 74 22 | 29 29 29 0a 0a 28 64 65 |i" "Sat"|)))..(de|
|00002780| 66 76 61 72 20 6d 61 74 | 68 2d 6c 6f 6e 67 2d 6d |fvar mat|h-long-m|
|00002790| 6f 6e 74 68 2d 6e 61 6d | 65 73 20 28 71 75 6f 74 |onth-nam|es (quot|
|000027a0| 65 20 28 22 4a 61 6e 75 | 61 72 79 22 20 22 46 65 |e ("Janu|ary" "Fe|
|000027b0| 62 72 75 61 72 79 22 20 | 22 4d 61 72 63 68 22 20 |bruary" |"March" |
|000027c0| 22 41 70 72 69 6c 22 20 | 22 4d 61 79 22 20 22 4a |"April" |"May" "J|
|000027d0| 75 6e 65 22 20 22 4a 75 | 6c 79 22 20 22 41 75 67 |une" "Ju|ly" "Aug|
|000027e0| 75 73 74 22 20 22 53 65 | 70 74 65 6d 62 65 72 22 |ust" "Se|ptember"|
|000027f0| 20 22 4f 63 74 6f 62 65 | 72 22 20 22 4e 6f 76 65 | "Octobe|r" "Nove|
|00002800| 6d 62 65 72 22 20 22 44 | 65 63 65 6d 62 65 72 22 |mber" "D|ecember"|
|00002810| 29 29 29 0a 0a 28 64 65 | 66 76 61 72 20 6d 61 74 |)))..(de|fvar mat|
|00002820| 68 2d 73 68 6f 72 74 2d | 6d 6f 6e 74 68 2d 6e 61 |h-short-|month-na|
|00002830| 6d 65 73 20 28 71 75 6f | 74 65 20 28 22 4a 61 6e |mes (quo|te ("Jan|
|00002840| 22 20 22 46 65 62 22 20 | 22 4d 61 72 22 20 22 41 |" "Feb" |"Mar" "A|
|00002850| 70 72 22 20 22 4d 61 79 | 22 20 22 4a 75 6e 22 20 |pr" "May|" "Jun" |
|00002860| 22 4a 75 6c 22 20 22 41 | 75 67 22 20 22 53 65 70 |"Jul" "A|ug" "Sep|
|00002870| 22 20 22 4f 63 74 22 20 | 22 4e 6f 76 22 20 22 44 |" "Oct" |"Nov" "D|
|00002880| 65 63 22 29 29 29 0a 0a | 28 64 65 66 75 6e 20 6d |ec")))..|(defun m|
|00002890| 61 74 68 2d 66 6f 72 6d | 61 74 2d 64 61 74 65 20 |ath-form|at-date |
|000028a0| 28 64 61 74 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |(date) (|byte-cod|
|000028b0| 65 20 22 d3 08 21 c0 3d | 85 0d 00 d4 08 38 89 10 |e "..!.=|.....8..|
|000028c0| 88 08 0a 0b 45 19 d5 09 | 0c 5c 22 41 86 62 00 c6 |....E...|.\"A.b..|
|000028d0| 1d c6 1e 07 c6 1e 08 d6 | 1e 09 c6 1e 0a c6 1e 0b |........|........|
|000028e0| c6 1e 0c c6 1e 0d c6 1e | 0e c6 1e 0f c6 1e 10 c6 |........|........|
|000028f0| 1e 11 d7 d8 d9 da 0b 5c | 22 5c 22 1e 12 09 0e 12 |.......\|"\".....|
|00002900| 42 0c 42 89 14 88 db d6 | 0c 5c 22 89 15 85 5d 00 |B.B.....|.\"...].|
|00002910| dc 0d c6 5c 22 88 0e 12 | 2e 0d 29 87 22 20 5b 64 |...\"...|..)." [d|
|00002920| 61 74 65 20 65 6e 74 72 | 79 20 63 61 6c 63 2d 69 |ate entr|y calc-i|
|00002930| 6e 74 65 72 6e 61 6c 2d | 70 72 65 63 20 63 61 6c |nternal-|prec cal|
|00002940| 63 2d 64 61 74 65 2d 66 | 6f 72 6d 61 74 20 6d 61 |c-date-f|ormat ma|
|00002950| 74 68 2d 66 6f 72 6d 61 | 74 2d 64 61 74 65 2d 63 |th-forma|t-date-c|
|00002960| 61 63 68 65 20 64 74 20 | 6e 69 6c 20 63 61 6c 63 |ache dt |nil calc|
|00002970| 2d 67 72 6f 75 70 2d 64 | 69 67 69 74 73 20 63 61 |-group-d|igits ca|
|00002980| 6c 63 2d 6c 65 61 64 69 | 6e 67 2d 7a 65 72 6f 73 |lc-leadi|ng-zeros|
|00002990| 20 63 61 6c 63 2d 6e 75 | 6d 62 65 72 2d 72 61 64 | calc-nu|mber-rad|
|000029a0| 69 78 20 79 65 61 72 20 | 6d 6f 6e 74 68 20 64 61 |ix year |month da|
|000029b0| 79 20 77 65 65 6b 64 61 | 79 20 68 6f 75 72 20 6d |y weekda|y hour m|
|000029c0| 69 6e 75 74 65 20 73 65 | 63 6f 6e 64 20 62 63 2d |inute se|cond bc-|
|000029d0| 66 6c 61 67 20 66 6d 74 | 20 63 61 72 2d 73 61 66 |flag fmt| car-saf|
|000029e0| 65 20 31 20 61 73 73 6f | 63 20 31 30 20 61 70 70 |e 1 asso|c 10 app|
|000029f0| 6c 79 20 63 6f 6e 63 61 | 74 20 6d 61 70 63 61 72 |ly conca|t mapcar|
|00002a00| 20 6d 61 74 68 2d 66 6f | 72 6d 61 74 2d 64 61 74 | math-fo|rmat-dat|
|00002a10| 65 2d 70 61 72 74 20 6e | 74 68 63 64 72 20 73 65 |e-part n|thcdr se|
|00002a20| 74 63 64 72 5d 20 38 29 | 29 0a 0a 28 73 65 74 71 |tcdr] 8)|)..(setq|
|00002a30| 20 6d 61 74 68 2d 66 6f | 72 6d 61 74 2d 64 61 74 | math-fo|rmat-dat|
|00002a40| 65 2d 63 61 63 68 65 20 | 6e 69 6c 29 0a 0a 28 64 |e-cache |nil)..(d|
|00002a50| 65 66 75 6e 20 6d 61 74 | 68 2d 66 6f 72 6d 61 74 |efun mat|h-format|
|00002a60| 2d 64 61 74 65 2d 70 61 | 72 74 20 28 78 29 20 28 |-date-pa|rt (x) (|
|00002a70| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 3b 83 09 00 |byte-cod|e ".;...|
|00002a80| 08 82 e4 05 08 3c 83 5c | 22 00 d3 09 21 83 18 00 |.....<.\|"...!...|
|00002a90| d4 82 1f 00 d5 d6 d7 d8 | 08 5c 22 5c 22 82 e4 05 |........|.\"\"...|
|00002aa0| 08 d9 3d 83 2c 00 d4 82 | e4 05 08 da 3d 83 38 00 |..=.,...|....=.8.|
|00002ab0| db 09 21 82 e4 05 08 dc | 3d 83 46 00 db dd 09 21 |..!.....|=.F....!|
|00002ac0| 21 82 e4 05 08 de 3d 83 | 55 00 db df 09 e0 5c 22 |!.....=.|U.....\"|
|00002ad0| 21 82 e4 05 08 e1 3d 83 | 66 00 db df dd 09 21 e2 |!.....=.|f.....!.|
|00002ae0| 5c 22 21 82 e4 05 08 e3 | 3d 83 77 00 db e4 e5 09 |\"!.....|=.w.....|
|00002af0| e6 5c 22 38 21 82 e4 05 | 0a 86 bb 00 e7 09 21 12 |.\"8!...|......!.|
|00002b00| 0a 40 13 e4 0a 38 14 e8 | 0a 38 15 e9 df dd 09 21 |.@...8..|.8.....!|
|00002b10| ea 5c 22 eb 5c 22 16 06 | ec 0a 38 16 07 ed 0a 38 |.\".\"..|..8....8|
|00002b20| 16 08 ee 0a 38 89 16 09 | 88 ef 0e 0a 3e 85 bb 00 |....8...|....>...|
|00002b30| f0 0b 21 85 bb 00 f1 0b | 21 13 cc 89 16 0b 88 08 |..!.....|!.......|
|00002b40| f2 3e 83 0b 01 f3 0b 21 | 85 d1 00 0b f4 56 85 d1 |.>.....!|.....V..|
|00002b50| 00 0b f5 57 83 f2 00 f6 | 08 f7 3d 83 df 00 f8 82 |...W....|..=.....|
|00002b60| ea 00 08 f9 3d 83 e9 00 | fa 82 ea 00 fb fc 0b fd |....=...|........|
|00002b70| 5c 22 5c 22 82 08 01 fe | 0b 21 85 fb 00 0b fd 57 |\"\"....|.!.....W|
|00002b80| 83 05 01 f6 ff 0b 5c 22 | 82 08 01 db 0b 21 82 e4 |......\"|.....!..|
|00002b90| 05 08 81 40 00 3d 83 19 | 01 db 0b 21 82 e4 05 08 |...@.=..|...!....|
|00002ba0| 81 41 00 3d 83 3a 01 fe | 0b 21 85 2a 01 0b fd 57 |.A.=.:..|.!.*...W|
|00002bb0| 83 34 01 f6 ff 0b 5c 22 | 82 37 01 db 0b 21 82 e4 |.4....\"|.7...!..|
|00002bc0| 05 08 ef 3d 83 44 01 d4 | 82 e4 05 08 81 42 00 3d |...=.D..|.....B.=|
|00002bd0| 83 58 01 0e 0b 3f 85 55 | 01 81 43 00 82 e4 05 08 |.X...?.U|..C.....|
|00002be0| 81 44 00 3d 83 6c 01 0e | 0b 3f 85 69 01 81 45 00 |.D.=.l..|.?.i..E.|
|00002bf0| 82 e4 05 08 81 46 00 3d | 83 80 01 0e 0b 3f 85 7d |.....F.=|.....?.}|
|00002c00| 01 81 47 00 82 e4 05 08 | 81 48 00 3d 83 94 01 0e |..G.....|.H.=....|
|00002c10| 0b 3f 85 91 01 81 49 00 | 82 e4 05 08 81 4a 00 3d |.?....I.|.....J.=|
|00002c20| 83 a8 01 0e 0b 3f 85 a5 | 01 81 4b 00 82 e4 05 08 |.....?..|..K.....|
|00002c30| 81 4c 00 3d 83 bc 01 0e | 0b 3f 85 b9 01 81 4d 00 |.L.=....|.?....M.|
|00002c40| 82 e4 05 08 81 4e 00 3d | 83 cf 01 0e 0b 85 cc 01 |.....N.=|........|
|00002c50| 81 4f 00 82 e4 05 08 81 | 50 00 3d 83 e2 01 0e 0b |.O......|P.=.....|
|00002c60| 85 df 01 81 51 00 82 e4 | 05 08 81 52 00 3d 83 f5 |....Q...|...R.=..|
|00002c70| 01 0e 0b 85 f2 01 81 53 | 00 82 e4 05 08 81 54 00 |.......S|......T.|
|00002c80| 3d 83 08 02 0e 0b 85 05 | 02 81 55 00 82 e4 05 08 |=.......|..U.....|
|00002c90| 81 56 00 3d 83 1b 02 0e | 0b 85 18 02 81 57 00 82 |.V.=....|.....W..|
|00002ca0| e4 05 08 81 58 00 3d 83 | 2e 02 0e 0b 85 2b 02 81 |....X.=.|.....+..|
|00002cb0| 59 00 82 e4 05 08 81 5a | 00 3d 83 3d 02 f6 fb 0c |Y......Z|.=.=....|
|00002cc0| 5c 22 82 e4 05 08 81 5b | 00 3d 83 4c 02 f6 f8 0c |\".....[|.=.L....|
|00002cd0| 5c 22 82 e4 05 08 81 5c | 5c 00 3d 83 5b 02 f6 fa |\".....\|\.=.[...|
|00002ce0| 0c 5c 22 82 e4 05 08 81 | 5d 00 3d 83 6f 02 81 5e |.\".....|].=.o..^|
|00002cf0| 00 0c 53 0e 0d 38 21 82 | e4 05 08 81 5f 00 3d 83 |..S..8!.|...._.=.|
|00002d00| 7f 02 0c 53 0e 0d 38 82 | e4 05 08 81 60 00 3d 83 |...S..8.|....`.=.|
|00002d10| 93 02 81 61 00 0c 53 0e | 0d 38 21 82 e4 05 08 81 |...a..S.|.8!.....|
|00002d20| 62 00 3d 83 a3 02 0c 53 | 0e 0e 38 82 e4 05 08 81 |b.=....S|..8.....|
|00002d30| 63 00 3d 83 b7 02 81 61 | 00 0c 53 0e 0e 38 21 82 |c.=....a|..S..8!.|
|00002d40| e4 05 08 81 64 00 3d 83 | c6 02 f6 fb 0d 5c 22 82 |....d.=.|.....\".|
|00002d50| e4 05 08 81 65 00 3d 83 | d5 02 f6 f8 0d 5c 22 82 |....e.=.|.....\".|
|00002d60| e4 05 08 81 66 00 3d 83 | e4 02 f6 fa 0d 5c 22 82 |....f.=.|.....\".|
|00002d70| e4 05 08 81 67 00 3d 83 | f4 02 f6 fb 0e 06 5c 22 |....g.=.|......\"|
|00002d80| 82 e4 05 08 81 68 00 3d | 83 08 03 81 5e 00 0e 06 |.....h.=|....^...|
|00002d90| 0e 0f 38 21 82 e4 05 08 | 81 69 00 3d 83 18 03 0e |..8!....|.i.=....|
|00002da0| 06 0e 0f 38 82 e4 05 08 | 81 6a 00 3d 83 2c 03 81 |...8....|.j.=.,..|
|00002db0| 61 00 0e 06 0e 0f 38 21 | 82 e4 05 08 81 6b 00 3d |a.....8!|.....k.=|
|00002dc0| 83 3c 03 0e 06 0e 10 38 | 82 e4 05 08 81 6c 00 3d |.<.....8|.....l.=|
|00002dd0| 83 50 03 81 61 00 0e 06 | 0e 10 38 21 82 e4 05 08 |.P..a...|..8!....|
|00002de0| 81 6d 00 3d 83 65 03 f6 | fb 81 6e 00 0b 0c 0d 23 |.m.=.e..|..n....#|
|00002df0| 5c 22 82 e4 05 08 81 6f | 00 3d 83 7c 03 f6 81 70 |\".....o|.=.|...p|
|00002e00| 00 81 6e 00 0b 0c 0d 23 | 5c 22 82 e4 05 08 81 71 |..n....#|\".....q|
|00002e10| 00 3d 83 93 03 f6 81 72 | 00 81 6e 00 0b 0c 0d 23 |.=.....r|..n....#|
|00002e20| 5c 22 82 e4 05 08 81 73 | 00 3d 83 a8 03 0e 07 85 |\".....s|.=......|
|00002e30| a5 03 f6 fb 0e 07 5c 22 | 82 e4 05 08 81 74 00 3d |......\"|.....t.=|
|00002e40| 83 bd 03 0e 07 85 ba 03 | f6 f8 0e 07 5c 22 82 e4 |........|....\"..|
|00002e50| 05 08 81 75 00 3d 83 d2 | 03 0e 07 85 cf 03 f6 fa |...u.=..|........|
|00002e60| 0e 07 5c 22 82 e4 05 08 | 81 76 00 3d 83 f1 03 0e |..\"....|.v.=....|
|00002e70| 07 85 ee 03 f6 fb fc 0e | 07 81 77 00 5c 5c 81 78 |........|..w.\\.x|
|00002e80| 00 5c 22 54 5c 22 82 e4 | 05 08 81 79 00 3d 83 10 |.\"T\"..|...y.=..|
|00002e90| 04 0e 07 85 0d 04 f6 f8 | fc 0e 07 81 77 00 5c 5c |........|....w.\\|
|00002ea0| 81 78 00 5c 22 54 5c 22 | 82 e4 05 08 81 7a 00 3d |.x.\"T\"|.....z.=|
|00002eb0| 83 2f 04 0e 07 85 2c 04 | f6 fa fc 0e 07 81 77 00 |./....,.|......w.|
|00002ec0| 5c 5c 81 78 00 5c 22 54 | 5c 22 82 e4 05 08 81 7b |\\.x.\"T|\".....{|
|00002ed0| 00 3d 83 51 04 0e 07 85 | 4e 04 0e 07 81 78 00 57 |.=.Q....|N....x.W|
|00002ee0| 83 4b 04 81 7c 00 82 4e | 04 81 7d 00 82 e4 05 08 |.K..|..N|..}.....|
|00002ef0| 81 7e 00 3d 83 73 04 0e | 07 85 70 04 0e 07 81 78 |.~.=.s..|..p....x|
|00002f00| 00 57 83 6d 04 81 7f 00 | 82 70 04 81 80 00 82 e4 |.W.m....|.p......|
|00002f10| 05 08 81 81 00 3d 83 95 | 04 0e 07 85 92 04 0e 07 |.....=..|........|
|00002f20| 81 78 00 57 83 8f 04 81 | 82 00 82 92 04 81 83 00 |.x.W....|........|
|00002f30| 82 e4 05 08 81 84 00 3d | 83 b7 04 0e 07 85 b4 04 |.......=|........|
|00002f40| 0e 07 81 78 00 57 83 b1 | 04 81 85 00 82 b4 04 81 |...x.W..|........|
|00002f50| 86 00 82 e4 05 08 81 87 | 00 3d 83 d9 04 0e 07 85 |........|.=......|
|00002f60| d6 04 0e 07 81 78 00 57 | 83 d3 04 81 88 00 82 d6 |.....x.W|........|
|00002f70| 04 81 89 00 82 e4 05 08 | 81 8a 00 3d 83 fb 04 0e |........|...=....|
|00002f80| 07 85 f8 04 0e 07 81 78 | 00 57 83 f5 04 81 8b 00 |.......x|.W......|
|00002f90| 82 f8 04 81 8c 00 82 e4 | 05 08 81 8d 00 3d 83 10 |........|.....=..|
|00002fa0| 05 0e 08 85 0d 05 f6 fb | 0e 08 5c 22 82 e4 05 08 |........|..\"....|
|00002fb0| 81 8e 00 3d 83 25 05 0e | 08 85 5c 22 05 f6 f8 0e |...=.%..|..\"....|
|00002fc0| 08 5c 22 82 e4 05 08 81 | 8f 00 3d 83 3a 05 0e 08 |.\".....|..=.:...|
|00002fd0| 85 37 05 f6 fa 0e 08 5c | 22 82 e4 05 08 81 90 00 |.7.....\|".......|
|00002fe0| 3d 83 57 05 0e 09 85 54 | 05 81 91 00 0e 09 21 3f |=.W....T|......!?|
|00002ff0| 85 54 05 81 92 00 82 e4 | 05 08 81 93 00 3e 85 e4 |.T......|.....>..|
|00003000| 05 0e 09 85 e4 05 08 81 | 94 00 3e 85 72 05 81 91 |........|..>.r...|
|00003010| 00 0e 09 21 3f 85 e4 05 | f3 0e 09 21 83 9d 05 f6 |...!?...|...!....|
|00003020| 08 81 95 00 3e 83 8a 05 | f8 82 97 05 08 81 96 00 |....>...|........|
|00003030| 3e 83 96 05 fa 82 97 05 | fb 0e 09 5c 22 82 e4 05 |>.......|...\"...|
|00003040| 81 97 00 0e 09 81 98 00 | 5c 22 81 99 00 55 83 cd |........|\"...U..|
|00003050| 05 08 81 9a 00 3e 83 bb | 05 81 9b 00 82 ca 05 08 |.....>..|........|
|00003060| 81 9c 00 3e 83 c9 05 81 | 9d 00 82 ca 05 d4 82 ce |...>....|........|
|00003070| 05 d4 81 9e 00 81 78 00 | 0e 12 5a 81 9f 00 5e 44 |......x.|..Z...^D|
|00003080| 1e 11 db 0e 09 21 29 50 | 87 22 20 5b 78 20 64 61 |.....!)P|." [x da|
|00003090| 74 65 20 64 74 20 79 65 | 61 72 20 6d 6f 6e 74 68 |te dt ye|ar month|
|000030a0| 20 64 61 79 20 77 65 65 | 6b 64 61 79 20 68 6f 75 | day wee|kday hou|
|000030b0| 72 20 6d 69 6e 75 74 65 | 20 73 65 63 6f 6e 64 20 |r minute| second |
|000030c0| 63 61 6c 63 2d 64 61 74 | 65 2d 66 6f 72 6d 61 74 |calc-dat|e-format|
|000030d0| 20 62 63 2d 66 6c 61 67 | 20 74 20 6d 61 74 68 2d | bc-flag| t math-|
|000030e0| 73 68 6f 72 74 2d 6d 6f | 6e 74 68 2d 6e 61 6d 65 |short-mo|nth-name|
|000030f0| 73 20 6d 61 74 68 2d 6c | 6f 6e 67 2d 6d 6f 6e 74 |s math-l|ong-mont|
|00003100| 68 2d 6e 61 6d 65 73 20 | 6d 61 74 68 2d 73 68 6f |h-names |math-sho|
|00003110| 72 74 2d 77 65 65 6b 64 | 61 79 2d 6e 61 6d 65 73 |rt-weekd|ay-names|
|00003120| 20 6d 61 74 68 2d 6c 6f | 6e 67 2d 77 65 65 6b 64 | math-lo|ng-weekd|
|00003130| 61 79 2d 6e 61 6d 65 73 | 20 63 61 6c 63 2d 66 6c |ay-names| calc-fl|
|00003140| 6f 61 74 2d 66 6f 72 6d | 61 74 20 63 61 6c 63 2d |oat-form|at calc-|
|00003150| 69 6e 74 65 72 6e 61 6c | 2d 70 72 65 63 20 6d 61 |internal|-prec ma|
|00003160| 74 68 2d 69 6e 74 65 67 | 65 72 70 20 22 22 20 61 |th-integ|erp "" a|
|00003170| 70 70 6c 79 20 63 6f 6e | 63 61 74 20 6d 61 70 63 |pply con|cat mapc|
|00003180| 61 72 20 6d 61 74 68 2d | 66 6f 72 6d 61 74 2d 64 |ar math-|format-d|
|00003190| 61 74 65 2d 70 61 72 74 | 20 58 20 4e 20 6d 61 74 |ate-part| X N mat|
|000031a0| 68 2d 66 6f 72 6d 61 74 | 2d 6e 75 6d 62 65 72 20 |h-format|-number |
|000031b0| 6e 20 6d 61 74 68 2d 66 | 6c 6f 6f 72 20 4a 20 6d |n math-f|loor J m|
|000031c0| 61 74 68 2d 61 64 64 20 | 28 66 6c 6f 61 74 20 28 |ath-add |(float (|
|000031d0| 62 69 67 70 6f 73 20 32 | 33 35 20 32 31 34 20 31 |bigpos 2|35 214 1|
|000031e0| 37 29 20 2d 31 29 20 6a | 20 28 62 69 67 70 6f 73 |7) -1) j| (bigpos|
|000031f0| 20 34 32 34 20 37 32 31 | 20 31 29 20 55 20 31 20 | 424 721| 1) U 1 |
|00003200| 6d 61 74 68 2d 64 61 74 | 65 2d 70 61 72 74 73 20 |math-dat|e-parts |
|00003210| 37 31 39 31 36 34 20 6d | 61 74 68 2d 64 61 74 65 |719164 m|ath-date|
|00003220| 2d 74 6f 2d 64 74 20 32 | 20 6d 61 74 68 2d 6d 6f |-to-dt 2| math-mo|
|00003230| 64 20 36 20 37 20 33 20 | 34 20 35 20 62 20 6d 61 |d 6 7 3 |4 5 b ma|
|00003240| 74 68 2d 6e 65 67 70 20 | 6d 61 74 68 2d 6e 65 67 |th-negp |math-neg|
|00003250| 20 28 59 20 59 59 20 42 | 59 29 20 69 6e 74 65 67 | (Y YY B|Y) integ|
|00003260| 65 72 70 20 31 39 34 30 | 20 32 30 34 30 20 66 6f |erp 1940| 2040 fo|
|00003270| 72 6d 61 74 20 59 59 20 | 22 25 30 32 64 22 20 42 |rmat YY |"%02d" B|
|00003280| 59 59 20 22 25 32 64 22 | 20 22 25 64 22 20 25 20 |YY "%2d"| "%d" % |
|00003290| 31 30 30 20 6e 61 74 6e | 75 6d 70 20 22 2b 25 64 |100 natn|ump "+%d|
|000032a0| 22 20 59 59 59 20 59 59 | 59 59 20 61 61 20 22 61 |" YYY YY|YY aa "a|
|000032b0| 64 22 20 41 41 20 22 41 | 44 22 20 61 61 61 20 22 |d" AA "A|D" aaa "|
|000032c0| 61 64 20 22 20 41 41 41 | 20 22 41 44 20 22 20 61 |ad " AAA| "AD " a|
|000032d0| 61 61 61 20 22 61 2e 64 | 2e 22 20 41 41 41 41 20 |aaa "a.d|." AAAA |
|000032e0| 22 41 2e 44 2e 22 20 62 | 62 20 22 62 63 22 20 42 |"A.D." b|b "bc" B|
|000032f0| 42 20 22 42 43 22 20 62 | 62 62 20 22 20 62 63 22 |B "BC" b|bb " bc"|
|00003300| 20 42 42 42 20 22 20 42 | 43 22 20 62 62 62 62 20 | BBB " B|C" bbbb |
|00003310| 22 62 2e 63 2e 22 20 42 | 42 42 42 20 22 42 2e 43 |"b.c." B|BBB "B.C|
|00003320| 2e 22 20 4d 20 4d 4d 20 | 42 4d 20 6d 6d 6d 20 64 |." M MM |BM mmm d|
|00003330| 6f 77 6e 63 61 73 65 20 | 4d 6d 6d 20 4d 4d 4d 20 |owncase |Mmm MMM |
|00003340| 75 70 63 61 73 65 20 4d | 6d 6d 6d 20 4d 4d 4d 4d |upcase M|mmm MMMM|
|00003350| 20 44 20 44 44 20 42 44 | 20 57 20 77 77 77 20 57 | D DD BD| W www W|
|00003360| 77 77 20 57 57 57 20 57 | 77 77 77 20 57 57 57 57 |ww WWW W|www WWWW|
|00003370| 20 64 20 6d 61 74 68 2d | 64 61 79 2d 6e 75 6d 62 | d math-|day-numb|
|00003380| 65 72 20 64 64 64 20 22 | 25 30 33 64 22 20 62 64 |er ddd "|%03d" bd|
|00003390| 64 20 22 25 33 64 22 20 | 68 20 68 68 20 62 68 20 |d "%3d" |h hh bh |
|000033a0| 48 20 31 31 20 31 32 20 | 48 48 20 42 48 20 70 20 |H 11 12 |HH BH p |
|000033b0| 22 61 22 20 22 70 22 20 | 50 20 22 41 22 20 22 50 |"a" "p" |P "A" "P|
|000033c0| 22 20 70 70 20 22 61 6d | 22 20 22 70 6d 22 20 50 |" pp "am|" "pm" P|
|000033d0| 50 20 22 41 4d 22 20 22 | 50 4d 22 20 70 70 70 70 |P "AM" "|PM" pppp|
|000033e0| 20 22 61 2e 6d 2e 22 20 | 22 70 2e 6d 2e 22 20 50 | "a.m." |"p.m." P|
|000033f0| 50 50 50 20 22 41 2e 4d | 2e 22 20 22 50 2e 4d 2e |PPP "A.M|." "P.M.|
|00003400| 22 20 6d 20 6d 6d 20 62 | 6d 20 43 20 6d 61 74 68 |" m mm b|m C math|
|00003410| 2d 7a 65 72 6f 70 20 22 | 3a 22 20 28 73 20 73 73 |-zerop "|:" (s ss|
|00003420| 20 62 73 20 53 53 20 42 | 53 29 20 28 53 53 20 42 | bs SS B|S) (SS B|
|00003430| 53 29 20 28 73 73 20 53 | 53 29 20 28 62 73 20 42 |S) (ss S|S) (bs B|
|00003440| 53 29 20 6d 61 74 68 2d | 63 6f 6d 70 61 72 65 20 |S) math-|compare |
|00003450| 31 30 20 2d 31 20 28 73 | 73 20 53 53 29 20 22 30 |10 -1 (s|s SS) "0|
|00003460| 22 20 28 62 73 20 42 53 | 29 20 22 20 22 20 66 69 |" (bs BS|) " " fi|
|00003470| 78 20 30 5d 20 36 39 29 | 29 0a 0a 28 64 65 66 75 |x 0] 69)|)..(defu|
|00003480| 6e 20 6d 61 74 68 2d 70 | 61 72 73 65 2d 64 61 74 |n math-p|arse-dat|
|00003490| 65 20 28 73 74 72 29 20 | 28 62 79 74 65 2d 63 6f |e (str) |(byte-co|
|000034a0| 64 65 20 22 c0 c1 8d 87 | 22 20 5b 73 79 6e 74 61 |de "....|" [synta|
|000034b0| 78 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 d7 08 |x (byte-|code "..|
|000034c0| c1 5c 22 86 8b 04 d7 08 | c2 5c 22 86 8b 04 d8 d9 |.\".....|.\".....|
|000034d0| 08 5c 22 85 1d 00 da db | dc 08 dd 5c 22 21 44 86 |.\".....|...\"!D.|
|000034e0| 8b 04 c1 c2 c2 c2 c2 c2 | c2 c2 c2 c2 c2 c2 c2 c2 |........|........|
|000034f0| 1e 10 1e 0f 1e 0e 1e 0d | 1e 0c 1e 0b 1e 0a 1e 09 |........|........|
|00003500| 1e 08 1e 07 1e 06 1d 1c | 1b d8 de 08 5c 22 86 52 |........|....\".R|
|00003510| 00 d8 df 08 5c 22 85 28 | 01 dc 08 e0 5c 22 1e 11 |....\".(|....\"..|
|00003520| e1 dc 08 dd 5c 22 21 16 | 08 dc 08 e2 5c 22 16 09 |....\"!.|....\"..|
|00003530| dc 08 e3 5c 22 16 0a 08 | e4 e5 e4 21 4f 08 e6 e4 |...\"...|...!O...|
|00003540| 21 c2 4f 50 89 10 88 e7 | 0e 09 e8 5c 22 83 8e 00 |!.OP....|...\"...|
|00003550| e4 89 16 09 82 95 00 e1 | 0e 09 21 89 16 09 88 e7 |........|..!.....|
|00003560| 0e 0a e8 5c 22 83 a5 00 | e4 89 16 0a 82 ac 00 db |...\"...|........|
|00003570| 0e 0a 21 89 16 0a 88 e7 | 0e 11 e8 5c 22 83 c3 00 |..!.....|...\"...|
|00003580| 0e 08 e9 56 85 c0 00 ea | eb ec 5c 22 82 27 01 ed |...V....|..\".'..|
|00003590| 0e 11 e4 48 21 89 16 11 | 88 0e 11 ee 3e 83 fe 00 |...H!...|....>...|
|000035a0| 0e 08 ef 55 85 e6 00 0e | 09 e4 55 85 e6 00 0e 0a |...U....|..U.....|
|000035b0| e4 3d 83 f7 00 0e 11 f0 | 3d 85 f4 00 e4 89 16 08 |.=......|=.......|
|000035c0| 82 fb 00 ea eb f1 5c 22 | 82 27 01 0e 08 e4 55 86 |......\"|.'....U.|
|000035d0| 09 01 0e 08 ef 56 85 10 | 01 ea eb ec 5c 22 88 0e |.....V..|....\"..|
|000035e0| 11 f2 55 0e 08 ef 55 3d | 85 27 01 f3 0e 08 ef 5c |..U...U=|.'.....\|
|000035f0| 5c f4 5c 22 89 16 08 29 | 88 d8 f5 08 5c 22 85 40 |\.\"...)|....\".@|
|00003600| 01 f6 08 21 89 10 88 08 | e5 dd 21 f7 49 88 82 29 |...!....|..!.I..)|
|00003610| 01 88 d8 f8 08 5c 22 85 | b2 01 f9 0e 12 21 89 15 |.....\".|.....!..|
|00003620| 88 f9 0e 13 21 89 16 07 | 88 0d 86 61 01 f9 0e 14 |....!...|...a....|
|00003630| 21 89 15 88 0e 07 86 6b | 01 f9 0e 15 21 88 0e 08 |!......k|....!...|
|00003640| 86 8f 01 f9 fa 21 89 16 | 10 85 8f 01 0e 10 dd 55 |.....!..|.......U|
|00003650| 83 85 01 ef 82 86 01 e4 | 16 08 e4 16 09 e4 89 16 |........|........|
|00003660| 0a 88 f9 fb 21 86 a0 01 | f9 fc 21 85 a0 01 c1 89 |....!...|..!.....|
|00003670| 16 0b 88 d8 fd 08 5c 22 | 85 b2 01 ea eb fe ff dc |......\"|........|
|00003680| 08 e4 5c 22 5c 22 5c 22 | 88 d8 81 40 00 08 5c 22 |..\"\"\"|...@..\"|
|00003690| 85 d6 01 08 e4 e5 e4 21 | 4f 08 e6 e4 21 c2 4f 50 |.......!|O...!.OP|
|000036a0| 89 16 10 85 d6 01 d8 81 | 41 00 0e 10 5c 22 85 e1 |........|A...\"..|
|000036b0| 01 0e 10 89 10 88 82 b3 | 01 88 d8 81 42 00 08 5c |........|....B..\|
|000036c0| 22 86 f1 01 d8 81 43 00 | 08 5c 22 85 0f 02 dc 08 |".....C.|.\".....|
|000036d0| dd 5c 22 14 08 e4 e5 dd | 21 4f 08 e6 dd 21 c2 4f |.\".....|!O...!.O|
|000036e0| 50 10 db 0c 21 14 c1 89 | 16 0f 88 e4 89 16 10 88 |P...!...|........|
|000036f0| d8 81 44 00 08 0e 10 23 | 85 5c 5c 02 0e 0e 85 2b |..D....#|.\\....+|
|00003700| 02 ea eb 81 45 00 5c 22 | 88 e1 dc 08 e4 5c 22 21 |....E.\"|.....\"!|
|00003710| 89 16 0e 88 0e 0d 86 43 | 02 0e 0e 16 0d c2 89 16 |.......C|........|
|00003720| 0e 88 0e 0c 86 51 02 0e | 0d 16 0c c2 89 16 0d 88 |.....Q..|........|
|00003730| e6 e4 21 89 16 10 88 82 | 15 02 88 81 46 00 0c 83 |..!.....|....F...|
|00003740| 68 02 dd 82 69 02 e4 0d | 83 71 02 dd 82 72 02 e4 |h...i...|.q...r..|
|00003750| 0e 06 83 7b 02 dd 82 7c | 02 e4 0e 0c 83 85 02 dd |...{...||........|
|00003760| 82 86 02 e4 0e 0d 83 8f | 02 dd 82 90 02 e4 0e 0e |........|........|
|00003770| 83 99 02 dd 82 9a 02 e4 | 26 06 89 16 10 88 0e 10 |........|&.......|
|00003780| 81 47 00 56 83 b2 02 ea | eb 81 45 00 5c 22 82 da |.G.V....|..E.\"..|
|00003790| 02 0e 10 e2 57 86 c1 02 | 0c 85 c1 02 0e 10 e2 55 |....W...|.......U|
|000037a0| 83 cd 02 ea eb 81 48 00 | 5c 22 82 da 02 0e 10 e2 |......H.|\"......|
|000037b0| 55 85 da 02 81 49 00 20 | 89 14 88 0c 86 45 03 0e |U....I. |.....E..|
|000037c0| 0c 85 f1 02 0e 0c 81 4a | 00 56 86 f1 02 0e 0c dd |.......J|.V......|
|000037d0| 57 83 06 03 0e 0c 14 0e | 0d 16 0c 0e 0e 16 0d c2 |W.......|........|
|000037e0| 89 16 0e 82 45 03 0e 0d | 85 18 03 0e 0d 81 4a 00 |....E...|......J.|
|000037f0| 56 86 18 03 0e 0d dd 57 | 83 29 03 0e 0d 14 0e 0e |V......W|.)......|
|00003800| 16 0d c2 89 16 0e 82 45 | 03 0e 0e 85 3b 03 0e 0e |.......E|....;...|
|00003810| 81 4a 00 56 86 3b 03 0e | 0e dd 57 85 45 03 0e 0e |.J.V.;..|..W.E...|
|00003820| 14 c2 89 16 0e 88 0c 85 | 98 03 0e 0c 85 53 03 0e |........|.....S..|
|00003830| 0c ef 56 83 69 03 0e 0c | 16 06 0e 0d 16 0c 0e 0e |..V.i...|........|
|00003840| 16 0d c2 89 16 0e 82 98 | 03 0e 0d 85 72 03 0e 0d |........|....r...|
|00003850| ef 56 83 84 03 0e 0d 16 | 06 0e 0e 16 0d c2 89 16 |.V......|........|
|00003860| 0e 82 98 03 0e 0e 85 8d | 03 0e 0e ef 56 85 98 03 |........|....V...|
|00003870| 0e 0e 16 06 c2 89 16 0e | 88 0c 85 9f 03 0e 06 83 |........|........|
|00003880| ad 03 0d 86 aa 03 0e 0c | 89 15 82 66 04 0c 85 b2 |........|...f....|
|00003890| 03 0d 83 bd 03 0e 0c 89 | 16 06 82 66 04 0e 16 89 |........|...f....|
|000038a0| 16 10 88 0e 10 85 31 04 | 0e 10 40 39 3f 86 26 04 |......1.|..@9?.&.|
|000038b0| 0e 10 40 81 4b 00 3e 83 | ed 03 0c 86 ea 03 0e 0c |..@.K.>.|........|
|000038c0| 14 0e 0d 16 0c 0e 0e 89 | 16 0d 82 26 04 0e 10 40 |........|...&...@|
|000038d0| 81 4c 00 3e 83 0a 04 0d | 86 07 04 0e 0c 15 0e 0d |.L.>....|........|
|000038e0| 16 0c 0e 0e 89 16 0d 82 | 26 04 0e 10 40 81 4d 00 |........|&...@.M.|
|000038f0| 3e 85 26 04 0e 06 86 26 | 04 0e 0c 16 06 0e 0d 16 |>.&....&|........|
|00003900| 0c 0e 0e 89 16 0d 88 0e | 10 41 89 16 10 88 82 c3 |........|.A......|
|00003910| 03 88 0d 86 42 04 0e 0c | 15 0e 0d 16 0c 0e 0e 89 |....B...|........|
|00003920| 16 0d 88 0e 06 86 55 04 | 0e 0c 16 06 0e 0d 16 0c |......U.|........|
|00003930| 0e 0e 89 16 0d 88 0c 86 | 66 04 0e 0c 14 0e 0d 16 |........|f.......|
|00003940| 0c 0e 0e 89 16 0d 88 0e | 0b 85 77 04 81 4e 00 81 |........|..w..N..|
|00003950| 4f 00 0c 21 21 89 14 88 | 81 50 00 0c 0e 0f 0d 0e |O..!!...|.P......|
|00003960| 06 0e 08 0e 09 0e 0a 26 | 07 2e 0e 87 22 20 5b 73 |.......&|...." [s|
|00003970| 74 72 20 74 20 6e 69 6c | 20 63 61 73 65 2d 66 6f |tr t nil| case-fo|
|00003980| 6c 64 2d 73 65 61 72 63 | 68 20 79 65 61 72 20 6d |ld-searc|h year m|
|00003990| 6f 6e 74 68 20 64 61 79 | 20 77 65 65 6b 64 61 79 |onth day| weekday|
|000039a0| 20 68 6f 75 72 20 6d 69 | 6e 75 74 65 20 73 65 63 | hour mi|nute sec|
|000039b0| 6f 6e 64 20 62 63 2d 66 | 6c 61 67 20 61 20 62 20 |ond bc-f|lag a b |
|000039c0| 63 20 62 69 67 79 65 61 | 72 20 74 65 6d 70 20 61 |c bigyea|r temp a|
|000039d0| 6d 70 6d 20 6d 61 74 68 | 2d 6c 6f 6e 67 2d 6d 6f |mpm math|-long-mo|
|000039e0| 6e 74 68 2d 6e 61 6d 65 | 73 20 6d 61 74 68 2d 6c |nth-name|s math-l|
|000039f0| 6f 6e 67 2d 77 65 65 6b | 64 61 79 2d 6e 61 6d 65 |ong-week|day-name|
|00003a00| 73 20 6d 61 74 68 2d 73 | 68 6f 72 74 2d 6d 6f 6e |s math-s|hort-mon|
|00003a10| 74 68 2d 6e 61 6d 65 73 | 20 6d 61 74 68 2d 73 68 |th-names| math-sh|
|00003a20| 6f 72 74 2d 77 65 65 6b | 64 61 79 2d 6e 61 6d 65 |ort-week|day-name|
|00003a30| 73 20 63 61 6c 63 2d 64 | 61 74 65 2d 66 6f 72 6d |s calc-d|ate-form|
|00003a40| 61 74 20 6d 61 74 68 2d | 70 61 72 73 65 2d 73 74 |at math-|parse-st|
|00003a50| 61 6e 64 61 72 64 2d 64 | 61 74 65 20 73 74 72 69 |andard-d|ate stri|
|00003a60| 6e 67 2d 6d 61 74 63 68 | 20 22 5c 5c 60 5b 5e 2d |ng-match| "\\`[^-|
|00003a70| 2b 2f 30 2d 39 61 2d 7a | 41 2d 5a 5d 2a 5c 5c 28 |+/0-9a-z|A-Z]*\\(|
|00003a80| 5b 2d 2b 5d 3f 5b 30 2d | 39 5d 2b 5c 5c 2e 3f 5b |[-+]?[0-|9]+\\.?[|
|00003a90| 30 2d 39 5d 2a 5c 5c 28 | 5b 65 45 5d 5b 2d 2b 5d |0-9]*\\(|[eE][-+]|
|00003aa0| 3f 5b 30 2d 39 5d 2b 5c | 5c 29 3f 5c 5c 29 5b 5e |?[0-9]+\|\)?\\)[^|
|00003ab0| 2d 2b 2f 30 2d 39 61 2d | 7a 41 2d 5a 5d 2a 5c 5c |-+/0-9a-|zA-Z]*\\|
|00003ac0| 27 22 20 64 61 74 65 20 | 6d 61 74 68 2d 72 65 61 |'" date |math-rea|
|00003ad0| 64 2d 6e 75 6d 62 65 72 | 20 6d 61 74 68 2d 6d 61 |d-number| math-ma|
|00003ae0| 74 63 68 2d 73 75 62 73 | 74 72 69 6e 67 20 31 20 |tch-subs|tring 1 |
|00003af0| 22 5c 5c 28 5b 30 2d 39 | 5d 5b 30 2d 39 5d 3f 5c |"\\([0-9|][0-9]?\|
|00003b00| 5c 29 3a 5c 5c 28 5b 30 | 2d 39 5d 5b 30 2d 39 5d |\):\\([0|-9][0-9]|
|00003b10| 3f 5c 5c 29 5c 5c 28 3a | 5c 5c 28 5b 30 2d 39 5d |?\\)\\(:|\\([0-9]|
|00003b20| 5b 30 2d 39 5d 3f 5c 5c | 28 5c 5c 2e 5b 30 2d 39 |[0-9]?\\|(\\.[0-9|
|00003b30| 5d 2b 5c 5c 29 3f 5c 5c | 29 5c 5c 29 3f 20 2a 5c |]+\\)?\\|)\\)? *\|
|00003b40| 5c 28 5b 61 70 5d 6d 3f | 5c 5c 7c 5b 61 70 5d 5c |\([ap]m?|\\|[ap]\|
|00003b50| 5c 2e 20 2a 6d 5c 5c 2e | 5c 5c 7c 6e 6f 6f 6e 5c |\. *m\\.|\\|noon\|
|00003b60| 5c 7c 6e 5c 5c 3e 5c 5c | 7c 6d 69 64 6e 69 67 68 |\|n\\>\\||midnigh|
|00003b70| 74 5c 5c 7c 6d 69 64 5c | 5c 3e 5c 5c 7c 6d 5c 5c |t\\|mid\|\>\\|m\\|
|00003b80| 3e 5c 5c 29 3f 22 20 22 | 5c 5c 28 5b 30 2d 39 5d |>\\)?" "|\\([0-9]|
|00003b90| 5b 30 2d 39 5d 3f 5c 5c | 29 5c 5c 28 5c 5c 29 5c |[0-9]?\\|)\\(\\)\|
|00003ba0| 5c 28 5c 5c 28 5c 5c 28 | 5c 5c 29 5c 5c 29 5c 5c |\(\\(\\(|\\)\\)\\|
|00003bb0| 29 20 2a 5c 5c 28 5b 61 | 70 5d 6d 3f 5c 5c 7c 5b |) *\\([a|p]m?\\|[|
|00003bc0| 61 70 5d 5c 5c 2e 20 2a | 6d 5c 5c 2e 5c 5c 7c 6e |ap]\\. *|m\\.\\|n|
|00003bd0| 6f 6f 6e 5c 5c 7c 6e 5c | 5c 3e 5c 5c 7c 6d 69 64 |oon\\|n\|\>\\|mid|
|00003be0| 6e 69 67 68 74 5c 5c 7c | 6d 69 64 5c 5c 3e 5c 5c |night\\||mid\\>\\|
|00003bf0| 7c 6d 5c 5c 3e 5c 5c 29 | 22 20 36 20 73 74 72 69 ||m\\>\\)|" 6 stri|
|00003c00| 6e 67 2d 74 6f 2d 69 6e | 74 20 32 20 34 20 30 20 |ng-to-in|t 2 4 0 |
|00003c10| 6d 61 74 63 68 2d 62 65 | 67 69 6e 6e 69 6e 67 20 |match-be|ginning |
|00003c20| 6d 61 74 63 68 2d 65 6e | 64 20 65 71 75 61 6c 20 |match-en|d equal |
|00003c30| 22 22 20 32 33 20 74 68 | 72 6f 77 20 73 79 6e 74 |"" 23 th|row synt|
|00003c40| 61 78 20 22 48 6f 75 72 | 20 76 61 6c 75 65 20 6f |ax "Hour| value o|
|00003c50| 75 74 20 6f 66 20 72 61 | 6e 67 65 22 20 75 70 63 |ut of ra|nge" upc|
|00003c60| 61 73 65 20 28 37 38 20 | 37 37 29 20 31 32 20 37 |ase (78 |77) 12 7|
|00003c70| 37 20 22 54 69 6d 65 20 | 6d 75 73 74 20 62 65 20 |7 "Time |must be |
|00003c80| 31 32 3a 30 30 3a 30 30 | 20 69 6e 20 74 68 69 73 |12:00:00| in this|
|00003c90| 20 63 6f 6e 74 65 78 74 | 22 20 36 35 20 25 20 32 | context|" 65 % 2|
|00003ca0| 34 20 22 5b 30 2d 39 61 | 2d 7a 41 2d 5a 5d 5c 5c |4 "[0-9a|-zA-Z]\\|
|00003cb0| 28 2d 5c 5c 29 5b 30 2d | 39 61 2d 7a 41 2d 5a 5d |(-\\)[0-|9a-zA-Z]|
|00003cc0| 22 20 63 6f 70 79 2d 73 | 65 71 75 65 6e 63 65 20 |" copy-s|equence |
|00003cd0| 34 37 20 22 5b 61 2d 7a | 41 2d 5a 5d 22 20 6d 61 |47 "[a-z|A-Z]" ma|
|00003ce0| 74 68 2d 70 61 72 73 65 | 2d 64 61 74 65 2d 77 6f |th-parse|-date-wo|
|00003cf0| 72 64 20 28 22 6e 6f 6f | 6e 22 20 22 6d 69 64 6e |rd ("noo|n" "midn|
|00003d00| 69 67 68 74 22 20 22 6d | 69 64 22 29 20 28 22 61 |ight" "m|id") ("a|
|00003d10| 64 22 20 22 61 2e 64 2e | 22 29 20 28 22 62 63 22 |d" "a.d.|") ("bc"|
|00003d20| 20 22 62 2e 63 2e 22 29 | 20 22 5b 61 2d 7a 41 2d | "b.c.")| "[a-zA-|
|00003d30| 5a 5d 2b 22 20 66 6f 72 | 6d 61 74 20 22 42 61 64 |Z]+" for|mat "Bad|
|00003d40| 20 77 6f 72 64 20 69 6e | 20 64 61 74 65 3a 20 5c | word in| date: \|
|00003d50| 22 25 73 5c 22 22 20 22 | 5b 2d 2b 5d 3f 30 2a 5b |"%s\"" "|[-+]?0*[|
|00003d60| 31 2d 39 5d 5b 30 2d 39 | 5d 5b 30 2d 39 5d 5b 30 |1-9][0-9|][0-9][0|
|00003d70| 2d 39 5d 5b 30 2d 39 5d | 2b 22 20 22 5b 34 2d 39 |-9][0-9]|+" "[4-9|
|00003d80| 5d 5b 30 2d 39 5d 5c 5c | 7c 5b 30 2d 39 5d 5b 30 |][0-9]\\||[0-9][0|
|00003d90| 2d 39 5d 5b 30 2d 39 5d | 5c 5c 7c 5b 2d 2b 5d 5b |-9][0-9]|\\|[-+][|
|00003da0| 30 2d 39 5d 2b 5b 5e 2d | 5d 2a 5c 5c 27 22 20 22 |0-9]+[^-|]*\\'" "|
|00003db0| 5c 5c 28 5b 2d 2b 5d 5b | 30 2d 39 5d 2b 5c 5c 29 |\\([-+][|0-9]+\\)|
|00003dc0| 5b 5e 2d 5d 2a 5c 5c 27 | 22 20 22 5c 5c 28 30 2a |[^-]*\\'|" "\\(0*|
|00003dd0| 5b 31 2d 39 5d 5b 30 2d | 39 5d 5b 30 2d 39 5d 2b |[1-9][0-|9][0-9]+|
|00003de0| 5c 5c 29 22 20 22 5b 30 | 2d 39 5d 2b 22 20 22 54 |\\)" "[0|-9]+" "T|
|00003df0| 6f 6f 20 6d 61 6e 79 20 | 6e 75 6d 62 65 72 73 20 |oo many |numbers |
|00003e00| 69 6e 20 64 61 74 65 22 | 20 2b 20 33 20 22 4e 6f |in date"| + 3 "No|
|00003e10| 74 20 65 6e 6f 75 67 68 | 20 6e 75 6d 62 65 72 73 |t enough| numbers|
|00003e20| 20 69 6e 20 64 61 74 65 | 22 20 6d 61 74 68 2d 74 | in date|" math-t|
|00003e30| 68 69 73 2d 79 65 61 72 | 20 33 31 20 28 59 20 59 |his-year| 31 (Y Y|
|00003e40| 59 20 42 59 20 59 59 59 | 20 59 59 59 59 29 20 28 |Y BY YYY| YYYY) (|
|00003e50| 4d 20 4d 4d 20 42 4d 20 | 6d 6d 6d 20 4d 6d 6d 20 |M MM BM |mmm Mmm |
|00003e60| 4d 6d 6d 6d 20 4d 4d 4d | 20 4d 4d 4d 4d 29 20 28 |Mmmm MMM| MMMM) (|
|00003e70| 44 20 44 44 20 42 44 29 | 20 6d 61 74 68 2d 6e 65 |D DD BD)| math-ne|
|00003e80| 67 20 6d 61 74 68 2d 61 | 62 73 20 6d 61 74 68 2d |g math-a|bs math-|
|00003e90| 70 61 72 73 65 2d 64 61 | 74 65 2d 76 61 6c 69 64 |parse-da|te-valid|
|00003ea0| 61 74 65 5d 20 36 38 29 | 5d 20 32 29 29 0a 0a 28 |ate] 68)|] 2))..(|
|00003eb0| 64 65 66 75 6e 20 6d 61 | 74 68 2d 70 61 72 73 65 |defun ma|th-parse|
|00003ec0| 2d 64 61 74 65 2d 76 61 | 6c 69 64 61 74 65 20 28 |-date-va|lidate (|
|00003ed0| 79 65 61 72 20 62 69 67 | 79 65 61 72 20 6d 6f 6e |year big|year mon|
|00003ee0| 74 68 20 64 61 79 20 68 | 6f 75 72 20 6d 69 6e 75 |th day h|our minu|
|00003ef0| 74 65 20 73 65 63 6f 6e | 64 29 20 28 62 79 74 65 |te secon|d) (byte|
|00003f00| 2d 63 6f 64 65 20 22 08 | 3f 85 20 00 c7 09 21 85 |-code ".|?. ...!.|
|00003f10| 20 00 09 c8 57 85 20 00 | 09 09 c9 57 83 1c 00 ca | ...W. .|...W....|
|00003f20| 82 1d 00 cb 5c 5c 89 11 | 88 09 cc 3d 85 2b 00 cd |....\\..|...=.+..|
|00003f30| ce cf 5c 22 88 0a d0 57 | 86 35 00 0a d1 56 85 3c |..\"...W|.5...V.<|
|00003f40| 00 cd ce d2 5c 22 88 0b | d0 57 86 49 00 0b d3 09 |....\"..|.W.I....|
|00003f50| 0a 5c 22 56 85 50 00 cd | ce d4 5c 22 88 0c 85 8d |.\"V.P..|..\"....|
|00003f60| 00 0c cc 57 86 5e 00 0c | d5 56 85 65 00 cd ce d6 |...W.^..|.V.e....|
|00003f70| 5c 22 88 0d cc 57 86 6f | 00 0d d7 56 85 76 00 cd |\"...W.o|...V.v..|
|00003f80| ce d8 5c 22 88 d9 0e 06 | 21 86 86 00 da 0e 06 db |..\"....|!.......|
|00003f90| 5c 22 dc 55 3f 85 8d 00 | cd ce dd 5c 22 88 de df |\".U?...|...\"...|
|00003fa0| e0 09 0a 0b 45 0c 85 9e | 00 0c 0d 0e 06 45 5c 22 |....E...|.....E\"|
|00003fb0| 21 44 87 22 20 5b 62 69 | 67 79 65 61 72 20 79 65 |!D." [bi|gyear ye|
|00003fc0| 61 72 20 6d 6f 6e 74 68 | 20 64 61 79 20 68 6f 75 |ar month| day hou|
|00003fd0| 72 20 6d 69 6e 75 74 65 | 20 73 65 63 6f 6e 64 20 |r minute| second |
|00003fe0| 6e 61 74 6e 75 6d 70 20 | 31 30 30 20 34 30 20 32 |natnump |100 40 2|
|00003ff0| 30 30 30 20 31 39 30 30 | 20 30 20 74 68 72 6f 77 |000 1900| 0 throw|
|00004000| 20 73 79 6e 74 61 78 20 | 22 59 65 61 72 20 76 61 | syntax |"Year va|
|00004010| 6c 75 65 20 69 73 20 6f | 75 74 20 6f 66 20 72 61 |lue is o|ut of ra|
|00004020| 6e 67 65 22 20 31 20 31 | 32 20 22 4d 6f 6e 74 68 |nge" 1 1|2 "Month|
|00004030| 20 76 61 6c 75 65 20 69 | 73 20 6f 75 74 20 6f 66 | value i|s out of|
|00004040| 20 72 61 6e 67 65 22 20 | 6d 61 74 68 2d 64 61 79 | range" |math-day|
|00004050| 73 2d 69 6e 2d 6d 6f 6e | 74 68 20 22 44 61 79 20 |s-in-mon|th "Day |
|00004060| 76 61 6c 75 65 20 69 73 | 20 6f 75 74 20 6f 66 20 |value is| out of |
|00004070| 72 61 6e 67 65 22 20 32 | 33 20 22 48 6f 75 72 20 |range" 2|3 "Hour |
|00004080| 76 61 6c 75 65 20 69 73 | 20 6f 75 74 20 6f 66 20 |value is| out of |
|00004090| 72 61 6e 67 65 22 20 35 | 39 20 22 4d 69 6e 75 74 |range" 5|9 "Minut|
|000040a0| 65 20 76 61 6c 75 65 20 | 69 73 20 6f 75 74 20 6f |e value |is out o|
|000040b0| 66 20 72 61 6e 67 65 22 | 20 6d 61 74 68 2d 6e 65 |f range"| math-ne|
|000040c0| 67 70 20 6d 61 74 68 2d | 63 6f 6d 70 61 72 65 20 |gp math-|compare |
|000040d0| 36 30 20 2d 31 20 22 53 | 65 63 6f 6e 64 73 20 76 |60 -1 "S|econds v|
|000040e0| 61 6c 75 65 20 69 73 20 | 6f 75 74 20 6f 66 20 72 |alue is |out of r|
|000040f0| 61 6e 67 65 22 20 64 61 | 74 65 20 6d 61 74 68 2d |ange" da|te math-|
|00004100| 64 74 2d 74 6f 2d 64 61 | 74 65 20 61 70 70 65 6e |dt-to-da|te appen|
|00004110| 64 5d 20 31 37 29 29 0a | 0a 28 64 65 66 75 6e 20 |d] 17)).|.(defun |
|00004120| 6d 61 74 68 2d 70 61 72 | 73 65 2d 64 61 74 65 2d |math-par|se-date-|
|00004130| 77 6f 72 64 20 28 6e 61 | 6d 65 73 20 26 6f 70 74 |word (na|mes &opt|
|00004140| 69 6f 6e 61 6c 20 66 72 | 6f 6e 74 29 20 28 62 79 |ional fr|ont) (by|
|00004150| 74 65 2d 63 6f 64 65 20 | 22 c4 18 09 85 1a 00 c5 |te-code |".......|
|00004160| c6 09 40 c7 5c 22 83 13 | 00 c8 82 17 00 c9 09 40 |..@.\"..|.......@|
|00004170| 21 0a 5c 22 3f 85 28 00 | 09 41 11 08 54 89 10 88 |!.\"?.(.|.A..T...|
|00004180| 82 02 00 88 09 85 54 00 | 0b 3f 86 37 00 ca cb 21 |......T.|.?.7...!|
|00004190| cb 55 85 54 00 0a cb ca | cb 21 4f 0b 83 48 00 cc |.U.T....|.!O..H..|
|000041a0| 82 49 00 cd 0a ce cb 21 | cf 4f 51 89 12 88 08 29 |.I.....!|.OQ....)|
|000041b0| 87 22 20 5b 6e 20 6e 61 | 6d 65 73 20 73 74 72 20 |." [n na|mes str |
|000041c0| 66 72 6f 6e 74 20 31 20 | 73 74 72 69 6e 67 2d 6d |front 1 |string-m|
|000041d0| 61 74 63 68 20 65 71 75 | 61 6c 20 22 53 65 70 22 |atch equ|al "Sep"|
|000041e0| 20 22 53 65 70 74 3f 22 | 20 72 65 67 65 78 70 2d | "Sept?"| regexp-|
|000041f0| 71 75 6f 74 65 20 6d 61 | 74 63 68 2d 62 65 67 69 |quote ma|tch-begi|
|00004200| 6e 6e 69 6e 67 20 30 20 | 22 22 20 22 20 22 20 6d |nning 0 |"" " " m|
|00004210| 61 74 63 68 2d 65 6e 64 | 20 6e 69 6c 5d 20 31 31 |atch-end| nil] 11|
|00004220| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 61 74 68 2d |))..(def|un math-|
|00004230| 70 61 72 73 65 2d 73 74 | 61 6e 64 61 72 64 2d 64 |parse-st|andard-d|
|00004240| 61 74 65 20 28 73 74 72 | 20 77 69 74 68 2d 74 69 |ate (str| with-ti|
|00004250| 6d 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |me) (byt|e-code "|
|00004260| c1 c1 c9 0d c9 c9 c9 c9 | c9 c9 c9 c9 c9 c9 c9 c9 |........|........|
|00004270| 1e 12 1e 11 1e 10 1e 0f | 1e 0e 1e 0d 1e 0c 1e 0b |........|........|
|00004280| 1e 0a 1e 08 1e 07 1e 06 | 1c 1b 1a 18 0c 85 31 00 |........|......1.|
|00004290| 0a 85 53 04 0c 40 16 06 | 0c 41 86 44 00 0e 08 c9 |..S..@..|.A.D....|
|000042a0| 89 16 08 88 89 14 14 0c | 40 89 16 07 88 0e 07 3a |........|@......:|
|000042b0| 85 59 00 0e 07 40 89 16 | 07 88 0e 06 3c 83 76 00 |.Y...@..|....<.v.|
|000042c0| 0e 13 3f 86 73 00 0e 06 | 3f 86 73 00 0c 16 08 0e |..?.s...|?.s.....|
|000042d0| 06 89 14 82 49 04 0e 06 | 3b 83 a1 00 0e 06 47 0e |....I...|;.....G.|
|000042e0| 14 47 58 85 91 00 d9 0e | 06 0e 14 da 0e 06 47 4f |.GX.....|......GO|
|000042f0| 5c 22 85 9e 00 0e 14 0e | 06 47 c9 4f 89 16 14 82 |\"......|.G.O....|
|00004300| 49 04 0e 06 db 3d 83 ac | 00 c1 82 49 04 0e 06 dc |I....=..|...I....|
|00004310| 3e 83 21 01 dd de 0e 14 | 5c 22 85 1e 01 df 0e 14 |>.!.....|\"......|
|00004320| da 5c 22 13 0e 14 e0 da | 21 c9 4f 16 14 e1 e2 0b |.\".....|!.O.....|
|00004330| 21 21 13 e3 0b 0e 06 e4 | 3e 83 dd 00 da 82 ef 00 |!!......|>.......|
|00004340| 0e 06 e5 3d 86 e7 00 e6 | 0b 21 83 ee 00 e7 82 ef |...=....|.!......|
|00004350| 00 e8 5c 22 13 e9 0b 38 | 86 f9 00 0e 0f 16 0f ea |..\"...8|........|
|00004360| 0b 38 86 03 01 0e 10 16 | 10 eb 0b 38 86 0d 01 0e |.8......|...8....|
|00004370| 11 16 11 0b 40 16 0a ec | 0b 38 16 0b ed 0b 38 89 |....@...|.8....8.|
|00004380| 16 0c 82 49 04 0e 06 ee | 3d 83 6c 01 dd ef 0e 14 |...I....|=.l.....|
|00004390| 5c 22 85 69 01 df 0e 14 | da 5c 22 13 0e 14 e0 da |\".i....|.\".....|
|000043a0| 21 c9 4f 16 14 e1 f0 f1 | f2 e2 0b 21 f3 5c 22 5c |!.O.....|...!.\"\|
|000043b0| 22 21 13 e9 0b 38 16 0f | ea 0b 38 16 10 eb 0b 38 |"!...8..|..8....8|
|000043c0| 16 11 0b 40 16 0a ec 0b | 38 16 0b ed 0b 38 89 16 |...@....|8....8..|
|000043d0| 0c 82 49 04 0e 06 f4 3e | 83 7e 01 f5 0e 15 c1 5c |..I....>|.~.....\|
|000043e0| 22 89 16 0b 82 49 04 0e | 06 f6 3e 83 90 01 f5 0e |"....I..|..>.....|
|000043f0| 16 c1 5c 22 89 16 0b 82 | 49 04 0e 06 f7 3e 83 9f |..\"....|I....>..|
|00004400| 01 f5 0e 17 c1 5c 22 82 | 49 04 0e 06 f8 3e 83 ae |.....\".|I....>..|
|00004410| 01 f5 0e 18 c1 5c 22 82 | 49 04 0e 06 f9 3e 83 fe |.....\".|I....>..|
|00004420| 01 dd fa 0e 14 5c 22 83 | d7 01 0e 0f fb 55 83 c8 |.....\".|.....U..|
|00004430| 01 da 82 ca 01 0e 0f 16 | 0f 0e 14 ec c9 4f 89 16 |........|.....O..|
|00004440| 14 82 fb 01 dd fc 0e 14 | 5c 22 85 fb 01 0e 0f fb |........|\"......|
|00004450| 55 83 ea 01 fb 82 f1 01 | fd 0e 0f fb 5c 5c fe 5c |U.......|....\\.\|
|00004460| 22 16 0f 0e 14 ec c9 4f | 89 16 14 82 49 04 0e 06 |"......O|....I...|
|00004470| ff 3e 83 56 02 dd 81 40 | 00 0e 14 5c 22 83 2b 02 |.>.V...@|...\".+.|
|00004480| 0e 0f fb 55 83 1a 02 da | 82 1c 02 0e 0f 16 0f 0e |...U....|........|
|00004490| 14 e0 da 21 c9 4f 89 16 | 14 82 53 02 dd 81 41 00 |...!.O..|..S...A.|
|000044a0| 0e 14 5c 22 85 53 02 0e | 0f fb 55 83 40 02 fb 82 |..\".S..|..U.@...|
|000044b0| 47 02 fd 0e 0f fb 5c 5c | fe 5c 22 16 0f 0e 14 e0 |G.....\\|.\".....|
|000044c0| da 21 c9 4f 89 16 14 82 | 49 04 0e 06 81 42 00 3e |.!.O....|I....B.>|
|000044d0| 83 ba 02 0e 07 81 43 00 | 3e 83 85 02 0e 06 81 44 |......C.|>......D|
|000044e0| 00 3e 83 7b 02 dd 81 45 | 00 0e 14 5c 22 82 82 02 |.>.{...E|...\"...|
|000044f0| dd 81 46 00 0e 14 5c 22 | 82 8a 02 dd ef 0e 14 5c |..F...\"|.......\|
|00004500| 22 85 b7 02 df 0e 14 da | 5c 22 16 0a 0e 06 81 47 |".......|\".....G|
|00004510| 00 3d 86 a5 02 0e 14 da | 48 81 48 00 3e 16 0d 0e |.=......|H.H.>...|
|00004520| 14 e0 da 21 c9 4f 16 14 | e2 0e 0a 21 89 16 0a 82 |...!.O..|...!....|
|00004530| 49 04 0e 06 81 49 00 3d | 83 c7 02 c1 82 49 04 0e |I....I.=|.....I..|
|00004540| 06 81 4a 00 3e 83 e7 02 | dd 81 4b 00 0e 14 5c 22 |..J.>...|..K...\"|
|00004550| 85 e4 02 0e 14 e0 da 21 | c9 4f 89 16 14 82 49 04 |.......!|.O....I.|
|00004560| 0e 06 81 4c 00 3e 83 07 | 03 dd 81 4d 00 0e 14 5c |...L.>..|...M...\|
|00004570| 22 85 04 03 0e 14 e0 da | 21 c9 4f 89 16 14 82 49 |".......|!.O....I|
|00004580| 04 0e 06 81 4e 00 3e 83 | 2a 03 dd 81 4f 00 0e 14 |....N.>.|*...O...|
|00004590| 5c 22 85 27 03 0e 14 e0 | da 21 c9 4f 16 14 c1 89 |\".'....|.!.O....|
|000045a0| 16 12 82 49 04 0e 06 81 | 50 00 3e 83 6a 03 0e 07 |...I....|P.>.j...|
|000045b0| 81 51 00 3e 83 46 03 dd | 81 52 00 0e 14 5c 22 82 |.Q.>.F..|.R...\".|
|000045c0| 4d 03 dd 81 53 00 0e 14 | 5c 22 85 67 03 df 0e 14 |M...S...|\".g....|
|000045d0| da 5c 22 16 11 0e 14 e0 | da 21 c9 4f 16 14 e2 0e |.\".....|.!.O....|
|000045e0| 11 21 89 16 11 82 49 04 | 0e 06 81 54 00 3d 83 8c |.!....I.|...T.=..|
|000045f0| 03 dd 81 55 00 0e 14 5c | 22 83 88 03 0e 14 ec c9 |...U...\|".......|
|00004600| 4f 89 16 14 82 89 03 c1 | 82 49 04 0e 06 81 56 00 |O.......|.I....V.|
|00004610| 3e 85 9b 03 0e 07 81 57 | 00 3e 83 bb 03 0e 06 81 |>......W|.>......|
|00004620| 58 00 3d 83 b1 03 dd 81 | 59 00 0e 14 5c 22 82 b8 |X.=.....|Y...\"..|
|00004630| 03 dd 81 45 00 0e 14 5c | 22 82 c2 03 dd 81 5a 00 |...E...\|".....Z.|
|00004640| 0e 14 5c 22 3f 86 de 03 | 81 5b 00 df 0e 14 da 5c |..\"?...|.[.....\|
|00004650| 22 21 13 0e 14 e0 da 21 | c9 4f 89 16 14 85 de 03 |"!.....!|.O......|
|00004660| c9 83 e5 03 c9 82 49 04 | 0e 06 81 5c 5c 00 3d 83 |......I.|...\\.=.|
|00004670| fc 03 0b da 59 85 f9 03 | 0b 81 5d 00 57 82 49 04 |....Y...|..].W.I.|
|00004680| 0e 06 81 5e 00 3e 83 0c | 04 0b 89 16 0e 82 49 04 |...^.>..|......I.|
|00004690| 0e 06 81 5f 00 3e 83 1c | 04 0b 89 16 0b 82 49 04 |..._.>..|......I.|
|000046a0| 0e 06 81 60 00 3e 83 2c | 04 0b 89 16 0c 82 49 04 |...`.>.,|......I.|
|000046b0| 0e 06 81 61 00 3e 83 3c | 04 0b 89 16 0f 82 49 04 |...a.>.<|......I.|
|000046c0| 0e 06 81 62 00 3e 85 49 | 04 0b 89 16 10 86 4f 04 |...b.>.I|......O.|
|000046d0| c9 89 12 88 82 2c 00 88 | 0e 0e 85 71 04 0e 0b 85 |.....,..|...q....|
|000046e0| 60 04 0e 0c 83 6a 04 c9 | 89 16 0e 82 71 04 ec 16 |`....j..|....q...|
|000046f0| 0b ec 89 16 0c 88 0a 85 | 7d 04 d9 0e 14 81 63 00 |........|}.....c.|
|00004700| 5c 22 85 f7 04 0e 0b 85 | f7 04 0e 0c 85 f7 04 0e |\"......|........|
|00004710| 0f 86 96 04 0e 10 86 96 | 04 0e 11 3f 86 a1 04 0e |........|...?....|
|00004720| 0f 85 a1 04 0e 10 85 f7 | 04 0e 0a 86 b0 04 81 64 |........|.......d|
|00004730| 00 20 89 16 0a 88 0e 11 | 86 ba 04 da 89 16 11 88 |. ......|........|
|00004740| 0e 12 85 cd 04 81 65 00 | 81 66 00 0e 0a 21 21 89 |......e.|.f...!!.|
|00004750| 16 0a 88 81 67 00 0e 0a | 0e 0d 0e 0b 0e 0c 0e 0f |....g...|........|
|00004760| 0e 10 0e 11 26 07 89 16 | 0c 88 0e 0e 85 f4 04 f0 |....&...|........|
|00004770| 0e 0c 0e 0e 53 5c 22 89 | 16 0c 88 0e 0c 2e 10 87 |....S\".|........|
|00004780| 22 20 5b 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |" [case-|fold-sea|
|00004790| 72 63 68 20 74 20 6f 6b | 61 79 20 6e 75 6d 20 66 |rch t ok|ay num f|
|000047a0| 6d 74 20 63 61 6c 63 2d | 64 61 74 65 2d 66 6f 72 |mt calc-|date-for|
|000047b0| 6d 61 74 20 74 68 69 73 | 20 6e 65 78 74 20 67 6e |mat this| next gn|
|000047c0| 65 78 74 20 6e 69 6c 20 | 79 65 61 72 20 6d 6f 6e |ext nil |year mon|
|000047d0| 74 68 20 64 61 79 20 62 | 69 67 79 65 61 72 20 79 |th day b|igyear y|
|000047e0| 65 61 72 64 61 79 20 68 | 6f 75 72 20 6d 69 6e 75 |earday h|our minu|
|000047f0| 74 65 20 73 65 63 6f 6e | 64 20 62 63 2d 66 6c 61 |te secon|d bc-fla|
|00004800| 67 20 77 69 74 68 2d 74 | 69 6d 65 20 73 74 72 20 |g with-t|ime str |
|00004810| 6d 61 74 68 2d 73 68 6f | 72 74 2d 6d 6f 6e 74 68 |math-sho|rt-month|
|00004820| 2d 6e 61 6d 65 73 20 6d | 61 74 68 2d 6c 6f 6e 67 |-names m|ath-long|
|00004830| 2d 6d 6f 6e 74 68 2d 6e | 61 6d 65 73 20 6d 61 74 |-month-n|ames mat|
|00004840| 68 2d 73 68 6f 72 74 2d | 77 65 65 6b 64 61 79 2d |h-short-|weekday-|
|00004850| 6e 61 6d 65 73 20 6d 61 | 74 68 2d 6c 6f 6e 67 2d |names ma|th-long-|
|00004860| 77 65 65 6b 64 61 79 2d | 6e 61 6d 65 73 20 65 71 |weekday-|names eq|
|00004870| 75 61 6c 20 30 20 58 20 | 28 6e 20 4e 20 6a 20 4a |ual 0 X |(n N j J|
|00004880| 29 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |) string|-match "|
|00004890| 5c 5c 60 5b 2d 2b 5d 3f | 5b 30 2d 39 2e 5d 2b 5c |\\`[-+]?|[0-9.]+\|
|000048a0| 5c 28 5b 65 45 5d 5b 2d | 2b 5d 3f 5b 30 2d 39 5d |\([eE][-|+]?[0-9]|
|000048b0| 2b 5c 5c 29 3f 22 20 6d | 61 74 68 2d 6d 61 74 63 |+\\)?" m|ath-matc|
|000048c0| 68 2d 73 75 62 73 74 72 | 69 6e 67 20 6d 61 74 63 |h-substr|ing matc|
|000048d0| 68 2d 65 6e 64 20 6d 61 | 74 68 2d 64 61 74 65 2d |h-end ma|th-date-|
|000048e0| 74 6f 2d 64 74 20 6d 61 | 74 68 2d 72 65 61 64 2d |to-dt ma|th-read-|
|000048f0| 6e 75 6d 62 65 72 20 6d | 61 74 68 2d 73 75 62 20 |number m|ath-sub |
|00004900| 28 6e 20 4e 29 20 6a 20 | 6d 61 74 68 2d 69 6e 74 |(n N) j |math-int|
|00004910| 65 67 65 72 70 20 28 62 | 69 67 70 6f 73 20 34 32 |egerp (b|igpos 42|
|00004920| 34 20 37 32 31 20 31 29 | 20 28 66 6c 6f 61 74 20 |4 721 1)| (float |
|00004930| 28 62 69 67 70 6f 73 20 | 32 33 35 20 32 31 34 20 |(bigpos |235 214 |
|00004940| 31 37 29 20 2d 31 29 20 | 33 20 34 20 35 20 31 20 |17) -1) |3 4 5 1 |
|00004950| 32 20 55 20 22 5c 5c 60 | 5b 2d 2b 5d 3f 5b 30 2d |2 U "\\`|[-+]?[0-|
|00004960| 39 5d 2b 22 20 6d 61 74 | 68 2d 61 64 64 20 37 31 |9]+" mat|h-add 71|
|00004970| 39 31 36 34 20 6d 61 74 | 68 2d 64 69 76 20 28 66 |9164 mat|h-div (f|
|00004980| 6c 6f 61 74 20 38 36 34 | 20 32 29 20 28 6d 6d 6d |loat 864| 2) (mmm|
|00004990| 20 4d 6d 6d 20 4d 4d 4d | 29 20 6d 61 74 68 2d 70 | Mmm MMM|) math-p|
|000049a0| 61 72 73 65 2d 64 61 74 | 65 2d 77 6f 72 64 20 28 |arse-dat|e-word (|
|000049b0| 4d 6d 6d 6d 20 4d 4d 4d | 4d 29 20 28 77 77 77 20 |Mmmm MMM|M) (www |
|000049c0| 57 77 77 20 57 57 57 29 | 20 28 57 77 77 77 20 57 |Www WWW)| (Wwww W|
|000049d0| 57 57 57 29 20 28 70 20 | 50 29 20 22 5c 5c 60 61 |WWW) (p |P) "\\`a|
|000049e0| 22 20 31 32 20 22 5c 5c | 60 70 22 20 25 20 32 34 |" 12 "\\|`p" % 24|
|000049f0| 20 28 70 70 20 50 50 20 | 70 70 70 70 20 50 50 50 | (pp PP |pppp PPP|
|00004a00| 50 29 20 22 5c 5c 60 61 | 6d 5c 5c 7c 61 5c 5c 2e |P) "\\`a|m\\|a\\.|
|00004a10| 6d 5c 5c 2e 22 20 22 5c | 5c 60 70 6d 5c 5c 7c 70 |m\\." "\|\`pm\\|p|
|00004a20| 5c 5c 2e 6d 5c 5c 2e 22 | 20 28 59 20 59 59 20 42 |\\.m\\."| (Y YY B|
|00004a30| 59 20 59 59 59 20 59 59 | 59 59 29 20 28 4d 4d 20 |Y YYY YY|YY) (MM |
|00004a40| 44 44 20 64 64 64 20 68 | 68 20 48 48 20 6d 6d 20 |DD ddd h|h HH mm |
|00004a50| 73 73 20 53 53 29 20 28 | 59 20 59 59 20 42 59 59 |ss SS) (|Y YY BYY|
|00004a60| 29 20 22 5c 5c 60 20 2a | 5b 30 2d 39 5d 5b 30 2d |) "\\` *|[0-9][0-|
|00004a70| 39 5d 22 20 22 5c 5c 60 | 5b 30 2d 39 5d 5b 30 2d |9]" "\\`|[0-9][0-|
|00004a80| 39 5d 5b 30 2d 39 5d 5b | 30 2d 39 5d 22 20 59 59 |9][0-9][|0-9]" YY|
|00004a90| 59 20 28 34 33 20 34 35 | 29 20 62 20 28 61 61 20 |Y (43 45|) b (aa |
|00004aa0| 41 41 20 61 61 61 61 20 | 41 41 41 41 29 20 22 5c |AA aaaa |AAAA) "\|
|00004ab0| 5c 60 20 2a 5c 5c 28 61 | 64 5c 5c 7c 61 5c 5c 2e |\` *\\(a|d\\|a\\.|
|00004ac0| 64 5c 5c 2e 5c 5c 29 22 | 20 28 61 61 61 20 41 41 |d\\.\\)"| (aaa AA|
|00004ad0| 41 29 20 22 5c 5c 60 20 | 2a 61 64 20 2a 22 20 28 |A) "\\` |*ad *" (|
|00004ae0| 62 62 20 42 42 20 62 62 | 62 20 42 42 42 20 62 62 |bb BB bb|b BBB bb|
|00004af0| 62 62 20 42 42 42 42 29 | 20 22 5c 5c 60 20 2a 5c |bb BBBB)| "\\` *\|
|00004b00| 5c 28 62 63 5c 5c 7c 62 | 5c 5c 2e 63 5c 5c 2e 5c |\(bc\\|b|\\.c\\.\|
|00004b10| 5c 29 22 20 28 73 20 73 | 73 20 62 73 20 53 53 20 |\)" (s s|s bs SS |
|00004b20| 42 53 29 20 28 59 59 20 | 59 59 59 59 20 4d 4d 20 |BS) (YY |YYYY MM |
|00004b30| 44 44 20 68 68 20 48 48 | 20 6d 6d 29 20 22 5c 5c |DD hh HH| mm) "\\|
|00004b40| 60 20 2a 5b 30 2d 39 5d | 5b 30 2d 39 5d 5c 5c 28 |` *[0-9]|[0-9]\\(|
|00004b50| 5c 5c 2e 5b 30 2d 39 5d | 2b 5c 5c 29 3f 22 20 22 |\\.[0-9]|+\\)?" "|
|00004b60| 5c 5c 60 20 2a 5b 30 2d | 39 5d 5b 30 2d 39 5d 3f |\\` *[0-|9][0-9]?|
|00004b70| 5c 5c 28 5c 5c 2e 5b 30 | 2d 39 5d 2b 5c 5c 29 3f |\\(\\.[0|-9]+\\)?|
|00004b80| 22 20 43 20 22 5c 5c 60 | 3a 5b 30 2d 39 5d 5b 30 |" C "\\`|:[0-9][0|
|00004b90| 2d 39 5d 22 20 28 64 64 | 64 20 4d 4d 20 44 44 20 |-9]" (dd|d MM DD |
|00004ba0| 68 68 20 48 48 20 6d 6d | 29 20 28 59 59 20 59 59 |hh HH mm|) (YY YY|
|00004bb0| 59 59 20 4d 4d 20 44 44 | 20 64 64 64 20 68 68 20 |YY MM DD| ddd hh |
|00004bc0| 48 48 20 6d 6d 20 73 73 | 20 53 53 29 20 64 64 64 |HH mm ss| SS) ddd|
|00004bd0| 20 22 5c 5c 60 20 2a 5b | 30 2d 39 5d 5b 30 2d 39 | "\\` *[|0-9][0-9|
|00004be0| 5d 5b 30 2d 39 5d 22 20 | 22 5c 5c 60 20 2a 5b 30 |][0-9]" |"\\` *[0|
|00004bf0| 2d 39 5d 2b 22 20 73 74 | 72 69 6e 67 2d 74 6f 2d |-9]+" st|ring-to-|
|00004c00| 69 6e 74 20 57 20 37 20 | 28 64 20 64 64 64 20 62 |int W 7 |(d ddd b|
|00004c10| 64 64 29 20 28 4d 20 4d | 4d 20 42 4d 29 20 28 44 |dd) (M M|M BM) (D|
|00004c20| 20 44 44 20 42 44 29 20 | 28 68 20 68 68 20 62 68 | DD BD) |(h hh bh|
|00004c30| 20 48 20 48 48 20 42 48 | 29 20 28 6d 20 6d 6d 20 | H HH BH|) (m mm |
|00004c40| 62 6d 29 20 22 22 20 6d | 61 74 68 2d 74 68 69 73 |bm) "" m|ath-this|
|00004c50| 2d 79 65 61 72 20 6d 61 | 74 68 2d 6e 65 67 20 6d |-year ma|th-neg m|
|00004c60| 61 74 68 2d 61 62 73 20 | 6d 61 74 68 2d 70 61 72 |ath-abs |math-par|
|00004c70| 73 65 2d 64 61 74 65 2d | 76 61 6c 69 64 61 74 65 |se-date-|validate|
|00004c80| 5d 20 36 33 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |] 63))..|(defun c|
|00004c90| 61 6c 63 46 75 6e 63 2d | 6e 6f 77 20 28 26 6f 70 |alcFunc-|now (&op|
|00004ca0| 74 69 6f 6e 61 6c 20 7a | 6f 6e 65 29 20 28 62 79 |tional z|one) (by|
|00004cb0| 74 65 2d 63 6f 64 65 20 | 22 c2 19 c4 c5 20 21 29 |te-code |".... !)|
|00004cc0| 18 08 3a 83 28 00 0b 83 | 24 00 c6 08 c7 c8 c9 c2 |..:.(...|$.......|
|00004cd0| 08 5c 22 c9 0b 08 5c 22 | 5c 22 ca 5c 22 5c 22 82 |.\"...\"|\".\"\".|
|00004ce0| 25 00 08 82 36 00 cb cc | 21 88 cd ce 43 0b 85 35 |%...6...|!...C..5|
|00004cf0| 00 0b 43 5c 22 29 87 22 | 20 5b 64 61 74 65 20 63 |..C\")."| [date c|
|00004d00| 61 6c 63 2d 64 61 74 65 | 2d 66 6f 72 6d 61 74 20 |alc-date|-format |
|00004d10| 6e 69 6c 20 7a 6f 6e 65 | 20 6d 61 74 68 2d 70 61 |nil zone| math-pa|
|00004d20| 72 73 65 2d 64 61 74 65 | 20 63 75 72 72 65 6e 74 |rse-date| current|
|00004d30| 2d 74 69 6d 65 2d 73 74 | 72 69 6e 67 20 6d 61 74 |-time-st|ring mat|
|00004d40| 68 2d 61 64 64 20 6d 61 | 74 68 2d 64 69 76 20 6d |h-add ma|th-div m|
|00004d50| 61 74 68 2d 73 75 62 20 | 63 61 6c 63 46 75 6e 63 |ath-sub |calcFunc|
|00004d60| 2d 74 7a 6f 6e 65 20 28 | 66 6c 6f 61 74 20 38 36 |-tzone (|float 86|
|00004d70| 34 20 32 29 20 63 61 6c | 63 2d 72 65 63 6f 72 64 |4 2) cal|c-record|
|00004d80| 2d 77 68 79 20 22 2a 55 | 6e 61 62 6c 65 20 74 6f |-why "*U|nable to|
|00004d90| 20 69 6e 74 65 72 70 72 | 65 74 20 63 75 72 72 65 | interpr|et curre|
|00004da0| 6e 74 20 64 61 74 65 20 | 66 72 6f 6d 20 73 79 73 |nt date |from sys|
|00004db0| 74 65 6d 22 20 61 70 70 | 65 6e 64 20 63 61 6c 63 |tem" app|end calc|
|00004dc0| 46 75 6e 63 2d 6e 6f 77 | 5d 20 31 31 29 29 0a 0a |Func-now|] 11))..|
|00004dd0| 28 64 65 66 75 6e 20 63 | 61 6c 63 46 75 6e 63 2d |(defun c|alcFunc-|
|00004de0| 79 65 61 72 20 28 64 61 | 74 65 29 20 28 62 79 74 |year (da|te) (byt|
|00004df0| 65 2d 63 6f 64 65 20 22 | c1 08 21 40 87 22 20 5b |e-code "|..!@." [|
|00004e00| 64 61 74 65 20 6d 61 74 | 68 2d 64 61 74 65 2d 74 |date mat|h-date-t|
|00004e10| 6f 2d 64 74 5d 20 32 29 | 29 0a 0a 28 64 65 66 75 |o-dt] 2)|)..(defu|
|00004e20| 6e 20 63 61 6c 63 46 75 | 6e 63 2d 6d 6f 6e 74 68 |n calcFu|nc-month|
|00004e30| 20 28 64 61 74 65 29 20 | 28 62 79 74 65 2d 63 6f | (date) |(byte-co|
|00004e40| 64 65 20 22 c1 c2 08 21 | 38 87 22 20 5b 64 61 74 |de "...!|8." [dat|
|00004e50| 65 20 31 20 6d 61 74 68 | 2d 64 61 74 65 2d 74 6f |e 1 math|-date-to|
|00004e60| 2d 64 74 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |-dt] 3))|..(defun|
|00004e70| 20 63 61 6c 63 46 75 6e | 63 2d 64 61 79 20 28 64 | calcFun|c-day (d|
|00004e80| 61 74 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ate) (by|te-code |
|00004e90| 22 c1 c2 08 21 38 87 22 | 20 5b 64 61 74 65 20 32 |"...!8."| [date 2|
|00004ea0| 20 6d 61 74 68 2d 64 61 | 74 65 2d 74 6f 2d 64 74 | math-da|te-to-dt|
|00004eb0| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 3))..(|defun ca|
|00004ec0| 6c 63 46 75 6e 63 2d 77 | 65 65 6b 64 61 79 20 28 |lcFunc-w|eekday (|
|00004ed0| 64 61 74 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |date) (b|yte-code|
|00004ee0| 20 22 c1 08 21 c0 3d 85 | 0d 00 c2 08 38 89 10 88 | "..!.=.|....8...|
|00004ef0| c3 08 21 86 18 00 c4 08 | c5 5c 22 88 c6 c7 c8 08 |..!.....|.\".....|
|00004f00| 21 c9 5c 22 ca 5c 22 87 | 22 20 5b 64 61 74 65 20 |!.\".\".|" [date |
|00004f10| 63 61 72 2d 73 61 66 65 | 20 31 20 6d 61 74 68 2d |car-safe| 1 math-|
|00004f20| 72 65 61 6c 70 20 6d 61 | 74 68 2d 72 65 6a 65 63 |realp ma|th-rejec|
|00004f30| 74 2d 61 72 67 20 64 61 | 74 65 70 20 6d 61 74 68 |t-arg da|tep math|
|00004f40| 2d 6d 6f 64 20 6d 61 74 | 68 2d 61 64 64 20 6d 61 |-mod mat|h-add ma|
|00004f50| 74 68 2d 66 6c 6f 6f 72 | 20 36 20 37 5d 20 38 29 |th-floor| 6 7] 8)|
|00004f60| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 46 75 |)..(defu|n calcFu|
|00004f70| 6e 63 2d 79 65 61 72 64 | 61 79 20 28 64 61 74 65 |nc-yeard|ay (date|
|00004f80| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c2 09 |) (byte-|code "..|
|00004f90| 21 18 c3 08 40 c4 08 38 | c5 08 38 23 29 87 22 20 |!...@..8|..8#)." |
|00004fa0| 5b 64 74 20 64 61 74 65 | 20 6d 61 74 68 2d 64 61 |[dt date| math-da|
|00004fb0| 74 65 2d 74 6f 2d 64 74 | 20 6d 61 74 68 2d 64 61 |te-to-dt| math-da|
|00004fc0| 79 2d 6e 75 6d 62 65 72 | 20 31 20 32 5d 20 36 29 |y-number| 1 2] 6)|
|00004fd0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 46 75 |)..(defu|n calcFu|
|00004fe0| 6e 63 2d 68 6f 75 72 20 | 28 64 61 74 65 29 20 28 |nc-hour |(date) (|
|00004ff0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 08 21 c2 3d |byte-cod|e "..!.=|
|00005000| 83 0e 00 c3 08 38 82 17 | 00 c4 c5 08 21 38 86 17 |.....8..|....!8..|
|00005010| 00 c6 87 22 20 5b 64 61 | 74 65 20 63 61 72 2d 73 |..." [da|te car-s|
|00005020| 61 66 65 20 68 6d 73 20 | 31 20 33 20 6d 61 74 68 |afe hms |1 3 math|
|00005030| 2d 64 61 74 65 2d 74 6f | 2d 64 74 20 30 5d 20 34 |-date-to|-dt 0] 4|
|00005040| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 46 |))..(def|un calcF|
|00005050| 75 6e 63 2d 6d 69 6e 75 | 74 65 20 28 64 61 74 65 |unc-minu|te (date|
|00005060| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 08 |) (byte-|code "..|
|00005070| 21 c2 3d 83 0e 00 c3 08 | 38 82 17 00 c4 c5 08 21 |!.=.....|8......!|
|00005080| 38 86 17 00 c6 87 22 20 | 5b 64 61 74 65 20 63 61 |8....." |[date ca|
|00005090| 72 2d 73 61 66 65 20 68 | 6d 73 20 32 20 34 20 6d |r-safe h|ms 2 4 m|
|000050a0| 61 74 68 2d 64 61 74 65 | 2d 74 6f 2d 64 74 20 30 |ath-date|-to-dt 0|
|000050b0| 5d 20 34 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 4))..(|defun ca|
|000050c0| 6c 63 46 75 6e 63 2d 73 | 65 63 6f 6e 64 20 28 64 |lcFunc-s|econd (d|
|000050d0| 61 74 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ate) (by|te-code |
|000050e0| 22 c1 08 21 c2 3d 83 0e | 00 c3 08 38 82 17 00 c4 |"..!.=..|...8....|
|000050f0| c5 08 21 38 86 17 00 c6 | 87 22 20 5b 64 61 74 65 |..!8....|." [date|
|00005100| 20 63 61 72 2d 73 61 66 | 65 20 68 6d 73 20 33 20 | car-saf|e hms 3 |
|00005110| 35 20 6d 61 74 68 2d 64 | 61 74 65 2d 74 6f 2d 64 |5 math-d|ate-to-d|
|00005120| 74 20 30 5d 20 34 29 29 | 0a 0a 28 64 65 66 75 6e |t 0] 4))|..(defun|
|00005130| 20 63 61 6c 63 46 75 6e | 63 2d 74 69 6d 65 20 28 | calcFun|c-time (|
|00005140| 64 61 74 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |date) (b|yte-code|
|00005150| 20 22 c2 09 21 18 c3 08 | 38 83 13 00 c4 c5 c3 08 | "..!...|8.......|
|00005160| 5c 22 42 82 18 00 c4 c6 | c6 c6 46 29 87 22 20 5b |\"B.....|..F)." [|
|00005170| 64 74 20 64 61 74 65 20 | 6d 61 74 68 2d 64 61 74 |dt date |math-dat|
|00005180| 65 2d 74 6f 2d 64 74 20 | 33 20 68 6d 73 20 6e 74 |e-to-dt |3 hms nt|
|00005190| 68 63 64 72 20 30 5d 20 | 36 29 29 0a 0a 28 64 65 |hcdr 0] |6))..(de|
|000051a0| 66 75 6e 20 63 61 6c 63 | 46 75 6e 63 2d 64 61 74 |fun calc|Func-dat|
|000051b0| 65 20 28 64 61 74 65 20 | 26 6f 70 74 69 6f 6e 61 |e (date |&optiona|
|000051c0| 6c 20 6d 6f 6e 74 68 20 | 64 61 79 20 68 6f 75 72 |l month |day hour|
|000051d0| 20 6d 69 6e 75 74 65 20 | 73 65 63 6f 6e 64 29 20 | minute |second) |
|000051e0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c6 08 21 85 |(byte-co|de "..!.|
|000051f0| 0b 00 c7 08 21 89 10 88 | 08 85 1b 00 c8 08 21 3f |....!...|......!?|
|00005200| 85 1b 00 c9 08 ca 5c 22 | 88 c6 09 21 85 27 00 c7 |......\"|...!.'..|
|00005210| 09 21 89 11 88 09 85 37 | 00 c8 09 21 3f 85 37 00 |.!.....7|...!?.7.|
|00005220| c9 09 ca 5c 22 88 cb 0a | 21 cc 3d 85 42 00 0b 3f |...\"...|!.=.B..?|
|00005230| 85 52 00 cd 0a 38 14 ce | 0a 38 13 cf 0a 38 89 12 |.R...8..|.8...8..|
|00005240| 88 c6 0a 21 85 5e 00 c7 | 0a 21 89 12 88 0a 85 6e |...!.^..|.!.....n|
|00005250| 00 c8 0a 21 3f 85 6e 00 | c9 0a ca 5c 22 88 c6 0b |...!?.n.|...\"...|
|00005260| 21 85 7a 00 c7 0b 21 89 | 13 88 0b 85 8a 00 c8 0b |!.z...!.|........|
|00005270| 21 3f 85 8a 00 c9 0b ca | 5c 22 88 c6 0c 21 85 96 |!?......|\"...!..|
|00005280| 00 c7 0c 21 89 14 88 0c | 85 a6 00 d0 0c 21 3f 85 |...!....|.....!?.|
|00005290| a6 00 c9 0c d1 5c 22 88 | 08 83 fe 00 c6 0d 21 85 |.....\".|......!.|
|000052a0| b6 00 c7 0d 21 89 15 88 | 0d 85 c6 00 d2 0d 21 3f |....!...|......!?|
|000052b0| 85 c6 00 c9 0d c8 5c 22 | 88 09 83 f2 00 0a 83 e7 |......\"|........|
|000052c0| 00 c5 d3 d4 0d 08 09 0a | 0b 86 db 00 d5 0c 86 e0 |........|........|
|000052d0| 00 d5 26 06 21 44 82 ef | 00 c5 d3 0d 08 09 45 21 |..&.!D..|......E!|
|000052e0| 44 82 fb 00 c5 d3 d6 20 | 0d 08 45 21 44 82 1b 01 |D...... |..E!D...|
|000052f0| d0 0d 21 83 0a 01 c5 0d | 44 82 1b 01 0d 40 c5 3d |..!.....|D....@.=|
|00005300| 83 17 01 cf 0d 38 82 1b | 01 c9 0d d7 5c 22 87 22 |.....8..|....\"."|
|00005310| 20 5b 6d 6f 6e 74 68 20 | 64 61 79 20 68 6f 75 72 | [month |day hour|
|00005320| 20 6d 69 6e 75 74 65 20 | 73 65 63 6f 6e 64 20 64 | minute |second d|
|00005330| 61 74 65 20 6d 61 74 68 | 2d 6d 65 73 73 79 2d 69 |ate math|-messy-i|
|00005340| 6e 74 65 67 65 72 70 20 | 6d 61 74 68 2d 74 72 75 |ntegerp |math-tru|
|00005350| 6e 63 20 69 6e 74 65 67 | 65 72 70 20 6d 61 74 68 |nc integ|erp math|
|00005360| 2d 72 65 6a 65 63 74 2d | 61 72 67 20 66 69 78 6e |-reject-|arg fixn|
|00005370| 75 6d 70 20 63 61 72 2d | 73 61 66 65 20 68 6d 73 |ump car-|safe hms|
|00005380| 20 33 20 32 20 31 20 6d | 61 74 68 2d 72 65 61 6c | 3 2 1 m|ath-real|
|00005390| 70 20 72 65 61 6c 70 20 | 6d 61 74 68 2d 69 6e 74 |p realp |math-int|
|000053a0| 65 67 65 72 70 20 6d 61 | 74 68 2d 64 74 2d 74 6f |egerp ma|th-dt-to|
|000053b0| 2d 64 61 74 65 20 6c 69 | 73 74 20 30 20 6d 61 74 |-date li|st 0 mat|
|000053c0| 68 2d 74 68 69 73 2d 79 | 65 61 72 20 64 61 74 65 |h-this-y|ear date|
|000053d0| 70 5d 20 33 34 29 29 0a | 0a 28 64 65 66 75 6e 20 |p] 34)).|.(defun |
|000053e0| 63 61 6c 63 46 75 6e 63 | 2d 6a 75 6c 69 61 6e 20 |calcFunc|-julian |
|000053f0| 28 64 61 74 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(date &o|ptional |
|00005400| 7a 6f 6e 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |zone) (b|yte-code|
|00005410| 20 22 c2 08 21 83 29 00 | c0 c3 08 21 83 14 00 c4 | "..!.).|...!....|
|00005420| 08 c5 5c 22 82 25 00 c4 | 08 c6 5c 22 89 10 88 c4 |..\".%..|..\"....|
|00005430| 08 c7 c8 09 08 5c 22 c9 | 5c 22 5c 22 44 82 52 00 |.....\".|\"\"D.R.|
|00005440| 08 40 c0 3d 83 4e 00 ca | cb 08 38 c3 cb 08 38 21 |.@.=.N..|..8...8!|
|00005450| 83 40 00 cc 82 4a 00 ca | cd c7 c8 09 08 5c 22 ce |.@...J..|.....\".|
|00005460| 5c 22 5c 22 5c 22 82 52 | 00 cf 08 d0 5c 22 87 22 |\"\"\".R|....\"."|
|00005470| 20 5b 64 61 74 65 20 7a | 6f 6e 65 20 6d 61 74 68 | [date z|one math|
|00005480| 2d 72 65 61 6c 70 20 6d | 61 74 68 2d 69 6e 74 65 |-realp m|ath-inte|
|00005490| 67 65 72 70 20 6d 61 74 | 68 2d 73 75 62 20 28 62 |gerp mat|h-sub (b|
|000054a0| 69 67 70 6f 73 20 34 32 | 34 20 37 32 31 20 31 29 |igpos 42|4 721 1)|
|000054b0| 20 28 66 6c 6f 61 74 20 | 28 62 69 67 70 6f 73 20 | (float |(bigpos |
|000054c0| 32 33 35 20 32 31 34 20 | 31 37 29 20 2d 31 29 20 |235 214 |17) -1) |
|000054d0| 6d 61 74 68 2d 64 69 76 | 20 63 61 6c 63 46 75 6e |math-div| calcFun|
|000054e0| 63 2d 74 7a 6f 6e 65 20 | 28 66 6c 6f 61 74 20 38 |c-tzone |(float 8|
|000054f0| 36 34 20 32 29 20 6d 61 | 74 68 2d 61 64 64 20 31 |64 2) ma|th-add 1|
|00005500| 20 28 62 69 67 70 6f 73 | 20 34 32 34 20 37 32 31 | (bigpos| 424 721|
|00005510| 20 31 29 20 28 66 6c 6f | 61 74 20 28 62 69 67 70 | 1) (flo|at (bigp|
|00005520| 6f 73 20 32 33 35 20 32 | 31 34 20 31 37 29 20 2d |os 235 2|14 17) -|
|00005530| 31 29 20 28 66 6c 6f 61 | 74 20 38 36 34 20 32 29 |1) (floa|t 864 2)|
|00005540| 20 6d 61 74 68 2d 72 65 | 6a 65 63 74 2d 61 72 67 | math-re|ject-arg|
|00005550| 20 64 61 74 65 70 5d 20 | 31 36 29 29 0a 0a 28 64 | datep] |16))..(d|
|00005560| 65 66 75 6e 20 63 61 6c | 63 46 75 6e 63 2d 75 6e |efun cal|cFunc-un|
|00005570| 69 78 74 69 6d 65 20 28 | 64 61 74 65 20 26 6f 70 |ixtime (|date &op|
|00005580| 74 69 6f 6e 61 6c 20 7a | 6f 6e 65 29 20 28 62 79 |tional z|one) (by|
|00005590| 74 65 2d 63 6f 64 65 20 | 22 c2 08 21 83 1f 00 c3 |te-code |"..!....|
|000055a0| c4 c5 08 c6 5c 22 5c 22 | 89 10 88 c0 c7 08 c5 c8 |....\"\"|........|
|000055b0| 09 08 5c 22 c9 5c 22 5c | 22 44 82 3b 00 08 40 c0 |..\".\"\|"D.;..@.|
|000055c0| 3d 83 37 00 c3 ca cb ca | 08 38 c4 5c 22 38 c8 09 |=.7.....|.8.\"8..|
|000055d0| 08 5c 22 5c 22 82 3b 00 | cc 08 cd 5c 22 87 22 20 |.\"\".;.|...\"." |
|000055e0| 5b 64 61 74 65 20 7a 6f | 6e 65 20 6d 61 74 68 2d |[date zo|ne math-|
|000055f0| 72 65 61 6c 70 20 6d 61 | 74 68 2d 61 64 64 20 37 |realp ma|th-add 7|
|00005600| 31 39 31 36 34 20 6d 61 | 74 68 2d 64 69 76 20 28 |19164 ma|th-div (|
|00005610| 66 6c 6f 61 74 20 38 36 | 34 20 32 29 20 6d 61 74 |float 86|4 2) mat|
|00005620| 68 2d 73 75 62 20 63 61 | 6c 63 46 75 6e 63 2d 74 |h-sub ca|lcFunc-t|
|00005630| 7a 6f 6e 65 20 28 66 6c | 6f 61 74 20 38 36 34 20 |zone (fl|oat 864 |
|00005640| 32 29 20 31 20 6d 61 74 | 68 2d 64 61 74 65 2d 70 |2) 1 mat|h-date-p|
|00005650| 61 72 74 73 20 6d 61 74 | 68 2d 72 65 6a 65 63 74 |arts mat|h-reject|
|00005660| 2d 61 72 67 20 64 61 74 | 65 70 5d 20 31 32 29 29 |-arg dat|ep] 12))|
|00005670| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|00005680| 63 2d 74 7a 6f 6e 65 20 | 28 26 6f 70 74 69 6f 6e |c-tzone |(&option|
|00005690| 61 6c 20 7a 6f 6e 65 20 | 64 61 74 65 29 20 28 62 |al zone |date) (b|
|000056a0| 79 74 65 2d 63 6f 64 65 | 20 22 08 83 af 00 cd 08 |yte-code| "......|
|000056b0| 21 83 13 00 ce cf 08 d0 | 5c 22 21 82 ac 00 08 40 |!.......|\"!....@|
|000056c0| d1 3d 83 26 00 ce cf d2 | 08 d3 5c 22 d0 5c 22 21 |.=.&....|..\".\"!|
|000056d0| 82 ac 00 08 40 d4 3d 83 | 3e 00 d5 d6 d7 08 38 09 |....@.=.|>.....8.|
|000056e0| 5c 22 d6 d8 08 38 09 5c | 22 5c 22 82 ac 00 08 40 |\"...8.\|"\"....@|
|000056f0| d9 3d 83 56 00 da d6 d7 | 08 38 09 5c 22 d6 d8 08 |.=.V....|.8.\"...|
|00005700| 38 09 5c 22 5c 22 82 ac | 00 08 40 db 3d 83 a8 00 |8.\"\"..|..@.=...|
|00005710| dc dd d7 08 38 21 21 c5 | 1b 1a de 0a 0c 5c 22 89 |....8!!.|.....\".|
|00005720| 13 83 92 00 d6 d5 d7 0b | 38 df d8 0b 38 21 83 83 |........|8...8!..|
|00005730| 00 d8 0b 38 82 8c 00 e0 | 09 0b 40 5c 22 86 8c 00 |...8....|..@\"...|
|00005740| e1 5c 22 09 5c 22 82 a4 | 00 e2 0a e3 5c 22 83 a0 |.\".\"..|....\"..|
|00005750| 00 d6 c5 09 5c 22 82 a4 | 00 e4 08 e5 5c 22 2a 82 |....\"..|....\"*.|
|00005760| ac 00 e4 08 e6 5c 22 82 | d5 01 e7 cc 21 83 be 00 |.....\".|....!...|
|00005770| d6 e7 cc 21 09 5c 22 82 | d5 01 0c e1 e8 1e 09 1e |...!.\".|........|
|00005780| 08 1e 07 8a e9 ea 21 71 | 88 eb 20 88 ec ed c5 c6 |......!q|.. .....|
|00005790| 23 88 d7 62 88 c6 1e 0a | 0e 07 85 ea 00 ee 0e 07 |#..b....|........|
|000057a0| 40 40 c5 c6 23 3f 85 f7 | 00 0e 07 41 89 16 07 88 |@@..#?..|...A....|
|000057b0| 82 dc 00 29 88 ef f0 21 | 85 25 01 d5 f1 f2 f3 d7 |...)...!|.%......|
|000057c0| 21 f4 d7 21 5c 22 21 f3 | d8 21 83 20 01 f5 f1 f2 |!..!\"!.|.!. ....|
|000057d0| f3 d8 21 f4 d8 21 5c 22 | 21 f6 5c 22 82 21 01 e1 |..!..!\"|!.\".!..|
|000057e0| 5c 22 89 16 08 29 88 0e | 07 85 c0 01 0e 07 40 89 |\"...)..|......@.|
|000057f0| 16 07 88 df d8 0e 07 38 | 21 85 aa 01 0c 1e 0b 0e |.......8|!.......|
|00005800| 0b 85 79 01 e2 d8 0e 0b | 40 38 0e 07 40 5c 22 3f |..y.....|@8..@\"?|
|00005810| 85 79 01 e2 f7 0e 0b 40 | 38 0e 07 40 5c 22 3f 85 |.y.....@|8..@\"?.|
|00005820| 79 01 e2 f8 0e 0b 40 38 | 0e 07 40 5c 22 3f 85 79 |y.....@8|..@\"?.y|
|00005830| 01 e2 f9 0e 0b 40 38 0e | 07 40 5c 22 3f 85 86 01 |.....@8.|.@\"?...|
|00005840| 0e 0b 41 89 16 0b 88 82 | 3f 01 88 0e 0b 85 a9 01 |..A.....|?.......|
|00005850| 0e 0b 40 89 16 0b 85 a9 | 01 e2 e0 c5 0e 0b 40 5c |..@.....|......@\|
|00005860| 22 d8 0e 07 38 5c 22 85 | a9 01 0e 0b 89 16 07 29 |"...8\".|.......)|
|00005870| 88 d5 db fa 0e 07 40 21 | fa fb 0e 07 40 50 21 45 |......@!|....@P!E|
|00005880| 0e 08 5c 22 89 16 09 88 | fc ea 21 88 0e 09 89 16 |..\"....|..!.....|
|00005890| 0c 88 fd cc 21 88 d6 0e | 09 09 5c 22 2b 87 22 20 |....!...|..\"+." |
|000058a0| 5b 7a 6f 6e 65 20 64 61 | 74 65 20 6e 61 6d 65 20 |[zone da|te name |
|000058b0| 66 6f 75 6e 64 20 6d 61 | 74 68 2d 74 7a 6f 6e 65 |found ma|th-tzone|
|000058c0| 2d 6e 61 6d 65 73 20 6e | 69 6c 20 74 20 70 20 6f |-names n|il t p o|
|000058d0| 66 66 73 65 74 20 74 7a | 20 63 61 73 65 2d 66 6f |ffset tz| case-fo|
|000058e0| 6c 64 2d 73 65 61 72 63 | 68 20 67 65 6e 20 76 61 |ld-searc|h gen va|
|000058f0| 72 2d 54 69 6d 65 5a 6f | 6e 65 20 6d 61 74 68 2d |r-TimeZo|ne math-|
|00005900| 72 65 61 6c 70 20 6d 61 | 74 68 2d 72 6f 75 6e 64 |realp ma|th-round|
|00005910| 20 6d 61 74 68 2d 6d 75 | 6c 20 33 36 30 30 20 68 | math-mu|l 3600 h|
|00005920| 6d 73 20 6d 61 74 68 2d | 66 72 6f 6d 2d 68 6d 73 |ms math-|from-hms|
|00005930| 20 64 65 67 20 2b 20 6d | 61 74 68 2d 61 64 64 20 | deg + m|ath-add |
|00005940| 63 61 6c 63 46 75 6e 63 | 2d 74 7a 6f 6e 65 20 31 |calcFunc|-tzone 1|
|00005950| 20 32 20 2d 20 6d 61 74 | 68 2d 73 75 62 20 76 61 | 2 - mat|h-sub va|
|00005960| 72 20 75 70 63 61 73 65 | 20 73 79 6d 62 6f 6c 2d |r upcase| symbol-|
|00005970| 6e 61 6d 65 20 61 73 73 | 6f 63 20 69 6e 74 65 67 |name ass|oc integ|
|00005980| 65 72 70 20 6d 61 74 68 | 2d 64 61 79 6c 69 67 68 |erp math|-dayligh|
|00005990| 74 2d 73 61 76 69 6e 67 | 73 2d 61 64 6a 75 73 74 |t-saving|s-adjust|
|000059a0| 20 30 20 65 71 75 61 6c | 20 22 4c 4f 43 41 4c 22 | 0 equal| "LOCAL"|
|000059b0| 20 6d 61 74 68 2d 72 65 | 6a 65 63 74 2d 61 72 67 | math-re|ject-arg|
|000059c0| 20 22 2a 55 6e 72 65 63 | 6f 67 6e 69 7a 65 64 20 | "*Unrec|ognized |
|000059d0| 74 69 6d 65 20 7a 6f 6e | 65 20 6e 61 6d 65 22 20 |time zon|e name" |
|000059e0| 22 2a 45 78 70 65 63 74 | 65 64 20 61 20 74 69 6d |"*Expect|ed a tim|
|000059f0| 65 20 7a 6f 6e 65 22 20 | 63 61 6c 63 2d 76 61 72 |e zone" |calc-var|
|00005a00| 2d 76 61 6c 75 65 20 28 | 76 61 72 20 65 72 72 6f |-value (|var erro|
|00005a10| 72 20 76 61 72 2d 65 72 | 72 6f 72 29 20 67 65 74 |r var-er|ror) get|
|00005a20| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 22 |-buffer-|create "|
|00005a30| 20 2a 43 61 6c 63 20 54 | 65 6d 70 6f 72 61 72 79 | *Calc T|emporary|
|00005a40| 2a 22 20 65 72 61 73 65 | 2d 62 75 66 66 65 72 20 |*" erase|-buffer |
|00005a50| 63 61 6c 6c 2d 70 72 6f | 63 65 73 73 20 22 64 61 |call-pro|cess "da|
|00005a60| 74 65 22 20 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |te" sear|ch-forwa|
|00005a70| 72 64 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 5c |rd looki|ng-at "\|
|00005a80| 5c 28 5b 2d 2b 5d 5b 30 | 2d 39 5d 3f 5b 30 2d 39 |\([-+][0|-9]?[0-9|
|00005a90| 5d 5c 5c 29 5c 5c 28 5b | 30 2d 39 5d 5b 30 2d 39 |]\\)\\([|0-9][0-9|
|00005aa0| 5d 5c 5c 29 3f 5c 5c 28 | 5c 5c 27 5c 5c 7c 5b 5e |]\\)?\\(|\\'\\|[^|
|00005ab0| 30 2d 39 5d 5c 5c 29 22 | 20 73 74 72 69 6e 67 2d |0-9]\\)"| string-|
|00005ac0| 74 6f 2d 69 6e 74 20 62 | 75 66 66 65 72 2d 73 75 |to-int b|uffer-su|
|00005ad0| 62 73 74 72 69 6e 67 20 | 6d 61 74 63 68 2d 62 65 |bstring |match-be|
|00005ae0| 67 69 6e 6e 69 6e 67 20 | 6d 61 74 63 68 2d 65 6e |ginning |match-en|
|00005af0| 64 20 6d 61 74 68 2d 64 | 69 76 20 36 30 20 33 20 |d math-d|iv 60 3 |
|00005b00| 34 20 35 20 69 6e 74 65 | 72 6e 20 22 76 61 72 2d |4 5 inte|rn "var-|
|00005b10| 22 20 6b 69 6c 6c 2d 62 | 75 66 66 65 72 20 63 61 |" kill-b|uffer ca|
|00005b20| 6c 63 2d 72 65 66 72 65 | 73 68 2d 65 76 61 6c 74 |lc-refre|sh-evalt|
|00005b30| 6f 73 5d 20 35 37 29 29 | 0a 0a 28 64 65 66 76 61 |os] 57))|..(defva|
|00005b40| 72 20 6d 61 74 68 2d 74 | 7a 6f 6e 65 2d 6e 61 6d |r math-t|zone-nam|
|00005b50| 65 73 20 28 71 75 6f 74 | 65 20 28 28 22 4d 45 47 |es (quot|e (("MEG|
|00005b60| 54 22 20 2d 31 20 22 4d | 45 54 22 20 22 4d 45 54 |T" -1 "M|ET" "MET|
|00005b70| 44 53 54 22 29 20 28 22 | 4d 45 54 44 53 54 22 20 |DST") ("|METDST" |
|00005b80| 2d 31 20 2d 31 29 20 28 | 22 4d 45 54 22 20 2d 31 |-1 -1) (|"MET" -1|
|00005b90| 20 30 29 20 28 22 4d 45 | 47 5a 22 20 2d 31 20 22 | 0) ("ME|GZ" -1 "|
|00005ba0| 4d 45 5a 22 20 22 4d 45 | 53 5a 22 29 20 28 22 4d |MEZ" "ME|SZ") ("M|
|00005bb0| 45 5a 22 20 2d 31 20 30 | 29 20 28 22 4d 45 53 5a |EZ" -1 0|) ("MESZ|
|00005bc0| 22 20 2d 31 20 2d 31 29 | 20 28 22 57 45 47 54 22 |" -1 -1)| ("WEGT"|
|00005bd0| 20 30 20 22 57 45 54 22 | 20 22 57 45 54 44 53 54 | 0 "WET"| "WETDST|
|00005be0| 22 29 20 28 22 57 45 54 | 44 53 54 22 20 30 20 2d |") ("WET|DST" 0 -|
|00005bf0| 31 29 20 28 22 57 45 54 | 22 20 30 20 30 29 20 28 |1) ("WET|" 0 0) (|
|00005c00| 22 42 47 54 22 20 30 20 | 22 47 4d 54 22 20 22 42 |"BGT" 0 |"GMT" "B|
|00005c10| 53 54 22 29 20 28 22 47 | 4d 54 22 20 30 20 30 29 |ST") ("G|MT" 0 0)|
|00005c20| 20 28 22 42 53 54 22 20 | 30 20 2d 31 29 20 28 22 | ("BST" |0 -1) ("|
|00005c30| 4e 47 54 22 20 28 66 6c | 6f 61 74 20 33 35 20 2d |NGT" (fl|oat 35 -|
|00005c40| 31 29 20 22 4e 53 54 22 | 20 22 4e 44 54 22 29 20 |1) "NST"| "NDT") |
|00005c50| 28 22 4e 53 54 22 20 28 | 66 6c 6f 61 74 20 33 35 |("NST" (|float 35|
|00005c60| 20 2d 31 29 20 30 29 20 | 28 22 4e 44 54 22 20 28 | -1) 0) |("NDT" (|
|00005c70| 66 6c 6f 61 74 20 33 35 | 20 2d 31 29 20 2d 31 29 |float 35| -1) -1)|
|00005c80| 20 28 22 41 47 54 22 20 | 34 20 22 41 53 54 22 20 | ("AGT" |4 "AST" |
|00005c90| 22 41 44 54 22 29 20 28 | 22 41 53 54 22 20 34 20 |"ADT") (|"AST" 4 |
|00005ca0| 30 29 20 28 22 41 44 54 | 22 20 34 20 2d 31 29 20 |0) ("ADT|" 4 -1) |
|00005cb0| 28 22 45 47 54 22 20 35 | 20 22 45 53 54 22 20 22 |("EGT" 5| "EST" "|
|00005cc0| 45 44 54 22 29 20 28 22 | 45 53 54 22 20 35 20 30 |EDT") ("|EST" 5 0|
|00005cd0| 29 20 28 22 45 44 54 22 | 20 35 20 2d 31 29 20 28 |) ("EDT"| 5 -1) (|
|00005ce0| 22 43 47 54 22 20 36 20 | 22 43 53 54 22 20 22 43 |"CGT" 6 |"CST" "C|
|00005cf0| 44 54 22 29 20 28 22 43 | 53 54 22 20 36 20 30 29 |DT") ("C|ST" 6 0)|
|00005d00| 20 28 22 43 44 54 22 20 | 36 20 2d 31 29 20 28 22 | ("CDT" |6 -1) ("|
|00005d10| 4d 47 54 22 20 37 20 22 | 4d 53 54 22 20 22 4d 44 |MGT" 7 "|MST" "MD|
|00005d20| 54 22 29 20 28 22 4d 53 | 54 22 20 37 20 30 29 20 |T") ("MS|T" 7 0) |
|00005d30| 28 22 4d 44 54 22 20 37 | 20 2d 31 29 20 28 22 50 |("MDT" 7| -1) ("P|
|00005d40| 47 54 22 20 38 20 22 50 | 53 54 22 20 22 50 44 54 |GT" 8 "P|ST" "PDT|
|00005d50| 22 29 20 28 22 50 53 54 | 22 20 38 20 30 29 20 28 |") ("PST|" 8 0) (|
|00005d60| 22 50 44 54 22 20 38 20 | 2d 31 29 20 28 22 59 47 |"PDT" 8 |-1) ("YG|
|00005d70| 54 22 20 39 20 22 59 53 | 54 22 20 22 59 44 54 22 |T" 9 "YS|T" "YDT"|
|00005d80| 29 20 28 22 59 53 54 22 | 20 39 20 30 29 20 28 22 |) ("YST"| 9 0) ("|
|00005d90| 59 44 54 22 20 39 20 2d | 31 29 29 29 29 0a 0a 28 |YDT" 9 -|1))))..(|
|00005da0| 64 65 66 75 6e 20 6d 61 | 74 68 2d 64 61 79 6c 69 |defun ma|th-dayli|
|00005db0| 67 68 74 2d 73 61 76 69 | 6e 67 73 2d 61 64 6a 75 |ght-savi|ngs-adju|
|00005dc0| 73 74 20 28 64 61 74 65 | 20 7a 6f 6e 65 20 26 6f |st (date| zone &o|
|00005dd0| 70 74 69 6f 6e 61 6c 20 | 64 74 29 20 28 62 79 74 |ptional |dt) (byt|
|00005de0| 65 2d 63 6f 64 65 20 22 | 08 86 0a 00 c7 c8 20 38 |e-code "|...... 8|
|00005df0| 89 10 88 c9 19 ca 08 21 | c0 3d 83 1f 00 cb 11 c7 |.......!|.=......|
|00005e00| 08 38 89 10 82 47 00 08 | 85 26 00 cc 08 21 83 43 |.8...G..|.&...!.C|
|00005e10| 00 cd 0b 0c 5c 22 1a 0a | 85 3f 00 ce 11 cf 08 d0 |....\"..|.?......|
|00005e20| c7 0a 38 d1 5c 22 5c 22 | 89 10 29 82 47 00 d2 08 |..8.\"\"|..).G...|
|00005e30| d3 5c 22 88 d4 08 21 89 | 10 88 0d 86 57 00 d5 08 |.\"...!.|....W...|
|00005e40| 21 89 15 88 0e 06 85 65 | 00 d6 0e 06 08 0d 0b 09 |!......e|........|
|00005e50| 25 29 87 22 20 5b 64 61 | 74 65 20 62 75 6d 70 20 |%)." [da|te bump |
|00005e60| 7a 61 64 6a 20 7a 6f 6e | 65 20 6d 61 74 68 2d 74 |zadj zon|e math-t|
|00005e70| 7a 6f 6e 65 2d 6e 61 6d | 65 73 20 64 74 20 6d 61 |zone-nam|es dt ma|
|00005e80| 74 68 2d 64 61 79 6c 69 | 67 68 74 2d 73 61 76 69 |th-dayli|ght-savi|
|00005e90| 6e 67 73 2d 68 6f 6f 6b | 20 31 20 63 61 6c 63 46 |ngs-hook| 1 calcF|
|00005ea0| 75 6e 63 2d 6e 6f 77 20 | 6e 69 6c 20 63 61 72 2d |unc-now |nil car-|
|00005eb0| 73 61 66 65 20 30 20 6d | 61 74 68 2d 72 65 61 6c |safe 0 m|ath-real|
|00005ec0| 70 20 61 73 73 6f 63 20 | 2d 31 20 6d 61 74 68 2d |p assoc |-1 math-|
|00005ed0| 73 75 62 20 6d 61 74 68 | 2d 64 69 76 20 28 66 6c |sub math|-div (fl|
|00005ee0| 6f 61 74 20 32 34 20 30 | 29 20 6d 61 74 68 2d 72 |oat 24 0|) math-r|
|00005ef0| 65 6a 65 63 74 2d 61 72 | 67 20 64 61 74 65 70 20 |eject-ar|g datep |
|00005f00| 6d 61 74 68 2d 66 6c 6f | 61 74 20 6d 61 74 68 2d |math-flo|at math-|
|00005f10| 64 61 74 65 2d 74 6f 2d | 64 74 20 66 75 6e 63 61 |date-to-|dt funca|
|00005f20| 6c 6c 5d 20 31 35 29 29 | 0a 0a 28 64 65 66 75 6e |ll] 15))|..(defun|
|00005f30| 20 63 61 6c 63 46 75 6e | 63 2d 64 73 61 64 6a 20 | calcFun|c-dsadj |
|00005f40| 28 64 61 74 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(date &o|ptional |
|00005f50| 7a 6f 6e 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |zone) (b|yte-code|
|00005f60| 20 22 08 83 13 00 c4 08 | 21 c5 3d 86 10 00 c6 08 | "......|!.=.....|
|00005f70| c7 5c 22 82 21 00 c8 c9 | 21 86 1f 00 ca 20 88 c8 |.\".!...|!.... ..|
|00005f80| c9 21 89 10 88 c4 08 21 | c5 3d 85 31 00 cb cc cd |.!.....!|.=.1....|
|00005f90| 08 38 21 21 89 10 88 ce | 08 0a 5c 22 19 09 86 41 |.8!!....|..\"...A|
|00005fa0| 00 c6 08 cf 5c 22 88 d0 | d1 09 38 21 83 50 00 d1 |....\"..|..8!.P..|
|00005fb0| 09 38 82 54 00 d2 0b 08 | 5c 22 29 87 22 20 5b 7a |.8.T....|\")." [z|
|00005fc0| 6f 6e 65 20 7a 61 64 6a | 20 6d 61 74 68 2d 74 7a |one zadj| math-tz|
|00005fd0| 6f 6e 65 2d 6e 61 6d 65 | 73 20 64 61 74 65 20 63 |one-name|s date c|
|00005fe0| 61 72 2d 73 61 66 65 20 | 76 61 72 20 6d 61 74 68 |ar-safe |var math|
|00005ff0| 2d 72 65 6a 65 63 74 2d | 61 72 67 20 22 2a 54 69 |-reject-|arg "*Ti|
|00006000| 6d 65 20 7a 6f 6e 65 20 | 76 61 72 69 61 62 6c 65 |me zone |variable|
|00006010| 20 65 78 70 65 63 74 65 | 64 22 20 63 61 6c 63 2d | expecte|d" calc-|
|00006020| 76 61 72 2d 76 61 6c 75 | 65 20 76 61 72 2d 54 69 |var-valu|e var-Ti|
|00006030| 6d 65 5a 6f 6e 65 20 63 | 61 6c 63 46 75 6e 63 2d |meZone c|alcFunc-|
|00006040| 74 7a 6f 6e 65 20 75 70 | 63 61 73 65 20 73 79 6d |tzone up|case sym|
|00006050| 62 6f 6c 2d 6e 61 6d 65 | 20 31 20 61 73 73 6f 63 |bol-name| 1 assoc|
|00006060| 20 22 2a 55 6e 72 65 63 | 6f 67 6e 69 7a 65 64 20 | "*Unrec|ognized |
|00006070| 74 69 6d 65 20 7a 6f 6e | 65 20 6e 61 6d 65 22 20 |time zon|e name" |
|00006080| 69 6e 74 65 67 65 72 70 | 20 32 20 6d 61 74 68 2d |integerp| 2 math-|
|00006090| 64 61 79 6c 69 67 68 74 | 2d 73 61 76 69 6e 67 73 |daylight|-savings|
|000060a0| 2d 61 64 6a 75 73 74 5d | 20 31 34 29 29 0a 0a 28 |-adjust]| 14))..(|
|000060b0| 64 65 66 75 6e 20 63 61 | 6c 63 46 75 6e 63 2d 74 |defun ca|lcFunc-t|
|000060c0| 7a 63 6f 6e 76 20 28 64 | 61 74 65 20 7a 31 20 7a |zconv (d|ate z1 z|
|000060d0| 32 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c3 |2) (byte|-code ".|
|000060e0| 08 21 83 12 00 c4 c5 c0 | 08 44 09 0a 23 38 82 19 |.!......|.D..#8..|
|000060f0| 00 c6 c6 08 09 5c 22 0a | 5c 22 87 22 20 5b 64 61 |.....\".|\"." [da|
|00006100| 74 65 20 7a 31 20 7a 32 | 20 6d 61 74 68 2d 72 65 |te z1 z2| math-re|
|00006110| 61 6c 70 20 31 20 63 61 | 6c 63 46 75 6e 63 2d 74 |alp 1 ca|lcFunc-t|
|00006120| 7a 63 6f 6e 76 20 63 61 | 6c 63 46 75 6e 63 2d 75 |zconv ca|lcFunc-u|
|00006130| 6e 69 78 74 69 6d 65 5d | 20 36 29 29 0a 0a 28 64 |nixtime]| 6))..(d|
|00006140| 65 66 76 61 72 20 6d 61 | 74 68 2d 64 61 79 6c 69 |efvar ma|th-dayli|
|00006150| 67 68 74 2d 73 61 76 69 | 6e 67 73 2d 68 6f 6f 6b |ght-savi|ngs-hook|
|00006160| 20 28 71 75 6f 74 65 20 | 6d 61 74 68 2d 73 74 64 | (quote |math-std|
|00006170| 2d 64 61 79 6c 69 67 68 | 74 2d 73 61 76 69 6e 67 |-dayligh|t-saving|
|00006180| 73 29 29 0a 0a 28 64 65 | 66 75 6e 20 6d 61 74 68 |s))..(de|fun math|
|00006190| 2d 73 74 64 2d 64 61 79 | 6c 69 67 68 74 2d 73 61 |-std-day|light-sa|
|000061a0| 76 69 6e 67 73 20 28 64 | 61 74 65 20 64 74 20 7a |vings (d|ate dt z|
|000061b0| 6f 6e 65 20 62 75 6d 70 | 29 20 22 5c 0a 53 74 61 |one bump|) "\.Sta|
|000061c0| 6e 64 61 72 64 20 4e 6f | 72 74 68 20 41 6d 65 72 |ndard No|rth Amer|
|000061d0| 69 63 61 6e 20 64 61 79 | 6c 69 67 68 74 20 73 61 |ican day|light sa|
|000061e0| 76 69 6e 67 73 20 61 6c | 67 6f 72 69 74 68 6d 2e |vings al|gorithm.|
|000061f0| 0a 54 68 69 73 20 69 6d | 70 6c 65 6d 65 6e 74 73 |.This im|plements|
|00006200| 20 74 68 65 20 72 75 6c | 65 73 20 66 6f 72 20 74 | the rul|es for t|
|00006210| 68 65 20 55 2e 53 2e 20 | 61 6e 64 20 43 61 6e 61 |he U.S. |and Cana|
|00006220| 64 61 20 61 73 20 6f 66 | 20 31 39 38 37 2e 0a 44 |da as of| 1987..D|
|00006230| 61 79 6c 69 67 68 74 20 | 73 61 76 69 6e 67 73 20 |aylight |savings |
|00006240| 62 65 67 69 6e 73 20 6f | 6e 20 74 68 65 20 66 69 |begins o|n the fi|
|00006250| 72 73 74 20 53 75 6e 64 | 61 79 20 6f 66 20 41 70 |rst Sund|ay of Ap|
|00006260| 72 69 6c 20 61 74 20 32 | 20 61 2e 6d 2e 2c 0a 61 |ril at 2| a.m.,.a|
|00006270| 6e 64 20 65 6e 64 73 20 | 6f 6e 20 74 68 65 20 6c |nd ends |on the l|
|00006280| 61 73 74 20 53 75 6e 64 | 61 79 20 6f 66 20 4f 63 |ast Sund|ay of Oc|
|00006290| 74 6f 62 65 72 20 61 74 | 20 32 20 61 2e 6d 2e 22 |tober at| 2 a.m."|
|000062a0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c5 08 38 | (byte-c|ode "..8|
|000062b0| c6 57 83 0c 00 c7 82 8d | 00 c5 08 38 c6 55 83 46 |.W......|...8.U.F|
|000062c0| 00 c8 0a 08 c9 c7 24 19 | ca 08 38 09 57 83 27 00 |......$.|..8.W.'.|
|000062d0| c7 82 42 00 ca 08 38 09 | 55 83 41 00 cb 08 38 cb |..B...8.|U.A...8.|
|000062e0| 0b 5c 5c 59 83 3d 00 cc | 82 3e 00 c7 82 42 00 cc |.\\Y.=..|.>...B..|
|000062f0| 29 82 8d 00 c5 08 38 cd | 57 83 52 00 cc 82 8d 00 |).....8.|W.R.....|
|00006300| c5 08 38 cd 55 83 8c 00 | c8 0a 08 ce c7 24 19 ca |..8.U...|.....$..|
|00006310| 08 38 09 57 83 6d 00 cc | 82 88 00 ca 08 38 09 55 |.8.W.m..|.....8.U|
|00006320| 83 87 00 cb 08 38 ca 0b | 5c 5c 59 83 83 00 c7 82 |.....8..|\\Y.....|
|00006330| 84 00 cc 82 88 00 c7 29 | 82 8d 00 c7 87 22 20 5b |.......)|....." [|
|00006340| 64 74 20 73 75 6e 64 61 | 79 20 64 61 74 65 20 62 |dt sunda|y date b|
|00006350| 75 6d 70 20 74 20 31 20 | 34 20 30 20 6d 61 74 68 |ump t 1 |4 0 math|
|00006360| 2d 70 72 65 76 2d 77 65 | 65 6b 64 61 79 2d 69 6e |-prev-we|ekday-in|
|00006370| 2d 6d 6f 6e 74 68 20 37 | 20 32 20 33 20 2d 31 20 |-month 7| 2 3 -1 |
|00006380| 31 30 20 33 31 5d 20 36 | 29 29 0a 0a 28 64 65 66 |10 31] 6|))..(def|
|00006390| 75 6e 20 6d 61 74 68 2d | 70 72 65 76 2d 77 65 65 |un math-|prev-wee|
|000063a0| 6b 64 61 79 2d 69 6e 2d | 6d 6f 6e 74 68 20 28 64 |kday-in-|month (d|
|000063b0| 61 74 65 20 64 74 20 64 | 61 79 20 77 64 61 79 29 |ate dt d|ay wday)|
|000063c0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 86 09 | (byte-c|ode "...|
|000063d0| 00 c4 09 38 89 10 88 08 | c5 09 40 c6 09 38 5c 22 |...8....|..@..8\"|
|000063e0| 56 85 1f 00 c5 09 40 c6 | 09 38 5c 22 89 10 88 c7 |V.....@.|.8\"....|
|000063f0| c8 0b 21 c4 09 38 5c 22 | 1a c7 c6 c9 ca 0a 08 5c |..!..8\"|.......\|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
