blob: b2f72b0a48a48dd11b4230a520ade128efef8dff (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 1e 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 33 30 2e 32 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.30.2.;;;.with.all.opt
0040	69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 0a 23 40 37 37 20 4c 69 73 74 20 6f 66 20 61 6c 6c 6f 77	imizations....#@77.List.of.allow
0060	65 64 20 70 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	ed.paths.to.modify.when.guarded.
0080	0a 0a 44 6f 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	..Do.not.modify.this.variable...
00a0	28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 32 5c 33 30 33 21 5c 32 31 30 5c 33 30 32 5c 33 30	(byte-code."\302\303!\210\302\30
00c0	34 21 5c 32 31 30 5c 33 30 35 5c 33 30 36 08 5c 22 5c 32 30 33 1b 00 09 5c 33 30 37 57 5c 32 30	4!\210\305\306.\"\203...\307W\20
00e0	33 1b 00 5c 33 30 32 5c 33 31 30 5c 33 31 31 5c 33 31 32 23 5c 32 31 30 5c 33 31 33 5c 33 31 34	3..\302\310\311\312#\210\313\314
0100	5c 33 31 35 5c 33 31 36 23 5c 32 31 30 5c 33 31 33 5c 33 31 34 5c 33 31 37 5c 33 32 30 23 5c 32	\315\316#\210\313\314\317\320#\2
0120	30 37 22 20 5b 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 65 6d 61 63 73 2d 6d 61 6a 6f 72 2d 76	07".[emacs-version.emacs-major-v
0140	65 72 73 69 6f 6e 20 72 65 71 75 69 72 65 20 73 20 64 61 73 68 20 76 65 72 73 69 6f 6e 3c 3d 20	ersion.require.s.dash.version<=.
0160	22 32 38 2e 31 22 20 32 39 20 66 2d 73 68 6f 72 74 64 6f 63 20 6e 69 6c 20 74 20 70 75 74 20 66	"28.1".29.f-shortdoc.nil.t.put.f
0180	2d 67 75 61 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	-guard-error.error-conditions.(e
01a0	72 72 6f 72 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	rror.f-guard-error).error-messag
01c0	65 20 22 44 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	e."Destructive.operation.outside
01e0	20 73 61 6e 64 62 6f 78 22 5d 20 34 29 0a 28 64 65 66 76 61 72 20 66 2d 2d 67 75 61 72 64 2d 70	.sandbox"].4).(defvar.f--guard-p
0200	61 74 68 73 20 6e 69 6c 20 28 23 24 20 2e 20 38 33 29 29 23 40 31 32 33 20 49 66 20 50 41 54 48	aths.nil.(#$...83))#@123.If.PATH
0220	20 69 73 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 79 69 65 6c	.is.allowed.to.be.modified,.yiel
0240	64 20 42 4f 44 59 2e 0a 0a 49 66 20 50 41 54 48 20 69 73 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20	d.BODY...If.PATH.is.not.allowed.
0260	74 6f 20 62 65 20 6d 6f 64 69 66 69 65 64 2c 20 74 68 72 6f 77 20 65 72 72 6f 72 2e 0a 0a 28 66	to.be.modified,.throw.error...(f
0280	6e 20 50 41 54 48 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	n.PATH.&rest.BODY)..(defalias.'f
02a0	2d 2d 64 65 73 74 72 75 63 74 69 76 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c	--destructive.'(macro...#[385."\
02c0	33 30 30 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 08 45 5c 33	300\301\300\302\303\304\305..E\3
02e0	30 36 5c 33 30 35 06 09 45 45 5c 33 30 37 42 42 5c 33 31 30 05 42 5c 33 31 31 5c 33 31 32 5c 33	06\305..EE\307BB\310.B\311\312\3
0300	31 33 06 09 5c 33 31 34 42 42 45 46 03 42 42 42 5c 32 30 37 22 20 5b 69 66 20 66 2d 2d 67 75 61	13..\314BBEF.BBB\207".[if.f--gua
0320	72 64 2d 70 61 74 68 73 20 2d 2d 61 6e 79 3f 20 6f 72 20 66 2d 73 61 6d 65 2d 70 20 69 74 20 66	rd-paths.--any?.or.f-same-p.it.f
0340	2d 61 6e 63 65 73 74 6f 72 2d 6f 66 2d 70 20 28 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73 29 20	-ancestor-of-p.(f--guard-paths).
0360	70 72 6f 67 6e 20 73 69 67 6e 61 6c 20 27 66 2d 67 75 61 72 64 2d 65 72 72 6f 72 20 6c 69 73 74	progn.signal.'f-guard-error.list
0380	20 28 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73 29 5d 20 31 32 20 28 23 24 20 2e 20 35 33 37 29	.(f--guard-paths)].12.(#$...537)
03a0	5d 29 29 23 40 32 31 36 20 4a 6f 69 6e 20 41 52 47 53 20 74 6f 20 61 20 73 69 6e 67 6c 65 20 70	]))#@216.Join.ARGS.to.a.single.p
03c0	61 74 68 2e 0a 0a 42 65 20 61 77 61 72 65 20 69 66 20 6f 6e 65 20 6f 66 20 74 68 65 20 61 72 67	ath...Be.aware.if.one.of.the.arg
03e0	75 6d 65 6e 74 73 20 69 73 20 61 6e 20 61 62 73 6f 6c 75 74 65 20 70 61 74 68 2c 20 60 66 2d 6a	uments.is.an.absolute.path,.`f-j
0400	6f 69 6e 27 0a 77 69 6c 6c 20 64 69 73 63 61 72 64 20 61 6c 6c 20 74 68 65 20 70 72 65 63 65 65	oin'.will.discard.all.the.precee
0420	64 69 6e 67 20 61 72 67 75 6d 65 6e 74 73 20 61 6e 64 20 6d 61 6b 65 20 74 68 69 73 20 61 62 73	ding.arguments.and.make.this.abs
0440	6f 6c 75 74 65 0a 70 61 74 68 20 74 68 65 20 6e 65 77 20 72 6f 6f 74 20 6f 66 20 74 68 65 20 67	olute.path.the.new.root.of.the.g
0460	65 6e 65 72 61 74 65 64 20 70 61 74 68 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 41 52 47 53 29 1f	enerated.path...(fn.&rest.ARGS).
0480	23 40 31 32 20 0a 0a 28 66 6e 20 41 52 47 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	#@12...(fn.ARG)..(byte-code."\30
04a0	30 5c 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	0\301\302\303#\300\207".[functio
04c0	6e 2d 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	n-put.f--destructive.lisp-indent
04e0	2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 6a 6f 69	-function.1].4).(defalias.'f-joi
0500	6e 20 23 5b 31 32 38 20 22 5c 33 30 30 43 5c 33 30 31 02 40 21 43 5c 33 30 32 5c 33 30 33 5c 33	n.#[128."\300C\301.@!C\302\303\3
0520	30 34 03 05 23 04 5c 22 5c 32 31 30 5c 32 31 31 5c 32 34 32 5c 32 30 33 1a 00 5c 33 30 35 02 5c	04..#.\"\210\211\242\203..\305.\
0540	32 34 32 21 5c 32 30 37 01 5c 32 34 32 5c 32 30 37 22 20 5b 6e 69 6c 20 66 2d 72 65 6c 61 74 69	242!\207.\242\207".[nil.f-relati
0560	76 65 2d 70 20 6d 61 70 63 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33	ve-p.mapc.make-closure.#[257."\3
0580	30 31 5c 32 31 31 5c 32 34 32 5c 32 30 34 5c 6e 00 01 5c 32 30 32 1d 00 5c 33 30 32 02 21 5c 32	01\211\242\204\n..\202..\302.!\2
05a0	30 33 18 00 5c 33 30 30 5c 33 30 33 5c 32 34 30 5c 32 31 30 01 5c 32 30 32 1d 00 5c 33 30 34 02	03..\300\303\240\210.\202..\304.
05c0	5c 33 30 31 5c 32 34 32 5c 22 5c 32 34 30 5c 32 30 37 22 20 5b 56 30 20 56 31 20 66 2d 61 62 73	\301\242\"\240\207".[V0.V1.f-abs
05e0	6f 6c 75 74 65 2d 70 20 6e 69 6c 20 66 2d 65 78 70 61 6e 64 5d 20 35 20 28 23 24 20 2e 20 31 31	olute-p.nil.f-expand].5.(#$...11
0600	35 37 29 5d 20 66 2d 72 65 6c 61 74 69 76 65 5d 20 38 20 28 23 24 20 2e 20 39 33 37 29 5d 29 23	57)].f-relative].8.(#$...937)])#
0620	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 74 20 63	@57.Split.PATH.and.return.list.c
0640	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 28 64 65	ontaining.parts...(fn.PATH)..(de
0660	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 01 5c 33 30 31	falias.'f-split.#[257."\300.\301
0680	20 5c 33 30 32 23 5c 33 30 33 5c 33 30 34 03 5c 22 5c 33 30 31 20 5c 32 33 30 5c 32 30 33 18 00	.\302#\303\304.\"\301.\230\203..
06a0	5c 33 30 31 20 01 42 5c 32 31 31 5c 32 36 32 02 5c 32 30 37 5c 32 30 37 22 20 5b 73 70 6c 69 74	\301..B\211\262.\207\207".[split
06c0	2d 73 74 72 69 6e 67 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	-string.f-path-separator.omit-nu
06e0	6c 6c 73 20 73 2d 6c 65 66 74 20 31 5d 20 35 20 28 23 24 20 2e 20 31 35 37 32 29 5d 29 23 40 32	lls.s-left.1].5.(#$...1572)])#@2
0700	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 49 52 20 28	74.Expand.PATH.relative.to.DIR.(
0720	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 48 20 61 6e	or.`default-directory')..PATH.an
0740	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 6f 72 79 20	d.DIR.can.be.either.a.directory.
0760	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 73 2e 20 20	names.or.directory.file.names...
0780	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 41 54 48 20	Return.a.directory.name.if.PATH.
07a0	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 69 72 65 63	is.a.directory.name,.and.a.direc
07c0	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 69 6c 65 20	tory.file.name.otherwise...File.
07e0	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 28 66 6e 20	name.handlers.are.ignored...(fn.
0800	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 73 20 27	PATH.&optional.DIR)..(defalias.'
0820	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 22 29 5c 32	f-expand.#[513."\301.\302..\")\2
0840	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 20 6e 69 6c	07".[file-name-handler-alist.nil
0860	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 37 39 35 29	.expand-file-name].5.(#$...1795)
0880	5d 29 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 41 54 48 2e 0a	])#@37.Return.the.name.of.PATH..
08a0	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 6c 65 6e 61 6d	.(fn.PATH)..(defalias.'f-filenam
08c0	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 69 6c 65 2d	e.#[257."\300\301.!!\207".[file-
08e0	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 2d 66 69 6c 65	name-nondirectory.directory-file
0900	2d 6e 61 6d 65 5d 20 34 20 28 23 24 20 2e 20 32 31 38 33 29 5d 29 23 40 34 39 20 52 65 74 75 72	-name].4.(#$...2183)])#@49.Retur
0920	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 50 41 54 48 2e 0a	n.the.parent.directory.to.PATH..
0940	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 70 61 72 65 6e 74 20	.(fn.PATH)..(defalias.'f-parent.
0960	27 66 2d 64 69 72 6e 61 6d 65 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 64 69 72 6e 61 6d 65	'f-dirname).(defalias.'f-dirname
0980	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 5c 33 30 34 02 02	.#[257."\301\302\303..\"!!\304..
09a0	5c 22 3f 5c 32 30 35 1d 00 5c 33 30 35 02 21 5c 32 30 33 1a 00 5c 33 30 36 01 21 5c 32 30 37 5c	\"?\205..\305.!\203..\306.!\207\
09c0	33 30 32 01 21 5c 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 69	302.!\207".[default-directory.fi
09e0	6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65	le-name-directory.directory-file
0a00	2d 6e 61 6d 65 20 66 2d 65 78 70 61 6e 64 20 66 2d 73 61 6d 65 2d 70 20 66 2d 72 65 6c 61 74 69	-name.f-expand.f-same-p.f-relati
0a20	76 65 2d 70 20 66 2d 72 65 6c 61 74 69 76 65 5d 20 36 20 28 23 24 20 2e 20 32 33 33 31 29 5d 29	ve-p.f-relative].6.(#$...2331)])
0a40	23 40 36 36 20 52 65 74 75 72 6e 20 74 68 65 20 64 65 65 70 65 73 74 20 63 6f 6d 6d 6f 6e 20 70	#@66.Return.the.deepest.common.p
0a60	61 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 50 41 54 48 53 2e 0a 0a 28 66 6e 20 50	arent.directory.of.PATHS...(fn.P
0a80	41 54 48 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 63 6f 6d 6d 6f 6e 2d 70 61 72 65 6e	ATHS)..(defalias.'f-common-paren
0aa0	74 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 32 31 31 41	t.#[257."\211\204..\300\207\211A
0ac0	5c 32 30 34 10 00 5c 33 30 31 01 40 21 5c 32 30 37 5c 33 30 32 5c 33 30 33 02 5c 22 5c 32 31 31	\204..\301.@!\207\302\303.\"\211
0ae0	40 40 5c 33 30 30 02 40 5c 32 30 33 56 00 5c 33 30 34 03 5c 33 30 35 5c 33 30 30 02 5c 32 30 33	@@\300.@\203V.\304.\305\300.\203
0b00	3e 00 5c 32 31 30 01 5c 32 34 32 5c 32 31 31 40 06 06 5c 32 33 32 5c 32 31 31 5c 32 36 32 05 5c	>.\210.\242\211@..\232\211\262.\
0b20	32 30 33 3e 00 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 21 00 5c 32 36 36 03 5c 32	203>..T\262..A\262.\202!.\266.\2
0b40	30 33 56 00 5c 33 30 32 5c 33 30 36 04 5c 22 5c 32 36 32 03 01 01 42 5c 32 36 32 01 02 40 40 5c	03V.\302\306.\"\262...B\262..@@\
0b60	32 36 32 02 5c 32 30 32 18 00 5c 32 31 31 5c 32 30 34 5c 5c 00 5c 33 30 37 5c 32 30 37 5c 32 31	262.\202..\211\204\\.\307\207\21
0b80	31 47 5c 33 31 30 55 5c 32 30 33 6d 00 5c 33 31 31 01 40 21 5c 32 30 33 6d 00 5c 33 31 32 20 5c	1G\310U\203m.\311.@!\203m.\312.\
0ba0	32 30 37 5c 33 31 33 5c 33 31 34 02 5c 32 33 37 5c 22 5c 33 31 35 50 5c 32 30 37 22 20 5b 6e 69	207\313\314.\237\"\315P\207".[ni
0bc0	6c 20 66 2d 70 61 72 65 6e 74 20 2d 6d 61 70 20 66 2d 73 70 6c 69 74 20 74 20 30 20 63 64 72 20	l.f-parent.-map.f-split.t.0.cdr.
0be0	22 22 20 31 20 66 2d 72 6f 6f 74 2d 70 20 66 2d 72 6f 6f 74 20 61 70 70 6c 79 20 66 2d 6a 6f 69	"".1.f-root-p.f-root.apply.f-joi
0c00	6e 20 22 2f 22 5d 20 31 30 20 28 23 24 20 2e 20 32 36 32 39 29 5d 29 23 40 39 33 20 52 65 74 75	n."/"].10.(#$...2629)])#@93.Retu
0c20	72 6e 20 50 41 54 48 20 62 75 74 20 77 69 74 68 20 45 58 54 20 61 73 20 74 68 65 20 6e 65 77 20	rn.PATH.but.with.EXT.as.the.new.
0c40	65 78 74 65 6e 73 69 6f 6e 2e 0a 45 58 54 20 6d 75 73 74 20 6e 6f 74 20 62 65 20 6e 69 6c 20 6f	extension..EXT.must.not.be.nil.o
0c60	72 20 65 6d 70 74 79 2e 0a 0a 28 66 6e 20 50 41 54 48 20 45 58 54 29 1f 0a 28 62 79 74 65 2d 63	r.empty...(fn.PATH.EXT)..(byte-c
0c80	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 33 30 33 5c	ode."\300\301\302\"\210\300\303\
0ca0	33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 66 2d 65 78 74 20 66 69 6c 65 2d	304\"\207".[defalias.f-ext.file-
0cc0	6e 61 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 20 66 2d 6e 6f 2d 65 78 74 20 66 69 6c 65 2d 6e 61 6d	name-extension.f-no-ext.file-nam
0ce0	65 2d 73 61 6e 73 2d 65 78 74 65 6e 73 69 6f 6e 5d 20 33 29 0a 28 64 65 66 61 6c 69 61 73 20 27	e-sans-extension].3).(defalias.'
0d00	66 2d 73 77 61 70 2d 65 78 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 21 5c 32 30 33 5c 6e 00 5c	f-swap-ext.#[514."\300.!\203\n.\
0d20	33 30 31 5c 33 30 32 21 5c 32 30 37 5c 33 30 33 02 21 5c 33 30 34 02 51 5c 32 30 37 22 20 5b 73	301\302!\207\303.!\304.Q\207".[s
0d40	2d 62 6c 61 6e 6b 2d 70 20 65 72 72 6f 72 20 22 45 78 74 65 6e 73 69 6f 6e 20 63 61 6e 6e 6f 74	-blank-p.error."Extension.cannot
0d60	20 62 65 20 65 6d 70 74 79 20 6f 72 20 6e 69 6c 22 20 66 2d 6e 6f 2d 65 78 74 20 22 2e 22 5d 20	.be.empty.or.nil".f-no-ext."."].
0d80	35 20 28 23 24 20 2e 20 33 31 30 30 29 5d 29 23 40 37 30 20 52 65 74 75 72 6e 20 74 68 65 20 6e	5.(#$...3100)])#@70.Return.the.n
0da0	61 6d 65 20 6f 66 20 50 41 54 48 2c 20 65 78 63 6c 75 64 69 6e 67 20 74 68 65 20 65 78 74 65 6e	ame.of.PATH,.excluding.the.exten
0dc0	73 69 6f 6e 20 6f 66 20 66 69 6c 65 2e 0a 0a 28 66 6e 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c	sion.of.file...(fn.PATH)..(defal
0de0	69 61 73 20 27 66 2d 62 61 73 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 21 21 5c 32	ias.'f-base.#[257."\300\301.!!\2
0e00	30 37 22 20 5b 66 2d 6e 6f 2d 65 78 74 20 66 2d 66 69 6c 65 6e 61 6d 65 5d 20 34 20 28 23 24 20	07".[f-no-ext.f-filename].4.(#$.
0e20	2e 20 33 34 37 36 29 5d 29 23 40 34 31 20 52 65 74 75 72 6e 20 6c 6f 6e 67 20 76 65 72 73 69 6f	..3476)])#@41.Return.long.versio
0e40	6e 20 6f 66 20 50 41 54 48 2e 0a 0a 28 66 6e 20 50 41 54 48 29 1f 0a 28 62 79 74 65 2d 63 6f 64	n.of.PATH...(fn.PATH)..(byte-cod
0e60	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 33 30 33 5c 33 30	e."\300\301\302\"\210\300\303\30
0e80	34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 35 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61	4\"\210\300\305\304\"\207".[defa
0ea0	6c 69 61 73 20 66 2d 72 65 6c 61 74 69 76 65 20 66 69 6c 65 2d 72 65 6c 61 74 69 76 65 2d 6e 61	lias.f-relative.file-relative-na
0ec0	6d 65 20 66 2d 73 68 6f 72 74 20 61 62 62 72 65 76 69 61 74 65 2d 66 69 6c 65 2d 6e 61 6d 65 20	me.f-short.abbreviate-file-name.
0ee0	66 2d 61 62 62 72 65 76 5d 20 33 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 6c 6f 6e 67 20 23	f-abbrev].3).(defalias.'f-long.#
0f00	5b 32 35 37 20 22 5c 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	[257."\300.!\207".[f-expand].3.(
0f20	23 24 20 2e 20 33 36 33 30 29 5d 29 23 40 31 33 31 20 41 70 70 65 6e 64 20 73 6c 61 73 68 20 74	#$...3630)])#@131.Append.slash.t
0f40	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 65	o.PATH.unless.one.already...Some
0f60	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 73	.functions,.such.as.`call-proces
0f80	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 6e	s'.requires.there.to.be.an.endin
0fa0	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 27	g.slash...(fn.PATH)..(defalias.'
0fc0	66 2d 63 61 6e 6f 6e 69 63 61 6c 20 27 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 29 0a 28 64 65 66	f-canonical.'file-truename).(def
0fe0	61 6c 69 61 73 20 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	alias.'f-slash.#[257."\300.!\203
1000	5c 6e 00 5c 33 30 31 01 21 5c 32 30 37 5c 32 30 37 22 20 5b 66 2d 64 69 72 2d 70 20 66 69 6c 65	\n.\301.!\207\207".[f-dir-p.file
1020	2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 5d 20 33 20 28 23 24 20 2e 20 33 38 39 30	-name-as-directory].3.(#$...3890
1040	29 5d 29 23 40 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	)])#@61.Return.absolute.path.to.
1060	50 41 54 48 2c 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	PATH,.with.ending.slash...(fn.PA
1080	54 48 29 1f 0a 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	TH)..(defalias.'f-full.#[257."\3
10a0	30 30 5c 33 30 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	00\301.!!\207".[f-slash.f-long].
10c0	34 20 28 23 24 20 2e 20 34 31 36 38 29 5d 29 23 40 36 31 20 48 65 6c 70 65 72 20 66 6f 72 20 60	4.(#$...4168)])#@61.Helper.for.`
10e0	66 2d 75 6e 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	f-uniquify'.and.`f-uniquify-alis
1100	74 27 2e 0a 0a 28 66 6e 20 50 41 54 48 53 29 1f 23 40 31 31 20 0a 0a 28 66 6e 20 49 54 29 1f 0a	t'...(fn.PATHS).#@11...(fn.IT)..
1120	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 20 22 5c 32	(defalias.'f--uniquify.#[257."\2
1140	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 55 5c 32 30	11G\300\301.\"\302\303.\"..GU\20
1160	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 06 5c 22 5c	4!.\302\303\304\305\300\306..\"\
1180	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 20 23 5b 32	"\"\262.\202\n.\207".[mapcar.#[2
11a0	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 6e 61 6d 65	57."\211\300.!B\207".[f-filename
11c0	5d 20 34 20 28 23 24 20 2e 20 34 33 37 33 29 5d 20 2d 67 72 6f 75 70 2d 62 79 20 63 64 72 20 61	].4.(#$...4373)].-group-by.cdr.a
11e0	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 31 31 47 5c 33 30	pply.append.#[257."\211A\211G\30
1200	30 56 5c 32 30 33 0e 00 5c 33 30 31 5c 33 30 32 02 5c 22 5c 32 30 37 5c 32 30 37 22 20 5b 31 20	0V\203..\301\302.\"\207\207".[1.
1220	6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 32 31 31 40 5c 33 30 30 5c 33 30 31 03 41 04 40 5c	mapcar.#[257."\211@\300\301.A.@\
1240	22 21 5c 33 30 32 20 03 41 51 42 5c 32 30 37 22 20 5b 66 2d 66 69 6c 65 6e 61 6d 65 20 73 2d 63	"!\302..AQB\207".[f-filename.s-c
1260	68 6f 70 2d 73 75 66 66 69 78 20 66 2d 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 5d 20 36 20 28	hop-suffix.f-path-separator].6.(
1280	23 24 20 2e 20 34 33 37 33 29 5d 5d 20 35 20 28 23 24 20 2e 20 34 33 37 33 29 5d 5d 20 31 31 20	#$...4373)]].5.(#$...4373)]].11.
12a0	28 23 24 20 2e 20 34 33 30 38 29 5d 29 23 40 38 39 20 52 65 74 75 72 6e 20 75 6e 69 71 75 65 20	(#$...4308)])#@89.Return.unique.
12c0	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 6f	suffixes.of.FILES...This.functio
12e0	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 28	n.expects.no.duplicate.paths...(
1300	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 79	fn.FILES)..(defalias.'f-uniquify
1320	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 32 30 37 22 20 5b 2d	.#[257."\300\301\302.!\"\207".[-
1340	6d 61 70 20 63 61 72 20 66 2d 2d 75 6e 69 71 75 69 66 79 5d 20 35 20 28 23 24 20 2e 20 34 37 38	map.car.f--uniquify].5.(#$...478
1360	36 29 5d 29 23 40 31 31 32 20 52 65 74 75 72 6e 20 61 6c 69 73 74 20 6d 61 70 70 69 6e 67 20 46	6)])#@112.Return.alist.mapping.F
1380	49 4c 45 53 20 74 6f 20 75 6e 69 71 75 65 20 73 75 66 66 69 78 65 73 20 6f 66 20 46 49 4c 45 53	ILES.to.unique.suffixes.of.FILES
13a0	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 70 6c	...This.function.expects.no.dupl
13c0	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 61 6c	icate.paths...(fn.FILES)..(defal
13e0	69 61 73 20 27 66 2d 75 6e 69 71 75 69 66 79 2d 61 6c 69 73 74 20 23 5b 32 35 37 20 22 5c 33 30	ias.'f-uniquify-alist.#[257."\30
1400	30 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 64 72 20 66 2d	0\301\302.!\"\207".[-map.cadr.f-
1420	2d 75 6e 69 71 75 69 66 79 5d 20 35 20 28 23 24 20 2e 20 34 39 37 30 29 5d 29 23 40 31 39 36 20	-uniquify].5.(#$...4970)])#@196.
1440	52 65 61 64 20 62 69 6e 61 72 79 20 64 61 74 61 20 66 72 6f 6d 20 50 41 54 48 2e 0a 0a 52 65 74	Read.binary.data.from.PATH...Ret
1460	75 72 6e 20 74 68 65 20 62 69 6e 61 72 79 20 64 61 74 61 20 61 73 20 75 6e 69 62 79 74 65 20 73	urn.the.binary.data.as.unibyte.s
1480	74 72 69 6e 67 2e 20 20 54 68 65 20 6f 70 74 69 6f 6e 61 6c 20 73 65 63 6f 6e 64 0a 61 6e 64 20	tring...The.optional.second.and.
14a0	74 68 69 72 64 20 61 72 67 75 6d 65 6e 74 73 20 42 45 47 20 61 6e 64 20 45 4e 44 20 73 70 65 63	third.arguments.BEG.and.END.spec
14c0	69 66 79 20 77 68 61 74 20 70 6f 72 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 69 6c 65 0a 74 6f 20	ify.what.portion.of.the.file.to.
14e0	72 65 61 64 2e 0a 0a 28 66 6e 20 50 41 54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 42 45 47 20 45 4e	read...(fn.PATH.&optional.BEG.EN
1500	44 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 37 36	D)..(defalias.'f-read-bytes.#[76
1520	39 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 22 72 5c 32 31 31 71 5c 32 31 30 5c 33 30 34 5c	9."\301\302\303\"r\211q\210\304\
1540	33 30 35 02 5c 22 5c 32 31 36 5c 33 30 36 5c 33 30 37 21 5c 32 31 30 5c 33 31 30 10 5c 33 31 31	305.\"\216\306\307!\210\310.\311
1560	04 5c 33 30 37 05 05 24 5c 32 31 30 5c 33 31 32 65 64 5c 22 2a 5c 32 30 37 22 20 5b 62 75 66 66	.\307..$\210\312ed\"*\207".[buff
1580	65 72 2d 66 69 6c 65 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 67 65 6e 65 72 61 74 65 2d 6e	er-file-coding-system.generate-n
15a0	65 77 2d 62 75 66 66 65 72 20 22 20 2a 74 65 6d 70 2a 22 20 74 20 6d 61 6b 65 2d 63 6c 6f 73 75	ew-buffer.".*temp*".t.make-closu
15c0	72 65 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 30 35 09 00 5c 33 30 32 5c 33 30 30 21	re.#[0."\301\300!\205..\302\300!
15e0	5c 32 30 37 22 20 5b 56 30 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62 75 66 66 65	\207".[V0.buffer-name.kill-buffe
1600	72 5d 20 32 5d 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 75 6c 74 69 62 79 74 65 20 6e 69 6c 20 62	r].2].set-buffer-multibyte.nil.b
1620	69 6e 61 72 79 20 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 2d 6c 69 74 65 72	inary.insert-file-contents-liter
1640	61 6c 6c 79 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74	ally.buffer-substring-no-propert
1660	69 65 73 5d 20 39 20 28 23 24 20 2e 20 35 31 38 34 29 5d 29 23 40 31 33 39 20 52 65 61 64 20 74	ies].9.(#$...5184)])#@139.Read.t
1680	65 78 74 20 77 69 74 68 20 50 41 54 48 2c 20 75 73 69 6e 67 20 43 4f 44 49 4e 47 2e 0a 0a 43 4f	ext.with.PATH,.using.CODING...CO
16a0	44 49 4e 47 20 64 65 66 61 75 6c 74 73 20 74 6f 20 60 75 74 66 2d 38 27 2e 0a 0a 52 65 74 75 72	DING.defaults.to.`utf-8'...Retur
16c0	6e 20 74 68 65 20 64 65 63 6f 64 65 64 20 74 65 78 74 20 61 73 20 6d 75 6c 74 69 62 79 74 65 20	n.the.decoded.text.as.multibyte.
16e0	73 74 72 69 6e 67 2e 0a 0a 28 66 6e 20 50 41 54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 43 4f 44 49	string...(fn.PATH.&optional.CODI
1700	4e 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 72 65 61 64 20 27 66 2d 72 65 61 64 2d 74	NG)..(defalias.'f-read.'f-read-t
1720	65 78 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 72 65 61 64 2d 74 65 78 74 20 23 5b 35 31	ext).(defalias.'f-read-text.#[51
1740	33 20 22 5c 33 30 30 5c 33 30 31 03 21 02 5c 32 30 36 09 00 5c 33 30 32 5c 22 5c 32 30 37 22 20	3."\300\301.!.\206..\302\"\207".
1760	5b 64 65 63 6f 64 65 2d 63 6f 64 69 6e 67 2d 73 74 72 69 6e 67 20 66 2d 72 65 61 64 2d 62 79 74	[decode-coding-string.f-read-byt
1780	65 73 20 75 74 66 2d 38 5d 20 35 20 28 23 24 20 2e 20 35 37 35 34 29 5d 29 23 40 31 36 37 20 57	es.utf-8].5.(#$...5754)])#@167.W
17a0	72 69 74 65 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 0a	rite.TEXT.with.CODING.to.PATH...
17c0	54 45 58 54 20 69 73 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	TEXT.is.a.multibyte.string...COD
17e0	49 4e 47 20 69 73 20 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	ING.is.a.coding.system.to.encode
1800	0a 54 45 58 54 20 77 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	.TEXT.with...PATH.is.a.file.name
1820	20 74 6f 20 77 72 69 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	.to.write.to...(fn.TEXT.CODING.P
1840	41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 77 72 69 74 65 20 27 66 2d 77 72 69 74	ATH)..(defalias.'f-write.'f-writ
1860	65 2d 74 65 78 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 77 72 69 74 65 2d 74 65 78 74 20	e-text).(defalias.'f-write-text.
1880	23 5b 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 77	#[771."\300\301..\".\"\207".[f-w
18a0	72 69 74 65 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	rite-bytes.encode-coding-string]
18c0	20 37 20 28 23 24 20 2e 20 36 30 34 37 29 5d 29 23 40 35 30 20 44 65 74 65 72 6d 69 6e 65 20 77	.7.(#$...6047)])#@50.Determine.w
18e0	68 65 74 68 65 72 20 53 20 69 73 20 61 20 75 6e 69 62 79 74 65 20 73 74 72 69 6e 67 2e 0a 0a 28	hether.S.is.a.unibyte.string...(
1900	66 6e 20 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 75 6e 69 62 79 74 65 2d 73 74 72 69	fn.S)..(defalias.'f-unibyte-stri
1920	6e 67 2d 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 3f 5c 32 30 37 22 20 5b 6d 75 6c 74 69 62	ng-p.#[257."\300.!?\207".[multib
1940	79 74 65 2d 73 74 72 69 6e 67 2d 70 5d 20 33 20 28 23 24 20 2e 20 36 33 35 37 29 5d 29 23 40 31	yte-string-p].3.(#$...6357)])#@1
1960	30 35 20 57 72 69 74 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	05.Write.binary.DATA.to.PATH...D
1980	41 54 41 20 69 73 20 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	ATA.is.a.unibyte.string...PATH.i
19a0	73 20 61 20 66 69 6c 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	s.a.file.name.to.write.to...(fn.
19c0	44 41 54 41 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 65 2d 62	DATA.PATH)..(defalias.'f-write-b
19e0	79 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	ytes.#[514."\300..\301#\207".[f-
1a00	2d 77 72 69 74 65 2d 62 79 74 65 73 20 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 36 34 39 39 29 5d	-write-bytes.nil].6.(#$...6499)]
1a20	29 23 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	)#@97.Append.TEXT.with.CODING.to
1a40	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 69 73 74 2c 20	.PATH...If.PATH.does.not.exist,.
1a60	69 74 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	it.is.created...(fn.TEXT.CODING.
1a80	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 20 27 66 2d 61 70	PATH)..(defalias.'f-append.'f-ap
1aa0	70 65 6e 64 2d 74 65 78 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 61 70 70 65 6e 64 2d 74	pend-text).(defalias.'f-append-t
1ac0	65 78 74 20 23 5b 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	ext.#[771."\300\301..\".\"\207".
1ae0	5b 66 2d 61 70 70 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	[f-append-bytes.encode-coding-st
1b00	72 69 6e 67 5d 20 37 20 28 23 24 20 2e 20 36 36 39 34 29 5d 29 23 40 38 35 20 41 70 70 65 6e 64	ring].7.(#$...6694)])#@85.Append
1b20	20 62 69 6e 61 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	.binary.DATA.to.PATH...If.PATH.d
1b40	6f 65 73 20 6e 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	oes.not.exist,.it.is.created...(
1b60	66 6e 20 44 41 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	fn.DATA.PATH)..(defalias.'f-appe
1b80	6e 64 2d 62 79 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	nd-bytes.#[514."\300..\301#\207"
1ba0	20 5b 66 2d 2d 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	.[f--write-bytes.:append].6.(#$.
1bc0	2e 20 36 39 33 38 29 5d 29 23 40 31 32 33 20 57 72 69 74 65 20 62 69 6e 61 72 79 20 44 41 54 41	..6938)])#@123.Write.binary.DATA
1be0	20 74 6f 20 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	.to.FILENAME..If.APPEND.is.non-n
1c00	69 6c 2c 20 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	il,.append.the.DATA.to.the.exist
1c20	69 6e 67 20 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	ing.contents...(fn.DATA.FILENAME
1c40	20 41 50 50 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	.APPEND)..(defalias.'f--write-by
1c60	74 65 73 20 23 5b 37 37 31 20 22 08 5c 32 30 33 56 00 5c 33 30 34 08 5c 33 30 35 5c 33 30 34 02	tes.#[771.".\203V.\304.\305\304.
1c80	5c 32 30 33 2d 00 5c 32 31 30 01 5c 32 34 32 5c 33 30 36 01 06 07 5c 22 5c 32 30 36 1c 00 5c 33	\203-.\210.\242\306...\"\206..\3
1ca0	30 37 01 06 07 5c 22 5c 32 31 31 5c 32 36 32 05 5c 32 30 34 2d 00 01 54 5c 32 36 32 02 02 41 5c	07...\"\211\262.\204-..T\262..A\
1cc0	32 36 32 03 5c 32 30 32 08 00 5c 32 36 36 03 5c 32 30 33 4f 00 5c 33 31 30 03 21 5c 32 30 34 3f	262.\202..\266.\203O.\310.!\204?
1ce0	00 5c 33 31 31 5c 33 31 32 5c 33 31 30 05 44 5c 22 5c 32 31 30 5c 33 31 33 5c 33 30 34 5c 32 31	.\311\312\310.D\"\210\313\304\21
1d00	31 19 1a 1b 5c 33 31 34 03 5c 33 30 34 04 04 5c 33 31 35 25 2b 5c 33 30 34 5c 32 30 37 5c 33 31	1...\314.\304..\315%+\304\207\31
1d20	31 5c 33 31 36 03 08 44 5c 22 5c 32 30 37 5c 33 31 30 03 21 5c 32 30 34 63 00 5c 33 31 31 5c 33	1\316..D\"\207\310.!\204c.\311\3
1d40	31 32 5c 33 31 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	12\310.D\"\210\313\304\211...\31
1d60	34 03 5c 33 30 34 04 04 5c 33 31 35 25 2b 5c 33 30 34 5c 32 30 37 22 20 5b 66 2d 2d 67 75 61 72	4.\304..\315%+\304\207".[f--guar
1d80	64 2d 70 61 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	d-paths.write-region-post-annota
1da0	74 69 6f 6e 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	tion-function.write-region-annot
1dc0	61 74 65 2d 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	ate-functions.coding-system-for-
1de0	77 72 69 74 65 20 6e 69 6c 20 30 20 66 2d 73 61 6d 65 2d 70 20 66 2d 61 6e 63 65 73 74 6f 72 2d	write.nil.0.f-same-p.f-ancestor-
1e00	6f 66 2d 70 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	of-p.f-unibyte-string-p.signal.w
1e20	72 6f 6e 67 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	rong-type-argument.binary.write-
1e40	72 65 67 69 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 31	region.:silent.f-guard-error].11
1e60	20 28 23 24 20 2e 20 37 31 31 39 29 5d 29 23 40 34 33 32 20 43 72 65 61 74 65 20 64 69 72 65 63	.(#$...7119)])#@432.Create.direc
1e80	74 6f 72 69 65 73 20 44 49 52 53 2e 0a 0a 44 49 52 53 20 73 68 6f 75 6c 64 20 62 65 20 61 20 73	tories.DIRS...DIRS.should.be.a.s
1ea0	75 63 63 65 73 73 69 76 65 20 6c 69 73 74 20 6f 66 20 64 69 72 65 63 74 6f 72 69 65 73 20 66 6f	uccessive.list.of.directories.fo
1ec0	72 6d 69 6e 67 20 74 6f 67 65 74 68 65 72 0a 61 20 66 75 6c 6c 20 70 61 74 68 2e 20 20 54 68 65	rming.together.a.full.path...The
1ee0	20 65 61 73 69 65 73 74 20 77 61 79 20 74 6f 20 63 61 6c 6c 20 74 68 69 73 20 66 75 6e 63 74 69	.easiest.way.to.call.this.functi
1f00	6f 6e 20 77 69 74 68 20 61 20 66 75 6c 6c 79 0a 66 6f 72 6d 65 64 20 70 61 74 68 20 69 73 20 75	on.with.a.fully.formed.path.is.u
1f20	73 69 6e 67 20 60 66 2d 73 70 6c 69 74 27 20 61 6c 6f 6e 67 73 69 64 65 20 69 74 3a 0a 0a 20 20	sing.`f-split'.alongside.it:....
1f40	20 20 28 61 70 70 6c 79 20 23 5c 3d 27 66 2d 6d 6b 64 69 72 20 28 66 2d 73 70 6c 69 74 20 22 70	..(apply.#\='f-mkdir.(f-split."p
1f60	61 74 68 2f 74 6f 2f 66 69 6c 65 22 29 29 0a 0a 41 6c 74 68 6f 75 67 68 20 69 74 20 77 6f 72 6b	ath/to/file"))..Although.it.work
1f80	73 20 73 6f 6d 65 74 69 6d 65 73 2c 20 69 74 20 69 73 20 6e 6f 74 20 72 65 63 6f 6d 6d 65 6e 64	s.sometimes,.it.is.not.recommend
1fa0	65 64 20 74 6f 20 75 73 65 20 66 75 6c 6c 79 0a 66 6f 72 6d 65 64 20 70 61 74 68 73 20 69 6e 20	ed.to.use.fully.formed.paths.in.
1fc0	74 68 65 20 66 75 6e 63 74 69 6f 6e 2e 20 49 6e 20 74 68 69 73 20 63 61 73 65 2c 20 69 74 20 69	the.function..In.this.case,.it.i
1fe0	73 20 72 65 63 6f 6d 6d 65 6e 64 65 64 20 74 6f 0a 75 73 65 20 60 66 2d 6d 6b 64 69 72 2d 66 75	s.recommended.to.use.`f-mkdir-fu
2000	6c 6c 2d 70 61 74 68 27 20 69 6e 73 74 65 61 64 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 44 49 52	ll-path'.instead...(fn.&rest.DIR
2020	53 29 1f 23 40 31 32 20 0a 0a 28 66 6e 20 44 49 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66	S).#@12...(fn.DIR)..(defalias.'f
2040	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 33 30 32 5c 33 30 33	-mkdir.#[128."\300C\301.\302\303
2060	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 65 2d 63 6c 6f 73 75	.\"\"\207".[nil.-each.make-closu
2080	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 34 32 5c 22 5c 32 34	re.#[257."\300\302.\300\242\"\24
20a0	30 5c 32 31 30 5c 33 30 33 5c 33 30 30 5c 32 34 32 21 3f 5c 32 30 35 53 00 09 5c 32 30 33 4f 00	0\210\303\300\242!?\205S..\203O.
20c0	5c 33 30 34 09 5c 33 30 35 5c 33 30 34 02 5c 32 30 33 3d 00 5c 32 31 30 01 5c 32 34 32 5c 33 30	\304.\305\304.\203=.\210.\242\30
20e0	36 01 5c 33 30 30 5c 32 34 32 5c 22 5c 32 30 36 2c 00 5c 33 30 37 01 5c 33 30 30 5c 32 34 32 5c	6.\300\242\"\206,.\307.\300\242\
2100	22 5c 32 31 31 5c 32 36 32 05 5c 32 30 34 3d 00 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32	"\211\262.\204=..T\262..A\262.\2
2120	30 32 18 00 5c 32 36 36 03 5c 32 30 33 47 00 5c 33 31 30 5c 33 30 30 5c 32 34 32 21 5c 32 30 37	02..\266.\203G.\310\300\242!\207
2140	5c 33 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	\311\312\300\242.D\"\207\310\300
2160	5c 32 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	\242!\207".[V0.f--guard-paths.f-
2180	65 78 70 61 6e 64 20 66 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 6e 69 6c 20 30 20 66 2d 73 61 6d	expand.f-directory-p.nil.0.f-sam
21a0	65 2d 70 20 66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66 2d 70 20 6d 61 6b 65 2d 64 69 72 65 63 74 6f	e-p.f-ancestor-of-p.make-directo
21c0	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 38 20 28 23 24 20 2e	ry.signal.f-guard-error].8.(#$..
21e0	20 38 32 33 32 29 5d 5d 20 37 20 28 23 24 20 2e 20 37 37 39 36 29 5d 29 23 40 31 36 39 20 43 72	.8232)]].7.(#$...7796)])#@169.Cr
2200	65 61 74 65 20 44 49 52 20 66 72 6f 6d 20 61 20 66 75 6c 6c 20 70 61 74 68 2e 0a 0a 54 68 69 73	eate.DIR.from.a.full.path...This
2220	20 66 75 6e 63 74 69 6f 6e 20 69 73 20 73 69 6d 69 6c 61 72 20 74 6f 20 60 66 2d 6d 6b 64 69 72	.function.is.similar.to.`f-mkdir
2240	27 20 65 78 63 65 70 74 20 69 74 20 63 61 6e 20 61 63 63 65 70 74 20 61 20 66 75 6c 6c 0a 70 61	'.except.it.can.accept.a.full.pa
2260	74 68 20 69 6e 73 74 65 61 64 20 6f 66 20 72 65 71 75 69 72 69 6e 67 20 73 65 76 65 72 61 6c 20	th.instead.of.requiring.several.
2280	73 75 63 63 65 73 73 69 76 65 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 73 2e 0a 0a 28 66 6e	successive.directory.names...(fn
22a0	20 44 49 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 6d 6b 64 69 72 2d 66 75 6c 6c 2d 70	.DIR)..(defalias.'f-mkdir-full-p
22c0	61 74 68 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 32 30 37 22	ath.#[257."\300\301\302.!\"\207"
22e0	20 5b 61 70 70 6c 79 20 66 2d 6d 6b 64 69 72 20 66 2d 73 70 6c 69 74 5d 20 35 20 28 23 24 20 2e	.[apply.f-mkdir.f-split].5.(#$..
2300	20 38 37 30 32 29 5d 29 23 40 31 33 30 20 44 65 6c 65 74 65 20 50 41 54 48 2c 20 77 68 69 63 68	.8702)])#@130.Delete.PATH,.which
2320	20 63 61 6e 20 62 65 20 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a 49 66 20 46	.can.be.file.or.directory...If.F
2340	4f 52 43 45 20 69 73 20 74 2c 20 61 20 64 69 72 65 63 74 6f 72 79 20 77 69 6c 6c 20 62 65 20 64	ORCE.is.t,.a.directory.will.be.d
2360	65 6c 65 74 65 64 20 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 0a 28 66 6e 20 50 41 54 48 20 26 6f	eleted.recursively...(fn.PATH.&o
2380	70 74 69 6f 6e 61 6c 20 46 4f 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 64 65 6c	ptional.FORCE)..(defalias.'f-del
23a0	65 74 65 20 23 5b 35 31 33 20 22 08 5c 32 30 33 4e 00 5c 33 30 31 08 5c 33 30 32 5c 33 30 31 02	ete.#[513.".\203N.\301.\302\301.
23c0	5c 32 30 33 2d 00 5c 32 31 30 01 5c 32 34 32 5c 33 30 33 01 06 07 5c 22 5c 32 30 36 1c 00 5c 33	\203-.\210.\242\303...\"\206..\3
23e0	30 34 01 06 07 5c 22 5c 32 31 31 5c 32 36 32 05 5c 32 30 34 2d 00 01 54 5c 32 36 32 02 02 41 5c	04...\"\211\262.\204-..T\262..A\
2400	32 36 32 03 5c 32 30 32 08 00 5c 32 36 36 03 5c 32 30 33 47 00 5c 33 30 35 02 21 5c 32 30 34 3e	262.\202..\266.\203G.\305.!\204>
2420	00 5c 33 30 36 02 21 5c 32 30 33 42 00 5c 33 30 37 02 21 5c 32 30 37 5c 33 31 30 02 02 5c 22 5c	.\306.!\203B.\307.!\207\310..\"\
2440	32 30 37 5c 33 31 31 5c 33 31 32 03 08 44 5c 22 5c 32 30 37 5c 33 30 35 02 21 5c 32 30 34 5a 00	207\311\312..D\"\207\305.!\204Z.
2460	5c 33 30 36 02 21 5c 32 30 33 5e 00 5c 33 30 37 02 21 5c 32 30 37 5c 33 31 30 02 02 5c 22 5c 32	\306.!\203^.\307.!\207\310..\"\2
2480	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 65	07".[f--guard-paths.nil.0.f-same
24a0	2d 70 20 66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66 2d 70 20 66 2d 66 69 6c 65 2d 70 20 66 2d 73 79	-p.f-ancestor-of-p.f-file-p.f-sy
24c0	6d 6c 69 6e 6b 2d 70 20 64 65 6c 65 74 65 2d 66 69 6c 65 20 64 65 6c 65 74 65 2d 64 69 72 65 63	mlink-p.delete-file.delete-direc
24e0	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 39 20 28 23 24	tory.signal.f-guard-error].9.(#$
2500	20 2e 20 38 39 37 34 29 5d 29 23 40 35 37 20 43 72 65 61 74 65 20 61 20 73 79 6d 6c 69 6e 6b 20	...8974)])#@57.Create.a.symlink.
2520	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 55 52 43 45	to.SOURCE.from.PATH...(fn.SOURCE
2540	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 20 23 5b 35	.PATH)..(defalias.'f-symlink.#[5
2560	31 34 20 22 08 5c 32 30 33 3e 00 5c 33 30 31 08 5c 33 30 32 5c 33 30 31 02 5c 32 30 33 2d 00 5c	14.".\203>.\301.\302\301.\203-.\
2580	32 31 30 01 5c 32 34 32 5c 33 30 33 01 06 06 5c 22 5c 32 30 36 1c 00 5c 33 30 34 01 06 06 5c 22	210.\242\303...\"\206..\304...\"
25a0	5c 32 31 31 5c 32 36 32 05 5c 32 30 34 2d 00 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30	\211\262.\204-..T\262..A\262.\20
25c0	32 08 00 5c 32 36 36 03 5c 32 30 33 37 00 5c 33 30 35 02 02 5c 22 5c 32 30 37 5c 33 30 36 5c 33	2..\266.\2037.\305..\"\207\306\3
25e0	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 2d 2d 67 75 61	07..D\"\207\305..\"\207".[f--gua
2600	72 64 2d 70 61 74 68 73 20 6e 69 6c 20 30 20 66 2d 73 61 6d 65 2d 70 20 66 2d 61 6e 63 65 73 74	rd-paths.nil.0.f-same-p.f-ancest
2620	6f 72 2d 6f 66 2d 70 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 69 63 2d 6c 69 6e 6b 20 73 69 67 6e 61	or-of-p.make-symbolic-link.signa
2640	6c 20 66 2d 67 75 61 72 64 2d 65 72 72 6f 72 5d 20 39 20 28 23 24 20 2e 20 39 34 38 37 29 5d 29	l.f-guard-error].9.(#$...9487)])
2660	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 74 6f 20 54 4f 2e 0a	#@88.Move.or.rename.FROM.to.TO..
2680	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 2c 20 6d 6f 76 65 20	If.TO.is.a.directory.name,.move.
26a0	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 4f 29 1f 0a 28 64 65	FROM.into.TO...(fn.FROM.TO)..(de
26c0	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 30 33 3f 00 5c 33 30	falias.'f-move.#[514.".\203?.\30
26e0	31 08 5c 33 30 32 5c 33 30 31 02 5c 32 30 33 2d 00 5c 32 31 30 01 5c 32 34 32 5c 33 30 33 01 06	1.\302\301.\203-.\210.\242\303..
2700	06 5c 22 5c 32 30 36 1c 00 5c 33 30 34 01 06 06 5c 22 5c 32 31 31 5c 32 36 32 05 5c 32 30 34 2d	.\"\206..\304...\"\211\262.\204-
2720	00 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 08 00 5c 32 36 36 03 5c 32 30 33 38 00	..T\262..A\262.\202..\266.\2038.
2740	5c 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	\305..\306#\207\307\310..D\"\207
2760	5c 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	\305..\306#\207".[f--guard-paths
2780	20 6e 69 6c 20 30 20 66 2d 73 61 6d 65 2d 70 20 66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66 2d 70 20	.nil.0.f-same-p.f-ancestor-of-p.
27a0	72 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	rename-file.t.signal.f-guard-err
27c0	6f 72 5d 20 39 20 28 23 24 20 2e 20 39 38 32 39 29 5d 29 23 40 31 34 31 20 43 6f 70 79 20 66 69	or].9.(#$...9829)])#@141.Copy.fi
27e0	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 46	le.or.directory.FROM.to.TO..If.F
2800	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 20	ROM.names.a.directory.and.TO.is.
2820	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 6f	a.directory.name,.copy.FROM.into
2840	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 4d	.TO.as.a.subdirectory...(fn.FROM
2860	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 08	.TO)..(defalias.'f-copy.#[514.".
2880	5c 32 30 33 6c 00 5c 33 30 32 08 5c 33 30 33 5c 33 30 32 02 5c 32 30 33 2d 00 5c 32 31 30 01 5c	\203l.\302.\303\302.\203-.\210.\
28a0	32 34 32 5c 33 30 34 01 06 06 5c 22 5c 32 30 36 1c 00 5c 33 30 35 01 06 06 5c 22 5c 32 31 31 5c	242\304...\"\206..\305...\"\211\
28c0	32 36 32 05 5c 32 30 34 2d 00 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 08 00 5c 32	262.\204-..T\262..A\262.\202..\2
28e0	36 36 03 5c 32 30 33 65 00 5c 33 30 36 02 21 5c 32 30 33 3d 00 5c 33 30 37 02 02 5c 22 5c 32 30	66.\203e.\306.!\203=.\307..\"\20
2900	37 09 5c 33 31 30 56 5c 32 30 33 48 00 5c 33 31 31 02 02 5c 22 5c 32 30 37 5c 33 31 32 01 21 5c	7.\310V\203H.\311..\"\207\312.!\
2920	32 30 33 60 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	203`.\313\314\315.!\"\210\316\31
2940	37 03 21 02 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	7.!.\"\311..\"\207\311..\"\207\3
2960	32 30 5c 33 32 31 02 08 44 5c 22 5c 32 30 37 5c 33 30 36 02 21 5c 32 30 33 77 00 5c 33 30 37 02	20\321..D\"\207\306.!\203w.\307.
2980	02 5c 22 5c 32 30 37 09 5c 33 31 30 56 5c 32 30 33 5c 32 30 32 00 5c 33 31 31 02 02 5c 22 5c 32	.\"\207.\310V\203\202.\311..\"\2
29a0	30 37 5c 33 31 32 01 21 5c 32 30 33 5c 32 33 32 00 5c 33 31 33 5c 33 31 34 5c 33 31 35 03 21 5c	07\312.!\203\232.\313\314\315.!\
29c0	22 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	"\210\316\317.!.\"\311..\"\207\3
29e0	31 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	11..\"\207".[f--guard-paths.emac
2a00	73 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 2d 70 20 66	s-major-version.nil.0.f-same-p.f
2a20	2d 61 6e 63 65 73 74 6f 72 2d 6f 66 2d 70 20 66 2d 66 69 6c 65 2d 70 20 63 6f 70 79 2d 66 69 6c	-ancestor-of-p.f-file-p.copy-fil
2a40	65 20 32 33 20 63 6f 70 79 2d 64 69 72 65 63 74 6f 72 79 20 66 2d 64 69 72 2d 70 20 61 70 70 6c	e.23.copy-directory.f-dir-p.appl
2a60	79 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	y.f-mkdir.f-split.f-expand.f-fil
2a80	65 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 39 20 28 23	ename.signal.f-guard-error].9.(#
2aa0	24 20 2e 20 31 30 32 30 31 29 5d 29 23 40 36 35 20 43 6f 70 79 20 63 6f 6e 74 65 6e 74 73 20 69	$...10201)])#@65.Copy.contents.i
2ac0	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
2ae0	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
2b00	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..
2b20	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\
2b40	33 30 34 03 5c 22 5c 32 31 30 5c 33 30 35 02 21 5c 33 30 36 01 5c 32 30 35 31 00 01 5c 32 31 31	304.\"\210\305.!\306.\2051..\211
2b60	41 5c 32 36 32 03 5c 32 34 32 5c 33 30 37 01 5c 33 31 30 06 06 21 5c 22 5c 32 36 36 02 54 5c 32	A\262.\242\307.\310..!\"\266.T\2
2b80	30 32 1a 00 5c 32 30 37 22 20 5b 66 2d 65 78 69 73 74 73 2d 70 20 65 72 72 6f 72 20 22 43 61 6e	02..\207".[f-exists-p.error."Can
2ba0	6e 6f 74 20 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	not.copy.contents.to.non.existin
2bc0	67 20 64 69 72 65 63 74 6f 72 79 20 25 73 22 20 66 2d 64 69 72 2d 70 20 22 43 61 6e 6e 6f 74 20	g.directory.%s".f-dir-p."Cannot.
2be0	63 6f 70 79 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	copy.contents.as.%s.is.a.file".f
2c00	2d 65 6e 74 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	-entries.0.f-copy.file-name-as-d
2c20	69 72 65 63 74 6f 72 79 5d 20 39 20 28 23 24 20 2e 20 31 30 39 32 39 29 5d 29 23 40 37 39 20 55	irectory].9.(#$...10929)])#@79.U
2c40	70 64 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	pdate.PATH.last.modification.dat
2c60	65 20 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	e.or.create.if.it.does.not.exist
2c80	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 74 6f 75 63 68	...(fn.PATH)..(defalias.'f-touch
2ca0	20 23 5b 32 35 37 20 22 08 5c 32 30 33 48 00 5c 33 30 31 08 5c 33 30 32 5c 33 30 31 02 5c 32 30	.#[257.".\203H.\301.\302\301.\20
2cc0	33 2d 00 5c 32 31 30 01 5c 32 34 32 5c 33 30 33 01 06 06 5c 22 5c 32 30 36 1c 00 5c 33 30 34 01	3-.\210.\242\303...\"\206..\304.
2ce0	06 06 5c 22 5c 32 31 31 5c 32 36 32 05 5c 32 30 34 2d 00 01 54 5c 32 36 32 02 02 41 5c 32 36 32	..\"\211\262.\204-..T\262..A\262
2d00	03 5c 32 30 32 08 00 5c 32 36 36 03 5c 32 30 33 41 00 5c 33 30 35 01 21 5c 32 30 33 3c 00 5c 33	.\202..\266.\203A.\305.!\203<.\3
2d20	30 36 01 21 5c 32 30 37 5c 33 30 37 5c 33 31 30 02 5c 22 5c 32 30 37 5c 33 31 31 5c 33 31 32 02	06.!\207\307\310.\"\207\311\312.
2d40	08 44 5c 22 5c 32 30 37 5c 33 30 35 01 21 5c 32 30 33 52 00 5c 33 30 36 01 21 5c 32 30 37 5c 33	.D\"\207\305.!\203R.\306.!\207\3
2d60	30 37 5c 33 31 30 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	07\310.\"\207".[f--guard-paths.n
2d80	69 6c 20 30 20 66 2d 73 61 6d 65 2d 70 20 66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66 2d 70 20 66 2d	il.0.f-same-p.f-ancestor-of-p.f-
2da0	66 69 6c 65 2d 70 20 73 65 74 2d 66 69 6c 65 2d 74 69 6d 65 73 20 66 2d 77 72 69 74 65 2d 62 79	file-p.set-file-times.f-write-by
2dc0	74 65 73 20 22 22 20 73 69 67 6e 61 6c 20 66 2d 67 75 61 72 64 2d 65 72 72 6f 72 5d 20 38 20 28	tes."".signal.f-guard-error].8.(
2de0	23 24 20 2e 20 31 31 33 32 37 29 5d 29 23 40 35 38 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41	#$...11327)])#@58.Return.t.if.PA
2e00	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 77 69 73 65 2e 0a	TH.is.symlink,.false.otherwise..
2e20	0a 28 66 6e 20 50 41 54 48 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	.(fn.PATH)..(byte-code."\300\301
2e40	5c 33 30 32 5c 22 5c 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	\302\"\210\300\303\302\"\210\300
2e60	5c 33 30 34 5c 33 30 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	\304\305\"\210\300\306\305\"\210
2e80	5c 33 30 30 5c 33 30 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	\300\307\305\"\210\300\310\305\"
2ea0	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 5c 33	\210\300\311\312\"\210\300\313\3
2ec0	31 32 5c 22 5c 32 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	12\"\207".[defalias.f-exists-p.f
2ee0	69 6c 65 2d 65 78 69 73 74 73 2d 70 20 66 2d 65 78 69 73 74 73 3f 20 66 2d 64 69 72 65 63 74 6f	ile-exists-p.f-exists?.f-directo
2f00	72 79 2d 70 20 66 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	ry-p.file-directory-p.f-director
2f20	79 3f 20 66 2d 64 69 72 2d 70 20 66 2d 64 69 72 3f 20 66 2d 66 69 6c 65 2d 70 20 66 69 6c 65 2d	y?.f-dir-p.f-dir?.f-file-p.file-
2f40	72 65 67 75 6c 61 72 2d 70 20 66 2d 66 69 6c 65 3f 5d 20 33 29 0a 28 64 65 66 61 6c 69 61 73 20	regular-p.f-file?].3).(defalias.
2f60	27 66 2d 73 79 6d 6c 69 6e 6b 2d 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 3f 3f 5c 32 30 37	'f-symlink-p.#[257."\300.!??\207
2f80	22 20 5b 66 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 37 36 32	".[file-symlink-p].3.(#$...11762
2fa0	29 5d 29 23 40 35 39 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 20 69 73 20 72 65 6c 61	)])#@59.Return.t.if.PATH.is.rela
2fc0	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 6e 20 50 41 54 48	tive,.false.otherwise...(fn.PATH
2fe0	29 1f 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	)..(byte-code."\300\301\302\"\21
3000	30 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	0\300\303\304\"\210\300\305\304\
3020	22 5c 32 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	"\210\300\306\307\"\210\300\310\
3040	33 30 37 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	307\"\210\300\311\312\"\210\300\
3060	33 31 33 5c 33 31 32 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	313\312\"\210\300\314\315\"\210\
3080	33 30 30 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	300\316\315\"\207".[defalias.f-s
30a0	79 6d 6c 69 6e 6b 3f 20 66 2d 73 79 6d 6c 69 6e 6b 2d 70 20 66 2d 72 65 61 64 61 62 6c 65 2d 70	ymlink?.f-symlink-p.f-readable-p
30c0	20 66 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 3f 20 66 2d 77	.file-readable-p.f-readable?.f-w
30e0	72 69 74 61 62 6c 65 2d 70 20 66 69 6c 65 2d 77 72 69 74 61 62 6c 65 2d 70 20 66 2d 77 72 69 74	ritable-p.file-writable-p.f-writ
3100	61 62 6c 65 3f 20 66 2d 65 78 65 63 75 74 61 62 6c 65 2d 70 20 66 69 6c 65 2d 65 78 65 63 75 74	able?.f-executable-p.file-execut
3120	61 62 6c 65 2d 70 20 66 2d 65 78 65 63 75 74 61 62 6c 65 3f 20 66 2d 61 62 73 6f 6c 75 74 65 2d	able-p.f-executable?.f-absolute-
3140	70 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 74	p.file-name-absolute-p.f-absolut
3160	65 3f 5d 20 33 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 23	e?].3).(defalias.'f-relative-p.#
3180	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 2d 70	[257."\300.!?\207".[f-absolute-p
31a0	5d 20 33 20 28 23 24 20 2e 20 31 32 32 30 30 29 5d 29 23 40 36 35 20 52 65 74 75 72 6e 20 74 20	].3.(#$...12200)])#@65.Return.t.
31c0	69 66 20 50 41 54 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	if.PATH.is.root.directory,.false
31e0	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 61	.otherwise...(fn.PATH)..(defalia
3200	73 20 27 66 2d 72 65 6c 61 74 69 76 65 3f 20 27 66 2d 72 65 6c 61 74 69 76 65 2d 70 29 0a 28 64	s.'f-relative?.'f-relative-p).(d
3220	65 66 61 6c 69 61 73 20 27 66 2d 72 6f 6f 74 2d 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 3f	efalias.'f-root-p.#[257."\300.!?
3240	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 37 32 37 29 5d	\207".[f-parent].3.(#$...12727)]
3260	29 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 20 6f 66 20	)#@279.Return.t.if.extension.of.
3280	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 2e 0a 0a 49	PATH.is.EXT,.false.otherwise...I
32a0	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 75 72 6e 20	f.EXT.is.nil.or.omitted,.return.
32c0	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 0a 66 61 6c	t.if.PATH.has.any.extension,.fal
32e0	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 2c 20 69 6e	se.otherwise...The.extension,.in
3300	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 61 74 20 66	.a.file.name,.is.the.part.that.f
3320	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 6e 67 20 76	ollows.the.last.'.',.excluding.v
3340	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 66 66 69 78	ersion.numbers.and.backup.suffix
3360	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 1f 0a 28 64	es...(fn.PATH.&optional.EXT)..(d
3380	65 66 61 6c 69 61 73 20 27 66 2d 72 6f 6f 74 3f 20 27 66 2d 72 6f 6f 74 2d 70 29 0a 28 64 65 66	efalias.'f-root?.'f-root-p).(def
33a0	61 6c 69 61 73 20 27 66 2d 65 78 74 2d 70 20 23 5b 35 31 33 20 22 5c 32 31 31 5c 32 30 33 5c 6e	alias.'f-ext-p.#[513."\211\203\n
33c0	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 30 37 22 20 5b 66	.\300.!.\230\207\300.!??\207".[f
33e0	2d 65 78 74 5d 20 34 20 28 23 24 20 2e 20 31 32 39 30 33 29 5d 29 23 40 38 30 20 52 65 74 75 72	-ext].4.(#$...12903)])#@80.Retur
3400	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 72 65 20 72 65 66	n.t.if.PATH-A.and.PATH-B.are.ref
3420	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 20 50 41 54 48 2d	erences.to.same.file...(fn.PATH-
3440	41 20 50 41 54 48 2d 42 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c	A.PATH-B)..(byte-code."\300\301\
3460	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 31 30 5c 33 30 30 5c	302\"\210\300\303\304\"\210\300\
3480	33 30 35 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 66 2d 65 78 74 3f 20	305\304\"\207".[defalias.f-ext?.
34a0	66 2d 65 78 74 2d 70 20 66 2d 65 71 75 61 6c 2d 70 20 66 2d 73 61 6d 65 2d 70 20 66 2d 65 71 75	f-ext-p.f-equal-p.f-same-p.f-equ
34c0	61 6c 3f 5d 20 33 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 73 61 6d 65 2d 70 20 23 5b 35 31	al?].3).(defalias.'f-same-p.#[51
34e0	34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 21 21 21 5c 33 30 30 5c 33 30 31 5c 33 30 32 04	4."\300\301\302.!!!\300\301\302.
3500	21 21 21 5c 32 33 32 5c 32 30 37 22 20 5b 66 2d 63 61 6e 6f 6e 69 63 61 6c 20 64 69 72 65 63 74	!!!\232\207".[f-canonical.direct
3520	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 24 20 2e 20	ory-file-name.f-expand].7.(#$...
3540	31 33 33 30 37 29 5d 29 23 40 36 31 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 2d 41 20	13307)])#@61.Return.t.if.PATH-A.
3560	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 54 48 2d 41	is.parent.of.PATH-B...(fn.PATH-A
3580	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 6d 65 3f 20 27 66 2d	.PATH-B)..(defalias.'f-same?.'f-
35a0	73 61 6d 65 2d 70 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 70 61 72 65 6e 74 2d 6f 66 2d 70	same-p).(defalias.'f-parent-of-p
35c0	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 30 31 03 02 5c 22	.#[514."\300.!\211\205..\301..\"
35e0	5c 32 30 37 22 20 5b 66 2d 70 61 72 65 6e 74 20 66 2d 73 61 6d 65 2d 70 5d 20 36 20 28 23 24 20	\207".[f-parent.f-same-p].6.(#$.
3600	2e 20 31 33 36 34 35 29 5d 29 23 40 36 30 20 52 65 74 75 72 6e 20 74 20 69 66 20 50 41 54 48 2d	..13645)])#@60.Return.t.if.PATH-
3620	41 20 69 73 20 63 68 69 6c 64 20 6f 66 20 50 41 54 48 2d 42 2e 0a 0a 28 66 6e 20 50 41 54 48 2d	A.is.child.of.PATH-B...(fn.PATH-
3640	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 74 2d 6f	A.PATH-B)..(defalias.'f-parent-o
3660	66 3f 20 27 66 2d 70 61 72 65 6e 74 2d 6f 66 2d 70 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d	f?.'f-parent-of-p).(defalias.'f-
3680	63 68 69 6c 64 2d 6f 66 2d 70 20 23 5b 35 31 34 20 22 5c 33 30 30 02 21 5c 32 31 31 5c 32 30 35	child-of-p.#[514."\300.!\211\205
36a0	0b 00 5c 33 30 31 01 03 5c 22 5c 32 30 37 22 20 5b 66 2d 70 61 72 65 6e 74 20 66 2d 73 61 6d 65	..\301..\"\207".[f-parent.f-same
36c0	2d 70 5d 20 36 20 28 23 24 20 2e 20 31 33 38 33 39 29 5d 29 23 40 36 33 20 52 65 74 75 72 6e 20	-p].6.(#$...13839)])#@63.Return.
36e0	74 20 69 66 20 50 41 54 48 2d 41 20 69 73 20 61 6e 63 65 73 74 6f 72 20 6f 66 20 50 41 54 48 2d	t.if.PATH-A.is.ancestor.of.PATH-
3700	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 6c 69 61	B...(fn.PATH-A.PATH-B)..(defalia
3720	73 20 27 66 2d 63 68 69 6c 64 2d 6f 66 3f 20 27 66 2d 63 68 69 6c 64 2d 6f 66 2d 70 29 0a 28 64	s.'f-child-of?.'f-child-of-p).(d
3740	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 23 5b 35 31 34 20 22	efalias.'f-ancestor-of-p.#[514."
3760	5c 33 30 30 02 02 5c 22 3f 5c 32 30 35 10 00 5c 33 30 31 5c 33 30 32 03 21 5c 33 30 32 03 21 5c	\300..\"?\205..\301\302.!\302.!\
3780	22 5c 32 30 37 22 20 5b 66 2d 73 61 6d 65 2d 70 20 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70	"\207".[f-same-p.string-prefix-p
37a0	20 66 2d 66 75 6c 6c 5d 20 36 20 28 23 24 20 2e 20 31 34 30 34 31 29 5d 29 23 40 36 34 20 52 65	.f-full].6.(#$...14041)])#@64.Re
37c0	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
37e0	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
3800	65 66 61 6c 69 61 73 20 27 66 2d 61 6e 63 65 73 74 6f 72 2d 6f 66 3f 20 27 66 2d 61 6e 63 65 73	efalias.'f-ancestor-of?.'f-ances
3820	74 6f 72 2d 6f 66 2d 70 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 64 65 73 63 65 6e 64 61 6e	tor-of-p).(defalias.'f-descendan
3840	74 2d 6f 66 2d 70 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 3f 5c 32 30 35 35 00 5c 33 30	t-of-p.#[514."\300..\"?\2055.\30
3860	31 5c 33 30 32 03 21 21 5c 33 30 31 5c 33 30 32 03 21 21 5c 33 30 33 01 5c 32 30 33 33 00 5c 32	1\302.!!\301\302.!!\303.\2033.\2
3880	31 31 5c 32 30 33 33 00 02 40 02 40 5c 32 33 30 5c 32 30 33 2e 00 02 41 5c 32 36 32 03 01 41 5c	11\2033..@.@\230\203...A\262..A\
38a0	32 36 32 02 5c 32 30 32 13 00 5c 32 31 30 5c 33 30 34 5c 32 30 32 13 00 5c 32 36 36 5c 32 30 32	262.\202..\210\304\202..\266\202
38c0	5c 32 30 37 22 20 5b 66 2d 73 61 6d 65 2d 70 20 66 2d 73 70 6c 69 74 20 66 2d 66 75 6c 6c 20 74	\207".[f-same-p.f-split.f-full.t
38e0	20 6e 69 6c 5d 20 37 20 28 23 24 20 2e 20 31 34 32 37 30 29 5d 29 23 40 37 36 34 20 52 65 74 75	.nil].7.(#$...14270)])#@764.Retu
3900	72 6e 20 74 20 69 66 20 50 41 54 48 20 69 73 20 68 69 64 64 65 6e 2c 20 6e 69 6c 20 6f 74 68 65	rn.t.if.PATH.is.hidden,.nil.othe
3920	72 77 69 73 65 2e 0a 0a 42 45 48 41 56 49 4f 52 20 63 6f 6e 74 72 6f 6c 73 20 77 68 65 6e 20 61	rwise...BEHAVIOR.controls.when.a
3940	20 70 61 74 68 20 73 68 6f 75 6c 64 20 62 65 20 63 6f 6e 73 69 64 65 72 65 64 20 61 73 20 68 69	.path.should.be.considered.as.hi
3960	64 64 65 6e 0a 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 69 74 73 20 76 61 6c 75 65 2e 20 20 42 65	dden.depending.on.its.value...Be
3980	77 61 72 65 2c 20 69 66 20 50 41 54 48 20 62 65 67 69 6e 73 20 77 69 74 68 20 22 2e 2f 22 2c 20	ware,.if.PATH.begins.with."./",.
39a0	74 68 65 0a 63 75 72 72 65 6e 74 20 64 69 72 20 22 2e 22 20 77 69 6c 6c 20 6e 6f 74 20 62 65 20	the.current.dir.".".will.not.be.
39c0	63 6f 6e 73 69 64 65 72 65 64 20 61 73 20 68 69 64 64 65 6e 2e 0a 0a 57 68 65 6e 20 42 45 48 41	considered.as.hidden...When.BEHA
39e0	56 49 4f 52 20 69 73 20 6e 69 6c 2c 20 69 74 20 77 69 6c 6c 20 6f 6e 6c 79 20 63 68 65 63 6b 20	VIOR.is.nil,.it.will.only.check.
3a00	69 66 20 74 68 65 20 70 61 74 68 20 62 65 67 69 6e 73 20 77 69 74 68 0a 61 20 64 6f 74 2c 20 61	if.the.path.begins.with.a.dot,.a
3a20	73 20 69 6e 20 2e 61 2f 62 2f 63 2c 20 61 6e 64 20 72 65 74 75 72 6e 20 74 20 69 66 20 74 68 65	s.in..a/b/c,.and.return.t.if.the
3a40	72 65 20 69 73 20 6f 6e 65 2e 20 20 54 68 69 73 20 69 73 20 74 68 65 0a 6f 6c 64 20 62 65 68 61	re.is.one...This.is.the.old.beha
3a60	76 69 6f 72 20 6f 66 20 66 2e 65 6c 20 6c 65 66 74 20 61 73 20 64 65 66 61 75 6c 74 20 66 6f 72	vior.of.f.el.left.as.default.for
3a80	20 62 61 63 6b 77 61 72 64 2d 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 0a 70 75 72 70 6f 73 65 73	.backward-compatibility.purposes
3aa0	2e 0a 0a 57 68 65 6e 20 42 45 48 41 56 49 4f 52 20 69 73 20 41 4e 59 2c 20 72 65 74 75 72 6e 20	...When.BEHAVIOR.is.ANY,.return.
3ac0	74 20 69 66 20 61 6e 79 20 6f 66 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 50 41 54 48	t.if.any.of.the.elements.of.PATH
3ae0	20 69 73 0a 68 69 64 64 65 6e 2c 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a 57 68 65 6e	.is.hidden,.nil.otherwise...When
3b00	20 42 45 48 41 56 49 4f 52 20 69 73 20 4c 41 53 54 2c 20 72 65 74 75 72 6e 20 74 20 6f 6e 6c 79	.BEHAVIOR.is.LAST,.return.t.only
3b20	20 69 66 20 74 68 65 20 6c 61 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 50 41 54 48 0a 69 73 20	.if.the.last.element.of.PATH.is.
3b40	68 69 64 64 65 6e 2c 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a 54 4f 44 4f 3a 20 48 69	hidden,.nil.otherwise...TODO:.Hi
3b60	64 64 65 6e 20 64 69 72 65 63 74 6f 72 69 65 73 20 61 6e 64 20 66 69 6c 65 73 20 6f 6e 20 57 69	dden.directories.and.files.on.Wi
3b80	6e 64 6f 77 73 20 61 72 65 20 6d 61 72 6b 65 64 0a 64 69 66 66 65 72 65 6e 74 6c 79 20 74 68 61	ndows.are.marked.differently.tha
3ba0	6e 20 6f 6e 20 2a 4e 49 58 20 73 79 73 74 65 6d 73 2e 20 20 54 68 69 73 20 73 68 6f 75 6c 64 20	n.on.*NIX.systems...This.should.
3bc0	62 65 20 70 72 6f 70 65 72 6c 79 0a 69 6d 70 6c 65 6d 65 6e 74 65 64 2e 0a 0a 28 66 6e 20 50 41	be.properly.implemented...(fn.PA
3be0	54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 42 45 48 41 56 49 4f 52 29 1f 23 40 31 32 20 0a 0a 28 66	TH.&optional.BEHAVIOR).#@12...(f
3c00	6e 20 45 4c 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 64 65 73 63 65 6e 64 61 6e 74 2d	n.ELT)..(defalias.'f-descendant-
3c20	6f 66 3f 20 27 66 2d 64 65 73 63 65 6e 64 61 6e 74 2d 6f 66 2d 70 29 0a 28 64 65 66 61 6c 69 61	of?.'f-descendant-of-p).(defalia
3c40	73 20 27 66 2d 68 69 64 64 65 6e 2d 70 20 23 5b 35 31 33 20 22 5c 33 30 30 02 21 5c 33 30 31 02	s.'f-hidden-p.#[513."\300.!\301.
3c60	5c 33 30 32 5c 32 36 37 5c 32 30 32 16 00 5c 33 30 33 01 03 5c 22 5c 32 30 37 5c 33 30 34 01 5c	\302\267\202..\303..\"\207\304.\
3c80	33 30 35 04 21 5c 22 5c 32 30 37 02 5c 32 30 34 1f 00 5c 32 31 31 02 40 21 5c 32 30 37 5c 33 30	305.!\"\207.\204..\211.@!\207\30
3ca0	36 5c 33 30 37 04 5c 22 5c 32 30 37 22 20 5b 66 2d 73 70 6c 69 74 20 23 5b 32 35 37 20 22 5c 32	6\307.\"\207".[f-split.#[257."\2
3cc0	31 31 5c 33 30 30 5c 33 30 31 4f 5c 33 30 32 5c 32 33 30 5c 32 30 35 0d 00 5c 32 31 31 5c 33 30	11\300\301O\302\230\205..\211\30
3ce0	33 5c 32 33 35 3f 5c 32 30 37 22 20 5b 30 20 31 20 22 2e 22 20 28 22 2e 22 20 22 2e 2e 22 29 5d	3\235?\207".[0.1.".".("."."..")]
3d00	20 34 20 28 23 24 20 2e 20 31 35 33 35 36 29 5d 20 23 73 28 68 61 73 68 2d 74 61 62 6c 65 20 74	.4.(#$...15356)].#s(hash-table.t
3d20	65 73 74 20 65 71 20 70 75 72 65 63 6f 70 79 20 74 20 64 61 74 61 20 28 61 6e 79 20 31 30 20 6c	est.eq.purecopy.t.data.(any.10.l
3d40	61 73 74 20 31 35 29 29 20 2d 61 6e 79 20 61 70 70 6c 79 20 6c 61 73 74 20 65 72 72 6f 72 20 22	ast.15)).-any.apply.last.error."
3d60	49 6e 76 61 6c 69 64 20 76 61 6c 75 65 20 25 53 20 66 6f 72 20 61 72 67 75 6d 65 6e 74 20 42 45	Invalid.value.%S.for.argument.BE
3d80	48 41 56 49 4f 52 22 5d 20 38 20 28 23 24 20 2e 20 31 34 35 38 38 29 5d 29 23 40 31 35 38 20 49	HAVIOR"].8.(#$...14588)])#@158.I
3da0	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 66 20 74 68	f.PATH.is.a.file,.return.t.if.th
3dc0	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 20 6f 74 68	e.file.in.PATH.is.empty,.nil.oth
3de0	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 2c 20 72 65	erwise..If.PATH.is.directory,.re
3e00	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 69 6c 65 73	turn.t.if.directory.has.no.files
3e20	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 0a 28 64 65	,.nil.otherwise...(fn.PATH)..(de
3e40	66 61 6c 69 61 73 20 27 66 2d 68 69 64 64 65 6e 3f 20 27 66 2d 68 69 64 64 65 6e 2d 70 29 0a 28	falias.'f-hidden?.'f-hidden-p).(
3e60	64 65 66 61 6c 69 61 73 20 27 66 2d 65 6d 70 74 79 2d 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01	defalias.'f-empty-p.#[257."\300.
3e80	21 5c 32 30 33 0d 00 5c 33 30 31 01 5c 33 30 32 5c 33 30 33 23 3f 5c 32 30 37 5c 33 30 34 01 21	!\203..\301.\302\303#?\207\304.!
3ea0	5c 33 30 35 55 5c 32 30 37 22 20 5b 66 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 66 2d 66 69 6c 65	\305U\207".[f-directory-p.f-file
3ec0	73 20 6e 69 6c 20 74 20 66 2d 73 69 7a 65 20 30 5d 20 35 20 28 23 24 20 2e 20 31 35 37 37 35 29	s.nil.t.f-size.0].5.(#$...15775)
3ee0	5d 29 23 40 31 33 35 20 52 65 74 75 72 6e 20 73 69 7a 65 20 6f 66 20 50 41 54 48 2e 0a 0a 49 66	])#@135.Return.size.of.PATH...If
3f00	20 50 41 54 48 20 69 73 20 61 20 66 69 6c 65 2c 20 72 65 74 75 72 6e 20 73 69 7a 65 20 6f 66 20	.PATH.is.a.file,.return.size.of.
3f20	74 68 61 74 20 66 69 6c 65 2e 20 20 49 66 20 50 41 54 48 20 69 73 0a 64 69 72 65 63 74 6f 72 79	that.file...If.PATH.is.directory
3f40	2c 20 72 65 74 75 72 6e 20 73 75 6d 20 6f 66 20 61 6c 6c 20 66 69 6c 65 73 20 69 6e 20 50 41 54	,.return.sum.of.all.files.in.PAT
3f60	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 65 6d 70 74	H...(fn.PATH)..(defalias.'f-empt
3f80	79 3f 20 27 66 2d 65 6d 70 74 79 2d 70 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 73 69 7a 65	y?.'f-empty-p).(defalias.'f-size
3fa0	20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 33 11 00 5c 33 30 31 5c 33 30 32 5c 33 30 33	.#[257."\300.!\203..\301\302\303
3fc0	5c 33 30 34 04 5c 33 30 35 5c 33 30 36 23 5c 22 21 5c 32 30 37 5c 33 30 37 5c 33 31 30 02 21 38	\304.\305\306#\"!\207\307\310.!8
3fe0	5c 32 30 37 22 20 5b 66 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 2d 73 75 6d 20 2d 6d 61 70 20 66	\207".[f-directory-p.-sum.-map.f
4000	2d 73 69 7a 65 20 66 2d 66 69 6c 65 73 20 6e 69 6c 20 74 20 37 20 66 69 6c 65 2d 61 74 74 72 69	-size.f-files.nil.t.7.file-attri
4020	62 75 74 65 73 5d 20 38 20 28 23 24 20 2e 20 31 36 31 30 34 29 5d 29 23 40 31 39 35 20 52 65 74	butes].8.(#$...16104)])#@195.Ret
4040	75 72 6e 20 74 68 65 20 64 65 70 74 68 20 6f 66 20 50 41 54 48 2e 0a 0a 41 74 20 66 69 72 73 74	urn.the.depth.of.PATH...At.first
4060	2c 20 50 41 54 48 20 69 73 20 65 78 70 61 6e 64 65 64 20 77 69 74 68 20 60 66 2d 65 78 70 61 6e	,.PATH.is.expanded.with.`f-expan
4080	64 27 2e 20 20 54 68 65 6e 20 74 68 65 20 66 75 6c 6c 20 70 61 74 68 20 69 73 20 75 73 65 64 20	d'...Then.the.full.path.is.used.
40a0	74 6f 0a 64 65 74 65 63 74 20 74 68 65 20 64 65 70 74 68 2e 0a 27 2f 27 20 77 69 6c 6c 20 62 65	to.detect.the.depth..'/'.will.be
40c0	20 7a 65 72 6f 20 64 65 70 74 68 2c 20 20 27 2f 75 73 72 27 20 77 69 6c 6c 20 62 65 20 6f 6e 65	.zero.depth,..'/usr'.will.be.one
40e0	20 64 65 70 74 68 2e 20 20 41 6e 64 20 73 6f 20 6f 6e 2e 0a 0a 28 66 6e 20 50 41 54 48 29 1f 0a	.depth...And.so.on...(fn.PATH)..
4100	28 64 65 66 61 6c 69 61 73 20 27 66 2d 64 65 70 74 68 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33	(defalias.'f-depth.#[257."\300\3
4120	30 31 02 21 21 47 53 5c 32 30 37 22 20 5b 66 2d 73 70 6c 69 74 20 66 2d 65 78 70 61 6e 64 5d 20	01.!!GS\207".[f-split.f-expand].
4140	34 20 28 23 24 20 2e 20 31 36 34 34 35 29 5d 29 23 40 36 38 32 20 48 65 6c 70 65 72 20 66 75 6e	4.(#$...16445)])#@682.Helper.fun
4160	63 74 69 6f 6e 2c 20 67 65 74 20 74 69 6d 65 2d 72 65 6c 61 74 65 64 20 69 6e 66 6f 72 6d 61 74	ction,.get.time-related.informat
4180	69 6f 6e 20 66 6f 72 20 50 41 54 48 2e 0a 48 65 6c 70 65 72 20 66 6f 72 20 60 66 2d 63 68 61 6e	ion.for.PATH..Helper.for.`f-chan
41a0	67 65 2d 74 69 6d 65 27 2c 20 60 66 2d 6d 6f 64 69 66 69 63 61 74 69 6f 6e 2d 74 69 6d 65 27 2c	ge-time',.`f-modification-time',
41c0	0a 60 66 2d 61 63 63 65 73 73 2d 74 69 6d 65 27 2e 20 20 49 74 20 69 73 20 6d 65 61 6e 74 20 74	.`f-access-time'...It.is.meant.t
41e0	6f 20 62 65 20 63 61 6c 6c 65 64 20 69 6e 74 65 72 6e 61 6c 6c 79 2c 20 61 76 6f 69 64 0a 63 61	o.be.called.internally,.avoid.ca
4200	6c 6c 69 6e 67 20 69 74 20 6d 61 6e 75 61 6c 6c 79 20 75 6e 6c 65 73 73 20 79 6f 75 20 68 61 76	lling.it.manually.unless.you.hav
4220	65 20 74 6f 2e 0a 0a 49 66 20 54 49 4d 45 53 54 41 4d 50 2d 50 20 69 73 20 6e 6f 6e 2d 6e 69 6c	e.to...If.TIMESTAMP-P.is.non-nil
4240	2c 20 72 65 74 75 72 6e 20 74 68 65 20 64 61 74 65 20 72 65 71 75 65 73 74 65 64 20 61 73 20 61	,.return.the.date.requested.as.a
4260	0a 74 69 6d 65 73 74 61 6d 70 2e 20 20 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 5c 3d 27	.timestamp...If.the.value.is.\='
4280	73 65 63 6f 6e 64 73 2c 20 72 65 74 75 72 6e 20 74 68 65 20 74 69 6d 65 73 74 61 6d 70 20 61 73	seconds,.return.the.timestamp.as
42a0	0a 61 20 74 69 6d 65 73 74 61 6d 70 20 77 69 74 68 20 61 20 6f 6e 65 2d 73 65 63 6f 6e 64 20 70	.a.timestamp.with.a.one-second.p
42c0	72 65 63 69 73 69 6f 6e 2e 20 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68 65 0a 74 69 6d 65 73 74	recision...Otherwise,.the.timest
42e0	61 6d 70 20 69 73 20 72 65 74 75 72 6e 65 64 20 69 6e 20 61 20 28 54 49 43 4b 53 20 2e 20 48 5a	amp.is.returned.in.a.(TICKS...HZ
4300	29 20 66 6f 72 6d 61 74 2c 20 73 65 65 0a 60 63 75 72 72 65 6e 74 2d 74 69 6d 65 27 20 69 66 20	).format,.see.`current-time'.if.
4320	75 73 69 6e 67 20 45 6d 61 63 73 20 32 39 20 6f 72 20 6e 65 77 65 72 2e 0a 0a 4f 74 68 65 72 77	using.Emacs.29.or.newer...Otherw
4340	69 73 65 2c 20 69 66 20 54 49 4d 45 53 54 41 4d 50 2d 50 20 69 73 20 6e 69 6c 2c 20 72 65 74 75	ise,.if.TIMESTAMP-P.is.nil,.retu
4360	72 6e 20 74 68 65 20 64 65 66 61 75 6c 74 20 73 74 79 6c 65 20 6f 66 0a 60 63 75 72 72 65 6e 74	rn.the.default.style.of.`current
4380	2d 74 69 6d 65 27 2e 0a 0a 46 4e 20 69 73 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 73 70 65 63	-time'...FN.is.the.function.spec
43a0	69 66 69 65 64 20 62 79 20 74 68 65 20 63 61 6c 6c 65 72 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20	ified.by.the.caller.function.to.
43c0	72 65 74 72 69 65 76 65 0a 74 68 65 20 63 6f 72 72 65 63 74 20 64 61 74 61 20 66 72 6f 6d 20 50	retrieve.the.correct.data.from.P
43e0	41 54 48 2e 0a 0a 28 66 6e 20 50 41 54 48 20 54 49 4d 45 53 54 41 4d 50 2d 50 20 46 4e 29 1f 0a	ATH...(fn.PATH.TIMESTAMP-P.FN)..
4400	28 64 65 66 61 6c 69 61 73 20 27 66 2d 2d 67 65 74 2d 74 69 6d 65 20 23 5b 37 37 31 20 22 01 3f	(defalias.'f--get-time.#[771.".?
4420	18 5c 32 31 31 5c 33 30 32 04 21 21 5c 33 30 33 5c 33 30 34 09 5c 22 03 5c 33 30 35 3d 5c 32 30	.\211\302.!!\303\304.\".\305=\20
4440	33 1e 00 5c 32 31 31 5c 32 30 33 1e 00 01 40 02 41 5c 32 34 35 5c 32 30 32 6a 00 03 5c 33 30 35	3..\211\203...@.A\245\202j..\305
4460	3d 5c 32 30 34 28 00 5c 32 31 31 5c 32 30 34 30 00 03 5c 32 30 34 34 00 5c 32 31 31 5c 32 30 34	=\204(.\211\2040..\2044.\211\204
4480	34 00 01 5c 32 30 32 6a 00 03 5c 33 30 35 3d 5c 32 30 33 4c 00 5c 32 31 31 5c 32 30 34 4c 00 01	4..\202j..\305=\203L.\211\204L..
44a0	40 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 22 5f 02 41 40 5c 5c 5c 32 30 32 6a 00 03 5c 32 30 35	@\306\307\310\"_.A@\\\202j..\205
44c0	6a 00 5c 32 31 31 3f 5c 32 30 35 6a 00 01 40 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 22 5f 5c 33	j.\211?\205j..@\306\307\310\"_\3
44e0	31 31 5f 02 41 40 5c 33 31 31 5f 5c 5c 5c 33 31 32 03 38 5c 5c 5c 33 31 31 42 29 5c 32 30 37 22	11_.A@\311_\\\312.8\\\311B)\207"
4500	20 5b 63 75 72 72 65 6e 74 2d 74 69 6d 65 2d 6c 69 73 74 20 65 6d 61 63 73 2d 76 65 72 73 69 6f	.[current-time-list.emacs-versio
4520	6e 20 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 76 65 72 73 69 6f 6e 3c 3d 20 22 32 39 22	n.file-attributes.version<=."29"
4540	20 73 65 63 6f 6e 64 73 20 65 78 70 74 20 32 20 31 36 20 31 30 30 30 20 33 5d 20 39 20 28 23 24	.seconds.expt.2.16.1000.3].9.(#$
4560	20 2e 20 31 36 37 32 36 29 5d 29 23 40 32 34 31 20 52 65 74 75 72 6e 20 74 68 65 20 6c 61 73 74	...16726)])#@241.Return.the.last
4580	20 73 74 61 74 75 73 20 63 68 61 6e 67 65 20 74 69 6d 65 20 6f 66 20 50 41 54 48 2e 0a 0a 54 68	.status.change.time.of.PATH...Th
45a0	65 20 73 74 61 74 75 73 20 63 68 61 6e 67 65 20 74 69 6d 65 20 28 63 74 69 6d 65 29 20 6f 66 20	e.status.change.time.(ctime).of.
45c0	50 41 54 48 20 69 6e 20 74 68 65 20 73 61 6d 65 20 66 6f 72 6d 61 74 20 61 73 0a 60 63 75 72 72	PATH.in.the.same.format.as.`curr
45e0	65 6e 74 2d 74 69 6d 65 27 2e 20 20 46 6f 72 20 64 65 74 61 69 6c 73 20 6f 6e 20 54 49 4d 45 53	ent-time'...For.details.on.TIMES
4600	54 41 4d 50 2d 50 20 61 6e 64 20 74 68 65 20 66 6f 72 6d 61 74 20 6f 66 20 74 68 65 0a 72 65 74	TAMP-P.and.the.format.of.the.ret
4620	75 72 6e 65 64 20 76 61 6c 75 65 2c 20 73 65 65 20 60 66 2d 2d 67 65 74 2d 74 69 6d 65 27 2e 0a	urned.value,.see.`f--get-time'..
4640	0a 28 66 6e 20 50 41 54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 54 49 4d 45 53 54 41 4d 50 2d 50 29	.(fn.PATH.&optional.TIMESTAMP-P)
4660	1f 23 40 31 30 20 0a 0a 28 66 6e 20 46 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 63 68 61	.#@10...(fn.F)..(defalias.'f-cha
4680	6e 67 65 2d 74 69 6d 65 20 23 5b 35 31 33 20 22 5c 33 30 30 02 02 5c 33 30 31 5c 33 30 32 21 5c	nge-time.#[513."\300..\301\302!\
46a0	32 30 33 0d 00 5c 33 30 32 5c 32 30 32 0e 00 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 2d 2d 67 65	203..\302\202..\303#\207".[f--ge
46c0	74 2d 74 69 6d 65 20 66 62 6f 75 6e 64 70 20 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 2d 73 74	t-time.fboundp.file-attribute-st
46e0	61 74 75 73 2d 63 68 61 6e 67 65 2d 74 69 6d 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 38 5c 32	atus-change-time.#[257."\300.8\2
4700	30 37 22 20 5b 36 5d 20 33 20 28 23 24 20 2e 20 31 38 30 32 32 29 5d 5d 20 37 20 28 23 24 20 2e	07".[6].3.(#$...18022)]].7.(#$..
4720	20 31 37 37 37 37 29 5d 29 23 40 32 33 38 20 52 65 74 75 72 6e 20 74 68 65 20 6c 61 73 74 20 6d	.17777)])#@238.Return.the.last.m
4740	6f 64 69 66 69 63 61 74 69 6f 6e 20 74 69 6d 65 20 6f 66 20 50 41 54 48 2e 0a 54 68 65 20 6d 6f	odification.time.of.PATH..The.mo
4760	64 69 66 69 63 61 74 69 6f 6e 20 74 69 6d 65 20 28 6d 74 69 6d 65 29 20 6f 66 20 50 41 54 48 20	dification.time.(mtime).of.PATH.
4780	69 6e 20 74 68 65 20 73 61 6d 65 20 66 6f 72 6d 61 74 20 61 73 0a 60 63 75 72 72 65 6e 74 2d 74	in.the.same.format.as.`current-t
47a0	69 6d 65 27 2e 20 20 46 6f 72 20 64 65 74 61 69 6c 73 20 6f 6e 20 54 49 4d 45 53 54 41 4d 50 2d	ime'...For.details.on.TIMESTAMP-
47c0	50 20 61 6e 64 20 74 68 65 20 66 6f 72 6d 61 74 20 6f 66 20 74 68 65 0a 72 65 74 75 72 6e 65 64	P.and.the.format.of.the.returned
47e0	20 76 61 6c 75 65 2c 20 73 65 65 20 60 66 2d 2d 67 65 74 2d 74 69 6d 65 27 2e 0a 0a 28 66 6e 20	.value,.see.`f--get-time'...(fn.
4800	50 41 54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 54 49 4d 45 53 54 41 4d 50 2d 50 29 1f 0a 28 64 65	PATH.&optional.TIMESTAMP-P)..(de
4820	66 61 6c 69 61 73 20 27 66 2d 6d 6f 64 69 66 69 63 61 74 69 6f 6e 2d 74 69 6d 65 20 23 5b 35 31	falias.'f-modification-time.#[51
4840	33 20 22 5c 33 30 30 02 02 5c 33 30 31 5c 33 30 32 21 5c 32 30 33 0d 00 5c 33 30 32 5c 32 30 32	3."\300..\301\302!\203..\302\202
4860	0e 00 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 2d 2d 67 65 74 2d 74 69 6d 65 20 66 62 6f 75 6e 64	..\303#\207".[f--get-time.fbound
4880	70 20 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 2d 6d 6f 64 69 66 69 63 61 74 69 6f 6e 2d 74 69	p.file-attribute-modification-ti
48a0	6d 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 38 5c 32 30 37 22 20 5b 35 5d 20 33 20 28 23 24 20	me.#[257."\300.8\207".[5].3.(#$.
48c0	2e 20 31 38 30 32 32 29 5d 5d 20 37 20 28 23 24 20 2e 20 31 38 32 32 33 29 5d 29 23 40 32 32 39	..18022)]].7.(#$...18223)])#@229
48e0	20 52 65 74 75 72 6e 20 74 68 65 20 6c 61 73 74 20 61 63 63 65 73 73 20 74 69 6d 65 20 6f 66 20	.Return.the.last.access.time.of.
4900	50 41 54 48 2e 0a 54 68 65 20 61 63 63 65 73 73 20 74 69 6d 65 20 28 61 74 69 6d 65 29 20 6f 66	PATH..The.access.time.(atime).of
4920	20 50 41 54 48 20 69 73 20 69 6e 20 74 68 65 20 73 61 6d 65 20 66 6f 72 6d 61 74 20 61 73 0a 60	.PATH.is.in.the.same.format.as.`
4940	63 75 72 72 65 6e 74 2d 74 69 6d 65 27 2e 20 20 46 6f 72 20 64 65 74 61 69 6c 73 20 6f 6e 20 54	current-time'...For.details.on.T
4960	49 4d 45 53 54 41 4d 50 2d 50 20 61 6e 64 20 74 68 65 20 66 6f 72 6d 61 74 20 6f 66 20 74 68 65	IMESTAMP-P.and.the.format.of.the
4980	0a 72 65 74 75 72 6e 65 64 20 76 61 6c 75 65 2c 20 73 65 65 20 60 66 2d 2d 67 65 74 2d 74 69 6d	.returned.value,.see.`f--get-tim
49a0	65 27 2e 0a 0a 28 66 6e 20 50 41 54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 54 49 4d 45 53 54 41 4d	e'...(fn.PATH.&optional.TIMESTAM
49c0	50 2d 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 61 63 63 65 73 73 2d 74 69 6d 65 20 23	P-P)..(defalias.'f-access-time.#
49e0	5b 35 31 33 20 22 5c 33 30 30 02 02 5c 33 30 31 5c 33 30 32 21 5c 32 30 33 0d 00 5c 33 30 32 5c	[513."\300..\301\302!\203..\302\
4a00	32 30 32 0e 00 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 2d 2d 67 65 74 2d 74 69 6d 65 20 66 62 6f	202..\303#\207".[f--get-time.fbo
4a20	75 6e 64 70 20 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 2d 61 63 63 65 73 73 2d 74 69 6d 65 20	undp.file-attribute-access-time.
4a40	23 5b 32 35 37 20 22 5c 33 30 30 01 38 5c 32 30 37 22 20 5b 34 5d 20 33 20 28 23 24 20 2e 20 31	#[257."\300.8\207".[4].3.(#$...1
4a60	38 30 32 32 29 5d 5d 20 37 20 28 23 24 20 2e 20 31 38 36 35 37 29 5d 29 23 40 39 32 20 54 68 72	8022)]].7.(#$...18657)])#@92.Thr
4a80	65 65 20 77 61 79 20 63 6f 6d 70 61 72 69 73 6f 6e 2e 0a 0a 52 65 74 75 72 6e 20 2d 31 20 69 66	ee.way.comparison...Return.-1.if
4aa0	20 41 20 3c 20 42 2e 0a 52 65 74 75 72 6e 20 30 20 69 66 20 41 20 3d 20 42 2e 0a 52 65 74 75 72	.A.<.B..Return.0.if.A.=.B..Retur
4ac0	6e 20 31 20 69 66 20 41 20 3e 20 42 2e 0a 0a 28 66 6e 20 41 20 42 29 1f 0a 28 64 65 66 61 6c 69	n.1.if.A.>.B...(fn.A.B)..(defali
4ae0	61 73 20 27 66 2d 2d 74 68 72 65 65 2d 77 61 79 2d 63 6f 6d 70 61 72 65 20 23 5b 35 31 34 20 22	as.'f--three-way-compare.#[514."
4b00	01 01 57 5c 32 30 33 08 00 5c 33 30 30 5c 32 30 37 01 01 55 5c 32 30 33 10 00 5c 33 30 31 5c 32	..W\203..\300\207..U\203..\301\2
4b20	30 37 01 01 56 5c 32 30 35 17 00 5c 33 30 32 5c 32 30 37 22 20 5b 2d 31 20 30 20 31 5d 20 34 20	07..V\205..\302\207".[-1.0.1].4.
4b40	28 23 24 20 2e 20 31 39 30 36 39 29 5d 29 23 40 34 37 35 20 54 68 72 65 65 2d 77 61 79 20 63 6f	(#$...19069)])#@475.Three-way.co
4b60	6d 70 61 72 69 73 6f 6e 20 6f 66 20 74 68 65 20 64 61 74 65 20 6f 66 20 46 49 4c 45 20 61 6e 64	mparison.of.the.date.of.FILE.and
4b80	20 4f 54 48 45 52 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 63 61 6e 20 72 65 74 75 72	.OTHER...This.function.can.retur
4ba0	6e 20 74 68 72 65 65 20 76 61 6c 75 65 73 3a 0a 2a 20 31 20 6d 65 61 6e 73 20 46 49 4c 45 20 69	n.three.values:.*.1.means.FILE.i
4bc0	73 20 6e 65 77 65 72 20 74 68 61 6e 20 4f 54 48 45 52 0a 2a 20 30 20 6d 65 61 6e 73 20 46 49 4c	s.newer.than.OTHER.*.0.means.FIL
4be0	45 20 61 6e 64 20 4e 45 57 45 52 20 73 68 61 72 65 20 74 68 65 20 73 61 6d 65 20 64 61 74 65 0a	E.and.NEWER.share.the.same.date.
4c00	2a 20 2d 31 20 6d 65 61 6e 73 20 46 49 4c 45 20 69 73 20 6f 6c 64 65 72 20 74 68 61 6e 20 4f 54	*.-1.means.FILE.is.older.than.OT
4c20	48 45 52 0a 0a 54 68 65 20 73 74 61 74 69 73 74 69 63 73 20 75 73 65 64 20 66 6f 72 20 74 68 65	HER..The.statistics.used.for.the
4c40	20 64 61 74 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 64 65 70 65 6e 64 73 20 6f 6e 20 4d 45 54 48	.date.comparison.depends.on.METH
4c60	4f 44 2e 0a 57 68 65 6e 20 4d 45 54 48 4f 44 20 69 73 20 6e 75 6c 6c 2c 20 63 6f 6d 70 61 72 65	OD..When.METHOD.is.null,.compare
4c80	20 74 68 65 69 72 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 74 69 6d 65 2e 20 20 4f 74 68 65 72	.their.modification.time...Other
4ca0	77 69 73 65 2c 0a 63 6f 6d 70 61 72 65 20 74 68 65 69 72 20 63 68 61 6e 67 65 20 74 69 6d 65 20	wise,.compare.their.change.time.
4cc0	77 68 65 6e 20 4d 45 54 48 4f 44 20 69 73 20 5c 3d 27 63 68 61 6e 67 65 2c 20 6f 72 20 63 6f 6d	when.METHOD.is.\='change,.or.com
4ce0	70 61 72 65 0a 74 68 65 69 72 20 6c 61 73 74 20 61 63 63 65 73 73 20 74 69 6d 65 20 77 68 65 6e	pare.their.last.access.time.when
4d00	20 4d 45 54 48 4f 44 20 69 73 20 5c 3d 27 61 63 63 65 73 73 2e 0a 0a 28 66 6e 20 46 49 4c 45 20	.METHOD.is.\='access...(fn.FILE.
4d20	4f 54 48 45 52 20 4d 45 54 48 4f 44 29 1f 23 40 31 36 20 0a 0a 28 66 6e 20 41 43 43 20 45 4c 54	OTHER.METHOD).#@16...(fn.ACC.ELT
4d40	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 2d 64 61 74 65 2d 63 6f 6d 70 61 72 65 20 23 5b	)..(defalias.'f--date-compare.#[
4d60	37 37 31 20 22 5c 32 31 31 5c 33 30 30 5c 32 36 37 5c 32 30 32 12 00 5c 33 30 31 5c 32 30 32 16	771."\211\300\267\202..\301\202.
4d80	00 5c 33 30 32 5c 32 30 32 16 00 5c 33 30 33 5c 32 30 32 16 00 5c 33 30 34 5c 33 30 35 02 5c 22	.\302\202..\303\202..\304\305.\"
4da0	5c 32 31 31 04 21 01 04 21 5c 33 30 36 02 02 5c 22 5c 33 30 37 5c 33 31 30 5c 33 31 31 03 23 5c	\211.!..!\306..\"\307\310\311.#\
4dc0	32 30 37 22 20 5b 23 73 28 68 61 73 68 2d 74 61 62 6c 65 20 74 65 73 74 20 65 71 20 70 75 72 65	207".[#s(hash-table.test.eq.pure
4de0	63 6f 70 79 20 74 20 64 61 74 61 20 28 63 68 61 6e 67 65 20 36 20 61 63 63 65 73 73 20 31 30 20	copy.t.data.(change.6.access.10.
4e00	6e 69 6c 20 31 34 29 29 20 66 2d 63 68 61 6e 67 65 2d 74 69 6d 65 20 66 2d 61 63 63 65 73 73 2d	nil.14)).f-change-time.f-access-
4e20	74 69 6d 65 20 66 2d 6d 6f 64 69 66 69 63 61 74 69 6f 6e 2d 74 69 6d 65 20 65 72 72 6f 72 20 22	time.f-modification-time.error."
4e40	55 6e 6b 6e 6f 77 6e 20 6d 65 74 68 6f 64 20 25 53 22 20 2d 7a 69 70 2d 70 61 69 72 20 2d 72 65	Unknown.method.%S".-zip-pair.-re
4e60	64 75 63 65 2d 66 72 6f 6d 20 23 5b 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 0d 00 5c 33 30	duce-from.#[514.".\300U\203..\30
4e80	31 01 40 02 41 5c 22 5c 32 30 37 01 5c 32 30 37 22 20 5b 30 20 66 2d 2d 74 68 72 65 65 2d 77 61	1.@.A\"\207.\207".[0.f--three-wa
4ea0	79 2d 63 6f 6d 70 61 72 65 5d 20 35 20 28 23 24 20 2e 20 31 39 37 36 33 29 5d 20 30 5d 20 31 31	y-compare].5.(#$...19763)].0].11
4ec0	20 28 23 24 20 2e 20 31 39 32 38 34 29 5d 29 23 40 31 32 31 20 43 6f 6d 70 61 72 65 20 69 66 20	.(#$...19284)])#@121.Compare.if.
4ee0	46 49 4c 45 20 69 73 20 6f 6c 64 65 72 20 74 68 61 6e 20 4f 54 48 45 52 2e 0a 0a 46 6f 72 20 6d	FILE.is.older.than.OTHER...For.m
4f00	6f 72 65 20 69 6e 66 6f 20 6f 6e 20 4d 45 54 48 4f 44 2c 20 73 65 65 20 60 66 2d 2d 64 61 74 65	ore.info.on.METHOD,.see.`f--date
4f20	2d 63 6f 6d 70 61 72 65 27 2e 0a 0a 28 66 6e 20 46 49 4c 45 20 4f 54 48 45 52 20 26 6f 70 74 69	-compare'...(fn.FILE.OTHER.&opti
4f40	6f 6e 61 6c 20 4d 45 54 48 4f 44 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 6f 6c 64 65 72	onal.METHOD)..(defalias.'f-older
4f60	2d 70 20 23 5b 37 37 30 20 22 5c 33 30 30 03 03 03 23 5c 33 30 31 57 5c 32 30 37 22 20 5b 66 2d	-p.#[770."\300...#\301W\207".[f-
4f80	2d 64 61 74 65 2d 63 6f 6d 70 61 72 65 20 30 5d 20 37 20 28 23 24 20 2e 20 32 30 31 38 31 29 5d	-date-compare.0].7.(#$...20181)]
4fa0	29 23 40 31 32 31 20 43 6f 6d 70 61 72 65 20 69 66 20 46 49 4c 45 20 69 73 20 6e 65 77 65 72 20	)#@121.Compare.if.FILE.is.newer.
4fc0	74 68 61 6e 20 4f 54 48 45 52 2e 0a 0a 46 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 20 6f 6e 20 4d 45	than.OTHER...For.more.info.on.ME
4fe0	54 48 4f 44 2c 20 73 65 65 20 60 66 2d 2d 64 61 74 65 2d 63 6f 6d 70 61 72 65 27 2e 0a 0a 28 66	THOD,.see.`f--date-compare'...(f
5000	6e 20 46 49 4c 45 20 4f 54 48 45 52 20 26 6f 70 74 69 6f 6e 61 6c 20 4d 45 54 48 4f 44 29 1f 0a	n.FILE.OTHER.&optional.METHOD)..
5020	28 64 65 66 61 6c 69 61 73 20 27 66 2d 6f 6c 64 65 72 3f 20 27 66 2d 6f 6c 64 65 72 2d 70 29 0a	(defalias.'f-older?.'f-older-p).
5040	28 64 65 66 61 6c 69 61 73 20 27 66 2d 6e 65 77 65 72 2d 70 20 23 5b 37 37 30 20 22 5c 33 30 30	(defalias.'f-newer-p.#[770."\300
5060	03 03 03 23 5c 33 30 31 56 5c 32 30 37 22 20 5b 66 2d 2d 64 61 74 65 2d 63 6f 6d 70 61 72 65 20	...#\301V\207".[f--date-compare.
5080	30 5d 20 37 20 28 23 24 20 2e 20 32 30 33 39 31 29 5d 29 23 40 31 35 32 20 43 68 65 63 6b 20 69	0].7.(#$...20391)])#@152.Check.i
50a0	66 20 46 49 4c 45 20 61 6e 64 20 4f 54 48 45 52 20 73 68 61 72 65 20 74 68 65 20 73 61 6d 65 20	f.FILE.and.OTHER.share.the.same.
50c0	61 63 63 65 73 73 20 6f 72 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 74 69 6d 65 2e 0a 0a 46 6f	access.or.modification.time...Fo
50e0	72 20 6d 6f 72 65 20 69 6e 66 6f 20 6f 6e 20 4d 45 54 48 4f 44 2c 20 73 65 65 20 60 66 2d 2d 64	r.more.info.on.METHOD,.see.`f--d
5100	61 74 65 2d 63 6f 6d 70 61 72 65 27 2e 0a 0a 28 66 6e 20 46 49 4c 45 20 4f 54 48 45 52 20 26 6f	ate-compare'...(fn.FILE.OTHER.&o
5120	70 74 69 6f 6e 61 6c 20 4d 45 54 48 4f 44 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 6e 65	ptional.METHOD)..(defalias.'f-ne
5140	77 65 72 3f 20 27 66 2d 6e 65 77 65 72 2d 70 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 73 61	wer?.'f-newer-p).(defalias.'f-sa
5160	6d 65 2d 74 69 6d 65 2d 70 20 23 5b 37 37 30 20 22 5c 33 30 30 03 03 03 23 5c 33 30 31 55 5c 32	me-time-p.#[770."\300...#\301U\2
5180	30 37 22 20 5b 66 2d 2d 64 61 74 65 2d 63 6f 6d 70 61 72 65 20 30 5d 20 37 20 28 23 24 20 2e 20	07".[f--date-compare.0].7.(#$...
51a0	32 30 36 33 33 29 5d 29 23 40 32 37 20 52 65 74 75 72 6e 20 70 61 74 68 20 74 6f 20 74 68 69 73	20633)])#@27.Return.path.to.this
51c0	20 66 69 6c 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 73 61 6d 65 2d 74 69 6d 65 3f 20	.file...(defalias.'f-same-time?.
51e0	27 66 2d 73 61 6d 65 2d 74 69 6d 65 2d 70 29 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 74 68 69	'f-same-time-p).(defalias.'f-thi
5200	73 2d 66 69 6c 65 20 23 5b 30 20 22 08 5c 32 30 33 06 00 09 5c 32 30 37 5c 33 30 33 5c 33 30 32	s-file.#[0.".\203...\207\303\302
5220	21 5c 32 30 33 12 00 5c 6e 5c 32 30 33 12 00 5c 6e 5c 32 30 37 5c 33 30 34 20 5c 32 30 37 22 20	!\203..\n\203..\n\207\304.\207".
5240	5b 6c 6f 61 64 2d 69 6e 2d 70 72 6f 67 72 65 73 73 20 6c 6f 61 64 2d 66 69 6c 65 2d 6e 61 6d 65	[load-in-progress.load-file-name
5260	20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 63 75 72 72 65 6e 74 2d 66 69 6c 65 20 62 6f 75 6e 64	.byte-compile-current-file.bound
5280	70 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 5d 20 32 20 28 23 24 20 2e 20 32 30 39 30	p.buffer-file-name].2.(#$...2090
52a0	39 29 5d 29 23 40 35 31 20 41 20 76 61 72 69 61 62 6c 65 20 74 6f 20 63 61 63 68 65 20 72 65 73	9)])#@51.A.variable.to.cache.res
52c0	75 6c 74 20 6f 66 20 60 66 2d 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 27 2e 1f 0a 28 64 65 66	ult.of.`f-path-separator'...(def
52e0	76 61 72 20 66 2d 2d 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 20 6e 69 6c 20 28 23 24 20 2e 20	var.f--path-separator.nil.(#$...
5300	32 31 31 36 31 29 29 23 40 32 34 20 52 65 74 75 72 6e 20 70 61 74 68 20 73 65 70 61 72 61 74 6f	21161))#@24.Return.path.separato
5320	72 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 20	r...(defalias.'f-path-separator.
5340	23 5b 30 20 22 08 5c 32 30 36 0d 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 22 5c 33 30 34 5c 33	#[0.".\206..\301\302\303\"\304\3
5360	30 35 4f 5c 32 31 31 10 5c 32 30 37 22 20 5b 66 2d 2d 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72	05O\211.\207".[f--path-separator
5380	20 66 2d 6a 6f 69 6e 20 22 78 22 20 22 79 22 20 31 20 32 5d 20 33 20 28 23 24 20 2e 20 32 31 32	.f-join."x"."y".1.2].3.(#$...212
53a0	36 30 29 5d 29 23 40 35 32 20 46 69 6e 64 20 50 41 54 54 45 52 4e 20 69 6e 20 50 41 54 48 2e 0a	60)])#@52.Find.PATTERN.in.PATH..
53c0	0a 28 66 6e 20 50 41 54 54 45 52 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 50 41 54 48 29 1f 0a 28 64	.(fn.PATTERN.&optional.PATH)..(d
53e0	65 66 61 6c 69 61 73 20 27 66 2d 67 6c 6f 62 20 23 5b 35 31 33 20 22 5c 33 30 31 5c 33 30 32 02	efalias.'f-glob.#[513."\301\302.
5400	5c 32 30 36 07 00 08 04 5c 22 21 5c 32 30 37 22 20 5b 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74	\206....\"!\207".[default-direct
5420	6f 72 79 20 66 69 6c 65 2d 65 78 70 61 6e 64 2d 77 69 6c 64 63 61 72 64 73 20 66 2d 6a 6f 69 6e	ory.file-expand-wildcards.f-join
5440	5d 20 36 20 28 23 24 20 2e 20 32 31 34 31 38 29 5d 29 23 40 32 33 20 0a 0a 28 66 6e 20 50 41 54	].6.(#$...21418)])#@23...(fn.PAT
5460	48 20 52 45 43 55 52 53 49 56 45 29 1f 23 40 31 33 20 0a 0a 28 66 6e 20 46 49 4c 45 29 1f 23 40	H.RECURSIVE).#@13...(fn.FILE).#@
5480	31 34 20 0a 0a 28 66 6e 20 45 4e 54 52 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 2d 63	14...(fn.ENTRY)..(defalias.'f--c
54a0	6f 6c 6c 65 63 74 2d 65 6e 74 72 69 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 43 5c 33 30 31 5c	ollect-entries.#[514."\300C\301\
54c0	33 30 32 5c 33 30 33 05 5c 33 30 34 5c 22 5c 22 02 5c 32 30 33 1a 00 5c 33 30 35 5c 33 30 36 5c	302\303.\304\"\".\203..\305\306\
54e0	33 30 37 04 06 06 23 02 5c 22 5c 32 31 30 5c 32 30 32 1e 00 01 01 5c 32 34 30 5c 32 31 30 01 5c	307...#.\"\210\202....\240\210.\
5500	32 34 32 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 72 65 6a 65 63 74 20 23 5b 32 35 37 20 22 5c 33 30	242\207".[nil.-reject.#[257."\30
5520	30 01 21 5c 33 30 31 5c 32 33 35 5c 32 30 37 22 20 5b 66 2d 66 69 6c 65 6e 61 6d 65 20 28 22 2e	0.!\301\235\207".[f-filename.(".
5540	22 20 22 2e 2e 22 29 5d 20 33 20 28 23 24 20 2e 20 32 31 36 31 38 29 5d 20 64 69 72 65 63 74 6f	"."..")].3.(#$...21618)].directo
5560	72 79 2d 66 69 6c 65 73 20 74 20 6d 61 70 63 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32	ry-files.t.mapc.make-closure.#[2
5580	35 37 20 22 5c 33 30 32 01 21 5c 32 30 33 0d 00 5c 33 30 30 01 5c 33 30 30 5c 32 34 32 42 5c 32	57."\302.!\203..\300.\300\242B\2
55a0	34 30 5c 32 30 37 5c 33 30 33 01 21 5c 32 30 35 2d 00 5c 33 30 30 01 5c 33 30 30 5c 32 34 32 42	40\207\303.!\205-.\300.\300\242B
55c0	5c 32 34 30 5c 32 31 30 5c 33 30 34 01 21 5c 32 30 33 2b 00 5c 33 30 30 5c 33 30 35 5c 33 30 30	\240\210\304.!\203+.\300\305\300
55e0	5c 32 34 32 5c 33 30 36 04 5c 33 30 31 5c 22 5c 22 5c 32 34 30 5c 32 30 37 5c 33 30 30 5c 32 34	\242\306.\301\"\"\240\207\300\24
5600	32 5c 32 30 37 22 20 5b 56 30 20 56 31 20 66 2d 66 69 6c 65 2d 70 20 66 2d 64 69 72 65 63 74 6f	2\207".[V0.V1.f-file-p.f-directo
5620	72 79 2d 70 20 66 2d 72 65 61 64 61 62 6c 65 2d 70 20 61 70 70 65 6e 64 20 66 2d 2d 63 6f 6c 6c	ry-p.f-readable-p.append.f--coll
5640	65 63 74 2d 65 6e 74 72 69 65 73 5d 20 37 20 28 23 24 20 2e 20 32 31 36 33 35 29 5d 5d 20 39 20	ect-entries].7.(#$...21635)]].9.
5660	28 23 24 20 2e 20 32 31 35 39 31 29 5d 29 23 40 37 31 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72	(#$...21591)])#@71.Anaphoric.ver
5680	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 48 20 42	sion.of.`f-entries'...(fn.PATH.B
56a0	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
56c0	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 37 30 20	ias.'f--entries.'(macro...#[770.
56e0	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 37	"\300.\301\302\303\304..EE.F\207
5700	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 74 20 28	".[f-entries.lambda.(path).let.(
5720	28 69 74 20 70 61 74 68 29 29 5d 20 31 30 20 28 23 24 20 2e 20 32 32 31 33 31 29 5d 29 29 23 40	(it.path))].10.(#$...22131)]))#@
5740	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 74 6f 72 69	247.Find.all.files.and.directori
5760	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 20 65 61 63	es.in.PATH...FN.-.called.for.eac
5780	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 20 49 66 20	h.found.file.and.directory...If.
57a0	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 66 69 6c 65	FN.returns.a.thruthy.value,.file
57c0	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 65 64 2e 0a	.or.directory.will.be.included..
57e0	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 20 61 6e 64	RECURSIVE.-.Search.for.files.and
5800	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 20 50 41 54	.directories.recursive...(fn.PAT
5820	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 61	H.&optional.FN.RECURSIVE)..(defa
5840	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 02 5c 22 02	lias.'f-entries.#[769."\300..\".
5860	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 63 6f 6c 6c	\203..\301..\"\207\207".[f--coll
5880	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 32 32 33	ect-entries.-select].7.(#$...223
58a0	34 30 29 5d 29 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 20 60	40)])#@75.Anaphoric.version.of.`
58c0	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 20 26	f-directories'...(fn.PATH.BODY.&
58e0	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 20 27	optional.RECURSIVE)..(defalias.'
5900	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 20 22	f--directories.'(macro...#[770."
5920	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 37 22	\300.\301\302\303\304..EE.F\207"
5940	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 6c 65	.[f-directories.lambda.(path).le
5960	74 20 28 28 69 74 20 70 61 74 68 29 29 5d 20 31 30 20 28 23 24 20 2e 20 32 32 36 39 38 29 5d 29	t.((it.path))].10.(#$...22698)])
5980	29 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 20 50 41	)#@83.Find.all.directories.in.PA
59a0	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 54 48 20	TH...See.`f-entries'...(fn.PATH.
59c0	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 61 6c 69	&optional.FN.RECURSIVE)..(defali
59e0	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 5c 33 30	as.'f-directories.#[769."\300\30
5a00	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 30 37 5c 32	1\302..\"\".\203..\300..\"\207\2
5a20	30 37 22 20 5b 2d 73 65 6c 65 63 74 20 66 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 66 2d 2d 63 6f	07".[-select.f-directory-p.f--co
5a40	6c 6c 65 63 74 2d 65 6e 74 72 69 65 73 5d 20 38 20 28 23 24 20 2e 20 32 32 39 31 38 29 5d 29 23	llect-entries].8.(#$...22918)])#
5a60	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 60 66 2d 66 69 6c 65	@69.Anaphoric.version.of.`f-file
5a80	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 6e 61 6c 20 52 45 43	s'...(fn.PATH.BODY.&optional.REC
5aa0	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 6c 65 73 20 27 28 6d	URSIVE)..(defalias.'f--files.'(m
5ac0	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 30 32 5c 33 30 33 5c	acro...#[770."\300.\301\302\303\
5ae0	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 61 6d 62 64 61 20 28	304..EE.F\207".[f-files.lambda.(
5b00	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 20 28 23 24 20 2e 20	path).let.((it.path))].10.(#$...
5b20	32 33 31 34 30 29 5d 29 29 23 40 37 37 20 46 69 6e 64 20 61 6c 6c 20 66 69 6c 65 73 20 69 6e 20	23140)]))#@77.Find.all.files.in.
5b40	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 54	PATH...See.`f-entries'...(fn.PAT
5b60	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 61	H.&optional.FN.RECURSIVE)..(defa
5b80	6c 69 61 73 20 27 66 2d 66 69 6c 65 73 20 23 5b 37 36 39 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	lias.'f-files.#[769."\300\301\30
5ba0	32 05 04 5c 22 5c 22 02 5c 32 30 33 10 00 5c 33 30 30 03 02 5c 22 5c 32 30 37 5c 32 30 37 22 20	2..\"\".\203..\300..\"\207\207".
5bc0	5b 2d 73 65 6c 65 63 74 20 66 2d 66 69 6c 65 2d 70 20 66 2d 2d 63 6f 6c 6c 65 63 74 2d 65 6e 74	[-select.f-file-p.f--collect-ent
5be0	72 69 65 73 5d 20 38 20 28 23 24 20 2e 20 32 33 33 34 32 29 5d 29 23 40 37 30 20 41 6e 61 70 68	ries].8.(#$...23342)])#@70.Anaph
5c00	6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 66 2d 74 72 61 76 65 72 73 65 2d 75 70 77 61	oric.version.of.`f-traverse-upwa
5c20	72 64 73 27 2e 0a 0a 28 66 6e 20 42 4f 44 59 20 26 6f 70 74 69 6f 6e 61 6c 20 50 41 54 48 29 1f	rds'...(fn.BODY.&optional.PATH).
5c40	0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 2d 74 72 61 76 65 72 73 65 2d 75 70 77 61 72 64 73 20	.(defalias.'f--traverse-upwards.
5c60	27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 33 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	'(macro...#[513."\300\301\302\30
5c80	33 5c 33 30 34 06 06 45 45 02 45 5c 32 30 37 22 20 5b 66 2d 74 72 61 76 65 72 73 65 2d 75 70 77	3\304..EE.E\207".[f-traverse-upw
5ca0	61 72 64 73 20 6c 61 6d 62 64 61 20 28 64 69 72 29 20 6c 65 74 20 28 28 69 74 20 64 69 72 29 29	ards.lambda.(dir).let.((it.dir))
5cc0	5d 20 38 20 28 23 24 20 2e 20 32 33 35 34 37 29 5d 29 29 23 40 32 32 34 20 54 72 61 76 65 72 73	].8.(#$...23547)]))#@224.Travers
5ce0	65 20 75 70 20 61 73 20 6c 6f 6e 67 20 61 73 20 46 4e 20 72 65 74 75 72 6e 20 6e 69 6c 2c 20 73	e.up.as.long.as.FN.return.nil,.s
5d00	74 61 72 74 69 6e 67 20 61 74 20 50 41 54 48 2e 0a 0a 49 66 20 46 4e 20 72 65 74 75 72 6e 73 20	tarting.at.PATH...If.FN.returns.
5d20	61 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2c 20 74 68 65 20 70 61 74 68 20 73 65 6e 74 20 61	a.non-nil.value,.the.path.sent.a
5d40	73 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 46 4e 20 69 73 0a 72 65 74 75 72 6e 65 64 2e 20 20 49	s.argument.to.FN.is.returned...I
5d60	66 20 6e 6f 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 62 61 63 6b 20 72 65 74 75 72 6e 20 61 20	f.no.function.callback.return.a.
5d80	6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2c 20 6e 69 6c 20 69 73 0a 72 65 74 75 72 6e 65 64 2e 0a	non-nil.value,.nil.is.returned..
5da0	0a 28 66 6e 20 46 4e 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	.(fn.FN.&optional.PATH)..(defali
5dc0	61 73 20 27 66 2d 74 72 61 76 65 72 73 65 2d 75 70 77 61 72 64 73 20 23 5b 35 31 33 20 22 5c 32	as.'f-traverse-upwards.#[513."\2
5de0	31 31 5c 32 30 34 06 00 5c 32 31 30 08 5c 33 30 31 01 21 5c 32 30 33 11 00 5c 33 30 32 01 21 5c	11\204..\210.\301.!\203..\302.!\
5e00	32 36 32 01 01 01 21 5c 32 30 33 18 00 5c 32 30 37 5c 33 30 33 01 21 3f 5c 32 30 35 25 00 5c 33	262...!\203..\207\303.!?\205%.\3
5e20	30 34 02 5c 33 30 35 03 21 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74	04.\305.!\"\207".[default-direct
5e40	6f 72 79 20 66 2d 72 65 6c 61 74 69 76 65 2d 70 20 66 2d 65 78 70 61 6e 64 20 66 2d 72 6f 6f 74	ory.f-relative-p.f-expand.f-root
5e60	2d 70 20 66 2d 74 72 61 76 65 72 73 65 2d 75 70 77 61 72 64 73 20 66 2d 70 61 72 65 6e 74 5d 20	-p.f-traverse-upwards.f-parent].
5e80	36 20 28 23 24 20 2e 20 32 33 37 36 39 29 5d 29 23 40 32 33 20 52 65 74 75 72 6e 20 61 62 73 6f	6.(#$...23769)])#@23.Return.abso
5ea0	6c 75 74 65 20 72 6f 6f 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 72 6f 6f 74 20 23 5b	lute.root...(defalias.'f-root.#[
5ec0	30 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 30 37 22 20 5b 66 2d 74 72 61 76 65 72 73 65 2d 75 70	0."\300\301!\207".[f-traverse-up
5ee0	77 61 72 64 73 20 66 2d 72 6f 6f 74 2d 70 5d 20 32 20 28 23 24 20 2e 20 32 34 32 31 33 29 5d 29	wards.f-root-p].2.(#$...24213)])
5f00	23 40 39 37 20 4f 6e 6c 79 20 61 6c 6c 6f 77 20 50 41 54 48 2d 4f 52 2d 50 41 54 48 53 20 61 6e	#@97.Only.allow.PATH-OR-PATHS.an
5f20	64 20 64 65 73 63 65 6e 64 61 6e 74 73 20 74 6f 20 62 65 20 6d 6f 64 69 66 69 65 64 20 69 6e 20	d.descendants.to.be.modified.in.
5f40	42 4f 44 59 2e 0a 0a 28 66 6e 20 50 41 54 48 2d 4f 52 2d 50 41 54 48 53 20 26 72 65 73 74 20 42	BODY...(fn.PATH-OR-PATHS.&rest.B
5f60	4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 2d 77 69 74 68 2d 73 61 6e 64 62 6f 78 20	ODY)..(defalias.'f-with-sandbox.
5f80	27 28 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 32 5c 33 30	'(macro...#[385."\300\301\302\30
5fa0	33 05 44 05 5c 33 30 34 06 07 44 46 44 43 5c 33 30 35 5c 33 30 30 5c 33 30 36 05 42 42 5c 33 30	3.D.\304..DFDC\305\300\306.BB\30
5fc0	37 42 42 45 5c 32 30 37 22 20 5b 6c 65 74 20 70 61 74 68 73 20 69 66 20 6c 69 73 74 70 20 6c 69	7BBE\207".[let.paths.if.listp.li
5fe0	73 74 20 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 28 28 66 2d 2d 67 75 61 72 64 2d 70 61 74	st.unwind-protect.((f--guard-pat
6000	68 73 20 70 61 74 68 73 29 29 20 28 28 73 65 74 71 20 66 2d 2d 67 75 61 72 64 2d 70 61 74 68 73	hs.paths)).((setq.f--guard-paths
6020	20 6e 69 6c 29 29 5d 20 39 20 28 23 24 20 2e 20 32 34 33 32 35 29 5d 29 29 0a 28 62 79 74 65 2d	.nil))].9.(#$...24325)])).(byte-
6040	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 21	code."\300\301\302\303#\304\305!
6060	5c 32 30 37 22 20 5b 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	\207".[function-put.f-with-sandb
6080	6f 78 20 6c 69 73 70 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	ox.lisp-indent-function.1.provid
60a0	65 20 66 5d 20 34 29 0a	e.f].4).