blob: ea8736313a79672041fbf3b87f04451ccb8f2e04 (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 32 2e 32 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.2.2.;;;.with.all.o
0040	70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65	ptimizations...;;;.This.file.use
0060	73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65	s.dynamic.docstrings,.first.adde
0080	64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65	d.in.Emacs.19.29...;;;.This.file
00a0	20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49	.does.not.contain.utf-8.non-ASCI
00c0	49 20 63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20	I.characters,.;;;.and.so.can.be.
00e0	6c 6f 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72	loaded.in.Emacs.versions.earlier
0100	20 74 68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.than.23...;;;;;;;;;;;;;;;;;;;;;
0120	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	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;
0160	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	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 72 65 71 75 69 72 65 20 27 6d	;;;;;;;;;;;;;;;;;;...(require.'m
01a0	61 70 29 0a 23 40 32 39 36 20 55 73 69 6e 67 20 49 4e 4e 45 52 20 61 6e 64 20 4f 55 54 45 52 2c	ap).#@296.Using.INNER.and.OUTER,
01c0	20 74 72 61 76 65 72 73 65 20 46 4f 52 4d 2c 20 61 6e 20 61 72 62 69 74 72 61 72 79 20 64 61 74	.traverse.FORM,.an.arbitrary.dat
01e0	61 20 73 74 72 75 63 74 75 72 65 2e 0a 49 4e 4e 45 52 20 61 6e 64 20 4f 55 54 45 52 20 61 72 65	a.structure..INNER.and.OUTER.are
0200	20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 41 70 70 6c 79 20 49 4e 4e 45 52 20 74 6f 20 65 61 63 68	.functions...Apply.INNER.to.each
0220	20 65 6c 65 6d 65 6e 74 20 6f 66 0a 46 4f 52 4d 2c 20 62 75 69 6c 64 69 6e 67 20 75 70 20 61 20	.element.of.FORM,.building.up.a.
0240	64 61 74 61 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 74 68 65 20 73 61 6d 65 20 74 79 70 65 2c	data.structure.of.the.same.type,
0260	20 74 68 65 6e 20 61 70 70 6c 79 0a 4f 55 54 45 52 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 2e	.then.apply.OUTER.to.the.result.
0280	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 61 6c 69 73 74 73 2c	..Recognize.cons,.lists,.alists,
02a0	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 0a 0a 28 66 6e 20 49	.vectors.and.hash.tables...(fn.I
02c0	4e 4e 45 52 20 4f 55 54 45 52 20 46 4f 52 4d 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65	NNER.OUTER.FORM)..(defalias.'tre
02e0	65 70 79 2d 77 61 6c 6b 20 23 5b 37 37 31 20 22 5c 32 31 31 3c 5c 32 30 33 1c 00 5c 32 31 31 41	epy-walk.#[771."\211<\203..\211A
0300	5c 32 30 33 1c 00 5c 32 31 31 41 3a 5c 32 30 34 1c 00 01 03 02 40 21 04 03 41 21 42 21 5c 32 30	\203..\211A:\204.....@!..A!B!\20
0320	37 5c 32 31 31 3c 5c 32 30 33 28 00 01 5c 33 30 30 04 03 5c 22 21 5c 32 30 37 5c 33 30 31 01 21	7\211<\203(..\300..\"!\207\301.!
0340	5c 32 30 33 39 00 01 5c 33 30 32 5c 33 30 33 5c 33 30 30 06 06 05 5c 22 5c 22 21 5c 32 30 37 5c	\2039..\302\303\300...\"\"!\207\
0360	33 30 34 01 21 5c 32 30 33 52 00 01 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31	304.!\203R..\305\306\307\310\311
0380	5c 33 30 33 06 09 21 5c 33 31 32 5c 22 5c 33 31 33 5c 33 31 34 25 03 5c 22 21 5c 32 30 37 01 01	\303..!\312\"\313\314%.\"!\207..
03a0	21 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 76 65 63 74 6f 72 70 20 61 70 70 6c 79 20 76 65 63	!\207".[mapcar.vectorp.apply.vec
03c0	74 6f 72 20 68 61 73 68 2d 74 61 62 6c 65 2d 70 20 6d 61 70 2d 61 70 70 6c 79 20 6d 61 6b 65 2d	tor.hash-table-p.map-apply.make-
03e0	62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33 30 30 02 02 42 21 5c 32 30 37 22 20 76 63 6f	byte-code.514."\300..B!\207".vco
0400	6e 63 61 74 20 5b 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 4b 20 56 29 22 5d 20 31 31 20 28 23 24	ncat.[].5."\n\n(fn.K.V)"].11.(#$
0420	20 2e 20 34 32 36 29 5d 29 0a 23 40 32 30 39 20 50 65 72 66 6f 72 6d 20 61 20 64 65 70 74 68 2d	...426)]).#@209.Perform.a.depth-
0440	66 69 72 73 74 2c 20 70 6f 73 74 2d 6f 72 64 65 72 20 74 72 61 76 65 72 73 61 6c 20 6f 66 20 46	first,.post-order.traversal.of.F
0460	20 61 70 70 6c 69 65 64 20 74 6f 20 46 4f 52 4d 2e 0a 43 61 6c 6c 20 46 20 6f 6e 20 65 61 63 68	.applied.to.FORM..Call.F.on.each
0480	20 73 75 62 2d 66 6f 72 6d 2c 20 75 73 65 20 46 27 73 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20	.sub-form,.use.F's.return.value.
04a0	69 6e 20 70 6c 61 63 65 20 6f 66 20 74 68 65 0a 6f 72 69 67 69 6e 61 6c 2e 20 20 52 65 63 6f 67	in.place.of.the.original...Recog
04c0	6e 69 7a 65 20 63 6f 6e 73 2c 20 6c 69 73 74 73 2c 20 61 6c 69 73 74 73 2c 20 76 65 63 74 6f 72	nize.cons,.lists,.alists,.vector
04e0	73 20 61 6e 64 0a 68 61 73 68 20 74 61 62 6c 65 73 2e 0a 0a 28 66 6e 20 46 20 46 4f 52 4d 29 1f	s.and.hash.tables...(fn.F.FORM).
0500	0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 70 6f 73 74 77 61 6c 6b 20 23 5b 35 31	.(defalias.'treepy-postwalk.#[51
0520	34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 5c 22 03 03 23 5c 32 30 37 22 20 5b 74 72 65 65	4."\300\301\302.\"..#\207".[tree
0540	70 79 2d 77 61 6c 6b 20 61 70 70 6c 79 2d 70 61 72 74 69 61 6c 6c 79 20 74 72 65 65 70 79 2d 70	py-walk.apply-partially.treepy-p
0560	6f 73 74 77 61 6c 6b 5d 20 36 20 28 23 24 20 2e 20 31 30 37 32 29 5d 29 0a 23 40 31 30 33 20 50	ostwalk].6.(#$...1072)]).#@103.P
0580	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 64 65 72 20	erform.a.depth-first,.pre-order.
05a0	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..
05c0	4c 69 6b 65 20 60 74 72 65 65 70 79 2d 70 6f 73 74 77 61 6c 6b 27 2e 0a 0a 28 66 6e 20 46 20 46	Like.`treepy-postwalk'...(fn.F.F
05e0	4f 52 4d 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 70 72 65 77 61 6c 6b 20	ORM)..(defalias.'treepy-prewalk.
0600	23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 5c 22 5c 33 30 33 04 04 21 23 5c 32	#[514."\300\301\302.\"\303..!#\2
0620	30 37 22 20 5b 74 72 65 65 70 79 2d 77 61 6c 6b 20 61 70 70 6c 79 2d 70 61 72 74 69 61 6c 6c 79	07".[treepy-walk.apply-partially
0640	20 74 72 65 65 70 79 2d 70 72 65 77 61 6c 6b 20 69 64 65 6e 74 69 74 79 5d 20 37 20 28 23 24 20	.treepy-prewalk.identity].7.(#$.
0660	2e 20 31 34 30 37 29 5d 29 0a 23 40 31 31 32 20 44 65 6d 6f 6e 73 74 72 61 74 65 20 74 68 65 20	..1407)]).#@112.Demonstrate.the.
0680	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 6c 6b 27 20 66 6f	behavior.of.`treepy-postwalk'.fo
06a0	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 61 63 68 20 66 6f	r.FORM..Return.a.list.of.each.fo
06c0	72 6d 20 61 73 20 69 74 20 69 73 20 77 61 6c 6b 65 64 2e 0a 0a 28 66 6e 20 46 4f 52 4d 29 1f 0a	rm.as.it.is.walked...(fn.FORM)..
06e0	28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 70 6f 73 74 77 61 6c 6b 2d 64 65 6d 6f 20	(defalias.'treepy-postwalk-demo.
0700	23 5b 32 35 37 20 22 5c 33 30 30 43 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35	#[257."\300C\301\302\303\304\305
0720	5c 33 30 36 06 06 21 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 03 5c 22 5c 32 31 30 5c 33 31	\306..!\307\"\310\311%.\"\210\31
0740	32 01 5c 32 34 32 21 5c 32 30 37 22 20 5b 6e 69 6c 20 74 72 65 65 70 79 2d 70 6f 73 74 77 61 6c	2.\242!\207".[nil.treepy-postwal
0760	6b 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 5c 33 30 30 5c	k.make-byte-code.257."\300.\300\
0780	32 34 32 42 5c 32 34 30 5c 32 31 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72	242B\240\210\207".vconcat.vector
07a0	20 5b 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 20 72 65 76 65 72 73 65 5d 20 39 20 28 23	.[].4."\n\n(fn.X)".reverse].9.(#
07c0	24 20 2e 20 31 36 34 38 29 5d 29 0a 23 40 31 31 31 20 44 65 6d 6f 6e 73 74 72 61 74 65 20 74 68	$...1648)]).#@111.Demonstrate.th
07e0	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 6c 6b 27 20 66	e.behavior.of.`treepy-prewalk'.f
0800	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 61 63 68 20 66	or.FORM..Return.a.list.of.each.f
0820	6f 72 6d 20 61 73 20 69 74 20 69 73 20 77 61 6c 6b 65 64 2e 0a 0a 28 66 6e 20 46 4f 52 4d 29 1f	orm.as.it.is.walked...(fn.FORM).
0840	0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 70 72 65 77 61 6c 6b 2d 64 65 6d 6f 20	.(defalias.'treepy-prewalk-demo.
0860	23 5b 32 35 37 20 22 5c 33 30 30 43 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35	#[257."\300C\301\302\303\304\305
0880	5c 33 30 36 06 06 21 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 03 5c 22 5c 32 31 30 5c 33 31	\306..!\307\"\310\311%.\"\210\31
08a0	32 01 5c 32 34 32 21 5c 32 30 37 22 20 5b 6e 69 6c 20 74 72 65 65 70 79 2d 70 72 65 77 61 6c 6b	2.\242!\207".[nil.treepy-prewalk
08c0	20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 5c 33 30 30 5c 32	.make-byte-code.257."\300.\300\2
08e0	34 32 42 5c 32 34 30 5c 32 31 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20	42B\240\210\207".vconcat.vector.
0900	5b 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 20 72 65 76 65 72 73 65 5d 20 39 20 28 23 24	[].4."\n\n(fn.X)".reverse].9.(#$
0920	20 2e 20 32 30 30 32 29 5d 29 0a 23 40 32 38 34 20 55 73 65 20 53 4d 41 50 20 74 6f 20 74 72 61	...2002)]).#@284.Use.SMAP.to.tra
0940	6e 73 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	nsform.FORM.by.doing.replacing.o
0960	70 65 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	perations..Recursively.replace.i
0980	6e 20 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	n.FORM.keys.in.SMAP.with.their.v
09a0	61 6c 75 65 73 2e 20 20 44 6f 65 73 0a 72 65 70 6c 61 63 65 6d 65 6e 74 20 61 74 20 74 68 65 20	alues...Does.replacement.at.the.
09c0	6c 65 61 76 65 73 20 6f 66 20 74 68 65 20 74 72 65 65 20 66 69 72 73 74 2e 20 20 54 68 65 20 6f	leaves.of.the.tree.first...The.o
09e0	70 74 69 6f 6e 61 6c 20 54 45 53 54 46 4e 0a 70 61 72 61 6d 65 74 65 72 20 69 73 20 74 68 65 20	ptional.TESTFN.parameter.is.the.
0a00	66 75 6e 63 74 69 6f 6e 20 74 6f 20 62 65 20 75 73 65 64 20 62 79 20 60 6d 61 70 2d 63 6f 6e 74	function.to.be.used.by.`map-cont
0a20	61 69 6e 73 2d 6b 65 79 27 2e 0a 0a 28 66 6e 20 53 4d 41 50 20 46 4f 52 4d 20 26 6f 70 74 69 6f	ains-key'...(fn.SMAP.FORM.&optio
0a40	6e 61 6c 20 54 45 53 54 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 70	nal.TESTFN)..(defalias.'treepy-p
0a60	6f 73 74 77 61 6c 6b 2d 72 65 70 6c 61 63 65 20 23 5b 37 37 30 20 22 5c 33 30 30 5c 33 30 31 5c	ostwalk-replace.#[770."\300\301\
0a80	33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 08 06 07 5c 22 5c 33 30 36 5c 22 5c 33 30 37 5c	302\303\304\305....\"\306\"\307\
0aa0	33 31 30 25 03 5c 22 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 70 6f 73 74 77 61 6c 6b 20 6d 61	310%.\"\207".[treepy-postwalk.ma
0ac0	6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 32 5c 33 30 30 02 5c 33 30 31 23	ke-byte-code.257."\302\300.\301#
0ae0	5c 32 30 33 0d 00 5c 33 30 33 5c 33 30 30 02 5c 22 5c 32 30 37 5c 32 30 37 22 20 76 63 6f 6e 63	\203..\303\300.\"\207\207".vconc
0b00	61 74 20 76 65 63 74 6f 72 20 5b 6d 61 70 2d 63 6f 6e 74 61 69 6e 73 2d 6b 65 79 20 6d 61 70 2d	at.vector.[map-contains-key.map-
0b20	65 6c 74 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 31 20 28 23 24 20 2e 20 32 33	elt].5."\n\n(fn.X)"].11.(#$...23
0b40	35 33 29 5d 29 0a 23 40 32 38 32 20 55 73 65 20 53 4d 41 50 20 74 6f 20 74 72 61 6e 73 66 6f 72	53)]).#@282.Use.SMAP.to.transfor
0b60	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 72 61 74	m.FORM.by.doing.replacing.operat
0b80	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 46 4f 52	ions..Recursively.replace.in.FOR
0ba0	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 75 65 73	M.keys.in.SMAP.with.their.values
0bc0	2e 20 20 44 6f 65 73 0a 72 65 70 6c 61 63 65 6d 65 6e 74 20 61 74 20 74 68 65 20 72 6f 6f 74 20	...Does.replacement.at.the.root.
0be0	6f 66 20 74 68 65 20 74 72 65 65 20 66 69 72 73 74 2e 20 20 54 68 65 20 6f 70 74 69 6f 6e 61 6c	of.the.tree.first...The.optional
0c00	20 54 45 53 54 46 4e 0a 70 61 72 61 6d 65 74 65 72 20 69 73 20 74 68 65 20 66 75 6e 63 74 69 6f	.TESTFN.parameter.is.the.functio
0c20	6e 20 74 6f 20 62 65 20 75 73 65 64 20 62 79 20 60 6d 61 70 2d 63 6f 6e 74 61 69 6e 73 2d 6b 65	n.to.be.used.by.`map-contains-ke
0c40	79 27 2e 0a 0a 28 66 6e 20 53 4d 41 50 20 46 4f 52 4d 20 26 6f 70 74 69 6f 6e 61 6c 20 54 45 53	y'...(fn.SMAP.FORM.&optional.TES
0c60	54 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 70 72 65 77 61 6c 6b 2d	TFN)..(defalias.'treepy-prewalk-
0c80	72 65 70 6c 61 63 65 20 23 5b 37 37 30 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c	replace.#[770."\300\301\302\303\
0ca0	33 30 34 5c 33 30 35 06 08 06 07 5c 22 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 03 5c 22 5c	304\305....\"\306\"\307\310%.\"\
0cc0	32 30 37 22 20 5b 74 72 65 65 70 79 2d 70 72 65 77 61 6c 6b 20 6d 61 6b 65 2d 62 79 74 65 2d 63	207".[treepy-prewalk.make-byte-c
0ce0	6f 64 65 20 32 35 37 20 22 5c 33 30 32 5c 33 30 30 02 5c 33 30 31 23 5c 32 30 33 0d 00 5c 33 30	ode.257."\302\300.\301#\203..\30
0d00	33 5c 33 30 30 02 5c 22 5c 32 30 37 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72	3\300.\"\207\207".vconcat.vector
0d20	20 5b 6d 61 70 2d 63 6f 6e 74 61 69 6e 73 2d 6b 65 79 20 6d 61 70 2d 65 6c 74 5d 20 35 20 22 5c	.[map-contains-key.map-elt].5."\
0d40	6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 31 20 28 23 24 20 2e 20 32 38 39 32 29 5d 29 0a 23 40 31	n\n(fn.X)"].11.(#$...2892)]).#@1
0d60	31 32 20 52 65 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	12.Return.context.for.this.LOC..
0d80	49 66 20 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	If.KEY.is.given,.only.return.thi
0da0	73 20 6b 65 79 27 73 20 76 61 6c 75 65 20 69 6e 20 63 6f 6e 74 65 78 74 2e 0a 0a 28 66 6e 20 4c	s.key's.value.in.context...(fn.L
0dc0	4f 43 20 26 6f 70 74 69 6f 6e 61 6c 20 4b 45 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72	OC.&optional.KEY)..(defalias.'tr
0de0	65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 23 5b 35 31 33 20 22 01 40 41 5c 32 31 31 5c 32 30 33	eepy--context.#[513.".@A\211\203
0e00	12 00 01 5c 32 30 33 12 00 5c 33 30 30 01 03 5c 22 5c 32 30 32 13 00 5c 32 31 31 5c 32 30 37 22	...\203..\300..\"\202..\211\207"
0e20	20 5b 6d 61 70 2d 65 6c 74 5d 20 36 20 28 23 24 20 2e 20 33 34 32 37 29 5d 29 0a 23 40 36 30 20	.[map-elt].6.(#$...3427)]).#@60.
0e40	41 73 73 6f 63 20 69 6e 20 43 4f 4e 54 45 58 54 20 61 20 6b 65 79 20 4b 20 77 69 74 68 20 61 20	Assoc.in.CONTEXT.a.key.K.with.a.
0e60	76 61 6c 75 65 20 56 2e 0a 0a 28 66 6e 20 43 4f 4e 54 45 58 54 20 4b 20 56 29 1f 0a 28 64 65 66	value.V...(fn.CONTEXT.K.V)..(def
0e80	61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f 63 2d 31 20 23	alias.'treepy--context-assoc-1.#
0ea0	5b 37 37 31 20 22 5c 33 30 30 03 03 5c 22 5c 32 30 33 1a 00 5c 33 30 31 5c 33 30 32 5c 33 30 33	[771."\300..\"\203..\301\302\303
0ec0	5c 33 30 34 5c 33 30 35 5c 33 30 36 06 07 06 07 5c 22 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31	\304\305\306....\"\307\"\310\311
0ee0	25 04 5c 22 5c 32 30 37 01 01 42 03 42 5c 32 30 37 22 20 5b 6d 61 70 2d 63 6f 6e 74 61 69 6e 73	%.\"\207..B.B\207".[map-contains
0f00	2d 6b 65 79 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22	-key.mapcar.make-byte-code.257."
0f20	5c 32 31 31 40 5c 33 30 30 5c 32 33 32 5c 32 30 33 0b 00 5c 33 30 30 5c 33 30 31 42 5c 32 30 37	\211@\300\232\203..\300\301B\207
0f40	5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28	\207".vconcat.vector.[].3."\n\n(
0f60	66 6e 20 45 4e 54 52 59 29 22 5d 20 31 31 20 28 23 24 20 2e 20 33 36 34 38 29 5d 29 0a 23 40 37	fn.ENTRY)"].11.(#$...3648)]).#@7
0f80	33 20 49 6d 6d 75 74 61 62 6c 65 20 6d 61 70 20 61 73 73 6f 63 69 61 74 69 6f 6e 20 69 6e 20 43	3.Immutable.map.association.in.C
0fa0	4f 4e 54 45 58 54 20 75 73 69 6e 67 20 4b 56 53 2e 0a 0a 28 66 6e 20 43 4f 4e 54 45 58 54 20 26	ONTEXT.using.KVS...(fn.CONTEXT.&
0fc0	72 65 73 74 20 4b 56 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 2d 63 6f	rest.KVS)..(defalias.'treepy--co
0fe0	6e 74 65 78 74 2d 61 73 73 6f 63 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03	ntext-assoc.#[385."\300\301\302.
1000	5c 33 30 33 5c 22 04 23 5c 32 30 37 22 20 5b 73 65 71 2d 72 65 64 75 63 65 20 23 5b 35 31 34 20	\303\".#\207".[seq-reduce.#[514.
1020	22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 33 30 30 02 5c 33 30 32 5c 22 5c 32 31 31 02 5c 33 30 33	"\300.\301\"\300.\302\"\211.\303
1040	06 06 03 03 23 5c 32 36 36 5c 32 30 32 5c 32 30 37 22 20 5b 73 65 71 2d 2d 65 6c 74 2d 73 61 66	....#\266\202\207".[seq--elt-saf
1060	65 20 31 20 30 20 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f 63 2d 31 5d 20 31	e.1.0.treepy--context-assoc-1].1
1080	30 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 54 45 58 54 20 4b 56 29 22 5d 20 73 65 71 2d 70 61 72	0."\n\n(fn.CONTEXT.KV)"].seq-par
10a0	74 69 74 69 6f 6e 20 32 5d 20 37 20 28 23 24 20 2e 20 33 39 37 30 29 5d 29 0a 23 40 31 33 30 20	tition.2].7.(#$...3970)]).#@130.
10c0	52 65 74 75 72 6e 20 6d 65 74 61 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 20 74 68 69 73	Return.meta.information.for.this
10e0	20 4c 4f 43 2e 0a 49 66 20 4b 45 59 20 69 73 20 67 69 76 65 6e 2c 20 6f 6e 6c 79 20 72 65 74 75	.LOC..If.KEY.is.given,.only.retu
1100	72 6e 20 74 68 69 73 20 6b 65 79 27 73 20 76 61 6c 75 65 20 69 6e 20 6d 65 74 61 0a 69 6e 66 6f	rn.this.key's.value.in.meta.info
1120	72 6d 61 74 69 6f 6e 2e 0a 0a 28 66 6e 20 4c 4f 43 20 26 6f 70 74 69 6f 6e 61 6c 20 4b 45 59 29	rmation...(fn.LOC.&optional.KEY)
1140	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 2d 6d 65 74 61 20 23 5b 35 31 33 20	..(defalias.'treepy--meta.#[513.
1160	22 01 41 01 5c 32 30 33 0d 00 5c 33 30 30 01 03 5c 22 5c 32 30 32 0e 00 5c 32 31 31 5c 32 30 37	".A.\203..\300..\"\202..\211\207
1180	22 20 5b 6d 61 70 2d 65 6c 74 5d 20 36 20 28 23 24 20 2e 20 34 32 38 38 29 5d 29 0a 23 40 35 33	".[map-elt].6.(#$...4288)]).#@53
11a0	20 42 69 6e 64 20 4f 42 4a 20 77 69 74 68 20 73 6f 6d 65 20 4d 45 54 41 20 69 6e 66 6f 72 6d 61	.Bind.OBJ.with.some.META.informa
11c0	74 69 6f 6e 2e 0a 0a 28 66 6e 20 4f 42 4a 20 4d 45 54 41 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	tion...(fn.OBJ.META)..(defalias.
11e0	27 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6d 65 74 61 20 23 5b 35 31 34 20 22 01 01 42 5c 32 30	'treepy--with-meta.#[514."..B\20
1200	37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20 34 35 31 33 29 5d 29 0a 23 40 31 36 34 20 52 65 74 75	7".[].4.(#$...4513)]).#@164.Retu
1220	72 6e 20 61 20 6a 6f 69 6e 69 6e 67 20 6f 66 20 4c 45 46 54 2d 43 48 49 4c 44 52 45 4e 20 61 6e	rn.a.joining.of.LEFT-CHILDREN.an
1240	64 20 52 49 47 48 54 2d 43 48 49 4c 44 52 45 4e 2e 0a 52 65 76 65 72 73 65 73 20 4c 45 46 54 2d	d.RIGHT-CHILDREN..Reverses.LEFT-
1260	43 48 49 4c 44 52 45 4e 20 73 6f 20 74 68 61 74 20 74 68 65 79 20 61 72 65 20 63 6f 72 72 65 63	CHILDREN.so.that.they.are.correc
1280	74 6c 79 20 6f 72 64 65 72 65 64 20 61 73 20 69 6e 0a 74 68 65 20 74 72 65 65 2e 0a 0a 28 66 6e	tly.ordered.as.in.the.tree...(fn
12a0	20 4c 45 46 54 2d 43 48 49 4c 44 52 45 4e 20 52 49 47 48 54 2d 43 48 49 4c 44 52 45 4e 29 1f 0a	.LEFT-CHILDREN.RIGHT-CHILDREN)..
12c0	28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 2d 6a 6f 69 6e 2d 63 68 69 6c 64 72 65 6e	(defalias.'treepy--join-children
12e0	20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 21 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 65	.#[514."\300\301.!.\"\207".[appe
1300	6e 64 20 72 65 76 65 72 73 65 5d 20 35 20 28 23 24 20 2e 20 34 36 33 36 29 5d 29 0a 23 40 39 38	nd.reverse].5.(#$...4636)]).#@98
1320	20 43 72 65 61 74 65 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	.Create.a.lexical.context.using.
1340	4c 4f 43 20 56 41 52 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	LOC.VARS..Execute.BODY.in.this.c
1360	6f 6e 74 65 78 74 2e 0a 0a 28 66 6e 20 4c 4f 43 20 56 41 52 53 20 26 72 65 73 74 20 42 4f 44 59	ontext...(fn.LOC.VARS.&rest.BODY
1380	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6c 6f 63 20 27	)..(defalias.'treepy--with-loc.'
13a0	28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	(macro...#[642."\300\301\302\303
13c0	5c 33 30 34 5c 33 30 35 06 08 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 03 5c 22 5c 33 31	\304\305..!\306\"\307\310%.\"\31
13e0	31 01 03 42 42 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64	1..BB\207".[mapcar.make-byte-cod
1400	65 20 32 35 37 20 22 5c 33 30 31 01 5c 33 30 32 5c 22 5c 32 30 33 0d 00 5c 33 30 33 5c 33 30 34	e.257."\301.\302\"\203..\303\304
1420	5c 33 30 30 44 44 5c 32 30 37 5c 33 30 31 01 5c 33 30 35 5c 22 5c 32 30 33 1a 00 5c 33 30 36 5c	\300DD\207\301.\305\"\203..\306\
1440	33 30 37 5c 33 30 30 44 44 5c 32 30 37 5c 32 31 31 5c 33 30 37 5c 33 30 30 5c 33 31 30 5c 33 31	307\300DD\207\211\307\300\310\31
1460	31 5c 33 31 32 5c 33 31 33 06 07 21 50 21 44 45 44 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76	1\312\313..!P!DED\207".vconcat.v
1480	65 63 74 6f 72 20 5b 6d 65 6d 71 6c 20 27 6e 6f 64 65 20 6e 6f 64 65 20 74 72 65 65 70 79 2d 6e	ector.[memql.'node.node.treepy-n
14a0	6f 64 65 20 27 63 6f 6e 74 65 78 74 20 63 6f 6e 74 65 78 74 20 74 72 65 65 70 79 2d 2d 63 6f 6e	ode.'context.context.treepy--con
14c0	74 65 78 74 20 71 75 6f 74 65 20 69 6e 74 65 72 6e 20 22 3a 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d	text.quote.intern.":".symbol-nam
14e0	65 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 56 29 22 20 6c 65 74 2a 5d 20 31 30 20 28 23 24 20 2e	e].9."\n\n(fn.V)".let*].10.(#$..
1500	20 34 38 39 37 29 5d 29 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 74 72 65 65 70 79 2d	.4897)])).(function-put.'treepy-
1520	2d 77 69 74 68 2d 6c 6f 63 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20	-with-loc.'lisp-indent-function.
1540	27 64 65 66 75 6e 29 0a 23 40 34 31 35 20 43 72 65 61 74 65 20 61 20 6e 65 77 20 7a 69 70 70 65	'defun).#@415.Create.a.new.zippe
1560	72 20 73 74 72 75 63 74 75 72 65 2e 0a 0a 42 52 41 4e 43 48 50 20 69 73 20 61 20 66 75 6e 63 74	r.structure...BRANCHP.is.a.funct
1580	69 6f 6e 20 74 68 61 74 2c 20 67 69 76 65 6e 20 61 20 6e 6f 64 65 2c 20 72 65 74 75 72 6e 73 20	ion.that,.given.a.node,.returns.
15a0	74 20 69 66 20 69 74 20 63 61 6e 0a 68 61 76 65 20 63 68 69 6c 64 72 65 6e 2c 20 65 76 65 6e 20	t.if.it.can.have.children,.even.
15c0	69 66 20 69 74 20 63 75 72 72 65 6e 74 6c 79 20 64 6f 65 73 6e 27 74 2e 0a 0a 43 48 49 4c 44 52	if.it.currently.doesn't...CHILDR
15e0	45 4e 20 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 62	EN.is.a.function.that,.given.a.b
1600	72 61 6e 63 68 20 6e 6f 64 65 2c 20 72 65 74 75 72 6e 73 20 61 20 73 65 71 0a 6f 66 20 69 74 73	ranch.node,.returns.a.seq.of.its
1620	20 63 68 69 6c 64 72 65 6e 2e 0a 0a 4d 41 4b 45 2d 4e 4f 44 45 20 69 73 20 61 20 66 75 6e 63 74	.children...MAKE-NODE.is.a.funct
1640	69 6f 6e 20 74 68 61 74 2c 20 67 69 76 65 6e 20 61 6e 20 65 78 69 73 74 69 6e 67 20 6e 6f 64 65	ion.that,.given.an.existing.node
1660	20 61 6e 64 20 61 20 73 65 71 20 6f 66 0a 63 68 69 6c 64 72 65 6e 2c 20 72 65 74 75 72 6e 73 20	.and.a.seq.of.children,.returns.
1680	61 20 6e 65 77 20 62 72 61 6e 63 68 20 6e 6f 64 65 20 77 69 74 68 20 74 68 65 20 73 75 70 70 6c	a.new.branch.node.with.the.suppl
16a0	69 65 64 20 63 68 69 6c 64 72 65 6e 2e 0a 0a 52 4f 4f 54 20 69 73 20 74 68 65 20 72 6f 6f 74 20	ied.children...ROOT.is.the.root.
16c0	6e 6f 64 65 2e 0a 0a 28 66 6e 20 42 52 41 4e 43 48 50 20 43 48 49 4c 44 52 45 4e 20 4d 41 4b 45	node...(fn.BRANCHP.CHILDREN.MAKE
16e0	2d 4e 4f 44 45 20 52 4f 4f 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 7a	-NODE.ROOT)..(defalias.'treepy-z
1700	69 70 70 65 72 20 23 5b 31 30 32 38 20 22 5c 33 30 30 01 5c 33 30 31 42 5c 33 30 32 06 06 42 5c	ipper.#[1028."\300.\301B\302..B\
1720	33 30 33 06 06 42 5c 33 30 34 06 06 42 45 5c 22 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 2d 77	303..B\304..BE\"\207".[treepy--w
1740	69 74 68 2d 6d 65 74 61 20 6e 69 6c 20 3a 62 72 61 6e 63 68 70 20 3a 63 68 69 6c 64 72 65 6e 20	ith-meta.nil.:branchp.:children.
1760	3a 6d 61 6b 65 2d 6e 6f 64 65 5d 20 31 30 20 28 23 24 20 2e 20 35 34 35 34 29 5d 29 0a 23 40 36	:make-node].10.(#$...5454)]).#@6
1780	35 20 52 65 74 75 72 6e 20 61 20 7a 69 70 70 65 72 20 66 6f 72 20 6e 65 73 74 65 64 20 6c 69 73	5.Return.a.zipper.for.nested.lis
17a0	74 73 2c 20 67 69 76 65 6e 20 61 20 52 4f 4f 54 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 52 4f 4f 54	ts,.given.a.ROOT.list...(fn.ROOT
17c0	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 6c 69 73 74 2d 7a 69 70 20 23 5b	)..(defalias.'treepy-list-zip.#[
17e0	32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 03 05 24 5c 32 30 37 22 20 5b 23	257."\300\301\302\303..$\207".[#
1800	5b 35 31 34 20 22 5c 32 30 37 22 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 5f 20 43 48 49 4c	[514."\207".[].3."\n\n(fn._.CHIL
1820	44 52 45 4e 29 22 5d 20 74 72 65 65 70 79 2d 7a 69 70 70 65 72 20 6c 69 73 74 70 20 69 64 65 6e	DREN)"].treepy-zipper.listp.iden
1840	74 69 74 79 5d 20 37 20 28 23 24 20 2e 20 36 30 31 38 29 5d 29 0a 23 40 36 39 20 52 65 74 75 72	tity].7.(#$...6018)]).#@69.Retur
1860	6e 20 61 20 7a 69 70 70 65 72 20 66 6f 72 20 6e 65 73 74 65 64 20 76 65 63 74 6f 72 73 2c 20 67	n.a.zipper.for.nested.vectors,.g
1880	69 76 65 6e 20 61 20 52 4f 4f 54 20 76 65 63 74 6f 72 2e 0a 0a 28 66 6e 20 52 4f 4f 54 29 1f 0a	iven.a.ROOT.vector...(fn.ROOT)..
18a0	28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 76 65 63 74 6f 72 2d 7a 69 70 20 23 5b 32	(defalias.'treepy-vector-zip.#[2
18c0	35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 02 04 06 06 24 5c 32 30 37 22 20 5b	57."\300\301\302\303....$\207".[
18e0	23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 76	#[514."\300\301.\"\207".[apply.v
1900	65 63 74 6f 72 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 5f 20 43 48 49 4c 44 52 45 4e 29 22 5d 20	ector].5."\n\n(fn._.CHILDREN)"].
1920	23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 73 65 71 2d 69 6e 74	#[257."\300.\301\"\207".[seq-int
1940	6f 20 6c 69 73 74 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 43 53 29 22 5d 20 74 72 65 65 70 79 2d	o.list].4."\n\n(fn.CS)"].treepy-
1960	7a 69 70 70 65 72 20 76 65 63 74 6f 72 70 5d 20 38 20 28 23 24 20 2e 20 36 32 33 35 29 5d 29 0a	zipper.vectorp].8.(#$...6235)]).
1980	23 40 33 35 20 52 65 74 75 72 6e 20 74 68 65 20 6e 6f 64 65 20 61 74 20 4c 4f 43 2e 0a 0a 28 66	#@35.Return.the.node.at.LOC...(f
19a0	6e 20 4c 4f 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 6e 6f 64 65 20 23	n.LOC)..(defalias.'treepy-node.#
19c0	5b 32 35 37 20 22 5c 32 31 31 40 40 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 36 35 33	[257."\211@@\207".[].2.(#$...653
19e0	33 29 5d 29 0a 23 40 35 32 20 52 65 74 75 72 6e 20 74 20 69 66 20 74 68 65 20 6e 6f 64 65 20 61	3)]).#@52.Return.t.if.the.node.a
1a00	74 20 4c 4f 43 20 69 73 20 61 20 62 72 61 6e 63 68 2e 0a 0a 28 66 6e 20 4c 4f 43 29 1f 0a 28 64	t.LOC.is.a.branch...(fn.LOC)..(d
1a20	65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 62 72 61 6e 63 68 2d 70 20 23 5b 32 35 37 20 22	efalias.'treepy-branch-p.#[257."
1a40	5c 33 30 30 01 5c 33 30 31 5c 22 5c 33 30 32 02 21 21 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d	\300.\301\"\302.!!\207".[treepy-
1a60	2d 6d 65 74 61 20 3a 62 72 61 6e 63 68 70 20 74 72 65 65 70 79 2d 6e 6f 64 65 5d 20 34 20 28 23	-meta.:branchp.treepy-node].4.(#
1a80	24 20 2e 20 36 36 33 34 29 5d 29 0a 23 40 37 38 20 52 65 74 75 72 6e 20 61 20 63 68 69 6c 64 72	$...6634)]).#@78.Return.a.childr
1aa0	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 2c 20 77 68 69 63	en.list.of.the.node.at.LOC,.whic
1ac0	68 20 6d 75 73 74 20 62 65 20 61 20 62 72 61 6e 63 68 2e 0a 0a 28 66 6e 20 4c 4f 43 29 1f 0a 28	h.must.be.a.branch...(fn.LOC)..(
1ae0	64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 63 68 69 6c 64 72 65 6e 20 23 5b 32 35 37 20	defalias.'treepy-children.#[257.
1b00	22 5c 33 30 30 01 21 5c 32 30 33 0f 00 5c 33 30 31 01 5c 33 30 32 5c 22 5c 33 30 33 02 21 21 5c	"\300.!\203..\301.\302\"\303.!!\
1b20	32 30 37 5c 33 30 34 5c 33 30 35 21 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 62 72 61 6e 63 68	207\304\305!\207".[treepy-branch
1b40	2d 70 20 74 72 65 65 70 79 2d 2d 6d 65 74 61 20 3a 63 68 69 6c 64 72 65 6e 20 74 72 65 65 70 79	-p.treepy--meta.:children.treepy
1b60	2d 6e 6f 64 65 20 65 72 72 6f 72 20 22 43 61 6c 6c 65 64 20 63 68 69 6c 64 72 65 6e 20 6f 6e 20	-node.error."Called.children.on.
1b80	61 20 6c 65 61 66 20 6e 6f 64 65 22 5d 20 34 20 28 23 24 20 2e 20 36 38 30 31 29 5d 29 0a 23 40	a.leaf.node"].4.(#$...6801)]).#@
1ba0	31 37 35 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 62 72 61 6e 63 68 20 6e 6f 64 65 2e 0a 47 69	175.Return.a.new.branch.node..Gi
1bc0	76 65 6e 20 61 6e 20 65 78 69 73 74 69 6e 67 20 4c 4f 43 2c 20 4e 4f 44 45 20 61 6e 64 20 6e 65	ven.an.existing.LOC,.NODE.and.ne
1be0	77 20 43 48 49 4c 44 52 45 4e 2c 20 63 72 65 61 74 65 73 20 61 20 6e 65 77 20 4c 4f 43 0a 77 69	w.CHILDREN,.creates.a.new.LOC.wi
1c00	74 68 20 74 68 65 6d 2e 20 20 54 68 65 20 4c 4f 43 20 69 73 20 6f 6e 6c 79 20 75 73 65 64 20 74	th.them...The.LOC.is.only.used.t
1c20	6f 20 73 75 70 70 6c 79 20 74 68 65 20 63 6f 6e 73 74 72 75 63 74 6f 72 2e 0a 0a 28 66 6e 20 4c	o.supply.the.constructor...(fn.L
1c40	4f 43 20 4e 4f 44 45 20 43 48 49 4c 44 52 45 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72	OC.NODE.CHILDREN)..(defalias.'tr
1c60	65 65 70 79 2d 6d 61 6b 65 2d 6e 6f 64 65 20 23 5b 37 37 31 20 22 5c 33 30 30 03 5c 33 30 31 5c	eepy-make-node.#[771."\300.\301\
1c80	22 02 02 5c 22 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 2d 6d 65 74 61 20 3a 6d 61 6b 65 2d 6e	"..\"\207".[treepy--meta.:make-n
1ca0	6f 64 65 5d 20 36 20 28 23 24 20 2e 20 37 30 37 36 29 5d 29 0a 23 40 36 30 20 52 65 74 75 72 6e	ode].6.(#$...7076)]).#@60.Return
1cc0	20 61 20 6c 69 73 74 20 6f 66 20 6e 6f 64 65 73 20 6c 65 61 64 69 6e 67 20 74 6f 20 74 68 65 20	.a.list.of.nodes.leading.to.the.
1ce0	67 69 76 65 6e 20 4c 4f 43 2e 0a 0a 28 66 6e 20 4c 4f 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	given.LOC...(fn.LOC)..(defalias.
1d00	27 74 72 65 65 70 79 2d 70 61 74 68 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 33 30	'treepy-path.#[257."\300\301.\30
1d20	32 5c 22 21 5c 32 30 37 22 20 5b 72 65 76 65 72 73 65 20 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65	2\"!\207".[reverse.treepy--conte
1d40	78 74 20 3a 70 6e 6f 64 65 73 5d 20 35 20 28 23 24 20 2e 20 37 33 35 34 29 5d 29 0a 23 40 35 39	xt.:pnodes].5.(#$...7354)]).#@59
1d60	20 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	.Return.a.list.of.the.left.sibli
1d80	6e 67 73 20 6f 66 20 74 68 69 73 20 4c 4f 43 2e 0a 0a 28 66 6e 20 4c 4f 43 29 1f 0a 28 64 65 66	ngs.of.this.LOC...(fn.LOC)..(def
1da0	61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 6c 65 66 74 73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c	alias.'treepy-lefts.#[257."\300\
1dc0	33 30 31 02 5c 33 30 32 5c 22 21 5c 32 30 37 22 20 5b 72 65 76 65 72 73 65 20 74 72 65 65 70 79	301.\302\"!\207".[reverse.treepy
1de0	2d 2d 63 6f 6e 74 65 78 74 20 3a 6c 5d 20 35 20 28 23 24 20 2e 20 37 35 32 31 29 5d 29 0a 23 40	--context.:l].5.(#$...7521)]).#@
1e00	36 30 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 72 69 67 68 74 20 73 69	60.Return.a.list.of.the.right.si
1e20	62 6c 69 6e 67 73 20 6f 66 20 74 68 69 73 20 4c 4f 43 2e 0a 0a 28 66 6e 20 4c 4f 43 29 1f 0a 28	blings.of.this.LOC...(fn.LOC)..(
1e40	64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 72 69 67 68 74 73 20 23 5b 32 35 37 20 22 5c	defalias.'treepy-rights.#[257."\
1e60	33 30 30 01 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74	300.\301\"\207".[treepy--context
1e80	20 3a 72 5d 20 34 20 28 23 24 20 2e 20 37 36 38 33 29 5d 29 0a 23 40 39 33 20 52 65 74 75 72 6e	.:r].4.(#$...7683)]).#@93.Return
1ea0	20 74 68 65 20 6c 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	.the.loc.of.the.leftmost.child.o
1ec0	66 20 74 68 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 6e	f.the.node.at.this.LOC..nil.if.n
1ee0	6f 20 63 68 69 6c 64 72 65 6e 2e 0a 0a 28 66 6e 20 4c 4f 43 29 1f 0a 28 64 65 66 61 6c 69 61 73	o.children...(fn.LOC)..(defalias
1f00	20 27 74 72 65 65 70 79 2d 64 6f 77 6e 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 35 4f	.'treepy-down.#[257."\300.!\205O
1f20	00 5c 33 30 31 01 21 5c 33 30 32 02 21 5c 33 30 33 03 21 5c 33 30 33 04 5c 33 30 34 5c 22 5c 33	.\301.!\302.!\303.!\303.\304\"\3
1f40	30 35 04 5c 33 30 36 5c 22 5c 33 30 37 05 5c 33 31 30 5c 22 5c 32 31 31 02 06 07 5c 32 30 35 47	05.\306\"\307.\310\"\211...\205G
1f60	00 5c 33 31 31 02 5c 33 31 32 43 5c 33 30 34 06 09 5c 32 30 33 34 00 06 5c 6e 06 09 42 5c 32 30	.\311.\312C\304..\2034..\n..B\20
1f80	32 37 00 06 5c 6e 43 42 5c 33 31 33 06 5c 6e 42 5c 33 31 34 06 06 42 5c 32 35 37 05 5c 33 31 35	27..\nCB\313.\nB\314..B\257.\315
1fa0	06 0b 21 5c 22 5c 32 36 36 5c 32 30 32 5c 32 36 36 5c 32 30 32 5c 32 36 36 5c 32 30 33 5c 32 36	..!\"\266\202\266\202\266\203\26
1fc0	32 01 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 62 72 61 6e 63 68 2d 70 20 74 72 65 65 70 79 2d	2.\207".[treepy-branch-p.treepy-
1fe0	63 68 69 6c 64 72 65 6e 20 74 72 65 65 70 79 2d 6e 6f 64 65 20 74 72 65 65 70 79 2d 2d 63 6f 6e	children.treepy-node.treepy--con
2000	74 65 78 74 20 3a 70 6e 6f 64 65 73 20 73 65 71 2d 64 72 6f 70 20 31 20 73 65 71 2d 2d 65 6c 74	text.:pnodes.seq-drop.1.seq--elt
2020	2d 73 61 66 65 20 30 20 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6d 65 74 61 20 3a 6c 20 3a 70 70	-safe.0.treepy--with-meta.:l.:pp
2040	61 74 68 20 3a 72 20 74 72 65 65 70 79 2d 2d 6d 65 74 61 5d 20 31 36 20 28 23 24 20 2e 20 37 38	ath.:r.treepy--meta].16.(#$...78
2060	33 34 29 5d 29 0a 23 40 38 34 20 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 20 6f 66 20 74 68 65	34)]).#@84.Return.the.loc.of.the
2080	20 70 61 72 65 6e 74 20 6f 66 20 74 68 65 20 6e 6f 64 65 20 61 74 20 74 68 69 73 20 4c 4f 43 2e	.parent.of.the.node.at.this.LOC.
20a0	0a 6e 69 6c 20 69 66 20 61 74 20 74 68 65 20 74 6f 70 2e 0a 0a 28 66 6e 20 4c 4f 43 29 1f 0a 28	.nil.if.at.the.top...(fn.LOC)..(
20c0	64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 75 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01	defalias.'treepy-up.#[257."\300.
20e0	21 5c 33 30 31 02 5c 33 30 32 5c 22 5c 33 30 31 03 5c 33 30 33 5c 22 5c 33 30 31 04 5c 33 30 34	!\301.\302\"\301.\303\"\301.\304
2100	5c 22 5c 33 30 31 05 5c 33 30 35 5c 22 5c 33 30 31 06 06 5c 33 30 36 5c 22 04 5c 32 30 35 4b 00	\"\301.\305\"\301..\306\".\205K.
2120	04 40 5c 33 30 37 04 5c 32 30 33 40 00 5c 33 31 30 06 09 03 5c 33 31 31 06 07 06 5c 66 06 08 42	.@\307.\203@.\310...\311...\f..B
2140	5c 22 23 06 06 5c 32 30 35 3c 00 5c 33 31 32 06 07 5c 33 30 34 5c 33 31 33 23 42 5c 32 30 32 44	\"#..\205<.\312..\304\313#B\202D
2160	00 01 06 06 42 5c 33 31 34 06 5c 6e 21 5c 22 5c 32 36 32 01 5c 32 30 37 22 20 5b 74 72 65 65 70	....B\314.\n!\"\262.\207".[treep
2180	79 2d 6e 6f 64 65 20 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 3a 70 6e 6f 64 65 73 20 3a	y-node.treepy--context.:pnodes.:
21a0	70 70 61 74 68 20 3a 63 68 61 6e 67 65 64 5c 3f 20 3a 6c 20 3a 72 20 74 72 65 65 70 79 2d 2d 77	ppath.:changed\?.:l.:r.treepy--w
21c0	69 74 68 2d 6d 65 74 61 20 74 72 65 65 70 79 2d 6d 61 6b 65 2d 6e 6f 64 65 20 74 72 65 65 70 79	ith-meta.treepy-make-node.treepy
21e0	2d 2d 6a 6f 69 6e 2d 63 68 69 6c 64 72 65 6e 20 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d	--join-children.treepy--context-
2200	61 73 73 6f 63 20 74 20 74 72 65 65 70 79 2d 2d 6d 65 74 61 5d 20 31 36 20 28 23 24 20 2e 20 38	assoc.t.treepy--meta].16.(#$...8
2220	32 39 39 29 5d 29 0a 23 40 31 30 32 20 5a 69 70 20 66 72 6f 6d 20 4c 4f 43 20 61 6c 6c 20 74 68	299)]).#@102.Zip.from.LOC.all.th
2240	65 20 77 61 79 20 75 70 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 72 6f 6f 74 20 6e 6f 64	e.way.up.and.return.the.root.nod
2260	65 2e 0a 52 65 66 6c 65 63 74 20 61 6e 79 20 61 6c 74 65 72 61 74 69 6f 6e 73 20 74 6f 20 74 68	e..Reflect.any.alterations.to.th
2280	65 20 74 72 65 65 2e 0a 0a 28 66 6e 20 4c 4f 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72	e.tree...(fn.LOC)..(defalias.'tr
22a0	65 65 70 79 2d 72 6f 6f 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 31 5c 32 33 32 5c	eepy-root.#[257."\300.!\301\232\
22c0	32 30 33 5c 66 00 5c 33 30 32 01 21 5c 32 30 37 5c 32 31 31 5c 33 30 33 01 21 5c 32 31 31 5c 32	203\f.\302.!\207\211\303.!\211\2
22e0	36 32 02 5c 32 30 33 1c 00 5c 32 31 31 5c 32 36 32 02 5c 32 30 32 0d 00 5c 33 30 32 02 21 5c 32	62.\203..\211\262.\202..\302.!\2
2300	30 37 22 20 5b 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 3a 65 6e 64 20 74 72 65 65 70 79	07".[treepy--context.:end.treepy
2320	2d 6e 6f 64 65 20 74 72 65 65 70 79 2d 75 70 5d 20 34 20 28 23 24 20 2e 20 38 37 34 39 29 5d 29	-node.treepy-up].4.(#$...8749)])
2340	0a 23 40 31 31 32 20 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 20 6f 66 20 74 68 65 20 72 69 67	.#@112.Return.the.loc.of.the.rig
2360	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 4c	ht.sibling.of.the.node.at.this.L
2380	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 74	OC..nil.if.there's.no.more.right
23a0	20 73 69 62 69 6c 69 6e 67 73 2e 0a 0a 28 66 6e 20 4c 4f 43 29 1f 0a 28 64 65 66 61 6c 69 61 73	.sibilings...(fn.LOC)..(defalias
23c0	20 27 74 72 65 65 70 79 2d 72 69 67 68 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 31	.'treepy-right.#[257."\300.!\301
23e0	02 21 5c 33 30 31 03 5c 33 30 32 5c 22 5c 33 30 31 04 5c 33 30 33 5c 22 5c 32 31 31 3c 5c 32 30	.!\301.\302\"\301.\303\"\211<\20
2400	33 17 00 5c 32 31 31 5c 32 30 32 1a 00 5c 32 31 31 5c 33 30 34 42 5c 33 30 35 01 5c 33 30 36 5c	3..\211\202..\211\304B\305.\306\
2420	22 5c 33 30 37 02 5c 33 31 30 5c 22 5c 32 31 31 02 06 07 5c 32 30 35 42 00 04 5c 32 30 35 42 00	"\307.\310\"\211...\205B..\205B.
2440	5c 33 31 31 02 5c 33 31 32 06 5c 6e 5c 33 30 32 06 0d 06 5c 66 42 5c 33 30 33 06 07 25 42 5c 33	\311.\312.\n\302...\fB\303..%B\3
2460	31 33 06 5c 66 21 5c 22 5c 32 36 36 5c 32 30 32 5c 32 36 36 5c 32 30 32 5c 32 36 32 01 5c 32 30	13.\f!\"\266\202\266\202\262.\20
2480	37 22 20 5b 74 72 65 65 70 79 2d 6e 6f 64 65 20 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20	7".[treepy-node.treepy--context.
24a0	3a 6c 20 3a 72 20 6e 69 6c 20 73 65 71 2d 64 72 6f 70 20 31 20 73 65 71 2d 2d 65 6c 74 2d 73 61	:l.:r.nil.seq-drop.1.seq--elt-sa
24c0	66 65 20 30 20 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6d 65 74 61 20 74 72 65 65 70 79 2d 2d 63	fe.0.treepy--with-meta.treepy--c
24e0	6f 6e 74 65 78 74 2d 61 73 73 6f 63 20 74 72 65 65 70 79 2d 2d 6d 65 74 61 5d 20 31 38 20 28 23	ontext-assoc.treepy--meta].18.(#
2500	24 20 2e 20 39 30 33 31 29 5d 29 0a 23 40 31 33 31 20 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63	$...9031)]).#@131.Return.the.loc
2520	20 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	.of.the.rightmost.sibling.of.the
2540	20 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	.node.at.this.LOC..If.LOC.is.alr
2560	65 61 64 79 20 74 68 65 20 72 69 67 68 74 6d 6f 73 74 20 73 69 62 69 6c 69 6e 67 2c 20 72 65 74	eady.the.rightmost.sibiling,.ret
2580	75 72 6e 20 73 65 6c 66 2e 0a 0a 28 66 6e 20 4c 4f 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	urn.self...(fn.LOC)..(defalias.'
25a0	74 72 65 65 70 79 2d 72 69 67 68 74 6d 6f 73 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33	treepy-rightmost.#[257."\300.!\3
25c0	30 31 02 21 5c 33 30 31 03 5c 33 30 32 5c 22 5c 33 30 31 04 5c 33 30 33 5c 22 02 5c 32 30 33 35	01.!\301.\302\"\301.\303\".\2035
25e0	00 5c 32 31 31 5c 32 30 33 35 00 5c 33 30 34 5c 33 30 35 02 21 40 5c 33 30 36 05 5c 33 30 32 5c	.\211\2035.\304\305.!@\306.\302\
2600	33 30 37 06 07 06 5c 6e 5c 33 31 30 06 09 21 42 5c 22 5c 33 30 33 5c 33 31 31 25 42 5c 33 31 32	307...\n\310..!B\"\303\311%B\312
2620	06 07 21 5c 22 5c 32 30 32 36 00 04 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 6e 6f 64 65 20 74	..!\"\2026..\207".[treepy-node.t
2640	72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 3a 6c 20 3a 72 20 74 72 65 65 70 79 2d 2d 77 69 74	reepy--context.:l.:r.treepy--wit
2660	68 2d 6d 65 74 61 20 6c 61 73 74 20 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f	h-meta.last.treepy--context-asso
2680	63 20 74 72 65 65 70 79 2d 2d 6a 6f 69 6e 2d 63 68 69 6c 64 72 65 6e 20 62 75 74 6c 61 73 74 20	c.treepy--join-children.butlast.
26a0	6e 69 6c 20 74 72 65 65 70 79 2d 2d 6d 65 74 61 5d 20 31 35 20 28 23 24 20 2e 20 39 34 39 30 29	nil.treepy--meta].15.(#$...9490)
26c0	5d 29 0a 23 40 31 30 32 20 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 20 6f 66 20 74 68 65 20 6c	]).#@102.Return.the.loc.of.the.l
26e0	65 66 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	eft.sibling.of.the.node.at.this.
2700	4c 4f 43 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 69 6c 69 6e	LOC..nil.if.no.more.left.sibilin
2720	67 73 2e 0a 0a 28 66 6e 20 4c 4f 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79	gs...(fn.LOC)..(defalias.'treepy
2740	2d 6c 65 66 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 31 02 21 5c 33 30 31 03 5c 33	-left.#[257."\300.!\301.!\301.\3
2760	30 32 5c 22 5c 33 30 31 04 5c 33 30 33 5c 22 02 5c 32 30 35 38 00 01 5c 32 30 35 38 00 5c 33 30	02\"\301.\303\".\2058..\2058.\30
2780	34 02 5c 33 30 35 5c 22 5c 33 30 36 03 5c 33 30 37 5c 22 5c 32 31 31 02 5c 33 31 30 02 5c 33 31	4.\305\"\306.\307\"\211.\310.\31
27a0	31 06 09 5c 33 30 32 05 5c 33 30 33 06 0e 06 5c 66 42 25 42 5c 33 31 32 06 0b 21 5c 22 5c 32 36	1..\302.\303...\fB%B\312..!\"\26
27c0	36 5c 32 30 32 5c 32 36 36 5c 32 30 32 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 6e 6f 64 65 20	6\202\266\202\207".[treepy-node.
27e0	74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 3a 6c 20 3a 72 20 73 65 71 2d 64 72 6f 70 20 31	treepy--context.:l.:r.seq-drop.1
2800	20 73 65 71 2d 2d 65 6c 74 2d 73 61 66 65 20 30 20 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6d 65	.seq--elt-safe.0.treepy--with-me
2820	74 61 20 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f 63 20 74 72 65 65 70 79 2d	ta.treepy--context-assoc.treepy-
2840	2d 6d 65 74 61 5d 20 31 38 20 28 23 24 20 2e 20 39 39 32 39 29 5d 29 0a 23 40 31 32 39 20 52 65	-meta].18.(#$...9929)]).#@129.Re
2860	74 75 72 6e 20 74 68 65 20 6c 6f 63 20 6f 66 20 74 68 65 20 6c 65 66 74 6d 6f 73 74 20 73 69 62	turn.the.loc.of.the.leftmost.sib
2880	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 2e 0a 49 66	ling.of.the.node.at.this.LOC..If
28a0	20 4c 4f 43 20 69 73 20 61 6c 72 65 61 64 79 20 74 68 65 20 6c 65 66 74 6d 6f 73 74 20 73 69 62	.LOC.is.already.the.leftmost.sib
28c0	69 6c 69 6e 67 2c 20 72 65 74 75 72 6e 20 73 65 6c 66 2e 0a 0a 28 66 6e 20 4c 4f 43 29 1f 0a 28	iling,.return.self...(fn.LOC)..(
28e0	64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 6c 65 66 74 6d 6f 73 74 20 23 5b 32 35 37 20	defalias.'treepy-leftmost.#[257.
2900	22 5c 33 30 30 01 21 5c 33 30 31 02 21 5c 33 30 31 03 5c 33 30 32 5c 22 5c 33 30 31 04 5c 33 30	"\300.!\301.!\301.\302\"\301.\30
2920	33 5c 22 02 5c 32 30 33 35 00 01 5c 32 30 33 35 00 5c 33 30 34 5c 33 30 35 03 21 40 5c 33 30 36	3\".\2035..\2035.\304\305.!@\306
2940	05 5c 33 30 32 5c 33 30 37 5c 33 30 33 5c 33 31 30 5c 33 31 31 06 5c 6e 21 06 5c 66 06 5c 6e 42	.\302\307\303\310\311.\n!.\f.\nB
2960	5c 22 25 42 5c 33 31 32 06 07 21 5c 22 5c 32 30 32 36 00 04 5c 32 30 37 22 20 5b 74 72 65 65 70	\"%B\312..!\"\2026..\207".[treep
2980	79 2d 6e 6f 64 65 20 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 3a 6c 20 3a 72 20 74 72 65	y-node.treepy--context.:l.:r.tre
29a0	65 70 79 2d 2d 77 69 74 68 2d 6d 65 74 61 20 6c 61 73 74 20 74 72 65 65 70 79 2d 2d 63 6f 6e 74	epy--with-meta.last.treepy--cont
29c0	65 78 74 2d 61 73 73 6f 63 20 5b 5d 20 74 72 65 65 70 79 2d 2d 6a 6f 69 6e 2d 63 68 69 6c 64 72	ext-assoc.[].treepy--join-childr
29e0	65 6e 20 62 75 74 6c 61 73 74 20 74 72 65 65 70 79 2d 2d 6d 65 74 61 5d 20 31 36 20 28 23 24 20	en.butlast.treepy--meta].16.(#$.
2a00	2e 20 31 30 33 33 34 29 5d 29 0a 23 40 38 33 20 52 65 74 75 72 6e 20 74 68 65 20 6c 65 66 74 6d	..10334)]).#@83.Return.the.leftm
2a20	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.
2a40	0a 28 69 65 2c 20 64 6f 77 6e 20 72 65 70 65 61 74 65 64 6c 79 29 2e 0a 0a 28 66 6e 20 4c 4f 43	.(ie,.down.repeatedly)...(fn.LOC
2a60	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 6c 65 66 74 6d 6f 73 74 2d 64 65	)..(defalias.'treepy-leftmost-de
2a80	73 63 65 6e 64 61 6e 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 33 0e 00 5c 33 30 31	scendant.#[257."\300.!\203..\301
2aa0	01 21 5c 32 36 32 01 5c 32 30 32 00 00 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 62 72 61 6e 63	.!\262.\202..\207".[treepy-branc
2ac0	68 2d 70 20 74 72 65 65 70 79 2d 64 6f 77 6e 5d 20 33 20 28 23 24 20 2e 20 31 30 37 36 38 29 5d	h-p.treepy-down].3.(#$...10768)]
2ae0	29 0a 23 40 31 31 33 20 49 6e 73 65 72 74 20 61 73 20 74 68 65 20 6c 65 66 74 20 73 69 62 69 6c	).#@113.Insert.as.the.left.sibil
2b00	69 6e 67 20 6f 66 20 74 68 69 73 20 4c 4f 43 27 53 20 6e 6f 64 65 20 74 68 65 20 49 54 45 4d 2e	ing.of.this.LOC'S.node.the.ITEM.
2b20	0a 52 65 74 75 72 6e 20 73 61 6d 65 20 6c 6f 63 20 77 69 74 68 20 73 69 62 69 6c 69 6e 67 73 20	.Return.same.loc.with.sibilings.
2b40	75 70 64 61 74 65 64 2e 0a 0a 28 66 6e 20 4c 4f 43 20 49 54 45 4d 29 1f 0a 28 64 65 66 61 6c 69	updated...(fn.LOC.ITEM)..(defali
2b60	61 73 20 27 74 72 65 65 70 79 2d 69 6e 73 65 72 74 2d 6c 65 66 74 20 23 5b 35 31 34 20 22 5c 33	as.'treepy-insert-left.#[514."\3
2b80	30 30 02 21 5c 33 30 31 03 21 5c 33 30 31 04 5c 33 30 32 5c 22 01 5c 32 30 34 14 00 5c 33 30 33	00.!\301.!\301.\302\".\204..\303
2ba0	5c 33 30 34 21 5c 32 30 32 27 00 5c 33 30 35 03 5c 33 30 36 04 5c 33 30 32 06 08 06 06 42 5c 33	\304!\202'.\305.\306.\302....B\3
2bc0	30 37 5c 33 31 30 25 42 5c 33 31 31 06 07 21 5c 22 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 6e	07\310%B\311..!\"\207".[treepy-n
2be0	6f 64 65 20 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 3a 6c 20 65 72 72 6f 72 20 22 49 6e	ode.treepy--context.:l.error."In
2c00	73 65 72 74 20 61 74 20 74 6f 70 22 20 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6d 65 74 61 20 74	sert.at.top".treepy--with-meta.t
2c20	72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f 63 20 3a 63 68 61 6e 67 65 64 5c 3f 20	reepy--context-assoc.:changed\?.
2c40	74 20 74 72 65 65 70 79 2d 2d 6d 65 74 61 5d 20 31 33 20 28 23 24 20 2e 20 31 30 39 38 34 29 5d	t.treepy--meta].13.(#$...10984)]
2c60	29 0a 23 40 31 31 33 20 49 6e 73 65 72 74 20 61 73 20 74 68 65 20 72 69 67 68 74 20 73 69 62 6c	).#@113.Insert.as.the.right.sibl
2c80	69 6e 67 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	ing.of.this.LOC's.node.the.ITEM.
2ca0	0a 52 65 74 75 72 6e 20 73 61 6d 65 20 6c 6f 63 20 77 69 74 68 20 73 69 62 69 6c 69 6e 67 73 20	.Return.same.loc.with.sibilings.
2cc0	75 70 64 61 74 65 64 2e 0a 0a 28 66 6e 20 4c 4f 43 20 49 54 45 4d 29 1f 0a 28 64 65 66 61 6c 69	updated...(fn.LOC.ITEM)..(defali
2ce0	61 73 20 27 74 72 65 65 70 79 2d 69 6e 73 65 72 74 2d 72 69 67 68 74 20 23 5b 35 31 34 20 22 5c	as.'treepy-insert-right.#[514."\
2d00	33 30 30 02 21 5c 33 30 31 03 21 5c 33 30 31 04 5c 33 30 32 5c 22 01 5c 32 30 34 14 00 5c 33 30	300.!\301.!\301.\302\".\204..\30
2d20	33 5c 33 30 34 21 5c 32 30 32 27 00 5c 33 30 35 03 5c 33 30 36 04 5c 33 30 32 06 08 06 06 42 5c	3\304!\202'.\305.\306.\302....B\
2d40	33 30 37 5c 33 31 30 25 42 5c 33 31 31 06 07 21 5c 22 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d	307\310%B\311..!\"\207".[treepy-
2d60	6e 6f 64 65 20 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 3a 72 20 65 72 72 6f 72 20 22 49	node.treepy--context.:r.error."I
2d80	6e 73 65 72 74 20 61 74 20 74 6f 70 22 20 74 72 65 65 70 79 2d 2d 77 69 74 68 2d 6d 65 74 61 20	nsert.at.top".treepy--with-meta.
2da0	74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f 63 20 3a 63 68 61 6e 67 65 64 5c 3f	treepy--context-assoc.:changed\?
2dc0	20 74 20 74 72 65 65 70 79 2d 2d 6d 65 74 61 5d 20 31 33 20 28 23 24 20 2e 20 31 31 33 36 38 29	.t.treepy--meta].13.(#$...11368)
2de0	5d 29 0a 23 40 38 32 20 52 65 70 6c 61 63 65 20 74 68 65 20 6e 6f 64 65 20 69 6e 20 74 68 69 73	]).#@82.Replace.the.node.in.this
2e00	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
2e20	74 20 6d 6f 76 69 6e 67 2e 0a 0a 28 66 6e 20 4c 4f 43 20 4e 4f 44 45 29 1f 0a 28 64 65 66 61 6c	t.moving...(fn.LOC.NODE)..(defal
2e40	69 61 73 20 27 74 72 65 65 70 79 2d 72 65 70 6c 61 63 65 20 23 5b 35 31 34 20 22 5c 33 30 30 02	ias.'treepy-replace.#[514."\300.
2e60	21 5c 33 30 31 02 5c 33 30 32 03 5c 33 30 33 5c 33 30 34 23 42 5c 33 30 35 05 21 5c 22 5c 32 30	!\301.\302.\303\304#B\305.!\"\20
2e80	37 22 20 5b 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 74 72 65 65 70 79 2d 2d 77 69 74 68	7".[treepy--context.treepy--with
2ea0	2d 6d 65 74 61 20 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61 73 73 6f 63 20 3a 63 68 61	-meta.treepy--context-assoc.:cha
2ec0	6e 67 65 64 5c 3f 20 74 20 74 72 65 65 70 79 2d 2d 6d 65 74 61 5d 20 39 20 28 23 24 20 2e 20 31	nged\?.t.treepy--meta].9.(#$...1
2ee0	31 37 35 32 29 5d 29 0a 23 40 38 36 20 52 65 70 6c 61 63 65 20 74 68 65 20 6e 6f 64 65 20 61 74	1752)]).#@86.Replace.the.node.at
2f00	20 74 68 69 73 20 4c 4f 43 20 77 69 74 68 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 28 46 20 6e	.this.LOC.with.the.value.of.(F.n
2f20	6f 64 65 20 41 52 47 53 29 2e 0a 0a 28 66 6e 20 4c 4f 43 20 46 20 26 72 65 73 74 20 41 52 47 53	ode.ARGS)...(fn.LOC.F.&rest.ARGS
2f40	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 65 64 69 74 20 23 5b 36 34 32 20	)..(defalias.'treepy-edit.#[642.
2f60	22 5c 33 30 30 03 5c 33 30 31 04 5c 33 30 32 06 07 21 05 23 5c 22 5c 32 30 37 22 20 5b 74 72 65	"\300.\301.\302..!.#\"\207".[tre
2f80	65 70 79 2d 72 65 70 6c 61 63 65 20 61 70 70 6c 79 20 74 72 65 65 70 79 2d 6e 6f 64 65 5d 20 39	epy-replace.apply.treepy-node].9
2fa0	20 28 23 24 20 2e 20 31 32 30 31 33 29 5d 29 0a 23 40 31 31 33 20 49 6e 73 65 72 74 20 61 73 20	.(#$...12013)]).#@113.Insert.as.
2fc0	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 73 20 4c 4f 43 27 73	the.leftmost.child.of.this.LOC's
2fe0	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 65 20 6c 6f 63 20	.node.the.ITEM..Return.same.loc.
3000	77 69 74 68 20 63 68 69 6c 64 72 65 6e 20 75 70 64 61 74 65 64 2e 0a 0a 28 66 6e 20 4c 4f 43 20	with.children.updated...(fn.LOC.
3020	49 54 45 4d 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 69 6e 73 65 72 74 2d	ITEM)..(defalias.'treepy-insert-
3040	63 68 69 6c 64 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 04 5c 33 30 32 06 06 21 05 5c	child.#[514."\300.\301.\302..!.\
3060	33 30 33 06 08 21 42 23 5c 22 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 72 65 70 6c 61 63 65 20	303..!B#\"\207".[treepy-replace.
3080	74 72 65 65 70 79 2d 6d 61 6b 65 2d 6e 6f 64 65 20 74 72 65 65 70 79 2d 6e 6f 64 65 20 74 72 65	treepy-make-node.treepy-node.tre
30a0	65 70 79 2d 63 68 69 6c 64 72 65 6e 5d 20 31 30 20 28 23 24 20 2e 20 31 32 32 31 34 29 5d 29 0a	epy-children].10.(#$...12214)]).
30c0	23 40 31 31 34 20 49 6e 73 65 72 74 20 61 73 20 74 68 65 20 72 69 67 68 74 6d 6f 73 74 20 63 68	#@114.Insert.as.the.rightmost.ch
30e0	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 20 49 54 45 4d 2e	ild.of.this.LOC'S.node.the.ITEM.
3100	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 64 72 65 6e 20 75	.Return.same.loc.with.children.u
3120	70 64 61 74 65 64 2e 0a 0a 28 66 6e 20 4c 4f 43 20 49 54 45 4d 29 1f 0a 28 64 65 66 61 6c 69 61	pdated...(fn.LOC.ITEM)..(defalia
3140	73 20 27 74 72 65 65 70 79 2d 61 70 70 65 6e 64 2d 63 68 69 6c 64 20 23 5b 35 31 34 20 22 5c 33	s.'treepy-append-child.#[514."\3
3160	30 30 02 5c 33 30 31 04 5c 33 30 32 06 06 21 5c 33 30 33 5c 33 30 34 06 08 21 06 07 43 5c 22 23	00.\301.\302..!\303\304..!..C\"#
3180	5c 22 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 72 65 70 6c 61 63 65 20 74 72 65 65 70 79 2d 6d	\"\207".[treepy-replace.treepy-m
31a0	61 6b 65 2d 6e 6f 64 65 20 74 72 65 65 70 79 2d 6e 6f 64 65 20 61 70 70 65 6e 64 20 74 72 65 65	ake-node.treepy-node.append.tree
31c0	70 79 2d 63 68 69 6c 64 72 65 6e 5d 20 31 30 20 28 23 24 20 2e 20 31 32 34 38 36 29 5d 29 0a 23	py-children].10.(#$...12486)]).#
31e0	40 31 30 31 20 52 65 6d 6f 76 65 20 74 68 65 20 6e 6f 64 65 20 61 74 20 4c 4f 43 2e 0a 52 65 74	@101.Remove.the.node.at.LOC..Ret
3200	75 72 6e 20 74 68 65 20 6c 6f 63 20 74 68 61 74 20 77 6f 75 6c 64 20 68 61 76 65 20 70 72 65 63	urn.the.loc.that.would.have.prec
3220	65 64 65 64 20 69 74 20 69 6e 20 61 20 64 65 70 74 68 2d 66 69 72 73 74 0a 77 61 6c 6b 2e 0a 0a	eded.it.in.a.depth-first.walk...
3240	28 66 6e 20 4c 4f 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 72 65 6d 6f	(fn.LOC)..(defalias.'treepy-remo
3260	76 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 30 02 5c 33 30 31 5c 22 5c 33 30 30 03	ve.#[257."\300.!\300.\301\"\300.
3280	5c 33 30 32 5c 22 5c 33 30 30 04 5c 33 30 33 5c 22 5c 33 30 30 05 5c 33 30 34 5c 22 04 5c 32 30	\302\"\300.\303\"\300.\304\".\20
32a0	34 1d 00 5c 33 30 35 5c 33 30 36 21 5c 32 30 32 6e 00 01 47 5c 33 30 37 56 5c 32 30 33 55 00 5c	4..\305\306!\202n..G\307V\203U.\
32c0	33 31 30 02 40 5c 33 31 31 06 07 5c 33 30 33 06 06 41 5c 33 31 32 5c 33 31 33 25 42 5c 33 31 34	310.@\311..\303..A\312\313%B\314
32e0	06 08 21 5c 22 5c 33 31 35 5c 33 31 36 02 21 5c 32 30 35 41 00 5c 33 31 37 02 21 5c 32 31 31 5c	..!\"\315\316.!\205A.\317.!\211\
3300	32 36 32 02 5c 32 30 33 4f 00 5c 33 32 30 01 21 5c 32 36 32 02 5c 32 30 32 38 00 01 5c 32 36 36	262.\203O.\320.!\262.\2028..\266
3320	5c 32 30 32 5c 32 30 32 6e 00 5c 33 31 30 5c 33 32 31 06 07 06 06 40 04 23 04 5c 32 30 35 68 00	\202\202n.\310\321....@.#.\205h.
3340	5c 33 31 31 06 07 5c 33 31 32 5c 33 31 33 23 42 5c 33 31 34 06 08 21 5c 22 5c 32 30 37 22 20 5b	\311..\312\313#B\314..!\"\207".[
3360	74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20 3a 70 6e 6f 64 65 73 20 3a 70 70 61 74 68 20 3a	treepy--context.:pnodes.:ppath.:
3380	6c 20 3a 72 20 65 72 72 6f 72 20 22 52 65 6d 6f 76 65 20 61 74 20 74 6f 70 22 20 30 20 74 72 65	l.:r.error."Remove.at.top".0.tre
33a0	65 70 79 2d 2d 77 69 74 68 2d 6d 65 74 61 20 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 2d 61	epy--with-meta.treepy--context-a
33c0	73 73 6f 63 20 3a 63 68 61 6e 67 65 64 5c 3f 20 74 20 74 72 65 65 70 79 2d 2d 6d 65 74 61 20 6e	ssoc.:changed\?.t.treepy--meta.n
33e0	69 6c 20 74 72 65 65 70 79 2d 62 72 61 6e 63 68 2d 70 20 74 72 65 65 70 79 2d 63 68 69 6c 64 72	il.treepy-branch-p.treepy-childr
3400	65 6e 20 74 72 65 65 70 79 2d 72 69 67 68 74 6d 6f 73 74 20 74 72 65 65 70 79 2d 6d 61 6b 65 2d	en.treepy-rightmost.treepy-make-
3420	6e 6f 64 65 5d 20 31 34 20 28 23 24 20 2e 20 31 32 37 37 33 29 5d 29 0a 23 40 31 39 34 20 4d 6f	node].14.(#$...12773)]).#@194.Mo
3440	76 65 20 74 6f 20 74 68 65 20 6e 65 78 74 20 4c 4f 43 20 69 6e 20 74 68 65 20 68 69 65 72 61 72	ve.to.the.next.LOC.in.the.hierar
3460	63 68 79 2c 20 64 65 70 74 68 2d 66 69 72 73 74 20 69 6e 20 70 72 65 6f 72 64 65 72 2e 0a 57 68	chy,.depth-first.in.preorder..Wh
3480	65 6e 20 72 65 61 63 68 69 6e 67 20 74 68 65 20 65 6e 64 2c 20 72 65 74 75 72 6e 73 20 61 20 64	en.reaching.the.end,.returns.a.d
34a0	69 73 74 69 6e 67 75 69 73 68 65 64 20 6c 6f 63 20 64 65 74 65 63 74 61 62 6c 65 20 76 69 61 0a	istinguished.loc.detectable.via.
34c0	60 74 72 65 65 70 79 2d 65 6e 64 2d 70 27 2e 20 20 49 66 20 61 6c 72 65 61 64 79 20 61 74 20 74	`treepy-end-p'...If.already.at.t
34e0	68 65 20 65 6e 64 2c 20 73 74 61 79 73 20 74 68 65 72 65 2e 0a 0a 28 66 6e 20 4c 4f 43 29 1f 0a	he.end,.stays.there...(fn.LOC)..
3500	28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 2d 70 72 65 6f 72 64 65 72 2d 6e 65 78 74	(defalias.'treepy--preorder-next
3520	20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 31 5c 32 33 32 5c 32 30 33 09 00 5c 32 30 37	.#[257."\300.!\301\232\203..\207
3540	5c 32 31 31 5c 33 30 32 01 21 5c 32 30 33 16 00 5c 33 30 33 01 21 5c 32 30 36 44 00 5c 33 30 34	\211\302.!\203..\303.!\206D.\304
3560	01 21 5c 32 30 36 44 00 5c 32 31 31 5c 33 30 35 5c 33 30 36 02 21 5c 32 30 33 37 00 5c 33 30 34	.!\206D.\211\305\306.!\2037.\304
3580	5c 33 30 36 03 21 21 5c 32 31 31 5c 32 36 32 02 5c 32 30 34 37 00 5c 33 30 36 02 21 5c 32 36 32	\306.!!\211\262.\2047.\306.!\262
35a0	02 5c 32 30 32 1e 00 5c 32 31 31 5c 32 30 36 42 00 5c 33 30 37 02 21 5c 33 30 31 42 5c 33 30 35	.\202..\211\206B.\307.!\301B\305
35c0	42 5c 32 36 36 5c 32 30 32 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78 74 20	B\266\202\207".[treepy--context.
35e0	3a 65 6e 64 20 74 72 65 65 70 79 2d 62 72 61 6e 63 68 2d 70 20 74 72 65 65 70 79 2d 64 6f 77 6e	:end.treepy-branch-p.treepy-down
3600	20 74 72 65 65 70 79 2d 72 69 67 68 74 20 6e 69 6c 20 74 72 65 65 70 79 2d 75 70 20 74 72 65 65	.treepy-right.nil.treepy-up.tree
3620	70 79 2d 6e 6f 64 65 5d 20 37 20 28 23 24 20 2e 20 31 33 33 37 34 29 5d 29 0a 23 40 31 39 35 20	py-node].7.(#$...13374)]).#@195.
3640	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 65 20 68 69 65 72	Move.to.the.next.LOC.in.the.hier
3660	61 72 63 68 79 2c 20 64 65 70 74 68 2d 66 69 72 73 74 20 69 6e 20 70 6f 73 74 6f 72 64 65 72 2e	archy,.depth-first.in.postorder.
3680	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 75 72 6e 73 20	.When.reaching.the.end,.returns.
36a0	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 62 6c 65 20 76	a.distinguished.loc.detectable.v
36c0	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 61 64 79 20 61	ia.`treepy-end-p'...If.already.a
36e0	74 20 74 68 65 20 65 6e 64 2c 20 73 74 61 79 73 20 74 68 65 72 65 2e 0a 0a 28 66 6e 20 4c 4f 43	t.the.end,.stays.there...(fn.LOC
3700	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 2d 70 6f 73 74 6f 72 64 65 72 2d	)..(defalias.'treepy--postorder-
3720	6e 65 78 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 31 5c 32 33 32 5c 32 30 33 09 00	next.#[257."\300.!\301\232\203..
3740	5c 32 30 37 5c 33 30 32 01 21 5c 32 30 34 17 00 5c 33 30 33 01 21 5c 33 30 31 42 5c 33 30 34 42	\207\302.!\204..\303.!\301B\304B
3760	5c 32 30 37 5c 33 30 35 01 21 5c 32 31 31 5c 32 30 35 21 00 5c 33 30 36 01 21 5c 32 36 32 01 5c	\207\305.!\211\205!.\306.!\262.\
3780	32 30 36 29 00 5c 33 30 32 01 21 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 2d 63 6f 6e 74 65 78	206).\302.!\207".[treepy--contex
37a0	74 20 3a 65 6e 64 20 74 72 65 65 70 79 2d 75 70 20 74 72 65 65 70 79 2d 6e 6f 64 65 20 6e 69 6c	t.:end.treepy-up.treepy-node.nil
37c0	20 74 72 65 65 70 79 2d 72 69 67 68 74 20 74 72 65 65 70 79 2d 6c 65 66 74 6d 6f 73 74 2d 64 65	.treepy-right.treepy-leftmost-de
37e0	73 63 65 6e 64 61 6e 74 5d 20 34 20 28 23 24 20 2e 20 31 33 38 38 38 29 5d 29 0a 23 40 31 38 34	scendant].4.(#$...13888)]).#@184
3800	20 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 65 20 68 69 65	.Move.to.the.next.LOC.in.the.hie
3820	72 61 72 63 68 79 2c 20 64 65 70 74 68 2d 66 69 72 73 74 2e 0a 55 73 65 20 4f 52 44 45 52 20 69	rarchy,.depth-first..Use.ORDER.i
3840	66 20 67 69 76 65 6e 2e 20 20 50 6f 73 73 69 62 6c 65 20 76 61 6c 75 65 73 20 66 6f 72 20 4f 52	f.given...Possible.values.for.OR
3860	44 45 52 20 61 72 65 20 60 3a 70 72 65 6f 72 64 65 72 27 20 61 6e 64 0a 60 3a 70 6f 73 74 6f 72	DER.are.`:preorder'.and.`:postor
3880	64 65 72 27 2c 20 64 65 66 61 75 6c 74 73 20 74 6f 20 74 68 65 20 66 6f 72 6d 65 72 2e 0a 0a 28	der',.defaults.to.the.former...(
38a0	66 6e 20 4c 4f 43 20 26 6f 70 74 69 6f 6e 61 6c 20 4f 52 44 45 52 29 1f 0a 28 64 65 66 61 6c 69	fn.LOC.&optional.ORDER)..(defali
38c0	61 73 20 27 74 72 65 65 70 79 2d 6e 65 78 74 20 23 5b 35 31 33 20 22 5c 32 31 31 5c 32 30 36 05	as.'treepy-next.#[513."\211\206.
38e0	00 5c 33 30 30 5c 33 30 31 01 5c 33 30 32 5c 22 5c 32 30 33 12 00 5c 33 30 33 03 21 5c 32 30 32	.\300\301.\302\"\203..\303.!\202
3900	5c 22 00 5c 33 30 31 01 5c 33 30 34 5c 22 5c 32 30 33 1f 00 5c 33 30 35 03 21 5c 32 30 32 5c 22	\".\301.\304\"\203..\305.!\202\"
3920	00 5c 33 30 36 5c 33 30 37 21 5c 32 30 37 22 20 5b 3a 70 72 65 6f 72 64 65 72 20 6d 65 6d 71 6c	.\306\307!\207".[:preorder.memql
3940	20 27 3a 70 72 65 6f 72 64 65 72 20 74 72 65 65 70 79 2d 2d 70 72 65 6f 72 64 65 72 2d 6e 65 78	.':preorder.treepy--preorder-nex
3960	74 20 27 3a 70 6f 73 74 6f 72 64 65 72 20 74 72 65 65 70 79 2d 2d 70 6f 73 74 6f 72 64 65 72 2d	t.':postorder.treepy--postorder-
3980	6e 65 78 74 20 65 72 72 6f 72 20 22 55 6e 72 65 63 6f 67 6e 69 7a 65 64 20 6f 72 64 65 72 22 5d	next.error."Unrecognized.order"]
39a0	20 36 20 28 23 24 20 2e 20 31 34 33 33 37 29 5d 29 0a 23 40 31 31 33 20 4d 6f 76 65 20 74 6f 20	.6.(#$...14337)]).#@113.Move.to.
39c0	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 61 72 63 68	the.previous.LOC.in.the.hierarch
39e0	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 61 6c 72 65	y,.depth-first.preorder..If.alre
3a00	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 2e 0a 0a 28	ady.at.the.root,.returns.nil...(
3a20	66 6e 20 4c 4f 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 2d 70 72 65 6f	fn.LOC)..(defalias.'treepy--preo
3a40	72 64 65 72 2d 70 72 65 76 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 31 01 5c 32 30 33	rder-prev.#[257."\300.!\301.\203
3a60	23 00 5c 33 30 32 02 21 5c 32 30 35 11 00 5c 33 30 33 02 21 5c 32 31 31 5c 32 36 32 02 5c 32 30	#.\302.!\205..\303.!\211\262.\20
3a80	33 1f 00 5c 33 30 34 01 21 5c 32 36 32 02 5c 32 30 32 08 00 01 5c 32 30 32 26 00 5c 33 30 35 03	3..\304.!\262.\202...\202&.\305.
3aa0	21 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 6c 65 66 74 20 6e 69 6c 20 74 72 65 65 70 79 2d 62	!\207".[treepy-left.nil.treepy-b
3ac0	72 61 6e 63 68 2d 70 20 74 72 65 65 70 79 2d 63 68 69 6c 64 72 65 6e 20 74 72 65 65 70 79 2d 72	ranch-p.treepy-children.treepy-r
3ae0	69 67 68 74 6d 6f 73 74 20 74 72 65 65 70 79 2d 75 70 5d 20 35 20 28 23 24 20 2e 20 31 34 37 37	ightmost.treepy-up].5.(#$...1477
3b00	36 29 5d 29 0a 23 40 31 31 34 20 4d 6f 76 65 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20	6)]).#@114.Move.to.the.previous.
3b20	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 68 2d 66 69 72 73	LOC.in.the.hierarchy,.depth-firs
3b40	74 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	t.postorder..If.already.at.the.r
3b60	6f 6f 74 2c 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e 0a 0a 28 66 6e 20 4c 4f 43 29 1f 0a 28 64 65	oot,.returns.nil...(fn.LOC)..(de
3b80	66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 2d 70 6f 73 74 6f 72 64 65 72 2d 70 72 65 76 20 23	falias.'treepy--postorder-prev.#
3ba0	5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 33 5c 66 00 5c 33 30 31 5c 33 30 32 02 21 21 5c 32	[257."\300.!\203\f.\301\302.!!\2
3bc0	30 37 5c 33 30 33 01 21 5c 32 30 34 1a 00 5c 33 30 34 01 21 5c 32 36 32 01 5c 32 30 32 5c 66 00	07\303.!\204..\304.!\262.\202\f.
3be0	5c 33 30 33 01 21 5c 32 30 37 22 20 5b 74 72 65 65 70 79 2d 62 72 61 6e 63 68 2d 70 20 74 72 65	\303.!\207".[treepy-branch-p.tre
3c00	65 70 79 2d 72 69 67 68 74 6d 6f 73 74 20 74 72 65 65 70 79 2d 64 6f 77 6e 20 74 72 65 65 70 79	epy-rightmost.treepy-down.treepy
3c20	2d 6c 65 66 74 20 74 72 65 65 70 79 2d 75 70 5d 20 34 20 28 23 24 20 2e 20 31 35 31 31 35 29 5d	-left.treepy-up].4.(#$...15115)]
3c40	29 0a 23 40 31 38 38 20 4d 6f 76 65 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 4c 4f 43	).#@188.Move.to.the.previous.LOC
3c60	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 2e 0a	.in.the.hierarchy,.depth-first..
3c80	55 73 65 20 4f 52 44 45 52 20 69 66 20 67 69 76 65 6e 2e 20 20 50 6f 73 73 69 62 6c 65 20 76 61	Use.ORDER.if.given...Possible.va
3ca0	6c 75 65 73 20 66 6f 72 20 4f 52 44 45 52 20 61 72 65 20 60 3a 70 72 65 6f 72 64 65 72 27 20 61	lues.for.ORDER.are.`:preorder'.a
3cc0	6e 64 20 60 3a 70 6f 73 74 6f 72 64 65 72 27 2c 0a 64 65 66 61 75 6c 74 73 20 74 6f 20 74 68 65	nd.`:postorder',.defaults.to.the
3ce0	20 66 6f 72 6d 65 72 2e 0a 0a 28 66 6e 20 4c 4f 43 20 26 6f 70 74 69 6f 6e 61 6c 20 4f 52 44 45	.former...(fn.LOC.&optional.ORDE
3d00	52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 70 72 65 76 20 23 5b 35 31 33	R)..(defalias.'treepy-prev.#[513
3d20	20 22 5c 32 31 31 5c 32 30 36 05 00 5c 33 30 30 5c 33 30 31 01 5c 33 30 32 5c 22 5c 32 30 33 12	."\211\206..\300\301.\302\"\203.
3d40	00 5c 33 30 33 03 21 5c 32 30 32 5c 22 00 5c 33 30 31 01 5c 33 30 34 5c 22 5c 32 30 33 1f 00 5c	.\303.!\202\".\301.\304\"\203..\
3d60	33 30 35 03 21 5c 32 30 32 5c 22 00 5c 33 30 36 5c 33 30 37 21 5c 32 30 37 22 20 5b 3a 70 72 65	305.!\202\".\306\307!\207".[:pre
3d80	6f 72 64 65 72 20 6d 65 6d 71 6c 20 27 3a 70 72 65 6f 72 64 65 72 20 74 72 65 65 70 79 2d 2d 70	order.memql.':preorder.treepy--p
3da0	72 65 6f 72 64 65 72 2d 70 72 65 76 20 27 3a 70 6f 73 74 6f 72 64 65 72 20 74 72 65 65 70 79 2d	reorder-prev.':postorder.treepy-
3dc0	2d 70 6f 73 74 6f 72 64 65 72 2d 70 72 65 76 20 65 72 72 6f 72 20 22 55 6e 72 65 63 6f 67 6e 69	-postorder-prev.error."Unrecogni
3de0	7a 65 64 20 6f 72 64 65 72 22 5d 20 36 20 28 23 24 20 2e 20 31 35 34 33 32 29 5d 29 0a 23 40 36	zed.order"].6.(#$...15432)]).#@6
3e00	39 20 52 65 74 75 72 6e 20 74 20 69 66 20 4c 4f 43 20 72 65 70 72 65 73 65 6e 74 73 20 74 68 65	9.Return.t.if.LOC.represents.the
3e20	20 65 6e 64 20 6f 66 20 61 20 64 65 70 74 68 2d 66 69 72 73 74 20 77 61 6c 6b 2e 0a 0a 28 66 6e	.end.of.a.depth-first.walk...(fn
3e40	20 4c 4f 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 72 65 65 70 79 2d 65 6e 64 2d 70 20 23	.LOC)..(defalias.'treepy-end-p.#
3e60	5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 31 5c 32 33 32 5c 32 30 37 22 20 5b 74 72 65 65 70	[257."\300.!\301\232\207".[treep
3e80	79 2d 2d 63 6f 6e 74 65 78 74 20 3a 65 6e 64 5d 20 33 20 28 23 24 20 2e 20 31 35 38 37 34 29 5d	y--context.:end].3.(#$...15874)]
3ea0	29 0a 28 70 72 6f 76 69 64 65 20 27 74 72 65 65 70 79 29 0a	).(provide.'treepy).