blob: 261710e739391f99bb696126a62d80d588fad963 (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 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 67	imizations.....(custom-declare-g
0060	72 6f 75 70 20 27 64 61 73 68 20 6e 69 6c 20 22 43 75 73 74 6f 6d 69 7a 65 20 67 72 6f 75 70 20	roup.'dash.nil."Customize.group.
0080	66 6f 72 20 44 61 73 68 2c 20 61 20 6d 6f 64 65 72 6e 20 6c 69 73 74 20 6c 69 62 72 61 72 79 2e	for.Dash,.a.modern.list.library.
00a0	22 20 3a 67 72 6f 75 70 20 27 65 78 74 65 6e 73 69 6f 6e 73 20 3a 67 72 6f 75 70 20 27 6c 69 73	".:group.'extensions.:group.'lis
00c0	70 20 3a 70 72 65 66 69 78 20 22 64 61 73 68 2d 22 29 0a 23 40 36 34 20 44 65 73 74 72 75 63 74	p.:prefix."dash-").#@64.Destruct
00e0	69 76 65 3a 20 53 65 74 20 43 44 52 20 74 6f 20 74 68 65 20 63 6f 6e 73 20 6f 66 20 43 41 52 20	ive:.Set.CDR.to.the.cons.of.CAR.
0100	61 6e 64 20 43 44 52 2e 0a 0a 28 66 6e 20 43 41 52 20 43 44 52 29 1f 0a 28 64 65 66 61 6c 69 61	and.CDR...(fn.CAR.CDR)..(defalia
0120	73 20 27 21 63 6f 6e 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c	s.'!cons.'(macro...#[514."\300.\
0140	33 30 31 04 04 45 45 5c 32 30 37 22 20 5b 73 65 74 71 20 63 6f 6e 73 5d 20 37 20 28 23 24 20 2e	301..EE\207".[setq.cons].7.(#$..
0160	20 32 31 36 29 5d 29 29 0a 28 70 75 74 20 27 21 63 6f 6e 73 20 27 65 64 65 62 75 67 2d 66 6f 72	.216)])).(put.'!cons.'edebug-for
0180	6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 73 79 6d 62 6f 6c 70 29 29 0a 23 40 35 34 20 44 65 73	m-spec.'(form.symbolp)).#@54.Des
01a0	74 72 75 63 74 69 76 65 3a 20 53 65 74 20 4c 49 53 54 20 74 6f 20 74 68 65 20 63 64 72 20 6f 66	tructive:.Set.LIST.to.the.cdr.of
01c0	20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 21 63	.LIST...(fn.LIST)..(defalias.'!c
01e0	64 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 03 44 45	dr.'(macro...#[257."\300.\301.DE
0200	5c 32 30 37 22 20 5b 73 65 74 71 20 63 64 72 5d 20 35 20 28 23 24 20 2e 20 34 31 33 29 5d 29 29	\207".[setq.cdr].5.(#$...413)]))
0220	0a 28 70 75 74 20 27 21 63 64 72 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28	.(put.'!cdr.'edebug-form-spec.'(
0240	73 79 6d 62 6f 6c 70 29 29 0a 23 40 32 33 34 20 45 76 61 6c 75 61 74 65 20 42 4f 44 59 20 66 6f	symbolp)).#@234.Evaluate.BODY.fo
0260	72 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72	r.each.element.of.LIST.and.retur
0280	6e 20 6e 69 6c 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74	n.nil..Each.element.of.LIST.in.t
02a0	75 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64	urn.is.bound.to.`it'.and.its.ind
02c0	65 78 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 66	ex.within.LIST.to.`it-index'.bef
02e0	6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 42 4f 44 59 2e 0a 54 68 69 73 20 69 73 20 74 68 65	ore.evaluating.BODY..This.is.the
0300	20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 65 61 63 68	.anaphoric.counterpart.to.`-each
0320	27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c	'...(fn.LIST.&rest.BODY)..(defal
0340	69 61 73 20 27 2d 2d 65 61 63 68 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30	ias.'--each.'(macro...#[385."\30
0360	30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 33 02 05 44 02 5c 33 30 34 42 5c 33 30 35	0\301!\300\302!\303..D.\304B\305
0380	42 42 5c 33 30 36 5c 33 30 37 05 5c 33 31 30 5c 33 31 31 5c 33 31 32 06 09 44 5c 33 31 33 06 09	BB\306\307.\310\311\312..D\313..
03a0	5c 32 31 31 5c 33 31 34 06 5c 66 44 5c 32 35 37 07 06 08 42 42 42 46 5c 32 30 37 22 20 5b 6d 61	\211\314.\fD\257...BBBF\207".[ma
03c0	6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 22 20 22 69 22 20 6c 65 74 20 28 30 29 20 28 69 74	ke-symbol."list"."i".let.(0).(it
03e0	20 69 74 2d 69 6e 64 65 78 29 20 28 69 67 6e 6f 72 65 20 69 74 20 69 74 2d 69 6e 64 65 78 29 20	.it-index).(ignore.it.it-index).
0400	77 68 69 6c 65 20 73 65 74 71 20 69 74 20 70 6f 70 20 69 74 2d 69 6e 64 65 78 20 31 2b 5d 20 31	while.setq.it.pop.it-index.1+].1
0420	37 20 28 23 24 20 2e 20 35 39 32 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	7.(#$...592)])).(byte-code."\300
0440	5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30	\301\302\303#\210\304\301\305\30
0460	36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 65 61 63 68 20 65 64 65 62 75 67 2d 66	6#\300\207".[put.--each.edebug-f
0480	6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75	orm-spec.(form.body).function-pu
04a0	74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 32	t.lisp-indent-function.1].4).#@2
04c0	31 37 20 43 61 6c 6c 20 46 4e 20 6f 6e 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49	17.Call.FN.on.each.element.of.LI
04e0	53 54 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 3b 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73	ST..Return.nil;.this.function.is
0500	20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 73 69 64 65 20 65 66 66 65 63 74 73 2e 0a 0a 49 74 73	.intended.for.side.effects...Its
0520	20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 65 61 63	.anaphoric.counterpart.is.`--eac
0540	68 27 2e 0a 0a 46 6f 72 20 61 63 63 65 73 73 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 65	h'...For.access.to.the.current.e
0560	6c 65 6d 65 6e 74 27 73 20 69 6e 64 65 78 20 69 6e 20 4c 49 53 54 2c 20 73 65 65 0a 60 2d 65 61	lement's.index.in.LIST,.see.`-ea
0580	63 68 2d 69 6e 64 65 78 65 64 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46 4e 29 1f 0a 28 64 65 66	ch-indexed'...(fn.LIST.FN)..(def
05a0	61 6c 69 61 73 20 27 2d 65 61 63 68 20 23 5b 35 31 34 20 22 5c 33 30 30 01 03 5c 22 5c 32 31 30	alias.'-each.#[514."\300..\"\210
05c0	5c 33 30 31 5c 32 30 37 22 20 5b 6d 61 70 63 20 6e 69 6c 5d 20 35 20 28 23 24 20 2e 20 31 32 31	\301\207".[mapc.nil].5.(#$...121
05e0	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 5c 33 30 32 5c 33 30	9)]).(byte-code."\300\301\302\30
0600	33 23 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d	3#\304\305\306\"\207".[function-
0620	70 75 74 20 2d 65 61 63 68 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31	put.-each.lisp-indent-function.1
0640	20 64 65 66 61 6c 69 61 73 20 2d 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 20 2d 2d 65 61 63 68 5d	.defalias.--each-indexed.--each]
0660	20 34 29 0a 23 40 32 30 33 20 43 61 6c 6c 20 46 4e 20 6f 6e 20 65 61 63 68 20 69 6e 64 65 78 20	.4).#@203.Call.FN.on.each.index.
0680	61 6e 64 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2e 0a 46 6f 72 20 65 61 63 68 20 49 54	and.element.of.LIST..For.each.IT
06a0	45 4d 20 61 74 20 49 4e 44 45 58 20 69 6e 20 4c 49 53 54 2c 20 63 61 6c 6c 20 28 66 75 6e 63 61	EM.at.INDEX.in.LIST,.call.(funca
06c0	6c 6c 20 46 4e 20 49 4e 44 45 58 20 49 54 45 4d 29 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 3b 20 74	ll.FN.INDEX.ITEM)..Return.nil;.t
06e0	68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 73 69 64	his.function.is.intended.for.sid
0700	65 20 65 66 66 65 63 74 73 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 69 6e 64 65	e.effects...See.also:.`-map-inde
0720	78 65 64 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	xed'...(fn.LIST.FN)..(defalias.'
0740	2d 65 61 63 68 2d 69 6e 64 65 78 65 64 20 23 5b 35 31 34 20 22 01 5c 33 30 30 5c 33 30 31 5c 32	-each-indexed.#[514.".\300\301\2
0760	31 31 03 5c 32 30 35 1f 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32	11.\205...\211A\262.\242\262..\2
0780	36 32 01 02 54 5c 32 36 32 03 04 01 03 5c 22 5c 32 31 30 5c 32 30 32 04 00 5c 32 30 37 22 20 5b	62..T\262....\"\210\202..\207".[
07a0	30 20 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 31 36 34 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64	0.nil].9.(#$...1642)]).(byte-cod
07c0	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 66	e."\300\301\302\303#\300\207".[f
07e0	75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 20 6c 69 73 70 2d 69	unction-put.-each-indexed.lisp-i
0800	6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 33 39 32 20 45 76 61 6c 75	ndent-function.1].4).#@392.Evalu
0820	61 74 65 20 42 4f 44 59 20 66 6f 72 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2c 20	ate.BODY.for.each.item.in.LIST,.
0840	77 68 69 6c 65 20 50 52 45 44 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2e	while.PRED.evaluates.to.non-nil.
0860	0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e 20 69 73	.Each.element.of.LIST.in.turn.is
0880	20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 78 0a 77 69 74	.bound.to.`it'.and.its.index.wit
08a0	68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 66 6f 72 65 20 65 76	hin.LIST.to.`it-index'.before.ev
08c0	61 6c 75 61 74 69 6e 67 20 50 52 45 44 20 6f 72 20 42 4f 44 59 2e 20 20 4f 6e 63 65 0a 61 6e 20	aluating.PRED.or.BODY...Once.an.
08e0	65 6c 65 6d 65 6e 74 20 69 73 20 72 65 61 63 68 65 64 20 66 6f 72 20 77 68 69 63 68 20 50 52 45	element.is.reached.for.which.PRE
0900	44 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 69 6c 2c 20 6e 6f 20 66 75 72 74 68 65 72 0a 42	D.evaluates.to.nil,.no.further.B
0920	4f 44 59 20 69 73 20 65 76 61 6c 75 61 74 65 64 2e 20 20 54 68 65 20 72 65 74 75 72 6e 20 76 61	ODY.is.evaluated...The.return.va
0940	6c 75 65 20 69 73 20 61 6c 77 61 79 73 20 6e 69 6c 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61	lue.is.always.nil..This.is.the.a
0960	6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 65 61 63 68 2d 77	naphoric.counterpart.to.`-each-w
0980	68 69 6c 65 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 50 52 45 44 20 26 72 65 73 74 20 42 4f 44 59	hile'...(fn.LIST.PRED.&rest.BODY
09a0	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 27 28 6d 61 63	)..(defalias.'--each-while.'(mac
09c0	72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33	ro...#[642."\300\301!\300\302!\3
09e0	30 30 5c 33 30 33 21 5c 33 30 34 03 06 07 44 03 5c 33 30 35 42 03 5c 33 30 36 42 42 42 5c 33 30	00\303!\304...D.\305B.\306BBB\30
0a00	37 5c 33 31 30 5c 33 31 31 06 07 5c 33 31 32 06 07 5c 33 31 33 06 0b 44 5c 33 31 34 06 5c 6e 5c	7\310\311..\312..\313..D\314.\n\
0a20	33 31 35 06 0d 5c 32 35 37 07 06 0b 46 5c 33 31 32 5c 33 31 34 06 07 5c 33 31 35 06 5c 6e 5c 32	315..\257...F\312\314..\315.\n\2
0a40	31 31 5c 33 31 36 06 0d 44 5c 32 35 37 07 06 09 42 42 42 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d	11\316..D\257...BBBF\207".[make-
0a60	73 79 6d 62 6f 6c 20 22 6c 69 73 74 22 20 22 69 22 20 22 65 6c 74 22 20 6c 65 74 20 28 30 29 20	symbol."list"."i"."elt".let.(0).
0a80	28 69 74 20 69 74 2d 69 6e 64 65 78 29 20 28 69 67 6e 6f 72 65 20 69 74 20 69 74 2d 69 6e 64 65	(it.it-index).(ignore.it.it-inde
0aa0	78 29 20 77 68 69 6c 65 20 61 6e 64 20 73 65 74 71 20 70 6f 70 20 69 74 20 69 74 2d 69 6e 64 65	x).while.and.setq.pop.it.it-inde
0ac0	78 20 31 2b 5d 20 31 39 20 28 23 24 20 2e 20 32 30 37 35 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f	x.1+].19.(#$...2075)])).(byte-co
0ae0	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30	de."\300\301\302\303#\210\304\30
0b00	31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 65 61 63 68 2d	1\305\306#\300\207".[put.--each-
0b20	77 68 69 6c 65 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 66 6f 72	while.edebug-form-spec.(form.for
0b40	6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74	m.body).function-put.lisp-indent
0b60	2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 32 35 39 20 43 61 6c 6c 20 46 4e 20 6f 6e	-function.2].4).#@259.Call.FN.on
0b80	20 65 61 63 68 20 49 54 45 4d 20 69 6e 20 4c 49 53 54 2c 20 77 68 69 6c 65 20 28 50 52 45 44 20	.each.ITEM.in.LIST,.while.(PRED.
0ba0	49 54 45 4d 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 4f 6e 63 65 20 61 6e 20 49 54 45 4d 20 69	ITEM).is.non-nil..Once.an.ITEM.i
0bc0	73 20 72 65 61 63 68 65 64 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73	s.reached.for.which.PRED.returns
0be0	20 6e 69 6c 2c 20 46 4e 20 69 73 20 6e 6f 0a 6c 6f 6e 67 65 72 20 63 61 6c 6c 65 64 2e 20 20 52	.nil,.FN.is.no.longer.called...R
0c00	65 74 75 72 6e 20 6e 69 6c 3b 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 69 6e 74 65	eturn.nil;.this.function.is.inte
0c20	6e 64 65 64 20 66 6f 72 20 73 69 64 65 0a 65 66 66 65 63 74 73 2e 0a 0a 49 74 73 20 61 6e 61 70	nded.for.side.effects...Its.anap
0c40	68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 65 61 63 68 2d 77 68 69	horic.counterpart.is.`--each-whi
0c60	6c 65 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 50 52 45 44 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69	le'...(fn.LIST.PRED.FN)..(defali
0c80	61 73 20 27 2d 65 61 63 68 2d 77 68 69 6c 65 20 23 5b 37 37 31 20 22 02 5c 33 30 30 5c 33 30 31	as.'-each-while.#[771.".\300\301
0ca0	5c 32 31 31 5c 32 31 31 04 5c 32 30 35 33 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32	\211\211.\2053..\211A\262.\242\2
0cc0	36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 35 33 00 06 06 02 21 5c 32 30	62..\262..\211\262.\2053....!\20
0ce0	35 33 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 05 02 21 5c 32 31 30 5c 32 30	53..\262..\262..T\262...!\210\20
0d00	32 05 00 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 32 39 33 34 29 5d	2..\207".[0.nil].10.(#$...2934)]
0d20	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#\
0d40	33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 65 61 63 68 2d 77 68 69	300\207".[function-put.-each-whi
0d60	6c 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40	le.lisp-indent-function.2].4).#@
0d80	32 39 34 20 45 76 61 6c 75 61 74 65 20 42 4f 44 59 20 66 6f 72 20 65 61 63 68 20 65 6c 65 6d 65	294.Evaluate.BODY.for.each.eleme
0da0	6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 72 65 76 65 72 73 65 64 20 6f 72 64 65 72 2e 0a 45 61	nt.of.LIST.in.reversed.order..Ea
0dc0	63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e 2c 20 73 74 61 72	ch.element.of.LIST.in.turn,.star
0de0	74 69 6e 67 20 61 74 20 69 74 73 20 65 6e 64 2c 20 69 73 20 62 6f 75 6e 64 20 74 6f 0a 60 69 74	ting.at.its.end,.is.bound.to.`it
0e00	27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 78 20 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60	'.and.its.index.within.LIST.to.`
0e20	69 74 2d 69 6e 64 65 78 27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 0a 42 4f 44 59	it-index'.before.evaluating.BODY
0e40	2e 20 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 61 6c 77 61 79 73 20 6e 69	...The.return.value.is.always.ni
0e60	6c 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72	l..This.is.the.anaphoric.counter
0e80	70 61 72 74 20 74 6f 20 60 2d 65 61 63 68 2d 72 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 26 72 65	part.to.`-each-r'...(fn.LIST.&re
0ea0	73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 65 61 63 68 2d 72 20 27 28	st.BODY)..(defalias.'--each-r.'(
0ec0	6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32	macro...#[385."\300\301!\300\302
0ee0	21 5c 33 30 33 02 5c 33 30 34 06 06 44 44 02 5c 33 30 35 05 44 44 5c 33 30 36 42 42 5c 33 30 37	!\303.\304..DD.\305.DD\306BB\307
0f00	5c 33 31 30 5c 33 31 31 05 5c 33 31 32 42 42 5c 33 31 33 06 06 5c 33 31 34 06 08 44 5c 33 31 35	\310\311.\312BB\313..\314..D\315
0f20	06 09 5c 33 31 36 5c 33 31 37 06 0d 06 0d 45 5c 32 35 37 07 06 08 42 42 42 46 5c 32 30 37 22 20	..\316\317....E\257...BBBF\207".
0f40	5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 76 65 63 74 6f 72 22 20 22 69 22 20 6c 65 74 2a 20 76	[make-symbol."vector"."i".let*.v
0f60	63 6f 6e 63 61 74 20 6c 65 6e 67 74 68 20 28 69 74 20 69 74 2d 69 6e 64 65 78 29 20 28 69 67 6e	concat.length.(it.it-index).(ign
0f80	6f 72 65 20 69 74 20 69 74 2d 69 6e 64 65 78 29 20 77 68 69 6c 65 20 3e 20 28 30 29 20 73 65 74	ore.it.it-index).while.>.(0).set
0fa0	71 20 31 2d 20 69 74 2d 69 6e 64 65 78 20 69 74 20 61 72 65 66 5d 20 31 38 20 28 23 24 20 2e 20	q.1-.it-index.it.aref].18.(#$...
0fc0	33 34 36 30 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	3460)])).(byte-code."\300\301\30
0fe0	32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c	2\303#\210\304\301\305\306#\300\
1000	32 30 37 22 20 5b 70 75 74 20 2d 2d 65 61 63 68 2d 72 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73	207".[put.--each-r.edebug-form-s
1020	70 65 63 20 28 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73	pec.(form.body).function-put.lis
1040	70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 36 34 20 43 61	p-indent-function.1].4).#@164.Ca
1060	6c 6c 20 46 4e 20 6f 6e 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e	ll.FN.on.each.element.of.LIST.in
1080	20 72 65 76 65 72 73 65 64 20 6f 72 64 65 72 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 3b 20 74 68 69	.reversed.order..Return.nil;.thi
10a0	73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 73 69 64 65 20	s.function.is.intended.for.side.
10c0	65 66 66 65 63 74 73 2e 0a 0a 49 74 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70	effects...Its.anaphoric.counterp
10e0	61 72 74 20 69 73 20 60 2d 2d 65 61 63 68 2d 72 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46 4e 29	art.is.`--each-r'...(fn.LIST.FN)
1100	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 65 61 63 68 2d 72 20 23 5b 35 31 34 20 22 5c 33 30 30	..(defalias.'-each-r.#[514."\300
1120	02 21 5c 32 31 31 47 5c 33 30 31 5c 32 31 31 02 5c 33 30 32 56 5c 32 30 35 20 00 02 53 5c 32 36	.!\211G\301\211.\302V\205...S\26
1140	32 03 02 5c 32 36 32 01 03 03 48 5c 32 36 32 02 04 02 21 5c 32 31 30 5c 32 30 32 07 00 5c 32 30	2..\262...H\262...!\210\202..\20
1160	37 22 20 5b 76 63 6f 6e 63 61 74 20 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 34 31 39 30 29	7".[vconcat.nil.0].8.(#$...4190)
1180	5d 29 0a 23 40 34 31 37 20 45 76 61 6c 20 42 4f 44 59 20 66 6f 72 20 65 61 63 68 20 69 74 65 6d	]).#@417.Eval.BODY.for.each.item
11a0	20 69 6e 20 72 65 76 65 72 73 65 64 20 4c 49 53 54 2c 20 77 68 69 6c 65 20 50 52 45 44 20 65 76	.in.reversed.LIST,.while.PRED.ev
11c0	61 6c 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20	als.to.non-nil..Each.element.of.
11e0	4c 49 53 54 20 69 6e 20 74 75 72 6e 2c 20 73 74 61 72 74 69 6e 67 20 61 74 20 69 74 73 20 65 6e	LIST.in.turn,.starting.at.its.en
1200	64 2c 20 69 73 20 62 6f 75 6e 64 20 74 6f 0a 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65	d,.is.bound.to.`it'.and.its.inde
1220	78 20 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 66 6f	x.within.LIST.to.`it-index'.befo
1240	72 65 20 65 76 61 6c 75 61 74 69 6e 67 0a 50 52 45 44 20 6f 72 20 42 4f 44 59 2e 20 20 4f 6e 63	re.evaluating.PRED.or.BODY...Onc
1260	65 20 61 6e 20 65 6c 65 6d 65 6e 74 20 69 73 20 72 65 61 63 68 65 64 20 66 6f 72 20 77 68 69 63	e.an.element.is.reached.for.whic
1280	68 20 50 52 45 44 0a 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 69 6c 2c 20 6e 6f 20 66 75 72 74	h.PRED.evaluates.to.nil,.no.furt
12a0	68 65 72 20 42 4f 44 59 20 69 73 20 65 76 61 6c 75 61 74 65 64 2e 20 20 54 68 65 20 72 65 74 75	her.BODY.is.evaluated...The.retu
12c0	72 6e 20 76 61 6c 75 65 0a 69 73 20 61 6c 77 61 79 73 20 6e 69 6c 2e 0a 54 68 69 73 20 69 73 20	rn.value.is.always.nil..This.is.
12e0	74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 65	the.anaphoric.counterpart.to.`-e
1300	61 63 68 2d 72 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 50 52 45 44 20 26 72 65	ach-r-while'...(fn.LIST.PRED.&re
1320	73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 65 61 63 68 2d 72 2d 77 68	st.BODY)..(defalias.'--each-r-wh
1340	69 6c 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 5c 33 30 31 21 5c 33	ile.'(macro...#[642."\300\301!\3
1360	30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 34 03 5c 33 30 35 06 08 44 44 03 5c 33	00\302!\300\303!\304.\305..DD.\3
1380	30 36 06 06 44 44 03 5c 33 30 37 42 42 42 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 06 07	06..DD.\307BBB\310\311\312\313..
13a0	5c 33 31 34 42 42 5c 33 31 35 06 08 5c 33 31 36 06 5c 6e 44 5c 33 31 37 06 0b 5c 32 35 37 05 5c	\314BB\315..\316.\nD\317..\257.\
13c0	33 31 35 06 08 5c 33 32 30 06 5c 66 06 5c 66 45 5c 33 32 31 06 0b 5c 32 35 37 05 06 5c 66 5c 32	315..\320.\f.\fE\321..\257..\f\2
13e0	35 37 05 5c 33 31 35 5c 33 31 37 06 08 5c 33 32 31 06 09 5c 32 35 37 05 06 09 42 42 42 46 5c 32	57.\315\317..\321..\257...BBBF\2
1400	30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 76 65 63 74 6f 72 22 20 22 69 22 20 22 65	07".[make-symbol."vector"."i"."e
1420	6c 74 22 20 6c 65 74 2a 20 76 63 6f 6e 63 61 74 20 6c 65 6e 67 74 68 20 28 69 74 20 69 74 2d 69	lt".let*.vconcat.length.(it.it-i
1440	6e 64 65 78 29 20 28 69 67 6e 6f 72 65 20 69 74 20 69 74 2d 69 6e 64 65 78 29 20 77 68 69 6c 65	ndex).(ignore.it.it-index).while
1460	20 77 68 65 6e 20 3e 20 28 30 29 20 73 65 74 71 20 31 2d 20 69 74 2d 69 6e 64 65 78 20 61 72 65	.when.>.(0).setq.1-.it-index.are
1480	66 20 69 74 5d 20 31 38 20 28 23 24 20 2e 20 34 34 38 39 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f	f.it].18.(#$...4489)])).(byte-co
14a0	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30	de."\300\301\302\303#\210\304\30
14c0	31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 65 61 63 68 2d	1\305\306#\300\207".[put.--each-
14e0	72 2d 77 68 69 6c 65 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 66	r-while.edebug-form-spec.(form.f
1500	6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65	orm.body).function-put.lisp-inde
1520	6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 32 37 30 20 43 61 6c 6c 20 46 4e 20	nt-function.2].4).#@270.Call.FN.
1540	6f 6e 20 65 61 63 68 20 49 54 45 4d 20 69 6e 20 72 65 76 65 72 73 65 64 20 4c 49 53 54 2c 20 77	on.each.ITEM.in.reversed.LIST,.w
1560	68 69 6c 65 20 28 50 52 45 44 20 49 54 45 4d 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 4f 6e 63	hile.(PRED.ITEM).is.non-nil..Onc
1580	65 20 61 6e 20 49 54 45 4d 20 69 73 20 72 65 61 63 68 65 64 20 66 6f 72 20 77 68 69 63 68 20 50	e.an.ITEM.is.reached.for.which.P
15a0	52 45 44 20 72 65 74 75 72 6e 73 20 6e 69 6c 2c 20 46 4e 20 69 73 20 6e 6f 0a 6c 6f 6e 67 65 72	RED.returns.nil,.FN.is.no.longer
15c0	20 63 61 6c 6c 65 64 2e 20 20 52 65 74 75 72 6e 20 6e 69 6c 3b 20 74 68 69 73 20 66 75 6e 63 74	.called...Return.nil;.this.funct
15e0	69 6f 6e 20 69 73 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 73 69 64 65 0a 65 66 66 65 63 74 73	ion.is.intended.for.side.effects
1600	2e 0a 0a 49 74 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20	...Its.anaphoric.counterpart.is.
1620	60 2d 2d 65 61 63 68 2d 72 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 50 52 45 44	`--each-r-while'...(fn.LIST.PRED
1640	20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 65 61 63 68 2d 72 2d 77 68 69 6c 65 20 23	.FN)..(defalias.'-each-r-while.#
1660	5b 37 37 31 20 22 5c 33 30 30 03 21 5c 32 31 31 47 5c 33 30 31 5c 32 31 31 5c 32 31 31 03 5c 33	[771."\300.!\211G\301\211\211.\3
1680	30 32 56 5c 32 30 35 31 00 03 53 5c 32 36 32 04 03 5c 32 36 32 01 04 04 48 5c 32 36 32 03 02 5c	02V\2051..S\262..\262...H\262..\
16a0	32 36 32 02 06 06 02 21 5c 32 30 35 31 00 03 5c 32 36 32 01 02 5c 32 36 32 02 05 02 21 5c 32 31	262....!\2051..\262..\262...!\21
16c0	30 5c 32 30 32 08 00 5c 32 30 37 22 20 5b 76 63 6f 6e 63 61 74 20 6e 69 6c 20 30 5d 20 31 30 20	0\202..\207".[vconcat.nil.0].10.
16e0	28 23 24 20 2e 20 35 34 33 32 29 5d 29 0a 23 40 33 30 35 20 45 76 61 6c 75 61 74 65 20 42 4f 44	(#$...5432)]).#@305.Evaluate.BOD
1700	59 20 4e 55 4d 20 74 69 6d 65 73 2c 20 70 72 65 73 75 6d 61 62 6c 79 20 66 6f 72 20 73 69 64 65	Y.NUM.times,.presumably.for.side
1720	20 65 66 66 65 63 74 73 2e 0a 42 4f 44 59 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 77 69 74 68	.effects..BODY.is.evaluated.with
1740	20 74 68 65 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 20 60 69 74 27 20 74 65 6d 70 6f 72 61	.the.local.variable.`it'.tempora
1760	72 69 6c 79 20 62 6f 75 6e 64 0a 74 6f 20 73 75 63 63 65 73 73 69 76 65 20 69 6e 74 65 67 65 72	rily.bound.to.successive.integer
1780	73 20 72 75 6e 6e 69 6e 67 20 66 72 6f 6d 20 30 2c 20 69 6e 63 6c 75 73 69 76 65 2c 20 74 6f 20	s.running.from.0,.inclusive,.to.
17a0	4e 55 4d 2c 0a 65 78 63 6c 75 73 69 76 65 2e 20 20 42 4f 44 59 20 69 73 20 6e 6f 74 20 65 76 61	NUM,.exclusive...BODY.is.not.eva
17c0	6c 75 61 74 65 64 20 69 66 20 4e 55 4d 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 31 2e 0a 54 68	luated.if.NUM.is.less.than.1..Th
17e0	69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20	is.is.the.anaphoric.counterpart.
1800	74 6f 20 60 2d 64 6f 74 69 6d 65 73 27 2e 0a 0a 28 66 6e 20 4e 55 4d 20 26 72 65 73 74 20 42 4f	to.`-dotimes'...(fn.NUM.&rest.BO
1820	44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 64 6f 74 69 6d 65 73 20 27 28 6d 61 63 72	DY)..(defalias.'--dotimes.'(macr
1840	6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30	o...#[385."\300\301!\300\302!\30
1860	33 02 05 44 02 5c 33 30 34 42 5c 33 30 35 42 42 5c 33 30 36 5c 33 30 37 5c 33 31 30 05 06 07 45	3..D.\304B\305BB\306\307\310...E
1880	5c 33 31 31 5c 33 31 32 06 07 5c 32 31 31 5c 33 31 33 06 5c 6e 44 5c 32 35 37 05 06 08 42 42 42	\311\312..\211\313.\nD\257...BBB
18a0	46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6e 75 6d 22 20 22 69 22 20 6c 65	F\207".[make-symbol."num"."i".le
18c0	74 20 28 30 29 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 20 77 68 69 6c 65 20 3c 20 73	t.(0).(it).(ignore.it).while.<.s
18e0	65 74 71 20 69 74 20 31 2b 5d 20 31 35 20 28 23 24 20 2e 20 35 38 37 36 29 5d 29 29 0a 28 62 79	etq.it.1+].15.(#$...5876)])).(by
1900	74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33	te-code."\300\301\302\303#\210\3
1920	30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d	04\301\305\306#\300\207".[put.--
1940	64 6f 74 69 6d 65 73 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 62	dotimes.edebug-form-spec.(form.b
1960	6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75	ody).function-put.lisp-indent-fu
1980	6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 32 36 33 20 43 61 6c 6c 20 46 4e 20 4e 55 4d 20 74	nction.1].4).#@263.Call.FN.NUM.t
19a0	69 6d 65 73 2c 20 70 72 65 73 75 6d 61 62 6c 79 20 66 6f 72 20 73 69 64 65 20 65 66 66 65 63 74	imes,.presumably.for.side.effect
19c0	73 2e 0a 46 4e 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 20 73 69 6e 67 6c 65 20 61 72	s..FN.is.called.with.a.single.ar
19e0	67 75 6d 65 6e 74 20 6f 6e 20 73 75 63 63 65 73 73 69 76 65 20 69 6e 74 65 67 65 72 73 0a 72 75	gument.on.successive.integers.ru
1a00	6e 6e 69 6e 67 20 66 72 6f 6d 20 30 2c 20 69 6e 63 6c 75 73 69 76 65 2c 20 74 6f 20 4e 55 4d 2c	nning.from.0,.inclusive,.to.NUM,
1a20	20 65 78 63 6c 75 73 69 76 65 2e 20 20 46 4e 20 69 73 20 6e 6f 74 20 63 61 6c 6c 65 64 0a 69 66	.exclusive...FN.is.not.called.if
1a40	20 4e 55 4d 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 31 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74	.NUM.is.less.than.1...This.funct
1a60	69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60	ion's.anaphoric.counterpart.is.`
1a80	2d 2d 64 6f 74 69 6d 65 73 27 2e 0a 0a 28 66 6e 20 4e 55 4d 20 46 4e 29 1f 0a 28 64 65 66 61 6c	--dotimes'...(fn.NUM.FN)..(defal
1aa0	69 61 73 20 27 2d 64 6f 74 69 6d 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 01 04 57	ias.'-dotimes.#[514."\300\301..W
1ac0	5c 32 30 35 16 00 01 5c 32 36 32 01 01 54 5c 32 36 32 02 02 01 21 5c 32 31 30 5c 32 30 32 02 00	\205...\262..T\262...!\210\202..
1ae0	5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 36 35 34 37 29 5d 29 0a 28 62	\207".[0.nil].6.(#$...6547)]).(b
1b00	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 5c	yte-code."\300\301\302\303#\300\
1b20	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 64 6f 74 69 6d 65 73 20 6c 69 73 70	207".[function-put.-dotimes.lisp
1b40	2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 32 38 20 41 70 70	-indent-function.1].4).#@128.App
1b60	6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 61 6e 64 20 72	ly.FN.to.each.item.in.LIST.and.r
1b80	65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 72 65 73 75 6c 74 73 2e 0a 0a 54 68 69 73	eturn.the.list.of.results...This
1ba0	20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72	.function's.anaphoric.counterpar
1bc0	74 20 69 73 20 60 2d 2d 6d 61 70 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65	t.is.`--map'...(fn.FN.LIST)..(de
1be0	66 61 6c 69 61 73 20 27 2d 6d 61 70 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 5c 32 30 37	falias.'-map.#[514."\300..\"\207
1c00	22 20 5b 6d 61 70 63 61 72 5d 20 35 20 28 23 24 20 2e 20 37 30 30 35 29 5d 29 0a 23 40 31 39 36	".[mapcar].5.(#$...7005)]).#@196
1c20	20 45 76 61 6c 20 46 4f 52 4d 20 66 6f 72 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53 54	.Eval.FORM.for.each.item.in.LIST
1c40	20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 72 65 73 75 6c 74 73 2e	.and.return.the.list.of.results.
1c60	0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e 20 69 73	.Each.element.of.LIST.in.turn.is
1c80	20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67	.bound.to.`it'.before.evaluating
1ca0	0a 46 4f 52 4d 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75	.FORM..This.is.the.anaphoric.cou
1cc0	6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 6d 61 70 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49	nterpart.to.`-map'...(fn.FORM.LI
1ce0	53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 20 27 28 6d 61 63 72 6f 20 2e 20	ST)..(defalias.'--map.'(macro...
1d00	23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 05 46 02 45 5c 32 30 37 22	#[514."\300\301\302\303.F.E\207"
1d20	20 5b 6d 61 70 63 61 72 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29	.[mapcar.lambda.(it).(ignore.it)
1d40	5d 20 37 20 28 23 24 20 2e 20 37 32 30 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70 20 27	].7.(#$...7201)])).(put.'--map.'
1d60	65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d	edebug-form-spec.'(def-form.form
1d80	29 29 0a 23 40 35 36 39 20 41 63 63 75 6d 75 6c 61 74 65 20 61 20 76 61 6c 75 65 20 62 79 20 65	)).#@569.Accumulate.a.value.by.e
1da0	76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 20 61 63 72 6f 73 73 20 4c 49 53 54 2e 0a 54 68 69 73	valuating.FORM.across.LIST..This
1dc0	20 6d 61 63 72 6f 20 69 73 20 6c 69 6b 65 20 60 2d 2d 65 61 63 68 27 20 28 77 68 69 63 68 20 73	.macro.is.like.`--each'.(which.s
1de0	65 65 29 2c 20 62 75 74 20 69 74 20 61 64 64 69 74 69 6f 6e 61 6c 6c 79 0a 70 72 6f 76 69 64 65	ee),.but.it.additionally.provide
1e00	73 20 61 6e 20 61 63 63 75 6d 75 6c 61 74 6f 72 20 76 61 72 69 61 62 6c 65 20 60 61 63 63 27 20	s.an.accumulator.variable.`acc'.
1e20	77 68 69 63 68 20 69 74 20 73 75 63 63 65 73 73 69 76 65 6c 79 0a 62 69 6e 64 73 20 74 6f 20 74	which.it.successively.binds.to.t
1e40	68 65 20 72 65 73 75 6c 74 20 6f 66 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 20 66 6f 72	he.result.of.evaluating.FORM.for
1e60	20 74 68 65 20 63 75 72 72 65 6e 74 20 4c 49 53 54 0a 65 6c 65 6d 65 6e 74 20 62 65 66 6f 72 65	.the.current.LIST.element.before
1e80	20 70 72 6f 63 65 73 73 69 6e 67 20 74 68 65 20 6e 65 78 74 20 65 6c 65 6d 65 6e 74 2e 20 20 46	.processing.the.next.element...F
1ea0	6f 72 20 74 68 65 20 66 69 72 73 74 0a 65 6c 65 6d 65 6e 74 2c 20 60 61 63 63 27 20 69 73 20 69	or.the.first.element,.`acc'.is.i
1ec0	6e 69 74 69 61 6c 69 7a 65 64 20 77 69 74 68 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 65 76	nitialized.with.the.result.of.ev
1ee0	61 6c 75 61 74 69 6e 67 20 49 4e 49 54 2e 0a 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20	aluating.INIT..The.return.value.
1f00	69 73 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 76 61 6c 75 65 20 6f 66 20 60 61 63 63 27 2e	is.the.resulting.value.of.`acc'.
1f20	20 20 49 66 20 4c 49 53 54 20 69 73 0a 65 6d 70 74 79 2c 20 46 4f 52 4d 20 69 73 20 6e 6f 74 20	..If.LIST.is.empty,.FORM.is.not.
1f40	65 76 61 6c 75 61 74 65 64 2c 20 61 6e 64 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20	evaluated,.and.the.return.value.
1f60	69 73 20 74 68 65 20 72 65 73 75 6c 74 0a 6f 66 20 49 4e 49 54 2e 0a 54 68 69 73 20 69 73 20 74	is.the.result.of.INIT..This.is.t
1f80	68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65	he.anaphoric.counterpart.to.`-re
1fa0	64 75 63 65 2d 66 72 6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 54 20 4c 49 53 54 29	duce-from'...(fn.FORM.INIT.LIST)
1fc0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 27 28 6d 61 63	..(defalias.'--reduce-from.'(mac
1fe0	72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 03 44 43 5c 33 30 32 03 5c 33 30 33	ro...#[771."\300\301.DC\302.\303
2000	5c 33 30 31 06 08 45 45 5c 33 30 34 42 42 42 5c 32 30 37 22 20 5b 6c 65 74 20 61 63 63 20 2d 2d	\301..EE\304BBB\207".[let.acc.--
2020	65 61 63 68 20 73 65 74 71 20 28 61 63 63 29 5d 20 31 30 20 28 23 24 20 2e 20 37 35 36 31 29 5d	each.setq.(acc)].10.(#$...7561)]
2040	29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 27 65 64 65 62 75 67 2d 66	)).(put.'--reduce-from.'edebug-f
2060	6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 37	orm-spec.'(form.form.form)).#@37
2080	33 20 52 65 64 75 63 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 61 63 72 6f 73 73 20	3.Reduce.the.function.FN.across.
20a0	4c 49 53 54 2c 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 49 4e 49 54 2e 0a 52 65 74 75 72 6e	LIST,.starting.with.INIT..Return
20c0	20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 49 4e	.the.result.of.applying.FN.to.IN
20e0	49 54 20 61 6e 64 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 0a 4c 49 53 54	IT.and.the.first.element.of.LIST
2100	2c 20 74 68 65 6e 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 61 74 20 72 65 73 75 6c	,.then.applying.FN.to.that.resul
2120	74 20 61 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 2c 0a 65 74 63 2e 20 20	t.and.the.second.element,.etc...
2140	49 66 20 4c 49 53 54 20 69 73 20 65 6d 70 74 79 2c 20 72 65 74 75 72 6e 20 49 4e 49 54 20 77 69	If.LIST.is.empty,.return.INIT.wi
2160	74 68 6f 75 74 20 63 61 6c 6c 69 6e 67 20 46 4e 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e	thout.calling.FN...This.function
2180	27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72	's.anaphoric.counterpart.is.`--r
21a0	65 64 75 63 65 2d 66 72 6f 6d 27 2e 0a 0a 46 6f 72 20 6f 74 68 65 72 20 66 6f 6c 64 73 2c 20 73	educe-from'...For.other.folds,.s
21c0	65 65 20 61 6c 73 6f 20 60 2d 72 65 64 75 63 65 27 20 61 6e 64 20 60 2d 72 65 64 75 63 65 2d 72	ee.also.`-reduce'.and.`-reduce-r
21e0	27 2e 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73	'...(fn.FN.INIT.LIST)..(defalias
2200	20 27 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 01 01 5c 33 30 30 5c 33 30 31	.'-reduce-from.#[771."..\300\301
2220	5c 32 31 31 03 5c 32 30 33 5c 22 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02	\211.\203\"..\211A\262.\242\262.
2240	02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 07 05 03 5c 22 5c 32 36 32 05 5c 32 30 32 05 00 5c 32	.\262..T\262.....\"\262.\202..\2
2260	36 36 04 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 38 33 32 32 29 5d	66.\207".[0.nil].11.(#$...8322)]
2280	29 0a 23 40 33 36 34 20 41 63 63 75 6d 75 6c 61 74 65 20 61 20 76 61 6c 75 65 20 62 79 20 65 76	).#@364.Accumulate.a.value.by.ev
22a0	61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 20 61 63 72 6f 73 73 20 4c 49 53 54 2e 0a 54 68 69 73 20	aluating.FORM.across.LIST..This.
22c0	6d 61 63 72 6f 20 69 73 20 6c 69 6b 65 20 60 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 20 28 77	macro.is.like.`--reduce-from'.(w
22e0	68 69 63 68 20 73 65 65 29 2c 20 65 78 63 65 70 74 20 74 68 65 20 66 69 72 73 74 0a 65 6c 65 6d	hich.see),.except.the.first.elem
2300	65 6e 74 20 6f 66 20 4c 49 53 54 20 69 73 20 74 61 6b 65 6e 20 61 73 20 49 4e 49 54 2e 20 20 54	ent.of.LIST.is.taken.as.INIT...T
2320	68 75 73 20 69 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 61 20 73 69 6e 67 6c 65 0a 69 74	hus.if.LIST.contains.a.single.it
2340	65 6d 2c 20 69 74 20 69 73 20 72 65 74 75 72 6e 65 64 20 77 69 74 68 6f 75 74 20 65 76 61 6c 75	em,.it.is.returned.without.evalu
2360	61 74 69 6e 67 20 46 4f 52 4d 2e 20 20 49 66 20 4c 49 53 54 20 69 73 20 65 6d 70 74 79 2c 0a 46	ating.FORM...If.LIST.is.empty,.F
2380	4f 52 4d 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 77 69 74 68 20 60 69 74 27 20 61 6e 64 20 60	ORM.is.evaluated.with.`it'.and.`
23a0	61 63 63 27 20 62 6f 75 6e 64 20 74 6f 20 6e 69 6c 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61	acc'.bound.to.nil..This.is.the.a
23c0	6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 64 75 63 65	naphoric.counterpart.to.`-reduce
23e0	27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	'...(fn.FORM.LIST)..(defalias.'-
2400	2d 72 65 64 75 63 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30	-reduce.'(macro...#[514."\300\30
2420	31 21 5c 33 30 32 01 03 44 43 5c 33 30 33 03 5c 33 30 34 06 07 5c 33 30 35 06 07 44 5c 33 30 36	1!\302..DC\303.\304..\305..D\306
2440	06 08 44 46 5c 33 30 32 5c 33 30 37 5c 33 31 30 06 5c 6e 46 46 45 5c 32 30 37 22 20 5b 6d 61 6b	..DF\302\307\310.\nFFE\207".[mak
2460	65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 2d 76 61 6c 75 65 22 20 6c 65 74 20 69 66 20 2d 2d 72	e-symbol."list-value".let.if.--r
2480	65 64 75 63 65 2d 66 72 6f 6d 20 63 61 72 20 63 64 72 20 28 28 61 63 63 20 6e 69 6c 29 20 28 69	educe-from.car.cdr.((acc.nil).(i
24a0	74 20 6e 69 6c 29 29 20 28 69 67 6e 6f 72 65 20 61 63 63 20 69 74 29 5d 20 31 32 20 28 23 24 20	t.nil)).(ignore.acc.it)].12.(#$.
24c0	2e 20 38 38 34 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 65 20 27 65 64 65 62 75	..8840)])).(put.'--reduce.'edebu
24e0	67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 34 32 36 20	g-form-spec.'(form.form)).#@426.
2500	52 65 64 75 63 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 61 63 72 6f 73 73 20 4c 49	Reduce.the.function.FN.across.LI
2520	53 54 2e 0a 52 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 70 70 6c 79 69 6e	ST..Return.the.result.of.applyin
2540	67 20 46 4e 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 20 6f	g.FN.to.the.first.two.elements.o
2560	66 0a 4c 49 53 54 2c 20 74 68 65 6e 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 61 74	f.LIST,.then.applying.FN.to.that
2580	20 72 65 73 75 6c 74 20 61 6e 64 20 74 68 65 20 74 68 69 72 64 20 65 6c 65 6d 65 6e 74 2c 20 65	.result.and.the.third.element,.e
25a0	74 63 2e 0a 49 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 61 20 73 69 6e 67 6c 65 20 65 6c	tc..If.LIST.contains.a.single.el
25c0	65 6d 65 6e 74 2c 20 72 65 74 75 72 6e 20 69 74 20 77 69 74 68 6f 75 74 20 63 61 6c 6c 69 6e 67	ement,.return.it.without.calling
25e0	20 46 4e 2e 0a 49 66 20 4c 49 53 54 20 69 73 20 65 6d 70 74 79 2c 20 72 65 74 75 72 6e 20 74 68	.FN..If.LIST.is.empty,.return.th
2600	65 20 72 65 73 75 6c 74 20 6f 66 20 63 61 6c 6c 69 6e 67 20 46 4e 20 77 69 74 68 20 6e 6f 0a 61	e.result.of.calling.FN.with.no.a
2620	72 67 75 6d 65 6e 74 73 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68	rguments...This.function's.anaph
2640	6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 64 75 63 65 27 2e 0a	oric.counterpart.is.`--reduce'..
2660	0a 46 6f 72 20 6f 74 68 65 72 20 66 6f 6c 64 73 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 72 65 64	.For.other.folds,.see.also.`-red
2680	75 63 65 2d 66 72 6f 6d 27 20 61 6e 64 20 60 2d 72 65 64 75 63 65 2d 72 27 2e 0a 0a 28 66 6e 20	uce-from'.and.`-reduce-r'...(fn.
26a0	46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 65 20 23 5b 35	FN.LIST)..(defalias.'-reduce.#[5
26c0	31 34 20 22 5c 32 31 31 5c 32 30 33 5c 66 00 5c 33 30 30 02 02 40 03 41 23 5c 32 30 37 01 20 5c	14."\211\203\f.\300..@.A#\207..\
26e0	32 30 37 22 20 5b 2d 72 65 64 75 63 65 2d 66 72 6f 6d 5d 20 36 20 28 23 24 20 2e 20 39 34 37 32	207".[-reduce-from].6.(#$...9472
2700	29 5d 29 0a 23 40 32 31 34 20 41 63 63 75 6d 75 6c 61 74 65 20 61 20 76 61 6c 75 65 20 62 79 20	)]).#@214.Accumulate.a.value.by.
2720	65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 20 61 63 72 6f 73 73 20 4c 49 53 54 20 69 6e 20 72	evaluating.FORM.across.LIST.in.r
2740	65 76 65 72 73 65 2e 0a 54 68 69 73 20 6d 61 63 72 6f 20 69 73 20 6c 69 6b 65 20 60 2d 2d 72 65	everse..This.macro.is.like.`--re
2760	64 75 63 65 2d 66 72 6f 6d 27 2c 20 65 78 63 65 70 74 20 69 74 20 73 74 61 72 74 73 20 66 72 6f	duce-from',.except.it.starts.fro
2780	6d 20 74 68 65 20 65 6e 64 0a 6f 66 20 4c 49 53 54 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61	m.the.end.of.LIST..This.is.the.a
27a0	6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 64 75 63 65	naphoric.counterpart.to.`-reduce
27c0	2d 72 2d 66 72 6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a	-r-from'...(fn.FORM.INIT.LIST)..
27e0	28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 27 28 6d 61 63	(defalias.'--reduce-r-from.'(mac
2800	72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 03 44 43 5c 33 30 32 03 5c 33 30 33	ro...#[771."\300\301.DC\302.\303
2820	5c 33 30 31 06 08 45 45 5c 33 30 34 42 42 42 5c 32 30 37 22 20 5b 6c 65 74 20 61 63 63 20 2d 2d	\301..EE\304BBB\207".[let.acc.--
2840	65 61 63 68 2d 72 20 73 65 74 71 20 28 61 63 63 29 5d 20 31 30 20 28 23 24 20 2e 20 39 39 39 34	each-r.setq.(acc)].10.(#$...9994
2860	29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 27 65 64 65 62	)])).(put.'--reduce-r-from.'edeb
2880	75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a	ug-form-spec.'(form.form.form)).
28a0	23 40 38 34 32 20 52 65 64 75 63 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 61 63 72	#@842.Reduce.the.function.FN.acr
28c0	6f 73 73 20 4c 49 53 54 20 69 6e 20 72 65 76 65 72 73 65 2c 20 73 74 61 72 74 69 6e 67 20 77 69	oss.LIST.in.reverse,.starting.wi
28e0	74 68 20 49 4e 49 54 2e 0a 52 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 70	th.INIT..Return.the.result.of.ap
2900	70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 65 20 6c 61 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66	plying.FN.to.the.last.element.of
2920	20 4c 49 53 54 20 61 6e 64 0a 49 4e 49 54 2c 20 74 68 65 6e 20 61 70 70 6c 79 69 6e 67 20 46 4e	.LIST.and.INIT,.then.applying.FN
2940	20 74 6f 20 74 68 65 20 73 65 63 6f 6e 64 2d 74 6f 2d 6c 61 73 74 20 65 6c 65 6d 65 6e 74 20 61	.to.the.second-to-last.element.a
2960	6e 64 20 74 68 65 0a 70 72 65 76 69 6f 75 73 20 72 65 73 75 6c 74 20 6f 66 20 46 4e 2c 20 65 74	nd.the.previous.result.of.FN,.et
2980	63 2e 20 20 54 68 61 74 20 69 73 2c 20 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20	c...That.is,.the.first.argument.
29a0	6f 66 20 46 4e 20 69 73 0a 74 68 65 20 63 75 72 72 65 6e 74 20 65 6c 65 6d 65 6e 74 2c 20 61 6e	of.FN.is.the.current.element,.an
29c0	64 20 69 74 73 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 74 68 65 20 61 63 63 75 6d 75	d.its.second.argument.the.accumu
29e0	6c 61 74 65 64 0a 76 61 6c 75 65 2e 20 20 49 66 20 4c 49 53 54 20 69 73 20 65 6d 70 74 79 2c 20	lated.value...If.LIST.is.empty,.
2a00	72 65 74 75 72 6e 20 49 4e 49 54 20 77 69 74 68 6f 75 74 20 63 61 6c 6c 69 6e 67 20 46 4e 2e 0a	return.INIT.without.calling.FN..
2a20	0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 6c 69 6b 65 20 60 2d 72 65 64 75 63 65 2d	.This.function.is.like.`-reduce-
2a40	66 72 6f 6d 27 20 62 75 74 20 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 20 61 73 73 6f 63 69 61 74	from'.but.the.operation.associat
2a60	65 73 0a 66 72 6f 6d 20 74 68 65 20 72 69 67 68 74 20 72 61 74 68 65 72 20 74 68 61 6e 20 6c 65	es.from.the.right.rather.than.le
2a80	66 74 2e 20 20 49 6e 20 6f 74 68 65 72 20 77 6f 72 64 73 2c 20 69 74 20 73 74 61 72 74 73 20 66	ft...In.other.words,.it.starts.f
2aa0	72 6f 6d 0a 74 68 65 20 65 6e 64 20 6f 66 20 4c 49 53 54 20 61 6e 64 20 66 6c 69 70 73 20 74 68	rom.the.end.of.LIST.and.flips.th
2ac0	65 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 46 4e 2e 20 20 43 6f 6e 63 65 70 74 75 61 6c 6c 79	e.arguments.to.FN...Conceptually
2ae0	2c 20 69 74 0a 69 73 20 6c 69 6b 65 20 72 65 70 6c 61 63 69 6e 67 20 74 68 65 20 63 6f 6e 73 65	,.it.is.like.replacing.the.conse
2b00	73 20 69 6e 20 4c 49 53 54 20 77 69 74 68 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 20 6f 66 20 46	s.in.LIST.with.applications.of.F
2b20	4e 2c 20 61 6e 64 0a 69 74 73 20 6c 61 73 74 20 6c 69 6e 6b 20 77 69 74 68 20 49 4e 49 54 2c 20	N,.and.its.last.link.with.INIT,.
2b40	61 6e 64 20 65 76 61 6c 75 61 74 69 6e 67 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 65 78 70	and.evaluating.the.resulting.exp
2b60	72 65 73 73 69 6f 6e 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f	ression...This.function's.anapho
2b80	72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 64 75 63 65 2d 72 2d 66	ric.counterpart.is.`--reduce-r-f
2ba0	72 6f 6d 27 2e 0a 0a 46 6f 72 20 6f 74 68 65 72 20 66 6f 6c 64 73 2c 20 73 65 65 20 61 6c 73 6f	rom'...For.other.folds,.see.also
2bc0	20 60 2d 72 65 64 75 63 65 2d 72 27 20 61 6e 64 20 60 2d 72 65 64 75 63 65 27 2e 0a 0a 28 66 6e	.`-reduce-r'.and.`-reduce'...(fn
2be0	20 46 4e 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75	.FN.INIT.LIST)..(defalias.'-redu
2c00	63 65 2d 72 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 01 5c 33 30 30 02 21 5c 32 31 31 47 5c 33 30	ce-r-from.#[771.".\300.!\211G\30
2c20	31 5c 32 31 31 02 5c 33 30 32 56 5c 32 30 33 25 00 02 53 5c 32 36 32 03 02 5c 32 36 32 01 03 03	1\211.\302V\203%..S\262..\262...
2c40	48 5c 32 36 32 02 06 07 02 06 06 5c 22 5c 32 36 32 05 5c 32 30 32 08 00 5c 32 36 36 04 5c 32 30	H\262......\"\262.\202..\266.\20
2c60	37 22 20 5b 76 63 6f 6e 63 61 74 20 6e 69 6c 20 30 5d 20 31 31 20 28 23 24 20 2e 20 31 30 34 30	7".[vconcat.nil.0].11.(#$...1040
2c80	36 29 5d 29 0a 23 40 32 30 35 20 41 63 63 75 6d 75 6c 61 74 65 20 61 20 76 61 6c 75 65 20 62 79	6)]).#@205.Accumulate.a.value.by
2ca0	20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 20 61 63 72 6f 73 73 20 4c 49 53 54 20 69 6e 20	.evaluating.FORM.across.LIST.in.
2cc0	72 65 76 65 72 73 65 20 6f 72 64 65 72 2e 0a 54 68 69 73 20 6d 61 63 72 6f 20 69 73 20 6c 69 6b	reverse.order..This.macro.is.lik
2ce0	65 20 60 2d 2d 72 65 64 75 63 65 27 2c 20 65 78 63 65 70 74 20 69 74 20 73 74 61 72 74 73 20 66	e.`--reduce',.except.it.starts.f
2d00	72 6f 6d 20 74 68 65 20 65 6e 64 20 6f 66 0a 4c 49 53 54 2e 0a 54 68 69 73 20 69 73 20 74 68 65	rom.the.end.of.LIST..This.is.the
2d20	20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 64 75	.anaphoric.counterpart.to.`-redu
2d40	63 65 2d 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61	ce-r'...(fn.FORM.LIST)..(defalia
2d60	73 20 27 2d 2d 72 65 64 75 63 65 2d 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c	s.'--reduce-r.'(macro...#[514."\
2d80	33 30 30 02 5c 33 30 31 03 44 45 5c 32 30 37 22 20 5b 2d 2d 72 65 64 75 63 65 20 72 65 76 65 72	300.\301.DE\207".[--reduce.rever
2da0	73 65 5d 20 36 20 28 23 24 20 2e 20 31 31 34 30 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65	se].6.(#$...11403)])).(put.'--re
2dc0	64 75 63 65 2d 72 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20	duce-r.'edebug-form-spec.'(form.
2de0	66 6f 72 6d 29 29 0a 23 40 38 38 37 20 52 65 64 75 63 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e	form)).#@887.Reduce.the.function
2e00	20 46 4e 20 61 63 72 6f 73 73 20 4c 49 53 54 20 69 6e 20 72 65 76 65 72 73 65 2e 0a 52 65 74 75	.FN.across.LIST.in.reverse..Retu
2e20	72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20	rn.the.result.of.applying.FN.to.
2e40	74 68 65 20 6c 61 73 74 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 20 6f 66 0a 4c 49 53 54 2c 20 74	the.last.two.elements.of.LIST,.t
2e60	68 65 6e 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 65 20 74 68 69 72 64 2d 74 6f 2d	hen.applying.FN.to.the.third-to-
2e80	6c 61 73 74 20 65 6c 65 6d 65 6e 74 20 61 6e 64 20 74 68 65 0a 70 72 65 76 69 6f 75 73 20 72 65	last.element.and.the.previous.re
2ea0	73 75 6c 74 20 6f 66 20 46 4e 2c 20 65 74 63 2e 20 20 54 68 61 74 20 69 73 2c 20 74 68 65 20 66	sult.of.FN,.etc...That.is,.the.f
2ec0	69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 6f 66 20 46 4e 20 69 73 0a 74 68 65 20 63 75 72 72 65	irst.argument.of.FN.is.the.curre
2ee0	6e 74 20 65 6c 65 6d 65 6e 74 2c 20 61 6e 64 20 69 74 73 20 73 65 63 6f 6e 64 20 61 72 67 75 6d	nt.element,.and.its.second.argum
2f00	65 6e 74 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 65 64 0a 76 61 6c 75 65 2e 20 20 49 66 20 4c	ent.the.accumulated.value...If.L
2f20	49 53 54 20 63 6f 6e 74 61 69 6e 73 20 61 20 73 69 6e 67 6c 65 20 65 6c 65 6d 65 6e 74 2c 20 72	IST.contains.a.single.element,.r
2f40	65 74 75 72 6e 20 69 74 20 77 69 74 68 6f 75 74 0a 63 61 6c 6c 69 6e 67 20 46 4e 2e 20 20 49 66	eturn.it.without.calling.FN...If
2f60	20 4c 49 53 54 20 69 73 20 65 6d 70 74 79 2c 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c	.LIST.is.empty,.return.the.resul
2f80	74 20 6f 66 20 63 61 6c 6c 69 6e 67 20 46 4e 0a 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74	t.of.calling.FN.with.no.argument
2fa0	73 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 6c 69 6b 65 20 60 2d 72 65 64 75	s...This.function.is.like.`-redu
2fc0	63 65 27 20 62 75 74 20 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 20 61 73 73 6f 63 69 61 74 65 73	ce'.but.the.operation.associates
2fe0	20 66 72 6f 6d 0a 74 68 65 20 72 69 67 68 74 20 72 61 74 68 65 72 20 74 68 61 6e 20 6c 65 66 74	.from.the.right.rather.than.left
3000	2e 20 20 49 6e 20 6f 74 68 65 72 20 77 6f 72 64 73 2c 20 69 74 20 73 74 61 72 74 73 20 66 72 6f	...In.other.words,.it.starts.fro
3020	6d 20 74 68 65 0a 65 6e 64 20 6f 66 20 4c 49 53 54 20 61 6e 64 20 66 6c 69 70 73 20 74 68 65 20	m.the.end.of.LIST.and.flips.the.
3040	61 72 67 75 6d 65 6e 74 73 20 74 6f 20 46 4e 2e 20 20 43 6f 6e 63 65 70 74 75 61 6c 6c 79 2c 20	arguments.to.FN...Conceptually,.
3060	69 74 20 69 73 0a 6c 69 6b 65 20 72 65 70 6c 61 63 69 6e 67 20 74 68 65 20 63 6f 6e 73 65 73 20	it.is.like.replacing.the.conses.
3080	69 6e 20 4c 49 53 54 20 77 69 74 68 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 20 6f 66 20 46 4e 2c	in.LIST.with.applications.of.FN,
30a0	0a 69 67 6e 6f 72 69 6e 67 20 69 74 73 20 6c 61 73 74 20 6c 69 6e 6b 2c 20 61 6e 64 20 65 76 61	.ignoring.its.last.link,.and.eva
30c0	6c 75 61 74 69 6e 67 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 65 78 70 72 65 73 73 69 6f 6e	luating.the.resulting.expression
30e0	2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75	...This.function's.anaphoric.cou
3100	6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 64 75 63 65 2d 72 27 2e 0a 0a 46 6f 72 20 6f	nterpart.is.`--reduce-r'...For.o
3120	74 68 65 72 20 66 6f 6c 64 73 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 72 65 64 75 63 65 2d 72 2d	ther.folds,.see.also.`-reduce-r-
3140	66 72 6f 6d 27 20 61 6e 64 20 60 2d 72 65 64 75 63 65 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53	from'.and.`-reduce'...(fn.FN.LIS
3160	54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 65 2d 72 20 23 5b 35 31 34 20 22	T)..(defalias.'-reduce-r.#[514."
3180	5c 32 31 31 5c 32 30 33 38 00 5c 33 30 30 01 21 5c 32 31 31 5c 32 30 33 33 00 5c 32 31 31 40 01	\211\2038.\300.!\211\2033.\211@.
31a0	41 5c 33 30 31 5c 33 30 32 5c 32 31 31 03 5c 32 30 33 30 00 03 5c 32 31 31 41 5c 32 36 32 05 5c	A\301\302\211.\2030..\211A\262.\
31c0	32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 07 02 06 06 5c 22 5c 32 36 32	242\262..\262..T\262......\"\262
31e0	05 5c 32 30 32 12 00 5c 32 36 36 04 5c 32 30 37 02 5c 33 30 32 5c 32 31 31 5c 22 5c 32 30 37 01	.\202..\266.\207.\302\211\"\207.
3200	20 5c 32 30 37 22 20 5b 72 65 76 65 72 73 65 20 30 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20	.\207".[reverse.0.nil].11.(#$...
3220	31 31 37 35 37 29 5d 29 0a 23 40 32 37 30 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20	11757)]).#@270.Return.a.list.of.
3240	46 4f 52 4d 27 73 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 72 65 64 75 63 74 69 6f 6e 73 20 61	FORM's.intermediate.reductions.a
3260	63 72 6f 73 73 20 4c 49 53 54 2e 0a 54 68 61 74 20 69 73 2c 20 61 20 6c 69 73 74 20 6f 66 20 74	cross.LIST..That.is,.a.list.of.t
3280	68 65 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 61 63	he.intermediate.values.of.the.ac
32a0	63 75 6d 75 6c 61 74 6f 72 0a 77 68 65 6e 20 60 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 20 28	cumulator.when.`--reduce-from'.(
32c0	77 68 69 63 68 20 73 65 65 29 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20 73 61	which.see).is.called.with.the.sa
32e0	6d 65 0a 61 72 67 75 6d 65 6e 74 73 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f	me.arguments..This.is.the.anapho
3300	72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d	ric.counterpart.to.`-reductions-
3320	66 72 6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a 28 64 65	from'...(fn.FORM.INIT.LIST)..(de
3340	66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 20 27 28 6d 61 63 72	falias.'--reductions-from.'(macr
3360	6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c	o...#[771."\300\301\302\303\304\
3380	33 30 35 06 08 46 5c 33 30 36 42 42 5c 33 30 37 05 44 04 46 44 5c 32 30 37 22 20 5b 6e 72 65 76	305..F\306BB\307.D.FD\207".[nrev
33a0	65 72 73 65 20 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 63 6f 6e 73 20 6c 65 74 20 28 28 61 63	erse.--reduce-from.cons.let.((ac
33c0	63 20 28 63 61 72 20 61 63 63 29 29 29 20 28 69 67 6e 6f 72 65 20 61 63 63 29 20 28 61 63 63 29	c.(car.acc))).(ignore.acc).(acc)
33e0	20 6c 69 73 74 5d 20 31 30 20 28 23 24 20 2e 20 31 32 38 34 37 29 5d 29 29 0a 28 70 75 74 20 27	.list].10.(#$...12847)])).(put.'
3400	2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73	--reductions-from.'edebug-form-s
3420	70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 33 33 20 52 65 74	pec.'(form.form.form)).#@333.Ret
3440	75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 46 4e 27 73 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20	urn.a.list.of.FN's.intermediate.
3460	72 65 64 75 63 74 69 6f 6e 73 20 61 63 72 6f 73 73 20 4c 49 53 54 2e 0a 54 68 61 74 20 69 73 2c	reductions.across.LIST..That.is,
3480	20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 76 61 6c 75	.a.list.of.the.intermediate.valu
34a0	65 73 20 6f 66 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 6f 72 0a 77 68 65 6e 20 60 2d 72 65 64	es.of.the.accumulator.when.`-red
34c0	75 63 65 2d 66 72 6f 6d 27 20 28 77 68 69 63 68 20 73 65 65 29 20 69 73 20 63 61 6c 6c 65 64 20	uce-from'.(which.see).is.called.
34e0	77 69 74 68 20 74 68 65 20 73 61 6d 65 0a 61 72 67 75 6d 65 6e 74 73 2e 0a 0a 54 68 69 73 20 66	with.the.same.arguments...This.f
3500	75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20	unction's.anaphoric.counterpart.
3520	69 73 20 60 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 27 2e 0a 0a 46 6f 72 20 6f 74 68	is.`--reductions-from'...For.oth
3540	65 72 20 66 6f 6c 64 73 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 27	er.folds,.see.also.`-reductions'
3560	20 61 6e 64 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 27 2e 0a 0a 28 66 6e 20 46 4e 20 49 4e	.and.`-reductions-r'...(fn.FN.IN
3580	49 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 74 69 6f 6e 73	IT.LIST)..(defalias.'-reductions
35a0	2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 01 43 01 5c 33 30 30 5c 33 30 31 5c 32 31 31 03 5c 32 30	-from.#[771.".C.\300\301\211.\20
35c0	33 29 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c	3)..\211A\262.\242\262..\262..T\
35e0	32 36 32 03 04 40 06 08 01 04 5c 22 5c 32 36 32 01 05 42 5c 32 36 32 05 5c 32 30 32 06 00 5c 32	262..@....\"\262..B\262.\202..\2
3600	36 36 04 5c 32 31 31 5c 32 36 32 01 5c 32 33 37 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 32	66.\211\262.\237\207".[0.nil].12
3620	20 28 23 24 20 2e 20 31 33 33 37 33 29 5d 29 0a 23 40 32 35 35 20 52 65 74 75 72 6e 20 61 20 6c	.(#$...13373)]).#@255.Return.a.l
3640	69 73 74 20 6f 66 20 46 4f 52 4d 27 73 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 72 65 64 75 63	ist.of.FORM's.intermediate.reduc
3660	74 69 6f 6e 73 20 61 63 72 6f 73 73 20 4c 49 53 54 2e 0a 54 68 61 74 20 69 73 2c 20 61 20 6c 69	tions.across.LIST..That.is,.a.li
3680	73 74 20 6f 66 20 74 68 65 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 76 61 6c 75 65 73 20 6f 66	st.of.the.intermediate.values.of
36a0	20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 6f 72 0a 77 68 65 6e 20 60 2d 2d 72 65 64 75 63 65 27	.the.accumulator.when.`--reduce'
36c0	20 28 77 68 69 63 68 20 73 65 65 29 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20	.(which.see).is.called.with.the.
36e0	73 61 6d 65 20 61 72 67 75 6d 65 6e 74 73 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70	same.arguments..This.is.the.anap
3700	68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 64 75 63 74 69 6f 6e	horic.counterpart.to.`-reduction
3720	73 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	s'...(fn.FORM.LIST)..(defalias.'
3740	2d 2d 72 65 64 75 63 74 69 6f 6e 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33	--reductions.'(macro...#[514."\3
3760	30 30 5c 33 30 31 21 5c 33 30 32 01 03 44 43 5c 33 30 33 03 5c 33 30 34 06 07 5c 33 30 35 06 07	00\301!\302..DC\303.\304..\305..
3780	44 5c 33 30 36 06 08 44 46 5c 33 30 32 5c 33 30 37 5c 33 31 30 5c 33 31 31 06 0b 44 46 46 45 5c	D\306..DF\302\307\310\311..DFFE\
37a0	32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 2d 76 61 6c 75 65 22 20 6c	207".[make-symbol."list-value".l
37c0	65 74 20 69 66 20 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 20 63 61 72 20 63 64 72 20	et.if.--reductions-from.car.cdr.
37e0	28 61 63 63 20 69 74 29 20 28 69 67 6e 6f 72 65 20 61 63 63 20 69 74 29 20 6c 69 73 74 5d 20 31	(acc.it).(ignore.acc.it).list].1
3800	33 20 28 23 24 20 2e 20 31 33 38 37 38 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 74	3.(#$...13878)])).(put.'--reduct
3820	69 6f 6e 73 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f	ions.'edebug-form-spec.'(form.fo
3840	72 6d 29 29 0a 23 40 33 31 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 46 4e 27 73	rm)).#@318.Return.a.list.of.FN's
3860	20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 72 65 64 75 63 74 69 6f 6e 73 20 61 63 72 6f 73 73 20	.intermediate.reductions.across.
3880	4c 49 53 54 2e 0a 54 68 61 74 20 69 73 2c 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 6e 74	LIST..That.is,.a.list.of.the.int
38a0	65 72 6d 65 64 69 61 74 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 61 63 63 75 6d 75 6c 61	ermediate.values.of.the.accumula
38c0	74 6f 72 0a 77 68 65 6e 20 60 2d 72 65 64 75 63 65 27 20 28 77 68 69 63 68 20 73 65 65 29 20 69	tor.when.`-reduce'.(which.see).i
38e0	73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 61 72 67 75 6d 65 6e 74 73	s.called.with.the.same.arguments
3900	2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75	...This.function's.anaphoric.cou
3920	6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 64 75 63 74 69 6f 6e 73 27 2e 0a 0a 46 6f 72	nterpart.is.`--reductions'...For
3940	20 6f 74 68 65 72 20 66 6f 6c 64 73 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 72 65 64 75 63 74 69	.other.folds,.see.also.`-reducti
3960	6f 6e 73 27 20 61 6e 64 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 27 2e 0a 0a 28 66 6e 20 46	ons'.and.`-reductions-r'...(fn.F
3980	4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 74 69 6f 6e 73 20	N.LIST)..(defalias.'-reductions.
39a0	23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 36 00 5c 32 31 31 40 43 01 41 5c 33 30 30 5c 33 30	#[514."\211\2036.\211@C.A\300\30
39c0	31 5c 32 31 31 03 5c 32 30 33 2f 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02	1\211.\203/..\211A\262.\242\262.
39e0	02 5c 32 36 32 01 02 54 5c 32 36 32 03 04 40 06 07 01 04 5c 22 5c 32 36 32 01 05 42 5c 32 36 32	.\262..T\262..@....\"\262..B\262
3a00	05 5c 32 30 32 5c 66 00 5c 32 36 36 04 5c 32 31 31 5c 32 36 32 01 5c 32 33 37 5c 32 30 37 01 20	.\202\f.\266.\211\262.\237\207..
3a20	43 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 31 34 34 31 31 29 5d 29	C\207".[0.nil].11.(#$...14411)])
3a40	0a 23 40 32 38 33 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 46 4f 52 4d 27 73 20 69	.#@283.Return.a.list.of.FORM's.i
3a60	6e 74 65 72 6d 65 64 69 61 74 65 20 72 65 64 75 63 74 69 6f 6e 73 20 61 63 72 6f 73 73 20 72 65	ntermediate.reductions.across.re
3a80	76 65 72 73 65 64 20 4c 49 53 54 2e 0a 54 68 61 74 20 69 73 2c 20 61 20 6c 69 73 74 20 6f 66 20	versed.LIST..That.is,.a.list.of.
3aa0	74 68 65 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 61	the.intermediate.values.of.the.a
3ac0	63 63 75 6d 75 6c 61 74 6f 72 0a 77 68 65 6e 20 60 2d 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d	ccumulator.when.`--reduce-r-from
3ae0	27 20 28 77 68 69 63 68 20 73 65 65 29 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65	'.(which.see).is.called.with.the
3b00	20 73 61 6d 65 0a 61 72 67 75 6d 65 6e 74 73 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61	.same.arguments..This.is.the.ana
3b20	70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 64 75 63 74 69 6f	phoric.counterpart.to.`-reductio
3b40	6e 73 2d 72 2d 66 72 6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 54 20 4c 49 53 54 29	ns-r-from'...(fn.FORM.INIT.LIST)
3b60	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d	..(defalias.'--reductions-r-from
3b80	20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	.'(macro...#[771."\300\301\302\3
3ba0	30 33 5c 33 30 34 06 07 46 5c 33 30 35 42 42 5c 33 30 36 04 44 03 46 5c 32 30 37 22 20 5b 2d 2d	03\304..F\305BB\306.D.F\207".[--
3bc0	72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 63 6f 6e 73 20 6c 65 74 20 28 28 61 63 63 20 28 63 61	reduce-r-from.cons.let.((acc.(ca
3be0	72 20 61 63 63 29 29 29 20 28 69 67 6e 6f 72 65 20 61 63 63 29 20 28 61 63 63 29 20 6c 69 73 74	r.acc))).(ignore.acc).(acc).list
3c00	5d 20 39 20 28 23 24 20 2e 20 31 34 39 31 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75	].9.(#$...14919)])).(put.'--redu
3c20	63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20	ctions-r-from.'edebug-form-spec.
3c40	27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 34 36 20 52 65 74 75 72 6e 20	'(form.form.form)).#@346.Return.
3c60	61 20 6c 69 73 74 20 6f 66 20 46 4e 27 73 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 72 65 64 75	a.list.of.FN's.intermediate.redu
3c80	63 74 69 6f 6e 73 20 61 63 72 6f 73 73 20 72 65 76 65 72 73 65 64 20 4c 49 53 54 2e 0a 54 68 61	ctions.across.reversed.LIST..Tha
3ca0	74 20 69 73 2c 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 6e 74 65 72 6d 65 64 69 61 74 65	t.is,.a.list.of.the.intermediate
3cc0	20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 6f 72 0a 77 68 65 6e 20	.values.of.the.accumulator.when.
3ce0	60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 20 28 77 68 69 63 68 20 73 65 65 29 20 69 73 20	`-reduce-r-from'.(which.see).is.
3d00	63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 0a 61 72 67 75 6d 65 6e 74 73 2e 0a	called.with.the.same.arguments..
3d20	0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74	.This.function's.anaphoric.count
3d40	65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 27 2e	erpart.is.`--reductions-r-from'.
3d60	0a 0a 46 6f 72 20 6f 74 68 65 72 20 66 6f 6c 64 73 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 72 65	..For.other.folds,.see.also.`-re
3d80	64 75 63 74 69 6f 6e 73 27 20 61 6e 64 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 27 2e 0a 0a	ductions'.and.`-reductions-r'...
3da0	28 66 6e 20 46 4e 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72	(fn.FN.INIT.LIST)..(defalias.'-r
3dc0	65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 01 43 5c 33 30 30 02 21	eductions-r-from.#[771.".C\300.!
3de0	5c 32 31 31 47 5c 33 30 31 5c 32 31 31 02 5c 33 30 32 56 5c 32 30 33 2b 00 02 53 5c 32 36 32 03	\211G\301\211.\302V\203+..S\262.
3e00	02 5c 32 36 32 01 03 03 48 5c 32 36 32 02 04 40 06 08 03 02 5c 22 5c 32 36 32 01 05 42 5c 32 36	.\262...H\262..@....\"\262..B\26
3e20	32 05 5c 32 30 32 09 00 5c 32 36 36 04 5c 32 30 37 22 20 5b 76 63 6f 6e 63 61 74 20 6e 69 6c 20	2.\202..\266.\207".[vconcat.nil.
3e40	30 5d 20 31 32 20 28 23 24 20 2e 20 31 35 34 34 39 29 5d 29 0a 23 40 32 36 39 20 52 65 74 75 72	0].12.(#$...15449)]).#@269.Retur
3e60	6e 20 61 20 6c 69 73 74 20 6f 66 20 46 4f 52 4d 27 73 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20	n.a.list.of.FORM's.intermediate.
3e80	72 65 64 75 63 74 69 6f 6e 73 20 61 63 72 6f 73 73 20 72 65 76 65 72 73 65 64 20 4c 49 53 54 2e	reductions.across.reversed.LIST.
3ea0	0a 54 68 61 74 20 69 73 2c 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 6e 74 65 72 6d 65 64	.That.is,.a.list.of.the.intermed
3ec0	69 61 74 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 6f 72 0a 77	iate.values.of.the.accumulator.w
3ee0	68 65 6e 20 60 2d 2d 72 65 64 75 63 65 2d 72 65 27 20 28 77 68 69 63 68 20 73 65 65 29 20 69 73	hen.`--reduce-re'.(which.see).is
3f00	20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 61 72 67 75 6d 65 6e 74 73 2e	.called.with.the.same.arguments.
3f20	0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61	.This.is.the.anaphoric.counterpa
3f40	72 74 20 74 6f 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d	rt.to.`-reductions-r'...(fn.FORM
3f60	20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d	.LIST)..(defalias.'--reductions-
3f80	72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32	r.'(macro...#[514."\300\301!\302
3fa0	01 5c 33 30 33 04 44 44 43 5c 33 30 34 03 5c 33 30 35 5c 33 30 36 5c 33 30 32 5c 33 30 37 5c 33	.\303.DDC\304.\305\306\302\307\3
3fc0	31 30 06 0b 46 5c 33 31 31 42 42 5c 33 31 32 5c 33 31 33 06 08 44 44 5c 33 31 34 06 08 44 46 5c	10..F\311BB\312\313..DD\314..DF\
3fe0	33 30 32 5c 33 31 35 5c 33 31 36 5c 33 31 32 06 0b 44 46 46 45 5c 32 30 37 22 20 5b 6d 61 6b 65	302\315\316\312..DFFE\207".[make
4000	2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 2d 76 61 6c 75 65 22 20 6c 65 74 20 72 65 76 65 72 73 65	-symbol."list-value".let.reverse
4020	20 69 66 20 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 63 6f 6e 73 20 28 28 61 63 63 20 28 63 61	.if.--reduce-from.cons.((acc.(ca
4040	72 20 61 63 63 29 29 29 20 28 69 67 6e 6f 72 65 20 61 63 63 29 20 28 61 63 63 29 20 6c 69 73 74	r.acc))).(ignore.acc).(acc).list
4060	20 63 61 72 20 63 64 72 20 28 28 61 63 63 20 6e 69 6c 29 20 28 69 74 20 6e 69 6c 29 29 20 28 69	.car.cdr.((acc.nil).(it.nil)).(i
4080	67 6e 6f 72 65 20 61 63 63 20 69 74 29 5d 20 31 33 20 28 23 24 20 2e 20 31 35 39 36 33 29 5d 29	gnore.acc.it)].13.(#$...15963)])
40a0	29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 20 27 65 64 65 62 75 67 2d 66	).(put.'--reductions-r.'edebug-f
40c0	6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 6c 69 73 74 29 29 0a 23 40 33 33 36 20 52 65 74	orm-spec.'(form.list)).#@336.Ret
40e0	75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 46 4e 27 73 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20	urn.a.list.of.FN's.intermediate.
4100	72 65 64 75 63 74 69 6f 6e 73 20 61 63 72 6f 73 73 20 72 65 76 65 72 73 65 64 20 4c 49 53 54 2e	reductions.across.reversed.LIST.
4120	0a 54 68 61 74 20 69 73 2c 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 6e 74 65 72 6d 65 64	.That.is,.a.list.of.the.intermed
4140	69 61 74 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 6f 72 0a 77	iate.values.of.the.accumulator.w
4160	68 65 6e 20 60 2d 72 65 64 75 63 65 2d 72 27 20 28 77 68 69 63 68 20 73 65 65 29 20 69 73 20 63	hen.`-reduce-r'.(which.see).is.c
4180	61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 61 72 67 75 6d 65 6e 74 73 2e 0a 0a	alled.with.the.same.arguments...
41a0	54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65	This.function's.anaphoric.counte
41c0	72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 27 2e 0a 0a 46 6f 72 20	rpart.is.`--reductions-r'...For.
41e0	6f 74 68 65 72 20 66 6f 6c 64 73 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 72 65 64 75 63 74 69 6f	other.folds,.see.also.`-reductio
4200	6e 73 2d 72 2d 66 72 6f 6d 27 20 61 6e 64 0a 60 2d 72 65 64 75 63 74 69 6f 6e 73 27 2e 0a 0a 28	ns-r-from'.and.`-reductions'...(
4220	66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 74 69	fn.FN.LIST)..(defalias.'-reducti
4240	6f 6e 73 2d 72 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 3f 00 5c 33 30 30 01 21 5c 32 31	ons-r.#[514."\211\203?.\300.!\21
4260	31 5c 32 30 33 39 00 5c 32 31 31 40 43 01 41 5c 33 30 31 5c 33 30 32 5c 32 31 31 03 5c 32 30 33	1\2039.\211@C.A\301\302\211.\203
4280	36 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32	6..\211A\262.\242\262..\262..T\2
42a0	36 32 03 04 40 06 08 03 02 5c 22 5c 32 36 32 01 05 42 5c 32 36 32 05 5c 32 30 32 13 00 5c 32 36	62..@....\"\262..B\262.\202..\26
42c0	36 04 5c 32 30 37 02 5c 33 30 32 5c 32 31 31 5c 22 43 5c 32 30 37 01 20 43 5c 32 30 37 22 20 5b	6.\207.\302\211\"C\207..C\207".[
42e0	72 65 76 65 72 73 65 20 30 20 6e 69 6c 5d 20 31 32 20 28 23 24 20 2e 20 31 36 36 30 35 29 5d 29	reverse.0.nil].12.(#$...16605)])
4300	0a 23 40 32 39 36 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20	.#@296.Return.a.new.list.of.the.
4320	69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61	items.in.LIST.for.which.FORM.eva
4340	6c 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c	ls.to.non-nil..Each.element.of.L
4360	49 53 54 20 69 6e 20 74 75 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64	IST.in.turn.is.bound.to.`it'.and
4380	20 69 74 73 20 69 6e 64 65 78 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e	.its.index.within.LIST.to.`it-in
43a0	64 65 78 27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 0a 54 68 69	dex'.before.evaluating.FORM..Thi
43c0	73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74	s.is.the.anaphoric.counterpart.t
43e0	6f 20 60 2d 66 69 6c 74 65 72 27 2e 0a 46 6f 72 20 74 68 65 20 6f 70 70 6f 73 69 74 65 20 6f 70	o.`-filter'..For.the.opposite.op
4400	65 72 61 74 69 6f 6e 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 2d 72 65 6d 6f 76 65 27 2e 0a 0a 28	eration,.see.also.`--remove'...(
4420	66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 6c 74	fn.FORM.LIST)..(defalias.'--filt
4440	65 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30	er.'(macro...#[514."\300\301!\30
4460	32 01 43 5c 33 30 33 04 5c 33 30 34 06 07 5c 33 30 35 5c 33 30 36 06 08 45 45 45 5c 33 30 37 04	2.C\303.\304..\305\306..EEE\307.
4480	44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 6c 65	DF\207".[make-symbol."result".le
44a0	74 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 70 75 73 68 20 69 74 20 6e 72 65 76 65 72 73 65 5d 20	t.--each.when.push.it.nreverse].
44c0	31 32 20 28 23 24 20 2e 20 31 37 31 35 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 6c 74 65	12.(#$...17159)])).(put.'--filte
44e0	72 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29	r.'edebug-form-spec.'(form.form)
4500	29 0a 23 40 32 31 38 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65	).#@218.Return.a.new.list.of.the
4520	20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65	.items.in.LIST.for.which.PRED.re
4540	74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 73 65 6c 65 63 74 27	turns.non-nil...Alias:.`-select'
4560	2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75	...This.function's.anaphoric.cou
4580	6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 66 69 6c 74 65 72 27 2e 0a 0a 46 6f 72 20 73 69 6d	nterpart.is.`--filter'...For.sim
45a0	69 6c 61 72 20 6f 70 65 72 61 74 69 6f 6e 73 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 6b 65 65 70	ilar.operations,.see.also.`-keep
45c0	27 20 61 6e 64 20 60 2d 72 65 6d 6f 76 65 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29	'.and.`-remove'...(fn.PRED.LIST)
45e0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6c 74 65 72 20 23 5b 35 31 34 20 22 5c 33 30 30	..(defalias.'-filter.#[514."\300
4600	01 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 27 00 03 5c 32 31 31 41 5c 32 36 32 05 5c	.\301\300\211.\203'..\211A\262.\
4620	32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 06 02 21 5c 32 30 33 05 00 01	242\262..\262..T\262....!\203...
4640	05 42 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20	.B\262.\202..\266.\211\237\207".
4660	5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 31 37 36 37 32 29 5d 29 0a 28 62 79 74 65 2d 63	[nil.0].9.(#$...17672)]).(byte-c
4680	6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c	ode."\300\301\302\"\210\300\303\
46a0	33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 73 65 6c 65 63 74 20 2d 66 69	304\"\207".[defalias.-select.-fi
46c0	6c 74 65 72 20 2d 2d 73 65 6c 65 63 74 20 2d 2d 66 69 6c 74 65 72 5d 20 33 29 0a 23 40 32 39 32	lter.--select.--filter].3).#@292
46e0	20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 74 65 6d 73 20	.Return.a.new.list.of.the.items.
4700	69 6e 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20	in.LIST.for.which.FORM.evals.to.
4720	6e 69 6c 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72	nil..Each.element.of.LIST.in.tur
4740	6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 78	n.is.bound.to.`it'.and.its.index
4760	0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 66 6f 72	.within.LIST.to.`it-index'.befor
4780	65 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61	e.evaluating.FORM..This.is.the.a
47a0	6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 6d 6f 76 65	naphoric.counterpart.to.`-remove
47c0	27 2e 0a 46 6f 72 20 74 68 65 20 6f 70 70 6f 73 69 74 65 20 6f 70 65 72 61 74 69 6f 6e 2c 20 73	'..For.the.opposite.operation,.s
47e0	65 65 20 61 6c 73 6f 20 60 2d 2d 66 69 6c 74 65 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49	ee.also.`--filter'...(fn.FORM.LI
4800	53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 6d 6f 76 65 20 27 28 6d 61 63 72 6f	ST)..(defalias.'--remove.'(macro
4820	20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 44 02 45 5c 32 30 37 22 20 5b 2d 2d 66	...#[514."\300\301.D.E\207".[--f
4840	69 6c 74 65 72 20 6e 6f 74 5d 20 35 20 28 23 24 20 2e 20 31 38 31 34 35 29 5d 29 29 0a 28 70 75	ilter.not].5.(#$...18145)])).(pu
4860	74 20 27 2d 2d 72 65 6d 6f 76 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28	t.'--remove.'edebug-form-spec.'(
4880	66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 31 34 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c	form.form)).#@214.Return.a.new.l
48a0	69 73 74 20 6f 66 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 66 6f 72 20 77 68 69	ist.of.the.items.in.LIST.for.whi
48c0	63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72	ch.PRED.returns.nil...Alias:.`-r
48e0	65 6a 65 63 74 27 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72	eject'...This.function's.anaphor
4900	69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 6d 6f 76 65 27 2e 0a 0a 46	ic.counterpart.is.`--remove'...F
4920	6f 72 20 73 69 6d 69 6c 61 72 20 6f 70 65 72 61 74 69 6f 6e 73 2c 20 73 65 65 20 61 6c 73 6f 20	or.similar.operations,.see.also.
4940	60 2d 6b 65 65 70 27 20 61 6e 64 20 60 2d 66 69 6c 74 65 72 27 2e 0a 0a 28 66 6e 20 50 52 45 44	`-keep'.and.`-filter'...(fn.PRED
4960	20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 20 23 5b 35 31 34	.LIST)..(defalias.'-remove.#[514
4980	20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 27 00 03 5c 32 31 31 41	."\300.\301\300\211.\203'..\211A
49a0	5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 06 02 21 5c	\262.\242\262..\262..T\262....!\
49c0	32 30 34 05 00 01 05 42 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37	204....B\262.\202..\266.\211\237
49e0	5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 31 38 35 37 38 29 5d 29 0a 28	\207".[nil.0].9.(#$...18578)]).(
4a00	62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30	byte-code."\300\301\302\"\210\30
4a20	30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 72 65 6a 65	0\303\304\"\207".[defalias.-reje
4a40	63 74 20 2d 72 65 6d 6f 76 65 20 2d 2d 72 65 6a 65 63 74 20 2d 2d 72 65 6d 6f 76 65 5d 20 33 29	ct.-remove.--reject.--remove].3)
4a60	0a 23 40 34 34 36 20 52 65 6d 6f 76 65 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 66 72 6f	.#@446.Remove.the.first.item.fro
4a80	6d 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20 6e	m.LIST.for.which.FORM.evals.to.n
4aa0	6f 6e 2d 6e 69 6c 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20	on-nil..Each.element.of.LIST.in.
4ac0	74 75 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e	turn.is.bound.to.`it'.and.its.in
4ae0	64 65 78 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65	dex.within.LIST.to.`it-index'.be
4b00	66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 20 20 54 68 69 73 20 69 73 20 61	fore.evaluating.FORM...This.is.a
4b20	0a 6e 6f 6e 2d 64 65 73 74 72 75 63 74 69 76 65 20 6f 70 65 72 61 74 69 6f 6e 2c 20 62 75 74 20	.non-destructive.operation,.but.
4b40	6f 6e 6c 79 20 74 68 65 20 66 72 6f 6e 74 20 6f 66 20 4c 49 53 54 20 6c 65 61 64 69 6e 67 20 75	only.the.front.of.LIST.leading.u
4b60	70 0a 74 6f 20 74 68 65 20 72 65 6d 6f 76 65 64 20 69 74 65 6d 20 69 73 20 61 20 63 6f 70 79 3b	p.to.the.removed.item.is.a.copy;
4b80	20 74 68 65 20 72 65 73 74 20 69 73 20 4c 49 53 54 27 73 20 6f 72 69 67 69 6e 61 6c 20 74 61 69	.the.rest.is.LIST's.original.tai
4ba0	6c 2e 0a 49 66 20 6e 6f 20 69 74 65 6d 20 69 73 20 72 65 6d 6f 76 65 64 2c 20 74 68 65 6e 20 74	l..If.no.item.is.removed,.then.t
4bc0	68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 63 6f 6d 70 6c 65 74 65 20 63 6f 70 79 2e 0a 54 68	he.result.is.a.complete.copy..Th
4be0	69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20	is.is.the.anaphoric.counterpart.
4c00	74 6f 20 60 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49	to.`-remove-first'...(fn.FORM.LI
4c20	53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 27	ST)..(defalias.'--remove-first.'
4c40	28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30	(macro...#[514."\300\301!\300\30
4c60	32 21 5c 33 30 33 01 04 44 03 44 5c 33 30 34 03 5c 33 30 35 06 08 44 5c 33 30 36 5c 33 30 37 06	2!\303..D.D\304.\305..D\306\307.
4c80	07 44 06 08 45 46 5c 33 31 30 04 5c 33 31 31 5c 33 31 32 06 08 44 5c 33 31 33 06 08 44 45 5c 33	.D..EF\310.\311\312..D\313..DE\3
4ca0	31 32 06 08 44 46 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 66 72 6f 6e 74	12..DFF\207".[make-symbol."front
4cc0	22 20 22 74 61 69 6c 22 20 6c 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 6e 6f 74 20 70 75	"."tail".let.--each-while.not.pu
4ce0	73 68 20 70 6f 70 20 69 66 20 6e 63 6f 6e 63 20 6e 72 65 76 65 72 73 65 20 63 64 72 5d 20 31 33	sh.pop.if.nconc.nreverse.cdr].13
4d00	20 28 23 24 20 2e 20 31 39 30 34 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 6d 6f 76 65 2d	.(#$...19047)])).(put.'--remove-
4d20	66 69 72 73 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66	first.'edebug-form-spec.'(form.f
4d40	6f 72 6d 29 29 0a 23 40 34 32 36 20 52 65 6d 6f 76 65 20 74 68 65 20 66 69 72 73 74 20 69 74 65	orm)).#@426.Remove.the.first.ite
4d60	6d 20 66 72 6f 6d 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72	m.from.LIST.for.which.PRED.retur
4d80	6e 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 54 68 69 73 20 69 73 20 61 20 6e 6f 6e 2d 64 65 73 74 72 75	ns.non-nil..This.is.a.non-destru
4da0	63 74 69 76 65 20 6f 70 65 72 61 74 69 6f 6e 2c 20 62 75 74 20 6f 6e 6c 79 20 74 68 65 20 66 72	ctive.operation,.but.only.the.fr
4dc0	6f 6e 74 20 6f 66 20 4c 49 53 54 0a 6c 65 61 64 69 6e 67 20 75 70 20 74 6f 20 74 68 65 20 72 65	ont.of.LIST.leading.up.to.the.re
4de0	6d 6f 76 65 64 20 69 74 65 6d 20 69 73 20 61 20 63 6f 70 79 3b 20 74 68 65 20 72 65 73 74 20 69	moved.item.is.a.copy;.the.rest.i
4e00	73 20 4c 49 53 54 27 73 0a 6f 72 69 67 69 6e 61 6c 20 74 61 69 6c 2e 20 20 49 66 20 6e 6f 20 69	s.LIST's.original.tail...If.no.i
4e20	74 65 6d 20 69 73 20 72 65 6d 6f 76 65 64 2c 20 74 68 65 6e 20 74 68 65 20 72 65 73 75 6c 74 20	tem.is.removed,.then.the.result.
4e40	69 73 20 61 0a 63 6f 6d 70 6c 65 74 65 20 63 6f 70 79 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65	is.a.complete.copy...Alias:.`-re
4e60	6a 65 63 74 2d 66 69 72 73 74 27 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e	ject-first'...This.function's.an
4e80	61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 6d 6f 76 65	aphoric.counterpart.is.`--remove
4ea0	2d 66 69 72 73 74 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 6d 61 70 2d 66 69 72 73 74 27 2c	-first'...See.also.`-map-first',
4ec0	20 60 2d 72 65 6d 6f 76 65 2d 69 74 65 6d 27 2c 20 61 6e 64 20 60 2d 72 65 6d 6f 76 65 2d 6c 61	.`-remove-item',.and.`-remove-la
4ee0	73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	st'...(fn.PRED.LIST)..(defalias.
4f00	27 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30 02 5c	'-remove-first.#[514."\211\300.\
4f20	33 30 31 5c 33 30 30 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 3d 00 04 5c 32 31 31 41 5c 32 36 32	301\300\211\211.\203=..\211A\262
4f40	06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 3d 00	.\242\262..\262..\211\262.\203=.
4f60	06 08 02 21 5c 32 30 34 3d 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 06 06 5c	...!\204=..\262..\262..T\262...\
4f80	32 31 31 41 5c 32 36 32 08 5c 32 34 32 06 06 42 5c 32 36 32 06 5c 32 30 32 07 00 5c 32 36 36 05	211A\262.\242..B\262.\202..\266.
4fa0	01 5c 32 30 33 49 00 5c 32 31 31 5c 32 33 37 02 41 5c 32 34 34 5c 32 30 37 5c 32 31 31 5c 32 33	.\203I.\211\237.A\244\207\211\23
4fc0	37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 31 20 28 23 24 20 2e 20 31 39 37 38 38 29 5d 29	7\207".[nil.0].11.(#$...19788)])
4fe0	0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c	.(byte-code."\300\301\302\"\210\
5000	33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 72 65	300\303\304\"\207".[defalias.-re
5020	6a 65 63 74 2d 66 69 72 73 74 20 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 2d 2d 72 65 6a 65 63	ject-first.-remove-first.--rejec
5040	74 2d 66 69 72 73 74 20 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 5d 20 33 29 0a 23 40 32 37 39	t-first.--remove-first].3).#@279
5060	20 52 65 6d 6f 76 65 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 20 66 72 6f 6d 20 4c 49 53 54 20	.Remove.the.last.item.from.LIST.
5080	66 6f 72 20 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2e	for.which.FORM.evals.to.non-nil.
50a0	0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e 20 69 73	.Each.element.of.LIST.in.turn.is
50c0	20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67	.bound.to.`it'.before.evaluating
50e0	0a 46 4f 52 4d 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 63 6f 70 79 20 6f 66 20	.FORM...The.result.is.a.copy.of.
5100	4c 49 53 54 20 72 65 67 61 72 64 6c 65 73 73 20 6f 66 20 77 68 65 74 68 65 72 20 61 6e 0a 65 6c	LIST.regardless.of.whether.an.el
5120	65 6d 65 6e 74 20 69 73 20 72 65 6d 6f 76 65 64 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e	ement.is.removed..This.is.the.an
5140	61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 6d 6f 76 65 2d	aphoric.counterpart.to.`-remove-
5160	6c 61 73 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61	last'...(fn.FORM.LIST)..(defalia
5180	73 20 27 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34	s.'--remove-last.'(macro...#[514
51a0	20 22 5c 33 30 30 5c 33 30 31 03 5c 33 30 32 04 44 45 44 5c 32 30 37 22 20 5b 6e 72 65 76 65 72	."\300\301.\302.DED\207".[nrever
51c0	73 65 20 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 72 65 76 65 72 73 65 5d 20 37 20 28 23 24	se.--remove-first.reverse].7.(#$
51e0	20 2e 20 32 30 35 37 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74	...20577)])).(put.'--remove-last
5200	20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29	.'edebug-form-spec.'(form.form))
5220	0a 23 40 32 39 37 20 52 65 6d 6f 76 65 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 20 66 72 6f 6d	.#@297.Remove.the.last.item.from
5240	20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 6f 6e	.LIST.for.which.PRED.returns.non
5260	2d 6e 69 6c 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 63 6f 70 79 20 6f 66 20 4c 49	-nil..The.result.is.a.copy.of.LI
5280	53 54 20 72 65 67 61 72 64 6c 65 73 73 20 6f 66 20 77 68 65 74 68 65 72 20 61 6e 20 65 6c 65 6d	ST.regardless.of.whether.an.elem
52a0	65 6e 74 20 69 73 0a 72 65 6d 6f 76 65 64 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65 6a 65 63 74	ent.is.removed...Alias:.`-reject
52c0	2d 6c 61 73 74 27 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72	-last'...This.function's.anaphor
52e0	69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74	ic.counterpart.is.`--remove-last
5300	27 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 6d 61 70 2d 6c 61 73 74 27 2c 20 60 2d 72 65 6d 6f	'...See.also.`-map-last',.`-remo
5320	76 65 2d 69 74 65 6d 27 2c 20 61 6e 64 20 60 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 27 2e 0a 0a	ve-item',.and.`-remove-first'...
5340	28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f	(fn.PRED.LIST)..(defalias.'-remo
5360	76 65 2d 6c 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 21 5c 33 30 31 01 5c 33 30 32 5c 33	ve-last.#[514."\300.!\301.\302\3
5380	30 31 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 3f 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32	01\211\211.\203?..\211A\262.\242
53a0	5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 3f 00 06 08 02 21 5c	\262..\262..\211\262.\203?....!\
53c0	32 30 34 3f 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 06 06 5c 32 31 31 41 5c	204?..\262..\262..T\262...\211A\
53e0	32 36 32 08 5c 32 34 32 06 06 42 5c 32 36 32 06 5c 32 30 32 09 00 5c 32 36 36 05 01 5c 32 30 33	262.\242..B\262.\202..\266..\203
5400	4f 00 5c 32 31 31 5c 32 33 37 02 41 5c 32 34 34 5c 32 36 36 5c 32 30 32 5c 32 30 32 53 00 5c 32	O.\211\237.A\244\266\202\202S.\2
5420	31 31 5c 32 33 37 5c 32 36 36 5c 32 30 32 5c 32 33 37 5c 32 30 37 22 20 5b 72 65 76 65 72 73 65	11\237\266\202\237\207".[reverse
5440	20 6e 69 6c 20 30 5d 20 31 31 20 28 23 24 20 2e 20 32 31 30 33 31 29 5d 29 0a 28 62 79 74 65 2d	.nil.0].11.(#$...21031)]).(byte-
5460	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33	code."\300\301\302\"\210\300\303
5480	5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 23 5c 32 30 37 22	\304\"\210\300\305\306\307#\207"
54a0	20 5b 64 65 66 61 6c 69 61 73 20 2d 72 65 6a 65 63 74 2d 6c 61 73 74 20 2d 72 65 6d 6f 76 65 2d	.[defalias.-reject-last.-remove-
54c0	6c 61 73 74 20 2d 2d 72 65 6a 65 63 74 2d 6c 61 73 74 20 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74	last.--reject-last.--remove-last
54e0	20 2d 72 65 6d 6f 76 65 2d 69 74 65 6d 20 72 65 6d 6f 76 65 20 22 52 65 74 75 72 6e 20 61 20 63	.-remove-item.remove."Return.a.c
5500	6f 70 79 20 6f 66 20 4c 49 53 54 20 77 69 74 68 20 61 6c 6c 20 6f 63 63 75 72 72 65 6e 63 65 73	opy.of.LIST.with.all.occurrences
5520	20 6f 66 20 49 54 45 4d 20 72 65 6d 6f 76 65 64 2e 5c 6e 54 68 65 20 63 6f 6d 70 61 72 69 73 6f	.of.ITEM.removed.\nThe.compariso
5540	6e 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2e 5c 6e 5c 6e 28 66 6e 20 49	n.is.done.with.`equal'.\n\n(fn.I
5560	54 45 4d 20 4c 49 53 54 29 22 5d 20 34 29 0a 23 40 33 34 32 20 45 76 61 6c 20 46 4f 52 4d 20 66	TEM.LIST)"].4).#@342.Eval.FORM.f
5580	6f 72 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 20	or.each.item.in.LIST.and.return.
55a0	74 68 65 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 73 2e 0a 4c 69 6b 65 20 60 2d 2d 66 69 6c	the.non-nil.results..Like.`--fil
55c0	74 65 72 27 2c 20 62 75 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 6e 6f 6e 2d 6e 69 6c 20 72 65	ter',.but.returns.the.non-nil.re
55e0	73 75 6c 74 73 20 6f 66 20 46 4f 52 4d 20 69 6e 73 74 65 61 64 0a 6f 66 20 74 68 65 20 63 6f 72	sults.of.FORM.instead.of.the.cor
5600	72 65 73 70 6f 6e 64 69 6e 67 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 2e 20 20 45 61	responding.elements.of.LIST...Ea
5620	63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 0a 74 75 72 6e 20 69 73 20 62 6f	ch.element.of.LIST.in.turn.is.bo
5640	75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 78 20 77 69 74 68 69 6e	und.to.`it'.and.its.index.within
5660	20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 0a 62 65 66 6f 72 65 20 65 76 61 6c 75	.LIST.to.`it-index'.before.evalu
5680	61 74 69 6e 67 20 46 4f 52 4d 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69	ating.FORM..This.is.the.anaphori
56a0	63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 6b 65 65 70 27 2e 0a 0a 28 66 6e 20 46	c.counterpart.to.`-keep'...(fn.F
56c0	4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6b 65 65 70 20 27 28 6d	ORM.LIST)..(defalias.'--keep.'(m
56e0	61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21	acro...#[514."\300\301!\300\302!
5700	5c 33 30 33 02 43 5c 33 30 34 05 5c 33 30 33 05 06 09 44 43 5c 33 30 35 06 07 5c 33 30 36 06 09	\303.C\304.\303...DC\305..\306..
5720	06 0b 45 45 45 45 5c 33 30 37 05 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20	..EEEE\307.DF\207".[make-symbol.
5740	22 72 65 73 75 6c 74 22 20 22 6d 61 70 70 65 64 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 77 68 65	"result"."mapped".let.--each.whe
5760	6e 20 70 75 73 68 20 6e 72 65 76 65 72 73 65 5d 20 31 35 20 28 23 24 20 2e 20 32 31 38 37 37 29	n.push.nreverse].15.(#$...21877)
5780	5d 29 29 0a 28 70 75 74 20 27 2d 2d 6b 65 65 70 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70	])).(put.'--keep.'edebug-form-sp
57a0	65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 33 34 20 52 65 74 75 72 6e 20 61 20	ec.'(form.form)).#@234.Return.a.
57c0	6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 73 20	new.list.of.the.non-nil.results.
57e0	6f 66 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c	of.applying.FN.to.each.item.in.L
5800	49 53 54 2e 0a 4c 69 6b 65 20 60 2d 66 69 6c 74 65 72 27 2c 20 62 75 74 20 72 65 74 75 72 6e 73	IST..Like.`-filter',.but.returns
5820	20 74 68 65 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 73 20 6f 66 20 46 4e 20 69 6e 73 74 65	.the.non-nil.results.of.FN.inste
5840	61 64 20 6f 66 0a 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 65 6c 65 6d 65 6e 74 73	ad.of.the.corresponding.elements
5860	20 6f 66 20 4c 49 53 54 2e 0a 0a 49 74 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72	.of.LIST...Its.anaphoric.counter
5880	70 61 72 74 20 69 73 20 60 2d 2d 6b 65 65 70 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f	part.is.`--keep'...(fn.FN.LIST).
58a0	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6b 65 65 70 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33	.(defalias.'-keep.#[514."\300.\3
58c0	30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 2a 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32	01\300\211.\203*..\211A\262.\242
58e0	5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 06 02 21 5c 32 31 31 5c 32 30 33 26 00	\262..\262..T\262....!\211\203&.
5900	5c 32 31 31 06 06 42 5c 32 36 32 06 5c 32 31 30 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c	\211..B\262.\210\202..\266.\211\
5920	32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 30 20 28 23 24 20 2e 20 32 32 34 35 35 29	237\207".[nil.0].10.(#$...22455)
5940	5d 29 0a 23 40 36 32 20 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 20 77 69	]).#@62.Return.a.copy.of.LIST.wi
5960	74 68 20 61 6c 6c 20 6e 69 6c 20 69 74 65 6d 73 20 72 65 6d 6f 76 65 64 2e 0a 0a 28 66 6e 20 4c	th.all.nil.items.removed...(fn.L
5980	49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6e 6f 6e 2d 6e 69 6c 20 23 5b 32 35 37 20	IST)..(defalias.'-non-nil.#[257.
59a0	22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 24 00 03 5c 32 31 31 41 5c	"\300.\301\300\211.\203$..\211A\
59c0	32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 01 5c 32 30 33 05	262.\242\262..\262..T\262..\203.
59e0	00 01 05 42 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37	...B\262.\202..\266.\211\237\207
5a00	22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 32 32 38 35 36 29 5d 29 0a 28 62 79 74 65	".[nil.0].8.(#$...22856)]).(byte
5a20	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
5a40	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
5a60	20 2d 6e 6f 6e 2d 6e 69 6c 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65	.-non-nil.pure.t.side-effect-fre
5a80	65 5d 20 35 29 0a 23 40 33 32 31 20 45 76 61 6c 20 46 4f 52 4d 20 66 6f 72 20 65 61 63 68 20 69	e].5).#@321.Eval.FORM.for.each.i
5aa0	74 65 6d 20 69 6e 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20	tem.in.LIST.and.return.the.list.
5ac0	6f 66 20 72 65 73 75 6c 74 73 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54	of.results..Each.element.of.LIST
5ae0	20 69 6e 20 74 75 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74	.in.turn.is.bound.to.`it'.and.it
5b00	73 20 69 6e 64 65 78 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78	s.index.within.LIST.to.`it-index
5b20	27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 20 20 54 68 69 73 20	'.before.evaluating.FORM...This.
5b40	69 73 20 6c 69 6b 65 0a 60 2d 2d 6d 61 70 27 2c 20 62 75 74 20 61 64 64 69 74 69 6f 6e 61 6c 6c	is.like.`--map',.but.additionall
5b60	79 20 6d 61 6b 65 73 20 60 69 74 2d 69 6e 64 65 78 27 20 61 76 61 69 6c 61 62 6c 65 20 74 6f 20	y.makes.`it-index'.available.to.
5b80	46 4f 52 4d 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75	FORM...This.is.the.anaphoric.cou
5ba0	6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 6d 61 70 2d 69 6e 64 65 78 65 64 27 2e 0a 0a 28 66 6e	nterpart.to.`-map-indexed'...(fn
5bc0	20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 2d 69 6e	.FORM.LIST)..(defalias.'--map-in
5be0	64 65 78 65 64 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21	dexed.'(macro...#[514."\300\301!
5c00	5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 06 07 06 06 45 45 5c 33 30 35 04 44 46 5c 32 30 37	\302.C\303.\304....EE\305.DF\207
5c20	22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 6c 65 74 20 2d 2d 65 61	".[make-symbol."result".let.--ea
5c40	63 68 20 70 75 73 68 20 6e 72 65 76 65 72 73 65 5d 20 31 30 20 28 23 24 20 2e 20 32 33 31 38 30	ch.push.nreverse].10.(#$...23180
5c60	29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 20 27 65 64 65 62 75 67	)])).(put.'--map-indexed.'edebug
5c80	2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 32 32 20 41	-form-spec.'(form.form)).#@322.A
5ca0	70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 69 6e 64 65 78 20 61 6e 64 20 69 74 65 6d 20 69	pply.FN.to.each.index.and.item.i
5cc0	6e 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 72 65	n.LIST.and.return.the.list.of.re
5ce0	73 75 6c 74 73 2e 0a 54 68 69 73 20 69 73 20 6c 69 6b 65 20 60 2d 6d 61 70 27 2c 20 62 75 74 20	sults..This.is.like.`-map',.but.
5d00	46 4e 20 74 61 6b 65 73 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 3a 20 74 68 65 20 69 6e 64 65	FN.takes.two.arguments:.the.inde
5d20	78 20 6f 66 20 74 68 65 0a 63 75 72 72 65 6e 74 20 65 6c 65 6d 65 6e 74 20 77 69 74 68 69 6e 20	x.of.the.current.element.within.
5d40	4c 49 53 54 2c 20 61 6e 64 20 74 68 65 20 65 6c 65 6d 65 6e 74 20 69 74 73 65 6c 66 2e 0a 0a 54	LIST,.and.the.element.itself...T
5d60	68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72	his.function's.anaphoric.counter
5d80	70 61 72 74 20 69 73 20 60 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 27 2e 0a 0a 46 6f 72 20 61 20	part.is.`--map-indexed'...For.a.
5da0	73 69 64 65 2d 65 66 66 65 63 74 69 6e 67 20 76 61 72 69 61 6e 74 2c 20 73 65 65 20 61 6c 73 6f	side-effecting.variant,.see.also
5dc0	20 60 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f	.`-each-indexed'...(fn.FN.LIST).
5de0	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 2d 69 6e 64 65 78 65 64 20 23 5b 35 31 34 20 22	.(defalias.'-map-indexed.#[514."
5e00	5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 24 00 03 5c 32 31 31 41 5c 32	\300.\301\300\211.\203$..\211A\2
5e20	36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 06 01 03 5c 22 05	62.\242\262..\262..T\262.....\".
5e40	42 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b	B\262.\202..\266.\211\237\207".[
5e60	6e 69 6c 20 30 5d 20 31 30 20 28 23 24 20 2e 20 32 33 37 31 31 29 5d 29 0a 23 40 35 32 20 41 6e	nil.0].10.(#$...23711)]).#@52.An
5e80	61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6d 61 70 2d 77 68 65 6e 27 2e 0a 0a 28 66	aphoric.form.of.`-map-when'...(f
5ea0	6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d	n.PRED.REP.LIST)..(defalias.'--m
5ec0	61 70 2d 77 68 65 6e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30	ap-when.'(macro...#[771."\300\30
5ee0	31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 5c 33 30 35 06 09 06 09 5c 33 30 36 42 42 42	1!\302.C\303.\304\305....\306BBB
5f00	06 06 45 45 5c 33 30 37 04 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72	..EE\307.DF\207".[make-symbol."r
5f20	65 73 75 6c 74 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 21 63 6f 6e 73 20 69 66 20 28 69 74 29 20	esult".let.--each.!cons.if.(it).
5f40	6e 72 65 76 65 72 73 65 5d 20 31 33 20 28 23 24 20 2e 20 32 34 31 39 30 29 5d 29 29 0a 28 70 75	nreverse].13.(#$...24190)])).(pu
5f60	74 20 27 2d 2d 6d 61 70 2d 77 68 65 6e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20	t.'--map-when.'edebug-form-spec.
5f80	27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 35 38 20 55 73 65 20 50 52 45	'(form.form.form)).#@258.Use.PRE
5fa0	44 20 74 6f 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 6c 79 20 61 70 70 6c 79 20 52 45 50 20 74 6f 20	D.to.conditionally.apply.REP.to.
5fc0	65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2e 0a 52 65 74 75 72 6e 20 61 20 63 6f 70 79	each.item.in.LIST..Return.a.copy
5fe0	20 6f 66 20 4c 49 53 54 20 77 68 65 72 65 20 74 68 65 20 69 74 65 6d 73 20 66 6f 72 20 77 68 69	.of.LIST.where.the.items.for.whi
6000	63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 69 6c 0a 61 72 65 20 75 6e 63 68 61 6e 67 65	ch.PRED.returns.nil.are.unchange
6020	64 2c 20 61 6e 64 20 74 68 65 20 72 65 73 74 20 61 72 65 20 6d 61 70 70 65 64 20 74 68 72 6f 75	d,.and.the.rest.are.mapped.throu
6040	67 68 20 74 68 65 20 52 45 50 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72	gh.the.REP.function...Alias:.`-r
6060	65 70 6c 61 63 65 2d 77 68 65 72 65 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 75 70 64 61 74	eplace-where'..See.also:.`-updat
6080	65 2d 61 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61	e-at'..(fn.PRED.REP.LIST)..(defa
60a0	6c 69 61 73 20 27 2d 6d 61 70 2d 77 68 65 6e 20 23 5b 37 37 31 20 22 5c 33 30 30 01 5c 33 30 31	lias.'-map-when.#[771."\300.\301
60c0	5c 33 30 30 5c 32 31 31 03 5c 32 30 33 2e 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32	\300\211.\203...\211A\262.\242\2
60e0	36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 07 02 21 5c 32 30 33 26 00 06 06 02 21 5c 32	62..\262..T\262....!\203&....!\2
6100	30 32 27 00 01 05 42 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c	02'...B\262.\202..\266.\211\237\
6120	32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 30 20 28 23 24 20 2e 20 32 34 34 37 33 29 5d 29 0a 28	207".[nil.0].10.(#$...24473)]).(
6140	62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30	byte-code."\300\301\302\"\210\30
6160	30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 72 65 70 6c	0\303\304\"\207".[defalias.-repl
6180	61 63 65 2d 77 68 65 72 65 20 2d 6d 61 70 2d 77 68 65 6e 20 2d 2d 72 65 70 6c 61 63 65 2d 77 68	ace-where.-map-when.--replace-wh
61a0	65 72 65 20 2d 2d 6d 61 70 2d 77 68 65 6e 5d 20 33 29 0a 23 40 32 35 34 20 55 73 65 20 50 52 45	ere.--map-when].3).#@254.Use.PRE
61c0	44 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e	D.to.determine.the.first.item.in
61e0	20 4c 49 53 54 20 74 6f 20 63 61 6c 6c 20 52 45 50 20 6f 6e 2e 0a 52 65 74 75 72 6e 20 61 20 63	.LIST.to.call.REP.on..Return.a.c
6200	6f 70 79 20 6f 66 20 4c 49 53 54 20 77 68 65 72 65 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d	opy.of.LIST.where.the.first.item
6220	20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 0a 6e 6f 6e 2d 6e 69 6c 20	.for.which.PRED.returns.non-nil.
6240	69 73 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 63	is.replaced.with.the.result.of.c
6260	61 6c 6c 69 6e 67 20 52 45 50 20 6f 6e 20 74 68 61 74 20 69 74 65 6d 2e 0a 0a 53 65 65 20 61 6c	alling.REP.on.that.item...See.al
6280	73 6f 3a 20 60 2d 6d 61 70 2d 77 68 65 6e 27 2c 20 60 2d 72 65 70 6c 61 63 65 2d 66 69 72 73 74	so:.`-map-when',.`-replace-first
62a0	27 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73	'..(fn.PRED.REP.LIST)..(defalias
62c0	20 27 2d 6d 61 70 2d 66 69 72 73 74 20 23 5b 37 37 31 20 22 5c 33 30 30 01 5c 32 30 33 19 00 03	.'-map-first.#[771."\300.\203...
62e0	02 40 21 5c 32 30 34 19 00 01 40 01 42 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 01 00 01	.@!\204...@.B\262..A\262.\202...
6300	5c 32 30 33 29 00 5c 33 30 31 01 5c 32 33 37 04 04 40 21 04 41 42 5c 22 5c 32 30 37 5c 32 31 31	\203).\301.\237..@!.AB\"\207\211
6320	5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 63 61 74 5d 20 38 20 28 23 24 20 2e 20	\237\207".[nil.-concat].8.(#$...
6340	32 35 30 31 37 29 5d 29 0a 23 40 35 33 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20	25017)]).#@53.Anaphoric.form.of.
6360	60 2d 6d 61 70 2d 66 69 72 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54	`-map-first'...(fn.PRED.REP.LIST
6380	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 2d 66 69 72 73 74 20 27 28 6d 61 63 72	)..(defalias.'--map-first.'(macr
63a0	6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30	o...#[771."\300\301\302.E\301\30
63c0	33 5c 33 30 34 06 06 46 03 46 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 66 69 72 73 74 20 6c 61 6d 62	3\304..F.F\207".[-map-first.lamb
63e0	64 61 20 28 69 74 29 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 5d 20 39 20 28 23 24 20	da.(it).(it).(ignore.it)].9.(#$.
6400	2e 20 32 35 34 32 32 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70 2d 66 69 72 73 74 20 27 65	..25422)])).(put.'--map-first.'e
6420	64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 64 65 66 2d 66	debug-form-spec.'(def-form.def-f
6440	6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 35 31 20 55 73 65 20 50 52 45 44 20 74 6f 20 64 65 74	orm.form)).#@251.Use.PRED.to.det
6460	65 72 6d 69 6e 65 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 74 6f 20	ermine.the.last.item.in.LIST.to.
6480	63 61 6c 6c 20 52 45 50 20 6f 6e 2e 0a 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 4c 49	call.REP.on..Return.a.copy.of.LI
64a0	53 54 20 77 68 65 72 65 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 20 66 6f 72 20 77 68 69 63 68	ST.where.the.last.item.for.which
64c0	20 50 52 45 44 20 72 65 74 75 72 6e 73 0a 6e 6f 6e 2d 6e 69 6c 20 69 73 20 72 65 70 6c 61 63 65	.PRED.returns.non-nil.is.replace
64e0	64 20 77 69 74 68 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 63 61 6c 6c 69 6e 67 20 52 45 50	d.with.the.result.of.calling.REP
6500	20 6f 6e 20 74 68 61 74 20 69 74 65 6d 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d	.on.that.item...See.also:.`-map-
6520	77 68 65 6e 27 2c 20 60 2d 72 65 70 6c 61 63 65 2d 6c 61 73 74 27 0a 0a 28 66 6e 20 50 52 45 44	when',.`-replace-last'..(fn.PRED
6540	20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 2d 6c 61 73 74	.REP.LIST)..(defalias.'-map-last
6560	20 23 5b 37 37 31 20 22 5c 33 30 30 03 03 5c 33 30 31 04 21 23 5c 32 33 37 5c 32 30 37 22 20 5b	.#[771."\300..\301.!#\237\207".[
6580	2d 6d 61 70 2d 66 69 72 73 74 20 72 65 76 65 72 73 65 5d 20 38 20 28 23 24 20 2e 20 32 35 36 38	-map-first.reverse].8.(#$...2568
65a0	31 29 5d 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6d 61	1)]).#@52.Anaphoric.form.of.`-ma
65c0	70 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64	p-last'...(fn.PRED.REP.LIST)..(d
65e0	65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 2d 6c 61 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b	efalias.'--map-last.'(macro...#[
6600	37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33 5c 33 30 34 06	771."\300\301\302.E\301\303\304.
6620	06 46 03 46 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 6c 61 73 74 20 6c 61 6d 62 64 61 20 28 69 74 29	.F.F\207".[-map-last.lambda.(it)
6640	20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 5d 20 39 20 28 23 24 20 2e 20 32 36 30 32 36	.(it).(ignore.it)].9.(#$...26026
6660	29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70 2d 6c 61 73 74 20 27 65 64 65 62 75 67 2d 66 6f	)])).(put.'--map-last.'edebug-fo
6680	72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d	rm-spec.'(def-form.def-form.form
66a0	29 29 0a 23 40 31 32 33 20 52 65 70 6c 61 63 65 20 61 6c 6c 20 4f 4c 44 20 69 74 65 6d 73 20 69	)).#@123.Replace.all.OLD.items.i
66c0	6e 20 4c 49 53 54 20 77 69 74 68 20 4e 45 57 2e 0a 0a 45 6c 65 6d 65 6e 74 73 20 61 72 65 20 63	n.LIST.with.NEW...Elements.are.c
66e0	6f 6d 70 61 72 65 64 20 75 73 69 6e 67 20 60 65 71 75 61 6c 27 2e 0a 0a 53 65 65 20 61 6c 73 6f	ompared.using.`equal'...See.also
6700	3a 20 60 2d 72 65 70 6c 61 63 65 2d 61 74 27 0a 0a 28 66 6e 20 4f 4c 44 20 4e 45 57 20 4c 49 53	:.`-replace-at'..(fn.OLD.NEW.LIS
6720	54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63 65 20 23 5b 37 37 31 20 22 5c	T)..(defalias.'-replace.#[771."\
6740	33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 2c 00 03 5c 32 31 31 41 5c 32 36	300.\301\300\211.\203,..\211A\26
6760	32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 01 06 08 5c 32 33 32 5c	2.\242\262..\262..T\262....\232\
6780	32 30 33 24 00 06 06 5c 32 30 32 25 00 01 05 42 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04	203$...\202%...B\262.\202..\266.
67a0	5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 30 20 28 23 24 20 2e 20 32	\211\237\207".[nil.0].10.(#$...2
67c0	36 32 38 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	6281)]).(byte-code."\300\301\302
67e0	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".
6800	5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 70 6c 61 63 65 20 70 75 72 65 20 74 20 73 69	[function-put.-replace.pure.t.si
6820	64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 33 36 20 52 65 70 6c 61 63 65	de-effect-free].5).#@136.Replace
6840	20 74 68 65 20 66 69 72 73 74 20 6f 63 63 75 72 72 65 6e 63 65 20 6f 66 20 4f 4c 44 20 77 69 74	.the.first.occurrence.of.OLD.wit
6860	68 20 4e 45 57 20 69 6e 20 4c 49 53 54 2e 0a 0a 45 6c 65 6d 65 6e 74 73 20 61 72 65 20 63 6f 6d	h.NEW.in.LIST...Elements.are.com
6880	70 61 72 65 64 20 75 73 69 6e 67 20 60 65 71 75 61 6c 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20	pared.using.`equal'...See.also:.
68a0	60 2d 6d 61 70 2d 66 69 72 73 74 27 0a 0a 28 66 6e 20 4f 4c 44 20 4e 45 57 20 4c 49 53 54 29 1f	`-map-first'..(fn.OLD.NEW.LIST).
68c0	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63 65 2d 66 69 72 73 74 20 23 5b 37 37 31	.(defalias.'-replace-first.#[771
68e0	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 5c 22 5c 33 30 31 5c 33 30 33 05 5c 22 03 23 5c 32	."\300\301\302.\"\301\303.\".#\2
6900	30 37 22 20 5b 2d 6d 61 70 2d 66 69 72 73 74 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32	07".[-map-first.make-closure.#[2
6920	35 37 20 22 5c 33 30 30 01 5c 32 33 32 5c 32 30 37 22 20 5b 56 30 5d 20 33 20 22 5c 6e 5c 6e 28	57."\300.\232\207".[V0].3."\n\n(
6940	66 6e 20 49 54 29 22 5d 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 56 30 5d 20 32	fn.IT)"].#[257."\300\207".[V0].2
6960	20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 38 20 28 23 24 20 2e 20 32 36 36 38 31 29 5d	."\n\n(fn.IT)"]].8.(#$...26681)]
6980	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#\
69a0	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
69c0	69 6f 6e 2d 70 75 74 20 2d 72 65 70 6c 61 63 65 2d 66 69 72 73 74 20 70 75 72 65 20 74 20 73 69	ion-put.-replace-first.pure.t.si
69e0	64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 33 34 20 52 65 70 6c 61 63 65	de-effect-free].5).#@134.Replace
6a00	20 74 68 65 20 6c 61 73 74 20 6f 63 63 75 72 72 65 6e 63 65 20 6f 66 20 4f 4c 44 20 77 69 74 68	.the.last.occurrence.of.OLD.with
6a20	20 4e 45 57 20 69 6e 20 4c 49 53 54 2e 0a 0a 45 6c 65 6d 65 6e 74 73 20 61 72 65 20 63 6f 6d 70	.NEW.in.LIST...Elements.are.comp
6a40	61 72 65 64 20 75 73 69 6e 67 20 60 65 71 75 61 6c 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60	ared.using.`equal'...See.also:.`
6a60	2d 6d 61 70 2d 6c 61 73 74 27 0a 0a 28 66 6e 20 4f 4c 44 20 4e 45 57 20 4c 49 53 54 29 1f 0a 28	-map-last'..(fn.OLD.NEW.LIST)..(
6a80	64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63 65 2d 6c 61 73 74 20 23 5b 37 37 31 20 22 5c	defalias.'-replace-last.#[771."\
6aa0	33 30 30 5c 33 30 31 5c 33 30 32 05 5c 22 5c 33 30 31 5c 33 30 33 05 5c 22 03 23 5c 32 30 37 22	300\301\302.\"\301\303.\".#\207"
6ac0	20 5b 2d 6d 61 70 2d 6c 61 73 74 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22	.[-map-last.make-closure.#[257."
6ae0	5c 33 30 30 01 5c 32 33 32 5c 32 30 37 22 20 5b 56 30 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49	\300.\232\207".[V0].3."\n\n(fn.I
6b00	54 29 22 5d 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 56 30 5d 20 32 20 22 5c 6e	T)"].#[257."\300\207".[V0].2."\n
6b20	5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 38 20 28 23 24 20 2e 20 32 37 31 32 39 29 5d 29 0a 28 62	\n(fn.IT)"]].8.(#$...27129)]).(b
6b40	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 5c	yte-code."\300\301\302\303#\300\
6b60	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 2d	301\304\303#\300\207".[function-
6b80	70 75 74 20 2d 72 65 70 6c 61 63 65 2d 6c 61 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66	put.-replace-last.pure.t.side-ef
6ba0	66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 36 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72	fect-free].5).#@46.Anaphoric.for
6bc0	6d 20 6f 66 20 60 2d 6d 61 70 63 61 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f	m.of.`-mapcat'...(fn.FORM.LIST).
6be0	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 63 61 74 20 27 28 6d 61 63 72 6f 20 2e 20 23	.(defalias.'--mapcat.'(macro...#
6c00	5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 04 45 45 5c 32 30 37 22 20 5b 61 70 70	[514."\300\301\302..EE\207".[app
6c20	6c 79 20 27 61 70 70 65 6e 64 20 2d 2d 6d 61 70 5d 20 37 20 28 23 24 20 2e 20 32 37 35 37 31 29	ly.'append.--map].7.(#$...27571)
6c40	5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70 63 61 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d	])).(put.'--mapcat.'edebug-form-
6c60	73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 31 38 20 52 65 74 75 72 6e 20	spec.'(form.form)).#@118.Return.
6c80	74 68 65 20 63 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 20	the.concatenation.of.the.result.
6ca0	6f 66 20 6d 61 70 70 69 6e 67 20 46 4e 20 6f 76 65 72 20 4c 49 53 54 2e 0a 54 68 75 73 20 66 75	of.mapping.FN.over.LIST..Thus.fu
6cc0	6e 63 74 69 6f 6e 20 46 4e 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 2e 0a	nction.FN.should.return.a.list..
6ce0	0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 63 61	.(fn.FN.LIST)..(defalias.'-mapca
6d00	74 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 5c	t.#[514."\300\301\302\303\304..\
6d20	22 04 5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72	".\"\"\207".[apply.append.mapcar
6d40	20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22	.make-closure.#[257."\300.!\207"
6d60	20 5b 56 30 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 38 20 28 23 24 20 2e 20	.[V0].3."\n\n(fn.IT)"]].8.(#$...
6d80	32 37 37 36 39 29 5d 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20	27769)]).#@52.Anaphoric.version.
6da0	6f 66 20 60 2d 69 74 65 72 61 74 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 54 20 4e 29	of.`-iterate'...(fn.FORM.INIT.N)
6dc0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 69 74 65 72 61 74 65 20 27 28 6d 61 63 72 6f 20 2e	..(defalias.'--iterate.'(macro..
6de0	20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 33 01 04	.#[771."\300\301!\300\302!\303..
6e00	44 43 5c 33 30 34 5c 33 30 35 04 5c 33 30 36 42 42 5c 33 30 37 5c 33 31 30 06 09 44 06 07 5c 33	DC\304\305.\306BB\307\310..D..\3
6e20	31 31 42 44 5c 33 31 32 5c 33 31 33 5c 33 31 34 06 09 44 44 5c 33 31 35 5c 33 31 36 5c 33 31 30	11BD\312\313\314..DD\315\316\310
6e40	06 0f 45 06 0b 45 45 5c 33 31 37 06 09 44 46 45 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d	..E..EE\317..DFEE\207".[make-sym
6e60	62 6f 6c 20 22 72 65 73 75 6c 74 22 20 22 6e 22 20 6c 65 74 20 77 68 65 6e 20 3e 20 28 30 29 20	bol."result"."n".let.when.>.(0).
6e80	6c 65 74 2a 20 69 74 20 28 28 6c 69 73 74 20 69 74 29 29 20 64 6f 74 69 6d 65 73 20 5f 20 31 2d	let*.it.((list.it)).dotimes._.1-
6ea0	20 70 75 73 68 20 73 65 74 71 20 6e 72 65 76 65 72 73 65 5d 20 31 37 20 28 23 24 20 2e 20 32 38	.push.setq.nreverse].17.(#$...28
6ec0	30 34 36 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 69 74 65 72 61 74 65 20 27 65 64 65 62 75 67 2d	046)])).(put.'--iterate.'edebug-
6ee0	66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31	form-spec.'(form.form.form)).#@1
6f00	38 36 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 69 74 65 72 61 74 65 64 20 61 70 70	86.Return.a.list.of.iterated.app
6f20	6c 69 63 61 74 69 6f 6e 73 20 6f 66 20 46 55 4e 20 74 6f 20 49 4e 49 54 2e 0a 0a 54 68 69 73 20	lications.of.FUN.to.INIT...This.
6f40	6d 65 61 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 6f 72 6d 3a 0a 0a 20 20 28 49 4e	means.a.list.of.the.form:....(IN
6f60	49 54 20 28 46 55 4e 20 49 4e 49 54 29 20 28 46 55 4e 20 28 46 55 4e 20 49 4e 49 54 29 29 20 2e	IT.(FUN.INIT).(FUN.(FUN.INIT))..
6f80	2e 2e 29 0a 0a 4e 20 69 73 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 72 65 74 75	..)..N.is.the.length.of.the.retu
6fa0	72 6e 65 64 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 46 55 4e 20 49 4e 49 54 20 4e 29 1f 0a 28 64 65	rned.list...(fn.FUN.INIT.N)..(de
6fc0	66 61 6c 69 61 73 20 27 2d 69 74 65 72 61 74 65 20 23 5b 37 37 31 20 22 5c 32 31 31 5c 33 30 30	falias.'-iterate.#[771."\211\300
6fe0	56 5c 32 30 35 2c 00 01 5c 32 31 31 43 02 53 5c 33 30 30 5c 32 31 31 02 57 5c 32 30 33 26 00 5c	V\205,..\211C.S\300\211.W\203&.\
7000	33 30 31 06 07 05 21 5c 32 31 31 5c 32 36 32 06 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54	301...!\211\262..B\262.\210\211T
7020	5c 32 36 32 01 5c 32 30 32 5c 66 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 36 5c 32 30	\262.\202\f.\266.\211\237\266\20
7040	32 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 32 38 34 31 39 29 5d 29	2\207".[0.nil].10.(#$...28419)])
7060	0a 23 40 34 33 34 20 54 61 6b 65 20 61 20 6e 65 73 74 65 64 20 6c 69 73 74 20 4c 20 61 6e 64 20	.#@434.Take.a.nested.list.L.and.
7080	72 65 74 75 72 6e 20 69 74 73 20 63 6f 6e 74 65 6e 74 73 20 61 73 20 61 20 73 69 6e 67 6c 65 2c	return.its.contents.as.a.single,
70a0	20 66 6c 61 74 20 6c 69 73 74 2e 0a 0a 4e 6f 74 65 20 74 68 61 74 20 62 65 63 61 75 73 65 20 6e	.flat.list...Note.that.because.n
70c0	69 6c 20 72 65 70 72 65 73 65 6e 74 73 20 61 20 6c 69 73 74 20 6f 66 20 7a 65 72 6f 20 65 6c 65	il.represents.a.list.of.zero.ele
70e0	6d 65 6e 74 73 20 28 61 6e 0a 65 6d 70 74 79 20 6c 69 73 74 29 2c 20 61 6e 79 20 6d 65 6e 74 69	ments.(an.empty.list),.any.menti
7100	6f 6e 20 6f 66 20 6e 69 6c 20 69 6e 20 4c 20 77 69 6c 6c 20 64 69 73 61 70 70 65 61 72 20 61 66	on.of.nil.in.L.will.disappear.af
7120	74 65 72 0a 66 6c 61 74 74 65 6e 69 6e 67 2e 20 20 49 66 20 79 6f 75 20 6e 65 65 64 20 74 6f 20	ter.flattening...If.you.need.to.
7140	70 72 65 73 65 72 76 65 20 6e 69 6c 73 2c 20 63 6f 6e 73 69 64 65 72 20 60 2d 66 6c 61 74 74 65	preserve.nils,.consider.`-flatte
7160	6e 2d 6e 27 0a 6f 72 20 6d 61 70 20 74 68 65 6d 20 74 6f 20 73 6f 6d 65 20 75 6e 69 71 75 65 20	n-n'.or.map.them.to.some.unique.
7180	73 79 6d 62 6f 6c 20 61 6e 64 20 74 68 65 6e 20 6d 61 70 20 74 68 65 6d 20 62 61 63 6b 2e 0a 0a	symbol.and.then.map.them.back...
71a0	43 6f 6e 73 65 73 20 6f 66 20 74 77 6f 20 61 74 6f 6d 73 20 61 72 65 20 63 6f 6e 73 69 64 65 72	Conses.of.two.atoms.are.consider
71c0	65 64 20 22 74 65 72 6d 69 6e 61 6c 73 22 2c 20 74 68 61 74 20 69 73 2c 20 74 68 65 79 0a 61 72	ed."terminals",.that.is,.they.ar
71e0	65 6e 27 74 20 66 6c 61 74 74 65 6e 65 64 20 66 75 72 74 68 65 72 2e 0a 0a 53 65 65 20 61 6c 73	en't.flattened.further...See.als
7200	6f 3a 20 60 2d 66 6c 61 74 74 65 6e 2d 6e 27 0a 0a 28 66 6e 20 4c 29 1f 0a 28 64 65 66 61 6c 69	o:.`-flatten-n'..(fn.L)..(defali
7220	61 73 20 27 2d 66 6c 61 74 74 65 6e 20 23 5b 32 35 37 20 22 5c 32 31 31 3c 5c 32 30 33 10 00 5c	as.'-flatten.#[257."\211<\203..\
7240	32 31 31 41 3c 5c 32 30 33 10 00 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 5c 32 31 31 43 5c	211A<\203..\300\301.\"\207\211C\
7260	32 30 37 22 20 5b 2d 6d 61 70 63 61 74 20 2d 66 6c 61 74 74 65 6e 5d 20 34 20 28 23 24 20 2e 20	207".[-mapcat.-flatten].4.(#$...
7280	32 38 37 37 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	28775)]).(byte-code."\300\301\30
72a0	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"
72c0	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 6c 61 74 74 65 6e 20 70 75 72 65 20 74 20 73	.[function-put.-flatten.pure.t.s
72e0	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 37 35 20 46 6c 61 74 74 65 6e	ide-effect-free].5).#@75.Flatten
7300	20 4e 55 4d 20 6c 65 76 65 6c 73 20 6f 66 20 61 20 6e 65 73 74 65 64 20 4c 49 53 54 2e 0a 0a 53	.NUM.levels.of.a.nested.LIST...S
7320	65 65 20 61 6c 73 6f 3a 20 60 2d 66 6c 61 74 74 65 6e 27 0a 0a 28 66 6e 20 4e 55 4d 20 4c 49 53	ee.also:.`-flatten'..(fn.NUM.LIS
7340	54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 6c 61 74 74 65 6e 2d 6e 20 23 5b 35 31 34 20	T)..(defalias.'-flatten-n.#[514.
7360	22 5c 33 30 30 5c 32 31 31 03 57 5c 32 30 33 1a 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30	"\300\211.W\203..\301\302\303\30
7380	34 5c 33 30 35 06 06 5c 22 5c 22 5c 32 36 32 03 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 5c 32	4\305..\"\"\262.\210\211T\262.\2
73a0	30 32 01 00 5c 32 31 30 5c 32 30 37 22 20 5b 30 20 6e 69 6c 20 61 70 70 6c 79 20 61 70 70 65 6e	02..\210\207".[0.nil.apply.appen
73c0	64 20 6d 61 70 63 61 72 20 2d 6c 69 73 74 5d 20 39 20 28 23 24 20 2e 20 32 39 34 33 33 29 5d 29	d.mapcar.-list].9.(#$...29433)])
73e0	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
7400	30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 22 5c 32 31	00\301\304\303#\305\306\307\"\21
7420	30 5c 33 30 35 5c 33 31 30 5c 33 31 31 5c 33 31 32 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f	0\305\310\311\312#\207".[functio
7440	6e 2d 70 75 74 20 2d 66 6c 61 74 74 65 6e 2d 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66	n-put.-flatten-n.pure.t.side-eff
7460	65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d 63 6f 6e 63 61 74 20 61 70 70 65 6e 64	ect-free.defalias.-concat.append
7480	20 2d 63 6f 70 79 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 22 43 72 65 61 74 65 20 61 20 73	.-copy.copy-sequence."Create.a.s
74a0	68 61 6c 6c 6f 77 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54	hallow.copy.of.LIST.\n\n(fn.LIST
74c0	29 22 5d 20 36 29 0a 23 40 33 32 33 20 53 70 6c 69 63 65 20 6c 69 73 74 73 20 67 65 6e 65 72 61	)"].6).#@323.Splice.lists.genera
74e0	74 65 64 20 62 79 20 46 55 4e 20 69 6e 20 70 6c 61 63 65 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20	ted.by.FUN.in.place.of.elements.
7500	6d 61 74 63 68 69 6e 67 20 50 52 45 44 20 69 6e 20 4c 49 53 54 2e 0a 0a 46 55 4e 20 74 61 6b 65	matching.PRED.in.LIST...FUN.take
7520	73 20 74 68 65 20 65 6c 65 6d 65 6e 74 20 6d 61 74 63 68 69 6e 67 20 50 52 45 44 20 61 73 20 69	s.the.element.matching.PRED.as.i
7540	6e 70 75 74 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 63 61 6e 20 62 65 20 75 73 65 64	nput...This.function.can.be.used
7560	20 61 73 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 66 6f 72 20 60 2c 40 27 20 69 6e 20 63 61 73 65	.as.replacement.for.`,@'.in.case
7580	20 79 6f 75 0a 6e 65 65 64 20 74 6f 20 73 70 6c 69 63 65 20 73 65 76 65 72 61 6c 20 6c 69 73 74	.you.need.to.splice.several.list
75a0	73 20 61 74 20 6d 61 72 6b 65 64 20 70 6f 73 69 74 69 6f 6e 73 20 28 66 6f 72 20 65 78 61 6d 70	s.at.marked.positions.(for.examp
75c0	6c 65 0a 77 69 74 68 20 6b 65 79 77 6f 72 64 73 29 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d	le.with.keywords)...See.also:.`-
75e0	73 70 6c 69 63 65 2d 6c 69 73 74 27 2c 20 60 2d 69 6e 73 65 72 74 2d 61 74 27 0a 0a 28 66 6e 20	splice-list',.`-insert-at'..(fn.
7600	50 52 45 44 20 46 55 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69	PRED.FUN.LIST)..(defalias.'-spli
7620	63 65 20 23 5b 37 37 31 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33	ce.#[771."\300.\301\300\211.\203
7640	50 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32	P..\211A\262.\242\262..\262..T\2
7660	36 32 03 06 07 02 21 5c 32 30 33 48 00 06 06 02 21 5c 32 31 31 5c 33 30 31 5c 33 30 30 5c 32 31	62....!\203H....!\211\301\300\21
7680	31 03 5c 32 30 33 43 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36	1.\203C..\211A\262.\242\262..\26
76a0	32 01 02 54 5c 32 36 32 03 01 06 5c 6e 42 5c 32 36 32 5c 6e 5c 32 30 32 27 00 5c 32 36 36 05 5c	2..T\262...\nB\262\n\202'.\266.\
76c0	32 30 32 05 00 01 05 42 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37	202....B\262.\202..\266.\211\237
76e0	5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 35 20 28 23 24 20 2e 20 32 39 39 30 31 29 5d 29 0a	\207".[nil.0].15.(#$...29901)]).
7700	23 40 35 31 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 70 6c 69 63 65 27	#@51.Anaphoric.form.of.`-splice'
7720	2e 0a 0a 28 66 6e 20 50 52 45 44 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61	...(fn.PRED.FORM.LIST)..(defalia
7740	73 20 27 2d 2d 73 70 6c 69 63 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30	s.'--splice.'(macro...#[771."\30
7760	30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33 05 45 03 46 5c 32 30 37 22 20 5b 2d 73	0\301\302.E\301\303.E.F\207".[-s
7780	70 6c 69 63 65 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 29 5d 20 38 20 28 23 24 20 2e 20	plice.lambda.(it).(it)].8.(#$...
77a0	33 30 34 36 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 70 6c 69 63 65 20 27 65 64 65 62 75 67	30469)])).(put.'--splice.'edebug
77c0	2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 64 65 66 2d 66 6f 72 6d 20 66	-form-spec.'(def-form.def-form.f
77e0	6f 72 6d 29 29 0a 23 40 31 32 31 20 53 70 6c 69 63 65 20 4e 45 57 2d 4c 49 53 54 20 69 6e 20 70	orm)).#@121.Splice.NEW-LIST.in.p
7800	6c 61 63 65 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 6d 61 74 63 68 69 6e 67 20 50 52 45 44 20 69	lace.of.elements.matching.PRED.i
7820	6e 20 4c 49 53 54 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 70 6c 69 63 65 27 2c 20 60 2d	n.LIST...See.also:.`-splice',.`-
7840	69 6e 73 65 72 74 2d 61 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 4e 45 57 2d 4c 49 53 54 20 4c 49	insert-at'..(fn.PRED.NEW-LIST.LI
7860	53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 63 65 2d 6c 69 73 74 20 23 5b 37	ST)..(defalias.'-splice-list.#[7
7880	37 31 20 22 5c 33 30 30 03 5c 33 30 31 5c 33 30 32 05 5c 22 03 23 5c 32 30 37 22 20 5b 2d 73 70	71."\300.\301\302.\".#\207".[-sp
78a0	6c 69 63 65 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 32 30	lice.make-closure.#[257."\300\20
78c0	37 22 20 5b 56 30 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 5f 29 22 5d 5d 20 38 20 28 23 24 20 2e	7".[V0].2."\n\n(fn._)"]].8.(#$..
78e0	20 33 30 37 30 30 29 5d 29 0a 23 40 36 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66	.30700)]).#@60.Anaphoric.form.of
7900	20 60 2d 73 70 6c 69 63 65 2d 6c 69 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4e 45 57 2d 4c	.`-splice-list'...(fn.PRED.NEW-L
7920	49 53 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 70 6c 69 63 65 2d 6c	IST.LIST)..(defalias.'--splice-l
7940	69 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	ist.'(macro...#[771."\300\301\30
7960	32 05 45 03 03 46 5c 32 30 37 22 20 5b 2d 73 70 6c 69 63 65 2d 6c 69 73 74 20 6c 61 6d 62 64 61	2.E..F\207".[-splice-list.lambda
7980	20 28 69 74 29 5d 20 37 20 28 23 24 20 2e 20 33 30 39 35 39 29 5d 29 29 0a 28 70 75 74 20 27 2d	.(it)].7.(#$...30959)])).(put.'-
79a0	2d 73 70 6c 69 63 65 2d 6c 69 73 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27	-splice-list.'edebug-form-spec.'
79c0	28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 33 34 20 4d 61 6b 65	(def-form.form.form)).#@234.Make
79e0	20 61 20 6e 65 77 20 6c 69 73 74 20 66 72 6f 6d 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66	.a.new.list.from.the.elements.of
7a00	20 41 52 47 53 2e 0a 54 68 65 20 6c 61 73 74 20 32 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 41 52	.ARGS..The.last.2.elements.of.AR
7a20	47 53 20 61 72 65 20 75 73 65 64 20 61 73 20 74 68 65 20 66 69 6e 61 6c 20 63 6f 6e 73 20 6f 66	GS.are.used.as.the.final.cons.of
7a40	20 74 68 65 0a 72 65 73 75 6c 74 2c 20 73 6f 20 69 66 20 74 68 65 20 66 69 6e 61 6c 20 65 6c 65	.the.result,.so.if.the.final.ele
7a60	6d 65 6e 74 20 6f 66 20 41 52 47 53 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 2c 20 74 68 65 20	ment.of.ARGS.is.not.a.list,.the.
7a80	72 65 73 75 6c 74 0a 69 73 20 61 20 64 6f 74 74 65 64 20 6c 69 73 74 2e 20 20 57 69 74 68 20 6e	result.is.a.dotted.list...With.n
7aa0	6f 20 41 52 47 53 2c 20 72 65 74 75 72 6e 20 6e 69 6c 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 41	o.ARGS,.return.nil...(fn.&rest.A
7ac0	52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 2a 20 23 5b 31 32 38 20 22 5c	RGS)..(defalias.'-cons*.#[128."\
7ae0	32 31 31 47 5c 32 31 31 5c 33 30 30 5a 02 5c 32 33 33 5c 32 31 31 41 5c 32 31 31 5c 32 30 34 10	211G\211\300Z.\233\211A\211\204.
7b00	00 03 40 5c 32 30 37 01 01 40 5c 32 34 31 5c 32 31 30 03 5c 32 30 37 22 20 5b 32 5d 20 36 20 28	..@\207..@\241\210.\207".[2].6.(
7b20	23 24 20 2e 20 33 31 31 39 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	#$...31196)]).(byte-code."\300\3
7b40	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
7b60	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6e 73 2a 20 70 75 72 65 20	\207".[function-put.-cons*.pure.
7b80	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 38 34 20 41 70 70	t.side-effect-free].5).#@184.App
7ba0	65 6e 64 20 45 4c 45 4d 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 6c 69 73 74 2e	end.ELEM.to.the.end.of.the.list.
7bc0	0a 0a 54 68 69 73 20 69 73 20 6c 69 6b 65 20 60 63 6f 6e 73 27 2c 20 62 75 74 20 6f 70 65 72 61	..This.is.like.`cons',.but.opera
7be0	74 65 73 20 6f 6e 20 74 68 65 20 65 6e 64 20 6f 66 20 6c 69 73 74 2e 0a 0a 49 66 20 61 6e 79 20	tes.on.the.end.of.list...If.any.
7c00	45 4c 45 4d 45 4e 54 53 20 61 72 65 20 67 69 76 65 6e 2c 20 61 70 70 65 6e 64 20 74 68 65 6d 20	ELEMENTS.are.given,.append.them.
7c20	74 6f 20 74 68 65 20 6c 69 73 74 20 61 73 20 77 65 6c 6c 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 45	to.the.list.as.well...(fn.LIST.E
7c40	4c 45 4d 20 26 72 65 73 74 20 45 4c 45 4d 45 4e 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	LEM.&rest.ELEMENTS)..(defalias.'
7c60	2d 73 6e 6f 63 20 23 5b 36 34 32 20 22 5c 33 30 30 03 03 43 03 23 5c 32 30 37 22 20 5b 2d 63 6f	-snoc.#[642."\300..C.#\207".[-co
7c80	6e 63 61 74 5d 20 37 20 28 23 24 20 2e 20 33 31 36 34 35 29 5d 29 0a 23 40 32 37 37 20 52 65 74	ncat].7.(#$...31645)]).#@277.Ret
7ca0	75 72 6e 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 66 6f 72 20 77	urn.the.first.item.in.LIST.for.w
7cc0	68 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2e 0a 52 65 74 75	hich.FORM.evals.to.non-nil..Retu
7ce0	72 6e 20 6e 69 6c 20 69 66 20 6e 6f 20 73 75 63 68 20 65 6c 65 6d 65 6e 74 20 69 73 20 66 6f 75	rn.nil.if.no.such.element.is.fou
7d00	6e 64 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e	nd..Each.element.of.LIST.in.turn
7d20	20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 78 0a	.is.bound.to.`it'.and.its.index.
7d40	77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 66 6f 72 65	within.LIST.to.`it-index'.before
7d60	20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e	.evaluating.FORM..This.is.the.an
7d80	61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 66 69 72 73 74 27 2e	aphoric.counterpart.to.`-first'.
7da0	0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66	..(fn.FORM.LIST)..(defalias.'--f
7dc0	69 72 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c	irst.'(macro...#[514."\300\301!\
7de0	33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 5c 33 30 35 06 08 44 5c 33 30 36 5c 33 30 37 06 08 5c	302.C\303.\304\305..D\306\307..\
7e00	33 31 30 42 42 44 45 45 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6e 65	310BBDEE.F\207".[make-symbol."ne
7e20	65 64 6c 65 22 20 6c 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 6f 72 20 6e 6f 74 20 69 67	edle".let.--each-while.or.not.ig
7e40	6e 6f 72 65 20 73 65 74 71 20 28 69 74 29 5d 20 31 33 20 28 23 24 20 2e 20 33 31 39 30 31 29 5d	nore.setq.(it)].13.(#$...31901)]
7e60	29 29 0a 28 70 75 74 20 27 2d 2d 66 69 72 73 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70	)).(put.'--first.'edebug-form-sp
7e80	65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 35 34 20 52 65 74 75 72 6e 20 74 68	ec.'(form.form)).#@254.Return.th
7ea0	65 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 50	e.first.item.in.LIST.for.which.P
7ec0	52 45 44 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20	RED.returns.non-nil..Return.nil.
7ee0	69 66 20 6e 6f 20 73 75 63 68 20 65 6c 65 6d 65 6e 74 20 69 73 20 66 6f 75 6e 64 2e 0a 54 6f 20	if.no.such.element.is.found..To.
7f00	67 65 74 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 74 68 65 20 6c 69 73 74 20 6e	get.the.first.item.in.the.list.n
7f20	6f 20 71 75 65 73 74 69 6f 6e 73 20 61 73 6b 65 64 2c 20 75 73 65 20 60 63 61 72 27 2e 0a 0a 41	o.questions.asked,.use.`car'...A
7f40	6c 69 61 73 3a 20 60 2d 66 69 6e 64 27 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20	lias:.`-find'...This.function's.
7f60	61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 66 69 72 73	anaphoric.counterpart.is.`--firs
7f80	74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	t'...(fn.PRED.LIST)..(defalias.'
7fa0	2d 66 69 72 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 5c	-first.#[514."\300.\301\300\211\
7fc0	32 31 31 04 5c 32 30 33 32 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c	211.\2032..\211A\262.\242\262..\
7fe0	32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 32 00 06 07 02 21 5c 32 30 33 25 00 01 5c	262..\211\262.\2032....!\203%..\
8000	32 30 37 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 30 32 06 00 5c 32 36 36	207.\262..\262..T\262.\202..\266
8020	05 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 30 20 28 23 24 20 2e 20 33 32 34 30 37 29 5d 29	.\207".[nil.0].10.(#$...32407)])
8040	0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c	.(byte-code."\300\301\302\"\210\
8060	33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 66 69	300\303\304\"\207".[defalias.-fi
8080	6e 64 20 2d 66 69 72 73 74 20 2d 2d 66 69 6e 64 20 2d 2d 66 69 72 73 74 5d 20 33 29 0a 23 40 32	nd.-first.--find.--first].3).#@2
80a0	38 39 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 46 4f 52 4d 20 65 76 61 6c 73 20	89.Return.non-nil.if.FORM.evals.
80c0	74 6f 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 69 74 65 6d	to.non-nil.for.at.least.one.item
80e0	20 69 6e 20 4c 49 53 54 2e 0a 49 66 20 73 6f 2c 20 72 65 74 75 72 6e 20 74 68 65 20 66 69 72 73	.in.LIST..If.so,.return.the.firs
8100	74 20 73 75 63 68 20 72 65 73 75 6c 74 20 6f 66 20 46 4f 52 4d 2e 0a 45 61 63 68 20 65 6c 65 6d	t.such.result.of.FORM..Each.elem
8120	65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20	ent.of.LIST.in.turn.is.bound.to.
8140	60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 78 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74	`it'.and.its.index.within.LIST.t
8160	6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 46	o.`it-index'.before.evaluating.F
8180	4f 52 4d 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74	ORM..This.is.the.anaphoric.count
81a0	65 72 70 61 72 74 20 74 6f 20 60 2d 73 6f 6d 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53	erpart.to.`-some'...(fn.FORM.LIS
81c0	54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 6f 6d 65 20 27 28 6d 61 63 72 6f 20 2e 20	T)..(defalias.'--some.'(macro...
81e0	23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 5c	#[514."\300\301!\302.C\303.\304\
8200	33 30 35 06 06 06 09 45 44 45 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22	305....EDE.F\207".[make-symbol."
8220	6e 65 65 64 6c 65 22 20 6c 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 6e 6f 74 20 73 65 74	needle".let.--each-while.not.set
8240	71 5d 20 31 31 20 28 23 24 20 2e 20 33 32 39 33 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 6f	q].11.(#$...32931)])).(put.'--so
8260	6d 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d	me.'edebug-form-spec.'(form.form
8280	29 29 0a 23 40 31 36 32 20 52 65 74 75 72 6e 20 28 50 52 45 44 20 78 29 20 66 6f 72 20 74 68 65	)).#@162.Return.(PRED.x).for.the
82a0	20 66 69 72 73 74 20 4c 49 53 54 20 69 74 65 6d 20 77 68 65 72 65 20 28 50 52 45 44 20 78 29 20	.first.LIST.item.where.(PRED.x).
82c0	69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 6c 73 65 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d	is.non-nil,.else.nil...Alias:.`-
82e0	61 6e 79 27 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63	any'...This.function's.anaphoric
8300	20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 73 6f 6d 65 27 2e 0a 0a 28 66 6e 20 50	.counterpart.is.`--some'...(fn.P
8320	52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6f 6d 65 20 23 5b 35 31	RED.LIST)..(defalias.'-some.#[51
8340	34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 33 00 04	4."\300.\301\300\211\211.\2033..
8360	5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32	\211A\262.\242\262..\262..\211\2
8380	36 32 02 5c 32 30 33 33 00 06 07 02 21 5c 32 31 31 5c 32 36 32 07 5c 32 30 34 33 00 02 5c 32 36	62.\2033....!\211\262.\2043..\26
83a0	32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 30 32 06 00 5c 32 36 36 05 5c 32 30 37 22 20	2..\262..T\262.\202..\266.\207".
83c0	5b 6e 69 6c 20 30 5d 20 31 30 20 28 23 24 20 2e 20 33 33 34 31 37 29 5d 29 0a 28 62 79 74 65 2d	[nil.0].10.(#$...33417)]).(byte-
83e0	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33	code."\300\301\302\"\210\300\303
8400	5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 61 6e 79 20 2d 73 6f 6d 65	\304\"\207".[defalias.-any.-some
8420	20 2d 2d 61 6e 79 20 2d 2d 73 6f 6d 65 5d 20 33 29 0a 23 40 35 31 38 20 52 65 74 75 72 6e 20 6e	.--any.--some].3).#@518.Return.n
8440	6f 6e 2d 6e 69 6c 20 69 66 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 20	on-nil.if.FORM.evals.to.non-nil.
8460	66 6f 72 20 61 6c 6c 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 49 66 20 73 6f 2c 20 72 65	for.all.items.in.LIST..If.so,.re
8480	74 75 72 6e 20 74 68 65 20 6c 61 73 74 20 73 75 63 68 20 72 65 73 75 6c 74 20 6f 66 20 46 4f 52	turn.the.last.such.result.of.FOR
84a0	4d 2e 20 20 4f 74 68 65 72 77 69 73 65 2c 20 6f 6e 63 65 20 61 6e 0a 69 74 65 6d 20 69 73 20 72	M...Otherwise,.once.an.item.is.r
84c0	65 61 63 68 65 64 20 66 6f 72 20 77 68 69 63 68 20 46 4f 52 4d 20 79 69 65 6c 64 73 20 6e 69 6c	eached.for.which.FORM.yields.nil
84e0	2c 20 72 65 74 75 72 6e 20 6e 69 6c 20 77 69 74 68 6f 75 74 0a 65 76 61 6c 75 61 74 69 6e 67 20	,.return.nil.without.evaluating.
8500	46 4f 52 4d 20 66 6f 72 20 61 6e 79 20 66 75 72 74 68 65 72 20 4c 49 53 54 20 65 6c 65 6d 65 6e	FORM.for.any.further.LIST.elemen
8520	74 73 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e	ts..Each.element.of.LIST.in.turn
8540	20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 78 0a	.is.bound.to.`it'.and.its.index.
8560	77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 66 6f 72 65	within.LIST.to.`it-index'.before
8580	20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 0a 0a 54 68 69 73 20 6d 61 63 72 6f 20 69 73	.evaluating.FORM...This.macro.is
85a0	20 6c 69 6b 65 20 60 2d 2d 65 76 65 72 79 2d 70 27 2c 20 62 75 74 20 6f 6e 20 73 75 63 63 65 73	.like.`--every-p',.but.on.succes
85c0	73 20 72 65 74 75 72 6e 73 20 74 68 65 20 6c 61 73 74 0a 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c	s.returns.the.last.non-nil.resul
85e0	74 20 6f 66 20 46 4f 52 4d 20 69 6e 73 74 65 61 64 20 6f 66 20 6a 75 73 74 20 74 2e 0a 0a 54 68	t.of.FORM.instead.of.just.t...Th
8600	69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20	is.is.the.anaphoric.counterpart.
8620	74 6f 20 60 2d 65 76 65 72 79 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64	to.`-every'...(fn.FORM.LIST)..(d
8640	65 66 61 6c 69 61 73 20 27 2d 2d 65 76 65 72 79 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34	efalias.'--every.'(macro...#[514
8660	20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 5c 33 30 33 42 43 5c 33 30 34 04 5c 33 30 35 05	."\300\301!\302.\303BC\304.\305.
8680	06 08 45 45 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 61 6c 6c 22 20 6c	..EE.F\207".[make-symbol."all".l
86a0	65 74 20 28 74 29 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 73 65 74 71 5d 20 31 30 20 28 23 24	et.(t).--each-while.setq].10.(#$
86c0	20 2e 20 33 33 38 34 38 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 65 76 65 72 79 20 27 65 64 65 62	...33848)])).(put.'--every.'edeb
86e0	75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 34 31 31	ug-form-spec.'(form.form)).#@411
8700	20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 50 52 45 44 20 72 65 74 75 72 6e 73 20	.Return.non-nil.if.PRED.returns.
8720	6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61 6c 6c 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 49	non-nil.for.all.items.in.LIST..I
8740	66 20 73 6f 2c 20 72 65 74 75 72 6e 20 74 68 65 20 6c 61 73 74 20 73 75 63 68 20 72 65 73 75 6c	f.so,.return.the.last.such.resul
8760	74 20 6f 66 20 50 52 45 44 2e 20 20 4f 74 68 65 72 77 69 73 65 2c 20 6f 6e 63 65 20 61 6e 0a 69	t.of.PRED...Otherwise,.once.an.i
8780	74 65 6d 20 69 73 20 72 65 61 63 68 65 64 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65	tem.is.reached.for.which.PRED.re
87a0	74 75 72 6e 73 20 6e 69 6c 2c 20 72 65 74 75 72 6e 20 6e 69 6c 20 77 69 74 68 6f 75 74 0a 63 61	turns.nil,.return.nil.without.ca
87c0	6c 6c 69 6e 67 20 50 52 45 44 20 6f 6e 20 61 6e 79 20 66 75 72 74 68 65 72 20 4c 49 53 54 20 65	lling.PRED.on.any.further.LIST.e
87e0	6c 65 6d 65 6e 74 73 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 6c 69 6b 65 20	lements...This.function.is.like.
8800	60 2d 65 76 65 72 79 2d 70 27 2c 20 62 75 74 20 6f 6e 20 73 75 63 63 65 73 73 20 72 65 74 75 72	`-every-p',.but.on.success.retur
8820	6e 73 20 74 68 65 20 6c 61 73 74 0a 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 20 6f 66 20 50 52	ns.the.last.non-nil.result.of.PR
8840	45 44 20 69 6e 73 74 65 61 64 20 6f 66 20 6a 75 73 74 20 74 2e 0a 0a 54 68 69 73 20 66 75 6e 63	ED.instead.of.just.t...This.func
8860	74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20	tion's.anaphoric.counterpart.is.
8880	60 2d 2d 65 76 65 72 79 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66	`--every'...(fn.PRED.LIST)..(def
88a0	61 6c 69 61 73 20 27 2d 65 76 65 72 79 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33	alias.'-every.#[514."\300.\301\3
88c0	30 32 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 33 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32	02\211\211.\2033..\211A\262.\242
88e0	5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 33 00 06 07 02 21 5c	\262..\262..\211\262.\2033....!\
8900	32 31 31 5c 32 36 32 07 5c 32 30 33 33 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32	211\262.\2033..\262..\262..T\262
8920	04 5c 32 30 32 06 00 5c 32 36 36 05 5c 32 30 37 22 20 5b 74 20 30 20 6e 69 6c 5d 20 31 30 20 28	.\202..\266.\207".[t.0.nil].10.(
8940	23 24 20 2e 20 33 34 35 36 31 29 5d 29 0a 23 40 34 34 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72	#$...34561)]).#@44.Anaphoric.for
8960	6d 20 6f 66 20 60 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28	m.of.`-last'...(fn.FORM.LIST)..(
8980	64 65 66 61 6c 69 61 73 20 27 2d 2d 6c 61 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34	defalias.'--last.'(macro...#[514
89a0	20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 06 07 5c 33 30 35	."\300\301!\302.C\303.\304..\305
89c0	06 07 5c 33 30 36 42 42 45 45 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22	..\306BBEE.F\207".[make-symbol."
89e0	6e 65 65 64 6c 65 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 73 65 74 71 20 28 69 74	needle".let.--each.when.setq.(it
8a00	29 5d 20 31 32 20 28 23 24 20 2e 20 33 35 31 35 35 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6c 61	)].12.(#$...35155)])).(put.'--la
8a20	73 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d	st.'edebug-form-spec.'(form.form
8a40	29 29 0a 23 40 38 30 20 52 65 74 75 72 6e 20 74 68 65 20 6c 61 73 74 20 78 20 69 6e 20 4c 49 53	)).#@80.Return.the.last.x.in.LIS
8a60	54 20 77 68 65 72 65 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 6c 73	T.where.(PRED.x).is.non-nil,.els
8a80	65 20 6e 69 6c 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61	e.nil...(fn.PRED.LIST)..(defalia
8aa0	73 20 27 2d 6c 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31	s.'-last.#[514."\300.\301\300\21
8ac0	31 03 5c 32 30 33 25 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36	1.\203%..\211A\262.\242\262..\26
8ae0	32 01 02 54 5c 32 36 32 03 06 06 02 21 5c 32 30 33 05 00 01 5c 32 36 32 05 5c 32 30 32 05 00 5c	2..T\262....!\203...\262.\202..\
8b00	32 36 36 04 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 33 35 34 30 30 29	266.\207".[nil.0].9.(#$...35400)
8b20	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#
8b40	5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 31 30 5c 33 30 34 5c 33 30	\210\304\301\305\306#\210\304\30
8b60	31 5c 33 30 37 5c 33 31 30 23 5c 32 31 30 5c 33 30 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 23 5c	1\307\310#\210\300\311\312\313#\
8b80	32 31 30 5c 33 30 30 5c 33 31 34 5c 33 31 35 5c 33 31 36 21 5c 32 30 33 24 00 5c 33 31 36 5c 32	210\300\314\315\316!\203$.\316\2
8ba0	30 32 25 00 5c 33 31 37 5c 33 32 30 23 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 66 69	02%.\317\320#\207".[defalias.-fi
8bc0	72 73 74 2d 69 74 65 6d 20 63 61 72 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 69	rst-item.car."Return.the.first.i
8be0	74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 6f 6e 20 61 6e 20 65 6d 70 74 79 20	tem.of.LIST,.or.nil.on.an.empty.
8c00	6c 69 73 74 2e 5c 6e 5c 6e 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 65 63 6f 6e 64 2d 69 74 65 6d	list.\n\nSee.also:.`-second-item
8c20	27 2c 20 60 2d 6c 61 73 74 2d 69 74 65 6d 27 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 20 70	',.`-last-item'.\n\n(fn.LIST)".p
8c40	75 74 20 62 79 74 65 2d 6f 70 63 6f 64 65 20 62 79 74 65 2d 63 61 72 20 62 79 74 65 2d 63 6f 6d	ut.byte-opcode.byte-car.byte-com
8c60	70 69 6c 65 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 6f 6e 65 2d 61 72 67 20 2d 73 65 63 6f 6e	pile.byte-compile-one-arg.-secon
8c80	64 2d 69 74 65 6d 20 63 61 64 72 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 69	d-item.cadr."Return.the.second.i
8ca0	74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 69 66 20 4c 49 53 54 20 69 73 20 74	tem.of.LIST,.or.nil.if.LIST.is.t
8cc0	6f 6f 20 73 68 6f 72 74 2e 5c 6e 5c 6e 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 68 69 72 64 2d 69	oo.short.\n\nSee.also:.`-third-i
8ce0	74 65 6d 27 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 20 2d 74 68 69 72 64 2d 69 74 65 6d 20	tem'.\n\n(fn.LIST)".-third-item.
8d00	66 62 6f 75 6e 64 70 20 63 61 64 64 72 20 23 5b 32 35 37 20 22 5c 32 31 31 41 41 40 5c 32 30 37	fboundp.caddr.#[257."\211AA@\207
8d20	22 20 5b 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 5d 20 22 52 65 74 75 72 6e 20	".[].2."\n\n(fn.LIST)"]."Return.
8d40	74 68 65 20 74 68 69 72 64 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 69	the.third.item.of.LIST,.or.nil.i
8d60	66 20 4c 49 53 54 20 69 73 20 74 6f 6f 20 73 68 6f 72 74 2e 5c 6e 5c 6e 53 65 65 20 61 6c 73 6f	f.LIST.is.too.short.\n\nSee.also
8d80	3a 20 60 2d 66 6f 75 72 74 68 2d 69 74 65 6d 27 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 5d	:.`-fourth-item'.\n\n(fn.LIST)"]
8da0	20 34 29 0a 23 40 39 39 20 52 65 74 75 72 6e 20 74 68 65 20 66 6f 75 72 74 68 20 69 74 65 6d 20	.4).#@99.Return.the.fourth.item.
8dc0	6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 69 66 20 4c 49 53 54 20 69 73 20 74 6f 6f 20 73	of.LIST,.or.nil.if.LIST.is.too.s
8de0	68 6f 72 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 69 66 74 68 2d 69 74 65 6d 27 2e 0a	hort...See.also:.`-fifth-item'..
8e00	0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 6f 75 72 74 68 2d 69	.(fn.LIST)..(defalias.'-fourth-i
8e20	74 65 6d 20 23 5b 32 35 37 20 22 5c 32 31 31 41 41 41 40 5c 32 30 37 22 20 5b 5d 20 32 20 28 23	tem.#[257."\211AAA@\207".[].2.(#
8e40	24 20 2e 20 33 36 32 36 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	$...36265)]).(byte-code."\300\30
8e60	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\
8e80	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 6f 75 72 74 68 2d 69 74 65 6d 20	207".[function-put.-fourth-item.
8ea0	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 39 37	pure.t.side-effect-free].5).#@97
8ec0	20 52 65 74 75 72 6e 20 74 68 65 20 66 69 66 74 68 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20	.Return.the.fifth.item.of.LIST,.
8ee0	6f 72 20 6e 69 6c 20 69 66 20 4c 49 53 54 20 69 73 20 74 6f 6f 20 73 68 6f 72 74 2e 0a 0a 53 65	or.nil.if.LIST.is.too.short...Se
8f00	65 20 61 6c 73 6f 3a 20 60 2d 6c 61 73 74 2d 69 74 65 6d 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 29	e.also:.`-last-item'...(fn.LIST)
8f20	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 66 74 68 2d 69 74 65 6d 20 23 5b 32 35 37 20 22	..(defalias.'-fifth-item.#[257."
8f40	5c 32 31 31 41 41 41 41 40 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 33 36 35 34 35 29	\211AAAA@\207".[].2.(#$...36545)
8f60	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#
8f80	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
8fa0	74 69 6f 6e 2d 70 75 74 20 2d 66 69 66 74 68 2d 69 74 65 6d 20 70 75 72 65 20 74 20 73 69 64 65	tion-put.-fifth-item.pure.t.side
8fc0	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 36 37 20 52 65 74 75 72 6e 20 74 68 65	-effect-free].5).#@67.Return.the
8fe0	20 6c 61 73 74 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 6f 6e 20 61 6e	.last.item.of.LIST,.or.nil.on.an
9000	20 65 6d 70 74 79 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69	.empty.list...(fn.LIST)..(defali
9020	61 73 20 27 2d 6c 61 73 74 2d 69 74 65 6d 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 40 5c 32 30	as.'-last-item.#[257."\300.!@\20
9040	37 22 20 5b 6c 61 73 74 5d 20 33 20 28 23 24 20 2e 20 33 36 38 32 32 29 5d 29 0a 28 62 79 74 65	7".[last].3.(#$...36822)]).(byte
9060	2d 63 6f 64 65 20 22 5c 33 30 33 5c 33 30 30 5c 33 30 34 5c 33 30 35 23 5c 33 30 33 5c 33 30 30	-code."\303\300\304\305#\303\300
9080	5c 33 30 36 5c 33 30 35 23 5c 33 30 37 5c 33 31 30 21 5c 32 30 33 19 00 5c 33 30 33 5c 33 30 30	\306\305#\307\310!\203..\303\300
90a0	5c 33 31 31 5c 33 31 32 23 5c 32 31 30 5c 32 30 32 27 00 5c 33 31 33 08 5c 33 30 31 20 5c 33 30	\311\312#\210\202'.\313.\301.\30
90c0	32 20 5c 33 31 34 5c 33 31 35 09 44 5c 6e 45 24 5c 32 31 30 5c 33 30 33 5c 32 30 37 22 20 5b 2d	2.\314\315.D\nE$\210\303\207".[-
90e0	6c 61 73 74 2d 69 74 65 6d 20 78 20 76 61 6c 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 70 75 72	last-item.x.val.function-put.pur
9100	65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 66 62 6f 75 6e 64 70 20 67 76 2d	e.t.side-effect-free.fboundp.gv-
9120	64 65 66 69 6e 65 2d 73 65 74 74 65 72 20 67 76 2d 65 78 70 61 6e 64 65 72 20 23 5b 33 38 35 20	define-setter.gv-expander.#[385.
9140	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 04 24 5c 32 30 37 22 20 5b 67 76 2d 2d 64 65 66 73 65	"\300\301\302..$\207".[gv--defse
9160	74 74 65 72 20 2d 6c 61 73 74 2d 69 74 65 6d 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02	tter.-last-item.#[514."\300\301.
9180	44 03 45 5c 32 30 37 22 20 5b 73 65 74 63 61 72 20 6c 61 73 74 5d 20 35 20 22 5c 6e 5c 6e 28 66	D.E\207".[setcar.last].5."\n\n(f
91a0	6e 20 56 41 4c 20 58 29 22 5d 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 44 4f 20 26 72 65 73 74 20	n.VAL.X)"]].7."\n\n(fn.DO.&rest.
91c0	41 52 47 53 29 22 5d 20 64 65 66 73 65 74 66 20 73 65 74 63 61 72 20 6c 61 73 74 5d 20 39 29 0a	ARGS)"].defsetf.setcar.last].9).
91e0	23 40 36 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 69 74 65 6d 73 20	#@68.Return.a.list.of.all.items.
9200	69 6e 20 6c 69 73 74 20 65 78 63 65 70 74 20 66 6f 72 20 74 68 65 20 6c 61 73 74 2e 0a 0a 28 66	in.list.except.for.the.last...(f
9220	6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 62 75 74 6c 61 73 74 20 23 5b 32	n.LIST)..(defalias.'-butlast.#[2
9240	35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 62 75 74 6c 61 73 74 5d 20 33 20 28 23 24 20	57."\300.!\207".[butlast].3.(#$.
9260	2e 20 33 37 33 34 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 5c	..37349)]).(byte-code."\300\301\
9280	33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30	302\303#\300\301\304\303#\300\20
92a0	37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 62 75 74 6c 61 73 74 20 70 75 72 65 20 74	7".[function-put.-butlast.pure.t
92c0	20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 35 20 41 6e 61 70 68	.side-effect-free].5).#@45.Anaph
92e0	6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 63 6f 75 6e 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44	oric.form.of.`-count'...(fn.PRED
9300	20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 63 6f 75 6e 74 20 27 28 6d 61 63	.LIST)..(defalias.'--count.'(mac
9320	72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 5c 33 30 33 42 43	ro...#[514."\300\301!\302.\303BC
9340	5c 33 30 34 04 5c 33 30 35 06 07 5c 33 30 36 06 07 5c 33 30 37 06 09 44 45 45 45 03 46 5c 32 30	\304.\305..\306..\307..DEEE.F\20
9360	37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 6c 65 74 20 28 30 29	7".[make-symbol."result".let.(0)
9380	20 2d 2d 65 61 63 68 20 77 68 65 6e 20 73 65 74 71 20 31 2b 5d 20 31 33 20 28 23 24 20 2e 20 33	.--each.when.setq.1+].13.(#$...3
93a0	37 35 39 35 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 63 6f 75 6e 74 20 27 65 64 65 62 75 67 2d 66	7595)])).(put.'--count.'edebug-f
93c0	6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 38 32 20 43 6f 75 6e	orm-spec.'(form.form)).#@82.Coun
93e0	74 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 77	ts.the.number.of.items.in.LIST.w
9400	68 65 72 65 20 28 50 52 45 44 20 69 74 65 6d 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 28 66	here.(PRED.item).is.non-nil...(f
9420	6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 75 6e 74 20	n.PRED.LIST)..(defalias.'-count.
9440	23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 30 5c 33 30 31 5c 32 31 31 03 5c 32 30 33 26 00 03	#[514."\300.\300\301\211.\203&..
9460	5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03	\211A\262.\242\262..\262..T\262.
9480	06 06 02 21 5c 32 30 33 05 00 04 54 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 30 37	...!\203...T\262.\202..\266.\207
94a0	22 20 5b 30 20 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 33 37 38 35 32 29 5d 29 0a 23 40 35 33 20	".[0.nil].9.(#$...37852)]).#@53.
94c0	52 65 74 75 72 6e 20 4f 42 4a 20 61 73 20 61 20 62 6f 6f 6c 65 61 6e 20 76 61 6c 75 65 20 28 74	Return.OBJ.as.a.boolean.value.(t
94e0	20 6f 72 20 6e 69 6c 29 2e 0a 0a 28 66 6e 20 4f 42 4a 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	.or.nil)...(fn.OBJ)..(defalias.'
9500	2d 2d 2d 74 72 75 74 68 79 5c 3f 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 35 05 00 5c 33 30	---truthy\?.#[257."\211\205..\30
9520	30 5c 32 30 37 22 20 5b 74 5d 20 32 20 28 23 24 20 2e 20 33 38 30 38 30 29 5d 29 0a 28 62 79 74	0\207".[t].2.(#$...38080)]).(byt
9540	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
9560	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
9580	74 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74	t.---truthy\?.pure.t.side-effect
95a0	2d 66 72 65 65 5d 20 35 29 0a 23 40 34 34 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66	-free].5).#@44.Anaphoric.form.of
95c0	20 60 2d 61 6e 79 3f 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61	.`-any?'...(fn.FORM.LIST)..(defa
95e0	6c 69 61 73 20 27 2d 2d 61 6e 79 5c 3f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c	lias.'--any\?.'(macro...#[514."\
9600	33 30 30 5c 33 30 31 03 03 45 5c 33 30 32 42 42 5c 32 30 37 22 20 5b 61 6e 64 20 2d 2d 73 6f 6d	300\301..E\302BB\207".[and.--som
9620	65 20 28 74 29 5d 20 36 20 28 23 24 20 2e 20 33 38 33 31 39 29 5d 29 29 0a 28 70 75 74 20 27 2d	e.(t)].6.(#$...38319)])).(put.'-
9640	2d 61 6e 79 5c 3f 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20	-any\?.'edebug-form-spec.'(form.
9660	66 6f 72 6d 29 29 0a 23 40 31 31 36 20 52 65 74 75 72 6e 20 74 20 69 66 20 28 50 52 45 44 20 58	form)).#@116.Return.t.if.(PRED.X
9680	29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61 6e 79 20 58 20 69 6e 20 4c 49 53 54 2c 20	).is.non-nil.for.any.X.in.LIST,.
96a0	65 6c 73 65 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 61 6e 79 2d 70 27 2c 20 60 2d 73 6f	else.nil...Alias:.`-any-p',.`-so
96c0	6d 65 3f 27 2c 20 60 2d 73 6f 6d 65 2d 70 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f	me?',.`-some-p'..(fn.PRED.LIST).
96e0	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 6e 79 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c	.(defalias.'-any\?.#[514."\300.\
9700	33 30 31 5c 33 30 30 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 33 00 04 5c 32 31 31 41 5c 32 36 32	301\300\211\211.\2033..\211A\262
9720	06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 33 00	.\242\262..\262..\211\262.\2033.
9740	06 07 02 21 5c 32 31 31 5c 32 36 32 07 5c 32 30 34 33 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03	...!\211\262.\2043..\262..\262..
9760	54 5c 32 36 32 04 5c 32 30 32 06 00 5c 32 36 36 05 5c 32 31 31 5c 32 36 32 01 5c 32 30 35 3c 00	T\262.\202..\266.\211\262.\205<.
9780	5c 33 30 32 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20 74 5d 20 31 30 20 28 23 24 20 2e 20 33 38 35	\302\207".[nil.0.t].10.(#$...385
97a0	30 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 5c 33 30 32 5c 22	09)]).(byte-code."\300\301\302\"
97c0	5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 35 5c 33	\210\300\303\304\"\210\300\305\3
97e0	30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 36 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33	02\"\210\300\306\304\"\210\300\3
9800	30 37 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 31 30 5c 33 30 34 5c 22 5c 32 30 37 22 20	07\302\"\210\300\310\304\"\207".
9820	5b 64 65 66 61 6c 69 61 73 20 2d 73 6f 6d 65 5c 3f 20 2d 61 6e 79 5c 3f 20 2d 2d 73 6f 6d 65 5c	[defalias.-some\?.-any\?.--some\
9840	3f 20 2d 2d 61 6e 79 5c 3f 20 2d 61 6e 79 2d 70 20 2d 2d 61 6e 79 2d 70 20 2d 73 6f 6d 65 2d 70	?.--any\?.-any-p.--any-p.-some-p
9860	20 2d 2d 73 6f 6d 65 2d 70 5d 20 33 29 0a 23 40 35 33 34 20 52 65 74 75 72 6e 20 74 20 69 66 20	.--some-p].3).#@534.Return.t.if.
9880	46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61 6c 6c 20 69 74	FORM.evals.to.non-nil.for.all.it
98a0	65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 4f 74 68 65 72 77 69 73 65 2c 20 6f 6e 63 65 20 61 6e 20	ems.in.LIST..Otherwise,.once.an.
98c0	69 74 65 6d 20 69 73 20 72 65 61 63 68 65 64 20 66 6f 72 20 77 68 69 63 68 20 46 4f 52 4d 20 79	item.is.reached.for.which.FORM.y
98e0	69 65 6c 64 73 20 6e 69 6c 2c 0a 72 65 74 75 72 6e 20 6e 69 6c 20 77 69 74 68 6f 75 74 20 65 76	ields.nil,.return.nil.without.ev
9900	61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 20 66 6f 72 20 61 6e 79 20 66 75 72 74 68 65 72 20 4c 49	aluating.FORM.for.any.further.LI
9920	53 54 20 65 6c 65 6d 65 6e 74 73 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53	ST.elements..Each.element.of.LIS
9940	54 20 69 6e 20 74 75 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69	T.in.turn.is.bound.to.`it'.and.i
9960	74 73 20 69 6e 64 65 78 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65	ts.index.within.LIST.to.`it-inde
9980	78 27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 0a 0a 54 68 65 20	x'.before.evaluating.FORM...The.
99a0	73 69 6d 69 6c 61 72 20 6d 61 63 72 6f 20 60 2d 2d 65 76 65 72 79 27 20 69 73 20 6d 6f 72 65 20	similar.macro.`--every'.is.more.
99c0	77 69 64 65 6c 79 20 75 73 65 66 75 6c 2c 20 73 69 6e 63 65 20 69 74 0a 72 65 74 75 72 6e 73 20	widely.useful,.since.it.returns.
99e0	74 68 65 20 6c 61 73 74 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 20 6f 66 20 46 4f 52 4d 20	the.last.non-nil.result.of.FORM.
9a00	69 6e 73 74 65 61 64 20 6f 66 20 6a 75 73 74 20 74 20 6f 6e 0a 73 75 63 63 65 73 73 2e 0a 0a 41	instead.of.just.t.on.success...A
9a20	6c 69 61 73 3a 20 60 2d 2d 61 6c 6c 2d 70 27 2c 20 60 2d 2d 65 76 65 72 79 2d 70 27 2c 20 60 2d	lias:.`--all-p',.`--every-p',.`-
9a40	2d 65 76 65 72 79 3f 27 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63	-every?'...This.is.the.anaphoric
9a60	20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 61 6c 6c 3f 27 2e 0a 0a 28 66 6e 20 46 4f	.counterpart.to.`-all?'...(fn.FO
9a80	52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 61 6c 6c 5c 3f 20 27 28 6d	RM.LIST)..(defalias.'--all\?.'(m
9aa0	61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 03 45 5c 33 30 32 42 42 5c	acro...#[514."\300\301..E\302BB\
9ac0	32 30 37 22 20 5b 61 6e 64 20 2d 2d 65 76 65 72 79 20 28 74 29 5d 20 36 20 28 23 24 20 2e 20 33	207".[and.--every.(t)].6.(#$...3
9ae0	39 30 32 38 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 61 6c 6c 5c 3f 20 27 65 64 65 62 75 67 2d 66	9028)])).(put.'--all\?.'edebug-f
9b00	6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 34 33 31 20 52 65 74	orm-spec.'(form.form)).#@431.Ret
9b20	75 72 6e 20 74 20 69 66 20 28 50 52 45 44 20 58 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72	urn.t.if.(PRED.X).is.non-nil.for
9b40	20 61 6c 6c 20 58 20 69 6e 20 4c 49 53 54 2c 20 65 6c 73 65 20 6e 69 6c 2e 0a 49 6e 20 74 68 65	.all.X.in.LIST,.else.nil..In.the
9b60	20 6c 61 74 74 65 72 20 63 61 73 65 2c 20 73 74 6f 70 20 61 66 74 65 72 20 74 68 65 20 66 69 72	.latter.case,.stop.after.the.fir
9b80	73 74 20 58 20 66 6f 72 20 77 68 69 63 68 20 28 50 52 45 44 20 58 29 20 69 73 0a 6e 69 6c 2c 20	st.X.for.which.(PRED.X).is.nil,.
9ba0	77 69 74 68 6f 75 74 20 63 61 6c 6c 69 6e 67 20 50 52 45 44 20 6f 6e 20 61 6e 79 20 73 75 62 73	without.calling.PRED.on.any.subs
9bc0	65 71 75 65 6e 74 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 2e 0a 0a 54 68 65 20 73 69	equent.elements.of.LIST...The.si
9be0	6d 69 6c 61 72 20 66 75 6e 63 74 69 6f 6e 20 60 2d 65 76 65 72 79 27 20 69 73 20 6d 6f 72 65 20	milar.function.`-every'.is.more.
9c00	77 69 64 65 6c 79 20 75 73 65 66 75 6c 2c 20 73 69 6e 63 65 20 69 74 0a 72 65 74 75 72 6e 73 20	widely.useful,.since.it.returns.
9c20	74 68 65 20 6c 61 73 74 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 20 6f 66 20 50 52 45 44 20	the.last.non-nil.result.of.PRED.
9c40	69 6e 73 74 65 61 64 20 6f 66 20 6a 75 73 74 20 74 20 6f 6e 0a 73 75 63 63 65 73 73 2e 0a 0a 41	instead.of.just.t.on.success...A
9c60	6c 69 61 73 3a 20 60 2d 61 6c 6c 2d 70 27 2c 20 60 2d 65 76 65 72 79 2d 70 27 2c 20 60 2d 65 76	lias:.`-all-p',.`-every-p',.`-ev
9c80	65 72 79 3f 27 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69	ery?'...This.function's.anaphori
9ca0	63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 61 6c 6c 3f 27 2e 0a 0a 28 66 6e 20	c.counterpart.is.`--all?'...(fn.
9cc0	50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 6c 6c 5c 3f 20 23 5b	PRED.LIST)..(defalias.'-all\?.#[
9ce0	35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 33	514."\300.\301\302\211\211.\2033
9d00	00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31	..\211A\262.\242\262..\262..\211
9d20	5c 32 36 32 02 5c 32 30 33 33 00 06 07 02 21 5c 32 31 31 5c 32 36 32 07 5c 32 30 33 33 00 02 5c	\262.\2033....!\211\262.\2033..\
9d40	32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 30 32 06 00 5c 32 36 36 05 5c 32 31 31	262..\262..T\262.\202..\266.\211
9d60	5c 32 36 32 01 5c 32 30 35 3c 00 5c 33 30 30 5c 32 30 37 22 20 5b 74 20 30 20 6e 69 6c 5d 20 31	\262.\205<.\300\207".[t.0.nil].1
9d80	30 20 28 23 24 20 2e 20 33 39 37 30 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	0.(#$...39709)]).(byte-code."\30
9da0	30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 31	0\301\302\"\210\300\303\304\"\21
9dc0	30 5c 33 30 30 5c 33 30 35 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 36 5c 33 30 34 5c	0\300\305\302\"\210\300\306\304\
9de0	22 5c 32 31 30 5c 33 30 30 5c 33 30 37 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 31 30 5c	"\210\300\307\302\"\210\300\310\
9e00	33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 65 76 65 72 79 5c 3f 20 2d 61	304\"\207".[defalias.-every\?.-a
9e20	6c 6c 5c 3f 20 2d 2d 65 76 65 72 79 5c 3f 20 2d 2d 61 6c 6c 5c 3f 20 2d 61 6c 6c 2d 70 20 2d 2d	ll\?.--every\?.--all\?.-all-p.--
9e40	61 6c 6c 2d 70 20 2d 65 76 65 72 79 2d 70 20 2d 2d 65 76 65 72 79 2d 70 5d 20 33 29 0a 23 40 34	all-p.-every-p.--every-p].3).#@4
9e60	35 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6e 6f 6e 65 3f 27 2e 0a 0a 28	5.Anaphoric.form.of.`-none?'...(
9e80	66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6e 6f 6e 65	fn.FORM.LIST)..(defalias.'--none
9ea0	5c 3f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 44 02 45	\?.'(macro...#[514."\300\301.D.E
9ec0	5c 32 30 37 22 20 5b 2d 2d 61 6c 6c 5c 3f 20 6e 6f 74 5d 20 35 20 28 23 24 20 2e 20 34 30 35 34	\207".[--all\?.not].5.(#$...4054
9ee0	36 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6e 6f 6e 65 5c 3f 20 27 65 64 65 62 75 67 2d 66 6f 72	6)])).(put.'--none\?.'edebug-for
9f00	6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 39 32 20 52 65 74 75 72 6e	m-spec.'(form.form)).#@92.Return
9f20	20 74 20 69 66 20 28 50 52 45 44 20 58 29 20 69 73 20 6e 69 6c 20 66 6f 72 20 61 6c 6c 20 58 20	.t.if.(PRED.X).is.nil.for.all.X.
9f40	69 6e 20 4c 49 53 54 2c 20 65 6c 73 65 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 6e 6f 6e	in.LIST,.else.nil...Alias:.`-non
9f60	65 2d 70 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	e-p'..(fn.PRED.LIST)..(defalias.
9f80	27 2d 6e 6f 6e 65 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 5c 32 31	'-none\?.#[514."\300.\301\302\21
9fa0	31 5c 32 31 31 04 5c 32 30 33 34 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03	1\211.\2034..\211A\262.\242\262.
9fc0	02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 34 00 06 07 02 21 3f 5c 32 31 31 5c	.\262..\211\262.\2034....!?\211\
9fe0	32 36 32 07 5c 32 30 33 34 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 30	262.\2034..\262..\262..T\262.\20
a000	32 06 00 5c 32 36 36 05 5c 32 31 31 5c 32 36 32 01 5c 32 30 35 3d 00 5c 33 30 30 5c 32 30 37 22	2..\266.\211\262.\205=.\300\207"
a020	20 5b 74 20 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 34 30 37 33 30 29 5d 29 0a 28 62 79	.[t.0.nil].10.(#$...40730)]).(by
a040	74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c	te-code."\300\301\302\"\210\300\
a060	33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 6e 6f 6e 65 2d 70	303\304\"\207".[defalias.-none-p
a080	20 2d 6e 6f 6e 65 5c 3f 20 2d 2d 6e 6f 6e 65 2d 70 20 2d 2d 6e 6f 6e 65 5c 3f 5d 20 33 29 0a 23	.-none\?.--none-p.--none\?].3).#
a0a0	40 35 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6f 6e 6c 79 2d 73 6f 6d	@50.Anaphoric.form.of.`-only-som
a0c0	65 3f 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	e?'...(fn.FORM.LIST)..(defalias.
a0e0	27 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22	'--only-some\?.'(macro...#[514."
a100	5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 33 02 02 44 5c 33 30 34 05 5c 33	\300\301!\300\302!\303..D\304.\3
a120	30 35 5c 33 30 36 06 07 06 07 45 44 5c 33 30 37 06 09 5c 33 31 30 06 09 5c 33 31 31 42 42 5c 33	05\306....ED\307..\310..\311BB\3
a140	31 30 06 09 5c 33 31 32 42 42 46 46 5c 33 31 33 5c 33 30 36 06 06 06 06 45 44 46 5c 32 30 37 22	10..\312BBFF\313\306....EDF\207"
a160	20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 79 65 73 22 20 22 6e 6f 22 20 6c 65 74 20 2d 2d 65	.[make-symbol."yes"."no".let.--e
a180	61 63 68 2d 77 68 69 6c 65 20 6e 6f 74 20 61 6e 64 20 69 66 20 73 65 74 71 20 28 74 29 20 28 74	ach-while.not.and.if.setq.(t).(t
a1a0	29 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 5d 20 31 35 20 28 23 24 20 2e 20 34 31 31 32 34 29 5d 29	).---truthy\?].15.(#$...41124)])
a1c0	29 0a 28 70 75 74 20 27 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 27 65 64 65 62 75 67 2d 66 6f	).(put.'--only-some\?.'edebug-fo
a1e0	72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 38 34 20 52 65 74 75	rm-spec.'(form.form)).#@284.Retu
a200	72 6e 20 74 20 69 66 20 64 69 66 66 65 72 65 6e 74 20 4c 49 53 54 20 69 74 65 6d 73 20 62 6f 74	rn.t.if.different.LIST.items.bot
a220	68 20 73 61 74 69 73 66 79 20 61 6e 64 20 64 6f 20 6e 6f 74 20 73 61 74 69 73 66 79 20 50 52 45	h.satisfy.and.do.not.satisfy.PRE
a240	44 2e 0a 54 68 61 74 20 69 73 2c 20 69 66 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 62 6f 74 68	D..That.is,.if.PRED.returns.both
a260	20 6e 69 6c 20 66 6f 72 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 69 74 65 6d 2c 20 61 6e 64 0a	.nil.for.at.least.one.item,.and.
a280	6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 6f 74 68 65 72 20 69	non-nil.for.at.least.one.other.i
a2a0	74 65 6d 20 69 6e 20 4c 49 53 54 2e 20 20 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 61 6c 6c 0a	tem.in.LIST...Return.nil.if.all.
a2c0	69 74 65 6d 73 20 73 61 74 69 73 66 79 20 74 68 65 20 70 72 65 64 69 63 61 74 65 20 6f 72 20 6e	items.satisfy.the.predicate.or.n
a2e0	6f 6e 65 20 6f 66 20 74 68 65 6d 20 64 6f 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 6f 6e 6c 79 2d 73	one.of.them.do...Alias:.`-only-s
a300	6f 6d 65 2d 70 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61	ome-p'..(fn.PRED.LIST)..(defalia
a320	73 20 27 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 02	s.'-only-some\?.#[514."\300\211.
a340	5c 33 30 31 5c 33 30 30 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 43 00 04 5c 32 31 31 41 5c 32 36	\301\300\211\211.\203C..\211A\26
a360	32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 43	2.\242\262..\262..\211\262.\203C
a380	00 06 06 5c 32 30 33 26 00 05 5c 32 30 34 43 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32	...\203&..\204C..\262..\262..T\2
a3a0	36 32 04 06 08 02 21 5c 32 30 33 3d 00 5c 33 30 32 5c 32 36 32 07 5c 32 30 32 07 00 5c 33 30 32	62....!\203=.\302\262.\202..\302
a3c0	5c 32 36 32 06 5c 32 30 32 07 00 5c 32 36 36 05 5c 33 30 33 02 5c 32 30 35 4b 00 01 21 5c 32 30	\262.\202..\266.\303.\205K..!\20
a3e0	37 22 20 5b 6e 69 6c 20 30 20 74 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 5d 20 31 31 20 28 23 24 20	7".[nil.0.t.---truthy\?].11.(#$.
a400	2e 20 34 31 34 36 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c	..41468)]).(byte-code."\300\301\
a420	33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65	302\"\210\300\303\304\"\207".[de
a440	66 61 6c 69 61 73 20 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 20 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f	falias.-only-some-p.-only-some\?
a460	20 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 20 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 5d 20 33 29	.--only-some-p.--only-some\?].3)
a480	0a 23 40 32 38 37 20 52 65 74 75 72 6e 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 2c 20 73 74 61 72	.#@287.Return.copy.of.LIST,.star
a4a0	74 69 6e 67 20 66 72 6f 6d 20 69 6e 64 65 78 20 46 52 4f 4d 20 74 6f 20 69 6e 64 65 78 20 54 4f	ting.from.index.FROM.to.index.TO
a4c0	2e 0a 0a 46 52 4f 4d 20 6f 72 20 54 4f 20 6d 61 79 20 62 65 20 6e 65 67 61 74 69 76 65 2e 20 20	...FROM.or.TO.may.be.negative...
a4e0	54 68 65 73 65 20 76 61 6c 75 65 73 20 61 72 65 20 74 68 65 6e 20 69 6e 74 65 72 70 72 65 74 65	These.values.are.then.interprete
a500	64 0a 6d 6f 64 75 6c 6f 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 6c 69 73 74 2e	d.modulo.the.length.of.the.list.
a520	0a 0a 49 66 20 53 54 45 50 20 69 73 20 61 20 6e 75 6d 62 65 72 2c 20 6f 6e 6c 79 20 65 61 63 68	..If.STEP.is.a.number,.only.each
a540	20 53 54 45 50 74 68 20 69 74 65 6d 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 0a 73 65	.STEPth.item.in.the.resulting.se
a560	63 74 69 6f 6e 20 69 73 20 72 65 74 75 72 6e 65 64 2e 20 20 44 65 66 61 75 6c 74 73 20 74 6f 20	ction.is.returned...Defaults.to.
a580	31 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46 52 4f 4d 20 26 6f 70 74 69 6f 6e 61 6c 20 54 4f 20 53	1...(fn.LIST.FROM.&optional.TO.S
a5a0	54 45 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6c 69 63 65 20 23 5b 31 30 32 36 20 22	TEP)..(defalias.'-slice.#[1026."
a5c0	03 47 5c 33 30 30 03 5c 32 30 36 08 00 01 5c 32 36 32 04 02 5c 32 30 36 0f 00 5c 33 30 31 5c 32	.G\300.\206...\262..\206..\301\2
a5e0	36 32 03 04 5c 33 30 32 57 5c 32 30 33 1d 00 5c 33 30 33 05 03 5c 22 5c 32 36 32 05 03 5c 33 30	62..\302W\203..\303..\"\262..\30
a600	32 57 5c 32 30 33 29 00 5c 33 30 33 04 03 5c 22 5c 32 36 32 04 05 5c 33 30 32 5c 33 30 30 5c 32	2W\203).\303..\"\262..\302\300\2
a620	31 31 5c 32 31 31 04 5c 32 30 33 72 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32	11\211.\203r..\211A\262.\242\262
a640	03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 72 00 5c 32 31 31 06 09 57 5c 32	..\262..\211\262.\203r.\211..W\2
a660	30 33 72 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 31 31 06 5c 6e 59 5c	03r..\262..\262..T\262.\211.\nY\
a680	32 30 33 2e 00 5c 33 30 33 06 5c 6e 02 5a 06 09 5c 22 5c 33 30 32 55 5c 32 30 33 2e 00 01 06 06	203..\303.\n.Z..\"\302U\203.....
a6a0	42 5c 32 36 32 06 5c 32 30 32 2e 00 5c 32 36 36 05 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b	B\262.\202..\266.\211\237\207".[
a6c0	6e 69 6c 20 31 20 30 20 6d 6f 64 5d 20 31 34 20 28 23 24 20 2e 20 34 32 31 31 39 29 5d 29 0a 28	nil.1.0.mod].14.(#$...42119)]).(
a6e0	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
a700	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
a720	2d 70 75 74 20 2d 73 6c 69 63 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66	-put.-slice.pure.t.side-effect-f
a740	72 65 65 5d 20 35 29 0a 23 40 33 35 30 20 54 61 6b 65 20 73 75 63 63 65 73 73 69 76 65 20 69 74	ree].5).#@350.Take.successive.it
a760	65 6d 73 20 66 72 6f 6d 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61	ems.from.LIST.for.which.FORM.eva
a780	6c 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c	ls.to.non-nil..Each.element.of.L
a7a0	49 53 54 20 69 6e 20 74 75 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64	IST.in.turn.is.bound.to.`it'.and
a7c0	20 69 74 73 20 69 6e 64 65 78 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e	.its.index.within.LIST.to.`it-in
a7e0	64 65 78 27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 20 20 52 65	dex'.before.evaluating.FORM...Re
a800	74 75 72 6e 20 61 20 6e 65 77 0a 6c 69 73 74 20 6f 66 20 74 68 65 20 73 75 63 63 65 73 73 69 76	turn.a.new.list.of.the.successiv
a820	65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 4c 49 53	e.elements.from.the.start.of.LIS
a840	54 20 66 6f 72 20 77 68 69 63 68 0a 46 4f 52 4d 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f	T.for.which.FORM.evaluates.to.no
a860	6e 2d 6e 69 6c 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75	n-nil..This.is.the.anaphoric.cou
a880	6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 74 61 6b 65 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20	nterpart.to.`-take-while'...(fn.
a8a0	46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 61 6b 65 2d 77 68	FORM.LIST)..(defalias.'--take-wh
a8c0	69 6c 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33	ile.'(macro...#[514."\300\301!\3
a8e0	30 32 01 43 5c 33 30 33 04 06 06 5c 33 30 34 5c 33 30 35 06 07 45 46 5c 33 30 36 04 44 46 5c 32	02.C\303...\304\305..EF\306.DF\2
a900	30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 6c 65 74 20 2d 2d	07".[make-symbol."result".let.--
a920	65 61 63 68 2d 77 68 69 6c 65 20 70 75 73 68 20 69 74 20 6e 72 65 76 65 72 73 65 5d 20 31 31 20	each-while.push.it.nreverse].11.
a940	28 23 24 20 2e 20 34 32 38 33 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 61 6b 65 2d 77 68 69	(#$...42830)])).(put.'--take-whi
a960	6c 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d	le.'edebug-form-spec.'(form.form
a980	29 29 0a 23 40 33 32 32 20 54 61 6b 65 20 73 75 63 63 65 73 73 69 76 65 20 69 74 65 6d 73 20 66	)).#@322.Take.successive.items.f
a9a0	72 6f 6d 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20	rom.LIST.for.which.PRED.returns.
a9c0	6e 6f 6e 2d 6e 69 6c 2e 0a 50 52 45 44 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 6f	non-nil..PRED.is.a.function.of.o
a9e0	6e 65 20 61 72 67 75 6d 65 6e 74 2e 20 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20	ne.argument...Return.a.new.list.
aa00	6f 66 20 74 68 65 0a 73 75 63 63 65 73 73 69 76 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20	of.the.successive.elements.from.
aa20	74 68 65 20 73 74 61 72 74 20 6f 66 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44	the.start.of.LIST.for.which.PRED
aa40	20 72 65 74 75 72 6e 73 0a 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e	.returns.non-nil...This.function
aa60	27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 74	's.anaphoric.counterpart.is.`--t
aa80	61 6b 65 2d 77 68 69 6c 65 27 2e 0a 0a 46 6f 72 20 61 6e 6f 74 68 65 72 20 76 61 72 69 61 6e 74	ake-while'...For.another.variant
aaa0	2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 64 72 6f 70 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 50	,.see.also.`-drop-while'...(fn.P
aac0	52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 6b 65 2d 77 68 69 6c	RED.LIST)..(defalias.'-take-whil
aae0	65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 5c 32 31 31 04 5c	e.#[514."\300.\301\300\211\211.\
ab00	32 30 33 36 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03	2036..\211A\262.\242\262..\262..
ab20	5c 32 31 31 5c 32 36 32 02 5c 32 30 33 36 00 06 07 02 21 5c 32 30 33 36 00 02 5c 32 36 32 02 03	\211\262.\2036....!\2036..\262..
ab40	5c 32 36 32 01 03 54 5c 32 36 32 04 01 06 06 42 5c 32 36 32 06 5c 32 30 32 06 00 5c 32 36 36 05	\262..T\262....B\262.\202..\266.
ab60	5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 30 20 28 23 24 20 2e 20 34	\211\237\207".[nil.0].10.(#$...4
ab80	33 34 30 31 29 5d 29 0a 23 40 33 34 37 20 44 72 6f 70 20 73 75 63 63 65 73 73 69 76 65 20 69 74	3401)]).#@347.Drop.successive.it
aba0	65 6d 73 20 66 72 6f 6d 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61	ems.from.LIST.for.which.FORM.eva
abc0	6c 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c	ls.to.non-nil..Each.element.of.L
abe0	49 53 54 20 69 6e 20 74 75 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64	IST.in.turn.is.bound.to.`it'.and
ac00	20 69 74 73 20 69 6e 64 65 78 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e	.its.index.within.LIST.to.`it-in
ac20	64 65 78 27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 20 20 52 65	dex'.before.evaluating.FORM...Re
ac40	74 75 72 6e 20 74 68 65 0a 74 61 69 6c 20 28 6e 6f 74 20 61 20 63 6f 70 79 29 20 6f 66 20 4c 49	turn.the.tail.(not.a.copy).of.LI
ac60	53 54 20 73 74 61 72 74 69 6e 67 20 66 72 6f 6d 20 69 74 73 20 66 69 72 73 74 20 65 6c 65 6d 65	ST.starting.from.its.first.eleme
ac80	6e 74 20 66 6f 72 0a 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e	nt.for.which.FORM.evaluates.to.n
aca0	69 6c 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65	il..This.is.the.anaphoric.counte
acc0	72 70 61 72 74 20 74 6f 20 60 2d 64 72 6f 70 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 46 4f 52	rpart.to.`-drop-while'...(fn.FOR
ace0	4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 64 72 6f 70 2d 77 68 69 6c 65	M.LIST)..(defalias.'--drop-while
ad00	20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01	.'(macro...#[514."\300\301!\302.
ad20	03 44 43 5c 33 30 33 03 06 06 5c 33 30 34 06 06 44 46 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d	.DC\303...\304..DF.F\207".[make-
ad40	73 79 6d 62 6f 6c 20 22 6c 69 73 74 22 20 6c 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 70	symbol."list".let.--each-while.p
ad60	6f 70 5d 20 31 30 20 28 23 24 20 2e 20 34 33 39 31 38 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 64	op].10.(#$...43918)])).(put.'--d
ad80	72 6f 70 2d 77 68 69 6c 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f	rop-while.'edebug-form-spec.'(fo
ada0	72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 31 39 20 44 72 6f 70 20 73 75 63 63 65 73 73 69 76 65 20	rm.form)).#@319.Drop.successive.
adc0	69 74 65 6d 73 20 66 72 6f 6d 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72	items.from.LIST.for.which.PRED.r
ade0	65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 50 52 45 44 20 69 73 20 61 20 66 75 6e 63 74 69	eturns.non-nil..PRED.is.a.functi
ae00	6f 6e 20 6f 66 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 2e 20 20 52 65 74 75 72 6e 20 74 68 65 20	on.of.one.argument...Return.the.
ae20	74 61 69 6c 20 28 6e 6f 74 20 61 20 63 6f 70 79 29 0a 6f 66 20 4c 49 53 54 20 73 74 61 72 74 69	tail.(not.a.copy).of.LIST.starti
ae40	6e 67 20 66 72 6f 6d 20 69 74 73 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 66 6f 72 20 77 68	ng.from.its.first.element.for.wh
ae60	69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 0a 6e 69 6c 2e 0a 0a 54 68 69 73 20 66 75 6e 63	ich.PRED.returns.nil...This.func
ae80	74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20	tion's.anaphoric.counterpart.is.
aea0	60 2d 2d 64 72 6f 70 2d 77 68 69 6c 65 27 2e 0a 0a 46 6f 72 20 61 6e 6f 74 68 65 72 20 76 61 72	`--drop-while'...For.another.var
aec0	69 61 6e 74 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 74 61 6b 65 2d 77 68 69 6c 65 27 2e 0a 0a 28	iant,.see.also.`-take-while'...(
aee0	66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 72 6f 70 2d	fn.PRED.LIST)..(defalias.'-drop-
af00	77 68 69 6c 65 20 23 5b 35 31 34 20 22 5c 32 31 31 01 5c 33 30 30 5c 33 30 31 5c 32 31 31 5c 32	while.#[514."\211.\300\301\211\2
af20	31 31 04 5c 32 30 33 34 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32	11.\2034..\211A\262.\242\262..\2
af40	36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 34 00 06 07 02 21 5c 32 30 33 34 00 02 5c 32	62..\211\262.\2034....!\2034..\2
af60	36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 05 41 5c 32 36 32 06 5c 32 30 32 06 00 5c 32 36	62..\262..T\262..A\262.\202..\26
af80	36 05 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 34 34 34 36 34 29 5d	6.\207".[0.nil].10.(#$...44464)]
afa0	29 0a 23 40 31 37 31 20 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 66 69 72	).#@171.Return.a.copy.of.the.fir
afc0	73 74 20 4e 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 52 65 74 75 72 6e 20 61 20 63 6f 70	st.N.items.in.LIST..Return.a.cop
afe0	79 20 6f 66 20 4c 49 53 54 20 69 66 20 69 74 20 63 6f 6e 74 61 69 6e 73 20 4e 20 69 74 65 6d 73	y.of.LIST.if.it.contains.N.items
b000	20 6f 72 20 66 65 77 65 72 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 4e 20 69 73 20 7a 65	.or.fewer..Return.nil.if.N.is.ze
b020	72 6f 20 6f 72 20 6c 65 73 73 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 6b 65 2d 6c 61	ro.or.less...See.also:.`-take-la
b040	73 74 27 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74	st'...(fn.N.LIST)..(defalias.'-t
b060	61 6b 65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 5c 32 31 31	ake.#[514."\300.\301\300\211\211
b080	04 5c 32 30 33 36 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32	.\2036..\211A\262.\242\262..\262
b0a0	02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 36 00 5c 32 31 31 06 08 57 5c 32 30 33 36 00 02 5c	..\211\262.\2036.\211..W\2036..\
b0c0	32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 01 06 06 42 5c 32 36 32 06 5c 32 30 32 06 00	262..\262..T\262....B\262.\202..
b0e0	5c 32 36 36 05 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 30 20 28 23	\266.\211\237\207".[nil.0].10.(#
b100	24 20 2e 20 34 34 39 36 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	$...44968)]).(byte-code."\300\30
b120	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\
b140	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 74 61 6b 65 20 70 75 72 65 20 74 20	207".[function-put.-take.pure.t.
b160	73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 37 34 20 52 65 74 75 72	side-effect-free].5).#@174.Retur
b180	6e 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 6c 61 73 74 20 4e 20 69 74 65 6d 73 20 6f 66 20	n.a.copy.of.the.last.N.items.of.
b1a0	4c 49 53 54 20 69 6e 20 6f 72 64 65 72 2e 0a 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20	LIST.in.order..Return.a.copy.of.
b1c0	4c 49 53 54 20 69 66 20 69 74 20 63 6f 6e 74 61 69 6e 73 20 4e 20 69 74 65 6d 73 20 6f 72 20 66	LIST.if.it.contains.N.items.or.f
b1e0	65 77 65 72 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 4e 20 69 73 20 7a 65 72 6f 20 6f 72	ewer..Return.nil.if.N.is.zero.or
b200	20 6c 65 73 73 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 6b 65 27 2e 0a 0a 28 66 6e 20	.less...See.also:.`-take'...(fn.
b220	4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 6b 65 2d 6c 61 73 74 20 23	N.LIST)..(defalias.'-take-last.#
b240	5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 04 5c 22 21 5c 32 30 37 22 20 5b 63 6f 70 79 2d 73	[514."\300\301..\"!\207".[copy-s
b260	65 71 75 65 6e 63 65 20 6c 61 73 74 5d 20 36 20 28 23 24 20 2e 20 34 35 34 33 35 29 5d 29 0a 28	equence.last].6.(#$...45435)]).(
b280	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
b2a0	5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 23 5c 32	\301\304\303#\305\306\307\310#\2
b2c0	30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 74 61 6b 65 2d 6c 61 73 74 20 70 75 72	07".[function-put.-take-last.pur
b2e0	65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d 64	e.t.side-effect-free.defalias.-d
b300	72 6f 70 20 6e 74 68 63 64 72 20 22 52 65 74 75 72 6e 20 74 68 65 20 74 61 69 6c 20 28 6e 6f 74	rop.nthcdr."Return.the.tail.(not
b320	20 61 20 63 6f 70 79 29 20 6f 66 20 4c 49 53 54 20 77 69 74 68 6f 75 74 20 74 68 65 20 66 69 72	.a.copy).of.LIST.without.the.fir
b340	73 74 20 4e 20 69 74 65 6d 73 2e 5c 6e 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 4c 49 53 54 20	st.N.items.\nReturn.nil.if.LIST.
b360	63 6f 6e 74 61 69 6e 73 20 4e 20 69 74 65 6d 73 20 6f 72 20 66 65 77 65 72 2e 5c 6e 52 65 74 75	contains.N.items.or.fewer.\nRetu
b380	72 6e 20 4c 49 53 54 20 69 66 20 4e 20 69 73 20 7a 65 72 6f 20 6f 72 20 6c 65 73 73 2e 5c 6e 5c	rn.LIST.if.N.is.zero.or.less.\n\
b3a0	6e 46 6f 72 20 61 6e 6f 74 68 65 72 20 76 61 72 69 61 6e 74 2c 20 73 65 65 20 61 6c 73 6f 20 60	nFor.another.variant,.see.also.`
b3c0	2d 64 72 6f 70 2d 6c 61 73 74 27 2e 5c 6e 5c 6e 28 66 6e 20 4e 20 4c 49 53 54 29 22 5d 20 36 29	-drop-last'.\n\n(fn.N.LIST)"].6)
b3e0	0a 23 40 31 37 32 20 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 20 77 69 74	.#@172.Return.a.copy.of.LIST.wit
b400	68 6f 75 74 20 69 74 73 20 6c 61 73 74 20 4e 20 69 74 65 6d 73 2e 0a 52 65 74 75 72 6e 20 61 20	hout.its.last.N.items..Return.a.
b420	63 6f 70 79 20 6f 66 20 4c 49 53 54 20 69 66 20 4e 20 69 73 20 7a 65 72 6f 20 6f 72 20 6c 65 73	copy.of.LIST.if.N.is.zero.or.les
b440	73 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 4e	s..Return.nil.if.LIST.contains.N
b460	20 69 74 65 6d 73 20 6f 72 20 66 65 77 65 72 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 64 72	.items.or.fewer...See.also:.`-dr
b480	6f 70 27 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64	op'...(fn.N.LIST)..(defalias.'-d
b4a0	72 6f 70 2d 6c 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 21 03 5c 22 5c 32 30	rop-last.#[514."\300\301.!.\"\20
b4c0	37 22 20 5b 6e 62 75 74 6c 61 73 74 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 5d 20 35 20 28 23	7".[nbutlast.copy-sequence].5.(#
b4e0	24 20 2e 20 34 36 30 35 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	$...46055)]).(byte-code."\300\30
b500	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\
b520	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 64 72 6f 70 2d 6c 61 73 74 20 70 75	207".[function-put.-drop-last.pu
b540	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 35 34 20	re.t.side-effect-free].5).#@354.
b560	53 70 6c 69 74 20 4c 49 53 54 20 69 6e 74 6f 20 74 77 6f 20 73 75 62 6c 69 73 74 73 20 61 66 74	Split.LIST.into.two.sublists.aft
b580	65 72 20 74 68 65 20 4e 74 68 20 65 6c 65 6d 65 6e 74 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 69	er.the.Nth.element..The.result.i
b5a0	73 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 20 28 54 41 4b 45 20 44	s.a.list.of.two.elements.(TAKE.D
b5c0	52 4f 50 29 20 77 68 65 72 65 20 54 41 4b 45 20 69 73 20 61 0a 6e 65 77 20 6c 69 73 74 20 6f 66	ROP).where.TAKE.is.a.new.list.of
b5e0	20 74 68 65 20 66 69 72 73 74 20 4e 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 2c 20 61	.the.first.N.elements.of.LIST,.a
b600	6e 64 20 44 52 4f 50 20 69 73 20 74 68 65 0a 72 65 6d 61 69 6e 69 6e 67 20 65 6c 65 6d 65 6e 74	nd.DROP.is.the.remaining.element
b620	73 20 6f 66 20 4c 49 53 54 20 28 6e 6f 74 20 61 20 63 6f 70 79 29 2e 20 20 54 41 4b 45 20 61 6e	s.of.LIST.(not.a.copy)...TAKE.an
b640	64 20 44 52 4f 50 20 61 72 65 20 6c 69 6b 65 0a 74 68 65 20 72 65 73 75 6c 74 73 20 6f 66 20 60	d.DROP.are.like.the.results.of.`
b660	2d 74 61 6b 65 27 20 61 6e 64 20 60 2d 64 72 6f 70 27 2c 20 72 65 73 70 65 63 74 69 76 65 6c 79	-take'.and.`-drop',.respectively
b680	2c 20 62 75 74 20 74 68 65 20 73 70 6c 69 74 0a 69 73 20 64 6f 6e 65 20 69 6e 20 61 20 73 69 6e	,.but.the.split.is.done.in.a.sin
b6a0	67 6c 65 20 6c 69 73 74 20 74 72 61 76 65 72 73 61 6c 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29	gle.list.traversal...(fn.N.LIST)
b6c0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 74 2d 61 74 20 23 5b 35 31 34 20 22 5c 33	..(defalias.'-split-at.#[514."\3
b6e0	30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 3c 00 04 5c 32 31 31 41	00.\301\300\211\211.\203<..\211A
b700	5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32	\262.\242\262..\262..\211\262.\2
b720	30 33 3c 00 5c 32 31 31 06 08 57 5c 32 30 33 3c 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c	03<.\211..W\203<..\262..\262..T\
b740	32 36 32 04 06 06 5c 32 31 31 41 5c 32 36 32 08 5c 32 34 32 06 06 42 5c 32 36 32 06 5c 32 30 32	262...\211A\262.\242..B\262.\202
b760	06 00 5c 32 36 36 05 5c 32 31 31 5c 32 33 37 02 44 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31	..\266.\211\237.D\207".[nil.0].1
b780	30 20 28 23 24 20 2e 20 34 36 34 33 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	0.(#$...46432)]).(byte-code."\30
b7a0	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#\
b7c0	33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 73 70 6c 69 74 2d 61 74	300\207".[function-put.-split-at
b7e0	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 31	.pure.t.side-effect-free].5).#@1
b800	30 32 20 52 6f 74 61 74 65 20 4c 49 53 54 20 4e 20 70 6c 61 63 65 73 20 74 6f 20 74 68 65 20 72	02.Rotate.LIST.N.places.to.the.r
b820	69 67 68 74 20 28 6c 65 66 74 20 69 66 20 4e 20 69 73 20 6e 65 67 61 74 69 76 65 29 2e 0a 54 68	ight.(left.if.N.is.negative)..Th
b840	65 20 74 69 6d 65 20 63 6f 6d 70 6c 65 78 69 74 79 20 69 73 20 4f 28 6e 29 2e 0a 0a 28 66 6e 20	e.time.complexity.is.O(n)...(fn.
b860	4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 6f 74 61 74 65 20 23 5b 35 31	N.LIST)..(defalias.'-rotate.#[51
b880	34 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 01 5c 33 30 31 55 5c 32 30 33 10	4."\211\204..\300\207.\301U\203.
b8a0	00 5c 33 30 32 01 21 5c 32 30 37 5c 32 31 31 47 5c 33 30 33 03 02 5c 22 01 01 5a 5c 33 30 34 01	.\302.!\207\211G\303..\"..Z\304.
b8c0	05 5c 32 33 33 5c 33 30 35 03 06 07 5c 22 5c 22 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20 63 6f 70	.\233\305...\"\"\207".[nil.0.cop
b8e0	79 2d 73 65 71 75 65 6e 63 65 20 6d 6f 64 20 61 70 70 65 6e 64 20 2d 74 61 6b 65 5d 20 31 30 20	y-sequence.mod.append.-take].10.
b900	28 23 24 20 2e 20 34 37 31 30 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	(#$...47107)]).(byte-code."\300\
b920	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 30	301\302\303#\300\301\304\303#\30
b940	30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 6f 74 61 74 65 20 70 75 72	0\207".[function-put.-rotate.pur
b960	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 31 30 38 20 52	e.t.side-effect-free].5).#@108.R
b980	65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 58 20 69 6e 73 65 72 74 65 64 20 69 6e 74	eturn.a.list.with.X.inserted.int
b9a0	6f 20 4c 49 53 54 20 61 74 20 70 6f 73 69 74 69 6f 6e 20 4e 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a	o.LIST.at.position.N...See.also:
b9c0	20 60 2d 73 70 6c 69 63 65 27 2c 20 60 2d 73 70 6c 69 63 65 2d 6c 69 73 74 27 0a 0a 28 66 6e 20	.`-splice',.`-splice-list'..(fn.
b9e0	4e 20 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 73 65 72 74 2d 61 74	N.X.LIST)..(defalias.'-insert-at
ba00	20 23 5b 37 37 31 20 22 5c 33 30 30 03 02 5c 22 5c 32 31 31 40 03 02 41 40 42 5c 32 34 34 5c 32	.#[771."\300..\"\211@..A@B\244\2
ba20	30 37 22 20 5b 2d 73 70 6c 69 74 2d 61 74 5d 20 37 20 28 23 24 20 2e 20 34 37 34 38 37 29 5d 29	07".[-split-at].7.(#$...47487)])
ba40	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
ba60	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
ba80	6f 6e 2d 70 75 74 20 2d 69 6e 73 65 72 74 2d 61 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66	on-put.-insert-at.pure.t.side-ef
baa0	66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 30 36 20 52 65 74 75 72 6e 20 61 20 6c 69 73	fect-free].5).#@106.Return.a.lis
bac0	74 20 77 69 74 68 20 65 6c 65 6d 65 6e 74 20 61 74 20 4e 74 68 20 70 6f 73 69 74 69 6f 6e 20 69	t.with.element.at.Nth.position.i
bae0	6e 20 4c 49 53 54 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 58 2e 0a 0a 53 65 65 20 61 6c 73	n.LIST.replaced.with.X...See.als
bb00	6f 3a 20 60 2d 72 65 70 6c 61 63 65 27 0a 0a 28 66 6e 20 4e 20 58 20 4c 49 53 54 29 1f 0a 28 64	o:.`-replace'..(fn.N.X.LIST)..(d
bb20	65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63 65 2d 61 74 20 23 5b 37 37 31 20 22 5c 33 30 30	efalias.'-replace-at.#[771."\300
bb40	03 02 5c 22 5c 32 31 31 40 03 02 41 40 41 42 5c 32 34 34 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74	..\"\211@..A@AB\244\207".[-split
bb60	2d 61 74 5d 20 37 20 28 23 24 20 2e 20 34 37 37 39 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65	-at].7.(#$...47796)]).(byte-code
bb80	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\
bba0	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 2d 72 65 70	303#\300\207".[function-put.-rep
bbc0	6c 61 63 65 2d 61 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	lace-at.pure.t.side-effect-free]
bbe0	20 35 29 0a 23 40 31 38 31 20 55 73 65 20 46 55 4e 43 20 74 6f 20 75 70 64 61 74 65 20 74 68 65	.5).#@181.Use.FUNC.to.update.the
bc00	20 4e 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2e 0a 52 65 74 75 72 6e 20 61 20 63	.Nth.element.of.LIST..Return.a.c
bc20	6f 70 79 20 6f 66 20 4c 49 53 54 20 77 68 65 72 65 20 74 68 65 20 4e 74 68 20 65 6c 65 6d 65 6e	opy.of.LIST.where.the.Nth.elemen
bc40	74 20 69 73 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 74 68 65 0a 72 65 73 75 6c 74 20 6f 66	t.is.replaced.with.the.result.of
bc60	20 63 61 6c 6c 69 6e 67 20 46 55 4e 43 20 6f 6e 20 69 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20	.calling.FUNC.on.it...See.also:.
bc80	60 2d 6d 61 70 2d 77 68 65 6e 27 0a 0a 28 66 6e 20 4e 20 46 55 4e 43 20 4c 49 53 54 29 1f 0a 28	`-map-when'..(fn.N.FUNC.LIST)..(
bca0	64 65 66 61 6c 69 61 73 20 27 2d 75 70 64 61 74 65 2d 61 74 20 23 5b 37 37 31 20 22 5c 33 30 30	defalias.'-update-at.#[771."\300
bcc0	03 02 5c 22 5c 32 31 31 40 03 02 41 40 40 21 02 41 40 41 42 5c 32 34 34 5c 32 30 37 22 20 5b 2d	..\"\211@..A@@!.A@AB\244\207".[-
bce0	73 70 6c 69 74 2d 61 74 5d 20 37 20 28 23 24 20 2e 20 34 38 31 30 36 29 5d 29 0a 23 40 35 34 20	split-at].7.(#$...48106)]).#@54.
bd00	41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 75 70 64 61 74 65 2d 61 74	Anaphoric.version.of.`-update-at
bd20	27 2e 0a 0a 28 66 6e 20 4e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	'...(fn.N.FORM.LIST)..(defalias.
bd40	27 2d 2d 75 70 64 61 74 65 2d 61 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33	'--update-at.'(macro...#[771."\3
bd60	30 30 03 5c 33 30 31 5c 33 30 32 05 45 03 46 5c 32 30 37 22 20 5b 2d 75 70 64 61 74 65 2d 61 74	00.\301\302.E.F\207".[-update-at
bd80	20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 38 20 28 23 24 20 2e 20 34 38 33 38 34 29 5d 29 29 0a	.lambda.(it)].8.(#$...48384)])).
bda0	28 70 75 74 20 27 2d 2d 75 70 64 61 74 65 2d 61 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73	(put.'--update-at.'edebug-form-s
bdc0	70 65 63 20 27 28 66 6f 72 6d 20 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 31 37	pec.'(form.def-form.form)).#@117
bde0	20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 65 6c 65 6d 65 6e 74 20 61 74 20 4e	.Return.a.list.with.element.at.N
be00	74 68 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 4c 49 53 54 20 72 65 6d 6f 76 65 64 2e 0a 0a 53 65	th.position.in.LIST.removed...Se
be20	65 20 61 6c 73 6f 3a 20 60 2d 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64 69 63 65 73 27 2c 20 60 2d	e.also:.`-remove-at-indices',.`-
be40	72 65 6d 6f 76 65 27 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	remove'..(fn.N.LIST)..(defalias.
be60	27 2d 72 65 6d 6f 76 65 2d 61 74 20 23 5b 35 31 34 20 22 5c 33 30 30 02 43 02 5c 22 5c 32 30 37	'-remove-at.#[514."\300.C.\"\207
be80	22 20 5b 2d 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64 69 63 65 73 5d 20 35 20 28 23 24 20 2e 20 34	".[-remove-at-indices].5.(#$...4
bea0	38 36 30 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 5c 33 30 32	8609)]).(byte-code."\300\301\302
bec0	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".
bee0	5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 6d 6f 76 65 2d 61 74 20 70 75 72 65 20 74 20	[function-put.-remove-at.pure.t.
bf00	73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 37 35 20 52 65 74 75 72	side-effect-free].5).#@175.Retur
bf20	6e 20 61 20 6c 69 73 74 20 77 68 6f 73 65 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 65 6c 65 6d	n.a.list.whose.elements.are.elem
bf40	65 6e 74 73 20 66 72 6f 6d 20 4c 49 53 54 20 77 69 74 68 6f 75 74 0a 65 6c 65 6d 65 6e 74 73 20	ents.from.LIST.without.elements.
bf60	73 65 6c 65 63 74 65 64 20 61 73 20 60 28 6e 74 68 20 69 20 6c 69 73 74 29 60 20 66 6f 72 20 61	selected.as.`(nth.i.list)`.for.a
bf80	6c 6c 20 69 0a 66 72 6f 6d 20 49 4e 44 49 43 45 53 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d	ll.i.from.INDICES...See.also:.`-
bfa0	72 65 6d 6f 76 65 2d 61 74 27 2c 20 60 2d 72 65 6d 6f 76 65 27 0a 0a 28 66 6e 20 49 4e 44 49 43	remove-at',.`-remove'..(fn.INDIC
bfc0	45 53 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 2d 61 74 2d	ES.LIST)..(defalias.'-remove-at-
bfe0	69 6e 64 69 63 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 5c 22 5c 32 31 31 40 5c	indices.#[514."\300\301.\"\211@\
c000	33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 05 41 06 06 23 5c 22 42 5c 33 30 36 01 5c 33 30 37	302\303\304\305.A..#\"B\306.\307
c020	5c 33 30 36 5c 32 31 31 03 5c 32 30 33 3f 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32	\306\211.\203?..\211A\262.\242\2
c040	36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 5c 33 31 30 02 06 09 5c 22 5c 32 31 31 40 06 06	62..\262..T\262.\310...\"\211@..
c060	42 5c 32 36 32 06 5c 32 31 31 41 40 41 5c 32 36 32 09 5c 32 31 30 5c 32 30 32 16 00 5c 32 36 36	B\262.\211A@A\262.\210\202..\266
c080	04 03 01 42 5c 32 36 32 01 5c 33 31 31 5c 33 31 32 02 5c 32 33 37 5c 22 5c 32 30 37 22 20 5b 2d	...B\262.\311\312.\237\"\207".[-
c0a0	73 6f 72 74 20 3c 20 2d 6d 61 70 20 31 2d 20 2d 7a 69 70 2d 77 69 74 68 20 2d 20 6e 69 6c 20 30	sort.<.-map.1-.-zip-with.-.nil.0
c0c0	20 2d 73 70 6c 69 74 2d 61 74 20 61 70 70 6c 79 20 2d 63 6f 6e 63 61 74 5d 20 31 32 20 28 23 24	.-split-at.apply.-concat].12.(#$
c0e0	20 2e 20 34 38 39 32 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	...48923)]).(byte-code."\300\301
c100	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
c120	30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64	07".[function-put.-remove-at-ind
c140	69 63 65 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29	ices.pure.t.side-effect-free].5)
c160	0a 23 40 35 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 70 6c 69 74 2d	.#@50.Anaphoric.form.of.`-split-
c180	77 69 74 68 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61	with'...(fn.PRED.LIST)..(defalia
c1a0	73 20 27 2d 2d 73 70 6c 69 74 2d 77 69 74 68 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20	s.'--split-with.'(macro...#[514.
c1c0	22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 34	"\300\301!\300\302!\300\303!\304
c1e0	03 05 44 03 5c 33 30 35 42 03 5c 33 30 36 42 45 5c 33 30 37 5c 33 31 30 06 06 05 45 5c 33 30 34	..D.\305B.\306BE\307\310...E\304
c200	5c 33 31 31 5c 33 31 32 06 09 44 44 43 5c 33 31 33 5c 33 31 34 06 5c 66 44 5c 33 31 35 06 09 5c	\311\312..DDC\313\314.\fD\315..\
c220	33 31 36 42 42 5c 33 31 37 5c 33 31 31 06 5c 66 45 5c 33 32 30 06 0d 44 5c 32 35 37 05 45 45 5c	316BB\317\311.\fE\320..D\257.EE\
c240	33 32 31 5c 33 32 32 06 06 44 06 07 45 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c	321\322..D..EF\207".[make-symbol
c260	20 22 6c 69 73 74 22 20 22 72 65 73 75 6c 74 22 20 22 63 6f 6e 74 69 6e 75 65 22 20 6c 65 74 20	."list"."result"."continue".let.
c280	28 6e 69 6c 29 20 28 74 29 20 77 68 69 6c 65 20 61 6e 64 20 69 74 20 63 61 72 20 69 66 20 6e 6f	(nil).(t).while.and.it.car.if.no
c2a0	74 20 73 65 74 71 20 28 6e 69 6c 29 20 21 63 6f 6e 73 20 21 63 64 72 20 6c 69 73 74 20 6e 72 65	t.setq.(nil).!cons.!cdr.list.nre
c2c0	76 65 72 73 65 5d 20 31 37 20 28 23 24 20 2e 20 34 39 35 31 30 29 5d 29 29 0a 28 70 75 74 20 27	verse].17.(#$...49510)])).(put.'
c2e0	2d 2d 73 70 6c 69 74 2d 77 69 74 68 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27	--split-with.'edebug-form-spec.'
c300	28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 35 30 20 53 70 6c 69 74 20 4c 49 53 54 20 69 6e	(form.form)).#@350.Split.LIST.in
c320	74 6f 20 61 20 70 72 65 66 69 78 20 73 61 74 69 73 66 79 69 6e 67 20 50 52 45 44 2c 20 61 6e 64	to.a.prefix.satisfying.PRED,.and
c340	20 74 68 65 20 72 65 73 74 2e 0a 54 68 65 20 66 69 72 73 74 20 73 75 62 6c 69 73 74 20 69 73 20	.the.rest..The.first.sublist.is.
c360	74 68 65 20 70 72 65 66 69 78 20 6f 66 20 4c 49 53 54 20 77 69 74 68 20 73 75 63 63 65 73 73 69	the.prefix.of.LIST.with.successi
c380	76 65 20 65 6c 65 6d 65 6e 74 73 0a 73 61 74 69 73 66 79 69 6e 67 20 50 52 45 44 2c 20 61 6e 64	ve.elements.satisfying.PRED,.and
c3a0	20 74 68 65 20 73 65 63 6f 6e 64 20 73 75 62 6c 69 73 74 20 69 73 20 74 68 65 20 72 65 6d 61 69	.the.second.sublist.is.the.remai
c3c0	6e 69 6e 67 20 65 6c 65 6d 65 6e 74 73 0a 74 68 61 74 20 64 6f 20 6e 6f 74 2e 20 20 54 68 65 20	ning.elements.that.do.not...The.
c3e0	72 65 73 75 6c 74 20 69 73 20 6c 69 6b 65 20 70 65 72 66 6f 72 6d 69 6e 67 0a 0a 20 20 28 28 2d	result.is.like.performing....((-
c400	74 61 6b 65 2d 77 68 69 6c 65 20 50 52 45 44 20 4c 49 53 54 29 20 28 2d 64 72 6f 70 2d 77 68 69	take-while.PRED.LIST).(-drop-whi
c420	6c 65 20 50 52 45 44 20 4c 49 53 54 29 29 0a 0a 62 75 74 20 69 6e 20 6e 6f 20 6d 6f 72 65 20 74	le.PRED.LIST))..but.in.no.more.t
c440	68 61 6e 20 61 20 73 69 6e 67 6c 65 20 70 61 73 73 20 74 68 72 6f 75 67 68 20 4c 49 53 54 2e 0a	han.a.single.pass.through.LIST..
c460	0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c	.(fn.PRED.LIST)..(defalias.'-spl
c480	69 74 2d 77 69 74 68 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30 5c 33 30 31 02 5c 32 30 33	it-with.#[514."\211\300\301.\203
c4a0	26 00 5c 32 31 31 5c 32 30 33 26 00 02 40 05 01 21 5c 32 30 34 19 00 5c 33 30 30 5c 32 36 36 5c	&.\211\203&..@..!\204..\300\266\
c4c0	32 30 32 5c 32 30 32 03 00 5c 32 31 31 03 42 5c 32 36 32 03 03 41 5c 32 36 32 04 5c 32 31 30 5c	202\202..\211.B\262..A\262.\210\
c4e0	32 30 32 03 00 01 5c 32 33 37 03 44 5c 32 30 37 22 20 5b 6e 69 6c 20 74 5d 20 38 20 28 23 24 20	202...\237.D\207".[nil.t].8.(#$.
c500	2e 20 34 39 39 33 39 29 5d 29 0a 23 40 32 32 34 20 53 70 6c 69 74 20 74 68 65 20 4c 49 53 54 20	..49939)]).#@224.Split.the.LIST.
c520	65 61 63 68 20 74 69 6d 65 20 49 54 45 4d 20 69 73 20 66 6f 75 6e 64 2e 0a 0a 55 6e 6c 69 6b 65	each.time.ITEM.is.found...Unlike
c540	20 60 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 27 2c 20 74 68 65 20 49 54 45 4d 20 69 73 20 64 69	.`-partition-by',.the.ITEM.is.di
c560	73 63 61 72 64 65 64 20 66 72 6f 6d 20 74 68 65 20 72 65 73 75 6c 74 73 2e 0a 45 6d 70 74 79 20	scarded.from.the.results..Empty.
c580	6c 69 73 74 73 20 61 72 65 20 61 6c 73 6f 20 72 65 6d 6f 76 65 64 20 66 72 6f 6d 20 74 68 65 20	lists.are.also.removed.from.the.
c5a0	72 65 73 75 6c 74 2e 0a 0a 43 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 62 79 20 60	result...Comparison.is.done.by.`
c5c0	65 71 75 61 6c 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 73 70 6c 69 74 2d 77 68 65 6e 27 0a	equal'...See.also.`-split-when'.
c5e0	0a 28 66 6e 20 49 54 45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c	.(fn.ITEM.LIST)..(defalias.'-spl
c600	69 74 2d 6f 6e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c	it-on.'(macro...#[514."\300\301\
c620	33 30 32 5c 33 30 33 5c 33 30 34 06 06 45 45 02 45 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74 2d 77	302\303\304..EE.E\207".[-split-w
c640	68 65 6e 20 6c 61 6d 62 64 61 20 28 69 74 29 20 65 71 75 61 6c 20 69 74 5d 20 38 20 28 23 24 20	hen.lambda.(it).equal.it].8.(#$.
c660	2e 20 35 30 34 34 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 73 70 6c 69 74 2d 6f 6e 20 27 65 64 65	..50449)])).(put.'-split-on.'ede
c680	62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a	bug-form-spec.'(def-form.form)).
c6a0	23 40 35 33 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 73 70 6c 69	#@53.Anaphoric.version.of.`-spli
c6c0	74 2d 77 68 65 6e 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c	t-when'...(fn.FORM.LIST)..(defal
c6e0	69 61 73 20 27 2d 2d 73 70 6c 69 74 2d 77 68 65 6e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31	ias.'--split-when.'(macro...#[51
c700	34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74	4."\300\301\302.E.E\207".[-split
c720	2d 77 68 65 6e 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 35 30 38 35 33	-when.lambda.(it)].6.(#$...50853
c740	29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 70 6c 69 74 2d 77 68 65 6e 20 27 65 64 65 62 75 67 2d	)])).(put.'--split-when.'edebug-
c760	66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 36	form-spec.'(def-form.form)).#@26
c780	39 20 53 70 6c 69 74 20 74 68 65 20 4c 49 53 54 20 6f 6e 20 65 61 63 68 20 65 6c 65 6d 65 6e 74	9.Split.the.LIST.on.each.element
c7a0	20 77 68 65 72 65 20 46 4e 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 55 6e 6c 69	.where.FN.returns.non-nil...Unli
c7c0	6b 65 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 27 2c 20 74 68 65 20 22 6d 61 74 63 68 65 64	ke.`-partition-by',.the."matched
c7e0	22 20 65 6c 65 6d 65 6e 74 20 69 73 20 64 69 73 63 61 72 64 65 64 20 66 72 6f 6d 0a 74 68 65 20	".element.is.discarded.from.the.
c800	72 65 73 75 6c 74 73 2e 20 20 45 6d 70 74 79 20 6c 69 73 74 73 20 61 72 65 20 61 6c 73 6f 20 72	results...Empty.lists.are.also.r
c820	65 6d 6f 76 65 64 20 66 72 6f 6d 20 74 68 65 20 72 65 73 75 6c 74 2e 0a 0a 54 68 69 73 20 66 75	emoved.from.the.result...This.fu
c840	6e 63 74 69 6f 6e 20 63 61 6e 20 62 65 20 74 68 6f 75 67 68 74 20 6f 66 20 61 73 20 61 20 67 65	nction.can.be.thought.of.as.a.ge
c860	6e 65 72 61 6c 69 7a 61 74 69 6f 6e 20 6f 66 0a 60 73 70 6c 69 74 2d 73 74 72 69 6e 67 27 2e 0a	neralization.of.`split-string'..
c880	0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 74	.(fn.FN.LIST)..(defalias.'-split
c8a0	2d 77 68 65 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 02 5c 32 30 33 2a 00 03 03 40 21	-when.#[514."\300\211.\203*...@!
c8c0	5c 32 30 34 16 00 02 40 01 42 5c 32 36 32 01 5c 32 30 32 23 00 5c 32 31 31 5c 32 30 33 20 00 5c	\204...@.B\262.\202#.\211\203..\
c8e0	32 31 31 5c 32 33 37 02 42 5c 32 36 32 02 5c 33 30 30 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32	211\237.B\262.\300\262..A\262.\2
c900	30 32 02 00 5c 32 31 31 5c 32 30 33 34 00 5c 32 31 31 5c 32 33 37 02 42 5c 32 36 32 02 01 5c 32	02..\211\2034.\211\237.B\262..\2
c920	33 37 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 35 31 30 37 34 29 5d 29 0a 23	37\207".[nil].6.(#$...51074)]).#
c940	40 34 38 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 65 70 61 72 61 74 65	@48.Anaphoric.form.of.`-separate
c960	27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	'...(fn.FORM.LIST)..(defalias.'-
c980	2d 73 65 70 61 72 61 74 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c	-separate.'(macro...#[514."\300\
c9a0	33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 33 02 02 44 5c 33 30 34 05 5c 33 30 35 06 08 5c	301!\300\302!\303..D\304.\305..\
c9c0	33 30 36 5c 33 30 37 06 09 45 5c 33 30 36 5c 33 30 37 06 09 45 46 45 5c 33 31 30 5c 33 31 31 06	306\307..E\306\307..EFE\310\311.
c9e0	06 44 5c 33 31 31 06 06 44 45 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 79	.D\311..DEF\207".[make-symbol."y
ca00	65 73 22 20 22 6e 6f 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 69 66 20 21 63 6f 6e 73 20 69 74 20	es"."no".let.--each.if.!cons.it.
ca20	6c 69 73 74 20 6e 72 65 76 65 72 73 65 5d 20 31 34 20 28 23 24 20 2e 20 35 31 35 32 34 29 5d 29	list.nreverse].14.(#$...51524)])
ca40	29 0a 28 70 75 74 20 27 2d 2d 73 65 70 61 72 61 74 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d	).(put.'--separate.'edebug-form-
ca60	73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 39 34 20 53 70 6c 69 74 20 4c	spec.'(form.form)).#@194.Split.L
ca80	49 53 54 20 69 6e 74 6f 20 74 77 6f 20 73 75 62 6c 69 73 74 73 20 62 61 73 65 64 20 6f 6e 20 77	IST.into.two.sublists.based.on.w
caa0	68 65 74 68 65 72 20 69 74 65 6d 73 20 73 61 74 69 73 66 79 20 50 52 45 44 2e 0a 54 68 65 20 72	hether.items.satisfy.PRED..The.r
cac0	65 73 75 6c 74 20 69 73 20 6c 69 6b 65 20 70 65 72 66 6f 72 6d 69 6e 67 0a 0a 20 20 28 28 2d 66	esult.is.like.performing....((-f
cae0	69 6c 74 65 72 20 50 52 45 44 20 4c 49 53 54 29 20 28 2d 72 65 6d 6f 76 65 20 50 52 45 44 20 4c	ilter.PRED.LIST).(-remove.PRED.L
cb00	49 53 54 29 29 0a 0a 62 75 74 20 69 6e 20 61 20 73 69 6e 67 6c 65 20 70 61 73 73 20 74 68 72 6f	IST))..but.in.a.single.pass.thro
cb20	75 67 68 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61	ugh.LIST...(fn.PRED.LIST)..(defa
cb40	6c 69 61 73 20 27 2d 73 65 70 61 72 61 74 65 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 02	lias.'-separate.#[514."\300\211.
cb60	5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 31 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32	\301\300\211.\2031..\211A\262.\2
cb80	34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 07 02 21 5c 32 30 33 29 00 01 06	42\262..\262..T\262....!\203)...
cba0	06 42 5c 32 36 32 06 5c 32 30 32 06 00 01 05 42 5c 32 36 32 05 5c 32 30 32 06 00 5c 32 36 36 04	.B\262.\202....B\262.\202..\266.
cbc0	01 5c 32 33 37 01 5c 32 33 37 44 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 30 20 28 23 24 20	.\237.\237D\207".[nil.0].10.(#$.
cbe0	2e 20 35 31 38 33 33 29 5d 29 0a 23 40 37 39 20 4c 69 6b 65 20 60 2d 70 61 72 74 69 74 69 6f 6e	..51833)]).#@79.Like.`-partition
cc00	2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 27 2c 20 62 75 74 20 74 68 65 20 72 65 73 75 6c 74 20 69	-all-in-steps',.but.the.result.i
cc20	73 20 72 65 76 65 72 73 65 64 2e 0a 0a 28 66 6e 20 4e 20 53 54 45 50 20 4c 49 53 54 29 1f 0a 28	s.reversed...(fn.N.STEP.LIST)..(
cc40	64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e	defalias.'dash--partition-all-in
cc60	2d 73 74 65 70 73 2d 72 65 76 65 72 73 65 64 20 23 5b 37 37 31 20 22 01 5c 33 30 30 57 5c 32 30	-steps-reversed.#[771.".\300W\20
cc80	33 0d 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 04 44 5c 22 5c 32 31 30 5c 33 30 34 01 5c 32 30 33	3..\301\302\303.D\"\210\304.\203
cca0	5c 22 00 5c 33 30 35 04 03 5c 22 01 42 5c 32 36 32 01 02 02 5c 32 33 33 5c 32 36 32 02 5c 32 30	\".\305..\".B\262...\233\262.\20
ccc0	32 0e 00 5c 32 30 37 22 20 5b 31 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72	2..\207".[1.signal.wrong-type-ar
cce0	67 75 6d 65 6e 74 20 22 53 74 65 70 20 73 69 7a 65 20 3c 20 31 20 72 65 73 75 6c 74 73 20 69 6e	gument."Step.size.<.1.results.in
cd00	20 6a 75 69 63 79 20 69 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 73 22 20 6e 69 6c 20 2d 74 61 6b 65	.juicy.infinite.loops".nil.-take
cd20	5d 20 37 20 28 23 24 20 2e 20 35 32 32 30 38 29 5d 29 0a 23 40 31 39 32 20 50 61 72 74 69 74 69	].7.(#$...52208)]).#@192.Partiti
cd40	6f 6e 20 4c 49 53 54 20 69 6e 74 6f 20 73 75 62 6c 69 73 74 73 20 6f 66 20 6c 65 6e 67 74 68 20	on.LIST.into.sublists.of.length.
cd60	4e 20 74 68 61 74 20 61 72 65 20 53 54 45 50 20 69 74 65 6d 73 20 61 70 61 72 74 2e 0a 41 64 6a	N.that.are.STEP.items.apart..Adj
cd80	61 63 65 6e 74 20 67 72 6f 75 70 73 20 6d 61 79 20 6f 76 65 72 6c 61 70 20 69 66 20 4e 20 65 78	acent.groups.may.overlap.if.N.ex
cda0	63 65 65 64 73 20 74 68 65 20 53 54 45 50 20 73 74 72 69 64 65 2e 0a 54 72 61 69 6c 69 6e 67 20	ceeds.the.STEP.stride..Trailing.
cdc0	67 72 6f 75 70 73 20 6d 61 79 20 63 6f 6e 74 61 69 6e 20 6c 65 73 73 20 74 68 61 6e 20 4e 20 69	groups.may.contain.less.than.N.i
cde0	74 65 6d 73 2e 0a 0a 28 66 6e 20 4e 20 53 54 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69	tems...(fn.N.STEP.LIST)..(defali
ce00	61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 20 23 5b 37 37	as.'-partition-all-in-steps.#[77
ce20	31 20 22 5c 33 30 30 03 03 03 23 5c 32 33 37 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 70 61 72 74	1."\300...#\237\207".[dash--part
ce40	69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 2d 72 65 76 65 72 73 65 64 5d 20 37 20 28	ition-all-in-steps-reversed].7.(
ce60	23 24 20 2e 20 35 32 35 33 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	#$...52537)]).(byte-code."\300\3
ce80	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
cea0	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 70 61 72 74 69 74 69 6f 6e 2d 61	\207".[function-put.-partition-a
cec0	6c 6c 2d 69 6e 2d 73 74 65 70 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66	ll-in-steps.pure.t.side-effect-f
cee0	72 65 65 5d 20 35 29 0a 23 40 32 31 32 20 50 61 72 74 69 74 69 6f 6e 20 4c 49 53 54 20 69 6e 74	ree].5).#@212.Partition.LIST.int
cf00	6f 20 73 75 62 6c 69 73 74 73 20 6f 66 20 6c 65 6e 67 74 68 20 4e 20 74 68 61 74 20 61 72 65 20	o.sublists.of.length.N.that.are.
cf20	53 54 45 50 20 69 74 65 6d 73 20 61 70 61 72 74 2e 0a 4c 69 6b 65 20 60 2d 70 61 72 74 69 74 69	STEP.items.apart..Like.`-partiti
cf40	6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 27 2c 20 62 75 74 20 69 66 20 74 68 65 72 65 20 61	on-all-in-steps',.but.if.there.a
cf60	72 65 20 6e 6f 74 20 65 6e 6f 75 67 68 20 69 74 65 6d 73 0a 74 6f 20 6d 61 6b 65 20 74 68 65 20	re.not.enough.items.to.make.the.
cf80	6c 61 73 74 20 67 72 6f 75 70 20 4e 2d 73 69 7a 65 64 2c 20 74 68 6f 73 65 20 69 74 65 6d 73 20	last.group.N-sized,.those.items.
cfa0	61 72 65 20 64 69 73 63 61 72 64 65 64 2e 0a 0a 28 66 6e 20 4e 20 53 54 45 50 20 4c 49 53 54 29	are.discarded...(fn.N.STEP.LIST)
cfc0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 69 6e 2d 73 74 65 70 73	..(defalias.'-partition-in-steps
cfe0	20 23 5b 37 37 31 20 22 5c 33 30 30 03 03 03 23 5c 32 31 31 5c 32 30 33 18 00 5c 32 31 31 40 47	.#[771."\300...#\211\203..\211@G
d000	04 57 5c 32 30 33 18 00 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 05 00 5c 32 31 31 5c 32 33 37	.W\203..\211A\262.\202..\211\237
d020	5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74	\207".[dash--partition-all-in-st
d040	65 70 73 2d 72 65 76 65 72 73 65 64 5d 20 37 20 28 23 24 20 2e 20 35 32 39 37 34 29 5d 29 0a 28	eps-reversed].7.(#$...52974)]).(
d060	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
d080	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
d0a0	2d 70 75 74 20 2d 70 61 72 74 69 74 69 6f 6e 2d 69 6e 2d 73 74 65 70 73 20 70 75 72 65 20 74 20	-put.-partition-in-steps.pure.t.
d0c0	73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 33 32 20 52 65 74 75 72	side-effect-free].5).#@132.Retur
d0e0	6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c	n.a.new.list.with.the.items.in.L
d100	49 53 54 20 67 72 6f 75 70 65 64 20 69 6e 74 6f 20 4e 2d 73 69 7a 65 64 20 73 75 62 6c 69 73 74	IST.grouped.into.N-sized.sublist
d120	73 2e 0a 54 68 65 20 6c 61 73 74 20 67 72 6f 75 70 20 6d 61 79 20 63 6f 6e 74 61 69 6e 20 6c 65	s..The.last.group.may.contain.le
d140	73 73 20 74 68 61 6e 20 4e 20 69 74 65 6d 73 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28	ss.than.N.items...(fn.N.LIST)..(
d160	64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 20 23 5b 35 31 34 20 22	defalias.'-partition-all.#[514."
d180	5c 33 30 30 02 5c 32 31 31 03 23 5c 32 30 37 22 20 5b 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c	\300.\211.#\207".[-partition-all
d1a0	2d 69 6e 2d 73 74 65 70 73 5d 20 36 20 28 23 24 20 2e 20 35 33 34 36 37 29 5d 29 0a 28 62 79 74	-in-steps].6.(#$...53467)]).(byt
d1c0	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
d1e0	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
d200	74 20 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66	t.-partition-all.pure.t.side-eff
d220	65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 37 35 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20	ect-free].5).#@175.Return.a.new.
d240	6c 69 73 74 20 77 69 74 68 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 67 72 6f 75	list.with.the.items.in.LIST.grou
d260	70 65 64 20 69 6e 74 6f 20 4e 2d 73 69 7a 65 64 20 73 75 62 6c 69 73 74 73 2e 0a 49 66 20 74 68	ped.into.N-sized.sublists..If.th
d280	65 72 65 20 61 72 65 20 6e 6f 74 20 65 6e 6f 75 67 68 20 69 74 65 6d 73 20 74 6f 20 6d 61 6b 65	ere.are.not.enough.items.to.make
d2a0	20 74 68 65 20 6c 61 73 74 20 67 72 6f 75 70 20 4e 2d 73 69 7a 65 64 2c 0a 74 68 6f 73 65 20 69	.the.last.group.N-sized,.those.i
d2c0	74 65 6d 73 20 61 72 65 20 64 69 73 63 61 72 64 65 64 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29	tems.are.discarded...(fn.N.LIST)
d2e0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 20 23 5b 35 31 34 20 22 5c	..(defalias.'-partition.#[514."\
d300	33 30 30 02 5c 32 31 31 03 23 5c 32 30 37 22 20 5b 2d 70 61 72 74 69 74 69 6f 6e 2d 69 6e 2d 73	300.\211.#\207".[-partition-in-s
d320	74 65 70 73 5d 20 36 20 28 23 24 20 2e 20 35 33 38 31 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64	teps].6.(#$...53811)]).(byte-cod
d340	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
d360	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 2d 70 61	\303#\300\207".[function-put.-pa
d380	72 74 69 74 69 6f 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	rtition.pure.t.side-effect-free]
d3a0	20 35 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 70 61 72	.5).#@52.Anaphoric.form.of.`-par
d3c0	74 69 74 69 6f 6e 2d 62 79 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65	tition-by'...(fn.FORM.LIST)..(de
d3e0	66 61 6c 69 61 73 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 20 27 28 6d 61 63 72 6f 20 2e	falias.'--partition-by.'(macro..
d400	20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33	.#[514."\300\301!\300\302!\300\3
d420	30 33 21 5c 33 30 30 5c 33 30 34 21 5c 33 30 30 5c 33 30 35 21 5c 33 30 36 01 06 07 44 43 5c 33	03!\300\304!\300\305!\306...DC\3
d440	30 37 03 5c 33 31 30 06 09 5c 33 31 31 42 5c 33 31 32 5c 33 31 33 06 08 44 44 06 5c 6e 5c 33 31	07.\310..\311B\312\313..DD.\n\31
d460	34 42 06 5c 6e 06 0f 44 06 09 5c 33 31 35 06 0b 44 44 5c 32 35 37 05 5c 33 31 36 06 07 5c 33 31	4B.\n..D..\315..DD\257.\316..\31
d480	30 5c 33 31 32 5c 33 31 33 06 0b 44 44 06 0b 06 11 44 44 5c 33 31 37 5c 33 32 30 06 0e 06 0e 45	0\312\313..DD....DD\317\320....E
d4a0	5c 33 32 31 5c 33 32 32 06 11 44 06 12 45 5c 33 32 33 06 11 5c 33 32 34 42 42 5c 33 32 33 06 11	\321\322..D..E\323..\324BB\323..
d4c0	06 11 45 5c 32 35 37 05 5c 33 32 31 5c 33 31 32 06 10 45 5c 33 32 35 06 0d 44 5c 32 35 37 05 45	..E\257.\321\312..E\325..D\257.E
d4e0	5c 33 32 31 5c 33 32 32 06 5c 66 44 06 0d 45 5c 33 32 32 06 0d 44 5c 32 35 37 05 45 45 5c 32 30	\321\322.\fD..E\322..D\257.EE\20
d500	37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 22 73 75 62 6c 69 73	7".[make-symbol."result"."sublis
d520	74 22 20 22 76 61 6c 75 65 22 20 22 6e 65 77 2d 76 61 6c 75 65 22 20 22 6c 69 73 74 22 20 6c 65	t"."value"."new-value"."list".le
d540	74 20 77 68 65 6e 20 6c 65 74 2a 20 28 6e 69 6c 29 20 69 74 20 63 61 72 20 28 28 6c 69 73 74 20	t.when.let*.(nil).it.car.((list.
d560	69 74 29 29 20 63 64 72 20 77 68 69 6c 65 20 75 6e 6c 65 73 73 20 65 71 75 61 6c 20 21 63 6f 6e	it)).cdr.while.unless.equal.!con
d580	73 20 6e 72 65 76 65 72 73 65 20 73 65 74 71 20 28 6e 69 6c 29 20 21 63 64 72 5d 20 32 34 20 28	s.nreverse.setq.(nil).!cdr].24.(
d5a0	23 24 20 2e 20 35 34 31 38 35 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e	#$...54185)])).(put.'--partition
d5c0	2d 62 79 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72	-by.'edebug-form-spec.'(form.for
d5e0	6d 29 29 0a 23 40 39 33 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 69 74 65 6d 20 69	m)).#@93.Apply.FN.to.each.item.i
d600	6e 20 4c 49 53 54 2c 20 73 70 6c 69 74 74 69 6e 67 20 69 74 20 65 61 63 68 20 74 69 6d 65 20 46	n.LIST,.splitting.it.each.time.F
d620	4e 20 72 65 74 75 72 6e 73 20 61 20 6e 65 77 20 76 61 6c 75 65 2e 0a 0a 28 66 6e 20 46 4e 20 4c	N.returns.a.new.value...(fn.FN.L
d640	49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 20 23	IST)..(defalias.'-partition-by.#
d660	5b 35 31 34 20 22 5c 32 31 31 5c 32 30 35 41 00 5c 33 30 30 01 40 5c 32 31 31 43 04 02 21 04 41	[514."\211\205A.\300.@\211C..!.A
d680	5c 32 31 31 5c 32 30 33 37 00 5c 32 31 31 40 06 07 01 21 03 01 5c 32 33 32 5c 32 30 34 2b 00 04	\211\2037.\211@...!..\232\204+..
d6a0	5c 32 33 37 06 07 42 5c 32 36 32 07 5c 33 30 30 5c 32 36 32 05 5c 32 31 31 5c 32 36 32 04 01 05	\237..B\262.\300\262.\211\262...
d6c0	42 5c 32 36 32 05 02 41 5c 32 36 36 5c 32 30 33 5c 32 30 32 0e 00 02 5c 32 33 37 05 42 5c 32 36	B\262..A\266\203\202...\237.B\26
d6e0	32 05 04 5c 32 33 37 5c 32 36 36 5c 32 30 35 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 31 31 20 28 23	2..\237\266\205\207".[nil].11.(#
d700	24 20 2e 20 35 34 37 36 31 29 5d 29 0a 23 40 35 39 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d	$...54761)]).#@59.Anaphoric.form
d720	20 6f 66 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 27 2e 0a 0a 28 66 6e	.of.`-partition-by-header'...(fn
d740	20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 70 61 72 74 69 74	.FORM.LIST)..(defalias.'--partit
d760	69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c	ion-by-header.'(macro...#[514."\
d780	33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 30 5c 33	300\301!\300\302!\300\303!\300\3
d7a0	30 34 21 5c 33 30 30 5c 33 30 35 21 5c 33 30 30 5c 33 30 36 21 5c 33 30 37 01 06 08 44 43 5c 33	04!\300\305!\300\306!\307...DC\3
d7c0	31 30 03 5c 33 31 31 06 5c 6e 5c 33 31 32 42 5c 33 31 33 5c 33 31 34 06 08 44 44 06 0b 5c 33 31	10.\311.\n\312B\313\314..DD..\31
d7e0	35 42 06 0b 06 10 44 06 0b 5c 33 31 36 42 06 5c 6e 5c 33 31 37 06 5c 66 44 44 5c 32 35 37 06 5c	5B....D..\316B.\n\317.\fDD\257.\
d800	33 32 30 06 07 5c 33 31 31 5c 33 31 33 5c 33 31 34 06 0b 44 44 06 0b 06 12 44 44 5c 33 32 31 5c	320..\311\313\314..DD....DD\321\
d820	33 32 32 06 0f 06 0e 45 5c 33 31 30 06 0f 5c 33 32 33 5c 33 32 34 06 14 44 06 15 45 5c 33 32 35	322....E\310..\323\324..D..E\325
d840	06 14 5c 33 32 36 42 42 5c 33 32 35 06 13 5c 33 32 37 42 42 5c 32 35 37 05 5c 33 32 35 06 10 5c	..\326BB\325..\327BB\257.\325..\
d860	33 33 30 42 42 46 5c 33 32 33 5c 33 31 33 06 11 45 5c 33 33 31 06 0d 44 5c 32 35 37 05 45 5c 33	330BBF\323\313..E\331..D\257.E\3
d880	32 33 5c 33 32 34 06 0d 44 06 0e 45 5c 33 32 34 06 0e 44 5c 32 35 37 05 45 45 5c 32 30 37 22 20	23\324..D..E\324..D\257.EE\207".
d8a0	5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 22 73 75 62 6c 69 73 74 22 20	[make-symbol."result"."sublist".
d8c0	22 68 65 61 64 65 72 2d 76 61 6c 75 65 22 20 22 73 65 65 6e 2d 62 6f 64 79 3f 22 20 22 6e 65 77	"header-value"."seen-body?"."new
d8e0	2d 76 61 6c 75 65 22 20 22 6c 69 73 74 22 20 6c 65 74 20 77 68 65 6e 20 6c 65 74 2a 20 28 6e 69	-value"."list".let.when.let*.(ni
d900	6c 29 20 69 74 20 63 61 72 20 28 28 6c 69 73 74 20 69 74 29 29 20 28 6e 69 6c 29 20 63 64 72 20	l).it.car.((list.it)).(nil).cdr.
d920	77 68 69 6c 65 20 69 66 20 65 71 75 61 6c 20 21 63 6f 6e 73 20 6e 72 65 76 65 72 73 65 20 73 65	while.if.equal.!cons.nreverse.se
d940	74 71 20 28 6e 69 6c 29 20 28 6e 69 6c 29 20 28 74 29 20 21 63 64 72 5d 20 32 37 20 28 23 24 20	tq.(nil).(nil).(t).!cdr].27.(#$.
d960	2e 20 35 35 30 35 38 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79	..55058)])).(put.'--partition-by
d980	2d 68 65 61 64 65 72 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d	-header.'edebug-form-spec.'(form
d9a0	20 66 6f 72 6d 29 29 0a 23 40 32 31 39 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 74 68 65 20 66 69	.form)).#@219.Apply.FN.to.the.fi
d9c0	72 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2e 20 54 68 61 74 20 69 73 20 74 68 65 20 68 65	rst.item.in.LIST..That.is.the.he
d9e0	61 64 65 72 0a 76 61 6c 75 65 2e 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 69 74 65	ader.value..Apply.FN.to.each.ite
da00	6d 20 69 6e 20 4c 49 53 54 2c 20 73 70 6c 69 74 74 69 6e 67 20 69 74 20 65 61 63 68 20 74 69 6d	m.in.LIST,.splitting.it.each.tim
da20	65 20 46 4e 0a 72 65 74 75 72 6e 73 20 74 68 65 20 68 65 61 64 65 72 20 76 61 6c 75 65 2c 20 62	e.FN.returns.the.header.value,.b
da40	75 74 20 6f 6e 6c 79 20 61 66 74 65 72 20 73 65 65 69 6e 67 20 61 74 20 6c 65 61 73 74 20 6f 6e	ut.only.after.seeing.at.least.on
da60	65 0a 6f 74 68 65 72 20 76 61 6c 75 65 20 28 74 68 65 20 62 6f 64 79 29 2e 0a 0a 28 66 6e 20 46	e.other.value.(the.body)...(fn.F
da80	4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 62	N.LIST)..(defalias.'-partition-b
daa0	79 2d 68 65 61 64 65 72 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 35 4e 00 5c 33 30 30 01 40	y-header.#[514."\211\205N.\300.@
dac0	5c 32 31 31 43 04 02 21 5c 33 30 30 05 41 5c 32 31 31 5c 32 30 33 43 00 5c 32 31 31 40 06 08 01	\211C..!\300.A\211\203C.\211@...
dae0	21 04 01 5c 32 33 32 5c 32 30 33 33 00 03 5c 32 30 33 36 00 05 5c 32 33 37 06 08 42 5c 32 36 32	!..\232\2033..\2036..\237..B\262
db00	08 5c 33 30 30 5c 32 36 32 06 5c 33 30 30 5c 32 36 32 04 5c 32 30 32 36 00 5c 33 30 31 5c 32 36	.\300\262.\300\262.\2026.\301\26
db20	32 04 01 06 06 42 5c 32 36 32 06 02 41 5c 32 36 36 5c 32 30 33 5c 32 30 32 0f 00 03 5c 32 33 37	2....B\262..A\266\203\202...\237
db40	06 06 42 5c 32 36 32 06 05 5c 32 33 37 5c 32 36 36 5c 32 30 36 5c 32 30 37 22 20 5b 6e 69 6c 20	..B\262..\237\266\206\207".[nil.
db60	74 5d 20 31 32 20 28 23 24 20 2e 20 35 35 37 32 36 29 5d 29 0a 23 40 32 32 31 20 50 61 72 74 69	t].12.(#$...55726)]).#@221.Parti
db80	74 69 6f 6e 20 4c 49 53 54 20 61 66 74 65 72 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 66 6f 72	tion.LIST.after.each.element.for
dba0	20 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c	.which.FORM.evaluates.to.non-nil
dbc0	2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e 20 69	..Each.element.of.LIST.in.turn.i
dbe0	73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e	s.bound.to.`it'.before.evaluatin
dc00	67 0a 46 4f 52 4d 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63	g.FORM...This.is.the.anaphoric.c
dc20	6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d	ounterpart.to.`-partition-after-
dc40	70 72 65 64 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61	pred'...(fn.FORM.LIST)..(defalia
dc60	73 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 20 27 28 6d 61 63 72	s.'--partition-after-pred.'(macr
dc80	6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30	o...#[514."\300\301!\300\302!\30
dca0	30 5c 33 30 33 21 5c 33 30 34 03 05 44 03 03 45 5c 33 30 35 05 5c 33 30 36 06 07 5c 33 30 37 5c	0\303!\304..D..E\305.\306..\307\
dcc0	33 31 30 06 08 45 5c 33 30 35 06 5c 66 5c 33 30 37 5c 33 31 31 06 0b 44 06 5c 66 45 5c 33 31 32	310..E\305.\f\307\311..D.\fE\312
dce0	06 0b 5c 33 31 33 42 42 46 46 5c 33 30 35 06 06 5c 33 30 37 5c 33 31 31 06 09 44 06 5c 6e 45 45	..\313BBFF\305..\307\311..D.\nEE
dd00	5c 33 31 31 06 08 44 5c 32 35 37 05 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20	\311..D\257.E\207".[make-symbol.
dd20	22 6c 69 73 74 22 20 22 72 65 73 75 6c 74 22 20 22 73 75 62 6c 69 73 74 22 20 6c 65 74 20 77 68	"list"."result"."sublist".let.wh
dd40	65 6e 20 2d 2d 65 61 63 68 20 70 75 73 68 20 69 74 20 6e 72 65 76 65 72 73 65 20 73 65 74 71 20	en.--each.push.it.nreverse.setq.
dd60	28 6e 69 6c 29 5d 20 31 38 20 28 23 24 20 2e 20 35 36 31 38 37 29 5d 29 29 0a 23 40 31 35 31 20	(nil)].18.(#$...56187)])).#@151.
dd80	50 61 72 74 69 74 69 6f 6e 20 4c 49 53 54 20 61 66 74 65 72 20 65 61 63 68 20 65 6c 65 6d 65 6e	Partition.LIST.after.each.elemen
dda0	74 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c	t.for.which.PRED.returns.non-nil
ddc0	2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75	...This.function's.anaphoric.cou
dde0	6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70	nterpart.is.`--partition-after-p
de00	72 65 64 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73	red'...(fn.PRED.LIST)..(defalias
de20	20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 20 23 5b 35 31 34 20 22 5c	.'-partition-after-pred.#[514."\
de40	33 30 30 5c 32 31 31 02 5c 32 30 35 44 00 02 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33	300\211.\205D..\301\300\211.\203
de60	36 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32	6..\211A\262.\242\262..\262..T\2
de80	36 32 03 01 05 42 5c 32 36 32 05 06 07 02 21 5c 32 30 33 5c 6e 00 04 5c 32 33 37 06 06 42 5c 32	62...B\262....!\203\n..\237..B\2
dea0	36 32 06 5c 33 30 30 5c 32 36 32 05 5c 32 30 32 5c 6e 00 5c 32 36 36 04 5c 32 31 31 5c 32 30 33	62.\300\262.\202\n.\266.\211\203
dec0	42 00 5c 32 31 31 5c 32 33 37 02 42 5c 32 36 32 02 01 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c	B.\211\237.B\262..\237\207".[nil
dee0	20 30 5d 20 31 30 20 28 23 24 20 2e 20 35 36 37 30 34 29 5d 29 0a 23 40 38 39 20 50 61 72 74 69	.0].10.(#$...56704)]).#@89.Parti
df00	74 69 6f 6e 20 64 69 72 65 63 74 6c 79 20 62 65 66 6f 72 65 20 65 61 63 68 20 74 69 6d 65 20 50	tion.directly.before.each.time.P
df20	52 45 44 20 69 73 20 74 72 75 65 20 6f 6e 20 61 6e 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53	RED.is.true.on.an.element.of.LIS
df40	54 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	T...(fn.PRED.LIST)..(defalias.'-
df60	70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 70 72 65 64 20 23 5b 35 31 34 20 22 5c 33 30	partition-before-pred.#[514."\30
df80	30 5c 33 30 31 5c 33 30 32 04 5c 33 30 31 05 21 5c 22 5c 22 5c 32 33 37 5c 32 30 37 22 20 5b 2d	0\301\302.\301.!\"\"\237\207".[-
dfa0	6d 61 70 20 72 65 76 65 72 73 65 20 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65	map.reverse.-partition-after-pre
dfc0	64 5d 20 38 20 28 23 24 20 2e 20 35 37 30 38 33 29 5d 29 0a 23 40 37 34 20 50 61 72 74 69 74 69	d].8.(#$...57083)]).#@74.Partiti
dfe0	6f 6e 20 64 69 72 65 63 74 6c 79 20 61 66 74 65 72 20 65 61 63 68 20 74 69 6d 65 20 49 54 45 4d	on.directly.after.each.time.ITEM
e000	20 61 70 70 65 61 72 73 20 69 6e 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 49 54 45 4d 20 4c 49 53 54	.appears.in.LIST...(fn.ITEM.LIST
e020	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 69	)..(defalias.'-partition-after-i
e040	74 65 6d 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 5c 22 02 5c 22 5c 32 30	tem.#[514."\300\301\302.\".\"\20
e060	37 22 20 5b 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 20 6d 61 6b 65 2d 63	7".[-partition-after-pred.make-c
e080	6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 30 5c 32 33 32 5c 32 30 37 22 20	losure.#[257."\211\300\232\207".
e0a0	5b 56 30 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 45 29 22 5d 5d 20 36 20 28 23 24 20 2e 20	[V0].3."\n\n(fn.ELE)"]].6.(#$...
e0c0	35 37 33 30 35 29 5d 29 0a 23 40 37 35 20 50 61 72 74 69 74 69 6f 6e 20 64 69 72 65 63 74 6c 79	57305)]).#@75.Partition.directly
e0e0	20 62 65 66 6f 72 65 20 65 61 63 68 20 74 69 6d 65 20 49 54 45 4d 20 61 70 70 65 61 72 73 20 69	.before.each.time.ITEM.appears.i
e100	6e 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 49 54 45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69	n.LIST...(fn.ITEM.LIST)..(defali
e120	61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 69 74 65 6d 20 23 5b 35 31 34	as.'-partition-before-item.#[514
e140	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 5c 22 02 5c 22 5c 32 30 37 22 20 5b 2d 70 61 72 74	."\300\301\302.\".\"\207".[-part
e160	69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 70 72 65 64 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23	ition-before-pred.make-closure.#
e180	5b 32 35 37 20 22 5c 32 31 31 5c 33 30 30 5c 32 33 32 5c 32 30 37 22 20 5b 56 30 5d 20 33 20 22	[257."\211\300\232\207".[V0].3."
e1a0	5c 6e 5c 6e 28 66 6e 20 45 4c 45 29 22 5d 5d 20 36 20 28 23 24 20 2e 20 35 37 35 35 30 29 5d 29	\n\n(fn.ELE)"]].6.(#$...57550)])
e1c0	0a 23 40 34 38 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 67 72 6f 75 70 2d	.#@48.Anaphoric.form.of.`-group-
e1e0	62 79 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	by'...(fn.FORM.LIST)..(defalias.
e200	27 2d 2d 67 72 6f 75 70 2d 62 79 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30	'--group-by.'(macro...#[514."\30
e220	30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 34 5c 33 30 35	0\301!\300\302!\300\303!\304\305
e240	5c 33 30 36 05 43 5c 33 30 37 5c 33 31 30 06 08 44 5c 33 30 34 5c 33 31 31 06 5c 6e 44 44 45 45	\306.C\307\310..D\304\311.\nDDEE
e260	5c 33 31 32 5c 33 31 33 06 06 06 5c 6e 44 06 06 5c 33 31 34 06 09 5c 33 31 35 42 42 44 44 5c 33	\312\313...\nD..\314..\315BBDD\3
e280	31 36 06 07 5c 33 31 37 06 09 5c 33 30 37 5c 33 32 30 5c 33 31 31 06 0d 44 45 45 5c 33 32 31 5c	16..\317..\307\320\311..DEE\321\
e2a0	33 32 32 06 5c 66 5c 33 32 33 42 42 5c 33 32 34 42 42 46 5c 33 32 35 42 42 42 5c 33 32 36 06 09	322.\f\323BB\324BBF\325BBB\326..
e2c0	46 45 44 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6e 22 20 22 6b 22 20 22 67	FED\207".[make-symbol."n"."k"."g
e2e0	72 70 22 20 6e 72 65 76 65 72 73 65 20 2d 6d 61 70 20 6c 61 6d 62 64 61 20 63 6f 6e 73 20 63 61	rp".nreverse.-map.lambda.cons.ca
e300	72 20 63 64 72 20 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 6c 65 74 2a 20 61 73 73 6f 63 20 28	r.cdr.--reduce-from.let*.assoc.(
e320	61 63 63 29 20 69 66 20 73 65 74 63 64 72 20 69 74 20 70 75 73 68 20 6c 69 73 74 20 28 69 74 29	acc).if.setcdr.it.push.list.(it)
e340	20 28 61 63 63 29 20 28 61 63 63 29 20 6e 69 6c 5d 20 31 39 20 28 23 24 20 2e 20 35 37 37 39 38	.(acc).(acc).nil].19.(#$...57798
e360	29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 67 72 6f 75 70 2d 62 79 20 27 65 64 65 62 75 67 2d 66 6f	)])).(put.'--group-by.'edebug-fo
e380	72 6d 2d 73 70 65 63 20 74 29 0a 23 40 31 32 35 20 53 65 70 61 72 61 74 65 20 4c 49 53 54 20 69	rm-spec.t).#@125.Separate.LIST.i
e3a0	6e 74 6f 20 61 6e 20 61 6c 69 73 74 20 77 68 6f 73 65 20 6b 65 79 73 20 61 72 65 20 46 4e 20 61	nto.an.alist.whose.keys.are.FN.a
e3c0	70 70 6c 69 65 64 20 74 6f 20 74 68 65 0a 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 2e 20	pplied.to.the.elements.of.LIST..
e3e0	20 4b 65 79 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 62 79 20 60 65 71 75 61 6c 27 2e 0a 0a	.Keys.are.compared.by.`equal'...
e400	28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 67 72 6f 75 70 2d	(fn.FN.LIST)..(defalias.'-group-
e420	62 79 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 5c 33 30 32 5c	by.#[514."\300\301\302.\303\302\
e440	32 31 31 03 5c 32 30 33 42 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c	211.\203B..\211A\262.\242\262..\
e460	32 36 32 01 02 54 5c 32 36 32 03 06 08 02 21 5c 33 30 34 01 06 07 5c 22 5c 32 31 31 5c 32 30 33	262..T\262....!\304...\"\211\203
e480	31 00 5c 32 31 31 04 02 41 42 5c 32 34 31 5c 32 31 30 5c 32 30 32 39 00 01 04 44 06 07 42 5c 32	1.\211..AB\241\210\2029...D..B\2
e4a0	36 32 07 06 06 5c 32 36 36 5c 32 30 32 5c 32 36 32 05 5c 32 30 32 07 00 5c 32 36 36 04 5c 32 31	62...\266\202\262.\202..\266.\21
e4c0	31 5c 32 36 32 01 5c 22 5c 32 33 37 5c 32 30 37 22 20 5b 2d 6d 61 70 20 23 5b 32 35 37 20 22 5c	1\262.\"\237\207".[-map.#[257."\
e4e0	32 31 31 40 01 41 5c 32 33 37 42 5c 32 30 37 22 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 4e	211@.A\237B\207".[].3."\n\n(fn.N
e500	29 22 5d 20 6e 69 6c 20 30 20 61 73 73 6f 63 5d 20 31 34 20 28 23 24 20 2e 20 35 38 32 35 37 29	)"].nil.0.assoc].14.(#$...58257)
e520	5d 29 0a 23 40 37 36 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 61 6c 6c	]).#@76.Return.a.new.list.of.all
e540	20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 53 54 20 73 65 70 61 72 61 74 65 64 20 62 79 20 53	.elements.in.LIST.separated.by.S
e560	45 50 2e 0a 0a 28 66 6e 20 53 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	EP...(fn.SEP.LIST)..(defalias.'-
e580	69 6e 74 65 72 70 6f 73 65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 32 30 33 0e 00 01 40 43 5c	interpose.#[514."\300.\203...@C\
e5a0	32 36 32 01 01 41 5c 32 36 32 02 01 5c 32 30 33 21 00 01 40 03 02 42 42 5c 32 36 32 01 01 41 5c	262..A\262..\203!..@..BB\262..A\
e5c0	32 36 32 02 5c 32 30 32 0e 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 36 20	262.\202..\211\237\207".[nil].6.
e5e0	28 23 24 20 2e 20 35 38 36 36 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	(#$...58664)]).(byte-code."\300\
e600	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 30	301\302\303#\300\301\304\303#\30
e620	30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 6e 74 65 72 70 6f 73 65 20	0\207".[function-put.-interpose.
e640	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 39 30	pure.t.side-effect-free].5).#@90
e660	20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 69 72 73 74 20	.Return.a.new.list.of.the.first.
e680	69 74 65 6d 20 69 6e 20 65 61 63 68 20 6c 69 73 74 2c 20 74 68 65 6e 20 74 68 65 20 73 65 63 6f	item.in.each.list,.then.the.seco
e6a0	6e 64 20 65 74 63 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61	nd.etc...(fn.&rest.LISTS)..(defa
e6c0	6c 69 61 73 20 27 2d 69 6e 74 65 72 6c 65 61 76 65 20 23 5b 31 32 38 20 22 5c 32 31 31 5c 32 30	lias.'-interleave.#[128."\211\20
e6e0	35 3b 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 22 5c 32 30 33 37 00 01 5c 33 30 33 5c 33 30	5;.\300\301\302.\"\2037..\303\30
e700	30 5c 32 31 31 03 5c 32 30 33 2c 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02	0\211.\203,..\211A\262.\242\262.
e720	02 5c 32 36 32 01 02 54 5c 32 36 32 03 01 40 05 42 5c 32 36 32 05 5c 32 30 32 10 00 5c 32 36 36	.\262..T\262..@.B\262.\202..\266
e740	04 5c 33 30 34 5c 33 30 35 03 5c 22 5c 32 36 32 02 5c 32 30 32 05 00 5c 32 31 31 5c 32 33 37 5c	.\304\305.\"\262.\202..\211\237\
e760	32 36 32 01 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 6e 6f 6e 65 5c 3f 20 6e 75 6c 6c 20 30 20 2d 6d	262.\207".[nil.-none\?.null.0.-m
e780	61 70 20 63 64 72 5d 20 38 20 28 23 24 20 2e 20 35 38 39 37 37 29 5d 29 0a 28 62 79 74 65 2d 63	ap.cdr].8.(#$...58977)]).(byte-c
e7a0	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
e7c0	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 2d	04\303#\300\207".[function-put.-
e7e0	69 6e 74 65 72 6c 65 61 76 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72	interleave.pure.t.side-effect-fr
e800	65 65 5d 20 35 29 0a 23 40 31 35 33 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60	ee].5).#@153.Anaphoric.form.of.`
e820	2d 7a 69 70 2d 77 69 74 68 27 2e 0a 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 75 72	-zip-with'...Each.element.in.tur
e840	6e 20 6f 66 20 4c 49 53 54 31 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 2c 20 61 6e 64	n.of.LIST1.is.bound.to.`it',.and
e860	20 6f 66 20 4c 49 53 54 32 20 74 6f 0a 60 6f 74 68 65 72 27 2c 20 62 65 66 6f 72 65 20 65 76 61	.of.LIST2.to.`other',.before.eva
e880	6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 31 20 4c 49	luating.FORM...(fn.FORM.LIST1.LI
e8a0	53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 7a 69 70 2d 77 69 74 68 20 27 28 6d 61	ST2)..(defalias.'--zip-with.'(ma
e8c0	63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c	cro...#[771."\300\301!\300\302!\
e8e0	33 30 30 5c 33 30 33 21 5c 33 30 34 03 5c 33 30 35 42 03 06 07 44 03 06 07 44 45 5c 33 30 36 5c	300\303!\304.\305B...D...DE\306\
e900	33 30 37 05 05 45 5c 33 30 34 5c 33 31 30 5c 33 31 31 06 08 44 44 5c 33 31 32 5c 33 31 31 06 08	307..E\304\310\311..DD\312\311..
e920	44 44 44 5c 33 31 33 06 5c 66 06 5c 6e 45 5c 33 31 34 06 09 44 5c 33 31 34 06 09 44 5c 32 35 37	DDD\313.\f.\nE\314..D\314..D\257
e940	05 45 5c 33 31 35 06 06 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65	.E\315..DF\207".[make-symbol."re
e960	73 75 6c 74 22 20 22 6c 69 73 74 31 22 20 22 6c 69 73 74 32 22 20 6c 65 74 20 28 6e 69 6c 29 20	sult"."list1"."list2".let.(nil).
e980	77 68 69 6c 65 20 61 6e 64 20 69 74 20 63 61 72 20 6f 74 68 65 72 20 21 63 6f 6e 73 20 21 63 64	while.and.it.car.other.!cons.!cd
e9a0	72 20 6e 72 65 76 65 72 73 65 5d 20 31 36 20 28 23 24 20 2e 20 35 39 34 30 35 29 5d 29 29 0a 28	r.nreverse].16.(#$...59405)])).(
e9c0	70 75 74 20 27 2d 2d 7a 69 70 2d 77 69 74 68 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65	put.'--zip-with.'edebug-form-spe
e9e0	63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 34 37 20 5a 69 70 20 74	c.'(form.form.form)).#@347.Zip.t
ea00	68 65 20 74 77 6f 20 6c 69 73 74 73 20 4c 49 53 54 31 20 61 6e 64 20 4c 49 53 54 32 20 75 73 69	he.two.lists.LIST1.and.LIST2.usi
ea20	6e 67 20 61 20 66 75 6e 63 74 69 6f 6e 20 46 4e 2e 20 20 54 68 69 73 0a 66 75 6e 63 74 69 6f 6e	ng.a.function.FN...This.function
ea40	20 69 73 20 61 70 70 6c 69 65 64 20 70 61 69 72 77 69 73 65 20 74 61 6b 69 6e 67 20 61 73 20 66	.is.applied.pairwise.taking.as.f
ea60	69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 65 6c 65 6d 65 6e 74 20 6f 66 0a 4c 49 53 54 31 20 61	irst.argument.element.of.LIST1.a
ea80	6e 64 20 61 73 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 65 6c 65 6d 65 6e 74 20 6f 66	nd.as.second.argument.element.of
eaa0	20 4c 49 53 54 32 20 61 74 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 70 6f 73 69 74 69 6f 6e	.LIST2.at.corresponding.position
eac0	2e 0a 0a 54 68 65 20 61 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 60 2d 2d 7a 69 70 2d 77 69 74	...The.anaphoric.form.`--zip-wit
eae0	68 27 20 62 69 6e 64 73 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 4c 49 53 54 31	h'.binds.the.elements.from.LIST1
eb00	20 61 73 20 73 79 6d 62 6f 6c 20 60 69 74 27 2c 0a 61 6e 64 20 74 68 65 20 65 6c 65 6d 65 6e 74	.as.symbol.`it',.and.the.element
eb20	73 20 66 72 6f 6d 20 4c 49 53 54 32 20 61 73 20 73 79 6d 62 6f 6c 20 60 6f 74 68 65 72 27 2e 0a	s.from.LIST2.as.symbol.`other'..
eb40	0a 28 66 6e 20 46 4e 20 4c 49 53 54 31 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	.(fn.FN.LIST1.LIST2)..(defalias.
eb60	27 2d 7a 69 70 2d 77 69 74 68 20 23 5b 37 37 31 20 22 5c 33 30 30 02 02 01 5c 32 30 33 23 00 5c	'-zip-with.#[771."\300...\203#.\
eb80	32 31 31 5c 32 30 33 23 00 01 40 01 40 06 07 02 02 5c 22 05 42 5c 32 36 32 05 03 41 5c 32 36 32	211\203#..@.@....\".B\262..A\262
eba0	04 02 41 5c 32 36 36 5c 32 30 33 5c 32 30 32 03 00 02 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c	..A\266\203\202...\237\207".[nil
ebc0	5d 20 31 31 20 28 23 24 20 2e 20 35 39 38 39 39 29 5d 29 0a 23 40 33 38 30 20 5a 69 70 20 4c 49	].11.(#$...59899)]).#@380.Zip.LI
ebe0	53 54 53 20 74 6f 67 65 74 68 65 72 2e 20 20 47 72 6f 75 70 20 74 68 65 20 68 65 61 64 20 6f 66	STS.together...Group.the.head.of
ec00	20 65 61 63 68 20 6c 69 73 74 2c 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 0a 73 65 63 6f	.each.list,.followed.by.the.seco
ec20	6e 64 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 65 61 63 68 20 6c 69 73 74 2c 20 61 6e 64 20 73 6f	nd.elements.of.each.list,.and.so
ec40	20 6f 6e 2e 20 54 68 65 20 6c 65 6e 67 74 68 73 20 6f 66 20 74 68 65 20 72 65 74 75 72 6e 65 64	.on..The.lengths.of.the.returned
ec60	0a 67 72 6f 75 70 69 6e 67 73 20 61 72 65 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 6c 65 6e 67	.groupings.are.equal.to.the.leng
ec80	74 68 20 6f 66 20 74 68 65 20 73 68 6f 72 74 65 73 74 20 69 6e 70 75 74 20 6c 69 73 74 2e 0a 0a	th.of.the.shortest.input.list...
eca0	54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 61 6c 77 61 79 73 20 6c 69 73 74 20	The.return.value.is.always.list.
ecc0	6f 66 20 6c 69 73 74 73 2c 20 77 68 69 63 68 20 69 73 20 61 20 64 69 66 66 65 72 65 6e 63 65 0a	of.lists,.which.is.a.difference.
ece0	66 72 6f 6d 20 60 2d 7a 69 70 2d 70 61 69 72 27 20 77 68 69 63 68 20 72 65 74 75 72 6e 73 20 61	from.`-zip-pair'.which.returns.a
ed00	20 63 6f 6e 73 2d 63 65 6c 6c 20 69 6e 20 63 61 73 65 20 74 77 6f 20 69 6e 70 75 74 0a 6c 69 73	.cons-cell.in.case.two.input.lis
ed20	74 73 20 61 72 65 20 70 72 6f 76 69 64 65 64 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 7a 69	ts.are.provided...See.also:.`-zi
ed40	70 27 0a 0a 28 66 6e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	p'..(fn.&rest.LISTS)..(defalias.
ed60	27 2d 7a 69 70 2d 6c 69 73 74 73 20 23 5b 31 32 38 20 22 5c 32 31 31 5c 32 30 35 21 00 5c 33 30	'-zip-lists.#[128."\211\205!.\30
ed80	30 5c 33 30 31 5c 33 30 32 03 5c 22 5c 32 30 33 1d 00 5c 33 30 33 5c 33 30 34 03 5c 22 01 42 5c	0\301\302.\"\203..\303\304.\".B\
eda0	32 36 32 01 5c 33 30 33 5c 33 30 35 03 5c 22 5c 32 36 32 02 5c 32 30 32 05 00 5c 32 31 31 5c 32	262.\303\305.\"\262.\202..\211\2
edc0	33 37 5c 32 36 32 01 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 6e 6f 6e 65 5c 3f 20 6e 75 6c 6c 20 6d	37\262.\207".[nil.-none\?.null.m
ede0	61 70 63 61 72 20 63 61 72 20 63 64 72 5d 20 35 20 28 23 24 20 2e 20 36 30 33 37 38 29 5d 29 0a	apcar.car.cdr].5.(#$...60378)]).
ee00	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
ee20	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
ee40	6e 2d 70 75 74 20 2d 7a 69 70 2d 6c 69 73 74 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66	n-put.-zip-lists.pure.t.side-eff
ee60	65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 37 36 20 5a 69 70 20 4c 49 53 54 53 20 74 6f 67	ect-free].5).#@476.Zip.LISTS.tog
ee80	65 74 68 65 72 2e 20 20 47 72 6f 75 70 20 74 68 65 20 68 65 61 64 20 6f 66 20 65 61 63 68 20 6c	ether...Group.the.head.of.each.l
eea0	69 73 74 2c 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 0a 73 65 63 6f 6e 64 20 65 6c 65 6d	ist,.followed.by.the.second.elem
eec0	65 6e 74 73 20 6f 66 20 65 61 63 68 20 6c 69 73 74 2c 20 61 6e 64 20 73 6f 20 6f 6e 2e 20 54 68	ents.of.each.list,.and.so.on..Th
eee0	65 20 6c 65 6e 67 74 68 73 20 6f 66 20 74 68 65 20 72 65 74 75 72 6e 65 64 0a 67 72 6f 75 70 69	e.lengths.of.the.returned.groupi
ef00	6e 67 73 20 61 72 65 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74	ngs.are.equal.to.the.length.of.t
ef20	68 65 20 73 68 6f 72 74 65 73 74 20 69 6e 70 75 74 20 6c 69 73 74 2e 0a 0a 49 66 20 74 77 6f 20	he.shortest.input.list...If.two.
ef40	6c 69 73 74 73 20 61 72 65 20 70 72 6f 76 69 64 65 64 20 61 73 20 61 72 67 75 6d 65 6e 74 73 2c	lists.are.provided.as.arguments,
ef60	20 72 65 74 75 72 6e 20 74 68 65 20 67 72 6f 75 70 69 6e 67 73 20 61 73 20 61 20 6c 69 73 74 0a	.return.the.groupings.as.a.list.
ef80	6f 66 20 63 6f 6e 73 20 63 65 6c 6c 73 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 72 65 74 75 72 6e	of.cons.cells..Otherwise,.return
efa0	20 74 68 65 20 67 72 6f 75 70 69 6e 67 73 20 61 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74	.the.groupings.as.a.list.of.list
efc0	73 2e 0a 0a 55 73 65 20 60 2d 7a 69 70 2d 6c 69 73 74 73 27 20 69 66 20 79 6f 75 20 6e 65 65 64	s...Use.`-zip-lists'.if.you.need
efe0	20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 74 6f 20 61 6c 77 61 79 73 20 62 65 20 61	.the.return.value.to.always.be.a
f000	20 6c 69 73 74 0a 6f 66 20 6c 69 73 74 73 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 7a 69 70 2d 70 61	.list.of.lists...Alias:.`-zip-pa
f020	69 72 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 7a 69 70 2d 6c 69 73 74 73 27 0a 0a 28 66 6e	ir'..See.also:.`-zip-lists'..(fn
f040	20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 7a 69 70 20 23	.&rest.LISTS)..(defalias.'-zip.#
f060	5b 31 32 38 20 22 5c 32 31 31 5c 32 30 35 32 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 22 5c	[128."\211\2052.\300\301\302.\"\
f080	32 30 33 1d 00 5c 33 30 33 5c 33 30 34 03 5c 22 01 42 5c 32 36 32 01 5c 33 30 33 5c 33 30 35 03	203..\303\304.\".B\262.\303\305.
f0a0	5c 22 5c 32 36 32 02 5c 32 30 32 05 00 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 01 47 5c 33 30 36	\"\262.\202..\211\237\262..G\306
f0c0	55 5c 32 30 33 2f 00 5c 33 30 33 5c 33 30 37 02 5c 22 5c 32 30 32 30 00 5c 32 31 31 5c 32 36 32	U\203/.\303\307.\"\2020.\211\262
f0e0	01 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 6e 6f 6e 65 5c 3f 20 6e 75 6c 6c 20 6d 61 70 63 61 72 20	.\207".[nil.-none\?.null.mapcar.
f100	63 61 72 20 63 64 72 20 32 20 23 5b 32 35 37 20 22 5c 32 31 31 40 01 41 40 42 5c 32 30 37 22 20	car.cdr.2.#[257."\211@.A@B\207".
f120	5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 35 20 28 23 24 20 2e 20 36 31 30	[].3."\n\n(fn.IT)"]].5.(#$...610
f140	34 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 32 5c 33	43)]).(byte-code."\300\301\302\3
f160	30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 35 5c 33 30 36 5c 33 30 31	03#\300\301\304\303#\305\306\301
f180	5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 7a 69 70 20 70 75 72 65 20	\"\207".[function-put.-zip.pure.
f1a0	74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d 7a 69 70	t.side-effect-free.defalias.-zip
f1c0	2d 70 61 69 72 5d 20 35 29 0a 23 40 31 37 37 20 5a 69 70 20 4c 49 53 54 53 2c 20 77 69 74 68 20	-pair].5).#@177.Zip.LISTS,.with.
f1e0	46 49 4c 4c 2d 56 41 4c 55 45 20 70 61 64 64 65 64 20 6f 6e 74 6f 20 74 68 65 20 73 68 6f 72 74	FILL-VALUE.padded.onto.the.short
f200	65 72 20 6c 69 73 74 73 2e 20 54 68 65 0a 6c 65 6e 67 74 68 73 20 6f 66 20 74 68 65 20 72 65 74	er.lists..The.lengths.of.the.ret
f220	75 72 6e 65 64 20 67 72 6f 75 70 69 6e 67 73 20 61 72 65 20 65 71 75 61 6c 20 74 6f 20 74 68 65	urned.groupings.are.equal.to.the
f240	20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 0a 6c 6f 6e 67 65 73 74 20 69 6e 70 75 74 20 6c 69 73	.length.of.the.longest.input.lis
f260	74 2e 0a 0a 28 66 6e 20 46 49 4c 4c 2d 56 41 4c 55 45 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f	t...(fn.FILL-VALUE.&rest.LISTS).
f280	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 7a 69 70 2d 66 69 6c 6c 20 23 5b 33 38 35 20 22 5c 33 30	.(defalias.'-zip-fill.#[385."\30
f2a0	30 5c 33 30 31 5c 33 30 30 5c 33 30 32 05 05 42 5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79	0\301\300\302..B\"\"\207".[apply
f2c0	20 2d 7a 69 70 20 2d 70 61 64 5d 20 38 20 28 23 24 20 2e 20 36 31 39 30 34 29 5d 29 0a 28 62 79	.-zip.-pad].8.(#$...61904)]).(by
f2e0	74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33	te-code."\300\301\302\303#\300\3
f300	30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70	01\304\303#\300\207".[function-p
f320	75 74 20 2d 7a 69 70 2d 66 69 6c 6c 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d	ut.-zip-fill.pure.t.side-effect-
f340	66 72 65 65 5d 20 35 29 0a 23 40 33 37 31 20 55 6e 7a 69 70 20 4c 49 53 54 53 2e 0a 0a 54 68 69	free].5).#@371.Unzip.LISTS...Thi
f360	73 20 77 6f 72 6b 73 20 6a 75 73 74 20 6c 69 6b 65 20 60 2d 7a 69 70 27 20 62 75 74 20 74 61 6b	s.works.just.like.`-zip'.but.tak
f380	65 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 69 6e 73 74 65 61 64 20 6f 66 0a 61 20	es.a.list.of.lists.instead.of.a.
f3a0	76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2c 20 73 75	variable.number.of.arguments,.su
f3c0	63 68 20 74 68 61 74 0a 0a 20 20 28 2d 75 6e 7a 69 70 20 28 2d 7a 69 70 20 4c 31 20 4c 32 20 4c	ch.that....(-unzip.(-zip.L1.L2.L
f3e0	33 20 2e 2e 2e 29 29 0a 0a 69 73 20 69 64 65 6e 74 69 74 79 20 28 67 69 76 65 6e 20 74 68 61 74	3....))..is.identity.(given.that
f400	20 74 68 65 20 6c 69 73 74 73 20 61 72 65 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 29 2e	.the.lists.are.the.same.length).
f420	0a 0a 4e 6f 74 65 20 69 6e 20 70 61 72 74 69 63 75 6c 61 72 20 74 68 61 74 20 63 61 6c 6c 69 6e	..Note.in.particular.that.callin
f440	67 20 74 68 69 73 20 6f 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20 6c 69 73 74 73 20 77 69	g.this.on.a.list.of.two.lists.wi
f460	6c 6c 0a 72 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6e 73 2d 63 65 6c 6c 73 20 73	ll.return.a.list.of.cons-cells.s
f480	75 63 68 20 74 68 61 74 20 74 68 65 20 61 62 6f 76 65 20 69 64 65 6e 74 69 74 79 20 77 6f 72 6b	uch.that.the.above.identity.work
f4a0	73 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 7a 69 70 27 0a 0a 28 66 6e 20 4c 49 53 54 53 29	s...See.also:.`-zip'..(fn.LISTS)
f4c0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 6e 7a 69 70 20 23 5b 32 35 37 20 22 5c 33 30 30 5c	..(defalias.'-unzip.#[257."\300\
f4e0	33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 2d 7a 69 70 5d 20 34 20 28 23 24 20 2e	301.\"\207".[apply.-zip].4.(#$..
f500	20 36 32 32 38 37 29 5d 29 0a 23 40 31 34 30 20 52 65 74 75 72 6e 20 61 6e 20 69 6e 66 69 6e 69	.62287)]).#@140.Return.an.infini
f520	74 65 20 63 69 72 63 75 6c 61 72 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 2e 0a 54 68 65 20 72 65	te.circular.copy.of.LIST..The.re
f540	74 75 72 6e 65 64 20 6c 69 73 74 20 63 79 63 6c 65 73 20 74 68 72 6f 75 67 68 20 74 68 65 20 65	turned.list.cycles.through.the.e
f560	6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 20 61 6e 64 20 72 65 70 65 61 74 73 0a 66 72 6f 6d	lements.of.LIST.and.repeats.from
f580	20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66	.the.beginning...(fn.LIST)..(def
f5a0	61 6c 69 61 73 20 27 2d 63 79 63 6c 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22	alias.'-cycle.#[257."\300.\301\"
f5c0	5c 32 31 31 01 5c 32 34 34 5c 32 30 37 22 20 5b 61 70 70 65 6e 64 20 6e 69 6c 5d 20 34 20 28 23	\211.\244\207".[append.nil].4.(#
f5e0	24 20 2e 20 36 32 37 33 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	$...62736)]).(byte-code."\300\30
f600	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\
f620	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 79 63 6c 65 20 70 75 72 65 20 74	207".[function-put.-cycle.pure.t
f640	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 38 20 41 70 70 65	.side-effect-free].5).#@128.Appe
f660	6e 64 73 20 46 49 4c 4c 2d 56 41 4c 55 45 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 65 61 63	nds.FILL-VALUE.to.the.end.of.eac
f680	68 20 6c 69 73 74 20 69 6e 20 4c 49 53 54 53 20 73 75 63 68 20 74 68 61 74 20 74 68 65 79 0a 77	h.list.in.LISTS.such.that.they.w
f6a0	69 6c 6c 20 61 6c 6c 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 2e 0a 0a 28	ill.all.have.the.same.length...(
f6c0	66 6e 20 46 49 4c 4c 2d 56 41 4c 55 45 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66	fn.FILL-VALUE.&rest.LISTS)..(def
f6e0	61 6c 69 61 73 20 27 2d 70 61 64 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 33	alias.'-pad.#[385."\300\301.\"\3
f700	30 32 5c 33 30 33 5c 33 30 34 03 5c 22 21 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 06 04 23 03 5c	02\303\304.\"!\305\306\307...#.\
f720	22 5c 32 30 37 22 20 5b 2d 61 6e 6e 6f 74 61 74 65 20 6c 65 6e 67 74 68 20 2d 6d 61 78 20 2d 6d	"\207".[-annotate.length.-max.-m
f740	61 70 20 63 61 72 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37	ap.car.mapcar.make-closure.#[257
f760	20 22 5c 33 30 32 01 41 5c 33 30 33 5c 33 30 31 04 40 5a 5c 33 30 30 5c 22 5c 22 5c 32 30 37 22	."\302.A\303\301.@Z\300\"\"\207"
f780	20 5b 56 30 20 56 31 20 61 70 70 65 6e 64 20 2d 72 65 70 65 61 74 5d 20 36 20 22 5c 6e 5c 6e 28	.[V0.V1.append.-repeat].6."\n\n(
f7a0	66 6e 20 49 54 29 22 5d 5d 20 39 20 28 23 24 20 2e 20 36 33 30 36 38 29 5d 29 0a 23 40 31 34 31	fn.IT)"]].9.(#$...63068)]).#@141
f7c0	20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6e 73 20 63 65 6c 6c 73 20 77 68 65	.Return.a.list.of.cons.cells.whe
f7e0	72 65 20 65 61 63 68 20 63 65 6c 6c 20 69 73 20 46 4e 20 61 70 70 6c 69 65 64 20 74 6f 20 65 61	re.each.cell.is.FN.applied.to.ea
f800	63 68 0a 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 70 61 69 72 65 64 20 77 69 74 68 20 74	ch.element.of.LIST.paired.with.t
f820	68 65 20 75 6e 6d 6f 64 69 66 69 65 64 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2e 0a 0a	he.unmodified.element.of.LIST...
f840	28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 6e 6e 6f 74 61	(fn.FN.LIST)..(defalias.'-annota
f860	74 65 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 03 5c 22 02 5c 22 5c 32 30 37 22 20 5b	te.#[514."\300\301..\".\"\207".[
f880	2d 7a 69 70 20 2d 6d 61 70 5d 20 36 20 28 23 24 20 2e 20 36 33 34 32 35 29 5d 29 0a 23 40 35 31	-zip.-map].6.(#$...63425)]).#@51
f8a0	20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 61 6e 6e 6f 74 61 74 65	.Anaphoric.version.of.`-annotate
f8c0	27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	'...(fn.FORM.LIST)..(defalias.'-
f8e0	2d 61 6e 6e 6f 74 61 74 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c	-annotate.'(macro...#[514."\300\
f900	33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 61 6e 6e 6f 74 61 74 65 20 6c 61 6d 62	301\302.E.E\207".[-annotate.lamb
f920	64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 36 33 36 34 39 29 5d 29 29 0a 28 70 75 74 20	da.(it)].6.(#$...63649)])).(put.
f940	27 2d 2d 61 6e 6e 6f 74 61 74 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28	'--annotate.'edebug-form-spec.'(
f960	64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 34 30 20 48 65 6c 70 65 72 20 66 6f 72	def-form.form)).#@140.Helper.for
f980	20 60 2d 74 61 62 6c 65 27 20 61 6e 64 20 60 2d 74 61 62 6c 65 2d 66 6c 61 74 27 2e 0a 0a 49 66	.`-table'.and.`-table-flat'...If
f9a0	20 61 20 6c 69 73 74 20 6f 76 65 72 66 6c 6f 77 73 2c 20 63 61 72 72 79 20 74 6f 20 74 68 65 20	.a.list.overflows,.carry.to.the.
f9c0	72 69 67 68 74 20 61 6e 64 20 72 65 73 65 74 20 74 68 65 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 4c	right.and.reset.the.list...(fn.L
f9e0	49 53 54 53 20 52 45 53 54 4f 52 45 2d 4c 49 53 54 53 20 26 6f 70 74 69 6f 6e 61 6c 20 52 45 29	ISTS.RESTORE-LISTS.&optional.RE)
fa00	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 74 61 62 6c 65 2d 63 61 72 72 79 20 23	..(defalias.'dash--table-carry.#
fa20	5b 37 37 30 20 22 02 40 5c 32 30 36 08 00 02 5c 33 30 30 5c 32 33 32 3f 5c 32 30 35 3f 00 02 02	[770.".@\206...\300\232?\205?...
fa40	40 5c 32 34 30 5c 32 31 30 02 41 40 03 41 01 41 5c 32 34 30 5c 32 36 36 02 02 41 5c 32 36 32 03	@\240\210.A@.A.A\240\266..A\262.
fa60	01 41 5c 32 36 32 02 5c 32 31 31 5c 32 30 33 00 00 5c 32 31 31 40 5c 32 33 37 01 41 01 03 41 40	.A\262.\211\203..\211@\237.A..A@
fa80	42 5c 32 34 30 5c 32 36 36 02 5c 32 31 31 5c 33 30 31 5c 32 34 30 5c 32 31 30 5c 32 31 31 41 5c	B\240\266.\211\301\240\210\211A\
faa0	32 36 32 01 5c 32 30 32 00 00 5c 32 30 37 22 20 5b 28 6e 69 6c 29 20 6e 69 6c 5d 20 37 20 28 23	262.\202..\207".[(nil).nil].7.(#
fac0	24 20 2e 20 36 33 38 36 32 29 5d 29 0a 23 40 33 35 32 20 43 6f 6d 70 75 74 65 20 6f 75 74 65 72	$...63862)]).#@352.Compute.outer
fae0	20 70 72 6f 64 75 63 74 20 6f 66 20 4c 49 53 54 53 20 75 73 69 6e 67 20 66 75 6e 63 74 69 6f 6e	.product.of.LISTS.using.function
fb00	20 46 4e 2e 0a 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 73 68 6f 75 6c 64 20 68 61 76	.FN...The.function.FN.should.hav
fb20	65 20 74 68 65 20 73 61 6d 65 20 61 72 69 74 79 20 61 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f	e.the.same.arity.as.the.number.o
fb40	66 0a 73 75 70 70 6c 69 65 64 20 6c 69 73 74 73 2e 0a 0a 54 68 65 20 6f 75 74 65 72 20 70 72 6f	f.supplied.lists...The.outer.pro
fb60	64 75 63 74 20 69 73 20 63 6f 6d 70 75 74 65 64 20 62 79 20 61 70 70 6c 79 69 6e 67 20 66 6e 20	duct.is.computed.by.applying.fn.
fb80	74 6f 20 61 6c 6c 20 70 6f 73 73 69 62 6c 65 0a 63 6f 6d 62 69 6e 61 74 69 6f 6e 73 20 63 72 65	to.all.possible.combinations.cre
fba0	61 74 65 64 20 62 79 20 74 61 6b 69 6e 67 20 6f 6e 65 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20	ated.by.taking.one.element.from.
fbc0	65 61 63 68 20 6c 69 73 74 20 69 6e 0a 6f 72 64 65 72 2e 20 20 54 68 65 20 64 69 6d 65 6e 73 69	each.list.in.order...The.dimensi
fbe0	6f 6e 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 28 6c 65 6e 67 74 68 20 6c 69 73 74	on.of.the.result.is.(length.list
fc00	73 29 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 62 6c 65 2d 66 6c 61 74 27 0a 0a 28 66	s)...See.also:.`-table-flat'..(f
fc20	6e 20 46 4e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74	n.FN.&rest.LISTS)..(defalias.'-t
fc40	61 62 6c 65 20 23 5b 33 38 35 20 22 5c 33 30 30 01 21 5c 33 30 31 02 21 5c 33 30 32 03 47 5c 33	able.#[385."\300.!\301.!\302.G\3
fc60	30 33 5c 22 01 40 5c 32 30 33 2f 00 5c 33 30 34 05 5c 33 30 35 5c 33 30 36 06 07 5c 22 5c 22 01	03\".@\203/.\304.\305\306..\"\".
fc80	01 03 40 42 5c 32 34 30 5c 32 31 30 04 5c 32 31 31 40 41 5c 32 34 30 5c 32 31 30 5c 33 30 37 05	..@B\240\210.\211@A\240\210\307.
fca0	05 04 23 5c 32 36 36 02 5c 32 30 32 0b 00 5c 33 30 31 01 21 40 5c 32 33 37 5c 32 30 37 22 20 5b	..#\266.\202..\301.!@\237\207".[
fcc0	63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 6c 61 73 74 20 6d 61 6b 65 2d 6c 69 73 74 20 6e 69 6c	copy-sequence.last.make-list.nil
fce0	20 61 70 70 6c 79 20 2d 6d 61 70 20 63 61 72 20 64 61 73 68 2d 2d 74 61 62 6c 65 2d 63 61 72 72	.apply.-map.car.dash--table-carr
fd00	79 5d 20 31 30 20 28 23 24 20 2e 20 36 34 32 31 31 29 5d 29 0a 23 40 35 33 39 20 43 6f 6d 70 75	y].10.(#$...64211)]).#@539.Compu
fd20	74 65 20 66 6c 61 74 20 6f 75 74 65 72 20 70 72 6f 64 75 63 74 20 6f 66 20 4c 49 53 54 53 20 75	te.flat.outer.product.of.LISTS.u
fd40	73 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 46 4e 2e 0a 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20	sing.function.FN...The.function.
fd60	46 4e 20 73 68 6f 75 6c 64 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 61 72 69 74 79 20 61 73	FN.should.have.the.same.arity.as
fd80	20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 0a 73 75 70 70 6c 69 65 64 20 6c 69 73 74 73 2e 0a 0a	.the.number.of.supplied.lists...
fda0	54 68 65 20 6f 75 74 65 72 20 70 72 6f 64 75 63 74 20 69 73 20 63 6f 6d 70 75 74 65 64 20 62 79	The.outer.product.is.computed.by
fdc0	20 61 70 70 6c 79 69 6e 67 20 66 6e 20 74 6f 20 61 6c 6c 20 70 6f 73 73 69 62 6c 65 0a 63 6f 6d	.applying.fn.to.all.possible.com
fde0	62 69 6e 61 74 69 6f 6e 73 20 63 72 65 61 74 65 64 20 62 79 20 74 61 6b 69 6e 67 20 6f 6e 65 20	binations.created.by.taking.one.
fe00	65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 65 61 63 68 20 6c 69 73 74 20 69 6e 0a 6f 72 64 65 72 2e	element.from.each.list.in.order.
fe20	20 20 54 68 65 20 72 65 73 75 6c 74 73 20 61 72 65 20 66 6c 61 74 74 65 6e 65 64 2c 20 69 67 6e	..The.results.are.flattened,.ign
fe40	6f 72 69 6e 67 20 74 68 65 20 74 65 6e 73 6f 72 20 73 74 72 75 63 74 75 72 65 0a 6f 66 20 74 68	oring.the.tensor.structure.of.th
fe60	65 20 72 65 73 75 6c 74 2e 20 20 54 68 69 73 20 69 73 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f	e.result...This.is.equivalent.to
fe80	20 63 61 6c 6c 69 6e 67 3a 0a 0a 20 20 28 2d 66 6c 61 74 74 65 6e 2d 6e 20 28 31 2d 20 28 6c 65	.calling:....(-flatten-n.(1-.(le
fea0	6e 67 74 68 20 6c 69 73 74 73 29 29 20 28 61 70 70 6c 79 20 5c 3d 27 2d 74 61 62 6c 65 20 66 6e	ngth.lists)).(apply.\='-table.fn
fec0	20 6c 69 73 74 73 29 29 0a 0a 62 75 74 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e	.lists))..but.the.implementation
fee0	20 68 65 72 65 20 69 73 20 6d 75 63 68 20 6d 6f 72 65 20 65 66 66 69 63 69 65 6e 74 2e 0a 0a 53	.here.is.much.more.efficient...S
ff00	65 65 20 61 6c 73 6f 3a 20 60 2d 66 6c 61 74 74 65 6e 2d 6e 27 2c 20 60 2d 74 61 62 6c 65 27 0a	ee.also:.`-flatten-n',.`-table'.
ff20	0a 28 66 6e 20 46 4e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	.(fn.FN.&rest.LISTS)..(defalias.
ff40	27 2d 74 61 62 6c 65 2d 66 6c 61 74 20 23 5b 33 38 35 20 22 5c 33 30 30 01 21 5c 33 30 31 02 21	'-table-flat.#[385."\300.!\301.!
ff60	5c 33 30 32 01 40 5c 32 30 33 28 00 5c 33 30 33 05 5c 33 30 34 5c 33 30 35 06 07 5c 22 5c 22 5c	\302.@\203(.\303.\304\305..\"\"\
ff80	32 31 31 02 42 5c 32 36 32 02 04 5c 32 31 31 40 41 5c 32 34 30 5c 32 31 30 5c 33 30 36 05 05 5c	211.B\262..\211@A\240\210\306..\
ffa0	22 5c 32 36 36 02 5c 32 30 32 07 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 63 6f 70 79 2d	"\266.\202..\211\237\207".[copy-
ffc0	73 65 71 75 65 6e 63 65 20 6c 61 73 74 20 6e 69 6c 20 61 70 70 6c 79 20 2d 6d 61 70 20 63 61 72	sequence.last.nil.apply.-map.car
ffe0	20 64 61 73 68 2d 2d 74 61 62 6c 65 2d 63 61 72 72 79 5d 20 31 30 20 28 23 24 20 2e 20 36 34 37	.dash--table-carry].10.(#$...647
10000	39 35 29 5d 29 0a 23 40 31 35 31 20 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20	95)]).#@151.Return.the.index.of.
10020	74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 67 69 76 65 6e 20 4c	the.first.element.in.the.given.L
10040	49 53 54 20 77 68 69 63 68 0a 69 73 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 71 75 65 72 79 20	IST.which.is.equal.to.the.query.
10060	65 6c 65 6d 65 6e 74 20 45 4c 45 4d 2c 20 6f 72 20 6e 69 6c 20 69 66 20 74 68 65 72 65 20 69 73	element.ELEM,.or.nil.if.there.is
10080	20 6e 6f 0a 73 75 63 68 20 65 6c 65 6d 65 6e 74 2e 0a 0a 28 66 6e 20 45 4c 45 4d 20 4c 49 53 54	.no.such.element...(fn.ELEM.LIST
100a0	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 65 6c 65 6d 2d 69 6e 64 65 78 20 23 5b 35 31 34 20	)..(defalias.'-elem-index.#[514.
100c0	22 5c 33 30 30 02 02 5c 22 40 5c 32 30 37 22 20 5b 2d 65 6c 65 6d 2d 69 6e 64 69 63 65 73 5d 20	"\300..\"@\207".[-elem-indices].
100e0	35 20 28 23 24 20 2e 20 36 35 35 34 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	5.(#$...65548)]).(byte-code."\30
10100	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#\
10120	33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 65 6c 65 6d 2d 69 6e 64	300\207".[function-put.-elem-ind
10140	65 78 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	ex.pure.t.side-effect-free].5).#
10160	40 31 31 33 20 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 69 63 65 73 20 6f 66 20 61 6c 6c 20 65	@113.Return.the.indices.of.all.e
10180	6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 53 54 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 71 75 65	lements.in.LIST.equal.to.the.que
101a0	72 79 0a 65 6c 65 6d 65 6e 74 20 45 4c 45 4d 2c 20 69 6e 20 61 73 63 65 6e 64 69 6e 67 20 6f 72	ry.element.ELEM,.in.ascending.or
101c0	64 65 72 2e 0a 0a 28 66 6e 20 45 4c 45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	der...(fn.ELEM.LIST)..(defalias.
101e0	27 2d 65 6c 65 6d 2d 69 6e 64 69 63 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33	'-elem-indices.#[514."\300\301\3
10200	30 32 04 5c 22 02 5c 22 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 2d 70 61	02.\".\"\207".[-find-indices.-pa
10220	72 74 69 61 6c 20 65 71 75 61 6c 5d 20 36 20 28 23 24 20 2e 20 36 35 38 39 33 29 5d 29 0a 28 62	rtial.equal].6.(#$...65893)]).(b
10240	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 5c	yte-code."\300\301\302\303#\300\
10260	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 2d	301\304\303#\300\207".[function-
10280	70 75 74 20 2d 65 6c 65 6d 2d 69 6e 64 69 63 65 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66	put.-elem-indices.pure.t.side-ef
102a0	66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 31 31 20 52 65 74 75 72 6e 20 74 68 65 20 69	fect-free].5).#@111.Return.the.i
102c0	6e 64 69 63 65 73 20 6f 66 20 61 6c 6c 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 53 54 20 73	ndices.of.all.elements.in.LIST.s
102e0	61 74 69 73 66 79 69 6e 67 20 74 68 65 0a 70 72 65 64 69 63 61 74 65 20 50 52 45 44 2c 20 69 6e	atisfying.the.predicate.PRED,.in
10300	20 61 73 63 65 6e 64 69 6e 67 20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54	.ascending.order...(fn.PRED.LIST
10320	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 23 5b 35 31	)..(defalias.'-find-indices.#[51
10340	34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 5c 33 30 32 5c 32 31 31 03 5c 32 30	4."\300\301\302.\303\302\211.\20
10360	33 2a 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c	3*..\211A\262.\242\262..\262..T\
10380	32 36 32 03 06 08 02 21 5c 32 30 35 23 00 5c 32 31 31 43 05 42 5c 32 36 32 05 5c 32 30 32 07 00	262....!\205#.\211C.B\262.\202..
103a0	5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79	\266.\211\237\262.\"\207".[apply
103c0	20 61 70 70 65 6e 64 20 6e 69 6c 20 30 5d 20 31 31 20 28 23 24 20 2e 20 36 36 32 32 38 29 5d 29	.append.nil.0].11.(#$...66228)])
103e0	0a 23 40 35 35 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 66 69 6e	.#@55.Anaphoric.version.of.`-fin
10400	64 2d 69 6e 64 69 63 65 73 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65	d-indices'...(fn.FORM.LIST)..(de
10420	66 61 6c 69 61 73 20 27 2d 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 27 28 6d 61 63 72 6f 20 2e	falias.'--find-indices.'(macro..
10440	20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d	.#[514."\300\301\302.E.E\207".[-
10460	66 69 6e 64 2d 69 6e 64 69 63 65 73 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20	find-indices.lambda.(it)].6.(#$.
10480	2e 20 36 36 35 33 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73	..66534)])).(put.'--find-indices
104a0	20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f	.'edebug-form-spec.'(def-form.fo
104c0	72 6d 29 29 0a 23 40 31 38 36 20 54 61 6b 65 20 61 20 70 72 65 64 69 63 61 74 65 20 50 52 45 44	rm)).#@186.Take.a.predicate.PRED
104e0	20 61 6e 64 20 61 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78	.and.a.LIST.and.return.the.index
10500	20 6f 66 20 74 68 65 0a 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 6c 69 73	.of.the.first.element.in.the.lis
10520	74 20 73 61 74 69 73 66 79 69 6e 67 20 74 68 65 20 70 72 65 64 69 63 61 74 65 2c 20 6f 72 20 6e	t.satisfying.the.predicate,.or.n
10540	69 6c 20 69 66 0a 74 68 65 72 65 20 69 73 20 6e 6f 20 73 75 63 68 20 65 6c 65 6d 65 6e 74 2e 0a	il.if.there.is.no.such.element..
10560	0a 53 65 65 20 61 6c 73 6f 20 60 2d 66 69 72 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49	.See.also.`-first'...(fn.PRED.LI
10580	53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6e 64 2d 69 6e 64 65 78 20 23 5b 35 31	ST)..(defalias.'-find-index.#[51
105a0	34 20 22 5c 33 30 30 02 02 5c 22 40 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73	4."\300..\"@\207".[-find-indices
105c0	5d 20 35 20 28 23 24 20 2e 20 36 36 37 36 33 29 5d 29 0a 23 40 35 33 20 41 6e 61 70 68 6f 72 69	].5.(#$...66763)]).#@53.Anaphori
105e0	63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 66 69 6e 64 2d 69 6e 64 65 78 27 2e 0a 0a 28 66 6e	c.version.of.`-find-index'...(fn
10600	20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 6e 64 2d 69	.FORM.LIST)..(defalias.'--find-i
10620	6e 64 65 78 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33	ndex.'(macro...#[514."\300\301\3
10640	30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 65 78 20 6c 61 6d 62 64 61 20	02.E.E\207".[-find-index.lambda.
10660	28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 36 37 30 33 32 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d	(it)].6.(#$...67032)])).(put.'--
10680	66 69 6e 64 2d 69 6e 64 65 78 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64	find-index.'edebug-form-spec.'(d
106a0	65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 38 34 20 54 61 6b 65 20 61 20 70 72 65 64	ef-form.form)).#@184.Take.a.pred
106c0	69 63 61 74 65 20 50 52 45 44 20 61 6e 64 20 61 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e	icate.PRED.and.a.LIST.and.return
106e0	20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 0a 6c 61 73 74 20 65 6c 65 6d 65 6e 74 20 69	.the.index.of.the.last.element.i
10700	6e 20 74 68 65 20 6c 69 73 74 20 73 61 74 69 73 66 79 69 6e 67 20 74 68 65 20 70 72 65 64 69 63	n.the.list.satisfying.the.predic
10720	61 74 65 2c 20 6f 72 20 6e 69 6c 20 69 66 0a 74 68 65 72 65 20 69 73 20 6e 6f 20 73 75 63 68 20	ate,.or.nil.if.there.is.no.such.
10740	65 6c 65 6d 65 6e 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e	element...See.also.`-last'...(fn
10760	20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6e 64 2d 6c 61	.PRED.LIST)..(defalias.'-find-la
10780	73 74 2d 69 6e 64 65 78 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 03 5c 22 21 5c 32 30	st-index.#[514."\300\301..\"!\20
107a0	37 22 20 5b 2d 6c 61 73 74 2d 69 74 65 6d 20 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 5d 20 36 20	7".[-last-item.-find-indices].6.
107c0	28 23 24 20 2e 20 36 37 32 35 33 29 5d 29 0a 23 40 35 38 20 41 6e 61 70 68 6f 72 69 63 20 76 65	(#$...67253)]).#@58.Anaphoric.ve
107e0	72 73 69 6f 6e 20 6f 66 20 60 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 27 2e 0a 0a 28 66	rsion.of.`-find-last-index'...(f
10800	6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 6e 64 2d	n.FORM.LIST)..(defalias.'--find-
10820	6c 61 73 74 2d 69 6e 64 65 78 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30	last-index.'(macro...#[514."\300
10840	5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e	\301\302.E.E\207".[-find-last-in
10860	64 65 78 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 36 37 35 34 30 29 5d	dex.lambda.(it)].6.(#$...67540)]
10880	29 29 0a 28 70 75 74 20 27 2d 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 20 27 65 64 65 62	)).(put.'--find-last-index.'edeb
108a0	75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23	ug-form-spec.'(def-form.form)).#
108c0	40 31 32 33 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 68 6f 73 65 20 65 6c 65 6d 65 6e 74	@123.Return.a.list.whose.element
108e0	73 20 61 72 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 4c 49 53 54 20 73 65 6c 65 63 74 65	s.are.elements.from.LIST.selecte
10900	64 0a 61 73 20 60 28 6e 74 68 20 69 20 6c 69 73 74 29 60 20 66 6f 72 20 61 6c 6c 20 69 20 66 72	d.as.`(nth.i.list)`.for.all.i.fr
10920	6f 6d 20 49 4e 44 49 43 45 53 2e 0a 0a 28 66 6e 20 49 4e 44 49 43 45 53 20 4c 49 53 54 29 1f 0a	om.INDICES...(fn.INDICES.LIST)..
10940	28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 20 23 5b	(defalias.'-select-by-indices.#[
10960	35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 23 00 03 5c 32	514."\300.\301\300\211.\203#..\2
10980	31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 01 06	11A\262.\242\262..\262..T\262...
109a0	06 38 05 42 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37	.8.B\262.\202..\266.\211\237\207
109c0	22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 36 37 37 38 31 29 5d 29 0a 28 62 79 74 65	".[nil.0].9.(#$...67781)]).(byte
109e0	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
10a00	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
10a20	20 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 20 70 75 72 65 20 74 20 73 69 64 65 2d	.-select-by-indices.pure.t.side-
10a40	65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 32 38 33 20 53 65 6c 65 63 74 20 43 4f 4c	effect-free].5).#@283.Select.COL
10a60	55 4d 4e 53 20 66 72 6f 6d 20 54 41 42 4c 45 2e 0a 0a 54 41 42 4c 45 20 69 73 20 61 20 6c 69 73	UMNS.from.TABLE...TABLE.is.a.lis
10a80	74 20 6f 66 20 6c 69 73 74 73 20 77 68 65 72 65 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 72 65	t.of.lists.where.each.element.re
10aa0	70 72 65 73 65 6e 74 73 20 6f 6e 65 20 72 6f 77 2e 0a 49 74 20 69 73 20 61 73 73 75 6d 65 64 20	presents.one.row..It.is.assumed.
10ac0	65 61 63 68 20 72 6f 77 20 68 61 73 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 2e 0a 0a 45	each.row.has.the.same.length...E
10ae0	61 63 68 20 72 6f 77 20 69 73 20 74 72 61 6e 73 66 6f 72 6d 65 64 20 73 75 63 68 20 74 68 61 74	ach.row.is.transformed.such.that
10b00	20 6f 6e 6c 79 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 43 4f 4c 55 4d 4e 53 20 61 72 65 0a	.only.the.specified.COLUMNS.are.
10b20	73 65 6c 65 63 74 65 64 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 65 6c 65 63 74 2d 63 6f	selected...See.also:.`-select-co
10b40	6c 75 6d 6e 27 2c 20 60 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 27 0a 0a 28 66 6e	lumn',.`-select-by-indices'..(fn
10b60	20 43 4f 4c 55 4d 4e 53 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 6c	.COLUMNS.TABLE)..(defalias.'-sel
10b80	65 63 74 2d 63 6f 6c 75 6d 6e 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04	ect-columns.#[514."\300\301\302.
10ba0	5c 22 02 5c 22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20	\".\"\207".[mapcar.make-closure.
10bc0	23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 30 37 22 20 5b 56 30 20 2d 73 65 6c	#[257."\301\300.\"\207".[V0.-sel
10be0	65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d	ect-by-indices].4."\n\n(fn.IT)"]
10c00	5d 20 36 20 28 23 24 20 2e 20 36 38 31 38 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	].6.(#$...68182)]).(byte-code."\
10c20	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
10c40	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 2d 73 65 6c 65 63 74	#\300\207".[function-put.-select
10c60	2d 63 6f 6c 75 6d 6e 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	-columns.pure.t.side-effect-free
10c80	5d 20 35 29 0a 23 40 32 35 37 20 53 65 6c 65 63 74 20 43 4f 4c 55 4d 4e 20 66 72 6f 6d 20 54 41	].5).#@257.Select.COLUMN.from.TA
10ca0	42 4c 45 2e 0a 0a 54 41 42 4c 45 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 77	BLE...TABLE.is.a.list.of.lists.w
10cc0	68 65 72 65 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 72 65 70 72 65 73 65 6e 74 73 20 6f 6e 65	here.each.element.represents.one
10ce0	20 72 6f 77 2e 0a 49 74 20 69 73 20 61 73 73 75 6d 65 64 20 65 61 63 68 20 72 6f 77 20 68 61 73	.row..It.is.assumed.each.row.has
10d00	20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 2e 0a 0a 54 68 65 20 73 69 6e 67 6c 65 20 73 65	.the.same.length...The.single.se
10d20	6c 65 63 74 65 64 20 63 6f 6c 75 6d 6e 20 69 73 20 72 65 74 75 72 6e 65 64 20 61 73 20 61 20 6c	lected.column.is.returned.as.a.l
10d40	69 73 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 73	ist...See.also:.`-select-columns
10d60	27 2c 20 60 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 27 0a 0a 28 66 6e 20 43 4f 4c	',.`-select-by-indices'..(fn.COL
10d80	55 4d 4e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 6c 65 63 74 2d 63	UMN.TABLE)..(defalias.'-select-c
10da0	6f 6c 75 6d 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30	olumn.#[514."\300\301\302\303\30
10dc0	34 06 06 5c 22 04 5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6d 61	4..\".\"\"\207".[apply.append.ma
10de0	70 63 61 72 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30	pcar.make-closure.#[257."\301\30
10e00	30 43 02 5c 22 5c 32 30 37 22 20 5b 56 30 20 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65	0C.\"\207".[V0.-select-by-indice
10e20	73 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 38 20 28 23 24 20 2e 20 36 38 37	s].4."\n\n(fn.IT)"]].8.(#$...687
10e40	34 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	47)]).(byte-code."\300\301\302\3
10e60	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
10e80	75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 20 70 75 72 65 20	unction-put.-select-column.pure.
10ea0	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 32 35 33 20 54 68 72	t.side-effect-free].5).#@253.Thr
10ec0	65 61 64 20 74 68 65 20 65 78 70 72 20 74 68 72 6f 75 67 68 20 74 68 65 20 66 6f 72 6d 73 2e 20	ead.the.expr.through.the.forms..
10ee0	49 6e 73 65 72 74 20 58 20 61 73 20 74 68 65 20 73 65 63 6f 6e 64 20 69 74 65 6d 0a 69 6e 20 74	Insert.X.as.the.second.item.in.t
10f00	68 65 20 66 69 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	he.first.form,.making.a.list.of.
10f20	69 74 20 69 66 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	it.if.it.is.not.a.list.already..
10f40	49 66 20 74 68 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 20	If.there.are.more.forms,.insert.
10f60	74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 61 73 20 74 68 65 0a 73 65 63 6f 6e 64 20 69 74 65	the.first.form.as.the.second.ite
10f80	6d 20 69 6e 20 73 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58 20 26 6f	m.in.second.form,.etc...(fn.X.&o
10fa0	70 74 69 6f 6e 61 6c 20 46 4f 52 4d 20 26 72 65 73 74 20 4d 4f 52 45 29 1f 0a 28 64 65 66 61 6c	ptional.FORM.&rest.MORE)..(defal
10fc0	69 61 73 20 27 2d 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 01 5c 32 30 34 06 00	ias.'->.'(macro...#[641.".\204..
10fe0	02 5c 32 30 37 5c 32 31 31 5c 32 30 34 1b 00 01 3c 5c 32 30 33 17 00 01 40 03 03 41 42 42 5c 32	.\207\211\204...<\203...@..ABB\2
11000	30 37 01 03 44 5c 32 30 37 5c 33 30 30 5c 32 31 31 04 04 45 02 42 42 5c 32 30 37 22 20 5b 2d 3e	07..D\207\300\211..E.BB\207".[->
11020	5d 20 37 20 28 23 24 20 2e 20 36 39 33 30 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 3e 20 27 65 64	].7.(#$...69309)])).(put.'->.'ed
11040	65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 26 72 65 73 74 20 5b 26 6f 72	ebug-form-spec.'(form.&rest.[&or
11060	20 73 79 6d 62 6f 6c 70 20 28 73 65 78 70 20 26 72 65 73 74 20 66 6f 72 6d 29 5d 29 29 0a 23 40	.symbolp.(sexp.&rest.form)])).#@
11080	32 34 39 20 54 68 72 65 61 64 20 74 68 65 20 65 78 70 72 20 74 68 72 6f 75 67 68 20 74 68 65 20	249.Thread.the.expr.through.the.
110a0	66 6f 72 6d 73 2e 20 49 6e 73 65 72 74 20 58 20 61 73 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d	forms..Insert.X.as.the.last.item
110c0	0a 69 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 6d 61 6b 69 6e 67 20 61 20 6c 69 73	.in.the.first.form,.making.a.lis
110e0	74 20 6f 66 20 69 74 20 69 66 20 69 74 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 0a 61 6c 72 65	t.of.it.if.it.is.not.a.list.alre
11100	61 64 79 2e 20 49 66 20 74 68 65 72 65 20 61 72 65 20 6d 6f 72 65 20 66 6f 72 6d 73 2c 20 69 6e	ady..If.there.are.more.forms,.in
11120	73 65 72 74 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 61 73 20 74 68 65 0a 6c 61 73 74 20	sert.the.first.form.as.the.last.
11140	69 74 65 6d 20 69 6e 20 73 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58	item.in.second.form,.etc...(fn.X
11160	20 26 6f 70 74 69 6f 6e 61 6c 20 46 4f 52 4d 20 26 72 65 73 74 20 4d 4f 52 45 29 1f 0a 28 64 65	.&optional.FORM.&rest.MORE)..(de
11180	66 61 6c 69 61 73 20 27 2d 3e 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 01 5c 32	falias.'->>.'(macro...#[641.".\2
111a0	30 34 06 00 02 5c 32 30 37 5c 32 31 31 5c 32 30 34 19 00 01 3c 5c 32 30 33 15 00 5c 33 30 30 02	04...\207\211\204...<\203..\300.
111c0	04 43 5c 22 5c 32 30 37 01 03 44 5c 32 30 37 5c 33 30 31 5c 32 31 31 04 04 45 02 42 42 5c 32 30	.C\"\207..D\207\301\211..E.BB\20
111e0	37 22 20 5b 61 70 70 65 6e 64 20 2d 3e 3e 5d 20 37 20 28 23 24 20 2e 20 36 39 37 36 34 29 5d 29	7".[append.->>].7.(#$...69764)])
11200	29 0a 28 70 75 74 20 27 2d 3e 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 2d	).(put.'->>.'edebug-form-spec.'-
11220	3e 29 0a 23 40 32 36 39 20 53 74 61 72 74 69 6e 67 20 77 69 74 68 20 74 68 65 20 76 61 6c 75 65	>).#@269.Starting.with.the.value
11240	20 6f 66 20 58 2c 20 74 68 72 65 61 64 20 65 61 63 68 20 65 78 70 72 65 73 73 69 6f 6e 20 74 68	.of.X,.thread.each.expression.th
11260	72 6f 75 67 68 20 46 4f 52 4d 53 2e 0a 0a 49 6e 73 65 72 74 20 58 20 61 74 20 74 68 65 20 70 6f	rough.FORMS...Insert.X.at.the.po
11280	73 69 74 69 6f 6e 20 73 69 67 6e 69 66 69 65 64 20 62 79 20 74 68 65 20 73 79 6d 62 6f 6c 20 60	sition.signified.by.the.symbol.`
112a0	69 74 27 20 69 6e 20 74 68 65 20 66 69 72 73 74 0a 66 6f 72 6d 2e 20 20 49 66 20 74 68 65 72 65	it'.in.the.first.form...If.there
112c0	20 61 72 65 20 6d 6f 72 65 20 66 6f 72 6d 73 2c 20 69 6e 73 65 72 74 20 74 68 65 20 66 69 72 73	.are.more.forms,.insert.the.firs
112e0	74 20 66 6f 72 6d 20 61 74 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 0a 73 69 67 6e 69 66 69 65 64	t.form.at.the.position.signified
11300	20 62 79 20 60 69 74 27 20 69 6e 20 69 6e 20 73 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63 2e	.by.`it'.in.in.second.form,.etc.
11320	0a 0a 28 66 6e 20 58 20 26 72 65 73 74 20 46 4f 52 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	..(fn.X.&rest.FORMS)..(defalias.
11340	27 2d 2d 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 5c 33 30 31 03	'-->.'(macro...#[385."\300.\301.
11360	42 42 42 5c 32 30 37 22 20 5b 2d 61 73 2d 3e 20 69 74 5d 20 36 20 28 23 24 20 2e 20 37 30 31 38	BBB\207".[-as->.it].6.(#$...7018
11380	35 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65	5)])).(put.'-->.'edebug-form-spe
113a0	63 20 27 28 66 6f 72 6d 20 62 6f 64 79 29 29 0a 23 40 32 31 32 20 53 74 61 72 74 69 6e 67 20 77	c.'(form.body)).#@212.Starting.w
113c0	69 74 68 20 56 41 4c 55 45 2c 20 74 68 72 65 61 64 20 56 41 52 49 41 42 4c 45 20 74 68 72 6f 75	ith.VALUE,.thread.VARIABLE.throu
113e0	67 68 20 46 4f 52 4d 53 2e 0a 0a 49 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 62 69	gh.FORMS...In.the.first.form,.bi
11400	6e 64 20 56 41 52 49 41 42 4c 45 20 74 6f 20 56 41 4c 55 45 2e 20 20 49 6e 20 74 68 65 20 73 65	nd.VARIABLE.to.VALUE...In.the.se
11420	63 6f 6e 64 20 66 6f 72 6d 2c 20 62 69 6e 64 0a 56 41 52 49 41 42 4c 45 20 74 6f 20 74 68 65 20	cond.form,.bind.VARIABLE.to.the.
11440	72 65 73 75 6c 74 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 61 6e 64 20 73 6f	result.of.the.first.form,.and.so
11460	20 66 6f 72 74 68 2e 0a 0a 28 66 6e 20 56 41 4c 55 45 20 56 41 52 49 41 42 4c 45 20 26 72 65 73	.forth...(fn.VALUE.VARIABLE.&res
11480	74 20 46 4f 52 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 73 2d 3e 20 27 28 6d 61 63	t.FORMS)..(defalias.'-as->.'(mac
114a0	72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 32 31 31 5c 32 30 34 06 00 02 5c 32 30 37 5c 33 30 30 02	ro...#[642."\211\204...\207\300.
114c0	04 44 43 5c 33 30 31 03 40 39 5c 32 30 33 19 00 03 40 05 44 5c 32 30 32 1b 00 03 40 05 05 41 42	.DC\301.@9\203...@.D\202...@..AB
114e0	42 42 45 5c 32 30 37 22 20 5b 6c 65 74 20 2d 61 73 2d 3e 5d 20 39 20 28 23 24 20 2e 20 37 30 35	BBE\207".[let.-as->].9.(#$...705
11500	38 32 29 5d 29 29 0a 28 70 75 74 20 27 2d 61 73 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d	82)])).(put.'-as->.'edebug-form-
11520	73 70 65 63 20 27 28 66 6f 72 6d 20 73 79 6d 62 6f 6c 70 20 62 6f 64 79 29 29 0a 23 40 31 36 33	spec.'(form.symbolp.body)).#@163
11540	20 57 68 65 6e 20 65 78 70 72 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 65 61 64 20 69 74	.When.expr.is.non-nil,.thread.it
11560	20 74 68 72 6f 75 67 68 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 28 76 69 61 20 60 2d 3e	.through.the.first.form.(via.`->
11580	27 29 2c 0a 61 6e 64 20 77 68 65 6e 20 74 68 61 74 20 72 65 73 75 6c 74 20 69 73 20 6e 6f 6e 2d	'),.and.when.that.result.is.non-
115a0	6e 69 6c 2c 20 74 68 72 6f 75 67 68 20 74 68 65 20 6e 65 78 74 20 66 6f 72 6d 2c 20 65 74 63 2e	nil,.through.the.next.form,.etc.
115c0	0a 0a 28 66 6e 20 58 20 26 6f 70 74 69 6f 6e 61 6c 20 46 4f 52 4d 20 26 72 65 73 74 20 4d 4f 52	..(fn.X.&optional.FORM.&rest.MOR
115e0	45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6f 6d 65 2d 3e 20 27 28 6d 61 63 72 6f 20 2e	E)..(defalias.'-some->.'(macro..
11600	20 23 5b 36 34 31 20 22 01 5c 32 30 34 06 00 02 5c 32 30 37 5c 33 30 30 5c 33 30 31 21 5c 33 30	.#[641.".\204...\207\300\301!\30
11620	32 5c 33 30 33 02 06 06 44 5c 33 30 34 04 06 07 45 45 03 42 42 5c 32 30 37 22 20 5b 6d 61 6b 65	2\303...D\304...EE.BB\207".[make
11640	2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 2d 73 6f 6d 65 2d 3e 20 2d 77 68 65 6e 2d 6c	-symbol."result".-some->.-when-l
11660	65 74 20 2d 3e 5d 20 31 30 20 28 23 24 20 2e 20 37 30 39 37 37 29 5d 29 29 0a 28 62 79 74 65 2d	et.->].10.(#$...70977)])).(byte-
11680	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c	code."\300\301\302\303#\210\304\
116a0	33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 73 6f 6d 65	301\305\306#\300\207".[put.-some
116c0	2d 3e 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 2d 3e 20 66 75 6e 63 74 69 6f 6e 2d	->.edebug-form-spec.->.function-
116e0	70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23	put.lisp-indent-function.1].4).#
11700	40 31 36 34 20 57 68 65 6e 20 65 78 70 72 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 65 61	@164.When.expr.is.non-nil,.threa
11720	64 20 69 74 20 74 68 72 6f 75 67 68 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 28 76 69 61	d.it.through.the.first.form.(via
11740	20 60 2d 3e 3e 27 29 2c 0a 61 6e 64 20 77 68 65 6e 20 74 68 61 74 20 72 65 73 75 6c 74 20 69 73	.`->>'),.and.when.that.result.is
11760	20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 6f 75 67 68 20 74 68 65 20 6e 65 78 74 20 66 6f 72 6d 2c	.non-nil,.through.the.next.form,
11780	20 65 74 63 2e 0a 0a 28 66 6e 20 58 20 26 6f 70 74 69 6f 6e 61 6c 20 46 4f 52 4d 20 26 72 65 73	.etc...(fn.X.&optional.FORM.&res
117a0	74 20 4d 4f 52 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6f 6d 65 2d 3e 3e 20 27 28 6d	t.MORE)..(defalias.'-some->>.'(m
117c0	61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 01 5c 32 30 34 06 00 02 5c 32 30 37 5c 33 30 30 5c 33	acro...#[641.".\204...\207\300\3
117e0	30 31 21 5c 33 30 32 5c 33 30 33 02 06 06 44 5c 33 30 34 04 06 07 45 45 03 42 42 5c 32 30 37 22	01!\302\303...D\304...EE.BB\207"
11800	20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 2d 73 6f 6d 65 2d 3e 3e 20	.[make-symbol."result".-some->>.
11820	2d 77 68 65 6e 2d 6c 65 74 20 2d 3e 3e 5d 20 31 30 20 28 23 24 20 2e 20 37 31 34 32 39 29 5d 29	-when-let.->>].10.(#$...71429)])
11840	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#\
11860	32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70	210\304\301\305\306#\300\207".[p
11880	75 74 20 2d 73 6f 6d 65 2d 3e 3e 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 2d 3e 20	ut.-some->>.edebug-form-spec.->.
118a0	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f	function-put.lisp-indent-functio
118c0	6e 20 31 5d 20 34 29 0a 23 40 32 33 39 20 54 68 72 65 61 64 20 45 58 50 52 20 74 68 72 6f 75 67	n.1].4).#@239.Thread.EXPR.throug
118e0	68 20 46 4f 52 4d 53 20 76 69 61 20 60 2d 2d 3e 27 2c 20 77 68 69 6c 65 20 74 68 65 20 72 65 73	h.FORMS.via.`-->',.while.the.res
11900	75 6c 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 57 68 65 6e 20 45 58 50 52 20 65 76 61 6c 75 61	ult.is.non-nil..When.EXPR.evalua
11920	74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 65 61 64 20 74 68 65 20 72 65 73 75 6c	tes.to.non-nil,.thread.the.resul
11940	74 20 74 68 72 6f 75 67 68 20 74 68 65 0a 66 69 72 73 74 20 6f 66 20 46 4f 52 4d 53 2c 20 61 6e	t.through.the.first.of.FORMS,.an
11960	64 20 77 68 65 6e 20 74 68 61 74 20 72 65 73 75 6c 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74	d.when.that.result.is.non-nil,.t
11980	68 72 65 61 64 20 69 74 0a 74 68 72 6f 75 67 68 20 74 68 65 20 6e 65 78 74 20 66 6f 72 6d 2c 20	hread.it.through.the.next.form,.
119a0	65 74 63 2e 0a 0a 28 66 6e 20 45 58 50 52 20 26 72 65 73 74 20 46 4f 52 4d 53 29 1f 0a 28 64 65	etc...(fn.EXPR.&rest.FORMS)..(de
119c0	66 61 6c 69 61 73 20 27 2d 73 6f 6d 65 2d 2d 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35	falias.'-some-->.'(macro...#[385
119e0	20 22 5c 32 31 31 5c 32 30 34 06 00 01 5c 32 30 37 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 5c 33	."\211\204...\207\300\301!\302\3
11a00	30 33 02 05 44 5c 33 30 34 04 06 06 40 45 45 03 41 42 42 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73	03..D\304...@EE.ABB\207".[make-s
11a20	79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 2d 73 6f 6d 65 2d 2d 3e 20 2d 77 68 65 6e 2d 6c 65	ymbol."result".-some-->.-when-le
11a40	74 20 2d 2d 3e 5d 20 39 20 28 23 24 20 2e 20 37 31 38 38 36 29 5d 29 29 0a 28 62 79 74 65 2d 63	t.-->].9.(#$...71886)])).(byte-c
11a60	6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33	ode."\300\301\302\303#\210\304\3
11a80	30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 73 6f 6d 65 2d	01\305\306#\300\207".[put.-some-
11aa0	2d 3e 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 26 72 65 73 74 20	->.edebug-form-spec.(form.&rest.
11ac0	26 6f 72 20 73 79 6d 62 6f 6c 70 20 63 6f 6e 73 70 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20	&or.symbolp.consp).function-put.
11ae0	6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 32 35 37	lisp-indent-function.1].4).#@257
11b00	20 45 76 61 6c 75 61 74 65 20 49 4e 49 54 20 61 6e 64 20 70 61 73 73 20 69 74 20 61 73 20 61 72	.Evaluate.INIT.and.pass.it.as.ar
11b20	67 75 6d 65 6e 74 20 74 6f 20 46 4f 52 4d 53 20 77 69 74 68 20 60 2d 3e 27 2e 0a 54 68 65 20 52	gument.to.FORMS.with.`->'..The.R
11b40	45 53 55 4c 54 20 6f 66 20 65 76 61 6c 75 61 74 69 6e 67 20 49 4e 49 54 20 69 73 20 74 68 72 65	ESULT.of.evaluating.INIT.is.thre
11b60	61 64 65 64 20 74 68 72 6f 75 67 68 20 65 61 63 68 20 6f 66 20 46 4f 52 4d 53 0a 69 6e 64 69 76	aded.through.each.of.FORMS.indiv
11b80	69 64 75 61 6c 6c 79 20 75 73 69 6e 67 20 60 2d 3e 27 2c 20 77 68 69 63 68 20 73 65 65 2e 20 20	idually.using.`->',.which.see...
11ba0	54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 52 45 53 55 4c 54 2c 0a 77 68 69 63	The.return.value.is.RESULT,.whic
11bc0	68 20 46 4f 52 4d 53 20 6d 61 79 20 68 61 76 65 20 6d 6f 64 69 66 69 65 64 20 62 79 20 73 69 64	h.FORMS.may.have.modified.by.sid
11be0	65 20 65 66 66 65 63 74 2e 0a 0a 28 66 6e 20 49 4e 49 54 20 26 72 65 73 74 20 46 4f 52 4d 53 29	e.effect...(fn.INIT.&rest.FORMS)
11c00	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 6f 74 6f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33	..(defalias.'-doto.'(macro...#[3
11c20	38 35 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 04 44 43 5c 33 30 33 5c 33 30 34 5c 33 30	85."\300\301!\302..DC\303\304\30
11c40	35 5c 33 30 36 06 06 5c 22 06 06 5c 22 04 43 5c 22 42 42 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73	5\306..\"..\".C\"BB\207".[make-s
11c60	79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 6c 65 74 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72	ymbol."result".let.append.mapcar
11c80	20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 30 02 45 5c	.make-closure.#[257."\301\300.E\
11ca0	32 30 37 22 20 5b 56 30 20 2d 3e 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 46 4f 52 4d 29 22 5d 5d	207".[V0.->].4."\n\n(fn.FORM)"]]
11cc0	20 31 30 20 28 23 24 20 2e 20 37 32 34 34 39 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	.10.(#$...72449)])).(byte-code."
11ce0	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30	\300\301\302\303#\210\304\301\30
11d00	35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 64 6f 74 6f 20 65 64 65 62 75	5\306#\300\207".[put.-doto.edebu
11d20	67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 26 72 65 73 74 20 26 6f 72 20 73 79 6d 62	g-form-spec.(form.&rest.&or.symb
11d40	6f 6c 70 20 63 6f 6e 73 70 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64	olp.consp).function-put.lisp-ind
11d60	65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 39 39 20 41 6e 61 70 68 6f 72	ent-function.1].4).#@199.Anaphor
11d80	69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 64 6f 74 6f 27 2e 0a 54 68 69 73 20 6a 75 73 74 20 65 76	ic.form.of.`-doto'..This.just.ev
11da0	61 6c 75 61 74 65 73 20 49 4e 49 54 2c 20 62 69 6e 64 73 20 74 68 65 20 72 65 73 75 6c 74 20 74	aluates.INIT,.binds.the.result.t
11dc0	6f 20 60 69 74 27 2c 20 65 76 61 6c 75 61 74 65 73 0a 46 4f 52 4d 53 2c 20 61 6e 64 20 72 65 74	o.`it',.evaluates.FORMS,.and.ret
11de0	75 72 6e 73 20 74 68 65 20 66 69 6e 61 6c 20 76 61 6c 75 65 20 6f 66 20 60 69 74 27 2e 0a 4e 6f	urns.the.final.value.of.`it'..No
11e00	74 65 3a 20 60 69 74 27 20 6e 65 65 64 20 6e 6f 74 20 62 65 20 75 73 65 64 20 69 6e 20 65 61 63	te:.`it'.need.not.be.used.in.eac
11e20	68 20 66 6f 72 6d 2e 0a 0a 28 66 6e 20 49 4e 49 54 20 26 72 65 73 74 20 46 4f 52 4d 53 29 1f 0a	h.form...(fn.INIT.&rest.FORMS)..
11e40	28 64 65 66 61 6c 69 61 73 20 27 2d 2d 64 6f 74 6f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38	(defalias.'--doto.'(macro...#[38
11e60	35 20 22 5c 33 30 30 5c 33 30 31 03 44 43 5c 33 30 32 03 5c 33 30 33 5c 22 42 42 5c 32 30 37 22	5."\300\301.DC\302.\303\"BB\207"
11e80	20 5b 6c 65 74 20 69 74 20 61 70 70 65 6e 64 20 28 69 74 29 5d 20 37 20 28 23 24 20 2e 20 37 33	.[let.it.append.(it)].7.(#$...73
11ea0	30 38 31 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	081)])).(byte-code."\300\301\302
11ec0	5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32	\303#\210\304\301\305\306#\300\2
11ee0	30 37 22 20 5b 70 75 74 20 2d 2d 64 6f 74 6f 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63	07".[put.--doto.edebug-form-spec
11f00	20 28 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69	.(form.body).function-put.lisp-i
11f20	6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 37 39 20 47 72 61 64 65	ndent-function.1].4).#@179.Grade
11f40	20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 20 75 73 69 6e 67 20 43 4f 4d 50 41 52 41 54	.elements.of.LIST.using.COMPARAT
11f60	4f 52 20 72 65 6c 61 74 69 6f 6e 2e 0a 54 68 69 73 20 79 69 65 6c 64 73 20 61 20 70 65 72 6d 75	OR.relation..This.yields.a.permu
11f80	74 61 74 69 6f 6e 20 76 65 63 74 6f 72 20 73 75 63 68 20 74 68 61 74 20 61 70 70 6c 79 69 6e 67	tation.vector.such.that.applying
11fa0	20 74 68 69 73 0a 70 65 72 6d 75 74 61 74 69 6f 6e 20 74 6f 20 4c 49 53 54 20 73 6f 72 74 73 20	.this.permutation.to.LIST.sorts.
11fc0	69 74 20 69 6e 20 61 73 63 65 6e 64 69 6e 67 20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 43 4f 4d 50	it.in.ascending.order...(fn.COMP
11fe0	41 52 41 54 4f 52 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 67 72 61 64 65 2d	ARATOR.LIST)..(defalias.'-grade-
12000	75 70 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06	up.#[514."\300\301\302\303\304..
12020	5c 22 5c 33 30 35 05 5c 33 30 36 5c 33 30 35 5c 32 31 31 03 5c 32 30 33 2a 00 03 5c 32 31 31 41	\"\305.\306\305\211.\203*..\211A
12040	5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 01 01 42 05 42	\262.\242\262..\262..T\262...B.B
12060	5c 32 36 32 05 5c 32 30 32 0d 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 22 5c	\262.\202..\266.\211\237\262.\"\
12080	22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 63 64 72 20 2d 73 6f 72 74 20 6d 61 6b 65 2d 63 6c	"\207".[mapcar.cdr.-sort.make-cl
120a0	6f 73 75 72 65 20 23 5b 35 31 34 20 22 5c 33 30 30 02 40 02 40 5c 22 5c 32 30 37 22 20 5b 56 30	osure.#[514."\300.@.@\"\207".[V0
120c0	5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 20 4f 54 48 45 52 29 22 5d 20 6e 69 6c 20 30 5d 20	].5."\n\n(fn.IT.OTHER)"].nil.0].
120e0	31 33 20 28 23 24 20 2e 20 37 33 35 33 31 29 5d 29 0a 23 40 31 38 30 20 47 72 61 64 65 20 65 6c	13.(#$...73531)]).#@180.Grade.el
12100	65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 20 75 73 69 6e 67 20 43 4f 4d 50 41 52 41 54 4f 52 20	ements.of.LIST.using.COMPARATOR.
12120	72 65 6c 61 74 69 6f 6e 2e 0a 54 68 69 73 20 79 69 65 6c 64 73 20 61 20 70 65 72 6d 75 74 61 74	relation..This.yields.a.permutat
12140	69 6f 6e 20 76 65 63 74 6f 72 20 73 75 63 68 20 74 68 61 74 20 61 70 70 6c 79 69 6e 67 20 74 68	ion.vector.such.that.applying.th
12160	69 73 0a 70 65 72 6d 75 74 61 74 69 6f 6e 20 74 6f 20 4c 49 53 54 20 73 6f 72 74 73 20 69 74 20	is.permutation.to.LIST.sorts.it.
12180	69 6e 20 64 65 73 63 65 6e 64 69 6e 67 20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 43 4f 4d 50 41 52	in.descending.order...(fn.COMPAR
121a0	41 54 4f 52 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 67 72 61 64 65 2d 64 6f	ATOR.LIST)..(defalias.'-grade-do
121c0	77 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06	wn.#[514."\300\301\302\303\304..
121e0	5c 22 5c 33 30 35 05 5c 33 30 36 5c 33 30 35 5c 32 31 31 03 5c 32 30 33 2a 00 03 5c 32 31 31 41	\"\305.\306\305\211.\203*..\211A
12200	5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 01 01 42 05 42	\262.\242\262..\262..T\262...B.B
12220	5c 32 36 32 05 5c 32 30 32 0d 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 22 5c	\262.\202..\266.\211\237\262.\"\
12240	22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 63 64 72 20 2d 73 6f 72 74 20 6d 61 6b 65 2d 63 6c	"\207".[mapcar.cdr.-sort.make-cl
12260	6f 73 75 72 65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 40 03 40 5c 22 5c 32 30 37 22 20 5b 56 30	osure.#[514."\300.@.@\"\207".[V0
12280	5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 20 4f 54 48 45 52 29 22 5d 20 6e 69 6c 20 30 5d 20	].5."\n\n(fn.IT.OTHER)"].nil.0].
122a0	31 33 20 28 23 24 20 2e 20 37 33 39 37 36 29 5d 29 0a 23 40 34 32 20 4d 6f 6e 6f 74 6f 6e 69 63	13.(#$...73976)]).#@42.Monotonic
122c0	20 63 6f 75 6e 74 65 72 20 66 6f 72 20 67 65 6e 65 72 61 74 65 64 20 73 79 6d 62 6f 6c 73 2e 1f	.counter.for.generated.symbols..
122e0	0a 28 64 65 66 76 61 72 20 64 61 73 68 2d 2d 73 6f 75 72 63 65 2d 63 6f 75 6e 74 65 72 20 30 20	.(defvar.dash--source-counter.0.
12300	28 23 24 20 2e 20 37 34 34 32 33 29 29 0a 23 40 38 37 20 47 65 6e 65 72 61 74 65 20 61 20 6e 65	(#$...74423)).#@87.Generate.a.ne
12320	77 20 64 61 73 68 2d 73 6f 75 72 63 65 20 73 79 6d 62 6f 6c 2e 0a 0a 41 6c 6c 20 72 65 74 75 72	w.dash-source.symbol...All.retur
12340	6e 65 64 20 73 79 6d 62 6f 6c 73 20 61 72 65 20 67 75 61 72 61 6e 74 65 65 64 20 74 6f 20 62 65	ned.symbols.are.guaranteed.to.be
12360	20 75 6e 69 71 75 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68	.unique...(defalias.'dash--match
12380	2d 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 73 79 6d 62 6f 6c 20 23 5b 30 20 22 5c 33 30 31 5c 33 30	-make-source-symbol.#[0."\301\30
123a0	32 5c 33 30 33 08 5c 22 21 08 54 10 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 73 6f 75 72 63 65 2d	2\303.\"!.T.\207".[dash--source-
123c0	63 6f 75 6e 74 65 72 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 66 6f 72 6d 61 74 20 22 2d 2d 64 61	counter.make-symbol.format."--da
123e0	73 68 2d 73 6f 75 72 63 65 2d 25 64 2d 2d 22 5d 20 34 20 28 23 24 20 2e 20 37 34 35 31 35 29 5d	sh-source-%d--"].4.(#$...74515)]
12400	29 0a 23 40 37 30 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 53 59 4d 42 4f 4c 20	).#@70.Return.non-nil.if.SYMBOL.
12420	69 73 20 61 20 73 79 6d 62 6f 6c 20 61 6e 64 20 73 74 61 72 74 73 20 77 69 74 68 20 5f 2e 0a 0a	is.a.symbol.and.starts.with._...
12440	28 66 6e 20 53 59 4d 42 4f 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61	(fn.SYMBOL)..(defalias.'dash--ma
12460	74 63 68 2d 69 67 6e 6f 72 65 2d 70 6c 61 63 65 2d 70 20 23 5b 32 35 37 20 22 5c 32 31 31 39 5c	tch-ignore-place-p.#[257."\2119\
12480	32 30 35 5c 66 00 5c 33 30 30 01 21 5c 33 30 31 48 5c 33 30 32 3d 5c 32 30 37 22 20 5b 73 79 6d	205\f.\300.!\301H\302=\207".[sym
124a0	62 6f 6c 2d 6e 61 6d 65 20 30 20 39 35 5d 20 33 20 28 23 24 20 2e 20 37 34 37 35 39 29 5d 29 0a	bol-name.0.95].3.(#$...74759)]).
124c0	23 40 37 35 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 20 67 65 6e 65 72 61 74 69 6e 67 20	#@75.Helper.function.generating.
124e0	69 64 69 6f 6d 61 74 69 63 20 73 68 69 66 74 69 6e 67 20 63 6f 64 65 2e 0a 0a 28 66 6e 20 53 4b	idiomatic.shifting.code...(fn.SK
12500	49 50 2d 43 44 52 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d	IP-CDR.SOURCE)..(defalias.'dash-
12520	2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 73 6b 69 70 2d 63 64 72 20 23 5b 35 31 34 20 22 01 5c 33 30	-match-cons-skip-cdr.#[514.".\30
12540	30 55 5c 32 30 33 5c 6e 00 5c 33 30 31 01 44 5c 32 30 37 5c 33 30 32 5c 33 30 33 03 03 5c 22 5c	0U\203\n.\301.D\207\302\303..\"\
12560	33 30 34 03 5c 33 30 35 06 06 54 06 06 5c 22 45 45 5c 32 30 37 22 20 5b 30 20 70 6f 70 20 70 72	304.\305..T..\"EE\207".[0.pop.pr
12580	6f 67 31 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 73 65 74	og1.dash--match-cons-get-car.set
125a0	71 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72 5d 20 39 20 28 23	q.dash--match-cons-get-cdr].9.(#
125c0	24 20 2e 20 37 34 39 34 39 29 5d 29 0a 23 40 38 31 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 6f	$...74949)]).#@81.Helper.functio
125e0	6e 20 67 65 6e 65 72 61 74 69 6e 67 20 69 64 69 6f 6d 61 74 69 63 20 63 6f 64 65 20 74 6f 20 67	n.generating.idiomatic.code.to.g
12600	65 74 20 6e 74 68 20 63 61 72 2e 0a 0a 28 66 6e 20 53 4b 49 50 2d 43 44 52 20 53 4f 55 52 43 45	et.nth.car...(fn.SKIP-CDR.SOURCE
12620	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67	)..(defalias.'dash--match-cons-g
12640	65 74 2d 63 61 72 20 23 5b 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 5c 6e 00 5c 33 30 31 01	et-car.#[514.".\300U\203\n.\301.
12660	44 5c 32 30 37 01 5c 33 30 32 55 5c 32 30 33 14 00 5c 33 30 33 01 44 5c 32 30 37 5c 33 30 34 02	D\207.\302U\203..\303.D\207\304.
12680	02 45 5c 32 30 37 22 20 5b 30 20 63 61 72 20 31 20 63 61 64 72 20 6e 74 68 5d 20 35 20 28 23 24	.E\207".[0.car.1.cadr.nth].5.(#$
126a0	20 2e 20 37 35 32 31 38 29 5d 29 0a 23 40 38 31 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e	...75218)]).#@81.Helper.function
126c0	20 67 65 6e 65 72 61 74 69 6e 67 20 69 64 69 6f 6d 61 74 69 63 20 63 6f 64 65 20 74 6f 20 67 65	.generating.idiomatic.code.to.ge
126e0	74 20 6e 74 68 20 63 64 72 2e 0a 0a 28 66 6e 20 53 4b 49 50 2d 43 44 52 20 53 4f 55 52 43 45 29	t.nth.cdr...(fn.SKIP-CDR.SOURCE)
12700	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65	..(defalias.'dash--match-cons-ge
12720	74 2d 63 64 72 20 23 5b 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 07 00 5c 32 30 37 01 5c 33	t-cdr.#[514.".\300U\203..\207.\3
12740	30 31 55 5c 32 30 33 11 00 5c 33 30 32 01 44 5c 32 30 37 5c 33 30 33 02 02 45 5c 32 30 37 22 20	01U\203..\302.D\207\303..E\207".
12760	5b 30 20 31 20 63 64 72 20 6e 74 68 63 64 72 5d 20 35 20 28 23 24 20 2e 20 37 35 34 34 31 29 5d	[0.1.cdr.nthcdr].5.(#$...75441)]
12780	29 0a 23 40 38 36 20 53 65 74 75 70 20 61 20 63 6f 6e 73 20 6d 61 74 63 68 69 6e 67 20 65 6e 76	).#@86.Setup.a.cons.matching.env
127a0	69 72 6f 6e 6d 65 6e 74 20 61 6e 64 20 63 61 6c 6c 20 74 68 65 20 72 65 61 6c 20 6d 61 74 63 68	ironment.and.call.the.real.match
127c0	65 72 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64 65	er...(fn.MATCH-FORM.SOURCE)..(de
127e0	66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 20 23 5b 35 31 34 20 22	falias.'dash--match-cons.#[514."
12800	5c 33 30 30 20 5c 33 30 31 03 5c 32 31 31 3a 5c 32 30 33 1b 00 5c 33 30 32 01 40 21 5c 32 30 33	\300.\301.\211:\203..\302.@!\203
12820	1b 00 01 54 5c 32 36 32 02 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 04 00 5c 32 31 31 3a 5c 32	...T\262.\211A\262.\202..\211:\2
12840	30 33 2f 00 5c 32 31 31 41 5c 32 30 34 2f 00 5c 33 30 33 01 40 5c 33 30 34 04 06 07 5c 22 5c 22	03/.\211A\204/.\303.@\304...\"\"
12860	5c 32 30 37 01 5c 33 30 31 56 5c 32 30 33 3e 00 5c 33 30 33 01 5c 33 30 35 04 06 07 5c 22 5c 22	\207.\301V\203>.\303.\305...\"\"
12880	5c 32 30 37 02 04 44 5c 33 30 36 06 06 05 5c 22 42 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61	\207..D\306...\"B\207".[dash--ma
128a0	74 63 68 2d 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 73 79 6d 62 6f 6c 20 30 20 64 61 73 68 2d 2d 6d	tch-make-source-symbol.0.dash--m
128c0	61 74 63 68 2d 69 67 6e 6f 72 65 2d 70 6c 61 63 65 2d 70 20 64 61 73 68 2d 2d 6d 61 74 63 68 20	atch-ignore-place-p.dash--match.
128e0	64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 64 61 73 68 2d 2d 6d	dash--match-cons-get-car.dash--m
12900	61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f	atch-cons-get-cdr.dash--match-co
12920	6e 73 2d 31 5d 20 31 30 20 28 23 24 20 2e 20 37 35 36 35 35 29 5d 29 0a 23 40 34 37 20 47 65 74	ns-1].10.(#$...75655)]).#@47.Get
12940	20 65 78 70 61 6e 64 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 66 6f 72 20 54 59 50 45 2e 0a	.expand.function.name.for.TYPE..
12960	0a 28 66 6e 20 54 59 50 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 67 65 74	.(fn.TYPE)..(defalias.'dash--get
12980	2d 65 78 70 61 6e 64 2d 66 75 6e 63 74 69 6f 6e 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31	-expand-function.#[257."\300\301
129a0	5c 33 30 32 03 5c 22 21 5c 32 30 37 22 20 5b 69 6e 74 65 72 6e 2d 73 6f 66 74 20 66 6f 72 6d 61	\302.\"!\207".[intern-soft.forma
129c0	74 20 22 64 61 73 68 2d 65 78 70 61 6e 64 3a 25 73 22 5d 20 35 20 28 23 24 20 2e 20 37 36 30 39	t."dash-expand:%s"].5.(#$...7609
129e0	33 29 5d 29 0a 23 40 33 38 34 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 67 61 69	3)]).#@384.Match.MATCH-FORM.agai
12a00	6e 73 74 20 53 4f 55 52 43 45 2e 0a 0a 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 61 20 70 72 6f	nst.SOURCE...MATCH-FORM.is.a.pro
12a20	70 65 72 20 6f 72 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 2e 20 20 45 61 63 68 20 65 6c 65 6d	per.or.improper.list...Each.elem
12a40	65 6e 74 20 6f 66 0a 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 65 69 74 68 65 72 20 61 20 73 79	ent.of.MATCH-FORM.is.either.a.sy
12a60	6d 62 6f 6c 2c 20 77 68 69 63 68 20 67 65 74 73 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 72 65	mbol,.which.gets.bound.to.the.re
12a80	73 70 65 63 74 69 76 65 0a 76 61 6c 75 65 20 69 6e 20 73 6f 75 72 63 65 20 6f 72 20 61 6e 6f 74	spective.value.in.source.or.anot
12aa0	68 65 72 20 6d 61 74 63 68 20 66 6f 72 6d 20 77 68 69 63 68 20 67 65 74 73 20 64 65 73 74 72 75	her.match.form.which.gets.destru
12ac0	63 74 75 72 65 64 0a 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 0a 49 66 20 74 68 65 20 63 64 72 20	ctured.recursively...If.the.cdr.
12ae0	6f 66 20 6c 61 73 74 20 63 6f 6e 73 20 63 65 6c 6c 20 69 6e 20 74 68 65 20 6c 69 73 74 20 69 73	of.last.cons.cell.in.the.list.is
12b00	20 6e 69 6c 2c 20 6d 61 74 63 68 69 6e 67 20 73 74 6f 70 73 0a 74 68 65 72 65 2e 0a 0a 53 4f 55	.nil,.matching.stops.there...SOU
12b20	52 43 45 20 69 73 20 61 20 70 72 6f 70 65 72 20 6f 72 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 74	RCE.is.a.proper.or.improper.list
12b40	2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 20 26 6f 70 74 69 6f 6e	...(fn.MATCH-FORM.SOURCE.&option
12b60	61 6c 20 50 52 4f 50 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63	al.PROPS)..(defalias.'dash--matc
12b80	68 2d 63 6f 6e 73 2d 31 20 23 5b 37 37 30 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 36 08	h-cons-1.#[770."\300.\301\"\206.
12ba0	00 5c 33 30 32 03 3a 5c 32 30 33 5d 00 03 41 5c 32 30 33 53 00 03 40 39 5c 32 30 33 2c 00 5c 33	.\302.:\203]..A\203S..@9\203,.\3
12bc0	30 33 5c 33 30 34 05 40 21 21 5c 32 30 33 2c 00 5c 33 30 35 5c 33 30 36 05 21 5c 33 30 37 03 06	03\304.@!!\203,.\305\306.!\307..
12be0	06 5c 22 5c 22 5c 32 30 37 5c 33 31 30 04 40 21 5c 32 30 33 40 00 5c 33 31 31 04 41 04 5c 33 31	.\"\"\207\310.@!\203@.\311.A.\31
12c00	32 05 5c 33 30 31 06 06 54 23 23 5c 32 30 37 5c 33 31 33 5c 33 31 34 05 40 5c 33 31 35 04 06 07	2.\301..T##\207\313\314.@\315...
12c20	5c 22 5c 22 5c 33 31 31 06 06 41 06 06 5c 22 5c 22 5c 32 30 37 5c 33 31 34 04 40 5c 33 31 36 03	\"\"\311..A..\"\"\207\314.@\316.
12c40	06 06 5c 22 5c 22 5c 32 30 37 03 5c 32 30 34 63 00 5c 33 31 37 5c 32 30 37 5c 33 31 34 04 5c 33	..\"\"\207.\204c.\317\207\314.\3
12c60	30 37 03 06 06 5c 22 5c 22 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 67 65 74 20 3a 73 6b 69 70 2d	07...\"\"\207".[plist-get.:skip-
12c80	63 64 72 20 30 20 66 75 6e 63 74 69 6f 6e 70 20 64 61 73 68 2d 2d 67 65 74 2d 65 78 70 61 6e 64	cdr.0.functionp.dash--get-expand
12ca0	2d 66 75 6e 63 74 69 6f 6e 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 20 64 61 73 68 2d 2d 6d	-function.dash--match-kv.dash--m
12cc0	61 74 63 68 2d 6b 76 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6d 61 74 63 68 2d 66 6f 72 6d 20 64 61 73	atch-kv-normalize-match-form.das
12ce0	68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72 20 64 61 73 68 2d 2d 6d 61 74 63	h--match-cons-get-cdr.dash--matc
12d00	68 2d 69 67 6e 6f 72 65 2d 70 6c 61 63 65 2d 70 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e	h-ignore-place-p.dash--match-con
12d20	73 2d 31 20 70 6c 69 73 74 2d 70 75 74 20 2d 63 6f 6e 63 61 74 20 64 61 73 68 2d 2d 6d 61 74 63	s-1.plist-put.-concat.dash--matc
12d40	68 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 73 6b 69 70 2d 63 64 72 20 64 61 73 68	h.dash--match-cons-skip-cdr.dash
12d60	2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 6e 69 6c 5d 20 31 31 20 28 23 24	--match-cons-get-car.nil].11.(#$
12d80	20 2e 20 37 36 32 36 37 29 5d 29 0a 23 40 38 38 20 53 65 74 75 70 20 61 20 76 65 63 74 6f 72 20	...76267)]).#@88.Setup.a.vector.
12da0	6d 61 74 63 68 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 61 6e 64 20 63 61 6c 6c 20 74 68	matching.environment.and.call.th
12dc0	65 20 72 65 61 6c 20 6d 61 74 63 68 65 72 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20	e.real.matcher...(fn.MATCH-FORM.
12de0	53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d	SOURCE)..(defalias.'dash--match-
12e00	76 65 63 74 6f 72 20 23 5b 35 31 34 20 22 5c 33 30 30 20 02 47 5c 33 30 31 55 5c 32 30 33 14 00	vector.#[514."\300..G\301U\203..
12e20	5c 33 30 32 03 5c 33 30 33 48 5c 33 30 34 04 5c 33 30 35 42 42 5c 22 5c 32 30 37 01 39 5c 32 30	\302.\303H\304.\305BB\"\207.9\20
12e40	33 1e 00 5c 33 30 36 03 03 5c 22 5c 32 30 37 5c 33 30 37 5c 33 31 30 04 5c 22 5c 33 31 31 5c 33	3..\306..\"\207\307\310.\"\311\3
12e60	31 32 02 5c 22 47 5c 32 31 31 05 47 53 55 5c 32 30 35 40 00 5c 33 31 33 5c 33 31 32 03 5c 22 5c	12.\"G\211.GSU\205@.\313\312.\"\
12e80	33 30 32 06 06 02 48 5c 33 30 34 06 07 04 45 5c 22 5c 32 36 32 01 5c 32 36 36 5c 32 30 32 5c 32	302...H\304...E\"\262.\266\202\2
12ea0	30 36 4d 00 5c 32 31 31 02 44 5c 33 30 36 04 03 5c 22 42 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d	06M.\211.D\306..\"B\207".[dash--
12ec0	6d 61 74 63 68 2d 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 73 79 6d 62 6f 6c 20 31 20 64 61 73 68 2d	match-make-source-symbol.1.dash-
12ee0	2d 6d 61 74 63 68 20 30 20 61 72 65 66 20 28 30 29 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 76 65	-match.0.aref.(0).dash--match-ve
12f00	63 74 6f 72 2d 31 20 6d 61 70 63 61 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 69 67 6e 6f 72 65	ctor-1.mapcar.dash--match-ignore
12f20	2d 70 6c 61 63 65 2d 70 20 2d 72 65 6d 6f 76 65 20 6e 75 6c 6c 20 2d 66 69 6e 64 2d 69 6e 64 65	-place-p.-remove.null.-find-inde
12f40	78 5d 20 31 31 20 28 23 24 20 2e 20 37 37 32 30 31 29 5d 29 0a 23 40 36 39 31 20 4d 61 74 63 68	x].11.(#$...77201)]).#@691.Match
12f60	20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 67 61 69 6e 73 74 20 53 4f 55 52 43 45 2e 0a 0a 4d 41 54	.MATCH-FORM.against.SOURCE...MAT
12f80	43 48 2d 46 4f 52 4d 20 69 73 20 61 20 76 65 63 74 6f 72 2e 20 20 45 61 63 68 20 65 6c 65 6d 65	CH-FORM.is.a.vector...Each.eleme
12fa0	6e 74 20 6f 66 20 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 65 69 74 68 65 72 20 61 0a 73 79 6d	nt.of.MATCH-FORM.is.either.a.sym
12fc0	62 6f 6c 2c 20 77 68 69 63 68 20 67 65 74 73 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 72 65 73	bol,.which.gets.bound.to.the.res
12fe0	70 65 63 74 69 76 65 20 76 61 6c 75 65 20 69 6e 20 73 6f 75 72 63 65 20 6f 72 0a 61 6e 6f 74 68	pective.value.in.source.or.anoth
13000	65 72 20 6d 61 74 63 68 20 66 6f 72 6d 20 77 68 69 63 68 20 67 65 74 73 20 64 65 73 74 72 75 63	er.match.form.which.gets.destruc
13020	74 75 72 65 64 20 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 0a 49 66 20 73 65 63 6f 6e 64 2d 66 72	tured.recursively...If.second-fr
13040	6f 6d 2d 6c 61 73 74 20 70 6c 61 63 65 20 69 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 74	om-last.place.in.MATCH-FORM.is.t
13060	68 65 20 73 79 6d 62 6f 6c 20 26 72 65 73 74 2c 20 74 68 65 0a 6e 65 78 74 20 65 6c 65 6d 65 6e	he.symbol.&rest,.the.next.elemen
13080	74 20 6f 66 20 74 68 65 20 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 6d 61 74 63 68 65 64 20 61	t.of.the.MATCH-FORM.is.matched.a
130a0	67 61 69 6e 73 74 20 74 68 65 20 74 61 69 6c 20 6f 66 0a 53 4f 55 52 43 45 2c 20 73 74 61 72 74	gainst.the.tail.of.SOURCE,.start
130c0	69 6e 67 20 61 74 20 69 6e 64 65 78 20 6f 66 20 74 68 65 20 26 72 65 73 74 20 73 79 6d 62 6f 6c	ing.at.index.of.the.&rest.symbol
130e0	2e 20 20 54 68 69 73 20 69 73 0a 63 6f 6e 63 65 70 74 75 61 6c 6c 79 20 74 68 65 20 73 61 6d 65	...This.is.conceptually.the.same
13100	20 61 73 20 74 68 65 20 28 68 65 61 64 20 2e 20 74 61 69 6c 29 20 6d 61 74 63 68 20 66 6f 72 20	.as.the.(head...tail).match.for.
13120	69 6d 70 72 6f 70 65 72 0a 6c 69 73 74 73 2c 20 77 68 65 72 65 20 64 6f 74 20 70 6c 61 79 73 20	improper.lists,.where.dot.plays.
13140	74 68 65 20 72 6f 6c 65 20 6f 66 20 26 72 65 73 74 2e 0a 0a 53 4f 55 52 43 45 20 69 73 20 61 20	the.role.of.&rest...SOURCE.is.a.
13160	76 65 63 74 6f 72 2e 0a 0a 49 66 20 74 68 65 20 4d 41 54 43 48 2d 46 4f 52 4d 20 76 65 63 74 6f	vector...If.the.MATCH-FORM.vecto
13180	72 20 69 73 20 73 68 6f 72 74 65 72 20 74 68 61 6e 20 53 4f 55 52 43 45 20 76 65 63 74 6f 72 2c	r.is.shorter.than.SOURCE.vector,
131a0	20 6f 6e 6c 79 0a 74 68 65 20 28 6c 65 6e 67 74 68 20 4d 41 54 43 48 2d 46 4f 52 4d 29 20 70 6c	.only.the.(length.MATCH-FORM).pl
131c0	61 63 65 73 20 61 72 65 20 62 6f 75 6e 64 2c 20 74 68 65 20 72 65 73 74 20 6f 66 20 74 68 65 20	aces.are.bound,.the.rest.of.the.
131e0	53 4f 55 52 43 45 0a 69 73 20 64 69 73 63 61 72 64 65 64 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d	SOURCE.is.discarded...(fn.MATCH-
13200	46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d	FORM.SOURCE)..(defalias.'dash--m
13220	61 74 63 68 2d 76 65 63 74 6f 72 2d 31 20 23 5b 35 31 34 20 22 5c 33 30 30 02 47 5c 33 30 31 02	atch-vector-1.#[514."\300.G\301.
13240	02 57 5c 32 30 33 61 00 04 03 48 5c 32 31 31 39 5c 32 30 33 2b 00 5c 32 31 31 5c 33 30 32 3d 5c	.W\203a...H\2119\203+.\211\302=\
13260	32 30 33 2b 00 5c 33 30 33 06 06 05 54 48 5c 33 30 34 06 07 06 07 45 5c 22 03 5c 32 36 32 05 5c	203+.\303...TH\304....E\".\262.\
13280	32 30 32 55 00 5c 32 31 31 39 5c 32 30 33 46 00 5c 33 30 35 01 21 5c 33 30 30 48 5c 33 30 36 3d	202U.\2119\203F.\305.!\300H\306=
132a0	5c 32 30 34 46 00 5c 32 31 31 5c 33 30 37 06 06 06 06 45 44 43 5c 32 30 32 55 00 5c 32 31 31 39	\204F.\211\307....EDC\202U.\2119
132c0	3f 5c 32 30 35 55 00 5c 33 30 33 01 5c 33 30 37 06 07 06 07 45 5c 22 02 42 5c 32 36 32 02 03 54	?\205U.\303.\307....E\".B\262..T
132e0	5c 32 36 32 04 5c 32 31 30 5c 32 30 32 04 00 5c 33 31 30 5c 33 31 31 02 5c 32 33 37 5c 22 5c 32	\262.\210\202..\310\311.\237\"\2
13300	30 37 22 20 5b 30 20 6e 69 6c 20 26 72 65 73 74 20 64 61 73 68 2d 2d 6d 61 74 63 68 20 73 75 62	07".[0.nil.&rest.dash--match.sub
13320	73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 39 35 20 61 72 65 66 20 2d 66 6c 61 74	string.symbol-name.95.aref.-flat
13340	74 65 6e 2d 6e 20 31 5d 20 31 31 20 28 23 24 20 2e 20 37 37 36 35 39 29 5d 29 0a 23 40 31 34 38	ten-n.1].11.(#$...77659)]).#@148
13360	20 4e 6f 72 6d 61 6c 69 7a 65 20 6b 76 20 50 41 54 54 45 52 4e 2e 0a 0a 54 68 69 73 20 6d 65 74	.Normalize.kv.PATTERN...This.met
13380	68 6f 64 20 6e 6f 72 6d 61 6c 69 7a 65 73 20 50 41 54 54 45 52 4e 20 74 6f 20 74 68 65 20 66 6f	hod.normalizes.PATTERN.to.the.fo
133a0	72 6d 61 74 20 65 78 70 65 63 74 65 64 20 62 79 0a 60 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76	rmat.expected.by.`dash--match-kv
133c0	27 2e 20 20 53 65 65 20 60 2d 6c 65 74 27 20 66 6f 72 20 74 68 65 20 73 70 65 63 69 66 69 63 61	'...See.`-let'.for.the.specifica
133e0	74 69 6f 6e 2e 0a 0a 28 66 6e 20 50 41 54 54 45 52 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	tion...(fn.PATTERN)..(defalias.'
13400	64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6d 61 74 63 68 2d 66	dash--match-kv-normalize-match-f
13420	6f 72 6d 20 23 5b 32 35 37 20 22 5c 32 31 31 40 43 43 5c 33 30 30 43 5c 33 30 31 5c 33 30 32 21	orm.#[257."\211@CC\300C\301\302!
13440	5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 04 06 08 41 06 09 41 41 23 5c 22 5c 33 30 37 5c	\303\304\305\306...A..AA#\"\307\
13460	33 31 30 06 06 06 06 06 06 24 5c 22 5c 32 31 30 02 5c 32 34 32 5c 32 33 37 5c 32 30 37 22 20 5b	310......$\"\210.\242\237\207".[
13480	6e 69 6c 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 2d 2d 64 61 73 68 2d 66 69 6c 6c 2d 70 6c 61	nil.make-symbol."--dash-fill-pla
134a0	63 65 68 6f 6c 64 65 72 2d 2d 22 20 2d 65 61 63 68 20 61 70 70 6c 79 20 2d 7a 69 70 20 2d 70 61	ceholder--".-each.apply.-zip.-pa
134c0	64 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 32 31 31 40 01 41 5c 33 30	d.make-closure.#[257."\211@.A\30
134e0	31 5c 32 34 32 5c 32 30 33 0d 00 5c 33 30 31 5c 33 30 33 5c 32 34 30 5c 32 30 37 5c 33 30 32 01	1\242\203..\301\303\240\207\302.
13500	3d 5c 32 30 34 3a 00 5c 32 31 31 39 5c 32 30 33 28 00 5c 33 30 34 01 21 5c 32 30 34 28 00 5c 32	=\204:.\2119\203(.\304.!\204(.\2
13520	31 31 5c 33 30 35 3d 5c 32 30 34 28 00 5c 32 31 31 5c 32 30 34 5c 32 33 31 00 5c 32 31 31 3a 5c	11\305=\204(.\211\204\231.\211:\
13540	32 30 33 34 00 5c 32 31 31 40 5c 33 30 36 3d 5c 32 30 33 5c 32 33 31 00 5c 33 30 37 01 21 5c 32	2034.\211@\306=\203\231.\307.!\2
13560	30 34 5c 32 33 31 00 5c 33 30 34 02 21 5c 32 30 33 58 00 5c 33 30 30 02 5c 33 30 30 5c 32 34 32	04\231.\304.!\203X.\300.\300\242
13580	42 5c 32 34 30 5c 32 31 30 5c 33 30 30 5c 33 31 30 5c 33 31 31 04 21 5c 33 31 32 5c 33 30 33 4f	B\240\210\300\310\311.!\312\303O
135a0	21 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 32 30 32 5c 32 32 35 00 01 3b 5c 32 30	!\300\242B\240\210\202\225..;\20
135c0	33 70 00 5c 33 30 30 02 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 30 5c 33 31	3p.\300.\300\242B\240\210\300\31
135e0	30 03 21 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 32 30 32 5c 32 32 35 00 01 3a 5c	0.!\300\242B\240\210\202\225..:\
13600	32 30 33 5c 32 31 37 00 01 40 5c 33 30 36 3d 5c 32 30 33 5c 32 31 37 00 5c 33 30 30 02 5c 33 30	203\217..@\306=\203\217.\300.\30
13620	30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 30 02 41 40 5c 33 30 30 5c 32 34 32 42 5c 32	0\242B\240\210\300.A@\300\242B\2
13640	34 30 5c 32 31 30 5c 32 30 32 5c 32 32 35 00 5c 33 31 33 5c 33 31 34 03 03 23 5c 32 31 30 5c 33	40\210\202\225.\313\314..#\210\3
13660	30 31 5c 33 30 33 5c 32 34 30 5c 32 30 37 5c 33 30 30 02 5c 33 30 30 5c 32 34 32 42 5c 32 34 30	01\303\240\207\300.\300\242B\240
13680	5c 32 31 30 5c 33 30 30 01 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 31 5c 33	\210\300.\300\242B\240\210\301\3
136a0	30 35 5c 32 34 30 5c 32 30 37 22 20 5b 56 30 20 56 31 20 56 32 20 6e 69 6c 20 6b 65 79 77 6f 72	05\240\207".[V0.V1.V2.nil.keywor
136c0	64 70 20 74 20 71 75 6f 74 65 20 76 65 63 74 6f 72 70 20 69 6e 74 65 72 6e 20 73 79 6d 62 6f 6c	dp.t.quote.vectorp.intern.symbol
136e0	2d 6e 61 6d 65 20 31 20 65 72 72 6f 72 20 22 2d 6c 65 74 3a 20 66 6f 75 6e 64 20 6b 65 79 20 60	-name.1.error."-let:.found.key.`
13700	25 73 27 20 69 6e 20 6b 76 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 20 62 75 74 20 69 74 73 20	%s'.in.kv.destructuring.but.its.
13720	70 61 74 74 65 72 6e 20 60 25 73 27 20 69 73 20 69 6e 76 61 6c 69 64 20 61 6e 64 20 63 61 6e 20	pattern.`%s'.is.invalid.and.can.
13740	6e 6f 74 20 62 65 20 64 65 72 69 76 65 64 20 66 72 6f 6d 20 74 68 65 20 6b 65 79 22 5d 20 38 20	not.be.derived.from.the.key"].8.
13760	22 5c 6e 5c 6e 28 66 6e 20 50 41 49 52 29 22 5d 5d 20 31 31 20 28 23 24 20 2e 20 37 38 36 38 39	"\n\n(fn.PAIR)"]].11.(#$...78689
13780	29 5d 29 0a 23 40 31 35 32 20 53 65 74 75 70 20 61 20 6b 76 20 6d 61 74 63 68 69 6e 67 20 65 6e	)]).#@152.Setup.a.kv.matching.en
137a0	76 69 72 6f 6e 6d 65 6e 74 20 61 6e 64 20 63 61 6c 6c 20 74 68 65 20 72 65 61 6c 20 6d 61 74 63	vironment.and.call.the.real.matc
137c0	68 65 72 2e 0a 0a 6b 76 20 63 61 6e 20 62 65 20 61 6e 79 20 6b 65 79 2d 76 61 6c 75 65 20 73 74	her...kv.can.be.any.key-value.st
137e0	6f 72 65 2c 20 73 75 63 68 20 61 73 20 70 6c 69 73 74 2c 20 61 6c 69 73 74 20 6f 72 20 68 61 73	ore,.such.as.plist,.alist.or.has
13800	68 2d 74 61 62 6c 65 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29	h-table...(fn.MATCH-FORM.SOURCE)
13820	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 20 23 5b 35 31	..(defalias.'dash--match-kv.#[51
13840	34 20 22 5c 33 30 30 20 02 47 5c 33 30 31 55 5c 32 30 33 11 00 5c 33 30 32 03 41 03 05 40 23 5c	4."\300..G\301U\203..\302.A..@#\
13860	32 30 37 01 39 5c 32 30 33 1e 00 5c 33 30 32 03 41 03 05 40 23 5c 32 30 37 5c 32 31 31 02 44 5c	207.9\203..\302.A..@#\207\211.D\
13880	33 30 32 04 41 03 06 06 40 23 42 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6d 61	302.A...@#B\207".[dash--match-ma
138a0	6b 65 2d 73 6f 75 72 63 65 2d 73 79 6d 62 6f 6c 20 33 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b	ke-source-symbol.3.dash--match-k
138c0	76 2d 31 5d 20 38 20 28 23 24 20 2e 20 37 39 37 35 34 29 5d 29 0a 23 40 37 39 20 47 65 6e 65 72	v-1].8.(#$...79754)]).#@79.Gener
138e0	61 74 65 20 65 78 74 72 61 63 74 69 6e 67 20 4b 45 59 20 66 72 6f 6d 20 53 4f 55 52 43 45 20 66	ate.extracting.KEY.from.SOURCE.f
13900	6f 72 20 26 68 61 73 68 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2e 0a 0a 28 66 6e 20 4b 45 59	or.&hash.destructuring...(fn.KEY
13920	20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 65 78 70 61 6e 64	.SOURCE)..(defalias.'dash-expand
13940	3a 26 68 61 73 68 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 45 5c 32 30 37 22 20 5b 67 65 74 68	:&hash.#[514."\300..E\207".[geth
13960	61 73 68 5d 20 35 20 28 23 24 20 2e 20 38 30 30 39 31 29 5d 29 0a 23 40 38 30 20 47 65 6e 65 72	ash].5.(#$...80091)]).#@80.Gener
13980	61 74 65 20 65 78 74 72 61 63 74 69 6e 67 20 4b 45 59 20 66 72 6f 6d 20 53 4f 55 52 43 45 20 66	ate.extracting.KEY.from.SOURCE.f
139a0	6f 72 20 26 70 6c 69 73 74 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2e 0a 0a 28 66 6e 20 4b 45	or.&plist.destructuring...(fn.KE
139c0	59 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 65 78 70 61 6e	Y.SOURCE)..(defalias.'dash-expan
139e0	64 3a 26 70 6c 69 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 03 45 5c 32 30 37 22 20 5b 70 6c	d:&plist.#[514."\300..E\207".[pl
13a00	69 73 74 2d 67 65 74 5d 20 35 20 28 23 24 20 2e 20 38 30 32 35 31 29 5d 29 0a 23 40 38 30 20 47	ist-get].5.(#$...80251)]).#@80.G
13a20	65 6e 65 72 61 74 65 20 65 78 74 72 61 63 74 69 6e 67 20 4b 45 59 20 66 72 6f 6d 20 53 4f 55 52	enerate.extracting.KEY.from.SOUR
13a40	43 45 20 66 6f 72 20 26 61 6c 69 73 74 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2e 0a 0a 28 66	CE.for.&alist.destructuring...(f
13a60	6e 20 4b 45 59 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 65	n.KEY.SOURCE)..(defalias.'dash-e
13a80	78 70 61 6e 64 3a 26 61 6c 69 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 03 45 44	xpand:&alist.#[514."\300\301..ED
13aa0	5c 32 30 37 22 20 5b 63 64 72 20 61 73 73 6f 63 5d 20 36 20 28 23 24 20 2e 20 38 30 34 31 35 29	\207".[cdr.assoc].6.(#$...80415)
13ac0	5d 29 0a 23 40 31 33 35 20 47 65 6e 65 72 61 74 65 20 65 78 74 72 61 63 74 69 6e 67 20 4b 45 59	]).#@135.Generate.extracting.KEY
13ae0	20 66 72 6f 6d 20 53 4f 55 52 43 45 20 66 6f 72 20 26 68 61 73 68 3f 20 64 65 73 74 72 75 63 74	.from.SOURCE.for.&hash?.destruct
13b00	75 72 69 6e 67 2e 0a 53 69 6d 69 6c 61 72 20 74 6f 20 26 68 61 73 68 20 62 75 74 20 63 68 65 63	uring..Similar.to.&hash.but.chec
13b20	6b 20 77 68 65 74 68 65 72 20 74 68 65 20 6d 61 70 20 69 73 20 6e 6f 74 20 6e 69 6c 2e 0a 0a 28	k.whether.the.map.is.not.nil...(
13b40	66 6e 20 4b 45 59 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d	fn.KEY.SOURCE)..(defalias.'dash-
13b60	65 78 70 61 6e 64 3a 26 68 61 73 68 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c	expand:&hash\?.#[514."\300\301!\
13b80	33 30 32 01 03 44 43 5c 33 30 33 03 5c 33 30 34 06 07 06 06 45 45 45 5c 32 30 37 22 20 5b 6d 61	302..DC\303.\304....EEE\207".[ma
13ba0	6b 65 2d 73 79 6d 62 6f 6c 20 22 73 72 63 22 20 6c 65 74 20 77 68 65 6e 20 67 65 74 68 61 73 68	ke-symbol."src".let.when.gethash
13bc0	5d 20 31 30 20 28 23 24 20 2e 20 38 30 35 38 35 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 64	].10.(#$...80585)]).(defalias.'d
13be0	61 73 68 2d 65 78 70 61 6e 64 3a 26 6b 65 79 73 20 27 64 61 73 68 2d 65 78 70 61 6e 64 3a 26 70	ash-expand:&keys.'dash-expand:&p
13c00	6c 69 73 74 29 0a 23 40 35 30 39 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 67 61	list).#@509.Match.MATCH-FORM.aga
13c20	69 6e 73 74 20 53 4f 55 52 43 45 20 6f 66 20 74 79 70 65 20 54 59 50 45 2e 0a 0a 4d 41 54 43 48	inst.SOURCE.of.type.TYPE...MATCH
13c40	2d 46 4f 52 4d 20 69 73 20 61 20 70 72 6f 70 65 72 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 6f	-FORM.is.a.proper.list.of.the.fo
13c60	72 6d 20 28 6b 65 79 31 20 70 6c 61 63 65 31 20 2e 2e 2e 20 6b 65 79 4e 0a 70 6c 61 63 65 4e 29	rm.(key1.place1.....keyN.placeN)
13c80	2e 20 20 45 61 63 68 20 70 6c 61 63 65 4b 20 69 73 20 65 69 74 68 65 72 20 61 20 73 79 6d 62 6f	...Each.placeK.is.either.a.symbo
13ca0	6c 2c 20 77 68 69 63 68 20 67 65 74 73 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 0a 76 61 6c 75 65	l,.which.gets.bound.to.the.value
13cc0	20 6f 66 20 6b 65 79 4b 20 72 65 74 72 69 65 76 65 64 20 66 72 6f 6d 20 74 68 65 20 6b 65 79 2d	.of.keyK.retrieved.from.the.key-
13ce0	76 61 6c 75 65 20 73 74 6f 72 65 2c 20 6f 72 20 61 6e 6f 74 68 65 72 0a 6d 61 74 63 68 20 66 6f	value.store,.or.another.match.fo
13d00	72 6d 20 77 68 69 63 68 20 67 65 74 73 20 64 65 73 74 72 75 63 74 75 72 65 64 20 72 65 63 75 72	rm.which.gets.destructured.recur
13d20	73 69 76 65 6c 79 2e 0a 0a 53 4f 55 52 43 45 20 69 73 20 61 20 6b 65 79 2d 76 61 6c 75 65 20 73	sively...SOURCE.is.a.key-value.s
13d40	74 6f 72 65 20 6f 66 20 74 79 70 65 20 54 59 50 45 2c 20 77 68 69 63 68 20 63 61 6e 20 62 65 20	tore.of.type.TYPE,.which.can.be.
13d60	61 20 70 6c 69 73 74 2c 0a 61 6e 20 61 6c 69 73 74 20 6f 72 20 61 20 68 61 73 68 20 74 61 62 6c	a.plist,.an.alist.or.a.hash.tabl
13d80	65 2e 0a 0a 54 59 50 45 20 69 73 20 61 20 74 6f 6b 65 6e 20 73 70 65 63 69 66 79 69 6e 67 20 74	e...TYPE.is.a.token.specifying.t
13da0	68 65 20 74 79 70 65 20 6f 66 20 74 68 65 20 6b 65 79 2d 76 61 6c 75 65 20 73 74 6f 72 65 2e 0a	he.type.of.the.key-value.store..
13dc0	56 61 6c 69 64 20 76 61 6c 75 65 73 20 61 72 65 20 26 70 6c 69 73 74 2c 20 26 61 6c 69 73 74 20	Valid.values.are.&plist,.&alist.
13de0	61 6e 64 20 26 68 61 73 68 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43	and.&hash...(fn.MATCH-FORM.SOURC
13e00	45 20 54 59 50 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d	E.TYPE)..(defalias.'dash--match-
13e20	6b 76 2d 31 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34	kv-1.#[771."\300\301\302\303\304
13e40	06 06 06 06 23 5c 33 30 35 5c 33 30 36 06 08 5c 22 5c 22 5c 22 5c 32 30 37 22 20 5b 2d 66 6c 61	....#\305\306..\"\"\"\207".[-fla
13e60	74 74 65 6e 2d 6e 20 31 20 2d 6d 61 70 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37	tten-n.1.-map.make-closure.#[257
13e80	20 22 5c 32 31 31 40 01 41 40 5c 33 30 32 5c 33 30 31 21 02 5c 33 30 30 5c 22 01 39 5c 32 30 33	."\211@.A@\302\301!.\300\".9\203
13ea0	15 00 01 01 44 43 5c 32 30 37 5c 33 30 33 02 02 5c 22 5c 32 30 37 22 20 5b 56 30 20 56 31 20 64	....DC\207\303..\"\207".[V0.V1.d
13ec0	61 73 68 2d 2d 67 65 74 2d 65 78 70 61 6e 64 2d 66 75 6e 63 74 69 6f 6e 20 64 61 73 68 2d 2d 6d	ash--get-expand-function.dash--m
13ee0	61 74 63 68 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 4b 56 29 22 5d 20 2d 70 61 72 74 69 74 69 6f	atch].7."\n\n(fn.KV)"].-partitio
13f00	6e 20 32 5d 20 31 30 20 28 23 24 20 2e 20 38 30 39 30 38 29 5d 29 0a 23 40 39 36 20 42 69 6e 64	n.2].10.(#$...80908)]).#@96.Bind
13f20	20 61 20 73 79 6d 62 6f 6c 2e 0a 0a 54 68 69 73 20 77 6f 72 6b 73 20 6a 75 73 74 20 6c 69 6b 65	.a.symbol...This.works.just.like
13f40	20 60 6c 65 74 27 2c 20 74 68 65 72 65 20 69 73 20 6e 6f 20 64 65 73 74 72 75 63 74 75 72 69 6e	.`let',.there.is.no.destructurin
13f60	67 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66	g...(fn.MATCH-FORM.SOURCE)..(def
13f80	61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 73 79 6d 62 6f 6c 20 23 5b 35 31 34 20	alias.'dash--match-symbol.#[514.
13fa0	22 01 01 44 43 5c 32 30 37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20 38 31 36 39 32 29 5d 29 0a 23	"..DC\207".[].4.(#$...81692)]).#
13fc0	40 32 38 31 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 67 61 69 6e 73 74 20 53 4f	@281.Match.MATCH-FORM.against.SO
13fe0	55 52 43 45 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 65 73 74 73 20 74 68 65 20 4d	URCE...This.function.tests.the.M
14000	41 54 43 48 2d 46 4f 52 4d 20 61 6e 64 20 64 69 73 70 61 74 63 68 65 73 20 74 6f 20 73 70 65 63	ATCH-FORM.and.dispatches.to.spec
14020	69 66 69 63 0a 6d 61 74 63 68 65 72 73 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 74 79 70 65 20	ific.matchers.based.on.the.type.
14040	6f 66 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 0a 4b 65 79 2d 76 61 6c 75 65 20 73 74	of.the.expression...Key-value.st
14060	6f 72 65 73 20 61 72 65 20 64 69 73 61 6d 62 69 67 75 61 74 65 64 20 62 79 20 70 6c 61 63 69 6e	ores.are.disambiguated.by.placin
14080	67 20 61 20 74 6f 6b 65 6e 20 26 70 6c 69 73 74 2c 0a 26 61 6c 69 73 74 20 6f 72 20 26 68 61 73	g.a.token.&plist,.&alist.or.&has
140a0	68 20 61 73 20 61 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 74 68 65 20 4d 41 54 43 48 2d 46	h.as.a.first.item.in.the.MATCH-F
140c0	4f 52 4d 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64	ORM...(fn.MATCH-FORM.SOURCE)..(d
140e0	65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 20 23 5b 35 31 34 20 22 01 39 5c 32	efalias.'dash--match.#[514.".9\2
14100	30 33 5c 6e 00 5c 33 30 30 02 02 5c 22 5c 32 30 37 01 3a 5c 32 30 33 45 00 01 41 3a 5c 32 30 33	03\n.\300..\"\207.:\203E..A:\203
14120	30 00 01 40 39 5c 32 30 33 30 00 01 41 40 5c 33 30 31 3d 5c 32 30 33 30 00 01 40 5c 32 31 31 02	0..@9\2030..A@\301=\2030..@\211.
14140	44 5c 33 30 32 04 41 41 03 5c 22 42 5c 32 30 37 5c 33 30 33 5c 33 30 34 03 40 21 21 5c 32 30 33	D\302.AA.\"B\207\303\304.@!!\203
14160	40 00 5c 33 30 35 5c 33 30 36 03 21 02 5c 22 5c 32 30 37 5c 33 30 37 02 02 5c 22 5c 32 30 37 5c	@.\305\306.!.\"\207\307..\"\207\
14180	33 31 30 02 21 5c 32 30 35 74 00 01 47 5c 33 31 31 56 5c 32 30 33 70 00 01 5c 33 31 32 48 39 5c	310.!\205t..G\311V\203p..\312H9\
141a0	32 30 33 70 00 01 5c 33 31 33 48 5c 33 30 31 3d 5c 32 30 33 70 00 01 5c 33 31 32 48 5c 32 31 31	203p..\313H\301=\203p..\312H\211
141c0	02 44 5c 33 30 32 04 5c 33 31 31 5c 33 31 34 4f 03 5c 22 42 5c 32 30 37 5c 33 31 35 02 02 5c 22	.D\302.\311\314O.\"B\207\315..\"
141e0	5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 2d 73 79 6d 62 6f 6c 20 26 61 73 20 64 61	\207".[dash--match-symbol.&as.da
14200	73 68 2d 2d 6d 61 74 63 68 20 66 75 6e 63 74 69 6f 6e 70 20 64 61 73 68 2d 2d 67 65 74 2d 65 78	sh--match.functionp.dash--get-ex
14220	70 61 6e 64 2d 66 75 6e 63 74 69 6f 6e 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 20 64 61 73	pand-function.dash--match-kv.das
14240	68 2d 2d 6d 61 74 63 68 2d 6b 76 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6d 61 74 63 68 2d 66 6f 72 6d	h--match-kv-normalize-match-form
14260	20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 20 76 65 63 74 6f 72 70 20 32 20 30 20 31 20	.dash--match-cons.vectorp.2.0.1.
14280	6e 69 6c 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 76 65 63 74 6f 72 5d 20 38 20 28 23 24 20 2e 20	nil.dash--match-vector].8.(#$...
142a0	38 31 38 36 31 29 5d 29 0a 23 40 33 36 34 20 4e 6f 72 6d 61 6c 69 7a 65 20 56 41 52 4c 49 53 54	81861)]).#@364.Normalize.VARLIST
142c0	20 73 6f 20 74 68 61 74 20 65 76 65 72 79 20 62 69 6e 64 69 6e 67 20 69 73 20 61 20 6c 69 73 74	.so.that.every.binding.is.a.list
142e0	2e 0a 0a 60 6c 65 74 27 20 61 6c 6c 6f 77 73 20 73 70 65 63 69 66 79 69 6e 67 20 61 20 62 69 6e	...`let'.allows.specifying.a.bin
14300	64 69 6e 67 20 77 68 69 63 68 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 20 62 75 74 20 73 69 6d	ding.which.is.not.a.list.but.sim
14320	70 6c 79 0a 74 68 65 20 70 6c 61 63 65 20 77 68 69 63 68 20 69 73 20 74 68 65 6e 20 61 75 74 6f	ply.the.place.which.is.then.auto
14340	6d 61 74 69 63 61 6c 6c 79 20 62 6f 75 6e 64 20 74 6f 20 6e 69 6c 2c 20 73 75 63 68 20 74 68 61	matically.bound.to.nil,.such.tha
14360	74 20 61 6c 6c 0a 74 68 72 65 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 65	t.all.three.of.the.following.are
14380	20 69 64 65 6e 74 69 63 61 6c 20 61 6e 64 20 65 76 61 6c 75 61 74 65 20 74 6f 20 6e 69 6c 2e 0a	.identical.and.evaluate.to.nil..
143a0	0a 20 20 28 6c 65 74 20 28 61 29 20 61 29 0a 20 20 28 6c 65 74 20 28 28 61 29 29 20 61 29 0a 20	...(let.(a).a)...(let.((a)).a)..
143c0	20 28 6c 65 74 20 28 28 61 20 6e 69 6c 29 29 20 61 29 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f	.(let.((a.nil)).a)..This.functio
143e0	6e 20 6e 6f 72 6d 61 6c 69 7a 65 73 20 61 6c 6c 20 6f 66 20 74 68 65 73 65 20 74 6f 20 74 68 65	n.normalizes.all.of.these.to.the
14400	20 6c 61 73 74 20 66 6f 72 6d 2e 0a 0a 28 66 6e 20 56 41 52 4c 49 53 54 29 1f 0a 28 64 65 66 61	.last.form...(fn.VARLIST)..(defa
14420	6c 69 61 73 20 27 64 61 73 68 2d 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6c 65 74 2d 76 61 72 6c 69 73	lias.'dash--normalize-let-varlis
14440	74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 6d 61 70 63 61	t.#[257."\300\301.\"\207".[mapca
14460	72 20 23 5b 32 35 37 20 22 5c 32 31 31 3a 5c 32 30 33 06 00 5c 32 30 37 5c 32 31 31 5c 33 30 30	r.#[257."\211:\203..\207\211\300
14480	44 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 34	D\207".[nil].3."\n\n(fn.IT)"]].4
144a0	20 28 23 24 20 2e 20 38 32 36 30 37 29 5d 29 0a 23 40 34 37 36 20 42 69 6e 64 20 76 61 72 69 61	.(#$...82607)]).#@476.Bind.varia
144c0	62 6c 65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 56 41 52 4c 49 53 54 20 74 68 65 6e 20 65	bles.according.to.VARLIST.then.e
144e0	76 61 6c 20 42 4f 44 59 2e 0a 0a 56 41 52 4c 49 53 54 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20	val.BODY...VARLIST.is.a.list.of.
14500	6c 69 73 74 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 50 41 54 54 45 52 4e 20 53 4f 55 52 43	lists.of.the.form.(PATTERN.SOURC
14520	45 29 2e 20 20 45 61 63 68 0a 50 41 54 54 45 52 4e 20 69 73 20 6d 61 74 63 68 65 64 20 61 67 61	E)...Each.PATTERN.is.matched.aga
14540	69 6e 73 74 20 74 68 65 20 53 4f 55 52 43 45 20 73 74 72 75 63 74 75 72 61 6c 6c 79 2e 20 20 53	inst.the.SOURCE.structurally...S
14560	4f 55 52 43 45 20 69 73 0a 6f 6e 6c 79 20 65 76 61 6c 75 61 74 65 64 20 6f 6e 63 65 20 66 6f 72	OURCE.is.only.evaluated.once.for
14580	20 65 61 63 68 20 50 41 54 54 45 52 4e 2e 0a 0a 45 61 63 68 20 53 4f 55 52 43 45 20 63 61 6e 20	.each.PATTERN...Each.SOURCE.can.
145a0	72 65 66 65 72 20 74 6f 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 61 6c 72 65 61 64 79 20 62 6f 75	refer.to.the.symbols.already.bou
145c0	6e 64 20 62 79 20 74 68 69 73 0a 56 41 52 4c 49 53 54 2e 20 20 54 68 69 73 20 69 73 20 75 73 65	nd.by.this.VARLIST...This.is.use
145e0	66 75 6c 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 64 65 73 74 72 75 63 74 75 72 65 20 53	ful.if.you.want.to.destructure.S
14600	4f 55 52 43 45 0a 72 65 63 75 72 73 69 76 65 6c 79 20 62 75 74 20 61 6c 73 6f 20 77 61 6e 74 20	OURCE.recursively.but.also.want.
14620	74 6f 20 6e 61 6d 65 20 74 68 65 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 73 74 72 75 63 74 75	to.name.the.intermediate.structu
14640	72 65 73 2e 0a 0a 53 65 65 20 60 2d 6c 65 74 27 20 66 6f 72 20 74 68 65 20 6c 69 73 74 20 6f 66	res...See.`-let'.for.the.list.of
14660	20 61 6c 6c 20 70 6f 73 73 69 62 6c 65 20 70 61 74 74 65 72 6e 73 2e 0a 0a 28 66 6e 20 56 41 52	.all.possible.patterns...(fn.VAR
14680	4c 49 53 54 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 65	LIST.&rest.BODY)..(defalias.'-le
146a0	74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 21 5c 33 30 31 5c 33	t*.'(macro...#[385."\300.!\301\3
146c0	30 32 5c 33 30 33 5c 33 30 34 04 5c 22 5c 22 5c 33 30 35 01 04 42 42 5c 32 30 37 22 20 5b 64 61	02\303\304.\"\"\305..BB\207".[da
146e0	73 68 2d 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6c 65 74 2d 76 61 72 6c 69 73 74 20 61 70 70 6c 79 20	sh--normalize-let-varlist.apply.
14700	61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 40 02 41 40 5c 22	append.mapcar.#[257."\300.@.A@\"
14720	5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49	\207".[dash--match].4."\n\n(fn.I
14740	54 29 22 5d 20 6c 65 74 2a 5d 20 38 20 28 23 24 20 2e 20 38 33 31 32 36 29 5d 29 29 0a 28 62 79	T)"].let*].8.(#$...83126)])).(by
14760	74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33	te-code."\300\301\302\303#\210\3
14780	30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 6c	04\301\305\306#\300\207".[put.-l
147a0	65 74 2a 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 26 72 65 73 74 20 5b 26 6f	et*.edebug-form-spec.((&rest.[&o
147c0	72 20 28 73 65 78 70 20 66 6f 72 6d 29 20 73 65 78 70 5d 29 20 62 6f 64 79 29 20 66 75 6e 63 74	r.(sexp.form).sexp]).body).funct
147e0	69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20	ion-put.lisp-indent-function.1].
14800	34 29 0a 23 40 35 36 38 34 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73 20 61 63 63 6f 72 64 69	4).#@5684.Bind.variables.accordi
14820	6e 67 20 74 6f 20 56 41 52 4c 49 53 54 20 74 68 65 6e 20 65 76 61 6c 20 42 4f 44 59 2e 0a 0a 56	ng.to.VARLIST.then.eval.BODY...V
14840	41 52 4c 49 53 54 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 6f 66 20 74 68 65	ARLIST.is.a.list.of.lists.of.the
14860	20 66 6f 72 6d 20 28 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 29 2e 20 20 45 61 63 68 0a 50 41	.form.(PATTERN.SOURCE)...Each.PA
14880	54 54 45 52 4e 20 69 73 20 6d 61 74 63 68 65 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 53 4f 55	TTERN.is.matched.against.the.SOU
148a0	52 43 45 20 22 73 74 72 75 63 74 75 72 61 6c 6c 79 22 2e 20 20 53 4f 55 52 43 45 0a 69 73 20 6f	RCE."structurally"...SOURCE.is.o
148c0	6e 6c 79 20 65 76 61 6c 75 61 74 65 64 20 6f 6e 63 65 20 66 6f 72 20 65 61 63 68 20 50 41 54 54	nly.evaluated.once.for.each.PATT
148e0	45 52 4e 2e 20 20 45 61 63 68 20 50 41 54 54 45 52 4e 20 69 73 20 6d 61 74 63 68 65 64 0a 72 65	ERN...Each.PATTERN.is.matched.re
14900	63 75 72 73 69 76 65 6c 79 2c 20 61 6e 64 20 63 61 6e 20 74 68 65 72 65 66 6f 72 65 20 63 6f 6e	cursively,.and.can.therefore.con
14920	74 61 69 6e 20 73 75 62 2d 70 61 74 74 65 72 6e 73 20 77 68 69 63 68 20 61 72 65 0a 6d 61 74 63	tain.sub-patterns.which.are.matc
14940	68 65 64 20 61 67 61 69 6e 73 74 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 73 75 62 2d 65 78	hed.against.corresponding.sub-ex
14960	70 72 65 73 73 69 6f 6e 73 20 6f 66 20 53 4f 55 52 43 45 2e 0a 0a 41 6c 6c 20 74 68 65 20 53 4f	pressions.of.SOURCE...All.the.SO
14980	55 52 43 45 73 20 61 72 65 20 65 76 61 6c 6c 65 64 20 62 65 66 6f 72 65 20 61 6e 79 20 73 79 6d	URCEs.are.evalled.before.any.sym
149a0	62 6f 6c 73 20 61 72 65 0a 62 6f 75 6e 64 20 28 69 2e 65 2e 20 22 69 6e 20 70 61 72 61 6c 6c 65	bols.are.bound.(i.e.."in.paralle
149c0	6c 22 29 2e 0a 0a 49 66 20 56 41 52 4c 49 53 54 20 6f 6e 6c 79 20 63 6f 6e 74 61 69 6e 73 20 6f	l")...If.VARLIST.only.contains.o
149e0	6e 65 20 28 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 29 20 65 6c 65 6d 65 6e 74 2c 20 79 6f 75	ne.(PATTERN.SOURCE).element,.you
14a00	20 63 61 6e 0a 6f 70 74 69 6f 6e 61 6c 6c 79 20 73 70 65 63 69 66 79 20 69 74 20 75 73 69 6e 67	.can.optionally.specify.it.using
14a20	20 61 20 76 65 63 74 6f 72 20 61 6e 64 20 64 69 73 63 61 72 64 69 6e 67 20 74 68 65 0a 6f 75 74	.a.vector.and.discarding.the.out
14a40	65 72 2d 6d 6f 73 74 20 70 61 72 65 6e 73 2e 20 20 54 68 75 73 0a 0a 20 20 28 2d 6c 65 74 20 28	er-most.parens...Thus....(-let.(
14a60	28 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 29 29 20 2e 2e 2e 29 0a 0a 62 65 63 6f 6d 65 73 0a	(PATTERN.SOURCE))....)..becomes.
14a80	0a 20 20 28 2d 6c 65 74 20 5b 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 5d 20 2e 2e 2e 29 2e 0a	...(-let.[PATTERN.SOURCE]....)..
14aa0	0a 60 2d 6c 65 74 27 20 75 73 65 73 20 61 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 6f 66 20 6e 6f 74	.`-let'.uses.a.convention.of.not
14ac0	20 62 69 6e 64 69 6e 67 20 70 6c 61 63 65 73 20 28 73 79 6d 62 6f 6c 73 29 20 73 74 61 72 74 69	.binding.places.(symbols).starti
14ae0	6e 67 0a 77 69 74 68 20 5f 20 77 68 65 6e 65 76 65 72 20 69 74 27 73 20 70 6f 73 73 69 62 6c 65	ng.with._.whenever.it's.possible
14b00	2e 20 20 59 6f 75 20 63 61 6e 20 75 73 65 20 74 68 69 73 20 74 6f 20 73 6b 69 70 20 6f 76 65 72	...You.can.use.this.to.skip.over
14b20	0a 65 6e 74 72 69 65 73 20 79 6f 75 20 64 6f 6e 27 74 20 63 61 72 65 20 61 62 6f 75 74 2e 20 20	.entries.you.don't.care.about...
14b40	48 6f 77 65 76 65 72 2c 20 74 68 69 73 20 69 73 20 6e 6f 74 20 2a 61 6c 77 61 79 73 2a 0a 70 6f	However,.this.is.not.*always*.po
14b60	73 73 69 62 6c 65 20 28 61 73 20 61 20 72 65 73 75 6c 74 20 6f 66 20 69 6d 70 6c 65 6d 65 6e 74	ssible.(as.a.result.of.implement
14b80	61 74 69 6f 6e 29 20 61 6e 64 20 74 68 65 73 65 20 73 79 6d 62 6f 6c 73 20 6d 69 67 68 74 0a 67	ation).and.these.symbols.might.g
14ba0	65 74 20 62 6f 75 6e 64 20 74 6f 20 75 6e 64 65 66 69 6e 65 64 20 76 61 6c 75 65 73 2e 0a 0a 46	et.bound.to.undefined.values...F
14bc0	6f 6c 6c 6f 77 69 6e 67 20 69 73 20 74 68 65 20 6f 76 65 72 76 69 65 77 20 6f 66 20 73 75 70 70	ollowing.is.the.overview.of.supp
14be0	6f 72 74 65 64 20 70 61 74 74 65 72 6e 73 2e 20 20 52 65 6d 65 6d 62 65 72 20 74 68 61 74 0a 70	orted.patterns...Remember.that.p
14c00	61 74 74 65 72 6e 73 20 63 61 6e 20 62 65 20 6d 61 74 63 68 65 64 20 72 65 63 75 72 73 69 76 65	atterns.can.be.matched.recursive
14c20	6c 79 2c 20 73 6f 20 65 76 65 72 79 20 61 2c 20 62 2c 20 61 4b 20 69 6e 20 74 68 65 0a 66 6f 6c	ly,.so.every.a,.b,.aK.in.the.fol
14c40	6c 6f 77 69 6e 67 20 63 61 6e 20 62 65 20 61 20 6d 61 74 63 68 69 6e 67 20 63 6f 6e 73 74 72 75	lowing.can.be.a.matching.constru
14c60	63 74 20 61 6e 64 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 69 6c 79 20 61 0a 73 79 6d 62 6f 6c 2f	ct.and.not.necessarily.a.symbol/
14c80	76 61 72 69 61 62 6c 65 2e 0a 0a 53 79 6d 62 6f 6c 3a 0a 0a 20 20 61 20 2d 20 62 69 6e 64 20 74	variable...Symbol:....a.-.bind.t
14ca0	68 65 20 53 4f 55 52 43 45 20 74 6f 20 41 2e 20 20 54 68 69 73 20 69 73 20 6a 75 73 74 20 6c 69	he.SOURCE.to.A...This.is.just.li
14cc0	6b 65 20 72 65 67 75 6c 61 72 20 60 6c 65 74 27 2e 0a 0a 43 6f 6e 73 65 73 20 61 6e 64 20 6c 69	ke.regular.`let'...Conses.and.li
14ce0	73 74 73 3a 0a 0a 20 20 28 61 29 20 2d 20 62 69 6e 64 20 60 63 61 72 27 20 6f 66 20 63 6f 6e 73	sts:....(a).-.bind.`car'.of.cons
14d00	2f 6c 69 73 74 20 74 6f 20 41 0a 0a 20 20 28 61 20 2e 20 62 29 20 2d 20 62 69 6e 64 20 63 61 72	/list.to.A....(a...b).-.bind.car
14d20	20 6f 66 20 63 6f 6e 73 20 74 6f 20 41 20 61 6e 64 20 60 63 64 72 27 20 74 6f 20 42 0a 0a 20 20	.of.cons.to.A.and.`cdr'.to.B....
14d40	28 61 20 62 29 20 2d 20 62 69 6e 64 20 63 61 72 20 6f 66 20 6c 69 73 74 20 74 6f 20 41 20 61 6e	(a.b).-.bind.car.of.list.to.A.an
14d60	64 20 60 63 61 64 72 27 20 74 6f 20 42 0a 0a 20 20 28 61 31 20 61 32 20 61 33 20 2e 2e 2e 29 20	d.`cadr'.to.B....(a1.a2.a3....).
14d80	2d 20 62 69 6e 64 20 30 74 68 20 63 61 72 20 6f 66 20 6c 69 73 74 20 74 6f 20 41 31 2c 20 31 73	-.bind.0th.car.of.list.to.A1,.1s
14da0	74 20 74 6f 20 41 32 2c 20 32 6e 64 20 74 6f 20 41 33 2e 2e 2e 0a 0a 20 20 28 61 31 20 61 32 20	t.to.A2,.2nd.to.A3.......(a1.a2.
14dc0	61 33 20 2e 2e 2e 20 61 4e 20 2e 20 72 65 73 74 29 20 2d 20 61 73 20 61 62 6f 76 65 2c 20 62 75	a3.....aN...rest).-.as.above,.bu
14de0	74 20 62 69 6e 64 20 74 68 65 20 4e 74 68 20 63 64 72 20 74 6f 20 52 45 53 54 2e 0a 0a 56 65 63	t.bind.the.Nth.cdr.to.REST...Vec
14e00	74 6f 72 73 3a 0a 0a 20 20 5b 61 5d 20 2d 20 62 69 6e 64 20 30 74 68 20 65 6c 65 6d 65 6e 74 20	tors:....[a].-.bind.0th.element.
14e20	6f 66 20 61 20 6e 6f 6e 2d 6c 69 73 74 20 73 65 71 75 65 6e 63 65 20 74 6f 20 41 20 28 77 6f 72	of.a.non-list.sequence.to.A.(wor
14e40	6b 73 20 77 69 74 68 0a 20 20 20 20 20 20 20 20 76 65 63 74 6f 72 73 2c 20 73 74 72 69 6e 67 73	ks.with.........vectors,.strings
14e60	2c 20 62 69 74 20 61 72 72 61 79 73 2e 2e 2e 29 0a 0a 20 20 5b 61 31 20 61 32 20 61 33 20 2e 2e	,.bit.arrays...)....[a1.a2.a3...
14e80	2e 5d 20 2d 20 62 69 6e 64 20 30 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 6e 6f 6e 2d 6c 69 73	.].-.bind.0th.element.of.non-lis
14ea0	74 20 73 65 71 75 65 6e 63 65 20 74 6f 20 41 30 2c 20 31 73 74 20 74 6f 0a 20 20 20 20 20 20 20	t.sequence.to.A0,.1st.to........
14ec0	20 20 20 20 20 20 20 20 20 20 20 20 41 31 2c 20 32 6e 64 20 74 6f 20 41 32 2c 20 2e 2e 2e 0a 20	............A1,.2nd.to.A2,......
14ee0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 66 20 74 68 65 20 50 41 54 54 45 52 4e	..................If.the.PATTERN
14f00	20 69 73 20 73 68 6f 72 74 65 72 20 74 68 61 6e 20 53 4f 55 52 43 45 2c 20 74 68 65 20 76 61 6c	.is.shorter.than.SOURCE,.the.val
14f20	75 65 73 20 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6c 61 63 65 73	ues.at....................places
14f40	20 6e 6f 74 20 69 6e 20 50 41 54 54 45 52 4e 20 61 72 65 20 69 67 6e 6f 72 65 64 2e 0a 20 20 20	.not.in.PATTERN.are.ignored.....
14f60	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 66 20 74 68 65 20 50 41 54 54 45 52 4e 20 69	................If.the.PATTERN.i
14f80	73 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20 53 4f 55 52 43 45 2c 20 61 6e 20 60 65 72 72 6f 72 27	s.longer.than.SOURCE,.an.`error'
14fa0	20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 72 6f 77 6e 2e 0a 0a	.is....................thrown...
14fc0	20 20 5b 61 31 20 61 32 20 61 33 20 2e 2e 2e 20 26 72 65 73 74 20 72 65 73 74 5d 20 2d 20 61 73	..[a1.a2.a3.....&rest.rest].-.as
14fe0	20 61 62 6f 76 65 2c 20 62 75 74 20 62 69 6e 64 20 74 68 65 20 72 65 73 74 20 6f 66 0a 20 20 20	.above,.but.bind.the.rest.of....
15000	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 73	...........................the.s
15020	65 71 75 65 6e 63 65 20 74 6f 20 52 45 53 54 2e 20 20 54 68 69 73 20 69 73 0a 20 20 20 20 20 20	equence.to.REST...This.is.......
15040	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 63 65 70 74 75	........................conceptu
15060	61 6c 6c 79 20 74 68 65 20 73 61 6d 65 20 61 73 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 0a 20	ally.the.same.as.improper.list..
15080	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 74	.............................mat
150a0	63 68 69 6e 67 20 28 61 31 20 61 32 20 2e 2e 2e 20 61 4e 20 2e 20 72 65 73 74 29 0a 0a 4b 65 79	ching.(a1.a2.....aN...rest)..Key
150c0	2f 76 61 6c 75 65 20 73 74 6f 72 65 73 3a 0a 0a 20 20 28 26 70 6c 69 73 74 20 6b 65 79 30 20 61	/value.stores:....(&plist.key0.a
150e0	30 20 2e 2e 2e 20 6b 65 79 4e 20 61 4e 29 20 2d 20 62 69 6e 64 20 76 61 6c 75 65 20 6d 61 70 70	0.....keyN.aN).-.bind.value.mapp
15100	65 64 20 62 79 20 6b 65 79 4b 20 69 6e 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ed.by.keyK.in.the...............
15120	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f 55 52 43 45 20 70 6c 69 73 74 20	...................SOURCE.plist.
15140	74 6f 20 61 4b 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	to.aK...If.the..................
15160	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 69 73 20 6e 6f 74 20 66 6f 75	................value.is.not.fou
15180	6e 64 2c 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	nd,.aK.is.nil...................
151a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 73 65 73 20 60 70 6c 69 73 74 2d 67 65 74 27	................Uses.`plist-get'
151c0	20 74 6f 20 66 65 74 63 68 20 76 61 6c 75 65 73 2e 0a 0a 20 20 28 26 61 6c 69 73 74 20 6b 65 79	.to.fetch.values.....(&alist.key
151e0	30 20 61 30 20 2e 2e 2e 20 6b 65 79 4e 20 61 4e 29 20 2d 20 62 69 6e 64 20 76 61 6c 75 65 20 6d	0.a0.....keyN.aN).-.bind.value.m
15200	61 70 70 65 64 20 62 79 20 6b 65 79 4b 20 69 6e 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20	apped.by.keyK.in.the............
15220	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f 55 52 43 45 20 61 6c 69	......................SOURCE.ali
15240	73 74 20 74 6f 20 61 4b 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20	st.to.aK...If.the...............
15260	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 69 73 20 6e 6f 74 20	...................value.is.not.
15280	66 6f 75 6e 64 2c 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20	found,.aK.is.nil................
152a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 73 65 73 20 60 61 73 73 6f 63 27 20	...................Uses.`assoc'.
152c0	74 6f 20 66 65 74 63 68 20 76 61 6c 75 65 73 2e 0a 0a 20 20 28 26 68 61 73 68 20 6b 65 79 30 20	to.fetch.values.....(&hash.key0.
152e0	61 30 20 2e 2e 2e 20 6b 65 79 4e 20 61 4e 29 20 2d 20 62 69 6e 64 20 76 61 6c 75 65 20 6d 61 70	a0.....keyN.aN).-.bind.value.map
15300	70 65 64 20 62 79 20 6b 65 79 4b 20 69 6e 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20	ped.by.keyK.in.the..............
15320	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f 55 52 43 45 20 68 61 73 68 20 74	...................SOURCE.hash.t
15340	61 62 6c 65 20 74 6f 20 61 4b 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20	able.to.aK...If.the.............
15360	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 69 73 20 6e 6f 74	....................value.is.not
15380	20 66 6f 75 6e 64 2c 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20	.found,.aK.is.nil...............
153a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 73 65 73 20 60 67 65 74 68 61 73 68	...................Uses.`gethash
153c0	27 20 74 6f 20 66 65 74 63 68 20 76 61 6c 75 65 73 2e 0a 0a 46 75 72 74 68 65 72 2c 20 73 70 65	'.to.fetch.values...Further,.spe
153e0	63 69 61 6c 20 6b 65 79 77 6f 72 64 20 26 6b 65 79 73 20 73 75 70 70 6f 72 74 73 20 22 69 6e 6c	cial.keyword.&keys.supports."inl
15400	69 6e 65 22 20 6d 61 74 63 68 69 6e 67 20 6f 66 0a 70 6c 69 73 74 2d 6c 69 6b 65 20 6b 65 79 2d	ine".matching.of.plist-like.key-
15420	76 61 6c 75 65 20 70 61 69 72 73 2c 20 73 69 6d 69 6c 61 72 6c 79 20 74 6f 20 26 6b 65 79 73 20	value.pairs,.similarly.to.&keys.
15440	6b 65 79 77 6f 72 64 20 6f 66 0a 60 63 6c 2d 64 65 66 75 6e 27 2e 0a 0a 20 20 28 61 31 20 61 32	keyword.of.`cl-defun'.....(a1.a2
15460	20 2e 2e 2e 20 61 4e 20 26 6b 65 79 73 20 6b 65 79 31 20 62 31 20 2e 2e 2e 20 6b 65 79 4e 20 62	.....aN.&keys.key1.b1.....keyN.b
15480	4b 29 0a 0a 54 68 69 73 20 62 69 6e 64 73 20 4e 20 76 61 6c 75 65 73 20 66 72 6f 6d 20 74 68 65	K)..This.binds.N.values.from.the
154a0	20 6c 69 73 74 20 74 6f 20 61 31 20 2e 2e 2e 20 61 4e 2c 20 74 68 65 6e 20 69 6e 74 65 72 70 72	.list.to.a1.....aN,.then.interpr
154c0	65 74 73 0a 74 68 65 20 63 64 72 20 61 73 20 61 20 70 6c 69 73 74 20 28 73 65 65 20 6b 65 79 2f	ets.the.cdr.as.a.plist.(see.key/
154e0	76 61 6c 75 65 20 6d 61 74 63 68 69 6e 67 20 61 62 6f 76 65 29 2e 0a 0a 41 20 73 68 6f 72 74 68	value.matching.above)...A.shorth
15500	61 6e 64 20 6e 6f 74 61 74 69 6f 6e 20 66 6f 72 20 6b 76 2d 64 65 73 74 72 75 63 74 75 72 69 6e	and.notation.for.kv-destructurin
15520	67 20 65 78 69 73 74 73 20 77 68 69 63 68 20 61 6c 6c 6f 77 73 20 74 68 65 0a 70 61 74 74 65 72	g.exists.which.allows.the.patter
15540	6e 73 20 62 65 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 6c 65 66 74 20 6f 75 74 20 61 6e 64 20 64 65	ns.be.optionally.left.out.and.de
15560	72 69 76 65 64 20 66 72 6f 6d 20 74 68 65 20 6b 65 79 20 6e 61 6d 65 20 69 6e 0a 74 68 65 20 66	rived.from.the.key.name.in.the.f
15580	6f 6c 6c 6f 77 69 6e 67 20 66 61 73 68 69 6f 6e 3a 0a 0a 2d 20 61 20 6b 65 79 20 3a 66 6f 6f 20	ollowing.fashion:..-.a.key.:foo.
155a0	69 73 20 63 6f 6e 76 65 72 74 65 64 20 69 6e 74 6f 20 60 66 6f 6f 27 20 70 61 74 74 65 72 6e 2c	is.converted.into.`foo'.pattern,
155c0	0a 2d 20 61 20 6b 65 79 20 27 62 61 72 20 69 73 20 63 6f 6e 76 65 72 74 65 64 20 69 6e 74 6f 20	.-.a.key.'bar.is.converted.into.
155e0	60 62 61 72 27 20 70 61 74 74 65 72 6e 2c 0a 2d 20 61 20 6b 65 79 20 22 62 61 7a 22 20 69 73 20	`bar'.pattern,.-.a.key."baz".is.
15600	63 6f 6e 76 65 72 74 65 64 20 69 6e 74 6f 20 60 62 61 7a 27 20 70 61 74 74 65 72 6e 2e 0a 0a 54	converted.into.`baz'.pattern...T
15620	68 61 74 20 69 73 2c 20 74 68 65 20 65 6e 74 69 72 65 20 76 61 6c 75 65 20 75 6e 64 65 72 20 74	hat.is,.the.entire.value.under.t
15640	68 65 20 6b 65 79 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 64 65 72 69 76 65 64 0a 76	he.key.is.bound.to.the.derived.v
15660	61 72 69 61 62 6c 65 20 77 69 74 68 6f 75 74 20 61 6e 79 20 66 75 72 74 68 65 72 20 64 65 73 74	ariable.without.any.further.dest
15680	72 75 63 74 75 72 69 6e 67 2e 0a 0a 54 68 69 73 20 69 73 20 70 6f 73 73 69 62 6c 65 20 6f 6e 6c	ructuring...This.is.possible.onl
156a0	79 20 77 68 65 6e 20 74 68 65 20 66 6f 72 6d 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 6b 65	y.when.the.form.following.the.ke
156c0	79 20 69 73 20 6e 6f 74 20 61 0a 76 61 6c 69 64 20 70 61 74 74 65 72 6e 20 28 69 2e 65 2e 20 6e	y.is.not.a.valid.pattern.(i.e..n
156e0	6f 74 20 61 20 73 79 6d 62 6f 6c 2c 20 61 20 63 6f 6e 73 20 63 65 6c 6c 20 6f 72 20 61 20 76 65	ot.a.symbol,.a.cons.cell.or.a.ve
15700	63 74 6f 72 29 2e 0a 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 6d 61 74 63 68 69 6e 67 20 70 72	ctor)..Otherwise.the.matching.pr
15720	6f 63 65 65 64 73 20 61 73 20 75 73 75 61 6c 20 61 6e 64 20 69 6e 20 63 61 73 65 20 6f 66 20 61	oceeds.as.usual.and.in.case.of.a
15740	6e 0a 69 6e 76 61 6c 69 64 20 73 70 65 63 20 66 61 69 6c 73 20 77 69 74 68 20 61 6e 20 65 72 72	n.invalid.spec.fails.with.an.err
15760	6f 72 2e 0a 0a 54 68 75 73 20 74 68 65 20 70 61 74 74 65 72 6e 73 20 61 72 65 20 6e 6f 72 6d 61	or...Thus.the.patterns.are.norma
15780	6c 69 7a 65 64 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 0a 20 20 20 3b 3b 20 64 65 72 69 76 65 20	lized.as.follows:.....;;.derive.
157a0	61 6c 6c 20 74 68 65 20 6d 69 73 73 69 6e 67 20 70 61 74 74 65 72 6e 73 0a 20 20 20 28 26 70 6c	all.the.missing.patterns....(&pl
157c0	69 73 74 20 3a 66 6f 6f 20 27 62 61 72 20 22 62 61 7a 22 29 20 3d 3e 20 28 26 70 6c 69 73 74 20	ist.:foo.'bar."baz").=>.(&plist.
157e0	3a 66 6f 6f 20 66 6f 6f 20 27 62 61 72 20 62 61 72 20 22 62 61 7a 22 20 62 61 7a 29 0a 0a 20 20	:foo.foo.'bar.bar."baz".baz)....
15800	20 3b 3b 20 77 65 20 63 61 6e 20 73 70 65 63 69 66 79 20 73 6f 6d 65 20 62 75 74 20 6e 6f 74 20	.;;.we.can.specify.some.but.not.
15820	6f 74 68 65 72 73 0a 20 20 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 27 62 61 72 20 65 78 70 6c	others....(&plist.:foo.'bar.expl
15840	69 63 69 74 2d 62 61 72 29 20 3d 3e 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 66 6f 6f 20 27 62	icit-bar).=>.(&plist.:foo.foo.'b
15860	61 72 20 65 78 70 6c 69 63 69 74 2d 62 61 72 29 0a 0a 20 20 20 3b 3b 20 6e 6f 74 68 69 6e 67 20	ar.explicit-bar).....;;.nothing.
15880	68 61 70 70 65 6e 73 2c 20 77 65 20 73 74 6f 72 65 20 3a 66 6f 6f 20 69 6e 20 78 0a 20 20 20 28	happens,.we.store.:foo.in.x....(
158a0	26 70 6c 69 73 74 20 3a 66 6f 6f 20 78 29 20 3d 3e 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 78	&plist.:foo.x).=>.(&plist.:foo.x
158c0	29 0a 0a 20 20 20 3b 3b 20 6e 6f 74 68 69 6e 67 20 68 61 70 70 65 6e 73 2c 20 77 65 20 6d 61 74	).....;;.nothing.happens,.we.mat
158e0	63 68 20 72 65 63 75 72 73 69 76 65 6c 79 0a 20 20 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 28	ch.recursively....(&plist.:foo.(
15900	61 20 62 20 63 29 29 20 3d 3e 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 28 61 20 62 20 63 29 29	a.b.c)).=>.(&plist.:foo.(a.b.c))
15920	0a 0a 59 6f 75 20 63 61 6e 20 6e 61 6d 65 20 74 68 65 20 73 6f 75 72 63 65 20 75 73 69 6e 67 20	..You.can.name.the.source.using.
15940	74 68 65 20 73 79 6e 74 61 78 20 53 59 4d 42 4f 4c 20 26 61 73 20 50 41 54 54 45 52 4e 2e 0a 54	the.syntax.SYMBOL.&as.PATTERN..T
15960	68 69 73 20 73 79 6e 74 61 78 20 77 6f 72 6b 73 20 77 69 74 68 20 6c 69 73 74 73 20 28 70 72 6f	his.syntax.works.with.lists.(pro
15980	70 65 72 20 6f 72 20 69 6d 70 72 6f 70 65 72 29 2c 20 76 65 63 74 6f 72 73 20 61 6e 64 0a 61 6c	per.or.improper),.vectors.and.al
159a0	6c 20 74 79 70 65 73 20 6f 66 20 6d 61 70 73 2e 0a 0a 20 20 28 6c 69 73 74 20 26 61 73 20 61 20	l.types.of.maps.....(list.&as.a.
159c0	62 20 63 29 20 28 6c 69 73 74 20 31 20 32 20 33 29 0a 0a 62 69 6e 64 73 20 41 20 74 6f 20 31 2c	b.c).(list.1.2.3)..binds.A.to.1,
159e0	20 42 20 74 6f 20 32 2c 20 43 20 74 6f 20 33 20 61 6e 64 20 4c 49 53 54 20 74 6f 20 28 31 20 32	.B.to.2,.C.to.3.and.LIST.to.(1.2
15a00	20 33 29 2e 0a 0a 53 69 6d 69 6c 61 72 6c 79 3a 0a 0a 20 20 28 62 6f 75 6e 64 73 20 26 61 73 20	.3)...Similarly:....(bounds.&as.
15a20	62 65 67 20 2e 20 65 6e 64 29 20 28 63 6f 6e 73 20 31 20 32 29 0a 0a 62 69 6e 64 73 20 42 45 47	beg...end).(cons.1.2)..binds.BEG
15a40	20 74 6f 20 31 2c 20 45 4e 44 20 74 6f 20 32 20 61 6e 64 20 42 4f 55 4e 44 53 20 74 6f 20 28 31	.to.1,.END.to.2.and.BOUNDS.to.(1
15a60	20 2e 20 32 29 2e 0a 0a 20 20 28 69 74 65 6d 73 20 26 61 73 20 66 69 72 73 74 20 2e 20 72 65 73	...2).....(items.&as.first...res
15a80	74 29 20 28 6c 69 73 74 20 31 20 32 20 33 29 0a 0a 62 69 6e 64 73 20 46 49 52 53 54 20 74 6f 20	t).(list.1.2.3)..binds.FIRST.to.
15aa0	31 2c 20 52 45 53 54 20 74 6f 20 28 32 20 33 29 20 61 6e 64 20 49 54 45 4d 53 20 74 6f 20 28 31	1,.REST.to.(2.3).and.ITEMS.to.(1
15ac0	20 32 20 33 29 0a 0a 20 20 5b 76 65 63 74 20 26 61 73 20 5f 20 62 20 63 5d 20 5b 31 20 32 20 33	.2.3)....[vect.&as._.b.c].[1.2.3
15ae0	5d 0a 0a 62 69 6e 64 73 20 42 20 74 6f 20 32 2c 20 43 20 74 6f 20 33 20 61 6e 64 20 56 45 43 54	]..binds.B.to.2,.C.to.3.and.VECT
15b00	20 74 6f 20 5b 31 20 32 20 33 5d 20 28 5f 20 61 76 6f 69 64 73 20 62 69 6e 64 69 6e 67 20 61 73	.to.[1.2.3].(_.avoids.binding.as
15b20	20 75 73 75 61 6c 29 2e 0a 0a 20 20 28 70 6c 69 73 74 20 26 61 73 20 26 70 6c 69 73 74 20 3a 62	.usual).....(plist.&as.&plist.:b
15b40	20 62 29 20 28 6c 69 73 74 20 3a 61 20 31 20 3a 62 20 32 20 3a 63 20 33 29 0a 0a 62 69 6e 64 73	.b).(list.:a.1.:b.2.:c.3)..binds
15b60	20 42 20 74 6f 20 32 20 61 6e 64 20 50 4c 49 53 54 20 74 6f 20 28 3a 61 20 31 20 3a 62 20 32 20	.B.to.2.and.PLIST.to.(:a.1.:b.2.
15b80	3a 63 20 33 29 2e 20 20 53 61 6d 65 20 66 6f 72 20 26 61 6c 69 73 74 20 61 6e 64 20 26 68 61 73	:c.3)...Same.for.&alist.and.&has
15ba0	68 2e 0a 0a 54 68 69 73 20 69 73 20 65 73 70 65 63 69 61 6c 6c 79 20 75 73 65 66 75 6c 20 77 68	h...This.is.especially.useful.wh
15bc0	65 6e 20 77 65 20 77 61 6e 74 20 74 6f 20 63 61 70 74 75 72 65 20 74 68 65 20 72 65 73 75 6c 74	en.we.want.to.capture.the.result
15be0	20 6f 66 20 61 0a 63 6f 6d 70 75 74 61 74 69 6f 6e 20 61 6e 64 20 64 65 73 74 72 75 63 74 75 72	.of.a.computation.and.destructur
15c00	65 20 61 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 2e 20 20 43 6f 6e 73 69 64 65 72 20 74 68	e.at.the.same.time...Consider.th
15c20	65 0a 66 6f 72 6d 20 28 66 75 6e 63 74 69 6f 6e 2d 72 65 74 75 72 6e 69 6e 67 2d 63 6f 6d 70 6c	e.form.(function-returning-compl
15c40	65 78 2d 73 74 72 75 63 74 75 72 65 29 20 72 65 74 75 72 6e 69 6e 67 20 61 20 6c 69 73 74 20 6f	ex-structure).returning.a.list.o
15c60	66 0a 74 77 6f 20 76 65 63 74 6f 72 73 20 77 69 74 68 20 74 77 6f 20 69 74 65 6d 73 20 65 61 63	f.two.vectors.with.two.items.eac
15c80	68 2e 20 20 57 65 20 77 61 6e 74 20 74 6f 20 63 61 70 74 75 72 65 20 74 68 69 73 20 65 6e 74 69	h...We.want.to.capture.this.enti
15ca0	72 65 0a 72 65 73 75 6c 74 20 61 6e 64 20 70 61 73 73 20 69 74 20 74 6f 20 61 6e 6f 74 68 65 72	re.result.and.pass.it.to.another
15cc0	20 63 6f 6d 70 75 74 61 74 69 6f 6e 2c 20 62 75 74 20 61 74 20 74 68 65 20 73 61 6d 65 20 74 69	.computation,.but.at.the.same.ti
15ce0	6d 65 0a 77 65 20 77 61 6e 74 20 74 6f 20 67 65 74 20 74 68 65 20 73 65 63 6f 6e 64 20 69 74 65	me.we.want.to.get.the.second.ite
15d00	6d 20 66 72 6f 6d 20 65 61 63 68 20 76 65 63 74 6f 72 2e 20 20 57 65 20 63 61 6e 20 61 63 68 69	m.from.each.vector...We.can.achi
15d20	65 76 65 0a 69 74 20 77 69 74 68 20 70 61 74 74 65 72 6e 0a 0a 20 20 28 72 65 73 75 6c 74 20 26	eve.it.with.pattern....(result.&
15d40	61 73 20 5b 5f 20 61 5d 20 5b 5f 20 62 5d 29 20 28 66 75 6e 63 74 69 6f 6e 2d 72 65 74 75 72 6e	as.[_.a].[_.b]).(function-return
15d60	69 6e 67 2d 63 6f 6d 70 6c 65 78 2d 73 74 72 75 63 74 75 72 65 29 0a 0a 4e 6f 74 65 3a 20 43 6c	ing-complex-structure)..Note:.Cl
15d80	6f 6a 75 72 65 20 70 72 6f 67 72 61 6d 6d 65 72 73 20 6d 61 79 20 6b 6e 6f 77 20 74 68 69 73 20	ojure.programmers.may.know.this.
15da0	66 65 61 74 75 72 65 20 61 73 20 74 68 65 20 22 3a 61 73 0a 62 69 6e 64 69 6e 67 22 2e 20 20 54	feature.as.the.":as.binding"...T
15dc0	68 65 20 64 69 66 66 65 72 65 6e 63 65 20 69 73 20 74 68 61 74 20 77 65 20 70 75 74 20 74 68 65	he.difference.is.that.we.put.the
15de0	20 26 61 73 20 61 74 20 74 68 65 20 66 72 6f 6e 74 0a 62 65 63 61 75 73 65 20 77 65 20 6e 65 65	.&as.at.the.front.because.we.nee
15e00	64 20 74 6f 20 73 75 70 70 6f 72 74 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 20 62 69 6e 64 69	d.to.support.improper.list.bindi
15e20	6e 67 2e 0a 0a 28 66 6e 20 56 41 52 4c 49 53 54 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64	ng...(fn.VARLIST.&rest.BODY)..(d
15e40	65 66 61 6c 69 61 73 20 27 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c	efalias.'-let.'(macro...#[385."\
15e60	33 30 30 02 21 5c 32 30 33 13 00 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 48 04 5c 33 30 34 48 5c	300.!\203..\301\302.\303H.\304H\
15e80	22 02 42 42 5c 32 30 37 5c 33 30 35 02 21 5c 33 30 36 01 5c 33 30 33 5c 33 30 36 5c 32 31 31 03	".BB\207\305.!\306.\303\306\211.
15ea0	5c 32 30 33 3f 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01	\203?..\211A\262.\242\262..\262.
15ec0	02 54 5c 32 36 32 03 5c 33 30 37 5c 33 31 30 5c 33 31 31 03 5c 22 21 02 41 40 44 05 42 5c 32 36	.T\262.\307\310\311.\"!.A@D.B\26
15ee0	32 05 5c 32 30 32 1b 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 33 31 32 5c 33	2.\202..\266.\211\237\262.\312\3
15f00	31 33 5c 33 31 34 04 04 5c 22 5c 22 5c 33 31 35 02 5c 33 31 36 03 06 07 42 42 45 5c 32 30 37 22	13\314..\"\"\315.\316...BBE\207"
15f20	20 5b 76 65 63 74 6f 72 70 20 6c 65 74 2a 20 64 61 73 68 2d 2d 6d 61 74 63 68 20 30 20 31 20 64	.[vectorp.let*.dash--match.0.1.d
15f40	61 73 68 2d 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6c 65 74 2d 76 61 72 6c 69 73 74 20 6e 69 6c 20 6d	ash--normalize-let-varlist.nil.m
15f60	61 6b 65 2d 73 79 6d 62 6f 6c 20 66 6f 72 6d 61 74 20 22 69 6e 70 75 74 25 64 22 20 6d 61 70 63	ake-symbol.format."input%d".mapc
15f80	61 72 20 23 5b 32 35 37 20 22 5c 32 31 31 40 40 01 41 40 44 5c 32 30 37 22 20 5b 5d 20 33 20 22	ar.#[257."\211@@.A@D\207".[].3."
15fa0	5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 2d 7a 69 70 20 6c 65 74 20 2d 6c 65 74 2a 5d 20 31 32	\n\n(fn.IT)"].-zip.let.-let*].12
15fc0	20 28 23 24 20 2e 20 38 33 39 37 38 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	.(#$...83978)])).(byte-code."\30
15fe0	30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33	0\301\302\303#\210\304\301\305\3
16000	30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 6c 65 74 20 65 64 65 62 75 67 2d 66 6f	06#\300\207".[put.-let.edebug-fo
16020	72 6d 2d 73 70 65 63 20 28 5b 26 6f 72 20 28 26 72 65 73 74 20 5b 26 6f 72 20 28 73 65 78 70 20	rm-spec.([&or.(&rest.[&or.(sexp.
16040	66 6f 72 6d 29 20 73 65 78 70 5d 29 20 28 76 65 63 74 6f 72 20 5b 26 72 65 73 74 20 5b 73 65 78	form).sexp]).(vector.[&rest.[sex
16060	70 20 66 6f 72 6d 5d 5d 29 5d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69	p.form]])].body).function-put.li
16080	73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 34 32 37 20 52	sp-indent-function.1].4).#@427.R
160a0	65 74 75 72 6e 20 61 20 6c 61 6d 62 64 61 20 77 68 69 63 68 20 64 65 73 74 72 75 63 74 75 72 65	eturn.a.lambda.which.destructure
160c0	73 20 69 74 73 20 69 6e 70 75 74 20 61 73 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 6e 64 20 65 78	s.its.input.as.MATCH-FORM.and.ex
160e0	65 63 75 74 65 73 20 42 4f 44 59 2e 0a 0a 4e 6f 74 65 20 74 68 61 74 20 79 6f 75 20 68 61 76 65	ecutes.BODY...Note.that.you.have
16100	20 74 6f 20 65 6e 63 6c 6f 73 65 20 74 68 65 20 4d 41 54 43 48 2d 46 4f 52 4d 20 69 6e 20 61 20	.to.enclose.the.MATCH-FORM.in.a.
16120	70 61 69 72 20 6f 66 20 70 61 72 65 6e 73 2c 0a 73 75 63 68 20 74 68 61 74 3a 0a 0a 20 20 28 2d	pair.of.parens,.such.that:....(-
16140	6c 61 6d 62 64 61 20 28 78 29 20 62 6f 64 79 29 0a 20 20 28 2d 6c 61 6d 62 64 61 20 28 78 20 79	lambda.(x).body)...(-lambda.(x.y
16160	20 2e 2e 2e 29 20 62 6f 64 79 29 0a 0a 68 61 73 20 74 68 65 20 75 73 75 61 6c 20 73 65 6d 61 6e	....).body)..has.the.usual.seman
16180	74 69 63 73 20 6f 66 20 60 6c 61 6d 62 64 61 27 2e 20 20 46 75 72 74 68 65 72 6d 6f 72 65 2c 20	tics.of.`lambda'...Furthermore,.
161a0	74 68 65 73 65 20 67 65 74 0a 74 72 61 6e 73 6c 61 74 65 64 20 69 6e 74 6f 20 6e 6f 72 6d 61 6c	these.get.translated.into.normal
161c0	20 60 6c 61 6d 62 64 61 27 2c 20 73 6f 20 74 68 65 72 65 20 69 73 20 6e 6f 20 70 65 72 66 6f 72	.`lambda',.so.there.is.no.perfor
161e0	6d 61 6e 63 65 0a 70 65 6e 61 6c 74 79 2e 0a 0a 53 65 65 20 60 2d 6c 65 74 27 20 66 6f 72 20 61	mance.penalty...See.`-let'.for.a
16200	20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 64 65 73 74 72 75 63 74 75 72 69 6e	.description.of.the.destructurin
16220	67 20 6d 65 63 68 61 6e 69 73 6d 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 26 72 65	g.mechanism...(fn.MATCH-FORM.&re
16240	73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 61 6d 62 64 61 20 27 28 6d	st.BODY)..(defalias.'-lambda.'(m
16260	61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 01 3c 5c 32 30 34 5c 66 00 5c 33 30 30 5c 33 30 31 5c	acro...#[385.".<\204\f.\300\301\
16280	33 30 32 04 44 5c 22 5c 32 30 37 5c 33 30 33 5c 33 30 34 03 5c 22 5c 32 30 33 19 00 5c 33 30 35	302.D\"\207\303\304.\"\203..\305
162a0	02 02 42 42 5c 32 30 37 5c 33 30 36 02 5c 33 30 37 5c 33 30 36 5c 32 31 31 03 5c 32 30 33 40 00	..BB\207\306.\307\306\211.\203@.
162c0	03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32	.\211A\262.\242\262..\262..T\262
162e0	03 01 5c 33 31 30 5c 33 31 31 5c 33 31 32 04 5c 22 21 44 05 42 5c 32 36 32 05 5c 32 30 32 1e 00	..\310\311\312.\"!D.B\262.\202..
16300	5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 33 30 35 5c 33 31 33 5c 33 31 34 03 5c	\266.\211\237\262.\305\313\314.\
16320	22 5c 33 31 35 03 05 42 42 45 5c 32 30 37 22 20 5b 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79	"\315..BBE\207".[signal.wrong-ty
16340	70 65 2d 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 70 20 2d 61 6c 6c 5c 3f 20 73 79 6d 62 6f 6c 70	pe-argument.listp.-all\?.symbolp
16360	20 6c 61 6d 62 64 61 20 6e 69 6c 20 30 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 66 6f 72 6d 61 74	.lambda.nil.0.make-symbol.format
16380	20 22 69 6e 70 75 74 25 64 22 20 6d 61 70 63 61 72 20 63 61 64 72 20 2d 6c 65 74 2a 5d 20 31 32	."input%d".mapcar.cadr.-let*].12
163a0	20 28 23 24 20 2e 20 39 30 32 37 31 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	.(#$...90271)])).(byte-code."\30
163c0	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 35 23 5c	0\301\302\303#\300\301\304\305#\
163e0	33 30 36 5c 33 30 31 5c 33 30 37 5c 33 31 30 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d	306\301\307\310#\207".[function-
16400	70 75 74 20 2d 6c 61 6d 62 64 61 20 64 6f 63 2d 73 74 72 69 6e 67 2d 65 6c 74 20 32 20 6c 69 73	put.-lambda.doc-string-elt.2.lis
16420	70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 64 65 66 75 6e 20 70 75 74 20 65 64 65 62	p-indent-function.defun.put.edeb
16440	75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 26 64 65 66 69 6e 65 20 73 65 78 70 20 5b 26 6f 70 74	ug-form-spec.(&define.sexp.[&opt
16460	69 6f 6e 61 6c 20 73 74 72 69 6e 67 70 5d 20 5b 26 6f 70 74 69 6f 6e 61 6c 20 28 22 69 6e 74 65	ional.stringp].[&optional.("inte
16480	72 61 63 74 69 76 65 22 20 69 6e 74 65 72 61 63 74 69 76 65 29 5d 20 64 65 66 2d 62 6f 64 79 29	ractive".interactive)].def-body)
164a0	5d 20 36 29 0a 23 40 35 33 30 20 42 69 6e 64 20 65 61 63 68 20 4d 41 54 43 48 2d 46 4f 52 4d 20	].6).#@530.Bind.each.MATCH-FORM.
164c0	74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 69 74 73 20 56 41 4c 2e 0a 0a 4d 41 54 43 48 2d	to.the.value.of.its.VAL...MATCH-
164e0	46 4f 52 4d 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 20 69 73 20 64 6f 6e 65 20 61 63 63 6f 72	FORM.destructuring.is.done.accor
16500	64 69 6e 67 20 74 6f 20 74 68 65 20 72 75 6c 65 73 20 6f 66 20 60 2d 6c 65 74 27 2e 0a 0a 54 68	ding.to.the.rules.of.`-let'...Th
16520	69 73 20 6d 61 63 72 6f 20 61 6c 6c 6f 77 73 20 79 6f 75 20 74 6f 20 62 69 6e 64 20 6d 75 6c 74	is.macro.allows.you.to.bind.mult
16540	69 70 6c 65 20 76 61 72 69 61 62 6c 65 73 20 62 79 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 0a	iple.variables.by.destructuring.
16560	74 68 65 20 76 61 6c 75 65 2c 20 73 6f 20 66 6f 72 20 65 78 61 6d 70 6c 65 3a 0a 0a 20 20 28 2d	the.value,.so.for.example:....(-
16580	73 65 74 71 20 28 61 20 62 29 20 78 0a 20 20 20 20 20 20 20 20 20 28 26 70 6c 69 73 74 20 3a 63	setq.(a.b).x..........(&plist.:c
165a0	20 63 29 20 70 6c 69 73 74 29 0a 0a 65 78 70 61 6e 64 73 20 72 6f 75 67 68 6c 79 20 73 70 65 61	.c).plist)..expands.roughly.spea
165c0	6b 69 6e 67 20 74 6f 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 64 65 0a 0a 20 20 28 73	king.to.the.following.code....(s
165e0	65 74 71 20 61 20 28 63 61 72 20 78 29 0a 20 20 20 20 20 20 20 20 62 20 28 63 61 64 72 20 78 29	etq.a.(car.x).........b.(cadr.x)
16600	0a 20 20 20 20 20 20 20 20 63 20 28 70 6c 69 73 74 2d 67 65 74 20 70 6c 69 73 74 20 3a 63 29 29	.........c.(plist-get.plist.:c))
16620	0a 0a 43 61 72 65 20 69 73 20 74 61 6b 65 6e 20 74 6f 20 6f 6e 6c 79 20 65 76 61 6c 75 61 74 65	..Care.is.taken.to.only.evaluate
16640	20 65 61 63 68 20 56 41 4c 20 6f 6e 63 65 20 73 6f 20 74 68 61 74 20 69 6e 20 63 61 73 65 20 6f	.each.VAL.once.so.that.in.case.o
16660	66 0a 6d 75 6c 74 69 70 6c 65 20 61 73 73 69 67 6e 6d 65 6e 74 73 20 69 74 20 64 6f 65 73 20 6e	f.multiple.assignments.it.does.n
16680	6f 74 20 63 61 75 73 65 20 75 6e 65 78 70 65 63 74 65 64 20 73 69 64 65 20 65 66 66 65 63 74 73	ot.cause.unexpected.side.effects
166a0	2e 0a 0a 28 66 6e 20 5b 4d 41 54 43 48 2d 46 4f 52 4d 20 56 41 4c 5d 2e 2e 2e 29 1f 0a 28 64 65	...(fn.[MATCH-FORM.VAL]...)..(de
166c0	66 61 6c 69 61 73 20 27 2d 73 65 74 71 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 31 32 38 20 22 5c	falias.'-setq.'(macro...#[128."\
166e0	33 30 30 01 47 5c 33 30 31 5c 22 5c 33 30 32 55 5c 32 30 33 13 00 5c 33 30 33 5c 33 30 34 5c 33	300.G\301\"\302U\203..\303\304\3
16700	30 35 03 47 54 44 5c 22 5c 32 31 30 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 30 31 04 5c 22 5c	05.GTD\"\210\306\307\310\301.\"\
16720	22 5c 33 31 31 5c 33 31 32 02 5c 22 5c 33 31 33 5c 33 30 36 5c 33 31 34 03 5c 22 5c 33 31 35 5c	"\311\312.\"\313\306\314.\"\315\
16740	33 31 36 5c 33 30 32 06 06 5c 22 5c 33 31 37 5c 33 32 30 5c 33 30 36 5c 33 32 31 06 08 5c 22 21	316\302..\"\317\320\306\321..\"!
16760	42 45 5c 33 31 37 5c 33 32 30 05 21 42 46 5c 32 30 37 22 20 5b 6d 6f 64 20 32 20 31 20 73 69 67	BE\317\320.!BF\207".[mod.2.1.sig
16780	6e 61 6c 20 77 72 6f 6e 67 2d 6e 75 6d 62 65 72 2d 6f 66 2d 61 72 67 75 6d 65 6e 74 73 20 2d 73	nal.wrong-number-of-arguments.-s
167a0	65 74 71 20 2d 6d 61 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01 40 02 41 40 5c 22 5c 32 30 37 22	etq.-map.#[257."\300.@.A@\"\207"
167c0	20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 2d	.[dash--match].4."\n\n(fn.X)"].-
167e0	70 61 72 74 69 74 69 6f 6e 20 2d 6d 61 70 63 61 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30	partition.-mapcat.#[257."\300\30
16800	31 5c 33 30 32 03 5c 33 30 33 5c 33 30 32 5c 32 31 31 03 5c 32 30 33 2c 00 03 5c 32 31 31 41 5c	1\302.\303\302\211.\203,..\211A\
16820	32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 5c 33 30 34 5c 33	262.\242\262..\262..T\262.\304\3
16840	30 35 5c 33 30 36 04 40 21 5c 22 5c 32 30 34 07 00 01 05 42 5c 32 36 32 05 5c 32 30 32 07 00 5c	05\306.@!\"\204....B\262.\202..\
16860	32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 22 5c 32 30 37 22 20 5b 2d 6d 61 70 20 23	266.\211\237\262.\"\207".[-map.#
16880	5b 32 35 37 20 22 5c 32 31 31 40 5c 32 31 31 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 21 5c 33 30	[257."\211@\211\300\301\302.!\30
168a0	33 51 21 44 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 2d 2d 64 61 73 68 2d 62	3Q!D\207".[make-symbol."--dash-b
168c0	69 6e 64 69 6e 67 2d 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 2d 2d 22 5d 20 37 20 22 5c 6e	inding-".symbol-name."--"].7."\n
168e0	5c 6e 28 66 6e 20 42 49 4e 44 49 4e 47 29 22 5d 20 6e 69 6c 20 30 20 73 74 72 69 6e 67 2d 70 72	\n(fn.BINDING)"].nil.0.string-pr
16900	65 66 69 78 2d 70 20 22 2d 2d 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 5d 20 31 32 20 22 5c 6e 5c	efix-p."--".symbol-name].12."\n\
16920	6e 28 66 6e 20 42 49 4e 44 49 4e 47 53 29 22 5d 20 6c 65 74 20 63 61 64 72 20 6c 65 74 2a 20 2d	n(fn.BINDINGS)"].let.cadr.let*.-
16940	66 6c 61 74 74 65 6e 2d 6e 20 73 65 74 71 20 2d 66 6c 61 74 74 65 6e 20 72 65 76 65 72 73 65 5d	flatten-n.setq.-flatten.reverse]
16960	20 31 32 20 28 23 24 20 2e 20 39 31 33 30 37 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	.12.(#$...91307)])).(byte-code."
16980	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30	\300\301\302\303#\210\304\301\30
169a0	35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 73 65 74 71 20 65 64 65 62 75	5\306#\300\207".[put.-setq.edebu
169c0	67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 26 72 65 73 74 20 73 65 78 70 20 66 6f 72 6d 29 20 66 75	g-form-spec.(&rest.sexp.form).fu
169e0	6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20	nction-put.lisp-indent-function.
16a00	31 5d 20 34 29 0a 23 40 33 32 30 20 49 66 20 61 6c 6c 20 56 41 4c 53 20 65 76 61 6c 75 61 74 65	1].4).#@320.If.all.VALS.evaluate
16a20	20 74 6f 20 74 72 75 65 2c 20 62 69 6e 64 20 74 68 65 6d 20 74 6f 20 74 68 65 69 72 20 63 6f 72	.to.true,.bind.them.to.their.cor
16a40	72 65 73 70 6f 6e 64 69 6e 67 0a 56 41 52 53 20 61 6e 64 20 64 6f 20 54 48 45 4e 2c 20 6f 74 68	responding.VARS.and.do.THEN,.oth
16a60	65 72 77 69 73 65 20 64 6f 20 45 4c 53 45 2e 20 56 41 52 53 2d 56 41 4c 53 20 73 68 6f 75 6c 64	erwise.do.ELSE..VARS-VALS.should
16a80	20 62 65 20 61 20 6c 69 73 74 0a 6f 66 20 28 56 41 52 20 56 41 4c 29 20 70 61 69 72 73 2e 0a 0a	.be.a.list.of.(VAR.VAL).pairs...
16aa0	4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64 6f 6e 65 20 61 63 63 6f 72 64 69 6e 67 20	Note:.binding.is.done.according.
16ac0	74 6f 20 60 2d 6c 65 74 2a 27 2e 20 20 56 41 4c 53 20 61 72 65 20 65 76 61 6c 75 61 74 65 64 0a	to.`-let*'...VALS.are.evaluated.
16ae0	73 65 71 75 65 6e 74 69 61 6c 6c 79 2c 20 61 6e 64 20 65 76 61 6c 75 61 74 69 6f 6e 20 73 74 6f	sequentially,.and.evaluation.sto
16b00	70 73 20 61 66 74 65 72 20 74 68 65 20 66 69 72 73 74 20 6e 69 6c 20 56 41 4c 20 69 73 0a 65 6e	ps.after.the.first.nil.VAL.is.en
16b20	63 6f 75 6e 74 65 72 65 64 2e 0a 0a 28 66 6e 20 56 41 52 53 2d 56 41 4c 53 20 54 48 45 4e 20 26	countered...(fn.VARS-VALS.THEN.&
16b40	72 65 73 74 20 45 4c 53 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 66 2d 6c 65 74 2a 20	rest.ELSE)..(defalias.'-if-let*.
16b60	27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 01 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	'(macro...#[642.".\300\301\302\3
16b80	30 33 5c 33 30 34 06 08 5c 22 5c 22 21 5c 32 31 31 47 5c 33 30 35 5c 32 31 31 02 5c 33 30 36 56	03\304..\"\"!\211G\305\211.\306V
16ba0	5c 32 30 33 3c 00 02 53 5c 32 36 32 03 02 5c 32 36 32 01 03 03 48 5c 32 36 32 02 01 40 02 41 40	\203<..S\262..\262...H\262..@.A@
16bc0	5c 33 30 37 02 02 44 43 5c 33 31 30 04 06 5c 6e 06 5c 66 42 42 42 45 5c 32 36 36 5c 32 30 32 5c	\307..DC\310..\n.\fBBBE\266\202\
16be0	32 36 32 05 5c 32 30 32 0f 00 5c 32 36 36 04 5c 32 30 37 22 20 5b 76 63 6f 6e 63 61 74 20 61 70	262.\202..\266.\207".[vconcat.ap
16c00	70 6c 79 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 40 02	ply.append.mapcar.#[257."\300.@.
16c20	41 40 5c 22 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 5d 20 34 20 22 5c 6e 5c 6e 28	A@\"\207".[dash--match].4."\n\n(
16c40	66 6e 20 49 54 29 22 5d 20 6e 69 6c 20 30 20 6c 65 74 20 69 66 5d 20 31 36 20 28 23 24 20 2e 20	fn.IT)"].nil.0.let.if].16.(#$...
16c60	39 32 36 38 34 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	92684)])).(byte-code."\300\301\3
16c80	30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30	02\303#\210\304\301\305\306#\300
16ca0	5c 32 30 37 22 20 5b 70 75 74 20 2d 69 66 2d 6c 65 74 2a 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d	\207".[put.-if-let*.edebug-form-
16cc0	73 70 65 63 20 28 28 26 72 65 73 74 20 28 73 65 78 70 20 66 6f 72 6d 29 29 20 66 6f 72 6d 20 62	spec.((&rest.(sexp.form)).form.b
16ce0	6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75	ody).function-put.lisp-indent-fu
16d00	6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 31 35 33 20 49 66 20 56 41 4c 20 65 76 61 6c 75 61	nction.2].4).#@153.If.VAL.evalua
16d20	74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 62 69 6e 64 20 69 74 20 74 6f 20 56 41 52 20 61	tes.to.non-nil,.bind.it.to.VAR.a
16d40	6e 64 20 64 6f 20 54 48 45 4e 2c 0a 6f 74 68 65 72 77 69 73 65 20 64 6f 20 45 4c 53 45 2e 0a 0a	nd.do.THEN,.otherwise.do.ELSE...
16d60	4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64 6f 6e 65 20 61 63 63 6f 72 64 69 6e 67 20	Note:.binding.is.done.according.
16d80	74 6f 20 60 2d 6c 65 74 27 2e 0a 0a 28 66 6e 20 28 56 41 52 20 56 41 4c 29 20 54 48 45 4e 20 26	to.`-let'...(fn.(VAR.VAL).THEN.&
16da0	72 65 73 74 20 45 4c 53 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 66 2d 6c 65 74 20 27	rest.ELSE)..(defalias.'-if-let.'
16dc0	28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 03 43 03 03 42 42 42 5c 32 30 37 22	(macro...#[642."\300.C..BBB\207"
16de0	20 5b 2d 69 66 2d 6c 65 74 2a 5d 20 37 20 28 23 24 20 2e 20 39 33 34 35 39 29 5d 29 29 0a 28 62	.[-if-let*].7.(#$...93459)])).(b
16e00	79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c	yte-code."\300\301\302\303#\210\
16e20	33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d	304\301\305\306#\300\207".[put.-
16e40	69 66 2d 6c 65 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 73 65 78 70 20 66	if-let.edebug-form-spec.((sexp.f
16e60	6f 72 6d 29 20 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73	orm).form.body).function-put.lis
16e80	70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 31 31 31 20 49 66	p-indent-function.2].4).#@111.If
16ea0	20 56 41 4c 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 62 69 6e 64 20	.VAL.evaluates.to.non-nil,.bind.
16ec0	69 74 20 74 6f 20 73 79 6d 62 6f 6c 20 60 69 74 27 20 61 6e 64 20 64 6f 20 54 48 45 4e 2c 0a 6f	it.to.symbol.`it'.and.do.THEN,.o
16ee0	74 68 65 72 77 69 73 65 20 64 6f 20 45 4c 53 45 2e 0a 0a 28 66 6e 20 56 41 4c 20 54 48 45 4e 20	therwise.do.ELSE...(fn.VAL.THEN.
16f00	26 72 65 73 74 20 45 4c 53 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 69 66 2d 6c 65 74	&rest.ELSE)..(defalias.'--if-let
16f20	20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 5c 33 30 31 04 44 03 03 42 42	.'(macro...#[642."\300\301.D..BB
16f40	42 5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 74 20 69 74 5d 20 37 20 28 23 24 20 2e 20 39 33 38 35	B\207".[-if-let.it].7.(#$...9385
16f60	34 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	4)])).(byte-code."\300\301\302\3
16f80	30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37	03#\210\304\301\305\306#\300\207
16fa0	22 20 5b 70 75 74 20 2d 2d 69 66 2d 6c 65 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63	".[put.--if-let.edebug-form-spec
16fc0	20 28 66 6f 72 6d 20 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c	.(form.form.body).function-put.l
16fe0	69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 33 30 31 20	isp-indent-function.2].4).#@301.
17000	49 66 20 61 6c 6c 20 56 41 4c 53 20 65 76 61 6c 75 61 74 65 20 74 6f 20 74 72 75 65 2c 20 62 69	If.all.VALS.evaluate.to.true,.bi
17020	6e 64 20 74 68 65 6d 20 74 6f 20 74 68 65 69 72 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 56	nd.them.to.their.corresponding.V
17040	41 52 53 20 61 6e 64 20 65 78 65 63 75 74 65 20 62 6f 64 79 2e 20 56 41 52 53 2d 56 41 4c 53 20	ARS.and.execute.body..VARS-VALS.
17060	73 68 6f 75 6c 64 20 62 65 20 61 20 6c 69 73 74 20 6f 66 20 28 56 41 52 20 56 41 4c 29 0a 70 61	should.be.a.list.of.(VAR.VAL).pa
17080	69 72 73 2e 0a 0a 4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64 6f 6e 65 20 61 63 63 6f	irs...Note:.binding.is.done.acco
170a0	72 64 69 6e 67 20 74 6f 20 60 2d 6c 65 74 2a 27 2e 20 20 56 41 4c 53 20 61 72 65 20 65 76 61 6c	rding.to.`-let*'...VALS.are.eval
170c0	75 61 74 65 64 0a 73 65 71 75 65 6e 74 69 61 6c 6c 79 2c 20 61 6e 64 20 65 76 61 6c 75 61 74 69	uated.sequentially,.and.evaluati
170e0	6f 6e 20 73 74 6f 70 73 20 61 66 74 65 72 20 74 68 65 20 66 69 72 73 74 20 6e 69 6c 20 56 41 4c	on.stops.after.the.first.nil.VAL
17100	20 69 73 0a 65 6e 63 6f 75 6e 74 65 72 65 64 2e 0a 0a 28 66 6e 20 56 41 52 53 2d 56 41 4c 53 20	.is.encountered...(fn.VARS-VALS.
17120	26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 77 68 65 6e 2d 6c 65	&rest.BODY)..(defalias.'-when-le
17140	74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 5c 33 30 31 03 42 45	t*.'(macro...#[385."\300.\301.BE
17160	5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 74 2a 20 70 72 6f 67 6e 5d 20 36 20 28 23 24 20 2e 20 39	\207".[-if-let*.progn].6.(#$...9
17180	34 32 30 38 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	4208)])).(byte-code."\300\301\30
171a0	32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c	2\303#\210\304\301\305\306#\300\
171c0	32 30 37 22 20 5b 70 75 74 20 2d 77 68 65 6e 2d 6c 65 74 2a 20 65 64 65 62 75 67 2d 66 6f 72 6d	207".[put.-when-let*.edebug-form
171e0	2d 73 70 65 63 20 28 28 26 72 65 73 74 20 28 73 65 78 70 20 66 6f 72 6d 29 29 20 62 6f 64 79 29	-spec.((&rest.(sexp.form)).body)
17200	20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69	.function-put.lisp-indent-functi
17220	6f 6e 20 31 5d 20 34 29 0a 23 40 31 33 34 20 49 66 20 56 41 4c 20 65 76 61 6c 75 61 74 65 73 20	on.1].4).#@134.If.VAL.evaluates.
17240	74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 62 69 6e 64 20 69 74 20 74 6f 20 56 41 52 20 61 6e 64 20 65	to.non-nil,.bind.it.to.VAR.and.e
17260	78 65 63 75 74 65 20 62 6f 64 79 2e 0a 0a 4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64	xecute.body...Note:.binding.is.d
17280	6f 6e 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 2d 6c 65 74 27 2e 0a 0a 28 66 6e 20 28 56	one.according.to.`-let'...(fn.(V
172a0	41 52 20 56 41 4c 29 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	AR.VAL).&rest.BODY)..(defalias.'
172c0	2d 77 68 65 6e 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02	-when-let.'(macro...#[385."\300.
172e0	5c 33 30 31 03 42 45 5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 74 20 70 72 6f 67 6e 5d 20 36 20 28	\301.BE\207".[-if-let.progn].6.(
17300	23 24 20 2e 20 39 34 37 36 37 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	#$...94767)])).(byte-code."\300\
17320	33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36	301\302\303#\210\304\301\305\306
17340	23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 77 68 65 6e 2d 6c 65 74 20 65 64 65 62 75 67	#\300\207".[put.-when-let.edebug
17360	2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 73 65 78 70 20 66 6f 72 6d 29 20 62 6f 64 79 29 20 66 75	-form-spec.((sexp.form).body).fu
17380	6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20	nction-put.lisp-indent-function.
173a0	31 5d 20 34 29 0a 23 40 39 32 20 49 66 20 56 41 4c 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e	1].4).#@92.If.VAL.evaluates.to.n
173c0	6f 6e 2d 6e 69 6c 2c 20 62 69 6e 64 20 69 74 20 74 6f 20 73 79 6d 62 6f 6c 20 60 69 74 27 20 61	on-nil,.bind.it.to.symbol.`it'.a
173e0	6e 64 0a 65 78 65 63 75 74 65 20 62 6f 64 79 2e 0a 0a 28 66 6e 20 56 41 4c 20 26 72 65 73 74 20	nd.execute.body...(fn.VAL.&rest.
17400	42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 77 68 65 6e 2d 6c 65 74 20 27 28 6d	BODY)..(defalias.'--when-let.'(m
17420	61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 5c 33 30 31 03 42 45 5c 32 30 37 22 20	acro...#[385."\300.\301.BE\207".
17440	5b 2d 2d 69 66 2d 6c 65 74 20 70 72 6f 67 6e 5d 20 36 20 28 23 24 20 2e 20 39 35 31 34 37 29 5d	[--if-let.progn].6.(#$...95147)]
17460	29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23	)).(byte-code."\300\301\302\303#
17480	5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b	\210\304\301\305\306#\300\207".[
174a0	70 75 74 20 2d 2d 77 68 65 6e 2d 6c 65 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20	put.--when-let.edebug-form-spec.
174c0	28 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e	(form.body).function-put.lisp-in
174e0	64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 39 31 20 54 65 73 74 73 20	dent-function.1].4).#@191.Tests.
17500	66 6f 72 20 65 71 75 61 6c 69 74 79 20 75 73 65 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 6f	for.equality.use.this.function.o
17520	72 20 60 65 71 75 61 6c 27 20 69 66 20 74 68 69 73 20 69 73 20 6e 69 6c 2e 0a 49 74 20 73 68 6f	r.`equal'.if.this.is.nil..It.sho
17540	75 6c 64 20 6f 6e 6c 79 20 62 65 20 73 65 74 20 75 73 69 6e 67 20 64 79 6e 61 6d 69 63 20 73 63	uld.only.be.set.using.dynamic.sc
17560	6f 70 65 20 77 69 74 68 20 61 20 6c 65 74 2c 20 6c 69 6b 65 3a 0a 0a 20 20 28 6c 65 74 20 28 28	ope.with.a.let,.like:....(let.((
17580	2d 63 6f 6d 70 61 72 65 2d 66 6e 20 23 5c 3d 27 3d 29 29 20 28 2d 75 6e 69 6f 6e 20 6e 75 6d 62	-compare-fn.#\='=)).(-union.numb
175a0	65 72 73 31 20 6e 75 6d 62 65 72 73 32 20 6e 75 6d 62 65 72 73 33 29 1f 0a 28 64 65 66 76 61 72	ers1.numbers2.numbers3)..(defvar
175c0	20 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 6e 69 6c 20 28 23 24 20 2e 20 39 35 34 38 32 29 29 0a 23	.-compare-fn.nil.(#$...95482)).#
175e0	40 31 36 30 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 61 6c 6c 20	@160.Return.a.new.list.with.all.
17600	64 75 70 6c 69 63 61 74 65 73 20 72 65 6d 6f 76 65 64 2e 0a 54 68 65 20 74 65 73 74 20 66 6f 72	duplicates.removed..The.test.for
17620	20 65 71 75 61 6c 69 74 79 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2c 0a	.equality.is.done.with.`equal',.
17640	6f 72 20 77 69 74 68 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 20 69 66 20 74 68 61 74 27 73 20	or.with.`-compare-fn'.if.that's.
17660	6e 6f 6e 2d 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 75 6e 69 71 27 0a 0a 28 66 6e 20 4c 49	non-nil...Alias:.`-uniq'..(fn.LI
17680	53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 69 73 74 69 6e 63 74 20 23 5b 32 35 37 20	ST)..(defalias.'-distinct.#[257.
176a0	22 5c 32 31 31 47 5c 32 31 31 5c 33 30 31 56 5c 32 30 35 18 00 08 5c 33 30 32 3e 5c 32 30 35 18	"\211G\211\301V\205...\302>\205.
176c0	00 5c 33 30 33 5c 33 30 34 08 5c 32 30 36 15 00 5c 33 30 35 5c 33 30 36 04 24 5c 32 31 31 5c 32	.\303\304.\206..\305\306.$\211\2
176e0	30 33 52 00 5c 33 30 37 03 5c 33 31 30 5c 33 30 37 5c 32 31 31 03 5c 32 30 33 4d 00 03 5c 32 31	03R.\307.\310\307\211.\203M..\21
17700	31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 5c 33 31	1A\262.\242\262..\262..T\262.\31
17720	31 02 06 07 5c 22 5c 32 30 34 21 00 5c 33 31 32 02 5c 33 31 33 06 08 23 5c 32 30 33 21 00 01 05	1...\"\204!.\312.\313..#\203!...
17740	42 5c 32 36 32 05 5c 32 30 32 21 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 02 5c 33	B\262.\202!.\266.\211\237\207.\3
17760	31 30 5c 33 30 37 5c 32 31 31 03 5c 32 30 33 78 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32	10\307\211.\203x..\211A\262.\242
17780	5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 5c 33 31 34 05 03 5c 22 5c 32 30 34 56 00	\262..\262..T\262.\314..\"\204V.
177a0	01 05 42 5c 32 36 32 05 5c 32 30 32 56 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 22	..B\262.\202V.\266.\211\237\207"
177c0	20 5b 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 33 32 20 28 6e 69 6c 20 65 71 75 61 6c 20 65 71 20 65	.[-compare-fn.32.(nil.equal.eq.e
177e0	71 6c 29 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 65 71 75 61 6c 20	ql).make-hash-table.:test.equal.
17800	3a 73 69 7a 65 20 6e 69 6c 20 30 20 67 65 74 68 61 73 68 20 70 75 74 68 61 73 68 20 74 20 2d 63	:size.nil.0.gethash.puthash.t.-c
17820	6f 6e 74 61 69 6e 73 5c 3f 5d 20 31 32 20 28 23 24 20 2e 20 39 35 37 31 37 29 5d 29 0a 28 64 65	ontains\?].12.(#$...95717)]).(de
17840	66 61 6c 69 61 73 20 27 2d 75 6e 69 71 20 27 2d 64 69 73 74 69 6e 63 74 29 0a 23 40 31 36 39 20	falias.'-uniq.'-distinct).#@169.
17860	52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 65 6c 65 6d 65 6e 74	Return.a.new.list.of.all.element
17880	73 20 61 70 70 65 61 72 69 6e 67 20 69 6e 20 65 69 74 68 65 72 20 4c 49 53 54 31 20 6f 72 20 4c	s.appearing.in.either.LIST1.or.L
178a0	49 53 54 32 2e 0a 45 71 75 61 6c 69 74 79 20 69 73 20 64 65 66 69 6e 65 64 20 62 79 20 74 68 65	IST2..Equality.is.defined.by.the
178c0	20 76 61 6c 75 65 20 6f 66 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 20 69 66 20 6e 6f 6e 2d 6e	.value.of.`-compare-fn'.if.non-n
178e0	69 6c 3b 0a 6f 74 68 65 72 77 69 73 65 20 60 65 71 75 61 6c 27 2e 0a 0a 28 66 6e 20 4c 49 53 54	il;.otherwise.`equal'...(fn.LIST
17900	20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 6e 69 6f 6e 20 23 5b 35 31 34	.LIST2)..(defalias.'-union.#[514
17920	20 22 5c 33 30 31 02 21 5c 33 30 32 5c 33 30 30 21 5c 32 30 33 11 00 08 5c 32 30 33 11 00 08 5c	."\301.!\302\300!\203...\203...\
17940	32 30 32 12 00 5c 33 30 33 5c 32 31 31 18 5c 33 30 34 3e 5c 32 30 33 6d 00 5c 33 30 35 5c 33 30	202..\303\211.\304>\203m.\305\30
17960	36 08 5c 22 03 5c 33 30 37 5c 33 31 30 5c 32 31 31 03 5c 32 30 33 3e 00 03 5c 32 31 31 41 5c 32	6.\".\307\310\211.\203>..\211A\2
17980	36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 5c 33 31 31 02 5c 33	62.\242\262..\262..T\262.\311.\3
179a0	31 32 06 07 23 5c 32 31 30 5c 32 30 32 21 00 5c 32 36 36 04 02 5c 33 30 37 5c 33 31 30 5c 32 31	12..#\210\202!.\266..\307\310\21
179c0	31 03 5c 32 30 33 68 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36	1.\203h..\211A\262.\242\262..\26
179e0	32 01 02 54 5c 32 36 32 03 5c 33 31 33 02 06 06 5c 22 5c 32 30 34 44 00 01 06 06 42 5c 32 36 32	2..T\262.\313...\"\204D....B\262
17a00	06 5c 32 30 32 44 00 5c 32 36 36 05 5c 32 30 32 5c 32 32 35 00 01 5c 33 30 37 5c 33 31 30 5c 32	.\202D.\266.\202\225..\307\310\2
17a20	31 31 03 5c 32 30 33 5c 32 32 33 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02	11.\203\223..\211A\262.\242\262.
17a40	02 5c 32 36 32 01 02 54 5c 32 36 32 03 5c 33 31 34 05 03 5c 22 5c 32 30 34 71 00 01 05 42 5c 32	.\262..T\262.\314..\"\204q...B\2
17a60	36 32 05 5c 32 30 32 71 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 29 5c 32 30 37 22 20 5b 2d 63	62.\202q.\266.\211\237)\207".[-c
17a80	6f 6d 70 61 72 65 2d 66 6e 20 72 65 76 65 72 73 65 20 62 6f 75 6e 64 70 20 65 71 75 61 6c 20 28	ompare-fn.reverse.boundp.equal.(
17aa0	65 71 20 65 71 6c 20 65 71 75 61 6c 29 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74	eq.eql.equal).make-hash-table.:t
17ac0	65 73 74 20 30 20 6e 69 6c 20 70 75 74 68 61 73 68 20 74 20 67 65 74 68 61 73 68 20 2d 63 6f 6e	est.0.nil.puthash.t.gethash.-con
17ae0	74 61 69 6e 73 5c 3f 5d 20 31 33 20 28 23 24 20 2e 20 39 36 33 35 32 29 5d 29 0a 23 40 31 36 38	tains\?].13.(#$...96352)]).#@168
17b00	20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20 65 6c 65 6d 65 6e	.Return.a.new.list.of.the.elemen
17b20	74 73 20 61 70 70 65 61 72 69 6e 67 20 69 6e 20 62 6f 74 68 20 4c 49 53 54 31 20 61 6e 64 20 4c	ts.appearing.in.both.LIST1.and.L
17b40	49 53 54 32 2e 0a 45 71 75 61 6c 69 74 79 20 69 73 20 64 65 66 69 6e 65 64 20 62 79 20 74 68 65	IST2..Equality.is.defined.by.the
17b60	20 76 61 6c 75 65 20 6f 66 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 20 69 66 20 6e 6f 6e 2d 6e	.value.of.`-compare-fn'.if.non-n
17b80	69 6c 3b 0a 6f 74 68 65 72 77 69 73 65 20 60 65 71 75 61 6c 27 2e 0a 0a 28 66 6e 20 4c 49 53 54	il;.otherwise.`equal'...(fn.LIST
17ba0	20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 74 65 72 73 65 63 74 69 6f	.LIST2)..(defalias.'-intersectio
17bc0	6e 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 28	n.#[514."\300.\301\300\211.\203(
17be0	00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36	..\211A\262.\242\262..\262..T\26
17c00	32 03 5c 33 30 32 06 06 03 5c 22 5c 32 30 33 05 00 01 05 42 5c 32 36 32 05 5c 32 30 32 05 00 5c	2.\302...\"\203....B\262.\202..\
17c20	32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20 2d 63 6f 6e 74 61 69	266.\211\237\207".[nil.0.-contai
17c40	6e 73 5c 3f 5d 20 31 30 20 28 23 24 20 2e 20 39 37 30 32 35 29 5d 29 0a 23 40 31 37 34 20 52 65	ns\?].10.(#$...97025)]).#@174.Re
17c60	74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 6f 6e 6c 79 20 74 68 65 20 6d 65	turn.a.new.list.with.only.the.me
17c80	6d 62 65 72 73 20 6f 66 20 4c 49 53 54 20 74 68 61 74 20 61 72 65 20 6e 6f 74 20 69 6e 20 4c 49	mbers.of.LIST.that.are.not.in.LI
17ca0	53 54 32 2e 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20 65 71 75 61 6c 69 74 79 20 69 73 20 64 6f	ST2..The.test.for.equality.is.do
17cc0	6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2c 0a 6f 72 20 77 69 74 68 20 60 2d 63 6f 6d 70 61	ne.with.`equal',.or.with.`-compa
17ce0	72 65 2d 66 6e 27 20 69 66 20 74 68 61 74 27 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 6e 20 4c	re-fn'.if.that's.non-nil...(fn.L
17d00	49 53 54 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 69 66 66 65 72 65 6e	IST.LIST2)..(defalias.'-differen
17d20	63 65 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33	ce.#[514."\300.\301\300\211.\203
17d40	28 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32	(..\211A\262.\242\262..\262..T\2
17d60	36 32 03 5c 33 30 32 06 06 03 5c 22 5c 32 30 34 05 00 01 05 42 5c 32 36 32 05 5c 32 30 32 05 00	62.\302...\"\204....B\262.\202..
17d80	5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20 2d 63 6f 6e 74 61	\266.\211\237\207".[nil.0.-conta
17da0	69 6e 73 5c 3f 5d 20 31 30 20 28 23 24 20 2e 20 39 37 33 37 34 29 5d 29 0a 23 40 34 32 20 52 65	ins\?].10.(#$...97374)]).#@42.Re
17dc0	74 75 72 6e 20 74 68 65 20 70 6f 77 65 72 20 73 65 74 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e	turn.the.power.set.of.LIST...(fn
17de0	20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 6f 77 65 72 73 65 74 20 23 5b 32	.LIST)..(defalias.'-powerset.#[2
17e00	35 37 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 41 21 5c 33 30	57."\211\204..\300\207\301.A!\30
17e20	32 5c 33 30 33 5c 33 30 34 5c 33 30 35 05 5c 22 03 5c 22 02 5c 22 5c 32 30 37 22 20 5b 28 6e 69	2\303\304\305.\".\".\"\207".[(ni
17e40	6c 29 20 2d 70 6f 77 65 72 73 65 74 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d	l).-powerset.append.mapcar.make-
17e60	63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 30 40 01 42 5c 32 30 37 22 20 5b 56 30 5d	closure.#[257."\300@.B\207".[V0]
17e80	20 33 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 5d 20 37 20 28 23 24 20 2e 20 39 37 37 32 36 29	.3."\n\n(fn.X)"]].7.(#$...97726)
17ea0	5d 29 0a 23 40 34 35 20 52 65 74 75 72 6e 20 74 68 65 20 70 65 72 6d 75 74 61 74 69 6f 6e 73 20	]).#@45.Return.the.permutations.
17ec0	6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	of.LIST...(fn.LIST)..(defalias.'
17ee0	2d 70 65 72 6d 75 74 61 74 69 6f 6e 73 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 34 06 00 5c	-permutations.#[257."\211\204..\
17f00	33 30 30 5c 32 30 37 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 05 5c 22 04 5c	300\207\301\302\303\304\305.\".\
17f20	22 5c 22 5c 32 30 37 22 20 5b 28 6e 69 6c 29 20 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6d 61 70	"\"\207".[(nil).apply.append.map
17f40	63 61 72 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 32	car.make-closure.#[257."\301\302
17f60	5c 33 30 33 03 5c 22 5c 33 30 34 5c 33 30 35 04 5c 33 30 30 5c 22 21 5c 22 5c 32 30 37 22 20 5b	\303.\"\304\305.\300\"!\"\207".[
17f80	56 30 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33	V0.mapcar.make-closure.#[257."\3
17fa0	30 30 01 42 5c 32 30 37 22 20 5b 56 30 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 50 45 52 4d 29 22	00.B\207".[V0].3."\n\n(fn.PERM)"
17fc0	5d 20 2d 70 65 72 6d 75 74 61 74 69 6f 6e 73 20 72 65 6d 6f 76 65 5d 20 37 20 22 5c 6e 5c 6e 28	].-permutations.remove].7."\n\n(
17fe0	66 6e 20 58 29 22 5d 5d 20 37 20 28 23 24 20 2e 20 39 37 39 36 30 29 5d 29 0a 23 40 34 31 20 52	fn.X)"]].7.(#$...97960)]).#@41.R
18000	65 74 75 72 6e 20 61 6c 6c 20 70 72 65 66 69 78 65 73 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e	eturn.all.prefixes.of.LIST...(fn
18020	20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 69 74 73 20 23 5b 32 35 37 20	.LIST)..(defalias.'-inits.#[257.
18040	22 5c 32 31 31 43 5c 33 30 30 02 21 5c 32 36 32 02 01 5c 32 30 33 19 00 5c 33 30 30 02 41 5c 32	"\211C\300.!\262..\203..\300.A\2
18060	31 31 5c 32 36 32 04 21 01 42 5c 32 36 32 01 5c 32 30 32 07 00 5c 32 30 37 22 20 5b 72 65 76 65	11\262.!.B\262.\202..\207".[reve
18080	72 73 65 5d 20 35 20 28 23 24 20 2e 20 39 38 33 30 33 29 5d 29 0a 23 40 34 30 20 52 65 74 75 72	rse].5.(#$...98303)]).#@40.Retur
180a0	6e 20 61 6c 6c 20 73 75 66 66 69 78 65 73 20 6f 66 20 4c 49 53 54 0a 0a 28 66 6e 20 4c 49 53 54	n.all.suffixes.of.LIST..(fn.LIST
180c0	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 69 6c 73 20 23 5b 32 35 37 20 22 5c 33 30 30	)..(defalias.'-tails.#[257."\300
180e0	5c 33 30 31 5c 33 30 32 03 23 5c 32 30 37 22 20 5b 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66	\301\302.#\207".[-reductions-r-f
18100	72 6f 6d 20 63 6f 6e 73 20 6e 69 6c 5d 20 35 20 28 23 24 20 2e 20 39 38 34 35 39 29 5d 29 0a 23	rom.cons.nil].5.(#$...98459)]).#
18120	40 36 32 20 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 63 6f 6d 6d 6f 6e 20 70 72	@62.Return.the.longest.common.pr
18140	65 66 69 78 20 6f 66 20 4c 49 53 54 53 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 4c 49 53 54 53 29	efix.of.LISTS...(fn.&rest.LISTS)
18160	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 23 5b 31 32	..(defalias.'-common-prefix.#[12
18180	38 20 22 5c 32 31 31 5c 32 30 33 6c 00 5c 32 31 31 40 01 41 5c 33 30 30 5c 33 30 31 5c 32 31 31	8."\211\203l.\211@.A\300\301\211
181a0	03 5c 32 30 33 69 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32	.\203i..\211A\262.\242\262..\262
181c0	01 02 54 5c 32 36 32 03 5c 33 30 31 02 5c 33 30 30 5c 33 30 31 5c 32 31 31 5c 32 31 31 04 5c 32	..T\262.\301.\300\301\211\211.\2
181e0	30 33 5e 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c	03^..\211A\262.\242\262..\262..\
18200	32 31 31 5c 32 36 32 02 5c 32 30 33 5e 00 06 5c 6e 5c 32 30 33 5e 00 06 5c 6e 5c 32 31 31 41 5c	211\262.\203^..\n\203^..\n\211A\
18220	32 36 32 5c 66 5c 32 34 32 02 5c 32 33 32 5c 32 30 33 5e 00 02 5c 32 36 32 02 03 5c 32 36 32 01	262\f\242.\232\203^..\262..\262.
18240	03 54 5c 32 36 32 04 01 06 06 42 5c 32 36 32 06 5c 32 30 32 24 00 5c 32 36 36 05 5c 32 31 31 5c	.T\262....B\262.\202$.\266.\211\
18260	32 33 37 5c 32 36 32 01 5c 32 36 32 05 5c 32 30 32 0b 00 5c 32 36 36 04 5c 32 30 37 5c 33 30 31	237\262.\262.\202..\266.\207\301
18280	5c 32 31 31 5c 32 31 31 5c 33 30 30 5c 33 30 31 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 5c 32 35	\211\211\300\301\211\211.\203\25
182a0	35 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31	5..\211A\262.\242\262..\262..\21
182c0	31 5c 32 36 32 02 5c 32 30 33 5c 32 35 35 00 06 06 5c 32 30 33 5c 32 35 35 00 06 06 5c 32 31 31	1\262.\203\255...\203\255...\211
182e0	41 5c 32 36 32 08 5c 32 34 32 02 5c 32 33 32 5c 32 30 33 5c 32 35 35 00 02 5c 32 36 32 02 03 5c	A\262.\242.\232\203\255..\262..\
18300	32 36 32 01 03 54 5c 32 36 32 04 01 06 06 42 5c 32 36 32 06 5c 32 30 32 73 00 5c 32 36 36 05 5c	262..T\262....B\262.\202s.\266.\
18320	32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 34 20 28 23 24 20 2e 20 39 38	211\237\207".[0.nil].14.(#$...98
18340	35 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 32 5c	596)]).(byte-code."\300\301\302\
18360	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 5b	303#\300\301\304\303#\300\207".[
18380	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 70 75 72 65	function-put.-common-prefix.pure
183a0	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 32 20 52 65 74	.t.side-effect-free].5).#@62.Ret
183c0	75 72 6e 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 63 6f 6d 6d 6f 6e 20 73 75 66 66 69 78 20 6f 66	urn.the.longest.common.suffix.of
183e0	20 4c 49 53 54 53 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61	.LISTS...(fn.&rest.LISTS)..(defa
18400	6c 69 61 73 20 27 2d 63 6f 6d 6d 6f 6e 2d 73 75 66 66 69 78 20 23 5b 31 32 38 20 22 5c 33 30 30	lias.'-common-suffix.#[128."\300
18420	5c 33 30 31 5c 33 30 32 5c 33 30 33 04 5c 22 5c 22 5c 32 33 37 5c 32 30 37 22 20 5b 61 70 70 6c	\301\302\303.\"\"\237\207".[appl
18440	79 20 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 6d 61 70 63 61 72 20 72 65 76 65 72 73 65 5d	y.-common-prefix.mapcar.reverse]
18460	20 36 20 28 23 24 20 2e 20 39 39 32 36 31 29 5d 29 0a 23 40 31 36 39 20 52 65 74 75 72 6e 20 6e	.6.(#$...99261)]).#@169.Return.n
18480	6f 6e 2d 6e 69 6c 20 69 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 45 4c 45 4d 45 4e 54 2e	on-nil.if.LIST.contains.ELEMENT.
184a0	0a 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20 65 71 75 61 6c 69 74 79 20 69 73 20 64 6f 6e 65 20	..The.test.for.equality.is.done.
184c0	77 69 74 68 20 60 65 71 75 61 6c 27 2c 20 6f 72 20 77 69 74 68 20 60 2d 63 6f 6d 70 61 72 65 2d	with.`equal',.or.with.`-compare-
184e0	66 6e 27 0a 69 66 20 74 68 61 74 27 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60	fn'.if.that's.non-nil...Alias:.`
18500	2d 63 6f 6e 74 61 69 6e 73 2d 70 27 0a 0a 28 66 6e 20 4c 49 53 54 20 45 4c 45 4d 45 4e 54 29 1f	-contains-p'..(fn.LIST.ELEMENT).
18520	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 74 61 69 6e 73 5c 3f 20 23 5b 35 31 34 20 22 08	.(defalias.'-contains\?.#[514.".
18540	5c 33 30 31 5c 32 36 37 5c 32 30 32 19 00 5c 32 31 31 02 5c 32 33 35 5c 32 30 32 30 00 5c 32 31	\301\267\202..\211.\235\2020.\21
18560	31 02 3e 5c 32 30 32 30 00 5c 33 30 32 01 03 5c 22 5c 32 30 32 30 00 01 5c 32 31 31 5c 32 30 33	1.>\2020.\302..\"\2020..\211\203
18580	2d 00 08 02 02 40 5c 22 5c 32 30 34 2d 00 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 1a 00 5c 32	-....@\"\204-.\211A\262.\202..\2
185a0	31 31 5c 32 36 32 01 3f 3f 5c 32 30 37 22 20 5b 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 23 73 28 68	11\262.??\207".[-compare-fn.#s(h
185c0	61 73 68 2d 74 61 62 6c 65 20 73 69 7a 65 20 33 20 74 65 73 74 20 65 71 20 72 65 68 61 73 68 2d	ash-table.size.3.test.eq.rehash-
185e0	73 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	size.1.5.rehash-threshold.0.8125
18600	20 70 75 72 65 63 6f 70 79 20 74 20 64 61 74 61 20 28 6e 69 6c 20 36 20 65 71 20 31 32 20 65 71	.purecopy.t.data.(nil.6.eq.12.eq
18620	6c 20 31 38 29 29 20 6d 65 6d 71 6c 5d 20 36 20 28 23 24 20 2e 20 39 39 34 34 38 29 5d 29 0a 28	l.18)).memql].6.(#$...99448)]).(
18640	64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 74 61 69 6e 73 2d 70 20 27 2d 63 6f 6e 74 61 69 6e 73	defalias.'-contains-p.'-contains
18660	5c 3f 29 0a 23 40 31 34 39 20 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 4c 49 53 54 20 61 6e	\?).#@149.Return.true.if.LIST.an
18680	64 20 4c 49 53 54 32 20 68 61 73 20 74 68 65 20 73 61 6d 65 20 69 74 65 6d 73 2e 0a 0a 54 68 65	d.LIST2.has.the.same.items...The
186a0	20 6f 72 64 65 72 20 6f 66 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 6c 69	.order.of.the.elements.in.the.li
186c0	73 74 73 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 74 65 72 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 73	sts.does.not.matter...Alias:.`-s
186e0	61 6d 65 2d 69 74 65 6d 73 2d 70 27 0a 0a 28 66 6e 20 4c 49 53 54 20 4c 49 53 54 32 29 1f 0a 28	ame-items-p'..(fn.LIST.LIST2)..(
18700	64 65 66 61 6c 69 61 73 20 27 2d 73 61 6d 65 2d 69 74 65 6d 73 5c 3f 20 23 5b 35 31 34 20 22 01	defalias.'-same-items\?.#[514.".
18720	47 01 47 01 01 55 5c 32 30 35 11 00 01 5c 33 30 30 05 05 5c 22 47 55 5c 32 30 37 22 20 5b 2d 69	G.G..U\205...\300..\"GU\207".[-i
18740	6e 74 65 72 73 65 63 74 69 6f 6e 5d 20 38 20 28 23 24 20 2e 20 39 39 39 34 36 29 5d 29 0a 28 64	ntersection].8.(#$...99946)]).(d
18760	65 66 61 6c 69 61 73 20 27 2d 73 61 6d 65 2d 69 74 65 6d 73 2d 70 20 27 2d 73 61 6d 65 2d 69 74	efalias.'-same-items-p.'-same-it
18780	65 6d 73 5c 3f 29 0a 23 40 38 39 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 50 52	ems\?).#@89.Return.non-nil.if.PR
187a0	45 46 49 58 20 69 73 20 61 20 70 72 65 66 69 78 20 6f 66 20 4c 49 53 54 2e 0a 0a 41 6c 69 61 73	EFIX.is.a.prefix.of.LIST...Alias
187c0	3a 20 60 2d 69 73 2d 70 72 65 66 69 78 2d 70 27 2e 0a 0a 28 66 6e 20 50 52 45 46 49 58 20 4c 49	:.`-is-prefix-p'...(fn.PREFIX.LI
187e0	53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 73 2d 70 72 65 66 69 78 5c 3f 20 23 5b 35	ST)..(defalias.'-is-prefix\?.#[5
18800	31 34 20 22 5c 32 31 31 5c 33 30 30 5c 33 30 31 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 39 00 04	14."\211\300\301\211\211.\2039..
18820	5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32	\211A\262.\242\262..\262..\211\2
18840	36 32 02 5c 32 30 33 39 00 06 06 40 02 5c 32 33 32 5c 32 30 33 39 00 06 06 41 5c 32 31 31 5c 32	62.\2039...@.\232\2039...A\211\2
18860	36 32 08 5c 32 30 33 39 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 30 32	62.\2039..\262..\262..T\262.\202
18880	05 00 5c 32 36 36 05 01 3f 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 31	..\266..?\207".[0.nil].9.(#$...1
188a0	30 30 32 33 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	00236)]).(byte-code."\300\301\30
188c0	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"
188e0	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 73 2d 70 72 65 66 69 78 5c 3f 20 70 75 72 65	.[function-put.-is-prefix\?.pure
18900	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 39 20 52 65 74	.t.side-effect-free].5).#@89.Ret
18920	75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 53 55 46 46 49 58 20 69 73 20 61 20 73 75 66 66 69	urn.non-nil.if.SUFFIX.is.a.suffi
18940	78 20 6f 66 20 4c 49 53 54 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 69 73 2d 73 75 66 66 69 78 2d 70	x.of.LIST...Alias:.`-is-suffix-p
18960	27 2e 0a 0a 28 66 6e 20 53 55 46 46 49 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	'...(fn.SUFFIX.LIST)..(defalias.
18980	27 2d 69 73 2d 73 75 66 66 69 78 5c 3f 20 23 5b 35 31 34 20 22 01 5c 33 30 30 02 04 47 5c 22 5c	'-is-suffix\?.#[514.".\300..G\"\
189a0	32 33 32 5c 32 30 37 22 20 5b 6c 61 73 74 5d 20 36 20 28 23 24 20 2e 20 31 30 30 36 33 37 29 5d	232\207".[last].6.(#$...100637)]
189c0	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#\
189e0	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
18a00	69 6f 6e 2d 70 75 74 20 2d 69 73 2d 73 75 66 66 69 78 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65	ion-put.-is-suffix\?.pure.t.side
18a20	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 31 38 20 52 65 74 75 72 6e 20 6e 6f	-effect-free].5).#@118.Return.no
18a40	6e 2d 6e 69 6c 20 69 66 20 49 4e 46 49 58 20 69 73 20 69 6e 66 69 78 20 6f 66 20 4c 49 53 54 2e	n-nil.if.INFIX.is.infix.of.LIST.
18a60	0a 0a 54 68 69 73 20 6f 70 65 72 61 74 69 6f 6e 20 72 75 6e 73 20 69 6e 20 4f 28 6e 5e 32 29 20	..This.operation.runs.in.O(n^2).
18a80	74 69 6d 65 0a 0a 41 6c 69 61 73 3a 20 60 2d 69 73 2d 69 6e 66 69 78 2d 70 27 0a 0a 28 66 6e 20	time..Alias:.`-is-infix-p'..(fn.
18aa0	49 4e 46 49 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 73 2d 69 6e 66 69	INFIX.LIST)..(defalias.'-is-infi
18ac0	78 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 5c 32 30 34 16 00 01 5c 32 30 33 16 00	x\?.#[514."\300\211\204...\203..
18ae0	5c 33 30 31 03 03 5c 22 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 01 00 5c 32 30 37 22 20	\301..\"\262..A\262.\202..\207".
18b00	5b 6e 69 6c 20 2d 69 73 2d 70 72 65 66 69 78 5c 3f 5d 20 36 20 28 23 24 20 2e 20 31 30 30 39 31	[nil.-is-prefix\?].6.(#$...10091
18b20	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 5c 33 30 32 5c 33 30	9)]).(byte-code."\300\301\302\30
18b40	33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c	3#\300\301\304\303#\305\306\307\
18b60	22 5c 32 31 30 5c 33 30 35 5c 33 31 30 5c 33 31 31 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31 32 5c	"\210\305\310\311\"\210\305\312\
18b80	33 30 31 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 73 2d 69 6e 66	301\"\207".[function-put.-is-inf
18ba0	69 78 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 20 64 65 66	ix\?.pure.t.side-effect-free.def
18bc0	61 6c 69 61 73 20 2d 69 73 2d 70 72 65 66 69 78 2d 70 20 2d 69 73 2d 70 72 65 66 69 78 5c 3f 20	alias.-is-prefix-p.-is-prefix\?.
18be0	2d 69 73 2d 73 75 66 66 69 78 2d 70 20 2d 69 73 2d 73 75 66 66 69 78 5c 3f 20 2d 69 73 2d 69 6e	-is-suffix-p.-is-suffix\?.-is-in
18c00	66 69 78 2d 70 5d 20 35 29 0a 23 40 32 36 38 20 53 6f 72 74 20 4c 49 53 54 2c 20 73 74 61 62 6c	fix-p].5).#@268.Sort.LIST,.stabl
18c20	79 2c 20 63 6f 6d 70 61 72 69 6e 67 20 65 6c 65 6d 65 6e 74 73 20 75 73 69 6e 67 20 43 4f 4d 50	y,.comparing.elements.using.COMP
18c40	41 52 41 54 4f 52 2e 0a 52 65 74 75 72 6e 20 74 68 65 20 73 6f 72 74 65 64 20 6c 69 73 74 2e 20	ARATOR..Return.the.sorted.list..
18c60	20 4c 49 53 54 20 69 73 20 4e 4f 54 20 6d 6f 64 69 66 69 65 64 20 62 79 20 73 69 64 65 20 65 66	.LIST.is.NOT.modified.by.side.ef
18c80	66 65 63 74 73 2e 0a 43 4f 4d 50 41 52 41 54 4f 52 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68	fects..COMPARATOR.is.called.with
18ca0	20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 2c 20 61 6e 64 20 73 68 6f 75 6c	.two.elements.of.LIST,.and.shoul
18cc0	64 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 0a 69 66 20 74 68 65 20 66 69 72 73 74 20 65 6c	d.return.non-nil.if.the.first.el
18ce0	65 6d 65 6e 74 20 73 68 6f 75 6c 64 20 73 6f 72 74 20 62 65 66 6f 72 65 20 74 68 65 20 73 65 63	ement.should.sort.before.the.sec
18d00	6f 6e 64 2e 0a 0a 28 66 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20 4c 49 53 54 29 1f 0a 28 64 65 66	ond...(fn.COMPARATOR.LIST)..(def
18d20	61 6c 69 61 73 20 27 2d 73 6f 72 74 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 21 03 5c	alias.'-sort.#[514."\300\301.!.\
18d40	22 5c 32 30 37 22 20 5b 73 6f 72 74 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 5d 20 35 20 28 23	"\207".[sort.copy-sequence].5.(#
18d60	24 20 2e 20 31 30 31 33 39 32 29 5d 29 0a 23 40 34 34 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72	$...101392)]).#@44.Anaphoric.for
18d80	6d 20 6f 66 20 60 2d 73 6f 72 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28	m.of.`-sort'...(fn.FORM.LIST)..(
18da0	64 65 66 61 6c 69 61 73 20 27 2d 2d 73 6f 72 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34	defalias.'--sort.'(macro...#[514
18dc0	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 73 6f 72 74 20 6c	."\300\301\302.E.E\207".[-sort.l
18de0	61 6d 62 64 61 20 28 69 74 20 6f 74 68 65 72 29 5d 20 36 20 28 23 24 20 2e 20 31 30 31 37 34 37	ambda.(it.other)].6.(#$...101747
18e00	29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 6f 72 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73	)])).(put.'--sort.'edebug-form-s
18e20	70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 39 38 20 45 6e 73 75	pec.'(def-form.form)).#@398.Ensu
18e40	72 65 20 41 52 47 20 69 73 20 61 20 6c 69 73 74 2e 0a 49 66 20 41 52 47 20 69 73 20 61 6c 72 65	re.ARG.is.a.list..If.ARG.is.alre
18e60	61 64 79 20 61 20 6c 69 73 74 2c 20 72 65 74 75 72 6e 20 69 74 20 61 73 20 69 73 20 28 6e 6f 74	ady.a.list,.return.it.as.is.(not
18e80	20 61 20 63 6f 70 79 29 2e 0a 4f 74 68 65 72 77 69 73 65 2c 20 72 65 74 75 72 6e 20 61 20 6e 65	.a.copy)..Otherwise,.return.a.ne
18ea0	77 20 6c 69 73 74 20 77 69 74 68 20 41 52 47 20 61 73 20 69 74 73 20 6f 6e 6c 79 20 65 6c 65 6d	w.list.with.ARG.as.its.only.elem
18ec0	65 6e 74 2e 0a 0a 41 6e 6f 74 68 65 72 20 73 75 70 70 6f 72 74 65 64 20 63 61 6c 6c 69 6e 67 20	ent...Another.supported.calling.
18ee0	63 6f 6e 76 65 6e 74 69 6f 6e 20 69 73 20 28 2d 6c 69 73 74 20 26 72 65 73 74 20 41 52 47 53 29	convention.is.(-list.&rest.ARGS)
18f00	2e 0a 49 6e 20 74 68 69 73 20 63 61 73 65 2c 20 69 66 20 41 52 47 20 69 73 20 6e 6f 74 20 61 20	..In.this.case,.if.ARG.is.not.a.
18f20	6c 69 73 74 2c 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 61 6c 6c 20 6f 66 0a 41 52 47	list,.a.new.list.with.all.of.ARG
18f40	53 20 61 73 20 65 6c 65 6d 65 6e 74 73 20 69 73 20 72 65 74 75 72 6e 65 64 2e 20 20 54 68 69 73	S.as.elements.is.returned...This
18f60	20 75 73 65 20 69 73 20 73 75 70 70 6f 72 74 65 64 20 66 6f 72 0a 62 61 63 6b 77 61 72 64 20 63	.use.is.supported.for.backward.c
18f80	6f 6d 70 61 74 69 62 69 6c 69 74 79 20 61 6e 64 20 69 73 20 6f 74 68 65 72 77 69 73 65 20 64 65	ompatibility.and.is.otherwise.de
18fa0	70 72 65 63 61 74 65 64 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 41 52 47 20 26 72 65	precated...(fn.&optional.ARG.&re
18fc0	73 74 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 69 73 74 20 23 5b 33 38 34	st.ARGS)..(defalias.'-list.#[384
18fe0	20 22 01 3c 5c 32 30 33 07 00 01 5c 32 30 37 01 01 42 5c 32 30 37 22 20 5b 5d 20 34 20 28 23 24	.".<\203...\207..B\207".[].4.(#$
19000	20 2e 20 31 30 31 39 34 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	...101948)]).(byte-code."\300\30
19020	31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c	1\302\303#\210\304\301\305\306#\
19040	33 30 34 5c 33 30 31 5c 33 30 37 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 73 65 74 2d 61	304\301\307\306#\300\207".[set-a
19060	64 76 65 72 74 69 73 65 64 2d 63 61 6c 6c 69 6e 67 2d 63 6f 6e 76 65 6e 74 69 6f 6e 20 2d 6c 69	dvertised-calling-convention.-li
19080	73 74 20 28 61 72 67 29 20 22 32 2e 31 38 2e 30 22 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 70	st.(arg)."2.18.0".function-put.p
190a0	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 31 30 30	ure.t.side-effect-free].5).#@100
190c0	20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 6c 65 6e 67 74 68 20 4e 20 77	.Return.a.new.list.of.length.N.w
190e0	69 74 68 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 62 65 69 6e 67 20 58 2e 0a 52 65 74 75 72 6e	ith.each.element.being.X..Return
19100	20 6e 69 6c 20 69 66 20 4e 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 31 2e 0a 0a 28 66 6e 20 4e	.nil.if.N.is.less.than.1...(fn.N
19120	20 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 65 61 74 20 23 5b 35 31 34 20 22 5c	.X)..(defalias.'-repeat.#[514."\
19140	33 30 30 02 21 5c 32 30 35 5c 6e 00 5c 33 30 31 02 02 5c 22 5c 32 30 37 22 20 5b 6e 61 74 6e 75	300.!\205\n.\301..\"\207".[natnu
19160	6d 70 20 6d 61 6b 65 2d 6c 69 73 74 5d 20 35 20 28 23 24 20 2e 20 31 30 32 35 39 33 29 5d 29 0a	mp.make-list].5.(#$...102593)]).
19180	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
191a0	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
191c0	6e 2d 70 75 74 20 2d 72 65 70 65 61 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74	n-put.-repeat.pure.t.side-effect
191e0	2d 66 72 65 65 5d 20 35 29 0a 23 40 33 36 20 52 65 74 75 72 6e 20 74 68 65 20 73 75 6d 20 6f 66	-free].5).#@36.Return.the.sum.of
19200	20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73	.LIST...(fn.LIST)..(defalias.'-s
19220	75 6d 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c	um.#[257."\300\301.\"\207".[appl
19240	79 20 2b 5d 20 34 20 28 23 24 20 2e 20 31 30 32 38 39 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64	y.+].4.(#$...102895)]).(byte-cod
19260	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
19280	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 2d 73 75	\303#\300\207".[function-put.-su
192a0	6d 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	m.pure.t.side-effect-free].5).#@
192c0	38 36 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 72 75 6e 6e 69 6e 67 20 73 75	86.Return.a.list.with.running.su
192e0	6d 73 20 6f 66 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 4c 49 53 54 20 6d 75 73 74 20 62	ms.of.items.in.LIST..LIST.must.b
19300	65 20 6e 6f 6e 2d 65 6d 70 74 79 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69	e.non-empty...(fn.LIST)..(defali
19320	61 73 20 27 2d 72 75 6e 6e 69 6e 67 2d 73 75 6d 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 34	as.'-running-sum.#[257."\211\204
19340	0b 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 44 5c 22 5c 32 31 30 5c 33 30 33 5c 33 30 34 02 5c	..\300\301\302.D\"\210\303\304.\
19360	22 5c 32 30 37 22 20 5b 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65	"\207".[signal.wrong-type-argume
19380	6e 74 20 63 6f 6e 73 70 20 2d 72 65 64 75 63 74 69 6f 6e 73 20 2b 5d 20 35 20 28 23 24 20 2e 20	nt.consp.-reductions.+].5.(#$...
193a0	31 30 33 31 30 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	103107)]).(byte-code."\300\301\3
193c0	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
193e0	22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 75 6e 6e 69 6e 67 2d 73 75 6d 20 70 75 72	".[function-put.-running-sum.pur
19400	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 34 30 20 52 65	e.t.side-effect-free].5).#@40.Re
19420	74 75 72 6e 20 74 68 65 20 70 72 6f 64 75 63 74 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c	turn.the.product.of.LIST...(fn.L
19440	49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 72 6f 64 75 63 74 20 23 5b 32 35 37 20	IST)..(defalias.'-product.#[257.
19460	22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 2a 5d 20 34 20 28 23	"\300\301.\"\207".[apply.*].4.(#
19480	24 20 2e 20 31 30 33 34 35 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	$...103454)]).(byte-code."\300\3
194a0	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
194c0	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 70 72 6f 64 75 63 74 20 70 75 72	\207".[function-put.-product.pur
194e0	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 39 30 20 52 65	e.t.side-effect-free].5).#@90.Re
19500	74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 72 75 6e 6e 69 6e 67 20 70 72 6f 64 75 63 74	turn.a.list.with.running.product
19520	73 20 6f 66 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 4c 49 53 54 20 6d 75 73 74 20 62 65	s.of.items.in.LIST..LIST.must.be
19540	20 6e 6f 6e 2d 65 6d 70 74 79 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61	.non-empty...(fn.LIST)..(defalia
19560	73 20 27 2d 72 75 6e 6e 69 6e 67 2d 70 72 6f 64 75 63 74 20 23 5b 32 35 37 20 22 5c 32 31 31 5c	s.'-running-product.#[257."\211\
19580	32 30 34 0b 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 44 5c 22 5c 32 31 30 5c 33 30 33 5c 33 30	204..\300\301\302.D\"\210\303\30
195a0	34 02 5c 22 5c 32 30 37 22 20 5b 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67	4.\"\207".[signal.wrong-type-arg
195c0	75 6d 65 6e 74 20 63 6f 6e 73 70 20 2d 72 65 64 75 63 74 69 6f 6e 73 20 2a 5d 20 35 20 28 23 24	ument.consp.-reductions.*].5.(#$
195e0	20 2e 20 31 30 33 36 37 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	...103678)]).(byte-code."\300\30
19600	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\
19620	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 75 6e 6e 69 6e 67 2d 70 72 6f 64	207".[function-put.-running-prod
19640	75 63 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	uct.pure.t.side-effect-free].5).
19660	23 40 37 30 20 52 65 74 75 72 6e 20 74 68 65 20 6c 61 72 67 65 73 74 20 76 61 6c 75 65 20 66 72	#@70.Return.the.largest.value.fr
19680	6f 6d 20 4c 49 53 54 20 6f 66 20 6e 75 6d 62 65 72 73 20 6f 72 20 6d 61 72 6b 65 72 73 2e 0a 0a	om.LIST.of.numbers.or.markers...
196a0	28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 78 20 23 5b 32 35 37	(fn.LIST)..(defalias.'-max.#[257
196c0	20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 6d 61 78 5d 20 34	."\300\301.\"\207".[apply.max].4
196e0	20 28 23 24 20 2e 20 31 30 34 30 33 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	.(#$...104037)]).(byte-code."\30
19700	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#\
19720	33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6d 61 78 20 70 75 72 65	300\207".[function-put.-max.pure
19740	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 31 20 52 65 74	.t.side-effect-free].5).#@71.Ret
19760	75 72 6e 20 74 68 65 20 73 6d 61 6c 6c 65 73 74 20 76 61 6c 75 65 20 66 72 6f 6d 20 4c 49 53 54	urn.the.smallest.value.from.LIST
19780	20 6f 66 20 6e 75 6d 62 65 72 73 20 6f 72 20 6d 61 72 6b 65 72 73 2e 0a 0a 28 66 6e 20 4c 49 53	.of.numbers.or.markers...(fn.LIS
197a0	54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 69 6e 20 23 5b 32 35 37 20 22 5c 33 30 30 5c	T)..(defalias.'-min.#[257."\300\
197c0	33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 6d 69 6e 5d 20 34 20 28 23 24 20 2e 20	301.\"\207".[apply.min].4.(#$...
197e0	31 30 34 32 38 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	104285)]).(byte-code."\300\301\3
19800	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
19820	22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6d 69 6e 20 70 75 72 65 20 74 20 73 69 64 65	".[function-put.-min.pure.t.side
19840	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 32 32 35 20 54 61 6b 65 20 61 20 63 6f	-effect-free].5).#@225.Take.a.co
19860	6d 70 61 72 69 73 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20 61 6e 64	mparison.function.COMPARATOR.and
19880	20 61 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 0a 74 68 65 20 67 72 65 61 74 65 73 74 20	.a.LIST.and.return.the.greatest.
198a0	65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 20 62 79 20 74 68 65 20 63 6f 6d 70 61	element.of.the.list.by.the.compa
198c0	72 69 73 6f 6e 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 63 6f 6d 62 69 6e	rison.function...See.also.combin
198e0	61 74 6f 72 20 60 2d 6f 6e 27 20 77 68 69 63 68 20 63 61 6e 20 74 72 61 6e 73 66 6f 72 6d 20 74	ator.`-on'.which.can.transform.t
19900	68 65 20 76 61 6c 75 65 73 20 62 65 66 6f 72 65 0a 63 6f 6d 70 61 72 69 6e 67 20 74 68 65 6d 2e	he.values.before.comparing.them.
19920	0a 0a 28 66 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61	..(fn.COMPARATOR.LIST)..(defalia
19940	73 20 27 2d 6d 61 78 2d 62 79 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 34 00 5c 32 31 31	s.'-max-by.#[514."\211\2034.\211
19960	40 01 41 5c 33 30 30 5c 33 30 31 5c 32 31 31 03 5c 32 30 33 31 00 03 5c 32 31 31 41 5c 32 36 32	@.A\300\301\211.\2031..\211A\262
19980	05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 06 02 06 06 5c 22 5c 32	.\242\262..\262..T\262......\"\2
199a0	30 33 2b 00 01 5c 32 30 32 2c 00 04 5c 32 36 32 05 5c 32 30 32 0b 00 5c 32 36 36 04 5c 32 30 37	03+..\202,..\262.\202..\266.\207
199c0	01 5c 33 30 31 5c 32 31 31 5c 22 5c 32 31 30 5c 33 30 31 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d	.\301\211\"\210\301\207".[0.nil]
199e0	20 31 30 20 28 23 24 20 2e 20 31 30 34 35 33 35 29 5d 29 0a 23 40 32 32 32 20 54 61 6b 65 20 61	.10.(#$...104535)]).#@222.Take.a
19a00	20 63 6f 6d 70 61 72 69 73 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20	.comparison.function.COMPARATOR.
19a20	61 6e 64 20 61 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 0a 74 68 65 20 6c 65 61 73 74 20	and.a.LIST.and.return.the.least.
19a40	65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 20 62 79 20 74 68 65 20 63 6f 6d 70 61	element.of.the.list.by.the.compa
19a60	72 69 73 6f 6e 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 63 6f 6d 62 69 6e	rison.function...See.also.combin
19a80	61 74 6f 72 20 60 2d 6f 6e 27 20 77 68 69 63 68 20 63 61 6e 20 74 72 61 6e 73 66 6f 72 6d 20 74	ator.`-on'.which.can.transform.t
19aa0	68 65 20 76 61 6c 75 65 73 20 62 65 66 6f 72 65 0a 63 6f 6d 70 61 72 69 6e 67 20 74 68 65 6d 2e	he.values.before.comparing.them.
19ac0	0a 0a 28 66 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61	..(fn.COMPARATOR.LIST)..(defalia
19ae0	73 20 27 2d 6d 69 6e 2d 62 79 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 34 00 5c 32 31 31	s.'-min-by.#[514."\211\2034.\211
19b00	40 01 41 5c 33 30 30 5c 33 30 31 5c 32 31 31 03 5c 32 30 33 31 00 03 5c 32 31 31 41 5c 32 36 32	@.A\300\301\211.\2031..\211A\262
19b20	05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 06 02 06 06 5c 22 5c 32	.\242\262..\262..T\262......\"\2
19b40	30 33 2b 00 04 5c 32 30 32 2c 00 01 5c 32 36 32 05 5c 32 30 32 0b 00 5c 32 36 36 04 5c 32 30 37	03+..\202,..\262.\202..\266.\207
19b60	01 5c 33 30 31 5c 32 31 31 5c 22 5c 32 31 30 5c 33 30 31 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d	.\301\211\"\210\301\207".[0.nil]
19b80	20 31 30 20 28 23 24 20 2e 20 31 30 34 39 35 34 29 5d 29 0a 23 40 31 31 37 20 41 6e 61 70 68 6f	.10.(#$...104954)]).#@117.Anapho
19ba0	72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 6d 61 78 2d 62 79 27 2e 0a 0a 54 68 65 20 69	ric.version.of.`-max-by'...The.i
19bc0	74 65 6d 73 20 66 6f 72 20 74 68 65 20 63 6f 6d 70 61 72 61 74 6f 72 20 66 6f 72 6d 20 61 72 65	tems.for.the.comparator.form.are
19be0	20 65 78 70 6f 73 65 64 20 61 73 20 22 69 74 22 20 61 6e 64 20 22 6f 74 68 65 72 22 2e 0a 0a 28	.exposed.as."it".and."other"...(
19c00	66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 78 2d	fn.FORM.LIST)..(defalias.'--max-
19c20	62 79 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	by.'(macro...#[514."\300\301\302
19c40	04 45 02 45 5c 32 30 37 22 20 5b 2d 6d 61 78 2d 62 79 20 6c 61 6d 62 64 61 20 28 69 74 20 6f 74	.E.E\207".[-max-by.lambda.(it.ot
19c60	68 65 72 29 5d 20 36 20 28 23 24 20 2e 20 31 30 35 33 37 30 29 5d 29 29 0a 28 70 75 74 20 27 2d	her)].6.(#$...105370)])).(put.'-
19c80	2d 6d 61 78 2d 62 79 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d	-max-by.'edebug-form-spec.'(def-
19ca0	66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 31 37 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73	form.form)).#@117.Anaphoric.vers
19cc0	69 6f 6e 20 6f 66 20 60 2d 6d 69 6e 2d 62 79 27 2e 0a 0a 54 68 65 20 69 74 65 6d 73 20 66 6f 72	ion.of.`-min-by'...The.items.for
19ce0	20 74 68 65 20 63 6f 6d 70 61 72 61 74 6f 72 20 66 6f 72 6d 20 61 72 65 20 65 78 70 6f 73 65 64	.the.comparator.form.are.exposed
19d00	20 61 73 20 22 69 74 22 20 61 6e 64 20 22 6f 74 68 65 72 22 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20	.as."it".and."other"...(fn.FORM.
19d20	4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 69 6e 2d 62 79 20 27 28 6d 61 63	LIST)..(defalias.'--min-by.'(mac
19d40	72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37	ro...#[514."\300\301\302.E.E\207
19d60	22 20 5b 2d 6d 69 6e 2d 62 79 20 6c 61 6d 62 64 61 20 28 69 74 20 6f 74 68 65 72 29 5d 20 36 20	".[-min-by.lambda.(it.other)].6.
19d80	28 23 24 20 2e 20 31 30 35 36 35 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 69 6e 2d 62 79 20	(#$...105650)])).(put.'--min-by.
19da0	27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72	'edebug-form-spec.'(def-form.for
19dc0	6d 29 29 0a 23 40 32 35 31 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69	m)).#@251.Return.a.list.containi
19de0	6e 67 20 43 4f 55 4e 54 20 6e 75 6d 62 65 72 73 2e 0a 53 74 61 72 74 73 20 66 72 6f 6d 20 53 54	ng.COUNT.numbers..Starts.from.ST
19e00	41 52 54 20 61 6e 64 20 61 64 64 73 20 53 54 45 50 20 65 61 63 68 20 74 69 6d 65 2e 20 20 54 68	ART.and.adds.STEP.each.time...Th
19e20	65 20 64 65 66 61 75 6c 74 20 53 54 41 52 54 20 69 73 0a 7a 65 72 6f 2c 20 74 68 65 20 64 65 66	e.default.START.is.zero,.the.def
19e40	61 75 6c 74 20 53 54 45 50 20 69 73 20 31 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 61	ault.STEP.is.1..This.function.ta
19e60	6b 65 73 20 69 74 73 20 6e 61 6d 65 20 66 72 6f 6d 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64	kes.its.name.from.the.correspond
19e80	69 6e 67 20 70 72 69 6d 69 74 69 76 65 20 69 6e 0a 74 68 65 20 41 50 4c 20 6c 61 6e 67 75 61 67	ing.primitive.in.the.APL.languag
19ea0	65 2e 0a 0a 28 66 6e 20 43 4f 55 4e 54 20 26 6f 70 74 69 6f 6e 61 6c 20 53 54 41 52 54 20 53 54	e...(fn.COUNT.&optional.START.ST
19ec0	45 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6f 74 61 20 23 5b 37 36 39 20 22 5c 33 30	EP)..(defalias.'-iota.#[769."\30
19ee0	30 03 21 5c 32 30 34 0d 00 5c 33 30 31 5c 33 30 32 5c 33 30 30 05 44 5c 22 5c 32 31 30 01 5c 32	0.!\204..\301\302\300.D\"\210.\2
19f00	30 34 14 00 5c 33 30 33 5c 32 36 32 02 5c 32 31 31 5c 32 30 34 1b 00 5c 33 30 34 5c 32 36 32 01	04..\303\262.\211\204..\304\262.
19f20	5c 32 31 31 5c 33 30 33 55 5c 32 30 33 26 00 5c 33 30 35 03 03 5c 22 5c 32 30 37 02 5c 33 30 33	\211\303U\203&.\305..\"\207.\303
19f40	56 5c 32 30 35 52 00 01 5c 32 31 31 43 04 53 5c 33 30 33 5c 32 31 31 02 57 5c 32 30 33 4c 00 5c	V\205R..\211C.S\303\211.W\203L.\
19f60	33 30 36 04 06 06 5c 5c 5c 32 31 31 5c 32 36 32 06 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31	306...\\\211\262..B\262.\210\211
19f80	54 5c 32 36 32 01 5c 32 30 32 32 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 36 5c 32 30	T\262.\2022.\266.\211\237\266\20
19fa0	32 5c 32 30 37 22 20 5b 6e 61 74 6e 75 6d 70 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70	2\207".[natnump.signal.wrong-typ
19fc0	65 2d 61 72 67 75 6d 65 6e 74 20 30 20 31 20 6d 61 6b 65 2d 6c 69 73 74 20 6e 69 6c 5d 20 31 30	e-argument.0.1.make-list.nil].10
19fe0	20 28 23 24 20 2e 20 31 30 35 39 33 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	.(#$...105930)]).(byte-code."\30
1a000	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#\
1a020	33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 6f 74 61 20 70 75 72	300\207".[function-put.-iota.pur
1a040	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 31 33 39 20 43	e.t.side-effect-free].5).#@139.C
1a060	6f 6d 70 75 74 65 20 74 68 65 20 28 6c 65 61 73 74 29 20 66 69 78 70 6f 69 6e 74 20 6f 66 20 46	ompute.the.(least).fixpoint.of.F
1a080	4e 20 77 69 74 68 20 69 6e 69 74 69 61 6c 20 69 6e 70 75 74 20 4c 49 53 54 2e 0a 0a 46 4e 20 69	N.with.initial.input.LIST...FN.i
1a0a0	73 20 63 61 6c 6c 65 64 20 61 74 20 6c 65 61 73 74 20 6f 6e 63 65 2c 20 72 65 73 75 6c 74 73 20	s.called.at.least.once,.results.
1a0c0	61 72 65 20 63 6f 6d 70 61 72 65 64 20 77 69 74 68 20 60 65 71 75 61 6c 27 2e 0a 0a 28 66 6e 20	are.compared.with.`equal'...(fn.
1a0e0	46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 78 20 23 5b 35 31 34 20	FN.LIST)..(defalias.'-fix.#[514.
1a100	22 01 01 21 01 01 5c 32 33 32 5c 32 30 34 14 00 5c 32 31 31 5c 32 36 32 02 02 01 21 5c 32 36 32	"..!..\232\204..\211\262...!\262
1a120	01 5c 32 30 32 03 00 5c 32 30 37 22 20 5b 5d 20 35 20 28 23 24 20 2e 20 31 30 36 35 39 31 29 5d	.\202..\207".[].5.(#$...106591)]
1a140	29 0a 23 40 34 33 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 66 69 78 27 2e	).#@43.Anaphoric.form.of.`-fix'.
1a160	0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66	..(fn.FORM.LIST)..(defalias.'--f
1a180	69 78 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	ix.'(macro...#[514."\300\301\302
1a1a0	04 45 02 45 5c 32 30 37 22 20 5b 2d 66 69 78 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28	.E.E\207".[-fix.lambda.(it)].6.(
1a1c0	23 24 20 2e 20 31 30 36 38 32 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 78 20 27 65 64 65	#$...106823)])).(put.'--fix.'ede
1a1e0	62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a	bug-form-spec.'(def-form.form)).
1a200	23 40 33 36 30 20 42 75 69 6c 64 20 61 20 6c 69 73 74 20 66 72 6f 6d 20 53 45 45 44 20 75 73 69	#@360.Build.a.list.from.SEED.usi
1a220	6e 67 20 46 55 4e 2e 0a 0a 54 68 69 73 20 69 73 20 22 64 75 61 6c 22 20 6f 70 65 72 61 74 69 6f	ng.FUN...This.is."dual".operatio
1a240	6e 20 74 6f 20 60 2d 72 65 64 75 63 65 2d 72 27 3a 20 77 68 69 6c 65 20 2d 72 65 64 75 63 65 2d	n.to.`-reduce-r':.while.-reduce-
1a260	72 0a 63 6f 6e 73 75 6d 65 73 20 61 20 6c 69 73 74 20 74 6f 20 70 72 6f 64 75 63 65 20 61 20 73	r.consumes.a.list.to.produce.a.s
1a280	69 6e 67 6c 65 20 76 61 6c 75 65 2c 20 60 2d 75 6e 66 6f 6c 64 27 20 74 61 6b 65 73 20 61 0a 73	ingle.value,.`-unfold'.takes.a.s
1a2a0	65 65 64 20 76 61 6c 75 65 20 61 6e 64 20 62 75 69 6c 64 73 20 61 20 28 70 6f 74 65 6e 74 69 61	eed.value.and.builds.a.(potentia
1a2c0	6c 6c 79 20 69 6e 66 69 6e 69 74 65 21 29 20 6c 69 73 74 2e 0a 0a 46 55 4e 20 73 68 6f 75 6c 64	lly.infinite!).list...FUN.should
1a2e0	20 72 65 74 75 72 6e 20 6e 69 6c 20 74 6f 20 73 74 6f 70 20 74 68 65 20 67 65 6e 65 72 61 74 69	.return.nil.to.stop.the.generati
1a300	6e 67 20 70 72 6f 63 65 73 73 2c 20 6f 72 20 61 0a 63 6f 6e 73 20 28 41 20 2e 20 42 29 2c 20 77	ng.process,.or.a.cons.(A...B),.w
1a320	68 65 72 65 20 41 20 77 69 6c 6c 20 62 65 20 70 72 65 70 65 6e 64 65 64 20 74 6f 20 74 68 65 20	here.A.will.be.prepended.to.the.
1a340	72 65 73 75 6c 74 20 61 6e 64 20 42 20 69 73 0a 74 68 65 20 6e 65 77 20 73 65 65 64 2e 0a 0a 28	result.and.B.is.the.new.seed...(
1a360	66 6e 20 46 55 4e 20 53 45 45 44 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 6e 66 6f 6c 64	fn.FUN.SEED)..(defalias.'-unfold
1a380	20 23 5b 35 31 34 20 22 01 01 21 5c 33 30 30 01 5c 32 30 33 17 00 01 40 01 42 5c 32 36 32 01 03	.#[514."..!\300.\203...@.B\262..
1a3a0	02 41 21 5c 32 36 32 02 5c 32 30 32 04 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c	.A!\262.\202..\211\237\207".[nil
1a3c0	5d 20 36 20 28 23 24 20 2e 20 31 30 37 30 31 34 29 5d 29 0a 23 40 34 39 20 41 6e 61 70 68 6f 72	].6.(#$...107014)]).#@49.Anaphor
1a3e0	69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 75 6e 66 6f 6c 64 27 2e 0a 0a 28 66 6e 20 46 4f	ic.version.of.`-unfold'...(fn.FO
1a400	52 4d 20 53 45 45 44 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 75 6e 66 6f 6c 64 20 27 28	RM.SEED)..(defalias.'--unfold.'(
1a420	6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c	macro...#[514."\300\301\302.E.E\
1a440	32 30 37 22 20 5b 2d 75 6e 66 6f 6c 64 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24	207".[-unfold.lambda.(it)].6.(#$
1a460	20 2e 20 31 30 37 34 38 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 75 6e 66 6f 6c 64 20 27 65 64	...107481)])).(put.'--unfold.'ed
1a480	65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29	ebug-form-spec.'(def-form.form))
1a4a0	0a 23 40 31 32 35 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 4f 42 4a 20 69 73 20	.#@125.Return.non-nil.if.OBJ.is.
1a4c0	61 20 74 72 75 65 20 63 6f 6e 73 20 70 61 69 72 2e 0a 54 68 61 74 20 69 73 2c 20 61 20 63 6f 6e	a.true.cons.pair..That.is,.a.con
1a4e0	73 20 28 41 20 2e 20 42 29 20 77 68 65 72 65 20 42 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 2e	s.(A...B).where.B.is.not.a.list.
1a500	0a 0a 41 6c 69 61 73 3a 20 60 2d 63 6f 6e 73 2d 70 61 69 72 2d 70 27 2e 0a 0a 28 66 6e 20 4f 42	..Alias:.`-cons-pair-p'...(fn.OB
1a520	4a 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 23 5b 32 35	J)..(defalias.'-cons-pair\?.#[25
1a540	37 20 22 5c 32 31 31 5c 32 34 33 3c 3f 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 31 30	7."\211\243<?\207".[].2.(#$...10
1a560	37 36 38 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	7687)]).(byte-code."\300\301\302
1a580	5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 35 5c 33 30 36 5c 33	\303#\300\301\304\303#\305\306\3
1a5a0	30 31 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6e 73 2d 70 61	01\"\207".[function-put.-cons-pa
1a5c0	69 72 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 20 64 65 66	ir\?.pure.t.side-effect-free.def
1a5e0	61 6c 69 61 73 20 2d 63 6f 6e 73 2d 70 61 69 72 2d 70 5d 20 35 29 0a 23 40 38 38 20 43 6f 6e 76	alias.-cons-pair-p].5).#@88.Conv
1a600	65 72 74 20 61 20 63 6f 6e 73 20 70 61 69 72 20 74 6f 20 61 20 6c 69 73 74 20 77 69 74 68 20 60	ert.a.cons.pair.to.a.list.with.`
1a620	63 61 72 27 20 61 6e 64 20 60 63 64 72 27 20 6f 66 20 74 68 65 20 70 61 69 72 20 72 65 73 70 65	car'.and.`cdr'.of.the.pair.respe
1a640	63 74 69 76 65 6c 79 2e 0a 0a 28 66 6e 20 43 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	ctively...(fn.CON)..(defalias.'-
1a660	63 6f 6e 73 2d 74 6f 2d 6c 69 73 74 20 23 5b 32 35 37 20 22 5c 32 31 31 40 01 41 44 5c 32 30 37	cons-to-list.#[257."\211@.AD\207
1a680	22 20 5b 5d 20 33 20 28 23 24 20 2e 20 31 30 38 30 32 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64	".[].3.(#$...108028)]).(byte-cod
1a6a0	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
1a6c0	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 2d 63 6f	\303#\300\207".[function-put.-co
1a6e0	6e 73 2d 74 6f 2d 6c 69 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72	ns-to-list.pure.t.side-effect-fr
1a700	65 65 5d 20 35 29 0a 23 40 31 39 32 20 43 6f 6e 76 65 72 74 20 61 20 76 61 6c 75 65 20 74 6f 20	ee].5).#@192.Convert.a.value.to.
1a720	61 20 6c 69 73 74 2e 0a 0a 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 61 20 63 6f 6e 73 20	a.list...If.the.value.is.a.cons.
1a740	70 61 69 72 2c 20 6d 61 6b 65 20 61 20 6c 69 73 74 20 77 69 74 68 20 74 77 6f 20 65 6c 65 6d 65	pair,.make.a.list.with.two.eleme
1a760	6e 74 73 2c 20 60 63 61 72 27 0a 61 6e 64 20 60 63 64 72 27 20 6f 66 20 74 68 65 20 70 61 69 72	nts,.`car'.and.`cdr'.of.the.pair
1a780	20 72 65 73 70 65 63 74 69 76 65 6c 79 2e 0a 0a 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20	.respectively...If.the.value.is.
1a7a0	61 6e 79 74 68 69 6e 67 20 65 6c 73 65 2c 20 77 72 61 70 20 69 74 20 69 6e 20 61 20 6c 69 73 74	anything.else,.wrap.it.in.a.list
1a7c0	2e 0a 0a 28 66 6e 20 56 41 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 76 61 6c 75 65 2d 74	...(fn.VAL)..(defalias.'-value-t
1a7e0	6f 2d 6c 69 73 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 33 5c 6e 00 5c 33 30 31 01	o-list.#[257."\300.!\203\n.\301.
1a800	21 5c 32 30 37 5c 32 31 31 43 5c 32 30 37 22 20 5b 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 63	!\207\211C\207".[-cons-pair\?.-c
1a820	6f 6e 73 2d 74 6f 2d 6c 69 73 74 5d 20 33 20 28 23 24 20 2e 20 31 30 38 33 30 31 29 5d 29 0a 28	ons-to-list].3.(#$...108301)]).(
1a840	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
1a860	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
1a880	2d 70 75 74 20 2d 76 61 6c 75 65 2d 74 6f 2d 6c 69 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d	-put.-value-to-list.pure.t.side-
1a8a0	65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 32 33 20 41 70 70 6c 79 20 46 4e 20 74	effect-free].5).#@423.Apply.FN.t
1a8c0	6f 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 54 52 45 45 2c 20 61 6e 64 20 6d 61 6b 65	o.each.element.of.TREE,.and.make
1a8e0	20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 73 2e 0a 49 66 20 65 6c 65 6d 65	.a.list.of.the.results..If.eleme
1a900	6e 74 73 20 6f 66 20 54 52 45 45 20 61 72 65 20 6c 69 73 74 73 20 74 68 65 6d 73 65 6c 76 65 73	nts.of.TREE.are.lists.themselves
1a920	2c 20 61 70 70 6c 79 20 46 4e 20 72 65 63 75 72 73 69 76 65 6c 79 20 74 6f 0a 65 6c 65 6d 65 6e	,.apply.FN.recursively.to.elemen
1a940	74 73 20 6f 66 20 74 68 65 73 65 20 6e 65 73 74 65 64 20 6c 69 73 74 73 2e 0a 0a 54 68 65 6e 20	ts.of.these.nested.lists...Then.
1a960	72 65 64 75 63 65 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 6c 69 73 74 73 20 75 73 69 6e 67	reduce.the.resulting.lists.using
1a980	20 46 4f 4c 44 45 52 20 61 6e 64 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 0a 49 4e 49 54 2d 56	.FOLDER.and.initial.value.INIT-V
1a9a0	41 4c 55 45 2e 20 53 65 65 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 2e 0a 0a 54 68 69	ALUE..See.`-reduce-r-from'...Thi
1a9c0	73 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 63 61 6c 6c 69 6e 67 20 60 2d 74 72 65 65 2d	s.is.the.same.as.calling.`-tree-
1a9e0	72 65 64 75 63 65 2d 66 72 6f 6d 27 20 61 66 74 65 72 20 60 2d 74 72 65 65 2d 6d 61 70 27 0a 62	reduce-from'.after.`-tree-map'.b
1aa00	75 74 20 69 73 20 74 77 69 63 65 20 61 73 20 66 61 73 74 20 61 73 20 69 74 20 6f 6e 6c 79 20 74	ut.is.twice.as.fast.as.it.only.t
1aa20	72 61 76 65 72 73 65 20 74 68 65 20 73 74 72 75 63 74 75 72 65 20 6f 6e 63 65 2e 0a 0a 28 66 6e	raverse.the.structure.once...(fn
1aa40	20 46 4e 20 46 4f 4c 44 45 52 20 49 4e 49 54 2d 56 41 4c 55 45 20 54 52 45 45 29 1f 0a 28 64 65	.FN.FOLDER.INIT-VALUE.TREE)..(de
1aa60	66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 20 23 5b 31	falias.'-tree-mapreduce-from.#[1
1aa80	30 32 38 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 21 5c 32 30	028."\211\204..\300\207\301.!\20
1aaa0	33 10 00 03 01 21 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 26 00 5c 33 30 32 03 03 5c 33 30 33 5c	3....!\207\211<\203&.\302..\303\
1aac0	33 30 34 5c 33 30 35 06 09 06 09 06 09 24 05 5c 22 23 5c 32 30 37 03 01 21 5c 32 30 37 22 20 5b	304\305......$.\"#\207..!\207".[
1aae0	6e 69 6c 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20	nil.-cons-pair\?.-reduce-r-from.
1ab00	6d 61 70 63 61 72 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 33 5c	mapcar.make-closure.#[257."\303\
1ab20	33 30 30 5c 33 30 31 5c 33 30 32 04 24 5c 32 30 37 22 20 5b 56 30 20 56 31 20 56 32 20 2d 74 72	300\301\302.$\207".[V0.V1.V2.-tr
1ab40	65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 58 29	ee-mapreduce-from].6."\n\n(fn.X)
1ab60	22 5d 5d 20 31 33 20 28 23 24 20 2e 20 31 30 38 37 32 36 29 5d 29 0a 23 40 37 37 20 41 6e 61 70	"]].13.(#$...108726)]).#@77.Anap
1ab80	68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66	horic.form.of.`-tree-mapreduce-f
1aba0	72 6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 46 4f 4c 44 45 52 20 49 4e 49 54 2d 56 41 4c 55	rom'...(fn.FORM.FOLDER.INIT-VALU
1abc0	45 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 6d 61 70 72 65	E.TREE)..(defalias.'--tree-mapre
1abe0	64 75 63 65 2d 66 72 6f 6d 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 31 30 32 38 20 22 5c 33 30 30	duce-from.'(macro...#[1028."\300
1ac00	5c 33 30 31 5c 33 30 32 06 06 45 5c 33 30 31 5c 33 30 33 06 06 45 04 04 5c 32 35 37 05 5c 32 30	\301\302..E\301\303..E..\257.\20
1ac20	37 22 20 5b 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 20 6c 61 6d 62 64 61 20	7".[-tree-mapreduce-from.lambda.
1ac40	28 69 74 29 20 28 69 74 20 61 63 63 29 5d 20 39 20 28 23 24 20 2e 20 31 30 39 34 33 36 29 5d 29	(it).(it.acc)].9.(#$...109436)])
1ac60	29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 20 27 65	).(put.'--tree-mapreduce-from.'e
1ac80	64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 64 65 66 2d 66	debug-form-spec.'(def-form.def-f
1aca0	6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 34 30 37 20 41 70 70 6c 79 20 46 4e 20 74	orm.form.form)).#@407.Apply.FN.t
1acc0	6f 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 54 52 45 45 2c 20 61 6e 64 20 6d 61 6b 65	o.each.element.of.TREE,.and.make
1ace0	20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 73 2e 0a 49 66 20 65 6c 65 6d 65	.a.list.of.the.results..If.eleme
1ad00	6e 74 73 20 6f 66 20 54 52 45 45 20 61 72 65 20 6c 69 73 74 73 20 74 68 65 6d 73 65 6c 76 65 73	nts.of.TREE.are.lists.themselves
1ad20	2c 20 61 70 70 6c 79 20 46 4e 20 72 65 63 75 72 73 69 76 65 6c 79 20 74 6f 0a 65 6c 65 6d 65 6e	,.apply.FN.recursively.to.elemen
1ad40	74 73 20 6f 66 20 74 68 65 73 65 20 6e 65 73 74 65 64 20 6c 69 73 74 73 2e 0a 0a 54 68 65 6e 20	ts.of.these.nested.lists...Then.
1ad60	72 65 64 75 63 65 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 6c 69 73 74 73 20 75 73 69 6e 67	reduce.the.resulting.lists.using
1ad80	20 46 4f 4c 44 45 52 20 61 6e 64 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 0a 49 4e 49 54 2d 56	.FOLDER.and.initial.value.INIT-V
1ada0	41 4c 55 45 2e 20 53 65 65 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 2e 0a 0a 54 68 69	ALUE..See.`-reduce-r-from'...Thi
1adc0	73 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 63 61 6c 6c 69 6e 67 20 60 2d 74 72 65 65 2d	s.is.the.same.as.calling.`-tree-
1ade0	72 65 64 75 63 65 27 20 61 66 74 65 72 20 60 2d 74 72 65 65 2d 6d 61 70 27 0a 62 75 74 20 69 73	reduce'.after.`-tree-map'.but.is
1ae00	20 74 77 69 63 65 20 61 73 20 66 61 73 74 20 61 73 20 69 74 20 6f 6e 6c 79 20 74 72 61 76 65 72	.twice.as.fast.as.it.only.traver
1ae20	73 65 20 74 68 65 20 73 74 72 75 63 74 75 72 65 20 6f 6e 63 65 2e 0a 0a 28 66 6e 20 46 4e 20 46	se.the.structure.once...(fn.FN.F
1ae40	4f 4c 44 45 52 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 6d 61	OLDER.TREE)..(defalias.'-tree-ma
1ae60	70 72 65 64 75 63 65 20 23 5b 37 37 31 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30	preduce.#[771."\211\204..\300\20
1ae80	37 5c 33 30 31 01 21 5c 32 30 33 10 00 02 01 21 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 23 00 5c	7\301.!\203....!\207\211<\203#.\
1aea0	33 30 32 02 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07 06 07 23 04 5c 22 5c 22 5c 32 30 37 02 01	302.\303\304\305....#.\"\"\207..
1aec0	21 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 72 65 64 75 63 65	!\207".[nil.-cons-pair\?.-reduce
1aee0	2d 72 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33	-r.mapcar.make-closure.#[257."\3
1af00	30 32 5c 33 30 30 5c 33 30 31 03 23 5c 32 30 37 22 20 5b 56 30 20 56 31 20 2d 74 72 65 65 2d 6d	02\300\301.#\207".[V0.V1.-tree-m
1af20	61 70 72 65 64 75 63 65 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 5d 20 31 30 20 28 23	apreduce].5."\n\n(fn.X)"]].10.(#
1af40	24 20 2e 20 31 30 39 37 35 30 29 5d 29 0a 23 40 36 31 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72	$...109750)]).#@61.Anaphoric.for
1af60	6d 20 6f 66 20 60 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 27 2e 0a 0a 28 66 6e 20 46 4f 52	m.of.`-tree-mapreduce'...(fn.FOR
1af80	4d 20 46 4f 4c 44 45 52 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65	M.FOLDER.TREE)..(defalias.'--tre
1afa0	65 2d 6d 61 70 72 65 64 75 63 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30	e-mapreduce.'(macro...#[771."\30
1afc0	30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33 05 45 03 46 5c 32 30 37 22 20 5b 2d 74	0\301\302.E\301\303.E.F\207".[-t
1afe0	72 65 65 2d 6d 61 70 72 65 64 75 63 65 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 20 61 63	ree-mapreduce.lambda.(it).(it.ac
1b000	63 29 5d 20 38 20 28 23 24 20 2e 20 31 31 30 34 31 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74	c)].8.(#$...110419)])).(put.'--t
1b020	72 65 65 2d 6d 61 70 72 65 64 75 63 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20	ree-mapreduce.'edebug-form-spec.
1b040	27 28 64 65 66 2d 66 6f 72 6d 20 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 38 35 20	'(def-form.def-form.form)).#@85.
1b060	41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 54 52 45 45	Apply.FN.to.each.element.of.TREE
1b080	20 77 68 69 6c 65 20 70 72 65 73 65 72 76 69 6e 67 20 74 68 65 20 74 72 65 65 20 73 74 72 75 63	.while.preserving.the.tree.struc
1b0a0	74 75 72 65 2e 0a 0a 28 66 6e 20 46 4e 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	ture...(fn.FN.TREE)..(defalias.'
1b0c0	2d 74 72 65 65 2d 6d 61 70 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c	-tree-map.#[514."\211\204..\300\
1b0e0	32 30 37 5c 33 30 31 01 21 5c 32 30 33 10 00 01 01 21 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 1d	207\301.!\203....!\207\211<\203.
1b100	00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 5c 22 02 5c 22 5c 32 30 37 01 01 21 5c 32 30 37 22 20	.\302\303\304.\".\"\207..!\207".
1b120	5b 6e 69 6c 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 63 6c	[nil.-cons-pair\?.mapcar.make-cl
1b140	6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 30 37 22 20 5b 56	osure.#[257."\301\300.\"\207".[V
1b160	30 20 2d 74 72 65 65 2d 6d 61 70 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 5d 20 36 20	0.-tree-map].4."\n\n(fn.X)"]].6.
1b180	28 23 24 20 2e 20 31 31 30 36 38 38 29 5d 29 0a 23 40 34 38 20 41 6e 61 70 68 6f 72 69 63 20 66	(#$...110688)]).#@48.Anaphoric.f
1b1a0	6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 6d 61 70 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 54 52	orm.of.`-tree-map'...(fn.FORM.TR
1b1c0	45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 6d 61 70 20 27 28 6d 61 63	EE)..(defalias.'--tree-map.'(mac
1b1e0	72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37	ro...#[514."\300\301\302.E.E\207
1b200	22 20 5b 2d 74 72 65 65 2d 6d 61 70 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20	".[-tree-map.lambda.(it)].6.(#$.
1b220	2e 20 31 31 30 39 39 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 6d 61 70 20 27 65	..110997)])).(put.'--tree-map.'e
1b240	64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29	debug-form-spec.'(def-form.form)
1b260	29 0a 23 40 33 34 36 20 55 73 65 20 46 4e 20 74 6f 20 72 65 64 75 63 65 20 65 6c 65 6d 65 6e 74	).#@346.Use.FN.to.reduce.element
1b280	73 20 6f 66 20 6c 69 73 74 20 54 52 45 45 2e 0a 49 66 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 54	s.of.list.TREE..If.elements.of.T
1b2a0	52 45 45 20 61 72 65 20 6c 69 73 74 73 20 74 68 65 6d 73 65 6c 76 65 73 2c 20 61 70 70 6c 79 20	REE.are.lists.themselves,.apply.
1b2c0	74 68 65 20 72 65 64 75 63 74 69 6f 6e 20 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 0a 46 4e 20 69	the.reduction.recursively...FN.i
1b2e0	73 20 66 69 72 73 74 20 61 70 70 6c 69 65 64 20 74 6f 20 49 4e 49 54 2d 56 41 4c 55 45 20 61 6e	s.first.applied.to.INIT-VALUE.an
1b300	64 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 2c 0a 74 68 65	d.first.element.of.the.list,.the
1b320	6e 20 6f 6e 20 74 68 69 73 20 72 65 73 75 6c 74 20 61 6e 64 20 73 65 63 6f 6e 64 20 65 6c 65 6d	n.on.this.result.and.second.elem
1b340	65 6e 74 20 66 72 6f 6d 20 74 68 65 20 6c 69 73 74 20 65 74 63 2e 0a 0a 54 68 65 20 69 6e 69 74	ent.from.the.list.etc...The.init
1b360	69 61 6c 20 76 61 6c 75 65 20 69 73 20 69 67 6e 6f 72 65 64 20 6f 6e 20 63 6f 6e 73 20 70 61 69	ial.value.is.ignored.on.cons.pai
1b380	72 73 20 61 73 20 74 68 65 79 20 61 6c 77 61 79 73 20 63 6f 6e 74 61 69 6e 0a 74 77 6f 20 65 6c	rs.as.they.always.contain.two.el
1b3a0	65 6d 65 6e 74 73 2e 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 2d 56 41 4c 55 45 20 54 52 45 45 29	ements...(fn.FN.INIT-VALUE.TREE)
1b3c0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 23	..(defalias.'-tree-reduce-from.#
1b3e0	5b 37 37 31 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 21 5c 32	[771."\211\204..\300\207\301.!\2
1b400	30 33 0d 00 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 21 00 5c 33 30 32 03 03 5c 33 30 33 5c 33 30	03..\207\211<\203!.\302..\303\30
1b420	34 5c 33 30 35 06 08 06 08 23 05 5c 22 23 5c 32 30 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f	4\305....#.\"#\207\207".[nil.-co
1b440	6e 73 2d 70 61 69 72 5c 3f 20 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 6d 61 70 63 61 72 20	ns-pair\?.-reduce-r-from.mapcar.
1b460	6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 32 5c 33 30 30 5c 33 30 31	make-closure.#[257."\302\300\301
1b480	03 23 5c 32 30 37 22 20 5b 56 30 20 56 31 20 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d	.#\207".[V0.V1.-tree-reduce-from
1b4a0	5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 5d 20 31 31 20 28 23 24 20 2e 20 31 31 31 32	].5."\n\n(fn.X)"]].11.(#$...1112
1b4c0	30 38 29 5d 29 0a 23 40 36 37 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74	08)]).#@67.Anaphoric.form.of.`-t
1b4e0	72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 54	ree-reduce-from'...(fn.FORM.INIT
1b500	2d 56 41 4c 55 45 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d	-VALUE.TREE)..(defalias.'--tree-
1b520	72 65 64 75 63 65 2d 66 72 6f 6d 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30	reduce-from.'(macro...#[771."\30
1b540	30 5c 33 30 31 5c 33 30 32 05 45 03 03 46 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 72 65 64 75 63	0\301\302.E..F\207".[-tree-reduc
1b560	65 2d 66 72 6f 6d 20 6c 61 6d 62 64 61 20 28 69 74 20 61 63 63 29 5d 20 37 20 28 23 24 20 2e 20	e-from.lambda.(it.acc)].7.(#$...
1b580	31 31 31 38 31 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66	111819)])).(put.'--tree-reduce-f
1b5a0	72 6f 6d 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d	rom.'edebug-form-spec.'(def-form
1b5c0	20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 33 32 20 55 73 65 20 46 4e 20 74 6f 20 72 65 64	.form.form)).#@332.Use.FN.to.red
1b5e0	75 63 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 6c 69 73 74 20 54 52 45 45 2e 0a 49 66 20 65 6c	uce.elements.of.list.TREE..If.el
1b600	65 6d 65 6e 74 73 20 6f 66 20 54 52 45 45 20 61 72 65 20 6c 69 73 74 73 20 74 68 65 6d 73 65 6c	ements.of.TREE.are.lists.themsel
1b620	76 65 73 2c 20 61 70 70 6c 79 20 74 68 65 20 72 65 64 75 63 74 69 6f 6e 20 72 65 63 75 72 73 69	ves,.apply.the.reduction.recursi
1b640	76 65 6c 79 2e 0a 0a 46 4e 20 69 73 20 66 69 72 73 74 20 61 70 70 6c 69 65 64 20 74 6f 20 66 69	vely...FN.is.first.applied.to.fi
1b660	72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 20 61 6e 64 20 73 65 63 6f	rst.element.of.the.list.and.seco
1b680	6e 64 0a 65 6c 65 6d 65 6e 74 2c 20 74 68 65 6e 20 6f 6e 20 74 68 69 73 20 72 65 73 75 6c 74 20	nd.element,.then.on.this.result.
1b6a0	61 6e 64 20 74 68 69 72 64 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 74 68 65 20 6c 69 73 74 20	and.third.element.from.the.list.
1b6c0	65 74 63 2e 0a 0a 53 65 65 20 60 2d 72 65 64 75 63 65 2d 72 27 20 66 6f 72 20 68 6f 77 20 65 78	etc...See.`-reduce-r'.for.how.ex
1b6e0	61 63 74 6c 79 20 61 72 65 20 6c 69 73 74 73 20 6f 66 20 7a 65 72 6f 20 6f 72 20 6f 6e 65 20 65	actly.are.lists.of.zero.or.one.e
1b700	6c 65 6d 65 6e 74 20 68 61 6e 64 6c 65 64 2e 0a 0a 28 66 6e 20 46 4e 20 54 52 45 45 29 1f 0a 28	lement.handled...(fn.FN.TREE)..(
1b720	64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 72 65 64 75 63 65 20 23 5b 35 31 34 20 22 5c 32	defalias.'-tree-reduce.#[514."\2
1b740	31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 21 5c 32 30 33 0d 00 5c 32 30 37	11\204..\300\207\301.!\203..\207
1b760	5c 32 31 31 3c 5c 32 30 33 1e 00 5c 33 30 32 02 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 06 5c 22	\211<\203..\302.\303\304\305..\"
1b780	04 5c 22 5c 22 5c 32 30 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f	.\"\"\207\207".[nil.-cons-pair\?
1b7a0	20 2d 72 65 64 75 63 65 2d 72 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23	.-reduce-r.mapcar.make-closure.#
1b7c0	5b 32 35 37 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 30 37 22 20 5b 56 30 20 2d 74 72 65 65	[257."\301\300.\"\207".[V0.-tree
1b7e0	2d 72 65 64 75 63 65 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 5d 20 38 20 28 23 24 20	-reduce].4."\n\n(fn.X)"]].8.(#$.
1b800	2e 20 31 31 32 30 38 33 29 5d 29 0a 23 40 35 31 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20	..112083)]).#@51.Anaphoric.form.
1b820	6f 66 20 60 2d 74 72 65 65 2d 72 65 64 75 63 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 54 52 45	of.`-tree-reduce'...(fn.FORM.TRE
1b840	45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 20 27 28 6d	E)..(defalias.'--tree-reduce.'(m
1b860	61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32	acro...#[514."\300\301\302.E.E\2
1b880	30 37 22 20 5b 2d 74 72 65 65 2d 72 65 64 75 63 65 20 6c 61 6d 62 64 61 20 28 69 74 20 61 63 63	07".[-tree-reduce.lambda.(it.acc
1b8a0	29 5d 20 36 20 28 23 24 20 2e 20 31 31 32 36 35 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72	)].6.(#$...112657)])).(put.'--tr
1b8c0	65 65 2d 72 65 64 75 63 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65	ee-reduce.'edebug-form-spec.'(de
1b8e0	66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 30 37 20 43 61 6c 6c 20 46 55 4e 20 6f 6e 20	f-form.form)).#@207.Call.FUN.on.
1b900	65 61 63 68 20 6e 6f 64 65 20 6f 66 20 54 52 45 45 20 74 68 61 74 20 73 61 74 69 73 66 69 65 73	each.node.of.TREE.that.satisfies
1b920	20 50 52 45 44 2e 0a 0a 49 66 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 69 6c 2c 20 63 6f 6e	.PRED...If.PRED.returns.nil,.con
1b940	74 69 6e 75 65 20 64 65 73 63 65 6e 64 69 6e 67 20 64 6f 77 6e 20 74 68 69 73 20 6e 6f 64 65 2e	tinue.descending.down.this.node.
1b960	20 20 49 66 20 50 52 45 44 0a 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 70 70 6c 79	..If.PRED.returns.non-nil,.apply
1b980	20 46 55 4e 20 74 6f 20 74 68 69 73 20 6e 6f 64 65 20 61 6e 64 20 64 6f 20 6e 6f 74 20 64 65 73	.FUN.to.this.node.and.do.not.des
1b9a0	63 65 6e 64 0a 66 75 72 74 68 65 72 2e 0a 0a 28 66 6e 20 50 52 45 44 20 46 55 4e 20 54 52 45 45	cend.further...(fn.PRED.FUN.TREE
1b9c0	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 20 23 5b	)..(defalias.'-tree-map-nodes.#[
1b9e0	37 37 31 20 22 02 01 21 5c 32 30 33 5c 6e 00 01 01 21 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 1e	771."..!\203\n...!\207\211<\203.
1ba00	00 5c 33 30 30 01 21 5c 32 30 34 1e 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 05 05 23 02 5c 22 5c	.\300.!\204..\301\302\303..#.\"\
1ba20	32 30 37 5c 32 30 37 22 20 5b 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 6d 61 70 20 6d 61 6b 65	207\207".[-cons-pair\?.-map.make
1ba40	2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 32 5c 33 30 30 5c 33 30 31 03 23 5c 32	-closure.#[257."\302\300\301.#\2
1ba60	30 37 22 20 5b 56 30 20 56 31 20 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 5d 20 35 20 22 5c	07".[V0.V1.-tree-map-nodes].5."\
1ba80	6e 5c 6e 28 66 6e 20 58 29 22 5d 5d 20 38 20 28 23 24 20 2e 20 31 31 32 38 38 34 29 5d 29 0a 23	n\n(fn.X)"]].8.(#$...112884)]).#
1baa0	40 35 39 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 6d 61 70	@59.Anaphoric.form.of.`-tree-map
1bac0	2d 6e 6f 64 65 73 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 46 4f 52 4d 20 54 52 45 45 29 1f 0a 28	-nodes'...(fn.PRED.FORM.TREE)..(
1bae0	64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 20 27 28 6d 61 63	defalias.'--tree-map-nodes.'(mac
1bb00	72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33	ro...#[771."\300\301\302.E\301\3
1bb20	30 33 05 45 03 46 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 20 6c 61 6d	03.E.F\207".[-tree-map-nodes.lam
1bb40	62 64 61 20 28 69 74 29 20 28 69 74 29 5d 20 38 20 28 23 24 20 2e 20 31 31 33 33 31 36 29 5d 29	bda.(it).(it)].8.(#$...113316)])
1bb60	29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 20 27 65 64 65 62 75 67	).(put.'--tree-map-nodes.'edebug
1bb80	2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 64 65 66 2d 66 6f 72 6d 20 66	-form-spec.'(def-form.def-form.f
1bba0	6f 72 6d 29 29 0a 23 40 33 36 33 20 52 65 74 75 72 6e 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66	orm)).#@363.Return.a.sequence.of
1bbc0	20 74 68 65 20 6e 6f 64 65 73 20 69 6e 20 54 52 45 45 2c 20 69 6e 20 64 65 70 74 68 2d 66 69 72	.the.nodes.in.TREE,.in.depth-fir
1bbe0	73 74 20 73 65 61 72 63 68 20 6f 72 64 65 72 2e 0a 0a 42 52 41 4e 43 48 20 69 73 20 61 20 70 72	st.search.order...BRANCH.is.a.pr
1bc00	65 64 69 63 61 74 65 20 6f 66 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 20 74 68 61 74 20 72 65 74	edicate.of.one.argument.that.ret
1bc20	75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 74 68 65 0a 70 61 73 73 65 64 20 61 72 67 75 6d	urns.non-nil.if.the.passed.argum
1bc40	65 6e 74 20 69 73 20 61 20 62 72 61 6e 63 68 2c 20 74 68 61 74 20 69 73 2c 20 61 20 6e 6f 64 65	ent.is.a.branch,.that.is,.a.node
1bc60	20 74 68 61 74 20 63 61 6e 20 68 61 76 65 20 63 68 69 6c 64 72 65 6e 2e 0a 0a 43 48 49 4c 44 52	.that.can.have.children...CHILDR
1bc80	45 4e 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74	EN.is.a.function.of.one.argument
1bca0	20 74 68 61 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 63 68 69 6c 64 72 65 6e 0a 6f 66 20 74 68	.that.returns.the.children.of.th
1bcc0	65 20 70 61 73 73 65 64 20 62 72 61 6e 63 68 20 6e 6f 64 65 2e 0a 0a 4e 6f 6e 2d 62 72 61 6e 63	e.passed.branch.node...Non-branc
1bce0	68 20 6e 6f 64 65 73 20 61 72 65 20 73 69 6d 70 6c 79 20 63 6f 70 69 65 64 2e 0a 0a 28 66 6e 20	h.nodes.are.simply.copied...(fn.
1bd00	42 52 41 4e 43 48 20 43 48 49 4c 44 52 45 4e 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73	BRANCH.CHILDREN.TREE)..(defalias
1bd20	20 27 2d 74 72 65 65 2d 73 65 71 20 23 5b 37 37 31 20 22 5c 32 31 31 03 02 21 5c 32 30 35 13 00	.'-tree-seq.#[771."\211..!\205..
1bd40	5c 33 30 30 5c 33 30 31 5c 33 30 32 06 06 06 06 23 04 04 21 5c 22 42 5c 32 30 37 22 20 5b 2d 6d	\300\301\302....#..!\"B\207".[-m
1bd60	61 70 63 61 74 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 32 5c 33	apcat.make-closure.#[257."\302\3
1bd80	30 30 5c 33 30 31 03 23 5c 32 30 37 22 20 5b 56 30 20 56 31 20 2d 74 72 65 65 2d 73 65 71 5d 20	00\301.#\207".[V0.V1.-tree-seq].
1bda0	35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 5d 20 39 20 28 23 24 20 2e 20 31 31 33 35 38 30 29	5."\n\n(fn.X)"]].9.(#$...113580)
1bdc0	5d 29 0a 23 40 35 39 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65	]).#@59.Anaphoric.form.of.`-tree
1bde0	2d 73 65 71 27 2e 0a 0a 28 66 6e 20 42 52 41 4e 43 48 20 43 48 49 4c 44 52 45 4e 20 54 52 45 45	-seq'...(fn.BRANCH.CHILDREN.TREE
1be00	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 73 65 71 20 27 28 6d 61 63 72 6f	)..(defalias.'--tree-seq.'(macro
1be20	20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33	...#[771."\300\301\302.E\301\303
1be40	05 45 03 46 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 73 65 71 20 6c 61 6d 62 64 61 20 28 69 74 29	.E.F\207".[-tree-seq.lambda.(it)
1be60	20 28 69 74 29 5d 20 38 20 28 23 24 20 2e 20 31 31 34 31 32 30 29 5d 29 29 0a 28 70 75 74 20 27	.(it)].8.(#$...114120)])).(put.'
1be80	2d 2d 74 72 65 65 2d 73 65 71 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64	--tree-seq.'edebug-form-spec.'(d
1bea0	65 66 2d 66 6f 72 6d 20 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 30 35 20 43 72	ef-form.def-form.form)).#@205.Cr
1bec0	65 61 74 65 20 61 20 64 65 65 70 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 2e 0a 54 68 65 20 6e 65	eate.a.deep.copy.of.LIST..The.ne
1bee0	77 20 6c 69 73 74 20 68 61 73 20 74 68 65 20 73 61 6d 65 20 65 6c 65 6d 65 6e 74 73 20 61 6e 64	w.list.has.the.same.elements.and
1bf00	20 73 74 72 75 63 74 75 72 65 20 62 75 74 20 61 6c 6c 20 63 6f 6e 73 20 61 72 65 0a 72 65 70 6c	.structure.but.all.cons.are.repl
1bf20	61 63 65 64 20 77 69 74 68 20 6e 65 77 20 6f 6e 65 73 2e 20 20 54 68 69 73 20 69 73 20 75 73 65	aced.with.new.ones...This.is.use
1bf40	66 75 6c 20 77 68 65 6e 20 79 6f 75 20 6e 65 65 64 20 74 6f 20 63 6c 6f 6e 65 20 61 0a 73 74 72	ful.when.you.need.to.clone.a.str
1bf60	75 63 74 75 72 65 20 73 75 63 68 20 61 73 20 70 6c 69 73 74 20 6f 72 20 61 6c 69 73 74 2e 0a 0a	ucture.such.as.plist.or.alist...
1bf80	28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6c 6f 6e 65 20 23 5b 32	(fn.LIST)..(defalias.'-clone.#[2
1bfa0	35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 6d 61 70 20	57."\300\301.\"\207".[-tree-map.
1bfc0	69 64 65 6e 74 69 74 79 5d 20 34 20 28 23 24 20 2e 20 31 31 34 33 36 36 29 5d 29 0a 28 62 79 74	identity].4.(#$...114366)]).(byt
1bfe0	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
1c000	31 5c 33 30 34 5c 33 30 33 23 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 66	1\304\303#\305\306\307\"\207".[f
1c020	75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6c 6f 6e 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65	unction-put.-clone.pure.t.side-e
1c040	66 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d 70 61 72 74 69 61 6c 20 61 70 70	ffect-free.defalias.-partial.app
1c060	6c 79 2d 70 61 72 74 69 61 6c 6c 79 5d 20 35 29 0a 23 40 33 39 32 20 52 65 74 75 72 6e 20 61 20	ly-partially].5).#@392.Return.a.
1c080	66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 69 73 20 61 20 70 61 72 74 69 61 6c 20 61 70 70 6c 69	function.that.is.a.partial.appli
1c0a0	63 61 74 69 6f 6e 20 6f 66 20 46 4e 20 74 6f 20 41 52 47 53 2e 0a 41 52 47 53 20 69 73 20 61 20	cation.of.FN.to.ARGS..ARGS.is.a.
1c0c0	6c 69 73 74 20 6f 66 20 74 68 65 20 6c 61 73 74 20 4e 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20	list.of.the.last.N.arguments.to.
1c0e0	70 61 73 73 20 74 6f 20 46 4e 2e 20 20 54 68 65 20 72 65 73 75 6c 74 0a 69 73 20 61 20 6e 65 77	pass.to.FN...The.result.is.a.new
1c100	20 66 75 6e 63 74 69 6f 6e 20 77 68 69 63 68 20 64 6f 65 73 20 74 68 65 20 73 61 6d 65 20 61 73	.function.which.does.the.same.as
1c120	20 46 4e 2c 20 65 78 63 65 70 74 20 74 68 61 74 20 74 68 65 20 6c 61 73 74 0a 4e 20 61 72 67 75	.FN,.except.that.the.last.N.argu
1c140	6d 65 6e 74 73 20 61 72 65 20 66 69 78 65 64 20 61 74 20 74 68 65 20 76 61 6c 75 65 73 20 77 69	ments.are.fixed.at.the.values.wi
1c160	74 68 20 77 68 69 63 68 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 61 73 0a 63 61 6c 6c 65	th.which.this.function.was.calle
1c180	64 2e 20 20 54 68 69 73 20 69 73 20 6c 69 6b 65 20 60 2d 70 61 72 74 69 61 6c 27 2c 20 65 78 63	d...This.is.like.`-partial',.exc
1c1a0	65 70 74 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 66 69 78 65 64 0a 73 74 61 72	ept.the.arguments.are.fixed.star
1c1c0	74 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 72 69 67 68 74 20 72 61 74 68 65 72 20 74 68 61 6e 20	ting.from.the.right.rather.than.
1c1e0	74 68 65 20 6c 65 66 74 2e 0a 0a 28 66 6e 20 46 4e 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28	the.left...(fn.FN.&rest.ARGS)..(
1c200	64 65 66 61 6c 69 61 73 20 27 2d 72 70 61 72 74 69 61 6c 20 23 5b 33 38 35 20 22 5c 33 30 30 5c	defalias.'-rpartial.#[385."\300\
1c220	33 30 31 03 03 23 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 31 32 38 20	301..#\207".[make-closure.#[128.
1c240	22 5c 33 30 32 5c 33 30 30 5c 33 30 33 03 5c 33 30 31 5c 22 5c 22 5c 32 30 37 22 20 5b 56 30 20	"\302\300\303.\301\"\"\207".[V0.
1c260	56 31 20 61 70 70 6c 79 20 61 70 70 65 6e 64 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73	V1.apply.append].6."\n\n(fn.&res
1c280	74 20 41 52 47 53 2d 42 45 46 4f 52 45 29 22 5d 5d 20 36 20 28 23 24 20 2e 20 31 31 34 38 30 37	t.ARGS-BEFORE)"]].6.(#$...114807
1c2a0	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
1c2c0	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
1c2e0	63 74 69 6f 6e 2d 70 75 74 20 2d 72 70 61 72 74 69 61 6c 20 70 75 72 65 20 74 20 73 69 64 65 2d	ction-put.-rpartial.pure.t.side-
1c300	65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 39 34 20 52 65 74 75 72 6e 20 61 20 66	effect-free].5).#@194.Return.a.f
1c320	75 6e 63 74 69 6f 6e 20 74 68 61 74 20 69 73 20 74 68 65 20 6a 75 78 74 61 70 6f 73 69 74 69 6f	unction.that.is.the.juxtapositio
1c340	6e 20 6f 66 20 46 4e 53 2e 0a 54 68 65 20 72 65 74 75 72 6e 65 64 20 66 75 6e 63 74 69 6f 6e 20	n.of.FNS..The.returned.function.
1c360	74 61 6b 65 73 20 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 41 52 47 53 2c	takes.a.variable.number.of.ARGS,
1c380	20 61 70 70 6c 69 65 73 0a 65 61 63 68 20 6f 66 20 46 4e 53 20 69 6e 20 74 75 72 6e 20 74 6f 20	.applies.each.of.FNS.in.turn.to.
1c3a0	41 52 47 53 2c 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65 20 6c 69 73 74 20 6f 66 20 72 65	ARGS,.and.returns.the.list.of.re
1c3c0	73 75 6c 74 73 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 46 4e 53 29 1f 0a 28 64 65 66 61 6c 69 61	sults...(fn.&rest.FNS)..(defalia
1c3e0	73 20 27 2d 6a 75 78 74 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22	s.'-juxt.#[128."\300\301.\"\207"
1c400	20 5b 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 31 32 38 20 22 5c 33 30 31 5c 33 30 32 5c 33	.[make-closure.#[128."\301\302\3
1c420	30 33 03 5c 22 5c 33 30 30 5c 22 5c 32 30 37 22 20 5b 56 30 20 6d 61 70 63 61 72 20 6d 61 6b 65	03.\"\300\"\207".[V0.mapcar.make
1c440	2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 31 01 5c 33 30 30 5c 22 5c 32 30 37 22	-closure.#[257."\301.\300\"\207"
1c460	20 5b 56 30 20 61 70 70 6c 79 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 5d 20 35 20 22	.[V0.apply].4."\n\n(fn.X)"]].5."
1c480	5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 41 52 47 53 29 22 5d 5d 20 34 20 28 23 24 20 2e 20 31	\n\n(fn.&rest.ARGS)"]].4.(#$...1
1c4a0	31 35 34 37 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	15478)]).(byte-code."\300\301\30
1c4c0	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"
1c4e0	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6a 75 78 74 20 70 75 72 65 20 74 20 73 69 64 65	.[function-put.-juxt.pure.t.side
1c500	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 33 33 35 20 43 6f 6d 70 6f 73 65 20 46	-effect-free].5).#@335.Compose.F
1c520	4e 53 20 69 6e 74 6f 20 61 20 73 69 6e 67 6c 65 20 63 6f 6d 70 6f 73 69 74 65 20 66 75 6e 63 74	NS.into.a.single.composite.funct
1c540	69 6f 6e 2e 0a 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 74 61 6b 65	ion..Return.a.function.that.take
1c560	73 20 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 41 52 47 53 2c 20 61 70 70	s.a.variable.number.of.ARGS,.app
1c580	6c 69 65 73 0a 74 68 65 20 6c 61 73 74 20 66 75 6e 63 74 69 6f 6e 20 69 6e 20 46 4e 53 20 74 6f	lies.the.last.function.in.FNS.to
1c5a0	20 41 52 47 53 2c 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66	.ARGS,.and.returns.the.result.of
1c5c0	0a 63 61 6c 6c 69 6e 67 20 65 61 63 68 20 72 65 6d 61 69 6e 69 6e 67 20 66 75 6e 63 74 69 6f 6e	.calling.each.remaining.function
1c5e0	20 6f 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 74 68 65 20 70 72 65 76 69 6f 75 73 0a 66	.on.the.result.of.the.previous.f
1c600	75 6e 63 74 69 6f 6e 2c 20 72 69 67 68 74 2d 74 6f 2d 6c 65 66 74 2e 20 20 49 66 20 6e 6f 20 46	unction,.right-to-left...If.no.F
1c620	4e 53 20 61 72 65 20 67 69 76 65 6e 2c 20 72 65 74 75 72 6e 20 61 20 76 61 72 69 61 64 69 63 0a	NS.are.given,.return.a.variadic.
1c640	60 69 64 65 6e 74 69 74 79 27 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20	`identity'.function...(fn.&rest.
1c660	46 4e 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6d 70 6f 73 65 20 23 5b 31 32 38 20	FNS)..(defalias.'-compose.#[128.
1c680	22 5c 32 31 31 5c 32 33 37 5c 32 31 31 40 01 41 5c 32 31 31 5c 32 30 33 10 00 5c 33 30 30 5c 33	"\211\237\211@.A\211\203..\300\3
1c6a0	30 31 03 03 23 5c 32 30 37 02 5c 32 30 33 16 00 01 5c 32 30 37 5c 33 30 32 5c 32 30 37 22 20 5b	01..#\207.\203...\207\302\207".[
1c6c0	6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 31 32 38 20 22 5c 33 30 32 5c 33 30 30 02 5c 22 5c	make-closure.#[128."\302\300.\"\
1c6e0	33 30 31 5c 33 30 33 5c 33 30 34 5c 32 31 31 03 5c 32 30 33 23 00 03 5c 32 31 31 41 5c 32 36 32	301\303\304\211.\203#..\211A\262
1c700	05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 01 05 21 5c 32 36 32 05 5c	.\242\262..\262..T\262...!\262.\
1c720	32 30 32 08 00 5c 32 36 36 04 5c 32 30 37 22 20 5b 56 30 20 56 31 20 61 70 70 6c 79 20 30 20 6e	202..\266.\207".[V0.V1.apply.0.n
1c740	69 6c 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 41 52 47 53 29 22 5d 20 23 5b 33	il].8."\n\n(fn.&rest.ARGS)"].#[3
1c760	38 34 20 22 01 5c 32 30 37 22 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 26 6f 70 74 69 6f 6e	84.".\207".[].3."\n\n(fn.&option
1c780	61 6c 20 41 52 47 20 26 72 65 73 74 20 5f 29 22 5d 5d 20 38 20 28 23 24 20 2e 20 31 31 35 39 39	al.ARG.&rest._)"]].8.(#$...11599
1c7a0	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 5c 33 30	1)]).(byte-code."\300\301\302\30
1c7c0	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
1c7e0	6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6d 70 6f 73 65 20 70 75 72 65 20 74 20 73 69 64 65 2d	nction-put.-compose.pure.t.side-
1c800	65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 38 35 20 52 65 74 75 72 6e 20 61 20 66	effect-free].5).#@185.Return.a.f
1c820	75 6e 63 74 69 6f 6e 20 74 68 61 74 20 61 70 70 6c 69 65 73 20 46 4e 20 74 6f 20 61 20 73 69 6e	unction.that.applies.FN.to.a.sin
1c840	67 6c 65 20 6c 69 73 74 20 6f 66 20 61 72 67 73 2e 0a 54 68 69 73 20 63 68 61 6e 67 65 73 20 74	gle.list.of.args..This.changes.t
1c860	68 65 20 61 72 69 74 79 20 6f 66 20 46 4e 20 66 72 6f 6d 20 74 61 6b 69 6e 67 20 4e 20 64 69 73	he.arity.of.FN.from.taking.N.dis
1c880	74 69 6e 63 74 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 0a 74 61 6b 69 6e 67 20 31 20 61 72 67 75	tinct.arguments.to.taking.1.argu
1c8a0	6d 65 6e 74 20 77 68 69 63 68 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 4e 20 61 72 67 75 6d 65	ment.which.is.a.list.of.N.argume
1c8c0	6e 74 73 2e 0a 0a 28 66 6e 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 70 70 6c 69	nts...(fn.FN)..(defalias.'-appli
1c8e0	66 79 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 6d 61 6b 65	fy.#[257."\300\301.\"\207".[make
1c900	2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 30 37 22	-closure.#[257."\301\300.\"\207"
1c920	20 5b 56 30 20 61 70 70 6c 79 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 41 52 47 53 29 22 5d 5d 20	.[V0.apply].4."\n\n(fn.ARGS)"]].
1c940	34 20 28 23 24 20 2e 20 31 31 36 37 35 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	4.(#$...116758)]).(byte-code."\3
1c960	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 23	00\301\302\303#\300\301\304\303#
1c980	5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 61 70 70 6c 69 66 79	\300\207".[function-put.-applify
1c9a0	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 34	.pure.t.side-effect-free].5).#@4
1c9c0	35 34 20 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 63 61 6c 6c 73 20	54.Return.a.function.that.calls.
1c9e0	54 52 41 4e 53 20 6f 6e 20 65 61 63 68 20 61 72 67 20 61 6e 64 20 4f 50 20 6f 6e 20 74 68 65 20	TRANS.on.each.arg.and.OP.on.the.
1ca00	72 65 73 75 6c 74 73 2e 0a 54 68 65 20 72 65 74 75 72 6e 65 64 20 66 75 6e 63 74 69 6f 6e 20 74	results..The.returned.function.t
1ca20	61 6b 65 73 20 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65	akes.a.variable.number.of.argume
1ca40	6e 74 73 2c 20 63 61 6c 6c 73 0a 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 54 52 41 4e 53 20 6f 6e	nts,.calls.the.function.TRANS.on
1ca60	20 65 61 63 68 20 6f 6e 65 20 69 6e 20 74 75 72 6e 2c 20 61 6e 64 20 74 68 65 6e 20 70 61 73 73	.each.one.in.turn,.and.then.pass
1ca80	65 73 20 74 68 6f 73 65 0a 72 65 73 75 6c 74 73 20 61 73 20 74 68 65 20 6c 69 73 74 20 6f 66 20	es.those.results.as.the.list.of.
1caa0	61 72 67 75 6d 65 6e 74 73 20 74 6f 20 4f 50 2c 20 69 6e 20 74 68 65 20 73 61 6d 65 20 6f 72 64	arguments.to.OP,.in.the.same.ord
1cac0	65 72 2e 0a 0a 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20	er...For.example,.the.following.
1cae0	70 61 69 72 73 20 6f 66 20 65 78 70 72 65 73 73 69 6f 6e 73 20 61 72 65 20 6d 6f 72 61 6c 6c 79	pairs.of.expressions.are.morally
1cb00	0a 65 71 75 69 76 61 6c 65 6e 74 3a 0a 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 2d 6f 6e 20 23 5c	.equivalent:....(funcall.(-on.#\
1cb20	3d 27 2b 20 23 5c 3d 27 31 2b 29 20 31 20 32 20 33 29 20 3d 20 28 2b 20 28 31 2b 20 31 29 20 28	='+.#\='1+).1.2.3).=.(+.(1+.1).(
1cb40	31 2b 20 32 29 20 28 31 2b 20 33 29 29 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 2d 6f 6e 20 23 5c	1+.2).(1+.3))...(funcall.(-on.#\
1cb60	3d 27 2b 20 23 5c 3d 27 31 2b 29 29 20 20 20 20 20 20 20 3d 20 28 2b 29 0a 0a 28 66 6e 20 4f 50	='+.#\='1+)).......=.(+)..(fn.OP
1cb80	20 54 52 41 4e 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6f 6e 20 23 5b 35 31 34 20 22 5c	.TRANS)..(defalias.'-on.#[514."\
1cba0	33 30 30 5c 33 30 31 03 03 23 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b	300\301..#\207".[make-closure.#[
1cbc0	31 32 38 20 22 5c 32 31 31 41 41 5c 32 30 33 0e 00 5c 33 30 32 5c 33 30 30 5c 33 30 33 5c 33 30	128."\211AA\203..\302\300\303\30
1cbe0	31 04 5c 22 5c 22 5c 32 30 37 5c 32 31 31 41 5c 32 30 33 1f 00 5c 33 30 30 5c 33 30 31 02 40 21	1.\"\"\207\211A\203..\300\301.@!
1cc00	5c 33 30 31 03 41 40 21 5c 22 5c 32 30 37 5c 32 31 31 5c 32 30 33 2a 00 5c 33 30 30 5c 33 30 31	\301.A@!\"\207\211\203*.\300\301
1cc20	02 40 21 21 5c 32 30 37 5c 33 30 30 20 5c 32 30 37 22 20 5b 56 30 20 56 31 20 61 70 70 6c 79 20	.@!!\207\300.\207".[V0.V1.apply.
1cc40	6d 61 70 63 61 72 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 41 52 47 53 29 22 5d	mapcar].6."\n\n(fn.&rest.ARGS)"]
1cc60	5d 20 36 20 28 23 24 20 2e 20 31 31 37 31 38 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	].6.(#$...117187)]).(byte-code."
1cc80	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30	\300\301\302\303#\300\301\304\30
1cca0	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 2d 6f 6e 20 70 75	3#\300\207".[function-put.-on.pu
1ccc0	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 32 37 31 20	re.t.side-effect-free].5).#@271.
1cce0	52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 63 61 6c 6c 73 20 46 4e 20	Return.a.function.that.calls.FN.
1cd00	77 69 74 68 20 69 74 73 20 61 72 67 75 6d 65 6e 74 73 20 72 65 76 65 72 73 65 64 2e 0a 54 68 65	with.its.arguments.reversed..The
1cd20	20 72 65 74 75 72 6e 65 64 20 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 74 68 65 20 73 61 6d	.returned.function.takes.the.sam
1cd40	65 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 61 73 20 46 4e 2e 0a 0a 46 6f	e.number.of.arguments.as.FN...Fo
1cd60	72 20 65 78 61 6d 70 6c 65 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 77 6f 20 65 78 70	r.example,.the.following.two.exp
1cd80	72 65 73 73 69 6f 6e 73 20 61 72 65 20 6d 6f 72 61 6c 6c 79 0a 65 71 75 69 76 61 6c 65 6e 74 3a	ressions.are.morally.equivalent:
1cda0	0a 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 2d 66 6c 69 70 20 23 5c 3d 27 2d 29 20 31 20 32 29 20	....(funcall.(-flip.#\='-).1.2).
1cdc0	3d 20 28 2d 20 32 20 31 29 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 6f 74 61 74 65 2d 61 72	=.(-.2.1)..See.also:.`-rotate-ar
1cde0	67 73 27 2e 0a 0a 28 66 6e 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 6c 69 70 20	gs'...(fn.FN)..(defalias.'-flip.
1ce00	23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 63 6c	#[257."\300\301.\"\207".[make-cl
1ce20	6f 73 75 72 65 20 23 5b 31 32 38 20 22 5c 32 31 31 41 41 5c 32 30 33 5c 66 00 5c 33 30 31 5c 33	osure.#[128."\211AA\203\f.\301\3
1ce40	30 30 02 5c 32 33 37 5c 22 5c 32 30 37 5c 32 31 31 41 5c 32 30 33 19 00 5c 33 30 30 01 41 40 02	00.\237\"\207\211A\203..\300.A@.
1ce60	40 5c 22 5c 32 30 37 5c 32 31 31 5c 32 30 33 5c 22 00 5c 33 30 30 01 40 21 5c 32 30 37 5c 33 30	@\"\207\211\203\".\300.@!\207\30
1ce80	30 20 5c 32 30 37 22 20 5b 56 30 20 61 70 70 6c 79 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 26 72	0.\207".[V0.apply].4."\n\n(fn.&r
1cea0	65 73 74 20 41 52 47 53 29 22 5d 5d 20 34 20 28 23 24 20 2e 20 31 31 37 39 38 34 29 5d 29 0a 28	est.ARGS)"]].4.(#$...117984)]).(
1cec0	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
1cee0	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
1cf00	2d 70 75 74 20 2d 66 6c 69 70 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72	-put.-flip.pure.t.side-effect-fr
1cf20	65 65 5d 20 35 29 0a 23 40 32 39 36 20 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 74	ee].5).#@296.Return.a.function.t
1cf40	68 61 74 20 63 61 6c 6c 73 20 46 4e 20 77 69 74 68 20 61 72 67 73 20 72 6f 74 61 74 65 64 20 4e	hat.calls.FN.with.args.rotated.N
1cf60	20 70 6c 61 63 65 73 20 74 6f 20 74 68 65 20 72 69 67 68 74 2e 0a 54 68 65 20 72 65 74 75 72 6e	.places.to.the.right..The.return
1cf80	65 64 20 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 74 68 65 20 73 61 6d 65 20 6e 75 6d 62 65	ed.function.takes.the.same.numbe
1cfa0	72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 61 73 20 46 4e 2c 0a 72 6f 74 61 74 65 73 20 74 68	r.of.arguments.as.FN,.rotates.th
1cfc0	65 20 6c 69 73 74 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 4e 20 70 6c 61 63 65 73 20 74 6f 20	e.list.of.arguments.N.places.to.
1cfe0	74 68 65 20 72 69 67 68 74 20 28 6c 65 66 74 20 69 66 20 4e 20 69 73 0a 6e 65 67 61 74 69 76 65	the.right.(left.if.N.is.negative
1d000	29 20 6a 75 73 74 20 6c 69 6b 65 20 60 2d 72 6f 74 61 74 65 27 2c 20 61 6e 64 20 61 70 70 6c 69	).just.like.`-rotate',.and.appli
1d020	65 73 20 46 4e 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20	es.FN.to.the.result...See.also:.
1d040	60 2d 66 6c 69 70 27 2e 0a 0a 28 66 6e 20 4e 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	`-flip'...(fn.N.FN)..(defalias.'
1d060	2d 72 6f 74 61 74 65 2d 61 72 67 73 20 23 5b 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 07 00	-rotate-args.#[514.".\300U\203..
1d080	5c 32 30 37 01 5c 33 30 31 5c 32 34 36 5c 33 30 30 55 5c 33 30 32 5c 33 30 33 04 04 04 24 5c 32	\207.\301\246\300U\302\303...$\2
1d0a0	30 37 22 20 5b 30 20 32 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 31 32 38 20 22 5c 32 31	07".[0.2.make-closure.#[128."\21
1d0c0	31 41 41 5c 32 30 33 0e 00 5c 33 30 33 5c 33 30 31 5c 33 30 34 5c 33 30 30 04 5c 22 5c 22 5c 32	1AA\203..\303\301\304\300.\"\"\2
1d0e0	30 37 5c 32 31 31 41 5c 32 30 33 2d 00 5c 32 31 31 40 01 41 40 5c 33 30 31 5c 33 30 32 5c 32 30	07\211A\203-.\211@.A@\301\302\20
1d100	33 21 00 02 5c 32 30 32 5c 22 00 01 5c 33 30 32 5c 32 30 33 2a 00 02 5c 32 30 32 2b 00 03 5c 22	3!..\202\"..\302\203*..\202+..\"
1d120	5c 32 30 37 5c 32 31 31 5c 32 30 33 36 00 5c 33 30 31 01 40 21 5c 32 30 37 5c 33 30 31 20 5c 32	\207\211\2036.\301.@!\207\301.\2
1d140	30 37 22 20 5b 56 30 20 56 31 20 56 32 20 61 70 70 6c 79 20 2d 72 6f 74 61 74 65 5d 20 36 20 22	07".[V0.V1.V2.apply.-rotate].6."
1d160	5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 41 52 47 53 29 22 5d 5d 20 38 20 28 23 24 20 2e 20 31	\n\n(fn.&rest.ARGS)"]].8.(#$...1
1d180	31 38 35 37 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	18573)]).(byte-code."\300\301\30
1d1a0	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"
1d1c0	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 6f 74 61 74 65 2d 61 72 67 73 20 70 75 72 65	.[function-put.-rotate-args.pure
1d1e0	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 31 30 30 20 52 65	.t.side-effect-free].5).#@100.Re
1d200	74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 43 20 69	turn.a.function.that.returns.C.i
1d220	67 6e 6f 72 69 6e 67 20 61 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 73	gnoring.any.additional.arguments
1d240	2e 0a 0a 49 6e 20 74 79 70 65 73 3a 20 61 20 2d 3e 20 62 20 2d 3e 20 61 0a 0a 28 66 6e 20 43 29	...In.types:.a.->.b.->.a..(fn.C)
1d260	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c	..(defalias.'-const.#[257."\300\
1d280	33 30 31 02 5c 22 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 31 32 38 20	301.\"\207".[make-closure.#[128.
1d2a0	22 5c 33 30 30 5c 32 30 37 22 20 5b 56 30 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74	"\300\207".[V0].2."\n\n(fn.&rest
1d2c0	20 5f 29 22 5d 5d 20 34 20 28 23 24 20 2e 20 31 31 39 32 39 34 29 5d 29 0a 28 62 79 74 65 2d 63	._)"]].4.(#$...119294)]).(byte-c
1d2e0	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
1d300	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 2d	04\303#\300\207".[function-put.-
1d320	63 6f 6e 73 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	const.pure.t.side-effect-free].5
1d340	29 0a 23 40 31 37 36 20 54 61 6b 65 20 6e 2d 61 72 79 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20	).#@176.Take.n-ary.function.and.
1d360	6e 20 61 72 67 75 6d 65 6e 74 73 20 61 6e 64 20 73 70 65 63 69 61 6c 69 7a 65 20 73 6f 6d 65 20	n.arguments.and.specialize.some.
1d380	6f 66 20 74 68 65 6d 2e 0a 41 72 67 75 6d 65 6e 74 73 20 64 65 6e 6f 74 65 64 20 62 79 20 3c 3e	of.them..Arguments.denoted.by.<>
1d3a0	20 77 69 6c 6c 20 62 65 20 6c 65 66 74 20 75 6e 73 70 65 63 69 61 6c 69 7a 65 64 2e 0a 0a 53 65	.will.be.left.unspecialized...Se
1d3c0	65 20 53 52 46 49 2d 32 36 20 66 6f 72 20 64 65 74 61 69 6c 65 64 20 64 65 73 63 72 69 70 74 69	e.SRFI-26.for.detailed.descripti
1d3e0	6f 6e 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 50 41 52 41 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61	on...(fn.&rest.PARAMS)..(defalia
1d400	73 20 27 2d 63 75 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30	s.'-cut.'(macro...#[128."\300\30
1d420	31 02 5c 33 30 30 5c 33 30 31 5c 32 31 31 03 5c 32 30 33 38 00 03 5c 32 31 31 41 5c 32 36 32 05	1.\300\301\211.\2038..\211A\262.
1d440	5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 01 5c 33 30 32 3d 5c 32 30 35	\242\262..\262..T\262..\302=\205
1d460	2a 00 05 54 5c 32 36 32 06 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 08 5c 22 21 5c 32 31 31 5c 32	*..T\262.\303\304\305..\"!\211\2
1d480	30 33 34 00 5c 32 31 31 06 06 42 5c 32 36 32 06 5c 32 31 30 5c 32 30 32 06 00 5c 32 36 36 04 5c	034.\211..B\262.\210\202..\266.\
1d4a0	32 31 31 5c 32 33 37 5c 32 36 32 01 43 5c 33 30 36 01 5c 32 34 32 5c 33 30 37 5c 33 31 30 5c 33	211\237\262.C\306.\242\307\310\3
1d4c0	31 31 05 5c 22 06 06 5c 22 05 40 5c 33 30 32 3d 5c 32 30 33 57 00 5c 33 31 32 01 42 5c 32 30 32	11.\"..\".@\302=\203W.\312.B\202
1d4e0	58 00 5c 32 31 31 5c 32 36 32 01 45 5c 32 30 37 22 20 5b 30 20 6e 69 6c 20 3c 3e 20 6d 61 6b 65	X.\211\262.E\207".[0.nil.<>.make
1d500	2d 73 79 6d 62 6f 6c 20 66 6f 72 6d 61 74 20 22 44 25 64 22 20 6c 61 6d 62 64 61 20 6d 61 70 63	-symbol.format."D%d".lambda.mapc
1d520	61 72 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 3d	ar.make-closure.#[257."\211\301=
1d540	5c 32 30 33 10 00 5c 33 30 30 5c 32 34 32 5c 33 30 30 5c 32 31 31 5c 32 34 32 41 5c 32 34 30 5c	\203..\300\242\300\211\242A\240\
1d560	32 31 30 5c 32 34 32 5c 32 30 37 5c 32 30 37 22 20 5b 56 30 20 3c 3e 5d 20 34 20 22 5c 6e 5c 6e	210\242\207\207".[V0.<>].4."\n\n
1d580	28 66 6e 20 49 54 29 22 5d 20 66 75 6e 63 61 6c 6c 5d 20 31 31 20 28 23 24 20 2e 20 31 31 39 36	(fn.IT)"].funcall].11.(#$...1196
1d5a0	32 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 63 75 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73	24)])).(put.'-cut.'edebug-form-s
1d5c0	70 65 63 20 27 28 26 6f 70 74 69 6f 6e 61 6c 20 73 65 78 70 20 26 72 65 73 74 20 26 6f 72 20 22	pec.'(&optional.sexp.&rest.&or."
1d5e0	3c 3e 22 20 66 6f 72 6d 29 29 0a 23 40 32 32 34 20 52 65 74 75 72 6e 20 61 20 70 72 65 64 69 63	<>".form)).#@224.Return.a.predic
1d600	61 74 65 20 74 68 61 74 20 6e 65 67 61 74 65 73 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 50	ate.that.negates.the.result.of.P
1d620	52 45 44 2e 0a 54 68 65 20 72 65 74 75 72 6e 65 64 20 70 72 65 64 69 63 61 74 65 20 70 61 73 73	RED..The.returned.predicate.pass
1d640	65 73 20 69 74 73 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 50 52 45 44 2e 20 20 49 66 20 50 52	es.its.arguments.to.PRED...If.PR
1d660	45 44 0a 72 65 74 75 72 6e 73 20 6e 69 6c 2c 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 6e 6f	ED.returns.nil,.the.result.is.no
1d680	6e 2d 6e 69 6c 3b 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 6e	n-nil;.otherwise.the.result.is.n
1d6a0	69 6c 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 61 6e 64 66 6e 27 20 61 6e 64 20 60 2d 6f 72	il...See.also:.`-andfn'.and.`-or
1d6c0	66 6e 27 2e 0a 0a 28 66 6e 20 50 52 45 44 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6e 6f 74	fn'...(fn.PRED)..(defalias.'-not
1d6e0	20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 63	.#[257."\300\301.\"\207".[make-c
1d700	6c 6f 73 75 72 65 20 23 5b 31 32 38 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 3f 5c 32 30 37 22 20	losure.#[128."\301\300.\"?\207".
1d720	5b 56 30 20 61 70 70 6c 79 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 41 52 47 53	[V0.apply].4."\n\n(fn.&rest.ARGS
1d740	29 22 5d 5d 20 34 20 28 23 24 20 2e 20 31 32 30 33 30 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64	)"]].4.(#$...120305)]).(byte-cod
1d760	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
1d780	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 2d 6e 6f	\303#\300\207".[function-put.-no
1d7a0	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).#@
1d7c0	34 31 38 20 52 65 74 75 72 6e 20 61 20 70 72 65 64 69 63 61 74 65 20 74 68 61 74 20 72 65 74 75	418.Return.a.predicate.that.retu
1d7e0	72 6e 73 20 74 68 65 20 66 69 72 73 74 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 20 6f 66 20	rns.the.first.non-nil.result.of.
1d800	50 52 45 44 53 2e 0a 54 68 65 20 72 65 74 75 72 6e 65 64 20 70 72 65 64 69 63 61 74 65 20 74 61	PREDS..The.returned.predicate.ta
1d820	6b 65 73 20 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e	kes.a.variable.number.of.argumen
1d840	74 73 2c 0a 70 61 73 73 65 73 20 74 68 65 6d 20 74 6f 20 65 61 63 68 20 70 72 65 64 69 63 61 74	ts,.passes.them.to.each.predicat
1d860	65 20 69 6e 20 50 52 45 44 53 20 69 6e 20 74 75 72 6e 20 75 6e 74 69 6c 20 6f 6e 65 20 6f 66 20	e.in.PREDS.in.turn.until.one.of.
1d880	74 68 65 6d 0a 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 6e 64 20 72 65 74 75 72 6e	them.returns.non-nil,.and.return
1d8a0	73 20 74 68 61 74 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 20 77 69 74 68 6f 75 74 20 63 61	s.that.non-nil.result.without.ca
1d8c0	6c 6c 69 6e 67 0a 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 50 52 45 44 53 2e 20 20 49 66 20 61	lling.the.remaining.PREDS...If.a
1d8e0	6c 6c 20 50 52 45 44 53 20 72 65 74 75 72 6e 20 6e 69 6c 2c 20 6f 72 20 69 66 20 6e 6f 20 50 52	ll.PREDS.return.nil,.or.if.no.PR
1d900	45 44 53 20 61 72 65 0a 67 69 76 65 6e 2c 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 70 72 65 64	EDS.are.given,.the.returned.pred
1d920	69 63 61 74 65 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d	icate.returns.nil...See.also:.`-
1d940	61 6e 64 66 6e 27 20 61 6e 64 20 60 2d 6e 6f 74 27 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 50 52	andfn'.and.`-not'...(fn.&rest.PR
1d960	45 44 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6f 72 66 6e 20 23 5b 31 32 38 20 22 5c 32	EDS)..(defalias.'-orfn.#[128."\2
1d980	31 31 41 5c 32 30 33 5c 6e 00 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 5c 32 31 31 5c 32 30	11A\203\n.\300\301.\"\207\211\20
1d9a0	33 11 00 5c 32 31 31 40 5c 32 30 37 5c 33 30 32 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 63 6c 6f 73	3..\211@\207\302\207".[make-clos
1d9c0	75 72 65 20 23 5b 31 32 38 20 22 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 33 30 31 5c 32 31 31 5c	ure.#[128."\301\300\302\301\211\
1d9e0	32 31 31 04 5c 32 30 33 34 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c	211.\2034..\211A\262.\242\262..\
1da00	32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 34 00 5c 33 30 33 02 06 08 5c 22 5c 32 31	262..\211\262.\2034.\303...\"\21
1da20	31 5c 32 36 32 07 5c 32 30 34 34 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c	1\262.\2044..\262..\262..T\262.\
1da40	32 30 32 06 00 5c 32 36 36 05 5c 32 30 37 22 20 5b 56 30 20 6e 69 6c 20 30 20 61 70 70 6c 79 5d	202..\266.\207".[V0.nil.0.apply]
1da60	20 31 30 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 41 52 47 53 29 22 5d 20 69 67 6e 6f 72	.10."\n\n(fn.&rest.ARGS)"].ignor
1da80	65 5d 20 34 20 28 23 24 20 2e 20 31 32 30 37 37 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20	e].4.(#$...120772)]).(byte-code.
1daa0	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 33	"\300\301\302\303#\300\301\304\3
1dac0	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 2d 6f 72 66 6e	03#\300\207".[function-put.-orfn
1dae0	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 34	.pure.t.side-effect-free].5).#@4
1db00	32 35 20 52 65 74 75 72 6e 20 61 20 70 72 65 64 69 63 61 74 65 20 74 68 61 74 20 72 65 74 75 72	25.Return.a.predicate.that.retur
1db20	6e 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 61 6c 6c 20 50 52 45 44 53 20 64 6f 20 73 6f 2e 0a 54	ns.non-nil.if.all.PREDS.do.so..T
1db40	68 65 20 72 65 74 75 72 6e 65 64 20 70 72 65 64 69 63 61 74 65 20 50 20 74 61 6b 65 73 20 61 20	he.returned.predicate.P.takes.a.
1db60	76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 61 6e 64	variable.number.of.arguments.and
1db80	0a 70 61 73 73 65 73 20 74 68 65 6d 20 74 6f 20 65 61 63 68 20 70 72 65 64 69 63 61 74 65 20 69	.passes.them.to.each.predicate.i
1dba0	6e 20 50 52 45 44 53 20 69 6e 20 74 75 72 6e 2e 20 20 49 66 20 61 6e 79 20 6f 6e 65 20 6f 66 0a	n.PREDS.in.turn...If.any.one.of.
1dbc0	50 52 45 44 53 20 72 65 74 75 72 6e 73 20 6e 69 6c 2c 20 50 20 61 6c 73 6f 20 72 65 74 75 72 6e	PREDS.returns.nil,.P.also.return
1dbe0	73 20 6e 69 6c 20 77 69 74 68 6f 75 74 20 63 61 6c 6c 69 6e 67 20 74 68 65 0a 72 65 6d 61 69 6e	s.nil.without.calling.the.remain
1dc00	69 6e 67 20 50 52 45 44 53 2e 20 20 49 66 20 61 6c 6c 20 50 52 45 44 53 20 72 65 74 75 72 6e 20	ing.PREDS...If.all.PREDS.return.
1dc20	6e 6f 6e 2d 6e 69 6c 2c 20 50 20 72 65 74 75 72 6e 73 20 74 68 65 20 6c 61 73 74 0a 73 75 63 68	non-nil,.P.returns.the.last.such
1dc40	20 76 61 6c 75 65 2e 20 20 49 66 20 6e 6f 20 50 52 45 44 53 20 61 72 65 20 67 69 76 65 6e 2c 20	.value...If.no.PREDS.are.given,.
1dc60	50 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 53 65 65 20 61	P.always.returns.non-nil...See.a
1dc80	6c 73 6f 3a 20 60 2d 6f 72 66 6e 27 20 61 6e 64 20 60 2d 6e 6f 74 27 2e 0a 0a 28 66 6e 20 26 72	lso:.`-orfn'.and.`-not'...(fn.&r
1dca0	65 73 74 20 50 52 45 44 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 6e 64 66 6e 20 23 5b	est.PREDS)..(defalias.'-andfn.#[
1dcc0	31 32 38 20 22 5c 32 31 31 41 5c 32 30 33 5c 6e 00 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37	128."\211A\203\n.\300\301.\"\207
1dce0	5c 32 31 31 5c 32 30 33 11 00 5c 32 31 31 40 5c 32 30 37 5c 33 30 32 5c 33 30 33 21 5c 32 30 33	\211\203..\211@\207\302\303!\203
1dd00	19 00 5c 33 30 33 5c 32 30 37 5c 33 30 34 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 63 6c 6f 73 75 72	..\303\207\304\207".[make-closur
1dd20	65 20 23 5b 31 32 38 20 22 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 33 30 33 5c 32 31 31 5c 32 31	e.#[128."\301\300\302\303\211\21
1dd40	31 04 5c 32 30 33 34 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36	1.\2034..\211A\262.\242\262..\26
1dd60	32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 34 00 5c 33 30 34 02 06 08 5c 22 5c 32 31 31 5c	2..\211\262.\2034.\304...\"\211\
1dd80	32 36 32 07 5c 32 30 33 34 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 30	262.\2034..\262..\262..T\262.\20
1dda0	32 06 00 5c 32 36 36 05 5c 32 30 37 22 20 5b 56 30 20 74 20 30 20 6e 69 6c 20 61 70 70 6c 79 5d	2..\266.\207".[V0.t.0.nil.apply]
1ddc0	20 31 30 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 41 52 47 53 29 22 5d 20 66 62 6f 75 6e	.10."\n\n(fn.&rest.ARGS)"].fboun
1dde0	64 70 20 61 6c 77 61 79 73 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 74 5d 20 32	dp.always.#[128."\300\207".[t].2
1de00	20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 5f 29 22 5d 5d 20 34 20 28 23 24 20 2e 20 31 32	."\n\n(fn.&rest._)"]].4.(#$...12
1de20	31 36 30 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 32	1603)]).(byte-code."\300\301\302
1de40	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".
1de60	5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 61 6e 64 66 6e 20 70 75 72 65 20 74 20 73 69 64 65	[function-put.-andfn.pure.t.side
1de80	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 33 39 36 20 52 65 74 75 72 6e 20 61 20	-effect-free].5).#@396.Return.a.
1dea0	66 75 6e 63 74 69 6f 6e 20 46 4e 20 63 6f 6d 70 6f 73 65 64 20 4e 20 74 69 6d 65 73 20 77 69 74	function.FN.composed.N.times.wit
1dec0	68 20 69 74 73 65 6c 66 2e 0a 0a 46 4e 20 69 73 20 61 20 75 6e 61 72 79 20 66 75 6e 63 74 69 6f	h.itself...FN.is.a.unary.functio
1dee0	6e 2e 20 20 49 66 20 79 6f 75 20 6e 65 65 64 20 74 6f 20 75 73 65 20 61 20 66 75 6e 63 74 69 6f	n...If.you.need.to.use.a.functio
1df00	6e 20 6f 66 20 68 69 67 68 65 72 0a 61 72 69 74 79 2c 20 75 73 65 20 60 2d 61 70 70 6c 69 66 79	n.of.higher.arity,.use.`-applify
1df20	27 20 66 69 72 73 74 20 74 6f 20 74 75 72 6e 20 69 74 20 69 6e 74 6f 20 61 20 75 6e 61 72 79 20	'.first.to.turn.it.into.a.unary.
1df40	66 75 6e 63 74 69 6f 6e 2e 0a 0a 57 69 74 68 20 6e 20 3d 20 30 2c 20 74 68 69 73 20 61 63 74 73	function...With.n.=.0,.this.acts
1df60	20 61 73 20 69 64 65 6e 74 69 74 79 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 49 6e 20 74 79 70 65 73	.as.identity.function...In.types
1df80	3a 20 28 61 20 2d 3e 20 61 29 20 2d 3e 20 49 6e 74 20 2d 3e 20 61 20 2d 3e 20 61 2e 0a 0a 54 68	:.(a.->.a).->.Int.->.a.->.a...Th
1dfa0	69 73 20 66 75 6e 63 74 69 6f 6e 20 73 61 74 69 73 66 69 65 73 20 74 68 65 20 66 6f 6c 6c 6f 77	is.function.satisfies.the.follow
1dfc0	69 6e 67 20 6c 61 77 3a 0a 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 2d 69 74 65 72 61 74 65 66 6e	ing.law:....(funcall.(-iteratefn
1dfe0	20 66 6e 20 6e 29 20 69 6e 69 74 29 20 3d 20 28 2d 6c 61 73 74 2d 69 74 65 6d 20 28 2d 69 74 65	.fn.n).init).=.(-last-item.(-ite
1e000	72 61 74 65 20 66 6e 20 69 6e 69 74 20 28 31 2b 20 6e 29 29 29 2e 0a 0a 28 66 6e 20 46 4e 20 4e	rate.fn.init.(1+.n)))...(fn.FN.N
1e020	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 74 65 72 61 74 65 66 6e 20 23 5b 35 31 34 20 22	)..(defalias.'-iteratefn.#[514."
1e040	5c 33 30 30 5c 33 30 31 03 03 23 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23	\300\301..#\207".[make-closure.#
1e060	5b 32 35 37 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 01 03 57 5c 32 30 33 18 00 01 5c 32 36 32	[257."\301\302\303..W\203...\262
1e080	01 01 54 5c 32 36 32 02 5c 33 30 30 04 21 5c 32 36 32 04 5c 32 30 32 03 00 5c 32 36 36 03 5c 32	..T\262.\300.!\262.\202..\266.\2
1e0a0	30 37 22 20 5b 56 30 20 56 31 20 30 20 6e 69 6c 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22	07".[V0.V1.0.nil].6."\n\n(fn.X)"
1e0c0	5d 5d 20 36 20 28 23 24 20 2e 20 31 32 32 35 31 39 29 5d 29 0a 23 40 33 37 39 20 52 65 74 75 72	]].6.(#$...122519)]).#@379.Retur
1e0e0	6e 20 61 20 63 6c 6f 73 75 72 65 20 74 68 61 74 20 63 6f 75 6e 74 73 20 66 72 6f 6d 20 42 45 47	n.a.closure.that.counts.from.BEG
1e100	20 74 6f 20 45 4e 44 2c 20 77 69 74 68 20 69 6e 63 72 65 6d 65 6e 74 20 49 4e 43 2e 0a 0a 54 68	.to.END,.with.increment.INC...Th
1e120	65 20 63 6c 6f 73 75 72 65 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 74 68 65 20 6e 65 78 74 20 76	e.closure.will.return.the.next.v
1e140	61 6c 75 65 20 69 6e 20 74 68 65 20 63 6f 75 6e 74 69 6e 67 20 73 65 71 75 65 6e 63 65 0a 65 61	alue.in.the.counting.sequence.ea
1e160	63 68 20 74 69 6d 65 20 69 74 20 69 73 20 63 61 6c 6c 65 64 2c 20 61 6e 64 20 6e 69 6c 20 61 66	ch.time.it.is.called,.and.nil.af
1e180	74 65 72 20 45 4e 44 20 69 73 20 72 65 61 63 68 65 64 2e 20 42 45 47 0a 64 65 66 61 75 6c 74 73	ter.END.is.reached..BEG.defaults
1e1a0	20 74 6f 20 30 2c 20 49 4e 43 20 64 65 66 61 75 6c 74 73 20 74 6f 20 31 2c 20 61 6e 64 20 69 66	.to.0,.INC.defaults.to.1,.and.if
1e1c0	20 45 4e 44 20 69 73 20 6e 69 6c 2c 20 74 68 65 20 63 6f 75 6e 74 65 72 0a 77 69 6c 6c 20 69 6e	.END.is.nil,.the.counter.will.in
1e1e0	63 72 65 6d 65 6e 74 20 69 6e 64 65 66 69 6e 69 74 65 6c 79 2e 0a 0a 54 68 65 20 63 6c 6f 73 75	crement.indefinitely...The.closu
1e200	72 65 20 61 63 63 65 70 74 73 20 61 6e 79 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e	re.accepts.any.number.of.argumen
1e220	74 73 2c 20 77 68 69 63 68 20 61 72 65 20 64 69 73 63 61 72 64 65 64 2e 0a 0a 28 66 6e 20 26 6f	ts,.which.are.discarded...(fn.&o
1e240	70 74 69 6f 6e 61 6c 20 42 45 47 20 45 4e 44 20 49 4e 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	ptional.BEG.END.INC)..(defalias.
1e260	27 2d 63 6f 75 6e 74 65 72 20 23 5b 37 36 38 20 22 5c 32 31 31 5c 32 30 36 05 00 5c 33 30 30 03	'-counter.#[768."\211\206..\300.
1e280	5c 32 30 36 5c 6e 00 5c 33 30 31 43 5c 33 30 32 5c 33 30 33 05 04 04 24 5c 32 30 37 22 20 5b 31	\206\n.\301C\302\303...$\207".[1
1e2a0	20 30 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 32 30 33 0b	.0.make-closure.#[128."\300\203.
1e2c0	00 5c 33 30 32 5c 32 34 32 5c 33 30 30 57 5c 32 30 35 14 00 5c 33 30 32 5c 32 34 32 5c 33 30 32	.\302\242\300W\205..\302\242\302
1e2e0	5c 32 31 31 5c 32 34 32 5c 33 30 31 5c 5c 5c 32 34 30 5c 32 31 30 5c 32 30 37 22 20 5b 56 30 20	\211\242\301\\\240\210\207".[V0.
1e300	56 31 20 56 32 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 5f 29 22 5d 5d 20 31 30	V1.V2].5."\n\n(fn.&rest._)"]].10
1e320	20 28 23 24 20 2e 20 31 32 33 30 39 39 29 5d 29 0a 23 40 39 34 20 54 68 65 20 64 65 66 61 75 6c	.(#$...123099)]).#@94.The.defaul
1e340	74 20 6d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 69 74 65 72 61 74 69 6f 6e 73 20 70	t.maximum.number.of.iterations.p
1e360	65 72 66 6f 72 6d 65 64 20 62 79 20 60 2d 66 69 78 66 6e 27 0a 20 20 75 6e 6c 65 73 73 20 6f 74	erformed.by.`-fixfn'...unless.ot
1e380	68 65 72 77 69 73 65 20 73 70 65 63 69 66 69 65 64 2e 1f 0a 28 64 65 66 76 61 72 20 2d 66 69 78	herwise.specified...(defvar.-fix
1e3a0	66 6e 2d 6d 61 78 2d 69 74 65 72 61 74 69 6f 6e 73 20 31 30 30 30 20 28 23 24 20 2e 20 31 32 33	fn-max-iterations.1000.(#$...123
1e3c0	37 30 32 29 29 0a 23 40 31 31 39 30 20 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 74	702)).#@1190.Return.a.function.t
1e3e0	68 61 74 20 63 6f 6d 70 75 74 65 73 20 74 68 65 20 28 6c 65 61 73 74 29 20 66 69 78 70 6f 69 6e	hat.computes.the.(least).fixpoin
1e400	74 20 6f 66 20 46 4e 2e 0a 0a 46 4e 20 6d 75 73 74 20 62 65 20 61 20 75 6e 61 72 79 20 66 75 6e	t.of.FN...FN.must.be.a.unary.fun
1e420	63 74 69 6f 6e 2e 20 54 68 65 20 72 65 74 75 72 6e 65 64 20 6c 61 6d 62 64 61 20 74 61 6b 65 73	ction..The.returned.lambda.takes
1e440	20 61 20 73 69 6e 67 6c 65 0a 61 72 67 75 6d 65 6e 74 2c 20 58 2c 20 74 68 65 20 69 6e 69 74 69	.a.single.argument,.X,.the.initi
1e460	61 6c 20 76 61 6c 75 65 20 66 6f 72 20 74 68 65 20 66 69 78 70 6f 69 6e 74 20 69 74 65 72 61 74	al.value.for.the.fixpoint.iterat
1e480	69 6f 6e 2e 20 54 68 65 0a 69 74 65 72 61 74 69 6f 6e 20 68 61 6c 74 73 20 77 68 65 6e 20 65 69	ion..The.iteration.halts.when.ei
1e4a0	74 68 65 72 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 73	ther.of.the.following.conditions
1e4c0	20 69 73 20 73 61 74 69 73 66 69 65 64 3a 0a 0a 20 31 2e 20 49 74 65 72 61 74 69 6f 6e 20 63 6f	.is.satisfied:...1..Iteration.co
1e4e0	6e 76 65 72 67 65 73 20 74 6f 20 74 68 65 20 66 69 78 70 6f 69 6e 74 2c 20 77 69 74 68 20 65 71	nverges.to.the.fixpoint,.with.eq
1e500	75 61 6c 69 74 79 20 62 65 69 6e 67 0a 20 20 20 20 74 65 73 74 65 64 20 75 73 69 6e 67 20 45 51	uality.being.....tested.using.EQ
1e520	55 41 4c 2d 54 45 53 54 2e 20 49 66 20 45 51 55 41 4c 2d 54 45 53 54 20 69 73 20 6e 6f 74 20 73	UAL-TEST..If.EQUAL-TEST.is.not.s
1e540	70 65 63 69 66 69 65 64 2c 0a 20 20 20 20 60 65 71 75 61 6c 27 20 69 73 20 75 73 65 64 2e 20 46	pecified,.....`equal'.is.used..F
1e560	6f 72 20 66 75 6e 63 74 69 6f 6e 73 20 6f 76 65 72 20 74 68 65 20 66 6c 6f 61 74 69 6e 67 20 70	or.functions.over.the.floating.p
1e580	6f 69 6e 74 0a 20 20 20 20 6e 75 6d 62 65 72 73 2c 20 69 74 20 6d 61 79 20 62 65 20 6e 65 63 65	oint.....numbers,.it.may.be.nece
1e5a0	73 73 61 72 79 20 74 6f 20 70 72 6f 76 69 64 65 20 61 6e 20 61 70 70 72 6f 70 72 69 61 74 65 0a	ssary.to.provide.an.appropriate.
1e5c0	20 20 20 20 61 70 70 72 6f 78 69 6d 61 74 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 74 65 73 74 2e	....approximate.comparison.test.
1e5e0	0a 0a 20 32 2e 20 48 41 4c 54 2d 54 45 53 54 20 72 65 74 75 72 6e 73 20 61 20 6e 6f 6e 2d 6e 69	...2..HALT-TEST.returns.a.non-ni
1e600	6c 20 76 61 6c 75 65 2e 20 48 41 4c 54 2d 54 45 53 54 20 64 65 66 61 75 6c 74 73 20 74 6f 20 61	l.value..HALT-TEST.defaults.to.a
1e620	0a 20 20 20 20 73 69 6d 70 6c 65 20 63 6f 75 6e 74 65 72 20 74 68 61 74 20 72 65 74 75 72 6e 73	.....simple.counter.that.returns
1e640	20 74 20 61 66 74 65 72 20 60 2d 66 69 78 66 6e 2d 6d 61 78 2d 69 74 65 72 61 74 69 6f 6e 73 27	.t.after.`-fixfn-max-iterations'
1e660	2c 0a 20 20 20 20 74 6f 20 67 75 61 72 64 20 61 67 61 69 6e 73 74 20 69 6e 66 69 6e 69 74 65 20	,.....to.guard.against.infinite.
1e680	69 74 65 72 61 74 69 6f 6e 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 48 41 4c 54 2d 54 45 53 54 0a	iteration..Otherwise,.HALT-TEST.
1e6a0	20 20 20 20 6d 75 73 74 20 62 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 61 63 63 65	....must.be.a.function.that.acce
1e6c0	70 74 73 20 61 20 73 69 6e 67 6c 65 20 61 72 67 75 6d 65 6e 74 2c 20 74 68 65 0a 20 20 20 20 63	pts.a.single.argument,.the.....c
1e6e0	75 72 72 65 6e 74 20 76 61 6c 75 65 20 6f 66 20 58 2c 20 61 6e 64 20 72 65 74 75 72 6e 73 20 6e	urrent.value.of.X,.and.returns.n
1e700	6f 6e 2d 6e 69 6c 20 61 73 20 6c 6f 6e 67 20 61 73 20 69 74 65 72 61 74 69 6f 6e 0a 20 20 20 20	on-nil.as.long.as.iteration.....
1e720	73 68 6f 75 6c 64 20 63 6f 6e 74 69 6e 75 65 2e 20 49 6e 20 74 68 69 73 20 77 61 79 2c 20 61 20	should.continue..In.this.way,.a.
1e740	6d 6f 72 65 20 73 6f 70 68 69 73 74 69 63 61 74 65 64 0a 20 20 20 20 63 6f 6e 76 65 72 67 65 6e	more.sophisticated.....convergen
1e760	63 65 20 74 65 73 74 20 6d 61 79 20 62 65 20 73 75 70 70 6c 69 65 64 20 62 79 20 74 68 65 20 63	ce.test.may.be.supplied.by.the.c
1e780	61 6c 6c 65 72 2e 0a 0a 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20	aller...The.return.value.of.the.
1e7a0	6c 61 6d 62 64 61 20 69 73 20 65 69 74 68 65 72 20 74 68 65 20 66 69 78 70 6f 69 6e 74 20 6f 72	lambda.is.either.the.fixpoint.or
1e7c0	2c 20 69 66 0a 69 74 65 72 61 74 69 6f 6e 20 68 61 6c 74 65 64 20 62 65 66 6f 72 65 20 63 6f 6e	,.if.iteration.halted.before.con
1e7e0	76 65 72 67 69 6e 67 2c 20 61 20 63 6f 6e 73 20 77 69 74 68 20 63 61 72 20 60 68 61 6c 74 65 64	verging,.a.cons.with.car.`halted
1e800	27 20 61 6e 64 0a 63 64 72 20 74 68 65 20 66 69 6e 61 6c 20 6f 75 74 70 75 74 20 66 72 6f 6d 20	'.and.cdr.the.final.output.from.
1e820	48 41 4c 54 2d 54 45 53 54 2e 0a 0a 49 6e 20 74 79 70 65 73 3a 20 28 61 20 2d 3e 20 61 29 20 2d	HALT-TEST...In.types:.(a.->.a).-
1e840	3e 20 61 20 2d 3e 20 61 2e 0a 0a 28 66 6e 20 46 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 45 51 55 41	>.a.->.a...(fn.FN.&optional.EQUA
1e860	4c 2d 54 45 53 54 20 48 41 4c 54 2d 54 45 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66	L-TEST.HALT-TEST)..(defalias.'-f
1e880	69 78 66 6e 20 23 5b 37 36 39 20 22 01 5c 32 30 36 05 00 5c 33 30 31 01 5c 32 30 36 0f 00 5c 33	ixfn.#[769.".\206..\301.\206..\3
1e8a0	30 32 5c 33 30 33 5c 33 30 34 08 5c 22 21 5c 33 30 35 5c 33 30 36 06 06 04 04 24 5c 32 30 37 22	02\303\304.\"!\305\306....$\207"
1e8c0	20 5b 2d 66 69 78 66 6e 2d 6d 61 78 2d 69 74 65 72 61 74 69 6f 6e 73 20 65 71 75 61 6c 20 2d 6e	.[-fixfn-max-iterations.equal.-n
1e8e0	6f 74 20 2d 63 6f 75 6e 74 65 72 20 30 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37	ot.-counter.0.make-closure.#[257
1e900	20 22 5c 33 30 30 01 21 5c 33 30 32 02 21 5c 32 31 31 5c 32 30 34 21 00 5c 33 30 31 03 03 5c 22	."\300.!\302.!\211\204!.\301..\"
1e920	5c 32 30 34 21 00 01 5c 32 36 32 03 5c 33 30 30 02 21 5c 32 36 32 02 5c 33 30 32 02 21 5c 32 36	\204!..\262.\300.!\262.\302.!\26
1e940	32 01 5c 32 30 32 06 00 5c 32 31 31 5c 32 30 33 29 00 5c 33 30 33 01 42 5c 32 30 37 01 5c 32 30	2.\202..\211\203).\303.B\207.\20
1e960	37 22 20 5b 56 30 20 56 31 20 56 32 20 68 61 6c 74 65 64 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20	7".[V0.V1.V2.halted].6."\n\n(fn.
1e980	58 29 22 5d 5d 20 31 30 20 28 23 24 20 2e 20 31 32 33 38 35 33 29 5d 29 0a 23 40 39 30 30 20 52	X)"]].10.(#$...123853)]).#@900.R
1e9a0	65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 61 70 70 6c 69 65 73 20 65 61	eturn.a.function.that.applies.ea
1e9c0	63 68 20 6f 66 20 46 4e 53 20 74 6f 20 65 61 63 68 20 6f 66 20 61 20 6c 69 73 74 20 6f 66 20 61	ch.of.FNS.to.each.of.a.list.of.a
1e9e0	72 67 75 6d 65 6e 74 73 2e 0a 0a 54 61 6b 65 73 20 61 20 6c 69 73 74 20 6f 66 20 4e 20 66 75 6e	rguments...Takes.a.list.of.N.fun
1ea00	63 74 69 6f 6e 73 20 61 6e 64 20 72 65 74 75 72 6e 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68	ctions.and.returns.a.function.th
1ea20	61 74 20 74 61 6b 65 73 20 61 0a 6c 69 73 74 20 6f 66 20 6c 65 6e 67 74 68 20 4e 2c 20 61 70 70	at.takes.a.list.of.length.N,.app
1ea40	6c 79 69 6e 67 20 49 74 68 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 49 74 68 20 65 6c 65 6d 65 6e	lying.Ith.function.to.Ith.elemen
1ea60	74 20 6f 66 20 74 68 65 0a 69 6e 70 75 74 20 6c 69 73 74 2e 20 20 52 65 74 75 72 6e 73 20 61 20	t.of.the.input.list...Returns.a.
1ea80	6c 69 73 74 20 6f 66 20 6c 65 6e 67 74 68 20 4e 2e 0a 0a 49 6e 20 74 79 70 65 73 20 28 66 6f 72	list.of.length.N...In.types.(for
1eaa0	20 4e 3d 32 29 3a 20 28 28 61 20 2d 3e 20 62 29 2c 20 28 63 20 2d 3e 20 64 29 29 20 2d 3e 20 28	.N=2):.((a.->.b),.(c.->.d)).->.(
1eac0	61 2c 20 63 29 20 2d 3e 20 28 62 2c 20 64 29 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73	a,.c).->.(b,.d)..This.function.s
1eae0	61 74 69 73 66 69 65 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 61 77 73 3a 0a 0a 20 20	atisfies.the.following.laws:....
1eb00	20 20 28 2d 63 6f 6d 70 6f 73 65 20 28 2d 70 72 6f 64 66 6e 20 66 20 67 20 2e 2e 2e 29 0a 20 20	..(-compose.(-prodfn.f.g....)...
1eb20	20 20 20 20 20 20 20 20 20 20 20 20 28 2d 70 72 6f 64 66 6e 20 66 5c 3d 27 20 67 5c 3d 27 20 2e	............(-prodfn.f\='.g\='..
1eb40	2e 2e 29 29 0a 20 20 3d 20 28 2d 70 72 6f 64 66 6e 20 28 2d 63 6f 6d 70 6f 73 65 20 66 20 66 5c	..))...=.(-prodfn.(-compose.f.f\
1eb60	3d 27 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 63 6f 6d 70 6f 73 65 20 67 20 67 5c 3d	=')..............(-compose.g.g\=
1eb80	27 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 29 0a 0a 20 20 20 20 28 2d 70 72 6f 64	').................)......(-prod
1eba0	66 6e 20 66 20 67 20 2e 2e 2e 29 0a 20 20 3d 20 28 2d 6a 75 78 74 20 28 2d 63 6f 6d 70 6f 73 65	fn.f.g....)...=.(-juxt.(-compose
1ebc0	20 66 20 28 2d 70 61 72 74 69 61 6c 20 23 5c 3d 27 6e 74 68 20 30 29 29 0a 20 20 20 20 20 20 20	.f.(-partial.#\='nth.0))........
1ebe0	20 20 20 20 28 2d 63 6f 6d 70 6f 73 65 20 67 20 28 2d 70 61 72 74 69 61 6c 20 23 5c 3d 27 6e 74	....(-compose.g.(-partial.#\='nt
1ec00	68 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 29 0a 0a 20 20 20 20 28 2d 63 6f 6d	h.1))...............)......(-com
1ec20	70 6f 73 65 20 28 2d 70 72 6f 64 66 6e 20 66 20 67 20 2e 2e 2e 29 0a 20 20 20 20 20 20 20 20 20	pose.(-prodfn.f.g....)..........
1ec40	20 20 20 20 20 28 2d 6a 75 78 74 20 66 5c 3d 27 20 67 5c 3d 27 20 2e 2e 2e 29 29 0a 20 20 3d 20	.....(-juxt.f\='.g\='....))...=.
1ec60	28 2d 6a 75 78 74 20 28 2d 63 6f 6d 70 6f 73 65 20 66 20 66 5c 3d 27 29 0a 20 20 20 20 20 20 20	(-juxt.(-compose.f.f\=')........
1ec80	20 20 20 20 28 2d 63 6f 6d 70 6f 73 65 20 67 20 67 5c 3d 27 29 0a 20 20 20 20 20 20 20 20 20 20	....(-compose.g.g\=')...........
1eca0	20 2e 2e 2e 29 0a 0a 20 20 20 20 28 2d 63 6f 6d 70 6f 73 65 20 28 2d 70 61 72 74 69 61 6c 20 23	....)......(-compose.(-partial.#
1ecc0	5c 3d 27 6e 74 68 20 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 70 72 6f 64 20 66	\='nth.n)...............(-prod.f
1ece0	31 20 66 32 20 2e 2e 2e 29 29 0a 20 20 3d 20 28 2d 63 6f 6d 70 6f 73 65 20 66 6e 20 28 2d 70 61	1.f2....))...=.(-compose.fn.(-pa
1ed00	72 74 69 61 6c 20 23 5c 3d 27 6e 74 68 20 6e 29 29 0a 0a 28 66 6e 20 26 72 65 73 74 20 46 4e 53	rtial.#\='nth.n))..(fn.&rest.FNS
1ed20	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 72 6f 64 66 6e 20 23 5b 31 32 38 20 22 5c 33 30	)..(defalias.'-prodfn.#[128."\30
1ed40	30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35	0\301.\"\207".[make-closure.#[25
1ed60	37 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 30 03 23 5c 32 30 37 22 20 5b 56 30 20 2d 7a 69 70 2d	7."\301\302\300.#\207".[V0.-zip-
1ed80	77 69 74 68 20 66 75 6e 63 61 6c 6c 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 5d 20 34	with.funcall].5."\n\n(fn.X)"]].4
1eda0	20 28 23 24 20 2e 20 31 32 35 33 34 33 29 5d 29 0a 23 40 34 35 20 46 6f 6e 74 20 6c 6f 63 6b 20	.(#$...125343)]).#@45.Font.lock.
1edc0	6b 65 79 77 6f 72 64 73 20 66 6f 72 20 60 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27	keywords.for.`dash-fontify-mode'
1ede0	2e 1f 0a 28 64 65 66 76 61 72 20 64 61 73 68 2d 2d 6b 65 79 77 6f 72 64 73 20 28 62 79 74 65 2d	...(defvar.dash--keywords.(byte-
1ee00	63 6f 64 65 20 22 5c 33 30 31 5c 33 30 32 42 5c 33 30 33 5c 33 30 34 42 5c 33 30 35 08 5c 33 30	code."\301\302B\303\304B\305.\30
1ee20	36 57 5c 32 30 35 19 00 5c 33 30 37 5c 33 31 30 5c 33 31 31 02 5c 33 31 32 5c 22 50 5c 33 31 33	6W\205..\307\310\311.\312\"P\313
1ee40	42 43 5c 32 36 32 01 42 42 42 5c 32 30 37 22 20 5b 65 6d 61 63 73 2d 6d 61 6a 6f 72 2d 76 65 72	BC\262.BBB\207".[emacs-major-ver
1ee60	73 69 6f 6e 20 22 5c 5c 5f 3c 5c 5c 28 3f 3a 61 63 63 5c 5c 7c 69 74 5c 5c 28 3f 3a 2d 69 6e 64	sion."\\_<\\(?:acc\\|it\\(?:-ind
1ee80	65 78 5c 5c 29 3f 5c 5c 7c 6f 74 68 65 72 5c 5c 29 5c 5c 5f 3e 22 20 28 30 20 66 6f 6e 74 2d 6c	ex\\)?\\|other\\)\\_>".(0.font-l
1eea0	6f 63 6b 2d 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 2d 66 61 63 65 29 20 22 28 5c 5c 28 5c 5c 28	ock-variable-name-face)."(\\(\\(
1eec0	3f 3a 64 65 66 5c 5c 28 3f 3a 2d 65 78 61 6d 70 6c 65 2d 67 72 6f 75 70 5c 5c 7c 65 78 61 6d 70	?:def\\(?:-example-group\\|examp
1eee0	6c 65 73 5c 5c 29 5c 5c 29 5c 5c 29 5c 5c 5f 3e 5b 09 20 5d 2b 5c 5c 28 5c 5c 28 3f 3a 5c 5c 73	les\\)\\)\\)\\_>[..]+\\(\\(?:\\s
1ef00	77 5c 5c 7c 5c 5c 73 5f 5c 5c 7c 5c 5c 5c 5c 2e 5c 5c 29 2a 5c 5c 29 22 20 28 28 31 20 66 6f 6e	w\\|\\s_\\|\\\\.\\)*\\)".((1.fon
1ef20	74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 29 20 28 32 20 66 6f 6e 74 2d 6c 6f 63	t-lock-keyword-face).(2.font-loc
1ef40	6b 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 66 61 63 65 29 29 20 22 5c 5c 5f 3c 5c 5c 28 3f	k-function-name-face))."\\_<\\(?
1ef60	3a 5c 5c 28 3f 3a 21 21 5c 5c 7c 5b 3d 7e 5d 5c 5c 29 3e 5c 5c 29 5c 5c 5f 3e 22 20 32 35 20 28	:\\(?:!!\\|[=~]\\)>\\)\\_>".25.(
1ef80	22 21 63 64 72 22 20 22 21 63 6f 6e 73 22 20 22 2d 2d 3e 22 20 22 2d 2d 61 6c 6c 3f 22 20 22 2d	"!cdr"."!cons"."-->"."--all?"."-
1efa0	2d 61 6e 6e 6f 74 61 74 65 22 20 22 2d 2d 61 6e 79 3f 22 20 22 2d 2d 63 6f 75 6e 74 22 20 22 2d	-annotate"."--any?"."--count"."-
1efc0	2d 64 6f 74 69 6d 65 73 22 20 22 2d 2d 64 6f 74 6f 22 20 22 2d 2d 64 72 6f 70 2d 77 68 69 6c 65	-dotimes"."--doto"."--drop-while
1efe0	22 20 22 2d 2d 65 61 63 68 22 20 22 2d 2d 65 61 63 68 2d 72 22 20 22 2d 2d 65 61 63 68 2d 72 2d	"."--each"."--each-r"."--each-r-
1f000	77 68 69 6c 65 22 20 22 2d 2d 65 61 63 68 2d 77 68 69 6c 65 22 20 22 2d 2d 66 69 6c 74 65 72 22	while"."--each-while"."--filter"
1f020	20 22 2d 2d 66 69 6e 64 2d 69 6e 64 65 78 22 20 22 2d 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 22	."--find-index"."--find-indices"
1f040	20 22 2d 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 22 20 22 2d 2d 66 69 72 73 74 22 20 22	."--find-last-index"."--first"."
1f060	2d 2d 66 69 78 22 20 22 2d 2d 67 72 6f 75 70 2d 62 79 22 20 22 2d 2d 69 66 2d 6c 65 74 22 20 22	--fix"."--group-by"."--if-let"."
1f080	2d 2d 69 74 65 72 61 74 65 22 20 22 2d 2d 6b 65 65 70 22 20 22 2d 2d 6c 61 73 74 22 20 22 2d 2d	--iterate"."--keep"."--last"."--
1f0a0	6d 61 70 22 20 22 2d 2d 6d 61 70 2d 66 69 72 73 74 22 20 22 2d 2d 6d 61 70 2d 69 6e 64 65 78 65	map"."--map-first"."--map-indexe
1f0c0	64 22 20 22 2d 2d 6d 61 70 2d 6c 61 73 74 22 20 22 2d 2d 6d 61 70 2d 77 68 65 6e 22 20 22 2d 2d	d"."--map-last"."--map-when"."--
1f0e0	6d 61 70 63 61 74 22 20 22 2d 2d 6d 61 78 2d 62 79 22 20 22 2d 2d 6d 69 6e 2d 62 79 22 20 22 2d	mapcat"."--max-by"."--min-by"."-
1f100	2d 6e 6f 6e 65 3f 22 20 22 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 3f 22 20 22 2d 2d 70 61 72 74 69 74	-none?"."--only-some?"."--partit
1f120	69 6f 6e 2d 62 79 22 20 22 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 22 20	ion-by"."--partition-by-header".
1f140	22 2d 2d 72 65 64 75 63 65 22 20 22 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 22 20 22 2d 2d 72 65	"--reduce"."--reduce-from"."--re
1f160	64 75 63 65 2d 72 22 20 22 2d 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 22 20 22 2d 2d 72 65 64	duce-r"."--reduce-r-from"."--red
1f180	75 63 74 69 6f 6e 73 22 20 22 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 22 20 22 2d 2d	uctions"."--reductions-from"."--
1f1a0	72 65 64 75 63 74 69 6f 6e 73 2d 72 22 20 22 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72	reductions-r"."--reductions-r-fr
1f1c0	6f 6d 22 20 22 2d 2d 72 65 6d 6f 76 65 22 20 22 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 22 20	om"."--remove"."--remove-first".
1f1e0	22 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 22 20 22 2d 2d 73 65 70 61 72 61 74 65 22 20 22 2d 2d	"--remove-last"."--separate"."--
1f200	73 6f 6d 65 22 20 22 2d 2d 73 6f 72 74 22 20 22 2d 2d 73 70 6c 69 63 65 22 20 22 2d 2d 73 70 6c	some"."--sort"."--splice"."--spl
1f220	69 63 65 2d 6c 69 73 74 22 20 22 2d 2d 73 70 6c 69 74 2d 77 68 65 6e 22 20 22 2d 2d 73 70 6c 69	ice-list"."--split-when"."--spli
1f240	74 2d 77 69 74 68 22 20 22 2d 2d 74 61 6b 65 2d 77 68 69 6c 65 22 20 22 2d 2d 74 72 65 65 2d 6d	t-with"."--take-while"."--tree-m
1f260	61 70 22 20 22 2d 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 22 20 22 2d 2d 74 72 65 65 2d 6d	ap"."--tree-map-nodes"."--tree-m
1f280	61 70 72 65 64 75 63 65 22 20 22 2d 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d	apreduce"."--tree-mapreduce-from
1f2a0	22 20 22 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 22 20 22 2d 2d 74 72 65 65 2d 72 65 64 75 63 65	"."--tree-reduce"."--tree-reduce
1f2c0	2d 66 72 6f 6d 22 20 22 2d 2d 74 72 65 65 2d 73 65 71 22 20 22 2d 2d 75 6e 66 6f 6c 64 22 20 22	-from"."--tree-seq"."--unfold"."
1f2e0	2d 2d 75 70 64 61 74 65 2d 61 74 22 20 22 2d 2d 77 68 65 6e 2d 6c 65 74 22 20 22 2d 2d 7a 69 70	--update-at"."--when-let"."--zip
1f300	2d 77 69 74 68 22 20 22 2d 3e 22 20 22 2d 3e 3e 22 20 22 2d 61 73 2d 3e 22 20 22 2d 64 6f 74 6f	-with"."->"."->>"."-as->"."-doto
1f320	22 20 22 2d 69 66 2d 6c 65 74 22 20 22 2d 69 66 2d 6c 65 74 2a 22 20 22 2d 6c 61 6d 62 64 61 22	"."-if-let"."-if-let*"."-lambda"
1f340	20 22 2d 6c 65 74 22 20 22 2d 6c 65 74 2a 22 20 22 2d 73 65 74 71 22 20 22 2d 73 6f 6d 65 2d 2d	."-let"."-let*"."-setq"."-some--
1f360	3e 22 20 22 2d 73 6f 6d 65 2d 3e 22 20 22 2d 73 6f 6d 65 2d 3e 3e 22 20 22 2d 73 70 6c 69 74 2d	>"."-some->"."-some->>"."-split-
1f380	6f 6e 22 20 22 2d 77 68 65 6e 2d 6c 65 74 22 20 22 2d 77 68 65 6e 2d 6c 65 74 2a 22 29 20 22 28	on"."-when-let"."-when-let*")."(
1f3a0	22 20 72 65 67 65 78 70 2d 6f 70 74 20 73 79 6d 62 6f 6c 73 20 31 5d 20 38 29 20 28 23 24 20 2e	".regexp-opt.symbols.1].8).(#$..
1f3c0	20 31 32 36 33 39 30 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	.126390)).(byte-code."\300\301\3
1f3e0	30 32 5c 33 30 33 5c 33 30 34 44 44 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31	02\303\304DD\305\306\307\310\311
1f400	5c 33 31 32 5c 33 31 33 26 09 5c 32 30 37 22 20 5b 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d	\312\313&.\207".[custom-declare-
1f420	76 61 72 69 61 62 6c 65 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6c 69 67 68 74	variable.dash-fontify-mode-light
1f440	65 72 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 23 5b 30 20 22 5c 33 30 30 5c 32 30	er.funcall.function.#[0."\300\20
1f460	37 22 20 5b 6e 69 6c 5d 20 31 20 22 22 5d 20 22 4d 6f 64 65 20 6c 69 6e 65 20 6c 69 67 68 74 65	7".[nil].1.""]."Mode.line.lighte
1f480	72 20 66 6f 72 20 60 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27 2e 5c 6e 45 69 74 68	r.for.`dash-fontify-mode'.\nEith
1f4a0	65 72 20 61 20 73 74 72 69 6e 67 20 74 6f 20 64 69 73 70 6c 61 79 20 69 6e 20 74 68 65 20 6d 6f	er.a.string.to.display.in.the.mo
1f4c0	64 65 20 6c 69 6e 65 20 77 68 65 6e 5c 6e 60 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65	de.line.when\n`dash-fontify-mode
1f4e0	27 20 69 73 20 6f 6e 2c 20 6f 72 20 6e 69 6c 20 74 6f 20 64 69 73 70 6c 61 79 5c 6e 6e 6f 74 68	'.is.on,.or.nil.to.display\nnoth
1f500	69 6e 67 20 28 74 68 65 20 64 65 66 61 75 6c 74 29 2e 22 20 3a 70 61 63 6b 61 67 65 2d 76 65 72	ing.(the.default).".:package-ver
1f520	73 69 6f 6e 20 28 64 61 73 68 20 2e 20 22 32 2e 31 38 2e 30 22 29 20 3a 67 72 6f 75 70 20 64 61	sion.(dash..."2.18.0").:group.da
1f540	73 68 20 3a 74 79 70 65 20 28 63 68 6f 69 63 65 20 28 73 74 72 69 6e 67 20 3a 74 61 67 20 22 4c	sh.:type.(choice.(string.:tag."L
1f560	69 67 68 74 65 72 22 20 3a 76 61 6c 75 65 20 22 20 44 61 73 68 22 29 20 28 63 6f 6e 73 74 20 3a	ighter".:value.".Dash").(const.:
1f580	74 61 67 20 22 4e 6f 74 68 69 6e 67 22 20 6e 69 6c 29 29 5d 20 31 30 29 0a 23 40 31 30 33 20 4e	tag."Nothing".nil))].10).#@103.N
1f5a0	6f 6e 2d 6e 69 6c 20 69 66 20 44 61 73 68 2d 46 6f 6e 74 69 66 79 20 6d 6f 64 65 20 69 73 20 65	on-nil.if.Dash-Fontify.mode.is.e
1f5c0	6e 61 62 6c 65 64 2e 0a 55 73 65 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 60 64 61 73 68 2d 66 6f	nabled..Use.the.command.`dash-fo
1f5e0	6e 74 69 66 79 2d 6d 6f 64 65 27 20 74 6f 20 63 68 61 6e 67 65 20 74 68 69 73 20 76 61 72 69 61	ntify-mode'.to.change.this.varia
1f600	62 6c 65 2e 1f 0a 28 64 65 66 76 61 72 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20	ble...(defvar.dash-fontify-mode.
1f620	6e 69 6c 20 28 23 24 20 2e 20 31 32 38 34 31 35 29 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c	nil.(#$...128415)).(make-variabl
1f640	65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64	e-buffer-local.'dash-fontify-mod
1f660	65 29 0a 23 40 31 30 33 35 20 54 6f 67 67 6c 65 20 66 6f 6e 74 69 66 69 63 61 74 69 6f 6e 20 6f	e).#@1035.Toggle.fontification.o
1f680	66 20 44 61 73 68 20 73 70 65 63 69 61 6c 20 76 61 72 69 61 62 6c 65 73 2e 0a 0a 54 68 69 73 20	f.Dash.special.variables...This.
1f6a0	69 73 20 61 20 6d 69 6e 6f 72 20 6d 6f 64 65 2e 20 20 49 66 20 63 61 6c 6c 65 64 20 69 6e 74 65	is.a.minor.mode...If.called.inte
1f6c0	72 61 63 74 69 76 65 6c 79 2c 20 74 6f 67 67 6c 65 20 74 68 65 0a 60 44 61 73 68 2d 46 6f 6e 74	ractively,.toggle.the.`Dash-Font
1f6e0	69 66 79 20 6d 6f 64 65 27 20 6d 6f 64 65 2e 20 20 49 66 20 74 68 65 20 70 72 65 66 69 78 20 61	ify.mode'.mode...If.the.prefix.a
1f700	72 67 75 6d 65 6e 74 20 69 73 20 70 6f 73 69 74 69 76 65 2c 0a 65 6e 61 62 6c 65 20 74 68 65 20	rgument.is.positive,.enable.the.
1f720	6d 6f 64 65 2c 20 61 6e 64 20 69 66 20 69 74 20 69 73 20 7a 65 72 6f 20 6f 72 20 6e 65 67 61 74	mode,.and.if.it.is.zero.or.negat
1f740	69 76 65 2c 20 64 69 73 61 62 6c 65 20 74 68 65 20 6d 6f 64 65 2e 0a 0a 49 66 20 63 61 6c 6c 65	ive,.disable.the.mode...If.calle
1f760	64 20 66 72 6f 6d 20 4c 69 73 70 2c 20 74 6f 67 67 6c 65 20 74 68 65 20 6d 6f 64 65 20 69 66 20	d.from.Lisp,.toggle.the.mode.if.
1f780	41 52 47 20 69 73 20 60 74 6f 67 67 6c 65 27 2e 20 20 45 6e 61 62 6c 65 0a 74 68 65 20 6d 6f 64	ARG.is.`toggle'...Enable.the.mod
1f7a0	65 20 69 66 20 41 52 47 20 69 73 20 6e 69 6c 2c 20 6f 6d 69 74 74 65 64 2c 20 6f 72 20 69 73 20	e.if.ARG.is.nil,.omitted,.or.is.
1f7c0	61 20 70 6f 73 69 74 69 76 65 20 6e 75 6d 62 65 72 2e 0a 44 69 73 61 62 6c 65 20 74 68 65 20 6d	a.positive.number..Disable.the.m
1f7e0	6f 64 65 20 69 66 20 41 52 47 20 69 73 20 61 20 6e 65 67 61 74 69 76 65 20 6e 75 6d 62 65 72 2e	ode.if.ARG.is.a.negative.number.
1f800	0a 0a 54 6f 20 63 68 65 63 6b 20 77 68 65 74 68 65 72 20 74 68 65 20 6d 69 6e 6f 72 20 6d 6f 64	..To.check.whether.the.minor.mod
1f820	65 20 69 73 20 65 6e 61 62 6c 65 64 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66	e.is.enabled.in.the.current.buff
1f840	65 72 2c 0a 65 76 61 6c 75 61 74 65 20 60 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27	er,.evaluate.`dash-fontify-mode'
1f860	2e 0a 0a 54 68 65 20 6d 6f 64 65 27 73 20 68 6f 6f 6b 20 69 73 20 63 61 6c 6c 65 64 20 62 6f 74	...The.mode's.hook.is.called.bot
1f880	68 20 77 68 65 6e 20 74 68 65 20 6d 6f 64 65 20 69 73 20 65 6e 61 62 6c 65 64 20 61 6e 64 20 77	h.when.the.mode.is.enabled.and.w
1f8a0	68 65 6e 0a 69 74 20 69 73 20 64 69 73 61 62 6c 65 64 2e 0a 0a 44 61 73 68 2d 46 6f 6e 74 69 66	hen.it.is.disabled...Dash-Fontif
1f8c0	79 20 6d 6f 64 65 20 69 73 20 61 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 6d 69 6e 6f 72 20 6d	y.mode.is.a.buffer-local.minor.m
1f8e0	6f 64 65 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 45 6d 61 63 73 0a 4c 69 73 70 20 62 75 66 66	ode.intended.for.Emacs.Lisp.buff
1f900	65 72 73 2e 20 20 45 6e 61 62 6c 69 6e 67 20 69 74 20 63 61 75 73 65 73 20 74 68 65 20 73 70 65	ers...Enabling.it.causes.the.spe
1f920	63 69 61 6c 20 76 61 72 69 61 62 6c 65 73 20 62 6f 75 6e 64 20 69 6e 0a 61 6e 61 70 68 6f 72 69	cial.variables.bound.in.anaphori
1f940	63 20 44 61 73 68 20 6d 61 63 72 6f 73 20 74 6f 20 62 65 20 66 6f 6e 74 69 66 69 65 64 2e 20 20	c.Dash.macros.to.be.fontified...
1f960	54 68 65 73 65 20 61 6e 61 70 68 6f 72 61 73 20 69 6e 63 6c 75 64 65 0a 60 69 74 27 2c 20 60 69	These.anaphoras.include.`it',.`i
1f980	74 2d 69 6e 64 65 78 27 2c 20 60 61 63 63 27 2c 20 61 6e 64 20 60 6f 74 68 65 72 27 2e 20 20 49	t-index',.`acc',.and.`other'...I
1f9a0	6e 20 6f 6c 64 65 72 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 0a 77 68 69 63 68 20 64 6f 20	n.older.Emacs.versions.which.do.
1f9c0	6e 6f 74 20 64 79 6e 61 6d 69 63 61 6c 6c 79 20 64 65 74 65 63 74 20 6d 61 63 72 6f 73 2c 20 44	not.dynamically.detect.macros,.D
1f9e0	61 73 68 2d 46 6f 6e 74 69 66 79 20 6d 6f 64 65 0a 61 64 64 69 74 69 6f 6e 61 6c 6c 79 20 66 6f	ash-Fontify.mode.additionally.fo
1fa00	6e 74 69 66 69 65 73 20 44 61 73 68 20 6d 61 63 72 6f 20 63 61 6c 6c 73 2e 0a 0a 53 65 65 20 61	ntifies.Dash.macro.calls...See.a
1fa20	6c 73 6f 20 60 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6c 69 67 68 74 65 72 27 20	lso.`dash-fontify-mode-lighter'.
1fa40	61 6e 64 0a 60 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27 2e 0a	and.`global-dash-fontify-mode'..
1fa60	0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 41 52 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	.(fn.&optional.ARG)..(defalias.'
1fa80	64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 23 5b 32 35 36 20 22 5c 33 30 34 20 01 5c	dash-fontify-mode.#[256."\304..\
1faa0	33 30 35 3d 5c 32 30 33 0d 00 08 3f 5c 32 30 32 1d 00 01 5c 32 34 37 5c 32 30 33 1c 00 01 5c 33	305=\203...?\202...\247\203...\3
1fac0	30 36 57 5c 32 30 33 1c 00 5c 33 30 37 5c 32 30 32 1d 00 5c 33 31 30 10 5c 33 31 31 5c 33 30 31	06W\203..\307\202..\310.\311\301
1fae0	21 5c 32 30 33 31 00 5c 33 31 32 5c 33 30 30 09 5c 22 11 08 5c 32 30 33 31 00 5c 33 30 30 09 42	!\2031.\312\300.\"..\2031.\300.B
1fb00	11 08 5c 32 30 33 3e 00 5c 33 31 33 5c 33 30 37 5c 6e 5c 33 31 30 23 5c 32 31 30 5c 32 30 32 43	..\203>.\313\307\n\310#\210\202C
1fb20	00 5c 33 31 34 5c 33 30 37 5c 6e 5c 22 5c 32 31 30 5c 33 31 35 5c 33 31 36 21 5c 32 30 33 4f 00	.\314\307\n\"\210\315\316!\203O.
1fb40	5c 33 31 36 20 5c 32 31 30 5c 32 30 32 56 00 0b 5c 32 30 33 56 00 5c 33 31 37 20 5c 32 31 30 5c	\316.\210\202V..\203V.\317.\210\
1fb60	33 32 30 5c 33 32 31 08 5c 32 30 33 60 00 5c 33 32 32 5c 32 30 32 61 00 5c 33 32 33 5c 22 5c 32	320\321.\203`.\322\202a.\323\"\2
1fb80	31 30 5c 33 32 34 5c 33 32 35 21 5c 32 30 33 5c 32 30 33 00 5c 33 30 34 20 5c 32 30 33 75 00 5c	10\324\325!\203\203.\304.\203u.\
1fba0	32 31 31 5c 33 30 34 20 5c 32 33 32 5c 32 30 33 5c 32 30 33 00 5c 33 32 36 5c 33 32 37 08 5c 32	211\304.\232\203\203.\326\327.\2
1fbc0	30 33 7f 00 5c 33 33 30 5c 32 30 32 5c 32 30 30 00 5c 33 33 31 5c 33 33 32 23 5c 32 31 30 5c 32	03..\330\202\200.\331\332#\210\2
1fbe0	31 30 5c 33 33 33 20 5c 32 31 30 08 5c 32 30 37 22 20 5b 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d	10\333.\210.\207".[dash-fontify-
1fc00	6d 6f 64 65 20 6c 6f 63 61 6c 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 73 20 64 61 73 68 2d 2d 6b 65 79	mode.local-minor-modes.dash--key
1fc20	77 6f 72 64 73 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 6f 64 65 20 63 75 72 72 65 6e 74 2d 6d 65 73	words.font-lock-mode.current-mes
1fc40	73 61 67 65 20 74 6f 67 67 6c 65 20 31 20 6e 69 6c 20 74 20 62 6f 75 6e 64 70 20 64 65 6c 71 20	sage.toggle.1.nil.t.boundp.delq.
1fc60	66 6f 6e 74 2d 6c 6f 63 6b 2d 61 64 64 2d 6b 65 79 77 6f 72 64 73 20 66 6f 6e 74 2d 6c 6f 63 6b	font-lock-add-keywords.font-lock
1fc80	2d 72 65 6d 6f 76 65 2d 6b 65 79 77 6f 72 64 73 20 66 62 6f 75 6e 64 70 20 66 6f 6e 74 2d 6c 6f	-remove-keywords.fboundp.font-lo
1fca0	63 6b 2d 66 6c 75 73 68 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 6f 6e 74 69 66 79 2d 62 75 66 66 65	ck-flush.font-lock-fontify-buffe
1fcc0	72 20 72 75 6e 2d 68 6f 6f 6b 73 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 68 6f	r.run-hooks.dash-fontify-mode-ho
1fce0	6f 6b 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6f 6e 2d 68 6f 6f 6b 20 64 61 73	ok.dash-fontify-mode-on-hook.das
1fd00	68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6f 66 66 2d 68 6f 6f 6b 20 63 61 6c 6c 65 64 2d 69	h-fontify-mode-off-hook.called-i
1fd20	6e 74 65 72 61 63 74 69 76 65 6c 79 2d 70 20 61 6e 79 20 6d 65 73 73 61 67 65 20 22 44 61 73 68	nteractively-p.any.message."Dash
1fd40	2d 46 6f 6e 74 69 66 79 20 6d 6f 64 65 20 25 73 61 62 6c 65 64 25 73 22 20 22 65 6e 22 20 22 64	-Fontify.mode.%sabled%s"."en"."d
1fd60	69 73 22 20 22 20 69 6e 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 22 20 66 6f 72 63 65 2d 6d	is".".in.current.buffer".force-m
1fd80	6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 5d 20 36 20 28 23 24 20 2e 20 31 32 38 36 31 38 29	ode-line-update].6.(#$...128618)
1fda0	20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 5c 32 30 33 5c 6e 00 5c 33 30 31 08 21 5c 32 30 32 0b	.(byte-code.".\203\n.\301.!\202.
1fdc0	00 5c 33 30 32 43 5c 32 30 37 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20	.\302C\207".[current-prefix-arg.
1fde0	70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 74 6f 67 67 6c 65 5d 20 32 29 5d	prefix-numeric-value.toggle].2)]
1fe00	29 0a 28 64 65 66 76 61 72 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 68 6f 6f 6b	).(defvar.dash-fontify-mode-hook
1fe20	20 6e 69 6c 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 5c 33 30 32 4e 5c 32 30 34 5c	.nil).(byte-code."\301\302N\204\
1fe40	66 00 5c 33 30 33 5c 33 30 31 5c 33 30 32 5c 33 30 34 23 5c 32 31 30 5c 33 30 33 5c 33 30 31 5c	f.\303\301\302\304#\210\303\301\
1fe60	33 30 35 5c 33 30 36 23 5c 32 31 30 5c 33 30 33 5c 33 30 31 5c 33 30 37 5c 33 31 30 43 23 5c 32	305\306#\210\303\301\307\310C#\2
1fe80	31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 30 30 21 5c 32 30 35 23 00 08 5c 33	10\311\312\313\314\300!\205#..\3
1fea0	31 30 5c 32 31 31 25 5c 32 30 37 22 20 5b 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d	10\211%\207".[dash-fontify-mode-
1fec0	6d 61 70 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 76 61 72 69 61	map.dash-fontify-mode-hook.varia
1fee0	62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 70 75 74 20 22 48 6f 6f 6b 20 72 75 6e 20	ble-documentation.put."Hook.run.
1ff00	61 66 74 65 72 20 65 6e 74 65 72 69 6e 67 20 6f 72 20 6c 65 61 76 69 6e 67 20 60 64 61 73 68 2d	after.entering.or.leaving.`dash-
1ff20	66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27 2e 5c 6e 4e 6f 20 70 72 6f 62 6c 65 6d 73 20 72 65 73 75	fontify-mode'.\nNo.problems.resu
1ff40	6c 74 20 69 66 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f 74 20 62 6f 75 6e 64	lt.if.this.variable.is.not.bound
1ff60	2e 5c 6e 60 61 64 64 2d 68 6f 6f 6b 27 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 62 69 6e 64	.\n`add-hook'.automatically.bind
1ff80	73 20 69 74 2e 20 20 28 54 68 69 73 20 69 73 20 74 72 75 65 20 66 6f 72 20 61 6c 6c 20 68 6f 6f	s.it...(This.is.true.for.all.hoo
1ffa0	6b 20 76 61 72 69 61 62 6c 65 73 2e 29 22 20 63 75 73 74 6f 6d 2d 74 79 70 65 20 68 6f 6f 6b 20	k.variables.)".custom-type.hook.
1ffc0	73 74 61 6e 64 61 72 64 2d 76 61 6c 75 65 20 6e 69 6c 20 61 64 64 2d 6d 69 6e 6f 72 2d 6d 6f 64	standard-value.nil.add-minor-mod
1ffe0	65 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 64 61 73 68 2d 66 6f 6e 74 69 66 79	e.dash-fontify-mode.dash-fontify
20000	2d 6d 6f 64 65 2d 6c 69 67 68 74 65 72 20 62 6f 75 6e 64 70 5d 20 36 29 0a 23 40 35 36 20 45 6e	-mode-lighter.boundp].6).#@56.En
20020	61 62 6c 65 20 60 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27 20 69 66 20 69 6e 20 61	able.`dash-fontify-mode'.if.in.a
20040	6e 20 45 6d 61 63 73 20 4c 69 73 70 20 62 75 66 66 65 72 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20	n.Emacs.Lisp.buffer...(defalias.
20060	27 64 61 73 68 2d 2d 74 75 72 6e 2d 6f 6e 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 23 5b 30 20	'dash--turn-on-fontify-mode.#[0.
20080	22 5c 33 30 30 5c 33 30 31 21 5c 32 30 35 08 00 5c 33 30 32 20 5c 32 30 37 22 20 5b 64 65 72 69	"\300\301!\205..\302.\207".[deri
200a0	76 65 64 2d 6d 6f 64 65 2d 70 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 20 64 61 73 68 2d	ved-mode-p.emacs-lisp-mode.dash-
200c0	66 6f 6e 74 69 66 79 2d 6d 6f 64 65 5d 20 32 20 28 23 24 20 2e 20 31 33 31 31 30 32 29 5d 29 0a	fontify-mode].2.(#$...131102)]).
200e0	28 70 75 74 20 27 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 27	(put.'global-dash-fontify-mode.'
20100	67 6c 6f 62 61 6c 69 7a 65 64 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 74 29 0a 28 64 65 66 76 61 72	globalized-minor-mode.t).(defvar
20120	20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6e 69	.dash-fontify-mode-major-mode.ni
20140	6c 20 6e 69 6c 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30	l.nil).(byte-code."\300\301!\210
20160	5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 44 44 5c 33 30 37 5c 33 31 30 5c 33	\302\303\304\305\306DD\307\310\3
20180	31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 33 31 36 5c 33 31 37 26 0b 5c 32 30 37	11\312\313\314\315\316\317&.\207
201a0	22 20 5b 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 64 61	".[make-variable-buffer-local.da
201c0	73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 63 75 73 74 6f	sh-fontify-mode-major-mode.custo
201e0	6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66	m-declare-variable.global-dash-f
20200	6f 6e 74 69 66 79 2d 6d 6f 64 65 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 23 5b 30	ontify-mode.funcall.function.#[0
20220	20 22 5c 33 30 30 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 31 20 22 22 5d 20 22 4e 6f 6e 2d 6e 69 6c	."\300\207".[nil].1.""]."Non-nil
20240	20 69 66 20 47 6c 6f 62 61 6c 20 44 61 73 68 2d 46 6f 6e 74 69 66 79 20 6d 6f 64 65 20 69 73 20	.if.Global.Dash-Fontify.mode.is.
20260	65 6e 61 62 6c 65 64 2e 5c 6e 53 65 65 20 74 68 65 20 60 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66	enabled.\nSee.the.`global-dash-f
20280	6f 6e 74 69 66 79 2d 6d 6f 64 65 27 20 63 6f 6d 6d 61 6e 64 5c 6e 66 6f 72 20 61 20 64 65 73 63	ontify-mode'.command\nfor.a.desc
202a0	72 69 70 74 69 6f 6e 20 6f 66 20 74 68 69 73 20 6d 69 6e 6f 72 20 6d 6f 64 65 2e 5c 6e 53 65 74	ription.of.this.minor.mode.\nSet
202c0	74 69 6e 67 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 64 69 72 65 63 74 6c 79 20 64 6f 65 73	ting.this.variable.directly.does
202e0	20 6e 6f 74 20 74 61 6b 65 20 65 66 66 65 63 74 3b 5c 6e 65 69 74 68 65 72 20 63 75 73 74 6f 6d	.not.take.effect;\neither.custom
20300	69 7a 65 20 69 74 20 28 73 65 65 20 74 68 65 20 69 6e 66 6f 20 6e 6f 64 65 20 60 45 61 73 79 20	ize.it.(see.the.info.node.`Easy.
20320	43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 27 29 5c 6e 6f 72 20 63 61 6c 6c 20 74 68 65 20 66 75 6e	Customization')\nor.call.the.fun
20340	63 74 69 6f 6e 20 60 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27	ction.`global-dash-fontify-mode'
20360	2e 22 20 3a 73 65 74 20 63 75 73 74 6f 6d 2d 73 65 74 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 3a 69	.".:set.custom-set-minor-mode.:i
20380	6e 69 74 69 61 6c 69 7a 65 20 63 75 73 74 6f 6d 2d 69 6e 69 74 69 61 6c 69 7a 65 2d 64 65 66 61	nitialize.custom-initialize-defa
203a0	75 6c 74 20 3a 74 79 70 65 20 62 6f 6f 6c 65 61 6e 20 3a 67 72 6f 75 70 20 64 61 73 68 5d 20 31	ult.:type.boolean.:group.dash].1
203c0	32 29 0a 23 40 34 38 34 20 54 6f 67 67 6c 65 20 44 61 73 68 2d 46 6f 6e 74 69 66 79 20 6d 6f 64	2).#@484.Toggle.Dash-Fontify.mod
203e0	65 20 69 6e 20 61 6c 6c 20 62 75 66 66 65 72 73 2e 0a 57 69 74 68 20 70 72 65 66 69 78 20 41 52	e.in.all.buffers..With.prefix.AR
20400	47 2c 20 65 6e 61 62 6c 65 20 47 6c 6f 62 61 6c 20 44 61 73 68 2d 46 6f 6e 74 69 66 79 20 6d 6f	G,.enable.Global.Dash-Fontify.mo
20420	64 65 20 69 66 20 41 52 47 20 69 73 20 70 6f 73 69 74 69 76 65 3b 0a 6f 74 68 65 72 77 69 73 65	de.if.ARG.is.positive;.otherwise
20440	2c 20 64 69 73 61 62 6c 65 20 69 74 2e 0a 0a 49 66 20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 4c 69	,.disable.it...If.called.from.Li
20460	73 70 2c 20 74 6f 67 67 6c 65 20 74 68 65 20 6d 6f 64 65 20 69 66 20 41 52 47 20 69 73 20 60 74	sp,.toggle.the.mode.if.ARG.is.`t
20480	6f 67 67 6c 65 27 2e 0a 45 6e 61 62 6c 65 20 74 68 65 20 6d 6f 64 65 20 69 66 20 41 52 47 20 69	oggle'..Enable.the.mode.if.ARG.i
204a0	73 20 6e 69 6c 2c 20 6f 6d 69 74 74 65 64 2c 20 6f 72 20 69 73 20 61 20 70 6f 73 69 74 69 76 65	s.nil,.omitted,.or.is.a.positive
204c0	20 6e 75 6d 62 65 72 2e 0a 44 69 73 61 62 6c 65 20 74 68 65 20 6d 6f 64 65 20 69 66 20 41 52 47	.number..Disable.the.mode.if.ARG
204e0	20 69 73 20 61 20 6e 65 67 61 74 69 76 65 20 6e 75 6d 62 65 72 2e 0a 0a 44 61 73 68 2d 46 6f 6e	.is.a.negative.number...Dash-Fon
20500	74 69 66 79 20 6d 6f 64 65 20 69 73 20 65 6e 61 62 6c 65 64 20 69 6e 20 61 6c 6c 20 62 75 66 66	tify.mode.is.enabled.in.all.buff
20520	65 72 73 20 77 68 65 72 65 0a 60 64 61 73 68 2d 2d 74 75 72 6e 2d 6f 6e 2d 66 6f 6e 74 69 66 79	ers.where.`dash--turn-on-fontify
20540	2d 6d 6f 64 65 27 20 77 6f 75 6c 64 20 64 6f 20 69 74 2e 0a 0a 53 65 65 20 60 64 61 73 68 2d 66	-mode'.would.do.it...See.`dash-f
20560	6f 6e 74 69 66 79 2d 6d 6f 64 65 27 20 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f	ontify-mode'.for.more.informatio
20580	6e 20 6f 6e 20 44 61 73 68 2d 46 6f 6e 74 69 66 79 20 6d 6f 64 65 2e 0a 0a 28 66 6e 20 26 6f 70	n.on.Dash-Fontify.mode...(fn.&op
205a0	74 69 6f 6e 61 6c 20 41 52 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 67 6c 6f 62 61 6c 2d 64	tional.ARG)..(defalias.'global-d
205c0	61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 23 5b 32 35 36 20 22 5c 33 30 33 20 5c 33 30	ash-fontify-mode.#[256."\303.\30
205e0	34 5c 33 30 31 03 5c 33 30 35 3d 5c 32 30 33 11 00 5c 33 30 36 5c 33 30 31 21 3f 5c 32 30 32 21	4\301.\305=\203..\306\301!?\202!
20600	00 03 5c 32 34 37 5c 32 30 33 20 00 03 5c 33 30 37 57 5c 32 30 33 20 00 5c 33 31 30 5c 32 30 32	..\247\203...\307W\203..\310\202
20620	21 00 5c 33 31 31 5c 22 5c 32 31 30 5c 33 31 32 5c 33 30 30 21 5c 32 30 33 38 00 5c 33 31 33 5c	!.\311\"\210\312\300!\2038.\313\
20640	33 30 31 08 5c 22 10 5c 33 30 36 5c 33 30 31 21 5c 32 30 33 38 00 5c 33 30 31 08 42 10 09 5c 32	301.\".\306\301!\2038.\301.B..\2
20660	30 33 4e 00 5c 33 31 34 5c 33 31 35 5c 33 31 36 5c 22 5c 32 31 30 5c 33 31 34 5c 33 31 37 5c 33	03N.\314\315\316\"\210\314\317\3
20680	32 30 5c 22 5c 32 31 30 5c 33 31 34 5c 33 32 31 5c 33 32 32 5c 22 5c 32 31 30 5c 32 30 32 5d 00	20\"\210\314\321\322\"\210\202].
206a0	5c 33 32 33 5c 33 31 35 5c 33 31 36 5c 22 5c 32 31 30 5c 33 32 33 5c 33 31 37 5c 33 32 30 5c 22	\323\315\316\"\210\323\317\320\"
206c0	5c 32 31 30 5c 33 32 33 5c 33 32 31 5c 33 32 32 5c 22 5c 32 31 30 5c 33 32 34 20 5c 32 31 31 5c	\210\323\321\322\"\210\324.\211\
206e0	32 30 33 5c 32 30 33 00 5c 32 31 31 40 72 5c 32 31 31 71 5c 32 31 30 09 5c 32 30 33 73 00 5c 33	203\203.\211@r\211q\210.\203s.\3
20700	32 35 20 5c 32 31 30 5c 32 30 32 7b 00 5c 6e 5c 32 30 33 7b 00 5c 33 30 32 5c 33 32 36 21 5c 32	25.\210\202{.\n\203{.\302\326!\2
20720	31 30 29 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 5f 00 5c 32 31 30 5c 33 32 37 5c 33 33 30 5c	10).A\266\202\202_.\210\327\330\
20740	33 30 36 5c 33 30 31 21 5c 32 30 33 5c 32 32 30 00 5c 33 33 31 5c 32 30 32 5c 32 32 31 00 5c 33	306\301!\203\220.\331\202\221.\3
20760	33 32 5c 22 5c 32 31 30 5c 33 33 33 5c 33 33 34 21 5c 32 30 33 5c 32 37 31 00 5c 33 33 35 5c 33	32\"\210\333\334!\203\271.\335\3
20780	30 31 21 5c 32 31 30 5c 33 30 33 20 5c 32 30 33 5c 32 35 31 00 5c 32 31 31 5c 33 30 33 20 5c 32	01!\210\303.\203\251.\211\303.\2
207a0	33 32 5c 32 30 33 5c 32 37 31 00 5c 33 33 36 5c 33 33 37 5c 33 30 36 5c 33 30 31 21 5c 32 30 33	32\203\271.\336\337\306\301!\203
207c0	5c 32 36 35 00 5c 33 34 30 5c 32 30 32 5c 32 36 36 00 5c 33 34 31 5c 33 34 32 23 5c 32 31 30 5c	\265.\340\202\266.\341\342#\210\
207e0	32 31 30 5c 33 34 33 20 5c 32 31 30 5c 33 30 36 5c 33 30 31 21 5c 32 30 37 22 20 5b 67 6c 6f 62	210\343.\210\306\301!\207".[glob
20800	61 6c 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 73 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69	al-minor-modes.global-dash-fonti
20820	66 79 2d 6d 6f 64 65 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 63 75 72 72 65 6e	fy-mode.dash-fontify-mode.curren
20840	74 2d 6d 65 73 73 61 67 65 20 73 65 74 2d 64 65 66 61 75 6c 74 20 74 6f 67 67 6c 65 20 64 65 66	t-message.set-default.toggle.def
20860	61 75 6c 74 2d 76 61 6c 75 65 20 31 20 6e 69 6c 20 74 20 62 6f 75 6e 64 70 20 64 65 6c 71 20 61	ault-value.1.nil.t.boundp.delq.a
20880	64 64 2d 68 6f 6f 6b 20 61 66 74 65 72 2d 63 68 61 6e 67 65 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 2d	dd-hook.after-change-major-mode-
208a0	68 6f 6f 6b 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 65 6e	hook.global-dash-fontify-mode-en
208c0	61 62 6c 65 2d 69 6e 2d 62 75 66 66 65 72 73 20 66 69 6e 64 2d 66 69 6c 65 2d 68 6f 6f 6b 20 67	able-in-buffers.find-file-hook.g
208e0	6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 63 68 65 63 6b 2d 62 75	lobal-dash-fontify-mode-check-bu
20900	66 66 65 72 73 20 63 68 61 6e 67 65 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 67 6c 6f	ffers.change-major-mode-hook.glo
20920	62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 63 6d 68 68 20 72 65 6d 6f 76	bal-dash-fontify-mode-cmhh.remov
20940	65 2d 68 6f 6f 6b 20 62 75 66 66 65 72 2d 6c 69 73 74 20 64 61 73 68 2d 2d 74 75 72 6e 2d 6f 6e	e-hook.buffer-list.dash--turn-on
20960	2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 2d 31 20 72 75 6e 2d 68 6f 6f 6b 73 20 67 6c 6f 62 61	-fontify-mode.-1.run-hooks.globa
20980	6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 67 6c 6f 62 61 6c 2d	l-dash-fontify-mode-hook.global-
209a0	64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6f 6e 2d 68 6f 6f 6b 20 67 6c 6f 62 61 6c	dash-fontify-mode-on-hook.global
209c0	2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6f 66 66 2d 68 6f 6f 6b 20 63 61 6c 6c	-dash-fontify-mode-off-hook.call
209e0	65 64 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2d 70 20 61 6e 79 20 63 75 73 74 6f 6d 69 7a 65	ed-interactively-p.any.customize
20a00	2d 6d 61 72 6b 2d 61 73 2d 73 65 74 20 6d 65 73 73 61 67 65 20 22 47 6c 6f 62 61 6c 20 44 61 73	-mark-as-set.message."Global.Das
20a20	68 2d 46 6f 6e 74 69 66 79 20 6d 6f 64 65 20 25 73 61 62 6c 65 64 25 73 22 20 22 65 6e 22 20 22	h-Fontify.mode.%sabled%s"."en"."
20a40	64 69 73 22 20 22 22 20 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 5d 20	dis"."".force-mode-line-update].
20a60	36 20 28 23 24 20 2e 20 31 33 32 30 34 31 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 5c 32 30	6.(#$...132041).(byte-code.".\20
20a80	33 5c 6e 00 5c 33 30 31 08 21 5c 32 30 32 0b 00 5c 33 30 32 43 5c 32 30 37 22 20 5b 63 75 72 72	3\n.\301.!\202..\302C\207".[curr
20aa0	65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61	ent-prefix-arg.prefix-numeric-va
20ac0	6c 75 65 20 74 6f 67 67 6c 65 5d 20 32 29 5d 29 0a 28 64 65 66 76 61 72 20 67 6c 6f 62 61 6c 2d	lue.toggle].2)]).(defvar.global-
20ae0	64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6e 69 6c 29 0a 28 62 79 74	dash-fontify-mode-hook.nil).(byt
20b00	65 2d 63 6f 64 65 20 22 5c 33 30 31 5c 33 30 32 4e 5c 32 30 34 5c 66 00 5c 33 30 33 5c 33 30 31	e-code."\301\302N\204\f.\303\301
20b20	5c 33 30 32 5c 33 30 34 23 5c 32 31 30 5c 33 30 33 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32	\302\304#\210\303\301\305\306#\2
20b40	31 30 5c 33 30 33 5c 33 30 31 5c 33 30 37 5c 33 31 30 43 23 5c 32 31 30 5c 33 31 31 5c 33 31 32	10\303\301\307\310C#\210\311\312
20b60	5c 33 31 30 5c 33 31 33 5c 33 30 30 21 5c 32 30 35 23 00 08 5c 33 31 30 5c 32 31 31 25 5c 32 30	\310\313\300!\205#..\310\211%\20
20b80	37 22 20 5b 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6d 61 70	7".[global-dash-fontify-mode-map
20ba0	20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 76	.global-dash-fontify-mode-hook.v
20bc0	61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 70 75 74 20 22 48 6f 6f 6b 20	ariable-documentation.put."Hook.
20be0	72 75 6e 20 61 66 74 65 72 20 65 6e 74 65 72 69 6e 67 20 6f 72 20 6c 65 61 76 69 6e 67 20 60 67	run.after.entering.or.leaving.`g
20c00	6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27 2e 5c 6e 4e 6f 20 70 72	lobal-dash-fontify-mode'.\nNo.pr
20c20	6f 62 6c 65 6d 73 20 72 65 73 75 6c 74 20 69 66 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 69	oblems.result.if.this.variable.i
20c40	73 20 6e 6f 74 20 62 6f 75 6e 64 2e 5c 6e 60 61 64 64 2d 68 6f 6f 6b 27 20 61 75 74 6f 6d 61 74	s.not.bound.\n`add-hook'.automat
20c60	69 63 61 6c 6c 79 20 62 69 6e 64 73 20 69 74 2e 20 20 28 54 68 69 73 20 69 73 20 74 72 75 65 20	ically.binds.it...(This.is.true.
20c80	66 6f 72 20 61 6c 6c 20 68 6f 6f 6b 20 76 61 72 69 61 62 6c 65 73 2e 29 22 20 63 75 73 74 6f 6d	for.all.hook.variables.)".custom
20ca0	2d 74 79 70 65 20 68 6f 6f 6b 20 73 74 61 6e 64 61 72 64 2d 76 61 6c 75 65 20 6e 69 6c 20 61 64	-type.hook.standard-value.nil.ad
20cc0	64 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79	d-minor-mode.global-dash-fontify
20ce0	2d 6d 6f 64 65 20 62 6f 75 6e 64 70 5d 20 36 29 0a 28 64 65 66 76 61 72 20 64 61 73 68 2d 66 6f	-mode.boundp].6).(defvar.dash-fo
20d00	6e 74 69 66 79 2d 6d 6f 64 65 2d 73 65 74 2d 65 78 70 6c 69 63 69 74 6c 79 20 6e 69 6c 20 6e 69	ntify-mode-set-explicitly.nil.ni
20d20	6c 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27	l).(make-variable-buffer-local.'
20d40	64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 73 65 74 2d 65 78 70 6c 69 63 69 74 6c 79	dash-fontify-mode-set-explicitly
20d60	29 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 73	).(defalias.'dash-fontify-mode-s
20d80	65 74 2d 65 78 70 6c 69 63 69 74 6c 79 20 23 5b 30 20 22 5c 33 30 31 5c 32 31 31 10 5c 32 30 37	et-explicitly.#[0."\301\211.\207
20da0	22 20 5b 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 73 65 74 2d 65 78 70 6c 69 63 69	".[dash-fontify-mode-set-explici
20dc0	74 6c 79 20 74 5d 20 32 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c	tly.t].2]).(byte-code."\300\301\
20de0	33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 30 37 22 20	302\303#\210\304\305\301\"\207".
20e00	5b 70 75 74 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 73 65 74 2d 65 78 70 6c 69	[put.dash-fontify-mode-set-expli
20e20	63 69 74 6c 79 20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 67 6c 6f 62 61 6c 2d 64 61 73	citly.definition-name.global-das
20e40	68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 61 64 64 2d 68 6f 6f 6b 20 64 61 73 68 2d 66 6f 6e	h-fontify-mode.add-hook.dash-fon
20e60	74 69 66 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 34 29 0a 28 64 65 66 76 61 72 20 67 6c 6f 62 61	tify-mode-hook].4).(defvar.globa
20e80	6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 62 75 66 66 65 72 73 20 6e 69 6c 29	l-dash-fontify-mode-buffers.nil)
20ea0	0a 28 64 65 66 61 6c 69 61 73 20 27 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d	.(defalias.'global-dash-fontify-
20ec0	6d 6f 64 65 2d 65 6e 61 62 6c 65 2d 69 6e 2d 62 75 66 66 65 72 73 20 23 5b 30 20 22 08 5c 33 30	mode-enable-in-buffers.#[0.".\30
20ee0	35 10 5c 32 31 31 5c 32 31 31 5c 32 30 35 39 00 5c 32 31 31 40 5c 33 30 36 01 21 5c 32 30 33 32	5.\211\211\2059.\211@\306.!\2032
20f00	00 72 5c 32 31 31 71 5c 32 31 30 09 5c 32 30 34 2f 00 5c 6e 0b 3d 5c 32 30 34 2f 00 5c 66 5c 32	.r\211q\210.\204/.\n.=\204/.\f\2
20f20	30 33 2c 00 5c 33 30 34 5c 33 30 37 21 5c 32 31 30 5c 33 31 30 20 5c 32 31 30 5c 32 30 32 2f 00	03,.\304\307!\210\310.\210\202/.
20f40	5c 33 31 30 20 5c 32 31 30 0b 12 29 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 04 00 5c 32 30 37	\310.\210..).A\266\202\202..\207
20f60	22 20 5b 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 62 75 66 66	".[global-dash-fontify-mode-buff
20f80	65 72 73 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 73 65 74 2d 65 78 70 6c 69 63	ers.dash-fontify-mode-set-explic
20fa0	69 74 6c 79 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6d 61 6a 6f 72 2d 6d 6f 64	itly.dash-fontify-mode-major-mod
20fc0	65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 6e	e.major-mode.dash-fontify-mode.n
20fe0	69 6c 20 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 2d 31 20 64 61 73 68 2d 2d 74 75 72 6e 2d 6f	il.buffer-live-p.-1.dash--turn-o
21000	6e 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 5d 20 35 5d 29 0a 28 70 75 74 20 27 67 6c 6f 62 61 6c	n-fontify-mode].5]).(put.'global
21020	2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 65 6e 61 62 6c 65 2d 69 6e 2d 62 75 66	-dash-fontify-mode-enable-in-buf
21040	66 65 72 73 20 27 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 27 67 6c 6f 62 61 6c 2d 64 61	fers.'definition-name.'global-da
21060	73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 29 0a 28 64 65 66 61 6c 69 61 73 20 27 67 6c 6f 62	sh-fontify-mode).(defalias.'glob
21080	61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 63 68 65 63 6b 2d 62 75 66 66 65	al-dash-fontify-mode-check-buffe
210a0	72 73 20 23 5b 30 20 22 5c 33 30 30 20 5c 32 31 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 22 5c	rs.#[0."\300.\210\301\302\303\"\
210c0	32 30 37 22 20 5b 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 65	207".[global-dash-fontify-mode-e
210e0	6e 61 62 6c 65 2d 69 6e 2d 62 75 66 66 65 72 73 20 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 70 6f 73	nable-in-buffers.remove-hook.pos
21100	74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69	t-command-hook.global-dash-fonti
21120	66 79 2d 6d 6f 64 65 2d 63 68 65 63 6b 2d 62 75 66 66 65 72 73 5d 20 33 5d 29 0a 28 70 75 74 20	fy-mode-check-buffers].3]).(put.
21140	27 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 63 68 65 63 6b 2d	'global-dash-fontify-mode-check-
21160	62 75 66 66 65 72 73 20 27 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 27 67 6c 6f 62 61 6c	buffers.'definition-name.'global
21180	2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 29 0a 28 64 65 66 61 6c 69 61 73 20 27 67	-dash-fontify-mode).(defalias.'g
211a0	6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 63 6d 68 68 20 23 5b 30	lobal-dash-fontify-mode-cmhh.#[0
211c0	20 22 70 5c 32 31 31 08 5c 32 33 35 5c 32 30 33 0d 00 08 5c 32 36 36 02 5c 32 30 32 12 00 5c 32	."p\211.\235\203...\266.\202..\2
211e0	31 31 08 42 10 5c 32 31 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 22 5c 32 30 37 22 20 5b 67 6c	11.B.\210\301\302\303\"\207".[gl
21200	6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 62 75 66 66 65 72 73 20 61	obal-dash-fontify-mode-buffers.a
21220	64 64 2d 68 6f 6f 6b 20 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 67 6c 6f 62 61 6c	dd-hook.post-command-hook.global
21240	2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 63 68 65 63 6b 2d 62 75 66 66 65 72 73	-dash-fontify-mode-check-buffers
21260	5d 20 33 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	].3]).(byte-code."\300\301\302\3
21280	30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 44 44 5c 33 31	03#\210\304\305\306\307\310DD\31
212a0	31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 33 31 36 5c 33 31 37 26 09 5c 32 31 30 5c	1\312\313\314\315\316\317&.\210\
212c0	33 32 30 5c 33 30 35 5c 33 30 33 5c 33 32 31 23 5c 32 31 30 5c 33 32 32 5c 33 32 33 5c 33 30 33	320\305\303\321#\210\322\323\303
212e0	5c 33 32 34 23 5c 32 31 30 5c 33 32 35 5c 33 32 33 5c 33 30 33 5c 33 32 31 23 5c 32 30 37 22 20	\324#\210\325\323\303\321#\207".
21300	5b 70 75 74 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 63 6d	[put.global-dash-fontify-mode-cm
21320	68 68 20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66	hh.definition-name.global-dash-f
21340	6f 6e 74 69 66 79 2d 6d 6f 64 65 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61	ontify-mode.custom-declare-varia
21360	62 6c 65 20 64 61 73 68 2d 65 6e 61 62 6c 65 2d 66 6f 6e 74 6c 6f 63 6b 20 66 75 6e 63 61 6c 6c	ble.dash-enable-fontlock.funcall
21380	20 66 75 6e 63 74 69 6f 6e 20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 31	.function.#[0."\300\207".[nil].1
213a0	20 22 22 5d 20 22 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 66 6f 6e 74 69 66 79 20 44 61 73 68 20 6d	.""]."If.non-nil,.fontify.Dash.m
213c0	61 63 72 6f 20 63 61 6c 6c 73 20 61 6e 64 20 73 70 65 63 69 61 6c 20 76 61 72 69 61 62 6c 65 73	acro.calls.and.special.variables
213e0	2e 22 20 3a 67 72 6f 75 70 20 64 61 73 68 20 3a 73 65 74 20 23 5b 35 31 34 20 22 5c 33 30 30 02	.".:group.dash.:set.#[514."\300.
21400	02 5c 22 5c 32 31 30 5c 33 30 31 01 5c 32 30 33 0e 00 5c 33 30 32 5c 32 30 32 0f 00 5c 33 30 33	.\"\210\301.\203..\302\202..\303
21420	21 5c 32 30 37 22 20 5b 73 65 74 2d 64 65 66 61 75 6c 74 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d	!\207".[set-default.global-dash-
21440	66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 31 20 30 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 53 59 4d	fontify-mode.1.0].5."\n\n(fn.SYM
21460	20 56 41 4c 29 22 5d 20 3a 74 79 70 65 20 62 6f 6f 6c 65 61 6e 20 6d 61 6b 65 2d 6f 62 73 6f 6c	.VAL)"].:type.boolean.make-obsol
21480	65 74 65 2d 76 61 72 69 61 62 6c 65 20 22 32 2e 31 38 2e 30 22 20 64 65 66 61 6c 69 61 73 20 64	ete-variable."2.18.0".defalias.d
214a0	61 73 68 2d 65 6e 61 62 6c 65 2d 66 6f 6e 74 2d 6c 6f 63 6b 20 6e 69 6c 20 6d 61 6b 65 2d 6f 62	ash-enable-font-lock.nil.make-ob
214c0	73 6f 6c 65 74 65 5d 20 31 30 29 0a 23 40 39 34 20 54 68 65 20 44 61 73 68 20 3a 64 6f 63 2d 73	solete].10).#@94.The.Dash.:doc-s
214e0	70 65 63 20 65 6e 74 72 79 20 66 6f 72 20 60 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 61 6c 69 73 74	pec.entry.for.`info-lookup-alist
21500	27 2e 0a 49 74 20 69 73 20 62 61 73 65 64 20 6f 6e 20 74 68 61 74 20 66 6f 72 20 60 65 6d 61 63	'..It.is.based.on.that.for.`emac
21520	73 2d 6c 69 73 70 2d 6d 6f 64 65 27 2e 1f 0a 28 64 65 66 76 61 72 20 64 61 73 68 2d 2d 69 6e 66	s-lisp-mode'...(defvar.dash--inf
21540	6f 2d 64 6f 63 2d 73 70 65 63 20 27 28 22 28 64 61 73 68 29 20 49 6e 64 65 78 22 20 6e 69 6c 20	o-doc-spec.'("(dash).Index".nil.
21560	22 5e 20 2d 2b 20 2e 2a 3a 20 22 20 22 5c 5c 28 20 5c 5c 7c 24 5c 5c 29 22 29 20 28 23 24 20 2e	"^.-+..*:."."\\(.\\|$\\)").(#$..
21580	20 31 33 36 34 30 31 29 29 0a 23 40 31 36 35 20 52 65 74 75 72 6e 20 74 68 65 20 60 65 6d 61 63	.136401)).#@165.Return.the.`emac
215a0	73 2d 6c 69 73 70 2d 6d 6f 64 65 27 20 73 79 6d 62 6f 6c 20 64 6f 63 73 20 66 72 6f 6d 20 60 69	s-lisp-mode'.symbol.docs.from.`i
215c0	6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 61 6c 69 73 74 27 2e 0a 53 70 65 63 69 66 69 63 61 6c 6c 79 2c	nfo-lookup-alist'..Specifically,
215e0	20 72 65 74 75 72 6e 20 74 68 65 20 63 6f 6e 73 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 69	.return.the.cons.containing.thei
21600	72 0a 60 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 3e 64 6f 63 2d 73 70 65 63 27 20 73 6f 20 74 68 61	r.`info-lookup->doc-spec'.so.tha
21620	74 20 77 65 20 63 61 6e 20 6d 6f 64 69 66 79 20 69 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	t.we.can.modify.it...(defalias.'
21640	64 61 73 68 2d 2d 69 6e 66 6f 2d 65 6c 69 73 70 2d 64 6f 63 73 20 23 5b 30 20 22 5c 33 30 31 5c	dash--info-elisp-docs.#[0."\301\
21660	33 30 32 5c 33 30 33 08 5c 32 33 36 41 5c 32 33 36 5c 32 33 33 5c 32 30 37 22 20 5b 69 6e 66 6f	302\303.\236A\236\233\207".[info
21680	2d 6c 6f 6f 6b 75 70 2d 61 6c 69 73 74 20 33 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 20	-lookup-alist.3.emacs-lisp-mode.
216a0	73 79 6d 62 6f 6c 5d 20 34 20 28 23 24 20 2e 20 31 33 36 35 39 32 29 5d 29 0a 23 40 31 32 37 20	symbol].4.(#$...136592)]).#@127.
216c0	52 65 67 69 73 74 65 72 20 74 68 65 20 44 61 73 68 20 49 6e 66 6f 20 6d 61 6e 75 61 6c 20 77 69	Register.the.Dash.Info.manual.wi
216e0	74 68 20 60 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 79 6d 62 6f 6c 27 2e 0a 54 68 69 73 20 61 6c	th.`info-lookup-symbol'..This.al
21700	6c 6f 77 73 20 44 61 73 68 20 73 79 6d 62 6f 6c 73 20 74 6f 20 62 65 20 6c 6f 6f 6b 65 64 20 75	lows.Dash.symbols.to.be.looked.u
21720	70 20 77 69 74 68 20 5c 5b 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 79 6d 62 6f 6c 5d 2e 1f 0a 28	p.with.\[info-lookup-symbol]...(
21740	64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 72 65 67 69 73 74 65 72 2d 69 6e 66 6f 2d 6c 6f 6f	defalias.'dash-register-info-loo
21760	6b 75 70 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 32 21 5c 32 31 30 5c 33 30 33 20 5c 32 31 31 5c	kup.#[0."\301\302!\210\303.\211\
21780	33 30 34 02 40 08 43 5c 22 5c 32 34 30 5c 32 31 30 5c 33 30 35 20 5c 32 30 37 22 20 5b 64 61 73	304.@.C\"\240\210\305.\207".[das
217a0	68 2d 2d 69 6e 66 6f 2d 64 6f 63 2d 73 70 65 63 20 72 65 71 75 69 72 65 20 69 6e 66 6f 2d 6c 6f	h--info-doc-spec.require.info-lo
217c0	6f 6b 20 64 61 73 68 2d 2d 69 6e 66 6f 2d 65 6c 69 73 70 2d 64 6f 63 73 20 61 70 70 65 6e 64 20	ok.dash--info-elisp-docs.append.
217e0	69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 72 65 73 65 74 5d 20 35 20 28 23 24 20 2e 20 31 33 36 38 39	info-lookup-reset].5.(#$...13689
21800	36 29 20 6e 69 6c 5d 29 0a 23 40 37 36 20 52 65 6d 6f 76 65 20 44 61 73 68 20 66 72 6f 6d 20 60	6).nil]).#@76.Remove.Dash.from.`
21820	69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 61 6c 69 73 74 27 2e 0a 55 73 65 64 20 62 79 20 60 75 6e 6c	info-lookup-alist'..Used.by.`unl
21840	6f 61 64 2d 66 65 61 74 75 72 65 27 2c 20 77 68 69 63 68 20 73 65 65 2e 1f 0a 28 64 65 66 61 6c	oad-feature',.which.see...(defal
21860	69 61 73 20 27 64 61 73 68 2d 75 6e 6c 6f 61 64 2d 66 75 6e 63 74 69 6f 6e 20 23 5b 30 20 22 5c	ias.'dash-unload-function.#[0."\
21880	33 30 31 5c 33 30 32 21 5c 32 30 35 08 00 5c 33 30 33 20 08 01 40 5c 32 33 35 5c 32 30 33 1a 00	301\302!\205..\303...@\235\203..
218a0	5c 32 31 31 5c 33 30 34 08 03 40 5c 22 5c 32 34 30 5c 32 31 30 5c 33 30 35 20 5c 32 31 30 5c 32	\211\304..@\"\240\210\305.\210\2
218c0	31 30 5c 33 30 36 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 69 6e 66 6f 2d 64 6f 63 2d 73 70 65 63	10\306\207".[dash--info-doc-spec
218e0	20 66 65 61 74 75 72 65 70 20 69 6e 66 6f 2d 6c 6f 6f 6b 20 64 61 73 68 2d 2d 69 6e 66 6f 2d 65	.featurep.info-look.dash--info-e
21900	6c 69 73 70 2d 64 6f 63 73 20 72 65 6d 6f 76 65 20 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 72 65 73	lisp-docs.remove.info-lookup-res
21920	65 74 20 6e 69 6c 5d 20 35 20 28 23 24 20 2e 20 31 33 37 32 33 30 29 5d 29 0a 28 70 72 6f 76 69	et.nil].5.(#$...137230)]).(provi
21940	64 65 20 27 64 61 73 68 29 0a	de.'dash).