blob: abde63820f934042e5ae48900545e3497fdbffca (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 1c 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 38 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.28.1.;;;.with.all.opt
0040	69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	imizations.....(byte-code."\300\
0060	33 30 31 21 5c 32 31 30 5c 33 30 30 5c 33 30 32 21 5c 32 31 30 5c 33 30 33 5c 33 30 34 5c 33 30	301!\210\300\302!\210\303\304\30
0080	35 5c 33 30 36 23 5c 32 31 30 5c 33 30 33 5c 33 30 34 5c 33 30 37 5c 33 31 30 23 5c 32 30 37 22	5\306#\210\303\304\307\310#\207"
00a0	20 5b 72 65 71 75 69 72 65 20 73 20 64 61 73 68 20 70 75 74 20 66 2d 67 75 61 72 64 2d 65 72 72	.[require.s.dash.put.f-guard-err
00c0	6f 72 20 65 72 72 6f 72 2d 63 6f 6e 64 69 74 69 6f 6e 73 20 28 65 72 72 6f 72 20 66 2d 67 75 61	or.error-conditions.(error.f-gua
00e0	72 64 2d 65 72 72 6f 72 29 20 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 20 22 44 65 73 74 72 75 63	rd-error).error-message."Destruc
0100	74 69 76 65 20 6f 70 65 72 61 74 69 6f 6e 20 6f 75 74 73 69 64 65 20 73 61 6e 64 62 6f 78 22 5d	tive.operation.outside.sandbox"]
0120	20 34 29 0a 23 40 37 37 20 4c 69 73 74 20 6f 66 20 61 6c 6c 6f 77 65 64 20 70 61 74 68 73 20 74	.4).#@77.List.of.allowed.paths.t
0140	6f 20 6d 6f 64 69 66 79 20 77 68 65 6e 20 67 75 61 72 64 65 64 2e 0a 0a 44 6f 20 6e 6f 74 20 6d	o.modify.when.guarded...Do.not.m
0160	6f 64 69 66 79 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 2e 1f 0a 28 64 65 66 76 61 72 20 66 2d	odify.this.variable...(defvar.f-
0180	2d 67 75 61 72 64 2d 70 61 74 68 73 20 6e 69 6c 20 28 23 24 20 2e 20 32 39 37 29 29 0a 23 40 31	-guard-paths.nil.(#$...297)).#@1
01a0	32 33 20 49 66 20 50 41 54 48 20 69 73 20 61 6c 6c 6f 77 65 64 20 74 6f 20 62 65 20 6d 6f 64 69	23.If.PATH.is.allowed.to.be.modi
01c0	66 69 65 64 2c 20 79 69 65 6c 64 20 42 4f 44 59 2e 0a 0a 49 66 20 50 41 54 48 20 69 73 20 6e 6f	fied,.yield.BODY...If.PATH.is.no
01e0	74 20 61 6c 6c 6f 77 65 64 20 74 6f 20 62 65 20 6d 6f 64 69 66 69 65 64 2c 20 74 68 72 6f 77 20	t.allowed.to.be.modified,.throw.
0200	65 72 72 6f 72 2e 0a 0a 28 66 6e 20 50 41 54 48 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64	error...(fn.PATH.&rest.BODY)..(d
0220	65 66 61 6c 69 61 73 20 27 66 2d 2d 64 65 73 74 72 75 63 74 69 76 65 20 27 28 6d 61 63 72 6f 20	efalias.'f--destructive.'(macro.
0240	2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 33 30 33 5c 33 30	..#[385."\300\301\300\302\303\30
0260	34 5c 33 30 35 06 08 45 5c 33 30 36 5c 33 30 35 06 09 45 45 5c 33 30 37 42 42 5c 33 31 30 05 42	4\305..E\306\305..EE\307BB\310.B
0280	5c 33 31 31 5c 33 31 32 5c 33 31 33 06 09 5c 33 31 34 42 42 45 46 03 42 42 42 5c 32 30 37 22 20	\311\312\313..\314BBEF.BBB\207".
02a0	5b 69 66 20 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20 2d 2d 61 6e 79 5c 3f 20 6f 72 20 66 2d	[if.f--guard-paths.--any\?.or.f-
02c0	73 61 6d 65 5c 3f 20 69 74 20 66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66 5c 3f 20 28 66 2d 2d 67 75	same\?.it.f-ancestor-of\?.(f--gu
02e0	61 72 64 2d 70 61 74 68 73 29 20 70 72 6f 67 6e 20 73 69 67 6e 61 6c 20 27 66 2d 67 75 61 72 64	ard-paths).progn.signal.'f-guard
0300	2d 65 72 72 6f 72 20 6c 69 73 74 20 28 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73 29 5d 20 31 32	-error.list.(f--guard-paths)].12
0320	20 28 23 24 20 2e 20 34 31 39 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	.(#$...419)])).(byte-code."\300\
0340	33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d	301\302\303#\300\207".[function-
0360	70 75 74 20 66 2d 2d 64 65 73 74 72 75 63 74 69 76 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66	put.f--destructive.lisp-indent-f
0380	75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 34 36 20 4a 6f 69 6e 20 41 52 47 53 20 74 6f 20	unction.1].4).#@46.Join.ARGS.to.
03a0	61 20 73 69 6e 67 6c 65 20 70 61 74 68 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 41 52 47 53 29 1f	a.single.path...(fn.&rest.ARGS).
03c0	0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 6a 6f 69 6e 20 23 5b 31 32 38 20 22 5c 33 30 30 43 5c	.(defalias.'f-join.#[128."\300C\
03e0	33 30 31 02 40 21 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 5c 22 04 5c 22 5c 32 31 30 5c 32 31 31	301.@!\302\303\304.\".\"\210\211
0400	5c 32 30 33 17 00 5c 33 30 35 02 5c 32 34 32 21 5c 32 30 37 01 5c 32 34 32 5c 32 30 37 22 20 5b	\203..\305.\242!\207.\242\207".[
0420	6e 69 6c 20 66 2d 72 65 6c 61 74 69 76 65 5c 3f 20 2d 6d 61 70 20 6d 61 6b 65 2d 63 6c 6f 73 75	nil.f-relative\?.-map.make-closu
0440	72 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 33 30 30 5c 32 34 32 5c 22 5c 32 34	re.#[257."\300\301.\300\242\"\24
0460	30 5c 32 30 37 22 20 5b 56 30 20 66 2d 65 78 70 61 6e 64 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20	0\207".[V0.f-expand].5."\n\n(fn.
0480	41 52 47 29 22 5d 20 66 2d 72 65 6c 61 74 69 76 65 5d 20 37 20 28 23 24 20 2e 20 39 31 35 29 5d	ARG)"].f-relative].7.(#$...915)]
04a0	29 0a 23 40 35 37 20 53 70 6c 69 74 20 50 41 54 48 20 61 6e 64 20 72 65 74 75 72 6e 20 6c 69 73	).#@57.Split.PATH.and.return.lis
04c0	74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 70 61 72 74 73 2e 0a 0a 28 66 6e 20 50 41 54 48 29 1f 0a	t.containing.parts...(fn.PATH)..
04e0	28 64 65 66 61 6c 69 61 73 20 27 66 2d 73 70 6c 69 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33	(defalias.'f-split.#[257."\300\3
0500	30 31 20 02 5c 33 30 32 23 5c 33 30 33 02 21 5c 32 30 33 14 00 5c 33 30 31 20 01 42 5c 32 31 31	01..\302#\303.!\203..\301..B\211
0520	5c 32 36 32 02 5c 32 30 37 5c 32 30 37 22 20 5b 73 2d 73 70 6c 69 74 20 66 2d 70 61 74 68 2d 73	\262.\207\207".[s-split.f-path-s
0540	65 70 61 72 61 74 6f 72 20 6f 6d 69 74 2d 6e 75 6c 6c 73 20 66 2d 61 62 73 6f 6c 75 74 65 5c 3f	eparator.omit-nulls.f-absolute\?
0560	5d 20 35 20 28 23 24 20 2e 20 31 31 39 31 29 5d 29 0a 23 40 32 37 34 20 45 78 70 61 6e 64 20 50	].5.(#$...1191)]).#@274.Expand.P
0580	41 54 48 20 72 65 6c 61 74 69 76 65 20 74 6f 20 44 49 52 20 28 6f 72 20 60 64 65 66 61 75 6c 74	ATH.relative.to.DIR.(or.`default
05a0	2d 64 69 72 65 63 74 6f 72 79 27 29 2e 0a 50 41 54 48 20 61 6e 64 20 44 49 52 20 63 61 6e 20 62	-directory')..PATH.and.DIR.can.b
05c0	65 20 65 69 74 68 65 72 20 61 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 73 20 6f 72 20 64 69	e.either.a.directory.names.or.di
05e0	72 65 63 74 6f 72 79 20 66 69 6c 65 0a 6e 61 6d 65 73 2e 20 20 52 65 74 75 72 6e 20 61 20 64 69	rectory.file.names...Return.a.di
0600	72 65 63 74 6f 72 79 20 6e 61 6d 65 20 69 66 20 50 41 54 48 20 69 73 20 61 20 64 69 72 65 63 74	rectory.name.if.PATH.is.a.direct
0620	6f 72 79 20 6e 61 6d 65 2c 20 61 6e 64 0a 61 20 64 69 72 65 63 74 6f 72 79 20 66 69 6c 65 20 6e	ory.name,.and.a.directory.file.n
0640	61 6d 65 20 6f 74 68 65 72 77 69 73 65 2e 20 20 46 69 6c 65 20 6e 61 6d 65 20 68 61 6e 64 6c 65	ame.otherwise...File.name.handle
0660	72 73 20 61 72 65 0a 69 67 6e 6f 72 65 64 2e 0a 0a 28 66 6e 20 50 41 54 48 20 26 6f 70 74 69 6f	rs.are.ignored...(fn.PATH.&optio
0680	6e 61 6c 20 44 49 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 65 78 70 61 6e 64 20 23 5b	nal.DIR)..(defalias.'f-expand.#[
06a0	35 31 33 20 22 5c 33 30 31 18 5c 33 30 32 02 02 5c 22 29 5c 32 30 37 22 20 5b 66 69 6c 65 2d 6e	513."\301.\302..\")\207".[file-n
06c0	61 6d 65 2d 68 61 6e 64 6c 65 72 2d 61 6c 69 73 74 20 6e 69 6c 20 65 78 70 61 6e 64 2d 66 69 6c	ame-handler-alist.nil.expand-fil
06e0	65 2d 6e 61 6d 65 5d 20 35 20 28 23 24 20 2e 20 31 34 30 30 29 5d 29 0a 23 40 33 37 20 52 65 74	e-name].5.(#$...1400)]).#@37.Ret
0700	75 72 6e 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 50 41 54 48 2e 0a 0a 28 66 6e 20 50 41 54 48 29	urn.the.name.of.PATH...(fn.PATH)
0720	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 66 69 6c 65 6e 61 6d 65 20 23 5b 32 35 37 20 22 5c	..(defalias.'f-filename.#[257."\
0740	33 30 30 5c 33 30 31 02 21 21 5c 32 30 37 22 20 5b 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69	300\301.!!\207".[file-name-nondi
0760	72 65 63 74 6f 72 79 20 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 5d 20 34 20 28	rectory.directory-file-name].4.(
0780	23 24 20 2e 20 31 37 38 39 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 70 61 72 65 6e 74	#$...1789)]).(defalias.'f-parent
07a0	20 27 66 2d 64 69 72 6e 61 6d 65 29 0a 23 40 34 39 20 52 65 74 75 72 6e 20 74 68 65 20 70 61 72	.'f-dirname).#@49.Return.the.par
07c0	65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 74 6f 20 50 41 54 48 2e 0a 0a 28 66 6e 20 50 41 54 48	ent.directory.to.PATH...(fn.PATH
07e0	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 64 69 72 6e 61 6d 65 20 23 5b 32 35 37 20 22 5c	)..(defalias.'f-dirname.#[257."\
0800	33 30 31 5c 33 30 32 5c 33 30 33 03 08 5c 22 21 21 5c 33 30 34 02 02 5c 22 3f 5c 32 30 35 1d 00	301\302\303..\"!!\304..\"?\205..
0820	5c 33 30 35 02 21 5c 32 30 33 1a 00 5c 33 30 36 01 21 5c 32 30 37 5c 33 30 32 01 21 5c 32 30 37	\305.!\203..\306.!\207\302.!\207
0840	22 20 5b 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 66 69 6c 65 2d 6e 61 6d 65 2d 64	".[default-directory.file-name-d
0860	69 72 65 63 74 6f 72 79 20 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 2d 65	irectory.directory-file-name.f-e
0880	78 70 61 6e 64 20 66 2d 73 61 6d 65 5c 3f 20 66 2d 72 65 6c 61 74 69 76 65 5c 3f 20 66 2d 72 65	xpand.f-same\?.f-relative\?.f-re
08a0	6c 61 74 69 76 65 5d 20 36 20 28 23 24 20 2e 20 31 39 37 30 29 5d 29 0a 23 40 36 36 20 52 65 74	lative].6.(#$...1970)]).#@66.Ret
08c0	75 72 6e 20 74 68 65 20 64 65 65 70 65 73 74 20 63 6f 6d 6d 6f 6e 20 70 61 72 65 6e 74 20 64 69	urn.the.deepest.common.parent.di
08e0	72 65 63 74 6f 72 79 20 6f 66 20 50 41 54 48 53 2e 0a 0a 28 66 6e 20 50 41 54 48 53 29 1f 0a 28	rectory.of.PATHS...(fn.PATHS)..(
0900	64 65 66 61 6c 69 61 73 20 27 66 2d 63 6f 6d 6d 6f 6e 2d 70 61 72 65 6e 74 20 23 5b 32 35 37 20	defalias.'f-common-parent.#[257.
0920	22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 32 31 31 41 5c 32 30 34 10 00 5c 33	"\211\204..\300\207\211A\204..\3
0940	30 31 01 40 21 5c 32 30 37 5c 33 30 32 5c 33 30 33 02 5c 22 5c 32 31 31 40 40 5c 33 30 30 02 40	01.@!\207\302\303.\"\211@@\300.@
0960	5c 32 30 33 6c 00 5c 33 30 34 03 5c 33 30 35 5c 33 30 30 5c 32 31 31 5c 32 31 31 04 5c 32 30 33	\203l.\304.\305\300\211\211.\203
0980	51 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31	Q..\211A\262.\242\262..\262..\21
09a0	31 5c 32 36 32 02 5c 32 30 33 51 00 01 40 06 08 5c 32 33 32 5c 32 31 31 5c 32 36 32 07 5c 32 30	1\262.\203Q..@..\232\211\262.\20
09c0	33 51 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 30 32 23 00 5c 32 36 36	3Q..\262..\262..T\262.\202#.\266
09e0	05 5c 32 31 31 5c 32 36 32 01 5c 32 30 33 6c 00 5c 33 30 32 5c 33 30 36 04 5c 22 5c 32 36 32 03	.\211\262.\203l.\302\306.\"\262.
0a00	01 01 42 5c 32 36 32 01 02 40 40 5c 32 36 32 02 5c 32 30 32 18 00 5c 32 31 31 5c 32 30 34 74 00	..B\262..@@\262.\202..\211\204t.
0a20	5c 32 36 36 03 5c 33 30 37 5c 32 30 37 5c 32 31 31 47 5c 33 31 30 55 5c 32 30 33 5c 32 30 35 00	\266.\307\207\211G\310U\203\205.
0a40	5c 33 31 31 01 40 21 5c 32 30 33 5c 32 30 35 00 5c 33 31 32 20 5c 32 30 37 5c 33 31 33 5c 33 31	\311.@!\203\205.\312.\207\313\31
0a60	34 02 5c 32 33 37 5c 22 5c 33 31 35 50 5c 32 30 37 22 20 5b 6e 69 6c 20 66 2d 70 61 72 65 6e 74	4.\237\"\315P\207".[nil.f-parent
0a80	20 2d 6d 61 70 20 66 2d 73 70 6c 69 74 20 74 20 30 20 63 64 72 20 22 22 20 31 20 66 2d 72 6f 6f	.-map.f-split.t.0.cdr."".1.f-roo
0aa0	74 5c 3f 20 66 2d 72 6f 6f 74 20 61 70 70 6c 79 20 66 2d 6a 6f 69 6e 20 22 2f 22 5d 20 31 32 20	t\?.f-root.apply.f-join."/"].12.
0ac0	28 23 24 20 2e 20 32 32 33 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	(#$...2237)]).(byte-code."\300\3
0ae0	30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20	01\302\"\210\300\303\304\"\207".
0b00	5b 64 65 66 61 6c 69 61 73 20 66 2d 65 78 74 20 66 69 6c 65 2d 6e 61 6d 65 2d 65 78 74 65 6e 73	[defalias.f-ext.file-name-extens
0b20	69 6f 6e 20 66 2d 6e 6f 2d 65 78 74 20 66 69 6c 65 2d 6e 61 6d 65 2d 73 61 6e 73 2d 65 78 74 65	ion.f-no-ext.file-name-sans-exte
0b40	6e 73 69 6f 6e 5d 20 33 29 0a 23 40 39 33 20 52 65 74 75 72 6e 20 50 41 54 48 20 62 75 74 20 77	nsion].3).#@93.Return.PATH.but.w
0b60	69 74 68 20 45 58 54 20 61 73 20 74 68 65 20 6e 65 77 20 65 78 74 65 6e 73 69 6f 6e 2e 0a 45 58	ith.EXT.as.the.new.extension..EX
0b80	54 20 6d 75 73 74 20 6e 6f 74 20 62 65 20 6e 69 6c 20 6f 72 20 65 6d 70 74 79 2e 0a 0a 28 66 6e	T.must.not.be.nil.or.empty...(fn
0ba0	20 50 41 54 48 20 45 58 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 73 77 61 70 2d 65 78	.PATH.EXT)..(defalias.'f-swap-ex
0bc0	74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 21 5c 32 30 33 5c 6e 00 5c 33 30 31 5c 33 30 32 21 5c	t.#[514."\300.!\203\n.\301\302!\
0be0	32 30 37 5c 33 30 33 02 21 5c 33 30 34 02 51 5c 32 30 37 22 20 5b 73 2d 62 6c 61 6e 6b 5c 3f 20	207\303.!\304.Q\207".[s-blank\?.
0c00	65 72 72 6f 72 20 22 45 78 74 65 6e 73 69 6f 6e 20 63 61 6e 6e 6f 74 20 62 65 20 65 6d 70 74 79	error."Extension.cannot.be.empty
0c20	20 6f 72 20 6e 69 6c 22 20 66 2d 6e 6f 2d 65 78 74 20 22 2e 22 5d 20 35 20 28 23 24 20 2e 20 32	.or.nil".f-no-ext."."].5.(#$...2
0c40	38 39 35 29 5d 29 0a 23 40 37 30 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 50	895)]).#@70.Return.the.name.of.P
0c60	41 54 48 2c 20 65 78 63 6c 75 64 69 6e 67 20 74 68 65 20 65 78 74 65 6e 73 69 6f 6e 20 6f 66 20	ATH,.excluding.the.extension.of.
0c80	66 69 6c 65 2e 0a 0a 28 66 6e 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 62	file...(fn.PATH)..(defalias.'f-b
0ca0	61 73 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 21 21 5c 32 30 37 22 20 5b 66 2d 6e	ase.#[257."\300\301.!!\207".[f-n
0cc0	6f 2d 65 78 74 20 66 2d 66 69 6c 65 6e 61 6d 65 5d 20 34 20 28 23 24 20 2e 20 33 31 34 38 29 5d	o-ext.f-filename].4.(#$...3148)]
0ce0	29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30	).(byte-code."\300\301\302\"\210
0d00	5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 35 5c 33 30 34 5c 22	\300\303\304\"\210\300\305\304\"
0d20	5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 66 2d 72 65 6c 61 74 69 76 65 20 66 69 6c 65 2d	\207".[defalias.f-relative.file-
0d40	72 65 6c 61 74 69 76 65 2d 6e 61 6d 65 20 66 2d 73 68 6f 72 74 20 61 62 62 72 65 76 69 61 74 65	relative-name.f-short.abbreviate
0d60	2d 66 69 6c 65 2d 6e 61 6d 65 20 66 2d 61 62 62 72 65 76 5d 20 33 29 0a 23 40 34 31 20 52 65 74	-file-name.f-abbrev].3).#@41.Ret
0d80	75 72 6e 20 6c 6f 6e 67 20 76 65 72 73 69 6f 6e 20 6f 66 20 50 41 54 48 2e 0a 0a 28 66 6e 20 50	urn.long.version.of.PATH...(fn.P
0da0	41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 6c 6f 6e 67 20 23 5b 32 35 37 20 22 5c	ATH)..(defalias.'f-long.#[257."\
0dc0	33 30 30 01 21 5c 32 30 37 22 20 5b 66 2d 65 78 70 61 6e 64 5d 20 33 20 28 23 24 20 2e 20 33 34	300.!\207".[f-expand].3.(#$...34
0de0	35 33 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 63 61 6e 6f 6e 69 63 61 6c 20 27 66 69	53)]).(defalias.'f-canonical.'fi
0e00	6c 65 2d 74 72 75 65 6e 61 6d 65 29 0a 23 40 31 33 31 20 41 70 70 65 6e 64 20 73 6c 61 73 68 20	le-truename).#@131.Append.slash.
0e20	74 6f 20 50 41 54 48 20 75 6e 6c 65 73 73 20 6f 6e 65 20 61 6c 72 65 61 64 79 2e 0a 0a 53 6f 6d	to.PATH.unless.one.already...Som
0e40	65 20 66 75 6e 63 74 69 6f 6e 73 2c 20 73 75 63 68 20 61 73 20 60 63 61 6c 6c 2d 70 72 6f 63 65	e.functions,.such.as.`call-proce
0e60	73 73 27 20 72 65 71 75 69 72 65 73 20 74 68 65 72 65 20 74 6f 20 62 65 20 61 6e 0a 65 6e 64 69	ss'.requires.there.to.be.an.endi
0e80	6e 67 20 73 6c 61 73 68 2e 0a 0a 28 66 6e 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	ng.slash...(fn.PATH)..(defalias.
0ea0	27 66 2d 73 6c 61 73 68 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 33 5c 6e 00 5c 33 30	'f-slash.#[257."\300.!\203\n.\30
0ec0	31 01 21 5c 32 30 37 5c 32 30 37 22 20 5b 66 2d 64 69 72 5c 3f 20 66 69 6c 65 2d 6e 61 6d 65 2d	1.!\207\207".[f-dir\?.file-name-
0ee0	61 73 2d 64 69 72 65 63 74 6f 72 79 5d 20 33 20 28 23 24 20 2e 20 33 36 30 33 29 5d 29 0a 23 40	as-directory].3.(#$...3603)]).#@
0f00	36 31 20 52 65 74 75 72 6e 20 61 62 73 6f 6c 75 74 65 20 70 61 74 68 20 74 6f 20 50 41 54 48 2c	61.Return.absolute.path.to.PATH,
0f20	20 77 69 74 68 20 65 6e 64 69 6e 67 20 73 6c 61 73 68 2e 0a 0a 28 66 6e 20 50 41 54 48 29 1f 0a	.with.ending.slash...(fn.PATH)..
0f40	28 64 65 66 61 6c 69 61 73 20 27 66 2d 66 75 6c 6c 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30	(defalias.'f-full.#[257."\300\30
0f60	31 02 21 21 5c 32 30 37 22 20 5b 66 2d 73 6c 61 73 68 20 66 2d 6c 6f 6e 67 5d 20 34 20 28 23 24	1.!!\207".[f-slash.f-long].4.(#$
0f80	20 2e 20 33 38 34 33 29 5d 29 0a 23 40 36 31 20 48 65 6c 70 65 72 20 66 6f 72 20 60 66 2d 75 6e	...3843)]).#@61.Helper.for.`f-un
0fa0	69 71 75 69 66 79 27 20 61 6e 64 20 60 66 2d 75 6e 69 71 75 69 66 79 2d 61 6c 69 73 74 27 2e 0a	iquify'.and.`f-uniquify-alist'..
0fc0	0a 28 66 6e 20 50 41 54 48 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 2d 75 6e 69 71 75	.(fn.PATHS)..(defalias.'f--uniqu
0fe0	69 66 79 20 23 5b 32 35 37 20 22 5c 32 31 31 47 5c 33 30 30 5c 33 30 31 03 5c 22 5c 33 30 32 5c	ify.#[257."\211G\300\301.\"\302\
1000	33 30 33 02 5c 22 02 01 47 55 5c 32 30 34 21 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35	303.\"..GU\204!.\302\303\304\305
1020	5c 33 30 30 5c 33 30 36 06 06 5c 22 5c 22 5c 22 5c 32 36 32 01 5c 32 30 32 5c 6e 00 5c 32 30 37	\300\306..\"\"\"\262.\202\n.\207
1040	22 20 5b 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 30 02 21 42 5c 32 30 37	".[mapcar.#[257."\211\300.!B\207
1060	22 20 5b 66 2d 66 69 6c 65 6e 61 6d 65 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20	".[f-filename].4."\n\n(fn.IT)"].
1080	2d 67 72 6f 75 70 2d 62 79 20 63 64 72 20 61 70 70 6c 79 20 61 70 70 65 6e 64 20 23 5b 32 35 37	-group-by.cdr.apply.append.#[257
10a0	20 22 5c 32 31 31 41 5c 32 31 31 47 5c 33 30 30 56 5c 32 30 33 0e 00 5c 33 30 31 5c 33 30 32 02	."\211A\211G\300V\203..\301\302.
10c0	5c 22 5c 32 30 37 5c 32 30 37 22 20 5b 31 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 32 31	\"\207\207".[1.mapcar.#[257."\21
10e0	31 40 5c 33 30 30 5c 33 30 31 03 41 04 40 5c 22 21 5c 33 30 32 20 03 41 51 42 5c 32 30 37 22 20	1@\300\301.A.@\"!\302..AQB\207".
1100	5b 66 2d 66 69 6c 65 6e 61 6d 65 20 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 20 66 2d 70 61 74 68	[f-filename.s-chop-suffix.f-path
1120	2d 73 65 70 61 72 61 74 6f 72 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 35 20	-separator].6."\n\n(fn.IT)"]].5.
1140	22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 31 31 20 28 23 24 20 2e 20 33 39 38 34 29 5d 29	"\n\n(fn.IT)"]].11.(#$...3984)])
1160	0a 23 40 38 39 20 52 65 74 75 72 6e 20 75 6e 69 71 75 65 20 73 75 66 66 69 78 65 73 20 6f 66 20	.#@89.Return.unique.suffixes.of.
1180	46 49 4c 45 53 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 65 78 70 65 63 74 73 20 6e 6f	FILES...This.function.expects.no
11a0	20 64 75 70 6c 69 63 61 74 65 20 70 61 74 68 73 2e 0a 0a 28 66 6e 20 46 49 4c 45 53 29 1f 0a 28	.duplicate.paths...(fn.FILES)..(
11c0	64 65 66 61 6c 69 61 73 20 27 66 2d 75 6e 69 71 75 69 66 79 20 23 5b 32 35 37 20 22 5c 33 30 30	defalias.'f-uniquify.#[257."\300
11e0	5c 33 30 31 5c 33 30 32 03 21 5c 22 5c 32 30 37 22 20 5b 2d 6d 61 70 20 63 61 72 20 66 2d 2d 75	\301\302.!\"\207".[-map.car.f--u
1200	6e 69 71 75 69 66 79 5d 20 35 20 28 23 24 20 2e 20 34 34 35 34 29 5d 29 0a 23 40 31 31 32 20 52	niquify].5.(#$...4454)]).#@112.R
1220	65 74 75 72 6e 20 61 6c 69 73 74 20 6d 61 70 70 69 6e 67 20 46 49 4c 45 53 20 74 6f 20 75 6e 69	eturn.alist.mapping.FILES.to.uni
1240	71 75 65 20 73 75 66 66 69 78 65 73 20 6f 66 20 46 49 4c 45 53 2e 0a 0a 54 68 69 73 20 66 75 6e	que.suffixes.of.FILES...This.fun
1260	63 74 69 6f 6e 20 65 78 70 65 63 74 73 20 6e 6f 20 64 75 70 6c 69 63 61 74 65 20 70 61 74 68 73	ction.expects.no.duplicate.paths
1280	2e 0a 0a 28 66 6e 20 46 49 4c 45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 75 6e 69 71	...(fn.FILES)..(defalias.'f-uniq
12a0	75 69 66 79 2d 61 6c 69 73 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 21	uify-alist.#[257."\300\301\302.!
12c0	5c 22 5c 32 30 37 22 20 5b 2d 6d 61 70 20 63 61 64 72 20 66 2d 2d 75 6e 69 71 75 69 66 79 5d 20	\"\207".[-map.cadr.f--uniquify].
12e0	35 20 28 23 24 20 2e 20 34 36 33 39 29 5d 29 0a 23 40 31 39 35 20 52 65 61 64 20 62 69 6e 61 72	5.(#$...4639)]).#@195.Read.binar
1300	79 20 64 61 74 61 20 66 72 6f 6d 20 50 41 54 48 2e 0a 0a 52 65 74 75 72 6e 20 74 68 65 20 62 69	y.data.from.PATH...Return.the.bi
1320	6e 61 72 79 20 64 61 74 61 20 61 73 20 75 6e 69 62 79 74 65 20 73 74 72 69 6e 67 2e 20 54 68 65	nary.data.as.unibyte.string..The
1340	20 6f 70 74 69 6f 6e 61 6c 20 73 65 63 6f 6e 64 20 61 6e 64 0a 74 68 69 72 64 20 61 72 67 75 6d	.optional.second.and.third.argum
1360	65 6e 74 73 20 42 45 47 20 61 6e 64 20 45 4e 44 20 73 70 65 63 69 66 79 20 77 68 61 74 20 70 6f	ents.BEG.and.END.specify.what.po
1380	72 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 69 6c 65 20 74 6f 0a 72 65 61 64 2e 0a 0a 28 66 6e 20	rtion.of.the.file.to.read...(fn.
13a0	50 41 54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 42 45 47 20 45 4e 44 29 1f 0a 28 64 65 66 61 6c 69	PATH.&optional.BEG.END)..(defali
13c0	61 73 20 27 66 2d 72 65 61 64 2d 62 79 74 65 73 20 23 5b 37 36 39 20 22 5c 33 30 31 5c 33 30 32	as.'f-read-bytes.#[769."\301\302
13e0	5c 33 30 33 5c 22 72 5c 32 31 31 71 5c 32 31 30 5c 33 30 34 5c 33 30 35 02 5c 22 5c 32 31 36 5c	\303\"r\211q\210\304\305.\"\216\
1400	33 30 36 5c 33 30 37 21 5c 32 31 30 5c 33 31 30 10 5c 33 31 31 04 5c 33 30 37 05 05 24 5c 32 31	306\307!\210\310.\311.\307..$\21
1420	30 5c 33 31 32 65 64 5c 22 2a 5c 32 30 37 22 20 5b 62 75 66 66 65 72 2d 66 69 6c 65 2d 63 6f 64	0\312ed\"*\207".[buffer-file-cod
1440	69 6e 67 2d 73 79 73 74 65 6d 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22	ing-system.generate-new-buffer."
1460	20 2a 74 65 6d 70 2a 22 20 74 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 30 20 22 5c 33 30	.*temp*".t.make-closure.#[0."\30
1480	31 5c 33 30 30 21 5c 32 30 35 09 00 5c 33 30 32 5c 33 30 30 21 5c 32 30 37 22 20 5b 56 30 20 62	1\300!\205..\302\300!\207".[V0.b
14a0	75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 32 5d 20 73 65 74 2d 62	uffer-name.kill-buffer].2].set-b
14c0	75 66 66 65 72 2d 6d 75 6c 74 69 62 79 74 65 20 6e 69 6c 20 62 69 6e 61 72 79 20 69 6e 73 65 72	uffer-multibyte.nil.binary.inser
14e0	74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 2d 6c 69 74 65 72 61 6c 6c 79 20 62 75 66 66 65 72	t-file-contents-literally.buffer
1500	2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 5d 20 39 20 28 23 24 20	-substring-no-properties].9.(#$.
1520	2e 20 34 38 35 34 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 72 65 61 64 20 27 66 2d 72	..4854)]).(defalias.'f-read.'f-r
1540	65 61 64 2d 74 65 78 74 29 0a 23 40 31 33 39 20 52 65 61 64 20 74 65 78 74 20 77 69 74 68 20 50	ead-text).#@139.Read.text.with.P
1560	41 54 48 2c 20 75 73 69 6e 67 20 43 4f 44 49 4e 47 2e 0a 0a 43 4f 44 49 4e 47 20 64 65 66 61 75	ATH,.using.CODING...CODING.defau
1580	6c 74 73 20 74 6f 20 60 75 74 66 2d 38 27 2e 0a 0a 52 65 74 75 72 6e 20 74 68 65 20 64 65 63 6f	lts.to.`utf-8'...Return.the.deco
15a0	64 65 64 20 74 65 78 74 20 61 73 20 6d 75 6c 74 69 62 79 74 65 20 73 74 72 69 6e 67 2e 0a 0a 28	ded.text.as.multibyte.string...(
15c0	66 6e 20 50 41 54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 43 4f 44 49 4e 47 29 1f 0a 28 64 65 66 61	fn.PATH.&optional.CODING)..(defa
15e0	6c 69 61 73 20 27 66 2d 72 65 61 64 2d 74 65 78 74 20 23 5b 35 31 33 20 22 5c 33 30 30 5c 33 30	lias.'f-read-text.#[513."\300\30
1600	31 03 21 02 5c 32 30 36 09 00 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 64 65 63 6f 64 65 2d 63 6f	1.!.\206..\302\"\207".[decode-co
1620	64 69 6e 67 2d 73 74 72 69 6e 67 20 66 2d 72 65 61 64 2d 62 79 74 65 73 20 75 74 66 2d 38 5d 20	ding-string.f-read-bytes.utf-8].
1640	35 20 28 23 24 20 2e 20 35 34 35 36 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 77 72 69	5.(#$...5456)]).(defalias.'f-wri
1660	74 65 20 27 66 2d 77 72 69 74 65 2d 74 65 78 74 29 0a 23 40 31 36 37 20 57 72 69 74 65 20 54 45	te.'f-write-text).#@167.Write.TE
1680	58 54 20 77 69 74 68 20 43 4f 44 49 4e 47 20 74 6f 20 50 41 54 48 2e 0a 0a 54 45 58 54 20 69 73	XT.with.CODING.to.PATH...TEXT.is
16a0	20 61 20 6d 75 6c 74 69 62 79 74 65 20 73 74 72 69 6e 67 2e 20 20 43 4f 44 49 4e 47 20 69 73 20	.a.multibyte.string...CODING.is.
16c0	61 20 63 6f 64 69 6e 67 20 73 79 73 74 65 6d 20 74 6f 20 65 6e 63 6f 64 65 0a 54 45 58 54 20 77	a.coding.system.to.encode.TEXT.w
16e0	69 74 68 2e 20 20 50 41 54 48 20 69 73 20 61 20 66 69 6c 65 20 6e 61 6d 65 20 74 6f 20 77 72 69	ith...PATH.is.a.file.name.to.wri
1700	74 65 20 74 6f 2e 0a 0a 28 66 6e 20 54 45 58 54 20 43 4f 44 49 4e 47 20 50 41 54 48 29 1f 0a 28	te.to...(fn.TEXT.CODING.PATH)..(
1720	64 65 66 61 6c 69 61 73 20 27 66 2d 77 72 69 74 65 2d 74 65 78 74 20 23 5b 37 37 31 20 22 5c 33	defalias.'f-write-text.#[771."\3
1740	30 30 5c 33 30 31 04 04 5c 22 02 5c 22 5c 32 30 37 22 20 5b 66 2d 77 72 69 74 65 2d 62 79 74 65	00\301..\".\"\207".[f-write-byte
1760	73 20 65 6e 63 6f 64 65 2d 63 6f 64 69 6e 67 2d 73 74 72 69 6e 67 5d 20 37 20 28 23 24 20 2e 20	s.encode-coding-string].7.(#$...
1780	35 37 35 32 29 5d 29 0a 23 40 35 30 20 44 65 74 65 72 6d 69 6e 65 20 77 68 65 74 68 65 72 20 53	5752)]).#@50.Determine.whether.S
17a0	20 69 73 20 61 20 75 6e 69 62 79 74 65 20 73 74 72 69 6e 67 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28	.is.a.unibyte.string...(fn.S)..(
17c0	64 65 66 61 6c 69 61 73 20 27 66 2d 75 6e 69 62 79 74 65 2d 73 74 72 69 6e 67 2d 70 20 23 5b 32	defalias.'f-unibyte-string-p.#[2
17e0	35 37 20 22 5c 33 30 30 01 21 3f 5c 32 30 37 22 20 5b 6d 75 6c 74 69 62 79 74 65 2d 73 74 72 69	57."\300.!?\207".[multibyte-stri
1800	6e 67 2d 70 5d 20 33 20 28 23 24 20 2e 20 36 30 32 39 29 5d 29 0a 23 40 31 30 35 20 57 72 69 74	ng-p].3.(#$...6029)]).#@105.Writ
1820	65 20 62 69 6e 61 72 79 20 44 41 54 41 20 74 6f 20 50 41 54 48 2e 0a 0a 44 41 54 41 20 69 73 20	e.binary.DATA.to.PATH...DATA.is.
1840	61 20 75 6e 69 62 79 74 65 20 73 74 72 69 6e 67 2e 20 20 50 41 54 48 20 69 73 20 61 20 66 69 6c	a.unibyte.string...PATH.is.a.fil
1860	65 20 6e 61 6d 65 20 74 6f 20 77 72 69 74 65 20 74 6f 2e 0a 0a 28 66 6e 20 44 41 54 41 20 50 41	e.name.to.write.to...(fn.DATA.PA
1880	54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 77 72 69 74 65 2d 62 79 74 65 73 20 23 5b	TH)..(defalias.'f-write-bytes.#[
18a0	35 31 34 20 22 5c 33 30 30 02 02 5c 33 30 31 23 5c 32 30 37 22 20 5b 66 2d 2d 77 72 69 74 65 2d	514."\300..\301#\207".[f--write-
18c0	62 79 74 65 73 20 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 36 31 37 32 29 5d 29 0a 28 64 65 66 61	bytes.nil].6.(#$...6172)]).(defa
18e0	6c 69 61 73 20 27 66 2d 61 70 70 65 6e 64 20 27 66 2d 61 70 70 65 6e 64 2d 74 65 78 74 29 0a 23	lias.'f-append.'f-append-text).#
1900	40 39 37 20 41 70 70 65 6e 64 20 54 45 58 54 20 77 69 74 68 20 43 4f 44 49 4e 47 20 74 6f 20 50	@97.Append.TEXT.with.CODING.to.P
1920	41 54 48 2e 0a 0a 49 66 20 50 41 54 48 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2c 20 69 74	ATH...If.PATH.does.not.exist,.it
1940	20 69 73 20 63 72 65 61 74 65 64 2e 0a 0a 28 66 6e 20 54 45 58 54 20 43 4f 44 49 4e 47 20 50 41	.is.created...(fn.TEXT.CODING.PA
1960	54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 61 70 70 65 6e 64 2d 74 65 78 74 20 23 5b	TH)..(defalias.'f-append-text.#[
1980	37 37 31 20 22 5c 33 30 30 5c 33 30 31 04 04 5c 22 02 5c 22 5c 32 30 37 22 20 5b 66 2d 61 70 70	771."\300\301..\".\"\207".[f-app
19a0	65 6e 64 2d 62 79 74 65 73 20 65 6e 63 6f 64 65 2d 63 6f 64 69 6e 67 2d 73 74 72 69 6e 67 5d 20	end-bytes.encode-coding-string].
19c0	37 20 28 23 24 20 2e 20 36 34 30 34 29 5d 29 0a 23 40 38 35 20 41 70 70 65 6e 64 20 62 69 6e 61	7.(#$...6404)]).#@85.Append.bina
19e0	72 79 20 44 41 54 41 20 74 6f 20 50 41 54 48 2e 0a 0a 49 66 20 50 41 54 48 20 64 6f 65 73 20 6e	ry.DATA.to.PATH...If.PATH.does.n
1a00	6f 74 20 65 78 69 73 74 2c 20 69 74 20 69 73 20 63 72 65 61 74 65 64 2e 0a 0a 28 66 6e 20 44 41	ot.exist,.it.is.created...(fn.DA
1a20	54 41 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 61 70 70 65 6e 64 2d 62 79	TA.PATH)..(defalias.'f-append-by
1a40	74 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 33 30 31 23 5c 32 30 37 22 20 5b 66 2d 2d	tes.#[514."\300..\301#\207".[f--
1a60	77 72 69 74 65 2d 62 79 74 65 73 20 3a 61 70 70 65 6e 64 5d 20 36 20 28 23 24 20 2e 20 36 36 31	write-bytes.:append].6.(#$...661
1a80	33 29 5d 29 0a 23 40 31 32 33 20 57 72 69 74 65 20 62 69 6e 61 72 79 20 44 41 54 41 20 74 6f 20	3)]).#@123.Write.binary.DATA.to.
1aa0	46 49 4c 45 4e 41 4d 45 2e 0a 49 66 20 41 50 50 45 4e 44 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20	FILENAME..If.APPEND.is.non-nil,.
1ac0	61 70 70 65 6e 64 20 74 68 65 20 44 41 54 41 20 74 6f 20 74 68 65 20 65 78 69 73 74 69 6e 67 20	append.the.DATA.to.the.existing.
1ae0	63 6f 6e 74 65 6e 74 73 2e 0a 0a 28 66 6e 20 44 41 54 41 20 46 49 4c 45 4e 41 4d 45 20 41 50 50	contents...(fn.DATA.FILENAME.APP
1b00	45 4e 44 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 2d 77 72 69 74 65 2d 62 79 74 65 73 20	END)..(defalias.'f--write-bytes.
1b20	23 5b 37 37 31 20 22 08 5c 32 30 33 6d 00 5c 33 30 34 08 5c 33 30 35 5c 33 30 34 5c 32 31 31 5c	#[771.".\203m.\304.\305\304\211\
1b40	32 31 31 04 5c 32 30 33 40 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c	211.\203@..\211A\262.\242\262..\
1b60	32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 40 00 5c 33 30 36 02 06 09 5c 22 5c 32 30	262..\211\262.\203@.\306...\"\20
1b80	36 2d 00 5c 33 30 37 02 06 09 5c 22 5c 32 31 31 5c 32 36 32 07 5c 32 30 34 40 00 02 5c 32 36 32	6-.\307...\"\211\262.\204@..\262
1ba0	02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 30 32 5c 6e 00 5c 32 36 36 05 5c 32 31 31 5c 32	..\262..T\262.\202\n.\266.\211\2
1bc0	36 32 01 5c 32 30 33 66 00 5c 33 31 30 03 21 5c 32 30 34 55 00 5c 33 31 31 5c 33 31 32 5c 33 31	62.\203f.\310.!\204U.\311\312\31
1be0	30 05 44 5c 22 5c 32 31 30 5c 33 31 33 5c 33 30 34 5c 32 31 31 19 1a 1b 5c 33 31 34 03 5c 33 30	0.D\"\210\313\304\211...\314.\30
1c00	34 04 04 5c 33 31 35 25 5c 32 31 30 2b 5c 33 30 34 5c 32 30 37 5c 33 31 31 5c 33 31 36 03 08 44	4..\315%\210+\304\207\311\316..D
1c20	5c 22 5c 32 30 37 5c 33 31 30 03 21 5c 32 30 34 7a 00 5c 33 31 31 5c 33 31 32 5c 33 31 30 05 44	\"\207\310.!\204z.\311\312\310.D
1c40	5c 22 5c 32 31 30 5c 33 31 33 5c 33 30 34 5c 32 31 31 19 1a 1b 5c 33 31 34 03 5c 33 30 34 04 04	\"\210\313\304\211...\314.\304..
1c60	5c 33 31 35 25 5c 32 31 30 2b 5c 33 30 34 5c 32 30 37 22 20 5b 66 2d 2d 67 75 61 72 64 2d 70 61	\315%\210+\304\207".[f--guard-pa
1c80	74 68 73 20 77 72 69 74 65 2d 72 65 67 69 6f 6e 2d 70 6f 73 74 2d 61 6e 6e 6f 74 61 74 69 6f 6e	ths.write-region-post-annotation
1ca0	2d 66 75 6e 63 74 69 6f 6e 20 77 72 69 74 65 2d 72 65 67 69 6f 6e 2d 61 6e 6e 6f 74 61 74 65 2d	-function.write-region-annotate-
1cc0	66 75 6e 63 74 69 6f 6e 73 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2d 66 6f 72 2d 77 72 69 74	functions.coding-system-for-writ
1ce0	65 20 6e 69 6c 20 30 20 66 2d 73 61 6d 65 5c 3f 20 66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66 5c 3f	e.nil.0.f-same\?.f-ancestor-of\?
1d00	20 66 2d 75 6e 69 62 79 74 65 2d 73 74 72 69 6e 67 2d 70 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67	.f-unibyte-string-p.signal.wrong
1d20	2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 62 69 6e 61 72 79 20 77 72 69 74 65 2d 72 65 67 69	-type-argument.binary.write-regi
1d40	6f 6e 20 3a 73 69 6c 65 6e 74 20 66 2d 67 75 61 72 64 2d 65 72 72 6f 72 5d 20 31 32 20 28 23 24	on.:silent.f-guard-error].12.(#$
1d60	20 2e 20 36 37 39 35 29 5d 29 0a 23 40 34 33 20 43 72 65 61 74 65 20 64 69 72 65 63 74 6f 72 69	...6795)]).#@43.Create.directori
1d80	65 73 20 44 49 52 53 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 44 49 52 53 29 1f 0a 28 64 65 66 61	es.DIRS...(fn.&rest.DIRS)..(defa
1da0	6c 69 61 73 20 27 66 2d 6d 6b 64 69 72 20 23 5b 31 32 38 20 22 5c 33 30 30 43 5c 33 30 31 02 5c	lias.'f-mkdir.#[128."\300C\301.\
1dc0	33 30 32 5c 33 30 33 04 5c 22 5c 22 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 65 61 63 68 20 6d 61 6b	302\303.\"\"\207".[nil.-each.mak
1de0	65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 32 02 5c 33 30 30 5c 32	e-closure.#[257."\300\302.\300\2
1e00	34 32 5c 22 5c 32 34 30 5c 32 31 30 5c 33 30 33 5c 33 30 30 5c 32 34 32 21 3f 5c 32 30 35 69 00	42\"\240\210\303\300\242!?\205i.
1e20	09 5c 32 30 33 65 00 5c 33 30 34 09 5c 33 30 35 5c 33 30 34 5c 32 31 31 5c 32 31 31 04 5c 32 30	.\203e.\304.\305\304\211\211.\20
1e40	33 50 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32	3P..\211A\262.\242\262..\262..\2
1e60	31 31 5c 32 36 32 02 5c 32 30 33 50 00 5c 33 30 36 02 5c 33 30 30 5c 32 34 32 5c 22 5c 32 30 36	11\262.\203P.\306.\300\242\"\206
1e80	3d 00 5c 33 30 37 02 5c 33 30 30 5c 32 34 32 5c 22 5c 32 31 31 5c 32 36 32 07 5c 32 30 34 50 00	=.\307.\300\242\"\211\262.\204P.
1ea0	02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 30 32 1a 00 5c 32 36 36 05 5c 32	.\262..\262..T\262.\202..\266.\2
1ec0	31 31 5c 32 36 32 01 5c 32 30 33 5d 00 5c 33 31 30 5c 33 30 30 5c 32 34 32 21 5c 32 30 37 5c 33	11\262.\203].\310\300\242!\207\3
1ee0	31 31 5c 33 31 32 5c 33 30 30 5c 32 34 32 09 44 5c 22 5c 32 30 37 5c 33 31 30 5c 33 30 30 5c 32	11\312\300\242.D\"\207\310\300\2
1f00	34 32 21 5c 32 30 37 22 20 5b 56 30 20 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20 66 2d 65 78	42!\207".[V0.f--guard-paths.f-ex
1f20	70 61 6e 64 20 66 2d 64 69 72 65 63 74 6f 72 79 5c 3f 20 6e 69 6c 20 30 20 66 2d 73 61 6d 65 5c	pand.f-directory\?.nil.0.f-same\
1f40	3f 20 66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66 5c 3f 20 6d 61 6b 65 2d 64 69 72 65 63 74 6f 72 79	?.f-ancestor-of\?.make-directory
1f60	20 73 69 67 6e 61 6c 20 66 2d 67 75 61 72 64 2d 65 72 72 6f 72 5d 20 31 30 20 22 5c 6e 5c 6e 28	.signal.f-guard-error].10."\n\n(
1f80	66 6e 20 44 49 52 29 22 5d 5d 20 37 20 28 23 24 20 2e 20 37 35 33 36 29 5d 29 0a 23 40 31 33 30	fn.DIR)"]].7.(#$...7536)]).#@130
1fa0	20 44 65 6c 65 74 65 20 50 41 54 48 2c 20 77 68 69 63 68 20 63 61 6e 20 62 65 20 66 69 6c 65 20	.Delete.PATH,.which.can.be.file.
1fc0	6f 72 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a 49 66 20 46 4f 52 43 45 20 69 73 20 74 2c 20 61 20	or.directory...If.FORCE.is.t,.a.
1fe0	64 69 72 65 63 74 6f 72 79 20 77 69 6c 6c 20 62 65 20 64 65 6c 65 74 65 64 20 72 65 63 75 72 73	directory.will.be.deleted.recurs
2000	69 76 65 6c 79 2e 0a 0a 28 66 6e 20 50 41 54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 46 4f 52 43 45	ively...(fn.PATH.&optional.FORCE
2020	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 64 65 6c 65 74 65 20 23 5b 35 31 33 20 22 08 5c	)..(defalias.'f-delete.#[513.".\
2040	32 30 33 64 00 5c 33 30 31 08 5c 33 30 32 5c 33 30 31 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 40	203d.\301.\302\301\211\211.\203@
2060	00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31	..\211A\262.\242\262..\262..\211
2080	5c 32 36 32 02 5c 32 30 33 40 00 5c 33 30 33 02 06 09 5c 22 5c 32 30 36 2d 00 5c 33 30 34 02 06	\262.\203@.\303...\"\206-.\304..
20a0	09 5c 22 5c 32 31 31 5c 32 36 32 07 5c 32 30 34 40 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54	.\"\211\262.\204@..\262..\262..T
20c0	5c 32 36 32 04 5c 32 30 32 5c 6e 00 5c 32 36 36 05 5c 32 31 31 5c 32 36 32 01 5c 32 30 33 5d 00	\262.\202\n.\266.\211\262.\203].
20e0	5c 33 30 35 02 21 5c 32 30 34 54 00 5c 33 30 36 02 21 5c 32 30 33 58 00 5c 33 30 37 02 21 5c 32	\305.!\204T.\306.!\203X.\307.!\2
2100	30 37 5c 33 31 30 02 02 5c 22 5c 32 30 37 5c 33 31 31 5c 33 31 32 03 08 44 5c 22 5c 32 30 37 5c	07\310..\"\207\311\312..D\"\207\
2120	33 30 35 02 21 5c 32 30 34 70 00 5c 33 30 36 02 21 5c 32 30 33 74 00 5c 33 30 37 02 21 5c 32 30	305.!\204p.\306.!\203t.\307.!\20
2140	37 5c 33 31 30 02 02 5c 22 5c 32 30 37 22 20 5b 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20 6e	7\310..\"\207".[f--guard-paths.n
2160	69 6c 20 30 20 66 2d 73 61 6d 65 5c 3f 20 66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66 5c 3f 20 66 2d	il.0.f-same\?.f-ancestor-of\?.f-
2180	66 69 6c 65 5c 3f 20 66 2d 73 79 6d 6c 69 6e 6b 5c 3f 20 64 65 6c 65 74 65 2d 66 69 6c 65 20 64	file\?.f-symlink\?.delete-file.d
21a0	65 6c 65 74 65 2d 64 69 72 65 63 74 6f 72 79 20 73 69 67 6e 61 6c 20 66 2d 67 75 61 72 64 2d 65	elete-directory.signal.f-guard-e
21c0	72 72 6f 72 5d 20 31 31 20 28 23 24 20 2e 20 38 30 39 37 29 5d 29 0a 23 40 35 37 20 43 72 65 61	rror].11.(#$...8097)]).#@57.Crea
21e0	74 65 20 61 20 73 79 6d 6c 69 6e 6b 20 74 6f 20 53 4f 55 52 43 45 20 66 72 6f 6d 20 50 41 54 48	te.a.symlink.to.SOURCE.from.PATH
2200	2e 0a 0a 28 66 6e 20 53 4f 55 52 43 45 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	...(fn.SOURCE.PATH)..(defalias.'
2220	66 2d 73 79 6d 6c 69 6e 6b 20 23 5b 35 31 34 20 22 08 5c 32 30 33 54 00 5c 33 30 31 08 5c 33 30	f-symlink.#[514.".\203T.\301.\30
2240	32 5c 33 30 31 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 40 00 04 5c 32 31 31 41 5c 32 36 32 06 5c	2\301\211\211.\203@..\211A\262.\
2260	32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 40 00 5c 33	242\262..\262..\211\262.\203@.\3
2280	30 33 02 06 08 5c 22 5c 32 30 36 2d 00 5c 33 30 34 02 06 08 5c 22 5c 32 31 31 5c 32 36 32 07 5c	03...\"\206-.\304...\"\211\262.\
22a0	32 30 34 40 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 30 32 5c 6e 00 5c	204@..\262..\262..T\262.\202\n.\
22c0	32 36 36 05 5c 32 31 31 5c 32 36 32 01 5c 32 30 33 4d 00 5c 33 30 35 02 02 5c 22 5c 32 30 37 5c	266.\211\262.\203M.\305..\"\207\
22e0	33 30 36 5c 33 30 37 02 08 44 5c 22 5c 32 30 37 5c 33 30 35 02 02 5c 22 5c 32 30 37 22 20 5b 66	306\307..D\"\207\305..\"\207".[f
2300	2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20 6e 69 6c 20 30 20 66 2d 73 61 6d 65 5c 3f 20 66 2d 61	--guard-paths.nil.0.f-same\?.f-a
2320	6e 63 65 73 74 6f 72 2d 6f 66 5c 3f 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 69 63 2d 6c 69 6e 6b 20	ncestor-of\?.make-symbolic-link.
2340	73 69 67 6e 61 6c 20 66 2d 67 75 61 72 64 2d 65 72 72 6f 72 5d 20 31 31 20 28 23 24 20 2e 20 38	signal.f-guard-error].11.(#$...8
2360	36 36 38 29 5d 29 0a 23 40 38 38 20 4d 6f 76 65 20 6f 72 20 72 65 6e 61 6d 65 20 46 52 4f 4d 20	668)]).#@88.Move.or.rename.FROM.
2380	74 6f 20 54 4f 2e 0a 49 66 20 54 4f 20 69 73 20 61 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65	to.TO..If.TO.is.a.directory.name
23a0	2c 20 6d 6f 76 65 20 46 52 4f 4d 20 69 6e 74 6f 20 54 4f 2e 0a 0a 28 66 6e 20 46 52 4f 4d 20 54	,.move.FROM.into.TO...(fn.FROM.T
23c0	4f 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 6d 6f 76 65 20 23 5b 35 31 34 20 22 08 5c 32	O)..(defalias.'f-move.#[514.".\2
23e0	30 33 55 00 5c 33 30 31 08 5c 33 30 32 5c 33 30 31 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 40 00	03U.\301.\302\301\211\211.\203@.
2400	04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c	.\211A\262.\242\262..\262..\211\
2420	32 36 32 02 5c 32 30 33 40 00 5c 33 30 33 02 06 08 5c 22 5c 32 30 36 2d 00 5c 33 30 34 02 06 08	262.\203@.\303...\"\206-.\304...
2440	5c 22 5c 32 31 31 5c 32 36 32 07 5c 32 30 34 40 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c	\"\211\262.\204@..\262..\262..T\
2460	32 36 32 04 5c 32 30 32 5c 6e 00 5c 32 36 36 05 5c 32 31 31 5c 32 36 32 01 5c 32 30 33 4e 00 5c	262.\202\n.\266.\211\262.\203N.\
2480	33 30 35 02 02 5c 33 30 36 23 5c 32 30 37 5c 33 30 37 5c 33 31 30 02 08 44 5c 22 5c 32 30 37 5c	305..\306#\207\307\310..D\"\207\
24a0	33 30 35 02 02 5c 33 30 36 23 5c 32 30 37 22 20 5b 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20	305..\306#\207".[f--guard-paths.
24c0	6e 69 6c 20 30 20 66 2d 73 61 6d 65 5c 3f 20 66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66 5c 3f 20 72	nil.0.f-same\?.f-ancestor-of\?.r
24e0	65 6e 61 6d 65 2d 66 69 6c 65 20 74 20 73 69 67 6e 61 6c 20 66 2d 67 75 61 72 64 2d 65 72 72 6f	ename-file.t.signal.f-guard-erro
2500	72 5d 20 31 31 20 28 23 24 20 2e 20 39 30 36 38 29 5d 29 0a 23 40 31 34 31 20 43 6f 70 79 20 66	r].11.(#$...9068)]).#@141.Copy.f
2520	69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79 20 46 52 4f 4d 20 74 6f 20 54 4f 2e 0a 49 66 20	ile.or.directory.FROM.to.TO..If.
2540	46 52 4f 4d 20 6e 61 6d 65 73 20 61 20 64 69 72 65 63 74 6f 72 79 20 61 6e 64 20 54 4f 20 69 73	FROM.names.a.directory.and.TO.is
2560	20 61 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 2c 20 63 6f 70 79 20 46 52 4f 4d 0a 69 6e 74	.a.directory.name,.copy.FROM.int
2580	6f 20 54 4f 20 61 73 20 61 20 73 75 62 64 69 72 65 63 74 6f 72 79 2e 0a 0a 28 66 6e 20 46 52 4f	o.TO.as.a.subdirectory...(fn.FRO
25a0	4d 20 54 4f 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 63 6f 70 79 20 23 5b 35 31 34 20 22	M.TO)..(defalias.'f-copy.#[514."
25c0	08 5c 32 30 33 5c 32 30 32 00 5c 33 30 32 08 5c 33 30 33 5c 33 30 32 5c 32 31 31 5c 32 31 31 04	.\203\202.\302.\303\302\211\211.
25e0	5c 32 30 33 40 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02	\203@..\211A\262.\242\262..\262.
2600	03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 40 00 5c 33 30 34 02 06 08 5c 22 5c 32 30 36 2d 00 5c	.\211\262.\203@.\304...\"\206-.\
2620	33 30 35 02 06 08 5c 22 5c 32 31 31 5c 32 36 32 07 5c 32 30 34 40 00 02 5c 32 36 32 02 03 5c 32	305...\"\211\262.\204@..\262..\2
2640	36 32 01 03 54 5c 32 36 32 04 5c 32 30 32 5c 6e 00 5c 32 36 36 05 5c 32 31 31 5c 32 36 32 01 5c	62..T\262.\202\n.\266.\211\262.\
2660	32 30 33 7b 00 5c 33 30 36 02 21 5c 32 30 33 53 00 5c 33 30 37 02 02 5c 22 5c 32 30 37 09 5c 33	203{.\306.!\203S.\307..\"\207.\3
2680	31 30 56 5c 32 30 33 5e 00 5c 33 31 31 02 02 5c 22 5c 32 30 37 5c 33 31 32 01 21 5c 32 30 33 76	10V\203^.\311..\"\207\312.!\203v
26a0	00 5c 33 31 33 5c 33 31 34 5c 33 31 35 03 21 5c 22 5c 32 31 30 5c 33 31 36 5c 33 31 37 03 21 02	.\313\314\315.!\"\210\316\317.!.
26c0	5c 22 5c 33 31 31 03 02 5c 22 5c 32 30 37 5c 33 31 31 02 02 5c 22 5c 32 30 37 5c 33 32 30 5c 33	\"\311..\"\207\311..\"\207\320\3
26e0	32 31 02 08 44 5c 22 5c 32 30 37 5c 33 30 36 02 21 5c 32 30 33 5c 32 31 35 00 5c 33 30 37 02 02	21..D\"\207\306.!\203\215.\307..
2700	5c 22 5c 32 30 37 09 5c 33 31 30 56 5c 32 30 33 5c 32 33 30 00 5c 33 31 31 02 02 5c 22 5c 32 30	\"\207.\310V\203\230.\311..\"\20
2720	37 5c 33 31 32 01 21 5c 32 30 33 5c 32 36 30 00 5c 33 31 33 5c 33 31 34 5c 33 31 35 03 21 5c 22	7\312.!\203\260.\313\314\315.!\"
2740	5c 32 31 30 5c 33 31 36 5c 33 31 37 03 21 02 5c 22 5c 33 31 31 03 02 5c 22 5c 32 30 37 5c 33 31	\210\316\317.!.\"\311..\"\207\31
2760	31 02 02 5c 22 5c 32 30 37 22 20 5b 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20 65 6d 61 63 73	1..\"\207".[f--guard-paths.emacs
2780	2d 6d 61 6a 6f 72 2d 76 65 72 73 69 6f 6e 20 6e 69 6c 20 30 20 66 2d 73 61 6d 65 5c 3f 20 66 2d	-major-version.nil.0.f-same\?.f-
27a0	61 6e 63 65 73 74 6f 72 2d 6f 66 5c 3f 20 66 2d 66 69 6c 65 5c 3f 20 63 6f 70 79 2d 66 69 6c 65	ancestor-of\?.f-file\?.copy-file
27c0	20 32 33 20 63 6f 70 79 2d 64 69 72 65 63 74 6f 72 79 20 66 2d 64 69 72 5c 3f 20 61 70 70 6c 79	.23.copy-directory.f-dir\?.apply
27e0	20 66 2d 6d 6b 64 69 72 20 66 2d 73 70 6c 69 74 20 66 2d 65 78 70 61 6e 64 20 66 2d 66 69 6c 65	.f-mkdir.f-split.f-expand.f-file
2800	6e 61 6d 65 20 73 69 67 6e 61 6c 20 66 2d 67 75 61 72 64 2d 65 72 72 6f 72 5d 20 31 31 20 28 23	name.signal.f-guard-error].11.(#
2820	24 20 2e 20 39 34 39 38 29 5d 29 0a 23 40 36 35 20 43 6f 70 79 20 63 6f 6e 74 65 6e 74 73 20 69	$...9498)]).#@65.Copy.contents.i
2840	6e 20 64 69 72 65 63 74 6f 72 79 20 46 52 4f 4d 2c 20 74 6f 20 64 69 72 65 63 74 6f 72 79 20 54	n.directory.FROM,.to.directory.T
2860	4f 2e 0a 0a 28 66 6e 20 46 52 4f 4d 20 54 4f 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 63	O...(fn.FROM.TO)..(defalias.'f-c
2880	6f 70 79 2d 63 6f 6e 74 65 6e 74 73 20 23 5b 35 31 34 20 22 5c 33 30 30 01 21 5c 32 30 34 0b 00	opy-contents.#[514."\300.!\204..
28a0	5c 33 30 31 5c 33 30 32 02 5c 22 5c 32 31 30 5c 33 30 33 02 21 5c 32 30 34 16 00 5c 33 30 31 5c	\301\302.\"\210\303.!\204..\301\
28c0	33 30 34 03 5c 22 5c 32 31 30 5c 33 30 35 02 21 5c 33 30 36 5c 33 30 37 5c 32 31 31 03 5c 32 30	304.\"\210\305.!\306\307\211.\20
28e0	35 3a 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c	5:..\211A\262.\242\262..\262..T\
2900	32 36 32 03 5c 33 31 30 02 5c 33 31 31 06 07 21 5c 22 5c 32 31 30 5c 32 30 32 1c 00 5c 32 30 37	262.\310.\311..!\"\210\202..\207
2920	22 20 5b 66 2d 65 78 69 73 74 73 5c 3f 20 65 72 72 6f 72 20 22 43 61 6e 6e 6f 74 20 63 6f 70 79	".[f-exists\?.error."Cannot.copy
2940	20 63 6f 6e 74 65 6e 74 73 20 74 6f 20 6e 6f 6e 20 65 78 69 73 74 69 6e 67 20 64 69 72 65 63 74	.contents.to.non.existing.direct
2960	6f 72 79 20 25 73 22 20 66 2d 64 69 72 5c 3f 20 22 43 61 6e 6e 6f 74 20 63 6f 70 79 20 63 6f 6e	ory.%s".f-dir\?."Cannot.copy.con
2980	74 65 6e 74 73 20 61 73 20 25 73 20 69 73 20 61 20 66 69 6c 65 22 20 66 2d 65 6e 74 72 69 65 73	tents.as.%s.is.a.file".f-entries
29a0	20 30 20 6e 69 6c 20 66 2d 63 6f 70 79 20 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63	.0.nil.f-copy.file-name-as-direc
29c0	74 6f 72 79 5d 20 31 30 20 28 23 24 20 2e 20 31 30 32 38 39 29 5d 29 0a 23 40 37 39 20 55 70 64	tory].10.(#$...10289)]).#@79.Upd
29e0	61 74 65 20 50 41 54 48 20 6c 61 73 74 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 64 61 74 65 20	ate.PATH.last.modification.date.
2a00	6f 72 20 63 72 65 61 74 65 20 69 66 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2e 0a	or.create.if.it.does.not.exist..
2a20	0a 28 66 6e 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 74 6f 75 63 68 20 23	.(fn.PATH)..(defalias.'f-touch.#
2a40	5b 32 35 37 20 22 08 5c 32 30 33 5e 00 5c 33 30 31 08 5c 33 30 32 5c 33 30 31 5c 32 31 31 5c 32	[257.".\203^.\301.\302\301\211\2
2a60	31 31 04 5c 32 30 33 40 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32	11.\203@..\211A\262.\242\262..\2
2a80	36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 40 00 5c 33 30 33 02 06 08 5c 22 5c 32 30 36	62..\211\262.\203@.\303...\"\206
2aa0	2d 00 5c 33 30 34 02 06 08 5c 22 5c 32 31 31 5c 32 36 32 07 5c 32 30 34 40 00 02 5c 32 36 32 02	-.\304...\"\211\262.\204@..\262.
2ac0	03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 30 32 5c 6e 00 5c 32 36 36 05 5c 32 31 31 5c 32 36	.\262..T\262.\202\n.\266.\211\26
2ae0	32 01 5c 32 30 33 57 00 5c 33 30 35 01 21 5c 32 30 33 52 00 5c 33 30 36 01 21 5c 32 30 37 5c 33	2.\203W.\305.!\203R.\306.!\207\3
2b00	30 37 5c 33 31 30 02 5c 22 5c 32 30 37 5c 33 31 31 5c 33 31 32 02 08 44 5c 22 5c 32 30 37 5c 33	07\310.\"\207\311\312..D\"\207\3
2b20	30 35 01 21 5c 32 30 33 68 00 5c 33 30 36 01 21 5c 32 30 37 5c 33 30 37 5c 33 31 30 02 5c 22 5c	05.!\203h.\306.!\207\307\310.\"\
2b40	32 30 37 22 20 5b 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20 6e 69 6c 20 30 20 66 2d 73 61 6d	207".[f--guard-paths.nil.0.f-sam
2b60	65 5c 3f 20 66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66 5c 3f 20 66 2d 66 69 6c 65 5c 3f 20 73 65 74	e\?.f-ancestor-of\?.f-file\?.set
2b80	2d 66 69 6c 65 2d 74 69 6d 65 73 20 66 2d 77 72 69 74 65 2d 62 79 74 65 73 20 22 22 20 73 69 67	-file-times.f-write-bytes."".sig
2ba0	6e 61 6c 20 66 2d 67 75 61 72 64 2d 65 72 72 6f 72 5d 20 31 30 20 28 23 24 20 2e 20 31 30 37 31	nal.f-guard-error].10.(#$...1071
2bc0	37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c	7)]).(byte-code."\300\301\302\"\
2be0	32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 34 5c 33 30	210\300\303\302\"\210\300\304\30
2c00	35 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 36 5c 33 30 35 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30	5\"\210\300\306\305\"\210\300\30
2c20	37 5c 33 30 35 5c 22 5c 32 31 30 5c 33 30 30 5c 33 31 30 5c 33 30 35 5c 22 5c 32 31 30 5c 33 30	7\305\"\210\300\310\305\"\210\30
2c40	30 5c 33 31 31 5c 33 31 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 31 33 5c 33 31 32 5c 22 5c 32 30	0\311\312\"\210\300\313\312\"\20
2c60	37 22 20 5b 64 65 66 61 6c 69 61 73 20 66 2d 65 78 69 73 74 73 5c 3f 20 66 69 6c 65 2d 65 78 69	7".[defalias.f-exists\?.file-exi
2c80	73 74 73 2d 70 20 66 2d 65 78 69 73 74 73 2d 70 20 66 2d 64 69 72 65 63 74 6f 72 79 5c 3f 20 66	sts-p.f-exists-p.f-directory\?.f
2ca0	69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 66 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 66 2d	ile-directory-p.f-directory-p.f-
2cc0	64 69 72 5c 3f 20 66 2d 64 69 72 2d 70 20 66 2d 66 69 6c 65 5c 3f 20 66 69 6c 65 2d 72 65 67 75	dir\?.f-dir-p.f-file\?.file-regu
2ce0	6c 61 72 2d 70 20 66 2d 66 69 6c 65 2d 70 5d 20 33 29 0a 23 40 35 38 20 52 65 74 75 72 6e 20 74	lar-p.f-file-p].3).#@58.Return.t
2d00	20 69 66 20 50 41 54 48 20 69 73 20 73 79 6d 6c 69 6e 6b 2c 20 66 61 6c 73 65 20 6f 74 68 65 72	.if.PATH.is.symlink,.false.other
2d20	77 69 73 65 2e 0a 0a 28 66 6e 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 73	wise...(fn.PATH)..(defalias.'f-s
2d40	79 6d 6c 69 6e 6b 5c 3f 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 3f 3f 5c 32 30 37 22 20 5b 66	ymlink\?.#[257."\300.!??\207".[f
2d60	69 6c 65 2d 73 79 6d 6c 69 6e 6b 2d 70 5d 20 33 20 28 23 24 20 2e 20 31 31 35 31 32 29 5d 29 0a	ile-symlink-p].3.(#$...11512)]).
2d80	28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33	(byte-code."\300\301\302\"\210\3
2da0	30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 35 5c 33 30 34 5c 22 5c 32	00\303\304\"\210\300\305\304\"\2
2dc0	31 30 5c 33 30 30 5c 33 30 36 5c 33 30 37 5c 22 5c 32 31 30 5c 33 30 30 5c 33 31 30 5c 33 30 37	10\300\306\307\"\210\300\310\307
2de0	5c 22 5c 32 31 30 5c 33 30 30 5c 33 31 31 5c 33 31 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 31 33	\"\210\300\311\312\"\210\300\313
2e00	5c 33 31 31 5c 22 5c 32 31 30 5c 33 30 30 5c 33 31 34 5c 33 31 35 5c 22 5c 32 31 30 5c 33 30 30	\311\"\210\300\314\315\"\210\300
2e20	5c 33 31 36 5c 33 31 35 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 66 2d 73 79 6d 6c	\316\315\"\207".[defalias.f-syml
2e40	69 6e 6b 2d 70 20 66 2d 73 79 6d 6c 69 6e 6b 5c 3f 20 66 2d 72 65 61 64 61 62 6c 65 5c 3f 20 66	ink-p.f-symlink\?.f-readable\?.f
2e60	69 6c 65 2d 72 65 61 64 61 62 6c 65 2d 70 20 66 2d 72 65 61 64 61 62 6c 65 2d 70 20 66 2d 77 72	ile-readable-p.f-readable-p.f-wr
2e80	69 74 61 62 6c 65 5c 3f 20 66 69 6c 65 2d 77 72 69 74 61 62 6c 65 2d 70 20 66 2d 77 72 69 74 61	itable\?.file-writable-p.f-writa
2ea0	62 6c 65 2d 70 20 66 2d 65 78 65 63 75 74 61 62 6c 65 5c 3f 20 66 69 6c 65 2d 65 78 65 63 75 74	ble-p.f-executable\?.file-execut
2ec0	61 62 6c 65 2d 70 20 66 2d 65 78 65 63 75 74 61 62 6c 65 2d 70 20 66 2d 61 62 73 6f 6c 75 74 65	able-p.f-executable-p.f-absolute
2ee0	5c 3f 20 66 69 6c 65 2d 6e 61 6d 65 2d 61 62 73 6f 6c 75 74 65 2d 70 20 66 2d 61 62 73 6f 6c 75	\?.file-name-absolute-p.f-absolu
2f00	74 65 2d 70 5d 20 33 29 0a 23 40 35 39 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 20 69	te-p].3).#@59.Return.t.if.PATH.i
2f20	73 20 72 65 6c 61 74 69 76 65 2c 20 66 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a 28 66	s.relative,.false.otherwise...(f
2f40	6e 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 72 65 6c 61 74 69 76 65 5c 3f	n.PATH)..(defalias.'f-relative\?
2f60	20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 3f 5c 32 30 37 22 20 5b 66 2d 61 62 73 6f 6c 75 74 65	.#[257."\300.!?\207".[f-absolute
2f80	5c 3f 5d 20 33 20 28 23 24 20 2e 20 31 32 30 34 36 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27	\?].3.(#$...12046)]).(defalias.'
2fa0	66 2d 72 65 6c 61 74 69 76 65 2d 70 20 27 66 2d 72 65 6c 61 74 69 76 65 5c 3f 29 0a 23 40 36 35	f-relative-p.'f-relative\?).#@65
2fc0	20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 20 69 73 20 72 6f 6f 74 20 64 69 72 65 63 74	.Return.t.if.PATH.is.root.direct
2fe0	6f 72 79 2c 20 66 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a 28 66 6e 20 50 41 54 48 29	ory,.false.otherwise...(fn.PATH)
3000	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 72 6f 6f 74 5c 3f 20 23 5b 32 35 37 20 22 5c 33 30	..(defalias.'f-root\?.#[257."\30
3020	30 01 21 3f 5c 32 30 37 22 20 5b 66 2d 70 61 72 65 6e 74 5d 20 33 20 28 23 24 20 2e 20 31 32 32	0.!?\207".[f-parent].3.(#$...122
3040	32 35 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 72 6f 6f 74 2d 70 20 27 66 2d 72 6f 6f	25)]).(defalias.'f-root-p.'f-roo
3060	74 5c 3f 29 0a 23 40 32 37 39 20 52 65 74 75 72 6e 20 74 20 69 66 20 65 78 74 65 6e 73 69 6f 6e	t\?).#@279.Return.t.if.extension
3080	20 6f 66 20 50 41 54 48 20 69 73 20 45 58 54 2c 20 66 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65	.of.PATH.is.EXT,.false.otherwise
30a0	2e 0a 0a 49 66 20 45 58 54 20 69 73 20 6e 69 6c 20 6f 72 20 6f 6d 69 74 74 65 64 2c 20 72 65 74	...If.EXT.is.nil.or.omitted,.ret
30c0	75 72 6e 20 74 20 69 66 20 50 41 54 48 20 68 61 73 20 61 6e 79 20 65 78 74 65 6e 73 69 6f 6e 2c	urn.t.if.PATH.has.any.extension,
30e0	0a 66 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a 54 68 65 20 65 78 74 65 6e 73 69 6f 6e	.false.otherwise...The.extension
3100	2c 20 69 6e 20 61 20 66 69 6c 65 20 6e 61 6d 65 2c 20 69 73 20 74 68 65 20 70 61 72 74 20 74 68	,.in.a.file.name,.is.the.part.th
3120	61 74 20 66 6f 6c 6c 6f 77 73 20 74 68 65 20 6c 61 73 74 0a 27 2e 27 2c 20 65 78 63 6c 75 64 69	at.follows.the.last.'.',.excludi
3140	6e 67 20 76 65 72 73 69 6f 6e 20 6e 75 6d 62 65 72 73 20 61 6e 64 20 62 61 63 6b 75 70 20 73 75	ng.version.numbers.and.backup.su
3160	66 66 69 78 65 73 2e 0a 0a 28 66 6e 20 50 41 54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 45 58 54 29	ffixes...(fn.PATH.&optional.EXT)
3180	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 65 78 74 5c 3f 20 23 5b 35 31 33 20 22 5c 32 31 31	..(defalias.'f-ext\?.#[513."\211
31a0	5c 32 30 33 5c 6e 00 5c 33 30 30 02 21 01 5c 32 33 30 5c 32 30 37 5c 33 30 30 02 21 3f 3f 5c 32	\203\n.\300.!.\230\207\300.!??\2
31c0	30 37 22 20 5b 66 2d 65 78 74 5d 20 34 20 28 23 24 20 2e 20 31 32 33 39 35 29 5d 29 0a 28 62 79	07".[f-ext].4.(#$...12395)]).(by
31e0	74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c	te-code."\300\301\302\"\210\300\
3200	33 30 33 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 35 5c 33 30 33 5c 22 5c 32 30 37 22	303\304\"\210\300\305\303\"\207"
3220	20 5b 64 65 66 61 6c 69 61 73 20 66 2d 65 78 74 2d 70 20 66 2d 65 78 74 5c 3f 20 66 2d 65 71 75	.[defalias.f-ext-p.f-ext\?.f-equ
3240	61 6c 5c 3f 20 66 2d 73 61 6d 65 5c 3f 20 66 2d 65 71 75 61 6c 2d 70 5d 20 33 29 0a 23 40 38 30	al\?.f-same\?.f-equal-p].3).#@80
3260	20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 2d 41 20 61 6e 64 20 50 41 54 48 2d 42 20 61	.Return.t.if.PATH-A.and.PATH-B.a
3280	72 65 20 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 73 61 6d 65 20 66 69 6c 65 2e 0a 0a 28 66 6e	re.references.to.same.file...(fn
32a0	20 50 41 54 48 2d 41 20 50 41 54 48 2d 42 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 73 61	.PATH-A.PATH-B)..(defalias.'f-sa
32c0	6d 65 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 02 21 5c 32 30 35 1b 00 5c 33 30 30 01 21 5c 32	me\?.#[514."\300.!\205..\300.!\2
32e0	30 35 1b 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 04 21 21 21 5c 33 30 31 5c 33 30 32 5c 33 30 33	05..\301\302\303.!!!\301\302\303
3300	04 21 21 21 5c 32 33 32 5c 32 30 37 22 20 5b 66 2d 65 78 69 73 74 73 5c 3f 20 66 2d 63 61 6e 6f	.!!!\232\207".[f-exists\?.f-cano
3320	6e 69 63 61 6c 20 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 2d 65 78 70 61	nical.directory-file-name.f-expa
3340	6e 64 5d 20 37 20 28 23 24 20 2e 20 31 32 38 39 37 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27	nd].7.(#$...12897)]).(defalias.'
3360	66 2d 73 61 6d 65 2d 70 20 27 66 2d 73 61 6d 65 5c 3f 29 0a 23 40 36 31 20 52 65 74 75 72 6e 20	f-same-p.'f-same\?).#@61.Return.
3380	74 20 69 66 20 50 41 54 48 2d 41 20 69 73 20 70 61 72 65 6e 74 20 6f 66 20 50 41 54 48 2d 42 2e	t.if.PATH-A.is.parent.of.PATH-B.
33a0	0a 0a 28 66 6e 20 50 41 54 48 2d 41 20 50 41 54 48 2d 42 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	..(fn.PATH-A.PATH-B)..(defalias.
33c0	27 66 2d 70 61 72 65 6e 74 2d 6f 66 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 01 21 5c 32 31 31	'f-parent-of\?.#[514."\300.!\211
33e0	5c 32 30 35 0b 00 5c 33 30 31 03 02 5c 22 5c 32 30 37 22 20 5b 66 2d 70 61 72 65 6e 74 20 66 2d	\205..\301..\"\207".[f-parent.f-
3400	73 61 6d 65 5c 3f 5d 20 36 20 28 23 24 20 2e 20 31 33 31 37 37 29 5d 29 0a 28 64 65 66 61 6c 69	same\?].6.(#$...13177)]).(defali
3420	61 73 20 27 66 2d 70 61 72 65 6e 74 2d 6f 66 2d 70 20 27 66 2d 70 61 72 65 6e 74 2d 6f 66 5c 3f	as.'f-parent-of-p.'f-parent-of\?
3440	29 0a 23 40 36 30 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 2d 41 20 69 73 20 63 68 69	).#@60.Return.t.if.PATH-A.is.chi
3460	6c 64 20 6f 66 20 50 41 54 48 2d 42 2e 0a 0a 28 66 6e 20 50 41 54 48 2d 41 20 50 41 54 48 2d 42	ld.of.PATH-B...(fn.PATH-A.PATH-B
3480	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 63 68 69 6c 64 2d 6f 66 5c 3f 20 23 5b 35 31 34	)..(defalias.'f-child-of\?.#[514
34a0	20 22 5c 33 30 30 02 21 5c 32 31 31 5c 32 30 35 0b 00 5c 33 30 31 01 03 5c 22 5c 32 30 37 22 20	."\300.!\211\205..\301..\"\207".
34c0	5b 66 2d 70 61 72 65 6e 74 20 66 2d 73 61 6d 65 5c 3f 5d 20 36 20 28 23 24 20 2e 20 31 33 33 38	[f-parent.f-same\?].6.(#$...1338
34e0	33 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 63 68 69 6c 64 2d 6f 66 2d 70 20 27 66 2d	3)]).(defalias.'f-child-of-p.'f-
3500	63 68 69 6c 64 2d 6f 66 5c 3f 29 0a 23 40 36 33 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54	child-of\?).#@63.Return.t.if.PAT
3520	48 2d 41 20 69 73 20 61 6e 63 65 73 74 6f 72 20 6f 66 20 50 41 54 48 2d 42 2e 0a 0a 28 66 6e 20	H-A.is.ancestor.of.PATH-B...(fn.
3540	50 41 54 48 2d 41 20 50 41 54 48 2d 42 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 61 6e 63	PATH-A.PATH-B)..(defalias.'f-anc
3560	65 73 74 6f 72 2d 6f 66 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 3f 5c 32 30 35 10	estor-of\?.#[514."\300..\"?\205.
3580	00 5c 33 30 31 5c 33 30 32 03 21 5c 33 30 32 03 21 5c 22 5c 32 30 37 22 20 5b 66 2d 73 61 6d 65	.\301\302.!\302.!\"\207".[f-same
35a0	5c 3f 20 73 2d 73 74 61 72 74 73 2d 77 69 74 68 5c 3f 20 66 2d 66 75 6c 6c 5d 20 36 20 28 23 24	\?.s-starts-with\?.f-full].6.(#$
35c0	20 2e 20 31 33 35 38 35 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 61 6e 63 65 73 74 6f	...13585)]).(defalias.'f-ancesto
35e0	72 2d 6f 66 2d 70 20 27 66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66 5c 3f 29 0a 23 40 36 34 20 52 65	r-of-p.'f-ancestor-of\?).#@64.Re
3600	74 75 72 6e 20 74 20 69 66 20 50 41 54 48 2d 41 20 69 73 20 64 65 73 65 6e 64 61 6e 74 20 6f 66	turn.t.if.PATH-A.is.desendant.of
3620	20 50 41 54 48 2d 42 2e 0a 0a 28 66 6e 20 50 41 54 48 2d 41 20 50 41 54 48 2d 42 29 1f 0a 28 64	.PATH-B...(fn.PATH-A.PATH-B)..(d
3640	65 66 61 6c 69 61 73 20 27 66 2d 64 65 73 63 65 6e 64 61 6e 74 2d 6f 66 5c 3f 20 23 5b 35 31 34	efalias.'f-descendant-of\?.#[514
3660	20 22 5c 33 30 30 02 02 5c 22 3f 5c 32 30 35 10 00 5c 33 30 31 5c 33 30 32 02 21 5c 33 30 32 04	."\300..\"?\205..\301\302.!\302.
3680	21 5c 22 5c 32 30 37 22 20 5b 66 2d 73 61 6d 65 5c 3f 20 73 2d 73 74 61 72 74 73 2d 77 69 74 68	!\"\207".[f-same\?.s-starts-with
36a0	5c 3f 20 66 2d 66 75 6c 6c 5d 20 36 20 28 23 24 20 2e 20 31 33 38 32 32 29 5d 29 0a 28 64 65 66	\?.f-full].6.(#$...13822)]).(def
36c0	61 6c 69 61 73 20 27 66 2d 64 65 73 63 65 6e 64 61 6e 74 2d 6f 66 2d 70 20 27 66 2d 64 65 73 63	alias.'f-descendant-of-p.'f-desc
36e0	65 6e 64 61 6e 74 2d 6f 66 5c 3f 29 0a 23 40 35 35 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41	endant-of\?).#@55.Return.t.if.PA
3700	54 48 20 69 73 20 68 69 64 64 65 6e 2c 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a 28 66	TH.is.hidden,.nil.otherwise...(f
3720	6e 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 68 69 64 64 65 6e 5c 3f 20 23	n.PATH)..(defalias.'f-hidden\?.#
3740	5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 34 0b 00 5c 33 30 31 5c 33 30 32 02 5c 22 5c 32 31	[257."\300.!\204..\301\302.\"\21
3760	30 5c 32 31 31 5c 33 30 33 5c 33 30 34 4f 5c 33 30 35 5c 32 33 30 5c 32 30 37 22 20 5b 66 2d 65	0\211\303\304O\305\230\207".[f-e
3780	78 69 73 74 73 5c 3f 20 65 72 72 6f 72 20 22 50 61 74 68 20 64 6f 65 73 20 6e 6f 74 20 65 78 69	xists\?.error."Path.does.not.exi
37a0	73 74 3a 20 25 73 22 20 30 20 31 20 22 2e 22 5d 20 34 20 28 23 24 20 2e 20 31 34 30 36 36 29 5d	st:.%s".0.1."."].4.(#$...14066)]
37c0	29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 68 69 64 64 65 6e 2d 70 20 27 66 2d 68 69 64 64 65	).(defalias.'f-hidden-p.'f-hidde
37e0	6e 5c 3f 29 0a 23 40 31 35 38 20 49 66 20 50 41 54 48 20 69 73 20 61 20 66 69 6c 65 2c 20 72 65	n\?).#@158.If.PATH.is.a.file,.re
3800	74 75 72 6e 20 74 20 69 66 20 74 68 65 20 66 69 6c 65 20 69 6e 20 50 41 54 48 20 69 73 20 65 6d	turn.t.if.the.file.in.PATH.is.em
3820	70 74 79 2c 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 0a 49 66 20 50 41 54 48 20 69 73 20 64	pty,.nil.otherwise..If.PATH.is.d
3840	69 72 65 63 74 6f 72 79 2c 20 72 65 74 75 72 6e 20 74 20 69 66 20 64 69 72 65 63 74 6f 72 79 20	irectory,.return.t.if.directory.
3860	68 61 73 20 6e 6f 20 66 69 6c 65 73 2c 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a 28 66	has.no.files,.nil.otherwise...(f
3880	6e 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 65 6d 70 74 79 5c 3f 20 23 5b	n.PATH)..(defalias.'f-empty\?.#[
38a0	32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 33 0d 00 5c 33 30 31 01 5c 33 30 32 5c 33 30 33 23 3f	257."\300.!\203..\301.\302\303#?
38c0	5c 32 30 37 5c 33 30 34 01 21 5c 33 30 35 55 5c 32 30 37 22 20 5b 66 2d 64 69 72 65 63 74 6f 72	\207\304.!\305U\207".[f-director
38e0	79 5c 3f 20 66 2d 66 69 6c 65 73 20 6e 69 6c 20 74 20 66 2d 73 69 7a 65 20 30 5d 20 35 20 28 23	y\?.f-files.nil.t.f-size.0].5.(#
3900	24 20 2e 20 31 34 33 31 35 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 65 6d 70 74 79 2d	$...14315)]).(defalias.'f-empty-
3920	70 20 27 66 2d 65 6d 70 74 79 5c 3f 29 0a 23 40 31 33 35 20 52 65 74 75 72 6e 20 73 69 7a 65 20	p.'f-empty\?).#@135.Return.size.
3940	6f 66 20 50 41 54 48 2e 0a 0a 49 66 20 50 41 54 48 20 69 73 20 61 20 66 69 6c 65 2c 20 72 65 74	of.PATH...If.PATH.is.a.file,.ret
3960	75 72 6e 20 73 69 7a 65 20 6f 66 20 74 68 61 74 20 66 69 6c 65 2e 20 20 49 66 20 50 41 54 48 20	urn.size.of.that.file...If.PATH.
3980	69 73 0a 64 69 72 65 63 74 6f 72 79 2c 20 72 65 74 75 72 6e 20 73 75 6d 20 6f 66 20 61 6c 6c 20	is.directory,.return.sum.of.all.
39a0	66 69 6c 65 73 20 69 6e 20 50 41 54 48 2e 0a 0a 28 66 6e 20 50 41 54 48 29 1f 0a 28 64 65 66 61	files.in.PATH...(fn.PATH)..(defa
39c0	6c 69 61 73 20 27 66 2d 73 69 7a 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 33 11 00	lias.'f-size.#[257."\300.!\203..
39e0	5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 5c 33 30 35 5c 33 30 36 23 5c 22 21 5c 32 30	\301\302\303\304.\305\306#\"!\20
3a00	37 5c 33 30 37 5c 33 31 30 02 21 38 5c 32 30 37 22 20 5b 66 2d 64 69 72 65 63 74 6f 72 79 5c 3f	7\307\310.!8\207".[f-directory\?
3a20	20 2d 73 75 6d 20 2d 6d 61 70 20 66 2d 73 69 7a 65 20 66 2d 66 69 6c 65 73 20 6e 69 6c 20 74 20	.-sum.-map.f-size.f-files.nil.t.
3a40	37 20 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 5d 20 38 20 28 23 24 20 2e 20 31 34 36 34 34	7.file-attributes].8.(#$...14644
3a60	29 5d 29 0a 23 40 31 39 35 20 52 65 74 75 72 6e 20 74 68 65 20 64 65 70 74 68 20 6f 66 20 50 41	)]).#@195.Return.the.depth.of.PA
3a80	54 48 2e 0a 0a 41 74 20 66 69 72 73 74 2c 20 50 41 54 48 20 69 73 20 65 78 70 61 6e 64 65 64 20	TH...At.first,.PATH.is.expanded.
3aa0	77 69 74 68 20 60 66 2d 65 78 70 61 6e 64 27 2e 20 20 54 68 65 6e 20 74 68 65 20 66 75 6c 6c 20	with.`f-expand'...Then.the.full.
3ac0	70 61 74 68 20 69 73 20 75 73 65 64 20 74 6f 0a 64 65 74 65 63 74 20 74 68 65 20 64 65 70 74 68	path.is.used.to.detect.the.depth
3ae0	2e 0a 27 2f 27 20 77 69 6c 6c 20 62 65 20 7a 65 72 6f 20 64 65 70 74 68 2c 20 20 27 2f 75 73 72	..'/'.will.be.zero.depth,..'/usr
3b00	27 20 77 69 6c 6c 20 62 65 20 6f 6e 65 20 64 65 70 74 68 2e 20 20 41 6e 64 20 73 6f 20 6f 6e 2e	'.will.be.one.depth...And.so.on.
3b20	0a 0a 28 66 6e 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 64 65 70 74 68 20	..(fn.PATH)..(defalias.'f-depth.
3b40	23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 21 21 47 53 5c 32 30 37 22 20 5b 66 2d 73 70 6c	#[257."\300\301.!!GS\207".[f-spl
3b60	69 74 20 66 2d 65 78 70 61 6e 64 5d 20 34 20 28 23 24 20 2e 20 31 34 39 35 34 29 5d 29 0a 23 40	it.f-expand].4.(#$...14954)]).#@
3b80	32 37 20 52 65 74 75 72 6e 20 70 61 74 68 20 74 6f 20 74 68 69 73 20 66 69 6c 65 2e 1f 0a 28 64	27.Return.path.to.this.file...(d
3ba0	65 66 61 6c 69 61 73 20 27 66 2d 74 68 69 73 2d 66 69 6c 65 20 23 5b 30 20 22 08 5c 32 30 33 06	efalias.'f-this-file.#[0.".\203.
3bc0	00 09 5c 32 30 37 5c 33 30 33 5c 33 30 32 21 5c 32 30 33 12 00 5c 6e 5c 32 30 33 12 00 5c 6e 5c	..\207\303\302!\203..\n\203..\n\
3be0	32 30 37 5c 33 30 34 20 5c 32 30 37 22 20 5b 6c 6f 61 64 2d 69 6e 2d 70 72 6f 67 72 65 73 73 20	207\304.\207".[load-in-progress.
3c00	6c 6f 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 63 75 72 72	load-file-name.byte-compile-curr
3c20	65 6e 74 2d 66 69 6c 65 20 62 6f 75 6e 64 70 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65	ent-file.boundp.buffer-file-name
3c40	5d 20 32 20 28 23 24 20 2e 20 31 35 32 33 35 29 5d 29 0a 23 40 35 31 20 41 20 76 61 72 69 61 62	].2.(#$...15235)]).#@51.A.variab
3c60	6c 65 20 74 6f 20 63 61 63 68 65 20 72 65 73 75 6c 74 20 6f 66 20 60 66 2d 70 61 74 68 2d 73 65	le.to.cache.result.of.`f-path-se
3c80	70 61 72 61 74 6f 72 27 2e 1f 0a 28 64 65 66 76 61 72 20 66 2d 2d 70 61 74 68 2d 73 65 70 61 72	parator'...(defvar.f--path-separ
3ca0	61 74 6f 72 20 6e 69 6c 20 28 23 24 20 2e 20 31 35 34 34 38 29 29 0a 23 40 32 34 20 52 65 74 75	ator.nil.(#$...15448)).#@24.Retu
3cc0	72 6e 20 70 61 74 68 20 73 65 70 61 72 61 74 6f 72 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66	rn.path.separator...(defalias.'f
3ce0	2d 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 20 23 5b 30 20 22 08 5c 32 30 36 0d 00 5c 33 30 31	-path-separator.#[0.".\206..\301
3d00	5c 33 30 32 5c 33 30 33 5c 22 5c 33 30 34 5c 33 30 35 4f 5c 32 31 31 10 5c 32 30 37 22 20 5b 66	\302\303\"\304\305O\211.\207".[f
3d20	2d 2d 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 20 66 2d 6a 6f 69 6e 20 22 78 22 20 22 79 22 20	--path-separator.f-join."x"."y".
3d40	31 20 32 5d 20 33 20 28 23 24 20 2e 20 31 35 35 34 38 29 5d 29 0a 23 40 35 32 20 46 69 6e 64 20	1.2].3.(#$...15548)]).#@52.Find.
3d60	50 41 54 54 45 52 4e 20 69 6e 20 50 41 54 48 2e 0a 0a 28 66 6e 20 50 41 54 54 45 52 4e 20 26 6f	PATTERN.in.PATH...(fn.PATTERN.&o
3d80	70 74 69 6f 6e 61 6c 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 67 6c 6f 62	ptional.PATH)..(defalias.'f-glob
3da0	20 23 5b 35 31 33 20 22 5c 33 30 31 5c 33 30 32 02 5c 32 30 36 07 00 08 04 5c 22 21 5c 32 30 37	.#[513."\301\302.\206....\"!\207
3dc0	22 20 5b 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 66 69 6c 65 2d 65 78 70 61 6e 64	".[default-directory.file-expand
3de0	2d 77 69 6c 64 63 61 72 64 73 20 66 2d 6a 6f 69 6e 5d 20 36 20 28 23 24 20 2e 20 31 35 37 30 37	-wildcards.f-join].6.(#$...15707
3e00	29 5d 29 0a 23 40 32 33 20 0a 0a 28 66 6e 20 50 41 54 48 20 52 45 43 55 52 53 49 56 45 29 1f 0a	)]).#@23...(fn.PATH.RECURSIVE)..
3e20	28 64 65 66 61 6c 69 61 73 20 27 66 2d 2d 63 6f 6c 6c 65 63 74 2d 65 6e 74 72 69 65 73 20 23 5b	(defalias.'f--collect-entries.#[
3e40	35 31 34 20 22 5c 33 30 30 43 5c 33 30 31 5c 33 30 32 5c 33 30 33 05 5c 33 30 34 5c 22 5c 22 02	514."\300C\301\302\303.\304\"\".
3e60	5c 32 30 33 19 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 05 05 23 02 5c 22 5c 32 31 30 5c 32 30 32	\203..\305\306\307..#.\"\210\202
3e80	1d 00 01 01 5c 32 34 30 5c 32 31 30 01 5c 32 34 32 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 72 65 6a	....\240\210.\242\207".[nil.-rej
3ea0	65 63 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 36 0d 00 5c	ect.#[257."\300.!\301\232\206..\
3ec0	33 30 30 01 21 5c 33 30 32 5c 32 33 32 5c 32 30 37 22 20 5b 66 2d 66 69 6c 65 6e 61 6d 65 20 22	300.!\302\232\207".[f-filename."
3ee0	2e 22 20 22 2e 2e 22 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 46 49 4c 45 29 22 5d 20 64 69 72 65	.".".."].3."\n\n(fn.FILE)"].dire
3f00	63 74 6f 72 79 2d 66 69 6c 65 73 20 74 20 2d 6d 61 70 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20	ctory-files.t.-map.make-closure.
3f20	23 5b 32 35 37 20 22 5c 33 30 32 01 21 5c 32 30 33 0d 00 5c 33 30 31 01 5c 33 30 31 5c 32 34 32	#[257."\302.!\203..\301.\301\242
3f40	42 5c 32 34 30 5c 32 30 37 5c 33 30 33 01 21 5c 32 30 35 24 00 5c 33 30 31 01 5c 33 30 31 5c 32	B\240\207\303.!\205$.\301.\301\2
3f60	34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 31 5c 33 30 34 5c 33 30 31 5c 32 34 32 5c 33 30 35 04	42B\240\210\301\304\301\242\305.
3f80	5c 33 30 30 5c 22 5c 22 5c 32 34 30 5c 32 30 37 22 20 5b 56 30 20 56 31 20 66 2d 66 69 6c 65 5c	\300\"\"\240\207".[V0.V1.f-file\
3fa0	3f 20 66 2d 64 69 72 65 63 74 6f 72 79 5c 3f 20 61 70 70 65 6e 64 20 66 2d 2d 63 6f 6c 6c 65 63	?.f-directory\?.append.f--collec
3fc0	74 2d 65 6e 74 72 69 65 73 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 45 4e 54 52 59 29 22 5d 5d 20	t-entries].7."\n\n(fn.ENTRY)"]].
3fe0	39 20 28 23 24 20 2e 20 31 35 38 38 31 29 5d 29 0a 23 40 37 31 20 41 6e 61 70 68 6f 72 69 63 20	9.(#$...15881)]).#@71.Anaphoric.
4000	76 65 72 73 69 6f 6e 20 6f 66 20 60 66 2d 65 6e 74 72 69 65 73 27 2e 0a 0a 28 66 6e 20 50 41 54	version.of.`f-entries'...(fn.PAT
4020	48 20 42 4f 44 59 20 26 6f 70 74 69 6f 6e 61 6c 20 52 45 43 55 52 53 49 56 45 29 1f 0a 28 64 65	H.BODY.&optional.RECURSIVE)..(de
4040	66 61 6c 69 61 73 20 27 66 2d 2d 65 6e 74 72 69 65 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37	falias.'f--entries.'(macro...#[7
4060	37 30 20 22 5c 33 30 30 03 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 07 45 45 03 46 5c	70."\300.\301\302\303\304..EE.F\
4080	32 30 37 22 20 5b 66 2d 65 6e 74 72 69 65 73 20 6c 61 6d 62 64 61 20 28 70 61 74 68 29 20 6c 65	207".[f-entries.lambda.(path).le
40a0	74 20 28 28 69 74 20 70 61 74 68 29 29 5d 20 31 30 20 28 23 24 20 2e 20 31 36 33 37 34 29 5d 29	t.((it.path))].10.(#$...16374)])
40c0	29 0a 23 40 32 34 37 20 46 69 6e 64 20 61 6c 6c 20 66 69 6c 65 73 20 61 6e 64 20 64 69 72 65 63	).#@247.Find.all.files.and.direc
40e0	74 6f 72 69 65 73 20 69 6e 20 50 41 54 48 2e 0a 0a 46 4e 20 2d 20 63 61 6c 6c 65 64 20 66 6f 72	tories.in.PATH...FN.-.called.for
4100	20 65 61 63 68 20 66 6f 75 6e 64 20 66 69 6c 65 20 61 6e 64 20 64 69 72 65 63 74 6f 72 79 2e 20	.each.found.file.and.directory..
4120	20 49 66 20 46 4e 20 72 65 74 75 72 6e 73 20 61 20 74 68 72 75 74 68 79 0a 76 61 6c 75 65 2c 20	.If.FN.returns.a.thruthy.value,.
4140	66 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79 20 77 69 6c 6c 20 62 65 20 69 6e 63 6c 75 64	file.or.directory.will.be.includ
4160	65 64 2e 0a 52 45 43 55 52 53 49 56 45 20 2d 20 53 65 61 72 63 68 20 66 6f 72 20 66 69 6c 65 73	ed..RECURSIVE.-.Search.for.files
4180	20 61 6e 64 20 64 69 72 65 63 74 6f 72 69 65 73 20 72 65 63 75 72 73 69 76 65 2e 0a 0a 28 66 6e	.and.directories.recursive...(fn
41a0	20 50 41 54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 46 4e 20 52 45 43 55 52 53 49 56 45 29 1f 0a 28	.PATH.&optional.FN.RECURSIVE)..(
41c0	64 65 66 61 6c 69 61 73 20 27 66 2d 65 6e 74 72 69 65 73 20 23 5b 37 36 39 20 22 5c 33 30 30 03	defalias.'f-entries.#[769."\300.
41e0	02 5c 22 02 5c 32 30 33 0d 00 5c 33 30 31 03 02 5c 22 5c 32 30 37 5c 32 30 37 22 20 5b 66 2d 2d	.\".\203..\301..\"\207\207".[f--
4200	63 6f 6c 6c 65 63 74 2d 65 6e 74 72 69 65 73 20 2d 73 65 6c 65 63 74 5d 20 37 20 28 23 24 20 2e	collect-entries.-select].7.(#$..
4220	20 31 36 35 38 34 29 5d 29 0a 23 40 37 35 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e	.16584)]).#@75.Anaphoric.version
4240	20 6f 66 20 60 66 2d 64 69 72 65 63 74 6f 72 69 65 73 27 2e 0a 0a 28 66 6e 20 50 41 54 48 20 42	.of.`f-directories'...(fn.PATH.B
4260	4f 44 59 20 26 6f 70 74 69 6f 6e 61 6c 20 52 45 43 55 52 53 49 56 45 29 1f 0a 28 64 65 66 61 6c	ODY.&optional.RECURSIVE)..(defal
4280	69 61 73 20 27 66 2d 2d 64 69 72 65 63 74 6f 72 69 65 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b	ias.'f--directories.'(macro...#[
42a0	37 37 30 20 22 5c 33 30 30 03 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 07 45 45 03 46	770."\300.\301\302\303\304..EE.F
42c0	5c 32 30 37 22 20 5b 66 2d 64 69 72 65 63 74 6f 72 69 65 73 20 6c 61 6d 62 64 61 20 28 70 61 74	\207".[f-directories.lambda.(pat
42e0	68 29 20 6c 65 74 20 28 28 69 74 20 70 61 74 68 29 29 5d 20 31 30 20 28 23 24 20 2e 20 31 36 39	h).let.((it.path))].10.(#$...169
4300	34 33 29 5d 29 29 0a 23 40 38 33 20 46 69 6e 64 20 61 6c 6c 20 64 69 72 65 63 74 6f 72 69 65 73	43)])).#@83.Find.all.directories
4320	20 69 6e 20 50 41 54 48 2e 20 20 53 65 65 20 60 66 2d 65 6e 74 72 69 65 73 27 2e 0a 0a 28 66 6e	.in.PATH...See.`f-entries'...(fn
4340	20 50 41 54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 46 4e 20 52 45 43 55 52 53 49 56 45 29 1f 0a 28	.PATH.&optional.FN.RECURSIVE)..(
4360	64 65 66 61 6c 69 61 73 20 27 66 2d 64 69 72 65 63 74 6f 72 69 65 73 20 23 5b 37 36 39 20 22 5c	defalias.'f-directories.#[769."\
4380	33 30 30 5c 33 30 31 5c 33 30 32 05 04 5c 22 5c 22 02 5c 32 30 33 10 00 5c 33 30 30 03 02 5c 22	300\301\302..\"\".\203..\300..\"
43a0	5c 32 30 37 5c 32 30 37 22 20 5b 2d 73 65 6c 65 63 74 20 66 2d 64 69 72 65 63 74 6f 72 79 5c 3f	\207\207".[-select.f-directory\?
43c0	20 66 2d 2d 63 6f 6c 6c 65 63 74 2d 65 6e 74 72 69 65 73 5d 20 38 20 28 23 24 20 2e 20 31 37 31	.f--collect-entries].8.(#$...171
43e0	36 34 29 5d 29 0a 23 40 36 39 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20	64)]).#@69.Anaphoric.version.of.
4400	60 66 2d 66 69 6c 65 73 27 2e 0a 0a 28 66 6e 20 50 41 54 48 20 42 4f 44 59 20 26 6f 70 74 69 6f	`f-files'...(fn.PATH.BODY.&optio
4420	6e 61 6c 20 52 45 43 55 52 53 49 56 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 2d 66 69	nal.RECURSIVE)..(defalias.'f--fi
4440	6c 65 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 30 20 22 5c 33 30 30 03 5c 33 30 31 5c 33	les.'(macro...#[770."\300.\301\3
4460	30 32 5c 33 30 33 5c 33 30 34 06 07 45 45 03 46 5c 32 30 37 22 20 5b 66 2d 66 69 6c 65 73 20 6c	02\303\304..EE.F\207".[f-files.l
4480	61 6d 62 64 61 20 28 70 61 74 68 29 20 6c 65 74 20 28 28 69 74 20 70 61 74 68 29 29 5d 20 31 30	ambda.(path).let.((it.path))].10
44a0	20 28 23 24 20 2e 20 31 37 33 38 37 29 5d 29 29 0a 23 40 37 37 20 46 69 6e 64 20 61 6c 6c 20 66	.(#$...17387)])).#@77.Find.all.f
44c0	69 6c 65 73 20 69 6e 20 50 41 54 48 2e 20 20 53 65 65 20 60 66 2d 65 6e 74 72 69 65 73 27 2e 0a	iles.in.PATH...See.`f-entries'..
44e0	0a 28 66 6e 20 50 41 54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 46 4e 20 52 45 43 55 52 53 49 56 45	.(fn.PATH.&optional.FN.RECURSIVE
4500	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 66 69 6c 65 73 20 23 5b 37 36 39 20 22 5c 33 30	)..(defalias.'f-files.#[769."\30
4520	30 5c 33 30 31 5c 33 30 32 05 04 5c 22 5c 22 02 5c 32 30 33 10 00 5c 33 30 30 03 02 5c 22 5c 32	0\301\302..\"\".\203..\300..\"\2
4540	30 37 5c 32 30 37 22 20 5b 2d 73 65 6c 65 63 74 20 66 2d 66 69 6c 65 5c 3f 20 66 2d 2d 63 6f 6c	07\207".[-select.f-file\?.f--col
4560	6c 65 63 74 2d 65 6e 74 72 69 65 73 5d 20 38 20 28 23 24 20 2e 20 31 37 35 39 30 29 5d 29 0a 23	lect-entries].8.(#$...17590)]).#
4580	40 37 30 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 66 2d 74 72 61 76	@70.Anaphoric.version.of.`f-trav
45a0	65 72 73 65 2d 75 70 77 61 72 64 73 27 2e 0a 0a 28 66 6e 20 42 4f 44 59 20 26 6f 70 74 69 6f 6e	erse-upwards'...(fn.BODY.&option
45c0	61 6c 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 2d 74 72 61 76 65 72 73 65	al.PATH)..(defalias.'f--traverse
45e0	2d 75 70 77 61 72 64 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 33 20 22 5c 33 30 30 5c 33	-upwards.'(macro...#[513."\300\3
4600	30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 45 45 02 45 5c 32 30 37 22 20 5b 66 2d 74 72 61	01\302\303\304..EE.E\207".[f-tra
4620	76 65 72 73 65 2d 75 70 77 61 72 64 73 20 6c 61 6d 62 64 61 20 28 64 69 72 29 20 6c 65 74 20 28	verse-upwards.lambda.(dir).let.(
4640	28 69 74 20 64 69 72 29 29 5d 20 38 20 28 23 24 20 2e 20 31 37 37 39 36 29 5d 29 29 0a 23 40 32	(it.dir))].8.(#$...17796)])).#@2
4660	32 34 20 54 72 61 76 65 72 73 65 20 75 70 20 61 73 20 6c 6f 6e 67 20 61 73 20 46 4e 20 72 65 74	24.Traverse.up.as.long.as.FN.ret
4680	75 72 6e 20 6e 69 6c 2c 20 73 74 61 72 74 69 6e 67 20 61 74 20 50 41 54 48 2e 0a 0a 49 66 20 46	urn.nil,.starting.at.PATH...If.F
46a0	4e 20 72 65 74 75 72 6e 73 20 61 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2c 20 74 68 65 20 70	N.returns.a.non-nil.value,.the.p
46c0	61 74 68 20 73 65 6e 74 20 61 73 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 46 4e 20 69 73 0a 72 65	ath.sent.as.argument.to.FN.is.re
46e0	74 75 72 6e 65 64 2e 20 20 49 66 20 6e 6f 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 62 61 63 6b	turned...If.no.function.callback
4700	20 72 65 74 75 72 6e 20 61 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2c 20 6e 69 6c 20 69 73 0a	.return.a.non-nil.value,.nil.is.
4720	72 65 74 75 72 6e 65 64 2e 0a 0a 28 66 6e 20 46 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 50 41 54 48	returned...(fn.FN.&optional.PATH
4740	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 74 72 61 76 65 72 73 65 2d 75 70 77 61 72 64 73	)..(defalias.'f-traverse-upwards
4760	20 23 5b 35 31 33 20 22 5c 32 31 31 5c 32 30 34 07 00 08 5c 32 36 32 01 5c 33 30 31 01 21 5c 32	.#[513."\211\204...\262.\301.!\2
4780	30 33 12 00 5c 33 30 32 01 21 5c 32 36 32 01 01 01 21 5c 32 30 33 19 00 5c 32 30 37 5c 33 30 33	03..\302.!\262...!\203..\207\303
47a0	01 21 3f 5c 32 30 35 26 00 5c 33 30 34 02 5c 33 30 35 03 21 5c 22 5c 32 30 37 22 20 5b 64 65 66	.!?\205&.\304.\305.!\"\207".[def
47c0	61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 66 2d 72 65 6c 61 74 69 76 65 5c 3f 20 66 2d 65 78	ault-directory.f-relative\?.f-ex
47e0	70 61 6e 64 20 66 2d 72 6f 6f 74 5c 3f 20 66 2d 74 72 61 76 65 72 73 65 2d 75 70 77 61 72 64 73	pand.f-root\?.f-traverse-upwards
4800	20 66 2d 70 61 72 65 6e 74 5d 20 36 20 28 23 24 20 2e 20 31 38 30 31 39 29 5d 29 0a 23 40 32 33	.f-parent].6.(#$...18019)]).#@23
4820	20 52 65 74 75 72 6e 20 61 62 73 6f 6c 75 74 65 20 72 6f 6f 74 2e 1f 0a 28 64 65 66 61 6c 69 61	.Return.absolute.root...(defalia
4840	73 20 27 66 2d 72 6f 6f 74 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 30 37 22 20 5b 66	s.'f-root.#[0."\300\301!\207".[f
4860	2d 74 72 61 76 65 72 73 65 2d 75 70 77 61 72 64 73 20 66 2d 72 6f 6f 74 5c 3f 5d 20 32 20 28 23	-traverse-upwards.f-root\?].2.(#
4880	24 20 2e 20 31 38 34 36 35 29 5d 29 0a 23 40 39 37 20 4f 6e 6c 79 20 61 6c 6c 6f 77 20 50 41 54	$...18465)]).#@97.Only.allow.PAT
48a0	48 2d 4f 52 2d 50 41 54 48 53 20 61 6e 64 20 64 65 73 63 65 6e 64 61 6e 74 73 20 74 6f 20 62 65	H-OR-PATHS.and.descendants.to.be
48c0	20 6d 6f 64 69 66 69 65 64 20 69 6e 20 42 4f 44 59 2e 0a 0a 28 66 6e 20 50 41 54 48 2d 4f 52 2d	.modified.in.BODY...(fn.PATH-OR-
48e0	50 41 54 48 53 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d	PATHS.&rest.BODY)..(defalias.'f-
4900	77 69 74 68 2d 73 61 6e 64 62 6f 78 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33	with-sandbox.'(macro...#[385."\3
4920	30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 05 44 05 5c 33 30 34 06 07 44 46 44 43 5c 33 30 35 5c	00\301\302\303.D.\304..DFDC\305\
4940	33 30 30 5c 33 30 36 05 42 42 5c 33 30 37 42 42 45 5c 32 30 37 22 20 5b 6c 65 74 20 70 61 74 68	300\306.BB\307BBE\207".[let.path
4960	73 20 69 66 20 6c 69 73 74 70 20 6c 69 73 74 20 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 28	s.if.listp.list.unwind-protect.(
4980	28 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20 70 61 74 68 73 29 29 20 28 28 73 65 74 71 20 66	(f--guard-paths.paths)).((setq.f
49a0	2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20 6e 69 6c 29 29 5d 20 39 20 28 23 24 20 2e 20 31 38 35	--guard-paths.nil))].9.(#$...185
49c0	37 38 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	78)])).(byte-code."\300\301\302\
49e0	33 30 33 23 5c 33 30 34 5c 33 30 35 21 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74	303#\304\305!\207".[function-put
4a00	20 66 2d 77 69 74 68 2d 73 61 6e 64 62 6f 78 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63	.f-with-sandbox.lisp-indent-func
4a20	74 69 6f 6e 20 31 20 70 72 6f 76 69 64 65 20 66 5d 20 34 29 0a	tion.1.provide.f].4).