blob: 5690690454d126f2c36836ab7de63d99c2399cce (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 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.3.1.;;;.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 62 79 74 65 2d 63 6f 64 65 20	;;;;;;;;;;;;;;;;;;...(byte-code.
01a0	22 5c 33 30 30 5c 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	"\300\301!\210\300\302!\210\303\
01c0	33 30 34 5c 33 30 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	304\305\306#\210\303\304\307\310
01e0	23 5c 32 30 37 22 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	#\207".[require.s.dash.put.f-gua
0200	72 64 2d 65 72 72 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	rd-error.error-conditions.(error
0220	20 66 2d 67 75 61 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	.f-guard-error).error-message."D
0240	65 73 74 72 75 63 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	estructive.operation.outside.san
0260	64 62 6f 78 22 5d 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	dbox"].4).#@77.List.of.allowed.p
0280	61 74 68 73 20 74 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	aths.to.modify.when.guarded...Do
02a0	20 6e 6f 74 20 6d 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	.not.modify.this.variable...(def
02c0	76 61 72 20 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20 6e 69 6c 20 28 23 24 20 2e 20 36 32 33	var.f--guard-paths.nil.(#$...623
02e0	29 29 0a 23 40 31 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	)).#@123.If.PATH.is.allowed.to.b
0300	65 20 6d 6f 64 69 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	e.modified,.yield.BODY...If.PATH
0320	20 69 73 20 6e 6f 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	.is.not.allowed.to.be.modified,.
0340	74 68 72 6f 77 20 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	throw.error...(fn.PATH.&rest.BOD
0360	59 29 1f 0a 28 64 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	Y)..(defalias.'f--destructive.'(
0380	6d 61 63 72 6f 20 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	macro...#[385."\300\301\300\302\
03a0	33 30 33 5c 33 30 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	303\304\305..E\306\305..EE\307BB
03c0	5c 33 31 30 05 42 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	\310.B\311\312\313..\314BBEF.BBB
03e0	5c 32 30 37 22 20 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	\207".[if.f--guard-paths.--any\?
0400	20 6f 72 20 66 2d 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	.or.f-same\?.it.f-ancestor-of\?.
0420	28 66 2d 2d 67 75 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	(f--guard-paths).progn.signal.'f
0440	2d 67 75 61 72 64 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	-guard-error.list.(f--guard-path
0460	73 29 5d 20 31 32 20 28 23 24 20 2e 20 37 34 35 29 5d 29 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70	s)].12.(#$...745)])).(function-p
0480	75 74 20 27 66 2d 2d 64 65 73 74 72 75 63 74 69 76 65 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 2d	ut.'f--destructive.'lisp-indent-
04a0	66 75 6e 63 74 69 6f 6e 20 31 29 0a 23 40 34 36 20 4a 6f 69 6e 20 41 52 47 53 20 74 6f 20 61 20	function.1).#@46.Join.ARGS.to.a.
04c0	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 0a 28	single.path...(fn.&rest.ARGS)..(
04e0	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 33 30	defalias.'f-join.#[128."\300C\30
0500	31 02 40 21 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 07 21 5c	1.@!\302\303\304\305\306\307..!\
0520	33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 04 5c 22 5c 32 31 30 5c 32 31 31 5c 32 30 33 5c 22 00	310\"\311\312%.\"\210\211\203\".
0540	5c 33 31 33 02 5c 32 34 32 21 5c 32 30 32 24 00 01 5c 32 34 32 5c 32 30 37 22 20 5b 6e 69 6c 20	\313.\242!\202$..\242\207".[nil.
0560	66 2d 72 65 6c 61 74 69 76 65 5c 3f 20 2d 6d 61 70 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65	f-relative\?.-map.make-byte-code
0580	20 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 30 5c 32 30	.257."\300\301.\300\242\"\240\20
05a0	37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 66 2d 65 78 70 61 6e 64 5d 20 35 20 22	7".vconcat.vector.[f-expand].5."
05c0	5c 6e 5c 6e 28 66 6e 20 41 52 47 29 22 20 66 2d 72 65 6c 61 74 69 76 65 5d 20 31 30 20 28 23 24	\n\n(fn.ARG)".f-relative].10.(#$
05e0	20 2e 20 31 32 30 31 29 5d 29 0a 23 40 35 37 20 53 70 6c 69 74 20 50 41 54 48 20 61 6e 64 20 72	...1201)]).#@57.Split.PATH.and.r
0600	65 74 75 72 6e 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 70 61 72 74 73 2e 0a 0a 28 66	eturn.list.containing.parts...(f
0620	6e 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 73 70 6c 69 74 20 23 5b 32 35	n.PATH)..(defalias.'f-split.#[25
0640	37 20 22 5c 33 30 30 5c 33 30 31 20 02 5c 33 30 32 23 5c 33 30 33 02 21 5c 32 30 33 16 00 5c 33	7."\300\301..\302#\303.!\203..\3
0660	30 31 20 01 42 5c 32 31 31 5c 32 36 32 02 5c 32 30 32 17 00 5c 32 31 31 5c 32 30 37 22 20 5b 73	01..B\211\262.\202..\211\207".[s
0680	2d 73 70 6c 69 74 20 66 2d 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 20 6f 6d 69 74 2d 6e 75 6c	-split.f-path-separator.omit-nul
06a0	6c 73 20 66 2d 61 62 73 6f 6c 75 74 65 5c 3f 5d 20 35 20 28 23 24 20 2e 20 31 35 32 30 29 5d 29	ls.f-absolute\?].5.(#$...1520)])
06c0	0a 23 40 32 37 34 20 45 78 70 61 6e 64 20 50 41 54 48 20 72 65 6c 61 74 69 76 65 20 74 6f 20 44	.#@274.Expand.PATH.relative.to.D
06e0	49 52 20 28 6f 72 20 60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 27 29 2e 0a 50 41 54	IR.(or.`default-directory')..PAT
0700	48 20 61 6e 64 20 44 49 52 20 63 61 6e 20 62 65 20 65 69 74 68 65 72 20 61 20 64 69 72 65 63 74	H.and.DIR.can.be.either.a.direct
0720	6f 72 79 20 6e 61 6d 65 73 20 6f 72 20 64 69 72 65 63 74 6f 72 79 20 66 69 6c 65 0a 6e 61 6d 65	ory.names.or.directory.file.name
0740	73 2e 20 20 52 65 74 75 72 6e 20 61 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 20 69 66 20 50	s...Return.a.directory.name.if.P
0760	41 54 48 20 69 73 20 61 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 2c 20 61 6e 64 0a 61 20 64	ATH.is.a.directory.name,.and.a.d
0780	69 72 65 63 74 6f 72 79 20 66 69 6c 65 20 6e 61 6d 65 20 6f 74 68 65 72 77 69 73 65 2e 20 20 46	irectory.file.name.otherwise...F
07a0	69 6c 65 20 6e 61 6d 65 20 68 61 6e 64 6c 65 72 73 20 61 72 65 0a 69 67 6e 6f 72 65 64 2e 0a 0a	ile.name.handlers.are.ignored...
07c0	28 66 6e 20 50 41 54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 44 49 52 29 1f 0a 28 64 65 66 61 6c 69	(fn.PATH.&optional.DIR)..(defali
07e0	61 73 20 27 66 2d 65 78 70 61 6e 64 20 23 5b 35 31 33 20 22 5c 33 30 31 18 5c 33 30 32 02 02 5c	as.'f-expand.#[513."\301.\302..\
0800	22 29 5c 32 30 37 22 20 5b 66 69 6c 65 2d 6e 61 6d 65 2d 68 61 6e 64 6c 65 72 2d 61 6c 69 73 74	")\207".[file-name-handler-alist
0820	20 6e 69 6c 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 5d 20 35 20 28 23 24 20 2e 20 31	.nil.expand-file-name].5.(#$...1
0840	37 33 35 29 5d 29 0a 23 40 33 37 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 50	735)]).#@37.Return.the.name.of.P
0860	41 54 48 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 66 69	ATH...(fn.PATH)..(defalias.'f-fi
0880	6c 65 6e 61 6d 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	lename.#[257."\300\301.!!\207".[
08a0	66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 64 69 72 65 63 74 6f 72 79	file-name-nondirectory.directory
08c0	2d 66 69 6c 65 2d 6e 61 6d 65 5d 20 34 20 28 23 24 20 2e 20 32 31 32 34 29 5d 29 0a 28 64 65 66	-file-name].4.(#$...2124)]).(def
08e0	61 6c 69 61 73 20 27 66 2d 70 61 72 65 6e 74 20 27 66 2d 64 69 72 6e 61 6d 65 29 0a 23 40 34 39	alias.'f-parent.'f-dirname).#@49
0900	20 52 65 74 75 72 6e 20 74 68 65 20 70 61 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 74 6f 20	.Return.the.parent.directory.to.
0920	50 41 54 48 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 64	PATH...(fn.PATH)..(defalias.'f-d
0940	69 72 6e 61 6d 65 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 03 08 5c 22 21 21	irname.#[257."\301\302\303..\"!!
0960	5c 33 30 34 02 02 5c 22 3f 5c 32 30 35 1f 00 5c 33 30 35 02 21 5c 32 30 33 1c 00 5c 33 30 36 01	\304..\"?\205..\305.!\203..\306.
0980	21 5c 32 30 32 1f 00 5c 33 30 32 01 21 5c 32 30 37 22 20 5b 64 65 66 61 75 6c 74 2d 64 69 72 65	!\202..\302.!\207".[default-dire
09a0	63 74 6f 72 79 20 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 65 63 74	ctory.file-name-directory.direct
09c0	6f 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 2d 65 78 70 61 6e 64 20 66 2d 73 61 6d 65 5c 3f 20	ory-file-name.f-expand.f-same\?.
09e0	66 2d 72 65 6c 61 74 69 76 65 5c 3f 20 66 2d 72 65 6c 61 74 69 76 65 5d 20 36 20 28 23 24 20 2e	f-relative\?.f-relative].6.(#$..
0a00	20 32 33 30 35 29 5d 29 0a 23 40 36 36 20 52 65 74 75 72 6e 20 74 68 65 20 64 65 65 70 65 73 74	.2305)]).#@66.Return.the.deepest
0a20	20 63 6f 6d 6d 6f 6e 20 70 61 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 50 41 54 48	.common.parent.directory.of.PATH
0a40	53 2e 0a 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 63 6f 6d	S...(fn.PATHS)..(defalias.'f-com
0a60	6d 6f 6e 2d 70 61 72 65 6e 74 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30	mon-parent.#[257."\211\204..\300
0a80	5c 32 30 37 5c 32 31 31 41 5c 32 30 34 10 00 5c 33 30 31 01 40 21 5c 32 30 37 5c 33 30 32 5c 33	\207\211A\204..\301.@!\207\302\3
0aa0	30 33 02 5c 22 5c 32 31 31 40 40 5c 33 30 30 02 40 5c 32 30 33 65 00 5c 33 30 34 03 5c 33 30 34	03.\"\211@@\300.@\203e.\304.\304
0ac0	5c 33 30 35 02 5c 32 30 33 48 00 01 5c 32 30 33 48 00 02 40 04 5c 32 30 34 35 00 5c 33 30 30 5c	\305.\203H..\203H..@.\2045.\300\
0ae0	32 36 32 03 5c 32 30 32 3c 00 5c 32 31 31 40 06 07 5c 32 33 32 5c 32 36 32 05 5c 32 31 30 5c 32	262.\202<.\211@..\232\262.\210\2
0b00	31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 21 00 5c 32 36 36 03 5c 33 30 36 01 21	11T\262..A\262.\202!.\266.\306.!
0b20	5c 32 36 32 01 5c 32 30 33 65 00 5c 33 30 32 5c 33 30 37 04 5c 22 5c 32 36 32 03 01 01 42 5c 32	\262.\203e.\302\307.\"\262...B\2
0b40	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 6d 00 5c 33 31 30 5c	62..@@\262.\202..\211\204m.\310\
0b60	32 30 32 5c 32 30 37 00 5c 32 31 31 47 5c 33 31 31 55 5c 32 30 33 5c 32 30 30 00 5c 33 31 32 01	202\207.\211G\311U\203\200.\312.
0b80	40 21 5c 32 30 33 5c 32 30 30 00 5c 33 31 33 20 5c 32 30 32 5c 32 30 37 00 5c 33 31 34 5c 33 31	@!\203\200.\313.\202\207.\314\31
0ba0	35 02 5c 32 33 37 5c 22 5c 33 31 36 50 5c 32 30 37 22 20 5b 6e 69 6c 20 66 2d 70 61 72 65 6e 74	5.\237\"\316P\207".[nil.f-parent
0bc0	20 2d 6d 61 70 20 66 2d 73 70 6c 69 74 20 74 20 30 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 63 64	.-map.f-split.t.0.---truthy\?.cd
0be0	72 20 22 22 20 31 20 66 2d 72 6f 6f 74 5c 3f 20 66 2d 72 6f 6f 74 20 61 70 70 6c 79 20 66 2d 6a	r."".1.f-root\?.f-root.apply.f-j
0c00	6f 69 6e 20 22 2f 22 5d 20 31 31 20 28 23 24 20 2e 20 32 35 37 34 29 5d 29 0a 23 40 31 36 35 20	oin."/"].11.(#$...2574)]).#@165.
0c20	52 65 74 75 72 6e 20 74 68 65 20 66 69 6c 65 20 65 78 74 65 6e 73 69 6f 6e 20 6f 66 20 50 41 54	Return.the.file.extension.of.PAT
0c40	48 2e 0a 0a 54 68 65 20 65 78 74 65 6e 73 69 6f 6e 2c 20 69 6e 20 61 20 66 69 6c 65 20 6e 61 6d	H...The.extension,.in.a.file.nam
0c60	65 2c 20 69 73 20 74 68 65 20 70 61 72 74 20 74 68 61 74 20 66 6f 6c 6c 6f 77 73 20 74 68 65 20	e,.is.the.part.that.follows.the.
0c80	6c 61 73 74 0a 27 2e 27 2c 20 65 78 63 6c 75 64 69 6e 67 20 76 65 72 73 69 6f 6e 20 6e 75 6d 62	last.'.',.excluding.version.numb
0ca0	65 72 73 20 61 6e 64 20 62 61 63 6b 75 70 20 73 75 66 66 69 78 65 73 2e 0a 0a 28 66 6e 20 50 41	ers.and.backup.suffixes...(fn.PA
0cc0	54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 65 78 74 20 23 5b 32 35 37 20 22 5c 33 30	TH)..(defalias.'f-ext.#[257."\30
0ce0	30 01 21 5c 32 30 37 22 20 5b 66 69 6c 65 2d 6e 61 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 5d 20 33	0.!\207".[file-name-extension].3
0d00	20 28 23 24 20 2e 20 33 31 30 34 29 5d 29 0a 23 40 36 32 20 52 65 74 75 72 6e 20 65 76 65 72 79	.(#$...3104)]).#@62.Return.every
0d20	74 68 69 6e 67 20 62 75 74 20 74 68 65 20 66 69 6c 65 20 65 78 74 65 6e 73 69 6f 6e 20 6f 66 20	thing.but.the.file.extension.of.
0d40	50 41 54 48 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 6e	PATH...(fn.PATH)..(defalias.'f-n
0d60	6f 2d 65 78 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 66 69 6c 65 2d 6e	o-ext.#[257."\300.!\207".[file-n
0d80	61 6d 65 2d 73 61 6e 73 2d 65 78 74 65 6e 73 69 6f 6e 5d 20 33 20 28 23 24 20 2e 20 33 33 34 38	ame-sans-extension].3.(#$...3348
0da0	29 5d 29 0a 23 40 39 33 20 52 65 74 75 72 6e 20 50 41 54 48 20 62 75 74 20 77 69 74 68 20 45 58	)]).#@93.Return.PATH.but.with.EX
0dc0	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 54 20 6d 75 73 74	T.as.the.new.extension..EXT.must
0de0	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 20 50 41 54 48 20	.not.be.nil.or.empty...(fn.PATH.
0e00	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 74 20 23 5b 35 31	EXT)..(defalias.'f-swap-ext.#[51
0e20	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 32 30 37 5c 33 30	4."\300.!\203\n.\301\302!\207\30
0e40	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 65 72 72 6f 72 20	3.!\304.Q\207".[s-blank\?.error.
0e60	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 20 6f 72 20 6e 69	"Extension.cannot.be.empty.or.ni
0e80	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 33 34 39 37 29 5d 29	l".f-no-ext."."].5.(#$...3497)])
0ea0	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 41 54 48 2c 20 65	.#@70.Return.the.name.of.PATH,.e
0ec0	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 66 69 6c 65 2e 0a	xcluding.the.extension.of.file..
0ee0	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 61 73 65 20 23 5b	.(fn.PATH)..(defalias.'f-base.#[
0f00	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 6f 2d 65 78 74 20	257."\300\301.!!\207".[f-no-ext.
0f20	66 2d 66 69 6c 65 6e 61 6d 65 5d 20 34 20 28 23 24 20 2e 20 33 37 35 30 29 5d 29 0a 23 40 35 35	f-filename].4.(#$...3750)]).#@55
0f40	20 52 65 74 75 72 6e 20 50 41 54 48 20 72 65 6c 61 74 69 76 65 20 74 6f 20 44 49 52 2e 0a 0a 28	.Return.PATH.relative.to.DIR...(
0f60	66 6e 20 50 41 54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 44 49 52 29 1f 0a 28 64 65 66 61 6c 69 61	fn.PATH.&optional.DIR)..(defalia
0f80	73 20 27 66 2d 72 65 6c 61 74 69 76 65 20 23 5b 35 31 33 20 22 5c 33 30 30 02 02 5c 22 5c 32 30	s.'f-relative.#[513."\300..\"\20
0fa0	37 22 20 5b 66 69 6c 65 2d 72 65 6c 61 74 69 76 65 2d 6e 61 6d 65 5d 20 35 20 28 23 24 20 2e 20	7".[file-relative-name].5.(#$...
0fc0	33 39 30 35 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 61 62 62 72 65 76 20 27 66 2d 73	3905)]).(defalias.'f-abbrev.'f-s
0fe0	68 6f 72 74 29 0a 23 40 36 34 20 52 65 74 75 72 6e 20 61 62 62 72 65 76 20 6f 66 20 50 41 54 48	hort).#@64.Return.abbrev.of.PATH
1000	2e 20 20 53 65 65 20 60 61 62 62 72 65 76 69 61 74 65 2d 66 69 6c 65 2d 6e 61 6d 65 27 2e 0a 0a	...See.`abbreviate-file-name'...
1020	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 68 6f 72 74 20 23 5b	(fn.PATH)..(defalias.'f-short.#[
1040	32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 61 62 62 72 65 76 69 61 74 65 2d 66 69 6c	257."\300.!\207".[abbreviate-fil
1060	65 2d 6e 61 6d 65 5d 20 33 20 28 23 24 20 2e 20 34 30 37 35 29 5d 29 0a 23 40 34 31 20 52 65 74	e-name].3.(#$...4075)]).#@41.Ret
1080	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
10a0	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."\
10c0	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 34 32	300.!\207".[f-expand].3.(#$...42
10e0	32 31 29 5d 29 0a 23 40 34 37 20 52 65 74 75 72 6e 20 74 68 65 20 63 61 6e 6f 6e 69 63 61 6c 20	21)]).#@47.Return.the.canonical.
1100	6e 61 6d 65 20 6f 66 20 50 41 54 48 2e 0a 0a 28 66 6e 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c	name.of.PATH...(fn.PATH)..(defal
1120	69 61 73 20 27 66 2d 63 61 6e 6f 6e 69 63 61 6c 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32	ias.'f-canonical.#[257."\300.!\2
1140	30 37 22 20 5b 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 5d 20 33 20 28 23 24 20 2e 20 34 33 33 31	07".[file-truename].3.(#$...4331
1160	29 5d 29 0a 23 40 31 33 31 20 41 70 70 65 6e 64 20 73 6c 61 73 68 20 74 6f 20 50 41 54 48 20 75	)]).#@131.Append.slash.to.PATH.u
1180	6e 6c 65 73 73 20 6f 6e 65 20 61 6c 72 65 61 64 79 2e 0a 0a 53 6f 6d 65 20 66 75 6e 63 74 69 6f	nless.one.already...Some.functio
11a0	6e 73 2c 20 73 75 63 68 20 61 73 20 60 63 61 6c 6c 2d 70 72 6f 63 65 73 73 27 20 72 65 71 75 69	ns,.such.as.`call-process'.requi
11c0	72 65 73 20 74 68 65 72 65 20 74 6f 20 62 65 20 61 6e 0a 65 6e 64 69 6e 67 20 73 6c 61 73 68 2e	res.there.to.be.an.ending.slash.
11e0	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 6c 61 73 68 20	..(fn.PATH)..(defalias.'f-slash.
1200	23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 33 5c 6e 00 5c 33 30 31 01 21 5c 32 30 37 5c 32	#[257."\300.!\203\n.\301.!\207\2
1220	30 37 22 20 5b 66 2d 64 69 72 5c 3f 20 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74	07".[f-dir\?.file-name-as-direct
1240	6f 72 79 5d 20 33 20 28 23 24 20 2e 20 34 34 35 38 29 5d 29 0a 23 40 36 31 20 52 65 74 75 72 6e	ory].3.(#$...4458)]).#@61.Return
1260	20 61 62 73 6f 6c 75 74 65 20 70 61 74 68 20 74 6f 20 50 41 54 48 2c 20 77 69 74 68 20 65 6e 64	.absolute.path.to.PATH,.with.end
1280	69 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	ing.slash...(fn.PATH)..(defalias
12a0	20 27 66 2d 66 75 6c 6c 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 21 21 5c 32 30 37 22	.'f-full.#[257."\300\301.!!\207"
12c0	20 5b 66 2d 73 6c 61 73 68 20 66 2d 6c 6f 6e 67 5d 20 34 20 28 23 24 20 2e 20 34 36 39 38 29 5d	.[f-slash.f-long].4.(#$...4698)]
12e0	29 0a 23 40 36 31 20 48 65 6c 70 65 72 20 66 6f 72 20 60 66 2d 75 6e 69 71 75 69 66 79 27 20 61	).#@61.Helper.for.`f-uniquify'.a
1300	6e 64 20 60 66 2d 75 6e 69 71 75 69 66 79 2d 61 6c 69 73 74 27 2e 0a 0a 28 66 6e 20 50 41 54 48	nd.`f-uniquify-alist'...(fn.PATH
1320	53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 2d 75 6e 69 71 75 69 66 79 20 23 5b 32 35 37	S)..(defalias.'f--uniquify.#[257
1340	20 22 5c 32 31 31 47 5c 33 30 30 5c 33 30 31 03 5c 22 5c 33 30 32 5c 33 30 33 02 5c 22 02 01 47	."\211G\300\301.\"\302\303.\"..G
1360	55 5c 32 30 34 21 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 30 5c 33 30 36 06	U\204!.\302\303\304\305\300\306.
1380	06 5c 22 5c 22 5c 22 5c 32 36 32 01 5c 32 30 32 5c 6e 00 5c 32 30 37 22 20 5b 6d 61 70 63 61 72	.\"\"\"\262.\202\n.\207".[mapcar
13a0	20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 30 02 21 42 5c 32 30 37 22 20 5b 66 2d 66 69 6c 65	.#[257."\211\300.!B\207".[f-file
13c0	6e 61 6d 65 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 2d 67 72 6f 75 70 2d 62 79	name].4."\n\n(fn.IT)"].-group-by
13e0	20 63 64 72 20 61 70 70 6c 79 20 61 70 70 65 6e 64 20 23 5b 32 35 37 20 22 5c 32 31 31 41 5c 32	.cdr.apply.append.#[257."\211A\2
1400	31 31 47 5c 33 30 30 56 5c 32 30 33 10 00 5c 33 30 31 5c 33 30 32 02 5c 22 5c 32 30 32 11 00 5c	11G\300V\203..\301\302.\"\202..\
1420	32 31 31 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 31 40 5c	211\207".[1.mapcar.#[257."\211@\
1440	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 5b 66 2d	300\301.A.@\"!\302..AQB\207".[f-
1460	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 2d 73 65	filename.s-chop-suffix.f-path-se
1480	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 22 5c 6e	parator].6."\n\n(fn.IT)"]].5."\n
14a0	5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 31 31 20 28 23 24 20 2e 20 34 38 33 39 29 5d 29 0a 23 40	\n(fn.IT)"]].11.(#$...4839)]).#@
14c0	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 46 49 4c	89.Return.unique.suffixes.of.FIL
14e0	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 20 64 75	ES...This.function.expects.no.du
1500	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 64 65 66	plicate.paths...(fn.FILES)..(def
1520	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 5c 33 30	alias.'f-uniquify.#[257."\300\30
1540	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 6e 69 71	1\302.!\"\207".[-map.car.f--uniq
1560	75 69 66 79 5d 20 35 20 28 23 24 20 2e 20 35 33 31 35 29 5d 29 0a 23 40 31 31 32 20 52 65 74 75	uify].5.(#$...5315)]).#@112.Retu
1580	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 71 75 65	rn.alist.mapping.FILES.to.unique
15a0	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 63 74 69	.suffixes.of.FILES...This.functi
15c0	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 2e 0a 0a	on.expects.no.duplicate.paths...
15e0	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 75 69 66	(fn.FILES)..(defalias.'f-uniquif
1600	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 5c 22 5c	y-alist.#[257."\300\301\302.!\"\
1620	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 35 20 28	207".[-map.cadr.f--uniquify].5.(
1640	23 24 20 2e 20 35 35 30 30 29 5d 29 0a 23 40 38 33 20 52 65 61 64 20 62 69 6e 61 72 79 20 64 61	#$...5500)]).#@83.Read.binary.da
1660	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 6e 61 72 79	ta.from.PATH...Return.the.binary
1680	20 64 61 74 61 20 61 73 20 75 6e 69 62 79 74 65 20 73 74 72 69 6e 67 2e 0a 0a 28 66 6e 20 50 41	.data.as.unibyte.string...(fn.PA
16a0	54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 72 65 61 64 2d 62 79 74 65 73 20 23 5b 32	TH)..(defalias.'f-read-bytes.#[2
16c0	35 37 20 22 5c 33 30 31 5c 33 30 32 21 72 5c 32 31 31 71 5c 32 31 30 5c 33 30 33 5c 33 30 34 5c	57."\301\302!r\211q\210\303\304\
16e0	33 30 35 5c 33 30 36 5c 33 30 37 05 21 5c 33 31 30 5c 22 5c 33 31 31 24 5c 32 31 36 5c 33 31 32	305\306\307.!\310\"\311$\216\312
1700	5c 33 31 33 21 5c 32 31 30 5c 33 31 34 10 5c 33 31 35 02 21 5c 32 31 30 5c 33 31 36 65 64 5c 22	\313!\210\314.\315.!\210\316ed\"
1720	2a 5c 32 30 37 22 20 5b 62 75 66 66 65 72 2d 66 69 6c 65 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65	*\207".[buffer-file-coding-syste
1740	6d 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22 20 2a 74 65 6d 70 2a 22 20	m.generate-new-buffer.".*temp*".
1760	6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 30 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 30 35 09	make-byte-code.0."\301\300!\205.
1780	00 5c 33 30 32 5c 33 30 30 21 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b	.\302\300!\207".vconcat.vector.[
17a0	62 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 20 73 65 74 2d 62	buffer-name.kill-buffer].2.set-b
17c0	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
17e0	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
1800	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 38 20 28 23 24 20	-substring-no-properties].8.(#$.
1820	2e 20 35 37 31 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	..5714)]).(defalias.'f-read.'f-r
1840	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
1860	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
1880	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
18a0	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...(
18c0	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
18e0	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
1900	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
1920	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].
1940	35 20 28 23 24 20 2e 20 36 32 32 34 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 77 72 69	5.(#$...6224)]).(defalias.'f-wri
1960	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
1980	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
19a0	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.
19c0	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
19e0	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
1a00	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)..(
1a20	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
1a40	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
1a60	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.(#$...
1a80	36 35 32 30 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	6520)]).#@50.Determine.whether.S
1aa0	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)..(
1ac0	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
1ae0	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
1b00	6e 67 2d 70 5d 20 33 20 28 23 24 20 2e 20 36 37 39 37 29 5d 29 0a 23 40 31 30 35 20 57 72 69 74	ng-p].3.(#$...6797)]).#@105.Writ
1b20	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.
1b40	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
1b60	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
1b80	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.#[
1ba0	35 31 34 20 22 08 5c 32 30 33 5c 32 31 31 00 5c 33 30 34 5c 33 30 35 08 5c 33 30 36 5c 33 30 37	514.".\203\211.\304\305.\306\307
1bc0	02 5c 32 30 33 38 00 01 5c 32 30 33 38 00 02 40 04 5c 32 30 33 1d 00 5c 33 30 35 5c 32 36 32 03	.\2038..\2038..@.\203..\305\262.
1be0	5c 32 30 32 2c 00 5c 33 31 30 01 06 08 5c 22 5c 32 30 36 2a 00 5c 33 31 31 01 06 08 5c 22 5c 32	\202,.\310...\"\206*.\311...\"\2
1c00	36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 09 00 5c 32	62.\210\211T\262..A\262.\202..\2
1c20	36 36 03 5c 32 31 31 5c 32 36 32 01 21 5c 32 30 33 5c 32 30 32 00 5c 33 31 32 02 21 5c 32 30 34	66.\211\262.!\203\202.\312.!\204
1c40	4e 00 5c 33 31 33 5c 33 31 34 5c 33 31 32 04 44 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31 35 19 1a	N.\313\314\312.D\"\210\305\315..
1c60	5c 32 31 31 5c 33 31 36 5c 33 31 37 5c 33 32 30 21 21 5c 33 32 31 5c 33 30 37 5c 33 32 32 5c 33	\211\316\317\320!!\321\307\322\3
1c80	32 33 5c 33 32 34 05 21 5c 33 32 35 5c 22 5c 33 32 36 24 5c 32 31 36 72 5c 32 31 31 71 5c 32 31	23\324.!\325\"\326$\216r\211q\21
1ca0	30 5c 33 31 35 13 5c 33 32 37 5c 33 30 35 21 5c 32 31 30 03 63 29 72 01 71 5c 32 31 30 5c 33 33	0\315.\327\305!\210.c)r.q\210\33
1cc0	30 5c 33 30 35 5c 32 31 31 05 5c 33 30 35 5c 33 30 37 25 5c 32 31 30 2a 5c 32 36 36 5c 32 30 32	0\305\211.\305\307%\210*\266\202
1ce0	2a 5c 32 30 37 5c 33 31 33 5c 33 33 31 02 08 44 5c 22 5c 32 30 37 5c 33 31 32 02 21 5c 32 30 34	*\207\313\331..D\"\207\312.!\204
1d00	5c 32 32 36 00 5c 33 31 33 5c 33 31 34 5c 33 31 32 04 44 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31	\226.\313\314\312.D\"\210\305\31
1d20	35 19 1a 5c 32 31 31 5c 33 31 36 5c 33 31 37 5c 33 32 30 21 21 5c 33 32 31 5c 33 30 37 5c 33 32	5..\211\316\317\320!!\321\307\32
1d40	32 5c 33 32 33 5c 33 32 34 05 21 5c 33 33 32 5c 22 5c 33 32 36 24 5c 32 31 36 72 5c 32 31 31 71	2\323\324.!\332\"\326$\216r\211q
1d60	5c 32 31 30 5c 33 31 35 13 5c 33 32 37 5c 33 30 35 21 5c 32 31 30 03 63 29 72 01 71 5c 32 31 30	\210\315.\327\305!\210.c)r.q\210
1d80	5c 33 33 30 5c 33 30 35 5c 32 31 31 05 5c 33 30 35 5c 33 30 37 25 5c 32 31 30 2a 5c 32 36 36 5c	\330\305\211.\305\307%\210*\266\
1da0	32 30 32 2a 5c 32 30 37 22 20 5b 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20 63 6f 64 69 6e 67	202*\207".[f--guard-paths.coding
1dc0	2d 73 79 73 74 65 6d 2d 66 6f 72 2d 77 72 69 74 65 20 66 69 6c 65 2d 63 6f 64 69 6e 67 2d 73 79	-system-for-write.file-coding-sy
1de0	73 74 65 6d 2d 61 6c 69 73 74 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 63 6f 64 69 6e 67 2d 73 79	stem-alist.buffer-file-coding-sy
1e00	73 74 65 6d 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 6e 69 6c 20 74 20 30 20 66 2d 73 61 6d 65 5c	stem.---truthy\?.nil.t.0.f-same\
1e20	3f 20 66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66 5c 3f 20 66 2d 75 6e 69 62 79 74 65 2d 73 74 72 69	?.f-ancestor-of\?.f-unibyte-stri
1e40	6e 67 2d 70 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20	ng-p.signal.wrong-type-argument.
1e60	62 69 6e 61 72 79 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 67 65 6e 65 72 61 74	binary.get-buffer-create.generat
1e80	65 2d 6e 65 77 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 22 20 2a 74 65 6d 70 20 66 69 6c 65 2a 22	e-new-buffer-name.".*temp.file*"
1ea0	20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 30 35 09 00	.make-byte-code."\301\300!\205..
1ec0	5c 33 30 32 5c 33 30 30 21 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 62	\302\300!\207".vconcat.vector.[b
1ee0	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 20 73 65 74 2d 62 75	uffer-name.kill-buffer].2.set-bu
1f00	66 66 65 72 2d 6d 75 6c 74 69 62 79 74 65 20 77 72 69 74 65 2d 72 65 67 69 6f 6e 20 66 2d 67 75	ffer-multibyte.write-region.f-gu
1f20	61 72 64 2d 65 72 72 6f 72 20 5b 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62 75 66 66	ard-error.[buffer-name.kill-buff
1f40	65 72 5d 5d 20 31 31 20 28 23 24 20 2e 20 36 39 34 30 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20	er]].11.(#$...6940)]).(defalias.
1f60	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 40 39 37 20 41	'f-append.'f-append-text).#@97.A
1f80	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 41 54 48 2e 0a	ppend.TEXT.with.CODING.to.PATH..
1fa0	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 20 69 73 20 63	.If.PATH.does.not.exist,.it.is.c
1fc0	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 54 48 29 1f 0a	reated...(fn.TEXT.CODING.PATH)..
1fe0	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 37 37 31 20 22	(defalias.'f-append-text.#[771."
2000	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 65 6e 64 2d 62	\300\301..\".\"\207".[f-append-b
2020	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 37 20 28 23 24	ytes.encode-coding-string].7.(#$
2040	20 2e 20 38 30 36 33 29 5d 29 0a 23 40 38 35 20 41 70 70 65 6e 64 20 62 69 6e 61 72 79 20 44 41	...8063)]).#@85.Append.binary.DA
2060	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 6f 74 20 65 78	TA.to.PATH...If.PATH.does.not.ex
2080	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 54 41 20 50 41	ist,.it.is.created...(fn.DATA.PA
20a0	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 74 65 73 20 23	TH)..(defalias.'f-append-bytes.#
20c0	5b 35 31 34 20 22 5c 33 30 30 01 21 5c 32 30 33 5c 66 00 5c 33 30 31 01 21 5c 32 30 32 0d 00 5c	[514."\300.!\203\f.\301.!\202..\
20e0	33 30 32 5c 33 30 33 01 04 50 03 5c 22 5c 32 30 37 22 20 5b 66 2d 66 69 6c 65 5c 3f 20 66 2d 72	302\303..P.\"\207".[f-file\?.f-r
2100	65 61 64 2d 62 79 74 65 73 20 22 22 20 66 2d 77 72 69 74 65 2d 62 79 74 65 73 5d 20 36 20 28 23	ead-bytes."".f-write-bytes].6.(#
2120	24 20 2e 20 38 32 37 32 29 5d 29 0a 23 40 34 33 20 43 72 65 61 74 65 20 64 69 72 65 63 74 6f 72	$...8272)]).#@43.Create.director
2140	69 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	ies.DIRS...(fn.&rest.DIRS)..(def
2160	61 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	alias.'f-mkdir.#[128."\300C\301.
2180	5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 07 21 5c 33 30 37 5c 22 5c 33 31	\302\303\304\305\306..!\307\"\31
21a0	30 5c 33 31 31 25 5c 22 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 65 61 63 68 20 6d 61 6b 65 2d 62 79	0\311%\"\207".[nil.-each.make-by
21c0	74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 5c 33 30 32 02 5c 33 30 30 5c 32 34 32 5c 22	te-code.257."\300\302.\300\242\"
21e0	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 62 00 09 5c 32 30	\240\210\303\300\242!?\205b..\20
2200	33 5e 00 5c 33 30 34 5c 33 30 35 09 5c 33 30 36 5c 33 30 37 02 5c 32 30 33 48 00 01 5c 32 30 33	3^.\304\305.\306\307.\203H..\203
2220	48 00 02 40 04 5c 32 30 33 2d 00 5c 33 30 35 5c 32 36 32 03 5c 32 30 32 3c 00 5c 33 31 30 01 5c	H..@.\203-.\305\262.\202<.\310.\
2240	33 30 30 5c 32 34 32 5c 22 5c 32 30 36 3a 00 5c 33 31 31 01 5c 33 30 30 5c 32 34 32 5c 22 5c 32	300\242\"\206:.\311.\300\242\"\2
2260	36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 19 00 5c 32	62.\210\211T\262..A\262.\202..\2
2280	36 36 03 5c 32 31 31 5c 32 36 32 01 21 5c 32 30 33 56 00 5c 33 31 32 5c 33 30 30 5c 32 34 32 21	66.\211\262.!\203V.\312\300\242!
22a0	5c 32 30 37 5c 33 31 33 5c 33 31 34 5c 33 30 30 5c 32 34 32 09 44 5c 22 5c 32 30 37 5c 33 31 32	\207\313\314\300\242.D\"\207\312
22c0	5c 33 30 30 5c 32 34 32 21 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 66	\300\242!\207".vconcat.vector.[f
22e0	2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20 66 2d 65 78 70 61 6e 64 20 66 2d 64 69 72 65 63 74 6f	--guard-paths.f-expand.f-directo
2300	72 79 5c 3f 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 6e 69 6c 20 74 20 30 20 66 2d 73 61 6d 65 5c	ry\?.---truthy\?.nil.t.0.f-same\
2320	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
2340	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(
2360	66 6e 20 44 49 52 29 22 5d 20 31 30 20 28 23 24 20 2e 20 38 34 39 37 29 5d 29 0a 23 40 31 33 30	fn.DIR)"].10.(#$...8497)]).#@130
2380	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.
23a0	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.
23c0	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
23e0	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
2400	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.".\
2420	32 30 33 5d 00 5c 33 30 31 5c 33 30 32 08 5c 33 30 33 5c 33 30 34 02 5c 32 30 33 38 00 01 5c 32	203].\301\302.\303\304.\2038..\2
2440	30 33 38 00 02 40 04 5c 32 30 33 1d 00 5c 33 30 32 5c 32 36 32 03 5c 32 30 32 2c 00 5c 33 30 35	038..@.\203..\302\262.\202,.\305
2460	01 06 09 5c 22 5c 32 30 36 2a 00 5c 33 30 36 01 06 09 5c 22 5c 32 36 32 05 5c 32 31 30 5c 32 31	...\"\206*.\306...\"\262.\210\21
2480	31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 09 00 5c 32 36 36 03 5c 32 31 31 5c 32 36	1T\262..A\262.\202..\266.\211\26
24a0	32 01 21 5c 32 30 33 56 00 5c 33 30 37 02 21 5c 32 30 34 4d 00 5c 33 31 30 02 21 5c 32 30 33 51	2.!\203V.\307.!\204M.\310.!\203Q
24c0	00 5c 33 31 31 02 21 5c 32 30 37 5c 33 31 32 02 02 5c 22 5c 32 30 37 5c 33 31 33 5c 33 31 34 03	.\311.!\207\312..\"\207\313\314.
24e0	08 44 5c 22 5c 32 30 37 5c 33 30 37 02 21 5c 32 30 34 69 00 5c 33 31 30 02 21 5c 32 30 33 6d 00	.D\"\207\307.!\204i.\310.!\203m.
2500	5c 33 31 31 02 21 5c 32 30 37 5c 33 31 32 02 02 5c 22 5c 32 30 37 22 20 5b 66 2d 2d 67 75 61 72	\311.!\207\312..\"\207".[f--guar
2520	64 2d 70 61 74 68 73 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 6e 69 6c 20 74 20 30 20 66 2d 73 61	d-paths.---truthy\?.nil.t.0.f-sa
2540	6d 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 66 2d	me\?.f-ancestor-of\?.f-file\?.f-
2560	73 79 6d 6c 69 6e 6b 5c 3f 20 64 65 6c 65 74 65 2d 66 69 6c 65 20 64 65 6c 65 74 65 2d 64 69 72	symlink\?.delete-file.delete-dir
2580	65 63 74 6f 72 79 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	ectory.signal.f-guard-error].11.
25a0	28 23 24 20 2e 20 39 30 38 39 29 5d 29 0a 23 40 35 37 20 43 72 65 61 74 65 20 61 20 73 79 6d 6c	(#$...9089)]).#@57.Create.a.syml
25c0	69 6e 6b 20 74 6f 20 53 4f 55 52 43 45 20 66 72 6f 6d 20 50 41 54 48 2e 0a 0a 28 66 6e 20 53 4f	ink.to.SOURCE.from.PATH...(fn.SO
25e0	55 52 43 45 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 73 79 6d 6c 69 6e 6b	URCE.PATH)..(defalias.'f-symlink
2600	20 23 5b 35 31 34 20 22 08 5c 32 30 33 4d 00 5c 33 30 31 5c 33 30 32 08 5c 33 30 33 5c 33 30 34	.#[514.".\203M.\301\302.\303\304
2620	02 5c 32 30 33 38 00 01 5c 32 30 33 38 00 02 40 04 5c 32 30 33 1d 00 5c 33 30 32 5c 32 36 32 03	.\2038..\2038..@.\203..\302\262.
2640	5c 32 30 32 2c 00 5c 33 30 35 01 06 08 5c 22 5c 32 30 36 2a 00 5c 33 30 36 01 06 08 5c 22 5c 32	\202,.\305...\"\206*.\306...\"\2
2660	36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 09 00 5c 32	62.\210\211T\262..A\262.\202..\2
2680	36 36 03 5c 32 31 31 5c 32 36 32 01 21 5c 32 30 33 46 00 5c 33 30 37 02 02 5c 22 5c 32 30 37 5c	66.\211\262.!\203F.\307..\"\207\
26a0	33 31 30 5c 33 31 31 02 08 44 5c 22 5c 32 30 37 5c 33 30 37 02 02 5c 22 5c 32 30 37 22 20 5b 66	310\311..D\"\207\307..\"\207".[f
26c0	2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 6e 69 6c 20 74 20	--guard-paths.---truthy\?.nil.t.
26e0	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 6d 61 6b 65 2d	0.f-same\?.f-ancestor-of\?.make-
2700	73 79 6d 62 6f 6c 69 63 2d 6c 69 6e 6b 20 73 69 67 6e 61 6c 20 66 2d 67 75 61 72 64 2d 65 72 72	symbolic-link.signal.f-guard-err
2720	6f 72 5d 20 31 31 20 28 23 24 20 2e 20 39 36 35 31 29 5d 29 0a 23 40 38 38 20 4d 6f 76 65 20 6f	or].11.(#$...9651)]).#@88.Move.o
2740	72 20 72 65 6e 61 6d 65 20 46 52 4f 4d 20 74 6f 20 54 4f 2e 0a 49 66 20 54 4f 20 69 73 20 61 20	r.rename.FROM.to.TO..If.TO.is.a.
2760	64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 2c 20 6d 6f 76 65 20 46 52 4f 4d 20 69 6e 74 6f 20 54	directory.name,.move.FROM.into.T
2780	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 6d	O...(fn.FROM.TO)..(defalias.'f-m
27a0	6f 76 65 20 23 5b 35 31 34 20 22 08 5c 32 30 33 4e 00 5c 33 30 31 5c 33 30 32 08 5c 33 30 33 5c	ove.#[514.".\203N.\301\302.\303\
27c0	33 30 34 02 5c 32 30 33 38 00 01 5c 32 30 33 38 00 02 40 04 5c 32 30 33 1d 00 5c 33 30 32 5c 32	304.\2038..\2038..@.\203..\302\2
27e0	36 32 03 5c 32 30 32 2c 00 5c 33 30 35 01 06 08 5c 22 5c 32 30 36 2a 00 5c 33 30 36 01 06 08 5c	62.\202,.\305...\"\206*.\306...\
2800	22 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 09	"\262.\210\211T\262..A\262.\202.
2820	00 5c 32 36 36 03 5c 32 31 31 5c 32 36 32 01 21 5c 32 30 33 47 00 5c 33 30 37 02 02 5c 33 30 33	.\266.\211\262.!\203G.\307..\303
2840	23 5c 32 30 37 5c 33 31 30 5c 33 31 31 02 08 44 5c 22 5c 32 30 37 5c 33 30 37 02 02 5c 33 30 33	#\207\310\311..D\"\207\307..\303
2860	23 5c 32 30 37 22 20 5b 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20 2d 2d 2d 74 72 75 74 68 79	#\207".[f--guard-paths.---truthy
2880	5c 3f 20 6e 69 6c 20 74 20 30 20 66 2d 73 61 6d 65 5c 3f 20 66 2d 61 6e 63 65 73 74 6f 72 2d 6f	\?.nil.t.0.f-same\?.f-ancestor-o
28a0	66 5c 3f 20 72 65 6e 61 6d 65 2d 66 69 6c 65 20 73 69 67 6e 61 6c 20 66 2d 67 75 61 72 64 2d 65	f\?.rename-file.signal.f-guard-e
28c0	72 72 6f 72 5d 20 31 31 20 28 23 24 20 2e 20 31 30 30 34 32 29 5d 29 0a 23 40 31 34 31 20 43 6f	rror].11.(#$...10042)]).#@141.Co
28e0	70 79 20 66 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	py.file.or.directory.FROM.to.TO.
2900	0a 49 66 20 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	.If.FROM.names.a.directory.and.T
2920	4f 20 69 73 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	O.is.a.directory.name,.copy.FROM
2940	0a 69 6e 74 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	.into.TO.as.a.subdirectory...(fn
2960	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 6f 70 79 20 23 5b 35	.FROM.TO)..(defalias.'f-copy.#[5
2980	31 34 20 22 08 5c 32 30 33 7b 00 5c 33 30 32 5c 33 30 33 08 5c 33 30 34 5c 33 30 35 02 5c 32 30	14.".\203{.\302\303.\304\305.\20
29a0	33 38 00 01 5c 32 30 33 38 00 02 40 04 5c 32 30 33 1d 00 5c 33 30 33 5c 32 36 32 03 5c 32 30 32	38..\2038..@.\203..\303\262.\202
29c0	2c 00 5c 33 30 36 01 06 08 5c 22 5c 32 30 36 2a 00 5c 33 30 37 01 06 08 5c 22 5c 32 36 32 05 5c	,.\306...\"\206*.\307...\"\262.\
29e0	32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 09 00 5c 32 36 36 03 5c	210\211T\262..A\262.\202..\266.\
2a00	32 31 31 5c 32 36 32 01 21 5c 32 30 33 74 00 5c 33 31 30 02 21 5c 32 30 33 4c 00 5c 33 31 31 02	211\262.!\203t.\310.!\203L.\311.
2a20	02 5c 22 5c 32 30 37 09 5c 33 31 32 56 5c 32 30 33 57 00 5c 33 31 33 02 02 5c 22 5c 32 30 37 5c	.\"\207.\312V\203W.\313..\"\207\
2a40	33 31 34 01 21 5c 32 30 33 6f 00 5c 33 31 35 5c 33 31 36 5c 33 31 37 03 21 5c 22 5c 32 31 30 5c	314.!\203o.\315\316\317.!\"\210\
2a60	33 32 30 5c 33 32 31 03 21 02 5c 22 5c 33 31 33 03 02 5c 22 5c 32 30 37 5c 33 31 33 02 02 5c 22	320\321.!.\"\313..\"\207\313..\"
2a80	5c 32 30 37 5c 33 32 32 5c 33 32 33 02 08 44 5c 22 5c 32 30 37 5c 33 31 30 02 21 5c 32 30 33 5c	\207\322\323..D\"\207\310.!\203\
2aa0	32 30 36 00 5c 33 31 31 02 02 5c 22 5c 32 30 37 09 5c 33 31 32 56 5c 32 30 33 5c 32 32 31 00 5c	206.\311..\"\207.\312V\203\221.\
2ac0	33 31 33 02 02 5c 22 5c 32 30 37 5c 33 31 34 01 21 5c 32 30 33 5c 32 35 31 00 5c 33 31 35 5c 33	313..\"\207\314.!\203\251.\315\3
2ae0	31 36 5c 33 31 37 03 21 5c 22 5c 32 31 30 5c 33 32 30 5c 33 32 31 03 21 02 5c 22 5c 33 31 33 03	16\317.!\"\210\320\321.!.\"\313.
2b00	02 5c 22 5c 32 30 37 5c 33 31 33 02 02 5c 22 5c 32 30 37 22 20 5b 66 2d 2d 67 75 61 72 64 2d 70	.\"\207\313..\"\207".[f--guard-p
2b20	61 74 68 73 20 65 6d 61 63 73 2d 6d 61 6a 6f 72 2d 76 65 72 73 69 6f 6e 20 2d 2d 2d 74 72 75 74	aths.emacs-major-version.---trut
2b40	68 79 5c 3f 20 6e 69 6c 20 74 20 30 20 66 2d 73 61 6d 65 5c 3f 20 66 2d 61 6e 63 65 73 74 6f 72	hy\?.nil.t.0.f-same\?.f-ancestor
2b60	2d 6f 66 5c 3f 20 66 2d 66 69 6c 65 5c 3f 20 63 6f 70 79 2d 66 69 6c 65 20 32 33 20 63 6f 70 79	-of\?.f-file\?.copy-file.23.copy
2b80	2d 64 69 72 65 63 74 6f 72 79 20 66 2d 64 69 72 5c 3f 20 61 70 70 6c 79 20 66 2d 6d 6b 64 69 72	-directory.f-dir\?.apply.f-mkdir
2ba0	20 66 2d 73 70 6c 69 74 20 66 2d 65 78 70 61 6e 64 20 66 2d 66 69 6c 65 6e 61 6d 65 20 73 69 67	.f-split.f-expand.f-filename.sig
2bc0	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 31 30 34 36	nal.f-guard-error].11.(#$...1046
2be0	32 29 5d 29 0a 23 40 36 35 20 43 6f 70 79 20 63 6f 6e 74 65 6e 74 73 20 69 6e 20 64 69 72 65 63	2)]).#@65.Copy.contents.in.direc
2c00	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 4f 2e 0a 0a 28 66 6e	tory.FROM,.to.directory.TO...(fn
2c20	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 6f 70 79 2d 63 6f 6e	.FROM.TO)..(defalias.'f-copy-con
2c40	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 5c 33 30 31 5c 33 30	tents.#[514."\300.!\204..\301\30
2c60	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 33 30 34 03 5c 22 5c	2.\"\210\303.!\204..\301\304.\"\
2c80	32 31 30 5c 33 30 35 02 21 5c 33 30 36 01 5c 32 30 35 34 00 01 40 5c 33 30 37 01 5c 33 31 30 06	210\305.!\306.\2054..@\307.\310.
2ca0	06 21 5c 22 5c 32 36 36 02 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 1a 00	.!\"\266.\211T\262..A\262.\202..
2cc0	5c 32 30 37 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	\207".[f-exists\?.error."Cannot.
2ce0	63 6f 70 79 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	copy.contents.to.non.existing.di
2d00	72 65 63 74 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	rectory.%s".f-dir\?."Cannot.copy
2d20	20 63 6f 6e 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	.contents.as.%s.is.a.file".f-ent
2d40	72 69 65 73 20 30 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	ries.0.f-copy.file-name-as-direc
2d60	74 6f 72 79 5d 20 39 20 28 23 24 20 2e 20 31 31 32 34 32 29 5d 29 0a 23 40 37 39 20 55 70 64 61	tory].9.(#$...11242)]).#@79.Upda
2d80	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 6f	te.PATH.last.modification.date.o
2da0	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 0a	r.create.if.it.does.not.exist...
2dc0	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 5b	(fn.PATH)..(defalias.'f-touch.#[
2de0	32 35 37 20 22 08 5c 32 30 33 57 00 5c 33 30 31 5c 33 30 32 08 5c 33 30 33 5c 33 30 34 02 5c 32	257.".\203W.\301\302.\303\304.\2
2e00	30 33 38 00 01 5c 32 30 33 38 00 02 40 04 5c 32 30 33 1d 00 5c 33 30 32 5c 32 36 32 03 5c 32 30	038..\2038..@.\203..\302\262.\20
2e20	32 2c 00 5c 33 30 35 01 06 08 5c 22 5c 32 30 36 2a 00 5c 33 30 36 01 06 08 5c 22 5c 32 36 32 05	2,.\305...\"\206*.\306...\"\262.
2e40	5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 09 00 5c 32 36 36 03	\210\211T\262..A\262.\202..\266.
2e60	5c 32 31 31 5c 32 36 32 01 21 5c 32 30 33 50 00 5c 33 30 37 01 21 5c 32 30 33 4b 00 5c 33 31 30	\211\262.!\203P.\307.!\203K.\310
2e80	01 21 5c 32 30 37 5c 33 31 31 5c 33 31 32 02 5c 22 5c 32 30 37 5c 33 31 33 5c 33 31 34 02 08 44	.!\207\311\312.\"\207\313\314..D
2ea0	5c 22 5c 32 30 37 5c 33 30 37 01 21 5c 32 30 33 61 00 5c 33 31 30 01 21 5c 32 30 37 5c 33 31 31	\"\207\307.!\203a.\310.!\207\311
2ec0	5c 33 31 32 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 2d 2d 2d	\312.\"\207".[f--guard-paths.---
2ee0	74 72 75 74 68 79 5c 3f 20 6e 69 6c 20 74 20 30 20 66 2d 73 61 6d 65 5c 3f 20 66 2d 61 6e 63 65	truthy\?.nil.t.0.f-same\?.f-ance
2f00	73 74 6f 72 2d 6f 66 5c 3f 20 66 2d 66 69 6c 65 5c 3f 20 73 65 74 2d 66 69 6c 65 2d 74 69 6d 65	stor-of\?.f-file\?.set-file-time
2f20	73 20 66 2d 77 72 69 74 65 2d 62 79 74 65 73 20 22 22 20 73 69 67 6e 61 6c 20 66 2d 67 75 61 72	s.f-write-bytes."".signal.f-guar
2f40	64 2d 65 72 72 6f 72 5d 20 31 30 20 28 23 24 20 2e 20 31 31 36 34 34 29 5d 29 0a 23 40 35 34 20	d-error].10.(#$...11644)]).#@54.
2f60	52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 20 65 78 69 73 74 73 2c 20 66 61 6c 73 65 20 6f	Return.t.if.PATH.exists,.false.o
2f80	74 68 65 72 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	therwise...(fn.PATH)..(defalias.
2fa0	27 66 2d 65 78 69 73 74 73 5c 3f 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b	'f-exists\?.#[257."\300.!\207".[
2fc0	66 69 6c 65 2d 65 78 69 73 74 73 2d 70 5d 20 33 20 28 23 24 20 2e 20 31 32 31 32 38 29 5d 29 0a	file-exists-p].3.(#$...12128)]).
2fe0	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
3000	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 33 5c 22 5c 32	00\303\304\"\210\300\305\303\"\2
3020	30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 66 2d 65 78 69 73 74 73 2d 70 20 66 2d 65 78 69 73 74	07".[defalias.f-exists-p.f-exist
3040	73 5c 3f 20 66 2d 64 69 72 5c 3f 20 66 2d 64 69 72 65 63 74 6f 72 79 5c 3f 20 66 2d 64 69 72 2d	s\?.f-dir\?.f-directory\?.f-dir-
3060	70 5d 20 33 29 0a 23 40 36 30 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 20 69 73 20 64	p].3).#@60.Return.t.if.PATH.is.d
3080	69 72 65 63 74 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	irectory,.false.otherwise...(fn.
30a0	50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 64 69 72 65 63 74 6f 72 79 5c 3f 20	PATH)..(defalias.'f-directory\?.
30c0	23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 66 69 6c 65 2d 64 69 72 65 63 74 6f	#[257."\300.!\207".[file-directo
30e0	72 79 2d 70 5d 20 33 20 28 23 24 20 2e 20 31 32 33 39 35 29 5d 29 0a 28 64 65 66 61 6c 69 61 73	ry-p].3.(#$...12395)]).(defalias
3100	20 27 66 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 27 66 2d 64 69 72 65 63 74 6f 72 79 5c 3f 29 0a	.'f-directory-p.'f-directory\?).
3120	23 40 35 35 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 20 69 73 20 66 69 6c 65 2c 20 66	#@55.Return.t.if.PATH.is.file,.f
3140	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 1f 0a 28 64 65 66	alse.otherwise...(fn.PATH)..(def
3160	61 6c 69 61 73 20 27 66 2d 66 69 6c 65 5c 3f 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30	alias.'f-file\?.#[257."\300.!\20
3180	37 22 20 5b 66 69 6c 65 2d 72 65 67 75 6c 61 72 2d 70 5d 20 33 20 28 23 24 20 2e 20 31 32 35 38	7".[file-regular-p].3.(#$...1258
31a0	31 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 66 69 6c 65 2d 70 20 27 66 2d 66 69 6c 65	1)]).(defalias.'f-file-p.'f-file
31c0	5c 3f 29 0a 23 40 35 38 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 20 69 73 20 73 79 6d	\?).#@58.Return.t.if.PATH.is.sym
31e0	6c 69 6e 6b 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	link,.false.otherwise...(fn.PATH
3200	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 73 79 6d 6c 69 6e 6b 5c 3f 20 23 5b 32 35 37 20	)..(defalias.'f-symlink\?.#[257.
3220	22 5c 33 30 30 01 21 3f 3f 5c 32 30 37 22 20 5b 66 69 6c 65 2d 73 79 6d 6c 69 6e 6b 2d 70 5d 20	"\300.!??\207".[file-symlink-p].
3240	33 20 28 23 24 20 2e 20 31 32 37 34 35 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 73 79	3.(#$...12745)]).(defalias.'f-sy
3260	6d 6c 69 6e 6b 2d 70 20 27 66 2d 73 79 6d 6c 69 6e 6b 5c 3f 29 0a 23 40 35 39 20 52 65 74 75 72	mlink-p.'f-symlink\?).#@59.Retur
3280	6e 20 74 20 69 66 20 50 41 54 48 20 69 73 20 72 65 61 64 61 62 6c 65 2c 20 66 61 6c 73 65 20 6f	n.t.if.PATH.is.readable,.false.o
32a0	74 68 65 72 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	therwise...(fn.PATH)..(defalias.
32c0	27 66 2d 72 65 61 64 61 62 6c 65 5c 3f 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22	'f-readable\?.#[257."\300.!\207"
32e0	20 5b 66 69 6c 65 2d 72 65 61 64 61 62 6c 65 2d 70 5d 20 33 20 28 23 24 20 2e 20 31 32 39 32 33	.[file-readable-p].3.(#$...12923
3300	29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 72 65 61 64 61 62 6c 65 2d 70 20 27 66 2d 72	)]).(defalias.'f-readable-p.'f-r
3320	65 61 64 61 62 6c 65 5c 3f 29 0a 23 40 35 39 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48	eadable\?).#@59.Return.t.if.PATH
3340	20 69 73 20 77 72 69 74 61 62 6c 65 2c 20 66 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a	.is.writable,.false.otherwise...
3360	28 66 6e 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 77 72 69 74 61 62 6c 65	(fn.PATH)..(defalias.'f-writable
3380	5c 3f 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 66 69 6c 65 2d 77 72 69 74	\?.#[257."\300.!\207".[file-writ
33a0	61 62 6c 65 2d 70 5d 20 33 20 28 23 24 20 2e 20 31 33 31 30 34 29 5d 29 0a 28 64 65 66 61 6c 69	able-p].3.(#$...13104)]).(defali
33c0	61 73 20 27 66 2d 77 72 69 74 61 62 6c 65 2d 70 20 27 66 2d 77 72 69 74 61 62 6c 65 5c 3f 29 0a	as.'f-writable-p.'f-writable\?).
33e0	23 40 36 31 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 20 69 73 20 65 78 65 63 75 74 61	#@61.Return.t.if.PATH.is.executa
3400	62 6c 65 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	ble,.false.otherwise...(fn.PATH)
3420	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 65 78 65 63 75 74 61 62 6c 65 5c 3f 20 23 5b 32 35	..(defalias.'f-executable\?.#[25
3440	37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 66 69 6c 65 2d 65 78 65 63 75 74 61 62 6c 65 2d	7."\300.!\207".[file-executable-
3460	70 5d 20 33 20 28 23 24 20 2e 20 31 33 32 38 35 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66	p].3.(#$...13285)]).(defalias.'f
3480	2d 65 78 65 63 75 74 61 62 6c 65 2d 70 20 27 66 2d 65 78 65 63 75 74 61 62 6c 65 5c 3f 29 0a 23	-executable-p.'f-executable\?).#
34a0	40 35 39 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 20 69 73 20 61 62 73 6f 6c 75 74 65	@59.Return.t.if.PATH.is.absolute
34c0	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 1f 0a 28	,.false.otherwise...(fn.PATH)..(
34e0	64 65 66 61 6c 69 61 73 20 27 66 2d 61 62 73 6f 6c 75 74 65 5c 3f 20 23 5b 32 35 37 20 22 5c 33	defalias.'f-absolute\?.#[257."\3
3500	30 30 01 21 5c 32 30 37 22 20 5b 66 69 6c 65 2d 6e 61 6d 65 2d 61 62 73 6f 6c 75 74 65 2d 70 5d	00.!\207".[file-name-absolute-p]
3520	20 33 20 28 23 24 20 2e 20 31 33 34 37 36 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 61	.3.(#$...13476)]).(defalias.'f-a
3540	62 73 6f 6c 75 74 65 2d 70 20 27 66 2d 61 62 73 6f 6c 75 74 65 5c 3f 29 0a 23 40 35 39 20 52 65	bsolute-p.'f-absolute\?).#@59.Re
3560	74 75 72 6e 20 74 20 69 66 20 50 41 54 48 20 69 73 20 72 65 6c 61 74 69 76 65 2c 20 66 61 6c 73	turn.t.if.PATH.is.relative,.fals
3580	65 20 6f 74 68 65 72 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	e.otherwise...(fn.PATH)..(defali
35a0	61 73 20 27 66 2d 72 65 6c 61 74 69 76 65 5c 3f 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 3f 5c	as.'f-relative\?.#[257."\300.!?\
35c0	32 30 37 22 20 5b 66 2d 61 62 73 6f 6c 75 74 65 5c 3f 5d 20 33 20 28 23 24 20 2e 20 31 33 36 36	207".[f-absolute\?].3.(#$...1366
35e0	32 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 72 65 6c 61 74 69 76 65 2d 70 20 27 66 2d	2)]).(defalias.'f-relative-p.'f-
3600	72 65 6c 61 74 69 76 65 5c 3f 29 0a 23 40 36 35 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54	relative\?).#@65.Return.t.if.PAT
3620	48 20 69 73 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 2c 20 66 61 6c 73 65 20 6f 74 68 65 72	H.is.root.directory,.false.other
3640	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 72	wise...(fn.PATH)..(defalias.'f-r
3660	6f 6f 74 5c 3f 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 3f 5c 32 30 37 22 20 5b 66 2d 70 61 72	oot\?.#[257."\300.!?\207".[f-par
3680	65 6e 74 5d 20 33 20 28 23 24 20 2e 20 31 33 38 34 31 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20	ent].3.(#$...13841)]).(defalias.
36a0	27 66 2d 72 6f 6f 74 2d 70 20 27 66 2d 72 6f 6f 74 5c 3f 29 0a 23 40 32 37 39 20 52 65 74 75 72	'f-root-p.'f-root\?).#@279.Retur
36c0	6e 20 74 20 69 66 20 65 78 74 65 6e 73 69 6f 6e 20 6f 66 20 50 41 54 48 20 69 73 20 45 58 54 2c	n.t.if.extension.of.PATH.is.EXT,
36e0	20 66 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a 49 66 20 45 58 54 20 69 73 20 6e 69 6c	.false.otherwise...If.EXT.is.nil
3700	20 6f 72 20 6f 6d 69 74 74 65 64 2c 20 72 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 20 68 61	.or.omitted,.return.t.if.PATH.ha
3720	73 20 61 6e 79 20 65 78 74 65 6e 73 69 6f 6e 2c 0a 66 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65	s.any.extension,.false.otherwise
3740	2e 0a 0a 54 68 65 20 65 78 74 65 6e 73 69 6f 6e 2c 20 69 6e 20 61 20 66 69 6c 65 20 6e 61 6d 65	...The.extension,.in.a.file.name
3760	2c 20 69 73 20 74 68 65 20 70 61 72 74 20 74 68 61 74 20 66 6f 6c 6c 6f 77 73 20 74 68 65 20 6c	,.is.the.part.that.follows.the.l
3780	61 73 74 0a 27 2e 27 2c 20 65 78 63 6c 75 64 69 6e 67 20 76 65 72 73 69 6f 6e 20 6e 75 6d 62 65	ast.'.',.excluding.version.numbe
37a0	72 73 20 61 6e 64 20 62 61 63 6b 75 70 20 73 75 66 66 69 78 65 73 2e 0a 0a 28 66 6e 20 50 41 54	rs.and.backup.suffixes...(fn.PAT
37c0	48 20 26 6f 70 74 69 6f 6e 61 6c 20 45 58 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 65	H.&optional.EXT)..(defalias.'f-e
37e0	78 74 5c 3f 20 23 5b 35 31 33 20 22 5c 32 31 31 5c 32 30 33 5c 6e 00 5c 33 30 30 02 21 01 5c 32	xt\?.#[513."\211\203\n.\300.!.\2
3800	33 30 5c 32 30 37 5c 33 30 30 02 21 5c 33 30 31 3d 3f 5c 32 30 37 22 20 5b 66 2d 65 78 74 20 6e	30\207\300.!\301=?\207".[f-ext.n
3820	69 6c 5d 20 34 20 28 23 24 20 2e 20 31 34 30 31 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20	il].4.(#$...14011)]).(byte-code.
3840	22 5c 33 30 30 5c 33 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	"\300\301\302\"\210\300\303\304\
3860	22 5c 32 31 30 5c 33 30 30 5c 33 30 35 5c 33 30 33 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69	"\210\300\305\303\"\207".[defali
3880	61 73 20 66 2d 65 78 74 2d 70 20 66 2d 65 78 74 5c 3f 20 66 2d 65 71 75 61 6c 5c 3f 20 66 2d 73	as.f-ext-p.f-ext\?.f-equal\?.f-s
38a0	61 6d 65 5c 3f 20 66 2d 65 71 75 61 6c 2d 70 5d 20 33 29 0a 23 40 38 30 20 52 65 74 75 72 6e 20	ame\?.f-equal-p].3).#@80.Return.
38c0	74 20 69 66 20 50 41 54 48 2d 41 20 61 6e 64 20 50 41 54 48 2d 42 20 61 72 65 20 72 65 66 65 72	t.if.PATH-A.and.PATH-B.are.refer
38e0	65 6e 63 65 73 20 74 6f 20 73 61 6d 65 20 66 69 6c 65 2e 0a 0a 28 66 6e 20 50 41 54 48 2d 41 20	ences.to.same.file...(fn.PATH-A.
3900	50 41 54 48 2d 42 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 73 61 6d 65 5c 3f 20 23 5b 35	PATH-B)..(defalias.'f-same\?.#[5
3920	31 34 20 22 5c 33 30 30 02 21 5c 32 30 35 1b 00 5c 33 30 30 01 21 5c 32 30 35 1b 00 5c 33 30 31	14."\300.!\205..\300.!\205..\301
3940	5c 33 30 32 5c 33 30 33 04 21 21 21 5c 33 30 31 5c 33 30 32 5c 33 30 33 04 21 21 21 5c 32 33 32	\302\303.!!!\301\302\303.!!!\232
3960	5c 32 30 37 22 20 5b 66 2d 65 78 69 73 74 73 5c 3f 20 66 2d 63 61 6e 6f 6e 69 63 61 6c 20 64 69	\207".[f-exists\?.f-canonical.di
3980	72 65 63 74 6f 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 2d 65 78 70 61 6e 64 5d 20 37 20 28 23	rectory-file-name.f-expand].7.(#
39a0	24 20 2e 20 31 34 35 32 31 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 73 61 6d 65 2d 70	$...14521)]).(defalias.'f-same-p
39c0	20 27 66 2d 73 61 6d 65 5c 3f 29 0a 23 40 36 31 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54	.'f-same\?).#@61.Return.t.if.PAT
39e0	48 2d 41 20 69 73 20 70 61 72 65 6e 74 20 6f 66 20 50 41 54 48 2d 42 2e 0a 0a 28 66 6e 20 50 41	H-A.is.parent.of.PATH-B...(fn.PA
3a00	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 70 61 72 65 6e	TH-A.PATH-B)..(defalias.'f-paren
3a20	74 2d 6f 66 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 01 21 5c 32 31 31 5c 32 30 35 0b 00 5c 33	t-of\?.#[514."\300.!\211\205..\3
3a40	30 31 03 02 5c 22 5c 32 30 37 22 20 5b 66 2d 70 61 72 65 6e 74 20 66 2d 73 61 6d 65 5c 3f 5d 20	01..\"\207".[f-parent.f-same\?].
3a60	36 20 28 23 24 20 2e 20 31 34 38 30 31 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 70 61	6.(#$...14801)]).(defalias.'f-pa
3a80	72 65 6e 74 2d 6f 66 2d 70 20 27 66 2d 70 61 72 65 6e 74 2d 6f 66 5c 3f 29 0a 23 40 36 30 20 52	rent-of-p.'f-parent-of\?).#@60.R
3aa0	65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 2d 41 20 69 73 20 63 68 69 6c 64 20 6f 66 20 50 41	eturn.t.if.PATH-A.is.child.of.PA
3ac0	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 65 66 61	TH-B...(fn.PATH-A.PATH-B)..(defa
3ae0	6c 69 61 73 20 27 66 2d 63 68 69 6c 64 2d 6f 66 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 02 21	lias.'f-child-of\?.#[514."\300.!
3b00	5c 32 31 31 5c 32 30 35 0b 00 5c 33 30 31 01 03 5c 22 5c 32 30 37 22 20 5b 66 2d 70 61 72 65 6e	\211\205..\301..\"\207".[f-paren
3b20	74 20 66 2d 73 61 6d 65 5c 3f 5d 20 36 20 28 23 24 20 2e 20 31 35 30 30 37 29 5d 29 0a 28 64 65	t.f-same\?].6.(#$...15007)]).(de
3b40	66 61 6c 69 61 73 20 27 66 2d 63 68 69 6c 64 2d 6f 66 2d 70 20 27 66 2d 63 68 69 6c 64 2d 6f 66	falias.'f-child-of-p.'f-child-of
3b60	5c 3f 29 0a 23 40 36 33 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 2d 41 20 69 73 20 61	\?).#@63.Return.t.if.PATH-A.is.a
3b80	6e 63 65 73 74 6f 72 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	ncestor.of.PATH-B...(fn.PATH-A.P
3ba0	41 54 48 2d 42 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66	ATH-B)..(defalias.'f-ancestor-of
3bc0	5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 3f 5c 32 30 35 10 00 5c 33 30 31 5c 33 30	\?.#[514."\300..\"?\205..\301\30
3be0	32 03 21 5c 33 30 32 03 21 5c 22 5c 32 30 37 22 20 5b 66 2d 73 61 6d 65 5c 3f 20 73 2d 73 74 61	2.!\302.!\"\207".[f-same\?.s-sta
3c00	72 74 73 2d 77 69 74 68 5c 3f 20 66 2d 66 75 6c 6c 5d 20 36 20 28 23 24 20 2e 20 31 35 32 30 39	rts-with\?.f-full].6.(#$...15209
3c20	29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66 2d 70 20 27	)]).(defalias.'f-ancestor-of-p.'
3c40	66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66 5c 3f 29 0a 23 40 36 34 20 52 65 74 75 72 6e 20 74 20 69	f-ancestor-of\?).#@64.Return.t.i
3c60	66 20 50 41 54 48 2d 41 20 69 73 20 64 65 73 65 6e 64 61 6e 74 20 6f 66 20 50 41 54 48 2d 42 2e	f.PATH-A.is.desendant.of.PATH-B.
3c80	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.
3ca0	27 66 2d 64 65 73 63 65 6e 64 61 6e 74 2d 6f 66 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02	'f-descendant-of\?.#[514."\300..
3cc0	5c 22 3f 5c 32 30 35 10 00 5c 33 30 31 5c 33 30 32 02 21 5c 33 30 32 04 21 5c 22 5c 32 30 37 22	\"?\205..\301\302.!\302.!\"\207"
3ce0	20 5b 66 2d 73 61 6d 65 5c 3f 20 73 2d 73 74 61 72 74 73 2d 77 69 74 68 5c 3f 20 66 2d 66 75 6c	.[f-same\?.s-starts-with\?.f-ful
3d00	6c 5d 20 36 20 28 23 24 20 2e 20 31 35 34 34 36 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66	l].6.(#$...15446)]).(defalias.'f
3d20	2d 64 65 73 63 65 6e 64 61 6e 74 2d 6f 66 2d 70 20 27 66 2d 64 65 73 63 65 6e 64 61 6e 74 2d 6f	-descendant-of-p.'f-descendant-o
3d40	66 5c 3f 29 0a 23 40 35 35 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 20 69 73 20 68 69	f\?).#@55.Return.t.if.PATH.is.hi
3d60	64 64 65 6e 2c 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a 28 66 6e 20 50 41 54 48 29 1f	dden,.nil.otherwise...(fn.PATH).
3d80	0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 68 69 64 64 65 6e 5c 3f 20 23 5b 32 35 37 20 22 5c 33	.(defalias.'f-hidden\?.#[257."\3
3da0	30 30 01 21 5c 32 30 34 0b 00 5c 33 30 31 5c 33 30 32 02 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30	00.!\204..\301\302.\"\210\211\30
3dc0	33 5c 33 30 34 4f 5c 33 30 35 5c 32 33 30 5c 32 30 37 22 20 5b 66 2d 65 78 69 73 74 73 5c 3f 20	3\304O\305\230\207".[f-exists\?.
3de0	65 72 72 6f 72 20 22 50 61 74 68 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 3a 20 25 73 22 20	error."Path.does.not.exist:.%s".
3e00	30 20 31 20 22 2e 22 5d 20 34 20 28 23 24 20 2e 20 31 35 36 39 30 29 5d 29 0a 28 64 65 66 61 6c	0.1."."].4.(#$...15690)]).(defal
3e20	69 61 73 20 27 66 2d 68 69 64 64 65 6e 2d 70 20 27 66 2d 68 69 64 64 65 6e 5c 3f 29 0a 23 40 31	ias.'f-hidden-p.'f-hidden\?).#@1
3e40	35 38 20 49 66 20 50 41 54 48 20 69 73 20 61 20 66 69 6c 65 2c 20 72 65 74 75 72 6e 20 74 20 69	58.If.PATH.is.a.file,.return.t.i
3e60	66 20 74 68 65 20 66 69 6c 65 20 69 6e 20 50 41 54 48 20 69 73 20 65 6d 70 74 79 2c 20 6e 69 6c	f.the.file.in.PATH.is.empty,.nil
3e80	20 6f 74 68 65 72 77 69 73 65 2e 0a 49 66 20 50 41 54 48 20 69 73 20 64 69 72 65 63 74 6f 72 79	.otherwise..If.PATH.is.directory
3ea0	2c 20 72 65 74 75 72 6e 20 74 20 69 66 20 64 69 72 65 63 74 6f 72 79 20 68 61 73 20 6e 6f 20 66	,.return.t.if.directory.has.no.f
3ec0	69 6c 65 73 2c 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a 28 66 6e 20 50 41 54 48 29 1f	iles,.nil.otherwise...(fn.PATH).
3ee0	0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 65 6d 70 74 79 5c 3f 20 23 5b 32 35 37 20 22 5c 33 30	.(defalias.'f-empty\?.#[257."\30
3f00	30 01 21 5c 32 30 33 0e 00 5c 33 30 31 01 5c 33 30 32 5c 33 30 33 23 5c 33 30 32 5c 32 33 32 5c	0.!\203..\301.\302\303#\302\232\
3f20	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 79	207\304.!\305U\207".[f-directory
3f40	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 24	\?.f-files.nil.t.f-size.0].5.(#$
3f60	20 2e 20 31 35 39 33 39 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 65 6d 70 74 79 2d 70	...15939)]).(defalias.'f-empty-p
3f80	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 6f	.'f-empty\?).#@135.Return.size.o
3fa0	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 75	f.PATH...If.PATH.is.a.file,.retu
3fc0	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 69	rn.size.of.that.file...If.PATH.i
3fe0	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 66	s.directory,.return.sum.of.all.f
4000	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 6c	iles.in.PATH...(fn.PATH)..(defal
4020	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 5c	ias.'f-size.#[257."\300.!\203..\
4040	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 37	301\302\303\304.\305\306#\"!\207
4060	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 20	\307\310.!8\207".[f-directory\?.
4080	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 37	-sum.-map.f-size.f-files.nil.t.7
40a0	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 36 32 37 35 29	.file-attributes].8.(#$...16275)
40c0	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 54	]).#@195.Return.the.depth.of.PAT
40e0	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 77	H...At.first,.PATH.is.expanded.w
4100	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 70	ith.`f-expand'...Then.the.full.p
4120	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 2e	ath.is.used.to.detect.the.depth.
4140	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 27	.'/'.will.be.zero.depth,..'/usr'
4160	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 0a	.will.be.one.depth...And.so.on..
4180	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 23	.(fn.PATH)..(defalias.'f-depth.#
41a0	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 69	[257."\300\301.!!GS\207".[f-spli
41c0	74 20 66 2d 65 78 70 61 6e 64 5d 20 34 20 28 23 24 20 2e 20 31 36 35 38 35 29 5d 29 0a 23 40 32	t.f-expand].4.(#$...16585)]).#@2
41e0	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 65	7.Return.path.to.this.file...(de
4200	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 00	falias.'f-this-file.#[0.".\203..
4220	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 32	.\207\303\302!\203..\n\203..\n\2
4240	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 6c	07\304.\207".[load-in-progress.l
4260	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 65	oad-file-name.byte-compile-curre
4280	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 5d	nt-file.boundp.buffer-file-name]
42a0	20 32 20 28 23 24 20 2e 20 31 36 38 36 36 29 5d 29 0a 23 40 35 31 20 41 20 76 61 72 69 61 62 6c	.2.(#$...16866)]).#@51.A.variabl
42c0	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 70	e.to.cache.result.of.`f-path-sep
42e0	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 61	arator'...(defvar.f--path-separa
4300	74 6f 72 20 6e 69 6c 20 28 23 24 20 2e 20 31 37 30 37 39 29 29 0a 23 40 32 34 20 52 65 74 75 72	tor.nil.(#$...17079)).#@24.Retur
4320	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 2d	n.path.separator...(defalias.'f-
4340	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 5c	path-separator.#[0.".\206..\301\
4360	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 2d	302\303\"\304\305O\211.\207".[f-
4380	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 31	-path-separator.f-join."x"."y".1
43a0	20 32 5d 20 33 20 28 23 24 20 2e 20 31 37 31 37 39 29 5d 29 0a 23 40 35 32 20 46 69 6e 64 20 50	.2].3.(#$...17179)]).#@52.Find.P
43c0	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 70	ATTERN.in.PATH...(fn.PATTERN.&op
43e0	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 20	tional.PATH)..(defalias.'f-glob.
4400	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 22	#[513."\301\302.\206....\"!\207"
4420	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 2d	.[default-directory.file-expand-
4440	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 37 33 33 38 29	wildcards.f-join].6.(#$...17338)
4460	5d 29 0a 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	]).(defalias.'f--collect-entries
4480	20 23 5b 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	.#[514."\300C\301\302\303.\304\"
44a0	5c 22 02 5c 32 30 33 23 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31	\".\203#.\305\306\307\310\311\31
44c0	32 06 08 06 08 5c 22 5c 33 31 33 5c 22 5c 33 31 34 5c 33 31 35 25 02 5c 22 5c 32 31 30 5c 32 30	2....\"\313\"\314\315%.\"\210\20
44e0	32 27 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	2'...\240\210.\242\207".[nil.-re
4500	6a 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	ject.#[257."\300.!\301\232\206..
4520	5c 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	\300.!\302\232\207".[f-filename.
4540	22 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	".".".."].3."\n\n(fn.FILE)"].dir
4560	65 63 74 6f 72 79 2d 66 69 6c 65 73 20 74 20 2d 6d 61 70 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f	ectory-files.t.-map.make-byte-co
4580	64 65 20 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	de.257."\302.!\203..\301.\301\24
45a0	32 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	2B\240\207\303.!\205$.\301.\301\
45c0	32 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	242B\240\210\301\304\301\242\305
45e0	04 5c 33 30 30 5c 22 5c 22 5c 32 34 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f	.\300\"\"\240\207".vconcat.vecto
4600	72 20 5b 66 2d 66 69 6c 65 5c 3f 20 66 2d 64 69 72 65 63 74 6f 72 79 5c 3f 20 61 70 70 65 6e 64	r.[f-file\?.f-directory\?.append
4620	20 66 2d 2d 63 6f 6c 6c 65 63 74 2d 65 6e 74 72 69 65 73 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20	.f--collect-entries].7."\n\n(fn.
4640	45 4e 54 52 59 29 22 5d 20 31 32 20 22 5c 6e 5c 6e 28 66 6e 20 50 41 54 48 20 52 45 43 55 52 53	ENTRY)"].12."\n\n(fn.PATH.RECURS
4660	49 56 45 29 22 5d 29 0a 23 40 37 31 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f	IVE)"]).#@71.Anaphoric.version.o
4680	66 20 60 66 2d 65 6e 74 72 69 65 73 27 2e 0a 0a 28 66 6e 20 50 41 54 48 20 42 4f 44 59 20 26 6f	f.`f-entries'...(fn.PATH.BODY.&o
46a0	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 69 61 73 20 27 66	ptional.RECURSIVE)..(defalias.'f
46c0	2d 2d 65 6e 74 72 69 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	--entries.'(macro...#[770."\300.
46e0	5c 33 30 31 5c 33 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 65	\301\302\303\304..EE.F\207".[f-e
4700	6e 74 72 69 65 73 20 6c 61 6d 62 64 61 20 28 70 61 74 68 29 20 6c 65 74 20 28 28 69 74 20 70 61	ntries.lambda.(path).let.((it.pa
4720	74 68 29 29 5d 20 31 30 20 28 23 24 20 2e 20 31 38 30 32 39 29 5d 29 29 0a 23 40 32 34 37 20 46	th))].10.(#$...18029)])).#@247.F
4740	69 6e 64 20 61 6c 6c 20 66 69 6c 65 73 20 61 6e 64 20 64 69 72 65 63 74 6f 72 69 65 73 20 69 6e	ind.all.files.and.directories.in
4760	20 50 41 54 48 2e 0a 0a 46 4e 20 2d 20 63 61 6c 6c 65 64 20 66 6f 72 20 65 61 63 68 20 66 6f 75	.PATH...FN.-.called.for.each.fou
4780	6e 64 20 66 69 6c 65 20 61 6e 64 20 64 69 72 65 63 74 6f 72 79 2e 20 20 49 66 20 46 4e 20 72 65	nd.file.and.directory...If.FN.re
47a0	74 75 72 6e 73 20 61 20 74 68 72 75 74 68 79 0a 76 61 6c 75 65 2c 20 66 69 6c 65 20 6f 72 20 64	turns.a.thruthy.value,.file.or.d
47c0	69 72 65 63 74 6f 72 79 20 77 69 6c 6c 20 62 65 20 69 6e 63 6c 75 64 65 64 2e 0a 52 45 43 55 52	irectory.will.be.included..RECUR
47e0	53 49 56 45 20 2d 20 53 65 61 72 63 68 20 66 6f 72 20 66 69 6c 65 73 20 61 6e 64 20 64 69 72 65	SIVE.-.Search.for.files.and.dire
4800	63 74 6f 72 69 65 73 20 72 65 63 75 72 73 69 76 65 2e 0a 0a 28 66 6e 20 50 41 54 48 20 26 6f 70	ctories.recursive...(fn.PATH.&op
4820	74 69 6f 6e 61 6c 20 46 4e 20 52 45 43 55 52 53 49 56 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	tional.FN.RECURSIVE)..(defalias.
4840	27 66 2d 65 6e 74 72 69 65 73 20 23 5b 37 36 39 20 22 5c 33 30 30 03 02 5c 22 02 5c 32 30 33 0f	'f-entries.#[769."\300..\".\203.
4860	00 5c 33 30 31 03 02 5c 22 5c 32 30 32 10 00 5c 32 31 31 5c 32 30 37 22 20 5b 66 2d 2d 63 6f 6c	.\301..\"\202..\211\207".[f--col
4880	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 20 31 38	lect-entries.-select].7.(#$...18
48a0	32 33 39 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 20 6f 66	239)]).#@75.Anaphoric.version.of
48c0	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 4f 44 59	.`f-directories'...(fn.PATH.BODY
48e0	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 69 61 73	.&optional.RECURSIVE)..(defalias
4900	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 37 37 30	.'f--directories.'(macro...#[770
4920	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 32 30	."\300.\301\302\303\304..EE.F\20
4940	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 68 29 20	7".[f-directories.lambda.(path).
4960	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 38 36 30 34 29	let.((it.path))].10.(#$...18604)
4980	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 20 69 6e	])).#@83.Find.all.directories.in
49a0	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 20 50 41	.PATH...See.`f-entries'...(fn.PA
49c0	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 64 65 66	TH.&optional.FN.RECURSIVE)..(def
49e0	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 33 30 30	alias.'f-directories.#[769."\300
4a00	5c 33 30 31 5c 33 30 32 05 04 5c 22 5c 22 02 5c 32 30 33 12 00 5c 33 30 30 03 02 5c 22 5c 32 30	\301\302..\"\".\203..\300..\"\20
4a20	32 13 00 5c 32 31 31 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	2..\211\207".[-select.f-director
4a40	79 5c 3f 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	y\?.f--collect-entries].8.(#$...
4a60	31 38 38 32 35 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	18825)]).#@69.Anaphoric.version.
4a80	6f 66 20 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	of.`f-files'...(fn.PATH.BODY.&op
4aa0	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 69 61 73 20 27 66 2d	tional.RECURSIVE)..(defalias.'f-
4ac0	2d 66 69 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	-files.'(macro...#[770."\300.\30
4ae0	31 5c 33 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	1\302\303\304..EE.F\207".[f-file
4b00	73 20 6c 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	s.lambda.(path).let.((it.path))]
4b20	20 31 30 20 28 23 24 20 2e 20 31 39 30 35 34 29 5d 29 29 0a 23 40 37 37 20 46 69 6e 64 20 61 6c	.10.(#$...19054)])).#@77.Find.al
4b40	6c 20 66 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	l.files.in.PATH...See.`f-entries
4b60	27 2e 0a 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	'...(fn.PATH.&optional.FN.RECURS
4b80	49 56 45 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	IVE)..(defalias.'f-files.#[769."
4ba0	5c 33 30 30 5c 33 30 31 5c 33 30 32 05 04 5c 22 5c 22 02 5c 32 30 33 12 00 5c 33 30 30 03 02 5c	\300\301\302..\"\".\203..\300..\
4bc0	22 5c 32 30 32 13 00 5c 32 31 31 5c 32 30 37 22 20 5b 2d 73 65 6c 65 63 74 20 66 2d 66 69 6c 65	"\202..\211\207".[-select.f-file
4be0	5c 3f 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	\?.f--collect-entries].8.(#$...1
4c00	39 32 35 37 29 5d 29 0a 23 40 37 30 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f	9257)]).#@70.Anaphoric.version.o
4c20	66 20 60 66 2d 74 72 61 76 65 72 73 65 2d 75 70 77 61 72 64 73 27 2e 0a 0a 28 66 6e 20 42 4f 44	f.`f-traverse-upwards'...(fn.BOD
4c40	59 20 26 6f 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	Y.&optional.PATH)..(defalias.'f-
4c60	2d 74 72 61 76 65 72 73 65 2d 75 70 77 61 72 64 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31	-traverse-upwards.'(macro...#[51
4c80	33 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 45 45 02 45 5c 32 30	3."\300\301\302\303\304..EE.E\20
4ca0	37 22 20 5b 66 2d 74 72 61 76 65 72 73 65 2d 75 70 77 61 72 64 73 20 6c 61 6d 62 64 61 20 28 64	7".[f-traverse-upwards.lambda.(d
4cc0	69 72 29 20 6c 65 74 20 28 28 69 74 20 64 69 72 29 29 5d 20 38 20 28 23 24 20 2e 20 31 39 34 36	ir).let.((it.dir))].8.(#$...1946
4ce0	39 29 5d 29 29 0a 23 40 32 32 34 20 54 72 61 76 65 72 73 65 20 75 70 20 61 73 20 6c 6f 6e 67 20	9)])).#@224.Traverse.up.as.long.
4d00	61 73 20 46 4e 20 72 65 74 75 72 6e 20 6e 69 6c 2c 20 73 74 61 72 74 69 6e 67 20 61 74 20 50 41	as.FN.return.nil,.starting.at.PA
4d20	54 48 2e 0a 0a 49 66 20 46 4e 20 72 65 74 75 72 6e 73 20 61 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c	TH...If.FN.returns.a.non-nil.val
4d40	75 65 2c 20 74 68 65 20 70 61 74 68 20 73 65 6e 74 20 61 73 20 61 72 67 75 6d 65 6e 74 20 74 6f	ue,.the.path.sent.as.argument.to
4d60	20 46 4e 20 69 73 0a 72 65 74 75 72 6e 65 64 2e 20 20 49 66 20 6e 6f 20 66 75 6e 63 74 69 6f 6e	.FN.is.returned...If.no.function
4d80	20 63 61 6c 6c 62 61 63 6b 20 72 65 74 75 72 6e 20 61 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65	.callback.return.a.non-nil.value
4da0	2c 20 6e 69 6c 20 69 73 0a 72 65 74 75 72 6e 65 64 2e 0a 0a 28 66 6e 20 46 4e 20 26 6f 70 74 69	,.nil.is.returned...(fn.FN.&opti
4dc0	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 74 72 61 76 65 72 73	onal.PATH)..(defalias.'f-travers
4de0	65 2d 75 70 77 61 72 64 73 20 23 5b 35 31 33 20 22 5c 32 31 31 5c 32 30 34 07 00 08 5c 32 36 32	e-upwards.#[513."\211\204...\262
4e00	01 5c 33 30 31 01 21 5c 32 30 33 12 00 5c 33 30 32 01 21 5c 32 36 32 01 01 01 21 5c 32 30 33 19	.\301.!\203..\302.!\262...!\203.
4e20	00 5c 32 30 37 5c 33 30 33 01 21 3f 5c 32 30 35 26 00 5c 33 30 34 02 5c 33 30 35 03 21 5c 22 5c	.\207\303.!?\205&.\304.\305.!\"\
4e40	32 30 37 22 20 5b 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 66 2d 72 65 6c 61 74 69	207".[default-directory.f-relati
4e60	76 65 5c 3f 20 66 2d 65 78 70 61 6e 64 20 66 2d 72 6f 6f 74 5c 3f 20 66 2d 74 72 61 76 65 72 73	ve\?.f-expand.f-root\?.f-travers
4e80	65 2d 75 70 77 61 72 64 73 20 66 2d 70 61 72 65 6e 74 5d 20 36 20 28 23 24 20 2e 20 31 39 36 39	e-upwards.f-parent].6.(#$...1969
4ea0	32 29 5d 29 0a 23 40 32 33 20 52 65 74 75 72 6e 20 61 62 73 6f 6c 75 74 65 20 72 6f 6f 74 2e 1f	2)]).#@23.Return.absolute.root..
4ec0	0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 72 6f 6f 74 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31	.(defalias.'f-root.#[0."\300\301
4ee0	21 5c 32 30 37 22 20 5b 66 2d 74 72 61 76 65 72 73 65 2d 75 70 77 61 72 64 73 20 66 2d 72 6f 6f	!\207".[f-traverse-upwards.f-roo
4f00	74 5c 3f 5d 20 32 20 28 23 24 20 2e 20 32 30 31 33 38 29 5d 29 0a 23 40 39 36 20 4f 6e 6c 79 20	t\?].2.(#$...20138)]).#@96.Only.
4f20	61 6c 6c 6f 77 20 50 41 54 48 2d 4f 52 2d 50 41 54 48 53 20 61 6e 64 20 64 65 63 65 6e 64 61 6e	allow.PATH-OR-PATHS.and.decendan
4f40	74 73 20 74 6f 20 62 65 20 6d 6f 64 69 66 69 65 64 20 69 6e 20 42 4f 44 59 2e 0a 0a 28 66 6e 20	ts.to.be.modified.in.BODY...(fn.
4f60	50 41 54 48 2d 4f 52 2d 50 41 54 48 53 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61	PATH-OR-PATHS.&rest.BODY)..(defa
4f80	6c 69 61 73 20 27 66 2d 77 69 74 68 2d 73 61 6e 64 62 6f 78 20 27 28 6d 61 63 72 6f 20 2e 20 23	lias.'f-with-sandbox.'(macro...#
4fa0	5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 05 44 05 5c 33 30 34 06 07 44	[385."\300\301\302\303.D.\304..D
4fc0	46 44 43 5c 33 30 35 5c 33 30 30 5c 33 30 36 05 42 42 5c 33 30 37 42 42 45 5c 32 30 37 22 20 5b	FDC\305\300\306.BB\307BBE\207".[
4fe0	6c 65 74 20 70 61 74 68 73 20 69 66 20 6c 69 73 74 70 20 6c 69 73 74 20 75 6e 77 69 6e 64 2d 70	let.paths.if.listp.list.unwind-p
5000	72 6f 74 65 63 74 20 28 28 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20 70 61 74 68 73 29 29 20	rotect.((f--guard-paths.paths)).
5020	28 28 73 65 74 71 20 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73 20 6e 69 6c 29 29 5d 20 39 20 28	((setq.f--guard-paths.nil))].9.(
5040	23 24 20 2e 20 32 30 32 35 31 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	#$...20251)])).(byte-code."\300\
5060	33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 21 5c 32 30 37 22 20 5b	301\302\303#\210\304\305!\207".[
5080	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 66 2d 77 69 74 68 2d 73 61 6e 64 62 6f 78 20 6c 69 73 70	function-put.f-with-sandbox.lisp
50a0	2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 20 70 72 6f 76 69 64 65 20 66 5d 20 34 29	-indent-function.1.provide.f].4)
50c0	0a	.