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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 53 75 6e 20 |lidomide| on Sun |
|00000030| 46 65 62 20 31 34 20 32 | 33 3a 31 38 3a 34 38 20 |Feb 14 2|3:18:48 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 76 6d 2f | 76 6d 2d 6d 65 73 73 61 |lisp/vm/|vm-messa|
|00000080| 67 65 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |ge.el.;;|; emacs |
|00000090| 76 65 72 73 69 6f 6e 20 | 31 39 2e 34 2e 31 33 20 |version |19.4.13 |
|000000a0| 4c 75 63 69 64 2e 0a 3b | 3b 3b 20 62 79 74 65 63 |Lucid..;|;; bytec|
|000000b0| 6f 6d 70 20 76 65 72 73 | 69 6f 6e 20 32 2e 31 30 |omp vers|ion 2.10|
|000000c0| 3b 20 20 31 2d 66 65 62 | 2d 39 33 2e 0a 3b 3b 3b |;  1-feb|-93..;;;|
|000000d0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|000000e0| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|000000f0| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000100| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000110| 73 74 20 69 6e 20 45 6d | 61 63 73 31 38 2e 0a 0a |st in Em|acs18...|
|00000120| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000130| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000140| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000150| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000160| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000170| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|00000180| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|00000190| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|000001a0| 20 20 20 28 65 72 72 6f | 72 20 22 54 68 69 73 20 |   (erro|r "This |
|000001b0| 66 69 6c 65 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |file was| compile|
|000001c0| 64 20 66 6f 72 20 45 6d | 61 63 73 31 39 2e 22 29 |d for Em|acs19.")|
|000001d0| 29 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |)..(byte|-code ".|
|000001e0| c1 4d 88 c2 c3 4d 88 c4 | c5 4d 88 c6 c7 4d 88 c8 |.M...M..|.M...M..|
|000001f0| c9 4d 88 ca cb 4d 88 cc | cd 4d 88 ce cf 4d 88 d0 |.M...M..|.M...M..|
|00000200| d1 4d 88 d2 d3 4d 88 d4 | d5 4d 88 d6 d7 4d 88 d8 |.M...M..|.M...M..|
|00000210| d9 4d 88 da db 4d 88 dc | dd 4d 88 de df 4d 88 e0 |.M...M..|.M...M..|
|00000220| e1 4d 88 e2 e3 4d 88 e4 | e5 4d 88 e6 e7 4d 88 e8 |.M...M..|.M...M..|
|00000230| e9 4d 88 ea eb 4d 88 ec | ed 4d 88 ee ef 4d 88 f0 |.M...M..|.M...M..|
|00000240| f1 4d 88 f2 f3 4d 88 f4 | f5 4d 88 f6 f7 4d 88 f8 |.M...M..|.M...M..|
|00000250| f9 4d 88 fa fb 4d 88 fc | fd 4d 88 fe ff 4d 88 81 |.M...M..|.M...M..|
|00000260| 40 00 81 41 00 4d 88 81 | 42 00 81 43 00 4d 88 81 |@..A.M..|B..C.M..|
|00000270| 44 00 81 45 00 4d 88 81 | 46 00 81 47 00 4d 88 81 |D..E.M..|F..G.M..|
|00000280| 48 00 81 49 00 4d 88 81 | 4a 00 81 4b 00 4d 88 81 |H..I.M..|J..K.M..|
|00000290| 4c 00 81 4d 00 4d 88 81 | 4e 00 81 4f 00 4d 88 81 |L..M.M..|N..O.M..|
|000002a0| 50 00 81 51 00 4d 88 81 | 52 00 81 53 00 4d 88 81 |P..Q.M..|R..S.M..|
|000002b0| 54 00 81 55 00 4d 88 81 | 56 00 81 57 00 4d 88 81 |T..U.M..|V..W.M..|
|000002c0| 58 00 81 59 00 4d 88 81 | 5a 00 81 5b 00 4d 88 81 |X..Y.M..|Z..[.M..|
|000002d0| 5c 5c 00 81 5d 00 4d 88 | 81 5e 00 81 5f 00 4d 88 |\\..].M.|.^.._.M.|
|000002e0| 81 60 00 81 61 00 4d 88 | 81 62 00 81 63 00 4d 88 |.`..a.M.|.b..c.M.|
|000002f0| 81 64 00 81 65 00 4d 88 | 81 66 00 81 67 00 4d 88 |.d..e.M.|.f..g.M.|
|00000300| 81 68 00 81 69 00 4d 88 | 81 6a 00 81 6b 00 4d 88 |.h..i.M.|.j..k.M.|
|00000310| 81 6c 00 81 6d 00 4d 88 | 81 6e 00 81 6f 00 4d 88 |.l..m.M.|.n..o.M.|
|00000320| 81 70 00 81 71 00 4d 88 | 81 72 00 81 73 00 4d 88 |.p..q.M.|.r..s.M.|
|00000330| 81 74 00 81 75 00 4d 88 | 81 76 00 81 77 00 4d 88 |.t..u.M.|.v..w.M.|
|00000340| 81 78 00 81 79 00 4d 88 | 81 7a 00 81 7b 00 4d 88 |.x..y.M.|.z..{.M.|
|00000350| 81 7c 00 81 7d 00 4d 88 | 81 7e 00 81 7f 00 4d 88 |.|..}.M.|.~....M.|
|00000360| 81 80 00 81 81 00 4d 88 | 81 82 00 81 83 00 4d 88 |......M.|......M.|
|00000370| 81 84 00 81 85 00 4d 88 | 81 86 00 81 87 00 4d 88 |......M.|......M.|
|00000380| 81 88 00 81 89 00 4d 88 | 81 8a 00 81 8b 00 4d 88 |......M.|......M.|
|00000390| 81 8c 00 81 8d 00 4d 88 | 81 8e 00 81 8f 00 4d 88 |......M.|......M.|
|000003a0| 81 90 00 81 91 00 4d 88 | 81 92 00 81 93 00 4d 88 |......M.|......M.|
|000003b0| 81 94 00 81 95 00 4d 88 | 81 96 00 81 97 00 4d 87 |......M.|......M.|
|000003c0| 22 20 5b 76 6d 2d 76 69 | 72 74 75 61 6c 2d 64 61 |" [vm-vi|rtual-da|
|000003d0| 74 61 2d 6f 66 20 28 6d | 61 63 72 6f 20 2e 20 23 |ta-of (m|acro . #|
|000003e0| 5b 28 6d 65 73 73 61 67 | 65 29 20 22 c0 09 c2 45 |[(messag|e) "...E|
|000003f0| 87 22 20 5b 61 72 65 66 | 20 6d 65 73 73 61 67 65 |." [aref| message|
|00000400| 20 30 5d 20 33 5d 29 20 | 76 6d 2d 73 74 61 72 74 | 0] 3]) |vm-start|
|00000410| 2d 6f 66 20 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |-of (mac|ro . #[(|
|00000420| 6d 65 73 73 61 67 65 29 | 20 22 c0 89 09 c2 45 c2 |message)| "....E.|
|00000430| 45 87 22 20 5b 61 72 65 | 66 20 6d 65 73 73 61 67 |E." [are|f messag|
|00000440| 65 20 30 5d 20 34 5d 29 | 20 76 6d 2d 76 68 65 61 |e 0] 4])| vm-vhea|
|00000450| 64 65 72 73 2d 6f 66 20 | 23 5b 28 6d 65 73 73 61 |ders-of |#[(messa|
|00000460| 67 65 29 20 22 08 c1 48 | c2 48 ae 89 c3 08 21 88 |ge) "..H|.H....!.|
|00000470| 08 c1 48 c2 48 87 22 20 | 5b 6d 65 73 73 61 67 65 |..H.H." |[message|
|00000480| 20 30 20 31 20 76 6d 2d | 72 65 6f 72 64 65 72 2d | 0 1 vm-|reorder-|
|00000490| 6d 65 73 73 61 67 65 2d | 68 65 61 64 65 72 73 5d |message-|headers]|
|000004a0| 20 32 5d 20 76 6d 2d 74 | 65 78 74 2d 6f 66 20 23 | 2] vm-t|ext-of #|
|000004b0| 5b 28 6d 65 73 73 61 67 | 65 29 20 22 08 c1 48 c2 |[(messag|e) "..H.|
|000004c0| 48 ae 89 c3 08 21 88 08 | c1 48 c2 48 87 22 20 5b |H....!..|.H.H." [|
|000004d0| 6d 65 73 73 61 67 65 20 | 30 20 32 20 76 6d 2d 66 |message |0 2 vm-f|
|000004e0| 69 6e 64 2d 61 6e 64 2d | 73 65 74 2d 74 65 78 74 |ind-and-|set-text|
|000004f0| 2d 6f 66 5d 20 32 5d 20 | 76 6d 2d 65 6e 64 2d 6f |-of] 2] |vm-end-o|
|00000500| 66 20 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 6d 65 |f (macro| . #[(me|
|00000510| 73 73 61 67 65 29 20 22 | c0 89 09 c2 45 c3 45 87 |ssage) "|....E.E.|
|00000520| 22 20 5b 61 72 65 66 20 | 6d 65 73 73 61 67 65 20 |" [aref |message |
|00000530| 30 20 33 5d 20 34 5d 29 | 20 76 6d 2d 65 64 69 74 |0 3] 4])| vm-edit|
|00000540| 2d 62 75 66 66 65 72 2d | 6f 66 20 28 6d 61 63 72 |-buffer-|of (macr|
|00000550| 6f 20 2e 20 23 5b 28 6d | 65 73 73 61 67 65 29 20 |o . #[(m|essage) |
|00000560| 22 c0 89 09 c2 45 c3 45 | 87 22 20 5b 61 72 65 66 |"....E.E|." [aref|
|00000570| 20 6d 65 73 73 61 67 65 | 20 30 20 34 5d 20 34 5d | message| 0 4] 4]|
|00000580| 29 20 76 6d 2d 6d 65 73 | 73 61 67 65 2d 74 79 70 |) vm-mes|sage-typ|
|00000590| 65 2d 6f 66 20 28 6d 61 | 63 72 6f 20 2e 20 23 5b |e-of (ma|cro . #[|
|000005a0| 28 6d 65 73 73 61 67 65 | 29 20 22 c0 89 09 c2 45 |(message|) "....E|
|000005b0| c3 45 87 22 20 5b 61 72 | 65 66 20 6d 65 73 73 61 |.E." [ar|ef messa|
|000005c0| 67 65 20 30 20 35 5d 20 | 34 5d 29 20 76 6d 2d 72 |ge 0 5] |4]) vm-r|
|000005d0| 65 61 6c 2d 6d 65 73 73 | 61 67 65 2d 6f 66 20 28 |eal-mess|age-of (|
|000005e0| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 6d 65 73 73 61 |macro . |#[(messa|
|000005f0| 67 65 29 20 22 c0 c1 89 | 5c 6e c3 45 c4 45 44 87 |ge) "...|\n.E.ED.|
|00000600| 22 20 5b 73 79 6d 62 6f | 6c 2d 76 61 6c 75 65 20 |" [symbo|l-value |
|00000610| 61 72 65 66 20 6d 65 73 | 73 61 67 65 20 30 20 36 |aref mes|sage 0 6|
|00000620| 5d 20 35 5d 29 20 76 6d | 2d 76 69 72 74 75 61 6c |] 5]) vm|-virtual|
|00000630| 2d 6d 65 73 73 61 67 65 | 73 2d 6f 66 20 28 6d 61 |-message|s-of (ma|
|00000640| 63 72 6f 20 2e 20 23 5b | 28 6d 65 73 73 61 67 65 |cro . #[|(message|
|00000650| 29 20 22 c0 89 09 c2 45 | c3 45 87 22 20 5b 61 72 |) "....E|.E." [ar|
|00000660| 65 66 20 6d 65 73 73 61 | 67 65 20 30 20 37 5d 20 |ef messa|ge 0 7] |
|00000670| 34 5d 29 20 76 6d 2d 72 | 65 76 65 72 73 65 2d 6c |4]) vm-r|everse-l|
|00000680| 69 6e 6b 2d 6f 66 20 28 | 6d 61 63 72 6f 20 2e 20 |ink-of (|macro . |
|00000690| 23 5b 28 6d 65 73 73 61 | 67 65 29 20 22 c0 c1 89 |#[(messa|ge) "...|
|000006a0| 5c 6e c3 45 c4 45 44 87 | 22 20 5b 73 79 6d 62 6f |\n.E.ED.|" [symbo|
|000006b0| 6c 2d 76 61 6c 75 65 20 | 61 72 65 66 20 6d 65 73 |l-value |aref mes|
|000006c0| 73 61 67 65 20 30 20 38 | 5d 20 35 5d 29 20 76 6d |sage 0 8|] 5]) vm|
|000006d0| 2d 73 6f 66 74 64 61 74 | 61 2d 6f 66 20 28 6d 61 |-softdat|a-of (ma|
|000006e0| 63 72 6f 20 2e 20 23 5b | 28 6d 65 73 73 61 67 65 |cro . #[|(message|
|000006f0| 29 20 22 c0 09 c2 45 87 | 22 20 5b 61 72 65 66 20 |) "...E.|" [aref |
|00000700| 6d 65 73 73 61 67 65 20 | 31 5d 20 33 5d 29 20 76 |message |1] 3]) v|
|00000710| 6d 2d 6e 75 6d 62 65 72 | 2d 6f 66 20 28 6d 61 63 |m-number|-of (mac|
|00000720| 72 6f 20 2e 20 23 5b 28 | 6d 65 73 73 61 67 65 29 |ro . #[(|message)|
|00000730| 20 22 c0 89 09 c2 45 c3 | 45 87 22 20 5b 61 72 65 | "....E.|E." [are|
|00000740| 66 20 6d 65 73 73 61 67 | 65 20 31 20 30 5d 20 34 |f messag|e 1 0] 4|
|00000750| 5d 29 20 76 6d 2d 6d 61 | 72 6b 2d 6f 66 20 28 6d |]) vm-ma|rk-of (m|
|00000760| 61 63 72 6f 20 2e 20 23 | 5b 28 6d 65 73 73 61 67 |acro . #|[(messag|
|00000770| 65 29 20 22 c0 89 09 c2 | 45 c2 45 87 22 20 5b 61 |e) "....|E.E." [a|
|00000780| 72 65 66 20 6d 65 73 73 | 61 67 65 20 31 5d 20 34 |ref mess|age 1] 4|
|00000790| 5d 29 20 76 6d 2d 73 75 | 2d 73 74 61 72 74 2d 6f |]) vm-su|-start-o|
|000007a0| 66 20 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 6d 65 |f (macro| . #[(me|
|000007b0| 73 73 61 67 65 29 20 22 | c0 89 09 c2 45 c3 45 87 |ssage) "|....E.E.|
|000007c0| 22 20 5b 61 72 65 66 20 | 6d 65 73 73 61 67 65 20 |" [aref |message |
|000007d0| 31 20 32 5d 20 34 5d 29 | 20 76 6d 2d 73 75 2d 65 |1 2] 4])| vm-su-e|
|000007e0| 6e 64 2d 6f 66 20 28 6d | 61 63 72 6f 20 2e 20 23 |nd-of (m|acro . #|
|000007f0| 5b 28 6d 65 73 73 61 67 | 65 29 20 22 c0 89 09 c2 |[(messag|e) "....|
|00000800| 45 c3 45 87 22 20 5b 61 | 72 65 66 20 6d 65 73 73 |E.E." [a|ref mess|
|00000810| 61 67 65 20 31 20 33 5d | 20 34 5d 29 20 76 6d 2d |age 1 3]| 4]) vm-|
|00000820| 61 74 74 72 69 62 75 74 | 65 73 2d 6f 66 20 28 6d |attribut|es-of (m|
|00000830| 61 63 72 6f 20 2e 20 23 | 5b 28 6d 65 73 73 61 67 |acro . #|[(messag|
|00000840| 65 29 20 22 c0 09 c2 45 | 87 22 20 5b 61 72 65 66 |e) "...E|." [aref|
|00000850| 20 6d 65 73 73 61 67 65 | 20 32 5d 20 33 5d 29 20 | message| 2] 3]) |
|00000860| 76 6d 2d 6e 65 77 2d 66 | 6c 61 67 20 28 6d 61 63 |vm-new-f|lag (mac|
|00000870| 72 6f 20 2e 20 23 5b 28 | 6d 65 73 73 61 67 65 29 |ro . #[(|message)|
|00000880| 20 22 c0 89 09 c2 45 c3 | 45 87 22 20 5b 61 72 65 | "....E.|E." [are|
|00000890| 66 20 6d 65 73 73 61 67 | 65 20 32 20 30 5d 20 34 |f messag|e 2 0] 4|
|000008a0| 5d 29 20 76 6d 2d 75 6e | 72 65 61 64 2d 66 6c 61 |]) vm-un|read-fla|
|000008b0| 67 20 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 6d 65 |g (macro| . #[(me|
|000008c0| 73 73 61 67 65 29 20 22 | c0 89 09 c2 45 c3 45 87 |ssage) "|....E.E.|
|000008d0| 22 20 5b 61 72 65 66 20 | 6d 65 73 73 61 67 65 20 |" [aref |message |
|000008e0| 32 20 31 5d 20 34 5d 29 | 20 76 6d 2d 64 65 6c 65 |2 1] 4])| vm-dele|
|000008f0| 74 65 64 2d 66 6c 61 67 | 20 28 6d 61 63 72 6f 20 |ted-flag| (macro |
|00000900| 2e 20 23 5b 28 6d 65 73 | 73 61 67 65 29 20 22 c0 |. #[(mes|sage) ".|
|00000910| 89 09 c2 45 c2 45 87 22 | 20 5b 61 72 65 66 20 6d |...E.E."| [aref m|
|00000920| 65 73 73 61 67 65 20 32 | 5d 20 34 5d 29 20 76 6d |essage 2|] 4]) vm|
|00000930| 2d 66 69 6c 65 64 2d 66 | 6c 61 67 20 28 6d 61 63 |-filed-f|lag (mac|
|00000940| 72 6f 20 2e 20 23 5b 28 | 6d 65 73 73 61 67 65 29 |ro . #[(|message)|
|00000950| 20 22 c0 89 09 c2 45 c3 | 45 87 22 20 5b 61 72 65 | "....E.|E." [are|
|00000960| 66 20 6d 65 73 73 61 67 | 65 20 32 20 33 5d 20 34 |f messag|e 2 3] 4|
|00000970| 5d 29 20 76 6d 2d 72 65 | 70 6c 69 65 64 2d 66 6c |]) vm-re|plied-fl|
|00000980| 61 67 20 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 6d |ag (macr|o . #[(m|
|00000990| 65 73 73 61 67 65 29 20 | 22 c0 89 09 c2 45 c3 45 |essage) |"....E.E|
|000009a0| 87 22 20 5b 61 72 65 66 | 20 6d 65 73 73 61 67 65 |." [aref| message|
|000009b0| 20 32 20 34 5d 20 34 5d | 29 20 76 6d 2d 77 72 69 | 2 4] 4]|) vm-wri|
|000009c0| 74 74 65 6e 2d 66 6c 61 | 67 20 28 6d 61 63 72 6f |tten-fla|g (macro|
|000009d0| 20 2e 20 23 5b 28 6d 65 | 73 73 61 67 65 29 20 22 | . #[(me|ssage) "|
|000009e0| c0 89 09 c2 45 c3 45 87 | 22 20 5b 61 72 65 66 20 |....E.E.|" [aref |
|000009f0| 6d 65 73 73 61 67 65 20 | 32 20 35 5d 20 34 5d 29 |message |2 5] 4])|
|00000a00| 20 76 6d 2d 66 6f 72 77 | 61 72 64 65 64 2d 66 6c | vm-forw|arded-fl|
|00000a10| 61 67 20 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 6d |ag (macr|o . #[(m|
|00000a20| 65 73 73 61 67 65 29 20 | 22 c0 89 09 c2 45 c3 45 |essage) |"....E.E|
|00000a30| 87 22 20 5b 61 72 65 66 | 20 6d 65 73 73 61 67 65 |." [aref| message|
|00000a40| 20 32 20 36 5d 20 34 5d | 29 20 76 6d 2d 65 64 69 | 2 6] 4]|) vm-edi|
|00000a50| 74 65 64 2d 66 6c 61 67 | 20 28 6d 61 63 72 6f 20 |ted-flag| (macro |
|00000a60| 2e 20 23 5b 28 6d 65 73 | 73 61 67 65 29 20 22 c0 |. #[(mes|sage) ".|
|00000a70| 89 09 c2 45 c3 45 87 22 | 20 5b 61 72 65 66 20 6d |...E.E."| [aref m|
|00000a80| 65 73 73 61 67 65 20 32 | 20 37 5d 20 34 5d 29 20 |essage 2| 7] 4]) |
|00000a90| 76 6d 2d 63 61 63 68 65 | 2d 6f 66 20 28 6d 61 63 |vm-cache|-of (mac|
|00000aa0| 72 6f 20 2e 20 23 5b 28 | 6d 65 73 73 61 67 65 29 |ro . #[(|message)|
|00000ab0| 20 22 c0 09 c2 45 87 22 | 20 5b 61 72 65 66 20 6d | "...E."| [aref m|
|00000ac0| 65 73 73 61 67 65 20 33 | 5d 20 33 5d 29 20 76 6d |essage 3|] 3]) vm|
|00000ad0| 2d 62 79 74 65 2d 63 6f | 75 6e 74 2d 6f 66 20 28 |-byte-co|unt-of (|
|00000ae0| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 6d 65 73 73 61 |macro . |#[(messa|
|00000af0| 67 65 29 20 22 c0 89 09 | c2 45 c3 45 87 22 20 5b |ge) "...|.E.E." [|
|00000b00| 61 72 65 66 20 6d 65 73 | 73 61 67 65 20 33 20 30 |aref mes|sage 3 0|
|00000b10| 5d 20 34 5d 29 20 76 6d | 2d 77 65 65 6b 64 61 79 |] 4]) vm|-weekday|
|00000b20| 2d 6f 66 20 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |-of (mac|ro . #[(|
|00000b30| 6d 65 73 73 61 67 65 29 | 20 22 c0 89 09 c2 45 c3 |message)| "....E.|
|00000b40| 45 87 22 20 5b 61 72 65 | 66 20 6d 65 73 73 61 67 |E." [are|f messag|
|00000b50| 65 20 33 20 31 5d 20 34 | 5d 29 20 76 6d 2d 6d 6f |e 3 1] 4|]) vm-mo|
|00000b60| 6e 74 68 64 61 79 2d 6f | 66 20 28 6d 61 63 72 6f |nthday-o|f (macro|
|00000b70| 20 2e 20 23 5b 28 6d 65 | 73 73 61 67 65 29 20 22 | . #[(me|ssage) "|
|00000b80| c0 89 09 c2 45 c3 45 87 | 22 20 5b 61 72 65 66 20 |....E.E.|" [aref |
|00000b90| 6d 65 73 73 61 67 65 20 | 33 20 32 5d 20 34 5d 29 |message |3 2] 4])|
|00000ba0| 20 76 6d 2d 6d 6f 6e 74 | 68 2d 6f 66 20 28 6d 61 | vm-mont|h-of (ma|
|00000bb0| 63 72 6f 20 2e 20 23 5b | 28 6d 65 73 73 61 67 65 |cro . #[|(message|
|00000bc0| 29 20 22 c0 89 09 c2 45 | c2 45 87 22 20 5b 61 72 |) "....E|.E." [ar|
|00000bd0| 65 66 20 6d 65 73 73 61 | 67 65 20 33 5d 20 34 5d |ef messa|ge 3] 4]|
|00000be0| 29 20 76 6d 2d 79 65 61 | 72 2d 6f 66 20 28 6d 61 |) vm-yea|r-of (ma|
|00000bf0| 63 72 6f 20 2e 20 23 5b | 28 6d 65 73 73 61 67 65 |cro . #[|(message|
|00000c00| 29 20 22 c0 89 09 c2 45 | c3 45 87 22 20 5b 61 72 |) "....E|.E." [ar|
|00000c10| 65 66 20 6d 65 73 73 61 | 67 65 20 33 20 34 5d 20 |ef messa|ge 3 4] |
|00000c20| 34 5d 29 20 76 6d 2d 68 | 6f 75 72 2d 6f 66 20 28 |4]) vm-h|our-of (|
|00000c30| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 6d 65 73 73 61 |macro . |#[(messa|
|00000c40| 67 65 29 20 22 c0 89 09 | c2 45 c3 45 87 22 20 5b |ge) "...|.E.E." [|
|00000c50| 61 72 65 66 20 6d 65 73 | 73 61 67 65 20 33 20 35 |aref mes|sage 3 5|
|00000c60| 5d 20 34 5d 29 20 76 6d | 2d 7a 6f 6e 65 2d 6f 66 |] 4]) vm|-zone-of|
|00000c70| 20 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 6d 65 73 | (macro |. #[(mes|
|00000c80| 73 61 67 65 29 20 22 c0 | 89 09 c2 45 c3 45 87 22 |sage) ".|...E.E."|
|00000c90| 20 5b 61 72 65 66 20 6d | 65 73 73 61 67 65 20 33 | [aref m|essage 3|
|00000ca0| 20 36 5d 20 34 5d 29 20 | 76 6d 2d 66 75 6c 6c 2d | 6] 4]) |vm-full-|
|00000cb0| 6e 61 6d 65 2d 6f 66 20 | 28 6d 61 63 72 6f 20 2e |name-of |(macro .|
|00000cc0| 20 23 5b 28 6d 65 73 73 | 61 67 65 29 20 22 c0 89 | #[(mess|age) "..|
|00000cd0| 09 c2 45 c3 45 87 22 20 | 5b 61 72 65 66 20 6d 65 |..E.E." |[aref me|
|00000ce0| 73 73 61 67 65 20 33 20 | 37 5d 20 34 5d 29 20 76 |ssage 3 |7] 4]) v|
|00000cf0| 6d 2d 66 72 6f 6d 2d 6f | 66 20 28 6d 61 63 72 6f |m-from-o|f (macro|
|00000d00| 20 2e 20 23 5b 28 6d 65 | 73 73 61 67 65 29 20 22 | . #[(me|ssage) "|
|00000d10| c0 89 09 c2 45 c3 45 87 | 22 20 5b 61 72 65 66 20 |....E.E.|" [aref |
|00000d20| 6d 65 73 73 61 67 65 20 | 33 20 38 5d 20 34 5d 29 |message |3 8] 4])|
|00000d30| 20 76 6d 2d 6d 65 73 73 | 61 67 65 2d 69 64 2d 6f | vm-mess|age-id-o|
|00000d40| 66 20 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 6d 65 |f (macro| . #[(me|
|00000d50| 73 73 61 67 65 29 20 22 | c0 89 09 c2 45 c3 45 87 |ssage) "|....E.E.|
|00000d60| 22 20 5b 61 72 65 66 20 | 6d 65 73 73 61 67 65 20 |" [aref |message |
|00000d70| 33 20 39 5d 20 34 5d 29 | 20 76 6d 2d 6c 69 6e 65 |3 9] 4])| vm-line|
|00000d80| 2d 63 6f 75 6e 74 2d 6f | 66 20 28 6d 61 63 72 6f |-count-o|f (macro|
|00000d90| 20 2e 20 23 5b 28 6d 65 | 73 73 61 67 65 29 20 22 | . #[(me|ssage) "|
|00000da0| c0 89 09 c2 45 c3 45 87 | 22 20 5b 61 72 65 66 20 |....E.E.|" [aref |
|00000db0| 6d 65 73 73 61 67 65 20 | 33 20 31 30 5d 20 34 5d |message |3 10] 4]|
|00000dc0| 29 20 76 6d 2d 73 75 62 | 6a 65 63 74 2d 6f 66 20 |) vm-sub|ject-of |
|00000dd0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 6d 65 73 73 |(macro .| #[(mess|
|00000de0| 61 67 65 29 20 22 c0 89 | 09 c2 45 c3 45 87 22 20 |age) "..|..E.E." |
|00000df0| 5b 61 72 65 66 20 6d 65 | 73 73 61 67 65 20 33 20 |[aref me|ssage 3 |
|00000e00| 31 31 5d 20 34 5d 29 20 | 76 6d 2d 76 68 65 61 64 |11] 4]) |vm-vhead|
|00000e10| 65 72 73 2d 72 65 67 65 | 78 70 2d 6f 66 20 28 6d |ers-rege|xp-of (m|
|00000e20| 61 63 72 6f 20 2e 20 23 | 5b 28 6d 65 73 73 61 67 |acro . #|[(messag|
|00000e30| 65 29 20 22 c0 89 09 c2 | 45 c3 45 87 22 20 5b 61 |e) "....|E.E." [a|
|00000e40| 72 65 66 20 6d 65 73 73 | 61 67 65 20 33 20 31 32 |ref mess|age 3 12|
|00000e50| 5d 20 34 5d 29 20 76 6d | 2d 74 6f 2d 6f 66 20 28 |] 4]) vm|-to-of (|
|00000e60| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 6d 65 73 73 61 |macro . |#[(messa|
|00000e70| 67 65 29 20 22 c0 89 09 | c2 45 c3 45 87 22 20 5b |ge) "...|.E.E." [|
|00000e80| 61 72 65 66 20 6d 65 73 | 73 61 67 65 20 33 20 31 |aref mes|sage 3 1|
|00000e90| 33 5d 20 34 5d 29 20 76 | 6d 2d 74 6f 2d 6e 61 6d |3] 4]) v|m-to-nam|
|00000ea0| 65 73 2d 6f 66 20 28 6d | 61 63 72 6f 20 2e 20 23 |es-of (m|acro . #|
|00000eb0| 5b 28 6d 65 73 73 61 67 | 65 29 20 22 c0 89 09 c2 |[(messag|e) "....|
|00000ec0| 45 c3 45 87 22 20 5b 61 | 72 65 66 20 6d 65 73 73 |E.E." [a|ref mess|
|00000ed0| 61 67 65 20 33 20 31 34 | 5d 20 34 5d 29 20 76 6d |age 3 14|] 4]) vm|
|00000ee0| 2d 6d 6f 6e 74 68 2d 6e | 75 6d 62 65 72 2d 6f 66 |-month-n|umber-of|
|00000ef0| 20 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 6d 65 73 | (macro |. #[(mes|
|00000f00| 73 61 67 65 29 20 22 c0 | 89 09 c2 45 c3 45 87 22 |sage) ".|...E.E."|
|00000f10| 20 5b 61 72 65 66 20 6d | 65 73 73 61 67 65 20 33 | [aref m|essage 3|
|00000f20| 20 31 35 5d 20 34 5d 29 | 20 76 6d 2d 6d 6f 64 66 | 15] 4])| vm-modf|
|00000f30| 6c 61 67 2d 6f 66 20 28 | 6d 61 63 72 6f 20 2e 20 |lag-of (|macro . |
|00000f40| 23 5b 28 6d 65 73 73 61 | 67 65 29 20 22 c0 09 c2 |#[(messa|ge) "...|
|00000f50| 45 87 22 20 5b 61 72 65 | 66 20 6d 65 73 73 61 67 |E." [are|f messag|
|00000f60| 65 20 34 5d 20 33 5d 29 | 20 76 6d 2d 73 65 74 2d |e 4] 3])| vm-set-|
|00000f70| 76 69 72 74 75 61 6c 2d | 64 61 74 61 2d 6f 66 20 |virtual-|data-of |
|00000f80| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 6d 65 73 73 |(macro .| #[(mess|
|00000f90| 61 67 65 20 76 64 61 74 | 61 29 20 22 c0 09 c2 0b |age vdat|a) "....|
|00000fa0| 46 87 22 20 5b 61 73 65 | 74 20 6d 65 73 73 61 67 |F." [ase|t messag|
|00000fb0| 65 20 30 20 76 64 61 74 | 61 5d 20 34 5d 29 20 76 |e 0 vdat|a] 4]) v|
|00000fc0| 6d 2d 73 65 74 2d 73 74 | 61 72 74 2d 6f 66 20 28 |m-set-st|art-of (|
|00000fd0| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 6d 65 73 73 61 |macro . |#[(messa|
|00000fe0| 67 65 20 73 74 61 72 74 | 29 20 22 c0 c1 5c 6e c3 |ge start|) "..\n.|
|00000ff0| 45 c3 0c 46 87 22 20 5b | 61 73 65 74 20 61 72 65 |E..F." [|aset are|
|00001000| 66 20 6d 65 73 73 61 67 | 65 20 30 20 73 74 61 72 |f messag|e 0 star|
|00001010| 74 5d 20 34 5d 29 20 76 | 6d 2d 73 65 74 2d 76 68 |t] 4]) v|m-set-vh|
|00001020| 65 61 64 65 72 73 2d 6f | 66 20 28 6d 61 63 72 6f |eaders-o|f (macro|
|00001030| 20 2e 20 23 5b 28 6d 65 | 73 73 61 67 65 20 76 68 | . #[(me|ssage vh|
|00001040| 29 20 22 c0 c1 5c 6e c3 | 45 c4 0d 46 87 22 20 5b |) "..\n.|E..F." [|
|00001050| 61 73 65 74 20 61 72 65 | 66 20 6d 65 73 73 61 67 |aset are|f messag|
|00001060| 65 20 30 20 31 20 76 68 | 5d 20 34 5d 29 20 76 6d |e 0 1 vh|] 4]) vm|
|00001070| 2d 73 65 74 2d 74 65 78 | 74 2d 6f 66 20 28 6d 61 |-set-tex|t-of (ma|
|00001080| 63 72 6f 20 2e 20 23 5b | 28 6d 65 73 73 61 67 65 |cro . #[|(message|
|00001090| 20 74 65 78 74 29 20 22 | c0 c1 5c 6e c3 45 c4 0d | text) "|..\n.E..|
|000010a0| 46 87 22 20 5b 61 73 65 | 74 20 61 72 65 66 20 6d |F." [ase|t aref m|
|000010b0| 65 73 73 61 67 65 20 30 | 20 32 20 74 65 78 74 5d |essage 0| 2 text]|
|000010c0| 20 34 5d 29 20 76 6d 2d | 73 65 74 2d 65 6e 64 2d | 4]) vm-|set-end-|
|000010d0| 6f 66 20 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 6d |of (macr|o . #[(m|
|000010e0| 65 73 73 61 67 65 20 65 | 6e 64 29 20 22 c0 c1 5c |essage e|nd) "..\|
|000010f0| 6e c3 45 c4 0d 46 87 22 | 20 5b 61 73 65 74 20 61 |n.E..F."| [aset a|
|00001100| 72 65 66 20 6d 65 73 73 | 61 67 65 20 30 20 33 20 |ref mess|age 0 3 |
|00001110| 65 6e 64 5d 20 34 5d 29 | 20 76 6d 2d 73 65 74 2d |end] 4])| vm-set-|
|00001120| 65 64 69 74 2d 62 75 66 | 66 65 72 2d 6f 66 20 28 |edit-buf|fer-of (|
|00001130| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 6d 65 73 73 61 |macro . |#[(messa|
|00001140| 67 65 20 62 75 66 29 20 | 22 c0 c1 5c 6e c3 45 c4 |ge buf) |"..\n.E.|
|00001150| 0d 46 87 22 20 5b 61 73 | 65 74 20 61 72 65 66 20 |.F." [as|et aref |
|00001160| 6d 65 73 73 61 67 65 20 | 30 20 34 20 62 75 66 5d |message |0 4 buf]|
|00001170| 20 34 5d 29 20 76 6d 2d | 73 65 74 2d 6d 65 73 73 | 4]) vm-|set-mess|
|00001180| 61 67 65 2d 74 79 70 65 | 2d 6f 66 20 28 6d 61 63 |age-type|-of (mac|
|00001190| 72 6f 20 2e 20 23 5b 28 | 6d 65 73 73 61 67 65 20 |ro . #[(|message |
|000011a0| 74 79 70 65 29 20 22 c0 | c1 5c 6e c3 45 c4 0d 46 |type) ".|.\n.E..F|
|000011b0| 87 22 20 5b 61 73 65 74 | 20 61 72 65 66 20 6d 65 |." [aset| aref me|
|000011c0| 73 73 61 67 65 20 30 20 | 35 20 74 79 70 65 5d 20 |ssage 0 |5 type] |
|000011d0| 34 5d 29 20 76 6d 2d 73 | 65 74 2d 72 65 61 6c 2d |4]) vm-s|et-real-|
|000011e0| 6d 65 73 73 61 67 65 2d | 73 79 6d 2d 6f 66 20 28 |message-|sym-of (|
|000011f0| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 6d 65 73 73 61 |macro . |#[(messa|
|00001200| 67 65 20 73 79 6d 29 20 | 22 c0 c1 5c 6e c3 45 c4 |ge sym) |"..\n.E.|
|00001210| 0d 46 87 22 20 5b 61 73 | 65 74 20 61 72 65 66 20 |.F." [as|et aref |
|00001220| 6d 65 73 73 61 67 65 20 | 30 20 36 20 73 79 6d 5d |message |0 6 sym]|
|00001230| 20 34 5d 29 20 76 6d 2d | 73 65 74 2d 76 69 72 74 | 4]) vm-|set-virt|
|00001240| 75 61 6c 2d 6d 65 73 73 | 61 67 65 73 2d 6f 66 20 |ual-mess|ages-of |
|00001250| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 6d 65 73 73 |(macro .| #[(mess|
|00001260| 61 67 65 20 6c 69 73 74 | 29 20 22 c0 c1 5c 6e c3 |age list|) "..\n.|
|00001270| 45 c4 0d 46 87 22 20 5b | 61 73 65 74 20 61 72 65 |E..F." [|aset are|
|00001280| 66 20 6d 65 73 73 61 67 | 65 20 30 20 37 20 6c 69 |f messag|e 0 7 li|
|00001290| 73 74 5d 20 34 5d 29 20 | 76 6d 2d 73 65 74 2d 72 |st] 4]) |vm-set-r|
|000012a0| 65 76 65 72 73 65 2d 6c | 69 6e 6b 2d 73 79 6d 2d |everse-l|ink-sym-|
|000012b0| 6f 66 20 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 6d |of (macr|o . #[(m|
|000012c0| 65 73 73 61 67 65 20 73 | 79 6d 29 20 22 c0 c1 5c |essage s|ym) "..\|
|000012d0| 6e c3 45 c4 0d 46 87 22 | 20 5b 61 73 65 74 20 61 |n.E..F."| [aset a|
|000012e0| 72 65 66 20 6d 65 73 73 | 61 67 65 20 30 20 38 20 |ref mess|age 0 8 |
|000012f0| 73 79 6d 5d 20 34 5d 29 | 20 76 6d 2d 73 65 74 2d |sym] 4])| vm-set-|
|00001300| 72 65 76 65 72 73 65 2d | 6c 69 6e 6b 2d 6f 66 20 |reverse-|link-of |
|00001310| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 6d 65 73 73 |(macro .| #[(mess|
|00001320| 61 67 65 20 6c 69 6e 6b | 29 20 22 c0 c1 89 5c 6e |age link|) "...\n|
|00001330| c3 45 c4 45 0d 45 87 22 | 20 5b 73 65 74 20 61 72 |.E.E.E."| [set ar|
|00001340| 65 66 20 6d 65 73 73 61 | 67 65 20 30 20 38 20 6c |ef messa|ge 0 8 l|
|00001350| 69 6e 6b 5d 20 35 5d 29 | 20 76 6d 2d 73 65 74 2d |ink] 5])| vm-set-|
|00001360| 73 6f 66 74 64 61 74 61 | 2d 6f 66 20 28 6d 61 63 |softdata|-of (mac|
|00001370| 72 6f 20 2e 20 23 5b 28 | 6d 65 73 73 61 67 65 20 |ro . #[(|message |
|00001380| 64 61 74 61 29 20 22 c0 | 09 c2 0b 46 87 22 20 5b |data) ".|...F." [|
|00001390| 61 73 65 74 20 6d 65 73 | 73 61 67 65 20 31 20 64 |aset mes|sage 1 d|
|000013a0| 61 74 61 5d 20 34 5d 29 | 20 76 6d 2d 73 65 74 2d |ata] 4])| vm-set-|
|000013b0| 6e 75 6d 62 65 72 2d 6f | 66 20 28 6d 61 63 72 6f |number-o|f (macro|
|000013c0| 20 2e 20 23 5b 28 6d 65 | 73 73 61 67 65 20 6e 29 | . #[(me|ssage n)|
|000013d0| 20 22 c0 c1 5c 6e c3 45 | c4 0d 46 87 22 20 5b 61 | "..\n.E|..F." [a|
|000013e0| 73 65 74 20 61 72 65 66 | 20 6d 65 73 73 61 67 65 |set aref| message|
|000013f0| 20 31 20 30 20 6e 5d 20 | 34 5d 29 20 76 6d 2d 73 | 1 0 n] |4]) vm-s|
|00001400| 65 74 2d 6d 61 72 6b 2d | 6f 66 20 28 6d 61 63 72 |et-mark-|of (macr|
|00001410| 6f 20 2e 20 23 5b 28 6d | 65 73 73 61 67 65 20 76 |o . #[(m|essage v|
|00001420| 61 6c 29 20 22 c0 c1 5c | 6e c3 45 c3 0c 46 87 22 |al) "..\|n.E..F."|
|00001430| 20 5b 61 73 65 74 20 61 | 72 65 66 20 6d 65 73 73 | [aset a|ref mess|
|00001440| 61 67 65 20 31 20 76 61 | 6c 5d 20 34 5d 29 20 76 |age 1 va|l] 4]) v|
|00001450| 6d 2d 73 65 74 2d 73 75 | 2d 73 74 61 72 74 2d 6f |m-set-su|-start-o|
|00001460| 66 20 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 6d 65 |f (macro| . #[(me|
|00001470| 73 73 61 67 65 20 70 6f | 73 29 20 22 c0 c1 5c 6e |ssage po|s) "..\n|
|00001480| c3 45 c4 0d 46 87 22 20 | 5b 61 73 65 74 20 61 72 |.E..F." |[aset ar|
|00001490| 65 66 20 6d 65 73 73 61 | 67 65 20 31 20 32 20 70 |ef messa|ge 1 2 p|
|000014a0| 6f 73 5d 20 34 5d 29 20 | 76 6d 2d 73 65 74 2d 73 |os] 4]) |vm-set-s|
|000014b0| 75 2d 65 6e 64 2d 6f 66 | 20 28 6d 61 63 72 6f 20 |u-end-of| (macro |
|000014c0| 2e 20 23 5b 28 6d 65 73 | 73 61 67 65 20 70 6f 73 |. #[(mes|sage pos|
|000014d0| 29 20 22 c0 c1 5c 6e c3 | 45 c4 0d 46 87 22 20 5b |) "..\n.|E..F." [|
|000014e0| 61 73 65 74 20 61 72 65 | 66 20 6d 65 73 73 61 67 |aset are|f messag|
|000014f0| 65 20 31 20 33 20 70 6f | 73 5d 20 34 5d 29 20 76 |e 1 3 po|s] 4]) v|
|00001500| 6d 2d 73 65 74 2d 61 74 | 74 72 69 62 75 74 65 73 |m-set-at|tributes|
|00001510| 2d 6f 66 20 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |-of (mac|ro . #[(|
|00001520| 6d 65 73 73 61 67 65 20 | 61 74 74 72 73 29 20 22 |message |attrs) "|
|00001530| c0 09 c2 0b 46 87 22 20 | 5b 61 73 65 74 20 6d 65 |....F." |[aset me|
|00001540| 73 73 61 67 65 20 32 20 | 61 74 74 72 73 5d 20 34 |ssage 2 |attrs] 4|
|00001550| 5d 29 20 76 6d 2d 73 65 | 74 2d 65 64 69 74 65 64 |]) vm-se|t-edited|
|00001560| 2d 66 6c 61 67 20 28 6d | 61 63 72 6f 20 2e 20 23 |-flag (m|acro . #|
|00001570| 5b 28 6d 65 73 73 61 67 | 65 20 66 6c 61 67 29 20 |[(messag|e flag) |
|00001580| 22 c0 c1 5c 6e c3 45 c4 | 0d 46 87 22 20 5b 61 73 |"..\n.E.|.F." [as|
|00001590| 65 74 20 61 72 65 66 20 | 6d 65 73 73 61 67 65 20 |et aref |message |
|000015a0| 32 20 37 20 66 6c 61 67 | 5d 20 34 5d 29 20 76 6d |2 7 flag|] 4]) vm|
|000015b0| 2d 73 65 74 2d 63 61 63 | 68 65 2d 6f 66 20 28 6d |-set-cac|he-of (m|
|000015c0| 61 63 72 6f 20 2e 20 23 | 5b 28 6d 65 73 73 61 67 |acro . #|[(messag|
|000015d0| 65 20 63 61 63 68 65 29 | 20 22 c0 09 c2 0b 46 87 |e cache)| "....F.|
|000015e0| 22 20 5b 61 73 65 74 20 | 6d 65 73 73 61 67 65 20 |" [aset |message |
|000015f0| 33 20 63 61 63 68 65 5d | 20 34 5d 29 20 76 6d 2d |3 cache]| 4]) vm-|
|00001600| 73 65 74 2d 62 79 74 65 | 2d 63 6f 75 6e 74 2d 6f |set-byte|-count-o|
|00001610| 66 20 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 6d 65 |f (macro| . #[(me|
|00001620| 73 73 61 67 65 20 63 6f | 75 6e 74 29 20 22 c0 c1 |ssage co|unt) "..|
|00001630| 5c 6e c3 45 c4 0d 46 87 | 22 20 5b 61 73 65 74 20 |\n.E..F.|" [aset |
|00001640| 61 72 65 66 20 6d 65 73 | 73 61 67 65 20 33 20 30 |aref mes|sage 3 0|
|00001650| 20 63 6f 75 6e 74 5d 20 | 34 5d 29 20 76 6d 2d 73 | count] |4]) vm-s|
|00001660| 65 74 2d 77 65 65 6b 64 | 61 79 2d 6f 66 20 28 6d |et-weekd|ay-of (m|
|00001670| 61 63 72 6f 20 2e 20 23 | 5b 28 6d 65 73 73 61 67 |acro . #|[(messag|
|00001680| 65 20 76 61 6c 29 20 22 | c0 c1 5c 6e c3 45 c4 0d |e val) "|..\n.E..|
|00001690| 46 87 22 20 5b 61 73 65 | 74 20 61 72 65 66 20 6d |F." [ase|t aref m|
|000016a0| 65 73 73 61 67 65 20 33 | 20 31 20 76 61 6c 5d 20 |essage 3| 1 val] |
|000016b0| 34 5d 29 20 76 6d 2d 73 | 65 74 2d 6d 6f 6e 74 68 |4]) vm-s|et-month|
|000016c0| 64 61 79 2d 6f 66 20 28 | 6d 61 63 72 6f 20 2e 20 |day-of (|macro . |
|000016d0| 23 5b 28 6d 65 73 73 61 | 67 65 20 76 61 6c 29 20 |#[(messa|ge val) |
|000016e0| 22 c0 c1 5c 6e c3 45 c4 | 0d 46 87 22 20 5b 61 73 |"..\n.E.|.F." [as|
|000016f0| 65 74 20 61 72 65 66 20 | 6d 65 73 73 61 67 65 20 |et aref |message |
|00001700| 33 20 32 20 76 61 6c 5d | 20 34 5d 29 20 76 6d 2d |3 2 val]| 4]) vm-|
|00001710| 73 65 74 2d 6d 6f 6e 74 | 68 2d 6f 66 20 28 6d 61 |set-mont|h-of (ma|
|00001720| 63 72 6f 20 2e 20 23 5b | 28 6d 65 73 73 61 67 65 |cro . #[|(message|
|00001730| 20 76 61 6c 29 20 22 c0 | c1 5c 6e c3 45 c3 0c 46 | val) ".|.\n.E..F|
|00001740| 87 22 20 5b 61 73 65 74 | 20 61 72 65 66 20 6d 65 |." [aset| aref me|
|00001750| 73 73 61 67 65 20 33 20 | 76 61 6c 5d 20 34 5d 29 |ssage 3 |val] 4])|
|00001760| 20 76 6d 2d 73 65 74 2d | 79 65 61 72 2d 6f 66 20 | vm-set-|year-of |
|00001770| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 6d 65 73 73 |(macro .| #[(mess|
|00001780| 61 67 65 20 76 61 6c 29 | 20 22 c0 c1 5c 6e c3 45 |age val)| "..\n.E|
|00001790| c4 0d 46 87 22 20 5b 61 | 73 65 74 20 61 72 65 66 |..F." [a|set aref|
|000017a0| 20 6d 65 73 73 61 67 65 | 20 33 20 34 20 76 61 6c | message| 3 4 val|
|000017b0| 5d 20 34 5d 29 20 76 6d | 2d 73 65 74 2d 68 6f 75 |] 4]) vm|-set-hou|
|000017c0| 72 2d 6f 66 20 28 6d 61 | 63 72 6f 20 2e 20 23 5b |r-of (ma|cro . #[|
|000017d0| 28 6d 65 73 73 61 67 65 | 20 76 61 6c 29 20 22 c0 |(message| val) ".|
|000017e0| c1 5c 6e c3 45 c4 0d 46 | 87 22 20 5b 61 73 65 74 |.\n.E..F|." [aset|
|000017f0| 20 61 72 65 66 20 6d 65 | 73 73 61 67 65 20 33 20 | aref me|ssage 3 |
|00001800| 35 20 76 61 6c 5d 20 34 | 5d 29 20 76 6d 2d 73 65 |5 val] 4|]) vm-se|
|00001810| 74 2d 7a 6f 6e 65 2d 6f | 66 20 28 6d 61 63 72 6f |t-zone-o|f (macro|
|00001820| 20 2e 20 23 5b 28 6d 65 | 73 73 61 67 65 20 76 61 | . #[(me|ssage va|
|00001830| 6c 29 20 22 c0 c1 5c 6e | c3 45 c4 0d 46 87 22 20 |l) "..\n|.E..F." |
|00001840| 5b 61 73 65 74 20 61 72 | 65 66 20 6d 65 73 73 61 |[aset ar|ef messa|
|00001850| 67 65 20 33 20 36 20 76 | 61 6c 5d 20 34 5d 29 20 |ge 3 6 v|al] 4]) |
|00001860| 76 6d 2d 73 65 74 2d 66 | 75 6c 6c 2d 6e 61 6d 65 |vm-set-f|ull-name|
|00001870| 2d 6f 66 20 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |-of (mac|ro . #[(|
|00001880| 6d 65 73 73 61 67 65 20 | 61 75 74 68 6f 72 29 20 |message |author) |
|00001890| 22 c0 c1 5c 6e c3 45 c4 | 0d 46 87 22 20 5b 61 73 |"..\n.E.|.F." [as|
|000018a0| 65 74 20 61 72 65 66 20 | 6d 65 73 73 61 67 65 20 |et aref |message |
|000018b0| 33 20 37 20 61 75 74 68 | 6f 72 5d 20 34 5d 29 20 |3 7 auth|or] 4]) |
|000018c0| 76 6d 2d 73 65 74 2d 66 | 72 6f 6d 2d 6f 66 20 28 |vm-set-f|rom-of (|
|000018d0| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 6d 65 73 73 61 |macro . |#[(messa|
|000018e0| 67 65 20 61 75 74 68 6f | 72 29 20 22 c0 c1 5c 6e |ge autho|r) "..\n|
|000018f0| c3 45 c4 0d 46 87 22 20 | 5b 61 73 65 74 20 61 72 |.E..F." |[aset ar|
|00001900| 65 66 20 6d 65 73 73 61 | 67 65 20 33 20 38 20 61 |ef messa|ge 3 8 a|
|00001910| 75 74 68 6f 72 5d 20 34 | 5d 29 20 76 6d 2d 73 65 |uthor] 4|]) vm-se|
|00001920| 74 2d 6d 65 73 73 61 67 | 65 2d 69 64 2d 6f 66 20 |t-messag|e-id-of |
|00001930| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 6d 65 73 73 |(macro .| #[(mess|
|00001940| 61 67 65 20 69 64 29 20 | 22 c0 c1 5c 6e c3 45 c4 |age id) |"..\n.E.|
|00001950| 0d 46 87 22 20 5b 61 73 | 65 74 20 61 72 65 66 20 |.F." [as|et aref |
|00001960| 6d 65 73 73 61 67 65 20 | 33 20 39 20 69 64 5d 20 |message |3 9 id] |
|00001970| 34 5d 29 20 76 6d 2d 73 | 65 74 2d 6c 69 6e 65 2d |4]) vm-s|et-line-|
|00001980| 63 6f 75 6e 74 2d 6f 66 | 20 28 6d 61 63 72 6f 20 |count-of| (macro |
|00001990| 2e 20 23 5b 28 6d 65 73 | 73 61 67 65 20 63 6f 75 |. #[(mes|sage cou|
|000019a0| 6e 74 29 20 22 c0 c1 5c | 6e c3 45 c4 0d 46 87 22 |nt) "..\|n.E..F."|
|000019b0| 20 5b 61 73 65 74 20 61 | 72 65 66 20 6d 65 73 73 | [aset a|ref mess|
|000019c0| 61 67 65 20 33 20 31 30 | 20 63 6f 75 6e 74 5d 20 |age 3 10| count] |
|000019d0| 34 5d 29 20 76 6d 2d 73 | 65 74 2d 73 75 62 6a 65 |4]) vm-s|et-subje|
|000019e0| 63 74 2d 6f 66 20 28 6d | 61 63 72 6f 20 2e 20 23 |ct-of (m|acro . #|
|000019f0| 5b 28 6d 65 73 73 61 67 | 65 20 73 75 62 6a 65 63 |[(messag|e subjec|
|00001a00| 74 29 20 22 c0 c1 5c 6e | c3 45 c4 0d 46 87 22 20 |t) "..\n|.E..F." |
|00001a10| 5b 61 73 65 74 20 61 72 | 65 66 20 6d 65 73 73 61 |[aset ar|ef messa|
|00001a20| 67 65 20 33 20 31 31 20 | 73 75 62 6a 65 63 74 5d |ge 3 11 |subject]|
|00001a30| 20 34 5d 29 20 76 6d 2d | 73 65 74 2d 76 68 65 61 | 4]) vm-|set-vhea|
|00001a40| 64 65 72 73 2d 72 65 67 | 65 78 70 2d 6f 66 20 28 |ders-reg|exp-of (|
|00001a50| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 6d 65 73 73 61 |macro . |#[(messa|
|00001a60| 67 65 20 72 65 67 65 78 | 70 29 20 22 c0 c1 5c 6e |ge regex|p) "..\n|
|00001a70| c3 45 c4 0d 46 87 22 20 | 5b 61 73 65 74 20 61 72 |.E..F." |[aset ar|
|00001a80| 65 66 20 6d 65 73 73 61 | 67 65 20 33 20 31 32 20 |ef messa|ge 3 12 |
|00001a90| 72 65 67 65 78 70 5d 20 | 34 5d 29 20 76 6d 2d 73 |regexp] |4]) vm-s|
|00001aa0| 65 74 2d 74 6f 2d 6f 66 | 20 28 6d 61 63 72 6f 20 |et-to-of| (macro |
|00001ab0| 2e 20 23 5b 28 6d 65 73 | 73 61 67 65 20 72 65 63 |. #[(mes|sage rec|
|00001ac0| 69 70 73 29 20 22 c0 c1 | 5c 6e c3 45 c4 0d 46 87 |ips) "..|\n.E..F.|
|00001ad0| 22 20 5b 61 73 65 74 20 | 61 72 65 66 20 6d 65 73 |" [aset |aref mes|
|00001ae0| 73 61 67 65 20 33 20 31 | 33 20 72 65 63 69 70 73 |sage 3 1|3 recips|
|00001af0| 5d 20 34 5d 29 20 76 6d | 2d 73 65 74 2d 74 6f 2d |] 4]) vm|-set-to-|
|00001b00| 6e 61 6d 65 73 2d 6f 66 | 20 28 6d 61 63 72 6f 20 |names-of| (macro |
|00001b10| 2e 20 23 5b 28 6d 65 73 | 73 61 67 65 20 72 65 63 |. #[(mes|sage rec|
|00001b20| 69 70 73 29 20 22 c0 c1 | 5c 6e c3 45 c4 0d 46 87 |ips) "..|\n.E..F.|
|00001b30| 22 20 5b 61 73 65 74 20 | 61 72 65 66 20 6d 65 73 |" [aset |aref mes|
|00001b40| 73 61 67 65 20 33 20 31 | 34 20 72 65 63 69 70 73 |sage 3 1|4 recips|
|00001b50| 5d 20 34 5d 29 5d 20 32 | 29 0a 28 62 79 74 65 2d |] 4])] 2|).(byte-|
|00001b60| 63 6f 64 65 20 22 c0 c1 | 4d 88 c2 c3 4d 88 c4 c5 |code "..|M...M...|
|00001b70| 4d 88 c6 c7 4d 88 c8 c9 | 4d 87 22 20 5b 76 6d 2d |M...M...|M." [vm-|
|00001b80| 73 65 74 2d 6d 6f 6e 74 | 68 2d 6e 75 6d 62 65 72 |set-mont|h-number|
|00001b90| 2d 6f 66 20 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |-of (mac|ro . #[(|
|00001ba0| 6d 65 73 73 61 67 65 20 | 76 61 6c 29 20 22 c0 c1 |message |val) "..|
|00001bb0| 5c 6e c3 45 c4 0d 46 87 | 22 20 5b 61 73 65 74 20 |\n.E..F.|" [aset |
|00001bc0| 61 72 65 66 20 6d 65 73 | 73 61 67 65 20 33 20 31 |aref mes|sage 3 1|
|00001bd0| 35 20 76 61 6c 5d 20 34 | 5d 29 20 76 6d 2d 73 65 |5 val] 4|]) vm-se|
|00001be0| 74 2d 6d 6f 64 66 6c 61 | 67 2d 6f 66 20 28 6d 61 |t-modfla|g-of (ma|
|00001bf0| 63 72 6f 20 2e 20 23 5b | 28 6d 65 73 73 61 67 65 |cro . #[|(message|
|00001c00| 20 76 61 6c 29 20 22 c0 | 09 c2 0b 46 87 22 20 5b | val) ".|...F." [|
|00001c10| 61 73 65 74 20 6d 65 73 | 73 61 67 65 20 34 20 76 |aset mes|sage 4 v|
|00001c20| 61 6c 5d 20 34 5d 29 20 | 76 6d 2d 74 65 78 74 2d |al] 4]) |vm-text-|
|00001c30| 65 6e 64 2d 6f 66 20 23 | 5b 28 6d 65 73 73 61 67 |end-of #|[(messag|
|00001c40| 65 29 20 22 08 c1 48 c2 | 48 0b c4 3d ab 83 c5 aa |e) "..H.|H..=....|
|00001c50| 81 c6 5a 87 22 20 5b 6d | 65 73 73 61 67 65 20 30 |..Z." [m|essage 0|
|00001c60| 20 33 20 76 6d 2d 66 6f | 6c 64 65 72 2d 74 79 70 | 3 vm-fo|lder-typ|
|00001c70| 65 20 6d 6d 64 66 20 35 | 20 31 5d 20 33 5d 20 76 |e mmdf 5| 1] 3] v|
|00001c80| 6d 2d 6d 61 6b 65 2d 6d | 65 73 73 61 67 65 20 23 |m-make-m|essage #|
|00001c90| 5b 6e 69 6c 20 22 c0 c1 | c2 5c 22 c2 1b 89 1c c5 |[nil "..|.\".....|
|00001ca0| c0 0e 06 c2 5c 22 49 88 | 0c c7 c0 0e 08 c2 5c 22 |....\"I.|......\"|
|00001cb0| 49 88 c9 ca 21 89 13 0c | 4c 88 0c c7 48 cb 0b 49 |I...!...|L...H..I|
|00001cc0| 88 c9 cc 21 13 0c c7 48 | cd 0b 49 88 0c 2a 87 22 |...!...H|..I..*."|
|00001cd0| 20 5b 6d 61 6b 65 2d 76 | 65 63 74 6f 72 20 35 20 | [make-v|ector 5 |
|00001ce0| 6e 69 6c 20 73 79 6d 20 | 76 20 31 20 76 6d 2d 73 |nil sym |v 1 vm-s|
|00001cf0| 6f 66 74 64 61 74 61 2d | 76 65 63 74 6f 72 2d 6c |oftdata-|vector-l|
|00001d00| 65 6e 67 74 68 20 30 20 | 76 6d 2d 76 69 72 74 75 |ength 0 |vm-virtu|
|00001d10| 61 6c 2d 64 61 74 61 2d | 76 65 63 74 6f 72 2d 6c |al-data-|vector-l|
|00001d20| 65 6e 67 74 68 20 6d 61 | 6b 65 2d 73 79 6d 62 6f |ength ma|ke-symbo|
|00001d30| 6c 20 22 3c 3c 3e 3e 22 | 20 36 20 22 3c 2d 2d 22 |l "<<>>"| 6 "<--"|
|00001d40| 20 38 5d 20 36 5d 20 76 | 6d 2d 66 69 6e 64 2d 61 | 8] 6] v|m-find-a|
|00001d50| 6e 64 2d 73 65 74 2d 74 | 65 78 74 2d 6f 66 20 23 |nd-set-t|ext-of #|
|00001d60| 5b 28 6d 29 20 22 8a 8c | 7e 88 08 c1 48 c1 48 62 |[(m) "..|~...H.Hb|
|00001d70| 88 c2 79 88 c3 c4 c5 08 | 21 c6 23 88 08 c1 48 c7 |..y.....|!.#...H.|
|00001d80| c8 20 49 2a 87 22 20 5b | 6d 20 30 20 31 20 73 65 |. I*." [|m 0 1 se|
|00001d90| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 5c 6e |arch-for|ward "\n|
|00001da0| 5c 6e 22 20 76 6d 2d 74 | 65 78 74 2d 65 6e 64 2d |\n" vm-t|ext-end-|
|00001db0| 6f 66 20 74 20 32 20 70 | 6f 69 6e 74 2d 6d 61 72 |of t 2 p|oint-mar|
|00001dc0| 6b 65 72 5d 20 34 5d 5d | 20 32 29 0a             |ker] 4]]| 2).    |
+--------+-------------------------+-------------------------+--------+--------+