blob: 16489e99d22c0ad97121010f99c980ddcd8893ba (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 1e 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 33 30 2e 32 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.30.2.;;;.with.all.opt
0040	69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 0a 23 40 35 30 20 52 65 6d 6f 76 65 20 77 68 69 74 65 73	imizations....#@50.Remove.whites
0060	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 2e 0a 0a 28 66 6e	pace.at.the.beginning.of.S...(fn
0080	20 53 29 1f 0a 28 61 75 74 6f 6c 6f 61 64 20 27 73 6c 6f 74 2d 76 61 6c 75 65 20 22 65 69 65 69	.S)..(autoload.'slot-value."eiei
00a0	6f 22 29 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 32 35 37	o").(defalias.'s-trim-left.#[257
00c0	20 22 5c 33 30 30 20 5c 33 30 31 5c 33 30 32 02 5c 22 5c 32 31 36 5c 33 30 33 5c 33 30 34 03 5c	."\300.\301\302.\"\216\303\304.\
00e0	22 5c 32 30 33 17 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 32 31 31 05 24 5c 32 30 32 18 00 01	"\203..\305\306\307\211.$\202...
0100	29 5c 32 30 37 22 20 5b 6d 61 74 63 68 2d 64 61 74 61 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20	)\207".[match-data.make-closure.
0120	23 5b 30 20 22 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 56 30 20 73 65 74	#[0."\301\300\302\"\207".[V0.set
0140	2d 6d 61 74 63 68 2d 64 61 74 61 20 74 5d 20 33 5d 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22	-match-data.t].3].string-match."
0160	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 22 20 74 5d	\\`[..\n.]+".replace-match."".t]
0180	20 37 20 28 23 24 20 2e 20 38 33 29 5d 29 23 40 34 34 20 52 65 6d 6f 76 65 20 77 68 69 74 65 73	.7.(#$...83)])#@44.Remove.whites
01a0	70 61 63 65 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 53 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28	pace.at.the.end.of.S...(fn.S)..(
01c0	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 5c 33 30 30	byte-code."\300\301\302\303#\300
01e0	5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e	\301\304\303#\300\207".[function
0200	2d 70 75 74 20 73 2d 74 72 69 6d 2d 6c 65 66 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66	-put.s-trim-left.pure.t.side-eff
0220	65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 74 72 69 6d 2d 72	ect-free].5).(defalias.'s-trim-r
0240	69 67 68 74 20 23 5b 32 35 37 20 22 5c 33 30 30 20 5c 33 30 31 5c 33 30 32 02 5c 22 5c 32 31 36	ight.#[257."\300.\301\302.\"\216
0260	5c 33 30 33 5c 33 30 34 03 5c 22 5c 32 30 33 17 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 32 31	\303\304.\"\203..\305\306\307\21
0280	31 05 24 5c 32 30 32 18 00 01 29 5c 32 30 37 22 20 5b 6d 61 74 63 68 2d 64 61 74 61 20 6d 61 6b	1.$\202...)\207".[match-data.mak
02a0	65 2d 63 6c 6f 73 75 72 65 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 22 5c 32 30	e-closure.#[0."\301\300\302\"\20
02c0	37 22 20 5b 56 30 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 74 5d 20 33 5d 20 73 74 72 69	7".[V0.set-match-data.t].3].stri
02e0	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 65 2d 6d	ng-match."[..\n.]+\\'".replace-m
0300	61 74 63 68 20 22 22 20 74 5d 20 37 20 28 23 24 20 2e 20 34 30 33 29 5d 29 23 40 35 38 20 52 65	atch."".t].7.(#$...403)])#@58.Re
0320	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 6e 69 6e 67	move.whitespace.at.the.beginning
0340	20 61 6e 64 20 65 6e 64 20 6f 66 20 53 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f	.and.end.of.S...(fn.S)..(byte-co
0360	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30	de."\300\301\302\303#\300\301\30
0380	34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d	4\303#\300\207".[function-put.s-
03a0	74 72 69 6d 2d 72 69 67 68 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72	trim-right.pure.t.side-effect-fr
03c0	65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 74 72 69 6d 20 23 5b 32 35 37 20 22	ee].5).(defalias.'s-trim.#[257."
03e0	5c 33 30 30 5c 33 30 31 02 21 21 5c 32 30 37 22 20 5b 73 2d 74 72 69 6d 2d 6c 65 66 74 20 73 2d	\300\301.!!\207".[s-trim-left.s-
0400	74 72 69 6d 2d 72 69 67 68 74 5d 20 34 20 28 23 24 20 2e 20 37 39 38 29 5d 29 23 40 37 31 20 43	trim-right].4.(#$...798)])#@71.C
0420	6f 6e 76 65 72 74 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	onvert.all.adjacent.whitespace.c
0440	68 61 72 61 63 74 65 72 73 20 74 6f 20 61 20 73 69 6e 67 6c 65 20 73 70 61 63 65 2e 0a 0a 28 66	haracters.to.a.single.space...(f
0460	6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	n.S)..(byte-code."\300\301\302\3
0480	30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66	03#\300\301\304\303#\300\207".[f
04a0	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 69 64 65 2d 65	unction-put.s-trim.pure.t.side-e
04c0	66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 6f 6c 6c	ffect-free].5).(defalias.'s-coll
04e0	61 70 73 65 2d 77 68 69 74 65 73 70 61 63 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c	apse-whitespace.#[257."\300\301\
0500	33 30 32 03 23 5c 32 30 37 22 20 5b 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74	302.#\207".[replace-regexp-in-st
0520	72 69 6e 67 20 22 5b 20 09 5c 6e 0d 5d 2b 22 20 22 20 22 5d 20 35 20 28 23 24 20 2e 20 31 30 35	ring."[..\n.]+"."."].5.(#$...105
0540	35 29 5d 29 23 40 31 34 32 20 55 6e 69 6e 64 65 6e 74 20 53 20 77 68 69 63 68 20 68 61 73 20 42	5)])#@142.Unindent.S.which.has.B
0560	4f 4c 20 28 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 6c 69 6e 65 29 20 69 6e 64 69 63 61 74 6f 72	OL.(beginning.of.line).indicator
0580	73 2e 0a 42 4f 4c 20 77 69 6c 6c 20 64 65 66 61 75 6c 74 20 74 6f 20 70 69 70 65 2e 20 59 6f 75	s..BOL.will.default.to.pipe..You
05a0	20 63 61 6e 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 73 75 70 70 6c 79 20 79 6f 75 72 20 6f 77 6e 2e	.can.optionally.supply.your.own.
05c0	0a 0a 28 66 6e 20 53 20 26 6f 70 74 69 6f 6e 61 6c 20 42 4f 4c 29 1f 0a 28 62 79 74 65 2d 63 6f	..(fn.S.&optional.BOL)..(byte-co
05e0	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30	de."\300\301\302\303#\300\301\30
0600	34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d	4\303#\300\207".[function-put.s-
0620	63 6f 6c 6c 61 70 73 65 2d 77 68 69 74 65 73 70 61 63 65 20 70 75 72 65 20 74 20 73 69 64 65 2d	collapse-whitespace.pure.t.side-
0640	65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 75 6e 69	effect-free].5).(defalias.'s-uni
0660	6e 64 65 6e 74 20 23 5b 35 31 33 20 22 5c 33 30 31 01 5c 32 30 36 06 00 5c 33 30 32 01 18 5c 33	ndent.#[513."\301.\206..\302..\3
0680	30 33 5c 33 30 34 5c 33 30 35 03 21 50 5c 33 30 36 06 06 23 29 5c 32 30 37 22 20 5b 63 61 73 65	03\304\305.!P\306..#)\207".[case
06a0	2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 20 22 7c 22 20 73 2d 72 65 70 6c 61 63 65 2d 72	-fold-search.nil."|".s-replace-r
06c0	65 67 65 78 70 20 22 5e 5b 5b 3a 73 70 61 63 65 3a 5d 5d 2a 22 20 72 65 67 65 78 70 2d 71 75 6f	egexp."^[[:space:]]*".regexp-quo
06e0	74 65 20 22 22 5d 20 38 20 28 23 24 20 2e 20 31 33 35 34 29 5d 29 23 40 32 32 39 20 53 70 6c 69	te.""].8.(#$...1354)])#@229.Spli
0700	74 20 53 20 69 6e 74 6f 20 73 75 62 73 74 72 69 6e 67 73 20 62 6f 75 6e 64 65 64 20 62 79 20 6d	t.S.into.substrings.bounded.by.m
0720	61 74 63 68 65 73 20 66 6f 72 20 72 65 67 65 78 70 20 53 45 50 41 52 41 54 4f 52 2e 0a 49 66 20	atches.for.regexp.SEPARATOR..If.
0740	4f 4d 49 54 2d 4e 55 4c 4c 53 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 7a 65 72 6f 2d 6c 65 6e 67	OMIT-NULLS.is.non-nil,.zero-leng
0760	74 68 20 73 75 62 73 74 72 69 6e 67 73 20 61 72 65 20 6f 6d 69 74 74 65 64 2e 0a 0a 54 68 69 73	th.substrings.are.omitted...This
0780	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 74 68 65 20	.is.a.simple.wrapper.around.the.
07a0	62 75 69 6c 74 2d 69 6e 20 60 73 70 6c 69 74 2d 73 74 72 69 6e 67 27 2e 0a 0a 28 66 6e 20 53 45	built-in.`split-string'...(fn.SE
07c0	50 41 52 41 54 4f 52 20 53 20 26 6f 70 74 69 6f 6e 61 6c 20 4f 4d 49 54 2d 4e 55 4c 4c 53 29 1f	PARATOR.S.&optional.OMIT-NULLS).
07e0	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 5c 33	.(byte-code."\300\301\302\303#\3
0800	30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69	00\301\304\303#\300\207".[functi
0820	6f 6e 2d 70 75 74 20 73 2d 75 6e 69 6e 64 65 6e 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66	on-put.s-unindent.pure.t.side-ef
0840	66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 70 6c 69 74	fect-free].5).(defalias.'s-split
0860	20 23 5b 37 37 30 20 22 5c 33 30 30 20 5c 33 30 31 5c 33 30 32 02 5c 22 5c 32 31 36 5c 33 30 33	.#[770."\300.\301\302.\"\216\303
0880	03 05 04 23 29 5c 32 30 37 22 20 5b 6d 61 74 63 68 2d 64 61 74 61 20 6d 61 6b 65 2d 63 6c 6f 73	...#)\207".[match-data.make-clos
08a0	75 72 65 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 56 30	ure.#[0."\301\300\302\"\207".[V0
08c0	20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 74 5d 20 33 5d 20 73 70 6c 69 74 2d 73 74 72 69	.set-match-data.t].3].split-stri
08e0	6e 67 5d 20 38 20 28 23 24 20 2e 20 31 37 38 38 29 5d 29 23 40 32 30 35 20 53 70 6c 69 74 20 53	ng].8.(#$...1788)])#@205.Split.S
0900	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 6e 67 73 20 62	.up.to.N.times.into.substrings.b
0920	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 70 20 53 45 50	ounded.by.matches.for.regexp.SEP
0940	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 6f 6e 2d 6e 69	ARATOR...If.OMIT-NULLS.is.non-ni
0960	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 72 65 20 6f 6d	l,.zero-length.substrings.are.om
0980	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 0a 0a 28 66 6e	itted...See.also.`s-split'...(fn
09a0	20 53 45 50 41 52 41 54 4f 52 20 53 20 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 4f 4d 49 54 2d 4e 55	.SEPARATOR.S.N.&optional.OMIT-NU
09c0	4c 4c 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	LLS)..(byte-code."\300\301\302\3
09e0	30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 73 70 6c	03#\300\207".[function-put.s-spl
0a00	69 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c	it.side-effect-free.t].4).(defal
0a20	69 61 73 20 27 73 2d 73 70 6c 69 74 2d 75 70 2d 74 6f 20 23 5b 31 30 32 37 20 22 5c 33 30 30 20	ias.'s-split-up-to.#[1027."\300.
0a40	5c 33 30 31 5c 33 30 32 02 5c 22 5c 32 31 36 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c	\301\302.\"\216\303\304\305\306\
0a60	33 30 37 5c 22 72 5c 32 31 31 71 5c 32 31 30 5c 33 30 31 5c 33 31 30 02 5c 22 5c 32 31 36 06 06	307\"r\211q\210\301\310.\"\216..
0a80	63 5c 32 31 30 65 62 5c 32 36 32 03 5c 33 31 31 06 08 5c 33 30 34 5c 33 30 37 23 5c 32 30 33 4d	c\210eb\262.\311..\304\307#\203M
0aa0	00 05 5c 33 30 33 56 5c 32 30 33 4d 00 02 5c 33 30 33 5c 32 32 34 7b 05 5c 32 30 33 3b 00 5c 32	..\303V\203M..\303\224{.\203;.\2
0ac0	31 31 5c 33 31 32 5c 32 33 32 5c 32 30 34 40 00 5c 32 31 31 03 42 5c 32 36 32 03 5c 32 31 30 5c	11\312\232\204@.\211.B\262.\210\
0ae0	33 30 33 5c 32 32 35 62 5c 32 36 32 03 05 53 5c 32 36 32 06 5c 32 30 32 1e 00 02 64 7b 05 5c 32	303\225b\262..S\262.\202...d{.\2
0b00	30 33 5a 00 5c 32 31 31 5c 33 31 32 5c 32 33 32 5c 32 30 34 5f 00 5c 32 31 31 03 42 5c 32 36 32	03Z.\211\312\232\204_.\211.B\262
0b20	03 2a 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 29 5c 32 30 37 22 20 5b 6d 61 74 63 68 2d 64 61 74	.*\266.\211\237)\207".[match-dat
0b40	61 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 5c 33 30 32	a.make-closure.#[0."\301\300\302
0b60	5c 22 5c 32 30 37 22 20 5b 56 30 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 74 5d 20 33 5d	\"\207".[V0.set-match-data.t].3]
0b80	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 20 2a 74 65	.0.nil.generate-new-buffer.".*te
0ba0	6d 70 2a 22 20 74 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 30 35 09 00 5c 33 30 32 5c	mp*".t.#[0."\301\300!\205..\302\
0bc0	33 30 30 21 5c 32 30 37 22 20 5b 56 30 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62	300!\207".[V0.buffer-name.kill-b
0be0	75 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 22 22 5d 20	uffer].2].re-search-forward.""].
0c00	31 32 20 28 23 24 20 2e 20 32 32 39 37 29 5d 29 23 40 36 34 20 53 70 6c 69 74 73 20 53 20 69 6e	12.(#$...2297)])#@64.Splits.S.in
0c20	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 69 6e 65 20	to.a.list.of.strings.on.newline.
0c40	63 68 61 72 61 63 74 65 72 73 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20	characters...(fn.S)..(byte-code.
0c60	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e	"\300\301\302\303#\300\207".[fun
0c80	63 74 69 6f 6e 2d 70 75 74 20 73 2d 73 70 6c 69 74 2d 75 70 2d 74 6f 20 73 69 64 65 2d 65 66 66	ction-put.s-split-up-to.side-eff
0ca0	65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6c 69 6e 65	ect-free.t].4).(defalias.'s-line
0cc0	73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 73 2d 73 70 6c	s.#[257."\300\301.\"\207".[s-spl
0ce0	69 74 20 22 5c 5c 28 0d 5c 6e 5c 5c 7c 5b 5c 6e 0d 5d 5c 5c 29 22 5d 20 34 20 28 23 24 20 2e 20	it."\\(.\n\\|[\n.]\\)"].4.(#$...
0d00	33 30 39 33 29 5d 29 23 40 38 34 20 4a 6f 69 6e 20 61 6c 6c 20 74 68 65 20 73 74 72 69 6e 67 73	3093)])#@84.Join.all.the.strings
0d20	20 69 6e 20 53 54 52 49 4e 47 53 20 77 69 74 68 20 53 45 50 41 52 41 54 4f 52 20 69 6e 20 62 65	.in.STRINGS.with.SEPARATOR.in.be
0d40	74 77 65 65 6e 2e 0a 0a 28 66 6e 20 53 45 50 41 52 41 54 4f 52 20 53 54 52 49 4e 47 53 29 1f 0a	tween...(fn.SEPARATOR.STRINGS)..
0d60	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 5c 33 30	(byte-code."\300\301\302\303#\30
0d80	30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f	0\301\304\303#\300\207".[functio
0da0	6e 2d 70 75 74 20 73 2d 6c 69 6e 65 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74	n-put.s-lines.pure.t.side-effect
0dc0	2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6a 6f 69 6e 20 23 5b 35 31	-free].5).(defalias.'s-join.#[51
0de0	34 20 22 5c 33 30 30 5c 33 30 31 02 04 23 5c 32 30 37 22 20 5b 6d 61 70 63 6f 6e 63 61 74 20 69	4."\300\301..#\207".[mapconcat.i
0e00	64 65 6e 74 69 74 79 5d 20 36 20 28 23 24 20 2e 20 33 33 34 30 29 5d 29 23 40 36 38 20 4a 6f 69	dentity].6.(#$...3340)])#@68.Joi
0e20	6e 20 61 6c 6c 20 74 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	n.all.the.string.arguments.into.
0e40	6f 6e 65 20 73 74 72 69 6e 67 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 53 54 52 49 4e 47 53 29 1f	one.string...(fn.&rest.STRINGS).
0e60	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 5c 33	.(byte-code."\300\301\302\303#\3
0e80	30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69	00\301\304\303#\300\207".[functi
0ea0	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 2d 65 66 66 65 63 74	on-put.s-join.pure.t.side-effect
0ec0	2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 6f 6e 63 61 74 20 23 5b	-free].5).(defalias.'s-concat.#[
0ee0	31 32 38 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 63 6f 6e	128."\300\301.\"\207".[apply.con
0f00	63 61 74 5d 20 34 20 28 23 24 20 2e 20 33 36 31 33 29 5d 29 23 40 34 32 20 43 6f 6e 63 61 74 65	cat].4.(#$...3613)])#@42.Concate
0f20	6e 61 74 65 20 50 52 45 46 49 58 20 61 6e 64 20 53 2e 0a 0a 28 66 6e 20 50 52 45 46 49 58 20 53	nate.PREFIX.and.S...(fn.PREFIX.S
0f40	29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23	)..(byte-code."\300\301\302\303#
0f60	5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63	\300\301\304\303#\300\207".[func
0f80	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 65 66	tion-put.s-concat.pure.t.side-ef
0fa0	66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70 72 65 70 65	fect-free].5).(defalias.'s-prepe
0fc0	6e 64 20 23 5b 35 31 34 20 22 01 01 50 5c 32 30 37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20 33 38	nd.#[514."..P\207".[].4.(#$...38
0fe0	36 35 29 5d 29 23 40 34 32 20 43 6f 6e 63 61 74 65 6e 61 74 65 20 53 20 61 6e 64 20 53 55 46 46	65)])#@42.Concatenate.S.and.SUFF
1000	49 58 2e 0a 0a 28 66 6e 20 53 55 46 46 49 58 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	IX...(fn.SUFFIX.S)..(byte-code."
1020	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30	\300\301\302\303#\300\301\304\30
1040	33 23 5c 33 30 30 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 70	3#\300\207".[function-put.s-prep
1060	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 35 29 0a	end.pure.t.side-effect-free].5).
1080	28 64 65 66 61 6c 69 61 73 20 27 73 2d 61 70 70 65 6e 64 20 23 5b 35 31 34 20 22 5c 32 31 31 02	(defalias.'s-append.#[514."\211.
10a0	50 5c 32 30 37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20 34 30 37 34 29 5d 29 23 40 31 30 33 20 53	P\207".[].4.(#$...4074)])#@103.S
10c0	70 6c 69 63 65 20 4e 45 45 44 4c 45 20 69 6e 74 6f 20 53 20 61 74 20 70 6f 73 69 74 69 6f 6e 20	plice.NEEDLE.into.S.at.position.
10e0	4e 2e 0a 30 20 69 73 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 73 74 72	N..0.is.the.beginning.of.the.str
1100	69 6e 67 2c 20 2d 31 20 69 73 20 74 68 65 20 65 6e 64 2e 0a 0a 28 66 6e 20 4e 45 45 44 4c 45 20	ing,.-1.is.the.end...(fn.NEEDLE.
1120	4e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	N.S)..(byte-code."\300\301\302\3
1140	30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66	03#\300\301\304\303#\300\207".[f
1160	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 69 64 65	unction-put.s-append.pure.t.side
1180	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 70	-effect-free].5).(defalias.'s-sp
11a0	6c 69 63 65 20 23 5b 37 37 31 20 22 01 5c 33 30 30 57 5c 32 30 33 19 00 5c 32 31 31 5c 33 30 30	lice.#[771.".\300W\203..\211\300
11c0	03 54 03 47 5c 5c 4f 5c 33 30 31 5c 33 30 32 04 5a 03 5c 22 01 05 02 51 5c 32 30 37 5c 33 30 33	.T.G\\O\301\302.Z.\"...Q\207\303
11e0	02 02 5c 22 01 03 03 47 4f 01 05 02 51 5c 32 30 37 22 20 5b 30 20 73 2d 72 69 67 68 74 20 2d 31	..\"...GO...Q\207".[0.s-right.-1
1200	20 73 2d 6c 65 66 74 5d 20 38 20 28 23 24 20 2e 20 34 32 38 37 29 5d 29 23 40 35 32 20 4d 61 6b	.s-left].8.(#$...4287)])#@52.Mak
1220	65 20 61 20 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	e.a.string.of.S.repeated.NUM.tim
1240	65 73 2e 0a 0a 28 66 6e 20 4e 55 4d 20 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 72 65	es...(fn.NUM.S)..(defalias.'s-re
1260	70 65 61 74 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 56 5c 32 30 33 13 00 01 01 42 5c	peat.#[514."\300.\301V\203....B\
1280	32 36 32 01 02 53 5c 32 36 32 03 5c 32 30 32 01 00 5c 33 30 32 5c 33 30 33 02 5c 22 5c 32 30 37	262..S\262.\202..\302\303.\"\207
12a0	22 20 5b 6e 69 6c 20 30 20 61 70 70 6c 79 20 63 6f 6e 63 61 74 5d 20 36 20 28 23 24 20 2e 20 34	".[nil.0.apply.concat].6.(#$...4
12c0	36 33 37 29 5d 29 23 40 35 32 20 52 65 6d 6f 76 65 20 53 55 46 46 49 58 20 69 66 20 69 74 20 69	637)])#@52.Remove.SUFFIX.if.it.i
12e0	73 20 61 74 20 65 6e 64 20 6f 66 20 53 2e 0a 0a 28 66 6e 20 53 55 46 46 49 58 20 53 29 1f 0a 28	s.at.end.of.S...(fn.SUFFIX.S)..(
1300	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 5c 33 30 30	byte-code."\300\301\302\303#\300
1320	5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e	\301\304\303#\300\207".[function
1340	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 66 65 63 74	-put.s-repeat.pure.t.side-effect
1360	2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f 70 2d 73 75 66 66	-free].5).(defalias.'s-chop-suff
1380	69 78 20 23 5b 35 31 34 20 22 01 47 5b 01 47 03 47 59 5c 32 30 33 19 00 02 02 02 5c 33 30 30 4f	ix.#[514.".G[.G.GY\203.....\300O
13a0	5c 32 33 30 5c 32 30 33 19 00 01 5c 33 30 31 02 4f 5c 32 30 37 01 5c 32 30 37 22 20 5b 6e 69 6c	\230\203...\301.O\207.\207".[nil
13c0	20 30 5d 20 37 20 28 23 24 20 2e 20 34 38 31 31 29 5d 29 23 40 38 34 20 52 65 6d 6f 76 65 20 53	.0].7.(#$...4811)])#@84.Remove.S
13e0	55 46 46 49 58 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	UFFIXES.one.by.one.in.order,.if.
1400	74 68 65 79 20 61 72 65 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 53 2e 0a 0a 28 66 6e 20 53	they.are.at.the.end.of.S...(fn.S
1420	55 46 46 49 58 45 53 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	UFFIXES.S)..(byte-code."\300\301
1440	5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32	\302\303#\300\301\304\303#\300\2
1460	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 66 66 69 78 20	07".[function-put.s-chop-suffix.
1480	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 35 29 0a 28 64 65 66	pure.t.side-effect-free].5).(def
14a0	61 6c 69 61 73 20 27 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 65 73 20 23 5b 35 31 34 20 22 01 5c	alias.'s-chop-suffixes.#[514.".\
14c0	32 30 33 12 00 5c 33 30 30 02 40 02 5c 22 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 00 00	203..\300.@.\"\262..A\262.\202..
14e0	5c 32 30 37 22 20 5b 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 5d 20 35 20 28 23 24 20 2e 20 35 30	\207".[s-chop-suffix].5.(#$...50
1500	38 30 29 5d 29 23 40 35 38 20 52 65 6d 6f 76 65 20 50 52 45 46 49 58 20 69 66 20 69 74 20 69 73	80)])#@58.Remove.PREFIX.if.it.is
1520	20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 53 2e 0a 0a 28 66 6e 20 50 52 45 46 49 58 20	.at.the.start.of.S...(fn.PREFIX.
1540	53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	S)..(byte-code."\300\301\302\303
1560	23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e	#\300\301\304\303#\300\207".[fun
1580	63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 65 73 20 70 75 72 65 20 74	ction-put.s-chop-suffixes.pure.t
15a0	20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20	.side-effect-free].5).(defalias.
15c0	27 73 2d 63 68 6f 70 2d 70 72 65 66 69 78 20 23 5b 35 31 34 20 22 01 47 01 47 03 47 59 5c 32 30	's-chop-prefix.#[514.".G.G.GY\20
15e0	33 18 00 02 02 5c 33 30 30 03 4f 5c 32 33 30 5c 32 30 33 18 00 01 01 5c 33 30 31 4f 5c 32 30 37	3....\300.O\230\203....\301O\207
1600	01 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 37 20 28 23 24 20 2e 20 35 33 38 36 29 5d 29 23 40	.\207".[0.nil].7.(#$...5386)])#@
1620	38 36 20 52 65 6d 6f 76 65 20 50 52 45 46 49 58 45 53 20 6f 6e 65 20 62 79 20 6f 6e 65 20 69 6e	86.Remove.PREFIXES.one.by.one.in
1640	20 6f 72 64 65 72 2c 20 69 66 20 74 68 65 79 20 61 72 65 20 61 74 20 74 68 65 20 73 74 61 72 74	.order,.if.they.are.at.the.start
1660	20 6f 66 20 53 2e 0a 0a 28 66 6e 20 50 52 45 46 49 58 45 53 20 53 29 1f 0a 28 62 79 74 65 2d 63	.of.S...(fn.PREFIXES.S)..(byte-c
1680	6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33	ode."\300\301\302\303#\300\301\3
16a0	30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73	04\303#\300\207".[function-put.s
16c0	2d 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	-chop-prefix.pure.t.side-effect-
16e0	66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f 70 2d 70 72 65 66 69	free].5).(defalias.'s-chop-prefi
1700	78 65 73 20 23 5b 35 31 34 20 22 01 5c 32 30 33 12 00 5c 33 30 30 02 40 02 5c 22 5c 32 36 32 01	xes.#[514.".\203..\300.@.\"\262.
1720	01 41 5c 32 36 32 02 5c 32 30 32 00 00 5c 32 30 37 22 20 5b 73 2d 63 68 6f 70 2d 70 72 65 66 69	.A\262.\202..\207".[s-chop-prefi
1740	78 5d 20 35 20 28 23 24 20 2e 20 35 36 36 37 29 5d 29 23 40 36 36 20 52 65 74 75 72 6e 73 20 74	x].5.(#$...5667)])#@66.Returns.t
1760	68 65 20 6c 6f 6e 67 65 73 74 20 70 72 65 66 69 78 20 53 31 20 61 6e 64 20 53 32 20 68 61 76 65	he.longest.prefix.S1.and.S2.have
1780	20 69 6e 20 63 6f 6d 6d 6f 6e 2e 0a 0a 28 66 6e 20 53 31 20 53 32 29 1f 0a 28 62 79 74 65 2d 63	.in.common...(fn.S1.S2)..(byte-c
17a0	6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33	ode."\300\301\302\303#\300\301\3
17c0	30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73	04\303#\300\207".[function-put.s
17e0	2d 63 68 6f 70 2d 70 72 65 66 69 78 65 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63	-chop-prefixes.pure.t.side-effec
1800	74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 68 61 72 65 64 2d 73	t-free].5).(defalias.'s-shared-s
1820	74 61 72 74 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 04 47 04 5c 33 30 31 06 06 47 26	tart.#[514."\300.\301.G.\301..G&
1840	06 5c 32 31 31 5c 33 30 32 3d 5c 32 30 33 14 00 02 5c 32 30 37 02 5c 33 30 31 5c 33 30 33 03 21	.\211\302=\203...\207.\301\303.!
1860	53 4f 5c 32 30 37 22 20 5b 63 6f 6d 70 61 72 65 2d 73 74 72 69 6e 67 73 20 30 20 74 20 61 62 73	SO\207".[compare-strings.0.t.abs
1880	5d 20 39 20 28 23 24 20 2e 20 35 39 37 35 29 5d 29 23 40 36 36 20 52 65 74 75 72 6e 73 20 74 68	].9.(#$...5975)])#@66.Returns.th
18a0	65 20 6c 6f 6e 67 65 73 74 20 73 75 66 66 69 78 20 53 31 20 61 6e 64 20 53 32 20 68 61 76 65 20	e.longest.suffix.S1.and.S2.have.
18c0	69 6e 20 63 6f 6d 6d 6f 6e 2e 0a 0a 28 66 6e 20 53 31 20 53 32 29 1f 0a 28 62 79 74 65 2d 63 6f	in.common...(fn.S1.S2)..(byte-co
18e0	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30	de."\300\301\302\303#\300\301\30
1900	34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d	4\303#\300\207".[function-put.s-
1920	73 68 61 72 65 64 2d 73 74 61 72 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d	shared-start.pure.t.side-effect-
1940	66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 68 61 72 65 64 2d 65 6e 64	free].5).(defalias.'s-shared-end
1960	20 23 5b 35 31 34 20 22 01 47 01 47 01 01 5e 5c 33 30 30 5c 32 31 31 02 57 5c 32 30 33 5c 22 00	.#[514.".G.G..^\300\211.W\203\".
1980	05 04 02 5a 53 48 05 04 03 5a 53 48 55 5c 32 30 33 5c 22 00 54 5c 32 30 32 08 00 5c 32 31 31 5c	...ZSH...ZSHU\203\".T\202..\211\
19a0	33 30 30 55 5c 32 30 33 2a 00 5c 33 30 31 5c 32 30 37 05 01 5b 5c 33 30 32 4f 5c 32 30 37 22 20	300U\203*.\301\207..[\302O\207".
19c0	5b 30 20 22 22 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 36 32 39 34 29 5d 29 23 40 35 38 20	[0."".nil].10.(#$...6294)])#@58.
19e0	52 65 6d 6f 76 65 20 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	Remove.one.trailing.`\n`,.`\r`.o
1a00	72 20 60 5c 72 5c 6e 60 20 66 72 6f 6d 20 53 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d	r.`\r\n`.from.S...(fn.S)..(byte-
1a20	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c	code."\300\301\302\303#\300\301\
1a40	33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20	304\303#\300\207".[function-put.
1a60	73 2d 73 68 61 72 65 64 2d 65 6e 64 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d	s-shared-end.pure.t.side-effect-
1a80	66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f 6d 70 20 23 5b 32 35	free].5).(defalias.'s-chomp.#[25
1aa0	37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 73 2d 63 68 6f 70 2d 73 75 66 66	7."\300\301.\"\207".[s-chop-suff
1ac0	69 78 65 73 20 28 22 5c 6e 22 20 22 0d 22 29 5d 20 34 20 28 23 24 20 2e 20 36 36 32 34 29 5d 29	ixes.("\n".".")].4.(#$...6624)])
1ae0	23 40 32 32 33 20 49 66 20 53 20 69 73 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20 4c 45 4e 2c 20 63	#@223.If.S.is.longer.than.LEN,.c
1b00	75 74 20 69 74 20 64 6f 77 6e 20 61 6e 64 20 61 64 64 20 45 4c 4c 49 50 53 49 53 20 74 6f 20 74	ut.it.down.and.add.ELLIPSIS.to.t
1b20	68 65 20 65 6e 64 2e 0a 0a 54 68 65 20 72 65 73 75 6c 74 69 6e 67 20 73 74 72 69 6e 67 2c 20 69	he.end...The.resulting.string,.i
1b40	6e 63 6c 75 64 69 6e 67 20 65 6c 6c 69 70 73 69 73 2c 20 77 69 6c 6c 20 62 65 20 4c 45 4e 20 63	ncluding.ellipsis,.will.be.LEN.c
1b60	68 61 72 61 63 74 65 72 73 0a 6c 6f 6e 67 2e 0a 0a 57 68 65 6e 20 6e 6f 74 20 73 70 65 63 69 66	haracters.long...When.not.specif
1b80	69 65 64 2c 20 45 4c 4c 49 50 53 49 53 20 64 65 66 61 75 6c 74 73 20 74 6f 20 e2 80 98 2e 2e 2e	ied,.ELLIPSIS.defaults.to.......
1ba0	e2 80 99 2e 0a 0a 28 66 6e 20 4c 45 4e 20 53 20 26 6f 70 74 69 6f 6e 61 6c 20 45 4c 4c 49 50 53	......(fn.LEN.S.&optional.ELLIPS
1bc0	49 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	IS)..(byte-code."\300\301\302\30
1be0	33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75	3#\300\301\304\303#\300\207".[fu
1c00	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
1c20	66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 74 72 75 6e	ffect-free].5).(defalias.'s-trun
1c40	63 61 74 65 20 23 5b 37 37 30 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 32 31 30 5c 33 30 30 01 47	cate.#[770."\211\204..\210\300.G
1c60	03 56 5c 32 30 33 1a 00 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 06 06 05 47 5a 4f 03 23 5c 32 30	.V\203..\301\302.\303...GZO.#\20
1c80	37 01 5c 32 30 37 22 20 5b 22 2e 2e 2e 22 20 66 6f 72 6d 61 74 20 22 25 73 25 73 22 20 30 5d 20	7.\207".["...".format."%s%s".0].
1ca0	39 20 28 23 24 20 2e 20 36 38 38 36 29 5d 29 23 40 36 38 20 49 66 20 53 20 69 73 20 6c 6f 6e 67	9.(#$...6886)])#@68.If.S.is.long
1cc0	65 72 20 74 68 61 6e 20 4c 45 4e 2c 20 77 72 61 70 20 74 68 65 20 77 6f 72 64 73 20 77 69 74 68	er.than.LEN,.wrap.the.words.with
1ce0	20 6e 65 77 6c 69 6e 65 73 2e 0a 0a 28 66 6e 20 4c 45 4e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f	.newlines...(fn.LEN.S)..(byte-co
1d00	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30	de."\300\301\302\303#\300\301\30
1d20	34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d	4\303#\300\207".[function-put.s-
1d40	74 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	truncate.pure.t.side-effect-free
1d60	5d 20 35 29 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 35 31	].5).(defalias.'s-word-wrap.#[51
1d80	34 20 22 5c 33 30 31 20 5c 33 30 32 5c 33 30 33 02 5c 22 5c 32 31 36 5c 33 30 34 5c 33 30 35 5c	4."\301.\302\303.\"\216\304\305\
1da0	33 30 36 5c 22 72 5c 32 31 31 71 5c 32 31 30 5c 33 30 32 5c 33 30 37 02 5c 22 5c 32 31 36 02 63	306\"r\211q\210\302\307.\"\216.c
1dc0	5c 32 31 30 03 18 5c 33 31 30 65 64 5c 22 29 5c 32 31 30 65 64 7b 2b 5c 32 30 37 22 20 5b 66 69	\210..\310ed\")\210ed{+\207".[fi
1de0	6c 6c 2d 63 6f 6c 75 6d 6e 20 6d 61 74 63 68 2d 64 61 74 61 20 6d 61 6b 65 2d 63 6c 6f 73 75 72	ll-column.match-data.make-closur
1e00	65 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 56 30 20 73	e.#[0."\301\300\302\"\207".[V0.s
1e20	65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 74 5d 20 33 5d 20 67 65 6e 65 72 61 74 65 2d 6e 65 77	et-match-data.t].3].generate-new
1e40	2d 62 75 66 66 65 72 20 22 20 2a 74 65 6d 70 2a 22 20 74 20 23 5b 30 20 22 5c 33 30 31 5c 33 30	-buffer.".*temp*".t.#[0."\301\30
1e60	30 21 5c 32 30 35 09 00 5c 33 30 32 5c 33 30 30 21 5c 32 30 37 22 20 5b 56 30 20 62 75 66 66 65	0!\205..\302\300!\207".[V0.buffe
1e80	72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 32 5d 20 66 69 6c 6c 2d 72 65 67 69	r-name.kill-buffer].2].fill-regi
1ea0	6f 6e 5d 20 37 20 28 23 24 20 2e 20 37 33 34 38 29 5d 29 23 40 37 37 20 49 66 20 53 20 69 73 20	on].7.(#$...7348)])#@77.If.S.is.
1ec0	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 73 70	shorter.than.LEN,.pad.it.with.sp
1ee0	61 63 65 73 20 73 6f 20 69 74 20 69 73 20 63 65 6e 74 65 72 65 64 2e 0a 0a 28 66 6e 20 4c 45 4e	aces.so.it.is.centered...(fn.LEN
1f00	20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	.S)..(byte-code."\300\301\302\30
1f20	33 23 5c 33 30 30 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	3#\300\207".[function-put.s-word
1f40	2d 77 72 61 70 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65	-wrap.side-effect-free.t].4).(de
1f60	66 61 6c 69 61 73 20 27 73 2d 63 65 6e 74 65 72 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 47 5a	falias.'s-center.#[514."\300..GZ
1f80	5d 5c 33 30 31 5c 33 30 32 02 5c 33 30 33 5c 22 5c 33 30 34 5c 22 02 5c 33 30 31 5c 33 30 35 04	]\301\302.\303\"\304\".\301\305.
1fa0	5c 33 30 33 5c 22 5c 33 30 34 5c 22 51 5c 32 30 37 22 20 5b 30 20 6d 61 6b 65 2d 73 74 72 69 6e	\303\"\304\"Q\207".[0.make-strin
1fc0	67 20 63 65 69 6c 69 6e 67 20 32 20 33 32 20 66 6c 6f 6f 72 5d 20 39 20 28 23 24 20 2e 20 37 38	g.ceiling.2.32.floor].9.(#$...78
1fe0	36 34 29 5d 29 23 40 38 30 20 49 66 20 53 20 69 73 20 73 68 6f 72 74 65 72 20 74 68 61 6e 20 4c	64)])#@80.If.S.is.shorter.than.L
2000	45 4e 2c 20 70 61 64 20 69 74 20 77 69 74 68 20 50 41 44 44 49 4e 47 20 6f 6e 20 74 68 65 20 6c	EN,.pad.it.with.PADDING.on.the.l
2020	65 66 74 2e 0a 0a 28 66 6e 20 4c 45 4e 20 50 41 44 44 49 4e 47 20 53 29 1f 0a 28 62 79 74 65 2d	eft...(fn.LEN.PADDING.S)..(byte-
2040	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c	code."\300\301\302\303#\300\301\
2060	33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20	304\303#\300\207".[function-put.
2080	73 2d 63 65 6e 74 65 72 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65	s-center.pure.t.side-effect-free
20a0	5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70 61 64 2d 6c 65 66 74 20 23 5b 37 37 31	].5).(defalias.'s-pad-left.#[771
20c0	20 22 5c 33 30 30 03 02 47 5a 5d 5c 33 30 31 01 5c 33 30 32 05 21 5c 22 02 50 5c 32 30 37 22 20	."\300..GZ]\301.\302.!\".P\207".
20e0	5b 30 20 6d 61 6b 65 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 2d 74 6f 2d 63 68 61 72 5d 20 38	[0.make-string.string-to-char].8
2100	20 28 23 24 20 2e 20 38 31 37 30 29 5d 29 23 40 38 31 20 49 66 20 53 20 69 73 20 73 68 6f 72 74	.(#$...8170)])#@81.If.S.is.short
2120	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 50 41 44 44 49 4e 47	er.than.LEN,.pad.it.with.PADDING
2140	20 6f 6e 20 74 68 65 20 72 69 67 68 74 2e 0a 0a 28 66 6e 20 4c 45 4e 20 50 41 44 44 49 4e 47 20	.on.the.right...(fn.LEN.PADDING.
2160	53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	S)..(byte-code."\300\301\302\303
2180	23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e	#\300\301\304\303#\300\207".[fun
21a0	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 73 69 64 65	ction-put.s-pad-left.pure.t.side
21c0	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70 61	-effect-free].5).(defalias.'s-pa
21e0	64 2d 72 69 67 68 74 20 23 5b 37 37 31 20 22 5c 33 30 30 03 02 47 5a 5d 01 5c 33 30 31 02 5c 33	d-right.#[771."\300..GZ].\301.\3
2200	30 32 06 06 21 5c 22 50 5c 32 30 37 22 20 5b 30 20 6d 61 6b 65 2d 73 74 72 69 6e 67 20 73 74 72	02..!\"P\207".[0.make-string.str
2220	69 6e 67 2d 74 6f 2d 63 68 61 72 5d 20 39 20 28 23 24 20 2e 20 38 34 36 37 29 5d 29 23 40 35 33	ing-to-char].9.(#$...8467)])#@53
2240	20 52 65 74 75 72 6e 73 20 75 70 20 74 6f 20 74 68 65 20 4c 45 4e 20 66 69 72 73 74 20 63 68 61	.Returns.up.to.the.LEN.first.cha
2260	72 73 20 6f 66 20 53 2e 0a 0a 28 66 6e 20 4c 45 4e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65	rs.of.S...(fn.LEN.S)..(byte-code
2280	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c	."\300\301\302\303#\300\301\304\
22a0	33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 70 61	303#\300\207".[function-put.s-pa
22c0	64 2d 72 69 67 68 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	d-right.pure.t.side-effect-free]
22e0	20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6c 65 66 74 20 23 5b 35 31 34 20 22 5c 32 31	.5).(defalias.'s-left.#[514."\21
2300	31 47 02 56 5c 32 30 33 5c 66 00 5c 32 31 31 5c 33 30 30 03 4f 5c 32 30 37 5c 32 30 37 22 20 5b	1G.V\203\f.\211\300.O\207\207".[
2320	30 5d 20 35 20 28 23 24 20 2e 20 38 37 36 39 29 5d 29 23 40 35 32 20 52 65 74 75 72 6e 73 20 75	0].5.(#$...8769)])#@52.Returns.u
2340	70 20 74 6f 20 74 68 65 20 4c 45 4e 20 6c 61 73 74 20 63 68 61 72 73 20 6f 66 20 53 2e 0a 0a 28	p.to.the.LEN.last.chars.of.S...(
2360	66 6e 20 4c 45 4e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c	fn.LEN.S)..(byte-code."\300\301\
2380	33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30	302\303#\300\301\304\303#\300\20
23a0	37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6c 65 66 74 20 70 75 72 65 20 74 20 73	7".[function-put.s-left.pure.t.s
23c0	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73	ide-effect-free].5).(defalias.'s
23e0	2d 72 69 67 68 74 20 23 5b 35 31 34 20 22 5c 32 31 31 47 5c 32 31 31 03 56 5c 32 30 33 0f 00 01	-right.#[514."\211G\211.V\203...
2400	01 04 5a 02 4f 5c 32 30 37 01 5c 32 30 37 22 20 5b 5d 20 36 20 28 23 24 20 2e 20 39 30 31 35 29	..Z.O\207.\207".[].6.(#$...9015)
2420	5d 29 23 40 34 38 20 52 65 6d 6f 76 65 20 74 68 65 20 66 69 72 73 74 20 4c 45 4e 20 63 68 61 72	])#@48.Remove.the.first.LEN.char
2440	73 20 66 72 6f 6d 20 53 2e 0a 0a 28 66 6e 20 4c 45 4e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64	s.from.S...(fn.LEN.S)..(byte-cod
2460	65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34	e."\300\301\302\303#\300\301\304
2480	5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 72	\303#\300\207".[function-put.s-r
24a0	69 67 68 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 35 29	ight.pure.t.side-effect-free].5)
24c0	0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f 70 2d 6c 65 66 74 20 23 5b 35 31 34 20 22 5c	.(defalias.'s-chop-left.#[514."\
24e0	32 31 31 47 5c 32 31 31 03 56 5c 32 30 33 0d 00 01 03 02 4f 5c 32 30 37 5c 33 30 30 5c 32 30 37	211G\211.V\203.....O\207\300\207
2500	22 20 5b 22 22 5d 20 36 20 28 23 24 20 2e 20 39 32 35 35 29 5d 29 23 40 34 37 20 52 65 6d 6f 76	".[""].6.(#$...9255)])#@47.Remov
2520	65 20 74 68 65 20 6c 61 73 74 20 4c 45 4e 20 63 68 61 72 73 20 66 72 6f 6d 20 53 2e 0a 0a 28 66	e.the.last.LEN.chars.from.S...(f
2540	6e 20 4c 45 4e 20 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f 70 2d 72 69 67 68	n.LEN.S)..(defalias.'s-chop-righ
2560	74 20 23 5b 35 31 34 20 22 5c 32 31 31 47 5c 32 31 31 03 56 5c 32 30 33 0f 00 01 5c 33 30 30 02	t.#[514."\211G\211.V\203...\300.
2580	05 5a 4f 5c 32 30 37 5c 33 30 31 5c 32 30 37 22 20 5b 30 20 22 22 5d 20 37 20 28 23 24 20 2e 20	.ZO\207\301\207".[0.""].7.(#$...
25a0	39 34 39 39 29 5d 29 23 40 31 37 39 20 44 6f 65 73 20 53 20 65 6e 64 20 77 69 74 68 20 53 55 46	9499)])#@179.Does.S.end.with.SUF
25c0	46 49 58 3f 0a 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	FIX?..If.IGNORE-CASE.is.non-nil,
25e0	20 74 68 65 20 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	.the.comparison.is.done.without.
2600	70 61 79 69 6e 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	paying.attention.to.case.differe
2620	6e 63 65 73 2e 0a 0a 41 6c 69 61 73 3a 20 60 73 2d 73 75 66 66 69 78 3f 27 0a 0a 28 66 6e 20 53	nces...Alias:.`s-suffix?'..(fn.S
2640	55 46 46 49 58 20 53 20 26 6f 70 74 69 6f 6e 61 6c 20 49 47 4e 4f 52 45 2d 43 41 53 45 29 1f 0a	UFFIX.S.&optional.IGNORE-CASE)..
2660	28 64 65 66 61 6c 69 61 73 20 27 73 2d 65 6e 64 73 2d 77 69 74 68 3f 20 23 5b 37 37 30 20 22 01	(defalias.'s-ends-with?.#[770.".
2680	47 03 47 5a 5c 32 31 31 5c 33 30 30 59 5c 32 30 35 19 00 5c 33 30 31 04 5c 33 30 32 5c 32 31 31	G.GZ\211\300Y\205..\301.\302\211
26a0	06 06 05 5c 33 30 32 06 08 26 07 5c 33 30 33 3d 5c 32 30 37 22 20 5b 30 20 63 6f 6d 70 61 72 65	...\302..&.\303=\207".[0.compare
26c0	2d 73 74 72 69 6e 67 73 20 6e 69 6c 20 74 5d 20 31 32 20 28 23 24 20 2e 20 39 36 34 35 29 5d 29	-strings.nil.t].12.(#$...9645)])
26e0	23 40 32 34 36 20 44 6f 65 73 20 53 20 73 74 61 72 74 20 77 69 74 68 20 50 52 45 46 49 58 3f 0a	#@246.Does.S.start.with.PREFIX?.
2700	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.
2720	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
2740	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.
2760	0a 0a 41 6c 69 61 73 3a 20 60 73 2d 70 72 65 66 69 78 3f 27 2e 20 54 68 69 73 20 69 73 20 61 20	..Alias:.`s-prefix?'..This.is.a.
2780	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 2d	simple.wrapper.around.the.built-
27a0	69 6e 0a 60 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 27 2e 0a 0a 28 66 6e 20 50 52 45 46 49	in.`string-prefix-p'...(fn.PREFI
27c0	58 20 53 20 26 6f 70 74 69 6f 6e 61 6c 20 49 47 4e 4f 52 45 2d 43 41 53 45 29 1f 0a 28 62 79 74	X.S.&optional.IGNORE-CASE)..(byt
27e0	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 33 30 30 5c 33 30	e-code."\300\301\302\303#\300\30
2800	31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75	1\304\303#\300\207".[function-pu
2820	74 20 73 2d 65 6e 64 73 2d 77 69 74 68 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63	t.s-ends-with?.pure.t.side-effec
2840	74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 74 61 72 74 73 2d 77	t-free].5).(defalias.'s-starts-w
2860	69 74 68 3f 20 23 5b 37 37 30 20 22 5c 33 30 30 03 03 03 23 5c 32 30 37 22 20 5b 73 74 72 69 6e	ith?.#[770."\300...#\207".[strin
2880	67 2d 70 72 65 66 69 78 2d 70 5d 20 37 20 28 23 24 20 2e 20 39 39 35 38 29 5d 29 23 40 31 32 20	g-prefix-p].7.(#$...9958)])#@12.
28a0	0a 0a 28 66 6e 20 56 41 4c 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	..(fn.VAL)..(byte-code."\300\301
28c0	5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32	\302\303#\300\301\304\303#\300\2
28e0	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 69 74 68 3f	07".[function-put.s-starts-with?
2900	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 35 29 0a 28 64 65	.pure.t.side-effect-free].5).(de
2920	66 61 6c 69 61 73 20 27 73 2d 2d 74 72 75 74 68 79 3f 20 23 5b 32 35 37 20 22 5c 32 31 31 3f 3f	falias.'s--truthy?.#[257."\211??
2940	5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 31 30 34 30 30 29 5d 29 23 40 31 35 38 20 44	\207".[].2.(#$...10400)])#@158.D
2960	6f 65 73 20 53 20 63 6f 6e 74 61 69 6e 20 4e 45 45 44 4c 45 3f 0a 0a 49 66 20 49 47 4e 4f 52 45	oes.S.contain.NEEDLE?..If.IGNORE
2980	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 73 6f 6e	-CASE.is.non-nil,.the.comparison
29a0	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 74 69 6f	.is.done.without.paying.attentio
29c0	6e 20 74 6f 20 63 61 73 65 20 64 69 66 66 65 72 65 6e 63 65 73 2e 0a 0a 28 66 6e 20 4e 45 45 44	n.to.case.differences...(fn.NEED
29e0	4c 45 20 53 20 26 6f 70 74 69 6f 6e 61 6c 20 49 47 4e 4f 52 45 2d 43 41 53 45 29 1f 0a 28 62 79	LE.S.&optional.IGNORE-CASE)..(by
2a00	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 33 30 30 5c 33	te-code."\300\301\302\303#\300\3
2a20	30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70	01\304\303#\300\207".[function-p
2a40	75 74 20 73 2d 2d 74 72 75 74 68 79 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74	ut.s--truthy?.pure.t.side-effect
2a60	2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 6f 6e 74 61 69 6e 73 3f	-free].5).(defalias.'s-contains?
2a80	20 23 5b 37 37 30 20 22 5c 32 31 31 18 5c 33 30 31 5c 33 30 32 04 21 03 5c 33 30 33 5c 33 30 34	.#[770."\211.\301\302.!.\303\304
2aa0	03 03 03 5c 33 30 35 24 5c 32 36 36 5c 32 30 33 21 29 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f	...\305$\266\203!)\207".[case-fo
2ac0	6c 64 2d 73 65 61 72 63 68 20 73 2d 2d 74 72 75 74 68 79 3f 20 72 65 67 65 78 70 2d 71 75 6f 74	ld-search.s--truthy?.regexp-quot
2ae0	65 20 6e 69 6c 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 74 5d 20 31 32 20 28 23 24 20 2e 20 31	e.nil.string-match.t].12.(#$...1
2b00	30 35 39 31 29 5d 29 23 40 39 34 20 49 73 20 53 31 20 65 71 75 61 6c 20 74 6f 20 53 32 3f 0a 0a	0591)])#@94.Is.S1.equal.to.S2?..
2b20	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.
2b40	74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 73 74 72 69 6e 67 2d 65 71 75 61 6c 27 2e 0a 0a 28 66	the.built-in.`string-equal'...(f
2b60	6e 20 53 31 20 53 32 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	n.S1.S2)..(byte-code."\300\301\3
2b80	30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37	02\303#\300\301\304\303#\300\207
2ba0	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 3f 20 70 75 72 65	".[function-put.s-contains?.pure
2bc0	20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61	.t.side-effect-free].5).(defalia
2be0	73 20 27 73 2d 65 71 75 61 6c 73 3f 20 23 5b 35 31 34 20 22 01 01 5c 32 33 30 5c 32 30 37 22 20	s.'s-equals?.#[514."..\230\207".
2c00	5b 5d 20 34 20 28 23 24 20 2e 20 31 31 30 32 30 29 5d 29 23 40 39 35 20 49 73 20 53 31 20 6c 65	[].4.(#$...11020)])#@95.Is.S1.le
2c20	73 73 20 74 68 61 6e 20 53 32 3f 0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72	ss.than.S2?..This.is.a.simple.wr
2c40	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 74 72 69 6e	apper.around.the.built-in.`strin
2c60	67 2d 6c 65 73 73 70 27 2e 0a 0a 28 66 6e 20 53 31 20 53 32 29 1f 0a 28 62 79 74 65 2d 63 6f 64	g-lessp'...(fn.S1.S2)..(byte-cod
2c80	65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34	e."\300\301\302\303#\300\301\304
2ca0	5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 65	\303#\300\207".[function-put.s-e
2cc0	71 75 61 6c 73 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	quals?.pure.t.side-effect-free].
2ce0	35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6c 65 73 73 3f 20 23 5b 35 31 34 20 22 01 01 5c	5).(defalias.'s-less?.#[514."..\
2d00	32 33 31 5c 32 30 37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20 31 31 32 38 38 29 5d 29 23 40 31 37	231\207".[].4.(#$...11288)])#@17
2d20	30 20 44 6f 65 73 20 52 45 47 45 58 50 20 6d 61 74 63 68 20 53 3f 0a 49 66 20 53 54 41 52 54 20	0.Does.REGEXP.match.S?.If.START.
2d40	69 73 20 6e 6f 6e 2d 6e 69 6c 20 74 68 65 20 73 65 61 72 63 68 20 73 74 61 72 74 73 20 61 74 20	is.non-nil.the.search.starts.at.
2d60	74 68 61 74 20 69 6e 64 65 78 2e 0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72	that.index...This.is.a.simple.wr
2d80	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 74 72 69 6e	apper.around.the.built-in.`strin
2da0	67 2d 6d 61 74 63 68 2d 70 27 2e 0a 0a 28 66 6e 20 52 45 47 45 58 50 20 53 20 26 6f 70 74 69 6f	g-match-p'...(fn.REGEXP.S.&optio
2dc0	6e 61 6c 20 53 54 41 52 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	nal.START)..(byte-code."\300\301
2de0	5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32	\302\303#\300\301\304\303#\300\2
2e00	30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6c 65 73 73 3f 20 70 75 72 65 20 74	07".[function-put.s-less?.pure.t
2e20	20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20	.side-effect-free].5).(defalias.
2e40	27 73 2d 6d 61 74 63 68 65 73 3f 20 23 5b 37 37 30 20 22 5c 33 30 30 03 03 03 5c 33 30 31 03 03	's-matches?.#[770."\300...\301..
2e60	03 5c 33 30 32 24 5c 32 36 36 5c 32 30 33 21 5c 32 30 37 22 20 5b 73 2d 2d 74 72 75 74 68 79 3f	.\302$\266\203!\207".[s--truthy?
2e80	20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 74 5d 20 31 32 20 28 23 24 20 2e 20 31 31 35 35 34 29	.string-match.t].12.(#$...11554)
2ea0	5d 29 23 40 33 39 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	])#@39.Is.S.nil.or.the.empty.str
2ec0	69 6e 67 3f 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	ing?..(fn.S)..(byte-code."\300\3
2ee0	30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70	01\302\303#\300\207".[function-p
2f00	75 74 20 73 2d 6d 61 74 63 68 65 73 3f 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74	ut.s-matches?.side-effect-free.t
2f20	5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 62 6c 61 6e 6b 3f 20 23 5b 32 35 37 20 22	].4).(defalias.'s-blank?.#[257."
2f40	5c 32 31 31 3f 5c 32 30 36 08 00 5c 32 31 31 5c 33 30 30 5c 32 33 30 5c 32 30 37 22 20 5b 22 22	\211?\206..\211\300\230\207".[""
2f60	5d 20 33 20 28 23 24 20 2e 20 31 31 39 34 33 29 5d 29 23 40 37 34 20 49 73 20 53 20 6e 69 6c 20	].3.(#$...11943)])#@74.Is.S.nil.
2f80	6f 72 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 20 6f 72 20 73 74 72 69 6e 67 20 6f 6e	or.the.empty.string.or.string.on
2fa0	6c 79 20 63 6f 6e 74 61 69 6e 73 20 77 68 69 74 65 73 70 61 63 65 3f 0a 0a 28 66 6e 20 53 29 1f	ly.contains.whitespace?..(fn.S).
2fc0	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 5c 33	.(byte-code."\300\301\302\303#\3
2fe0	30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69	00\301\304\303#\300\207".[functi
3000	6f 6e 2d 70 75 74 20 73 2d 62 6c 61 6e 6b 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65	on-put.s-blank?.pure.t.side-effe
3020	63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 62 6c 61 6e 6b 2d 73	ct-free].5).(defalias.'s-blank-s
3040	74 72 3f 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 36 0b 00 5c 33 30 30 5c 33 30 31 02	tr?.#[257."\300.!\206..\300\301.
3060	21 21 5c 32 30 37 22 20 5b 73 2d 62 6c 61 6e 6b 3f 20 73 2d 74 72 69 6d 5d 20 34 20 28 23 24 20	!!\207".[s-blank?.s-trim].4.(#$.
3080	2e 20 31 32 31 35 31 29 5d 29 23 40 35 32 20 49 73 20 53 20 61 6e 79 74 68 69 6e 67 20 62 75 74	..12151)])#@52.Is.S.anything.but
30a0	20 6e 69 6c 20 6f 72 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 3f 0a 0a 28 66 6e 20 53	.nil.or.the.empty.string?..(fn.S
30c0	29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23	)..(byte-code."\300\301\302\303#
30e0	5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63	\300\301\304\303#\300\207".[func
3100	74 69 6f 6e 2d 70 75 74 20 73 2d 62 6c 61 6e 6b 2d 73 74 72 3f 20 70 75 72 65 20 74 20 73 69 64	tion-put.s-blank-str?.pure.t.sid
3120	65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70	e-effect-free].5).(defalias.'s-p
3140	72 65 73 65 6e 74 3f 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 3f 5c 32 30 37 22 20 5b 73 2d 62	resent?.#[257."\300.!?\207".[s-b
3160	6c 61 6e 6b 3f 5d 20 33 20 28 23 24 20 2e 20 31 32 34 33 31 29 5d 29 23 40 36 32 20 52 65 74 75	lank?].3.(#$...12431)])#@62.Retu
3180	72 6e 20 53 20 69 66 20 69 74 27 73 20 60 73 2d 70 72 65 73 65 6e 74 3f 27 2c 20 6f 74 68 65 72	rn.S.if.it's.`s-present?',.other
31a0	77 69 73 65 20 72 65 74 75 72 6e 20 6e 69 6c 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d	wise.return.nil...(fn.S)..(byte-
31c0	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c	code."\300\301\302\303#\300\301\
31e0	33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20	304\303#\300\207".[function-put.
3200	73 2d 70 72 65 73 65 6e 74 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72	s-present?.pure.t.side-effect-fr
3220	65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70 72 65 73 65 6e 63 65 20 23 5b 32	ee].5).(defalias.'s-presence.#[2
3240	35 37 20 22 5c 33 30 30 01 21 5c 32 30 35 07 00 5c 32 31 31 5c 32 30 37 22 20 5b 73 2d 70 72 65	57."\300.!\205..\211\207".[s-pre
3260	73 65 6e 74 3f 5d 20 33 20 28 23 24 20 2e 20 31 32 36 36 38 29 5d 29 23 40 34 39 20 41 72 65 20	sent?].3.(#$...12668)])#@49.Are.
3280	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 20 63 61	all.the.letters.in.S.in.lower.ca
32a0	73 65 3f 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	se?..(fn.S)..(byte-code."\300\30
32c0	31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c	1\302\303#\300\301\304\303#\300\
32e0	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
3300	72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c	re.t.side-effect-free].5).(defal
3320	69 61 73 20 27 73 2d 6c 6f 77 65 72 63 61 73 65 3f 20 23 5b 32 35 37 20 22 5c 33 30 31 18 5c 33	ias.'s-lowercase?.#[257."\301.\3
3340	30 32 01 5c 33 30 31 5c 33 30 33 03 03 03 5c 33 30 34 24 29 3f 5c 32 30 37 22 20 5b 63 61 73 65	02.\301\303...\304$)?\207".[case
3360	2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 20 22 5b 5b 3a 75 70 70 65 72 3a 5d 5d 22 20 73	-fold-search.nil."[[:upper:]]".s
3380	74 72 69 6e 67 2d 6d 61 74 63 68 20 74 5d 20 39 20 28 23 24 20 2e 20 31 32 39 32 34 29 5d 29 23	tring-match.t].9.(#$...12924)])#
33a0	40 34 39 20 41 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	@49.Are.all.the.letters.in.S.in.
33c0	75 70 70 65 72 20 63 61 73 65 3f 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20	upper.case?..(fn.S)..(byte-code.
33e0	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e	"\300\301\302\303#\300\207".[fun
3400	63 74 69 6f 6e 2d 70 75 74 20 73 2d 6c 6f 77 65 72 63 61 73 65 3f 20 73 69 64 65 2d 65 66 66 65	ction-put.s-lowercase?.side-effe
3420	63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 75 70 70 65 72	ct-free.t].4).(defalias.'s-upper
3440	63 61 73 65 3f 20 23 5b 32 35 37 20 22 5c 33 30 31 18 5c 33 30 32 01 5c 33 30 31 5c 33 30 33 03	case?.#[257."\301.\302.\301\303.
3460	03 03 5c 33 30 34 24 29 3f 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68	..\304$)?\207".[case-fold-search
3480	20 6e 69 6c 20 22 5b 5b 3a 6c 6f 77 65 72 3a 5d 5d 22 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20	.nil."[[:lower:]]".string-match.
34a0	74 5d 20 39 20 28 23 24 20 2e 20 31 33 32 32 30 29 5d 29 23 40 36 34 20 41 72 65 20 74 68 65 72	t].9.(#$...13220)])#@64.Are.ther
34c0	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 20 63 61 73 65	e.both.lower.case.and.upper.case
34e0	20 6c 65 74 74 65 72 73 20 69 6e 20 53 3f 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f	.letters.in.S?..(fn.S)..(byte-co
3500	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b	de."\300\301\302\303#\300\207".[
3520	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 75 70 70 65 72 63 61 73 65 3f 20 73 69 64 65 2d 65	function-put.s-uppercase?.side-e
3540	66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6d 69	ffect-free.t].4).(defalias.'s-mi
3560	78 65 64 63 61 73 65 3f 20 23 5b 32 35 37 20 22 5c 33 30 31 18 5c 33 30 32 5c 33 30 33 02 5c 33	xedcase?.#[257."\301.\302\303.\3
3580	30 31 5c 33 30 34 03 03 03 5c 33 30 35 24 5c 32 36 36 5c 32 30 33 5c 32 30 35 1c 00 5c 33 30 36	01\304...\305$\266\203\205..\306
35a0	02 5c 33 30 31 5c 33 30 34 03 03 03 5c 33 30 35 24 5c 32 36 36 5c 32 30 33 21 29 5c 32 30 37 22	.\301\304...\305$\266\203!)\207"
35c0	20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 20 73 2d 2d 74 72 75 74 68 79	.[case-fold-search.nil.s--truthy
35e0	3f 20 22 5b 5b 3a 6c 6f 77 65 72 3a 5d 5d 22 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 74 20 22	?."[[:lower:]]".string-match.t."
3600	5b 5b 3a 75 70 70 65 72 3a 5d 5d 22 5d 20 31 30 20 28 23 24 20 2e 20 31 33 34 39 36 29 5d 29 23	[[:upper:]]"].10.(#$...13496)])#
3620	40 38 31 20 49 6e 20 53 2c 20 69 73 20 74 68 65 20 66 69 72 73 74 20 6c 65 74 74 65 72 20 75 70	@81.In.S,.is.the.first.letter.up
3640	70 65 72 20 63 61 73 65 2c 20 61 6e 64 20 61 6c 6c 20 6f 74 68 65 72 20 6c 65 74 74 65 72 73 20	per.case,.and.all.other.letters.
3660	6c 6f 77 65 72 20 63 61 73 65 3f 0a 0a 28 66 6e 20 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	lower.case?..(fn.S)..(defalias.'
3680	73 2d 63 61 70 69 74 61 6c 69 7a 65 64 3f 20 23 5b 32 35 37 20 22 5c 33 30 31 18 5c 33 30 32 5c	s-capitalized?.#[257."\301.\302\
36a0	33 30 33 02 5c 33 30 31 5c 33 30 34 03 03 03 5c 33 30 35 24 5c 32 36 36 5c 32 30 33 21 29 5c 32	303.\301\304...\305$\266\203!)\2
36c0	30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 20 73 2d 2d 74 72 75	07".[case-fold-search.nil.s--tru
36e0	74 68 79 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 2a 24	thy?."^[[:upper:]][^[:upper:]]*$
3700	22 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 74 5d 20 31 30 20 28 23 24 20 2e 20 31 33 38 36 30	".string-match.t].10.(#$...13860
3720	29 5d 29 23 40 32 34 20 49 73 20 53 20 61 20 6e 75 6d 62 65 72 3f 0a 0a 28 66 6e 20 53 29 1f 0a	)])#@24.Is.S.a.number?..(fn.S)..
3740	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 5c 33 30	(byte-code."\300\301\302\303#\30
3760	30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 61 70 69 74 61 6c 69 7a	0\207".[function-put.s-capitaliz
3780	65 64 3f 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61	ed?.side-effect-free.t].4).(defa
37a0	6c 69 61 73 20 27 73 2d 6e 75 6d 65 72 69 63 3f 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31	lias.'s-numeric?.#[257."\300\301
37c0	02 5c 33 30 32 5c 33 30 33 03 03 03 5c 33 30 34 24 5c 32 36 36 5c 32 30 33 21 5c 32 30 37 22 20	.\302\303...\304$\266\203!\207".
37e0	5b 73 2d 2d 74 72 75 74 68 79 3f 20 22 5e 5b 30 2d 39 5d 2b 24 22 20 6e 69 6c 20 73 74 72 69 6e	[s--truthy?."^[0-9]+$".nil.strin
3800	67 2d 6d 61 74 63 68 20 74 5d 20 31 30 20 28 23 24 20 2e 20 31 34 31 32 30 29 5d 29 23 40 34 35	g-match.t].10.(#$...14120)])#@45
3820	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 0a 0a 28 66	.Replaces.OLD.with.NEW.in.S...(f
3840	6e 20 4f 4c 44 20 4e 45 57 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	n.OLD.NEW.S)..(byte-code."\300\3
3860	30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30	01\302\303#\300\301\304\303#\300
3880	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 3f 20 70	\207".[function-put.s-numeric?.p
38a0	75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61	ure.t.side-effect-free].5).(defa
38c0	6c 69 61 73 20 27 73 2d 72 65 70 6c 61 63 65 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 04	lias.'s-replace.#[771."\300\301.
38e0	21 03 03 5c 33 30 32 5c 32 31 31 25 5c 32 30 37 22 20 5b 72 65 70 6c 61 63 65 2d 72 65 67 65 78	!..\302\211%\207".[replace-regex
3900	70 2d 69 6e 2d 73 74 72 69 6e 67 20 72 65 67 65 78 70 2d 71 75 6f 74 65 20 74 5d 20 39 20 28 23	p-in-string.regexp-quote.t].9.(#
3920	24 20 2e 20 31 34 33 36 39 29 5d 29 23 40 34 38 20 47 65 74 20 74 68 65 20 76 61 6c 75 65 20 6f	$...14369)])#@48.Get.the.value.o
3940	66 20 4b 45 59 20 69 6e 20 41 4c 49 53 54 2e 0a 0a 28 66 6e 20 41 4c 49 53 54 20 4b 45 59 29 1f	f.KEY.in.ALIST...(fn.ALIST.KEY).
3960	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 5c 33	.(byte-code."\300\301\302\303#\3
3980	30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 22 5c 32 30	00\301\304\303#\305\306\307\"\20
39a0	37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 72 65 70 6c 61 63 65 20 70 75 72 65 20	7".[function-put.s-replace.pure.
39c0	74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 73 2d 72 65	t.side-effect-free.defalias.s-re
39e0	70 6c 61 63 65 2d 72 65 67 65 78 70 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73	place-regexp.replace-regexp-in-s
3a00	74 72 69 6e 67 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 2d 61 67 65 74 20 23 5b 35	tring].5).(defalias.'s--aget.#[5
3a20	31 34 20 22 5c 33 30 30 01 03 5c 22 41 5c 32 30 37 22 20 5b 61 73 73 6f 63 2d 73 74 72 69 6e 67	14."\300..\"A\207".[assoc-string
3a40	5d 20 35 20 28 23 24 20 2e 20 31 34 36 34 31 29 5d 29 23 40 31 30 30 20 52 45 50 4c 41 43 45 4d	].5.(#$...14641)])#@100.REPLACEM
3a60	45 4e 54 53 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	ENTS.is.a.list.of.cons-cells..Ea
3a80	63 68 20 60 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	ch.`car`.is.replaced.with.`cdr`.
3aa0	69 6e 20 53 2e 0a 0a 28 66 6e 20 52 45 50 4c 41 43 45 4d 45 4e 54 53 20 53 29 1f 23 40 31 31 20	in.S...(fn.REPLACEMENTS.S).#@11.
3ac0	0a 0a 28 66 6e 20 49 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c	..(fn.IT)..(byte-code."\300\301\
3ae0	33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30	302\303#\300\301\304\303#\300\20
3b00	37 22 20 5b 66 75 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	7".[function-put.s--aget.pure.t.
3b20	73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27	side-effect-free].5).(defalias.'
3b40	73 2d 72 65 70 6c 61 63 65 2d 61 6c 6c 20 23 5b 35 31 34 20 22 5c 33 30 31 18 5c 33 30 32 5c 33	s-replace-all.#[514."\301.\302\3
3b60	30 33 5c 33 30 34 5c 33 30 35 05 5c 22 21 5c 33 30 36 5c 33 30 37 05 5c 22 03 5c 33 31 30 5c 32	03\304\305.\"!\306\307.\".\310\2
3b80	31 31 25 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 6e 69 6c 20	11%)\207".[case-fold-search.nil.
3ba0	72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 72 65 67 65 78 70 2d	replace-regexp-in-string.regexp-
3bc0	6f 70 74 20 6d 61 70 63 61 72 20 63 61 72 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35	opt.mapcar.car.make-closure.#[25
3be0	37 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 30 37 22 20 5b 56 30 20 73 2d 2d 61 67 65 74 5d	7."\301\300.\"\207".[V0.s--aget]
3c00	20 34 20 28 23 24 20 2e 20 31 35 30 34 30 29 5d 20 74 5d 20 38 20 28 23 24 20 2e 20 31 34 39 33	.4.(#$...15040)].t].8.(#$...1493
3c20	36 29 5d 29 23 40 39 32 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 6c 6f 77 65 72 20 63 61 73 65	6)])#@92.Convert.S.to.lower.case
3c40	2e 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	...This.is.a.simple.wrapper.arou
3c60	6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 64 6f 77 6e 63 61 73 65 27 2e 0a 0a 28 66 6e	nd.the.built-in.`downcase'...(fn
3c80	20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	.S)..(byte-code."\300\301\302\30
3ca0	33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75	3#\300\301\304\303#\300\207".[fu
3cc0	6e 63 74 69 6f 6e 2d 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	nction-put.s-replace-all.pure.t.
3ce0	73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27	side-effect-free].5).(defalias.'
3d00	73 2d 64 6f 77 6e 63 61 73 65 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 32 37 5c 32 30 37 22 20	s-downcase.#[257."\211\227\207".
3d20	5b 5d 20 32 20 28 23 24 20 2e 20 31 35 34 30 31 29 5d 29 23 40 39 30 20 43 6f 6e 76 65 72 74 20	[].2.(#$...15401)])#@90.Convert.
3d40	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
3d60	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.`
3d80	75 70 63 61 73 65 27 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	upcase'...(fn.S)..(byte-code."\3
3da0	30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69	00\301\302\303#\300\207".[functi
3dc0	6f 6e 2d 70 75 74 20 73 2d 64 6f 77 6e 63 61 73 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72	on-put.s-downcase.side-effect-fr
3de0	65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 75 70 63 61 73 65 20 23 5b 32	ee.t].4).(defalias.'s-upcase.#[2
3e00	35 37 20 22 5c 32 31 31 5c 32 32 36 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 31 35 36	57."\211\226\207".[].2.(#$...156
3e20	37 32 29 5d 29 23 40 38 35 20 43 6f 6e 76 65 72 74 20 53 20 66 69 72 73 74 20 77 6f 72 64 27 73	72)])#@85.Convert.S.first.word's
3e40	20 66 69 72 73 74 20 63 68 61 72 61 63 74 65 72 20 74 6f 20 75 70 70 65 72 20 61 6e 64 20 74 68	.first.character.to.upper.and.th
3e60	65 20 72 65 73 74 20 74 6f 20 6c 6f 77 65 72 20 63 61 73 65 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28	e.rest.to.lower.case...(fn.S)..(
3e80	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 5c 33 30 30	byte-code."\300\301\302\303#\300
3ea0	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 75 70 63 61 73 65 20 73 69 64	\207".[function-put.s-upcase.sid
3ec0	65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73	e-effect-free.t].4).(defalias.'s
3ee0	2d 63 61 70 69 74 61 6c 69 7a 65 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 30 5c 33 30 31 4f	-capitalize.#[257."\211\300\301O
3f00	5c 32 32 36 01 5c 33 30 31 5c 33 30 32 4f 5c 32 32 37 50 5c 32 30 37 22 20 5b 30 20 31 20 6e 69	\226.\301\302O\227P\207".[0.1.ni
3f20	6c 5d 20 35 20 28 23 24 20 2e 20 31 35 39 31 34 29 5d 29 23 40 31 34 37 20 43 6f 6e 76 65 72 74	l].5.(#$...15914)])#@147.Convert
3f40	20 69 6e 20 53 20 65 61 63 68 20 77 6f 72 64 27 73 20 66 69 72 73 74 20 63 68 61 72 61 63 74 65	.in.S.each.word's.first.characte
3f60	72 20 74 6f 20 75 70 70 65 72 20 61 6e 64 20 74 68 65 20 72 65 73 74 20 74 6f 20 6c 6f 77 65 72	r.to.upper.and.the.rest.to.lower
3f80	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 61 70 70 65 72	.case...This.is.a.simple.wrapper
3fa0	20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 63 61 70 69 74 61 6c 69 7a 65	.around.the.built-in.`capitalize
3fc0	27 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	'...(fn.S)..(byte-code."\300\301
3fe0	5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74	\302\303#\300\207".[function-put
4000	20 73 2d 63 61 70 69 74 61 6c 69 7a 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74	.s-capitalize.side-effect-free.t
4020	5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 74 69 74 6c 65 69 7a 65 20 23 5b 32 35 37	].4).(defalias.'s-titleize.#[257
4040	20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 63 61 70 69 74 61 6c 69 7a 65 5d 20 33 20 28 23 24	."\300.!\207".[capitalize].3.(#$
4060	20 2e 20 31 36 31 38 35 29 5d 29 23 40 32 33 35 20 54 68 72 65 61 64 73 20 53 20 74 68 72 6f 75	...16185)])#@235.Threads.S.throu
4080	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 65 20 6c	gh.the.forms..Inserts.S.as.the.l
40a0	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 61 6b 69	ast.item.in.the.first.form,.maki
40c0	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 61 20 6c	ng.a.list.of.it.if.it.is.not.a.l
40e0	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 65 20 66	ist.already..If.there.are.more.f
4100	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 61 73 20	orms,.inserts.the.first.form.as.
4120	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 20 65 74	the.last.item.in.second.form,.et
4140	63 2e 0a 0a 28 66 6e 20 53 20 46 4f 52 4d 20 26 72 65 73 74 20 4d 4f 52 45 29 1f 0a 28 62 79 74	c...(fn.S.FORM.&rest.MORE)..(byt
4160	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 33 30 30 5c 32 30	e-code."\300\301\302\303#\300\20
4180	37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 74 69 74 6c 65 69 7a 65 20 73 69 64 65	7".[function-put.s-titleize.side
41a0	2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d	-effect-free.t].4).(defalias.'s-
41c0	77 69 74 68 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 32 31 31 5c 32 30 34 17 00	with.'(macro...#[642."\211\204..
41e0	01 3c 5c 32 30 33 13 00 01 40 5c 33 30 30 03 41 05 43 5c 22 42 5c 32 30 37 01 03 44 5c 32 30 37	.<\203...@\300.A.C\"B\207..D\207
4200	5c 33 30 31 5c 32 31 31 04 04 45 02 42 42 5c 32 30 37 22 20 5b 61 70 70 65 6e 64 20 73 2d 77 69	\301\211..E.BB\207".[append.s-wi
4220	74 68 5d 20 37 20 28 23 24 20 2e 20 31 36 34 39 37 29 5d 29 29 23 40 31 37 39 20 52 65 74 75 72	th].7.(#$...16497)]))#@179.Retur
4240	6e 73 20 66 69 72 73 74 20 69 6e 64 65 78 20 6f 66 20 4e 45 45 44 4c 45 20 69 6e 20 53 2c 20 6f	ns.first.index.of.NEEDLE.in.S,.o
4260	72 20 6e 69 6c 2e 0a 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	r.nil...If.IGNORE-CASE.is.non-ni
4280	6c 2c 20 74 68 65 20 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	l,.the.comparison.is.done.withou
42a0	74 20 70 61 79 69 6e 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	t.paying.attention.to.case.diffe
42c0	72 65 6e 63 65 73 2e 0a 0a 28 66 6e 20 4e 45 45 44 4c 45 20 53 20 26 6f 70 74 69 6f 6e 61 6c 20	rences...(fn.NEEDLE.S.&optional.
42e0	49 47 4e 4f 52 45 2d 43 41 53 45 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	IGNORE-CASE)..(byte-code."\300\3
4300	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 35 23	01\302\303#\210\300\301\304\305#
4320	5c 32 30 37 22 20 5b 70 75 74 20 73 2d 77 69 74 68 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70	\207".[put.s-with.edebug-form-sp
4340	65 63 20 28 66 6f 72 6d 20 26 72 65 73 74 20 5b 26 6f 72 20 28 66 75 6e 63 74 69 6f 6e 20 26 72	ec.(form.&rest.[&or.(function.&r
4360	65 73 74 20 66 6f 72 6d 29 20 66 62 6f 75 6e 64 70 5d 29 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d	est.form).fboundp]).lisp-indent-
4380	66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 69 6e 64 65	function.1].4).(defalias.'s-inde
43a0	78 2d 6f 66 20 23 5b 37 37 30 20 22 5c 32 31 31 18 5c 33 30 31 03 21 02 5c 33 30 32 5c 33 30 33	x-of.#[770."\211.\301.!.\302\303
43c0	03 03 03 5c 33 30 34 24 29 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68	...\304$)\207".[case-fold-search
43e0	20 72 65 67 65 78 70 2d 71 75 6f 74 65 20 6e 69 6c 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 74	.regexp-quote.nil.string-match.t
4400	5d 20 31 31 20 28 23 24 20 2e 20 31 36 39 35 35 29 5d 29 23 40 33 34 20 52 65 74 75 72 6e 20 74	].11.(#$...16955)])#@34.Return.t
4420	68 65 20 72 65 76 65 72 73 65 20 6f 66 20 53 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d	he.reverse.of.S...(fn.S)..(byte-
4440	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c	code."\300\301\302\303#\300\301\
4460	33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20	304\303#\300\207".[function-put.
4480	73 2d 69 6e 64 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	s-index-of.pure.t.side-effect-fr
44a0	65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 72 65 76 65 72 73 65 20 23 5b 32 35	ee].5).(defalias.'s-reverse.#[25
44c0	37 20 22 5c 33 30 31 20 5c 33 30 32 5c 33 30 33 02 5c 22 5c 32 31 36 5c 33 30 34 02 21 5c 32 30	7."\301.\302\303.\"\216\304.!\20
44e0	33 4a 00 01 5c 33 30 35 01 5c 33 30 36 5c 22 5c 32 36 32 01 5c 33 30 36 5c 33 30 37 5c 33 31 30	3J..\305.\306\"\262.\306\307\310
4500	21 5c 32 31 30 01 5c 32 30 33 42 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 43 5c 33 31 31	!\210.\203B..\211A\262.\242C\311
4520	03 40 08 5c 22 5c 32 30 33 39 00 02 5c 32 31 31 41 5c 32 36 32 04 5c 32 34 32 01 42 5c 32 36 32	.@.\"\2039..\211A\262.\242.B\262
4540	01 5c 32 30 32 24 00 5c 32 31 31 5c 32 33 37 02 5c 32 34 34 5c 32 36 36 5c 32 30 32 5c 32 30 32	.\202$.\211\237.\244\266\202\202
4560	19 00 5c 32 31 31 5c 32 36 30 01 5c 32 36 36 5c 32 30 32 5c 32 30 32 54 00 01 5c 33 30 35 01 5c	..\211\260.\266\202\202T..\305.\
4580	33 30 36 5c 22 5c 32 36 32 01 5c 32 33 37 5c 32 36 30 01 29 5c 32 30 37 22 20 5b 75 63 73 2d 6e	306\"\262.\237\260.)\207".[ucs-n
45a0	6f 72 6d 61 6c 69 7a 65 2d 63 6f 6d 62 69 6e 69 6e 67 2d 63 68 61 72 73 20 6d 61 74 63 68 2d 64	ormalize-combining-chars.match-d
45c0	61 74 61 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 5c 33	ata.make-closure.#[0."\301\300\3
45e0	30 32 5c 22 5c 32 30 37 22 20 5b 56 30 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 74 5d 20	02\"\207".[V0.set-match-data.t].
4600	33 5d 20 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	3].multibyte-string-p.append.nil
4620	20 72 65 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 38 20	.require.ucs-normalize.memql].8.
4640	28 23 24 20 2e 20 31 37 34 33 32 29 5d 29 23 40 32 30 33 20 52 65 74 75 72 6e 20 61 20 6c 69 73	(#$...17432)])#@203.Return.a.lis
4660	74 20 6f 66 20 6d 61 74 63 68 65 73 20 66 6f 72 20 52 45 47 45 58 20 69 6e 20 53 54 52 49 4e 47	t.of.matches.for.REGEX.in.STRING
4680	2e 0a 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 69 74 73 65 6c 66 20 69 73 20 61 20 6c 69 73 74	...Each.element.itself.is.a.list
46a0	20 6f 66 20 6d 61 74 63 68 65 73 2c 20 61 73 20 70 65 72 0a 60 6d 61 74 63 68 2d 73 74 72 69 6e	.of.matches,.as.per.`match-strin
46c0	67 27 2e 20 4d 75 6c 74 69 70 6c 65 20 6d 61 74 63 68 65 73 20 61 74 20 74 68 65 20 73 61 6d 65	g'..Multiple.matches.at.the.same
46e0	20 70 6f 73 69 74 69 6f 6e 20 77 69 6c 6c 20 62 65 0a 69 67 6e 6f 72 65 64 20 61 66 74 65 72 20	.position.will.be.ignored.after.
4700	74 68 65 20 66 69 72 73 74 2e 0a 0a 28 66 6e 20 52 45 47 45 58 20 53 54 52 49 4e 47 29 1f 0a 28	the.first...(fn.REGEX.STRING)..(
4720	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 5c 33 30 30	byte-code."\300\301\302\303#\300
4740	5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e	\301\304\303#\300\207".[function
4760	2d 70 75 74 20 73 2d 72 65 76 65 72 73 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63	-put.s-reverse.pure.t.side-effec
4780	74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6d 61 74 63 68 2d 73 74	t-free].5).(defalias.'s-match-st
47a0	72 69 6e 67 73 2d 61 6c 6c 20 23 5b 35 31 34 20 22 5c 33 30 30 20 5c 33 30 31 5c 33 30 32 02 5c	rings-all.#[514."\300.\301\302.\
47c0	22 5c 32 31 36 5c 33 30 33 5c 33 30 34 5c 32 31 31 04 47 57 5c 32 30 33 42 00 5c 33 30 35 05 05	"\216\303\304\211.GW\203B.\305..
47e0	03 23 5c 32 30 33 42 00 5c 33 30 34 5c 32 32 34 5c 32 36 32 01 54 5c 33 30 33 5c 33 30 30 20 47	.#\203B.\304\224\262.T\303\300.G
4800	5c 33 30 36 5c 32 34 35 5c 33 30 34 5c 32 31 31 02 55 5c 32 30 34 37 00 5c 33 30 37 01 06 08 5c	\306\245\304\211.U\2047.\307...\
4820	22 03 42 5c 32 36 32 03 54 5c 32 30 32 24 00 02 5c 32 33 37 05 42 5c 32 36 32 05 5c 32 36 36 03	".B\262.T\202$..\237.B\262.\266.
4840	5c 32 30 32 09 00 01 5c 32 33 37 29 5c 32 30 37 22 20 5b 6d 61 74 63 68 2d 64 61 74 61 20 6d 61	\202...\237)\207".[match-data.ma
4860	6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 22 5c 32	ke-closure.#[0."\301\300\302\"\2
4880	30 37 22 20 5b 56 30 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 74 5d 20 33 5d 20 6e 69 6c	07".[V0.set-match-data.t].3].nil
48a0	20 30 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 32 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 5d 20	.0.string-match.2.match-string].
48c0	31 31 20 28 23 24 20 2e 20 31 38 30 30 34 29 5d 29 23 40 31 33 31 20 52 65 74 75 72 6e 20 61 20	11.(#$...18004)])#@131.Return.a.
48e0	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 52 45	list.of.matched.positions.for.RE
4900	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 73 20	GEXP.in.STRING..SUBEXP-DEPTH.is.
4920	30 20 62 79 20 64 65 66 61 75 6c 74 2e 0a 0a 28 66 6e 20 52 45 47 45 58 50 20 53 54 52 49 4e 47	0.by.default...(fn.REGEXP.STRING
4940	20 26 6f 70 74 69 6f 6e 61 6c 20 53 55 42 45 58 50 2d 44 45 50 54 48 29 1f 0a 28 62 79 74 65 2d	.&optional.SUBEXP-DEPTH)..(byte-
4960	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22	code."\300\301\302\303#\300\207"
4980	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6d 61 74 63 68 2d 73 74 72 69 6e 67 73 2d 61	.[function-put.s-match-strings-a
49a0	6c 6c 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c	ll.side-effect-free.t].4).(defal
49c0	69 61 73 20 27 73 2d 6d 61 74 63 68 65 64 2d 70 6f 73 69 74 69 6f 6e 73 2d 61 6c 6c 20 23 5b 37	ias.'s-matched-positions-all.#[7
49e0	37 30 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 32 31 30 5c 33 30 30 5c 33 30 31 20 5c 33 30 32 5c	70."\211\204..\210\300\301.\302\
4a00	33 30 33 02 5c 22 5c 32 31 36 5c 33 30 30 5c 33 30 34 5c 33 30 35 06 06 06 06 04 23 5c 32 30 33	303.\"\216\300\304\305.....#\203
4a20	30 00 01 05 47 57 5c 32 30 33 30 00 03 5c 32 32 34 04 5c 32 32 35 42 01 42 5c 32 36 32 01 5c 33	0...GW\2030..\224.\225B.B\262.\3
4a40	30 30 5c 32 32 35 5c 32 36 32 02 5c 32 30 32 0f 00 5c 32 31 31 5c 32 33 37 29 5c 32 30 37 22 20	00\225\262.\202..\211\237)\207".
4a60	5b 30 20 6d 61 74 63 68 2d 64 61 74 61 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 30 20 22	[0.match-data.make-closure.#[0."
4a80	5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 56 30 20 73 65 74 2d 6d 61 74 63	\301\300\302\"\207".[V0.set-matc
4aa0	68 2d 64 61 74 61 20 74 5d 20 33 5d 20 6e 69 6c 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 31	h-data.t].3].nil.string-match].1
4ac0	30 20 28 23 24 20 2e 20 31 38 36 34 37 29 5d 29 23 40 35 38 33 20 57 68 65 6e 20 74 68 65 20 67	0.(#$...18647)])#@583.When.the.g
4ae0	69 76 65 6e 20 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	iven.expression.matches.the.stri
4b00	6e 67 2c 20 74 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	ng,.this.function.returns.a.list
4b20	0a 6f 66 20 74 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	.of.the.whole.matching.string.an
4b40	64 20 61 20 73 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	d.a.string.for.each.matched.sube
4b60	78 70 72 65 73 73 69 6f 6e 73 2e 0a 53 75 62 65 78 70 72 65 73 73 69 6f 6e 73 20 74 68 61 74 20	xpressions..Subexpressions.that.
4b80	64 69 64 6e 27 74 20 6d 61 74 63 68 20 61 72 65 20 72 65 70 72 65 73 65 6e 74 65 64 20 62 79 20	didn't.match.are.represented.by.
4ba0	6e 69 6c 20 65 6c 65 6d 65 6e 74 73 0a 69 6e 20 74 68 65 20 6c 69 73 74 2c 20 65 78 63 65 70 74	nil.elements.in.the.list,.except
4bc0	20 74 68 61 74 20 6e 6f 6e 2d 6d 61 74 63 68 69 6e 67 20 73 75 62 65 78 70 72 65 73 73 69 6f 6e	.that.non-matching.subexpression
4be0	73 20 61 74 20 74 68 65 20 65 6e 64 0a 6f 66 20 52 45 47 45 58 50 20 6d 69 67 68 74 20 6e 6f 74	s.at.the.end.of.REGEXP.might.not
4c00	20 61 70 70 65 61 72 20 61 74 20 61 6c 6c 20 69 6e 20 74 68 65 20 6c 69 73 74 2e 20 20 54 68 61	.appear.at.all.in.the.list...Tha
4c20	74 20 69 73 2c 20 74 68 65 0a 72 65 74 75 72 6e 65 64 20 6c 69 73 74 20 63 61 6e 20 62 65 20 73	t.is,.the.returned.list.can.be.s
4c40	68 6f 72 74 65 72 20 74 68 61 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 73 75 62 65 78 70	horter.than.the.number.of.subexp
4c60	72 65 73 73 69 6f 6e 73 20 69 6e 0a 52 45 47 45 58 50 20 70 6c 75 73 20 6f 6e 65 2e 20 20 49 66	ressions.in.REGEXP.plus.one...If
4c80	20 52 45 47 45 58 50 20 64 69 64 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65 20 72 65 74 75 72 6e	.REGEXP.did.not.match.the.return
4ca0	65 64 20 76 61 6c 75 65 20 69 73 0a 61 6e 20 65 6d 70 74 79 20 6c 69 73 74 20 28 6e 69 6c 29 2e	ed.value.is.an.empty.list.(nil).
4cc0	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 20 73 65 61 72	..When.START.is.non-nil.the.sear
4ce0	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 2e 0a 0a 28 66	ch.will.start.at.that.index...(f
4d00	6e 20 52 45 47 45 58 50 20 53 20 26 6f 70 74 69 6f 6e 61 6c 20 53 54 41 52 54 29 1f 0a 28 62 79	n.REGEXP.S.&optional.START)..(by
4d20	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 33 30 30 5c 32	te-code."\300\301\302\303#\300\2
4d40	30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6d 61 74 63 68 65 64 2d 70 6f 73 69	07".[function-put.s-matched-posi
4d60	74 69 6f 6e 73 2d 61 6c 6c 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29	tions-all.side-effect-free.t].4)
4d80	0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6d 61 74 63 68 20 23 5b 37 37 30 20 22 5c 33 30 30 20	.(defalias.'s-match.#[770."\300.
4da0	5c 33 30 31 5c 33 30 32 02 5c 22 5c 32 31 36 5c 33 30 33 04 04 04 23 5c 32 30 35 3a 00 5c 33 30	\301\302.\"\216\303...#\205:.\30
4dc0	30 20 5c 33 30 34 01 5c 32 30 33 37 00 01 40 02 41 40 01 5c 32 30 35 28 00 5c 32 31 31 5c 32 30	0.\304.\2037..@.A@.\205(.\211\20
4de0	35 28 00 06 06 02 02 4f 5c 32 31 31 04 42 5c 32 36 32 04 04 41 41 5c 32 36 32 05 5c 32 36 36 03	5(.....O\211.B\262..AA\262.\266.
4e00	5c 32 30 32 12 00 5c 32 36 36 5c 32 30 31 5c 32 33 37 29 5c 32 30 37 22 20 5b 6d 61 74 63 68 2d	\202..\266\201\237)\207".[match-
4e20	64 61 74 61 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 5c	data.make-closure.#[0."\301\300\
4e40	33 30 32 5c 22 5c 32 30 37 22 20 5b 56 30 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 74 5d	302\"\207".[V0.set-match-data.t]
4e60	20 33 5d 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 31	.3].string-match.nil].11.(#$...1
4e80	39 31 35 38 29 5d 29 23 40 36 30 20 53 6c 69 63 65 73 20 53 20 75 70 20 61 74 20 65 76 65 72 79	9158)])#@60.Slices.S.up.at.every
4ea0	20 69 6e 64 65 78 20 6d 61 74 63 68 69 6e 67 20 52 45 47 45 58 50 2e 0a 0a 28 66 6e 20 52 45 47	.index.matching.REGEXP...(fn.REG
4ec0	45 58 50 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	EXP.S)..(byte-code."\300\301\302
4ee0	5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6d	\303#\300\207".[function-put.s-m
4f00	61 74 63 68 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66	atch.side-effect-free.t].4).(def
4f20	61 6c 69 61 73 20 27 73 2d 73 6c 69 63 65 2d 61 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 21 5c	alias.'s-slice-at.#[514."\300.!\
4f40	32 30 33 08 00 43 5c 32 30 37 5c 33 30 31 5c 33 30 30 02 21 5c 32 30 34 3f 00 5c 33 30 32 20 5c	203..C\207\301\300.!\204?.\302.\
4f60	33 30 33 5c 33 30 34 02 5c 22 5c 32 31 36 5c 33 30 35 04 04 5c 33 30 36 23 5c 32 31 31 5c 32 30	303\304.\"\216\305..\306#\211\20
4f80	33 31 00 03 5c 33 30 37 02 4f 03 42 5c 32 36 32 03 03 01 5c 33 30 31 4f 5c 32 36 32 04 5c 32 31	31..\307.O.B\262...\301O\262.\21
4fa0	30 5c 32 30 32 3a 00 03 03 42 5c 32 36 32 03 5c 33 31 30 5c 32 36 32 04 5c 32 31 30 29 5c 32 31	0\202:...B\262.\310\262.\210)\21
4fc0	30 5c 32 30 32 09 00 5c 32 33 37 5c 32 30 37 22 20 5b 73 2d 62 6c 61 6e 6b 3f 20 6e 69 6c 20 6d	0\202..\237\207".[s-blank?.nil.m
4fe0	61 74 63 68 2d 64 61 74 61 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 30 20 22 5c 33 30 31	atch-data.make-closure.#[0."\301
5000	5c 33 30 30 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 56 30 20 73 65 74 2d 6d 61 74 63 68 2d 64 61	\300\302\"\207".[V0.set-match-da
5020	74 61 20 74 5d 20 33 5d 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 31 20 30 20 22 22 5d 20 38 20	ta.t].3].string-match.1.0.""].8.
5040	28 23 24 20 2e 20 32 30 31 30 38 29 5d 29 23 40 33 37 20 53 70 6c 69 74 20 53 20 69 6e 74 6f 20	(#$...20108)])#@37.Split.S.into.
5060	6c 69 73 74 20 6f 66 20 77 6f 72 64 73 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f	list.of.words...(fn.S)..(byte-co
5080	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b	de."\300\301\302\303#\300\207".[
50a0	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 73 6c 69 63 65 2d 61 74 20 73 69 64 65 2d 65 66 66	function-put.s-slice-at.side-eff
50c0	65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 70 6c 69	ect-free.t].4).(defalias.'s-spli
50e0	74 2d 77 6f 72 64 73 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 18 5c 33 30 34	t-words.#[257."\301\302\303.\304
5100	5c 33 30 35 5c 33 30 36 5c 33 30 34 5c 33 30 37 5c 33 30 36 06 08 23 23 29 5c 33 31 30 23 5c 32	\305\306\304\307\306..##)\310#\2
5120	30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 73 2d 73 70 6c 69 74 20 22 5b	07".[case-fold-search.s-split."[
5140	5e 5b 3a 77 6f 72 64 3a 5d 30 2d 39 5d 2b 22 20 6e 69 6c 20 72 65 70 6c 61 63 65 2d 72 65 67 65	^[:word:]0-9]+".nil.replace-rege
5160	78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5c 5c 28 5b 5b 3a 6c 6f 77 65 72 3a 5d 5d 5c 5c 29 5c	xp-in-string."\\([[:lower:]]\\)\
5180	5c 28 5b 5b 3a 75 70 70 65 72 3a 5d 5d 5c 5c 29 22 20 22 5c 5c 31 20 5c 5c 32 22 20 22 5c 5c 28	\([[:upper:]]\\)"."\\1.\\2"."\\(
51a0	5b 5b 3a 75 70 70 65 72 3a 5d 5d 5c 5c 29 5c 5c 28 5b 5b 3a 75 70 70 65 72 3a 5d 5d 5b 30 2d 39	[[:upper:]]\\)\\([[:upper:]][0-9
51c0	5b 3a 6c 6f 77 65 72 3a 5d 5d 5c 5c 29 22 20 74 5d 20 31 30 20 28 23 24 20 2e 20 32 30 35 36 33	[:lower:]]\\)".t].10.(#$...20563
51e0	29 5d 29 23 40 39 36 20 4c 69 6b 65 20 4d 41 50 43 41 52 2c 20 62 75 74 20 61 70 70 6c 69 65 73	)])#@96.Like.MAPCAR,.but.applies
5200	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 68 65 20 66 69 72	.a.different.function.to.the.fir
5220	73 74 20 65 6c 65 6d 65 6e 74 2e 0a 0a 28 66 6e 20 46 4e 2d 48 45 41 44 20 46 4e 2d 52 45 53 54	st.element...(fn.FN-HEAD.FN-REST
5240	20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	.LIST)..(byte-code."\300\301\302
5260	5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 73	\303#\300\207".[function-put.s-s
5280	70 6c 69 74 2d 77 6f 72 64 73 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34	plit-words.side-effect-free.t].4
52a0	29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 2d 6d 61 70 63 61 72 2d 68 65 61 64 20 23 5b 37 37	).(defalias.'s--mapcar-head.#[77
52c0	31 20 22 5c 32 31 31 5c 32 30 35 0e 00 02 01 40 21 5c 33 30 30 03 03 41 5c 22 42 5c 32 30 37 22	1."\211\205....@!\300..A\"B\207"
52e0	20 5b 6d 61 70 63 61 72 5d 20 37 20 28 23 24 20 2e 20 32 30 39 36 38 29 5d 29 23 40 33 38 20 43	.[mapcar].7.(#$...20968)])#@38.C
5300	6f 6e 76 65 72 74 20 53 20 74 6f 20 6c 6f 77 65 72 43 61 6d 65 6c 43 61 73 65 2e 0a 0a 28 66 6e	onvert.S.to.lowerCamelCase...(fn
5320	20 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6c 6f 77 65 72 2d 63 61 6d 65 6c 2d 63 61	.S)..(defalias.'s-lower-camel-ca
5340	73 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33	se.#[257."\300\301\302\303\304\3
5360	30 35 06 06 21 23 5c 22 5c 32 30 37 22 20 5b 73 2d 6a 6f 69 6e 20 22 22 20 73 2d 2d 6d 61 70 63	05..!#\"\207".[s-join."".s--mapc
5380	61 72 2d 68 65 61 64 20 64 6f 77 6e 63 61 73 65 20 63 61 70 69 74 61 6c 69 7a 65 20 73 2d 73 70	ar-head.downcase.capitalize.s-sp
53a0	6c 69 74 2d 77 6f 72 64 73 5d 20 38 20 28 23 24 20 2e 20 32 31 32 34 37 29 5d 29 23 40 33 38 20	lit-words].8.(#$...21247)])#@38.
53c0	43 6f 6e 76 65 72 74 20 53 20 74 6f 20 55 70 70 65 72 43 61 6d 65 6c 43 61 73 65 2e 0a 0a 28 66	Convert.S.to.UpperCamelCase...(f
53e0	6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	n.S)..(byte-code."\300\301\302\3
5400	30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6c 6f 77	03#\300\207".[function-put.s-low
5420	65 72 2d 63 61 6d 65 6c 2d 63 61 73 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74	er-camel-case.side-effect-free.t
5440	5d 20 34 29 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 63 61	].4).(defalias.'s-upper-camel-ca
5460	73 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 05 21	se.#[257."\300\301\302\303\304.!
5480	5c 22 5c 22 5c 32 30 37 22 20 5b 73 2d 6a 6f 69 6e 20 22 22 20 6d 61 70 63 61 72 20 63 61 70 69	\"\"\207".[s-join."".mapcar.capi
54a0	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 24 20 2e 20 32 31	talize.s-split-words].7.(#$...21
54c0	34 34 30 29 5d 29 23 40 33 34 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 73 6e 61 6b 65 5f 63 61	440)])#@34.Convert.S.to.snake_ca
54e0	73 65 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	se...(fn.S)..(byte-code."\300\30
5500	31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75	1\302\303#\300\207".[function-pu
5520	74 20 73 2d 75 70 70 65 72 2d 63 61 6d 65 6c 2d 63 61 73 65 20 73 69 64 65 2d 65 66 66 65 63 74	t.s-upper-camel-case.side-effect
5540	2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 6e 61 6b 65 2d 63	-free.t].4).(defalias.'s-snake-c
5560	61 73 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 05	ase.#[257."\300\301\302\303\304.
5580	21 5c 22 5c 22 5c 32 30 37 22 20 5b 73 2d 6a 6f 69 6e 20 22 5f 22 20 6d 61 70 63 61 72 20 64 6f	!\"\"\207".[s-join."_".mapcar.do
55a0	77 6e 63 61 73 65 20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 37 20 28 23 24 20 2e 20 32 31	wncase.s-split-words].7.(#$...21
55c0	37 30 37 29 5d 29 23 40 33 36 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 64 61 73 68 65 64 2d 77	707)])#@36.Convert.S.to.dashed-w
55e0	6f 72 64 73 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	ords...(fn.S)..(byte-code."\300\
5600	33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d	301\302\303#\300\207".[function-
5620	70 75 74 20 73 2d 73 6e 61 6b 65 2d 63 61 73 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65	put.s-snake-case.side-effect-fre
5640	65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 64 61 73 68 65 64 2d 77 6f 72 64	e.t].4).(defalias.'s-dashed-word
5660	73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 05 21 5c	s.#[257."\300\301\302\303\304.!\
5680	22 5c 22 5c 32 30 37 22 20 5b 73 2d 6a 6f 69 6e 20 22 2d 22 20 6d 61 70 63 61 72 20 64 6f 77 6e	"\"\207".[s-join."-".mapcar.down
56a0	63 61 73 65 20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 37 20 28 23 24 20 2e 20 32 31 39 36	case.s-split-words].7.(#$...2196
56c0	33 29 5d 29 23 40 33 36 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 73 70 61 63 65 64 20 77 6f 72	3)])#@36.Convert.S.to.spaced.wor
56e0	64 73 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	ds...(fn.S)..(byte-code."\300\30
5700	31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75	1\302\303#\300\207".[function-pu
5720	74 20 73 2d 64 61 73 68 65 64 2d 77 6f 72 64 73 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65	t.s-dashed-words.side-effect-fre
5740	65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 70 61 63 65 64 2d 77 6f 72 64	e.t].4).(defalias.'s-spaced-word
5760	73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 21 5c 22 5c 32 30 37 22 20 5b	s.#[257."\300\301\302.!\"\207".[
5780	73 2d 6a 6f 69 6e 20 22 20 22 20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 35 20 28 23 24 20	s-join.".".s-split-words].5.(#$.
57a0	2e 20 32 32 32 31 37 29 5d 29 23 40 34 31 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 43 61 70 69	..22217)])#@41.Convert.S.to.Capi
57c0	74 61 6c 69 7a 65 64 20 77 6f 72 64 73 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f	talized.words...(fn.S)..(byte-co
57e0	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b	de."\300\301\302\303#\300\207".[
5800	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 73 70 61 63 65 64 2d 77 6f 72 64 73 20 73 69 64 65	function-put.s-spaced-words.side
5820	2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d	-effect-free.t].4).(defalias.'s-
5840	63 61 70 69 74 61 6c 69 7a 65 64 2d 77 6f 72 64 73 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c	capitalized-words.#[257."\300.!\
5860	33 30 31 5c 33 30 32 5c 33 30 33 03 40 21 5c 33 30 34 5c 33 30 35 05 41 5c 22 42 5c 22 5c 32 30	301\302\303.@!\304\305.A\"B\"\20
5880	37 22 20 5b 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	7".[s-split-words.s-join.".".cap
58a0	69 74 61 6c 69 7a 65 20 6d 61 70 63 61 72 20 64 6f 77 6e 63 61 73 65 5d 20 38 20 28 23 24 20 2e	italize.mapcar.downcase].8.(#$..
58c0	20 32 32 34 34 37 29 5d 29 23 40 33 39 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 54 69 74 6c 65	.22447)])#@39.Convert.S.to.Title
58e0	69 7a 65 64 20 57 6f 72 64 73 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20	ized.Words...(fn.S)..(byte-code.
5900	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e	"\300\301\302\303#\300\207".[fun
5920	63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 61 70 69 74 61 6c 69 7a 65 64 2d 77 6f 72 64 73 20 73 69	ction-put.s-capitalized-words.si
5940	64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27	de-effect-free.t].4).(defalias.'
5960	73 2d 74 69 74 6c 65 69 7a 65 64 2d 77 6f 72 64 73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30	s-titleized-words.#[257."\300\30
5980	31 5c 33 30 32 5c 33 30 33 5c 33 30 34 05 21 5c 22 5c 22 5c 32 30 37 22 20 5b 73 2d 6a 6f 69 6e	1\302\303\304.!\"\"\207".[s-join
59a0	20 22 20 22 20 6d 61 70 63 61 72 20 73 2d 74 69 74 6c 65 69 7a 65 20 73 2d 73 70 6c 69 74 2d 77	.".".mapcar.s-titleize.s-split-w
59c0	6f 72 64 73 5d 20 37 20 28 23 24 20 2e 20 32 32 37 33 34 29 5d 29 23 40 33 36 20 43 6f 6e 76 65	ords].7.(#$...22734)])#@36.Conve
59e0	72 74 20 53 20 74 6f 20 69 74 73 20 69 6e 69 74 69 61 6c 73 2e 0a 0a 28 66 6e 20 53 29 1f 23 40	rt.S.to.its.initials...(fn.S).#@
5a00	31 31 20 0a 0a 28 66 6e 20 53 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	11...(fn.SS)..(byte-code."\300\3
5a20	30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70	01\302\303#\300\207".[function-p
5a40	75 74 20 73 2d 74 69 74 6c 65 69 7a 65 64 2d 77 6f 72 64 73 20 73 69 64 65 2d 65 66 66 65 63 74	ut.s-titleized-words.side-effect
5a60	2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 77 6f 72 64 2d 69 6e	-free.t].4).(defalias.'s-word-in
5a80	69 74 69 61 6c 73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33	itials.#[257."\300\301\302\303\3
5aa0	30 34 05 21 5c 22 5c 22 5c 32 30 37 22 20 5b 73 2d 6a 6f 69 6e 20 22 22 20 6d 61 70 63 61 72 20	04.!\"\"\207".[s-join."".mapcar.
5ac0	23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 30 5c 33 30 31 4f 5c 32 30 37 22 20 5b 30 20 31 5d 20	#[257."\211\300\301O\207".[0.1].
5ae0	34 20 28 23 24 20 2e 20 32 33 30 34 33 29 5d 20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 37	4.(#$...23043)].s-split-words].7
5b00	20 28 23 24 20 2e 20 32 33 30 30 33 29 5d 29 23 40 35 30 34 20 46 6f 72 6d 61 74 20 54 45 4d 50	.(#$...23003)])#@504.Format.TEMP
5b20	4c 41 54 45 20 77 69 74 68 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 52 45 50 4c 41 43 45 52 2e	LATE.with.the.function.REPLACER.
5b40	0a 0a 52 45 50 4c 41 43 45 52 20 74 61 6b 65 73 20 61 6e 20 61 72 67 75 6d 65 6e 74 20 6f 66 20	..REPLACER.takes.an.argument.of.
5b60	74 68 65 20 66 6f 72 6d 61 74 20 76 61 72 69 61 62 6c 65 20 61 6e 64 20 6f 70 74 69 6f 6e 61 6c	the.format.variable.and.optional
5b80	6c 79 0a 61 6e 20 65 78 74 72 61 20 61 72 67 75 6d 65 6e 74 20 77 68 69 63 68 20 69 73 20 74 68	ly.an.extra.argument.which.is.th
5ba0	65 20 45 58 54 52 41 20 76 61 6c 75 65 20 66 72 6f 6d 20 74 68 65 20 63 61 6c 6c 20 74 6f 0a 60	e.EXTRA.value.from.the.call.to.`
5bc0	73 2d 66 6f 72 6d 61 74 27 2e 0a 0a 53 65 76 65 72 61 6c 20 73 74 61 6e 64 61 72 64 20 60 73 2d	s-format'...Several.standard.`s-
5be0	66 6f 72 6d 61 74 27 20 68 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 72 65 63	format'.helper.functions.are.rec
5c00	6f 67 6e 69 7a 65 64 20 61 6e 64 0a 61 64 61 70 74 65 64 20 66 6f 72 20 74 68 69 73 3a 0a 0a 20	ognized.and.adapted.for.this:...
5c20	20 20 20 28 73 2d 66 6f 72 6d 61 74 20 22 24 7b 6e 61 6d 65 7d 22 20 5c 3d 27 67 65 74 68 61 73	...(s-format."${name}".\='gethas
5c40	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 61 74 20 22 24 7b 6e	h.hash-table).....(s-format."${n
5c60	61 6d 65 7d 22 20 5c 3d 27 61 67 65 74 20 61 6c 69 73 74 29 0a 20 20 20 20 28 73 2d 66 6f 72 6d	ame}".\='aget.alist).....(s-form
5c80	61 74 20 22 24 30 22 20 5c 3d 27 65 6c 74 20 73 65 71 75 65 6e 63 65 29 0a 0a 54 68 65 20 52 45	at."$0".\='elt.sequence)..The.RE
5ca0	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 6f 20 64	PLACER.function.may.be.used.to.d
5cc0	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 61 74 69	o.any.other.kind.of.transformati
5ce0	6f 6e 2e 0a 0a 28 66 6e 20 54 45 4d 50 4c 41 54 45 20 52 45 50 4c 41 43 45 52 20 26 6f 70 74 69	on...(fn.TEMPLATE.REPLACER.&opti
5d00	6f 6e 61 6c 20 45 58 54 52 41 29 1f 23 40 31 31 20 0a 0a 28 66 6e 20 4d 44 29 1f 0a 28 62 79 74	onal.EXTRA).#@11...(fn.MD)..(byt
5d20	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 33 30 34 5c 33 30	e-code."\300\301\302\303#\304\30
5d40	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 23 5c	5\306\307#\210\304\305\310\311#\
5d60	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 69 61	207".[function-put.s-word-initia
5d80	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 72 6d	ls.side-effect-free.t.put.s-form
5da0	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 72 72	at-resolve.error-conditions.(err
5dc0	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 65 72	or.s-format.s-format-resolve).er
5de0	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 74 65	ror-message."Cannot.resolve.a.te
5e00	6d 70 6c 61 74 65 20 74 6f 20 76 61 6c 75 65 73 22 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20	mplate.to.values"].5).(defalias.
5e20	27 73 2d 66 6f 72 6d 61 74 20 23 5b 37 37 30 20 22 5c 33 30 30 20 5c 33 30 31 5c 33 30 32 02 5c	's-format.#[770."\300.\301\302.\
5e40	22 5c 32 31 36 5c 33 30 33 5c 33 30 34 5c 33 30 31 5c 33 30 35 04 06 06 06 08 24 06 06 5c 33 30	"\216\303\304\301\305.....$..\30
5e60	36 5c 32 31 31 25 29 5c 32 30 37 22 20 5b 6d 61 74 63 68 2d 64 61 74 61 20 6d 61 6b 65 2d 63 6c	6\211%)\207".[match-data.make-cl
5e80	6f 73 75 72 65 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 30 37 22 20 5b 56 30 20 73 65	osure.#[0."\301\300!\207".[V0.se
5ea0	74 2d 6d 61 74 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	t-match-data].2].replace-regexp-
5ec0	69 6e 2d 73 74 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	in-string."\\$\\({\\([^}]+\\)}\\
5ee0	7c 5b 30 2d 39 5d 2b 5c 5c 29 22 20 23 5b 32 35 37 20 22 5c 33 30 33 5c 33 30 34 02 5c 22 5c 32	|[0-9]+\\)".#[257."\303\304.\"\2
5f00	31 31 5c 32 30 36 0e 00 5c 33 30 35 5c 33 30 33 5c 33 30 36 04 5c 22 21 5c 32 36 32 01 5c 33 30	11\206..\305\303\306.\"!\262.\30
5f20	37 20 5c 33 31 30 5c 33 31 31 02 5c 22 5c 32 31 36 5c 33 30 32 5c 33 31 32 3d 5c 32 30 33 24 00	7.\310\311.\"\216\302\312=\203$.
5f40	5c 33 30 32 02 5c 33 30 31 5c 22 5c 32 30 32 5f 00 5c 33 30 32 5c 33 31 33 3d 5c 32 30 33 31 00	\302.\301\"\202_.\302\313=\2031.
5f60	5c 33 31 34 5c 33 30 31 03 5c 22 5c 32 30 32 5f 00 5c 33 30 32 5c 33 31 35 3d 5c 32 30 33 3e 00	\314\301.\"\202_.\302\315=\203>.
5f80	5c 33 30 32 5c 33 30 31 03 5c 22 5c 32 30 32 5f 00 5c 33 30 32 5c 33 31 36 3d 5c 32 30 33 4d 00	\302\301.\"\202_.\302\316=\203M.
5fa0	5c 33 31 37 5c 33 30 31 5c 33 32 30 04 21 5c 22 5c 32 30 32 5f 00 5c 33 32 31 5c 33 30 30 21 5c	\317\301\320.!\"\202_.\321\300!\
5fc0	32 31 30 5c 33 30 31 5c 32 30 33 5c 5c 00 5c 33 30 32 02 5c 33 30 31 5c 22 5c 32 30 32 5f 00 5c	210\301\203\\.\302.\301\"\202_.\
5fe0	33 30 32 02 21 5c 32 31 31 5c 32 30 33 6c 00 5c 33 32 32 5c 33 32 33 02 5c 22 5c 32 36 32 01 5c	302.!\211\203l.\322\323.\"\262.\
6000	32 30 32 72 00 5c 33 32 34 5c 33 32 35 05 5c 22 5c 32 36 32 01 29 5c 32 30 37 22 20 5b 56 30 20	202r.\324\325.\"\262.)\207".[V0.
6020	56 31 20 56 32 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 32 20 73 74 72 69 6e 67 2d 74 6f 2d 6e	V1.V2.match-string.2.string-to-n
6040	75 6d 62 65 72 20 31 20 6d 61 74 63 68 2d 64 61 74 61 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20	umber.1.match-data.make-closure.
6060	23 5b 30 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 30 37 22 20 5b 56 30 20 73 65 74 2d 6d 61 74 63	#[0."\301\300!\207".[V0.set-matc
6080	68 2d 64 61 74 61 5d 20 32 5d 20 67 65 74 68 61 73 68 20 61 67 65 74 20 73 2d 2d 61 67 65 74 20	h-data].2].gethash.aget.s--aget.
60a0	65 6c 74 20 6f 72 65 66 20 73 6c 6f 74 2d 76 61 6c 75 65 20 69 6e 74 65 72 6e 20 73 65 74 2d 6d	elt.oref.slot-value.intern.set-m
60c0	61 74 63 68 2d 64 61 74 61 20 66 6f 72 6d 61 74 20 22 25 73 22 20 73 69 67 6e 61 6c 20 73 2d 66	atch-data.format."%s".signal.s-f
60e0	6f 72 6d 61 74 2d 72 65 73 6f 6c 76 65 5d 20 37 20 28 23 24 20 2e 20 32 33 38 32 35 29 5d 20 74	ormat-resolve].7.(#$...23825)].t
6100	5d 20 31 31 20 28 23 24 20 2e 20 32 33 33 31 37 29 5d 29 23 40 39 32 20 49 66 20 60 74 27 20 69	].11.(#$...23317)])#@92.If.`t'.i
6120	6e 74 65 72 70 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	nterpolate.lisp.values.as.lisp..
6140	0a 60 73 2d 6c 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	.`s-lex-format'.inserts.values.w
6160	69 74 68 20 28 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	ith.(format."%S")...(defvar.s-le
6180	78 2d 76 61 6c 75 65 2d 61 73 2d 6c 69 73 70 20 6e 69 6c 20 28 23 24 20 2e 20 32 34 38 35 36 29	x-value-as-lisp.nil.(#$...24856)
61a0	29 23 40 33 33 20 45 78 70 61 6e 64 20 46 4d 54 20 69 6e 74 6f 20 6c 69 73 70 2e 0a 0a 28 66 6e	)#@33.Expand.FMT.into.lisp...(fn
61c0	20 46 4d 54 29 1f 23 40 31 36 20 0a 0a 28 66 6e 20 4d 41 54 43 48 45 53 29 1f 0a 28 64 65 66 61	.FMT).#@16...(fn.MATCHES)..(defa
61e0	6c 69 61 73 20 27 73 2d 6c 65 78 2d 66 6d 74 7c 65 78 70 61 6e 64 20 23 5b 32 35 37 20 22 5c 33	lias.'s-lex-fmt|expand.#[257."\3
6200	30 30 01 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 08 5c 22 5c	00.\301\302\303\304\305\306..\"\
6220	22 42 46 5c 32 30 37 22 20 5b 73 2d 66 6f 72 6d 61 74 20 27 61 67 65 74 20 6c 69 73 74 20 6d 61	"BF\207".[s-format.'aget.list.ma
6240	70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 41 40 5c 33 30 31 5c 33 30 32 5c 33 30 33 05	pcar.#[257."\300.A@\301\302\303.
6260	41 40 21 45 45 5c 32 30 37 22 20 5b 63 6f 6e 73 20 66 6f 72 6d 61 74 20 28 69 66 20 73 2d 6c 65	A@!EE\207".[cons.format.(if.s-le
6280	78 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	x-value-as-lisp."%S"."%s").inter
62a0	6e 5d 20 37 20 28 23 24 20 2e 20 32 35 30 33 35 29 5d 20 73 2d 6d 61 74 63 68 2d 73 74 72 69 6e	n].7.(#$...25035)].s-match-strin
62c0	67 73 2d 61 6c 6c 20 22 24 7b 5c 5c 28 5b 5e 7d 5d 2b 5c 5c 29 7d 22 5d 20 31 30 20 28 23 24 20	gs-all."${\\([^}]+\\)}"].10.(#$.
62e0	2e 20 32 34 39 39 38 29 5d 29 23 40 33 33 33 20 60 73 2d 66 6f 72 6d 61 74 60 20 77 69 74 68 20	..24998)])#@333.`s-format`.with.
6300	74 68 65 20 63 75 72 72 65 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 2e 0a 0a 46 4f 52 4d 41 54	the.current.environment...FORMAT
6320	2d 53 54 52 20 6d 61 79 20 75 73 65 20 74 68 65 20 60 73 2d 66 6f 72 6d 61 74 27 20 76 61 72 69	-STR.may.use.the.`s-format'.vari
6340	61 62 6c 65 20 72 65 66 65 72 65 6e 63 65 20 74 6f 20 72 65 66 65 72 20 74 6f 0a 61 6e 79 20 76	able.reference.to.refer.to.any.v
6360	61 72 69 61 62 6c 65 3a 0a 0a 20 28 6c 65 74 20 28 28 78 20 31 29 29 0a 20 20 20 28 73 2d 6c 65	ariable:...(let.((x.1))....(s-le
6380	78 2d 66 6f 72 6d 61 74 20 22 78 20 69 73 3a 20 24 7b 78 7d 22 29 29 0a 0a 54 68 65 20 76 61 6c	x-format."x.is:.${x}"))..The.val
63a0	75 65 73 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 73 20 61 72 65 20 69 6e 74 65 72 70 6f	ues.of.the.variables.are.interpo
63c0	6c 61 74 65 64 20 77 69 74 68 20 22 25 73 22 20 75 6e 6c 65 73 73 0a 74 68 65 20 76 61 72 69 61	lated.with."%s".unless.the.varia
63e0	62 6c 65 20 60 73 2d 6c 65 78 2d 76 61 6c 75 65 2d 61 73 2d 6c 69 73 70 27 20 69 73 20 60 74 27	ble.`s-lex-value-as-lisp'.is.`t'
6400	20 61 6e 64 20 74 68 65 6e 20 74 68 65 79 20 61 72 65 0a 69 6e 74 65 72 70 6f 6c 61 74 65 64 20	.and.then.they.are.interpolated.
6420	77 69 74 68 20 22 25 53 22 2e 0a 0a 28 66 6e 20 46 4f 52 4d 41 54 2d 53 54 52 29 1f 0a 28 62 79	with."%S"...(fn.FORMAT-STR)..(by
6440	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 33 30 30 5c 32	te-code."\300\301\302\303#\300\2
6460	30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6c 65 78 2d 66 6d 74 7c 65 78 70 61	07".[function-put.s-lex-fmt|expa
6480	6e 64 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c	nd.side-effect-free.t].4).(defal
64a0	69 61 73 20 27 73 2d 6c 65 78 2d 66 6f 72 6d 61 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 32 35	ias.'s-lex-format.'(macro...#[25
64c0	37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 73 2d 6c 65 78 2d 66 6d 74 7c 65 78 70 61 6e 64	7."\300.!\207".[s-lex-fmt|expand
64e0	5d 20 33 20 28 23 24 20 2e 20 32 35 33 32 38 29 5d 29 29 23 40 34 35 32 20 43 6f 75 6e 74 20 6f	].3.(#$...25328)]))#@452.Count.o
6500	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 0a 0a	ccurrences.of.`regexp'.in.`s'...
6520	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 20 65	`start',.inclusive,.and.`end',.e
6540	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 60 73	xclusive,.delimit.the.part.of.`s
6560	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 20 61	'.to.match...`start'.and.`end'.a
6580	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 20 74	re.both.indexed.starting.at.1;.t
65a0	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 20 69	he.initial.character.in.`s'.is.i
65c0	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 6c 6f	ndex.1...This.function.starts.lo
65e0	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 74 68	oking.for.the.next.match.from.th
6600	65 20 65 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	e.end.of.the.previous.match...He
6620	6e 63 65 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	nce,.it.ignores.matches.that.ove
6640	72 6c 61 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	rlap.a.previously.found.match...
6660	54 6f 20 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	To.count.overlapping.matches,.us
6680	65 0a 60 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 2d 61 6c 6c 27 2e 0a 0a 28 66 6e 20 52 45	e.`s-count-matches-all'...(fn.RE
66a0	47 45 58 50 20 53 20 26 6f 70 74 69 6f 6e 61 6c 20 53 54 41 52 54 20 45 4e 44 29 1f 0a 28 70 75	GEXP.S.&optional.START.END)..(pu
66c0	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 6d 2d 73 70 65	t.'s-lex-format.'edebug-form-spe
66e0	63 20 27 28 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 6f 75 6e 74 2d 6d 61	c.'(form)).(defalias.'s-count-ma
6700	74 63 68 65 73 20 23 5b 31 30 32 36 20 22 5c 33 30 30 20 5c 33 30 31 5c 33 30 32 02 5c 22 5c 32	tches.#[1026."\300.\301\302.\"\2
6720	31 36 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 22 72 5c 32 31 31 71 5c 32 31 30 5c 33 30 31 5c 33	16\303\304\305\"r\211q\210\301\3
6740	30 36 02 5c 22 5c 32 31 36 04 63 5c 32 31 30 65 62 5c 32 31 30 5c 33 30 37 06 06 05 5c 32 30 36	06.\"\216.c\210eb\210\307...\206
6760	5c 22 00 5c 33 31 30 05 5c 32 30 36 27 00 64 23 2b 5c 32 30 37 22 20 5b 6d 61 74 63 68 2d 64 61	\".\310.\206'.d#+\207".[match-da
6780	74 61 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 5c 33 30	ta.make-closure.#[0."\301\300\30
67a0	32 5c 22 5c 32 30 37 22 20 5b 56 30 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 74 5d 20 33	2\"\207".[V0.set-match-data.t].3
67c0	5d 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	].generate-new-buffer.".*temp*".
67e0	74 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 30 35 09 00 5c 33 30 32 5c 33 30 30 21 5c	t.#[0."\301\300!\205..\302\300!\
6800	32 30 37 22 20 5b 56 30 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72	207".[V0.buffer-name.kill-buffer
6820	5d 20 32 5d 20 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 20 31 5d 20 31 30 20 28 23 24 20 2e 20 32	].2].count-matches.1].10.(#$...2
6840	35 38 34 39 29 5d 29 23 40 34 38 37 20 43 6f 75 6e 74 20 6f 63 63 75 72 72 65 6e 63 65 73 20 6f	5849)])#@487.Count.occurrences.o
6860	66 20 60 72 65 67 65 78 70 27 20 69 6e 20 60 73 27 2e 0a 0a 60 73 74 61 72 74 27 2c 20 69 6e 63	f.`regexp'.in.`s'...`start',.inc
6880	6c 75 73 69 76 65 2c 20 61 6e 64 20 60 65 6e 64 27 2c 20 65 78 63 6c 75 73 69 76 65 2c 20 64 65	lusive,.and.`end',.exclusive,.de
68a0	6c 69 6d 69 74 20 74 68 65 20 70 61 72 74 20 6f 66 20 60 73 27 20 74 6f 0a 6d 61 74 63 68 2e 20	limit.the.part.of.`s'.to.match..
68c0	20 60 73 74 61 72 74 27 20 61 6e 64 20 60 65 6e 64 27 20 61 72 65 20 62 6f 74 68 20 69 6e 64 65	.`start'.and.`end'.are.both.inde
68e0	78 65 64 20 73 74 61 72 74 69 6e 67 20 61 74 20 31 3b 20 74 68 65 20 69 6e 69 74 69 61 6c 0a 63	xed.starting.at.1;.the.initial.c
6900	68 61 72 61 63 74 65 72 20 69 6e 20 60 73 27 20 69 73 20 69 6e 64 65 78 20 31 2e 0a 0a 54 68 69	haracter.in.`s'.is.index.1...Thi
6920	73 20 66 75 6e 63 74 69 6f 6e 20 73 74 61 72 74 73 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 20 74 68	s.function.starts.looking.for.th
6940	65 20 6e 65 78 74 20 6d 61 74 63 68 20 66 72 6f 6d 20 74 68 65 20 73 65 63 6f 6e 64 0a 63 68 61	e.next.match.from.the.second.cha
6960	72 61 63 74 65 72 20 6f 66 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 6d 61 74 63 68 2e 20 20 48	racter.of.the.previous.match...H
6980	65 6e 63 65 2c 20 69 74 20 63 6f 75 6e 74 73 20 6d 61 74 63 68 65 73 20 74 68 61 74 0a 6f 76 65	ence,.it.counts.matches.that.ove
69a0	72 6c 61 70 20 61 20 70 72 65 76 69 6f 75 73 6c 79 20 66 6f 75 6e 64 20 6d 61 74 63 68 2e 20 20	rlap.a.previously.found.match...
69c0	54 6f 20 69 67 6e 6f 72 65 20 6d 61 74 63 68 65 73 20 74 68 61 74 20 6f 76 65 72 6c 61 70 20 61	To.ignore.matches.that.overlap.a
69e0	0a 70 72 65 76 69 6f 75 73 6c 79 20 66 6f 75 6e 64 20 6d 61 74 63 68 2c 20 75 73 65 20 60 73 2d	.previously.found.match,.use.`s-
6a00	63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 27 2e 0a 0a 28 66 6e 20 52 45 47 45 58 50 20 53 20 26 6f	count-matches'...(fn.REGEXP.S.&o
6a20	70 74 69 6f 6e 61 6c 20 53 54 41 52 54 20 45 4e 44 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	ptional.START.END)..(byte-code."
6a40	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63	\300\301\302\303#\300\207".[func
6a60	74 69 6f 6e 2d 70 75 74 20 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 20 73 69 64 65 2d 65 66	tion-put.s-count-matches.side-ef
6a80	66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 6f 75	fect-free.t].4).(defalias.'s-cou
6aa0	6e 74 2d 6d 61 74 63 68 65 73 2d 61 6c 6c 20 23 5b 31 30 32 36 20 22 5c 33 30 30 5c 33 30 31 05	nt-matches-all.#[1026."\300\301.
6ac0	5c 22 5c 33 30 32 5c 32 31 31 05 05 5c 32 30 33 10 00 05 53 5c 32 30 32 11 00 5c 33 30 32 05 5c	\"\302\211..\203...S\202..\302.\
6ae0	32 30 35 17 00 05 53 4f 5c 33 30 33 20 5c 33 30 34 5c 33 30 35 02 5c 22 5c 32 31 36 02 02 47 57	205...SO\303.\304\305.\"\216..GW
6b00	5c 32 30 33 3b 00 5c 33 30 36 05 03 05 5c 33 30 37 4f 5c 22 5c 32 30 33 34 00 03 54 5c 32 36 32	\203;.\306...\307O\"\2034..T\262
6b20	04 02 54 5c 32 36 32 03 5c 32 30 32 1f 00 29 5c 32 31 30 02 5c 32 30 37 22 20 5b 66 6f 72 6d 61	..T\262.\202..)\210.\207".[forma
6b40	74 20 22 5e 25 73 22 20 30 20 6d 61 74 63 68 2d 64 61 74 61 20 6d 61 6b 65 2d 63 6c 6f 73 75 72	t."^%s".0.match-data.make-closur
6b60	65 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 56 30 20 73	e.#[0."\301\300\302\"\207".[V0.s
6b80	65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 74 5d 20 33 5d 20 73 2d 6d 61 74 63 68 65 73 3f 20 6e	et-match-data.t].3].s-matches?.n
6ba0	69 6c 5d 20 31 34 20 28 23 24 20 2e 20 32 36 37 30 31 29 5d 29 23 40 32 31 33 20 57 72 61 70 20	il].14.(#$...26701)])#@213.Wrap.
6bc0	73 74 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	string.S.with.PREFIX.and.optiona
6be0	6c 6c 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	lly.SUFFIX...Return.string.S.wit
6c00	68 20 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	h.PREFIX.prepended...If.SUFFIX.i
6c20	73 20 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	s.present,.it.is.appended,.other
6c40	77 69 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	wise.PREFIX.is.used.as.both.pref
6c60	69 78 20 61 6e 64 0a 73 75 66 66 69 78 2e 0a 0a 28 66 6e 20 53 20 50 52 45 46 49 58 20 26 6f 70	ix.and.suffix...(fn.S.PREFIX.&op
6c80	74 69 6f 6e 61 6c 20 53 55 46 46 49 58 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	tional.SUFFIX)..(byte-code."\300
6ca0	5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e	\301\302\303#\300\207".[function
6cc0	2d 70 75 74 20 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 2d 61 6c 6c 20 73 69 64 65 2d 65 66	-put.s-count-matches-all.side-ef
6ce0	66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 77 72 61	fect-free.t].4).(defalias.'s-wra
6d00	70 20 23 5b 37 37 30 20 22 01 03 02 5c 32 30 36 07 00 03 51 5c 32 30 37 22 20 5b 5d 20 36 20 28	p.#[770."...\206...Q\207".[].6.(
6d20	23 24 20 2e 20 32 37 35 37 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	#$...27579)]).(byte-code."\300\3
6d40	30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 35	01\302\303#\300\301\304\303#\305
6d60	5c 33 30 36 5c 33 30 37 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31 30 5c 33 31 31 5c 22 5c 32 31 30	\306\307\"\210\305\310\311\"\210
6d80	5c 33 30 35 5c 33 31 32 5c 33 31 33 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31 34 5c 33 31 35 5c 22	\305\312\313\"\210\305\314\315\"
6da0	5c 32 31 30 5c 33 30 35 5c 33 31 36 5c 33 31 37 5c 22 5c 32 31 30 5c 33 30 35 5c 33 32 30 5c 33	\210\305\316\317\"\210\305\320\3
6dc0	32 31 5c 22 5c 32 31 30 5c 33 30 35 5c 33 32 32 5c 33 32 33 5c 22 5c 32 31 30 5c 33 30 35 5c 33	21\"\210\305\322\323\"\210\305\3
6de0	32 34 5c 33 32 35 5c 22 5c 32 31 30 5c 33 30 35 5c 33 32 36 5c 33 32 37 5c 22 5c 32 31 30 5c 33	24\325\"\210\305\326\327\"\210\3
6e00	30 35 5c 33 33 30 5c 33 33 31 5c 22 5c 32 31 30 5c 33 30 35 5c 33 33 32 5c 33 33 33 5c 22 5c 32	05\330\331\"\210\305\332\333\"\2
6e20	31 30 5c 33 30 35 5c 33 33 34 5c 33 33 35 5c 22 5c 32 31 30 5c 33 30 35 5c 33 33 36 5c 33 33 35	10\305\334\335\"\210\305\336\335
6e40	5c 22 5c 32 31 30 5c 33 30 35 5c 33 33 37 5c 33 34 30 5c 22 5c 32 31 30 5c 33 30 35 5c 33 34 31	\"\210\305\337\340\"\210\305\341
6e60	5c 33 33 35 5c 22 5c 32 31 30 5c 33 30 35 5c 33 34 32 5c 33 31 37 5c 22 5c 32 31 30 5c 33 30 35	\335\"\210\305\342\317\"\210\305
6e80	5c 33 34 33 5c 33 31 37 5c 22 5c 32 31 30 5c 33 30 35 5c 33 34 34 5c 33 34 35 5c 22 5c 32 31 30	\343\317\"\210\305\344\345\"\210
6ea0	5c 33 34 36 5c 33 34 37 21 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 77	\346\347!\207".[function-put.s-w
6ec0	72 61 70 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 64 65 66 61	rap.pure.t.side-effect-free.defa
6ee0	6c 69 61 73 20 73 2d 62 6c 61 6e 6b 2d 70 20 73 2d 62 6c 61 6e 6b 3f 20 73 2d 62 6c 61 6e 6b 2d	lias.s-blank-p.s-blank?.s-blank-
6f00	73 74 72 2d 70 20 73 2d 62 6c 61 6e 6b 2d 73 74 72 3f 20 73 2d 63 61 70 69 74 61 6c 69 7a 65 64	str-p.s-blank-str?.s-capitalized
6f20	2d 70 20 73 2d 63 61 70 69 74 61 6c 69 7a 65 64 3f 20 73 2d 63 6f 6e 74 61 69 6e 73 2d 70 20 73	-p.s-capitalized?.s-contains-p.s
6f40	2d 63 6f 6e 74 61 69 6e 73 3f 20 73 2d 65 6e 64 73 2d 77 69 74 68 2d 70 20 73 2d 65 6e 64 73 2d	-contains?.s-ends-with-p.s-ends-
6f60	77 69 74 68 3f 20 73 2d 65 71 75 61 6c 73 2d 70 20 73 2d 65 71 75 61 6c 73 3f 20 73 2d 6c 65 73	with?.s-equals-p.s-equals?.s-les
6f80	73 2d 70 20 73 2d 6c 65 73 73 3f 20 73 2d 6c 6f 77 65 72 63 61 73 65 2d 70 20 73 2d 6c 6f 77 65	s-p.s-less?.s-lowercase-p.s-lowe
6fa0	72 63 61 73 65 3f 20 73 2d 6d 61 74 63 68 65 73 2d 70 20 73 2d 6d 61 74 63 68 65 73 3f 20 73 2d	rcase?.s-matches-p.s-matches?.s-
6fc0	6d 69 78 65 64 63 61 73 65 2d 70 20 73 2d 6d 69 78 65 64 63 61 73 65 3f 20 73 2d 6e 75 6d 65 72	mixedcase-p.s-mixedcase?.s-numer
6fe0	69 63 2d 70 20 73 2d 6e 75 6d 65 72 69 63 3f 20 73 2d 70 72 65 66 69 78 2d 70 20 73 2d 73 74 61	ic-p.s-numeric?.s-prefix-p.s-sta
7000	72 74 73 2d 77 69 74 68 3f 20 73 2d 70 72 65 66 69 78 3f 20 73 2d 70 72 65 73 65 6e 74 2d 70 20	rts-with?.s-prefix?.s-present-p.
7020	73 2d 70 72 65 73 65 6e 74 3f 20 73 2d 73 74 61 72 74 73 2d 77 69 74 68 2d 70 20 73 2d 73 75 66	s-present?.s-starts-with-p.s-suf
7040	66 69 78 2d 70 20 73 2d 73 75 66 66 69 78 3f 20 73 2d 75 70 70 65 72 63 61 73 65 2d 70 20 73 2d	fix-p.s-suffix?.s-uppercase-p.s-
7060	75 70 70 65 72 63 61 73 65 3f 20 70 72 6f 76 69 64 65 20 73 5d 20 35 29 0a	uppercase?.provide.s].5).