blob: ed8fa9de63e0a8188fc59d98fb8112ed0033aa9f (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 1c 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 38 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.28.1.;;;.with.all.opt
0040	69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 0a 0a 28 61 75 74 6f 6c 6f 61 64 20 27 73 6c 6f 74 2d 76	imizations.....(autoload.'slot-v
0060	61 6c 75 65 20 22 65 69 65 69 6f 22 29 0a 23 40 34 32 20 52 65 6d 6f 76 65 20 77 68 69 74 65 73	alue."eieio").#@42.Remove.whites
0080	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 1f 0a 28 64 65	pace.at.the.beginning.of.S...(de
00a0	66 61 6c 69 61 73 20 27 73 2d 74 72 69 6d 2d 6c 65 66 74 20 23 5b 28 73 29 20 22 5c 33 30 32 20	falias.'s-trim-left.#[(s)."\302.
00c0	18 5c 33 30 33 5c 32 31 36 5c 33 30 34 5c 33 30 35 09 5c 22 5c 32 30 33 15 00 5c 33 30 36 5c 33	.\303\216\304\305.\"\203..\306\3
00e0	30 37 5c 33 31 30 5c 32 31 31 09 24 5c 32 30 32 16 00 09 2a 5c 32 30 37 22 20 5b 73 61 76 65 2d	07\310\211.$\202...*\207".[save-
0100	6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 20 6d 61 74 63 68 2d 64 61 74 61	match-data-internal.s.match-data
0120	20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d	.#[nil."\301.\302\"\207".[save-m
0140	61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74	atch-data-internal.set-match-dat
0160	61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c	a.evaporate].3].string-match."\\
0180	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 20 35	`[..\n.]+".replace-match."".t].5
01a0	20 28 23 24 20 2e 20 31 31 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	.(#$...115)]).(byte-code."\300\3
01c0	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
01e0	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 74 72 69 6d 2d 6c 65 66 74 20	\207".[function-put.s-trim-left.
0200	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 23 40 33 36	pure.t.side-effect-free].5).#@36
0220	20 52 65 6d 6f 76 65 20 77 68 69 74 65 73 70 61 63 65 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66	.Remove.whitespace.at.the.end.of
0240	20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 74 72 69 6d 2d 72 69 67 68 74 20 23 5b 28	.S...(defalias.'s-trim-right.#[(
0260	73 29 20 22 5c 33 30 32 20 18 5c 33 30 33 5c 32 31 36 5c 33 30 34 5c 33 30 35 09 5c 22 5c 32 30	s)."\302..\303\216\304\305.\"\20
0280	33 15 00 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 32 31 31 09 24 5c 32 30 32 16 00 09 2a 5c 32 30	3..\306\307\310\211.$\202...*\20
02a0	37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 20 6d	7".[save-match-data-internal.s.m
02c0	61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37	atch-data.#[nil."\301.\302\"\207
02e0	22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d	".[save-match-data-internal.set-
0300	6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 73 74 72 69 6e 67 2d	match-data.evaporate].3].string-
0320	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 61 74 63	match."[..\n.]+\\'".replace-matc
0340	68 20 22 22 20 74 5d 20 35 20 28 23 24 20 2e 20 35 34 35 29 5d 29 0a 23 40 35 30 20 52 65 6d 6f	h."".t].5.(#$...545)]).#@50.Remo
0360	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 20 61	ve.whitespace.at.the.beginning.a
0380	6e 64 20 65 6e 64 20 6f 66 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 74 72 69 6d 20	nd.end.of.S...(defalias.'s-trim.
03a0	23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30 32 08 21 21 5c 32 30 37 22 20 5b 73 20 73 2d 74 72 69	#[(s)."\301\302.!!\207".[s.s-tri
03c0	6d 2d 6c 65 66 74 20 73 2d 74 72 69 6d 2d 72 69 67 68 74 5d 20 33 20 28 23 24 20 2e 20 38 36 30	m-left.s-trim-right].3.(#$...860
03e0	29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	)]).(byte-code."\300\301\302\303
0400	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
0420	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 66 66	ction-put.s-trim.pure.t.side-eff
0440	65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 36 33 20 43 6f 6e 76 65 72 74 20 61 6c 6c 20 61 64	ect-free].5).#@63.Convert.all.ad
0460	6a 61 63 65 6e 74 20 77 68 69 74 65 73 70 61 63 65 20 63 68 61 72 61 63 74 65 72 73 20 74 6f 20	jacent.whitespace.characters.to.
0480	61 20 73 69 6e 67 6c 65 20 73 70 61 63 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 6f	a.single.space...(defalias.'s-co
04a0	6c 6c 61 70 73 65 2d 77 68 69 74 65 73 70 61 63 65 20 23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30	llapse-whitespace.#[(s)."\301\30
04c0	32 5c 33 30 33 08 23 5c 32 30 37 22 20 5b 73 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69	2\303.#\207".[s.replace-regexp-i
04e0	6e 2d 73 74 72 69 6e 67 20 22 5b 20 09 5c 6e 0d 5d 2b 22 20 22 20 22 5d 20 34 20 28 23 24 20 2e	n-string."[..\n.]+"."."].4.(#$..
0500	20 31 31 30 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	.1106)]).(byte-code."\300\301\30
0520	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 22	2\303#\300\301\304\303#\300\207"
0540	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 6f 6c 6c 61 70 73 65 2d 77 68 69 74 65 73	.[function-put.s-collapse-whites
0560	70 61 63 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29	pace.pure.t.side-effect-free].5)
0580	0a 23 40 31 39 30 20 53 70 6c 69 74 20 53 20 69 6e 74 6f 20 73 75 62 73 74 72 69 6e 67 73 20 62	.#@190.Split.S.into.substrings.b
05a0	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
05c0	41 52 41 54 4f 52 2e 0a 49 66 20 4f 4d 49 54 2d 4e 55 4c 4c 53 20 69 73 20 6e 6f 6e 2d 6e 69 6c	ARATOR..If.OMIT-NULLS.is.non-nil
05e0	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 69	,.zero-length.substrings.are.omi
0600	74 74 65 64 2e 0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72 61 70 70 65 72 20	tted...This.is.a.simple.wrapper.
0620	61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 73 70 6c 69 74 2d 73 74 72 69 6e	around.the.built-in.`split-strin
0640	67 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 70 6c 69 74 20 23 5b 28 73 65 70 61 72	g'...(defalias.'s-split.#[(separ
0660	61 74 6f 72 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 6d 69 74 2d 6e 75 6c 6c 73 29 20 22 5c 33	ator.s.&optional.omit-nulls)."\3
0680	30 34 20 18 5c 33 30 35 5c 32 31 36 5c 33 30 36 09 5c 6e 0b 23 2a 5c 32 30 37 22 20 5b 73 61 76	04..\305\216\306.\n.#*\207".[sav
06a0	65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 20 73 65 70 61 72 61 74 6f	e-match-data-internal.s.separato
06c0	72 20 6f 6d 69 74 2d 6e 75 6c 6c 73 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c	r.omit-nulls.match-data.#[nil."\
06e0	33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61	301.\302\"\207".[save-match-data
0700	2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61	-internal.set-match-data.evapora
0720	74 65 5d 20 33 5d 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 5d 20 34 20 28 23 24 20 2e 20 31 34 31	te].3].split-string].4.(#$...141
0740	35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	5)]).(byte-code."\300\301\302\30
0760	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 69	3#\300\207".[function-put.s-spli
0780	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 23 40 31 36 34 20 53	t.side-effect-free.t].4).#@164.S
07a0	70 6c 69 74 20 53 20 75 70 20 74 6f 20 4e 20 74 69 6d 65 73 20 69 6e 74 6f 20 73 75 62 73 74 72	plit.S.up.to.N.times.into.substr
07c0	69 6e 67 73 20 62 6f 75 6e 64 65 64 20 62 79 20 6d 61 74 63 68 65 73 20 66 6f 72 20 72 65 67 65	ings.bounded.by.matches.for.rege
07e0	78 70 20 53 45 50 41 52 41 54 4f 52 2e 0a 0a 49 66 20 4f 4d 49 54 2d 4e 55 4c 4c 53 20 69 73 20	xp.SEPARATOR...If.OMIT-NULLS.is.
0800	6e 6f 6e 2d 6e 69 6c 2c 20 7a 65 72 6f 2d 6c 65 6e 67 74 68 20 73 75 62 73 74 72 69 6e 67 73 20	non-nil,.zero-length.substrings.
0820	61 72 65 20 6f 6d 69 74 74 65 64 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 73 2d 73 70 6c 69 74 27	are.omitted...See.also.`s-split'
0840	2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 70 6c 69 74 2d 75 70 2d 74 6f 20 23 5b 28 73	...(defalias.'s-split-up-to.#[(s
0860	65 70 61 72 61 74 6f 72 20 73 20 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 6d 69 74 2d 6e 75 6c 6c	eparator.s.n.&optional.omit-null
0880	73 29 20 22 5c 33 30 36 20 18 5c 33 30 37 5c 32 31 36 5c 33 31 30 5c 33 31 31 19 1a 5c 33 31 32	s)."\306..\307\216\310\311..\312
08a0	5c 33 31 33 5c 33 31 34 5c 22 1b 72 0b 71 5c 32 31 30 5c 33 31 35 5c 32 31 36 5c 66 63 5c 32 31	\313\314\".r.q\210\315\216\fc\21
08c0	30 65 62 12 5c 33 31 36 0d 5c 33 31 31 5c 33 31 34 23 5c 32 30 33 4d 00 5c 33 31 30 0e 10 57 5c	0eb.\316.\311\314#\203M.\310..W\
08e0	32 30 33 4d 00 5c 6e 5c 33 31 30 5c 32 32 34 7b 1e 11 0e 12 5c 32 30 33 3b 00 0e 11 5c 33 31 37	203M.\n\310\224{....\203;...\317
0900	5c 32 33 32 5c 32 30 34 40 00 0e 11 09 42 11 29 5c 33 31 30 5c 32 32 35 62 12 0e 10 53 16 10 5c	\232\204@....B.)\310\225b...S..\
0920	32 30 32 1a 00 5c 6e 64 7b 1e 11 0e 12 5c 32 30 33 5e 00 0e 11 5c 33 31 37 5c 32 33 32 5c 32 30	202..\nd{....\203^...\317\232\20
0940	34 63 00 0e 11 09 42 11 2c 09 5c 32 33 37 2c 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68	4c....B.,.\237,\207".[save-match
0960	2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 72 20 6f 70 20 23 31 3d 23 3a 74 65 6d 70 2d 62 75	-data-internal.r.op.#1=#:temp-bu
0980	66 66 65 72 20 73 20 73 65 70 61 72 61 74 6f 72 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69	ffer.s.separator.match-data.#[ni
09a0	6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d	l."\301.\302\"\207".[save-match-
09c0	64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61	data-internal.set-match-data.eva
09e0	70 6f 72 61 74 65 5d 20 33 5d 20 30 20 6e 69 6c 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75	porate].3].0.nil.generate-new-bu
0a00	66 66 65 72 20 22 20 2a 74 65 6d 70 2a 22 20 74 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 21 5c 32	ffer.".*temp*".t.#[nil."\301.!\2
0a20	30 35 09 00 5c 33 30 32 08 21 5c 32 30 37 22 20 5b 23 31 23 20 62 75 66 66 65 72 2d 6e 61 6d 65	05..\302.!\207".[#1#.buffer-name
0a40	20 6b 69 6c 6c 2d 62 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	.kill-buffer].2].re-search-forwa
0a60	72 64 20 22 22 20 6e 20 73 75 62 20 6f 6d 69 74 2d 6e 75 6c 6c 73 5d 20 34 20 28 23 24 20 2e 20	rd."".n.sub.omit-nulls].4.(#$...
0a80	31 39 35 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	1951)]).(byte-code."\300\301\302
0aa0	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
0ac0	70 6c 69 74 2d 75 70 2d 74 6f 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34	plit-up-to.side-effect-free.t].4
0ae0	29 0a 23 40 35 36 20 53 70 6c 69 74 73 20 53 20 69 6e 74 6f 20 61 20 6c 69 73 74 20 6f 66 20 73	).#@56.Splits.S.into.a.list.of.s
0b00	74 72 69 6e 67 73 20 6f 6e 20 6e 65 77 6c 69 6e 65 20 63 68 61 72 61 63 74 65 72 73 2e 1f 0a 28	trings.on.newline.characters...(
0b20	64 65 66 61 6c 69 61 73 20 27 73 2d 6c 69 6e 65 73 20 23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30	defalias.'s-lines.#[(s)."\301\30
0b40	32 08 5c 22 5c 32 30 37 22 20 5b 73 20 73 2d 73 70 6c 69 74 20 22 5c 5c 28 0d 5c 6e 5c 5c 7c 5b	2.\"\207".[s.s-split."\\(.\n\\|[
0b60	5c 6e 0d 5d 5c 5c 29 22 5d 20 33 20 28 23 24 20 2e 20 32 37 39 31 29 5d 29 0a 28 62 79 74 65 2d	\n.]\\)"].3.(#$...2791)]).(byte-
0b80	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\
0ba0	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.
0bc0	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 2d 66 72 65 65 5d	s-lines.pure.t.side-effect-free]
0be0	20 35 29 0a 23 40 36 30 20 4a 6f 69 6e 20 61 6c 6c 20 74 68 65 20 73 74 72 69 6e 67 73 20 69 6e	.5).#@60.Join.all.the.strings.in
0c00	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 74 77 65	.STRINGS.with.SEPARATOR.in.betwe
0c20	65 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6a 6f 69 6e 20 23 5b 28 73 65 70 61 72 61	en...(defalias.'s-join.#[(separa
0c40	74 6f 72 20 73 74 72 69 6e 67 73 29 20 22 5c 33 30 32 5c 33 30 33 08 09 23 5c 32 30 37 22 20 5b	tor.strings)."\302\303..#\207".[
0c60	73 74 72 69 6e 67 73 20 73 65 70 61 72 61 74 6f 72 20 6d 61 70 63 6f 6e 63 61 74 20 69 64 65 6e	strings.separator.mapconcat.iden
0c80	74 69 74 79 5d 20 34 20 28 23 24 20 2e 20 33 30 34 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65	tity].4.(#$...3049)]).(byte-code
0ca0	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\
0cc0	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 6a 6f	303#\300\207".[function-put.s-jo
0ce0	69 6e 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 23	in.pure.t.side-effect-free].5).#
0d00	40 34 38 20 4a 6f 69 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	@48.Join.all.the.string.argument
0d20	73 20 69 6e 74 6f 20 6f 6e 65 20 73 74 72 69 6e 67 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73	s.into.one.string...(defalias.'s
0d40	2d 63 6f 6e 63 61 74 20 23 5b 28 26 72 65 73 74 20 73 74 72 69 6e 67 73 29 20 22 5c 33 30 31 5c	-concat.#[(&rest.strings)."\301\
0d60	33 30 32 08 5c 22 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 73 20 61 70 70 6c 79 20 63 6f 6e 63 61	302.\"\207".[strings.apply.conca
0d80	74 5d 20 33 20 28 23 24 20 2e 20 33 33 33 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	t].3.(#$...3332)]).(byte-code."\
0da0	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 33	300\301\302\303#\300\301\304\303
0dc0	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 63 6f 6e 63 61	#\300\207".[function-put.s-conca
0de0	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 0a 23 40	t.pure.t.side-effect-free].5).#@
0e00	32 37 20 43 6f 6e 63 61 74 65 6e 61 74 65 20 50 52 45 46 49 58 20 61 6e 64 20 53 2e 1f 0a 28 64	27.Concatenate.PREFIX.and.S...(d
0e20	65 66 61 6c 69 61 73 20 27 73 2d 70 72 65 70 65 6e 64 20 23 5b 28 70 72 65 66 69 78 20 73 29 20	efalias.'s-prepend.#[(prefix.s).
0e40	22 08 09 50 5c 32 30 37 22 20 5b 70 72 65 66 69 78 20 73 5d 20 32 20 28 23 24 20 2e 20 33 35 38	"..P\207".[prefix.s].2.(#$...358
0e60	37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	7)]).(byte-code."\300\301\302\30
0e80	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
0ea0	6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 70 72 65 70 65 6e 64 20 70 75 72 65 20 74 20 73 69 64 65	nction-put.s-prepend.pure.t.side
0ec0	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 32 37 20 43 6f 6e 63 61 74 65 6e 61 74	-effect-free].5).#@27.Concatenat
0ee0	65 20 53 20 61 6e 64 20 53 55 46 46 49 58 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 61 70	e.S.and.SUFFIX...(defalias.'s-ap
0f00	70 65 6e 64 20 23 5b 28 73 75 66 66 69 78 20 73 29 20 22 08 09 50 5c 32 30 37 22 20 5b 73 20 73	pend.#[(suffix.s)."..P\207".[s.s
0f20	75 66 66 69 78 5d 20 32 20 28 23 24 20 2e 20 33 37 39 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64	uffix].2.(#$...3798)]).(byte-cod
0f40	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
0f60	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 61	\303#\300\207".[function-put.s-a
0f80	70 70 65 6e 64 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35	ppend.pure.t.side-effect-free].5
0fa0	29 0a 23 40 34 30 20 4d 61 6b 65 20 61 20 73 74 72 69 6e 67 20 6f 66 20 53 20 72 65 70 65 61 74	).#@40.Make.a.string.of.S.repeat
0fc0	65 64 20 4e 55 4d 20 74 69 6d 65 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 72 65 70 65	ed.NUM.times...(defalias.'s-repe
0fe0	61 74 20 23 5b 28 6e 75 6d 20 73 29 20 22 5c 33 30 33 18 09 5c 33 30 34 56 5c 32 30 33 13 00 5c	at.#[(num.s)."\303..\304V\203..\
1000	6e 08 42 10 09 53 5c 32 31 31 11 5c 32 30 32 03 00 5c 33 30 35 5c 33 30 36 08 5c 22 29 5c 32 30	n.B..S\211.\202..\305\306.\")\20
1020	37 22 20 5b 73 73 20 6e 75 6d 20 73 20 6e 69 6c 20 30 20 61 70 70 6c 79 20 63 6f 6e 63 61 74 5d	7".[ss.num.s.nil.0.apply.concat]
1040	20 34 20 28 23 24 20 2e 20 34 30 30 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	.4.(#$...4007)]).(byte-code."\30
1060	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 33 23 5c	0\301\302\303#\300\301\304\303#\
1080	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 65 70 65 61 74 20	300\207".[function-put.s-repeat.
10a0	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 23 40 33 37	pure.t.side-effect-free].5).#@37
10c0	20 52 65 6d 6f 76 65 20 53 55 46 46 49 58 20 69 66 20 69 74 20 69 73 20 61 74 20 65 6e 64 20 6f	.Remove.SUFFIX.if.it.is.at.end.o
10e0	66 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 20 23	f.S...(defalias.'s-chop-suffix.#
1100	5b 28 73 75 66 66 69 78 20 73 29 20 22 08 47 5b 19 5c 6e 47 08 47 59 5c 32 30 33 1c 00 08 5c 6e	[(suffix.s).".G[.\nG.GY\203...\n
1120	09 5c 33 30 33 4f 5c 32 33 30 5c 32 30 33 1c 00 5c 6e 5c 33 30 34 09 4f 5c 32 30 32 1d 00 5c 6e	.\303O\230\203..\n\304.O\202..\n
1140	29 5c 32 30 37 22 20 5b 73 75 66 66 69 78 20 70 6f 73 20 73 20 6e 69 6c 20 30 5d 20 34 20 28 23	)\207".[suffix.pos.s.nil.0].4.(#
1160	24 20 2e 20 34 32 38 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	$...4289)]).(byte-code."\300\301
1180	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
11a0	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.
11c0	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 23 40 36 37	pure.t.side-effect-free].5).#@67
11e0	20 52 65 6d 6f 76 65 20 53 55 46 46 49 58 45 53 20 6f 6e 65 20 62 79 20 6f 6e 65 20 69 6e 20 6f	.Remove.SUFFIXES.one.by.one.in.o
1200	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 65 6e 64 20 6f 66 20	rder,.if.they.are.at.the.end.of.
1220	53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 65 73 20 23	S...(defalias.'s-chop-suffixes.#
1240	5b 28 73 75 66 66 69 78 65 73 20 73 29 20 22 08 5c 32 30 33 11 00 5c 33 30 32 08 40 09 5c 22 11	[(suffixes.s).".\203..\302.@.\".
1260	08 41 5c 32 31 31 10 5c 32 30 34 04 00 09 5c 32 30 37 22 20 5b 73 75 66 66 69 78 65 73 20 73 20	.A\211.\204...\207".[suffixes.s.
1280	73 2d 63 68 6f 70 2d 73 75 66 66 69 78 5d 20 34 20 28 23 24 20 2e 20 34 35 37 37 29 5d 29 0a 28	s-chop-suffix].4.(#$...4577)]).(
12a0	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
12c0	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
12e0	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 20 73 69 64 65	-put.s-chop-suffixes.pure.t.side
1300	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 33 20 52 65 6d 6f 76 65 20 50 52 45	-effect-free].5).#@43.Remove.PRE
1320	46 49 58 20 69 66 20 69 74 20 69 73 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 53 2e 1f	FIX.if.it.is.at.the.start.of.S..
1340	0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f 70 2d 70 72 65 66 69 78 20 23 5b 28 70 72 65	.(defalias.'s-chop-prefix.#[(pre
1360	66 69 78 20 73 29 20 22 08 47 19 5c 6e 47 08 47 59 5c 32 30 33 1b 00 08 5c 6e 5c 33 30 33 09 4f	fix.s).".G.\nG.GY\203...\n\303.O
1380	5c 32 33 30 5c 32 30 33 1b 00 5c 6e 09 5c 33 30 34 4f 5c 32 30 32 1c 00 5c 6e 29 5c 32 30 37 22	\230\203..\n.\304O\202..\n)\207"
13a0	20 5b 70 72 65 66 69 78 20 70 6f 73 20 73 20 30 20 6e 69 6c 5d 20 34 20 28 23 24 20 2e 20 34 38	.[prefix.pos.s.0.nil].4.(#$...48
13c0	38 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	86)]).(byte-code."\300\301\302\3
13e0	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
1400	75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 68 6f 70 2d 70 72 65 66 69 78 20 70 75 72 65 20 74	unction-put.s-chop-prefix.pure.t
1420	20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 36 39 20 52 65 6d 6f 76	.side-effect-free].5).#@69.Remov
1440	65 20 50 52 45 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	e.PREFIXES.one.by.one.in.order,.
1460	69 66 20 74 68 65 79 20 61 72 65 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 53 2e 1f 0a	if.they.are.at.the.start.of.S...
1480	28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f 70 2d 70 72 65 66 69 78 65 73 20 23 5b 28 70 72	(defalias.'s-chop-prefixes.#[(pr
14a0	65 66 69 78 65 73 20 73 29 20 22 08 5c 32 30 33 11 00 5c 33 30 32 08 40 09 5c 22 11 08 41 5c 32	efixes.s).".\203..\302.@.\"..A\2
14c0	31 31 10 5c 32 30 34 04 00 09 5c 32 30 37 22 20 5b 70 72 65 66 69 78 65 73 20 73 20 73 2d 63 68	11.\204...\207".[prefixes.s.s-ch
14e0	6f 70 2d 70 72 65 66 69 78 5d 20 34 20 28 23 24 20 2e 20 35 31 37 39 29 5d 29 0a 28 62 79 74 65	op-prefix].4.(#$...5179)]).(byte
1500	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 31	-code."\300\301\302\303#\300\301
1520	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 74	\304\303#\300\207".[function-put
1540	20 73 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	.s-chop-prefixes.pure.t.side-eff
1560	65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 35 34 20 52 65 74 75 72 6e 73 20 74 68 65 20 6c 6f	ect-free].5).#@54.Returns.the.lo
1580	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 20 69 6e 20 63	ngest.prefix.S1.and.S2.have.in.c
15a0	6f 6d 6d 6f 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 68 61 72 65 64 2d 73 74 61 72	ommon...(defalias.'s-shared-star
15c0	74 20 23 5b 28 73 31 20 73 32 29 20 22 5c 33 30 33 08 5c 33 30 34 08 47 09 5c 33 30 34 09 47 26	t.#[(s1.s2)."\303.\304.G.\304.G&
15e0	06 5c 32 31 31 1a 5c 33 30 35 3d 5c 32 30 33 16 00 08 5c 32 30 32 1d 00 08 5c 33 30 34 5c 33 30	.\211.\305=\203...\202...\304\30
1600	36 5c 6e 21 53 4f 29 5c 32 30 37 22 20 5b 73 31 20 73 32 20 63 6d 70 20 63 6f 6d 70 61 72 65 2d	6\n!SO)\207".[s1.s2.cmp.compare-
1620	73 74 72 69 6e 67 73 20 30 20 74 20 61 62 73 5d 20 38 20 28 23 24 20 2e 20 35 34 39 30 29 5d 29	strings.0.t.abs].8.(#$...5490)])
1640	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
1660	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
1680	6f 6e 2d 70 75 74 20 73 2d 73 68 61 72 65 64 2d 73 74 61 72 74 20 70 75 72 65 20 74 20 73 69 64	on-put.s-shared-start.pure.t.sid
16a0	65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 35 34 20 52 65 74 75 72 6e 73 20 74	e-effect-free].5).#@54.Returns.t
16c0	68 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	he.longest.suffix.S1.and.S2.have
16e0	20 69 6e 20 63 6f 6d 6d 6f 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 68 61 72 65 64	.in.common...(defalias.'s-shared
1700	2d 65 6e 64 20 23 5b 28 73 31 20 73 32 29 20 22 08 47 19 5c 6e 47 1b 09 0b 5e 1c 5c 33 30 36 5c	-end.#[(s1.s2).".G.\nG...^.\306\
1720	32 31 31 1d 5c 66 57 5c 32 30 33 29 00 08 09 0d 5a 53 48 5c 6e 0b 0d 5a 53 48 55 5c 32 30 33 29	211.\fW\203)....ZSH\n..ZSHU\203)
1740	00 0d 54 5c 32 31 31 15 5c 32 30 32 0d 00 0d 5c 33 30 36 55 5c 32 30 33 33 00 5c 33 30 37 5c 32	..T\211.\202...\306U\2033.\307\2
1760	30 32 38 00 08 0d 5b 5c 33 31 30 4f 2c 5c 32 30 37 22 20 5b 73 31 20 6c 31 20 73 32 20 6c 32 20	028...[\310O,\207".[s1.l1.s2.l2.
1780	73 65 61 72 63 68 2d 6c 65 6e 67 74 68 20 69 20 30 20 22 22 20 6e 69 6c 5d 20 35 20 28 23 24 20	search-length.i.0."".nil].5.(#$.
17a0	2e 20 35 38 31 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	..5815)]).(byte-code."\300\301\3
17c0	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
17e0	22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 73 68 61 72 65 64 2d 65 6e 64 20 70 75 72	".[function-put.s-shared-end.pur
1800	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 23 40 35 30 20 52 65	e.t.side-effect-free].5).#@50.Re
1820	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 72 20	move.one.trailing.`\n`,.`\r`.or.
1840	60 5c 72 5c 6e 60 20 66 72 6f 6d 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f	`\r\n`.from.S...(defalias.'s-cho
1860	6d 70 20 23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30 32 08 5c 22 5c 32 30 37 22 20 5b 73 20 73 2d	mp.#[(s)."\301\302.\"\207".[s.s-
1880	63 68 6f 70 2d 73 75 66 66 69 78 65 73 20 28 22 5c 6e 22 20 22 0d 22 29 5d 20 33 20 28 23 24 20	chop-suffixes.("\n".".")].3.(#$.
18a0	2e 20 36 31 37 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	..6174)]).(byte-code."\300\301\3
18c0	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
18e0	22 20 5b 66 75 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	".[function-put.s-chomp.pure.t.s
1900	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 39 32 20 49 66 20 53 20 69	ide-effect-free].5).#@192.If.S.i
1920	73 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20 4c 45 4e 2c 20 63 75 74 20 69 74 20 64 6f 77 6e 20 61	s.longer.than.LEN,.cut.it.down.a
1940	6e 64 20 61 64 64 20 45 4c 4c 49 50 53 49 53 20 74 6f 20 74 68 65 20 65 6e 64 2e 0a 0a 54 68 65	nd.add.ELLIPSIS.to.the.end...The
1960	20 72 65 73 75 6c 74 69 6e 67 20 73 74 72 69 6e 67 2c 20 69 6e 63 6c 75 64 69 6e 67 20 65 6c 6c	.resulting.string,.including.ell
1980	69 70 73 69 73 2c 20 77 69 6c 6c 20 62 65 20 4c 45 4e 20 63 68 61 72 61 63 74 65 72 73 0a 6c 6f	ipsis,.will.be.LEN.characters.lo
19a0	6e 67 2e 0a 0a 57 68 65 6e 20 6e 6f 74 20 73 70 65 63 69 66 69 65 64 2c 20 45 4c 4c 49 50 53 49	ng...When.not.specified,.ELLIPSI
19c0	53 20 64 65 66 61 75 6c 74 73 20 74 6f 20 e2 80 98 2e 2e 2e e2 80 99 2e 1f 0a 28 64 65 66 61 6c	S.defaults.to.............(defal
19e0	69 61 73 20 27 73 2d 74 72 75 6e 63 61 74 65 20 23 5b 28 6c 65 6e 20 73 20 26 6f 70 74 69 6f 6e	ias.'s-truncate.#[(len.s.&option
1a00	61 6c 20 65 6c 6c 69 70 73 69 73 29 20 22 08 5c 32 30 34 06 00 5c 33 30 33 10 09 47 5c 6e 56 5c	al.ellipsis).".\204..\303..G\nV\
1a20	32 30 33 19 00 5c 33 30 34 5c 33 30 35 09 5c 33 30 36 5c 6e 08 47 5a 4f 08 23 5c 32 30 37 09 5c	203..\304\305.\306\n.GZO.#\207.\
1a40	32 30 37 22 20 5b 65 6c 6c 69 70 73 69 73 20 73 20 6c 65 6e 20 22 2e 2e 2e 22 20 66 6f 72 6d 61	207".[ellipsis.s.len."...".forma
1a60	74 20 22 25 73 25 73 22 20 30 5d 20 36 20 28 23 24 20 2e 20 36 34 32 36 29 5d 29 0a 28 62 79 74	t."%s%s".0].6.(#$...6426)]).(byt
1a80	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
1aa0	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
1ac0	74 20 73 2d 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	t.s-truncate.pure.t.side-effect-
1ae0	66 72 65 65 5d 20 35 29 0a 23 40 35 36 20 49 66 20 53 20 69 73 20 6c 6f 6e 67 65 72 20 74 68 61	free].5).#@56.If.S.is.longer.tha
1b00	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 20 6e 65 77 6c 69	n.LEN,.wrap.the.words.with.newli
1b20	6e 65 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 77 6f 72 64 2d 77 72 61 70 20 23 5b 28	nes...(defalias.'s-word-wrap.#[(
1b40	6c 65 6e 20 73 29 20 22 5c 33 30 35 20 18 5c 33 30 36 5c 32 31 36 5c 33 30 37 5c 33 31 30 5c 33	len.s)."\305..\306\216\307\310\3
1b60	31 31 5c 22 19 72 09 71 5c 32 31 30 5c 33 31 32 5c 32 31 36 5c 6e 63 5c 32 31 30 0b 1c 5c 33 31	11\".r.q\210\312\216\nc\210..\31
1b80	33 65 64 5c 22 5c 32 31 30 29 65 64 7b 2d 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d	3ed\"\210)ed{-\207".[save-match-
1ba0	64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 23 31 3d 23 3a 74 65 6d 70 2d 62 75 66 66 65 72 20 73	data-internal.#1=#:temp-buffer.s
1bc0	20 6c 65 6e 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69	.len.fill-column.match-data.#[ni
1be0	6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d	l."\301.\302\"\207".[save-match-
1c00	64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61	data-internal.set-match-data.eva
1c20	70 6f 72 61 74 65 5d 20 33 5d 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22	porate].3].generate-new-buffer."
1c40	20 2a 74 65 6d 70 2a 22 20 74 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 21 5c 32 30 35 09 00 5c 33	.*temp*".t.#[nil."\301.!\205..\3
1c60	30 32 08 21 5c 32 30 37 22 20 5b 23 31 23 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d	02.!\207".[#1#.buffer-name.kill-
1c80	62 75 66 66 65 72 5d 20 32 5d 20 66 69 6c 6c 2d 72 65 67 69 6f 6e 5d 20 33 20 28 23 24 20 2e 20	buffer].2].fill-region].3.(#$...
1ca0	36 38 39 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	6894)]).(byte-code."\300\301\302
1cc0	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 77	\303#\300\207".[function-put.s-w
1ce0	6f 72 64 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	ord-wrap.side-effect-free.t].4).
1d00	23 40 36 35 20 49 66 20 53 20 69 73 20 73 68 6f 72 74 65 72 20 74 68 61 6e 20 4c 45 4e 2c 20 70	#@65.If.S.is.shorter.than.LEN,.p
1d20	61 64 20 69 74 20 77 69 74 68 20 73 70 61 63 65 73 20 73 6f 20 69 74 20 69 73 20 63 65 6e 74 65	ad.it.with.spaces.so.it.is.cente
1d40	72 65 64 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 65 6e 74 65 72 20 23 5b 28 6c 65 6e	red...(defalias.'s-center.#[(len
1d60	20 73 29 20 22 5c 33 30 33 08 09 47 5a 5d 1a 5c 33 30 34 5c 33 30 35 5c 6e 5c 33 30 36 5c 22 5c	.s)."\303..GZ].\304\305\n\306\"\
1d80	33 30 37 5c 22 09 5c 33 30 34 5c 33 31 30 5c 6e 5c 33 30 36 5c 22 5c 33 30 37 5c 22 51 29 5c 32	307\".\304\310\n\306\"\307\"Q)\2
1da0	30 37 22 20 5b 6c 65 6e 20 73 20 65 78 74 72 61 20 30 20 6d 61 6b 65 2d 73 74 72 69 6e 67 20 63	07".[len.s.extra.0.make-string.c
1dc0	65 69 6c 69 6e 67 20 32 20 33 32 20 66 6c 6f 6f 72 5d 20 36 20 28 23 24 20 2e 20 37 34 32 39 29	eiling.2.32.floor].6.(#$...7429)
1de0	5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23	]).(byte-code."\300\301\302\303#
1e00	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
1e20	74 69 6f 6e 2d 70 75 74 20 73 2d 63 65 6e 74 65 72 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66	tion-put.s-center.pure.t.side-ef
1e40	66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 36 30 20 49 66 20 53 20 69 73 20 73 68 6f 72 74	fect-free].5).#@60.If.S.is.short
1e60	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
1e80	20 6f 6e 20 74 68 65 20 6c 65 66 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70 61 64 2d	.on.the.left...(defalias.'s-pad-
1ea0	6c 65 66 74 20 23 5b 28 6c 65 6e 20 70 61 64 64 69 6e 67 20 73 29 20 22 5c 33 30 34 08 09 47 5a	left.#[(len.padding.s)."\304..GZ
1ec0	5d 1a 5c 33 30 35 5c 6e 5c 33 30 36 0b 21 5c 22 09 50 29 5c 32 30 37 22 20 5b 6c 65 6e 20 73 20	].\305\n\306.!\".P)\207".[len.s.
1ee0	65 78 74 72 61 20 70 61 64 64 69 6e 67 20 30 20 6d 61 6b 65 2d 73 74 72 69 6e 67 20 73 74 72 69	extra.padding.0.make-string.stri
1f00	6e 67 2d 74 6f 2d 63 68 61 72 5d 20 34 20 28 23 24 20 2e 20 37 37 36 33 29 5d 29 0a 28 62 79 74	ng-to-char].4.(#$...7763)]).(byt
1f20	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
1f40	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
1f60	74 20 73 2d 70 61 64 2d 6c 65 66 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d	t.s-pad-left.pure.t.side-effect-
1f80	66 72 65 65 5d 20 35 29 0a 23 40 36 31 20 49 66 20 53 20 69 73 20 73 68 6f 72 74 65 72 20 74 68	free].5).#@61.If.S.is.shorter.th
1fa0	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 20 6f 6e 20 74	an.LEN,.pad.it.with.PADDING.on.t
1fc0	68 65 20 72 69 67 68 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70 61 64 2d 72 69 67 68	he.right...(defalias.'s-pad-righ
1fe0	74 20 23 5b 28 6c 65 6e 20 70 61 64 64 69 6e 67 20 73 29 20 22 5c 33 30 34 08 09 47 5a 5d 1a 09	t.#[(len.padding.s)."\304..GZ]..
2000	5c 33 30 35 5c 6e 5c 33 30 36 0b 21 5c 22 50 29 5c 32 30 37 22 20 5b 6c 65 6e 20 73 20 65 78 74	\305\n\306.!\"P)\207".[len.s.ext
2020	72 61 20 70 61 64 64 69 6e 67 20 30 20 6d 61 6b 65 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 2d	ra.padding.0.make-string.string-
2040	74 6f 2d 63 68 61 72 5d 20 35 20 28 23 24 20 2e 20 38 30 37 38 29 5d 29 0a 28 62 79 74 65 2d 63	to-char].5.(#$...8078)]).(byte-c
2060	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
2080	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
20a0	2d 70 61 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	-pad-right.pure.t.side-effect-fr
20c0	65 65 5d 20 35 29 0a 23 40 34 31 20 52 65 74 75 72 6e 73 20 75 70 20 74 6f 20 74 68 65 20 4c 45	ee].5).#@41.Returns.up.to.the.LE
20e0	4e 20 66 69 72 73 74 20 63 68 61 72 73 20 6f 66 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	N.first.chars.of.S...(defalias.'
2100	73 2d 6c 65 66 74 20 23 5b 28 6c 65 6e 20 73 29 20 22 08 47 09 56 5c 32 30 33 5c 66 00 08 5c 33	s-left.#[(len.s).".G.V\203\f..\3
2120	30 32 09 4f 5c 32 30 37 08 5c 32 30 37 22 20 5b 73 20 6c 65 6e 20 30 5d 20 33 20 28 23 24 20 2e	02.O\207.\207".[s.len.0].3.(#$..
2140	20 38 33 39 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	.8396)]).(byte-code."\300\301\30
2160	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 22	2\303#\300\301\304\303#\300\207"
2180	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 69 64	.[function-put.s-left.pure.t.sid
21a0	65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 30 20 52 65 74 75 72 6e 73 20 75	e-effect-free].5).#@40.Returns.u
21c0	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 1f 0a 28	p.to.the.LEN.last.chars.of.S...(
21e0	64 65 66 61 6c 69 61 73 20 27 73 2d 72 69 67 68 74 20 23 5b 28 6c 65 6e 20 73 29 20 22 08 47 5c	defalias.'s-right.#[(len.s).".G\
2200	32 31 31 19 5c 6e 56 5c 32 30 33 12 00 08 09 5c 6e 5a 09 4f 5c 32 30 32 13 00 08 29 5c 32 30 37	211.\nV\203....\nZ.O\202...)\207
2220	22 20 5b 73 20 6c 20 6c 65 6e 5d 20 34 20 28 23 24 20 2e 20 38 36 33 31 29 5d 29 0a 28 62 79 74	".[s.l.len].4.(#$...8631)]).(byt
2240	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
2260	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
2280	74 20 73 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	t.s-right.pure.t.side-effect-fre
22a0	65 5d 20 35 29 0a 23 40 31 34 32 20 44 6f 65 73 20 53 20 65 6e 64 20 77 69 74 68 20 53 55 46 46	e].5).#@142.Does.S.end.with.SUFF
22c0	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 20	IX?..If.IGNORE-CASE.is.non-nil,.
22e0	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 70	the.comparison.is.done.without.p
2300	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 6e	aying.attention.to.case.differen
2320	63 65 73 2e 0a 0a 41 6c 69 61 73 3a 20 60 73 2d 73 75 66 66 69 78 3f 27 1f 0a 28 64 65 66 61 6c	ces...Alias:.`s-suffix?'..(defal
2340	69 61 73 20 27 73 2d 65 6e 64 73 2d 77 69 74 68 5c 3f 20 23 5b 28 73 75 66 66 69 78 20 73 20 26	ias.'s-ends-with\?.#[(suffix.s.&
2360	6f 70 74 69 6f 6e 61 6c 20 69 67 6e 6f 72 65 2d 63 61 73 65 29 20 22 08 47 09 47 5a 5c 32 31 31	optional.ignore-case).".G.GZ\211
2380	1a 5c 33 30 34 59 5c 32 30 35 18 00 5c 33 30 35 09 5c 33 30 36 5c 32 31 31 08 5c 6e 5c 33 30 36	.\304Y\205..\305.\306\211.\n\306
23a0	0b 26 07 5c 33 30 37 3d 29 5c 32 30 37 22 20 5b 73 20 73 75 66 66 69 78 20 73 74 61 72 74 2d 70	.&.\307=)\207".[s.suffix.start-p
23c0	6f 73 20 69 67 6e 6f 72 65 2d 63 61 73 65 20 30 20 63 6f 6d 70 61 72 65 2d 73 74 72 69 6e 67 73	os.ignore-case.0.compare-strings
23e0	20 6e 69 6c 20 74 5d 20 39 20 28 23 24 20 2e 20 38 38 37 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f	.nil.t].9.(#$...8876)]).(byte-co
2400	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
2420	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-
2440	65 6e 64 73 2d 77 69 74 68 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66	ends-with\?.pure.t.side-effect-f
2460	72 65 65 5d 20 35 29 0a 23 40 32 30 39 20 44 6f 65 73 20 53 20 73 74 61 72 74 20 77 69 74 68 20	ree].5).#@209.Does.S.start.with.
2480	50 52 45 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	PREFIX?..If.IGNORE-CASE.is.non-n
24a0	69 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	il,.the.comparison.is.done.witho
24c0	75 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	ut.paying.attention.to.case.diff
24e0	65 72 65 6e 63 65 73 2e 0a 0a 41 6c 69 61 73 3a 20 60 73 2d 70 72 65 66 69 78 3f 27 2e 20 54 68	erences...Alias:.`s-prefix?'..Th
2500	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 74 68	is.is.a.simple.wrapper.around.th
2520	65 20 62 75 69 6c 74 2d 69 6e 0a 60 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 27 2e 1f 0a 28	e.built-in.`string-prefix-p'...(
2540	64 65 66 61 6c 69 61 73 20 27 73 2d 73 74 61 72 74 73 2d 77 69 74 68 5c 3f 20 23 5b 28 70 72 65	defalias.'s-starts-with\?.#[(pre
2560	66 69 78 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 69 67 6e 6f 72 65 2d 63 61 73 65 29 20 22 5c 33	fix.s.&optional.ignore-case)."\3
2580	30 33 08 09 5c 6e 23 5c 32 30 37 22 20 5b 70 72 65 66 69 78 20 73 20 69 67 6e 6f 72 65 2d 63 61	03..\n#\207".[prefix.s.ignore-ca
25a0	73 65 20 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 5d 20 34 20 28 23 24 20 2e 20 39 33 32 36	se.string-prefix-p].4.(#$...9326
25c0	29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	)]).(byte-code."\300\301\302\303
25e0	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
2600	63 74 69 6f 6e 2d 70 75 74 20 73 2d 73 74 61 72 74 73 2d 77 69 74 68 5c 3f 20 70 75 72 65 20 74	ction-put.s-starts-with\?.pure.t
2620	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.
2640	27 73 2d 2d 74 72 75 74 68 79 5c 3f 20 23 5b 28 76 61 6c 29 20 22 08 3f 3f 5c 32 30 37 22 20 5b	's--truthy\?.#[(val).".??\207".[
2660	76 61 6c 5d 20 31 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	val].1]).(byte-code."\300\301\30
2680	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 22	2\303#\300\301\304\303#\300\207"
26a0	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 2d 74 72 75 74 68 79 5c 3f 20 70 75 72 65 20	.[function-put.s--truthy\?.pure.
26c0	74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 32 31 20 44 6f 65	t.side-effect-free].5).#@121.Doe
26e0	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 2d 43	s.S.contain.NEEDLE?..If.IGNORE-C
2700	41 53 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 69	ASE.is.non-nil,.the.comparison.i
2720	73 20 64 6f 6e 65 20 77 69 74 68 6f 75 74 20 70 61 79 69 6e 67 0a 61 74 74 65 6e 74 69 6f 6e 20	s.done.without.paying.attention.
2740	74 6f 20 63 61 73 65 20 64 69 66 66 65 72 65 6e 63 65 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20	to.case.differences...(defalias.
2760	27 73 2d 63 6f 6e 74 61 69 6e 73 5c 3f 20 23 5b 28 6e 65 65 64 6c 65 20 73 20 26 6f 70 74 69 6f	's-contains\?.#[(needle.s.&optio
2780	6e 61 6c 20 69 67 6e 6f 72 65 2d 63 61 73 65 29 20 22 08 19 5c 33 30 35 5c 33 30 36 5c 6e 21 0b	nal.ignore-case)."..\305\306\n!.
27a0	5c 33 30 37 5c 33 31 30 1c 5c 33 31 31 03 03 03 23 29 5c 32 36 36 5c 32 30 33 21 29 5c 32 30 37	\307\310.\311...#)\266\203!)\207
27c0	22 20 5b 69 67 6e 6f 72 65 2d 63 61 73 65 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20	".[ignore-case.case-fold-search.
27e0	6e 65 65 64 6c 65 20 73 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d	needle.s.inhibit-changing-match-
2800	64 61 74 61 20 73 2d 2d 74 72 75 74 68 79 5c 3f 20 72 65 67 65 78 70 2d 71 75 6f 74 65 20 6e 69	data.s--truthy\?.regexp-quote.ni
2820	6c 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 38 20 28 23 24 20 2e 20 39 39 34 39 29 5d	l.t.string-match].8.(#$...9949)]
2840	29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	).(byte-code."\300\301\302\303#\
2860	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 74	300\301\304\303#\300\207".[funct
2880	69 6f 6e 2d 70 75 74 20 73 2d 63 6f 6e 74 61 69 6e 73 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65	ion-put.s-contains\?.pure.t.side
28a0	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 38 32 20 49 73 20 53 31 20 65 71 75 61	-effect-free].5).#@82.Is.S1.equa
28c0	6c 20 74 6f 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 61 70 70	l.to.S2?..This.is.a.simple.wrapp
28e0	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 67 2d 65	er.around.the.built-in.`string-e
2900	71 75 61 6c 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 65 71 75 61 6c 73 5c 3f 20 23 5b	qual'...(defalias.'s-equals\?.#[
2920	28 73 31 20 73 32 29 20 22 08 09 5c 32 33 30 5c 32 30 37 22 20 5b 73 31 20 73 32 5d 20 32 20 28	(s1.s2)."..\230\207".[s1.s2].2.(
2940	23 24 20 2e 20 31 30 34 32 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	#$...10422)]).(byte-code."\300\3
2960	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
2980	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 65 71 75 61 6c 73 5c 3f 20 70	\207".[function-put.s-equals\?.p
29a0	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 23 40 38 33 20	ure.t.side-effect-free].5).#@83.
29c0	49 73 20 53 31 20 6c 65 73 73 20 74 68 61 6e 20 53 32 3f 0a 0a 54 68 69 73 20 69 73 20 61 20 73	Is.S1.less.than.S2?..This.is.a.s
29e0	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 69	imple.wrapper.around.the.built-i
2a00	6e 20 60 73 74 72 69 6e 67 2d 6c 65 73 73 70 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d	n.`string-lessp'...(defalias.'s-
2a20	6c 65 73 73 5c 3f 20 23 5b 28 73 31 20 73 32 29 20 22 08 09 5c 32 33 31 5c 32 30 37 22 20 5b 73	less\?.#[(s1.s2)."..\231\207".[s
2a40	31 20 73 32 5d 20 32 20 28 23 24 20 2e 20 31 30 36 38 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64	1.s2].2.(#$...10688)]).(byte-cod
2a60	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
2a80	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 6c	\303#\300\207".[function-put.s-l
2aa0	65 73 73 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35	ess\?.pure.t.side-effect-free].5
2ac0	29 0a 23 40 31 33 39 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	).#@139.Does.REGEXP.match.S?.If.
2ae0	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 63 68 20 73 74 61 72	START.is.non-nil.the.search.star
2b00	74 73 20 61 74 20 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	ts.at.that.index...This.is.a.sim
2b20	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 69 6e 20	ple.wrapper.around.the.built-in.
2b40	60 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d	`string-match-p'...(defalias.'s-
2b60	6d 61 74 63 68 65 73 5c 3f 20 23 5b 28 72 65 67 65 78 70 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20	matches\?.#[(regexp.s.&optional.
2b80	73 74 61 72 74 29 20 22 5c 33 30 34 08 09 5c 6e 5c 33 30 35 1b 5c 33 30 36 03 03 03 23 29 5c 32	start)."\304..\n\305.\306...#)\2
2ba0	36 36 5c 32 30 33 21 5c 32 30 37 22 20 5b 72 65 67 65 78 70 20 73 20 73 74 61 72 74 20 69 6e 68	66\203!\207".[regexp.s.start.inh
2bc0	69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 73 2d 2d 74 72 75 74	ibit-changing-match-data.s--trut
2be0	68 79 5c 3f 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 38 20 28 23 24 20 2e 20 31 30 39	hy\?.t.string-match].8.(#$...109
2c00	35 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	52)]).(byte-code."\300\301\302\3
2c20	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 61 74	03#\300\207".[function-put.s-mat
2c40	63 68 65 73 5c 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 23 40	ches\?.side-effect-free.t].4).#@
2c60	33 31 20 49 73 20 53 20 6e 69 6c 20 6f 72 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 3f	31.Is.S.nil.or.the.empty.string?
2c80	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 62 6c 61 6e 6b 5c 3f 20 23 5b 28 73 29 20 22 08 3f	..(defalias.'s-blank\?.#[(s).".?
2ca0	5c 32 30 36 08 00 08 5c 33 30 31 5c 32 33 30 5c 32 30 37 22 20 5b 73 20 22 22 5d 20 32 20 28 23	\206...\301\230\207".[s.""].2.(#
2cc0	24 20 2e 20 31 31 33 36 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	$...11363)]).(byte-code."\300\30
2ce0	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\
2d00	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 62 6c 61 6e 6b 5c 3f 20 70 75 72	207".[function-put.s-blank\?.pur
2d20	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 23 40 36 36 20 49 73	e.t.side-effect-free].5).#@66.Is
2d40	20 53 20 6e 69 6c 20 6f 72 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 20 6f 72 20 73 74	.S.nil.or.the.empty.string.or.st
2d60	72 69 6e 67 20 6f 6e 6c 79 20 63 6f 6e 74 61 69 6e 73 20 77 68 69 74 65 73 70 61 63 65 3f 1f 0a	ring.only.contains.whitespace?..
2d80	28 64 65 66 61 6c 69 61 73 20 27 73 2d 62 6c 61 6e 6b 2d 73 74 72 5c 3f 20 23 5b 28 73 29 20 22	(defalias.'s-blank-str\?.#[(s)."
2da0	5c 33 30 31 08 21 5c 32 30 36 0b 00 5c 33 30 31 5c 33 30 32 08 21 21 5c 32 30 37 22 20 5b 73 20	\301.!\206..\301\302.!!\207".[s.
2dc0	73 2d 62 6c 61 6e 6b 5c 3f 20 73 2d 74 72 69 6d 5d 20 33 20 28 23 24 20 2e 20 31 31 35 38 32 29	s-blank\?.s-trim].3.(#$...11582)
2de0	5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23	]).(byte-code."\300\301\302\303#
2e00	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
2e20	74 69 6f 6e 2d 70 75 74 20 73 2d 62 6c 61 6e 6b 2d 73 74 72 5c 3f 20 70 75 72 65 20 74 20 73 69	tion-put.s-blank-str\?.pure.t.si
2e40	64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 34 20 49 73 20 53 20 61 6e 79	de-effect-free].5).#@44.Is.S.any
2e60	74 68 69 6e 67 20 62 75 74 20 6e 69 6c 20 6f 72 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e	thing.but.nil.or.the.empty.strin
2e80	67 3f 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70 72 65 73 65 6e 74 5c 3f 20 23 5b 28 73 29	g?..(defalias.'s-present\?.#[(s)
2ea0	20 22 5c 33 30 31 08 21 3f 5c 32 30 37 22 20 5b 73 20 73 2d 62 6c 61 6e 6b 5c 3f 5d 20 32 20 28	."\301.!?\207".[s.s-blank\?].2.(
2ec0	23 24 20 2e 20 31 31 38 36 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	#$...11864)]).(byte-code."\300\3
2ee0	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
2f00	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 70 72 65 73 65 6e 74 5c 3f 20	\207".[function-put.s-present\?.
2f20	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 23 40 35 34	pure.t.side-effect-free].5).#@54
2f40	20 52 65 74 75 72 6e 20 53 20 69 66 20 69 74 27 73 20 60 73 2d 70 72 65 73 65 6e 74 3f 27 2c 20	.Return.S.if.it's.`s-present?',.
2f60	6f 74 68 65 72 77 69 73 65 20 72 65 74 75 72 6e 20 6e 69 6c 2e 1f 0a 28 64 65 66 61 6c 69 61 73	otherwise.return.nil...(defalias
2f80	20 27 73 2d 70 72 65 73 65 6e 63 65 20 23 5b 28 73 29 20 22 5c 33 30 31 08 21 5c 32 30 35 07 00	.'s-presence.#[(s)."\301.!\205..
2fa0	08 5c 32 30 37 22 20 5b 73 20 73 2d 70 72 65 73 65 6e 74 5c 3f 5d 20 32 20 28 23 24 20 2e 20 31	.\207".[s.s-present\?].2.(#$...1
2fc0	32 30 39 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	2097)]).(byte-code."\300\301\302
2fe0	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 22 20	\303#\300\301\304\303#\300\207".
3000	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 72 65 20 74 20	[function-put.s-presence.pure.t.
3020	73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 31 20 41 72 65 20 61 6c	side-effect-free].5).#@41.Are.al
3040	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 73 65	l.the.letters.in.S.in.lower.case
3060	3f 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6c 6f 77 65 72 63 61 73 65 5c 3f 20 23 5b 28 73	?..(defalias.'s-lowercase\?.#[(s
3080	29 20 22 5c 33 30 33 18 5c 33 30 34 09 5c 33 30 33 5c 33 30 35 1a 5c 33 30 36 03 03 03 23 29 5c	)."\303.\304.\303\305.\306...#)\
30a0	32 36 36 5c 32 30 33 29 3f 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68	266\203)?\207".[case-fold-search
30c0	20 73 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 6e	.s.inhibit-changing-match-data.n
30e0	69 6c 20 22 5b 5b 3a 75 70 70 65 72 3a 5d 5d 22 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d	il."[[:upper:]]".t.string-match]
3100	20 37 20 28 23 24 20 2e 20 31 32 33 34 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	.7.(#$...12346)]).(byte-code."\3
3120	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
3140	6f 6e 2d 70 75 74 20 73 2d 6c 6f 77 65 72 63 61 73 65 5c 3f 20 73 69 64 65 2d 65 66 66 65 63 74	on-put.s-lowercase\?.side-effect
3160	2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 34 31 20 41 72 65 20 61 6c 6c 20 74 68 65 20 6c 65 74	-free.t].4).#@41.Are.all.the.let
3180	74 65 72 73 20 69 6e 20 53 20 69 6e 20 75 70 70 65 72 20 63 61 73 65 3f 1f 0a 28 64 65 66 61 6c	ters.in.S.in.upper.case?..(defal
31a0	69 61 73 20 27 73 2d 75 70 70 65 72 63 61 73 65 5c 3f 20 23 5b 28 73 29 20 22 5c 33 30 33 18 5c	ias.'s-uppercase\?.#[(s)."\303.\
31c0	33 30 34 09 5c 33 30 33 5c 33 30 35 1a 5c 33 30 36 03 03 03 23 29 5c 32 36 36 5c 32 30 33 29 3f	304.\303\305.\306...#)\266\203)?
31e0	5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 73 20 69 6e 68 69 62 69	\207".[case-fold-search.s.inhibi
3200	74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 6e 69 6c 20 22 5b 5b 3a 6c 6f	t-changing-match-data.nil."[[:lo
3220	77 65 72 3a 5d 5d 22 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 37 20 28 23 24 20 2e 20	wer:]]".t.string-match].7.(#$...
3240	31 32 36 35 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	12657)]).(byte-code."\300\301\30
3260	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 20 73 2d	2\303#\300\207".[function-put.s-
3280	75 70 70 65 72 63 61 73 65 5c 3f 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20	uppercase\?.side-effect-free.t].
32a0	34 29 0a 23 40 35 36 20 41 72 65 20 74 68 65 72 65 20 62 6f 74 68 20 6c 6f 77 65 72 20 63 61 73	4).#@56.Are.there.both.lower.cas
32c0	65 20 61 6e 64 20 75 70 70 65 72 20 63 61 73 65 20 6c 65 74 74 65 72 73 20 69 6e 20 53 3f 1f 0a	e.and.upper.case.letters.in.S?..
32e0	28 64 65 66 61 6c 69 61 73 20 27 73 2d 6d 69 78 65 64 63 61 73 65 5c 3f 20 23 5b 28 73 29 20 22	(defalias.'s-mixedcase\?.#[(s)."
3300	5c 33 30 33 18 5c 33 30 34 5c 33 30 35 09 5c 33 30 33 5c 33 30 36 1a 5c 33 30 37 03 03 03 23 29	\303.\304\305.\303\306.\307...#)
3320	5c 32 36 36 5c 32 30 33 5c 32 30 35 20 00 5c 33 31 30 09 5c 33 30 33 5c 33 30 36 1a 5c 33 30 37	\266\203\205..\310.\303\306.\307
3340	03 03 03 23 29 5c 32 36 36 5c 32 30 33 21 29 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d	...#)\266\203!)\207".[case-fold-
3360	73 65 61 72 63 68 20 73 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d	search.s.inhibit-changing-match-
3380	64 61 74 61 20 6e 69 6c 20 73 2d 2d 74 72 75 74 68 79 5c 3f 20 22 5b 5b 3a 6c 6f 77 65 72 3a 5d	data.nil.s--truthy\?."[[:lower:]
33a0	5d 22 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5b 5b 3a 75 70 70 65 72 3a 5d 5d 22 5d	]".t.string-match."[[:upper:]]"]
33c0	20 38 20 28 23 24 20 2e 20 31 32 39 36 38 29 5d 29 0a 23 40 37 33 20 49 6e 20 53 2c 20 69 73 20	.8.(#$...12968)]).#@73.In.S,.is.
33e0	74 68 65 20 66 69 72 73 74 20 6c 65 74 74 65 72 20 75 70 70 65 72 20 63 61 73 65 2c 20 61 6e 64	the.first.letter.upper.case,.and
3400	20 61 6c 6c 20 6f 74 68 65 72 20 6c 65 74 74 65 72 73 20 6c 6f 77 65 72 20 63 61 73 65 3f 1f 0a	.all.other.letters.lower.case?..
3420	28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 61 70 69 74 61 6c 69 7a 65 64 5c 3f 20 23 5b 28 73 29	(defalias.'s-capitalized\?.#[(s)
3440	20 22 5c 33 30 33 18 5c 33 30 34 5c 33 30 35 09 5c 33 30 33 5c 33 30 36 1a 5c 33 30 37 03 03 03	."\303.\304\305.\303\306.\307...
3460	23 29 5c 32 36 36 5c 32 30 33 21 29 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61	#)\266\203!)\207".[case-fold-sea
3480	72 63 68 20 73 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74	rch.s.inhibit-changing-match-dat
34a0	61 20 6e 69 6c 20 73 2d 2d 74 72 75 74 68 79 5c 3f 20 22 5e 5b 5b 3a 75 70 70 65 72 3a 5d 5d 5b	a.nil.s--truthy\?."^[[:upper:]][
34c0	5e 5b 3a 75 70 70 65 72 3a 5d 5d 2a 24 22 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 38	^[:upper:]]*$".t.string-match].8
34e0	20 28 23 24 20 2e 20 31 33 32 37 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	.(#$...13271)]).(byte-code."\300
3500	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
3520	2d 70 75 74 20 73 2d 63 61 70 69 74 61 6c 69 7a 65 64 5c 3f 20 73 69 64 65 2d 65 66 66 65 63 74	-put.s-capitalized\?.side-effect
3540	2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 31 36 20 49 73 20 53 20 61 20 6e 75 6d 62 65 72 3f 1f	-free.t].4).#@16.Is.S.a.number?.
3560	0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6e 75 6d 65 72 69 63 5c 3f 20 23 5b 28 73 29 20 22 5c	.(defalias.'s-numeric\?.#[(s)."\
3580	33 30 32 5c 33 30 33 08 5c 33 30 34 5c 33 30 35 19 5c 33 30 36 03 03 03 23 29 5c 32 36 36 5c 32	302\303.\304\305.\306...#)\266\2
35a0	30 33 21 5c 32 30 37 22 20 5b 73 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74	03!\207".[s.inhibit-changing-mat
35c0	63 68 2d 64 61 74 61 20 73 2d 2d 74 72 75 74 68 79 5c 3f 20 22 5e 5b 30 2d 39 5d 2b 24 22 20 6e	ch-data.s--truthy\?."^[0-9]+$".n
35e0	69 6c 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 38 20 28 23 24 20 2e 20 31 33 36 34 39	il.t.string-match].8.(#$...13649
3600	29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	)]).(byte-code."\300\301\302\303
3620	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
3640	63 74 69 6f 6e 2d 70 75 74 20 73 2d 6e 75 6d 65 72 69 63 5c 3f 20 70 75 72 65 20 74 20 73 69 64	ction-put.s-numeric\?.pure.t.sid
3660	65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 32 39 20 52 65 70 6c 61 63 65 73 20	e-effect-free].5).#@29.Replaces.
3680	4f 4c 44 20 77 69 74 68 20 4e 45 57 20 69 6e 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73	OLD.with.NEW.in.S...(defalias.'s
36a0	2d 72 65 70 6c 61 63 65 20 23 5b 28 6f 6c 64 20 6e 65 77 20 73 29 20 22 5c 33 30 33 5c 33 30 34	-replace.#[(old.new.s)."\303\304
36c0	08 21 09 5c 6e 5c 33 30 35 5c 32 31 31 25 5c 32 30 37 22 20 5b 6f 6c 64 20 6e 65 77 20 73 20 72	.!.\n\305\211%\207".[old.new.s.r
36e0	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 71	eplace-regexp-in-string.regexp-q
3700	75 6f 74 65 20 74 5d 20 36 20 28 23 24 20 2e 20 31 33 39 34 33 29 5d 29 0a 28 62 79 74 65 2d 63	uote.t].6.(#$...13943)]).(byte-c
3720	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
3740	30 34 5c 33 30 33 23 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63	04\303#\305\306\307\"\207".[func
3760	74 69 6f 6e 2d 70 75 74 20 73 2d 72 65 70 6c 61 63 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65	tion-put.s-replace.pure.t.side-e
3780	66 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 73 2d 72 65 70 6c 61 63 65 2d 72 65	ffect-free.defalias.s-replace-re
37a0	67 65 78 70 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 5d 20 35	gexp.replace-regexp-in-string].5
37c0	29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 2d 61 67 65 74 20 23 5b 28 61 6c 69 73 74 20 6b 65	).(defalias.'s--aget.#[(alist.ke
37e0	79 29 20 22 5c 33 30 32 08 09 5c 22 41 5c 32 30 37 22 20 5b 6b 65 79 20 61 6c 69 73 74 20 61 73	y)."\302..\"A\207".[key.alist.as
3800	73 6f 63 2d 73 74 72 69 6e 67 5d 20 33 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	soc-string].3]).(byte-code."\300
3820	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 33 23 5c 33	\301\302\303#\300\301\304\303#\3
3840	30 30 5c 32 30 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	00\207".[function-put.s--aget.pu
3860	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 23 40 37 39 20 52	re.t.side-effect-free].5).#@79.R
3880	45 50 4c 41 43 45 4d 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	EPLACEMENTS.is.a.list.of.cons-ce
38a0	6c 6c 73 2e 20 45 61 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	lls..Each.`car`.is.replaced.with
38c0	20 60 63 64 72 60 20 69 6e 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 72 65 70 6c 61	.`cdr`.in.S...(defalias.'s-repla
38e0	63 65 2d 61 6c 6c 20 23 5b 28 72 65 70 6c 61 63 65 6d 65 6e 74 73 20 73 29 20 22 5c 33 30 32 5c	ce-all.#[(replacements.s)."\302\
3900	33 30 33 5c 33 30 34 5c 33 30 35 08 5c 22 21 5c 33 30 36 09 5c 33 30 37 5c 32 31 31 25 5c 32 30	303\304\305.\"!\306.\307\211%\20
3920	37 22 20 5b 72 65 70 6c 61 63 65 6d 65 6e 74 73 20 73 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78	7".[replacements.s.replace-regex
3940	70 2d 69 6e 2d 73 74 72 69 6e 67 20 72 65 67 65 78 70 2d 6f 70 74 20 6d 61 70 63 61 72 20 63 61	p-in-string.regexp-opt.mapcar.ca
3960	72 20 23 5b 28 69 74 29 20 22 5c 33 30 32 08 09 5c 22 5c 32 30 37 22 20 5b 72 65 70 6c 61 63 65	r.#[(it)."\302..\"\207".[replace
3980	6d 65 6e 74 73 20 69 74 20 73 2d 2d 61 67 65 74 5d 20 33 5d 20 74 5d 20 36 20 28 23 24 20 2e 20	ments.it.s--aget].3].t].6.(#$...
39a0	31 34 34 36 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	14463)]).(byte-code."\300\301\30
39c0	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 22	2\303#\300\301\304\303#\300\207"
39e0	20 5b 66 75 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	.[function-put.s-replace-all.pur
3a00	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 23 40 38 34 20 43 6f	e.t.side-effect-free].5).#@84.Co
3a20	6e 76 65 72 74 20 53 20 74 6f 20 6c 6f 77 65 72 20 63 61 73 65 2e 0a 0a 54 68 69 73 20 69 73 20	nvert.S.to.lower.case...This.is.
3a40	61 20 73 69 6d 70 6c 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c	a.simple.wrapper.around.the.buil
3a60	74 2d 69 6e 20 60 64 6f 77 6e 63 61 73 65 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 64	t-in.`downcase'...(defalias.'s-d
3a80	6f 77 6e 63 61 73 65 20 23 5b 28 73 29 20 22 08 5c 32 32 37 5c 32 30 37 22 20 5b 73 5d 20 31 20	owncase.#[(s).".\227\207".[s].1.
3aa0	28 23 24 20 2e 20 31 34 38 37 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	(#$...14878)]).(byte-code."\300\
3ac0	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-
3ae0	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 65 65 20	put.s-downcase.side-effect-free.
3b00	74 5d 20 34 29 0a 23 40 38 32 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 75 70 70 65 72 20 63 61	t].4).#@82.Convert.S.to.upper.ca
3b20	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 20 61 72	se...This.is.a.simple.wrapper.ar
3b40	6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 75 70 63 61 73 65 27 2e 1f 0a 28 64 65	ound.the.built-in.`upcase'...(de
3b60	66 61 6c 69 61 73 20 27 73 2d 75 70 63 61 73 65 20 23 5b 28 73 29 20 22 08 5c 32 32 36 5c 32 30	falias.'s-upcase.#[(s).".\226\20
3b80	37 22 20 5b 73 5d 20 31 20 28 23 24 20 2e 20 31 35 31 31 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f	7".[s].1.(#$...15115)]).(byte-co
3ba0	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".[
3bc0	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 65 2d 65 66 66 65 63	function-put.s-upcase.side-effec
3be0	74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 38 39 20 43 6f 6e 76 65 72 74 20 74 68 65 20 66 69	t-free.t].4).#@89.Convert.the.fi
3c00	72 73 74 20 77 6f 72 64 27 73 20 66 69 72 73 74 20 63 68 61 72 61 63 74 65 72 20 74 6f 20 75 70	rst.word's.first.character.to.up
3c20	70 65 72 20 63 61 73 65 20 61 6e 64 20 74 68 65 20 72 65 73 74 20 74 6f 20 6c 6f 77 65 72 20 63	per.case.and.the.rest.to.lower.c
3c40	61 73 65 20 69 6e 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 61 70 69 74 61 6c 69	ase.in.S...(defalias.'s-capitali
3c60	7a 65 20 23 5b 28 73 29 20 22 08 5c 33 30 31 5c 33 30 32 4f 5c 32 32 36 08 5c 33 30 32 5c 33 30	ze.#[(s).".\301\302O\226.\302\30
3c80	33 4f 5c 32 32 37 50 5c 32 30 37 22 20 5b 73 20 30 20 31 20 6e 69 6c 5d 20 34 20 28 23 24 20 2e	3O\227P\207".[s.0.1.nil].4.(#$..
3ca0	20 31 35 33 34 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	.15346)]).(byte-code."\300\301\3
3cc0	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 20 73	02\303#\300\207".[function-put.s
3ce0	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 5d 20	-capitalize.side-effect-free.t].
3d00	34 29 0a 23 40 31 34 34 20 43 6f 6e 76 65 72 74 20 65 61 63 68 20 77 6f 72 64 27 73 20 66 69 72	4).#@144.Convert.each.word's.fir
3d20	73 74 20 63 68 61 72 61 63 74 65 72 20 74 6f 20 75 70 70 65 72 20 63 61 73 65 20 61 6e 64 20 74	st.character.to.upper.case.and.t
3d40	68 65 20 72 65 73 74 20 74 6f 20 6c 6f 77 65 72 20 63 61 73 65 20 69 6e 20 53 2e 0a 0a 54 68 69	he.rest.to.lower.case.in.S...Thi
3d60	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 74 68 65	s.is.a.simple.wrapper.around.the
3d80	20 62 75 69 6c 74 2d 69 6e 20 60 63 61 70 69 74 61 6c 69 7a 65 27 2e 1f 0a 28 64 65 66 61 6c 69	.built-in.`capitalize'...(defali
3da0	61 73 20 27 73 2d 74 69 74 6c 65 69 7a 65 20 23 5b 28 73 29 20 22 5c 33 30 31 08 21 5c 32 30 37	as.'s-titleize.#[(s)."\301.!\207
3dc0	22 20 5b 73 20 63 61 70 69 74 61 6c 69 7a 65 5d 20 32 20 28 23 24 20 2e 20 31 35 36 32 35 29 5d	".[s.capitalize].2.(#$...15625)]
3de0	29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	).(byte-code."\300\301\302\303#\
3e00	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 74 69 74 6c 65 69 7a	300\207".[function-put.s-titleiz
3e20	65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 32 31 31 20 54	e.side-effect-free.t].4).#@211.T
3e40	68 72 65 61 64 73 20 53 20 74 68 72 6f 75 67 68 20 74 68 65 20 66 6f 72 6d 73 2e 20 49 6e 73 65	hreads.S.through.the.forms..Inse
3e60	72 74 73 20 53 20 61 73 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 0a 69 6e 20 74 68 65 20 66 69	rts.S.as.the.last.item.in.the.fi
3e80	72 73 74 20 66 6f 72 6d 2c 20 6d 61 6b 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 20 69 74 20 69 66	rst.form,.making.a.list.of.it.if
3ea0	20 69 74 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 0a 61 6c 72 65 61 64 79 2e 20 49 66 20 74 68	.it.is.not.a.list.already..If.th
3ec0	65 72 65 20 61 72 65 20 6d 6f 72 65 20 66 6f 72 6d 73 2c 20 69 6e 73 65 72 74 73 20 74 68 65 20	ere.are.more.forms,.inserts.the.
3ee0	66 69 72 73 74 20 66 6f 72 6d 20 61 73 20 74 68 65 0a 6c 61 73 74 20 69 74 65 6d 20 69 6e 20 73	first.form.as.the.last.item.in.s
3f00	65 63 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 77	econd.form,.etc...(defalias.'s-w
3f20	69 74 68 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 28 73 20 66 6f 72 6d 20 26 72 65 73 74 20 6d 6f	ith.'(macro...#[(s.form.&rest.mo
3f40	72 65 29 20 22 08 5c 32 30 34 17 00 09 3c 5c 32 30 33 13 00 09 40 5c 33 30 33 09 41 5c 6e 43 5c	re).".\204...<\203...@\303.A\nC\
3f60	22 42 5c 32 30 37 09 5c 6e 44 5c 32 30 37 5c 33 30 34 5c 32 31 31 5c 6e 09 45 08 42 42 5c 32 30	"B\207.\nD\207\304\211\n.E.BB\20
3f80	37 22 20 5b 6d 6f 72 65 20 66 6f 72 6d 20 73 20 61 70 70 65 6e 64 20 73 2d 77 69 74 68 5d 20 34	7".[more.form.s.append.s-with].4
3fa0	20 28 23 24 20 2e 20 31 35 39 33 35 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	.(#$...15935)])).(byte-code."\30
3fc0	30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33	0\301\302\303#\210\300\301\304\3
3fe0	30 35 23 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	05#\207".[put.s-with.edebug-form
4000	2d 73 70 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	-spec.(form.&rest.[&or.(function
4020	20 26 72 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	.&rest.form).fboundp]).lisp-inde
4040	6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 34 32 20 52 65 74 75 72 6e 73 20	nt-function.1].4).#@142.Returns.
4060	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 72 20 6e	first.index.of.NEEDLE.in.S,.or.n
4080	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 6c 2c 20	il...If.IGNORE-CASE.is.non-nil,.
40a0	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 70	the.comparison.is.done.without.p
40c0	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 6e	aying.attention.to.case.differen
40e0	63 65 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 69 6e 64 65 78 2d 6f 66 20 23 5b 28 6e	ces...(defalias.'s-index-of.#[(n
4100	65 65 64 6c 65 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 69 67 6e 6f 72 65 2d 63 61 73 65 29 20 22	eedle.s.&optional.ignore-case)."
4120	08 19 5c 33 30 35 5c 6e 21 0b 5c 33 30 36 5c 33 30 37 1c 5c 33 31 30 03 03 03 23 29 5c 32 36 36	..\305\n!.\306\307.\310...#)\266
4140	5c 32 30 33 29 5c 32 30 37 22 20 5b 69 67 6e 6f 72 65 2d 63 61 73 65 20 63 61 73 65 2d 66 6f 6c	\203)\207".[ignore-case.case-fol
4160	64 2d 73 65 61 72 63 68 20 6e 65 65 64 6c 65 20 73 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69	d-search.needle.s.inhibit-changi
4180	6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 72 65 67 65 78 70 2d 71 75 6f 74 65 20 6e 69 6c 20 74	ng-match-data.regexp-quote.nil.t
41a0	20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 37 20 28 23 24 20 2e 20 31 36 34 37 32 29 5d 29 0a	.string-match].7.(#$...16472)]).
41c0	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
41e0	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
4200	6e 2d 70 75 74 20 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	n-put.s-index-of.pure.t.side-eff
4220	65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 32 36 20 52 65 74 75 72 6e 20 74 68 65 20 72 65 76	ect-free].5).#@26.Return.the.rev
4240	65 72 73 65 20 6f 66 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 72 65 76 65 72 73 65	erse.of.S...(defalias.'s-reverse
4260	20 23 5b 28 73 29 20 22 5c 33 30 36 20 18 5c 33 30 37 5c 32 31 36 5c 33 31 30 09 21 5c 32 30 33	.#[(s)."\306..\307\216\310.!\203
4280	47 00 09 5c 33 31 31 01 5c 33 31 32 5c 22 5c 32 36 32 01 5c 33 31 32 1a 1b 5c 33 31 33 5c 33 31	G..\311.\312\"\262.\312..\313\31
42a0	34 21 5c 32 31 30 0b 5c 32 30 33 40 00 0b 5c 32 31 31 41 13 5c 32 34 32 43 1c 5c 33 31 35 0b 40	4!\210.\203@..\211A.\242C.\315.@
42c0	0d 5c 22 5c 32 30 33 37 00 0b 5c 32 31 31 41 13 5c 32 34 32 5c 66 42 14 5c 32 30 32 24 00 5c 66	.\"\2037..\211A.\242\fB.\202$.\f
42e0	5c 32 33 37 5c 6e 5c 32 34 34 12 29 5c 32 30 32 19 00 5c 6e 5c 32 36 30 01 2a 5c 32 30 32 51 00	\237\n\244.)\202..\n\260.*\202Q.
4300	09 5c 33 31 31 01 5c 33 31 32 5c 22 5c 32 36 32 01 5c 32 33 37 5c 32 36 30 01 2a 5c 32 30 37 22	.\311.\312\"\262.\237\260.*\207"
4320	20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 20 6f 75 74	.[save-match-data-internal.s.out
4340	70 75 74 20 69 6e 70 75 74 20 67 72 61 70 68 65 6d 65 20 75 63 73 2d 6e 6f 72 6d 61 6c 69 7a 65	put.input.grapheme.ucs-normalize
4360	2d 63 6f 6d 62 69 6e 69 6e 67 2d 63 68 61 72 73 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69	-combining-chars.match-data.#[ni
4380	6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d	l."\301.\302\"\207".[save-match-
43a0	64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61	data-internal.set-match-data.eva
43c0	70 6f 72 61 74 65 5d 20 33 5d 20 6d 75 6c 74 69 62 79 74 65 2d 73 74 72 69 6e 67 2d 70 20 61 70	porate].3].multibyte-string-p.ap
43e0	70 65 6e 64 20 6e 69 6c 20 72 65 71 75 69 72 65 20 75 63 73 2d 6e 6f 72 6d 61 6c 69 7a 65 20 6d	pend.nil.require.ucs-normalize.m
4400	65 6d 71 6c 5d 20 34 20 28 23 24 20 2e 20 31 36 39 34 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64	emql].4.(#$...16946)]).(byte-cod
4420	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
4440	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
4460	65 76 65 72 73 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20	everse.pure.t.side-effect-free].
4480	35 29 0a 23 40 31 38 34 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 6d 61 74 63 68 65	5).#@184.Return.a.list.of.matche
44a0	73 20 66 6f 72 20 52 45 47 45 58 20 69 6e 20 53 54 52 49 4e 47 2e 0a 0a 45 61 63 68 20 65 6c 65	s.for.REGEX.in.STRING...Each.ele
44c0	6d 65 6e 74 20 69 74 73 65 6c 66 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6d 61 74 63 68 65 73	ment.itself.is.a.list.of.matches
44e0	2c 20 61 73 20 70 65 72 0a 60 6d 61 74 63 68 2d 73 74 72 69 6e 67 27 2e 20 4d 75 6c 74 69 70 6c	,.as.per.`match-string'..Multipl
4500	65 20 6d 61 74 63 68 65 73 20 61 74 20 74 68 65 20 73 61 6d 65 20 70 6f 73 69 74 69 6f 6e 20 77	e.matches.at.the.same.position.w
4520	69 6c 6c 20 62 65 0a 69 67 6e 6f 72 65 64 20 61 66 74 65 72 20 74 68 65 20 66 69 72 73 74 2e 1f	ill.be.ignored.after.the.first..
4540	0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6d 61 74 63 68 2d 73 74 72 69 6e 67 73 2d 61 6c 6c 20	.(defalias.'s-match-strings-all.
4560	23 5b 28 72 65 67 65 78 20 73 74 72 69 6e 67 29 20 22 5c 33 30 36 20 18 5c 33 30 37 5c 32 31 36	#[(regex.string)."\306..\307\216
4580	5c 33 31 30 5c 33 31 31 19 1a 09 0b 47 57 5c 32 30 33 49 00 5c 33 31 32 5c 66 0b 09 23 5c 32 30	\310\311....GW\203I.\312\f..#\20
45a0	33 49 00 5c 33 31 31 5c 32 32 34 54 11 5c 33 31 30 5c 33 30 36 20 47 5c 33 31 33 5c 32 34 35 5c	3I.\311\224T.\310\306.G\313\245\
45c0	33 31 31 1d 1e 0d 1e 0e 0d 0e 0d 55 5c 32 30 34 3f 00 5c 33 31 34 0d 0b 5c 22 0e 0e 42 16 0e 0d	311........U\204?.\314..\"..B...
45e0	54 5c 32 31 31 15 5c 32 30 32 29 00 0e 0e 5c 32 33 37 5c 6e 42 12 2b 5c 32 30 32 09 00 5c 6e 5c	T\211.\202)...\237\nB.+\202..\n\
4600	32 33 37 2c 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72	237,\207".[save-match-data-inter
4620	6e 61 6c 20 69 20 61 6c 6c 2d 73 74 72 69 6e 67 73 20 73 74 72 69 6e 67 20 72 65 67 65 78 20 6d	nal.i.all-strings.string.regex.m
4640	61 74 63 68 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32	atch.match-data.#[nil."\301.\302
4660	5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61	\"\207".[save-match-data-interna
4680	6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 6e	l.set-match-data.evaporate].3].n
46a0	69 6c 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	il.0.string-match.2.match-string
46c0	20 6e 75 6d 2d 6d 61 74 63 68 65 73 20 73 74 72 69 6e 67 73 5d 20 35 20 28 23 24 20 2e 20 31 37	.num-matches.strings].5.(#$...17
46e0	35 34 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	545)]).(byte-code."\300\301\302\
4700	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 61	303#\300\207".[function-put.s-ma
4720	74 63 68 2d 73 74 72 69 6e 67 73 2d 61 6c 6c 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65	tch-strings-all.side-effect-free
4740	20 74 5d 20 34 29 0a 23 40 38 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 6d 61 74	.t].4).#@88.Return.a.list.of.mat
4760	63 68 65 64 20 70 6f 73 69 74 69 6f 6e 73 20 66 6f 72 20 52 45 47 45 58 50 20 69 6e 20 53 54 52	ched.positions.for.REGEXP.in.STR
4780	49 4e 47 2e 0a 53 55 42 45 58 50 2d 44 45 50 54 48 20 69 73 20 30 20 62 79 20 64 65 66 61 75 6c	ING..SUBEXP-DEPTH.is.0.by.defaul
47a0	74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6d 61 74 63 68 65 64 2d 70 6f 73 69 74 69 6f	t...(defalias.'s-matched-positio
47c0	6e 73 2d 61 6c 6c 20 23 5b 28 72 65 67 65 78 70 20 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61	ns-all.#[(regexp.string.&optiona
47e0	6c 20 73 75 62 65 78 70 2d 64 65 70 74 68 29 20 22 08 5c 32 30 34 06 00 5c 33 30 36 10 5c 33 30	l.subexp-depth).".\204..\306.\30
4800	37 20 19 5c 33 31 30 5c 32 31 36 5c 33 30 36 5c 33 31 31 1a 1b 5c 33 31 32 5c 66 0d 0b 23 5c 32	7..\310\216\306\311..\312\f..#\2
4820	30 33 31 00 0b 0d 47 57 5c 32 30 33 31 00 08 5c 32 32 35 1e 0b 08 5c 32 32 34 08 5c 32 32 35 42	031...GW\2031..\225...\224.\225B
4840	5c 6e 42 12 5c 33 30 36 5c 32 32 35 13 29 5c 32 30 32 0f 00 5c 6e 5c 32 33 37 2c 5c 32 30 37 22	\nB.\306\225.)\202..\n\237,\207"
4860	20 5b 73 75 62 65 78 70 2d 64 65 70 74 68 20 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69	.[subexp-depth.save-match-data-i
4880	6e 74 65 72 6e 61 6c 20 72 65 73 75 6c 74 20 70 6f 73 20 72 65 67 65 78 70 20 73 74 72 69 6e 67	nternal.result.pos.regexp.string
48a0	20 30 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22	.0.match-data.#[nil."\301.\302\"
48c0	5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20	\207".[save-match-data-internal.
48e0	73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 6e 69 6c	set-match-data.evaporate].3].nil
4900	20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 6d 5d 20 34 20 28 23 24 20 2e 20 31 38 32 35 32 29 5d	.string-match.m].4.(#$...18252)]
4920	29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	).(byte-code."\300\301\302\303#\
4940	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 61 74 63 68 65 64	300\207".[function-put.s-matched
4960	2d 70 6f 73 69 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	-positions-all.side-effect-free.
4980	74 5d 20 34 29 0a 23 40 32 37 34 20 57 68 65 6e 20 74 68 65 20 67 69 76 65 6e 20 65 78 70 72 65	t].4).#@274.When.the.given.expre
49a0	73 73 69 6f 6e 20 6d 61 74 63 68 65 73 20 74 68 65 20 73 74 72 69 6e 67 2c 20 74 68 69 73 20 66	ssion.matches.the.string,.this.f
49c0	75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 61 20 6c 69 73 74 0a 6f 66 20 74 68 65 20 77 68	unction.returns.a.list.of.the.wh
49e0	6f 6c 65 20 6d 61 74 63 68 69 6e 67 20 73 74 72 69 6e 67 20 61 6e 64 20 61 20 73 74 72 69 6e 67	ole.matching.string.and.a.string
4a00	20 66 6f 72 20 65 61 63 68 20 6d 61 74 63 68 65 64 20 73 75 62 65 78 70 72 65 73 73 69 6f 6e 73	.for.each.matched.subexpressions
4a20	2e 0a 49 66 20 69 74 20 64 69 64 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65 20 72 65 74 75 72 6e	..If.it.did.not.match.the.return
4a40	65 64 20 76 61 6c 75 65 20 69 73 20 61 6e 20 65 6d 70 74 79 20 6c 69 73 74 20 28 6e 69 6c 29 2e	ed.value.is.an.empty.list.(nil).
4a60	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
4a80	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 1f 0a 28 64	ch.will.start.at.that.index...(d
4aa0	65 66 61 6c 69 61 73 20 27 73 2d 6d 61 74 63 68 20 23 5b 28 72 65 67 65 78 70 20 73 20 26 6f 70	efalias.'s-match.#[(regexp.s.&op
4ac0	74 69 6f 6e 61 6c 20 73 74 61 72 74 29 20 22 5c 33 30 36 20 18 5c 33 30 37 5c 32 31 36 5c 33 31	tional.start)."\306..\307\216\31
4ae0	30 09 5c 6e 0b 23 5c 32 30 35 40 00 5c 33 30 36 20 5c 33 31 31 1c 1d 0d 5c 32 30 33 3d 00 0d 40	0.\n.#\205@.\306.\311...\203=..@
4b00	1e 5c 6e 0d 41 40 1e 0b 0e 5c 6e 5c 32 30 35 2f 00 0e 0b 5c 32 30 35 2f 00 5c 6e 0e 5c 6e 0e 0b	.\n.A@...\n\205/...\205/.\n.\n..
4b20	4f 5c 32 31 31 1e 5c 66 5c 66 42 14 0d 41 41 15 2b 5c 32 30 32 12 00 5c 66 5c 32 33 37 2a 2a 5c	O\211.\f\fB..AA.+\202..\f\237**\
4b40	32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 72	207".[save-match-data-internal.r
4b60	65 67 65 78 70 20 73 20 73 74 61 72 74 20 72 65 73 75 6c 74 20 6d 61 74 63 68 2d 64 61 74 61 2d	egexp.s.start.result.match-data-
4b80	6c 69 73 74 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32	list.match-data.#[nil."\301.\302
4ba0	5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61	\"\207".[save-match-data-interna
4bc0	6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 73	l.set-match-data.evaporate].3].s
4be0	74 72 69 6e 67 2d 6d 61 74 63 68 20 6e 69 6c 20 62 65 67 20 65 6e 64 20 73 75 62 73 5d 20 35 20	tring-match.nil.beg.end.subs].5.
4c00	28 23 24 20 2e 20 31 38 38 32 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	(#$...18828)]).(byte-code."\300\
4c20	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-
4c40	70 75 74 20 73 2d 6d 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	put.s-match.side-effect-free.t].
4c60	34 29 0a 23 40 34 35 20 53 6c 69 63 65 73 20 53 20 75 70 20 61 74 20 65 76 65 72 79 20 69 6e 64	4).#@45.Slices.S.up.at.every.ind
4c80	65 78 20 6d 61 74 63 68 69 6e 67 20 52 45 47 45 58 50 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	ex.matching.REGEXP...(defalias.'
4ca0	73 2d 73 6c 69 63 65 2d 61 74 20 23 5b 28 72 65 67 65 78 70 20 73 29 20 22 08 47 5c 33 30 34 55	s-slice-at.#[(regexp.s).".G\304U
4cc0	5c 32 30 33 5c 6e 00 5c 33 30 35 43 5c 32 30 37 5c 33 30 36 20 19 5c 33 30 37 5c 32 31 36 5c 33	\203\n.\305C\207\306..\307\216\3
4ce0	31 30 1a 5c 33 31 31 0b 08 5c 33 31 32 23 5c 32 31 31 12 5c 32 30 33 2a 00 08 5c 33 30 34 5c 6e	10.\311..\312#\211.\203*..\304\n
4d00	4f 5c 33 31 33 0b 08 5c 6e 5c 33 31 30 4f 5c 22 42 5c 32 30 32 2c 00 08 43 2b 5c 32 30 37 22 20	O\313..\n\310O\"B\202,..C+\207".
4d20	5b 73 20 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 69 20 72 65	[s.save-match-data-internal.i.re
4d40	67 65 78 70 20 30 20 22 22 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31	gexp.0."".match-data.#[nil."\301
4d60	08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e	.\302\"\207".[save-match-data-in
4d80	74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d	ternal.set-match-data.evaporate]
4da0	20 33 5d 20 6e 69 6c 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 31 20 73 2d 73 6c 69 63 65 2d 61	.3].nil.string-match.1.s-slice-a
4dc0	74 5d 20 37 20 28 23 24 20 2e 20 31 39 35 36 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	t].7.(#$...19560)]).(byte-code."
4de0	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
4e00	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 65 63 74 2d	tion-put.s-slice-at.side-effect-
4e20	66 72 65 65 20 74 5d 20 34 29 0a 23 40 32 39 20 53 70 6c 69 74 20 53 20 69 6e 74 6f 20 6c 69 73	free.t].4).#@29.Split.S.into.lis
4e40	74 20 6f 66 20 77 6f 72 64 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 70 6c 69 74 2d	t.of.words...(defalias.'s-split-
4e60	77 6f 72 64 73 20 23 5b 28 73 29 20 22 5c 33 30 32 5c 33 30 33 5c 33 30 34 18 5c 33 30 35 5c 33	words.#[(s)."\302\303\304.\305\3
4e80	30 36 5c 33 30 37 5c 33 30 35 5c 33 31 30 5c 33 30 37 09 23 23 29 5c 33 31 31 23 5c 32 30 37 22	06\307\305\310\307.##)\311#\207"
4ea0	20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 73 20 73 2d 73 70 6c 69 74 20 22 5b 5e	.[case-fold-search.s.s-split."[^
4ec0	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 78	[:word:]0-9]+".nil.replace-regex
4ee0	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 5c	p-in-string."\\([[:lower:]]\\)\\
4f00	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 5b	([[:upper:]]\\)"."\\1.\\2"."\\([
4f20	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 5b	[:upper:]]\\)\\([[:upper:]][0-9[
4f40	3a 6c 6f 77 65 72 3a 5d 5d 5c 5c 29 22 20 74 5d 20 39 20 28 23 24 20 2e 20 32 30 30 31 36 29 5d	:lower:]]\\)".t].9.(#$...20016)]
4f60	29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	).(byte-code."\300\301\302\303#\
4f80	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 69 74 2d 77	300\207".[function-put.s-split-w
4fa0	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 29 0a 23 40 36 39	ords.side-effect-free.t].4).#@69
4fc0	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 20 61 20 64 69 66 66	.Like.MAPCAR,.but.applies.a.diff
4fe0	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 73 74 20 65 6c 65 6d	erent.function.to.the.first.elem
5000	65 6e 74 2e 1f 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	ent...(defalias.'s--mapcar-head.
5020	23 5b 28 66 6e 2d 68 65 61 64 20 66 6e 2d 72 65 73 74 20 6c 69 73 74 29 20 22 08 5c 32 30 35 0e	#[(fn-head.fn-rest.list).".\205.
5040	00 09 08 40 21 5c 33 30 33 5c 6e 08 41 5c 22 42 5c 32 30 37 22 20 5b 6c 69 73 74 20 66 6e 2d 68	...@!\303\n.A\"B\207".[list.fn-h
5060	65 61 64 20 66 6e 2d 72 65 73 74 20 6d 61 70 63 61 72 5d 20 34 20 28 23 24 20 2e 20 32 30 34 31	ead.fn-rest.mapcar].4.(#$...2041
5080	37 29 5d 29 0a 23 40 33 30 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 6c 6f 77 65 72 43 61 6d 65	7)]).#@30.Convert.S.to.lowerCame
50a0	6c 43 61 73 65 2e 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	lCase...(defalias.'s-lower-camel
50c0	2d 63 61 73 65 20 23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30	-case.#[(s)."\301\302\303\304\30
50e0	35 5c 33 30 36 08 21 23 5c 22 5c 32 30 37 22 20 5b 73 20 73 2d 6a 6f 69 6e 20 22 22 20 73 2d 2d	5\306.!#\"\207".[s.s-join."".s--
5100	6d 61 70 63 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	mapcar-head.downcase.capitalize.
5120	73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 37 20 28 23 24 20 2e 20 32 30 36 31 38 29 5d 29 0a	s-split-words].7.(#$...20618)]).
5140	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
5160	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 65 72 2d 63 61 6d	0\207".[function-put.s-lower-cam
5180	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 5d 20 34 29 0a 23	el-case.side-effect-free.t].4).#
51a0	40 33 30 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 55 70 70 65 72 43 61 6d 65 6c 43 61 73 65 2e	@30.Convert.S.to.UpperCamelCase.
51c0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 75 70 70 65 72 2d 63 61 6d 65 6c 2d 63 61 73 65 20	..(defalias.'s-upper-camel-case.
51e0	23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 21 5c 22 5c	#[(s)."\301\302\303\304\305.!\"\
5200	22 5c 32 30 37 22 20 5b 73 20 73 2d 6a 6f 69 6e 20 22 22 20 6d 61 70 63 61 72 20 63 61 70 69 74	"\207".[s.s-join."".mapcar.capit
5220	61 6c 69 7a 65 20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 36 20 28 23 24 20 2e 20 32 30 39	alize.s-split-words].6.(#$...209
5240	30 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	00)]).(byte-code."\300\301\302\3
5260	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 75 70 70	03#\300\207".[function-put.s-upp
5280	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
52a0	5d 20 34 29 0a 23 40 32 36 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 73 6e 61 6b 65 5f 63 61 73	].4).#@26.Convert.S.to.snake_cas
52c0	65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 6e 61 6b 65 2d 63 61 73 65 20 23 5b 28 73	e...(defalias.'s-snake-case.#[(s
52e0	29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 21 5c 22 5c 22 5c 32 30	)."\301\302\303\304\305.!\"\"\20
5300	37 22 20 5b 73 20 73 2d 6a 6f 69 6e 20 22 5f 22 20 6d 61 70 63 61 72 20 64 6f 77 6e 63 61 73 65	7".[s.s-join."_".mapcar.downcase
5320	20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 36 20 28 23 24 20 2e 20 32 31 31 36 32 29 5d 29	.s-split-words].6.(#$...21162)])
5340	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
5360	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 6e 61 6b 65 2d 63 61	00\207".[function-put.s-snake-ca
5380	73 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 32 38 20 43	se.side-effect-free.t].4).#@28.C
53a0	6f 6e 76 65 72 74 20 53 20 74 6f 20 64 61 73 68 65 64 2d 77 6f 72 64 73 2e 1f 0a 28 64 65 66 61	onvert.S.to.dashed-words...(defa
53c0	6c 69 61 73 20 27 73 2d 64 61 73 68 65 64 2d 77 6f 72 64 73 20 23 5b 28 73 29 20 22 5c 33 30 31	lias.'s-dashed-words.#[(s)."\301
53e0	5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 21 5c 22 5c 22 5c 32 30 37 22 20 5b 73 20 73	\302\303\304\305.!\"\"\207".[s.s
5400	2d 6a 6f 69 6e 20 22 2d 22 20 6d 61 70 63 61 72 20 64 6f 77 6e 63 61 73 65 20 73 2d 73 70 6c 69	-join."-".mapcar.downcase.s-spli
5420	74 2d 77 6f 72 64 73 5d 20 36 20 28 23 24 20 2e 20 32 31 34 30 37 29 5d 29 0a 28 62 79 74 65 2d	t-words].6.(#$...21407)]).(byte-
5440	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"
5460	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 64 61 73 68 65 64 2d 77 6f 72 64 73 20 73 69	.[function-put.s-dashed-words.si
5480	64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 33 33 20 43 6f 6e 76 65 72	de-effect-free.t].4).#@33.Conver
54a0	74 20 53 20 74 6f 20 43 61 70 69 74 61 6c 69 7a 65 64 20 77 6f 72 64 73 2e 1f 0a 28 64 65 66 61	t.S.to.Capitalized.words...(defa
54c0	6c 69 61 73 20 27 73 2d 63 61 70 69 74 61 6c 69 7a 65 64 2d 77 6f 72 64 73 20 23 5b 28 73 29 20	lias.'s-capitalized-words.#[(s).
54e0	22 5c 33 30 32 08 21 19 5c 33 30 33 5c 33 30 34 5c 33 30 35 09 40 21 5c 33 30 36 5c 33 30 37 09	"\302.!.\303\304\305.@!\306\307.
5500	41 5c 22 42 5c 22 29 5c 32 30 37 22 20 5b 73 20 77 6f 72 64 73 20 73 2d 73 70 6c 69 74 2d 77 6f	A\"B\")\207".[s.words.s-split-wo
5520	72 64 73 20 73 2d 6a 6f 69 6e 20 22 20 22 20 63 61 70 69 74 61 6c 69 7a 65 20 6d 61 70 63 61 72	rds.s-join.".".capitalize.mapcar
5540	20 64 6f 77 6e 63 61 73 65 5d 20 36 20 28 23 24 20 2e 20 32 31 36 35 38 29 5d 29 0a 28 62 79 74	.downcase].6.(#$...21658)]).(byt
5560	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
5580	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 65 64 2d 77	7".[function-put.s-capitalized-w
55a0	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 29 0a 23 40 33 31	ords.side-effect-free.t].4).#@31
55c0	20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 54 69 74 6c 65 69 7a 65 64 20 57 6f 72 64 73 2e 1f 0a	.Convert.S.to.Titleized.Words...
55e0	28 64 65 66 61 6c 69 61 73 20 27 73 2d 74 69 74 6c 65 69 7a 65 64 2d 77 6f 72 64 73 20 23 5b 28	(defalias.'s-titleized-words.#[(
5600	73 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 21 5c 22 5c 22 5c 32	s)."\301\302\303\304\305.!\"\"\2
5620	30 37 22 20 5b 73 20 73 2d 6a 6f 69 6e 20 22 20 22 20 6d 61 70 63 61 72 20 73 2d 74 69 74 6c 65	07".[s.s-join.".".mapcar.s-title
5640	69 7a 65 20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 36 20 28 23 24 20 2e 20 32 31 39 35 33	ize.s-split-words].6.(#$...21953
5660	29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	)]).(byte-code."\300\301\302\303
5680	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 74 69 74 6c 65	#\300\207".[function-put.s-title
56a0	69 7a 65 64 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	ized-words.side-effect-free.t].4
56c0	29 0a 23 40 32 38 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 69 74 73 20 69 6e 69 74 69 61 6c 73	).#@28.Convert.S.to.its.initials
56e0	2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 77 6f 72 64 2d 69 6e 69 74 69 61 6c 73 20 23 5b	...(defalias.'s-word-initials.#[
5700	28 73 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 21 5c 22 5c 22 5c	(s)."\301\302\303\304\305.!\"\"\
5720	32 30 37 22 20 5b 73 20 73 2d 6a 6f 69 6e 20 22 22 20 6d 61 70 63 61 72 20 23 5b 28 73 73 29 20	207".[s.s-join."".mapcar.#[(ss).
5740	22 08 5c 33 30 31 5c 33 30 32 4f 5c 32 30 37 22 20 5b 73 73 20 30 20 31 5d 20 33 5d 20 73 2d 73	".\301\302O\207".[ss.0.1].3].s-s
5760	70 6c 69 74 2d 77 6f 72 64 73 5d 20 36 20 28 23 24 20 2e 20 32 32 32 31 35 29 5d 29 0a 28 62 79	plit-words].6.(#$...22215)]).(by
5780	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 34 5c 33	te-code."\300\301\302\303#\304\3
57a0	30 35 5c 33 30 36 5c 33 30 37 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 31 30 5c 33 31 31 23	05\306\307#\210\304\305\310\311#
57c0	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 77 6f 72 64 2d 69 6e 69 74 69	\207".[function-put.s-word-initi
57e0	61 6c 73 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 20 70 75 74 20 73 2d 66 6f 72	als.side-effect-free.t.put.s-for
5800	6d 61 74 2d 72 65 73 6f 6c 76 65 20 65 72 72 6f 72 2d 63 6f 6e 64 69 74 69 6f 6e 73 20 28 65 72	mat-resolve.error-conditions.(er
5820	72 6f 72 20 73 2d 66 6f 72 6d 61 74 20 73 2d 66 6f 72 6d 61 74 2d 72 65 73 6f 6c 76 65 29 20 65	ror.s-format.s-format-resolve).e
5840	72 72 6f 72 2d 6d 65 73 73 61 67 65 20 22 43 61 6e 6e 6f 74 20 72 65 73 6f 6c 76 65 20 61 20 74	rror-message."Cannot.resolve.a.t
5860	65 6d 70 6c 61 74 65 20 74 6f 20 76 61 6c 75 65 73 22 5d 20 35 29 0a 23 40 34 35 38 20 46 6f 72	emplate.to.values"].5).#@458.For
5880	6d 61 74 20 54 45 4d 50 4c 41 54 45 20 77 69 74 68 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 52	mat.TEMPLATE.with.the.function.R
58a0	45 50 4c 41 43 45 52 2e 0a 0a 52 45 50 4c 41 43 45 52 20 74 61 6b 65 73 20 61 6e 20 61 72 67 75	EPLACER...REPLACER.takes.an.argu
58c0	6d 65 6e 74 20 6f 66 20 74 68 65 20 66 6f 72 6d 61 74 20 76 61 72 69 61 62 6c 65 20 61 6e 64 20	ment.of.the.format.variable.and.
58e0	6f 70 74 69 6f 6e 61 6c 6c 79 0a 61 6e 20 65 78 74 72 61 20 61 72 67 75 6d 65 6e 74 20 77 68 69	optionally.an.extra.argument.whi
5900	63 68 20 69 73 20 74 68 65 20 45 58 54 52 41 20 76 61 6c 75 65 20 66 72 6f 6d 20 74 68 65 20 63	ch.is.the.EXTRA.value.from.the.c
5920	61 6c 6c 20 74 6f 0a 60 73 2d 66 6f 72 6d 61 74 27 2e 0a 0a 53 65 76 65 72 61 6c 20 73 74 61 6e	all.to.`s-format'...Several.stan
5940	64 61 72 64 20 60 73 2d 66 6f 72 6d 61 74 27 20 68 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 73	dard.`s-format'.helper.functions
5960	20 61 72 65 20 72 65 63 6f 67 6e 69 7a 65 64 20 61 6e 64 0a 61 64 61 70 74 65 64 20 66 6f 72 20	.are.recognized.and.adapted.for.
5980	74 68 69 73 3a 0a 0a 20 20 20 20 28 73 2d 66 6f 72 6d 61 74 20 22 24 7b 6e 61 6d 65 7d 22 20 27	this:......(s-format."${name}".'
59a0	67 65 74 68 61 73 68 20 68 61 73 68 2d 74 61 62 6c 65 29 0a 20 20 20 20 28 73 2d 66 6f 72 6d 61	gethash.hash-table).....(s-forma
59c0	74 20 22 24 7b 6e 61 6d 65 7d 22 20 27 61 67 65 74 20 61 6c 69 73 74 29 0a 20 20 20 20 28 73 2d	t."${name}".'aget.alist).....(s-
59e0	66 6f 72 6d 61 74 20 22 24 30 22 20 27 65 6c 74 20 73 65 71 75 65 6e 63 65 29 0a 0a 54 68 65 20	format."$0".'elt.sequence)..The.
5a00	52 45 50 4c 41 43 45 52 20 66 75 6e 63 74 69 6f 6e 20 6d 61 79 20 62 65 20 75 73 65 64 20 74 6f	REPLACER.function.may.be.used.to
5a20	20 64 6f 20 61 6e 79 20 6f 74 68 65 72 20 6b 69 6e 64 20 6f 66 0a 74 72 61 6e 73 66 6f 72 6d 61	.do.any.other.kind.of.transforma
5a40	74 69 6f 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 66 6f 72 6d 61 74 20 23 5b 28 74 65	tion...(defalias.'s-format.#[(te
5a60	6d 70 6c 61 74 65 20 72 65 70 6c 61 63 65 72 20 26 6f 70 74 69 6f 6e 61 6c 20 65 78 74 72 61 29	mplate.replacer.&optional.extra)
5a80	20 22 5c 33 30 32 20 18 5c 33 30 33 5c 32 31 36 5c 33 30 34 5c 33 30 35 5c 33 30 36 09 5c 33 30	."\302..\303\216\304\305\306.\30
5aa0	37 5c 32 31 31 25 2a 5c 32 30 37 22 20 5b 73 61 76 65 64 2d 6d 61 74 63 68 2d 64 61 74 61 20 74	7\211%*\207".[saved-match-data.t
5ac0	65 6d 70 6c 61 74 65 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 21	emplate.match-data.#[nil."\301.!
5ae0	5c 32 30 37 22 20 5b 73 61 76 65 64 2d 6d 61 74 63 68 2d 64 61 74 61 20 73 65 74 2d 6d 61 74 63	\207".[saved-match-data.set-matc
5b00	68 2d 64 61 74 61 5d 20 32 5d 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72	h-data].2].replace-regexp-in-str
5b20	69 6e 67 20 22 5c 5c 24 5c 5c 28 7b 5c 5c 28 5b 5e 7d 5d 2b 5c 5c 29 7d 5c 5c 7c 5b 30 2d 39 5d	ing."\\$\\({\\([^}]+\\)}\\|[0-9]
5b40	2b 5c 5c 29 22 20 23 5b 28 6d 64 29 20 22 5c 33 30 36 5c 33 30 37 08 5c 22 5c 32 31 31 19 5c 32	+\\)".#[(md)."\306\307.\"\211.\2
5b60	30 33 0d 00 09 5c 32 30 32 13 00 5c 33 31 30 5c 33 30 36 5c 33 31 31 08 5c 22 21 29 5c 33 31 32	03...\202..\310\306\311.\"!)\312
5b80	20 1a 1b 5c 33 31 33 5c 32 31 36 5c 66 5c 33 31 34 5c 32 36 37 5c 32 30 32 3e 00 5c 66 0b 0d 5c	...\313\216\f\314\267\202>.\f..\
5ba0	22 5c 32 30 32 51 00 5c 33 31 35 0d 0b 5c 22 5c 32 30 32 51 00 5c 66 0d 0b 5c 22 5c 32 30 32 51	"\202Q.\315..\"\202Q.\f..\"\202Q
5bc0	00 5c 33 31 36 0d 5c 33 31 37 0b 21 5c 22 5c 32 30 32 51 00 5c 33 32 30 0e 15 21 5c 32 31 30 0d	.\316.\317.!\"\202Q.\320..!\210.
5be0	5c 32 30 33 4e 00 5c 66 0b 0d 5c 22 5c 32 30 32 51 00 5c 66 0b 21 5c 32 31 31 1e 16 5c 32 30 33	\203N.\f..\"\202Q.\f.!\211..\203
5c00	5f 00 5c 33 32 31 5c 33 32 32 0e 16 5c 22 5c 32 30 32 63 00 5c 33 32 33 5c 33 32 34 08 5c 22 2c	_.\321\322..\"\202c.\323\324.\",
5c20	5c 32 30 37 22 20 5b 6d 64 20 6d 20 72 65 70 6c 61 63 65 72 2d 6d 61 74 63 68 2d 64 61 74 61 20	\207".[md.m.replacer-match-data.
5c40	76 61 72 20 72 65 70 6c 61 63 65 72 20 65 78 74 72 61 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20	var.replacer.extra.match-string.
5c60	32 20 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 31 20 6d 61 74 63 68 2d 64 61 74 61 20	2.string-to-number.1.match-data.
5c80	23 5b 6e 69 6c 20 22 5c 33 30 31 08 21 5c 32 30 37 22 20 5b 72 65 70 6c 61 63 65 72 2d 6d 61 74	#[nil."\301.!\207".[replacer-mat
5ca0	63 68 2d 64 61 74 61 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 5d 20 32 5d 20 23 73 28 68 61	ch-data.set-match-data].2].#s(ha
5cc0	73 68 2d 74 61 62 6c 65 20 73 69 7a 65 20 34 20 74 65 73 74 20 65 71 20 72 65 68 61 73 68 2d 73	sh-table.size.4.test.eq.rehash-s
5ce0	69 7a 65 20 31 2e 35 20 72 65 68 61 73 68 2d 74 68 72 65 73 68 6f 6c 64 20 30 2e 38 31 32 35 20	ize.1.5.rehash-threshold.0.8125.
5d00	70 75 72 65 63 6f 70 79 20 74 20 64 61 74 61 20 28 67 65 74 68 61 73 68 20 33 32 20 61 67 65 74	purecopy.t.data.(gethash.32.aget
5d20	20 33 39 20 65 6c 74 20 34 36 20 6f 72 65 66 20 35 33 29 29 20 73 2d 2d 61 67 65 74 20 73 6c 6f	.39.elt.46.oref.53)).s--aget.slo
5d40	74 2d 76 61 6c 75 65 20 69 6e 74 65 72 6e 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 66 6f	t-value.intern.set-match-data.fo
5d60	72 6d 61 74 20 22 25 73 22 20 73 69 67 6e 61 6c 20 73 2d 66 6f 72 6d 61 74 2d 72 65 73 6f 6c 76	rmat."%s".signal.s-format-resolv
5d80	65 20 73 61 76 65 64 2d 6d 61 74 63 68 2d 64 61 74 61 20 76 5d 20 35 5d 20 74 5d 20 36 20 28 23	e.saved-match-data.v].5].t].6.(#
5da0	24 20 2e 20 32 32 36 35 33 29 5d 29 0a 23 40 39 32 20 49 66 20 60 74 27 20 69 6e 74 65 72 70 6f	$...22653)]).#@92.If.`t'.interpo
5dc0	6c 61 74 65 20 6c 69 73 70 20 76 61 6c 75 65 73 20 61 73 20 6c 69 73 70 2e 0a 0a 60 73 2d 6c 65	late.lisp.values.as.lisp...`s-le
5de0	78 2d 66 6f 72 6d 61 74 27 20 69 6e 73 65 72 74 73 20 76 61 6c 75 65 73 20 77 69 74 68 20 28 66	x-format'.inserts.values.with.(f
5e00	6f 72 6d 61 74 20 22 25 53 22 29 2e 1f 0a 28 64 65 66 76 61 72 20 73 2d 6c 65 78 2d 76 61 6c 75	ormat."%S")...(defvar.s-lex-valu
5e20	65 2d 61 73 2d 6c 69 73 70 20 6e 69 6c 20 28 23 24 20 2e 20 32 33 39 38 36 29 29 0a 23 40 32 33	e-as-lisp.nil.(#$...23986)).#@23
5e40	20 45 78 70 61 6e 64 20 46 4d 54 20 69 6e 74 6f 20 6c 69 73 70 2e 1f 0a 28 64 65 66 61 6c 69 61	.Expand.FMT.into.lisp...(defalia
5e60	73 20 27 73 2d 6c 65 78 2d 66 6d 74 7c 65 78 70 61 6e 64 20 23 5b 28 66 6d 74 29 20 22 5c 33 30	s.'s-lex-fmt|expand.#[(fmt)."\30
5e80	31 08 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 08 5c	1.\302\303\304\305\306\307\310.\
5ea0	22 5c 22 5c 22 46 5c 32 30 37 22 20 5b 66 6d 74 20 73 2d 66 6f 72 6d 61 74 20 27 61 67 65 74 20	"\"\"F\207".[fmt.s-format.'aget.
5ec0	61 70 70 65 6e 64 20 28 6c 69 73 74 29 20 6d 61 70 63 61 72 20 23 5b 28 6d 61 74 63 68 65 73 29	append.(list).mapcar.#[(matches)
5ee0	20 22 5c 33 30 31 08 41 40 5c 33 30 32 5c 33 30 33 5c 33 30 34 08 41 40 21 45 45 5c 32 30 37 22	."\301.A@\302\303\304.A@!EE\207"
5f00	20 5b 6d 61 74 63 68 65 73 20 63 6f 6e 73 20 66 6f 72 6d 61 74 20 28 69 66 20 73 2d 6c 65 78 2d	.[matches.cons.format.(if.s-lex-
5f20	76 61 6c 75 65 2d 61 73 2d 6c 69 73 70 20 22 25 53 22 20 22 25 73 22 29 20 69 6e 74 65 72 6e 5d	value-as-lisp."%S"."%s").intern]
5f40	20 36 5d 20 73 2d 6d 61 74 63 68 2d 73 74 72 69 6e 67 73 2d 61 6c 6c 20 22 24 7b 5c 5c 28 5b 5e	.6].s-match-strings-all."${\\([^
5f60	7d 5d 2b 5c 5c 29 7d 22 5d 20 31 30 20 28 23 24 20 2e 20 32 34 31 32 39 29 5d 29 0a 28 62 79 74	}]+\\)}"].10.(#$...24129)]).(byt
5f80	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
5fa0	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 6e	7".[function-put.s-lex-fmt|expan
5fc0	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 23 40 33 31 36 20 60	d.side-effect-free.t].4).#@316.`
5fe0	73 2d 66 6f 72 6d 61 74 60 20 77 69 74 68 20 74 68 65 20 63 75 72 72 65 6e 74 20 65 6e 76 69 72	s-format`.with.the.current.envir
6000	6f 6e 6d 65 6e 74 2e 0a 0a 46 4f 52 4d 41 54 2d 53 54 52 20 6d 61 79 20 75 73 65 20 74 68 65 20	onment...FORMAT-STR.may.use.the.
6020	60 73 2d 66 6f 72 6d 61 74 27 20 76 61 72 69 61 62 6c 65 20 72 65 66 65 72 65 6e 63 65 20 74 6f	`s-format'.variable.reference.to
6040	20 72 65 66 65 72 20 74 6f 0a 61 6e 79 20 76 61 72 69 61 62 6c 65 3a 0a 0a 20 28 6c 65 74 20 28	.refer.to.any.variable:...(let.(
6060	28 78 20 31 29 29 0a 20 20 20 28 73 2d 6c 65 78 2d 66 6f 72 6d 61 74 20 22 78 20 69 73 3a 20 24	(x.1))....(s-lex-format."x.is:.$
6080	7b 78 7d 22 29 29 0a 0a 54 68 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 76 61 72 69 61 62	{x}"))..The.values.of.the.variab
60a0	6c 65 73 20 61 72 65 20 69 6e 74 65 72 70 6f 6c 61 74 65 64 20 77 69 74 68 20 22 25 73 22 20 75	les.are.interpolated.with."%s".u
60c0	6e 6c 65 73 73 0a 74 68 65 20 76 61 72 69 61 62 6c 65 20 60 73 2d 6c 65 78 2d 76 61 6c 75 65 2d	nless.the.variable.`s-lex-value-
60e0	61 73 2d 6c 69 73 70 27 20 69 73 20 60 74 27 20 61 6e 64 20 74 68 65 6e 20 74 68 65 79 20 61 72	as-lisp'.is.`t'.and.then.they.ar
6100	65 0a 69 6e 74 65 72 70 6f 6c 61 74 65 64 20 77 69 74 68 20 22 25 53 22 2e 1f 0a 28 64 65 66 61	e.interpolated.with."%S"...(defa
6120	6c 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 28	lias.'s-lex-format.'(macro...#[(
6140	66 6f 72 6d 61 74 2d 73 74 72 29 20 22 5c 33 30 31 08 21 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74	format-str)."\301.!\207".[format
6160	2d 73 74 72 20 73 2d 6c 65 78 2d 66 6d 74 7c 65 78 70 61 6e 64 5d 20 32 20 28 23 24 20 2e 20 32	-str.s-lex-fmt|expand].2.(#$...2
6180	34 35 34 33 29 5d 29 29 0a 28 70 75 74 20 27 73 2d 6c 65 78 2d 66 6f 72 6d 61 74 20 27 65 64 65	4543)])).(put.'s-lex-format.'ede
61a0	62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 29 29 0a 23 40 34 31 37 20 43 6f 75	bug-form-spec.'(form)).#@417.Cou
61c0	6e 74 20 6f 63 63 75 72 72 65 6e 63 65 73 20 6f 66 20 60 72 65 67 65 78 70 27 20 69 6e 20 60 73	nt.occurrences.of.`regexp'.in.`s
61e0	27 2e 0a 0a 60 73 74 61 72 74 27 2c 20 69 6e 63 6c 75 73 69 76 65 2c 20 61 6e 64 20 60 65 6e 64	'...`start',.inclusive,.and.`end
6200	27 2c 20 65 78 63 6c 75 73 69 76 65 2c 20 64 65 6c 69 6d 69 74 20 74 68 65 20 70 61 72 74 20 6f	',.exclusive,.delimit.the.part.o
6220	66 20 60 73 27 20 74 6f 0a 6d 61 74 63 68 2e 20 20 60 73 74 61 72 74 27 20 61 6e 64 20 60 65 6e	f.`s'.to.match...`start'.and.`en
6240	64 27 20 61 72 65 20 62 6f 74 68 20 69 6e 64 65 78 65 64 20 73 74 61 72 74 69 6e 67 20 61 74 20	d'.are.both.indexed.starting.at.
6260	31 3b 20 74 68 65 20 69 6e 69 74 69 61 6c 0a 63 68 61 72 61 63 74 65 72 20 69 6e 20 60 73 27 20	1;.the.initial.character.in.`s'.
6280	69 73 20 69 6e 64 65 78 20 31 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 74 61 72 74	is.index.1...This.function.start
62a0	73 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 20 74 68 65 20 6e 65 78 74 20 6d 61 74 63 68 20 66 72 6f	s.looking.for.the.next.match.fro
62c0	6d 20 74 68 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	m.the.end.of.the.previous.match.
62e0	20 20 48 65 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	..Hence,.it.ignores.matches.that
6300	20 6f 76 65 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	.overlap.a.previously.found.matc
6320	68 2e 20 20 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	h...To.count.overlapping.matches
6340	2c 20 75 73 65 0a 60 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 2d 61 6c 6c 27 2e 1f 0a 28 64	,.use.`s-count-matches-all'...(d
6360	65 66 61 6c 69 61 73 20 27 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 20 23 5b 28 72 65 67 65	efalias.'s-count-matches.#[(rege
6380	78 70 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 61 72 74 20 65 6e 64 29 20 22 5c 33 30 36 20	xp.s.&optional.start.end)."\306.
63a0	18 5c 33 30 37 5c 32 31 36 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 22 19 72 09 71 5c 32 31 30 5c	.\307\216\310\311\312\".r.q\210\
63c0	33 31 33 5c 32 31 36 5c 6e 63 5c 32 31 30 65 62 5c 32 31 30 5c 33 31 34 0b 5c 66 5c 32 30 36 1d	313\216\nc\210eb\210\314.\f\206.
63e0	00 5c 33 31 35 0d 5c 32 30 36 5c 22 00 64 23 2d 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63	.\315.\206\".d#-\207".[save-matc
6400	68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 23 31 3d 23 3a 74 65 6d 70 2d 62 75 66 66 65 72	h-data-internal.#1=#:temp-buffer
6420	20 73 20 72 65 67 65 78 70 20 73 74 61 72 74 20 65 6e 64 20 6d 61 74 63 68 2d 64 61 74 61 20 23	.s.regexp.start.end.match-data.#
6440	5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74	[nil."\301.\302\"\207".[save-mat
6460	63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20	ch-data-internal.set-match-data.
6480	65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65	evaporate].3].generate-new-buffe
64a0	72 20 22 20 2a 74 65 6d 70 2a 22 20 74 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 21 5c 32 30 35 09	r.".*temp*".t.#[nil."\301.!\205.
64c0	00 5c 33 30 32 08 21 5c 32 30 37 22 20 5b 23 31 23 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69	.\302.!\207".[#1#.buffer-name.ki
64e0	6c 6c 2d 62 75 66 66 65 72 5d 20 32 5d 20 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 20 31 5d 20 34	ll-buffer].2].count-matches.1].4
6500	20 28 23 24 20 2e 20 32 35 30 32 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	.(#$...25021)]).(byte-code."\300
6520	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
6540	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 66 65 63 74	-put.s-count-matches.side-effect
6560	2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 34 35 32 20 43 6f 75 6e 74 20 6f 63 63 75 72 72 65 6e	-free.t].4).#@452.Count.occurren
6580	63 65 73 20 6f 66 20 60 72 65 67 65 78 70 27 20 69 6e 20 60 73 27 2e 0a 0a 60 73 74 61 72 74 27	ces.of.`regexp'.in.`s'...`start'
65a0	2c 20 69 6e 63 6c 75 73 69 76 65 2c 20 61 6e 64 20 60 65 6e 64 27 2c 20 65 78 63 6c 75 73 69 76	,.inclusive,.and.`end',.exclusiv
65c0	65 2c 20 64 65 6c 69 6d 69 74 20 74 68 65 20 70 61 72 74 20 6f 66 20 60 73 27 20 74 6f 0a 6d 61	e,.delimit.the.part.of.`s'.to.ma
65e0	74 63 68 2e 20 20 60 73 74 61 72 74 27 20 61 6e 64 20 60 65 6e 64 27 20 61 72 65 20 62 6f 74 68	tch...`start'.and.`end'.are.both
6600	20 69 6e 64 65 78 65 64 20 73 74 61 72 74 69 6e 67 20 61 74 20 31 3b 20 74 68 65 20 69 6e 69 74	.indexed.starting.at.1;.the.init
6620	69 61 6c 0a 63 68 61 72 61 63 74 65 72 20 69 6e 20 60 73 27 20 69 73 20 69 6e 64 65 78 20 31 2e	ial.character.in.`s'.is.index.1.
6640	0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 74 61 72 74 73 20 6c 6f 6f 6b 69 6e 67 20 66	..This.function.starts.looking.f
6660	6f 72 20 74 68 65 20 6e 65 78 74 20 6d 61 74 63 68 20 66 72 6f 6d 20 74 68 65 20 73 65 63 6f 6e	or.the.next.match.from.the.secon
6680	64 0a 63 68 61 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	d.character.of.the.previous.matc
66a0	68 2e 20 20 48 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	h...Hence,.it.counts.matches.tha
66c0	74 0a 6f 76 65 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	t.overlap.a.previously.found.mat
66e0	63 68 2e 20 20 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	ch...To.ignore.matches.that.over
6700	6c 61 70 20 61 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	lap.a.previously.found.match,.us
6720	65 20 60 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20	e.`s-count-matches'...(defalias.
6740	27 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 2d 61 6c 6c 20 23 5b 28 72 65 67 65 78 70 20 73	's-count-matches-all.#[(regexp.s
6760	20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 61 72 74 20 65 6e 64 29 20 22 5c 33 30 36 5c 33 30 37 08	.&optional.start.end)."\306\307.
6780	5c 22 19 5c 33 31 30 5c 32 31 31 1a 1b 5c 66 0d 5c 32 30 35 10 00 0d 53 0e 0d 5c 32 30 35 18 00	\".\310\211..\f.\205...S..\205..
67a0	0e 0d 53 4f 1e 0e 5c 33 31 31 20 1e 0f 5c 33 31 32 5c 32 31 36 0b 0e 0e 47 57 5c 32 30 33 3e 00	..SO..\311...\312\216...GW\203>.
67c0	5c 33 31 33 09 0e 0e 0b 5c 33 31 34 4f 5c 22 5c 32 30 33 37 00 5c 6e 54 12 0b 54 5c 32 31 31 13	\313....\314O\"\2037.\nT..T\211.
67e0	5c 32 30 32 5c 22 00 2a 5c 6e 2c 5c 32 30 37 22 20 5b 72 65 67 65 78 70 20 61 6e 63 68 6f 72 65	\202\".*\n,\207".[regexp.anchore
6800	64 2d 72 65 67 65 78 70 20 6d 61 74 63 68 2d 63 6f 75 6e 74 20 69 20 73 20 73 74 61 72 74 20 66	d-regexp.match-count.i.s.start.f
6820	6f 72 6d 61 74 20 22 5e 25 73 22 20 30 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22	ormat."^%s".0.match-data.#[nil."
6840	5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74	\301.\302\"\207".[save-match-dat
6860	61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72	a-internal.set-match-data.evapor
6880	61 74 65 5d 20 33 5d 20 73 2d 6d 61 74 63 68 65 73 5c 3f 20 6e 69 6c 20 65 6e 64 20 6e 61 72 72	ate].3].s-matches\?.nil.end.narr
68a0	6f 77 65 64 2d 73 20 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 5d	owed-s.save-match-data-internal]
68c0	20 36 20 28 23 24 20 2e 20 32 35 39 37 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	.6.(#$...25970)]).(byte-code."\3
68e0	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
6900	6f 6e 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	on-put.s-count-matches-all.side-
6920	65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 31 38 31 20 57 72 61 70 20 73 74 72	effect-free.t].4).#@181.Wrap.str
6940	69 6e 67 20 53 20 77 69 74 68 20 50 52 45 46 49 58 20 61 6e 64 20 6f 70 74 69 6f 6e 61 6c 6c 79	ing.S.with.PREFIX.and.optionally
6960	20 53 55 46 46 49 58 2e 0a 0a 52 65 74 75 72 6e 20 73 74 72 69 6e 67 20 53 20 77 69 74 68 20 50	.SUFFIX...Return.string.S.with.P
6980	52 45 46 49 58 20 70 72 65 70 65 6e 64 65 64 2e 20 20 49 66 20 53 55 46 46 49 58 20 69 73 20 70	REFIX.prepended...If.SUFFIX.is.p
69a0	72 65 73 65 6e 74 2c 20 69 74 0a 69 73 20 61 70 70 65 6e 64 65 64 2c 20 6f 74 68 65 72 77 69 73	resent,.it.is.appended,.otherwis
69c0	65 20 50 52 45 46 49 58 20 69 73 20 75 73 65 64 20 61 73 20 62 6f 74 68 20 70 72 65 66 69 78 20	e.PREFIX.is.used.as.both.prefix.
69e0	61 6e 64 0a 73 75 66 66 69 78 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 77 72 61 70 20 23	and.suffix...(defalias.'s-wrap.#
6a00	5b 28 73 20 70 72 65 66 69 78 20 26 6f 70 74 69 6f 6e 61 6c 20 73 75 66 66 69 78 29 20 22 08 09	[(s.prefix.&optional.suffix)."..
6a20	5c 6e 5c 32 30 36 07 00 08 51 5c 32 30 37 22 20 5b 70 72 65 66 69 78 20 73 20 73 75 66 66 69 78	\n\206...Q\207".[prefix.s.suffix
6a40	5d 20 33 20 28 23 24 20 2e 20 32 36 39 33 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	].3.(#$...26936)]).(byte-code."\
6a60	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 33	300\301\302\303#\300\301\304\303
6a80	23 5c 33 30 35 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	#\305\306\307\"\210\305\310\311\
6aa0	22 5c 32 31 30 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	"\210\305\312\313\"\210\305\314\
6ac0	33 31 35 5c 22 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	315\"\210\305\316\317\"\210\305\
6ae0	33 32 30 5c 33 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	320\321\"\210\305\322\323\"\210\
6b00	33 30 35 5c 33 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	305\324\325\"\210\305\326\327\"\
6b20	32 31 30 5c 33 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	210\305\330\331\"\210\305\332\33
6b40	33 5c 22 5c 32 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	3\"\210\305\334\335\"\210\305\33
6b60	36 5c 33 33 35 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	6\335\"\210\305\337\340\"\210\30
6b80	35 5c 33 34 31 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	5\341\335\"\210\305\342\317\"\21
6ba0	30 5c 33 30 35 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	0\305\343\317\"\210\305\344\345\
6bc0	22 5c 32 31 30 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	"\210\346\347!\207".[function-pu
6be0	74 20 73 2d 77 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	t.s-wrap.pure.t.side-effect-free
6c00	20 64 65 66 61 6c 69 61 73 20 73 2d 62 6c 61 6e 6b 2d 70 20 73 2d 62 6c 61 6e 6b 5c 3f 20 73 2d	.defalias.s-blank-p.s-blank\?.s-
6c20	62 6c 61 6e 6b 2d 73 74 72 2d 70 20 73 2d 62 6c 61 6e 6b 2d 73 74 72 5c 3f 20 73 2d 63 61 70 69	blank-str-p.s-blank-str\?.s-capi
6c40	74 61 6c 69 7a 65 64 2d 70 20 73 2d 63 61 70 69 74 61 6c 69 7a 65 64 5c 3f 20 73 2d 63 6f 6e 74	talized-p.s-capitalized\?.s-cont
6c60	61 69 6e 73 2d 70 20 73 2d 63 6f 6e 74 61 69 6e 73 5c 3f 20 73 2d 65 6e 64 73 2d 77 69 74 68 2d	ains-p.s-contains\?.s-ends-with-
6c80	70 20 73 2d 65 6e 64 73 2d 77 69 74 68 5c 3f 20 73 2d 65 71 75 61 6c 73 2d 70 20 73 2d 65 71 75	p.s-ends-with\?.s-equals-p.s-equ
6ca0	61 6c 73 5c 3f 20 73 2d 6c 65 73 73 2d 70 20 73 2d 6c 65 73 73 5c 3f 20 73 2d 6c 6f 77 65 72 63	als\?.s-less-p.s-less\?.s-lowerc
6cc0	61 73 65 2d 70 20 73 2d 6c 6f 77 65 72 63 61 73 65 5c 3f 20 73 2d 6d 61 74 63 68 65 73 2d 70 20	ase-p.s-lowercase\?.s-matches-p.
6ce0	73 2d 6d 61 74 63 68 65 73 5c 3f 20 73 2d 6d 69 78 65 64 63 61 73 65 2d 70 20 73 2d 6d 69 78 65	s-matches\?.s-mixedcase-p.s-mixe
6d00	64 63 61 73 65 5c 3f 20 73 2d 6e 75 6d 65 72 69 63 2d 70 20 73 2d 6e 75 6d 65 72 69 63 5c 3f 20	dcase\?.s-numeric-p.s-numeric\?.
6d20	73 2d 70 72 65 66 69 78 2d 70 20 73 2d 73 74 61 72 74 73 2d 77 69 74 68 5c 3f 20 73 2d 70 72 65	s-prefix-p.s-starts-with\?.s-pre
6d40	66 69 78 5c 3f 20 73 2d 70 72 65 73 65 6e 74 2d 70 20 73 2d 70 72 65 73 65 6e 74 5c 3f 20 73 2d	fix\?.s-present-p.s-present\?.s-
6d60	73 74 61 72 74 73 2d 77 69 74 68 2d 70 20 73 2d 73 75 66 66 69 78 2d 70 20 73 2d 73 75 66 66 69	starts-with-p.s-suffix-p.s-suffi
6d80	78 5c 3f 20 73 2d 75 70 70 65 72 63 61 73 65 2d 70 20 73 2d 75 70 70 65 72 63 61 73 65 5c 3f 20	x\?.s-uppercase-p.s-uppercase\?.
6da0	70 72 6f 76 69 64 65 20 73 5d 20 35 29 0a	provide.s].5).