summaryrefslogtreecommitdiff
path: root/localrepo/treepy-20230715.2154.tar
blob: 894ee4979d9bea2a312cf0f8d012629886ae2c5a (plain)
ofshex dumpascii
0000 74 72 65 65 70 79 2d 32 30 32 33 30 37 31 35 2e 32 31 35 34 2f 00 00 00 00 00 00 00 00 00 00 00 treepy-20230715.2154/...........
0020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0060 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000755.0000000.0000000.0000
0080 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 33 32 30 00 20 35 00 00 00 0000000.00000000000.012320..5...
00a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
00c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
00e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0100 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
0120 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
0140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
01a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
01c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
01e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0200 74 72 65 65 70 79 2d 32 30 32 33 30 37 31 35 2e 32 31 35 34 2f 74 72 65 65 70 79 2d 70 6b 67 2e treepy-20230715.2154/treepy-pkg.
0220 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 el..............................
0240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0260 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
0280 30 30 30 30 37 34 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 37 33 35 00 20 30 00 00 00 0000743.00000000000.014735..0...
02a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
02c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
02e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0300 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
0320 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
0340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
03a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
03c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
03e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0400 28 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 22 74 72 65 65 70 79 22 20 22 32 30 32 33 30 37 (define-package."treepy"."202307
0420 31 35 2e 32 31 35 34 22 20 22 47 65 6e 65 72 69 63 20 74 72 65 65 20 74 72 61 76 65 72 73 61 6c 15.2154"."Generic.tree.traversal
0440 20 74 6f 6f 6c 73 22 0a 20 20 27 28 28 65 6d 61 63 73 20 22 32 35 2e 31 22 29 29 0a 20 20 3a 63 .tools"...'((emacs."25.1"))...:c
0460 6f 6d 6d 69 74 20 22 37 35 66 65 33 65 63 33 37 65 36 66 39 62 32 62 64 66 64 36 64 30 35 38 34 ommit."75fe3ec37e6f9b2bdfd6d0584
0480 65 66 64 39 38 34 64 30 63 30 30 61 34 33 65 22 20 3a 61 75 74 68 6f 72 73 0a 20 20 27 28 28 22 efd984d0c00a43e".:authors...'(("
04a0 44 61 6e 69 65 6c 20 42 61 72 72 65 74 6f 22 20 2e 20 22 64 61 6e 69 65 6c 2e 62 61 72 72 65 74 Daniel.Barreto"..."daniel.barret
04c0 6f 2e 6e 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 0a 20 20 3a 6d 61 69 6e 74 61 69 6e 65 72 73 0a o.n@gmail.com"))...:maintainers.
04e0 20 20 27 28 28 22 44 61 6e 69 65 6c 20 42 61 72 72 65 74 6f 22 20 2e 20 22 64 61 6e 69 65 6c 2e ..'(("Daniel.Barreto"..."daniel.
0500 62 61 72 72 65 74 6f 2e 6e 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 0a 20 20 3a 6d 61 69 6e 74 61 barreto.n@gmail.com"))...:mainta
0520 69 6e 65 72 0a 20 20 27 28 22 44 61 6e 69 65 6c 20 42 61 72 72 65 74 6f 22 20 2e 20 22 64 61 6e iner...'("Daniel.Barreto"..."dan
0540 69 65 6c 2e 62 61 72 72 65 74 6f 2e 6e 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 0a 20 20 3a 6b 65 79 iel.barreto.n@gmail.com")...:key
0560 77 6f 72 64 73 0a 20 20 27 28 22 6c 69 73 70 22 20 22 6d 61 69 6e 74 22 20 22 74 6f 6f 6c 73 22 words...'("lisp"."maint"."tools"
0580 29 0a 20 20 3a 75 72 6c 20 22 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 76 6f 6c )...:url."https://github.com/vol
05a0 72 61 74 68 2f 74 72 65 65 70 79 2e 65 6c 22 29 0a 3b 3b 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 rath/treepy.el").;;.Local.Variab
05c0 6c 65 73 3a 0a 3b 3b 20 6e 6f 2d 62 79 74 65 2d 63 6f 6d 70 69 6c 65 3a 20 74 0a 3b 3b 20 45 6e les:.;;.no-byte-compile:.t.;;.En
05e0 64 3a 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d:..............................
0600 74 72 65 65 70 79 2d 32 30 32 33 30 37 31 35 2e 32 31 35 34 2f 74 72 65 65 70 79 2e 65 6c 00 00 treepy-20230715.2154/treepy.el..
0620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0660 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
0680 30 30 34 32 36 34 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 31 36 34 00 20 30 00 00 00 0042644.00000000000.014164..0...
06a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
06c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
06e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0700 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
0720 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
0740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
07a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
07c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
07e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0800 3b 3b 3b 20 74 72 65 65 70 79 2e 65 6c 20 2d 2d 2d 20 47 65 6e 65 72 69 63 20 74 72 65 65 20 74 ;;;.treepy.el.---.Generic.tree.t
0820 72 61 76 65 72 73 61 6c 20 74 6f 6f 6c 73 20 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 raversal.tools..-*-.lexical-bind
0840 69 6e 67 3a 20 74 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 31 ing:.t.-*-..;;.Copyright.(C).201
0860 37 20 44 61 6e 69 65 6c 20 42 61 72 72 65 74 6f 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 44 61 6e 7.Daniel.Barreto..;;.Author:.Dan
0880 69 65 6c 20 42 61 72 72 65 74 6f 20 3c 64 61 6e 69 65 6c 2e 62 61 72 72 65 74 6f 2e 6e 40 67 6d iel.Barreto.<daniel.barreto.n@gm
08a0 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 6c 69 73 70 2c 20 6d 61 69 6e ail.com>.;;.Keywords:.lisp,.main
08c0 74 2c 20 74 6f 6f 6c 73 0a 3b 3b 20 43 72 65 61 74 65 64 3a 20 4d 6f 6e 20 4a 75 6c 20 31 30 20 t,.tools.;;.Created:.Mon.Jul.10.
08e0 31 35 3a 31 37 3a 33 36 20 32 30 31 37 20 28 2b 30 32 30 30 29 0a 3b 3b 20 56 65 72 73 69 6f 6e 15:17:36.2017.(+0200).;;.Version
0900 3a 20 30 2e 31 2e 32 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 3a 20 28 28 65 :.0.1.2.;;.Package-Requires:.((e
0920 6d 61 63 73 20 22 32 35 2e 31 22 29 29 0a 3b 3b 20 55 52 4c 3a 20 68 74 74 70 73 3a 2f 2f 67 69 macs."25.1")).;;.URL:.https://gi
0940 74 68 75 62 2e 63 6f 6d 2f 76 6f 6c 72 61 74 68 2f 74 72 65 65 70 79 2e 65 6c 0a 0a 3b 3b 20 54 thub.com/volrath/treepy.el..;;.T
0960 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3a 20 79 6f his.program.is.free.software:.yo
0980 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 u.can.redistribute.it.and/or.mod
09a0 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 ify.;;.it.under.the.terms.of.the
09c0 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 .GNU.General.Public.License.as.p
09e0 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 ublished.by.;;.the.Free.Software
0a00 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 .Foundation,.either.version.3.of
0a20 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 20 28 61 74 0a 3b 3b 20 79 6f 75 72 20 6f 70 74 .the.License,.or.(at.;;.your.opt
0a40 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 3b 3b 0a 3b 3b 20 54 68 ion).any.later.version..;;.;;.Th
0a60 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 is.program.is.distributed.in.the
0a80 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 20 62 75 .hope.that.it.will.be.useful,.bu
0aa0 74 0a 3b 3b 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f t.;;.WITHOUT.ANY.WARRANTY;.witho
0ac0 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a ut.even.the.implied.warranty.of.
0ae0 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f ;;.MERCHANTABILITY.or.FITNESS.FO
0b00 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 R.A.PARTICULAR.PURPOSE...See.the
0b20 20 47 4e 55 0a 3b 3b 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 .GNU.;;.General.Public.License.f
0b40 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 3b 3b 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c or.more.details..;;.;;.You.shoul
0b60 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e d.have.received.a.copy.of.the.GN
0b80 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e U.General.Public.License.;;.alon
0ba0 67 20 77 69 74 68 20 47 4e 55 20 45 6d 61 63 73 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c g.with.GNU.Emacs...If.not,.see.<
0bc0 68 74 74 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a http://www.gnu.org/licenses/>...
0be0 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 47 65 6e 65 72 69 63 20 74 6f 6f 6c ;;;.Commentary:..;;.Generic.tool
0c00 73 20 66 6f 72 20 72 65 63 75 72 73 69 76 65 20 61 6e 64 20 69 74 65 72 61 74 69 76 65 20 74 72 s.for.recursive.and.iterative.tr
0c20 65 65 20 74 72 61 76 65 72 73 61 6c 20 62 61 73 65 64 20 6f 6e 0a 3b 3b 20 63 6c 6f 6a 75 72 65 ee.traversal.based.on.;;.clojure
0c40 2e 77 61 6c 6b 20 61 6e 64 20 63 6c 6f 6a 75 72 65 2e 7a 69 70 20 72 65 73 70 65 63 74 69 76 65 .walk.and.clojure.zip.respective
0c60 6c 79 2e 20 20 44 65 70 65 6e 64 73 20 6f 6e 20 60 6d 61 70 27 2c 20 61 20 6d 61 70 0a 3b 3b 20 ly...Depends.on.`map',.a.map.;;.
0c80 6d 61 6e 69 70 75 6c 61 74 69 6f 6e 20 6c 69 62 72 61 72 79 20 62 75 69 6c 74 20 69 6e 20 45 6d manipulation.library.built.in.Em
0ca0 61 63 73 20 32 35 2e 31 2e 20 20 41 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 70 72 65 acs.25.1...All.functions.are.pre
0cc0 66 69 78 65 64 0a 3b 3b 20 77 69 74 68 20 22 74 72 65 65 70 79 2d 22 2e 0a 0a 3b 3b 3b 20 43 6f fixed.;;.with."treepy-"...;;;.Co
0ce0 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 6d 61 70 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c de:..(require.'map).(require.'cl
0d00 2d 6c 69 62 29 0a 0a 3b 3b 3b 20 57 61 6c 6b 20 28 72 65 63 75 72 73 69 76 65 20 74 72 65 65 20 -lib)..;;;.Walk.(recursive.tree.
0d20 74 72 61 76 65 72 73 61 6c 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 77 61 6c 6b 20 28 traversal)..(defun.treepy-walk.(
0d40 69 6e 6e 65 72 20 6f 75 74 65 72 20 66 6f 72 6d 29 0a 20 20 22 55 73 69 6e 67 20 49 4e 4e 45 52 inner.outer.form)..."Using.INNER
0d60 20 61 6e 64 20 4f 55 54 45 52 2c 20 74 72 61 76 65 72 73 65 20 46 4f 52 4d 2c 20 61 6e 20 61 72 .and.OUTER,.traverse.FORM,.an.ar
0d80 62 69 74 72 61 72 79 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 2e 0a 49 4e 4e 45 52 20 61 6e bitrary.data.structure..INNER.an
0da0 64 20 4f 55 54 45 52 20 61 72 65 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 41 70 70 6c 79 20 49 4e d.OUTER.are.functions...Apply.IN
0dc0 4e 45 52 20 74 6f 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 0a 46 4f 52 4d 2c 20 62 75 69 NER.to.each.element.of.FORM,.bui
0de0 6c 64 69 6e 67 20 75 70 20 61 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 74 68 65 lding.up.a.data.structure.of.the
0e00 20 73 61 6d 65 20 74 79 70 65 2c 20 74 68 65 6e 20 61 70 70 6c 79 0a 4f 55 54 45 52 20 74 6f 20 .same.type,.then.apply.OUTER.to.
0e20 74 68 65 20 72 65 73 75 6c 74 2e 20 20 52 65 63 6f 67 6e 69 7a 65 20 63 6f 6e 73 2c 20 6c 69 73 the.result...Recognize.cons,.lis
0e40 74 73 2c 20 61 6c 69 73 74 73 2c 20 76 65 63 74 6f 72 73 20 61 6e 64 0a 68 61 73 68 20 74 61 62 ts,.alists,.vectors.and.hash.tab
0e60 6c 65 73 2e 22 0a 20 20 28 63 6f 6e 64 0a 20 20 20 28 28 61 6e 64 20 28 6c 69 73 74 70 20 66 6f les."...(cond....((and.(listp.fo
0e80 72 6d 29 20 28 63 64 72 20 66 6f 72 6d 29 20 28 61 74 6f 6d 20 28 63 64 72 20 66 6f 72 6d 29 29 rm).(cdr.form).(atom.(cdr.form))
0ea0 29 20 28 66 75 6e 63 61 6c 6c 20 6f 75 74 65 72 20 28 63 6f 6e 73 20 28 66 75 6e 63 61 6c 6c 20 ).(funcall.outer.(cons.(funcall.
0ec0 69 6e 6e 65 72 20 28 63 61 72 20 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 inner.(car.form))...............
0ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
0f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 ...........................(func
0f20 61 6c 6c 20 69 6e 6e 65 72 20 28 63 64 72 20 66 6f 72 6d 29 29 29 29 29 0a 20 20 20 28 28 6c 69 all.inner.(cdr.form)))))....((li
0f40 73 74 70 20 66 6f 72 6d 29 20 28 66 75 6e 63 61 6c 6c 20 6f 75 74 65 72 20 28 6d 61 70 63 61 72 stp.form).(funcall.outer.(mapcar
0f60 20 69 6e 6e 65 72 20 66 6f 72 6d 29 29 29 0a 20 20 20 28 28 76 65 63 74 6f 72 70 20 66 6f 72 6d .inner.form)))....((vectorp.form
0f80 29 20 28 66 75 6e 63 61 6c 6c 20 6f 75 74 65 72 20 28 61 70 70 6c 79 20 23 27 76 65 63 74 6f 72 ).(funcall.outer.(apply.#'vector
0fa0 20 28 6d 61 70 63 61 72 20 69 6e 6e 65 72 20 66 6f 72 6d 29 29 29 29 0a 20 20 20 28 28 68 61 73 .(mapcar.inner.form))))....((has
0fc0 68 2d 74 61 62 6c 65 2d 70 20 66 6f 72 6d 29 20 28 66 75 6e 63 61 6c 6c 20 6f 75 74 65 72 20 28 h-table-p.form).(funcall.outer.(
0fe0 6d 61 70 2d 61 70 70 6c 79 20 28 6c 61 6d 62 64 61 20 28 6b 20 76 29 20 28 66 75 6e 63 61 6c 6c map-apply.(lambda.(k.v).(funcall
1000 20 69 6e 6e 65 72 20 28 63 6f 6e 73 20 6b 20 76 29 29 29 20 66 6f 72 6d 29 29 29 0a 20 20 20 28 .inner.(cons.k.v))).form)))....(
1020 74 20 28 66 75 6e 63 61 6c 6c 20 6f 75 74 65 72 20 66 6f 72 6d 29 29 29 29 0a 0a 28 64 65 66 75 t.(funcall.outer.form))))..(defu
1040 6e 20 74 72 65 65 70 79 2d 70 6f 73 74 77 61 6c 6b 20 28 66 20 66 6f 72 6d 29 0a 20 20 22 50 65 n.treepy-postwalk.(f.form)..."Pe
1060 72 66 6f 72 6d 20 61 20 64 65 70 74 68 2d 66 69 72 73 74 2c 20 70 6f 73 74 2d 6f 72 64 65 72 20 rform.a.depth-first,.post-order.
1080 74 72 61 76 65 72 73 61 6c 20 6f 66 20 46 20 61 70 70 6c 69 65 64 20 74 6f 20 46 4f 52 4d 2e 0a traversal.of.F.applied.to.FORM..
10a0 43 61 6c 6c 20 46 20 6f 6e 20 65 61 63 68 20 73 75 62 2d 66 6f 72 6d 2c 20 75 73 65 20 46 27 73 Call.F.on.each.sub-form,.use.F's
10c0 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 6e 20 70 6c 61 63 65 20 6f 66 20 74 68 65 0a 6f 72 .return.value.in.place.of.the.or
10e0 69 67 69 6e 61 6c 2e 20 20 52 65 63 6f 67 6e 69 7a 65 20 63 6f 6e 73 2c 20 6c 69 73 74 73 2c 20 iginal...Recognize.cons,.lists,.
1100 61 6c 69 73 74 73 2c 20 76 65 63 74 6f 72 73 20 61 6e 64 0a 68 61 73 68 20 74 61 62 6c 65 73 2e alists,.vectors.and.hash.tables.
1120 22 0a 20 20 28 74 72 65 65 70 79 2d 77 61 6c 6b 20 28 61 70 70 6c 79 2d 70 61 72 74 69 61 6c 6c "...(treepy-walk.(apply-partiall
1140 79 20 23 27 74 72 65 65 70 79 2d 70 6f 73 74 77 61 6c 6b 20 66 29 20 66 20 66 6f 72 6d 29 29 0a y.#'treepy-postwalk.f).f.form)).
1160 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 70 72 65 77 61 6c 6b 20 28 66 20 66 6f 72 6d 29 0a .(defun.treepy-prewalk.(f.form).
1180 20 20 22 50 65 72 66 6f 72 6d 20 61 20 64 65 70 74 68 2d 66 69 72 73 74 2c 20 70 72 65 2d 6f 72 .."Perform.a.depth-first,.pre-or
11a0 64 65 72 20 74 72 61 76 65 72 73 61 6c 20 6f 66 20 46 20 61 70 70 6c 69 65 64 20 74 6f 20 46 4f der.traversal.of.F.applied.to.FO
11c0 52 4d 2e 0a 4c 69 6b 65 20 60 74 72 65 65 70 79 2d 70 6f 73 74 77 61 6c 6b 27 2e 22 0a 20 20 28 RM..Like.`treepy-postwalk'."...(
11e0 74 72 65 65 70 79 2d 77 61 6c 6b 20 28 61 70 70 6c 79 2d 70 61 72 74 69 61 6c 6c 79 20 23 27 74 treepy-walk.(apply-partially.#'t
1200 72 65 65 70 79 2d 70 72 65 77 61 6c 6b 20 66 29 20 23 27 69 64 65 6e 74 69 74 79 20 28 66 75 6e reepy-prewalk.f).#'identity.(fun
1220 63 61 6c 6c 20 66 20 66 6f 72 6d 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 70 6f call.f.form)))..(defun.treepy-po
1240 73 74 77 61 6c 6b 2d 64 65 6d 6f 20 28 66 6f 72 6d 29 0a 20 20 22 44 65 6d 6f 6e 73 74 72 61 74 stwalk-demo.(form)..."Demonstrat
1260 65 20 74 68 65 20 62 65 68 61 76 69 6f 72 20 6f 66 20 60 74 72 65 65 70 79 2d 70 6f 73 74 77 61 e.the.behavior.of.`treepy-postwa
1280 6c 6b 27 20 66 6f 72 20 46 4f 52 4d 2e 0a 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 65 lk'.for.FORM..Return.a.list.of.e
12a0 61 63 68 20 66 6f 72 6d 20 61 73 20 69 74 20 69 73 20 77 61 6c 6b 65 64 2e 22 0a 20 20 28 6c 65 ach.form.as.it.is.walked."...(le
12c0 74 20 28 28 77 61 6c 6b 20 6e 69 6c 29 29 0a 20 20 20 20 28 74 72 65 65 70 79 2d 70 6f 73 74 77 t.((walk.nil)).....(treepy-postw
12e0 61 6c 6b 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 70 75 73 68 20 78 20 77 61 6c 6b 29 20 78 29 alk.(lambda.(x).(push.x.walk).x)
1300 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 29 0a 20 20 20 20 ......................form).....
1320 28 72 65 76 65 72 73 65 20 77 61 6c 6b 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d (reverse.walk)))..(defun.treepy-
1340 70 72 65 77 61 6c 6b 2d 64 65 6d 6f 20 28 66 6f 72 6d 29 0a 20 20 22 44 65 6d 6f 6e 73 74 72 61 prewalk-demo.(form)..."Demonstra
1360 74 65 20 74 68 65 20 62 65 68 61 76 69 6f 72 20 6f 66 20 60 74 72 65 65 70 79 2d 70 72 65 77 61 te.the.behavior.of.`treepy-prewa
1380 6c 6b 27 20 66 6f 72 20 46 4f 52 4d 2e 0a 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 65 lk'.for.FORM..Return.a.list.of.e
13a0 61 63 68 20 66 6f 72 6d 20 61 73 20 69 74 20 69 73 20 77 61 6c 6b 65 64 2e 22 0a 20 20 28 6c 65 ach.form.as.it.is.walked."...(le
13c0 74 20 28 28 77 61 6c 6b 20 6e 69 6c 29 29 0a 20 20 20 20 28 74 72 65 65 70 79 2d 70 72 65 77 61 t.((walk.nil)).....(treepy-prewa
13e0 6c 6b 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 70 75 73 68 20 78 20 77 61 6c 6b 29 20 78 29 0a lk.(lambda.(x).(push.x.walk).x).
1400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 29 0a 20 20 20 20 28 72 ....................form).....(r
1420 65 76 65 72 73 65 20 77 61 6c 6b 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 70 6f everse.walk)))..(defun.treepy-po
1440 73 74 77 61 6c 6b 2d 72 65 70 6c 61 63 65 20 28 73 6d 61 70 20 66 6f 72 6d 20 26 6f 70 74 69 6f stwalk-replace.(smap.form.&optio
1460 6e 61 6c 20 74 65 73 74 66 6e 29 0a 20 20 22 55 73 65 20 53 4d 41 50 20 74 6f 20 74 72 61 6e 73 nal.testfn)..."Use.SMAP.to.trans
1480 66 6f 72 6d 20 46 4f 52 4d 20 62 79 20 64 6f 69 6e 67 20 72 65 70 6c 61 63 69 6e 67 20 6f 70 65 form.FORM.by.doing.replacing.ope
14a0 72 61 74 69 6f 6e 73 2e 0a 52 65 63 75 72 73 69 76 65 6c 79 20 72 65 70 6c 61 63 65 20 69 6e 20 rations..Recursively.replace.in.
14c0 46 4f 52 4d 20 6b 65 79 73 20 69 6e 20 53 4d 41 50 20 77 69 74 68 20 74 68 65 69 72 20 76 61 6c FORM.keys.in.SMAP.with.their.val
14e0 75 65 73 2e 0a 44 6f 65 73 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 61 74 20 74 68 65 20 6c 65 61 ues..Does.replacement.at.the.lea
1500 76 65 73 20 6f 66 20 74 68 65 20 74 72 65 65 20 66 69 72 73 74 2e 22 0a 20 20 3b 3b 20 41 6c 73 ves.of.the.tree.first."...;;.Als
1520 6f 20 73 65 65 20 63 6f 6d 6d 65 6e 74 20 69 6e 20 60 6d 61 70 2d 63 6f 6e 74 61 69 6e 73 2d 6b o.see.comment.in.`map-contains-k
1540 65 79 27 73 20 64 65 66 69 6e 69 74 69 6f 6e 2e 0a 20 20 28 64 65 63 6c 61 72 65 20 28 61 64 76 ey's.definition....(declare.(adv
1560 65 72 74 69 73 65 64 2d 63 61 6c 6c 69 6e 67 2d 63 6f 6e 76 65 6e 74 69 6f 6e 20 28 73 6d 61 70 ertised-calling-convention.(smap
1580 20 6b 65 79 29 20 22 30 2e 31 2e 33 22 29 29 0a 20 20 28 74 72 65 65 70 79 2d 70 6f 73 74 77 61 .key)."0.1.3"))...(treepy-postwa
15a0 6c 6b 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 lk.(lambda.(x)..................
15c0 20 20 20 20 28 69 66 20 28 77 69 74 68 2d 73 75 70 70 72 65 73 73 65 64 2d 77 61 72 6e 69 6e 67 ....(if.(with-suppressed-warning
15e0 73 20 28 28 63 61 6c 6c 61 72 67 73 20 6d 61 70 2d 63 6f 6e 74 61 69 6e 73 2d 6b 65 79 29 29 0a s.((callargs.map-contains-key)).
1600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 2d ...........................(map-
1620 63 6f 6e 74 61 69 6e 73 2d 6b 65 79 20 73 6d 61 70 20 78 20 74 65 73 74 66 6e 29 29 0a 20 20 20 contains-key.smap.x.testfn))....
1640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 2d 65 6c 74 20 73 ......................(map-elt.s
1660 6d 61 70 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 29 map.x)........................x)
1680 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 29 29 0a 0a 28 64 65 )....................form))..(de
16a0 66 75 6e 20 74 72 65 65 70 79 2d 70 72 65 77 61 6c 6b 2d 72 65 70 6c 61 63 65 20 28 73 6d 61 70 fun.treepy-prewalk-replace.(smap
16c0 20 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 74 65 73 74 66 6e 29 0a 20 20 22 55 73 65 20 53 .form.&optional.testfn)..."Use.S
16e0 4d 41 50 20 74 6f 20 74 72 61 6e 73 66 6f 72 6d 20 46 4f 52 4d 20 62 79 20 64 6f 69 6e 67 20 72 MAP.to.transform.FORM.by.doing.r
1700 65 70 6c 61 63 69 6e 67 20 6f 70 65 72 61 74 69 6f 6e 73 2e 0a 52 65 63 75 72 73 69 76 65 6c 79 eplacing.operations..Recursively
1720 20 72 65 70 6c 61 63 65 20 69 6e 20 46 4f 52 4d 20 6b 65 79 73 20 69 6e 20 53 4d 41 50 20 77 69 .replace.in.FORM.keys.in.SMAP.wi
1740 74 68 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e 0a 44 6f 65 73 20 72 65 70 6c 61 63 65 6d 65 6e th.their.values..Does.replacemen
1760 74 20 61 74 20 74 68 65 20 72 6f 6f 74 20 6f 66 20 74 68 65 20 74 72 65 65 20 66 69 72 73 74 2e t.at.the.root.of.the.tree.first.
1780 22 0a 20 20 3b 3b 20 41 6c 73 6f 20 73 65 65 20 63 6f 6d 6d 65 6e 74 20 69 6e 20 60 6d 61 70 2d "...;;.Also.see.comment.in.`map-
17a0 63 6f 6e 74 61 69 6e 73 2d 6b 65 79 27 73 20 64 65 66 69 6e 69 74 69 6f 6e 2e 0a 20 20 28 64 65 contains-key's.definition....(de
17c0 63 6c 61 72 65 20 28 61 64 76 65 72 74 69 73 65 64 2d 63 61 6c 6c 69 6e 67 2d 63 6f 6e 76 65 6e clare.(advertised-calling-conven
17e0 74 69 6f 6e 20 28 73 6d 61 70 20 6b 65 79 29 20 22 30 2e 31 2e 33 22 29 29 0a 20 20 28 74 72 65 tion.(smap.key)."0.1.3"))...(tre
1800 65 70 79 2d 70 72 65 77 61 6c 6b 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 epy-prewalk.(lambda.(x).........
1820 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 77 69 74 68 2d 73 75 70 70 72 65 73 73 65 64 ............(if.(with-suppressed
1840 2d 77 61 72 6e 69 6e 67 73 20 28 28 63 61 6c 6c 61 72 67 73 20 6d 61 70 2d 63 6f 6e 74 61 69 6e -warnings.((callargs.map-contain
1860 73 2d 6b 65 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s-key)).........................
1880 20 20 28 6d 61 70 2d 63 6f 6e 74 61 69 6e 73 2d 6b 65 79 20 73 6d 61 70 20 78 20 74 65 73 74 66 ..(map-contains-key.smap.x.testf
18a0 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 n)).........................(map
18c0 2d 65 6c 74 20 73 6d 61 70 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -elt.smap.x)....................
18e0 20 20 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 29 29 0a ...x))...................form)).
1900 0a 0a 3b 3b 3b 20 5a 69 70 70 65 72 20 28 69 74 65 72 61 74 69 76 65 20 74 72 65 65 20 74 72 61 ..;;;.Zipper.(iterative.tree.tra
1920 76 65 72 73 61 6c 29 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b versal).;;;;;;;;;;;;;;;;;;;;;;;;
1940 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1960 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 2d 63 ;;;;;;;;;;;;;;..(defun.treepy--c
1980 6f 6e 74 65 78 74 20 28 6c 6f 63 20 26 6f 70 74 69 6f 6e 61 6c 20 6b 65 79 29 0a 20 20 22 52 65 ontext.(loc.&optional.key)..."Re
19a0 74 75 72 6e 20 63 6f 6e 74 65 78 74 20 66 6f 72 20 74 68 69 73 20 4c 4f 43 2e 0a 49 66 20 4b 45 turn.context.for.this.LOC..If.KE
19c0 59 20 69 73 20 67 69 76 65 6e 2c 20 6f 6e 6c 79 20 72 65 74 75 72 6e 20 74 68 69 73 20 6b 65 79 Y.is.given,.only.return.this.key
19e0 27 73 20 76 61 6c 75 65 20 69 6e 20 63 6f 6e 74 65 78 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 's.value.in.context."...(let.((c
1a00 6f 6e 74 65 78 74 20 28 63 64 72 20 28 63 61 72 20 6c 6f 63 29 29 29 29 0a 20 20 20 20 28 69 66 ontext.(cdr.(car.loc)))).....(if
1a20 20 28 61 6e 64 20 63 6f 6e 74 65 78 74 20 6b 65 79 29 0a 20 20 20 20 20 20 20 20 28 6d 61 70 2d .(and.context.key).........(map-
1a40 65 6c 74 20 63 6f 6e 74 65 78 74 20 6b 65 79 29 0a 20 20 20 20 20 20 63 6f 6e 74 65 78 74 29 29 elt.context.key).......context))
1a60 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f 63 2d )..(defun.treepy--context-assoc-
1a80 31 20 28 63 6f 6e 74 65 78 74 20 6b 20 76 29 0a 20 20 22 41 73 73 6f 63 20 69 6e 20 43 4f 4e 54 1.(context.k.v)..."Assoc.in.CONT
1aa0 45 58 54 20 61 20 6b 65 79 20 4b 20 77 69 74 68 20 61 20 76 61 6c 75 65 20 56 2e 22 0a 20 20 28 EXT.a.key.K.with.a.value.V."...(
1ac0 69 66 20 28 6d 61 70 2d 63 6f 6e 74 61 69 6e 73 2d 6b 65 79 20 63 6f 6e 74 65 78 74 20 6b 29 0a if.(map-contains-key.context.k).
1ae0 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 79 29 0a 20 20 ......(mapcar.(lambda.(entry)...
1b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 20 28 63 61 72 20 65 6e ..............(if.(equal.(car.en
1b20 74 72 79 29 20 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e try).k).....................(con
1b40 73 20 6b 20 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 29 29 s.k.v)...................entry))
1b60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 28 63 6f 6e ...............context).....(con
1b80 73 20 28 63 6f 6e 73 20 6b 20 76 29 20 63 6f 6e 74 65 78 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 s.(cons.k.v).context)))..(defun.
1ba0 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f 63 20 28 63 6f 6e 74 65 78 74 20 26 treepy--context-assoc.(context.&
1bc0 72 65 73 74 20 6b 76 73 29 0a 20 20 22 49 6d 6d 75 74 61 62 6c 65 20 6d 61 70 20 61 73 73 6f 63 rest.kvs)..."Immutable.map.assoc
1be0 69 61 74 69 6f 6e 20 69 6e 20 43 4f 4e 54 45 58 54 20 75 73 69 6e 67 20 4b 56 53 2e 22 0a 20 20 iation.in.CONTEXT.using.KVS."...
1c00 28 73 65 71 2d 72 65 64 75 63 65 20 28 6c 61 6d 62 64 61 20 28 63 6f 6e 74 65 78 74 20 6b 76 29 (seq-reduce.(lambda.(context.kv)
1c20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 71 2d 6c 65 74 20 5b 6b 20 76 5d 20 .................(seq-let.[k.v].
1c40 6b 76 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 63 6f kv...................(treepy--co
1c60 6e 74 65 78 74 2d 61 73 73 6f 63 2d 31 20 63 6f 6e 74 65 78 74 20 6b 20 76 29 29 29 0a 20 20 20 ntext-assoc-1.context.k.v)))....
1c80 20 20 20 20 20 20 20 20 20 20 20 28 73 65 71 2d 70 61 72 74 69 74 69 6f 6e 20 6b 76 73 20 32 29 ...........(seq-partition.kvs.2)
1ca0 20 63 6f 6e 74 65 78 74 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 2d 6d 65 74 61 20 .context))..(defun.treepy--meta.
1cc0 28 6c 6f 63 20 26 6f 70 74 69 6f 6e 61 6c 20 6b 65 79 29 0a 20 20 22 52 65 74 75 72 6e 20 6d 65 (loc.&optional.key)..."Return.me
1ce0 74 61 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 20 74 68 69 73 20 4c 4f 43 2e 0a 49 66 20 ta.information.for.this.LOC..If.
1d00 4b 45 59 20 69 73 20 67 69 76 65 6e 2c 20 6f 6e 6c 79 20 72 65 74 75 72 6e 20 74 68 69 73 20 6b KEY.is.given,.only.return.this.k
1d20 65 79 27 73 20 76 61 6c 75 65 20 69 6e 20 6d 65 74 61 0a 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 ey's.value.in.meta.information."
1d40 0a 20 20 28 6c 65 74 20 28 28 6d 65 74 61 20 28 63 64 72 20 6c 6f 63 29 29 29 0a 20 20 20 20 28 ...(let.((meta.(cdr.loc))).....(
1d60 69 66 20 6b 65 79 0a 20 20 20 20 20 20 20 20 28 6d 61 70 2d 65 6c 74 20 6d 65 74 61 20 6b 65 79 if.key.........(map-elt.meta.key
1d80 29 0a 20 20 20 20 20 20 6d 65 74 61 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 2d ).......meta)))..(defun.treepy--
1da0 77 69 74 68 2d 6d 65 74 61 20 28 6f 62 6a 20 6d 65 74 61 29 0a 20 20 22 42 69 6e 64 20 4f 42 4a with-meta.(obj.meta)..."Bind.OBJ
1dc0 20 77 69 74 68 20 73 6f 6d 65 20 4d 45 54 41 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 .with.some.META.information."...
1de0 28 63 6f 6e 73 20 6f 62 6a 20 6d 65 74 61 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d (cons.obj.meta))..(defun.treepy-
1e00 2d 6a 6f 69 6e 2d 63 68 69 6c 64 72 65 6e 20 28 6c 65 66 74 2d 63 68 69 6c 64 72 65 6e 20 72 69 -join-children.(left-children.ri
1e20 67 68 74 2d 63 68 69 6c 64 72 65 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6a 6f 69 6e 69 6e ght-children)..."Return.a.joinin
1e40 67 20 6f 66 20 4c 45 46 54 2d 43 48 49 4c 44 52 45 4e 20 61 6e 64 20 52 49 47 48 54 2d 43 48 49 g.of.LEFT-CHILDREN.and.RIGHT-CHI
1e60 4c 44 52 45 4e 2e 0a 52 65 76 65 72 73 65 73 20 4c 45 46 54 2d 43 48 49 4c 44 52 45 4e 20 73 6f LDREN..Reverses.LEFT-CHILDREN.so
1e80 20 74 68 61 74 20 74 68 65 79 20 61 72 65 20 63 6f 72 72 65 63 74 6c 79 20 6f 72 64 65 72 65 64 .that.they.are.correctly.ordered
1ea0 20 61 73 20 69 6e 0a 74 68 65 20 74 72 65 65 2e 22 0a 20 20 28 61 70 70 65 6e 64 20 28 72 65 76 .as.in.the.tree."...(append.(rev
1ec0 65 72 73 65 20 6c 65 66 74 2d 63 68 69 6c 64 72 65 6e 29 20 72 69 67 68 74 2d 63 68 69 6c 64 72 erse.left-children).right-childr
1ee0 65 6e 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6c 6f 63 en))..(defmacro.treepy--with-loc
1f00 20 28 6c 6f 63 20 76 61 72 73 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 43 72 65 61 74 65 .(loc.vars.&rest.body)..."Create
1f20 20 61 20 6c 65 78 69 63 61 6c 20 63 6f 6e 74 65 78 74 20 75 73 69 6e 67 20 4c 4f 43 20 56 41 52 .a.lexical.context.using.LOC.VAR
1f40 53 2e 0a 45 78 65 63 75 74 65 20 42 4f 44 59 20 69 6e 20 74 68 69 73 20 63 6f 6e 74 65 78 74 2e S..Execute.BODY.in.this.context.
1f60 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 64 65 66 75 6e 29 29 0a 20 20 28 "...(declare.(indent.defun))...(
1f80 6c 65 74 20 28 28 6c 65 78 2d 63 74 78 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 76 let.((lex-ctx.(mapcar.(lambda.(v
1fa0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c )............................(cl
1fc0 2d 63 61 73 65 20 76 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -case.v.........................
1fe0 20 20 20 20 20 28 6e 6f 64 65 20 20 20 20 60 28 6e 6f 64 65 20 28 74 72 65 65 70 79 2d 6e 6f 64 .....(node....`(node.(treepy-nod
2000 65 20 2c 6c 6f 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e.,loc))).......................
2020 20 20 20 20 20 20 20 28 63 6f 6e 74 65 78 74 20 60 28 63 6f 6e 74 65 78 74 20 28 74 72 65 65 70 .......(context.`(context.(treep
2040 79 2d 2d 63 6f 6e 74 65 78 74 20 2c 6c 6f 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 y--context.,loc)))..............
2060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 20 20 20 20 20 20 60 28 2c 76 20 28 74 ................(t.......`(,v.(t
2080 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 2c 6c 6f 63 20 28 71 75 6f 74 65 20 2c 28 69 6e 74 reepy--context.,loc.(quote.,(int
20a0 65 72 6e 20 28 63 6f 6e 63 61 74 20 22 3a 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 76 29 29 ern.(concat.":".(symbol-name.v))
20c0 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ))))))).........................
20e0 20 76 61 72 73 29 29 29 0a 20 20 20 20 60 28 6c 65 74 2a 20 28 2c 40 6c 65 78 2d 63 74 78 29 20 .vars))).....`(let*.(,@lex-ctx).
2100 2c 40 62 6f 64 79 29 29 29 0a 0a 3b 3b 3b 3b 20 43 6f 6e 73 74 72 75 63 74 69 6f 6e 0a 0a 28 64 ,@body)))..;;;;.Construction..(d
2120 65 66 75 6e 20 74 72 65 65 70 79 2d 7a 69 70 70 65 72 20 28 62 72 61 6e 63 68 70 20 63 68 69 6c efun.treepy-zipper.(branchp.chil
2140 64 72 65 6e 20 6d 61 6b 65 2d 6e 6f 64 65 20 72 6f 6f 74 29 0a 20 20 22 43 72 65 61 74 65 20 61 dren.make-node.root)..."Create.a
2160 20 6e 65 77 20 7a 69 70 70 65 72 20 73 74 72 75 63 74 75 72 65 2e 0a 0a 42 52 41 4e 43 48 50 20 .new.zipper.structure...BRANCHP.
2180 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 2c 20 67 69 76 65 6e 20 61 20 6e 6f 64 65 is.a.function.that,.given.a.node
21a0 2c 20 72 65 74 75 72 6e 73 20 74 20 69 66 20 69 74 20 63 61 6e 0a 68 61 76 65 20 63 68 69 6c 64 ,.returns.t.if.it.can.have.child
21c0 72 65 6e 2c 20 65 76 65 6e 20 69 66 20 69 74 20 63 75 72 72 65 6e 74 6c 79 20 64 6f 65 73 6e 27 ren,.even.if.it.currently.doesn'
21e0 74 2e 0a 0a 43 48 49 4c 44 52 45 4e 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 2c t...CHILDREN.is.a.function.that,
2200 20 67 69 76 65 6e 20 61 20 62 72 61 6e 63 68 20 6e 6f 64 65 2c 20 72 65 74 75 72 6e 73 20 61 20 .given.a.branch.node,.returns.a.
2220 73 65 71 0a 6f 66 20 69 74 73 20 63 68 69 6c 64 72 65 6e 2e 0a 0a 4d 41 4b 45 2d 4e 4f 44 45 20 seq.of.its.children...MAKE-NODE.
2240 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 2c 20 67 69 76 65 6e 20 61 6e 20 65 78 69 is.a.function.that,.given.an.exi
2260 73 74 69 6e 67 20 6e 6f 64 65 20 61 6e 64 20 61 20 73 65 71 20 6f 66 0a 63 68 69 6c 64 72 65 6e sting.node.and.a.seq.of.children
2280 2c 20 72 65 74 75 72 6e 73 20 61 20 6e 65 77 20 62 72 61 6e 63 68 20 6e 6f 64 65 20 77 69 74 68 ,.returns.a.new.branch.node.with
22a0 20 74 68 65 20 73 75 70 70 6c 69 65 64 20 63 68 69 6c 64 72 65 6e 2e 0a 0a 52 4f 4f 54 20 69 73 .the.supplied.children...ROOT.is
22c0 20 74 68 65 20 72 6f 6f 74 20 6e 6f 64 65 2e 22 0a 20 20 28 74 72 65 65 70 79 2d 2d 77 69 74 68 .the.root.node."...(treepy--with
22e0 2d 6d 65 74 61 0a 20 20 20 28 63 6f 6e 73 20 72 6f 6f 74 20 6e 69 6c 29 0a 20 20 20 60 28 28 3a -meta....(cons.root.nil)....`((:
2300 62 72 61 6e 63 68 70 20 2e 20 2c 62 72 61 6e 63 68 70 29 20 28 3a 63 68 69 6c 64 72 65 6e 20 2e branchp...,branchp).(:children..
2320 20 2c 63 68 69 6c 64 72 65 6e 29 20 28 3a 6d 61 6b 65 2d 6e 6f 64 65 20 2e 20 2c 6d 61 6b 65 2d .,children).(:make-node...,make-
2340 6e 6f 64 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 6c 69 73 74 2d 7a 69 70 node))))..(defun.treepy-list-zip
2360 20 28 72 6f 6f 74 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 7a 69 70 70 65 72 20 66 6f 72 20 6e .(root)..."Return.a.zipper.for.n
2380 65 73 74 65 64 20 6c 69 73 74 73 2c 20 67 69 76 65 6e 20 61 20 52 4f 4f 54 20 6c 69 73 74 2e 22 ested.lists,.given.a.ROOT.list."
23a0 0a 20 20 28 6c 65 74 20 28 28 6d 61 6b 65 2d 6e 6f 64 65 20 28 6c 61 6d 62 64 61 20 28 5f 20 63 ...(let.((make-node.(lambda.(_.c
23c0 68 69 6c 64 72 65 6e 29 20 63 68 69 6c 64 72 65 6e 29 29 29 0a 20 20 20 20 28 74 72 65 65 70 79 hildren).children))).....(treepy
23e0 2d 7a 69 70 70 65 72 20 23 27 6c 69 73 74 70 20 23 27 69 64 65 6e 74 69 74 79 20 6d 61 6b 65 2d -zipper.#'listp.#'identity.make-
2400 6e 6f 64 65 20 72 6f 6f 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 76 65 63 74 node.root)))..(defun.treepy-vect
2420 6f 72 2d 7a 69 70 20 28 72 6f 6f 74 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 7a 69 70 70 65 72 or-zip.(root)..."Return.a.zipper
2440 20 66 6f 72 20 6e 65 73 74 65 64 20 76 65 63 74 6f 72 73 2c 20 67 69 76 65 6e 20 61 20 52 4f 4f .for.nested.vectors,.given.a.ROO
2460 54 20 76 65 63 74 6f 72 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 61 6b 65 2d 6e 6f 64 65 20 28 6c T.vector."...(let.((make-node.(l
2480 61 6d 62 64 61 20 28 5f 20 63 68 69 6c 64 72 65 6e 29 20 28 61 70 70 6c 79 20 23 27 76 65 63 74 ambda.(_.children).(apply.#'vect
24a0 6f 72 20 63 68 69 6c 64 72 65 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 68 69 6c 64 72 65 6e or.children))).........(children
24c0 20 28 6c 61 6d 62 64 61 20 28 63 73 29 20 28 73 65 71 2d 69 6e 74 6f 20 63 73 20 27 6c 69 73 74 .(lambda.(cs).(seq-into.cs.'list
24e0 29 29 29 29 0a 20 20 20 20 28 74 72 65 65 70 79 2d 7a 69 70 70 65 72 20 23 27 76 65 63 74 6f 72 )))).....(treepy-zipper.#'vector
2500 70 20 63 68 69 6c 64 72 65 6e 20 6d 61 6b 65 2d 6e 6f 64 65 20 72 6f 6f 74 29 29 29 0a 0a 3b 3b p.children.make-node.root)))..;;
2520 3b 3b 20 43 6f 6e 74 65 78 74 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 6e 6f 64 65 20 28 ;;.Context..(defun.treepy-node.(
2540 6c 6f 63 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6e 6f 64 65 20 61 74 20 4c 4f 43 2e 22 loc)..."Return.the.node.at.LOC."
2560 0a 20 20 28 63 61 61 72 20 6c 6f 63 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 62 72 ...(caar.loc))..(defun.treepy-br
2580 61 6e 63 68 2d 70 20 28 6c 6f 63 29 0a 20 20 22 52 65 74 75 72 6e 20 74 20 69 66 20 74 68 65 20 anch-p.(loc)..."Return.t.if.the.
25a0 6e 6f 64 65 20 61 74 20 4c 4f 43 20 69 73 20 61 20 62 72 61 6e 63 68 2e 22 0a 20 20 28 66 75 6e node.at.LOC.is.a.branch."...(fun
25c0 63 61 6c 6c 20 28 74 72 65 65 70 79 2d 2d 6d 65 74 61 20 6c 6f 63 20 27 3a 62 72 61 6e 63 68 70 call.(treepy--meta.loc.':branchp
25e0 29 20 28 74 72 65 65 70 79 2d 6e 6f 64 65 20 6c 6f 63 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 ).(treepy-node.loc)))..(defun.tr
2600 65 65 70 79 2d 63 68 69 6c 64 72 65 6e 20 28 6c 6f 63 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 eepy-children.(loc)..."Return.a.
2620 63 68 69 6c 64 72 65 6e 20 6c 69 73 74 20 6f 66 20 74 68 65 20 6e 6f 64 65 20 61 74 20 4c 4f 43 children.list.of.the.node.at.LOC
2640 2c 20 77 68 69 63 68 20 6d 75 73 74 20 62 65 20 61 20 62 72 61 6e 63 68 2e 22 0a 20 20 28 69 66 ,.which.must.be.a.branch."...(if
2660 20 28 74 72 65 65 70 79 2d 62 72 61 6e 63 68 2d 70 20 6c 6f 63 29 0a 20 20 20 20 20 20 28 66 75 .(treepy-branch-p.loc).......(fu
2680 6e 63 61 6c 6c 20 28 74 72 65 65 70 79 2d 2d 6d 65 74 61 20 6c 6f 63 20 27 3a 63 68 69 6c 64 72 ncall.(treepy--meta.loc.':childr
26a0 65 6e 29 20 28 74 72 65 65 70 79 2d 6e 6f 64 65 20 6c 6f 63 29 29 0a 20 20 20 20 28 65 72 72 6f en).(treepy-node.loc)).....(erro
26c0 72 20 22 43 61 6c 6c 65 64 20 63 68 69 6c 64 72 65 6e 20 6f 6e 20 61 20 6c 65 61 66 20 6e 6f 64 r."Called.children.on.a.leaf.nod
26e0 65 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 6d 61 6b 65 2d 6e 6f 64 65 20 28 e")))..(defun.treepy-make-node.(
2700 6c 6f 63 20 6e 6f 64 65 20 63 68 69 6c 64 72 65 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6e loc.node.children)..."Return.a.n
2720 65 77 20 62 72 61 6e 63 68 20 6e 6f 64 65 2e 0a 47 69 76 65 6e 20 61 6e 20 65 78 69 73 74 69 6e ew.branch.node..Given.an.existin
2740 67 20 4c 4f 43 2c 20 4e 4f 44 45 20 61 6e 64 20 6e 65 77 20 43 48 49 4c 44 52 45 4e 2c 20 63 72 g.LOC,.NODE.and.new.CHILDREN,.cr
2760 65 61 74 65 73 20 61 20 6e 65 77 20 4c 4f 43 0a 77 69 74 68 20 74 68 65 6d 2e 20 20 54 68 65 20 eates.a.new.LOC.with.them...The.
2780 4c 4f 43 20 69 73 20 6f 6e 6c 79 20 75 73 65 64 20 74 6f 20 73 75 70 70 6c 79 20 74 68 65 20 63 LOC.is.only.used.to.supply.the.c
27a0 6f 6e 73 74 72 75 63 74 6f 72 2e 22 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 74 72 65 65 70 79 2d onstructor."...(funcall.(treepy-
27c0 2d 6d 65 74 61 20 6c 6f 63 20 27 3a 6d 61 6b 65 2d 6e 6f 64 65 29 20 6e 6f 64 65 20 63 68 69 6c -meta.loc.':make-node).node.chil
27e0 64 72 65 6e 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 70 61 74 68 20 28 6c 6f 63 29 dren))..(defun.treepy-path.(loc)
2800 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 6e 6f 64 65 73 20 6c 65 61 64 69 ..."Return.a.list.of.nodes.leadi
2820 6e 67 20 74 6f 20 74 68 65 20 67 69 76 65 6e 20 4c 4f 43 2e 22 0a 20 20 28 72 65 76 65 72 73 65 ng.to.the.given.LOC."...(reverse
2840 20 28 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 6c 6f 63 20 27 3a 70 6e 6f 64 65 73 29 29 .(treepy--context.loc.':pnodes))
2860 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 6c 65 66 74 73 20 28 6c 6f 63 29 0a 20 20 22 )..(defun.treepy-lefts.(loc)..."
2880 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 6c 65 66 74 20 73 69 62 6c 69 6e Return.a.list.of.the.left.siblin
28a0 67 73 20 6f 66 20 74 68 69 73 20 4c 4f 43 2e 22 0a 20 20 28 72 65 76 65 72 73 65 20 28 74 72 65 gs.of.this.LOC."...(reverse.(tre
28c0 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 6c 6f 63 20 27 3a 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 epy--context.loc.':l)))..(defun.
28e0 74 72 65 65 70 79 2d 72 69 67 68 74 73 20 28 6c 6f 63 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 treepy-rights.(loc)..."Return.a.
2900 6c 69 73 74 20 6f 66 20 74 68 65 20 72 69 67 68 74 20 73 69 62 6c 69 6e 67 73 20 6f 66 20 74 68 list.of.the.right.siblings.of.th
2920 69 73 20 4c 4f 43 2e 22 0a 20 20 28 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 6c 6f 63 20 is.LOC."...(treepy--context.loc.
2940 27 3a 72 29 29 0a 0a 3b 3b 3b 3b 20 4e 61 76 69 67 61 74 69 6f 6e 0a 0a 28 64 65 66 75 6e 20 74 ':r))..;;;;.Navigation..(defun.t
2960 72 65 65 70 79 2d 64 6f 77 6e 20 28 6c 6f 63 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c reepy-down.(loc)..."Return.the.l
2980 6f 63 20 6f 66 20 74 68 65 20 6c 65 66 74 6d 6f 73 74 20 63 68 69 6c 64 20 6f 66 20 74 68 65 20 oc.of.the.leftmost.child.of.the.
29a0 6e 6f 64 65 20 61 74 20 74 68 69 73 20 4c 4f 43 2e 0a 6e 69 6c 20 69 66 20 6e 6f 20 63 68 69 6c node.at.this.LOC..nil.if.no.chil
29c0 64 72 65 6e 2e 22 0a 20 20 28 77 68 65 6e 20 28 74 72 65 65 70 79 2d 62 72 61 6e 63 68 2d 70 20 dren."...(when.(treepy-branch-p.
29e0 6c 6f 63 29 0a 20 20 20 20 28 6c 65 74 20 28 28 63 68 69 6c 64 72 65 6e 20 28 74 72 65 65 70 79 loc).....(let.((children.(treepy
2a00 2d 63 68 69 6c 64 72 65 6e 20 6c 6f 63 29 29 29 0a 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d -children.loc))).......(treepy--
2a20 77 69 74 68 2d 6c 6f 63 20 6c 6f 63 20 28 6e 6f 64 65 20 63 6f 6e 74 65 78 74 20 70 6e 6f 64 65 with-loc.loc.(node.context.pnode
2a40 73 29 0a 20 20 20 20 20 20 20 20 28 73 65 71 2d 6c 65 74 20 5b 63 20 26 72 65 73 74 20 63 73 5d s).........(seq-let.[c.&rest.cs]
2a60 20 63 68 69 6c 64 72 65 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 63 68 69 6c 64 72 .children...........(when.childr
2a80 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6d 65 74 en.............(treepy--with-met
2aa0 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 63 20 2e 20 28 28 3a 6c 20 2e 20 2c 6e 69 a..............`(,c...((:l...,ni
2ac0 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 70 6e 6f 64 65 73 l)......................(:pnodes
2ae0 20 2e 20 2c 28 69 66 20 63 6f 6e 74 65 78 74 20 28 63 6f 6e 73 20 6e 6f 64 65 20 70 6e 6f 64 65 ...,(if.context.(cons.node.pnode
2b00 73 29 20 28 6c 69 73 74 20 6e 6f 64 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s).(list.node)))................
2b20 20 20 20 20 20 20 28 3a 70 70 61 74 68 20 2e 20 2c 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 ......(:ppath...,context).......
2b40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 72 20 2e 20 2c 63 73 29 29 29 0a 20 20 20 20 ...............(:r...,cs))).....
2b60 20 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 6d 65 74 61 20 6c 6f 63 29 29 29 29 29 29 .........(treepy--meta.loc))))))
2b80 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 75 70 20 28 6c 6f 63 29 0a 20 20 22 52 65 ))..(defun.treepy-up.(loc)..."Re
2ba0 74 75 72 6e 20 74 68 65 20 6c 6f 63 20 6f 66 20 74 68 65 20 70 61 72 65 6e 74 20 6f 66 20 74 68 turn.the.loc.of.the.parent.of.th
2bc0 65 20 6e 6f 64 65 20 61 74 20 74 68 69 73 20 4c 4f 43 2e 0a 6e 69 6c 20 69 66 20 61 74 20 74 68 e.node.at.this.LOC..nil.if.at.th
2be0 65 20 74 6f 70 2e 22 0a 20 20 28 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6c 6f 63 20 6c 6f 63 20 e.top."...(treepy--with-loc.loc.
2c00 28 6e 6f 64 65 20 70 6e 6f 64 65 73 20 70 70 61 74 68 20 63 68 61 6e 67 65 64 3f 20 6c 20 72 29 (node.pnodes.ppath.changed?.l.r)
2c20 0a 20 20 20 20 28 77 68 65 6e 20 70 6e 6f 64 65 73 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 .....(when.pnodes.......(let.((p
2c40 6e 6f 64 65 20 28 63 61 72 20 70 6e 6f 64 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 72 65 node.(car.pnodes))).........(tre
2c60 65 70 79 2d 2d 77 69 74 68 2d 6d 65 74 61 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 63 68 61 6e epy--with-meta..........(if.chan
2c80 67 65 64 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 74 72 65 65 70 79 2d ged?..............(cons.(treepy-
2ca0 6d 61 6b 65 2d 6e 6f 64 65 20 6c 6f 63 20 70 6e 6f 64 65 20 28 74 72 65 65 70 79 2d 2d 6a 6f 69 make-node.loc.pnode.(treepy--joi
2cc0 6e 2d 63 68 69 6c 64 72 65 6e 20 6c 20 28 63 6f 6e 73 20 6e 6f 64 65 20 72 29 29 29 0a 20 20 20 n-children.l.(cons.node.r)))....
2ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 70 70 61 74 68 20 28 74 72 65 65 ................(and.ppath.(tree
2d00 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f 63 20 70 70 61 74 68 20 27 3a 63 68 61 6e 67 65 py--context-assoc.ppath.':change
2d20 64 3f 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 70 6e 6f 64 65 20 70 d?.t)))............(cons.pnode.p
2d40 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 6d 65 74 61 20 6c 6f path))..........(treepy--meta.lo
2d60 63 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 72 6f 6f 74 20 28 6c 6f 63 c))))))..(defun.treepy-root.(loc
2d80 29 0a 20 20 22 5a 69 70 20 66 72 6f 6d 20 4c 4f 43 20 61 6c 6c 20 74 68 65 20 77 61 79 20 75 70 )..."Zip.from.LOC.all.the.way.up
2da0 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 72 6f 6f 74 20 6e 6f 64 65 2e 0a 52 65 66 6c 65 .and.return.the.root.node..Refle
2dc0 63 74 20 61 6e 79 20 61 6c 74 65 72 61 74 69 6f 6e 73 20 74 6f 20 74 68 65 20 74 72 65 65 2e 22 ct.any.alterations.to.the.tree."
2de0 0a 20 20 28 69 66 20 28 65 71 75 61 6c 20 3a 65 6e 64 20 28 74 72 65 65 70 79 2d 2d 63 6f 6e 74 ...(if.(equal.:end.(treepy--cont
2e00 65 78 74 20 6c 6f 63 29 29 0a 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 6e 6f 64 65 20 6c 6f 63 ext.loc)).......(treepy-node.loc
2e20 29 0a 20 20 20 20 28 6c 65 74 20 28 28 70 20 6c 6f 63 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c ).....(let.((p.loc)).......(whil
2e40 65 20 28 73 65 74 71 20 70 20 28 74 72 65 65 70 79 2d 75 70 20 70 29 29 0a 20 20 20 20 20 20 20 e.(setq.p.(treepy-up.p))........
2e60 20 28 73 65 74 71 20 6c 6f 63 20 70 29 29 0a 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 6e 6f 64 .(setq.loc.p)).......(treepy-nod
2e80 65 20 6c 6f 63 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 72 69 67 68 74 20 28 e.loc))))..(defun.treepy-right.(
2ea0 6c 6f 63 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 20 6f 66 20 74 68 65 20 72 69 loc)..."Return.the.loc.of.the.ri
2ec0 67 68 74 20 73 69 62 6c 69 6e 67 20 6f 66 20 74 68 65 20 6e 6f 64 65 20 61 74 20 74 68 69 73 20 ght.sibling.of.the.node.at.this.
2ee0 4c 4f 43 2e 0a 6e 69 6c 20 69 66 20 74 68 65 72 65 27 73 20 6e 6f 20 6d 6f 72 65 20 72 69 67 68 LOC..nil.if.there's.no.more.righ
2f00 74 20 73 69 62 6c 69 6e 67 73 2e 22 0a 20 20 28 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6c 6f 63 t.siblings."...(treepy--with-loc
2f20 20 6c 6f 63 20 28 6e 6f 64 65 20 63 6f 6e 74 65 78 74 20 6c 20 72 29 0a 20 20 20 20 28 6c 65 74 .loc.(node.context.l.r).....(let
2f40 20 28 28 72 20 28 69 66 20 28 6c 69 73 74 70 20 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .((r.(if.(listp.r)..............
2f60 20 20 20 20 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 66 20 60 72 27 20 69 ....r................;;.If.`r'.i
2f80 73 20 6e 6f 74 20 61 20 6c 69 73 74 20 28 6f 72 20 6e 69 6c 29 2c 20 74 68 65 6e 20 77 65 27 72 s.not.a.list.(or.nil),.then.we'r
2fa0 65 20 64 65 61 6c 69 6e 67 20 77 69 74 68 20 61 20 6e 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 e.dealing.with.a.non............
2fc0 20 20 20 20 3b 3b 20 6e 69 6c 20 63 64 72 20 65 6e 64 69 6e 67 20 6c 69 73 74 2e 0a 20 20 20 20 ....;;.nil.cdr.ending.list......
2fe0 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 72 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 ...........(cons.r.nil))))......
3000 20 28 73 65 71 2d 6c 65 74 20 5b 63 72 20 26 72 65 73 74 20 72 6e 65 78 74 5d 20 72 0a 20 20 20 .(seq-let.[cr.&rest.rnext].r....
3020 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 63 6f 6e 74 65 78 74 20 72 29 0a 20 20 20 20 20 .....(when.(and.context.r)......
3040 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6d 65 74 61 0a 20 20 20 20 20 20 20 20 .....(treepy--with-meta.........
3060 20 20 20 28 63 6f 6e 73 20 63 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 ...(cons.cr..................(tr
3080 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f 63 20 63 6f 6e 74 65 78 74 0a 20 20 20 20 eepy--context-assoc.context.....
30a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
30c0 20 20 20 20 27 3a 6c 20 28 63 6f 6e 73 20 6e 6f 64 65 20 6c 29 0a 20 20 20 20 20 20 20 20 20 20 ....':l.(cons.node.l)...........
30e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3a ..............................':
3100 72 20 72 6e 65 78 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 6d 65 r.rnext))............(treepy--me
3120 74 61 20 6c 6f 63 29 29 29 29 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 72 69 ta.loc)))))))...(defun.treepy-ri
3140 67 68 74 6d 6f 73 74 20 28 6c 6f 63 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 20 ghtmost.(loc)..."Return.the.loc.
3160 6f 66 20 74 68 65 20 72 69 67 68 74 6d 6f 73 74 20 73 69 62 6c 69 6e 67 20 6f 66 20 74 68 65 20 of.the.rightmost.sibling.of.the.
3180 6e 6f 64 65 20 61 74 20 74 68 69 73 20 4c 4f 43 2e 0a 49 66 20 4c 4f 43 20 69 73 20 61 6c 72 65 node.at.this.LOC..If.LOC.is.alre
31a0 61 64 79 20 74 68 65 20 72 69 67 68 74 6d 6f 73 74 20 73 69 62 6c 69 6e 67 2c 20 72 65 74 75 72 ady.the.rightmost.sibling,.retur
31c0 6e 20 73 65 6c 66 2e 22 0a 20 20 28 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6c 6f 63 20 6c 6f 63 n.self."...(treepy--with-loc.loc
31e0 20 28 6e 6f 64 65 20 63 6f 6e 74 65 78 74 20 6c 20 72 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 .(node.context.l.r).....(if.(and
3200 20 63 6f 6e 74 65 78 74 20 72 29 0a 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 77 69 74 .context.r).........(treepy--wit
3220 68 2d 6d 65 74 61 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 63 61 72 20 28 6c 61 73 74 h-meta..........(cons.(car.(last
3240 20 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 63 6f 6e .r))................(treepy--con
3260 74 65 78 74 2d 61 73 73 6f 63 20 63 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 text-assoc.context..............
3280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3a 6c 20 28 74 72 .........................':l.(tr
32a0 65 65 70 79 2d 2d 6a 6f 69 6e 2d 63 68 69 6c 64 72 65 6e 20 6c 20 28 63 6f 6e 73 20 6e 6f 64 65 eepy--join-children.l.(cons.node
32c0 20 28 62 75 74 6c 61 73 74 20 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .(butlast.r)))..................
32e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3a 72 20 6e 69 6c 29 29 0a 20 .....................':r.nil))..
3300 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 6d 65 74 61 20 6c 6f 63 29 29 0a 20 20 20 20 ........(treepy--meta.loc)).....
3320 20 20 6c 6f 63 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 6c 65 66 74 20 28 6c 6f ..loc)))..(defun.treepy-left.(lo
3340 63 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 20 6f 66 20 74 68 65 20 6c 65 66 74 c)..."Return.the.loc.of.the.left
3360 20 73 69 62 6c 69 6e 67 20 6f 66 20 74 68 65 20 6e 6f 64 65 20 61 74 20 74 68 69 73 20 4c 4f 43 .sibling.of.the.node.at.this.LOC
3380 2e 0a 6e 69 6c 20 69 66 20 6e 6f 20 6d 6f 72 65 20 6c 65 66 74 20 73 69 62 6c 69 6e 67 73 2e 22 ..nil.if.no.more.left.siblings."
33a0 0a 20 20 28 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6c 6f 63 20 6c 6f 63 20 28 6e 6f 64 65 20 63 ...(treepy--with-loc.loc.(node.c
33c0 6f 6e 74 65 78 74 20 6c 20 72 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 63 6f 6e 74 65 ontext.l.r).....(when.(and.conte
33e0 78 74 20 6c 29 0a 20 20 20 20 20 20 28 73 65 71 2d 6c 65 74 20 5b 63 6c 20 26 72 65 73 74 20 6c xt.l).......(seq-let.[cl.&rest.l
3400 6e 65 78 74 5d 20 6c 0a 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6d 65 next].l.........(treepy--with-me
3420 74 61 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 63 6c 0a 20 20 20 20 20 20 20 20 20 20 20 ta..........(cons.cl............
3440 20 20 20 20 28 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f 63 20 63 6f 6e 74 65 ....(treepy--context-assoc.conte
3460 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 xt..............................
3480 20 20 20 20 20 20 20 20 20 27 3a 6c 20 6c 6e 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .........':l.lnext..............
34a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3a 72 20 28 63 6f .........................':r.(co
34c0 6e 73 20 6e 6f 64 65 20 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 6d ns.node.r)))..........(treepy--m
34e0 65 74 61 20 6c 6f 63 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 6c 65 66 eta.loc))))))..(defun.treepy-lef
3500 74 6d 6f 73 74 20 28 6c 6f 63 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 20 6f 66 tmost.(loc)..."Return.the.loc.of
3520 20 74 68 65 20 6c 65 66 74 6d 6f 73 74 20 73 69 62 6c 69 6e 67 20 6f 66 20 74 68 65 20 6e 6f 64 .the.leftmost.sibling.of.the.nod
3540 65 20 61 74 20 74 68 69 73 20 4c 4f 43 2e 0a 49 66 20 4c 4f 43 20 69 73 20 61 6c 72 65 61 64 79 e.at.this.LOC..If.LOC.is.already
3560 20 74 68 65 20 6c 65 66 74 6d 6f 73 74 20 73 69 62 6c 69 6e 67 2c 20 72 65 74 75 72 6e 20 73 65 .the.leftmost.sibling,.return.se
3580 6c 66 2e 22 0a 20 20 28 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6c 6f 63 20 6c 6f 63 20 28 6e 6f lf."...(treepy--with-loc.loc.(no
35a0 64 65 20 63 6f 6e 74 65 78 74 20 6c 20 72 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 63 6f 6e de.context.l.r).....(if.(and.con
35c0 74 65 78 74 20 6c 29 0a 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6d 65 text.l).........(treepy--with-me
35e0 74 61 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 63 61 72 20 28 6c 61 73 74 20 6c 29 29 ta..........(cons.(car.(last.l))
3600 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 ................(treepy--context
3620 2d 61 73 73 6f 63 20 63 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -assoc.context..................
3640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3a 6c 20 5b 5d 0a 20 20 20 20 .....................':l.[].....
3660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3680 20 20 27 3a 72 20 28 74 72 65 65 70 79 2d 2d 6a 6f 69 6e 2d 63 68 69 6c 64 72 65 6e 20 28 62 75 ..':r.(treepy--join-children.(bu
36a0 74 6c 61 73 74 20 6c 29 20 28 63 6f 6e 73 20 6e 6f 64 65 20 72 29 29 29 29 0a 20 20 20 20 20 20 tlast.l).(cons.node.r)))).......
36c0 20 20 20 28 74 72 65 65 70 79 2d 2d 6d 65 74 61 20 6c 6f 63 29 29 0a 20 20 20 20 20 20 6c 6f 63 ...(treepy--meta.loc)).......loc
36e0 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 6c 65 66 74 6d 6f 73 74 2d 64 65 73 63 )))..(defun.treepy-leftmost-desc
3700 65 6e 64 61 6e 74 20 28 6c 6f 63 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 65 66 74 6d endant.(loc)..."Return.the.leftm
3720 6f 73 74 20 64 65 73 63 65 6e 64 61 6e 74 20 6f 66 20 74 68 65 20 67 69 76 65 6e 20 4c 4f 43 2e ost.descendant.of.the.given.LOC.
3740 0a 5c 28 69 65 2c 20 64 6f 77 6e 20 72 65 70 65 61 74 65 64 6c 79 29 2e 22 0a 20 20 28 77 68 69 .\(ie,.down.repeatedly)."...(whi
3760 6c 65 20 28 74 72 65 65 70 79 2d 62 72 61 6e 63 68 2d 70 20 6c 6f 63 29 0a 20 20 20 20 28 73 65 le.(treepy-branch-p.loc).....(se
3780 74 71 20 6c 6f 63 20 28 74 72 65 65 70 79 2d 64 6f 77 6e 20 6c 6f 63 29 29 29 0a 20 20 6c 6f 63 tq.loc.(treepy-down.loc)))...loc
37a0 29 0a 0a 3b 3b 3b 3b 20 4d 6f 64 69 66 69 63 61 74 69 6f 6e 0a 0a 28 64 65 66 75 6e 20 74 72 65 )..;;;;.Modification..(defun.tre
37c0 65 70 79 2d 69 6e 73 65 72 74 2d 6c 65 66 74 20 28 6c 6f 63 20 69 74 65 6d 29 0a 20 20 22 49 6e epy-insert-left.(loc.item)..."In
37e0 73 65 72 74 20 61 73 20 74 68 65 20 6c 65 66 74 20 73 69 62 6c 69 6e 67 20 6f 66 20 74 68 69 73 sert.as.the.left.sibling.of.this
3800 20 4c 4f 43 27 53 20 6e 6f 64 65 20 74 68 65 20 49 54 45 4d 2e 0a 52 65 74 75 72 6e 20 73 61 6d .LOC'S.node.the.ITEM..Return.sam
3820 65 20 6c 6f 63 20 77 69 74 68 20 73 69 62 6c 69 6e 67 73 20 75 70 64 61 74 65 64 2e 22 0a 20 20 e.loc.with.siblings.updated."...
3840 28 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6c 6f 63 20 6c 6f 63 20 28 6e 6f 64 65 20 63 6f 6e 74 (treepy--with-loc.loc.(node.cont
3860 65 78 74 20 6c 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 ext.l).....(if.(not.context)....
3880 20 20 20 20 20 28 65 72 72 6f 72 20 22 49 6e 73 65 72 74 20 61 74 20 74 6f 70 22 29 0a 20 20 20 .....(error."Insert.at.top")....
38a0 20 20 20 28 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6d 65 74 61 0a 20 20 20 20 20 20 20 28 63 6f ...(treepy--with-meta........(co
38c0 6e 73 20 6e 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 63 6f ns.node..............(treepy--co
38e0 6e 74 65 78 74 2d 61 73 73 6f 63 20 63 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 ntext-assoc.context.............
3900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3a 6c 20 28 63 6f 6e ........................':l.(con
3920 73 20 69 74 65 6d 20 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s.item.l).......................
3940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3a 63 68 61 6e 67 65 64 3f 20 74 29 29 0a 20 20 20 ..............':changed?.t))....
3960 20 20 20 20 28 74 72 65 65 70 79 2d 2d 6d 65 74 61 20 6c 6f 63 29 29 29 29 29 0a 0a 28 64 65 66 ....(treepy--meta.loc)))))..(def
3980 75 6e 20 74 72 65 65 70 79 2d 69 6e 73 65 72 74 2d 72 69 67 68 74 20 28 6c 6f 63 20 69 74 65 6d un.treepy-insert-right.(loc.item
39a0 29 0a 20 20 22 49 6e 73 65 72 74 20 61 73 20 74 68 65 20 72 69 67 68 74 20 73 69 62 6c 69 6e 67 )..."Insert.as.the.right.sibling
39c0 20 6f 66 20 74 68 69 73 20 4c 4f 43 27 73 20 6e 6f 64 65 20 74 68 65 20 49 54 45 4d 2e 0a 52 65 .of.this.LOC's.node.the.ITEM..Re
39e0 74 75 72 6e 20 73 61 6d 65 20 6c 6f 63 20 77 69 74 68 20 73 69 62 6c 69 6e 67 73 20 75 70 64 61 turn.same.loc.with.siblings.upda
3a00 74 65 64 2e 22 0a 20 20 28 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6c 6f 63 20 6c 6f 63 20 28 6e ted."...(treepy--with-loc.loc.(n
3a20 6f 64 65 20 63 6f 6e 74 65 78 74 20 72 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 63 6f 6e 74 ode.context.r).....(if.(not.cont
3a40 65 78 74 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 49 6e 73 65 72 74 20 61 74 20 74 ext).........(error."Insert.at.t
3a60 6f 70 22 29 0a 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6d 65 74 61 0a 20 20 op").......(treepy--with-meta...
3a80 20 20 20 20 20 28 63 6f 6e 73 20 6e 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 .....(cons.node..............(tr
3aa0 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f 63 20 63 6f 6e 74 65 78 74 0a 20 20 20 20 eepy--context-assoc.context.....
3ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3ae0 27 3a 72 20 28 63 6f 6e 73 20 69 74 65 6d 20 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ':r.(cons.item.r)...............
3b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3a 63 68 61 6e 67 65 64 3f ......................':changed?
3b20 20 74 29 29 0a 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 6d 65 74 61 20 6c 6f 63 29 29 29 .t))........(treepy--meta.loc)))
3b40 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 72 65 70 6c 61 63 65 20 28 6c 6f 63 20 6e ))..(defun.treepy-replace.(loc.n
3b60 6f 64 65 29 0a 20 20 22 52 65 70 6c 61 63 65 20 74 68 65 20 6e 6f 64 65 20 69 6e 20 74 68 69 73 ode)..."Replace.the.node.in.this
3b80 20 4c 4f 43 20 77 69 74 68 20 74 68 65 20 67 69 76 65 6e 20 4e 4f 44 45 2c 20 77 69 74 68 6f 75 .LOC.with.the.given.NODE,.withou
3ba0 74 20 6d 6f 76 69 6e 67 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 6f 6e 74 65 78 74 20 28 74 72 65 t.moving."...(let.((context.(tre
3bc0 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 6c 6f 63 29 29 29 0a 20 20 20 20 28 74 72 65 65 70 79 2d epy--context.loc))).....(treepy-
3be0 2d 77 69 74 68 2d 6d 65 74 61 0a 20 20 20 20 20 28 63 6f 6e 73 20 6e 6f 64 65 0a 20 20 20 20 20 -with-meta......(cons.node......
3c00 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f 63 20 63 6f 6e ......(treepy--context-assoc.con
3c20 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 text............................
3c40 20 20 20 20 20 20 20 27 3a 63 68 61 6e 67 65 64 3f 20 74 29 29 0a 20 20 20 20 20 28 74 72 65 65 .......':changed?.t))......(tree
3c60 70 79 2d 2d 6d 65 74 61 20 6c 6f 63 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d py--meta.loc))))..(defun.treepy-
3c80 65 64 69 74 20 28 6c 6f 63 20 66 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 52 65 70 6c 61 edit.(loc.f.&rest.args)..."Repla
3ca0 63 65 20 74 68 65 20 6e 6f 64 65 20 61 74 20 74 68 69 73 20 4c 4f 43 20 77 69 74 68 20 74 68 65 ce.the.node.at.this.LOC.with.the
3cc0 20 76 61 6c 75 65 20 6f 66 20 28 46 20 6e 6f 64 65 20 41 52 47 53 29 2e 22 0a 20 20 28 74 72 65 .value.of.(F.node.ARGS)."...(tre
3ce0 65 70 79 2d 72 65 70 6c 61 63 65 20 6c 6f 63 20 28 61 70 70 6c 79 20 66 20 28 74 72 65 65 70 79 epy-replace.loc.(apply.f.(treepy
3d00 2d 6e 6f 64 65 20 6c 6f 63 29 20 61 72 67 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 -node.loc).args)))..(defun.treep
3d20 79 2d 69 6e 73 65 72 74 2d 63 68 69 6c 64 20 28 6c 6f 63 20 69 74 65 6d 29 0a 20 20 22 49 6e 73 y-insert-child.(loc.item)..."Ins
3d40 65 72 74 20 61 73 20 74 68 65 20 6c 65 66 74 6d 6f 73 74 20 63 68 69 6c 64 20 6f 66 20 74 68 69 ert.as.the.leftmost.child.of.thi
3d60 73 20 4c 4f 43 27 73 20 6e 6f 64 65 20 74 68 65 20 49 54 45 4d 2e 0a 52 65 74 75 72 6e 20 73 61 s.LOC's.node.the.ITEM..Return.sa
3d80 6d 65 20 6c 6f 63 20 77 69 74 68 20 63 68 69 6c 64 72 65 6e 20 75 70 64 61 74 65 64 2e 22 0a 20 me.loc.with.children.updated."..
3da0 20 28 74 72 65 65 70 79 2d 72 65 70 6c 61 63 65 20 6c 6f 63 20 28 74 72 65 65 70 79 2d 6d 61 6b .(treepy-replace.loc.(treepy-mak
3dc0 65 2d 6e 6f 64 65 20 6c 6f 63 20 28 74 72 65 65 70 79 2d 6e 6f 64 65 20 6c 6f 63 29 20 28 63 6f e-node.loc.(treepy-node.loc).(co
3de0 6e 73 20 69 74 65 6d 20 28 74 72 65 65 70 79 2d 63 68 69 6c 64 72 65 6e 20 6c 6f 63 29 29 29 29 ns.item.(treepy-children.loc))))
3e00 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 61 70 70 65 6e 64 2d 63 68 69 6c 64 20 28 6c )..(defun.treepy-append-child.(l
3e20 6f 63 20 69 74 65 6d 29 0a 20 20 22 49 6e 73 65 72 74 20 61 73 20 74 68 65 20 72 69 67 68 74 6d oc.item)..."Insert.as.the.rightm
3e40 6f 73 74 20 63 68 69 6c 64 20 6f 66 20 74 68 69 73 20 4c 4f 43 27 53 20 6e 6f 64 65 20 74 68 65 ost.child.of.this.LOC'S.node.the
3e60 20 49 54 45 4d 2e 0a 52 65 74 75 72 6e 20 73 61 6d 65 20 6c 6f 63 20 77 69 74 68 20 63 68 69 6c .ITEM..Return.same.loc.with.chil
3e80 64 72 65 6e 20 75 70 64 61 74 65 64 2e 22 0a 20 20 28 74 72 65 65 70 79 2d 72 65 70 6c 61 63 65 dren.updated."...(treepy-replace
3ea0 20 6c 6f 63 20 28 74 72 65 65 70 79 2d 6d 61 6b 65 2d 6e 6f 64 65 20 6c 6f 63 20 28 74 72 65 65 .loc.(treepy-make-node.loc.(tree
3ec0 70 79 2d 6e 6f 64 65 20 6c 6f 63 29 20 28 61 70 70 65 6e 64 20 28 74 72 65 65 70 79 2d 63 68 69 py-node.loc).(append.(treepy-chi
3ee0 6c 64 72 65 6e 20 6c 6f 63 29 20 60 28 2c 69 74 65 6d 29 29 29 29 29 20 20 3b 3b 20 54 4f 44 4f ldren.loc).`(,item)))))..;;.TODO
3f00 3a 20 63 68 65 63 6b 20 70 65 72 66 6f 72 6d 61 6e 63 65 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 :.check.performance..(defun.tree
3f20 70 79 2d 72 65 6d 6f 76 65 20 28 6c 6f 63 29 0a 20 20 22 52 65 6d 6f 76 65 20 74 68 65 20 6e 6f py-remove.(loc)..."Remove.the.no
3f40 64 65 20 61 74 20 4c 4f 43 2e 0a 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 20 74 68 61 74 20 77 de.at.LOC..Return.the.loc.that.w
3f60 6f 75 6c 64 20 68 61 76 65 20 70 72 65 63 65 64 65 64 20 69 74 20 69 6e 20 61 20 64 65 70 74 68 ould.have.preceded.it.in.a.depth
3f80 2d 66 69 72 73 74 0a 77 61 6c 6b 2e 22 0a 20 20 28 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6c 6f -first.walk."...(treepy--with-lo
3fa0 63 20 6c 6f 63 20 28 63 6f 6e 74 65 78 74 20 70 6e 6f 64 65 73 20 70 70 61 74 68 20 6c 20 72 29 c.loc.(context.pnodes.ppath.l.r)
3fc0 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 63 6f 6e 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 28 .....(if.(not.context).........(
3fe0 65 72 72 6f 72 20 22 52 65 6d 6f 76 65 20 61 74 20 74 6f 70 22 29 0a 20 20 20 20 20 20 28 69 66 error."Remove.at.top").......(if
4000 20 28 3e 20 28 6c 65 6e 67 74 68 20 6c 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 .(>.(length.l).0)...........(let
4020 20 28 28 6e 6c 6f 63 20 28 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6d 65 74 61 20 28 63 6f 6e 73 .((nloc.(treepy--with-meta.(cons
4040 20 28 63 61 72 20 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .(car.l)........................
4060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d ........................(treepy-
4080 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f 63 20 63 6f 6e 74 65 78 74 0a 20 20 20 20 20 20 20 20 20 -context-assoc.context..........
40a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
40c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3a 6c .............................':l
40e0 20 28 63 64 72 20 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .(cdr.l)........................
4100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
4120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3a 63 68 61 6e 67 65 64 3f 20 74 29 29 0a 20 20 ...............':changed?.t))...
4140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
4160 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 6d 65 74 61 20 6c 6f 63 29 29 29 0a 20 20 20 20 .......(treepy--meta.loc))).....
4180 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 69 6c 64 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 ............(child.nil))........
41a0 20 20 20 20 20 28 77 68 69 6c 65 20 28 73 65 74 71 20 63 68 69 6c 64 20 28 61 6e 64 20 28 74 72 .....(while.(setq.child.(and.(tr
41c0 65 65 70 79 2d 62 72 61 6e 63 68 2d 70 20 6e 6c 6f 63 29 20 28 74 72 65 65 70 79 2d 63 68 69 6c eepy-branch-p.nloc).(treepy-chil
41e0 64 72 65 6e 20 6e 6c 6f 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 dren.nloc)))...............(setq
4200 20 6e 6c 6f 63 20 28 74 72 65 65 70 79 2d 72 69 67 68 74 6d 6f 73 74 20 63 68 69 6c 64 29 29 29 .nloc.(treepy-rightmost.child)))
4220 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 6c 6f 63 29 0a 20 20 20 20 20 20 20 20 28 74 72 65 65 .............nloc).........(tree
4240 70 79 2d 2d 77 69 74 68 2d 6d 65 74 61 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 74 72 py--with-meta..........(cons.(tr
4260 65 65 70 79 2d 6d 61 6b 65 2d 6e 6f 64 65 20 6c 6f 63 20 28 63 61 72 20 70 6e 6f 64 65 73 29 20 eepy-make-node.loc.(car.pnodes).
4280 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 70 70 61 74 68 20 28 74 72 r)................(and.ppath.(tr
42a0 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f 63 20 63 6f 6e 74 65 78 74 20 27 3a 63 68 eepy--context-assoc.context.':ch
42c0 61 6e 67 65 64 3f 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 2d 6d 65 anged?.t)))..........(treepy--me
42e0 74 61 20 6c 6f 63 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 20 45 6e 75 6d 65 72 61 74 69 6f 6e 0a 0a ta.loc))))))..;;;;.Enumeration..
4300 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 2d 70 72 65 6f 72 64 65 72 2d 6e 65 78 74 20 28 6c 6f (defun.treepy--preorder-next.(lo
4320 63 29 0a 20 20 22 4d 6f 76 65 20 74 6f 20 74 68 65 20 6e 65 78 74 20 4c 4f 43 20 69 6e 20 74 68 c)..."Move.to.the.next.LOC.in.th
4340 65 20 68 69 65 72 61 72 63 68 79 2c 20 64 65 70 74 68 2d 66 69 72 73 74 20 69 6e 20 70 72 65 6f e.hierarchy,.depth-first.in.preo
4360 72 64 65 72 2e 0a 57 68 65 6e 20 72 65 61 63 68 69 6e 67 20 74 68 65 20 65 6e 64 2c 20 72 65 74 rder..When.reaching.the.end,.ret
4380 75 72 6e 73 20 61 20 64 69 73 74 69 6e 67 75 69 73 68 65 64 20 6c 6f 63 20 64 65 74 65 63 74 61 urns.a.distinguished.loc.detecta
43a0 62 6c 65 20 76 69 61 0a 60 74 72 65 65 70 79 2d 65 6e 64 2d 70 27 2e 20 20 49 66 20 61 6c 72 65 ble.via.`treepy-end-p'...If.alre
43c0 61 64 79 20 61 74 20 74 68 65 20 65 6e 64 2c 20 73 74 61 79 73 20 74 68 65 72 65 2e 22 0a 20 20 ady.at.the.end,.stays.there."...
43e0 28 69 66 20 28 65 71 75 61 6c 20 3a 65 6e 64 20 28 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 (if.(equal.:end.(treepy--context
4400 20 6c 6f 63 29 29 0a 20 20 20 20 20 20 6c 6f 63 0a 20 20 20 20 28 6c 65 74 20 28 28 63 6c 6f 63 .loc)).......loc.....(let.((cloc
4420 20 6c 6f 63 29 29 0a 20 20 20 20 20 20 28 6f 72 0a 20 20 20 20 20 20 20 28 61 6e 64 20 28 74 72 .loc)).......(or........(and.(tr
4440 65 65 70 79 2d 62 72 61 6e 63 68 2d 70 20 63 6c 6f 63 29 20 28 74 72 65 65 70 79 2d 64 6f 77 6e eepy-branch-p.cloc).(treepy-down
4460 20 63 6c 6f 63 29 29 0a 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 72 69 67 68 74 20 63 6c 6f .cloc))........(treepy-right.clo
4480 63 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 20 63 6c 6f 63 29 0a 20 20 20 20 20 20 20 c)........(let.((p.cloc)........
44a0 20 20 20 20 20 20 28 70 72 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 ......(pr.nil))..........(while.
44c0 28 61 6e 64 20 28 74 72 65 65 70 79 2d 75 70 20 70 29 20 28 6e 6f 74 20 28 73 65 74 71 20 70 72 (and.(treepy-up.p).(not.(setq.pr
44e0 20 28 74 72 65 65 70 79 2d 72 69 67 68 74 20 28 74 72 65 65 70 79 2d 75 70 20 70 29 29 29 29 29 .(treepy-right.(treepy-up.p)))))
4500 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 20 28 74 72 65 65 70 79 2d 75 70 20 70 ............(setq.p.(treepy-up.p
4520 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6f 72 20 70 72 20 28 63 6f 6e 73 20 28 63 6f 6e 73 20 )))..........(or.pr.(cons.(cons.
4540 28 74 72 65 65 70 79 2d 6e 6f 64 65 20 70 29 20 3a 65 6e 64 29 20 6e 69 6c 29 29 29 29 29 29 29 (treepy-node.p).:end).nil)))))))
4560 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 2d 70 6f 73 74 6f 72 64 65 72 2d 6e 65 78 74 20 ..(defun.treepy--postorder-next.
4580 28 6c 6f 63 29 0a 20 20 22 4d 6f 76 65 20 74 6f 20 74 68 65 20 6e 65 78 74 20 4c 4f 43 20 69 6e (loc)..."Move.to.the.next.LOC.in
45a0 20 74 68 65 20 68 69 65 72 61 72 63 68 79 2c 20 64 65 70 74 68 2d 66 69 72 73 74 20 69 6e 20 70 .the.hierarchy,.depth-first.in.p
45c0 6f 73 74 6f 72 64 65 72 2e 0a 57 68 65 6e 20 72 65 61 63 68 69 6e 67 20 74 68 65 20 65 6e 64 2c ostorder..When.reaching.the.end,
45e0 20 72 65 74 75 72 6e 73 20 61 20 64 69 73 74 69 6e 67 75 69 73 68 65 64 20 6c 6f 63 20 64 65 74 .returns.a.distinguished.loc.det
4600 65 63 74 61 62 6c 65 20 76 69 61 0a 60 74 72 65 65 70 79 2d 65 6e 64 2d 70 27 2e 20 20 49 66 20 ectable.via.`treepy-end-p'...If.
4620 61 6c 72 65 61 64 79 20 61 74 20 74 68 65 20 65 6e 64 2c 20 73 74 61 79 73 20 74 68 65 72 65 2e already.at.the.end,.stays.there.
4640 22 0a 20 20 28 69 66 20 28 65 71 75 61 6c 20 3a 65 6e 64 20 28 74 72 65 65 70 79 2d 2d 63 6f 6e "...(if.(equal.:end.(treepy--con
4660 74 65 78 74 20 6c 6f 63 29 29 0a 20 20 20 20 20 20 6c 6f 63 0a 20 20 20 20 28 69 66 20 28 6e 75 text.loc)).......loc.....(if.(nu
4680 6c 6c 20 28 74 72 65 65 70 79 2d 75 70 20 6c 6f 63 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e ll.(treepy-up.loc)).........(con
46a0 73 20 28 63 6f 6e 73 20 28 74 72 65 65 70 79 2d 6e 6f 64 65 20 6c 6f 63 29 20 3a 65 6e 64 29 20 s.(cons.(treepy-node.loc).:end).
46c0 6e 69 6c 29 0a 20 20 20 20 20 20 28 6f 72 20 28 6c 65 74 20 28 28 72 6c 6f 63 20 28 74 72 65 65 nil).......(or.(let.((rloc.(tree
46e0 70 79 2d 72 69 67 68 74 20 6c 6f 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 py-right.loc))).............(and
4700 20 72 6c 6f 63 20 28 74 72 65 65 70 79 2d 6c 65 66 74 6d 6f 73 74 2d 64 65 73 63 65 6e 64 61 6e .rloc.(treepy-leftmost-descendan
4720 74 20 72 6c 6f 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 75 70 20 6c t.rloc)))...........(treepy-up.l
4740 6f 63 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 6e 65 78 74 20 28 6c 6f 63 oc)))))..(defun.treepy-next.(loc
4760 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 72 64 65 72 29 0a 20 20 22 4d 6f 76 65 20 74 6f 20 74 68 65 .&optional.order)..."Move.to.the
4780 20 6e 65 78 74 20 4c 4f 43 20 69 6e 20 74 68 65 20 68 69 65 72 61 72 63 68 79 2c 20 64 65 70 74 .next.LOC.in.the.hierarchy,.dept
47a0 68 2d 66 69 72 73 74 2e 0a 55 73 65 20 4f 52 44 45 52 20 69 66 20 67 69 76 65 6e 2e 20 20 50 6f h-first..Use.ORDER.if.given...Po
47c0 73 73 69 62 6c 65 20 76 61 6c 75 65 73 20 66 6f 72 20 4f 52 44 45 52 20 61 72 65 20 60 3a 70 72 ssible.values.for.ORDER.are.`:pr
47e0 65 6f 72 64 65 72 27 20 61 6e 64 0a 60 3a 70 6f 73 74 6f 72 64 65 72 27 2c 20 64 65 66 61 75 6c eorder'.and.`:postorder',.defaul
4800 74 73 20 74 6f 20 74 68 65 20 66 6f 72 6d 65 72 2e 22 0a 20 20 28 63 6c 2d 63 61 73 65 20 28 6f ts.to.the.former."...(cl-case.(o
4820 72 20 6f 72 64 65 72 20 27 3a 70 72 65 6f 72 64 65 72 29 0a 20 20 20 20 28 3a 70 72 65 6f 72 64 r.order.':preorder).....(:preord
4840 65 72 20 28 74 72 65 65 70 79 2d 2d 70 72 65 6f 72 64 65 72 2d 6e 65 78 74 20 6c 6f 63 29 29 0a er.(treepy--preorder-next.loc)).
4860 20 20 20 20 28 3a 70 6f 73 74 6f 72 64 65 72 20 28 74 72 65 65 70 79 2d 2d 70 6f 73 74 6f 72 64 ....(:postorder.(treepy--postord
4880 65 72 2d 6e 65 78 74 20 6c 6f 63 29 29 0a 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 22 55 6e 72 er-next.loc)).....(t.(error."Unr
48a0 65 63 6f 67 6e 69 7a 65 64 20 6f 72 64 65 72 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 ecognized.order"))))..(defun.tre
48c0 65 70 79 2d 2d 70 72 65 6f 72 64 65 72 2d 70 72 65 76 20 28 6c 6f 63 29 0a 20 20 22 4d 6f 76 65 epy--preorder-prev.(loc)..."Move
48e0 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 4c 4f 43 20 69 6e 20 74 68 65 20 68 69 65 72 .to.the.previous.LOC.in.the.hier
4900 61 72 63 68 79 2c 20 64 65 70 74 68 2d 66 69 72 73 74 20 70 72 65 6f 72 64 65 72 2e 0a 49 66 20 archy,.depth-first.preorder..If.
4920 61 6c 72 65 61 64 79 20 61 74 20 74 68 65 20 72 6f 6f 74 2c 20 72 65 74 75 72 6e 73 20 6e 69 6c already.at.the.root,.returns.nil
4940 2e 22 0a 20 20 28 6c 65 74 20 28 28 6c 6c 6f 63 20 28 74 72 65 65 70 79 2d 6c 65 66 74 20 6c 6f ."...(let.((lloc.(treepy-left.lo
4960 63 29 29 0a 20 20 20 20 20 20 20 20 28 63 68 69 6c 64 20 6e 69 6c 29 29 0a 20 20 20 20 28 69 66 c)).........(child.nil)).....(if
4980 20 6c 6c 6f 63 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 28 .lloc.........(progn...........(
49a0 77 68 69 6c 65 20 28 73 65 74 71 20 63 68 69 6c 64 20 28 61 6e 64 20 28 74 72 65 65 70 79 2d 62 while.(setq.child.(and.(treepy-b
49c0 72 61 6e 63 68 2d 70 20 6c 6c 6f 63 29 20 28 74 72 65 65 70 79 2d 63 68 69 6c 64 72 65 6e 20 6c ranch-p.lloc).(treepy-children.l
49e0 6c 6f 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 6c 6f 63 20 28 74 loc))).............(setq.lloc.(t
4a00 72 65 65 70 79 2d 72 69 67 68 74 6d 6f 73 74 20 63 68 69 6c 64 29 29 29 0a 20 20 20 20 20 20 20 reepy-rightmost.child)))........
4a20 20 20 20 6c 6c 6f 63 29 0a 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 75 70 20 6c 6f 63 29 29 29 ...lloc).......(treepy-up.loc)))
4a40 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 2d 70 6f 73 74 6f 72 64 65 72 2d 70 72 65 76 )..(defun.treepy--postorder-prev
4a60 20 28 6c 6f 63 29 0a 20 20 22 4d 6f 76 65 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 4c .(loc)..."Move.to.the.previous.L
4a80 4f 43 20 69 6e 20 74 68 65 20 68 69 65 72 61 72 63 68 79 2c 20 64 65 70 74 68 2d 66 69 72 73 74 OC.in.the.hierarchy,.depth-first
4aa0 20 70 6f 73 74 6f 72 64 65 72 2e 0a 49 66 20 61 6c 72 65 61 64 79 20 61 74 20 74 68 65 20 72 6f .postorder..If.already.at.the.ro
4ac0 6f 74 2c 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e 22 0a 20 20 28 69 66 20 28 74 72 65 65 70 79 2d ot,.returns.nil."...(if.(treepy-
4ae0 62 72 61 6e 63 68 2d 70 20 6c 6f 63 29 0a 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 72 69 67 68 branch-p.loc).......(treepy-righ
4b00 74 6d 6f 73 74 20 28 74 72 65 65 70 79 2d 64 6f 77 6e 20 6c 6f 63 29 29 0a 20 20 20 20 28 70 72 tmost.(treepy-down.loc)).....(pr
4b20 6f 67 6e 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 74 72 65 65 70 79 2d 6c 65 ogn.......(while.(not.(treepy-le
4b40 66 74 20 6c 6f 63 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 6f 63 20 28 74 72 65 65 ft.loc)).........(setq.loc.(tree
4b60 70 79 2d 75 70 20 6c 6f 63 29 29 29 0a 20 20 20 20 20 20 28 74 72 65 65 70 79 2d 6c 65 66 74 20 py-up.loc))).......(treepy-left.
4b80 6c 6f 63 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 72 65 65 70 79 2d 70 72 65 76 20 28 6c 6f 63 loc))))..(defun.treepy-prev.(loc
4ba0 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 72 64 65 72 29 0a 20 20 22 4d 6f 76 65 20 74 6f 20 74 68 65 .&optional.order)..."Move.to.the
4bc0 20 70 72 65 76 69 6f 75 73 20 4c 4f 43 20 69 6e 20 74 68 65 20 68 69 65 72 61 72 63 68 79 2c 20 .previous.LOC.in.the.hierarchy,.
4be0 64 65 70 74 68 2d 66 69 72 73 74 2e 0a 55 73 65 20 4f 52 44 45 52 20 69 66 20 67 69 76 65 6e 2e depth-first..Use.ORDER.if.given.
4c00 20 20 50 6f 73 73 69 62 6c 65 20 76 61 6c 75 65 73 20 66 6f 72 20 4f 52 44 45 52 20 61 72 65 20 ..Possible.values.for.ORDER.are.
4c20 60 3a 70 72 65 6f 72 64 65 72 27 20 61 6e 64 20 60 3a 70 6f 73 74 6f 72 64 65 72 27 2c 0a 64 65 `:preorder'.and.`:postorder',.de
4c40 66 61 75 6c 74 73 20 74 6f 20 74 68 65 20 66 6f 72 6d 65 72 2e 22 0a 20 20 28 63 6c 2d 63 61 73 faults.to.the.former."...(cl-cas
4c60 65 20 28 6f 72 20 6f 72 64 65 72 20 27 3a 70 72 65 6f 72 64 65 72 29 0a 20 20 20 20 28 3a 70 72 e.(or.order.':preorder).....(:pr
4c80 65 6f 72 64 65 72 20 28 74 72 65 65 70 79 2d 2d 70 72 65 6f 72 64 65 72 2d 70 72 65 76 20 6c 6f eorder.(treepy--preorder-prev.lo
4ca0 63 29 29 0a 20 20 20 20 28 3a 70 6f 73 74 6f 72 64 65 72 20 28 74 72 65 65 70 79 2d 2d 70 6f 73 c)).....(:postorder.(treepy--pos
4cc0 74 6f 72 64 65 72 2d 70 72 65 76 20 6c 6f 63 29 29 0a 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 torder-prev.loc)).....(t.(error.
4ce0 22 55 6e 72 65 63 6f 67 6e 69 7a 65 64 20 6f 72 64 65 72 22 29 29 29 29 0a 0a 28 64 65 66 75 6e "Unrecognized.order"))))..(defun
4d00 20 74 72 65 65 70 79 2d 65 6e 64 2d 70 20 28 6c 6f 63 29 0a 20 20 22 52 65 74 75 72 6e 20 74 20 .treepy-end-p.(loc)..."Return.t.
4d20 69 66 20 4c 4f 43 20 72 65 70 72 65 73 65 6e 74 73 20 74 68 65 20 65 6e 64 20 6f 66 20 61 20 64 if.LOC.represents.the.end.of.a.d
4d40 65 70 74 68 2d 66 69 72 73 74 20 77 61 6c 6b 2e 22 0a 20 20 28 65 71 75 61 6c 20 3a 65 6e 64 20 epth-first.walk."...(equal.:end.
4d60 28 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 6c 6f 63 29 29 29 0a 0a 28 70 72 6f 76 69 64 (treepy--context.loc)))..(provid
4d80 65 20 27 74 72 65 65 70 79 29 0a 0a 3b 3b 3b 20 74 72 65 65 70 79 2e 65 6c 20 65 6e 64 73 20 68 e.'treepy)..;;;.treepy.el.ends.h
4da0 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ere.............................
4dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4e00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4e20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4e80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4f20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
50a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
50c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
50e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
51a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
51c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
51e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
52a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
52c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
52e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
53a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
53c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
53e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
54a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
54c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
54e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
55a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
55c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
55e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
56a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
56c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
56e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
57a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
57c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
57e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5880 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
58a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
58c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
58e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
59a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
59c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
59e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5a20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5a60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5a80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5b00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5b20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5c00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5c20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5c60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5c80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5e00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5e20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5e80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5f20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
60a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
60c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
60e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
61a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
61c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
61e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
62a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
62c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
62e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
63a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
63c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
63e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
64a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
64c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
64e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
65a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
65c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
65e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
66a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
66c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
66e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
67a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
67c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
67e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6880 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
68a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
68c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
68e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
69a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
69c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
69e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6a20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6a60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6a80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6b00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6b20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6c00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6c20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6c60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6c80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6e00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6e20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6e80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6f20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
70a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
70c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
70e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
71a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
71c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
71e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
72a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
72c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
72e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
73a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
73c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
73e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
74a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
74c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
74e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
75a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
75c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
75e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
76a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
76c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
76e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
77a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
77c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
77e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................