blob: ab34a2d9eeb97698a48f8ea2dfc77f441c19346e (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.3.1.;;;.with.all.o
0040	70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 63 6f 6e	ptimizations...;;;.This.file.con
0060	74 61 69 6e 73 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49 49 20 63 68 61 72 61 63 74 65 72 73	tains.utf-8.non-ASCII.characters
0080	2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 6e 6f 74 20 62 65 20 6c 6f 61 64 65 64 20 69 6e	,.;;;.and.so.cannot.be.loaded.in
00a0	74 6f 20 45 6d 61 63 73 20 32 32 20 6f 72 20 65 61 72 6c 69 65 72 2e 0a 28 61 6e 64 20 28 62 6f	to.Emacs.22.or.earlier..(and.(bo
00c0	75 6e 64 70 20 27 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 29 0a 20 20 20 20 20 28 3c 20 28 61 72	undp.'emacs-version)......(<.(ar
00e0	65 66 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 65 6d 61	ef.emacs-version.(1-.(length.ema
0100	63 73 2d 76 65 72 73 69 6f 6e 29 29 29 20 3f 41 29 0a 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6c	cs-version))).?A)......(string-l
0120	65 73 73 70 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 22 32 33 22 29 0a 20 20 20 20 20 28 65	essp.emacs-version."23")......(e
0140	72 72 6f 72 20 22 60 25 73 27 20 77 61 73 20 63 6f 6d 70 69 6c 65 64 20 66 6f 72 20 45 6d 61 63	rror."`%s'.was.compiled.for.Emac
0160	73 20 32 33 20 6f 72 20 6c 61 74 65 72 22 20 23 24 29 29 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	s.23.or.later".#$))..;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 61 75 74 6f 6c 6f 61 64 20 27	;;;;;;;;;;;;;;;;;;...(autoload.'
01a0	73 6c 6f 74 2d 76 61 6c 75 65 20 22 65 69 65 69 6f 22 29 0a 23 40 34 32 20 52 65 6d 6f 76 65 20	slot-value."eieio").#@42.Remove.
01c0	77 68 69 74 65 73 70 61 63 65 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 53	whitespace.at.the.beginning.of.S
01e0	2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 74 72 69 6d 2d 6c 65 66 74 20 23 5b 28 73 29 20	...(defalias.'s-trim-left.#[(s).
0200	22 5c 33 30 32 20 18 5c 33 30 33 5c 32 31 36 5c 33 30 34 5c 33 30 35 09 5c 22 5c 32 30 33 15 00	"\302..\303\216\304\305.\"\203..
0220	5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 32 31 31 09 24 5c 32 30 32 16 00 09 2a 5c 32 30 37 22 20	\306\307\310\211.$\202...*\207".
0240	5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 20 6d 61 74 63	[save-match-data-internal.s.matc
0260	68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b	h-data.#[nil."\301.\302\"\207".[
0280	73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74	save-match-data-internal.set-mat
02a0	63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 73 74 72 69 6e 67 2d 6d 61 74	ch-data.evaporate].3].string-mat
02c0	63 68 20 22 5c 5c 60 5b 20 09 5c 6e 0d 5d 2b 22 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 22	ch."\\`[..\n.]+".replace-match."
02e0	22 20 74 5d 20 35 20 28 23 24 20 2e 20 34 34 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	".t].5.(#$...441)]).(byte-code."
0300	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30	\300\301\302\303#\210\300\301\30
0320	34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 74 72 69 6d	4\303#\207".[function-put.s-trim
0340	2d 6c 65 66 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34	-left.pure.t.side-effect-free].4
0360	29 0a 23 40 33 36 20 52 65 6d 6f 76 65 20 77 68 69 74 65 73 70 61 63 65 20 61 74 20 74 68 65 20	).#@36.Remove.whitespace.at.the.
0380	65 6e 64 20 6f 66 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 74 72 69 6d 2d 72 69 67	end.of.S...(defalias.'s-trim-rig
03a0	68 74 20 23 5b 28 73 29 20 22 5c 33 30 32 20 18 5c 33 30 33 5c 32 31 36 5c 33 30 34 5c 33 30 35	ht.#[(s)."\302..\303\216\304\305
03c0	09 5c 22 5c 32 30 33 15 00 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 32 31 31 09 24 5c 32 30 32 16	.\"\203..\306\307\310\211.$\202.
03e0	00 09 2a 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e	..*\207".[save-match-data-intern
0400	61 6c 20 73 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32	al.s.match-data.#[nil."\301.\302
0420	5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61	\"\207".[save-match-data-interna
0440	6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 73	l.set-match-data.evaporate].3].s
0460	74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5b 20 09 5c 6e 0d 5d 2b 5c 5c 27 22 20 72 65 70 6c 61 63	tring-match."[..\n.]+\\'".replac
0480	65 2d 6d 61 74 63 68 20 22 22 20 74 5d 20 35 20 28 23 24 20 2e 20 38 37 31 29 5d 29 0a 23 40 35	e-match."".t].5.(#$...871)]).#@5
04a0	30 20 52 65 6d 6f 76 65 20 77 68 69 74 65 73 70 61 63 65 20 61 74 20 74 68 65 20 62 65 67 69 6e	0.Remove.whitespace.at.the.begin
04c0	6e 69 6e 67 20 61 6e 64 20 65 6e 64 20 6f 66 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73	ning.and.end.of.S...(defalias.'s
04e0	2d 74 72 69 6d 20 23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30 32 08 21 21 5c 32 30 37 22 20 5b 73	-trim.#[(s)."\301\302.!!\207".[s
0500	20 73 2d 74 72 69 6d 2d 6c 65 66 74 20 73 2d 74 72 69 6d 2d 72 69 67 68 74 5d 20 33 20 28 23 24	.s-trim-left.s-trim-right].3.(#$
0520	20 2e 20 31 31 38 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c	...1186)]).(byte-code."\300\301\
0540	33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30	302\303#\210\300\301\304\303#\20
0560	37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 74 72 69 6d 20 70 75 72 65 20 74 20 73	7".[function-put.s-trim.pure.t.s
0580	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 36 33 20 43 6f 6e 76 65 72 74	ide-effect-free].4).#@63.Convert
05a0	20 61 6c 6c 20 61 64 6a 61 63 65 6e 74 20 77 68 69 74 65 73 70 61 63 65 20 63 68 61 72 61 63 74	.all.adjacent.whitespace.charact
05c0	65 72 73 20 74 6f 20 61 20 73 69 6e 67 6c 65 20 73 70 61 63 65 2e 1f 0a 28 64 65 66 61 6c 69 61	ers.to.a.single.space...(defalia
05e0	73 20 27 73 2d 63 6f 6c 6c 61 70 73 65 2d 77 68 69 74 65 73 70 61 63 65 20 23 5b 28 73 29 20 22	s.'s-collapse-whitespace.#[(s)."
0600	5c 33 30 31 5c 33 30 32 5c 33 30 33 08 23 5c 32 30 37 22 20 5b 73 20 72 65 70 6c 61 63 65 2d 72	\301\302\303.#\207".[s.replace-r
0620	65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5b 20 09 5c 6e 0d 5d 2b 22 20 22 20 22 5d 20	egexp-in-string."[..\n.]+"."."].
0640	34 20 28 23 24 20 2e 20 31 34 33 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	4.(#$...1433)]).(byte-code."\300
0660	5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30	\301\302\303#\210\300\301\304\30
0680	33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 6f 6c 6c 61 70 73 65	3#\207".[function-put.s-collapse
06a0	2d 77 68 69 74 65 73 70 61 63 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66	-whitespace.pure.t.side-effect-f
06c0	72 65 65 5d 20 34 29 0a 23 40 31 39 30 20 53 70 6c 69 74 20 53 20 69 6e 74 6f 20 73 75 62 73 74	ree].4).#@190.Split.S.into.subst
06e0	72 69 6e 67 73 20 62 6f 75 6e 64 65 64 20 62 79 20 6d 61 74 63 68 65 73 20 66 6f 72 20 72 65 67	rings.bounded.by.matches.for.reg
0700	65 78 70 20 53 45 50 41 52 41 54 4f 52 2e 0a 49 66 20 4f 4d 49 54 2d 4e 55 4c 4c 53 20 69 73 20	exp.SEPARATOR..If.OMIT-NULLS.is.
0720	6e 6f 6e 2d 6e 69 6c 2c 20 7a 65 72 6f 2d 6c 65 6e 67 74 68 20 73 75 62 73 74 72 69 6e 67 73 20	non-nil,.zero-length.substrings.
0740	61 72 65 20 6f 6d 69 74 74 65 64 2e 0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77	are.omitted...This.is.a.simple.w
0760	72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 73 70 6c 69	rapper.around.the.built-in.`spli
0780	74 2d 73 74 72 69 6e 67 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 70 6c 69 74 20 23	t-string'...(defalias.'s-split.#
07a0	5b 28 73 65 70 61 72 61 74 6f 72 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 6d 69 74 2d 6e 75 6c	[(separator.s.&optional.omit-nul
07c0	6c 73 29 20 22 5c 33 30 34 20 18 5c 33 30 35 5c 32 31 36 5c 33 30 36 09 5c 6e 0b 23 2a 5c 32 30	ls)."\304..\305\216\306.\n.#*\20
07e0	37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 20 73	7".[save-match-data-internal.s.s
0800	65 70 61 72 61 74 6f 72 20 6f 6d 69 74 2d 6e 75 6c 6c 73 20 6d 61 74 63 68 2d 64 61 74 61 20 23	eparator.omit-nulls.match-data.#
0820	5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74	[nil."\301.\302\"\207".[save-mat
0840	63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20	ch-data-internal.set-match-data.
0860	65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 5d 20 34 20 28 23	evaporate].3].split-string].4.(#
0880	24 20 2e 20 31 37 34 32 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 73 70 6c	$...1742)]).(function-put.'s-spl
08a0	69 74 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 23 40 31 36 34 20 53 70	it.'side-effect-free.t).#@164.Sp
08c0	6c 69 74 20 53 20 75 70 20 74 6f 20 4e 20 74 69 6d 65 73 20 69 6e 74 6f 20 73 75 62 73 74 72 69	lit.S.up.to.N.times.into.substri
08e0	6e 67 73 20 62 6f 75 6e 64 65 64 20 62 79 20 6d 61 74 63 68 65 73 20 66 6f 72 20 72 65 67 65 78	ngs.bounded.by.matches.for.regex
0900	70 20 53 45 50 41 52 41 54 4f 52 2e 0a 0a 49 66 20 4f 4d 49 54 2d 4e 55 4c 4c 53 20 69 73 20 6e	p.SEPARATOR...If.OMIT-NULLS.is.n
0920	6f 6e 2d 6e 69 6c 2c 20 7a 65 72 6f 2d 6c 65 6e 67 74 68 20 73 75 62 73 74 72 69 6e 67 73 20 61	on-nil,.zero-length.substrings.a
0940	72 65 20 6f 6d 69 74 74 65 64 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 73 2d 73 70 6c 69 74 27 2e	re.omitted...See.also.`s-split'.
0960	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 70 6c 69 74 2d 75 70 2d 74 6f 20 23 5b 28 73 65	..(defalias.'s-split-up-to.#[(se
0980	70 61 72 61 74 6f 72 20 73 20 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 6d 69 74 2d 6e 75 6c 6c 73	parator.s.n.&optional.omit-nulls
09a0	29 20 22 5c 33 30 36 20 18 5c 33 30 37 5c 32 31 36 5c 33 31 30 5c 33 31 31 19 1a 5c 33 31 32 5c	)."\306..\307\216\310\311..\312\
09c0	33 31 33 21 1b 72 0b 71 5c 32 31 30 5c 33 31 34 5c 32 31 36 5c 66 63 5c 32 31 30 65 62 12 5c 33	313!.r.q\210\314\216\fc\210eb.\3
09e0	31 35 0d 5c 33 31 31 5c 33 31 36 23 5c 32 30 33 4c 00 5c 33 31 30 0e 10 57 5c 32 30 33 4c 00 5c	15.\311\316#\203L.\310..W\203L.\
0a00	6e 5c 33 31 30 5c 32 32 34 7b 1e 11 0e 12 5c 32 30 33 3a 00 0e 11 5c 33 31 37 5c 32 33 32 5c 32	n\310\224{....\203:...\317\232\2
0a20	30 34 3f 00 0e 11 09 42 11 29 5c 33 31 30 5c 32 32 35 62 12 0e 10 53 16 10 5c 32 30 32 19 00 5c	04?....B.)\310\225b...S..\202..\
0a40	6e 64 7b 1e 11 0e 12 5c 32 30 33 5d 00 0e 11 5c 33 31 37 5c 32 33 32 5c 32 30 34 62 00 0e 11 09	nd{....\203]...\317\232\204b....
0a60	42 11 2c 09 5c 32 33 37 2c 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d	B.,.\237,\207".[save-match-data-
0a80	69 6e 74 65 72 6e 61 6c 20 72 20 6f 70 20 23 31 3d 23 3a 74 65 6d 70 2d 62 75 66 66 65 72 20 73	internal.r.op.#1=#:temp-buffer.s
0aa0	20 73 65 70 61 72 61 74 6f 72 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30	.separator.match-data.#[nil."\30
0ac0	31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69	1.\302\"\207".[save-match-data-i
0ae0	6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65	nternal.set-match-data.evaporate
0b00	5d 20 33 5d 20 30 20 6e 69 6c 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22	].3].0.nil.generate-new-buffer."
0b20	20 2a 74 65 6d 70 2a 22 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 21 5c 32 30 35 09 00 5c 33 30 32	.*temp*".#[nil."\301.!\205..\302
0b40	08 21 5c 32 30 37 22 20 5b 23 31 23 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62 75	.!\207".[#1#.buffer-name.kill-bu
0b60	66 66 65 72 5d 20 32 5d 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 74 20 22 22 20	ffer].2].re-search-forward.t."".
0b80	6e 20 73 75 62 20 6f 6d 69 74 2d 6e 75 6c 6c 73 5d 20 34 20 28 23 24 20 2e 20 32 32 33 38 29 5d	n.sub.omit-nulls].4.(#$...2238)]
0ba0	29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 73 70 6c 69 74 2d 75 70 2d 74 6f 20 27	).(function-put.'s-split-up-to.'
0bc0	73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 23 40 35 36 20 53 70 6c 69 74 73 20	side-effect-free.t).#@56.Splits.
0be0	53 20 69 6e 74 6f 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 20 6f 6e 20 6e 65 77 6c	S.into.a.list.of.strings.on.newl
0c00	69 6e 65 20 63 68 61 72 61 63 74 65 72 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6c 69	ine.characters...(defalias.'s-li
0c20	6e 65 73 20 23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30 32 08 5c 22 5c 32 30 37 22 20 5b 73 20 73	nes.#[(s)."\301\302.\"\207".[s.s
0c40	2d 73 70 6c 69 74 20 22 5c 5c 28 0d 5c 6e 5c 5c 7c 5b 5c 6e 0d 5d 5c 5c 29 22 5d 20 33 20 28 23	-split."\\(.\n\\|[\n.]\\)"].3.(#
0c60	24 20 2e 20 33 30 33 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	$...3033)]).(byte-code."\300\301
0c80	5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32	\302\303#\210\300\301\304\303#\2
0ca0	30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6c 69 6e 65 73 20 70 75 72 65 20 74	07".[function-put.s-lines.pure.t
0cc0	20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 36 30 20 4a 6f 69 6e 20	.side-effect-free].4).#@60.Join.
0ce0	61 6c 6c 20 74 68 65 20 73 74 72 69 6e 67 73 20 69 6e 20 53 54 52 49 4e 47 53 20 77 69 74 68 20	all.the.strings.in.STRINGS.with.
0d00	53 45 50 41 52 41 54 4f 52 20 69 6e 20 62 65 74 77 65 65 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73	SEPARATOR.in.between...(defalias
0d20	20 27 73 2d 6a 6f 69 6e 20 23 5b 28 73 65 70 61 72 61 74 6f 72 20 73 74 72 69 6e 67 73 29 20 22	.'s-join.#[(separator.strings)."
0d40	5c 33 30 32 5c 33 30 33 08 09 23 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 73 20 73 65 70 61 72 61	\302\303..#\207".[strings.separa
0d60	74 6f 72 20 6d 61 70 63 6f 6e 63 61 74 20 69 64 65 6e 74 69 74 79 5d 20 34 20 28 23 24 20 2e 20	tor.mapconcat.identity].4.(#$...
0d80	33 32 39 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	3291)]).(byte-code."\300\301\302
0da0	5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20	\303#\210\300\301\304\303#\207".
0dc0	5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6a 6f 69 6e 20 70 75 72 65 20 74 20 73 69 64 65	[function-put.s-join.pure.t.side
0de0	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 34 38 20 4a 6f 69 6e 20 61 6c 6c 20 74	-effect-free].4).#@48.Join.all.t
0e00	68 65 20 73 74 72 69 6e 67 20 61 72 67 75 6d 65 6e 74 73 20 69 6e 74 6f 20 6f 6e 65 20 73 74 72	he.string.arguments.into.one.str
0e20	69 6e 67 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 6f 6e 63 61 74 20 23 5b 28 26 72 65	ing...(defalias.'s-concat.#[(&re
0e40	73 74 20 73 74 72 69 6e 67 73 29 20 22 5c 33 30 31 5c 33 30 32 08 5c 22 5c 32 30 37 22 20 5b 73	st.strings)."\301\302.\"\207".[s
0e60	74 72 69 6e 67 73 20 61 70 70 6c 79 20 63 6f 6e 63 61 74 5d 20 33 20 28 23 24 20 2e 20 33 35 37	trings.apply.concat].3.(#$...357
0e80	34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	4)]).(byte-code."\300\301\302\30
0ea0	33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75	3#\210\300\301\304\303#\207".[fu
0ec0	6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 6f 6e 63 61 74 20 70 75 72 65 20 74 20 73 69 64 65 2d	nction-put.s-concat.pure.t.side-
0ee0	65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 32 37 20 43 6f 6e 63 61 74 65 6e 61 74 65	effect-free].4).#@27.Concatenate
0f00	20 50 52 45 46 49 58 20 61 6e 64 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70 72 65	.PREFIX.and.S...(defalias.'s-pre
0f20	70 65 6e 64 20 23 5b 28 70 72 65 66 69 78 20 73 29 20 22 08 09 50 5c 32 30 37 22 20 5b 70 72 65	pend.#[(prefix.s)."..P\207".[pre
0f40	66 69 78 20 73 5d 20 32 20 28 23 24 20 2e 20 33 38 32 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64	fix.s].2.(#$...3829)]).(byte-cod
0f60	65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31	e."\300\301\302\303#\210\300\301
0f80	5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 70	\304\303#\207".[function-put.s-p
0fa0	72 65 70 65 6e 64 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20	repend.pure.t.side-effect-free].
0fc0	34 29 0a 23 40 32 37 20 43 6f 6e 63 61 74 65 6e 61 74 65 20 53 20 61 6e 64 20 53 55 46 46 49 58	4).#@27.Concatenate.S.and.SUFFIX
0fe0	2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 61 70 70 65 6e 64 20 23 5b 28 73 75 66 66 69 78	...(defalias.'s-append.#[(suffix
1000	20 73 29 20 22 08 09 50 5c 32 30 37 22 20 5b 73 20 73 75 66 66 69 78 5d 20 32 20 28 23 24 20 2e	.s)."..P\207".[s.suffix].2.(#$..
1020	20 34 30 34 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	.4040)]).(byte-code."\300\301\30
1040	32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22	2\303#\210\300\301\304\303#\207"
1060	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 61 70 70 65 6e 64 20 70 75 72 65 20 74 20 73	.[function-put.s-append.pure.t.s
1080	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 34 30 20 4d 61 6b 65 20 61 20	ide-effect-free].4).#@40.Make.a.
10a0	73 74 72 69 6e 67 20 6f 66 20 53 20 72 65 70 65 61 74 65 64 20 4e 55 4d 20 74 69 6d 65 73 2e 1f	string.of.S.repeated.NUM.times..
10c0	0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 72 65 70 65 61 74 20 23 5b 28 6e 75 6d 20 73 29 20 22	.(defalias.'s-repeat.#[(num.s)."
10e0	5c 33 30 33 18 09 5c 33 30 34 56 5c 32 30 33 13 00 5c 6e 08 42 10 09 53 5c 32 31 31 11 5c 32 30	\303..\304V\203..\n.B..S\211.\20
1100	32 03 00 5c 33 30 35 5c 33 30 36 08 5c 22 29 5c 32 30 37 22 20 5b 73 73 20 6e 75 6d 20 73 20 6e	2..\305\306.\")\207".[ss.num.s.n
1120	69 6c 20 30 20 61 70 70 6c 79 20 63 6f 6e 63 61 74 5d 20 34 20 28 23 24 20 2e 20 34 32 34 39 29	il.0.apply.concat].4.(#$...4249)
1140	5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23	]).(byte-code."\300\301\302\303#
1160	5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63	\210\300\301\304\303#\207".[func
1180	74 69 6f 6e 2d 70 75 74 20 73 2d 72 65 70 65 61 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66	tion-put.s-repeat.pure.t.side-ef
11a0	66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 33 37 20 52 65 6d 6f 76 65 20 53 55 46 46 49 58	fect-free].4).#@37.Remove.SUFFIX
11c0	20 69 66 20 69 74 20 69 73 20 61 74 20 65 6e 64 20 6f 66 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61	.if.it.is.at.end.of.S...(defalia
11e0	73 20 27 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 20 23 5b 28 73 75 66 66 69 78 20 73 29 20 22 08	s.'s-chop-suffix.#[(suffix.s).".
1200	47 5b 19 5c 6e 47 08 47 59 5c 32 30 33 1c 00 08 5c 6e 09 5c 33 30 33 4f 5c 32 33 30 5c 32 30 33	G[.\nG.GY\203...\n.\303O\230\203
1220	1c 00 5c 6e 5c 33 30 34 09 4f 5c 32 30 32 1d 00 5c 6e 29 5c 32 30 37 22 20 5b 73 75 66 66 69 78	..\n\304.O\202..\n)\207".[suffix
1240	20 70 6f 73 20 73 20 6e 69 6c 20 30 5d 20 34 20 28 23 24 20 2e 20 34 35 33 31 29 5d 29 0a 28 62	.pos.s.nil.0].4.(#$...4531)]).(b
1260	79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c	yte-code."\300\301\302\303#\210\
1280	33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d	300\301\304\303#\207".[function-
12a0	70 75 74 20 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66	put.s-chop-suffix.pure.t.side-ef
12c0	66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 36 37 20 52 65 6d 6f 76 65 20 53 55 46 46 49 58	fect-free].4).#@67.Remove.SUFFIX
12e0	45 53 20 6f 6e 65 20 62 79 20 6f 6e 65 20 69 6e 20 6f 72 64 65 72 2c 20 69 66 20 74 68 65 79 20	ES.one.by.one.in.order,.if.they.
1300	61 72 65 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20	are.at.the.end.of.S...(defalias.
1320	27 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 65 73 20 23 5b 28 73 75 66 66 69 78 65 73 20 73 29 20	's-chop-suffixes.#[(suffixes.s).
1340	22 08 5c 32 30 33 11 00 5c 33 30 32 08 40 09 5c 22 11 08 41 5c 32 31 31 10 5c 32 30 34 04 00 09	".\203..\302.@.\"..A\211.\204...
1360	5c 32 30 37 22 20 5b 73 75 66 66 69 78 65 73 20 73 20 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 5d	\207".[suffixes.s.s-chop-suffix]
1380	20 34 20 28 23 24 20 2e 20 34 38 31 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	.4.(#$...4819)]).(byte-code."\30
13a0	30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33	0\301\302\303#\210\300\301\304\3
13c0	30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 68 6f 70 2d 73 75	03#\207".[function-put.s-chop-su
13e0	66 66 69 78 65 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20	ffixes.pure.t.side-effect-free].
1400	34 29 0a 23 40 34 33 20 52 65 6d 6f 76 65 20 50 52 45 46 49 58 20 69 66 20 69 74 20 69 73 20 61	4).#@43.Remove.PREFIX.if.it.is.a
1420	74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d	t.the.start.of.S...(defalias.'s-
1440	63 68 6f 70 2d 70 72 65 66 69 78 20 23 5b 28 70 72 65 66 69 78 20 73 29 20 22 08 47 19 5c 6e 47	chop-prefix.#[(prefix.s).".G.\nG
1460	08 47 59 5c 32 30 33 1b 00 08 5c 6e 5c 33 30 33 09 4f 5c 32 33 30 5c 32 30 33 1b 00 5c 6e 09 5c	.GY\203...\n\303.O\230\203..\n.\
1480	33 30 34 4f 5c 32 30 32 1c 00 5c 6e 29 5c 32 30 37 22 20 5b 70 72 65 66 69 78 20 70 6f 73 20 73	304O\202..\n)\207".[prefix.pos.s
14a0	20 30 20 6e 69 6c 5d 20 34 20 28 23 24 20 2e 20 35 31 32 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f	.0.nil].4.(#$...5128)]).(byte-co
14c0	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30	de."\300\301\302\303#\210\300\30
14e0	31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d	1\304\303#\207".[function-put.s-
1500	63 68 6f 70 2d 70 72 65 66 69 78 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66	chop-prefix.pure.t.side-effect-f
1520	72 65 65 5d 20 34 29 0a 23 40 36 39 20 52 65 6d 6f 76 65 20 50 52 45 46 49 58 45 53 20 6f 6e 65	ree].4).#@69.Remove.PREFIXES.one
1540	20 62 79 20 6f 6e 65 20 69 6e 20 6f 72 64 65 72 2c 20 69 66 20 74 68 65 79 20 61 72 65 20 61 74	.by.one.in.order,.if.they.are.at
1560	20 74 68 65 20 73 74 61 72 74 20 6f 66 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63	.the.start.of.S...(defalias.'s-c
1580	68 6f 70 2d 70 72 65 66 69 78 65 73 20 23 5b 28 70 72 65 66 69 78 65 73 20 73 29 20 22 08 5c 32	hop-prefixes.#[(prefixes.s).".\2
15a0	30 33 11 00 5c 33 30 32 08 40 09 5c 22 11 08 41 5c 32 31 31 10 5c 32 30 34 04 00 09 5c 32 30 37	03..\302.@.\"..A\211.\204...\207
15c0	22 20 5b 70 72 65 66 69 78 65 73 20 73 20 73 2d 63 68 6f 70 2d 70 72 65 66 69 78 5d 20 34 20 28	".[prefixes.s.s-chop-prefix].4.(
15e0	23 24 20 2e 20 35 34 32 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	#$...5421)]).(byte-code."\300\30
1600	31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c	1\302\303#\210\300\301\304\303#\
1620	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 68 6f 70 2d 70 72 65 66 69 78	207".[function-put.s-chop-prefix
1640	65 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23	es.pure.t.side-effect-free].4).#
1660	40 35 34 20 52 65 74 75 72 6e 73 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 70 72 65 66 69 78 20 53	@54.Returns.the.longest.prefix.S
1680	31 20 61 6e 64 20 53 32 20 68 61 76 65 20 69 6e 20 63 6f 6d 6d 6f 6e 2e 1f 0a 28 64 65 66 61 6c	1.and.S2.have.in.common...(defal
16a0	69 61 73 20 27 73 2d 73 68 61 72 65 64 2d 73 74 61 72 74 20 23 5b 28 73 31 20 73 32 29 20 22 08	ias.'s-shared-start.#[(s1.s2).".
16c0	47 09 47 5e 5c 33 30 34 1a 1b 5c 6e 0b 57 5c 32 30 33 1f 00 08 5c 6e 48 09 5c 6e 48 55 5c 32 30	G.G^\304..\n.W\203...\nH.\nHU\20
16e0	33 1f 00 5c 6e 54 5c 32 31 31 12 5c 32 30 32 09 00 08 5c 33 30 34 5c 6e 4f 2a 5c 32 30 37 22 20	3..\nT\211.\202...\304\nO*\207".
1700	5b 73 31 20 73 32 20 69 20 73 65 61 72 63 68 2d 6c 65 6e 67 74 68 20 30 5d 20 34 20 28 23 24 20	[s1.s2.i.search-length.0].4.(#$.
1720	2e 20 35 37 33 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	..5732)]).(byte-code."\300\301\3
1740	30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37	02\303#\210\300\301\304\303#\207
1760	22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 73 68 61 72 65 64 2d 73 74 61 72 74 20 70	".[function-put.s-shared-start.p
1780	75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 35 34 20	ure.t.side-effect-free].4).#@54.
17a0	52 65 74 75 72 6e 73 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 73 75 66 66 69 78 20 53 31 20 61 6e	Returns.the.longest.suffix.S1.an
17c0	64 20 53 32 20 68 61 76 65 20 69 6e 20 63 6f 6d 6d 6f 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20	d.S2.have.in.common...(defalias.
17e0	27 73 2d 73 68 61 72 65 64 2d 65 6e 64 20 23 5b 28 73 31 20 73 32 29 20 22 08 47 19 5c 6e 47 1b	's-shared-end.#[(s1.s2).".G.\nG.
1800	09 0b 5e 1c 5c 33 30 36 5c 32 31 31 1d 5c 66 57 5c 32 30 33 2b 00 08 5c 33 30 37 09 0d 5c 33 31	..^.\306\211.\fW\203+..\307..\31
1820	30 23 48 5c 6e 5c 33 30 37 0b 0d 5c 33 31 30 23 48 55 5c 32 30 33 2b 00 0d 54 5c 32 31 31 15 5c	0#H\n\307..\310#HU\203+..T\211.\
1840	32 30 32 0d 00 0d 5c 33 30 36 55 5c 32 30 33 35 00 5c 33 31 31 5c 32 30 32 3a 00 08 0d 5b 5c 33	202...\306U\2035.\311\202:...[\3
1860	31 32 4f 2c 5c 32 30 37 22 20 5b 73 31 20 6c 31 20 73 32 20 6c 32 20 73 65 61 72 63 68 2d 6c 65	12O,\207".[s1.l1.s2.l2.search-le
1880	6e 67 74 68 20 69 20 30 20 2d 20 31 20 22 22 20 6e 69 6c 5d 20 37 20 28 23 24 20 2e 20 36 30 34	ngth.i.0.-.1."".nil].7.(#$...604
18a0	38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	8)]).(byte-code."\300\301\302\30
18c0	33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75	3#\210\300\301\304\303#\207".[fu
18e0	6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 73 68 61 72 65 64 2d 65 6e 64 20 70 75 72 65 20 74 20 73	nction-put.s-shared-end.pure.t.s
1900	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 35 30 20 52 65 6d 6f 76 65 20	ide-effect-free].4).#@50.Remove.
1920	6f 6e 65 20 74 72 61 69 6c 69 6e 67 20 60 5c 6e 60 2c 20 60 5c 72 60 20 6f 72 20 60 5c 72 5c 6e	one.trailing.`\n`,.`\r`.or.`\r\n
1940	60 20 66 72 6f 6d 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f 6d 70 20 23 5b	`.from.S...(defalias.'s-chomp.#[
1960	28 73 29 20 22 5c 33 30 31 5c 33 30 32 08 5c 22 5c 32 30 37 22 20 5b 73 20 73 2d 63 68 6f 70 2d	(s)."\301\302.\"\207".[s.s-chop-
1980	73 75 66 66 69 78 65 73 20 28 22 5c 6e 22 20 22 0d 22 29 5d 20 33 20 28 23 24 20 2e 20 36 34 32	suffixes.("\n".".")].3.(#$...642
19a0	35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	5)]).(byte-code."\300\301\302\30
19c0	33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75	3#\210\300\301\304\303#\207".[fu
19e0	6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 68 6f 6d 70 20 70 75 72 65 20 74 20 73 69 64 65 2d 65	nction-put.s-chomp.pure.t.side-e
1a00	66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 39 32 20 49 66 20 53 20 69 73 20 6c 6f 6e	ffect-free].4).#@192.If.S.is.lon
1a20	67 65 72 20 74 68 61 6e 20 4c 45 4e 2c 20 63 75 74 20 69 74 20 64 6f 77 6e 20 61 6e 64 20 61 64	ger.than.LEN,.cut.it.down.and.ad
1a40	64 20 45 4c 4c 49 50 53 49 53 20 74 6f 20 74 68 65 20 65 6e 64 2e 0a 0a 54 68 65 20 72 65 73 75	d.ELLIPSIS.to.the.end...The.resu
1a60	6c 74 69 6e 67 20 73 74 72 69 6e 67 2c 20 69 6e 63 6c 75 64 69 6e 67 20 65 6c 6c 69 70 73 69 73	lting.string,.including.ellipsis
1a80	2c 20 77 69 6c 6c 20 62 65 20 4c 45 4e 20 63 68 61 72 61 63 74 65 72 73 0a 6c 6f 6e 67 2e 0a 0a	,.will.be.LEN.characters.long...
1aa0	57 68 65 6e 20 6e 6f 74 20 73 70 65 63 69 66 69 65 64 2c 20 45 4c 4c 49 50 53 49 53 20 64 65 66	When.not.specified,.ELLIPSIS.def
1ac0	61 75 6c 74 73 20 74 6f 20 e2 80 98 2e 2e 2e e2 80 99 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	aults.to.............(defalias.'
1ae0	73 2d 74 72 75 6e 63 61 74 65 20 23 5b 28 6c 65 6e 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6c	s-truncate.#[(len.s.&optional.el
1b00	6c 69 70 73 69 73 29 20 22 08 5c 32 30 34 06 00 5c 33 30 33 10 09 47 5c 6e 56 5c 32 30 33 19 00	lipsis).".\204..\303..G\nV\203..
1b20	5c 33 30 34 5c 33 30 35 09 5c 33 30 36 5c 6e 08 47 5a 4f 08 23 5c 32 30 37 09 5c 32 30 37 22 20	\304\305.\306\n.GZO.#\207.\207".
1b40	5b 65 6c 6c 69 70 73 69 73 20 73 20 6c 65 6e 20 22 2e 2e 2e 22 20 66 6f 72 6d 61 74 20 22 25 73	[ellipsis.s.len."...".format."%s
1b60	25 73 22 20 30 5d 20 36 20 28 23 24 20 2e 20 36 36 37 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64	%s".0].6.(#$...6677)]).(byte-cod
1b80	65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31	e."\300\301\302\303#\210\300\301
1ba0	5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 74	\304\303#\207".[function-put.s-t
1bc0	72 75 6e 63 61 74 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d	runcate.pure.t.side-effect-free]
1be0	20 34 29 0a 23 40 35 36 20 49 66 20 53 20 69 73 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20 4c 45 4e	.4).#@56.If.S.is.longer.than.LEN
1c00	2c 20 77 72 61 70 20 74 68 65 20 77 6f 72 64 73 20 77 69 74 68 20 6e 65 77 6c 69 6e 65 73 2e 1f	,.wrap.the.words.with.newlines..
1c20	0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 77 6f 72 64 2d 77 72 61 70 20 23 5b 28 6c 65 6e 20 73	.(defalias.'s-word-wrap.#[(len.s
1c40	29 20 22 5c 33 30 35 20 18 5c 33 30 36 5c 32 31 36 5c 33 30 37 5c 33 31 30 21 19 72 09 71 5c 32	)."\305..\306\216\307\310!.r.q\2
1c60	31 30 5c 33 31 31 5c 32 31 36 5c 6e 63 5c 32 31 30 0b 1c 5c 33 31 32 65 64 5c 22 5c 32 31 30 29	10\311\216\nc\210..\312ed\"\210)
1c80	65 64 7b 2d 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72	ed{-\207".[save-match-data-inter
1ca0	6e 61 6c 20 23 31 3d 23 3a 74 65 6d 70 2d 62 75 66 66 65 72 20 73 20 6c 65 6e 20 66 69 6c 6c 2d	nal.#1=#:temp-buffer.s.len.fill-
1cc0	63 6f 6c 75 6d 6e 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33	column.match-data.#[nil."\301.\3
1ce0	30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72	02\"\207".[save-match-data-inter
1d00	6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d	nal.set-match-data.evaporate].3]
1d20	20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22 20 2a 74 65 6d 70 2a 22 20 23	.generate-new-buffer.".*temp*".#
1d40	5b 6e 69 6c 20 22 5c 33 30 31 08 21 5c 32 30 35 09 00 5c 33 30 32 08 21 5c 32 30 37 22 20 5b 23	[nil."\301.!\205..\302.!\207".[#
1d60	31 23 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 32 5d 20 66	1#.buffer-name.kill-buffer].2].f
1d80	69 6c 6c 2d 72 65 67 69 6f 6e 5d 20 33 20 28 23 24 20 2e 20 37 31 34 35 29 5d 29 0a 28 66 75 6e	ill-region].3.(#$...7145)]).(fun
1da0	63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 77 6f 72 64 2d 77 72 61 70 20 27 73 69 64 65 2d 65 66 66	ction-put.'s-word-wrap.'side-eff
1dc0	65 63 74 2d 66 72 65 65 20 74 29 0a 23 40 36 35 20 49 66 20 53 20 69 73 20 73 68 6f 72 74 65 72	ect-free.t).#@65.If.S.is.shorter
1de0	20 74 68 61 6e 20 4c 45 4e 2c 20 70 61 64 20 69 74 20 77 69 74 68 20 73 70 61 63 65 73 20 73 6f	.than.LEN,.pad.it.with.spaces.so
1e00	20 69 74 20 69 73 20 63 65 6e 74 65 72 65 64 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63	.it.is.centered...(defalias.'s-c
1e20	65 6e 74 65 72 20 23 5b 28 6c 65 6e 20 73 29 20 22 5c 33 30 33 08 09 47 5a 5d 1a 5c 33 30 34 5c	enter.#[(len.s)."\303..GZ].\304\
1e40	33 30 35 5c 6e 5c 33 30 36 5c 22 5c 33 30 37 5c 22 09 5c 33 30 34 5c 33 31 30 5c 6e 5c 33 30 36	305\n\306\"\307\".\304\310\n\306
1e60	5c 22 5c 33 30 37 5c 22 51 29 5c 32 30 37 22 20 5b 6c 65 6e 20 73 20 65 78 74 72 61 20 30 20 6d	\"\307\"Q)\207".[len.s.extra.0.m
1e80	61 6b 65 2d 73 74 72 69 6e 67 20 63 65 69 6c 69 6e 67 20 32 20 33 32 20 66 6c 6f 6f 72 5d 20 36	ake-string.ceiling.2.32.floor].6
1ea0	20 28 23 24 20 2e 20 37 36 33 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	.(#$...7633)]).(byte-code."\300\
1ec0	33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33	301\302\303#\210\300\301\304\303
1ee0	23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 65 6e 74 65 72 20 70 75	#\207".[function-put.s-center.pu
1f00	72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 36 30 20 49	re.t.side-effect-free].4).#@60.I
1f20	66 20 53 20 69 73 20 73 68 6f 72 74 65 72 20 74 68 61 6e 20 4c 45 4e 2c 20 70 61 64 20 69 74 20	f.S.is.shorter.than.LEN,.pad.it.
1f40	77 69 74 68 20 50 41 44 44 49 4e 47 20 6f 6e 20 74 68 65 20 6c 65 66 74 2e 1f 0a 28 64 65 66 61	with.PADDING.on.the.left...(defa
1f60	6c 69 61 73 20 27 73 2d 70 61 64 2d 6c 65 66 74 20 23 5b 28 6c 65 6e 20 70 61 64 64 69 6e 67 20	lias.'s-pad-left.#[(len.padding.
1f80	73 29 20 22 5c 33 30 34 08 09 47 5a 5d 1a 5c 33 30 35 5c 6e 5c 33 30 36 0b 21 5c 22 09 50 29 5c	s)."\304..GZ].\305\n\306.!\".P)\
1fa0	32 30 37 22 20 5b 6c 65 6e 20 73 20 65 78 74 72 61 20 70 61 64 64 69 6e 67 20 30 20 6d 61 6b 65	207".[len.s.extra.padding.0.make
1fc0	2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 2d 74 6f 2d 63 68 61 72 5d 20 34 20 28 23 24 20 2e 20	-string.string-to-char].4.(#$...
1fe0	37 39 36 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	7967)]).(byte-code."\300\301\302
2000	5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20	\303#\210\300\301\304\303#\207".
2020	5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 70 61 64 2d 6c 65 66 74 20 70 75 72 65 20 74 20	[function-put.s-pad-left.pure.t.
2040	73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 36 31 20 49 66 20 53 20 69	side-effect-free].4).#@61.If.S.i
2060	73 20 73 68 6f 72 74 65 72 20 74 68 61 6e 20 4c 45 4e 2c 20 70 61 64 20 69 74 20 77 69 74 68 20	s.shorter.than.LEN,.pad.it.with.
2080	50 41 44 44 49 4e 47 20 6f 6e 20 74 68 65 20 72 69 67 68 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73	PADDING.on.the.right...(defalias
20a0	20 27 73 2d 70 61 64 2d 72 69 67 68 74 20 23 5b 28 6c 65 6e 20 70 61 64 64 69 6e 67 20 73 29 20	.'s-pad-right.#[(len.padding.s).
20c0	22 5c 33 30 34 08 09 47 5a 5d 1a 09 5c 33 30 35 5c 6e 5c 33 30 36 0b 21 5c 22 50 29 5c 32 30 37	"\304..GZ]..\305\n\306.!\"P)\207
20e0	22 20 5b 6c 65 6e 20 73 20 65 78 74 72 61 20 70 61 64 64 69 6e 67 20 30 20 6d 61 6b 65 2d 73 74	".[len.s.extra.padding.0.make-st
2100	72 69 6e 67 20 73 74 72 69 6e 67 2d 74 6f 2d 63 68 61 72 5d 20 35 20 28 23 24 20 2e 20 38 32 38	ring.string-to-char].5.(#$...828
2120	32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	2)]).(byte-code."\300\301\302\30
2140	33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75	3#\210\300\301\304\303#\207".[fu
2160	6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 70 61 64 2d 72 69 67 68 74 20 70 75 72 65 20 74 20 73 69	nction-put.s-pad-right.pure.t.si
2180	64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 34 31 20 52 65 74 75 72 6e 73 20	de-effect-free].4).#@41.Returns.
21a0	75 70 20 74 6f 20 74 68 65 20 4c 45 4e 20 66 69 72 73 74 20 63 68 61 72 73 20 6f 66 20 53 2e 1f	up.to.the.LEN.first.chars.of.S..
21c0	0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6c 65 66 74 20 23 5b 28 6c 65 6e 20 73 29 20 22 08 47	.(defalias.'s-left.#[(len.s).".G
21e0	09 56 5c 32 30 33 5c 66 00 08 5c 33 30 32 09 4f 5c 32 30 37 08 5c 32 30 37 22 20 5b 73 20 6c 65	.V\203\f..\302.O\207.\207".[s.le
2200	6e 20 30 5d 20 33 20 28 23 24 20 2e 20 38 36 30 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20	n.0].3.(#$...8600)]).(byte-code.
2220	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33	"\300\301\302\303#\210\300\301\3
2240	30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6c 65 66	04\303#\207".[function-put.s-lef
2260	74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40	t.pure.t.side-effect-free].4).#@
2280	34 30 20 52 65 74 75 72 6e 73 20 75 70 20 74 6f 20 74 68 65 20 4c 45 4e 20 6c 61 73 74 20 63 68	40.Returns.up.to.the.LEN.last.ch
22a0	61 72 73 20 6f 66 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 72 69 67 68 74 20 23 5b	ars.of.S...(defalias.'s-right.#[
22c0	28 6c 65 6e 20 73 29 20 22 08 47 5c 32 31 31 19 5c 6e 56 5c 32 30 33 12 00 08 09 5c 6e 5a 09 4f	(len.s).".G\211.\nV\203....\nZ.O
22e0	5c 32 30 32 13 00 08 29 5c 32 30 37 22 20 5b 73 20 6c 20 6c 65 6e 5d 20 34 20 28 23 24 20 2e 20	\202...)\207".[s.l.len].4.(#$...
2300	38 38 33 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	8835)]).(byte-code."\300\301\302
2320	5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20	\303#\210\300\301\304\303#\207".
2340	5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 72 69 67 68 74 20 70 75 72 65 20 74 20 73 69 64	[function-put.s-right.pure.t.sid
2360	65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 34 32 20 44 6f 65 73 20 53 20 65	e-effect-free].4).#@142.Does.S.e
2380	6e 64 20 77 69 74 68 20 53 55 46 46 49 58 3f 0a 0a 49 66 20 49 47 4e 4f 52 45 2d 43 41 53 45 20	nd.with.SUFFIX?..If.IGNORE-CASE.
23a0	69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 64 6f	is.non-nil,.the.comparison.is.do
23c0	6e 65 20 77 69 74 68 6f 75 74 20 70 61 79 69 6e 67 0a 61 74 74 65 6e 74 69 6f 6e 20 74 6f 20 63	ne.without.paying.attention.to.c
23e0	61 73 65 20 64 69 66 66 65 72 65 6e 63 65 73 2e 0a 0a 41 6c 69 61 73 3a 20 60 73 2d 73 75 66 66	ase.differences...Alias:.`s-suff
2400	69 78 3f 27 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 65 6e 64 73 2d 77 69 74 68 5c 3f 20 23	ix?'..(defalias.'s-ends-with\?.#
2420	5b 28 73 75 66 66 69 78 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 69 67 6e 6f 72 65 2d 63 61 73 65	[(suffix.s.&optional.ignore-case
2440	29 20 22 08 47 09 47 5a 5c 32 31 31 1a 5c 33 30 34 59 5c 32 30 35 18 00 5c 33 30 35 09 5c 33 30	).".G.GZ\211.\304Y\205..\305.\30
2460	36 5c 32 31 31 08 5c 6e 5c 33 30 36 0b 26 07 5c 33 30 37 3d 29 5c 32 30 37 22 20 5b 73 20 73 75	6\211.\n\306.&.\307=)\207".[s.su
2480	66 66 69 78 20 73 74 61 72 74 2d 70 6f 73 20 69 67 6e 6f 72 65 2d 63 61 73 65 20 30 20 63 6f 6d	ffix.start-pos.ignore-case.0.com
24a0	70 61 72 65 2d 73 74 72 69 6e 67 73 20 6e 69 6c 20 74 5d 20 39 20 28 23 24 20 2e 20 39 30 38 30	pare-strings.nil.t].9.(#$...9080
24c0	29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	)]).(byte-code."\300\301\302\303
24e0	23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e	#\210\300\301\304\303#\207".[fun
2500	63 74 69 6f 6e 2d 70 75 74 20 73 2d 65 6e 64 73 2d 77 69 74 68 5c 3f 20 70 75 72 65 20 74 20 73	ction-put.s-ends-with\?.pure.t.s
2520	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 32 30 39 20 44 6f 65 73 20 53	ide-effect-free].4).#@209.Does.S
2540	20 73 74 61 72 74 20 77 69 74 68 20 50 52 45 46 49 58 3f 0a 0a 49 66 20 49 47 4e 4f 52 45 2d 43	.start.with.PREFIX?..If.IGNORE-C
2560	41 53 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 69	ASE.is.non-nil,.the.comparison.i
2580	73 20 64 6f 6e 65 20 77 69 74 68 6f 75 74 20 70 61 79 69 6e 67 0a 61 74 74 65 6e 74 69 6f 6e 20	s.done.without.paying.attention.
25a0	74 6f 20 63 61 73 65 20 64 69 66 66 65 72 65 6e 63 65 73 2e 0a 0a 41 6c 69 61 73 3a 20 60 73 2d	to.case.differences...Alias:.`s-
25c0	70 72 65 66 69 78 3f 27 2e 20 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72 61 70 70	prefix?'..This.is.a.simple.wrapp
25e0	65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 0a 60 73 74 72 69 6e 67 2d 70	er.around.the.built-in.`string-p
2600	72 65 66 69 78 2d 70 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 74 61 72 74 73 2d 77	refix-p'...(defalias.'s-starts-w
2620	69 74 68 5c 3f 20 23 5b 28 70 72 65 66 69 78 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 69 67 6e 6f	ith\?.#[(prefix.s.&optional.igno
2640	72 65 2d 63 61 73 65 29 20 22 5c 33 30 33 08 09 5c 6e 23 5c 32 30 37 22 20 5b 70 72 65 66 69 78	re-case)."\303..\n#\207".[prefix
2660	20 73 20 69 67 6e 6f 72 65 2d 63 61 73 65 20 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 5d 20	.s.ignore-case.string-prefix-p].
2680	34 20 28 23 24 20 2e 20 39 35 33 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	4.(#$...9530)]).(byte-code."\300
26a0	5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30	\301\302\303#\210\300\301\304\30
26c0	33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 73 74 61 72 74 73 2d 77	3#\207".[function-put.s-starts-w
26e0	69 74 68 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34	ith\?.pure.t.side-effect-free].4
2700	29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 2d 74 72 75 74 68 79 5c 3f 20 23 5b 28 76 61 6c 29	).(defalias.'s--truthy\?.#[(val)
2720	20 22 08 3f 3f 5c 32 30 37 22 20 5b 76 61 6c 5d 20 31 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20	.".??\207".[val].1]).(byte-code.
2740	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33	"\300\301\302\303#\210\300\301\3
2760	30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 2d 74 72	04\303#\207".[function-put.s--tr
2780	75 74 68 79 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20	uthy\?.pure.t.side-effect-free].
27a0	34 29 0a 23 40 31 32 31 20 44 6f 65 73 20 53 20 63 6f 6e 74 61 69 6e 20 4e 45 45 44 4c 45 3f 0a	4).#@121.Does.S.contain.NEEDLE?.
27c0	0a 49 66 20 49 47 4e 4f 52 45 2d 43 41 53 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20	.If.IGNORE-CASE.is.non-nil,.the.
27e0	63 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 77 69 74 68 6f 75 74 20 70 61 79 69 6e	comparison.is.done.without.payin
2800	67 0a 61 74 74 65 6e 74 69 6f 6e 20 74 6f 20 63 61 73 65 20 64 69 66 66 65 72 65 6e 63 65 73 2e	g.attention.to.case.differences.
2820	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 6f 6e 74 61 69 6e 73 5c 3f 20 23 5b 28 6e 65 65	..(defalias.'s-contains\?.#[(nee
2840	64 6c 65 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 69 67 6e 6f 72 65 2d 63 61 73 65 29 20 22 08 19	dle.s.&optional.ignore-case)."..
2860	5c 33 30 35 5c 33 30 36 5c 6e 21 0b 5c 33 30 37 5c 33 31 30 1c 5c 33 31 31 03 03 03 23 29 5c 32	\305\306\n!.\307\310.\311...#)\2
2880	36 36 5c 32 30 33 21 29 5c 32 30 37 22 20 5b 69 67 6e 6f 72 65 2d 63 61 73 65 20 63 61 73 65 2d	66\203!)\207".[ignore-case.case-
28a0	66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 65 65 64 6c 65 20 73 20 69 6e 68 69 62 69 74 2d 63 68 61	fold-search.needle.s.inhibit-cha
28c0	6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 73 2d 2d 74 72 75 74 68 79 5c 3f 20 72 65 67	nging-match-data.s--truthy\?.reg
28e0	65 78 70 2d 71 75 6f 74 65 20 6e 69 6c 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 38 20	exp-quote.nil.t.string-match].8.
2900	28 23 24 20 2e 20 31 30 31 35 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	(#$...10153)]).(byte-code."\300\
2920	33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33	301\302\303#\210\300\301\304\303
2940	23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 6f 6e 74 61 69 6e 73 5c	#\207".[function-put.s-contains\
2960	3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40	?.pure.t.side-effect-free].4).#@
2980	38 32 20 49 73 20 53 31 20 65 71 75 61 6c 20 74 6f 20 53 32 3f 0a 0a 54 68 69 73 20 69 73 20 61	82.Is.S1.equal.to.S2?..This.is.a
29a0	20 73 69 6d 70 6c 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74	.simple.wrapper.around.the.built
29c0	2d 69 6e 20 60 73 74 72 69 6e 67 2d 65 71 75 61 6c 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	-in.`string-equal'...(defalias.'
29e0	73 2d 65 71 75 61 6c 73 5c 3f 20 23 5b 28 73 31 20 73 32 29 20 22 08 09 5c 32 33 30 5c 32 30 37	s-equals\?.#[(s1.s2)."..\230\207
2a00	22 20 5b 73 31 20 73 32 5d 20 32 20 28 23 24 20 2e 20 31 30 36 32 37 29 5d 29 0a 28 62 79 74 65	".[s1.s2].2.(#$...10627)]).(byte
2a20	2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30	-code."\300\301\302\303#\210\300
2a40	5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74	\301\304\303#\207".[function-put
2a60	20 73 2d 65 71 75 61 6c 73 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66	.s-equals\?.pure.t.side-effect-f
2a80	72 65 65 5d 20 34 29 0a 23 40 38 33 20 49 73 20 53 31 20 6c 65 73 73 20 74 68 61 6e 20 53 32 3f	ree].4).#@83.Is.S1.less.than.S2?
2aa0	0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e	..This.is.a.simple.wrapper.aroun
2ac0	64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 73 74 72 69 6e 67 2d 6c 65 73 73 70 27 2e 1f 0a	d.the.built-in.`string-lessp'...
2ae0	28 64 65 66 61 6c 69 61 73 20 27 73 2d 6c 65 73 73 5c 3f 20 23 5b 28 73 31 20 73 32 29 20 22 08	(defalias.'s-less\?.#[(s1.s2).".
2b00	09 5c 32 33 31 5c 32 30 37 22 20 5b 73 31 20 73 32 5d 20 32 20 28 23 24 20 2e 20 31 30 38 39 33	.\231\207".[s1.s2].2.(#$...10893
2b20	29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	)]).(byte-code."\300\301\302\303
2b40	23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e	#\210\300\301\304\303#\207".[fun
2b60	63 74 69 6f 6e 2d 70 75 74 20 73 2d 6c 65 73 73 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65	ction-put.s-less\?.pure.t.side-e
2b80	66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 33 39 20 44 6f 65 73 20 52 45 47 45 58 50	ffect-free].4).#@139.Does.REGEXP
2ba0	20 6d 61 74 63 68 20 53 3f 0a 49 66 20 53 54 41 52 54 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 74 68	.match.S?.If.START.is.non-nil.th
2bc0	65 20 73 65 61 72 63 68 20 73 74 61 72 74 73 20 61 74 20 74 68 61 74 20 69 6e 64 65 78 2e 0a 0a	e.search.starts.at.that.index...
2be0	54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20	This.is.a.simple.wrapper.around.
2c00	74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 27 2e 1f 0a	the.built-in.`string-match-p'...
2c20	28 64 65 66 61 6c 69 61 73 20 27 73 2d 6d 61 74 63 68 65 73 5c 3f 20 23 5b 28 72 65 67 65 78 70	(defalias.'s-matches\?.#[(regexp
2c40	20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 61 72 74 29 20 22 5c 33 30 34 08 09 5c 6e 5c 33 30	.s.&optional.start)."\304..\n\30
2c60	35 1b 5c 33 30 36 03 03 03 23 29 5c 32 36 36 5c 32 30 33 21 5c 32 30 37 22 20 5b 72 65 67 65 78	5.\306...#)\266\203!\207".[regex
2c80	70 20 73 20 73 74 61 72 74 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68	p.s.start.inhibit-changing-match
2ca0	2d 64 61 74 61 20 73 2d 2d 74 72 75 74 68 79 5c 3f 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68	-data.s--truthy\?.t.string-match
2cc0	5d 20 38 20 28 23 24 20 2e 20 31 31 31 35 37 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74	].8.(#$...11157)]).(function-put
2ce0	20 27 73 2d 6d 61 74 63 68 65 73 5c 3f 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20	.'s-matches\?.'side-effect-free.
2d00	74 29 0a 23 40 33 31 20 49 73 20 53 20 6e 69 6c 20 6f 72 20 74 68 65 20 65 6d 70 74 79 20 73 74	t).#@31.Is.S.nil.or.the.empty.st
2d20	72 69 6e 67 3f 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 62 6c 61 6e 6b 5c 3f 20 23 5b 28 73	ring?..(defalias.'s-blank\?.#[(s
2d40	29 20 22 08 3f 5c 32 30 36 08 00 08 5c 33 30 31 5c 32 33 30 5c 32 30 37 22 20 5b 73 20 22 22 5d	).".?\206...\301\230\207".[s.""]
2d60	20 32 20 28 23 24 20 2e 20 31 31 35 32 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	.2.(#$...11528)]).(byte-code."\3
2d80	30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c	00\301\302\303#\210\300\301\304\
2da0	33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 62 6c 61 6e 6b 5c	303#\207".[function-put.s-blank\
2dc0	3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40	?.pure.t.side-effect-free].4).#@
2de0	36 36 20 49 73 20 53 20 6e 69 6c 20 6f 72 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 20	66.Is.S.nil.or.the.empty.string.
2e00	6f 72 20 73 74 72 69 6e 67 20 6f 6e 6c 79 20 63 6f 6e 74 61 69 6e 73 20 77 68 69 74 65 73 70 61	or.string.only.contains.whitespa
2e20	63 65 3f 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 62 6c 61 6e 6b 2d 73 74 72 5c 3f 20 23 5b	ce?..(defalias.'s-blank-str\?.#[
2e40	28 73 29 20 22 5c 33 30 31 08 21 5c 32 30 36 0b 00 5c 33 30 31 5c 33 30 32 08 21 21 5c 32 30 37	(s)."\301.!\206..\301\302.!!\207
2e60	22 20 5b 73 20 73 2d 62 6c 61 6e 6b 5c 3f 20 73 2d 74 72 69 6d 5d 20 33 20 28 23 24 20 2e 20 31	".[s.s-blank\?.s-trim].3.(#$...1
2e80	31 37 34 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	1747)]).(byte-code."\300\301\302
2ea0	5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20	\303#\210\300\301\304\303#\207".
2ec0	5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 62 6c 61 6e 6b 2d 73 74 72 5c 3f 20 70 75 72 65	[function-put.s-blank-str\?.pure
2ee0	20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 34 34 20 49 73 20	.t.side-effect-free].4).#@44.Is.
2f00	53 20 61 6e 79 74 68 69 6e 67 20 62 75 74 20 6e 69 6c 20 6f 72 20 74 68 65 20 65 6d 70 74 79 20	S.anything.but.nil.or.the.empty.
2f20	73 74 72 69 6e 67 3f 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70 72 65 73 65 6e 74 5c 3f 20	string?..(defalias.'s-present\?.
2f40	23 5b 28 73 29 20 22 5c 33 30 31 08 21 3f 5c 32 30 37 22 20 5b 73 20 73 2d 62 6c 61 6e 6b 5c 3f	#[(s)."\301.!?\207".[s.s-blank\?
2f60	5d 20 32 20 28 23 24 20 2e 20 31 32 30 32 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	].2.(#$...12029)]).(byte-code."\
2f80	33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34	300\301\302\303#\210\300\301\304
2fa0	5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 70 72 65 73 65	\303#\207".[function-put.s-prese
2fc0	6e 74 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29	nt\?.pure.t.side-effect-free].4)
2fe0	0a 23 40 35 34 20 52 65 74 75 72 6e 20 53 20 69 66 20 69 74 27 73 20 60 73 2d 70 72 65 73 65 6e	.#@54.Return.S.if.it's.`s-presen
3000	74 3f 27 2c 20 6f 74 68 65 72 77 69 73 65 20 72 65 74 75 72 6e 20 6e 69 6c 2e 1f 0a 28 64 65 66	t?',.otherwise.return.nil...(def
3020	61 6c 69 61 73 20 27 73 2d 70 72 65 73 65 6e 63 65 20 23 5b 28 73 29 20 22 5c 33 30 31 08 21 5c	alias.'s-presence.#[(s)."\301.!\
3040	32 30 35 07 00 08 5c 32 30 37 22 20 5b 73 20 73 2d 70 72 65 73 65 6e 74 5c 3f 5d 20 32 20 28 23	205...\207".[s.s-present\?].2.(#
3060	24 20 2e 20 31 32 32 36 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	$...12262)]).(byte-code."\300\30
3080	31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c	1\302\303#\210\300\301\304\303#\
30a0	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 70 72 65 73 65 6e 63 65 20 70 75	207".[function-put.s-presence.pu
30c0	72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 34 31 20 41	re.t.side-effect-free].4).#@41.A
30e0	72 65 20 61 6c 6c 20 74 68 65 20 6c 65 74 74 65 72 73 20 69 6e 20 53 20 69 6e 20 6c 6f 77 65 72	re.all.the.letters.in.S.in.lower
3100	20 63 61 73 65 3f 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6c 6f 77 65 72 63 61 73 65 5c 3f	.case?..(defalias.'s-lowercase\?
3120	20 23 5b 28 73 29 20 22 5c 33 30 33 18 5c 33 30 34 09 5c 33 30 33 5c 33 30 35 1a 5c 33 30 36 03	.#[(s)."\303.\304.\303\305.\306.
3140	03 03 23 29 5c 32 36 36 5c 32 30 33 29 3f 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73	..#)\266\203)?\207".[case-fold-s
3160	65 61 72 63 68 20 73 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64	earch.s.inhibit-changing-match-d
3180	61 74 61 20 6e 69 6c 20 22 5b 5b 3a 75 70 70 65 72 3a 5d 5d 22 20 74 20 73 74 72 69 6e 67 2d 6d	ata.nil."[[:upper:]]".t.string-m
31a0	61 74 63 68 5d 20 37 20 28 23 24 20 2e 20 31 32 35 31 31 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e	atch].7.(#$...12511)]).(function
31c0	2d 70 75 74 20 27 73 2d 6c 6f 77 65 72 63 61 73 65 5c 3f 20 27 73 69 64 65 2d 65 66 66 65 63 74	-put.'s-lowercase\?.'side-effect
31e0	2d 66 72 65 65 20 74 29 0a 23 40 34 31 20 41 72 65 20 61 6c 6c 20 74 68 65 20 6c 65 74 74 65 72	-free.t).#@41.Are.all.the.letter
3200	73 20 69 6e 20 53 20 69 6e 20 75 70 70 65 72 20 63 61 73 65 3f 1f 0a 28 64 65 66 61 6c 69 61 73	s.in.S.in.upper.case?..(defalias
3220	20 27 73 2d 75 70 70 65 72 63 61 73 65 5c 3f 20 23 5b 28 73 29 20 22 5c 33 30 33 18 5c 33 30 34	.'s-uppercase\?.#[(s)."\303.\304
3240	09 5c 33 30 33 5c 33 30 35 1a 5c 33 30 36 03 03 03 23 29 5c 32 36 36 5c 32 30 33 29 3f 5c 32 30	.\303\305.\306...#)\266\203)?\20
3260	37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 73 20 69 6e 68 69 62 69 74 2d 63	7".[case-fold-search.s.inhibit-c
3280	68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 6e 69 6c 20 22 5b 5b 3a 6c 6f 77 65 72	hanging-match-data.nil."[[:lower
32a0	3a 5d 5d 22 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 37 20 28 23 24 20 2e 20 31 32 37	:]]".t.string-match].7.(#$...127
32c0	38 32 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 75 70 70 65 72 63 61 73 65	82)]).(function-put.'s-uppercase
32e0	5c 3f 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 23 40 35 36 20 41 72 65	\?.'side-effect-free.t).#@56.Are
3300	20 74 68 65 72 65 20 62 6f 74 68 20 6c 6f 77 65 72 20 63 61 73 65 20 61 6e 64 20 75 70 70 65 72	.there.both.lower.case.and.upper
3320	20 63 61 73 65 20 6c 65 74 74 65 72 73 20 69 6e 20 53 3f 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	.case.letters.in.S?..(defalias.'
3340	73 2d 6d 69 78 65 64 63 61 73 65 5c 3f 20 23 5b 28 73 29 20 22 5c 33 30 33 18 5c 33 30 34 5c 33	s-mixedcase\?.#[(s)."\303.\304\3
3360	30 35 09 5c 33 30 33 5c 33 30 36 1a 5c 33 30 37 03 03 03 23 29 5c 32 36 36 5c 32 30 33 5c 32 30	05.\303\306.\307...#)\266\203\20
3380	35 20 00 5c 33 31 30 09 5c 33 30 33 5c 33 30 36 1a 5c 33 30 37 03 03 03 23 29 5c 32 36 36 5c 32	5..\310.\303\306.\307...#)\266\2
33a0	30 33 21 29 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 73 20 69 6e	03!)\207".[case-fold-search.s.in
33c0	68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 6e 69 6c 20 73 2d	hibit-changing-match-data.nil.s-
33e0	2d 74 72 75 74 68 79 5c 3f 20 22 5b 5b 3a 6c 6f 77 65 72 3a 5d 5d 22 20 74 20 73 74 72 69 6e 67	-truthy\?."[[:lower:]]".t.string
3400	2d 6d 61 74 63 68 20 22 5b 5b 3a 75 70 70 65 72 3a 5d 5d 22 5d 20 38 20 28 23 24 20 2e 20 31 33	-match."[[:upper:]]"].8.(#$...13
3420	30 35 33 29 5d 29 0a 23 40 37 33 20 49 6e 20 53 2c 20 69 73 20 74 68 65 20 66 69 72 73 74 20 6c	053)]).#@73.In.S,.is.the.first.l
3440	65 74 74 65 72 20 75 70 70 65 72 20 63 61 73 65 2c 20 61 6e 64 20 61 6c 6c 20 6f 74 68 65 72 20	etter.upper.case,.and.all.other.
3460	6c 65 74 74 65 72 73 20 6c 6f 77 65 72 20 63 61 73 65 3f 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	letters.lower.case?..(defalias.'
3480	73 2d 63 61 70 69 74 61 6c 69 7a 65 64 5c 3f 20 23 5b 28 73 29 20 22 5c 33 30 33 18 5c 33 30 34	s-capitalized\?.#[(s)."\303.\304
34a0	5c 33 30 35 09 5c 33 30 33 5c 33 30 36 1a 5c 33 30 37 03 03 03 23 29 5c 32 36 36 5c 32 30 33 21	\305.\303\306.\307...#)\266\203!
34c0	29 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 73 20 69 6e 68 69 62	)\207".[case-fold-search.s.inhib
34e0	69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 6e 69 6c 20 73 2d 2d 74 72	it-changing-match-data.nil.s--tr
3500	75 74 68 79 5c 3f 20 22 5e 5b 5b 3a 75 70 70 65 72 3a 5d 5d 5b 5e 5b 3a 75 70 70 65 72 3a 5d 5d	uthy\?."^[[:upper:]][^[:upper:]]
3520	2a 24 22 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 38 20 28 23 24 20 2e 20 31 33 33 35	*$".t.string-match].8.(#$...1335
3540	36 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 63 61 70 69 74 61 6c 69 7a 65	6)]).(function-put.'s-capitalize
3560	64 5c 3f 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 23 40 31 36 20 49 73	d\?.'side-effect-free.t).#@16.Is
3580	20 53 20 61 20 6e 75 6d 62 65 72 3f 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6e 75 6d 65 72	.S.a.number?..(defalias.'s-numer
35a0	69 63 5c 3f 20 23 5b 28 73 29 20 22 5c 33 30 32 5c 33 30 33 08 5c 33 30 34 5c 33 30 35 19 5c 33	ic\?.#[(s)."\302\303.\304\305.\3
35c0	30 36 03 03 03 23 29 5c 32 36 36 5c 32 30 33 21 5c 32 30 37 22 20 5b 73 20 69 6e 68 69 62 69 74	06...#)\266\203!\207".[s.inhibit
35e0	2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 73 2d 2d 74 72 75 74 68 79 5c 3f	-changing-match-data.s--truthy\?
3600	20 22 5e 5b 30 2d 39 5d 2b 24 22 20 6e 69 6c 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20	."^[0-9]+$".nil.t.string-match].
3620	38 20 28 23 24 20 2e 20 31 33 36 39 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	8.(#$...13694)]).(byte-code."\30
3640	30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33	0\301\302\303#\210\300\301\304\3
3660	30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6e 75 6d 65 72 69 63	03#\207".[function-put.s-numeric
3680	5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23	\?.pure.t.side-effect-free].4).#
36a0	40 32 39 20 52 65 70 6c 61 63 65 73 20 4f 4c 44 20 77 69 74 68 20 4e 45 57 20 69 6e 20 53 2e 1f	@29.Replaces.OLD.with.NEW.in.S..
36c0	0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 72 65 70 6c 61 63 65 20 23 5b 28 6f 6c 64 20 6e 65 77	.(defalias.'s-replace.#[(old.new
36e0	20 73 29 20 22 5c 33 30 33 5c 33 30 34 08 21 09 5c 6e 5c 33 30 35 5c 32 31 31 25 5c 32 30 37 22	.s)."\303\304.!.\n\305\211%\207"
3700	20 5b 6f 6c 64 20 6e 65 77 20 73 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74	.[old.new.s.replace-regexp-in-st
3720	72 69 6e 67 20 72 65 67 65 78 70 2d 71 75 6f 74 65 20 74 5d 20 36 20 28 23 24 20 2e 20 31 33 39	ring.regexp-quote.t].6.(#$...139
3740	38 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	88)]).(byte-code."\300\301\302\3
3760	30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 31 30 5c 33 30 35	03#\210\300\301\304\303#\210\305
3780	5c 33 30 36 5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d	\306\307\"\207".[function-put.s-
37a0	72 65 70 6c 61 63 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20	replace.pure.t.side-effect-free.
37c0	64 65 66 61 6c 69 61 73 20 73 2d 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 20 72 65 70 6c 61 63	defalias.s-replace-regexp.replac
37e0	65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73	e-regexp-in-string].4).(defalias
3800	20 27 73 2d 2d 61 67 65 74 20 23 5b 28 61 6c 69 73 74 20 6b 65 79 29 20 22 5c 33 30 32 08 09 5c	.'s--aget.#[(alist.key)."\302..\
3820	22 41 5c 32 30 37 22 20 5b 6b 65 79 20 61 6c 69 73 74 20 61 73 73 6f 63 2d 73 74 72 69 6e 67 5d	"A\207".[key.alist.assoc-string]
3840	20 33 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	.3]).(byte-code."\300\301\302\30
3860	33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75	3#\210\300\301\304\303#\207".[fu
3880	6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 2d 61 67 65 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65	nction-put.s--aget.pure.t.side-e
38a0	66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 37 39 20 52 45 50 4c 41 43 45 4d 45 4e 54 53	ffect-free].4).#@79.REPLACEMENTS
38c0	20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6e 73 2d 63 65 6c 6c 73 2e 20 45 61 63 68 20 60	.is.a.list.of.cons-cells..Each.`
38e0	63 61 72 60 20 69 73 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 60 63 64 72 60 20 69 6e 20 53	car`.is.replaced.with.`cdr`.in.S
3900	2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 72 65 70 6c 61 63 65 2d 61 6c 6c 20 23 5b 28 72	...(defalias.'s-replace-all.#[(r
3920	65 70 6c 61 63 65 6d 65 6e 74 73 20 73 29 20 22 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35	eplacements.s)."\302\303\304\305
3940	08 5c 22 21 5c 33 30 36 09 5c 33 30 37 5c 32 31 31 25 5c 32 30 37 22 20 5b 72 65 70 6c 61 63 65	.\"!\306.\307\211%\207".[replace
3960	6d 65 6e 74 73 20 73 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67	ments.s.replace-regexp-in-string
3980	20 72 65 67 65 78 70 2d 6f 70 74 20 6d 61 70 63 61 72 20 63 61 72 20 23 5b 28 69 74 29 20 22 5c	.regexp-opt.mapcar.car.#[(it)."\
39a0	33 30 32 08 09 5c 22 5c 32 30 37 22 20 5b 72 65 70 6c 61 63 65 6d 65 6e 74 73 20 69 74 20 73 2d	302..\"\207".[replacements.it.s-
39c0	2d 61 67 65 74 5d 20 33 5d 20 74 5d 20 36 20 28 23 24 20 2e 20 31 34 35 31 36 29 5d 29 0a 28 62	-aget].3].t].6.(#$...14516)]).(b
39e0	79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c	yte-code."\300\301\302\303#\210\
3a00	33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d	300\301\304\303#\207".[function-
3a20	70 75 74 20 73 2d 72 65 70 6c 61 63 65 2d 61 6c 6c 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66	put.s-replace-all.pure.t.side-ef
3a40	66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 38 34 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20	fect-free].4).#@84.Convert.S.to.
3a60	6c 6f 77 65 72 20 63 61 73 65 2e 0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72	lower.case...This.is.a.simple.wr
3a80	61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 64 6f 77 6e 63	apper.around.the.built-in.`downc
3aa0	61 73 65 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 64 6f 77 6e 63 61 73 65 20 23 5b 28	ase'...(defalias.'s-downcase.#[(
3ac0	73 29 20 22 08 5c 32 32 37 5c 32 30 37 22 20 5b 73 5d 20 31 20 28 23 24 20 2e 20 31 34 39 33 31	s).".\227\207".[s].1.(#$...14931
3ae0	29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 64 6f 77 6e 63 61 73 65 20 27 73	)]).(function-put.'s-downcase.'s
3b00	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 23 40 38 32 20 43 6f 6e 76 65 72 74 20	ide-effect-free.t).#@82.Convert.
3b20	53 20 74 6f 20 75 70 70 65 72 20 63 61 73 65 2e 0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d 70	S.to.upper.case...This.is.a.simp
3b40	6c 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60	le.wrapper.around.the.built-in.`
3b60	75 70 63 61 73 65 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 75 70 63 61 73 65 20 23 5b	upcase'...(defalias.'s-upcase.#[
3b80	28 73 29 20 22 08 5c 32 32 36 5c 32 30 37 22 20 5b 73 5d 20 31 20 28 23 24 20 2e 20 31 35 31 32	(s).".\226\207".[s].1.(#$...1512
3ba0	38 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 75 70 63 61 73 65 20 27 73 69	8)]).(function-put.'s-upcase.'si
3bc0	64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 23 40 38 39 20 43 6f 6e 76 65 72 74 20 74	de-effect-free.t).#@89.Convert.t
3be0	68 65 20 66 69 72 73 74 20 77 6f 72 64 27 73 20 66 69 72 73 74 20 63 68 61 72 61 63 74 65 72 20	he.first.word's.first.character.
3c00	74 6f 20 75 70 70 65 72 20 63 61 73 65 20 61 6e 64 20 74 68 65 20 72 65 73 74 20 74 6f 20 6c 6f	to.upper.case.and.the.rest.to.lo
3c20	77 65 72 20 63 61 73 65 20 69 6e 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 61 70	wer.case.in.S...(defalias.'s-cap
3c40	69 74 61 6c 69 7a 65 20 23 5b 28 73 29 20 22 08 5c 33 30 31 5c 33 30 32 4f 5c 32 32 36 08 5c 33	italize.#[(s).".\301\302O\226.\3
3c60	30 32 5c 33 30 33 4f 5c 32 32 37 50 5c 32 30 37 22 20 5b 73 20 30 20 31 20 6e 69 6c 5d 20 34 20	02\303O\227P\207".[s.0.1.nil].4.
3c80	28 23 24 20 2e 20 31 35 33 31 39 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d	(#$...15319)]).(function-put.'s-
3ca0	63 61 70 69 74 61 6c 69 7a 65 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a	capitalize.'side-effect-free.t).
3cc0	23 40 31 34 34 20 43 6f 6e 76 65 72 74 20 65 61 63 68 20 77 6f 72 64 27 73 20 66 69 72 73 74 20	#@144.Convert.each.word's.first.
3ce0	63 68 61 72 61 63 74 65 72 20 74 6f 20 75 70 70 65 72 20 63 61 73 65 20 61 6e 64 20 74 68 65 20	character.to.upper.case.and.the.
3d00	72 65 73 74 20 74 6f 20 6c 6f 77 65 72 20 63 61 73 65 20 69 6e 20 53 2e 0a 0a 54 68 69 73 20 69	rest.to.lower.case.in.S...This.i
3d20	73 20 61 20 73 69 6d 70 6c 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75	s.a.simple.wrapper.around.the.bu
3d40	69 6c 74 2d 69 6e 20 60 63 61 70 69 74 61 6c 69 7a 65 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20	ilt-in.`capitalize'...(defalias.
3d60	27 73 2d 74 69 74 6c 65 69 7a 65 20 23 5b 28 73 29 20 22 5c 33 30 31 08 21 5c 32 30 37 22 20 5b	's-titleize.#[(s)."\301.!\207".[
3d80	73 20 63 61 70 69 74 61 6c 69 7a 65 5d 20 32 20 28 23 24 20 2e 20 31 35 35 35 38 29 5d 29 0a 28	s.capitalize].2.(#$...15558)]).(
3da0	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 74 69 74 6c 65 69 7a 65 20 27 73 69 64 65 2d 65	function-put.'s-titleize.'side-e
3dc0	66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 23 40 32 31 31 20 54 68 72 65 61 64 73 20 53 20 74 68	ffect-free.t).#@211.Threads.S.th
3de0	72 6f 75 67 68 20 74 68 65 20 66 6f 72 6d 73 2e 20 49 6e 73 65 72 74 73 20 53 20 61 73 20 74 68	rough.the.forms..Inserts.S.as.th
3e00	65 20 6c 61 73 74 20 69 74 65 6d 0a 69 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 6d	e.last.item.in.the.first.form,.m
3e20	61 6b 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 20 69 74 20 69 66 20 69 74 20 69 73 20 6e 6f 74 20	aking.a.list.of.it.if.it.is.not.
3e40	61 20 6c 69 73 74 0a 61 6c 72 65 61 64 79 2e 20 49 66 20 74 68 65 72 65 20 61 72 65 20 6d 6f 72	a.list.already..If.there.are.mor
3e60	65 20 66 6f 72 6d 73 2c 20 69 6e 73 65 72 74 73 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20	e.forms,.inserts.the.first.form.
3e80	61 73 20 74 68 65 0a 6c 61 73 74 20 69 74 65 6d 20 69 6e 20 73 65 63 6f 6e 64 20 66 6f 72 6d 2c	as.the.last.item.in.second.form,
3ea0	20 65 74 63 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 77 69 74 68 20 27 28 6d 61 63 72 6f	.etc...(defalias.'s-with.'(macro
3ec0	20 2e 20 23 5b 28 73 20 66 6f 72 6d 20 26 72 65 73 74 20 6d 6f 72 65 29 20 22 08 5c 32 30 34 17	...#[(s.form.&rest.more).".\204.
3ee0	00 09 3c 5c 32 30 33 13 00 09 40 5c 33 30 33 09 41 5c 6e 43 5c 22 42 5c 32 30 37 09 5c 6e 44 5c	..<\203...@\303.A\nC\"B\207.\nD\
3f00	32 30 37 5c 33 30 34 5c 32 31 31 5c 6e 09 45 08 42 42 5c 32 30 37 22 20 5b 6d 6f 72 65 20 66 6f	207\304\211\n.E.BB\207".[more.fo
3f20	72 6d 20 73 20 61 70 70 65 6e 64 20 73 2d 77 69 74 68 5d 20 34 20 28 23 24 20 2e 20 31 35 38 32	rm.s.append.s-with].4.(#$...1582
3f40	38 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	8)])).(byte-code."\300\301\302\3
3f60	30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 35 23 5c 32 30 37 22 20 5b 70	03#\210\300\301\304\305#\207".[p
3f80	75 74 20 73 2d 77 69 74 68 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d	ut.s-with.edebug-form-spec.(form
3fa0	20 26 72 65 73 74 20 5b 26 6f 72 20 28 66 75 6e 63 74 69 6f 6e 20 26 72 65 73 74 20 66 6f 72 6d	.&rest.[&or.(function.&rest.form
3fc0	29 20 66 62 6f 75 6e 64 70 5d 29 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e	).fboundp]).lisp-indent-function
3fe0	20 31 5d 20 34 29 0a 23 40 31 34 32 20 52 65 74 75 72 6e 73 20 66 69 72 73 74 20 69 6e 64 65 78	.1].4).#@142.Returns.first.index
4000	20 6f 66 20 4e 45 45 44 4c 45 20 69 6e 20 53 2c 20 6f 72 20 6e 69 6c 2e 0a 0a 49 66 20 49 47 4e	.of.NEEDLE.in.S,.or.nil...If.IGN
4020	4f 52 45 2d 43 41 53 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 63 6f 6d 70 61 72 69	ORE-CASE.is.non-nil,.the.compari
4040	73 6f 6e 20 69 73 20 64 6f 6e 65 20 77 69 74 68 6f 75 74 20 70 61 79 69 6e 67 0a 61 74 74 65 6e	son.is.done.without.paying.atten
4060	74 69 6f 6e 20 74 6f 20 63 61 73 65 20 64 69 66 66 65 72 65 6e 63 65 73 2e 1f 0a 28 64 65 66 61	tion.to.case.differences...(defa
4080	6c 69 61 73 20 27 73 2d 69 6e 64 65 78 2d 6f 66 20 23 5b 28 6e 65 65 64 6c 65 20 73 20 26 6f 70	lias.'s-index-of.#[(needle.s.&op
40a0	74 69 6f 6e 61 6c 20 69 67 6e 6f 72 65 2d 63 61 73 65 29 20 22 08 19 5c 33 30 35 5c 6e 21 0b 5c	tional.ignore-case)."..\305\n!.\
40c0	33 30 36 5c 33 30 37 1c 5c 33 31 30 03 03 03 23 29 5c 32 36 36 5c 32 30 33 29 5c 32 30 37 22 20	306\307.\310...#)\266\203)\207".
40e0	5b 69 67 6e 6f 72 65 2d 63 61 73 65 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 65	[ignore-case.case-fold-search.ne
4100	65 64 6c 65 20 73 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61	edle.s.inhibit-changing-match-da
4120	74 61 20 72 65 67 65 78 70 2d 71 75 6f 74 65 20 6e 69 6c 20 74 20 73 74 72 69 6e 67 2d 6d 61 74	ta.regexp-quote.nil.t.string-mat
4140	63 68 5d 20 37 20 28 23 24 20 2e 20 31 36 33 36 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20	ch].7.(#$...16365)]).(byte-code.
4160	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33	"\300\301\302\303#\210\300\301\3
4180	30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 69 6e 64	04\303#\207".[function-put.s-ind
41a0	65 78 2d 6f 66 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34	ex-of.pure.t.side-effect-free].4
41c0	29 0a 23 40 32 36 20 52 65 74 75 72 6e 20 74 68 65 20 72 65 76 65 72 73 65 20 6f 66 20 53 2e 1f	).#@26.Return.the.reverse.of.S..
41e0	0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 72 65 76 65 72 73 65 20 23 5b 28 73 29 20 22 5c 33 30	.(defalias.'s-reverse.#[(s)."\30
4200	36 20 18 5c 33 30 37 5c 32 31 36 5c 33 31 30 09 21 5c 32 30 33 47 00 09 5c 33 31 31 01 5c 33 31	6..\307\216\310.!\203G..\311.\31
4220	32 5c 22 5c 32 36 32 01 5c 33 31 32 1a 1b 5c 33 31 33 5c 33 31 34 21 5c 32 31 30 0b 5c 32 30 33	2\"\262.\312..\313\314!\210.\203
4240	40 00 0b 5c 32 31 31 41 13 5c 32 34 32 43 1c 5c 33 31 35 0b 40 0d 5c 22 5c 32 30 33 37 00 0b 5c	@..\211A.\242C.\315.@.\"\2037..\
4260	32 31 31 41 13 5c 32 34 32 5c 66 42 14 5c 32 30 32 24 00 5c 66 5c 32 33 37 5c 6e 5c 32 34 34 12	211A.\242\fB.\202$.\f\237\n\244.
4280	29 5c 32 30 32 19 00 5c 6e 5c 32 36 30 01 2a 5c 32 30 32 51 00 09 5c 33 31 31 01 5c 33 31 32 5c	)\202..\n\260.*\202Q..\311.\312\
42a0	22 5c 32 36 32 01 5c 32 33 37 5c 32 36 30 01 2a 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63	"\262.\237\260.*\207".[save-matc
42c0	68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 20 6f 75 74 70 75 74 20 69 6e 70 75 74 20 67	h-data-internal.s.output.input.g
42e0	72 61 70 68 65 6d 65 20 75 63 73 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 63 6f 6d 62 69 6e 69 6e 67 2d	rapheme.ucs-normalize-combining-
4300	63 68 61 72 73 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30	chars.match-data.#[nil."\301.\30
4320	32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e	2\"\207".[save-match-data-intern
4340	61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20	al.set-match-data.evaporate].3].
4360	6d 75 6c 74 69 62 79 74 65 2d 73 74 72 69 6e 67 2d 70 20 61 70 70 65 6e 64 20 6e 69 6c 20 72 65	multibyte-string-p.append.nil.re
4380	71 75 69 72 65 20 75 63 73 2d 6e 6f 72 6d 61 6c 69 7a 65 20 6d 65 6d 71 6c 5d 20 34 20 28 23 24	quire.ucs-normalize.memql].4.(#$
43a0	20 2e 20 31 36 38 33 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	...16839)]).(byte-code."\300\301
43c0	5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32	\302\303#\210\300\301\304\303#\2
43e0	30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 72 65 76 65 72 73 65 20 70 75 72 65	07".[function-put.s-reverse.pure
4400	20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 38 34 20 52 65	.t.side-effect-free].4).#@184.Re
4420	74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 6d 61 74 63 68 65 73 20 66 6f 72 20 52 45 47 45 58	turn.a.list.of.matches.for.REGEX
4440	20 69 6e 20 53 54 52 49 4e 47 2e 0a 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 69 74 73 65 6c 66	.in.STRING...Each.element.itself
4460	20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6d 61 74 63 68 65 73 2c 20 61 73 20 70 65 72 0a 60 6d	.is.a.list.of.matches,.as.per.`m
4480	61 74 63 68 2d 73 74 72 69 6e 67 27 2e 20 4d 75 6c 74 69 70 6c 65 20 6d 61 74 63 68 65 73 20 61	atch-string'..Multiple.matches.a
44a0	74 20 74 68 65 20 73 61 6d 65 20 70 6f 73 69 74 69 6f 6e 20 77 69 6c 6c 20 62 65 0a 69 67 6e 6f	t.the.same.position.will.be.igno
44c0	72 65 64 20 61 66 74 65 72 20 74 68 65 20 66 69 72 73 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20	red.after.the.first...(defalias.
44e0	27 73 2d 6d 61 74 63 68 2d 73 74 72 69 6e 67 73 2d 61 6c 6c 20 23 5b 28 72 65 67 65 78 20 73 74	's-match-strings-all.#[(regex.st
4500	72 69 6e 67 29 20 22 5c 33 30 36 20 18 5c 33 30 37 5c 32 31 36 5c 33 31 30 5c 33 31 31 19 1a 09	ring)."\306..\307\216\310\311...
4520	0b 47 57 5c 32 30 33 49 00 5c 33 31 32 5c 66 0b 09 23 5c 32 30 33 49 00 5c 33 31 31 5c 32 32 34	.GW\203I.\312\f..#\203I.\311\224
4540	54 11 5c 33 31 30 5c 33 30 36 20 47 5c 33 31 33 5c 32 34 35 5c 33 31 31 1d 1e 0d 1e 0e 0d 0e 0d	T.\310\306.G\313\245\311........
4560	55 5c 32 30 34 3f 00 5c 33 31 34 0d 0b 5c 22 0e 0e 42 16 0e 0d 54 5c 32 31 31 15 5c 32 30 32 29	U\204?.\314..\"..B...T\211.\202)
4580	00 0e 0e 5c 32 33 37 5c 6e 42 12 2b 5c 32 30 32 09 00 5c 6e 5c 32 33 37 2c 5c 32 30 37 22 20 5b	...\237\nB.+\202..\n\237,\207".[
45a0	73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 69 20 61 6c 6c 2d 73	save-match-data-internal.i.all-s
45c0	74 72 69 6e 67 73 20 73 74 72 69 6e 67 20 72 65 67 65 78 20 6d 61 74 63 68 20 6d 61 74 63 68 2d	trings.string.regex.match.match-
45e0	64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61	data.#[nil."\301.\302\"\207".[sa
4600	76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68	ve-match-data-internal.set-match
4620	2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 6e 69 6c 20 30 20 73 74 72 69 6e 67	-data.evaporate].3].nil.0.string
4640	2d 6d 61 74 63 68 20 32 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 6e 75 6d 2d 6d 61 74 63 68 65	-match.2.match-string.num-matche
4660	73 20 73 74 72 69 6e 67 73 5d 20 35 20 28 23 24 20 2e 20 31 37 34 33 38 29 5d 29 0a 28 66 75 6e	s.strings].5.(#$...17438)]).(fun
4680	63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 6d 61 74 63 68 2d 73 74 72 69 6e 67 73 2d 61 6c 6c 20 27	ction-put.'s-match-strings-all.'
46a0	73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 23 40 38 38 20 52 65 74 75 72 6e 20	side-effect-free.t).#@88.Return.
46c0	61 20 6c 69 73 74 20 6f 66 20 6d 61 74 63 68 65 64 20 70 6f 73 69 74 69 6f 6e 73 20 66 6f 72 20	a.list.of.matched.positions.for.
46e0	52 45 47 45 58 50 20 69 6e 20 53 54 52 49 4e 47 2e 0a 53 55 42 45 58 50 2d 44 45 50 54 48 20 69	REGEXP.in.STRING..SUBEXP-DEPTH.i
4700	73 20 30 20 62 79 20 64 65 66 61 75 6c 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6d 61	s.0.by.default...(defalias.'s-ma
4720	74 63 68 65 64 2d 70 6f 73 69 74 69 6f 6e 73 2d 61 6c 6c 20 23 5b 28 72 65 67 65 78 70 20 73 74	tched-positions-all.#[(regexp.st
4740	72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 73 75 62 65 78 70 2d 64 65 70 74 68 29 20 22 08 5c	ring.&optional.subexp-depth).".\
4760	32 30 34 06 00 5c 33 30 36 10 5c 33 30 37 20 19 5c 33 31 30 5c 32 31 36 5c 33 30 36 5c 33 31 31	204..\306.\307..\310\216\306\311
4780	1a 1b 5c 33 31 32 5c 66 0d 0b 23 5c 32 30 33 31 00 0b 0d 47 57 5c 32 30 33 31 00 08 5c 32 32 35	..\312\f..#\2031...GW\2031..\225
47a0	1e 0b 08 5c 32 32 34 08 5c 32 32 35 42 5c 6e 42 12 5c 33 30 36 5c 32 32 35 13 29 5c 32 30 32 0f	...\224.\225B\nB.\306\225.)\202.
47c0	00 5c 6e 5c 32 33 37 2c 5c 32 30 37 22 20 5b 73 75 62 65 78 70 2d 64 65 70 74 68 20 73 61 76 65	.\n\237,\207".[subexp-depth.save
47e0	2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 72 65 73 75 6c 74 20 70 6f 73 20	-match-data-internal.result.pos.
4800	72 65 67 65 78 70 20 73 74 72 69 6e 67 20 30 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c	regexp.string.0.match-data.#[nil
4820	20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64	."\301.\302\"\207".[save-match-d
4840	61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70	ata-internal.set-match-data.evap
4860	6f 72 61 74 65 5d 20 33 5d 20 6e 69 6c 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 6d 5d 20 34 20	orate].3].nil.string-match.m].4.
4880	28 23 24 20 2e 20 31 38 31 30 35 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d	(#$...18105)]).(function-put.'s-
48a0	6d 61 74 63 68 65 64 2d 70 6f 73 69 74 69 6f 6e 73 2d 61 6c 6c 20 27 73 69 64 65 2d 65 66 66 65	matched-positions-all.'side-effe
48c0	63 74 2d 66 72 65 65 20 74 29 0a 23 40 32 37 34 20 57 68 65 6e 20 74 68 65 20 67 69 76 65 6e 20	ct-free.t).#@274.When.the.given.
48e0	65 78 70 72 65 73 73 69 6f 6e 20 6d 61 74 63 68 65 73 20 74 68 65 20 73 74 72 69 6e 67 2c 20 74	expression.matches.the.string,.t
4900	68 69 73 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 61 20 6c 69 73 74 0a 6f 66 20 74	his.function.returns.a.list.of.t
4920	68 65 20 77 68 6f 6c 65 20 6d 61 74 63 68 69 6e 67 20 73 74 72 69 6e 67 20 61 6e 64 20 61 20 73	he.whole.matching.string.and.a.s
4940	74 72 69 6e 67 20 66 6f 72 20 65 61 63 68 20 6d 61 74 63 68 65 64 20 73 75 62 65 78 70 72 65 73	tring.for.each.matched.subexpres
4960	73 69 6f 6e 73 2e 0a 49 66 20 69 74 20 64 69 64 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65 20 72	sions..If.it.did.not.match.the.r
4980	65 74 75 72 6e 65 64 20 76 61 6c 75 65 20 69 73 20 61 6e 20 65 6d 70 74 79 20 6c 69 73 74 20 28	eturned.value.is.an.empty.list.(
49a0	6e 69 6c 29 2e 0a 0a 57 68 65 6e 20 53 54 41 52 54 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 74 68 65	nil)...When.START.is.non-nil.the
49c0	20 73 65 61 72 63 68 20 77 69 6c 6c 20 73 74 61 72 74 20 61 74 20 74 68 61 74 20 69 6e 64 65 78	.search.will.start.at.that.index
49e0	2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6d 61 74 63 68 20 23 5b 28 72 65 67 65 78 70 20	...(defalias.'s-match.#[(regexp.
4a00	73 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 61 72 74 29 20 22 5c 33 30 36 20 18 5c 33 30 37 5c 32	s.&optional.start)."\306..\307\2
4a20	31 36 5c 33 31 30 09 5c 6e 0b 23 5c 32 30 35 40 00 5c 33 30 36 20 5c 33 31 31 1c 1d 0d 5c 32 30	16\310.\n.#\205@.\306.\311...\20
4a40	33 3d 00 0d 40 1e 5c 6e 0d 41 40 1e 0b 0e 5c 6e 5c 32 30 35 2f 00 0e 0b 5c 32 30 35 2f 00 5c 6e	3=..@.\n.A@...\n\205/...\205/.\n
4a60	0e 5c 6e 0e 0b 4f 5c 32 31 31 1e 5c 66 5c 66 42 14 0d 41 41 15 2b 5c 32 30 32 12 00 5c 66 5c 32	.\n..O\211.\f\fB..AA.+\202..\f\2
4a80	33 37 2a 2a 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72	37**\207".[save-match-data-inter
4aa0	6e 61 6c 20 72 65 67 65 78 70 20 73 20 73 74 61 72 74 20 72 65 73 75 6c 74 20 6d 61 74 63 68 2d	nal.regexp.s.start.result.match-
4ac0	64 61 74 61 2d 6c 69 73 74 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31	data-list.match-data.#[nil."\301
4ae0	08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e	.\302\"\207".[save-match-data-in
4b00	74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d	ternal.set-match-data.evaporate]
4b20	20 33 5d 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 6e 69 6c 20 62 65 67 20 65 6e 64 20 73 75 62	.3].string-match.nil.beg.end.sub
4b40	73 5d 20 35 20 28 23 24 20 2e 20 31 38 36 34 31 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75	s].5.(#$...18641)]).(function-pu
4b60	74 20 27 73 2d 6d 61 74 63 68 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a	t.'s-match.'side-effect-free.t).
4b80	23 40 34 35 20 53 6c 69 63 65 73 20 53 20 75 70 20 61 74 20 65 76 65 72 79 20 69 6e 64 65 78 20	#@45.Slices.S.up.at.every.index.
4ba0	6d 61 74 63 68 69 6e 67 20 52 45 47 45 58 50 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73	matching.REGEXP...(defalias.'s-s
4bc0	6c 69 63 65 2d 61 74 20 23 5b 28 72 65 67 65 78 70 20 73 29 20 22 08 47 5c 33 30 34 55 5c 32 30	lice-at.#[(regexp.s).".G\304U\20
4be0	33 5c 6e 00 5c 33 30 35 43 5c 32 30 37 5c 33 30 36 20 19 5c 33 30 37 5c 32 31 36 5c 33 31 30 1a	3\n.\305C\207\306..\307\216\310.
4c00	5c 33 31 31 0b 08 5c 33 31 32 23 5c 32 31 31 12 5c 32 30 33 2a 00 08 5c 33 30 34 5c 6e 4f 5c 33	\311..\312#\211.\203*..\304\nO\3
4c20	31 33 0b 08 5c 6e 5c 33 31 30 4f 5c 22 42 5c 32 30 32 2c 00 08 43 2b 5c 32 30 37 22 20 5b 73 20	13..\n\310O\"B\202,..C+\207".[s.
4c40	73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 69 20 72 65 67 65 78	save-match-data-internal.i.regex
4c60	70 20 30 20 22 22 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33	p.0."".match-data.#[nil."\301.\3
4c80	30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72	02\"\207".[save-match-data-inter
4ca0	6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d	nal.set-match-data.evaporate].3]
4cc0	20 6e 69 6c 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 31 20 73 2d 73 6c 69 63 65 2d 61 74 5d 20	.nil.string-match.1.s-slice-at].
4ce0	37 20 28 23 24 20 2e 20 31 39 33 33 33 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27	7.(#$...19333)]).(function-put.'
4d00	73 2d 73 6c 69 63 65 2d 61 74 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a	s-slice-at.'side-effect-free.t).
4d20	23 40 32 39 20 53 70 6c 69 74 20 53 20 69 6e 74 6f 20 6c 69 73 74 20 6f 66 20 77 6f 72 64 73 2e	#@29.Split.S.into.list.of.words.
4d40	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 20 23 5b 28 73 29	..(defalias.'s-split-words.#[(s)
4d60	20 22 5c 33 30 32 5c 33 30 33 5c 33 30 34 18 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 30 35 5c	."\302\303\304.\305\306\307\305\
4d80	33 31 30 5c 33 30 37 09 23 23 29 5c 33 31 31 23 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64	310\307.##)\311#\207".[case-fold
4da0	2d 73 65 61 72 63 68 20 73 20 73 2d 73 70 6c 69 74 20 22 5b 5e 5b 3a 77 6f 72 64 3a 5d 30 2d 39	-search.s.s-split."[^[:word:]0-9
4dc0	5d 2b 22 20 6e 69 6c 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67	]+".nil.replace-regexp-in-string
4de0	20 22 5c 5c 28 5b 5b 3a 6c 6f 77 65 72 3a 5d 5d 5c 5c 29 5c 5c 28 5b 5b 3a 75 70 70 65 72 3a 5d	."\\([[:lower:]]\\)\\([[:upper:]
4e00	5d 5c 5c 29 22 20 22 5c 5c 31 20 5c 5c 32 22 20 22 5c 5c 28 5b 5b 3a 75 70 70 65 72 3a 5d 5d 5c	]\\)"."\\1.\\2"."\\([[:upper:]]\
4e20	5c 29 5c 5c 28 5b 5b 3a 75 70 70 65 72 3a 5d 5d 5b 30 2d 39 5b 3a 6c 6f 77 65 72 3a 5d 5d 5c 5c	\)\\([[:upper:]][0-9[:lower:]]\\
4e40	29 22 20 74 5d 20 39 20 28 23 24 20 2e 20 31 39 37 34 39 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e	)".t].9.(#$...19749)]).(function
4e60	2d 70 75 74 20 27 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 20 27 73 69 64 65 2d 65 66 66 65 63 74	-put.'s-split-words.'side-effect
4e80	2d 66 72 65 65 20 74 29 0a 23 40 36 39 20 4c 69 6b 65 20 4d 41 50 43 41 52 2c 20 62 75 74 20 61	-free.t).#@69.Like.MAPCAR,.but.a
4ea0	70 70 6c 69 65 73 20 61 20 64 69 66 66 65 72 65 6e 74 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 74	pplies.a.different.function.to.t
4ec0	68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d	he.first.element...(defalias.'s-
4ee0	2d 6d 61 70 63 61 72 2d 68 65 61 64 20 23 5b 28 66 6e 2d 68 65 61 64 20 66 6e 2d 72 65 73 74 20	-mapcar-head.#[(fn-head.fn-rest.
4f00	6c 69 73 74 29 20 22 08 5c 32 30 35 0e 00 09 08 40 21 5c 33 30 33 5c 6e 08 41 5c 22 42 5c 32 30	list).".\205....@!\303\n.A\"B\20
4f20	37 22 20 5b 6c 69 73 74 20 66 6e 2d 68 65 61 64 20 66 6e 2d 72 65 73 74 20 6d 61 70 63 61 72 5d	7".[list.fn-head.fn-rest.mapcar]
4f40	20 34 20 28 23 24 20 2e 20 32 30 31 31 30 29 5d 29 0a 23 40 33 30 20 43 6f 6e 76 65 72 74 20 53	.4.(#$...20110)]).#@30.Convert.S
4f60	20 74 6f 20 6c 6f 77 65 72 43 61 6d 65 6c 43 61 73 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	.to.lowerCamelCase...(defalias.'
4f80	73 2d 6c 6f 77 65 72 2d 63 61 6d 65 6c 2d 63 61 73 65 20 23 5b 28 73 29 20 22 5c 33 30 31 5c 33	s-lower-camel-case.#[(s)."\301\3
4fa0	30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 08 21 23 5c 22 5c 32 30 37 22 20 5b 73 20	02\303\304\305\306.!#\"\207".[s.
4fc0	73 2d 6a 6f 69 6e 20 22 22 20 73 2d 2d 6d 61 70 63 61 72 2d 68 65 61 64 20 64 6f 77 6e 63 61 73	s-join."".s--mapcar-head.downcas
4fe0	65 20 63 61 70 69 74 61 6c 69 7a 65 20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 37 20 28 23	e.capitalize.s-split-words].7.(#
5000	24 20 2e 20 32 30 33 31 31 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 6c 6f	$...20311)]).(function-put.'s-lo
5020	77 65 72 2d 63 61 6d 65 6c 2d 63 61 73 65 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65	wer-camel-case.'side-effect-free
5040	20 74 29 0a 23 40 33 30 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 55 70 70 65 72 43 61 6d 65 6c	.t).#@30.Convert.S.to.UpperCamel
5060	43 61 73 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 75 70 70 65 72 2d 63 61 6d 65 6c 2d	Case...(defalias.'s-upper-camel-
5080	63 61 73 65 20 23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35	case.#[(s)."\301\302\303\304\305
50a0	08 21 5c 22 5c 22 5c 32 30 37 22 20 5b 73 20 73 2d 6a 6f 69 6e 20 22 22 20 6d 61 70 63 61 72 20	.!\"\"\207".[s.s-join."".mapcar.
50c0	63 61 70 69 74 61 6c 69 7a 65 20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 36 20 28 23 24 20	capitalize.s-split-words].6.(#$.
50e0	2e 20 32 30 35 35 33 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 75 70 70 65	..20553)]).(function-put.'s-uppe
5100	72 2d 63 61 6d 65 6c 2d 63 61 73 65 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74	r-camel-case.'side-effect-free.t
5120	29 0a 23 40 32 36 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 73 6e 61 6b 65 5f 63 61 73 65 2e 1f	).#@26.Convert.S.to.snake_case..
5140	0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 6e 61 6b 65 2d 63 61 73 65 20 23 5b 28 73 29 20 22	.(defalias.'s-snake-case.#[(s)."
5160	5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 21 5c 22 5c 22 5c 32 30 37 22 20	\301\302\303\304\305.!\"\"\207".
5180	5b 73 20 73 2d 6a 6f 69 6e 20 22 5f 22 20 6d 61 70 63 61 72 20 64 6f 77 6e 63 61 73 65 20 73 2d	[s.s-join."_".mapcar.downcase.s-
51a0	73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 36 20 28 23 24 20 2e 20 32 30 37 37 35 29 5d 29 0a 28 66	split-words].6.(#$...20775)]).(f
51c0	75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 73 6e 61 6b 65 2d 63 61 73 65 20 27 73 69 64 65 2d	unction-put.'s-snake-case.'side-
51e0	65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 23 40 32 38 20 43 6f 6e 76 65 72 74 20 53 20 74 6f	effect-free.t).#@28.Convert.S.to
5200	20 64 61 73 68 65 64 2d 77 6f 72 64 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 64 61 73	.dashed-words...(defalias.'s-das
5220	68 65 64 2d 77 6f 72 64 73 20 23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30	hed-words.#[(s)."\301\302\303\30
5240	34 5c 33 30 35 08 21 5c 22 5c 22 5c 32 30 37 22 20 5b 73 20 73 2d 6a 6f 69 6e 20 22 2d 22 20 6d	4\305.!\"\"\207".[s.s-join."-".m
5260	61 70 63 61 72 20 64 6f 77 6e 63 61 73 65 20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 36 20	apcar.downcase.s-split-words].6.
5280	28 23 24 20 2e 20 32 30 39 38 30 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d	(#$...20980)]).(function-put.'s-
52a0	64 61 73 68 65 64 2d 77 6f 72 64 73 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74	dashed-words.'side-effect-free.t
52c0	29 0a 23 40 33 33 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 43 61 70 69 74 61 6c 69 7a 65 64 20	).#@33.Convert.S.to.Capitalized.
52e0	77 6f 72 64 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 61 70 69 74 61 6c 69 7a 65 64	words...(defalias.'s-capitalized
5300	2d 77 6f 72 64 73 20 23 5b 28 73 29 20 22 5c 33 30 32 08 21 19 5c 33 30 33 5c 33 30 34 5c 33 30	-words.#[(s)."\302.!.\303\304\30
5320	35 09 40 21 5c 33 30 36 5c 33 30 37 09 41 5c 22 42 5c 22 29 5c 32 30 37 22 20 5b 73 20 77 6f 72	5.@!\306\307.A\"B\")\207".[s.wor
5340	64 73 20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 20 73 2d 6a 6f 69 6e 20 22 20 22 20 63 61 70 69	ds.s-split-words.s-join.".".capi
5360	74 61 6c 69 7a 65 20 6d 61 70 63 61 72 20 64 6f 77 6e 63 61 73 65 5d 20 36 20 28 23 24 20 2e 20	talize.mapcar.downcase].6.(#$...
5380	32 31 31 39 31 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 63 61 70 69 74 61	21191)]).(function-put.'s-capita
53a0	6c 69 7a 65 64 2d 77 6f 72 64 73 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29	lized-words.'side-effect-free.t)
53c0	0a 23 40 33 31 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 54 69 74 6c 65 69 7a 65 64 20 57 6f 72	.#@31.Convert.S.to.Titleized.Wor
53e0	64 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 74 69 74 6c 65 69 7a 65 64 2d 77 6f 72 64	ds...(defalias.'s-titleized-word
5400	73 20 23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 21 5c	s.#[(s)."\301\302\303\304\305.!\
5420	22 5c 22 5c 32 30 37 22 20 5b 73 20 73 2d 6a 6f 69 6e 20 22 20 22 20 6d 61 70 63 61 72 20 73 2d	"\"\207".[s.s-join.".".mapcar.s-
5440	74 69 74 6c 65 69 7a 65 20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 36 20 28 23 24 20 2e 20	titleize.s-split-words].6.(#$...
5460	32 31 34 34 36 29 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 74 69 74 6c 65 69	21446)]).(function-put.'s-titlei
5480	7a 65 64 2d 77 6f 72 64 73 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 23	zed-words.'side-effect-free.t).#
54a0	40 32 38 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 69 74 73 20 69 6e 69 74 69 61 6c 73 2e 1f 0a	@28.Convert.S.to.its.initials...
54c0	28 64 65 66 61 6c 69 61 73 20 27 73 2d 77 6f 72 64 2d 69 6e 69 74 69 61 6c 73 20 23 5b 28 73 29	(defalias.'s-word-initials.#[(s)
54e0	20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 21 5c 22 5c 22 5c 32 30 37	."\301\302\303\304\305.!\"\"\207
5500	22 20 5b 73 20 73 2d 6a 6f 69 6e 20 22 22 20 6d 61 70 63 61 72 20 23 5b 28 73 73 29 20 22 08 5c	".[s.s-join."".mapcar.#[(ss).".\
5520	33 30 31 5c 33 30 32 4f 5c 32 30 37 22 20 5b 73 73 20 30 20 31 5d 20 33 5d 20 73 2d 73 70 6c 69	301\302O\207".[ss.0.1].3].s-spli
5540	74 2d 77 6f 72 64 73 5d 20 36 20 28 23 24 20 2e 20 32 31 36 36 38 29 5d 29 0a 28 62 79 74 65 2d	t-words].6.(#$...21668)]).(byte-
5560	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c	code."\300\301\302\303#\210\304\
5580	33 30 35 5c 33 30 36 5c 33 30 37 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 31 30 5c 33 31 31	305\306\307#\210\304\305\310\311
55a0	23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 77 6f 72 64 2d 69 6e 69 74	#\207".[function-put.s-word-init
55c0	69 61 6c 73 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 20 70 75 74 20 73 2d 66 6f	ials.side-effect-free.t.put.s-fo
55e0	72 6d 61 74 2d 72 65 73 6f 6c 76 65 20 65 72 72 6f 72 2d 63 6f 6e 64 69 74 69 6f 6e 73 20 28 65	rmat-resolve.error-conditions.(e
5600	72 72 6f 72 20 73 2d 66 6f 72 6d 61 74 20 73 2d 66 6f 72 6d 61 74 2d 72 65 73 6f 6c 76 65 29 20	rror.s-format.s-format-resolve).
5620	65 72 72 6f 72 2d 6d 65 73 73 61 67 65 20 22 43 61 6e 6e 6f 74 20 72 65 73 6f 6c 76 65 20 61 20	error-message."Cannot.resolve.a.
5640	74 65 6d 70 6c 61 74 65 20 74 6f 20 76 61 6c 75 65 73 22 5d 20 34 29 0a 23 40 34 35 38 20 46 6f	template.to.values"].4).#@458.Fo
5660	72 6d 61 74 20 54 45 4d 50 4c 41 54 45 20 77 69 74 68 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20	rmat.TEMPLATE.with.the.function.
5680	52 45 50 4c 41 43 45 52 2e 0a 0a 52 45 50 4c 41 43 45 52 20 74 61 6b 65 73 20 61 6e 20 61 72 67	REPLACER...REPLACER.takes.an.arg
56a0	75 6d 65 6e 74 20 6f 66 20 74 68 65 20 66 6f 72 6d 61 74 20 76 61 72 69 61 62 6c 65 20 61 6e 64	ument.of.the.format.variable.and
56c0	20 6f 70 74 69 6f 6e 61 6c 6c 79 0a 61 6e 20 65 78 74 72 61 20 61 72 67 75 6d 65 6e 74 20 77 68	.optionally.an.extra.argument.wh
56e0	69 63 68 20 69 73 20 74 68 65 20 45 58 54 52 41 20 76 61 6c 75 65 20 66 72 6f 6d 20 74 68 65 20	ich.is.the.EXTRA.value.from.the.
5700	63 61 6c 6c 20 74 6f 0a 60 73 2d 66 6f 72 6d 61 74 27 2e 0a 0a 53 65 76 65 72 61 6c 20 73 74 61	call.to.`s-format'...Several.sta
5720	6e 64 61 72 64 20 60 73 2d 66 6f 72 6d 61 74 27 20 68 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e	ndard.`s-format'.helper.function
5740	73 20 61 72 65 20 72 65 63 6f 67 6e 69 7a 65 64 20 61 6e 64 0a 61 64 61 70 74 65 64 20 66 6f 72	s.are.recognized.and.adapted.for
5760	20 74 68 69 73 3a 0a 0a 20 20 20 20 28 73 2d 66 6f 72 6d 61 74 20 22 24 7b 6e 61 6d 65 7d 22 20	.this:......(s-format."${name}".
5780	27 67 65 74 68 61 73 68 20 68 61 73 68 2d 74 61 62 6c 65 29 0a 20 20 20 20 28 73 2d 66 6f 72 6d	'gethash.hash-table).....(s-form
57a0	61 74 20 22 24 7b 6e 61 6d 65 7d 22 20 27 61 67 65 74 20 61 6c 69 73 74 29 0a 20 20 20 20 28 73	at."${name}".'aget.alist).....(s
57c0	2d 66 6f 72 6d 61 74 20 22 24 30 22 20 27 65 6c 74 20 73 65 71 75 65 6e 63 65 29 0a 0a 54 68 65	-format."$0".'elt.sequence)..The
57e0	20 52 45 50 4c 41 43 45 52 20 66 75 6e 63 74 69 6f 6e 20 6d 61 79 20 62 65 20 75 73 65 64 20 74	.REPLACER.function.may.be.used.t
5800	6f 20 64 6f 20 61 6e 79 20 6f 74 68 65 72 20 6b 69 6e 64 20 6f 66 0a 74 72 61 6e 73 66 6f 72 6d	o.do.any.other.kind.of.transform
5820	61 74 69 6f 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 66 6f 72 6d 61 74 20 23 5b 28 74	ation...(defalias.'s-format.#[(t
5840	65 6d 70 6c 61 74 65 20 72 65 70 6c 61 63 65 72 20 26 6f 70 74 69 6f 6e 61 6c 20 65 78 74 72 61	emplate.replacer.&optional.extra
5860	29 20 22 5c 33 30 32 20 18 5c 33 30 33 5c 32 31 36 5c 33 30 34 5c 33 30 35 5c 33 30 36 09 5c 33	)."\302..\303\216\304\305\306.\3
5880	30 37 5c 32 31 31 25 2a 5c 32 30 37 22 20 5b 73 61 76 65 64 2d 6d 61 74 63 68 2d 64 61 74 61 20	07\211%*\207".[saved-match-data.
58a0	74 65 6d 70 6c 61 74 65 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08	template.match-data.#[nil."\301.
58c0	21 5c 32 30 37 22 20 5b 73 61 76 65 64 2d 6d 61 74 63 68 2d 64 61 74 61 20 73 65 74 2d 6d 61 74	!\207".[saved-match-data.set-mat
58e0	63 68 2d 64 61 74 61 5d 20 32 5d 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74	ch-data].2].replace-regexp-in-st
5900	72 69 6e 67 20 22 5c 5c 24 5c 5c 28 7b 5c 5c 28 5b 5e 7d 5d 2b 5c 5c 29 7d 5c 5c 7c 5b 30 2d 39	ring."\\$\\({\\([^}]+\\)}\\|[0-9
5920	5d 2b 5c 5c 29 22 20 23 5b 28 6d 64 29 20 22 5c 33 30 36 5c 33 30 37 08 5c 22 5c 32 31 31 19 5c	]+\\)".#[(md)."\306\307.\"\211.\
5940	32 30 33 0d 00 09 5c 32 30 32 13 00 5c 33 31 30 5c 33 30 36 5c 33 31 31 08 5c 22 21 29 5c 33 31	203...\202..\310\306\311.\"!)\31
5960	32 20 1a 1b 5c 33 31 33 5c 32 31 36 5c 66 5c 33 31 34 3d 5c 32 30 33 27 00 5c 66 0b 0d 5c 22 5c	2...\313\216\f\314=\203'.\f..\"\
5980	32 30 32 63 00 5c 66 5c 33 31 35 3d 5c 32 30 33 34 00 5c 33 31 36 0d 0b 5c 22 5c 32 30 32 63 00	202c.\f\315=\2034.\316..\"\202c.
59a0	5c 66 5c 33 31 37 3d 5c 32 30 33 41 00 5c 66 0d 0b 5c 22 5c 32 30 32 63 00 5c 66 5c 33 32 30 3d	\f\317=\203A.\f..\"\202c.\f\320=
59c0	5c 32 30 33 50 00 5c 33 32 31 0d 5c 33 32 32 0b 21 5c 22 5c 32 30 32 63 00 5c 33 32 33 0e 18 21	\203P.\321.\322.!\"\202c.\323..!
59e0	5c 32 31 30 0d 5c 32 30 33 60 00 5c 66 0b 0d 5c 22 5c 32 30 32 63 00 5c 66 0b 21 5c 32 31 31 1e	\210.\203`.\f..\"\202c.\f.!\211.
5a00	19 5c 32 30 33 71 00 5c 33 32 34 5c 33 32 35 0e 19 5c 22 5c 32 30 32 75 00 5c 33 32 36 5c 33 32	.\203q.\324\325..\"\202u.\326\32
5a20	37 08 5c 22 2c 5c 32 30 37 22 20 5b 6d 64 20 6d 20 72 65 70 6c 61 63 65 72 2d 6d 61 74 63 68 2d	7.\",\207".[md.m.replacer-match-
5a40	64 61 74 61 20 76 61 72 20 72 65 70 6c 61 63 65 72 20 65 78 74 72 61 20 6d 61 74 63 68 2d 73 74	data.var.replacer.extra.match-st
5a60	72 69 6e 67 20 32 20 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 31 20 6d 61 74 63 68 2d	ring.2.string-to-number.1.match-
5a80	64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 21 5c 32 30 37 22 20 5b 72 65 70 6c 61 63 65	data.#[nil."\301.!\207".[replace
5aa0	72 2d 6d 61 74 63 68 2d 64 61 74 61 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 5d 20 32 5d 20	r-match-data.set-match-data].2].
5ac0	67 65 74 68 61 73 68 20 61 67 65 74 20 73 2d 2d 61 67 65 74 20 65 6c 74 20 6f 72 65 66 20 73 6c	gethash.aget.s--aget.elt.oref.sl
5ae0	6f 74 2d 76 61 6c 75 65 20 69 6e 74 65 72 6e 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 66	ot-value.intern.set-match-data.f
5b00	6f 72 6d 61 74 20 22 25 73 22 20 73 69 67 6e 61 6c 20 73 2d 66 6f 72 6d 61 74 2d 72 65 73 6f 6c	ormat."%s".signal.s-format-resol
5b20	76 65 20 73 61 76 65 64 2d 6d 61 74 63 68 2d 64 61 74 61 20 76 5d 20 35 5d 20 74 5d 20 36 20 28	ve.saved-match-data.v].5].t].6.(
5b40	23 24 20 2e 20 32 32 31 31 30 29 5d 29 0a 23 40 39 32 20 49 66 20 60 74 27 20 69 6e 74 65 72 70	#$...22110)]).#@92.If.`t'.interp
5b60	6f 6c 61 74 65 20 6c 69 73 70 20 76 61 6c 75 65 73 20 61 73 20 6c 69 73 70 2e 0a 0a 60 73 2d 6c	olate.lisp.values.as.lisp...`s-l
5b80	65 78 2d 66 6f 72 6d 61 74 27 20 69 6e 73 65 72 74 73 20 76 61 6c 75 65 73 20 77 69 74 68 20 28	ex-format'.inserts.values.with.(
5ba0	66 6f 72 6d 61 74 20 22 25 53 22 29 2e 1f 0a 28 64 65 66 76 61 72 20 73 2d 6c 65 78 2d 76 61 6c	format."%S")...(defvar.s-lex-val
5bc0	75 65 2d 61 73 2d 6c 69 73 70 20 6e 69 6c 20 28 23 24 20 2e 20 32 33 33 37 39 29 29 0a 23 40 32	ue-as-lisp.nil.(#$...23379)).#@2
5be0	33 20 45 78 70 61 6e 64 20 46 4d 54 20 69 6e 74 6f 20 6c 69 73 70 2e 1f 0a 28 64 65 66 61 6c 69	3.Expand.FMT.into.lisp...(defali
5c00	61 73 20 27 73 2d 6c 65 78 2d 66 6d 74 7c 65 78 70 61 6e 64 20 23 5b 28 66 6d 74 29 20 22 5c 33	as.'s-lex-fmt|expand.#[(fmt)."\3
5c20	30 31 08 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 08	01.\302\303\304\305\306\307\310.
5c40	5c 22 5c 22 5c 22 46 5c 32 30 37 22 20 5b 66 6d 74 20 73 2d 66 6f 72 6d 61 74 20 27 61 67 65 74	\"\"\"F\207".[fmt.s-format.'aget
5c60	20 61 70 70 65 6e 64 20 28 6c 69 73 74 29 20 6d 61 70 63 61 72 20 23 5b 28 6d 61 74 63 68 65 73	.append.(list).mapcar.#[(matches
5c80	29 20 22 5c 33 30 31 08 41 40 5c 33 30 32 5c 33 30 33 5c 33 30 34 08 41 40 21 45 45 5c 32 30 37	)."\301.A@\302\303\304.A@!EE\207
5ca0	22 20 5b 6d 61 74 63 68 65 73 20 63 6f 6e 73 20 66 6f 72 6d 61 74 20 28 69 66 20 73 2d 6c 65 78	".[matches.cons.format.(if.s-lex
5cc0	2d 76 61 6c 75 65 2d 61 73 2d 6c 69 73 70 20 22 25 53 22 20 22 25 73 22 29 20 69 6e 74 65 72 6e	-value-as-lisp."%S"."%s").intern
5ce0	5d 20 36 5d 20 73 2d 6d 61 74 63 68 2d 73 74 72 69 6e 67 73 2d 61 6c 6c 20 22 24 7b 5c 5c 28 5b	].6].s-match-strings-all."${\\([
5d00	5e 7d 5d 2b 5c 5c 29 7d 22 5d 20 31 30 20 28 23 24 20 2e 20 32 33 35 32 32 29 5d 29 0a 28 66 75	^}]+\\)}"].10.(#$...23522)]).(fu
5d20	6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 6c 65 78 2d 66 6d 74 7c 65 78 70 61 6e 64 20 27 73 69	nction-put.'s-lex-fmt|expand.'si
5d40	64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 23 40 33 31 36 20 60 73 2d 66 6f 72 6d 61	de-effect-free.t).#@316.`s-forma
5d60	74 60 20 77 69 74 68 20 74 68 65 20 63 75 72 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 2e	t`.with.the.current.environment.
5d80	0a 0a 46 4f 52 4d 41 54 2d 53 54 52 20 6d 61 79 20 75 73 65 20 74 68 65 20 60 73 2d 66 6f 72 6d	..FORMAT-STR.may.use.the.`s-form
5da0	61 74 27 20 76 61 72 69 61 62 6c 65 20 72 65 66 65 72 65 6e 63 65 20 74 6f 20 72 65 66 65 72 20	at'.variable.reference.to.refer.
5dc0	74 6f 0a 61 6e 79 20 76 61 72 69 61 62 6c 65 3a 0a 0a 20 28 6c 65 74 20 28 28 78 20 31 29 29 0a	to.any.variable:...(let.((x.1)).
5de0	20 20 20 28 73 2d 6c 65 78 2d 66 6f 72 6d 61 74 20 22 78 20 69 73 3a 20 24 7b 78 7d 22 29 29 0a	...(s-lex-format."x.is:.${x}")).
5e00	0a 54 68 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 73 20 61 72 65	.The.values.of.the.variables.are
5e20	20 69 6e 74 65 72 70 6f 6c 61 74 65 64 20 77 69 74 68 20 22 25 73 22 20 75 6e 6c 65 73 73 0a 74	.interpolated.with."%s".unless.t
5e40	68 65 20 76 61 72 69 61 62 6c 65 20 60 73 2d 6c 65 78 2d 76 61 6c 75 65 2d 61 73 2d 6c 69 73 70	he.variable.`s-lex-value-as-lisp
5e60	27 20 69 73 20 60 74 27 20 61 6e 64 20 74 68 65 6e 20 74 68 65 79 20 61 72 65 0a 69 6e 74 65 72	'.is.`t'.and.then.they.are.inter
5e80	70 6f 6c 61 74 65 64 20 77 69 74 68 20 22 25 53 22 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73	polated.with."%S"...(defalias.'s
5ea0	2d 6c 65 78 2d 66 6f 72 6d 61 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 28 66 6f 72 6d 61 74 2d	-lex-format.'(macro...#[(format-
5ec0	73 74 72 29 20 22 5c 33 30 31 08 21 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 2d 73 74 72 20 73 2d	str)."\301.!\207".[format-str.s-
5ee0	6c 65 78 2d 66 6d 74 7c 65 78 70 61 6e 64 5d 20 32 20 28 23 24 20 2e 20 32 33 38 39 36 29 5d 29	lex-fmt|expand].2.(#$...23896)])
5f00	29 0a 28 70 75 74 20 27 73 2d 6c 65 78 2d 66 6f 72 6d 61 74 20 27 65 64 65 62 75 67 2d 66 6f 72	).(put.'s-lex-format.'edebug-for
5f20	6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 29 29 0a 23 40 34 31 37 20 43 6f 75 6e 74 20 6f 63 63 75	m-spec.'(form)).#@417.Count.occu
5f40	72 72 65 6e 63 65 73 20 6f 66 20 60 72 65 67 65 78 70 27 20 69 6e 20 60 73 27 2e 0a 0a 60 73 74	rrences.of.`regexp'.in.`s'...`st
5f60	61 72 74 27 2c 20 69 6e 63 6c 75 73 69 76 65 2c 20 61 6e 64 20 60 65 6e 64 27 2c 20 65 78 63 6c	art',.inclusive,.and.`end',.excl
5f80	75 73 69 76 65 2c 20 64 65 6c 69 6d 69 74 20 74 68 65 20 70 61 72 74 20 6f 66 20 60 73 27 20 74	usive,.delimit.the.part.of.`s'.t
5fa0	6f 0a 6d 61 74 63 68 2e 20 20 60 73 74 61 72 74 27 20 61 6e 64 20 60 65 6e 64 27 20 61 72 65 20	o.match...`start'.and.`end'.are.
5fc0	62 6f 74 68 20 69 6e 64 65 78 65 64 20 73 74 61 72 74 69 6e 67 20 61 74 20 31 3b 20 74 68 65 20	both.indexed.starting.at.1;.the.
5fe0	69 6e 69 74 69 61 6c 0a 63 68 61 72 61 63 74 65 72 20 69 6e 20 60 73 27 20 69 73 20 69 6e 64 65	initial.character.in.`s'.is.inde
6000	78 20 31 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 74 61 72 74 73 20 6c 6f 6f 6b 69	x.1...This.function.starts.looki
6020	6e 67 20 66 6f 72 20 74 68 65 20 6e 65 78 74 20 6d 61 74 63 68 20 66 72 6f 6d 20 74 68 65 20 65	ng.for.the.next.match.from.the.e
6040	6e 64 20 6f 66 20 74 68 65 0a 70 72 65 76 69 6f 75 73 20 6d 61 74 63 68 2e 20 20 48 65 6e 63 65	nd.of.the.previous.match...Hence
6060	2c 20 69 74 20 69 67 6e 6f 72 65 73 20 6d 61 74 63 68 65 73 20 74 68 61 74 20 6f 76 65 72 6c 61	,.it.ignores.matches.that.overla
6080	70 20 61 20 70 72 65 76 69 6f 75 73 6c 79 0a 66 6f 75 6e 64 20 6d 61 74 63 68 2e 20 20 54 6f 20	p.a.previously.found.match...To.
60a0	63 6f 75 6e 74 20 6f 76 65 72 6c 61 70 70 69 6e 67 20 6d 61 74 63 68 65 73 2c 20 75 73 65 0a 60	count.overlapping.matches,.use.`
60c0	73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 2d 61 6c 6c 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73	s-count-matches-all'...(defalias
60e0	20 27 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 20 23 5b 28 72 65 67 65 78 70 20 73 20 26 6f	.'s-count-matches.#[(regexp.s.&o
6100	70 74 69 6f 6e 61 6c 20 73 74 61 72 74 20 65 6e 64 29 20 22 5c 33 30 36 20 18 5c 33 30 37 5c 32	ptional.start.end)."\306..\307\2
6120	31 36 5c 33 31 30 5c 33 31 31 21 19 72 09 71 5c 32 31 30 5c 33 31 32 5c 32 31 36 5c 6e 63 5c 32	16\310\311!.r.q\210\312\216\nc\2
6140	31 30 65 62 5c 32 31 30 5c 33 31 33 0b 5c 66 5c 32 30 36 1c 00 5c 33 31 34 0d 5c 32 30 36 21 00	10eb\210\313.\f\206..\314.\206!.
6160	64 23 2d 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e	d#-\207".[save-match-data-intern
6180	61 6c 20 23 31 3d 23 3a 74 65 6d 70 2d 62 75 66 66 65 72 20 73 20 72 65 67 65 78 70 20 73 74 61	al.#1=#:temp-buffer.s.regexp.sta
61a0	72 74 20 65 6e 64 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33	rt.end.match-data.#[nil."\301.\3
61c0	30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72	02\"\207".[save-match-data-inter
61e0	6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d	nal.set-match-data.evaporate].3]
6200	20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22 20 2a 74 65 6d 70 2a 22 20 23	.generate-new-buffer.".*temp*".#
6220	5b 6e 69 6c 20 22 5c 33 30 31 08 21 5c 32 30 35 09 00 5c 33 30 32 08 21 5c 32 30 37 22 20 5b 23	[nil."\301.!\205..\302.!\207".[#
6240	31 23 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 32 5d 20 63	1#.buffer-name.kill-buffer].2].c
6260	6f 75 6e 74 2d 6d 61 74 63 68 65 73 20 31 5d 20 34 20 28 23 24 20 2e 20 32 34 33 37 34 29 5d 29	ount-matches.1].4.(#$...24374)])
6280	0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 20	.(function-put.'s-count-matches.
62a0	27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 23 40 34 35 32 20 43 6f 75 6e 74	'side-effect-free.t).#@452.Count
62c0	20 6f 63 63 75 72 72 65 6e 63 65 73 20 6f 66 20 60 72 65 67 65 78 70 27 20 69 6e 20 60 73 27 2e	.occurrences.of.`regexp'.in.`s'.
62e0	0a 0a 60 73 74 61 72 74 27 2c 20 69 6e 63 6c 75 73 69 76 65 2c 20 61 6e 64 20 60 65 6e 64 27 2c	..`start',.inclusive,.and.`end',
6300	20 65 78 63 6c 75 73 69 76 65 2c 20 64 65 6c 69 6d 69 74 20 74 68 65 20 70 61 72 74 20 6f 66 20	.exclusive,.delimit.the.part.of.
6320	60 73 27 20 74 6f 0a 6d 61 74 63 68 2e 20 20 60 73 74 61 72 74 27 20 61 6e 64 20 60 65 6e 64 27	`s'.to.match...`start'.and.`end'
6340	20 61 72 65 20 62 6f 74 68 20 69 6e 64 65 78 65 64 20 73 74 61 72 74 69 6e 67 20 61 74 20 31 3b	.are.both.indexed.starting.at.1;
6360	20 74 68 65 20 69 6e 69 74 69 61 6c 0a 63 68 61 72 61 63 74 65 72 20 69 6e 20 60 73 27 20 69 73	.the.initial.character.in.`s'.is
6380	20 69 6e 64 65 78 20 31 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 74 61 72 74 73 20	.index.1...This.function.starts.
63a0	6c 6f 6f 6b 69 6e 67 20 66 6f 72 20 74 68 65 20 6e 65 78 74 20 6d 61 74 63 68 20 66 72 6f 6d 20	looking.for.the.next.match.from.
63c0	74 68 65 20 73 65 63 6f 6e 64 0a 63 68 61 72 61 63 74 65 72 20 6f 66 20 74 68 65 20 70 72 65 76	the.second.character.of.the.prev
63e0	69 6f 75 73 20 6d 61 74 63 68 2e 20 20 48 65 6e 63 65 2c 20 69 74 20 63 6f 75 6e 74 73 20 6d 61	ious.match...Hence,.it.counts.ma
6400	74 63 68 65 73 20 74 68 61 74 0a 6f 76 65 72 6c 61 70 20 61 20 70 72 65 76 69 6f 75 73 6c 79 20	tches.that.overlap.a.previously.
6420	66 6f 75 6e 64 20 6d 61 74 63 68 2e 20 20 54 6f 20 69 67 6e 6f 72 65 20 6d 61 74 63 68 65 73 20	found.match...To.ignore.matches.
6440	74 68 61 74 20 6f 76 65 72 6c 61 70 20 61 0a 70 72 65 76 69 6f 75 73 6c 79 20 66 6f 75 6e 64 20	that.overlap.a.previously.found.
6460	6d 61 74 63 68 2c 20 75 73 65 20 60 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 27 2e 1f 0a 28	match,.use.`s-count-matches'...(
6480	64 65 66 61 6c 69 61 73 20 27 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 2d 61 6c 6c 20 23 5b	defalias.'s-count-matches-all.#[
64a0	28 72 65 67 65 78 70 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 61 72 74 20 65 6e 64 29 20 22	(regexp.s.&optional.start.end)."
64c0	5c 33 30 36 5c 33 30 37 08 5c 22 19 5c 33 31 30 5c 32 31 31 1a 1b 5c 66 0d 5c 32 30 35 10 00 0d	\306\307.\".\310\211..\f.\205...
64e0	53 0e 0d 5c 32 30 35 18 00 0e 0d 53 4f 1e 0e 5c 33 31 31 20 1e 0f 5c 33 31 32 5c 32 31 36 0b 0e	S..\205....SO..\311...\312\216..
6500	0e 47 57 5c 32 30 33 3e 00 5c 33 31 33 09 0e 0e 0b 5c 33 31 34 4f 5c 22 5c 32 30 33 37 00 5c 6e	.GW\203>.\313....\314O\"\2037.\n
6520	54 12 0b 54 5c 32 31 31 13 5c 32 30 32 5c 22 00 2a 5c 6e 2c 5c 32 30 37 22 20 5b 72 65 67 65 78	T..T\211.\202\".*\n,\207".[regex
6540	70 20 61 6e 63 68 6f 72 65 64 2d 72 65 67 65 78 70 20 6d 61 74 63 68 2d 63 6f 75 6e 74 20 69 20	p.anchored-regexp.match-count.i.
6560	73 20 73 74 61 72 74 20 66 6f 72 6d 61 74 20 22 5e 25 73 22 20 30 20 6d 61 74 63 68 2d 64 61 74	s.start.format."^%s".0.match-dat
6580	61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d	a.#[nil."\301.\302\"\207".[save-
65a0	6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61	match-data-internal.set-match-da
65c0	74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 73 2d 6d 61 74 63 68 65 73 5c 3f 20 6e 69 6c	ta.evaporate].3].s-matches\?.nil
65e0	20 65 6e 64 20 6e 61 72 72 6f 77 65 64 2d 73 20 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d	.end.narrowed-s.save-match-data-
6600	69 6e 74 65 72 6e 61 6c 5d 20 36 20 28 23 24 20 2e 20 32 35 32 37 35 29 5d 29 0a 28 66 75 6e 63	internal].6.(#$...25275)]).(func
6620	74 69 6f 6e 2d 70 75 74 20 27 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 2d 61 6c 6c 20 27 73	tion-put.'s-count-matches-all.'s
6640	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 23 40 31 38 31 20 57 72 61 70 20 73 74	ide-effect-free.t).#@181.Wrap.st
6660	72 69 6e 67 20 53 20 77 69 74 68 20 50 52 45 46 49 58 20 61 6e 64 20 6f 70 74 69 6f 6e 61 6c 6c	ring.S.with.PREFIX.and.optionall
6680	79 20 53 55 46 46 49 58 2e 0a 0a 52 65 74 75 72 6e 20 73 74 72 69 6e 67 20 53 20 77 69 74 68 20	y.SUFFIX...Return.string.S.with.
66a0	50 52 45 46 49 58 20 70 72 65 70 65 6e 64 65 64 2e 20 20 49 66 20 53 55 46 46 49 58 20 69 73 20	PREFIX.prepended...If.SUFFIX.is.
66c0	70 72 65 73 65 6e 74 2c 20 69 74 0a 69 73 20 61 70 70 65 6e 64 65 64 2c 20 6f 74 68 65 72 77 69	present,.it.is.appended,.otherwi
66e0	73 65 20 50 52 45 46 49 58 20 69 73 20 75 73 65 64 20 61 73 20 62 6f 74 68 20 70 72 65 66 69 78	se.PREFIX.is.used.as.both.prefix
6700	20 61 6e 64 0a 73 75 66 66 69 78 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 77 72 61 70 20	.and.suffix...(defalias.'s-wrap.
6720	23 5b 28 73 20 70 72 65 66 69 78 20 26 6f 70 74 69 6f 6e 61 6c 20 73 75 66 66 69 78 29 20 22 08	#[(s.prefix.&optional.suffix).".
6740	09 5c 6e 5c 32 30 36 07 00 08 51 5c 32 30 37 22 20 5b 70 72 65 66 69 78 20 73 20 73 75 66 66 69	.\n\206...Q\207".[prefix.s.suffi
6760	78 5d 20 33 20 28 23 24 20 2e 20 32 36 32 30 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	x].3.(#$...26201)]).(byte-code."
6780	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30	\300\301\302\303#\210\300\301\30
67a0	34 5c 33 30 33 23 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 22 5c 32 31 30 5c 33 30 35	4\303#\210\305\306\307\"\210\305
67c0	5c 33 31 30 5c 33 31 31 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31 32 5c 33 31 33 5c 22 5c 32 31 30	\310\311\"\210\305\312\313\"\210
67e0	5c 33 30 35 5c 33 31 34 5c 33 31 35 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31 36 5c 33 31 37 5c 22	\305\314\315\"\210\305\316\317\"
6800	5c 32 31 30 5c 33 30 35 5c 33 32 30 5c 33 32 31 5c 22 5c 32 31 30 5c 33 30 35 5c 33 32 32 5c 33	\210\305\320\321\"\210\305\322\3
6820	32 33 5c 22 5c 32 31 30 5c 33 30 35 5c 33 32 34 5c 33 32 35 5c 22 5c 32 31 30 5c 33 30 35 5c 33	23\"\210\305\324\325\"\210\305\3
6840	32 36 5c 33 32 37 5c 22 5c 32 31 30 5c 33 30 35 5c 33 33 30 5c 33 33 31 5c 22 5c 32 31 30 5c 33	26\327\"\210\305\330\331\"\210\3
6860	30 35 5c 33 33 32 5c 33 33 33 5c 22 5c 32 31 30 5c 33 30 35 5c 33 33 34 5c 33 33 35 5c 22 5c 32	05\332\333\"\210\305\334\335\"\2
6880	31 30 5c 33 30 35 5c 33 33 36 5c 33 33 35 5c 22 5c 32 31 30 5c 33 30 35 5c 33 33 37 5c 33 34 30	10\305\336\335\"\210\305\337\340
68a0	5c 22 5c 32 31 30 5c 33 30 35 5c 33 34 31 5c 33 33 35 5c 22 5c 32 31 30 5c 33 30 35 5c 33 34 32	\"\210\305\341\335\"\210\305\342
68c0	5c 33 31 37 5c 22 5c 32 31 30 5c 33 30 35 5c 33 34 33 5c 33 31 37 5c 22 5c 32 31 30 5c 33 30 35	\317\"\210\305\343\317\"\210\305
68e0	5c 33 34 34 5c 33 34 35 5c 22 5c 32 31 30 5c 33 34 36 5c 33 34 37 21 5c 32 30 37 22 20 5b 66 75	\344\345\"\210\346\347!\207".[fu
6900	6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 77 72 61 70 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66	nction-put.s-wrap.pure.t.side-ef
6920	66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 73 2d 62 6c 61 6e 6b 2d 70 20 73 2d 62	fect-free.defalias.s-blank-p.s-b
6940	6c 61 6e 6b 5c 3f 20 73 2d 62 6c 61 6e 6b 2d 73 74 72 2d 70 20 73 2d 62 6c 61 6e 6b 2d 73 74 72	lank\?.s-blank-str-p.s-blank-str
6960	5c 3f 20 73 2d 63 61 70 69 74 61 6c 69 7a 65 64 2d 70 20 73 2d 63 61 70 69 74 61 6c 69 7a 65 64	\?.s-capitalized-p.s-capitalized
6980	5c 3f 20 73 2d 63 6f 6e 74 61 69 6e 73 2d 70 20 73 2d 63 6f 6e 74 61 69 6e 73 5c 3f 20 73 2d 65	\?.s-contains-p.s-contains\?.s-e
69a0	6e 64 73 2d 77 69 74 68 2d 70 20 73 2d 65 6e 64 73 2d 77 69 74 68 5c 3f 20 73 2d 65 71 75 61 6c	nds-with-p.s-ends-with\?.s-equal
69c0	73 2d 70 20 73 2d 65 71 75 61 6c 73 5c 3f 20 73 2d 6c 65 73 73 2d 70 20 73 2d 6c 65 73 73 5c 3f	s-p.s-equals\?.s-less-p.s-less\?
69e0	20 73 2d 6c 6f 77 65 72 63 61 73 65 2d 70 20 73 2d 6c 6f 77 65 72 63 61 73 65 5c 3f 20 73 2d 6d	.s-lowercase-p.s-lowercase\?.s-m
6a00	61 74 63 68 65 73 2d 70 20 73 2d 6d 61 74 63 68 65 73 5c 3f 20 73 2d 6d 69 78 65 64 63 61 73 65	atches-p.s-matches\?.s-mixedcase
6a20	2d 70 20 73 2d 6d 69 78 65 64 63 61 73 65 5c 3f 20 73 2d 6e 75 6d 65 72 69 63 2d 70 20 73 2d 6e	-p.s-mixedcase\?.s-numeric-p.s-n
6a40	75 6d 65 72 69 63 5c 3f 20 73 2d 70 72 65 66 69 78 2d 70 20 73 2d 73 74 61 72 74 73 2d 77 69 74	umeric\?.s-prefix-p.s-starts-wit
6a60	68 5c 3f 20 73 2d 70 72 65 66 69 78 5c 3f 20 73 2d 70 72 65 73 65 6e 74 2d 70 20 73 2d 70 72 65	h\?.s-prefix\?.s-present-p.s-pre
6a80	73 65 6e 74 5c 3f 20 73 2d 73 74 61 72 74 73 2d 77 69 74 68 2d 70 20 73 2d 73 75 66 66 69 78 2d	sent\?.s-starts-with-p.s-suffix-
6aa0	70 20 73 2d 73 75 66 66 69 78 5c 3f 20 73 2d 75 70 70 65 72 63 61 73 65 2d 70 20 73 2d 75 70 70	p.s-suffix\?.s-uppercase-p.s-upp
6ac0	65 72 63 61 73 65 5c 3f 20 70 72 6f 76 69 64 65 20 73 5d 20 34 29 0a	ercase\?.provide.s].4).