blob: eb216555be62d338e4676891f47c85d28390aae6 (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 1e 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 33 30 2e 32 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.30.2.;;;.with.all.opt
0040	69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 0a 23 40 31 34 36 20 45 78 70 61 6e 64 20 74 6f 20 54 48	imizations....#@146.Expand.to.TH
0060	45 4e 2d 46 4f 52 4d 20 6f 72 20 45 4c 53 45 2d 46 4f 52 4d 53 20 62 61 73 65 64 20 6f 6e 20 63	EN-FORM.or.ELSE-FORMS.based.on.c
0080	6f 6d 70 69 6c 65 2d 74 69 6d 65 20 43 4f 4e 44 49 54 49 4f 4e 2e 0a 50 6f 6c 79 66 69 6c 6c 20	ompile-time.CONDITION..Polyfill.
00a0	66 6f 72 20 45 6d 61 63 73 20 33 30 20 60 73 74 61 74 69 63 2d 69 66 27 2e 0a 0a 28 66 6e 20 43	for.Emacs.30.`static-if'...(fn.C
00c0	4f 4e 44 49 54 49 4f 4e 20 54 48 45 4e 2d 46 4f 52 4d 20 26 72 65 73 74 20 45 4c 53 45 2d 46 4f	ONDITION.THEN-FORM.&rest.ELSE-FO
00e0	52 4d 53 29 1f 23 40 36 34 20 44 65 73 74 72 75 63 74 69 76 65 3a 20 53 65 74 20 43 44 52 20 74	RMS).#@64.Destructive:.Set.CDR.t
0100	6f 20 74 68 65 20 63 6f 6e 73 20 6f 66 20 43 41 52 20 61 6e 64 20 43 44 52 2e 0a 0a 28 66 6e 20	o.the.cons.of.CAR.and.CDR...(fn.
0120	43 41 52 20 43 44 52 29 1f 0a 28 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 67 72 6f 75 70 20	CAR.CDR)..(custom-declare-group.
0140	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 66 6f 72 20 44	'dash.nil."Customize.group.for.D
0160	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 22 20 3a 67 72	ash,.a.modern.list.library.".:gr
0180	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 70 20 3a 70 72	oup.'extensions.:group.'lisp.:pr
01a0	65 66 69 78 20 22 64 61 73 68 2d 22 29 0a 28 64 65 66 61 6c 69 61 73 20 27 21 63 6f 6e 73 20 27	efix."dash-").(defalias.'!cons.'
01c0	28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 04 04 45 45 5c 32 30	(macro...#[514."\300.\301..EE\20
01e0	37 22 20 5b 73 65 74 71 20 63 6f 6e 73 5d 20 37 20 28 23 24 20 2e 20 32 33 34 29 5d 29 29 23 40	7".[setq.cons].7.(#$...234)]))#@
0200	35 34 20 44 65 73 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	54.Destructive:.Set.LIST.to.the.
0220	63 64 72 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 21	cdr.of.LIST...(fn.LIST)..(put.'!
0240	63 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 73 79	cons.'edebug-form-spec.'(form.sy
0260	6d 62 6f 6c 70 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 21 63 64 72 20 27 28 6d 61 63 72 6f 20	mbolp)).(defalias.'!cdr.'(macro.
0280	2e 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 03 44 45 5c 32 30 37 22 20 5b 73 65 74 71	..#[257."\300.\301.DE\207".[setq
02a0	20 63 64 72 5d 20 35 20 28 23 24 20 2e 20 35 31 35 29 5d 29 29 23 40 32 33 34 20 45 76 61 6c 75	.cdr].5.(#$...515)]))#@234.Evalu
02c0	61 74 65 20 42 4f 44 59 20 66 6f 72 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53	ate.BODY.for.each.element.of.LIS
02e0	54 20 61 6e 64 20 72 65 74 75 72 6e 20 6e 69 6c 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f	T.and.return.nil..Each.element.o
0300	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 60 69 74 27 20	f.LIST.in.turn.is.bound.to.`it'.
0320	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 6f 20 60 69 74	and.its.index.within.LIST.to.`it
0340	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 42 4f 44 59 2e 0a	-index'.before.evaluating.BODY..
0360	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 72	This.is.the.anaphoric.counterpar
0380	74 20 74 6f 20 60 2d 65 61 63 68 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 26 72 65 73 74 20 42 4f	t.to.`-each'...(fn.LIST.&rest.BO
03a0	44 59 29 1f 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	DY)..(put.'!cdr.'edebug-form-spe
03c0	63 20 27 28 73 79 6d 62 6f 6c 70 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 65 61 63 68 20	c.'(symbolp)).(defalias.'--each.
03e0	27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33	'(macro...#[385."\300\301!\300\3
0400	30 32 21 5c 33 30 33 02 05 44 02 5c 33 30 34 42 44 5c 33 30 35 04 5c 33 30 33 5c 33 30 36 5c 33	02!\303..D.\304BD\305.\303\306\3
0420	30 37 06 08 44 44 5c 33 31 30 06 07 44 44 5c 33 31 31 06 09 42 42 42 5c 33 31 32 06 06 5c 33 31	07..DD\310..DD\311..BBB\312..\31
0440	33 06 08 44 45 46 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 22	3..DEFE\207".[make-symbol."list"
0460	20 22 69 22 20 6c 65 74 20 28 30 29 20 77 68 69 6c 65 20 69 74 20 70 6f 70 20 69 74 2d 69 6e 64	."i".let.(0).while.it.pop.it-ind
0480	65 78 20 28 69 67 6e 6f 72 65 20 69 74 20 69 74 2d 69 6e 64 65 78 29 20 73 65 74 71 20 31 2b 5d	ex.(ignore.it.it-index).setq.1+]
04a0	20 31 33 20 28 23 24 20 2e 20 36 39 39 29 5d 29 29 23 40 32 31 37 20 43 61 6c 6c 20 46 4e 20 6f	.13.(#$...699)]))#@217.Call.FN.o
04c0	6e 20 65 61 63 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 6e	n.each.element.of.LIST..Return.n
04e0	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 6e 64 65 64 20 66 6f	il;.this.function.is.intended.fo
0500	72 20 73 69 64 65 20 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	r.side.effects...Its.anaphoric.c
0520	6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 65 61 63 68 27 2e 0a 0a 46 6f 72 20 61 63 63	ounterpart.is.`--each'...For.acc
0540	65 73 73 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 65 6c 65 6d 65 6e 74 27 73 20 69 6e 64	ess.to.the.current.element's.ind
0560	65 78 20 69 6e 20 4c 49 53 54 2c 20 73 65 65 0a 60 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 27 2e	ex.in.LIST,.see.`-each-indexed'.
0580	0a 0a 28 66 6e 20 4c 49 53 54 20 46 4e 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	..(fn.LIST.FN)..(byte-code."\300
05a0	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
05c0	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
05e0	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
0600	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 28 64 65	t.lisp-indent-function.1].4).(de
0620	66 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 33 30	falias.'-each.#[514."\300..\"\30
0640	31 5c 32 30 37 22 20 5b 6d 61 70 63 20 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 31 32 30 37 29 5d	1\207".[mapc.nil].6.(#$...1207)]
0660	29 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 61 6e 64	)#@203.Call.FN.on.each.index.and
0680	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 45 4d 20	.element.of.LIST..For.each.ITEM.
06a0	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 6c 6c 20	at.INDEX.in.LIST,.call.(funcall.
06c0	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 68 69 73	FN.INDEX.ITEM)..Return.nil;.this
06e0	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 65	.function.is.intended.for.side.e
0700	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 78 65 64	ffects...See.also:.`-map-indexed
0720	27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46 4e 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	'...(fn.LIST.FN)..(byte-code."\3
0740	30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 30	00\301\302\303#\304\305\306\"\20
0760	37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 65 61 63 68 20 6c 69 73 70 2d 69 6e 64 65	7".[function-put.-each.lisp-inde
0780	6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 20 64 65 66 61 6c 69 61 73 20 2d 2d 65 61 63 68 2d 69 6e	nt-function.1.defalias.--each-in
07a0	64 65 78 65 64 20 2d 2d 65 61 63 68 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 65 61 63	dexed.--each].4).(defalias.'-eac
07c0	68 2d 69 6e 64 65 78 65 64 20 23 5b 35 31 34 20 22 01 5c 33 30 30 01 5c 32 30 35 16 00 01 5c 32	h-indexed.#[514.".\300.\205...\2
07e0	31 31 41 5c 32 36 32 03 5c 32 34 32 03 02 02 5c 22 5c 32 36 36 02 54 5c 32 30 32 02 00 5c 32 30	11A\262.\242...\"\266.T\202..\20
0800	37 22 20 5b 30 5d 20 38 20 28 23 24 20 2e 20 31 36 33 39 29 5d 29 23 40 33 39 32 20 45 76 61 6c	7".[0].8.(#$...1639)])#@392.Eval
0820	75 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	uate.BODY.for.each.item.in.LIST,
0840	20 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	.while.PRED.evaluates.to.non-nil
0860	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
0880	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 77 69	s.bound.to.`it'.and.its.index.wi
08a0	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 20 65	thin.LIST.to.`it-index'.before.e
08c0	76 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	valuating.PRED.or.BODY...Once.an
08e0	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 68 20 50 52	.element.is.reached.for.which.PR
0900	45 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	ED.evaluates.to.nil,.no.further.
0920	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 72 6e 20 76	BODY.is.evaluated...The.return.v
0940	61 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	alue.is.always.nil..This.is.the.
0960	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 2d	anaphoric.counterpart.to.`-each-
0980	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 73 74 20 42 4f 44	while'...(fn.LIST.PRED.&rest.BOD
09a0	59 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	Y)..(byte-code."\300\301\302\303
09c0	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 65 61 63 68 2d 69	#\300\207".[function-put.-each-i
09e0	6e 64 65 78 65 64 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	ndexed.lisp-indent-function.1].4
0a00	29 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 72	).(defalias.'--each-while.'(macr
0a20	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 30	o...#[642."\300\301!\300\302!\30
0a40	30 5c 33 30 33 21 5c 33 30 34 03 06 07 44 03 5c 33 30 35 42 03 45 5c 33 30 36 5c 33 30 37 06 06	0\303!\304...D.\305B.E\306\307..
0a60	5c 33 31 30 06 06 5c 33 31 31 06 5c 6e 44 45 5c 33 30 34 5c 33 31 32 06 08 44 5c 33 31 33 06 5c	\310..\311.\nDE\304\312..D\313.\
0a80	6e 44 44 5c 33 31 34 06 0d 46 46 5c 33 30 34 5c 33 31 32 06 06 44 5c 33 31 33 06 08 44 44 5c 33	nDD\314..FF\304\312..D\313..DD\3
0aa0	31 35 06 5c 6e 42 42 42 5c 33 31 30 06 07 5c 33 31 36 06 09 44 06 5c 6e 5c 33 31 37 06 5c 66 44	15.\nBBB\310..\316..D.\n\317.\fD
0ac0	5c 32 35 37 05 46 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 22	\257.FE\207".[make-symbol."list"
0ae0	20 22 69 22 20 22 65 6c 74 22 20 6c 65 74 20 28 30 29 20 77 68 69 6c 65 20 77 68 65 6e 20 73 65	."i"."elt".let.(0).while.when.se
0b00	74 71 20 63 61 72 2d 73 61 66 65 20 69 74 20 69 74 2d 69 6e 64 65 78 20 28 69 67 6e 6f 72 65 20	tq.car-safe.it.it-index.(ignore.
0b20	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 78	it.it-index).(ignore.it.it-index
0b40	29 20 31 2b 20 63 64 72 5d 20 31 37 20 28 23 24 20 2e 20 32 30 37 36 29 5d 29 29 23 40 32 35 39	).1+.cdr].17.(#$...2076)]))#@259
0b60	20 43 61 6c 6c 20 46 4e 20 6f 6e 20 65 61 63 68 20 49 54 45 4d 20 69 6e 20 4c 49 53 54 2c 20 77	.Call.FN.on.each.ITEM.in.LIST,.w
0b80	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
0ba0	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
0bc0	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
0be0	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
0c00	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
0c20	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.
0c40	60 2d 2d 65 61 63 68 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 50 52 45 44 20 46	`--each-while'...(fn.LIST.PRED.F
0c60	4e 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	N)..(byte-code."\300\301\302\303
0c80	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 22 20	#\210\304\301\305\306#\300\207".
0ca0	5b 70 75 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70	[put.--each-while.edebug-form-sp
0cc0	65 63 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	ec.(form.form.body).function-put
0ce0	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 28 64 65 66	.lisp-indent-function.2].4).(def
0d00	61 6c 69 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	alias.'-each-while.#[771.".\300\
0d20	33 30 31 02 5c 32 30 35 1f 00 5c 32 31 30 01 5c 32 34 32 04 01 21 5c 32 30 35 1f 00 03 01 21 5c	301.\205..\210.\242..!\205....!\
0d40	32 31 30 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 03 00 5c 32 30 37 22 20 5b 30 20	210.T\262..A\262.\202..\207".[0.
0d60	6e 69 6c 5d 20 38 20 28 23 24 20 2e 20 32 39 31 33 29 5d 29 23 40 32 39 34 20 45 76 61 6c 75 61	nil].8.(#$...2913)])#@294.Evalua
0d80	74 65 20 42 4f 44 59 20 66 6f 72 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54	te.BODY.for.each.element.of.LIST
0da0	20 69 6e 20 72 65 76 65 72 73 65 64 20 6f 72 64 65 72 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74	.in.reversed.order..Each.element
0dc0	20 6f 66 20 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	.of.LIST.in.turn,.starting.at.it
0de0	73 20 65 6e 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	s.end,.is.bound.to.`it'.and.its.
0e00	69 6e 64 65 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	index.within.LIST.to.`it-index'.
0e20	62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 0a 42 4f 44 59 2e 20 20 54 68 65 20 72 65 74	before.evaluating.BODY...The.ret
0e40	75 72 6e 20 76 61 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	urn.value.is.always.nil..This.is
0e60	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 6f 20 60 2d	.the.anaphoric.counterpart.to.`-
0e80	65 61 63 68 2d 72 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	each-r'...(fn.LIST.&rest.BODY)..
0ea0	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
0ec0	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 6c 65	0\207".[function-put.-each-while
0ee0	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 28 64 65 66	.lisp-indent-function.2].4).(def
0f00	61 6c 69 61 73 20 27 2d 2d 65 61 63 68 2d 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20	alias.'--each-r.'(macro...#[385.
0f20	22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 33 02 5c 33 30 34 06 06 44 44	"\300\301!\300\302!\303.\304..DD
0f40	02 5c 33 30 35 05 44 44 5c 33 30 36 42 42 5c 33 30 37 5c 33 31 30 5c 33 31 31 05 5c 33 31 32 42	.\305.DD\306BB\307\310\311.\312B
0f60	42 5c 33 31 33 06 06 5c 33 31 34 06 08 44 5c 33 31 35 06 09 5c 33 31 36 5c 33 31 37 06 0d 06 0d	B\313..\314..D\315..\316\317....
0f80	45 5c 32 35 37 07 06 08 42 42 42 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22	E\257...BBBF\207".[make-symbol."
0fa0	76 65 63 74 6f 72 22 20 22 69 22 20 6c 65 74 2a 20 76 63 6f 6e 63 61 74 20 6c 65 6e 67 74 68 20	vector"."i".let*.vconcat.length.
0fc0	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
0fe0	78 29 20 77 68 69 6c 65 20 3e 20 28 30 29 20 73 65 74 71 20 31 2d 20 69 74 2d 69 6e 64 65 78 20	x).while.>.(0).setq.1-.it-index.
1000	69 74 20 61 72 65 66 5d 20 31 38 20 28 23 24 20 2e 20 33 34 35 30 29 5d 29 29 23 40 31 36 34 20	it.aref].18.(#$...3450)]))#@164.
1020	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 53 54 20	Call.FN.on.each.element.of.LIST.
1040	69 6e 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	in.reversed.order..Return.nil;.t
1060	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
1080	65 20 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	e.effects...Its.anaphoric.counte
10a0	72 70 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	rpart.is.`--each-r'...(fn.LIST.F
10c0	4e 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	N)..(byte-code."\300\301\302\303
10e0	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 22 20	#\210\304\301\305\306#\300\207".
1100	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 70 65 63 20 28	[put.--each-r.edebug-form-spec.(
1120	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 64	form.body).function-put.lisp-ind
1140	65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 65	ent-function.1].4).(defalias.'-e
1160	61 63 68 2d 72 20 23 5b 35 31 34 20 22 5c 33 30 30 02 21 5c 32 31 31 47 5c 33 30 31 5c 32 31 31	ach-r.#[514."\300.!\211G\301\211
1180	02 5c 33 30 32 56 5c 32 30 35 1f 00 02 53 5c 32 36 32 03 5c 32 31 30 01 03 03 48 5c 32 36 32 02	.\302V\205...S\262.\210...H\262.
11a0	04 02 21 5c 32 31 30 5c 32 30 32 07 00 5c 32 30 37 22 20 5b 76 63 6f 6e 63 61 74 20 6e 69 6c 20	..!\210\202..\207".[vconcat.nil.
11c0	30 5d 20 38 20 28 23 24 20 2e 20 34 31 32 38 29 5d 29 23 40 34 31 37 20 45 76 61 6c 20 42 4f 44	0].8.(#$...4128)])#@417.Eval.BOD
11e0	59 20 66 6f 72 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 72 65 76 65 72 73 65 64 20 4c 49 53 54	Y.for.each.item.in.reversed.LIST
1200	2c 20 77 68 69 6c 65 20 50 52 45 44 20 65 76 61 6c 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2e 0a 45	,.while.PRED.evals.to.non-nil..E
1220	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 2c 20 73 74 61	ach.element.of.LIST.in.turn,.sta
1240	72 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	rting.at.its.end,.is.bound.to.`i
1260	74 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	t'.and.its.index.within.LIST.to.
1280	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 0a 50 52 45	`it-index'.before.evaluating.PRE
12a0	44 20 6f 72 20 42 4f 44 59 2e 20 20 4f 6e 63 65 20 61 6e 20 65 6c 65 6d 65 6e 74 20 69 73 20 72	D.or.BODY...Once.an.element.is.r
12c0	65 61 63 68 65 64 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 0a 65 76 61 6c 75 61 74 65 73 20	eached.for.which.PRED.evaluates.
12e0	74 6f 20 6e 69 6c 2c 20 6e 6f 20 66 75 72 74 68 65 72 20 42 4f 44 59 20 69 73 20 65 76 61 6c 75	to.nil,.no.further.BODY.is.evalu
1300	61 74 65 64 2e 20 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 0a 69 73 20 61 6c 77 61 79	ated...The.return.value.is.alway
1320	73 20 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	s.nil..This.is.the.anaphoric.cou
1340	6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 65 61 63 68 2d 72 2d 77 68 69 6c 65 27 2e 0a 0a 28 66	nterpart.to.`-each-r-while'...(f
1360	6e 20 4c 49 53 54 20 50 52 45 44 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69	n.LIST.PRED.&rest.BODY)..(defali
1380	61 73 20 27 2d 2d 65 61 63 68 2d 72 2d 77 68 69 6c 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36	as.'--each-r-while.'(macro...#[6
13a0	34 32 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 30 33 21 5c	42."\300\301!\300\302!\300\303!\
13c0	33 30 34 03 5c 33 30 35 06 08 44 44 03 5c 33 30 36 06 06 44 44 03 5c 33 30 37 42 42 42 5c 33 31	304.\305..DD.\306..DD.\307BBB\31
13e0	30 5c 33 31 31 5c 33 31 32 5c 33 31 33 06 07 5c 33 31 34 42 42 5c 33 31 35 06 08 5c 33 31 36 06	0\311\312\313..\314BB\315..\316.
1400	5c 6e 44 5c 33 31 37 06 0b 5c 32 35 37 05 5c 33 31 35 06 08 5c 33 32 30 06 5c 66 06 5c 66 45 5c	\nD\317..\257.\315..\320.\f.\fE\
1420	33 32 31 06 0b 5c 32 35 37 05 06 5c 66 5c 32 35 37 05 5c 33 31 35 5c 33 31 37 06 08 5c 33 32 31	321..\257..\f\257.\315\317..\321
1440	06 09 5c 32 35 37 05 06 09 42 42 42 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20	..\257...BBBF\207".[make-symbol.
1460	22 76 65 63 74 6f 72 22 20 22 69 22 20 22 65 6c 74 22 20 6c 65 74 2a 20 76 63 6f 6e 63 61 74 20	"vector"."i"."elt".let*.vconcat.
1480	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 6f 72 65 20 69 74 20	length.(it.it-index).(ignore.it.
14a0	69 74 2d 69 6e 64 65 78 29 20 77 68 69 6c 65 20 77 68 65 6e 20 3e 20 28 30 29 20 73 65 74 71 20	it-index).while.when.>.(0).setq.
14c0	31 2d 20 69 74 2d 69 6e 64 65 78 20 61 72 65 66 20 69 74 5d 20 31 38 20 28 23 24 20 2e 20 34 35	1-.it-index.aref.it].18.(#$...45
14e0	36 38 29 5d 29 29 23 40 32 37 30 20 43 61 6c 6c 20 46 4e 20 6f 6e 20 65 61 63 68 20 49 54 45 4d	68)]))#@270.Call.FN.on.each.ITEM
1500	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 28 50 52 45 44 20 49	.in.reversed.LIST,.while.(PRED.I
1520	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 73	TEM).is.non-nil..Once.an.ITEM.is
1540	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 20	.reached.for.which.PRED.returns.
1560	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 65	nil,.FN.is.no.longer.called...Re
1580	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 6e	turn.nil;.this.function.is.inten
15a0	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 68	ded.for.side.effects...Its.anaph
15c0	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 72 2d 77 68	oric.counterpart.is.`--each-r-wh
15e0	69 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 62 79 74 65 2d	ile'...(fn.LIST.PRED.FN)..(byte-
1600	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\
1620	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 65 61 63	301\305\306#\300\207".[put.--eac
1640	68 2d 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	h-r-while.edebug-form-spec.(form
1660	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 70 2d 69 6e	.form.body).function-put.lisp-in
1680	64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	dent-function.2].4).(defalias.'-
16a0	65 61 63 68 2d 72 2d 77 68 69 6c 65 20 23 5b 37 37 31 20 22 5c 33 30 30 03 21 5c 32 31 31 47 5c	each-r-while.#[771."\300.!\211G\
16c0	33 30 31 5c 32 31 31 5c 32 31 31 03 5c 33 30 32 56 5c 32 30 35 2f 00 03 53 5c 32 36 32 04 5c 32	301\211\211.\302V\205/..S\262.\2
16e0	31 30 02 04 04 48 5c 32 36 32 03 02 5c 32 36 32 02 06 06 02 21 5c 32 30 35 2f 00 5c 32 31 30 02	10...H\262..\262....!\205/.\210.
1700	02 5c 32 36 32 02 05 02 21 5c 32 31 30 5c 32 30 32 08 00 5c 32 30 37 22 20 5b 76 63 6f 6e 63 61	.\262...!\210\202..\207".[vconca
1720	74 20 6e 69 6c 20 30 5d 20 31 30 20 28 23 24 20 2e 20 35 33 35 36 29 5d 29 23 40 33 30 35 20 45	t.nil.0].10.(#$...5356)])#@305.E
1740	76 61 6c 75 61 74 65 20 42 4f 44 59 20 4e 55 4d 20 74 69 6d 65 73 2c 20 70 72 65 73 75 6d 61 62	valuate.BODY.NUM.times,.presumab
1760	6c 79 20 66 6f 72 20 73 69 64 65 20 65 66 66 65 63 74 73 2e 0a 42 4f 44 59 20 69 73 20 65 76 61	ly.for.side.effects..BODY.is.eva
1780	6c 75 61 74 65 64 20 77 69 74 68 20 74 68 65 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 20 60	luated.with.the.local.variable.`
17a0	69 74 27 20 74 65 6d 70 6f 72 61 72 69 6c 79 20 62 6f 75 6e 64 0a 74 6f 20 73 75 63 63 65 73 73	it'.temporarily.bound.to.success
17c0	69 76 65 20 69 6e 74 65 67 65 72 73 20 72 75 6e 6e 69 6e 67 20 66 72 6f 6d 20 30 2c 20 69 6e 63	ive.integers.running.from.0,.inc
17e0	6c 75 73 69 76 65 2c 20 74 6f 20 4e 55 4d 2c 0a 65 78 63 6c 75 73 69 76 65 2e 20 20 42 4f 44 59	lusive,.to.NUM,.exclusive...BODY
1800	20 69 73 20 6e 6f 74 20 65 76 61 6c 75 61 74 65 64 20 69 66 20 4e 55 4d 20 69 73 20 6c 65 73 73	.is.not.evaluated.if.NUM.is.less
1820	20 74 68 61 6e 20 31 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	.than.1..This.is.the.anaphoric.c
1840	6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 64 6f 74 69 6d 65 73 27 2e 0a 0a 28 66 6e 20 4e	ounterpart.to.`-dotimes'...(fn.N
1860	55 4d 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 2d 64 6f 74	UM.&rest.BODY)..(defalias.'--dot
1880	69 6d 65 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 21 5c	imes.'(macro...#[385."\300\301!\
18a0	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 42 42 5c 33 30 36 5c	300\302!\303..D.\304B\305BB\306\
18c0	33 30 37 5c 33 31 30 05 06 07 45 5c 33 31 31 5c 33 31 32 06 07 5c 32 31 31 5c 33 31 33 06 5c 6e	307\310...E\311\312..\211\313.\n
18e0	44 5c 32 35 37 05 06 08 42 42 42 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22	D\257...BBBF\207".[make-symbol."
1900	6e 75 6d 22 20 22 69 22 20 6c 65 74 20 28 30 29 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74	num"."i".let.(0).(it).(ignore.it
1920	29 20 77 68 69 6c 65 20 3c 20 73 65 74 71 20 69 74 20 31 2b 5d 20 31 35 20 28 23 24 20 2e 20 35	).while.<.setq.it.1+].15.(#$...5
1940	39 35 31 29 5d 29 29 23 40 32 36 33 20 43 61 6c 6c 20 46 4e 20 4e 55 4d 20 74 69 6d 65 73 2c 20	951)]))#@263.Call.FN.NUM.times,.
1960	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 73 2e 0a 46 4e 20	presumably.for.side.effects..FN.
1980	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 67 75 6d 65 6e 74	is.called.with.a.single.argument
19a0	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 6e 6e 69 6e 67 20	.on.successive.integers.running.
19c0	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 20 65 78 63 6c 75	from.0,.inclusive,.to.NUM,.exclu
19e0	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 20 4e 55 4d 20 69	sive...FN.is.not.called.if.NUM.i
1a00	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 69 6f 6e 27 73 20	s.less.than.1...This.function's.
1a20	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 64 6f 74 69	anaphoric.counterpart.is.`--doti
1a40	6d 65 73 27 2e 0a 0a 28 66 6e 20 4e 55 4d 20 46 4e 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	mes'...(fn.NUM.FN)..(byte-code."
1a60	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
1a80	35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 64 6f 74 69 6d 65 73 20 65	5\306#\300\207".[put.--dotimes.e
1aa0	64 65 62 75 67 2d 66 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	debug-form-spec.(form.body).func
1ac0	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 31 5d	tion-put.lisp-indent-function.1]
1ae0	20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 6f 74 69 6d 65 73 20 23 5b 35 31 34 20 22 5c	.4).(defalias.'-dotimes.#[514."\
1b00	33 30 30 5c 33 30 31 01 04 57 5c 32 30 35 15 00 5c 32 31 30 5c 32 31 31 01 54 5c 32 36 32 02 02	300\301..W\205..\210\211.T\262..
1b20	01 21 5c 32 31 30 5c 32 30 32 02 00 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 36 20 28 23 24 20	.!\210\202..\207".[0.nil].6.(#$.
1b40	2e 20 36 34 37 37 29 5d 29 23 40 31 32 38 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20	..6477)])#@128.Apply.FN.to.each.
1b60	69 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	item.in.LIST.and.return.the.list
1b80	20 6f 66 20 72 65 73 75 6c 74 73 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e	.of.results...This.function's.an
1ba0	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 6d 61 70 27 2e 0a	aphoric.counterpart.is.`--map'..
1bc0	0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	.(fn.FN.LIST)..(byte-code."\300\
1be0	33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d	301\302\303#\300\207".[function-
1c00	70 75 74 20 2d 64 6f 74 69 6d 65 73 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f	put.-dotimes.lisp-indent-functio
1c20	6e 20 31 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 20 23 5b 35 31 34 20 22 5c	n.1].4).(defalias.'-map.#[514."\
1c40	33 30 30 02 02 5c 22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 5d 20 35 20 28 23 24 20 2e 20 36 39	300..\"\207".[mapcar].5.(#$...69
1c60	39 31 29 5d 29 23 40 31 39 36 20 45 76 61 6c 20 46 4f 52 4d 20 66 6f 72 20 65 61 63 68 20 69 74	91)])#@196.Eval.FORM.for.each.it
1c80	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 6f	em.in.LIST.and.return.the.list.o
1ca0	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 20	f.results..Each.element.of.LIST.
1cc0	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 62 65 66 6f 72 65 20	in.turn.is.bound.to.`it'.before.
1ce0	65 76 61 6c 75 61 74 69 6e 67 0a 46 4f 52 4d 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61	evaluating.FORM..This.is.the.ana
1d00	70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 6d 61 70 27 2e 0a 0a 28	phoric.counterpart.to.`-map'...(
1d20	66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	fn.FORM.LIST)..(byte-code."\300\
1d40	33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d	301\302\303#\300\207".[function-
1d60	70 75 74 20 2d 6d 61 70 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20	put.-map.important-return-value.
1d80	74 5d 20 34 29 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	t].4).(defalias.'--map.'(macro..
1da0	20 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	.#[514."\300\301\302\303.F.E\207
1dc0	22 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	".[mapcar.lambda.(it).(ignore.it
1de0	29 5d 20 37 20 28 23 24 20 2e 20 37 32 37 35 29 5d 29 29 23 40 35 36 39 20 41 63 63 75 6d 75 6c	)].7.(#$...7275)]))#@569.Accumul
1e00	61 74 65 20 61 20 76 61 6c 75 65 20 62 79 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 20 61	ate.a.value.by.evaluating.FORM.a
1e20	63 72 6f 73 73 20 4c 49 53 54 2e 0a 54 68 69 73 20 6d 61 63 72 6f 20 69 73 20 6c 69 6b 65 20 60	cross.LIST..This.macro.is.like.`
1e40	2d 2d 65 61 63 68 27 20 28 77 68 69 63 68 20 73 65 65 29 2c 20 62 75 74 20 69 74 20 61 64 64 69	--each'.(which.see),.but.it.addi
1e60	74 69 6f 6e 61 6c 6c 79 0a 70 72 6f 76 69 64 65 73 20 61 6e 20 61 63 63 75 6d 75 6c 61 74 6f 72	tionally.provides.an.accumulator
1e80	20 76 61 72 69 61 62 6c 65 20 60 61 63 63 27 20 77 68 69 63 68 20 69 74 20 73 75 63 63 65 73 73	.variable.`acc'.which.it.success
1ea0	69 76 65 6c 79 0a 62 69 6e 64 73 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 65 76 61	ively.binds.to.the.result.of.eva
1ec0	6c 75 61 74 69 6e 67 20 46 4f 52 4d 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 4c 49 53	luating.FORM.for.the.current.LIS
1ee0	54 0a 65 6c 65 6d 65 6e 74 20 62 65 66 6f 72 65 20 70 72 6f 63 65 73 73 69 6e 67 20 74 68 65 20	T.element.before.processing.the.
1f00	6e 65 78 74 20 65 6c 65 6d 65 6e 74 2e 20 20 46 6f 72 20 74 68 65 20 66 69 72 73 74 0a 65 6c 65	next.element...For.the.first.ele
1f20	6d 65 6e 74 2c 20 60 61 63 63 27 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 77 69 74 68 20	ment,.`acc'.is.initialized.with.
1f40	74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 65 76 61 6c 75 61 74 69 6e 67 20 49 4e 49 54 2e 0a 54	the.result.of.evaluating.INIT..T
1f60	68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67	he.return.value.is.the.resulting
1f80	20 76 61 6c 75 65 20 6f 66 20 60 61 63 63 27 2e 20 20 49 66 20 4c 49 53 54 20 69 73 0a 65 6d 70	.value.of.`acc'...If.LIST.is.emp
1fa0	74 79 2c 20 46 4f 52 4d 20 69 73 20 6e 6f 74 20 65 76 61 6c 75 61 74 65 64 2c 20 61 6e 64 20 74	ty,.FORM.is.not.evaluated,.and.t
1fc0	68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 74 68 65 20 72 65 73 75 6c 74 0a 6f 66	he.return.value.is.the.result.of
1fe0	20 49 4e 49 54 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	.INIT..This.is.the.anaphoric.cou
2000	6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 2e 0a 0a 28 66 6e	nterpart.to.`-reduce-from'...(fn
2020	20 46 4f 52 4d 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 6d 61 70 20 27 65	.FORM.INIT.LIST)..(put.'--map.'e
2040	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)
2060	29 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
2080	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
20a0	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.--
20c0	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 36 37 33 29 5d	each.setq.(acc)].10.(#$...7673)]
20e0	29 29 23 40 33 37 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	))#@373.Reduce.the.function.FN.a
2100	63 72 6f 73 73 20 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	cross.LIST,.starting.with.INIT..
2120	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 67 20 46 4e	Return.the.result.of.applying.FN
2140	20 74 6f 20 49 4e 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	.to.INIT.and.the.first.element.o
2160	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
2180	20 72 65 73 75 6c 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	.result.and.the.second.element,.
21a0	65 74 63 2e 20 20 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	etc...If.LIST.is.empty,.return.I
21c0	4e 49 54 20 77 69 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	NIT.without.calling.FN...This.fu
21e0	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 69	nction's.anaphoric.counterpart.i
2200	73 20 60 2d 2d 72 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	s.`--reduce-from'...For.other.fo
2220	6c 64 73 2c 20 73 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	lds,.see.also.`-reduce'.and.`-re
2240	64 75 63 65 2d 72 27 2e 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a 28 70 75	duce-r'...(fn.FN.INIT.LIST)..(pu
2260	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 6f 72 6d 2d 73 70	t.'--reduce-from.'edebug-form-sp
2280	65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20	ec.'(form.form.form)).(defalias.
22a0	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 01 5c 32 30 33	'-reduce-from.#[771."..\300.\203
22c0	19 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 06 06 04 02 5c 22 5c 32 36 32 04 5c 32 31 30	...\211A\262.\242....\"\262.\210
22e0	54 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 30 37 22 20 5b 30 5d 20 31 30 20 28 23 24 20 2e 20 38	T\202..\266.\207".[0].10.(#$...8
2300	34 32 34 29 5d 29 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	424)])#@364.Accumulate.a.value.b
2320	79 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 2e 0a 54	y.evaluating.FORM.across.LIST..T
2340	68 69 73 20 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	his.macro.is.like.`--reduce-from
2360	27 20 28 77 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	'.(which.see),.except.the.first.
2380	65 6c 65 6d 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	element.of.LIST.is.taken.as.INIT
23a0	2e 20 20 54 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	...Thus.if.LIST.contains.a.singl
23c0	65 0a 69 74 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	e.item,.it.is.returned.without.e
23e0	76 61 6c 75 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	valuating.FORM...If.LIST.is.empt
2400	79 2c 0a 46 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	y,.FORM.is.evaluated.with.`it'.a
2420	6e 64 20 60 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	nd.`acc'.bound.to.nil..This.is.t
2440	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
2460	64 75 63 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f	duce'...(fn.FORM.LIST)..(byte-co
2480	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b	de."\300\301\302\303#\300\207".[
24a0	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 69 6d 70 6f 72 74	function-put.-reduce-from.import
24c0	61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73	ant-return-value.t].4).(defalias
24e0	20 27 2d 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	.'--reduce.'(macro...#[514."\300
2500	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 44 5c	\301!\302..DC\303.\304..\305..D\
2520	33 30 36 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	306..DF\302\307\310.\nFFE\207".[
2540	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 65 74 20 69 66 20	make-symbol."list-value".let.if.
2560	2d 2d 72 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	--reduce-from.car.cdr.((acc.nil)
2580	20 28 69 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	.(it.nil)).(ignore.acc.it)].12.(
25a0	23 24 20 2e 20 38 39 37 32 29 5d 29 29 23 40 34 32 36 20 52 65 64 75 63 65 20 74 68 65 20 66 75	#$...8972)]))#@426.Reduce.the.fu
25c0	6e 63 74 69 6f 6e 20 46 4e 20 61 63 72 6f 73 73 20 4c 49 53 54 2e 0a 52 65 74 75 72 6e 20 74 68	nction.FN.across.LIST..Return.th
25e0	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 74 68 65 20 66	e.result.of.applying.FN.to.the.f
2600	69 72 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 68 65 6e 20	irst.two.elements.of.LIST,.then.
2620	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 74 20 61 6e 64 20 74	applying.FN.to.that.result.and.t
2640	68 65 20 74 68 69 72 64 20 65 6c 65 6d 65 6e 74 2c 20 65 74 63 2e 0a 49 66 20 4c 49 53 54 20 63	he.third.element,.etc..If.LIST.c
2660	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 65 74 75 72 6e	ontains.a.single.element,.return
2680	20 69 74 20 77 69 74 68 6f 75 74 20 63 61 6c 6c 69 6e 67 20 46 4e 2e 0a 49 66 20 4c 49 53 54 20	.it.without.calling.FN..If.LIST.
26a0	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 74 20 6f 66 20 63	is.empty,.return.the.result.of.c
26c0	61 6c 6c 69 6e 67 20 46 4e 20 77 69 74 68 20 6e 6f 0a 61 72 67 75 6d 65 6e 74 73 2e 0a 0a 54 68	alling.FN.with.no.arguments...Th
26e0	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 70	is.function's.anaphoric.counterp
2700	61 72 74 20 69 73 20 60 2d 2d 72 65 64 75 63 65 27 2e 0a 0a 46 6f 72 20 6f 74 68 65 72 20 66 6f	art.is.`--reduce'...For.other.fo
2720	6c 64 73 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 20 61 6e 64	lds,.see.also.`-reduce-from'.and
2740	20 60 2d 72 65 64 75 63 65 2d 72 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 70 75	.`-reduce-r'...(fn.FN.LIST)..(pu
2760	74 20 27 2d 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	t.'--reduce.'edebug-form-spec.'(
2780	66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 65 20 23	form.form)).(defalias.'-reduce.#
27a0	5b 35 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	[514."\211\203\f.\300..@.A#\207.
27c0	20 5c 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 36	.\207".[-reduce-from].6.(#$...96
27e0	35 31 29 5d 29 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	51)])#@214.Accumulate.a.value.by
2800	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.
2820	72 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	reverse..This.macro.is.like.`--r
2840	65 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	educe-from',.except.it.starts.fr
2860	6f 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	om.the.end.of.LIST..This.is.the.
2880	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 63	anaphoric.counterpart.to.`-reduc
28a0	65 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	e-r-from'...(fn.FORM.INIT.LIST).
28c0	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
28e0	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 64 75 63 65 20 69 6d	00\207".[function-put.-reduce.im
2900	70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61	portant-return-value.t].4).(defa
2920	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 72 6f 20 2e 20	lias.'--reduce-r-from.'(macro...
2940	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 5c 33 30 31 06	#[771."\300\301.DC\302.\303\301.
2960	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 65 61 63 68 2d	.EE\304BBB\207".[let.acc.--each-
2980	72 20 73 65 74 71 20 28 61 63 63 29 5d 20 31 30 20 28 23 24 20 2e 20 31 30 32 31 39 29 5d 29 29	r.setq.(acc)].10.(#$...10219)]))
29a0	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
29c0	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
29e0	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
2a00	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
2a20	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
2a40	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
2a60	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
2a80	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.
2aa0	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
2ac0	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
2ae0	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,.
2b00	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..
2b20	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-
2b40	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
2b60	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
2b80	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
2ba0	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
2bc0	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
2be0	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
2c00	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
2c20	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,.
2c40	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
2c60	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
2c80	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
2ca0	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
2cc0	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
2ce0	20 46 4e 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 65 2d 72	.FN.INIT.LIST)..(put.'--reduce-r
2d00	2d 66 72 6f 6d 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	-from.'edebug-form-spec.'(form.f
2d20	6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 65 2d 72 2d	orm.form)).(defalias.'-reduce-r-
2d40	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 31 5c 32 31 31	from.#[771.".\300.!\211G\301\211
2d60	02 5c 33 30 32 56 5c 32 30 33 24 00 02 53 5c 32 36 32 03 5c 32 31 30 01 03 03 48 5c 32 36 32 02	.\302V\203$..S\262.\210...H\262.
2d80	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 37 22 20 5b 76 63	.....\"\262.\202..\266.\207".[vc
2da0	6f 6e 63 61 74 20 6e 69 6c 20 30 5d 20 31 31 20 28 23 24 20 2e 20 31 30 36 36 32 29 5d 29 23 40	oncat.nil.0].11.(#$...10662)])#@
2dc0	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 20 65 76 61 6c 75 61	205.Accumulate.a.value.by.evalua
2de0	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 65 76 65 72 73 65	ting.FORM.across.LIST.in.reverse
2e00	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 65 20 60 2d 2d 72 65	.order..This.macro.is.like.`--re
2e20	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 72 6f 6d 20 74 68 65	duce',.except.it.starts.from.the
2e40	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 20 61 6e 61 70 68 6f	.end.of.LIST..This.is.the.anapho
2e60	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 2d 72 27 2e 0a	ric.counterpart.to.`-reduce-r'..
2e80	0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	.(fn.FORM.LIST)..(byte-code."\30
2ea0	30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f	0\301\302\303#\300\207".[functio
2ec0	6e 2d 70 75 74 20 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 69 6d 70 6f 72 74 61 6e 74 2d 72	n-put.-reduce-r-from.important-r
2ee0	65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72	eturn-value.t].4).(defalias.'--r
2f00	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 33 30 30 02 5c 33	educe-r.'(macro...#[514."\300.\3
2f20	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 73 65 5d 20 36 20	01.DE\207".[--reduce.reverse].6.
2f40	28 23 24 20 2e 20 31 31 37 31 36 29 5d 29 29 23 40 38 38 37 20 52 65 64 75 63 65 20 74 68 65 20	(#$...11716)]))#@887.Reduce.the.
2f60	66 75 6e 63 74 69 6f 6e 20 46 4e 20 61 63 72 6f 73 73 20 4c 49 53 54 20 69 6e 20 72 65 76 65 72	function.FN.across.LIST.in.rever
2f80	73 65 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	se..Return.the.result.of.applyin
2fa0	67 20 46 4e 20 74 6f 20 74 68 65 20 6c 61 73 74 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 20 6f 66	g.FN.to.the.last.two.elements.of
2fc0	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 65 20 74	.LIST,.then.applying.FN.to.the.t
2fe0	68 69 72 64 2d 74 6f 2d 6c 61 73 74 20 65 6c 65 6d 65 6e 74 20 61 6e 64 20 74 68 65 0a 70 72 65	hird-to-last.element.and.the.pre
3000	76 69 6f 75 73 20 72 65 73 75 6c 74 20 6f 66 20 46 4e 2c 20 65 74 63 2e 20 20 54 68 61 74 20 69	vious.result.of.FN,.etc...That.i
3020	73 2c 20 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 6f 66 20 46 4e 20 69 73 0a 74	s,.the.first.argument.of.FN.is.t
3040	68 65 20 63 75 72 72 65 6e 74 20 65 6c 65 6d 65 6e 74 2c 20 61 6e 64 20 69 74 73 20 73 65 63 6f	he.current.element,.and.its.seco
3060	6e 64 20 61 72 67 75 6d 65 6e 74 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 65 64 0a 76 61 6c 75	nd.argument.the.accumulated.valu
3080	65 2e 20 20 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	e...If.LIST.contains.a.single.el
30a0	65 6d 65 6e 74 2c 20 72 65 74 75 72 6e 20 69 74 20 77 69 74 68 6f 75 74 0a 63 61 6c 6c 69 6e 67	ement,.return.it.without.calling
30c0	20 46 4e 2e 20 20 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	.FN...If.LIST.is.empty,.return.t
30e0	68 65 20 72 65 73 75 6c 74 20 6f 66 20 63 61 6c 6c 69 6e 67 20 46 4e 0a 77 69 74 68 20 6e 6f 20	he.result.of.calling.FN.with.no.
3100	61 72 67 75 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	arguments...This.function.is.lik
3120	65 20 60 2d 72 65 64 75 63 65 27 20 62 75 74 20 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 20 61 73	e.`-reduce'.but.the.operation.as
3140	73 6f 63 69 61 74 65 73 20 66 72 6f 6d 0a 74 68 65 20 72 69 67 68 74 20 72 61 74 68 65 72 20 74	sociates.from.the.right.rather.t
3160	68 61 6e 20 6c 65 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	han.left...In.other.words,.it.st
3180	61 72 74 73 20 66 72 6f 6d 20 74 68 65 0a 65 6e 64 20 6f 66 20 4c 49 53 54 20 61 6e 64 20 66 6c	arts.from.the.end.of.LIST.and.fl
31a0	69 70 73 20 74 68 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	ips.the.arguments.to.FN...Concep
31c0	74 75 61 6c 6c 79 2c 20 69 74 20 69 73 0a 6c 69 6b 65 20 72 65 70 6c 61 63 69 6e 67 20 74 68 65	tually,.it.is.like.replacing.the
31e0	20 63 6f 6e 73 65 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	.conses.in.LIST.with.application
3200	73 20 6f 66 20 46 4e 2c 0a 69 67 6e 6f 72 69 6e 67 20 69 74 73 20 6c 61 73 74 20 6c 69 6e 6b 2c	s.of.FN,.ignoring.its.last.link,
3220	20 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	.and.evaluating.the.resulting.ex
3240	70 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	pression...This.function's.anaph
3260	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 2d 72 27	oric.counterpart.is.`--reduce-r'
3280	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 20 60 2d 72	...For.other.folds,.see.also.`-r
32a0	65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 20 61 6e 64 20 60 2d 72 65 64 75 63 65 27 2e 0a 0a 28 66	educe-r-from'.and.`-reduce'...(f
32c0	6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 65 2d 72 20 27 65 64	n.FN.LIST)..(put.'--reduce-r.'ed
32e0	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 0a 28 64 65	ebug-form-spec.'(form.form)).(de
3300	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 5c 32 31 31 5c 32 30	falias.'-reduce-r.#[514."\211\20
3320	33 2e 00 5c 33 30 30 01 21 5c 32 31 31 5c 32 30 33 29 00 5c 32 31 31 40 01 41 5c 33 30 31 01 5c	3..\300.!\211\203).\211@.A\301.\
3340	32 30 33 26 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 06 06 01 05 5c 22 5c 32 36 32 04 5c	203&..\211A\262.\242....\"\262.\
3360	32 31 30 54 5c 32 30 32 10 00 5c 32 36 36 02 5c 32 30 37 02 5c 33 30 32 5c 32 31 31 5c 22 5c 32	210T\202..\266.\207.\302\211\"\2
3380	30 37 01 20 5c 32 30 37 22 20 5b 72 65 76 65 72 73 65 20 30 20 6e 69 6c 5d 20 31 30 20 28 23 24	07..\207".[reverse.0.nil].10.(#$
33a0	20 2e 20 31 32 31 31 37 29 5d 29 23 40 32 37 30 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f	...12117)])#@270.Return.a.list.o
33c0	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 74 69 6f 6e 73	f.FORM's.intermediate.reductions
33e0	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 73 74 20 6f 66	.across.LIST..That.is,.a.list.of
3400	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 20 74 68 65 20	.the.intermediate.values.of.the.
3420	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 2d 66 72 6f 6d 27	accumulator.when.`--reduce-from'
3440	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.
3460	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 70	same.arguments..This.is.the.anap
3480	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
34a0	73 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 28	s-from'...(fn.FORM.INIT.LIST)..(
34c0	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
34e0	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 64 75 63 65 2d 72 20 69 6d	\207".[function-put.-reduce-r.im
3500	70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61	portant-return-value.t].4).(defa
3520	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 6f 20	lias.'--reductions-from.'(macro.
3540	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 33 30	..#[771."\300\301\302\303\304\30
3560	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 65 72	5..F\306BB\307.D.FD\207".[nrever
3580	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 63 20	se.--reduce-from.cons.let.((acc.
35a0	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 20 6c	(car.acc))).(ignore.acc).(acc).l
35c0	69 73 74 5d 20 31 30 20 28 23 24 20 2e 20 31 33 32 33 33 29 5d 29 29 23 40 33 33 33 20 52 65 74	ist].10.(#$...13233)]))#@333.Ret
35e0	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.
3600	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,
3620	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
3640	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
3660	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.
3680	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
36a0	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.
36c0	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
36e0	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'
3700	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
3720	49 54 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f	IT.LIST)..(put.'--reductions-fro
3740	6d 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 20	m.'edebug-form-spec.'(form.form.
3760	66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72	form)).(defalias.'-reductions-fr
3780	6f 6d 20 23 5b 37 37 31 20 22 01 43 01 5c 33 30 30 01 5c 32 30 33 20 00 01 5c 32 31 31 41 5c 32	om.#[771.".C.\300.\203...\211A\2
37a0	36 32 03 5c 32 34 32 03 40 06 07 01 03 5c 22 5c 32 36 32 01 04 42 5c 32 36 32 04 5c 32 31 30 54	62.\242.@....\"\262..B\262.\210T
37c0	5c 32 30 32 04 00 5c 32 36 36 02 5c 32 33 37 5c 32 30 37 22 20 5b 30 5d 20 31 31 20 28 23 24 20	\202..\266.\237\207".[0].11.(#$.
37e0	2e 20 31 33 37 38 39 29 5d 29 23 40 32 35 35 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66	..13789)])#@255.Return.a.list.of
3800	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 74 69 6f 6e 73 20	.FORM's.intermediate.reductions.
3820	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 73 74 20 6f 66 20	across.LIST..That.is,.a.list.of.
3840	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
3860	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 20 28 77 68 69 63	ccumulator.when.`--reduce'.(whic
3880	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 6d 65 20 61	h.see).is.called.with.the.same.a
38a0	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 72 69 63 20	rguments..This.is.the.anaphoric.
38c0	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 27 2e 0a 0a 28	counterpart.to.`-reductions'...(
38e0	66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	fn.FORM.LIST)..(byte-code."\300\
3900	33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d	301\302\303#\300\207".[function-
3920	70 75 74 20 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 20 69 6d 70 6f 72 74 61 6e 74 2d 72	put.-reductions-from.important-r
3940	65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72	eturn-value.t].4).(defalias.'--r
3960	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 30 30 5c	eductions.'(macro...#[514."\300\
3980	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 44 5c 33	301!\302..DC\303.\304..\305..D\3
39a0	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 32 30 37	06..DF\302\307\310\311..DFFE\207
39c0	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 65 74 20	".[make-symbol."list-value".let.
39e0	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 28 28 61	if.--reductions-from.car.cdr.((a
3a00	63 63 20 6e 69 6c 29 20 28 69 74 20 6e 69 6c 29 29 20 28 69 67 6e 6f 72 65 20 61 63 63 20 69 74	cc.nil).(it.nil)).(ignore.acc.it
3a20	29 20 6c 69 73 74 5d 20 31 33 20 28 23 24 20 2e 20 31 34 33 32 30 29 5d 29 29 23 40 33 31 38 20	).list].13.(#$...14320)]))#@318.
3a40	52 65 74 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	Return.a.list.of.FN's.intermedia
3a60	74 65 20 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	te.reductions.across.LIST..That.
3a80	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 20 76	is,.a.list.of.the.intermediate.v
3aa0	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 60 2d	alues.of.the.accumulator.when.`-
3ac0	72 65 64 75 63 65 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	reduce'.(which.see).is.called.wi
3ae0	74 68 20 74 68 65 20 73 61 6d 65 20 61 72 67 75 6d 65 6e 74 73 2e 0a 0a 54 68 69 73 20 66 75 6e	th.the.same.arguments...This.fun
3b00	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 69 73	ction's.anaphoric.counterpart.is
3b20	20 60 2d 2d 72 65 64 75 63 74 69 6f 6e 73 27 2e 0a 0a 46 6f 72 20 6f 74 68 65 72 20 66 6f 6c 64	.`--reductions'...For.other.fold
3b40	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 20 61 6e 64 20 60 2d	s,.see.also.`-reductions'.and.`-
3b60	72 65 64 75 63 74 69 6f 6e 73 2d 72 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 70	reductions-r'...(fn.FN.LIST)..(p
3b80	75 74 20 27 2d 2d 72 65 64 75 63 74 69 6f 6e 73 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70	ut.'--reductions.'edebug-form-sp
3ba0	65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64	ec.'(form.form)).(defalias.'-red
3bc0	75 63 74 69 6f 6e 73 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 2a 00 5c 32 31 31 40 43 01	uctions.#[514."\211\203*.\211@C.
3be0	41 5c 33 30 30 01 5c 32 30 33 26 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 03 40 06 06 01	A\300.\203&..\211A\262.\242.@...
3c00	03 5c 22 5c 32 36 32 01 04 42 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 5c 6e 00 5c 32 36 36 02	.\"\262..B\262.\210T\202\n.\266.
3c20	5c 32 33 37 5c 32 30 37 01 20 43 5c 32 30 37 22 20 5b 30 5d 20 31 30 20 28 23 24 20 2e 20 31 34	\237\207..C\207".[0].10.(#$...14
3c40	39 31 32 29 5d 29 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	912)])#@283.Return.a.list.of.FOR
3c60	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 63 72 6f	M's.intermediate.reductions.acro
3c80	73 73 20 72 65 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	ss.reversed.LIST..That.is,.a.lis
3ca0	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 20	t.of.the.intermediate.values.of.
3cc0	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 2d 72	the.accumulator.when.`--reduce-r
3ce0	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 77 69 74	-from'.(which.see).is.called.wit
3d00	68 20 74 68 65 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	h.the.same.arguments..This.is.th
3d20	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 64	e.anaphoric.counterpart.to.`-red
3d40	75 63 74 69 6f 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	uctions-r-from'...(fn.FORM.INIT.
3d60	4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	LIST)..(byte-code."\300\301\302\
3d80	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 64	303#\300\207".[function-put.-red
3da0	75 63 74 69 6f 6e 73 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74	uctions.important-return-value.t
3dc0	5d 20 34 29 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	].4).(defalias.'--reductions-r-f
3de0	72 6f 6d 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	rom.'(macro...#[771."\300\301\30
3e00	32 5c 33 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	2\303\304..F\305BB\306.D.F\207".
3e20	5b 2d 2d 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	[--reduce-r-from.cons.let.((acc.
3e40	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 20 6c	(car.acc))).(ignore.acc).(acc).l
3e60	69 73 74 5d 20 39 20 28 23 24 20 2e 20 31 35 34 33 36 29 5d 29 29 23 40 33 34 36 20 52 65 74 75	ist].9.(#$...15436)]))#@346.Retu
3e80	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 72	rn.a.list.of.FN's.intermediate.r
3ea0	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 0a	eductions.across.reversed.LIST..
3ec0	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 69	That.is,.a.list.of.the.intermedi
3ee0	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 68	ate.values.of.the.accumulator.wh
3f00	65 6e 20 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	en.`-reduce-r-from'.(which.see).
3f20	69 73 20 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	is.called.with.the.same.argument
3f40	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 6f 72 69 63 20 63 6f	s...This.function's.anaphoric.co
3f60	75 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 2d 72 2d 66 72 6f	unterpart.is.`--reductions-r-fro
3f80	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 20 60	m'...For.other.folds,.see.also.`
3fa0	2d 72 65 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	-reductions'.and.`-reductions-r'
3fc0	2e 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 72 65	...(fn.FN.INIT.LIST)..(put.'--re
3fe0	64 75 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	ductions-r-from.'edebug-form-spe
4000	63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27	c.'(form.form.form)).(defalias.'
4020	2d 72 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	-reductions-r-from.#[771.".C\300
4040	02 21 5c 32 31 31 47 5c 33 30 31 5c 32 31 31 02 5c 33 30 32 56 5c 32 30 33 2a 00 02 53 5c 32 36	.!\211G\301\211.\302V\203*..S\26
4060	32 03 5c 32 31 30 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	2.\210...H\262..@....\"\262..B\2
4080	36 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	62.\202..\266.\207".[vconcat.nil
40a0	20 30 5d 20 31 32 20 28 23 24 20 2e 20 31 35 39 39 36 29 5d 29 23 40 32 36 39 20 52 65 74 75 72	.0].12.(#$...15996)])#@269.Retur
40c0	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.
40e0	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.
4100	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
4120	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
4140	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
4160	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.
4180	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
41a0	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
41c0	20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	.LIST)..(byte-code."\300\301\302
41e0	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 72 65	\303#\300\207".[function-put.-re
4200	64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e	ductions-r-from.important-return
4220	2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 74	-value.t].4).(defalias.'--reduct
4240	69 6f 6e 73 2d 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	ions-r.'(macro...#[514."\300\301
4260	21 5c 33 30 32 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	!\302.\303.DDC\304.\305\306\302\
4280	33 30 37 5c 33 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	307\310..F\311BB\312\313..DD\314
42a0	06 08 44 46 5c 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	..DF\302\315\316\312..DFFE\207".
42c0	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 65 74 20 72 65	[make-symbol."list-value".let.re
42e0	76 65 72 73 65 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	verse.if.--reduce-from.cons.((ac
4300	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)
4320	20 6c 69 73 74 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	.list.car.cdr.((acc.nil).(it.nil
4340	29 29 20 28 69 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 36 35	)).(ignore.acc.it)].13.(#$...165
4360	37 31 29 5d 29 29 23 40 33 33 36 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 46 4e 27	71)]))#@336.Return.a.list.of.FN'
4380	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 63 72 6f 73 73	s.intermediate.reductions.across
43a0	20 72 65 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	.reversed.LIST..That.is,.a.list.
43c0	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 20 74 68	of.the.intermediate.values.of.th
43e0	65 20 61 63 63 75 6d 75 6c 61 74 6f 72 0a 77 68 65 6e 20 60 2d 72 65 64 75 63 65 2d 72 27 20 28	e.accumulator.when.`-reduce-r'.(
4400	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
4420	6d 65 20 61 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	me.arguments...This.function's.a
4440	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 65 64 75 63	naphoric.counterpart.is.`--reduc
4460	74 69 6f 6e 73 2d 72 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	tions-r'...For.other.folds,.see.
4480	61 6c 73 6f 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 27 20 61 6e 64 0a 60 2d	also.`-reductions-r-from'.and.`-
44a0	72 65 64 75 63 74 69 6f 6e 73 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 70 75 74	reductions'...(fn.FN.LIST)..(put
44c0	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 6f 72 6d 2d 73 70	.'--reductions-r.'edebug-form-sp
44e0	65 63 20 27 28 66 6f 72 6d 20 6c 69 73 74 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64	ec.'(form.list)).(defalias.'-red
4500	75 63 74 69 6f 6e 73 2d 72 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 36 00 5c 33 30 30 01	uctions-r.#[514."\211\2036.\300.
4520	21 5c 32 31 31 5c 32 30 33 30 00 5c 32 31 31 40 43 01 41 5c 33 30 31 01 5c 32 30 33 2d 00 01 5c	!\211\2030.\211@C.A\301.\203-..\
4540	32 31 31 41 5c 32 36 32 03 5c 32 34 32 03 40 06 07 02 02 5c 22 5c 32 36 32 01 04 42 5c 32 36 32	211A\262.\242.@....\"\262..B\262
4560	04 5c 32 31 30 54 5c 32 30 32 11 00 5c 32 36 36 02 5c 32 30 37 02 5c 33 30 32 5c 32 31 31 5c 22	.\210T\202..\266.\207.\302\211\"
4580	43 5c 32 30 37 01 20 43 5c 32 30 37 22 20 5b 72 65 76 65 72 73 65 20 30 20 6e 69 6c 5d 20 31 31	C\207..C\207".[reverse.0.nil].11
45a0	20 28 23 24 20 2e 20 31 37 32 36 30 29 5d 29 23 40 32 39 36 20 52 65 74 75 72 6e 20 61 20 6e 65	.(#$...17260)])#@296.Return.a.ne
45c0	77 20 6c 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	w.list.of.the.items.in.LIST.for.
45e0	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 0a 45 61 63	which.FORM.evals.to.non-nil..Eac
4600	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 20 62 6f 75	h.element.of.LIST.in.turn.is.bou
4620	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 68 69 6e 20	nd.to.`it'.and.its.index.within.
4640	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 61 6c 75 61	LIST.to.`it-index'.before.evalua
4660	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 63	ting.FORM..This.is.the.anaphoric
4680	20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 66 69 6c 74 65 72 27 2e 0a 46 6f 72 20 74	.counterpart.to.`-filter'..For.t
46a0	68 65 20 6f 70 70 6f 73 69 74 65 20 6f 70 65 72 61 74 69 6f 6e 2c 20 73 65 65 20 61 6c 73 6f 20	he.opposite.operation,.see.also.
46c0	60 2d 2d 72 65 6d 6f 76 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79	`--remove'...(fn.FORM.LIST)..(by
46e0	74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32	te-code."\300\301\302\303#\300\2
4700	30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 20	07".[function-put.-reductions-r.
4720	69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65	important-return-value.t].4).(de
4740	66 61 6c 69 61 73 20 27 2d 2d 66 69 6c 74 65 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34	falias.'--filter.'(macro...#[514
4760	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
4780	5c 33 30 36 06 08 45 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	\306..EEE\307.DF\207".[make-symb
47a0	6f 6c 20 22 72 65 73 75 6c 74 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 70 75 73 68	ol."result".let.--each.when.push
47c0	20 69 74 20 6e 72 65 76 65 72 73 65 5d 20 31 32 20 28 23 24 20 2e 20 31 37 38 34 35 29 5d 29 29	.it.nreverse].12.(#$...17845)]))
47e0	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 20 69	#@218.Return.a.new.list.of.the.i
4800	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 74 75	tems.in.LIST.for.which.PRED.retu
4820	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 2e 0a	rns.non-nil...Alias:.`-select'..
4840	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
4860	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 69 6c	erpart.is.`--filter'...For.simil
4880	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 27 20	ar.operations,.see.also.`-keep'.
48a0	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 1f 0a	and.`-remove'...(fn.PRED.LIST)..
48c0	28 70 75 74 20 27 2d 2d 66 69 6c 74 65 72 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63	(put.'--filter.'edebug-form-spec
48e0	20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6c 74 65	.'(form.form)).(defalias.'-filte
4900	72 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 1d 00 01 5c 32 31 31 41 5c	r.#[514."\300.\301.\203...\211A\
4920	32 36 32 03 5c 32 34 32 05 01 21 5c 32 30 33 18 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30	262.\242..!\203..\211.B\262.\210
4940	54 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 20	T\202..\266.\237\207".[nil.0].8.
4960	28 23 24 20 2e 20 31 38 34 30 36 29 5d 29 23 40 32 39 32 20 52 65 74 75 72 6e 20 61 20 6e 65 77	(#$...18406)])#@292.Return.a.new
4980	20 6c 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	.list.of.the.items.in.LIST.for.w
49a0	68 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20 6e 69 6c 2e 0a 45 61 63 68 20 65 6c 65	hich.FORM.evals.to.nil..Each.ele
49c0	6d 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	ment.of.LIST.in.turn.is.bound.to
49e0	20 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	.`it'.and.its.index.within.LIST.
4a00	74 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	to.`it-index'.before.evaluating.
4a20	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 6e	FORM..This.is.the.anaphoric.coun
4a40	74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 6d 6f 76 65 27 2e 0a 46 6f 72 20 74 68 65 20 6f 70	terpart.to.`-remove'..For.the.op
4a60	70 6f 73 69 74 65 20 6f 70 65 72 61 74 69 6f 6e 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 2d 66 69	posite.operation,.see.also.`--fi
4a80	6c 74 65 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f	lter'...(fn.FORM.LIST)..(byte-co
4aa0	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30	de."\300\301\302\303#\304\305\30
4ac0	31 5c 22 5c 32 31 30 5c 33 30 34 5c 33 30 36 5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63	1\"\210\304\306\307\"\207".[func
4ae0	74 69 6f 6e 2d 70 75 74 20 2d 66 69 6c 74 65 72 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72	tion-put.-filter.important-retur
4b00	6e 2d 76 61 6c 75 65 20 74 20 64 65 66 61 6c 69 61 73 20 2d 73 65 6c 65 63 74 20 2d 2d 73 65 6c	n-value.t.defalias.-select.--sel
4b20	65 63 74 20 2d 2d 66 69 6c 74 65 72 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65	ect.--filter].4).(defalias.'--re
4b40	6d 6f 76 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 03 44	move.'(macro...#[514."\300\301.D
4b60	02 45 5c 32 30 37 22 20 5b 2d 2d 66 69 6c 74 65 72 20 6e 6f 74 5d 20 35 20 28 23 24 20 2e 20 31	.E\207".[--filter.not].5.(#$...1
4b80	38 38 30 34 29 5d 29 29 23 40 32 31 34 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20	8804)]))#@214.Return.a.new.list.
4ba0	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 63 68 20 50	of.the.items.in.LIST.for.which.P
4bc0	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 65 6a 65 63	RED.returns.nil...Alias:.`-rejec
4be0	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 69 63 20 63	t'...This.function's.anaphoric.c
4c00	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 6f 72 20 73	ounterpart.is.`--remove'...For.s
4c20	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 60 2d 6b 65	imilar.operations,.see.also.`-ke
4c40	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 20 4c 49 53	ep'.and.`-filter'...(fn.PRED.LIS
4c60	54 29 1f 0a 28 70 75 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	T)..(put.'--remove.'edebug-form-
4c80	73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72	spec.'(form.form)).(defalias.'-r
4ca0	65 6d 6f 76 65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 1d 00 01 5c 32	emove.#[514."\300.\301.\203...\2
4cc0	31 31 41 5c 32 36 32 03 5c 32 34 32 05 01 21 5c 32 30 34 18 00 5c 32 31 31 04 42 5c 32 36 32 04	11A\262.\242..!\204..\211.B\262.
4ce0	5c 32 31 30 54 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30	\210T\202..\266.\237\207".[nil.0
4d00	5d 20 38 20 28 23 24 20 2e 20 31 39 33 34 32 29 5d 29 23 40 34 34 36 20 52 65 6d 6f 76 65 20 74	].8.(#$...19342)])#@446.Remove.t
4d20	68 65 20 66 69 72 73 74 20 69 74 65 6d 20 66 72 6f 6d 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63	he.first.item.from.LIST.for.whic
4d40	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 45 61 63 68 20 65 6c	h.FORM.evals.to.non-nil..Each.el
4d60	65 6d 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	ement.of.LIST.in.turn.is.bound.t
4d80	6f 20 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	o.`it'.and.its.index.within.LIST
4da0	20 74 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	.to.`it-index'.before.evaluating
4dc0	20 46 4f 52 4d 2e 20 20 54 68 69 73 20 69 73 20 61 0a 6e 6f 6e 2d 64 65 73 74 72 75 63 74 69 76	.FORM...This.is.a.non-destructiv
4de0	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 6f 6e 74 20	e.operation,.but.only.the.front.
4e00	6f 66 20 4c 49 53 54 20 6c 65 61 64 69 6e 67 20 75 70 0a 74 6f 20 74 68 65 20 72 65 6d 6f 76 65	of.LIST.leading.up.to.the.remove
4e20	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 73 20 4c 49	d.item.is.a.copy;.the.rest.is.LI
4e40	53 54 27 73 20 6f 72 69 67 69 6e 61 6c 20 74 61 69 6c 2e 0a 49 66 20 6e 6f 20 69 74 65 6d 20 69	ST's.original.tail..If.no.item.i
4e60	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 69 73 20 61 20	s.removed,.then.the.result.is.a.
4e80	63 6f 6d 70 6c 65 74 65 20 63 6f 70 79 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68	complete.copy..This.is.the.anaph
4ea0	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 66 69 72	oric.counterpart.to.`-remove-fir
4ec0	73 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65	st'...(fn.FORM.LIST)..(byte-code
4ee0	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c	."\300\301\302\303#\304\305\301\
4f00	22 5c 32 31 30 5c 33 30 34 5c 33 30 36 5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69	"\210\304\306\307\"\207".[functi
4f20	6f 6e 2d 70 75 74 20 2d 72 65 6d 6f 76 65 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d	on-put.-remove.important-return-
4f40	76 61 6c 75 65 20 74 20 64 65 66 61 6c 69 61 73 20 2d 72 65 6a 65 63 74 20 2d 2d 72 65 6a 65 63	value.t.defalias.-reject.--rejec
4f60	74 20 2d 2d 72 65 6d 6f 76 65 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 6d 6f	t.--remove].4).(defalias.'--remo
4f80	76 65 2d 66 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	ve-first.'(macro...#[514."\300\3
4fa0	30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 33 01 04 44 03 44 5c 33 30 34 03 5c 33 30 35 06 08	01!\300\302!\303..D.D\304.\305..
4fc0	44 5c 33 30 36 5c 33 30 37 06 07 44 06 08 45 46 5c 33 31 30 04 5c 33 31 31 5c 33 31 32 06 08 44	D\306\307..D..EF\310.\311\312..D
4fe0	5c 33 31 33 06 08 44 45 5c 33 31 32 06 08 44 46 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d	\313..DE\312..DFF\207".[make-sym
5000	62 6f 6c 20 22 66 72 6f 6e 74 22 20 22 74 61 69 6c 22 20 6c 65 74 20 2d 2d 65 61 63 68 2d 77 68	bol."front"."tail".let.--each-wh
5020	69 6c 65 20 6e 6f 74 20 70 75 73 68 20 70 6f 70 20 69 66 20 6e 63 6f 6e 63 20 6e 72 65 76 65 72	ile.not.push.pop.if.nconc.nrever
5040	73 65 20 63 64 72 5d 20 31 33 20 28 23 24 20 2e 20 31 39 37 33 36 29 5d 29 29 23 40 34 32 36 20	se.cdr].13.(#$...19736)]))#@426.
5060	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 6d 20 4c 49 53 54 20	Remove.the.first.item.from.LIST.
5080	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 2e 0a	for.which.PRED.returns.non-nil..
50a0	54 68 69 73 20 69 73 20 61 20 6e 6f 6e 2d 64 65 73 74 72 75 63 74 69 76 65 20 6f 70 65 72 61 74	This.is.a.non-destructive.operat
50c0	69 6f 6e 2c 20 62 75 74 20 6f 6e 6c 79 20 74 68 65 20 66 72 6f 6e 74 20 6f 66 20 4c 49 53 54 0a	ion,.but.only.the.front.of.LIST.
50e0	6c 65 61 64 69 6e 67 20 75 70 20 74 6f 20 74 68 65 20 72 65 6d 6f 76 65 64 20 69 74 65 6d 20 69	leading.up.to.the.removed.item.i
5100	73 20 61 20 63 6f 70 79 3b 20 74 68 65 20 72 65 73 74 20 69 73 20 4c 49 53 54 27 73 0a 6f 72 69	s.a.copy;.the.rest.is.LIST's.ori
5120	67 69 6e 61 6c 20 74 61 69 6c 2e 20 20 49 66 20 6e 6f 20 69 74 65 6d 20 69 73 20 72 65 6d 6f 76	ginal.tail...If.no.item.is.remov
5140	65 64 2c 20 74 68 65 6e 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 0a 63 6f 6d 70 6c 65 74	ed,.then.the.result.is.a.complet
5160	65 20 63 6f 70 79 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65 6a 65 63 74 2d 66 69 72 73 74 27 2e	e.copy...Alias:.`-reject-first'.
5180	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 6e	..This.function's.anaphoric.coun
51a0	74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 27 2e 0a 0a 53 65	terpart.is.`--remove-first'...Se
51c0	65 20 61 6c 73 6f 20 60 2d 6d 61 70 2d 66 69 72 73 74 27 2c 20 60 2d 72 65 6d 6f 76 65 2d 69 74	e.also.`-map-first',.`-remove-it
51e0	65 6d 27 2c 20 61 6e 64 20 60 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20 50 52	em',.and.`-remove-last'...(fn.PR
5200	45 44 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 27	ED.LIST)..(put.'--remove-first.'
5220	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 0a 28	edebug-form-spec.'(form.form)).(
5240	64 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 23 5b 35 31 34 20 22 5c	defalias.'-remove-first.#[514."\
5260	32 31 31 5c 33 30 30 02 5c 33 30 31 5c 33 30 30 02 5c 32 30 33 28 00 5c 32 31 30 01 5c 32 34 32	211\300.\301\300.\203(.\210.\242
5280	06 06 01 21 5c 32 30 34 28 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 04 42 5c 32 36 32 04	...!\204(..\211A\262.\242.B\262.
52a0	01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 05 00 5c 32 36 36 03 01 5c 32 30 33 34 00	.T\262..A\262.\202..\266..\2034.
52c0	5c 32 31 31 5c 32 33 37 02 41 5c 32 34 34 5c 32 30 37 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c	\211\237.A\244\207\237\207".[nil
52e0	20 30 5d 20 39 20 28 23 24 20 2e 20 32 30 35 37 36 29 5d 29 23 40 32 37 39 20 52 65 6d 6f 76 65	.0].9.(#$...20576)])#@279.Remove
5300	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 66 6f 72 20 77 68 69	.the.last.item.from.LIST.for.whi
5320	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 45 61 63 68 20 65	ch.FORM.evals.to.non-nil..Each.e
5340	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 20 62 6f 75 6e 64 20	lement.of.LIST.in.turn.is.bound.
5360	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 0a 46 4f 52 4d 2e 20	to.`it'.before.evaluating.FORM..
5380	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 4c 49 53 54 20 72 65	.The.result.is.a.copy.of.LIST.re
53a0	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 65 6d 65 6e 74 20 69	gardless.of.whether.an.element.i
53c0	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 61 70 68 6f 72 69 63	s.removed..This.is.the.anaphoric
53e0	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 6c 61 73 74 27 2e 0a	.counterpart.to.`-remove-last'..
5400	0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	.(fn.FORM.LIST)..(byte-code."\30
5420	30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 31 30	0\301\302\303#\304\305\301\"\210
5440	5c 33 30 34 5c 33 30 36 5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75	\304\306\307\"\207".[function-pu
5460	74 20 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e	t.-remove-first.important-return
5480	2d 76 61 6c 75 65 20 74 20 64 65 66 61 6c 69 61 73 20 2d 72 65 6a 65 63 74 2d 66 69 72 73 74 20	-value.t.defalias.-reject-first.
54a0	2d 2d 72 65 6a 65 63 74 2d 66 69 72 73 74 20 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 5d 20 34	--reject-first.--remove-first].4
54c0	29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 27 28 6d 61 63	).(defalias.'--remove-last.'(mac
54e0	72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 5c 33 30 32 04 44 45 44 5c 32 30	ro...#[514."\300\301.\302.DED\20
5500	37 22 20 5b 6e 72 65 76 65 72 73 65 20 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 72 65 76 65	7".[nreverse.--remove-first.reve
5520	72 73 65 5d 20 37 20 28 23 24 20 2e 20 32 31 32 34 32 29 5d 29 29 23 40 32 39 37 20 52 65 6d 6f	rse].7.(#$...21242)]))#@297.Remo
5540	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 66 6f 72 20 77	ve.the.last.item.from.LIST.for.w
5560	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 2e 0a 54 68 65 20 72	hich.PRED.returns.non-nil..The.r
5580	65 73 75 6c 74 20 69 73 20 61 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 20 72 65 67 61 72 64 6c 65	esult.is.a.copy.of.LIST.regardle
55a0	73 73 20 6f 66 20 77 68 65 74 68 65 72 20 61 6e 20 65 6c 65 6d 65 6e 74 20 69 73 0a 72 65 6d 6f	ss.of.whether.an.element.is.remo
55c0	76 65 64 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65 6a 65 63 74 2d 6c 61 73 74 27 2e 0a 0a 54 68	ved...Alias:.`-reject-last'...Th
55e0	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 70	is.function's.anaphoric.counterp
5600	61 72 74 20 69 73 20 60 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 27 2e 0a 0a 53 65 65 20 61 6c 73	art.is.`--remove-last'...See.als
5620	6f 20 60 2d 6d 61 70 2d 6c 61 73 74 27 2c 20 60 2d 72 65 6d 6f 76 65 2d 69 74 65 6d 27 2c 20 61	o.`-map-last',.`-remove-item',.a
5640	6e 64 20 60 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49	nd.`-remove-first'...(fn.PRED.LI
5660	53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 27 65 64 65 62 75 67	ST)..(put.'--remove-last.'edebug
5680	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 28 64 65 66 61 6c 69	-form-spec.'(form.form)).(defali
56a0	61 73 20 27 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 21 5c 33	as.'-remove-last.#[514."\300.!\3
56c0	30 31 01 5c 33 30 32 5c 33 30 31 02 5c 32 30 33 2a 00 5c 32 31 30 01 5c 32 34 32 06 06 01 21 5c	01.\302\301.\203*.\210.\242...!\
56e0	32 30 34 2a 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 04 42 5c 32 36 32 04 01 54 5c 32 36	204*..\211A\262.\242.B\262..T\26
5700	32 02 02 41 5c 32 36 32 03 5c 32 30 32 07 00 5c 32 36 36 03 01 5c 32 30 33 38 00 5c 32 31 31 5c	2..A\262.\202..\266..\2038.\211\
5720	32 33 37 02 41 5c 32 34 34 5c 32 30 32 3a 00 5c 32 31 31 5c 32 33 37 5c 32 33 37 5c 32 30 37 22	237.A\244\202:.\211\237\237\207"
5740	20 5b 72 65 76 65 72 73 65 20 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 32 31 38 32 30 29 5d	.[reverse.nil.0].9.(#$...21820)]
5760	29 23 40 31 31 34 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	)#@114.Return.a.copy.of.LIST.wit
5780	68 20 61 6c 6c 20 6f 63 63 75 72 72 65 6e 63 65 73 20 6f 66 20 49 54 45 4d 20 72 65 6d 6f 76 65	h.all.occurrences.of.ITEM.remove
57a0	64 2e 0a 54 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 60	d..The.comparison.is.done.with.`
57c0	65 71 75 61 6c 27 2e 0a 0a 28 66 6e 20 49 54 45 4d 20 4c 49 53 54 29 1f 23 40 33 34 32 20 45 76	equal'...(fn.ITEM.LIST).#@342.Ev
57e0	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 20 61 6e	al.FORM.for.each.item.in.LIST.an
5800	64 20 72 65 74 75 72 6e 20 74 68 65 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 73 2e 0a 4c 69	d.return.the.non-nil.results..Li
5820	6b 65 20 60 2d 2d 66 69 6c 74 65 72 27 2c 20 62 75 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 6e	ke.`--filter',.but.returns.the.n
5840	6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 73 20 6f 66 20 46 4f 52 4d 20 69 6e 73 74 65 61 64 0a 6f	on-nil.results.of.FORM.instead.o
5860	66 20 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 20 6f 66 20	f.the.corresponding.elements.of.
5880	4c 49 53 54 2e 20 20 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 0a 74	LIST...Each.element.of.LIST.in.t
58a0	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
58c0	65 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 0a 62 65 66	ex.within.LIST.to.`it-index'.bef
58e0	6f 72 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	ore.evaluating.FORM..This.is.the
5900	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 6b 65 65 70	.anaphoric.counterpart.to.`-keep
5920	27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	'...(fn.FORM.LIST)..(byte-code."
5940	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c	\300\301\302\303#\304\305\301\"\
5960	32 31 30 5c 33 30 34 5c 33 30 36 5c 33 30 37 5c 22 5c 32 31 30 5c 33 30 34 5c 33 31 30 5c 33 31	210\304\306\307\"\210\304\310\31
5980	31 5c 33 31 32 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 6d 6f 76	1\312#\207".[function-put.-remov
59a0	65 2d 6c 61 73 74 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 20	e-last.important-return-value.t.
59c0	64 65 66 61 6c 69 61 73 20 2d 72 65 6a 65 63 74 2d 6c 61 73 74 20 2d 2d 72 65 6a 65 63 74 2d 6c	defalias.-reject-last.--reject-l
59e0	61 73 74 20 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 2d 72 65 6d 6f 76 65 2d 69 74 65 6d 20 72	ast.--remove-last.-remove-item.r
5a00	65 6d 6f 76 65 20 22 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	emove."Return.a.copy.of.LIST.wit
5a20	68 20 61 6c 6c 20 6f 63 63 75 72 72 65 6e 63 65 73 20 6f 66 20 49 54 45 4d 20 72 65 6d 6f 76 65	h.all.occurrences.of.ITEM.remove
5a40	64 2e 5c 6e 54 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20	d.\nThe.comparison.is.done.with.
5a60	60 65 71 75 61 6c 27 2e 5c 6e 5c 6e 28 66 6e 20 49 54 45 4d 20 4c 49 53 54 29 22 5d 20 35 29 0a	`equal'.\n\n(fn.ITEM.LIST)"].5).
5a80	28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6b 65 65 70 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31	(defalias.'--keep.'(macro...#[51
5aa0	34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 33 02 43 5c 33 30 34 05	4."\300\301!\300\302!\303.C\304.
5ac0	5c 33 30 33 05 06 09 44 43 5c 33 30 35 06 07 5c 33 30 36 06 09 06 0b 45 45 45 45 5c 33 30 37 05	\303...DC\305..\306....EEEE\307.
5ae0	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 22 6d	DF\207".[make-symbol."result"."m
5b00	61 70 70 65 64 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 70 75 73 68 20 6e 72 65 76	apped".let.--each.when.push.nrev
5b20	65 72 73 65 5d 20 31 35 20 28 23 24 20 2e 20 32 32 34 39 34 29 5d 29 29 23 40 32 33 34 20 52 65	erse].15.(#$...22494)]))#@234.Re
5b40	74 75 72 6e 20 61 20 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	turn.a.new.list.of.the.non-nil.r
5b60	65 73 75 6c 74 73 20 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	esults.of.applying.FN.to.each.it
5b80	65 6d 20 69 6e 20 4c 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	em.in.LIST..Like.`-filter',.but.
5ba0	72 65 74 75 72 6e 73 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	returns.the.non-nil.results.of.F
5bc0	4e 20 69 6e 73 74 65 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	N.instead.of.the.corresponding.e
5be0	6c 65 6d 65 6e 74 73 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	lements.of.LIST...Its.anaphoric.
5c00	63 6f 75 6e 74 65 72 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	counterpart.is.`--keep'...(fn.FN
5c20	20 4c 49 53 54 29 1f 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	.LIST)..(put.'--keep.'edebug-for
5c40	6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27	m-spec.'(form.form)).(defalias.'
5c60	2d 6b 65 65 70 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 1f 00 01 5c 32	-keep.#[514."\300.\301.\203...\2
5c80	31 31 41 5c 32 36 32 03 5c 32 34 32 05 01 21 5c 32 31 31 5c 32 30 33 19 00 5c 32 31 31 05 42 5c	11A\262.\242..!\211\203..\211.B\
5ca0	32 36 32 05 5c 32 36 36 02 54 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 33 37 5c 32 30 37 22 20 5b	262.\266.T\202..\266.\237\207".[
5cc0	6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 32 33 33 35 38 29 5d 29 23 40 36 32 20 52 65 74 75	nil.0].9.(#$...23358)])#@62.Retu
5ce0	72 6e 20 61 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 20 77 69 74 68 20 61 6c 6c 20 6e 69 6c 20 69	rn.a.copy.of.LIST.with.all.nil.i
5d00	74 65 6d 73 20 72 65 6d 6f 76 65 64 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d	tems.removed...(fn.LIST)..(byte-
5d20	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22	code."\300\301\302\303#\300\207"
5d40	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6b 65 65 70 20 69 6d 70 6f 72 74 61 6e 74 2d 72	.[function-put.-keep.important-r
5d60	65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6e 6f	eturn-value.t].4).(defalias.'-no
5d80	6e 2d 6e 69 6c 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 1b 00 01 5c 32	n-nil.#[257."\300.\301.\203...\2
5da0	31 31 41 5c 32 36 32 03 5c 32 34 32 5c 32 31 31 5c 32 30 33 16 00 5c 32 31 31 04 42 5c 32 36 32	11A\262.\242\211\203..\211.B\262
5dc0	04 5c 32 31 30 54 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20	.\210T\202..\266.\237\207".[nil.
5de0	30 5d 20 37 20 28 23 24 20 2e 20 32 33 37 37 32 29 5d 29 23 40 33 32 31 20 45 76 61 6c 20 46 4f	0].7.(#$...23772)])#@321.Eval.FO
5e00	52 4d 20 66 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	RM.for.each.item.in.LIST.and.ret
5e20	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 45 61 63 68 20 65 6c	urn.the.list.of.results..Each.el
5e40	65 6d 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	ement.of.LIST.in.turn.is.bound.t
5e60	6f 20 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	o.`it'.and.its.index.within.LIST
5e80	20 74 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	.to.`it-index'.before.evaluating
5ea0	20 46 4f 52 4d 2e 20 20 54 68 69 73 20 69 73 20 6c 69 6b 65 0a 60 2d 2d 6d 61 70 27 2c 20 62 75	.FORM...This.is.like.`--map',.bu
5ec0	74 20 61 64 64 69 74 69 6f 6e 61 6c 6c 79 20 6d 61 6b 65 73 20 60 69 74 2d 69 6e 64 65 78 27 20	t.additionally.makes.`it-index'.
5ee0	61 76 61 69 6c 61 62 6c 65 20 74 6f 20 46 4f 52 4d 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20	available.to.FORM...This.is.the.
5f00	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 6d 61 70 2d 69	anaphoric.counterpart.to.`-map-i
5f20	6e 64 65 78 65 64 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d	ndexed'...(fn.FORM.LIST)..(byte-
5f40	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22	code."\300\301\302\303#\300\207"
5f60	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6e 6f 6e 2d 6e 69 6c 20 73 69 64 65 2d 65 66 66	.[function-put.-non-nil.side-eff
5f80	65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 2d	ect-free.t].4).(defalias.'--map-
5fa0	69 6e 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	indexed.'(macro...#[514."\300\30
5fc0	31 21 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	1!\302.C\303.\304....EE\305.DF\2
5fe0	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.--
6000	65 61 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 34 30	each.push.nreverse].10.(#$...240
6020	35 37 29 5d 29 29 23 40 33 32 32 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 69 6e 64	57)]))#@322.Apply.FN.to.each.ind
6040	65 78 20 61 6e 64 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 74	ex.and.item.in.LIST.and.return.t
6060	68 65 20 6c 69 73 74 20 6f 66 20 72 65 73 75 6c 74 73 2e 0a 54 68 69 73 20 69 73 20 6c 69 6b 65	he.list.of.results..This.is.like
6080	20 60 2d 6d 61 70 27 2c 20 62 75 74 20 46 4e 20 74 61 6b 65 73 20 74 77 6f 20 61 72 67 75 6d 65	.`-map',.but.FN.takes.two.argume
60a0	6e 74 73 3a 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 0a 63 75 72 72 65 6e 74 20 65 6c	nts:.the.index.of.the.current.el
60c0	65 6d 65 6e 74 20 77 69 74 68 69 6e 20 4c 49 53 54 2c 20 61 6e 64 20 74 68 65 20 65 6c 65 6d 65	ement.within.LIST,.and.the.eleme
60e0	6e 74 20 69 74 73 65 6c 66 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70	nt.itself...This.function's.anap
6100	68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 6d 61 70 2d 69 6e 64 65	horic.counterpart.is.`--map-inde
6120	78 65 64 27 2e 0a 0a 46 6f 72 20 61 20 73 69 64 65 2d 65 66 66 65 63 74 69 6e 67 20 76 61 72 69	xed'...For.a.side-effecting.vari
6140	61 6e 74 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 27 2e 0a 0a	ant,.see.also.`-each-indexed'...
6160	28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 6d 61 70 2d 69 6e 64 65 78 65	(fn.FN.LIST)..(put.'--map-indexe
6180	64 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	d.'edebug-form-spec.'(form.form)
61a0	29 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	).(defalias.'-map-indexed.#[514.
61c0	22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 1a 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32	"\300.\301.\203...\211A\262.\242
61e0	05 02 02 5c 22 04 42 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 33 37	...\".B\262.\210T\202..\266.\237
6200	5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 32 34 36 32 30 29 5d 29 23 40	\207".[nil.0].9.(#$...24620)])#@
6220	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 70 2d 77 68 65 6e 27	52.Anaphoric.form.of.`-map-when'
6240	2e 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64	...(fn.PRED.REP.LIST)..(byte-cod
6260	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
6280	75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6d 61 70 2d 69 6e 64 65 78 65 64 20 69 6d 70 6f 72 74 61	unction-put.-map-indexed.importa
62a0	6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20	nt-return-value.t].4).(defalias.
62c0	27 2d 2d 6d 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	'--map-when.'(macro...#[771."\30
62e0	30 5c 33 30 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	0\301!\302.C\303.\304\305....\30
6300	36 42 42 42 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	6BBB..EE\307.DF\207".[make-symbo
6320	6c 20 22 72 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	l."result".let.--each.!cons.if.(
6340	69 74 29 20 6e 72 65 76 65 72 73 65 5d 20 31 33 20 28 23 24 20 2e 20 32 35 31 32 33 29 5d 29 29	it).nreverse].13.(#$...25123)]))
6360	23 40 32 35 38 20 55 73 65 20 50 52 45 44 20 74 6f 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 6c 79 20	#@258.Use.PRED.to.conditionally.
6380	61 70 70 6c 79 20 52 45 50 20 74 6f 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2e 0a	apply.REP.to.each.item.in.LIST..
63a0	52 65 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 20 77 68 65 72 65 20 74 68 65 20	Return.a.copy.of.LIST.where.the.
63c0	69 74 65 6d 73 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 69 6c	items.for.which.PRED.returns.nil
63e0	0a 61 72 65 20 75 6e 63 68 61 6e 67 65 64 2c 20 61 6e 64 20 74 68 65 20 72 65 73 74 20 61 72 65	.are.unchanged,.and.the.rest.are
6400	20 6d 61 70 70 65 64 20 74 68 72 6f 75 67 68 20 74 68 65 20 52 45 50 20 66 75 6e 63 74 69 6f 6e	.mapped.through.the.REP.function
6420	2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65 70 6c 61 63 65 2d 77 68 65 72 65 27 0a 0a 53 65 65 20	...Alias:.`-replace-where'..See.
6440	61 6c 73 6f 3a 20 60 2d 75 70 64 61 74 65 2d 61 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50	also:.`-update-at'..(fn.PRED.REP
6460	20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 6d 61 70 2d 77 68 65 6e 20 27 65 64 65 62 75 67	.LIST)..(put.'--map-when.'edebug
6480	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 28 64	-form-spec.'(form.form.form)).(d
64a0	65 66 61 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	efalias.'-map-when.#[771."\300.\
64c0	33 30 31 01 5c 32 30 33 24 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 06 06 01 21 5c 32 30	301.\203$..\211A\262.\242...!\20
64e0	33 1a 00 05 01 21 5c 32 30 32 1b 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32	3....!\202..\211.B\262.\210T\202
6500	03 00 5c 32 36 36 02 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e	..\266.\237\207".[nil.0].9.(#$..
6520	20 32 35 34 34 36 29 5d 29 23 40 32 35 34 20 55 73 65 20 50 52 45 44 20 74 6f 20 64 65 74 65 72	.25446)])#@254.Use.PRED.to.deter
6540	6d 69 6e 65 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 74 6f 20 63	mine.the.first.item.in.LIST.to.c
6560	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 53	all.REP.on..Return.a.copy.of.LIS
6580	54 20 77 68 65 72 65 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 66 6f 72 20 77 68 69 63 68	T.where.the.first.item.for.which
65a0	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
65c0	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
65e0	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-
6600	77 68 65 6e 27 2c 20 60 2d 72 65 70 6c 61 63 65 2d 66 69 72 73 74 27 0a 0a 28 66 6e 20 50 52 45	when',.`-replace-first'..(fn.PRE
6620	44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	D.REP.LIST)..(byte-code."\300\30
6640	31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 31 30 5c 33 30 34	1\302\303#\304\305\301\"\210\304
6660	5c 33 30 36 5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6d	\306\307\"\207".[function-put.-m
6680	61 70 2d 77 68 65 6e 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74	ap-when.important-return-value.t
66a0	20 64 65 66 61 6c 69 61 73 20 2d 72 65 70 6c 61 63 65 2d 77 68 65 72 65 20 2d 2d 72 65 70 6c 61	.defalias.-replace-where.--repla
66c0	63 65 2d 77 68 65 72 65 20 2d 2d 6d 61 70 2d 77 68 65 6e 5d 20 34 29 0a 28 64 65 66 61 6c 69 61	ce-where.--map-when].4).(defalia
66e0	73 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	s.'-map-first.#[771."\300.\203..
6700	03 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	..@!\204...@.B\262..A\262.\202..
6720	01 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 33	.\203).\301.\237..@!.AB\"\207\23
6740	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 32 35 39	7\207".[nil.-concat].8.(#$...259
6760	30 33 29 5d 29 23 40 35 33 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6d 61	03)])#@53.Anaphoric.form.of.`-ma
6780	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 29 1f 0a 28	p-first'...(fn.PRED.REP.LIST)..(
67a0	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
67c0	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6d 61 70 2d 66 69 72 73 74 20 69	\207".[function-put.-map-first.i
67e0	6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66	mportant-return-value.t].4).(def
6800	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 6f 20 2e 20 23 5b 37	alias.'--map-first.'(macro...#[7
6820	37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 06 06 46 5c 33 30 31 5c 33 30 34 5c	71."\300\301\302\303..F\301\304\
6840	33 30 35 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 64 61	305..F.F\207".[-map-first.lambda
6860	20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69	.(it).(ignore.it).(it).(ignore.i
6880	74 29 5d 20 39 20 28 23 24 20 2e 20 32 36 34 37 34 29 5d 29 29 23 40 32 35 31 20 55 73 65 20 50	t)].9.(#$...26474)]))#@251.Use.P
68a0	52 45 44 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 20 69	RED.to.determine.the.last.item.i
68c0	6e 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	n.LIST.to.call.REP.on..Return.a.
68e0	63 6f 70 79 20 6f 66 20 4c 49 53 54 20 77 68 65 72 65 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d	copy.of.LIST.where.the.last.item
6900	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.
6920	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
6940	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
6960	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 6c 61 73 74 27	so:.`-map-when',.`-replace-last'
6980	0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 6d 61	..(fn.PRED.REP.LIST)..(put.'--ma
69a0	70 2d 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 64 65 66 2d	p-first.'edebug-form-spec.'(def-
69c0	66 6f 72 6d 20 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27	form.def-form.form)).(defalias.'
69e0	2d 6d 61 70 2d 6c 61 73 74 20 23 5b 37 37 31 20 22 5c 33 30 30 03 03 5c 33 30 31 04 21 23 5c 32	-map-last.#[771."\300..\301.!#\2
6a00	33 37 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 66 69 72 73 74 20 72 65 76 65 72 73 65 5d 20 38 20 28	37\207".[-map-first.reverse].8.(
6a20	23 24 20 2e 20 32 36 37 37 39 29 5d 29 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d	#$...26779)])#@52.Anaphoric.form
6a40	20 6f 66 20 60 2d 6d 61 70 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c	.of.`-map-last'...(fn.PRED.REP.L
6a60	49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	IST)..(byte-code."\300\301\302\3
6a80	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 6d 61 70 2d	03#\300\207".[function-put.-map-
6aa0	6c 61 73 74 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34	last.important-return-value.t].4
6ac0	29 0a 28 64 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	).(defalias.'--map-last.'(macro.
6ae0	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 06 06 46 5c 33 30 31	..#[771."\300\301\302\303..F\301
6b00	5c 33 30 34 5c 33 30 35 06 06 46 03 46 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 6c 61 73 74 20 6c 61	\304\305..F.F\207".[-map-last.la
6b20	6d 62 64 61 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 20 28 69 74 29 20 28 69 67 6e 6f	mbda.(it).(ignore.it).(it).(igno
6b40	72 65 20 69 74 29 5d 20 39 20 28 23 24 20 2e 20 32 37 31 38 36 29 5d 29 29 23 40 31 32 33 20 52	re.it)].9.(#$...27186)]))#@123.R
6b60	65 70 6c 61 63 65 20 61 6c 6c 20 4f 4c 44 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 77 69 74	eplace.all.OLD.items.in.LIST.wit
6b80	68 20 4e 45 57 2e 0a 0a 45 6c 65 6d 65 6e 74 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 75 73	h.NEW...Elements.are.compared.us
6ba0	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 2d 72 65 70 6c 61 63	ing.`equal'...See.also:.`-replac
6bc0	65 2d 61 74 27 0a 0a 28 66 6e 20 4f 4c 44 20 4e 45 57 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27	e-at'..(fn.OLD.NEW.LIST)..(put.'
6be0	2d 2d 6d 61 70 2d 6c 61 73 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64	--map-last.'edebug-form-spec.'(d
6c00	65 66 2d 66 6f 72 6d 20 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61	ef-form.def-form.form)).(defalia
6c20	73 20 27 2d 72 65 70 6c 61 63 65 20 23 5b 37 37 31 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30	s.'-replace.#[771."\300.\301.\20
6c40	33 5c 22 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 5c 32 31 31 06 07 5c 32 33 32 5c 32 30	3\"..\211A\262.\242\211..\232\20
6c60	33 18 00 05 5c 32 30 32 19 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 03 00	3...\202..\211.B\262.\210T\202..
6c80	5c 32 36 36 02 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 32	\266.\237\207".[nil.0].9.(#$...2
6ca0	37 34 38 37 29 5d 29 23 40 31 33 36 20 52 65 70 6c 61 63 65 20 74 68 65 20 66 69 72 73 74 20 6f	7487)])#@136.Replace.the.first.o
6cc0	63 63 75 72 72 65 6e 63 65 20 6f 66 20 4f 4c 44 20 77 69 74 68 20 4e 45 57 20 69 6e 20 4c 49 53	ccurrence.of.OLD.with.NEW.in.LIS
6ce0	54 2e 0a 0a 45 6c 65 6d 65 6e 74 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 75 73 69 6e 67 20	T...Elements.are.compared.using.
6d00	60 65 71 75 61 6c 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 66 69 72 73 74 27	`equal'...See.also:.`-map-first'
6d20	0a 0a 28 66 6e 20 4f 4c 44 20 4e 45 57 20 4c 49 53 54 29 1f 23 40 31 31 20 0a 0a 28 66 6e 20 49	..(fn.OLD.NEW.LIST).#@11...(fn.I
6d40	54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	T)..(byte-code."\300\301\302\303
6d60	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
6d80	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 64 65 2d 65	ction-put.-replace.pure.t.side-e
6da0	66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61	ffect-free].5).(defalias.'-repla
6dc0	63 65 2d 66 69 72 73 74 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 5c 22 5c	ce-first.#[771."\300\301\302.\"\
6de0	33 30 31 5c 33 30 33 05 5c 22 03 23 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 66 69 72 73 74 20 6d 61	301\303.\".#\207".[-map-first.ma
6e00	6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 32 33 32 5c 32 30 37 22	ke-closure.#[257."\300.\232\207"
6e20	20 5b 56 30 5d 20 33 20 28 23 24 20 2e 20 32 37 39 36 31 29 5d 20 23 5b 32 35 37 20 22 5c 33 30	.[V0].3.(#$...27961)].#[257."\30
6e40	30 5c 32 30 37 22 20 5b 56 30 5d 20 32 20 28 23 24 20 2e 20 32 37 39 36 31 29 5d 5d 20 38 20 28	0\207".[V0].2.(#$...27961)]].8.(
6e60	23 24 20 2e 20 32 37 38 32 31 29 5d 29 23 40 31 33 34 20 52 65 70 6c 61 63 65 20 74 68 65 20 6c	#$...27821)])#@134.Replace.the.l
6e80	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 20 4e 45 57 20 69	ast.occurrence.of.OLD.with.NEW.i
6ea0	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 61 72 65 64 20 75	n.LIST...Elements.are.compared.u
6ec0	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 2d 6d 61 70 2d 6c	sing.`equal'...See.also:.`-map-l
6ee0	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 62 79 74 65 2d 63	ast'..(fn.OLD.NEW.LIST)..(byte-c
6f00	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
6f20	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.-
6f40	72 65 70 6c 61 63 65 2d 66 69 72 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74	replace-first.pure.t.side-effect
6f60	2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63 65 2d 6c 61	-free].5).(defalias.'-replace-la
6f80	73 74 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 5c 22 5c 33 30 31 5c 33 30	st.#[771."\300\301\302.\"\301\30
6fa0	33 05 5c 22 03 23 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 6c 61 73 74 20 6d 61 6b 65 2d 63 6c 6f 73	3.\".#\207".[-map-last.make-clos
6fc0	75 72 65 20 23 5b 32 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	ure.#[257."\300.\232\207".[V0].3
6fe0	20 28 23 24 20 2e 20 32 37 39 36 31 29 5d 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 32 30 37 22 20	.(#$...27961)].#[257."\300\207".
7000	5b 56 30 5d 20 32 20 28 23 24 20 2e 20 32 37 39 36 31 29 5d 5d 20 38 20 28 23 24 20 2e 20 32 38	[V0].2.(#$...27961)]].8.(#$...28
7020	32 37 35 29 5d 29 23 40 34 36 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6d	275)])#@46.Anaphoric.form.of.`-m
7040	61 70 63 61 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63	apcat'...(fn.FORM.LIST)..(byte-c
7060	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
7080	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.-
70a0	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 66 65 63 74 2d	replace-last.pure.t.side-effect-
70c0	66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 63 61 74 20 27 28 6d	free].5).(defalias.'--mapcat.'(m
70e0	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 04 45 45 5c 32	acro...#[514."\300\301\302..EE\2
7100	30 37 22 20 5b 61 70 70 6c 79 20 23 27 61 70 70 65 6e 64 20 2d 2d 6d 61 70 5d 20 37 20 28 23 24	07".[apply.#'append.--map].7.(#$
7120	20 2e 20 32 38 37 31 35 29 5d 29 29 23 40 31 31 38 20 52 65 74 75 72 6e 20 74 68 65 20 63 6f 6e	...28715)]))#@118.Return.the.con
7140	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 6f 66 20 6d 61 70 70	catenation.of.the.result.of.mapp
7160	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 6e 63 74 69 6f 6e 20	ing.FN.over.LIST..Thus.function.
7180	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 0a 28 66 6e 20 46 4e	FN.should.return.a.list...(fn.FN
71a0	20 4c 49 53 54 29 1f 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	.LIST)..(put.'--mapcat.'edebug-f
71c0	6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73	orm-spec.'(form.form)).(defalias
71e0	20 27 2d 6d 61 70 63 61 74 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	.'-mapcat.#[514."\300\301\302\30
7200	33 5c 33 30 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	3\304..\".\"\"\207".[apply.appen
7220	64 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 30	d.mapcar.make-closure.#[257."\30
7240	30 01 21 5c 32 30 37 22 20 5b 56 30 5d 20 33 20 28 23 24 20 2e 20 32 37 39 36 31 29 5d 5d 20 38	0.!\207".[V0].3.(#$...27961)]].8
7260	20 28 23 24 20 2e 20 32 38 39 37 38 29 5d 29 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 76 65	.(#$...28978)])#@52.Anaphoric.ve
7280	72 73 69 6f 6e 20 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	rsion.of.`-iterate'...(fn.FORM.I
72a0	4e 49 54 20 4e 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	NIT.N)..(byte-code."\300\301\302
72c0	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 6d 61	\303#\300\207".[function-put.-ma
72e0	70 63 61 74 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34	pcat.important-return-value.t].4
7300	29 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..
7320	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..
7340	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
7360	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
7380	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
73a0	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).
73c0	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-
73e0	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 39	.push.setq.nreverse].17.(#$...29
7400	33 30 30 29 5d 29 29 23 40 31 38 36 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 69 74	300)]))#@186.Return.a.list.of.it
7420	65 72 61 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 20 6f 66 20 46 55 4e 20 74 6f 20 49 4e	erated.applications.of.FUN.to.IN
7440	49 54 2e 0a 0a 54 68 69 73 20 6d 65 61 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 6f	IT...This.means.a.list.of.the.fo
7460	72 6d 3a 0a 0a 20 20 28 49 4e 49 54 20 28 46 55 4e 20 49 4e 49 54 29 20 28 46 55 4e 20 28 46 55	rm:....(INIT.(FUN.INIT).(FUN.(FU
7480	4e 20 49 4e 49 54 29 29 20 2e 2e 2e 29 0a 0a 4e 20 69 73 20 74 68 65 20 6c 65 6e 67 74 68 20 6f	N.INIT))....)..N.is.the.length.o
74a0	66 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 46 55 4e 20 49 4e	f.the.returned.list...(fn.FUN.IN
74c0	49 54 20 4e 29 1f 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 66	IT.N)..(put.'--iterate.'edebug-f
74e0	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 28 64 65 66	orm-spec.'(form.form.form)).(def
7500	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 56	alias.'-iterate.#[771."\211\300V
7520	5c 32 30 35 28 00 01 5c 32 31 31 43 02 53 5c 33 30 30 5c 32 31 31 02 57 5c 32 30 33 23 00 5c 33	\205(..\211C.S\300\211.W\203#.\3
7540	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 54 5c 32 30 32 5c	01...!\211\262..B\262.\210T\202\
7560	66 00 5c 32 36 36 02 5c 32 36 36 5c 32 30 31 5c 32 33 37 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d	f.\266.\266\201\237\207".[0.nil]
7580	20 31 30 20 28 23 24 20 2e 20 32 39 37 30 39 29 5d 29 23 40 34 33 34 20 54 61 6b 65 20 61 20 6e	.10.(#$...29709)])#@434.Take.a.n
75a0	65 73 74 65 64 20 6c 69 73 74 20 4c 20 61 6e 64 20 72 65 74 75 72 6e 20 69 74 73 20 63 6f 6e 74	ested.list.L.and.return.its.cont
75c0	65 6e 74 73 20 61 73 20 61 20 73 69 6e 67 6c 65 2c 20 66 6c 61 74 20 6c 69 73 74 2e 0a 0a 4e 6f	ents.as.a.single,.flat.list...No
75e0	74 65 20 74 68 61 74 20 62 65 63 61 75 73 65 20 6e 69 6c 20 72 65 70 72 65 73 65 6e 74 73 20 61	te.that.because.nil.represents.a
7600	20 6c 69 73 74 20 6f 66 20 7a 65 72 6f 20 65 6c 65 6d 65 6e 74 73 20 28 61 6e 0a 65 6d 70 74 79	.list.of.zero.elements.(an.empty
7620	20 6c 69 73 74 29 2c 20 61 6e 79 20 6d 65 6e 74 69 6f 6e 20 6f 66 20 6e 69 6c 20 69 6e 20 4c 20	.list),.any.mention.of.nil.in.L.
7640	77 69 6c 6c 20 64 69 73 61 70 70 65 61 72 20 61 66 74 65 72 0a 66 6c 61 74 74 65 6e 69 6e 67 2e	will.disappear.after.flattening.
7660	20 20 49 66 20 79 6f 75 20 6e 65 65 64 20 74 6f 20 70 72 65 73 65 72 76 65 20 6e 69 6c 73 2c 20	..If.you.need.to.preserve.nils,.
7680	63 6f 6e 73 69 64 65 72 20 60 2d 66 6c 61 74 74 65 6e 2d 6e 27 0a 6f 72 20 6d 61 70 20 74 68 65	consider.`-flatten-n'.or.map.the
76a0	6d 20 74 6f 20 73 6f 6d 65 20 75 6e 69 71 75 65 20 73 79 6d 62 6f 6c 20 61 6e 64 20 74 68 65 6e	m.to.some.unique.symbol.and.then
76c0	20 6d 61 70 20 74 68 65 6d 20 62 61 63 6b 2e 0a 0a 43 6f 6e 73 65 73 20 6f 66 20 74 77 6f 20 61	.map.them.back...Conses.of.two.a
76e0	74 6f 6d 73 20 61 72 65 20 63 6f 6e 73 69 64 65 72 65 64 20 22 74 65 72 6d 69 6e 61 6c 73 22 2c	toms.are.considered."terminals",
7700	20 74 68 61 74 20 69 73 2c 20 74 68 65 79 0a 61 72 65 6e 27 74 20 66 6c 61 74 74 65 6e 65 64 20	.that.is,.they.aren't.flattened.
7720	66 75 72 74 68 65 72 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 6c 61 74 74 65 6e 2d 6e 27	further...See.also:.`-flatten-n'
7740	0a 0a 28 66 6e 20 4c 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	..(fn.L)..(byte-code."\300\301\3
7760	30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d	02\303#\300\207".[function-put.-
7780	69 74 65 72 61 74 65 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74	iterate.important-return-value.t
77a0	5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 6c 61 74 74 65 6e 20 23 5b 32 35 37 20 22	].4).(defalias.'-flatten.#[257."
77c0	5c 32 31 31 3c 5c 32 30 33 10 00 5c 32 31 31 41 3c 5c 32 30 33 10 00 5c 33 30 30 5c 33 30 31 02	\211<\203..\211A<\203..\300\301.
77e0	5c 22 5c 32 30 37 43 5c 32 30 37 22 20 5b 2d 6d 61 70 63 61 74 20 2d 66 6c 61 74 74 65 6e 5d 20	\"\207C\207".[-mapcat.-flatten].
7800	34 20 28 23 24 20 2e 20 33 30 31 30 34 29 5d 29 23 40 37 35 20 46 6c 61 74 74 65 6e 20 4e 55 4d	4.(#$...30104)])#@75.Flatten.NUM
7820	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 65 65 20 61	.levels.of.a.nested.LIST...See.a
7840	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 54 29 1f 0a	lso:.`-flatten'..(fn.NUM.LIST)..
7860	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
7880	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
78a0	6e 2d 70 75 74 20 2d 66 6c 61 74 74 65 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63	n-put.-flatten.pure.t.side-effec
78c0	74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 6c 61 74 74 65 6e 2d 6e	t-free].5).(defalias.'-flatten-n
78e0	20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 03 57 5c 32 30 33 17 00 5c 33 30 31 5c 33 30 32	.#[514."\300\211.W\203..\301\302
7900	5c 33 30 33 5c 33 30 34 5c 33 30 35 06 06 5c 22 5c 22 5c 32 36 32 03 5c 32 31 30 54 5c 32 30 32	\303\304\305..\"\"\262.\210T\202
7920	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 64 20	..\210\207".[0.nil.apply.append.
7940	6d 61 70 63 61 72 20 2d 6c 69 73 74 5d 20 39 20 28 23 24 20 2e 20 33 30 37 34 31 29 5d 29 23 40	mapcar.-list].9.(#$...30741)])#@
7960	35 34 33 20 43 6f 6e 63 61 74 65 6e 61 74 65 20 61 6c 6c 20 53 45 51 55 45 4e 43 45 53 20 61 6e	543.Concatenate.all.SEQUENCES.an
7980	64 20 6d 61 6b 65 20 74 68 65 20 72 65 73 75 6c 74 20 61 20 6c 69 73 74 2e 0a 54 68 65 20 72 65	d.make.the.result.a.list..The.re
79a0	73 75 6c 74 20 69 73 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	sult.is.a.list.whose.elements.ar
79c0	65 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 61 6c 6c 20 74 68 65 20 61 72 67 75 6d 65	e.the.elements.of.all.the.argume
79e0	6e 74 73 2e 0a 45 61 63 68 20 61 72 67 75 6d 65 6e 74 20 6d 61 79 20 62 65 20 61 20 6c 69 73 74	nts..Each.argument.may.be.a.list
7a00	2c 20 76 65 63 74 6f 72 20 6f 72 20 73 74 72 69 6e 67 2e 0a 0a 41 6c 6c 20 61 72 67 75 6d 65 6e	,.vector.or.string...All.argumen
7a20	74 73 20 65 78 63 65 70 74 20 74 68 65 20 6c 61 73 74 20 61 72 67 75 6d 65 6e 74 20 61 72 65 20	ts.except.the.last.argument.are.
7a40	63 6f 70 69 65 64 2e 20 20 54 68 65 20 6c 61 73 74 20 61 72 67 75 6d 65 6e 74 0a 69 73 20 6a 75	copied...The.last.argument.is.ju
7a60	73 74 20 75 73 65 64 20 61 73 20 74 68 65 20 74 61 69 6c 20 6f 66 20 74 68 65 20 6e 65 77 20 6c	st.used.as.the.tail.of.the.new.l
7a80	69 73 74 2e 20 20 49 66 20 74 68 65 20 6c 61 73 74 20 61 72 67 75 6d 65 6e 74 20 69 73 20 6e 6f	ist...If.the.last.argument.is.no
7aa0	74 0a 61 20 6c 69 73 74 2c 20 74 68 69 73 20 72 65 73 75 6c 74 73 20 69 6e 20 61 20 64 6f 74 74	t.a.list,.this.results.in.a.dott
7ac0	65 64 20 6c 69 73 74 2e 0a 0a 41 73 20 61 6e 20 65 78 63 65 70 74 69 6f 6e 2c 20 69 66 20 61 6c	ed.list...As.an.exception,.if.al
7ae0	6c 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 65 78 63 65 70 74 20 74 68 65 20 6c 61 73 74 20	l.the.arguments.except.the.last.
7b00	61 72 65 20 6e 69 6c 2c 20 61 6e 64 20 74 68 65 0a 6c 61 73 74 20 61 72 67 75 6d 65 6e 74 20 69	are.nil,.and.the.last.argument.i
7b20	73 20 6e 6f 74 20 61 20 6c 69 73 74 2c 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69	s.not.a.list,.the.return.value.i
7b40	73 20 74 68 61 74 20 6c 61 73 74 20 61 72 67 75 6d 65 6e 74 0a 75 6e 61 6c 74 65 72 65 64 2c 20	s.that.last.argument.unaltered,.
7b60	6e 6f 74 20 61 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 53 45 51 55 45 4e 43 45 53	not.a.list...(fn.&rest.SEQUENCES
7b80	29 1f 23 40 31 31 35 20 43 72 65 61 74 65 20 61 20 73 68 61 6c 6c 6f 77 20 63 6f 70 79 20 6f 66	).#@115.Create.a.shallow.copy.of
7ba0	20 4c 49 53 54 2e 0a 54 68 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 20 61 72 65 20	.LIST..The.elements.of.LIST.are.
7bc0	6e 6f 74 20 63 6f 70 69 65 64 3b 20 74 68 65 79 20 61 72 65 20 73 68 61 72 65 64 20 77 69 74 68	not.copied;.they.are.shared.with
7be0	20 74 68 65 20 6f 72 69 67 69 6e 61 6c 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 23 40 35 39 38 20	.the.original...(fn.LIST).#@598.
7c00	53 70 6c 69 63 65 20 6c 69 73 74 73 20 67 65 6e 65 72 61 74 65 64 20 62 79 20 46 4f 52 4d 20 69	Splice.lists.generated.by.FORM.i
7c20	6e 20 70 6c 61 63 65 20 6f 66 20 69 74 65 6d 73 20 73 61 74 69 73 66 79 69 6e 67 20 50 52 45 44	n.place.of.items.satisfying.PRED
7c40	20 69 6e 20 4c 49 53 54 2e 0a 0a 45 76 61 6c 75 61 74 65 20 50 52 45 44 20 66 6f 72 20 65 61 63	.in.LIST...Evaluate.PRED.for.eac
7c60	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 62 6f 75 6e 64 20	h.element.of.LIST.in.turn.bound.
7c80	74 6f 20 60 69 74 27 2e 0a 57 68 65 6e 65 76 65 72 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20	to.`it'..Whenever.the.result.of.
7ca0	50 52 45 44 20 69 73 20 6e 69 6c 2c 20 6c 65 61 76 65 20 74 68 61 74 20 60 69 74 27 20 69 73 2d	PRED.is.nil,.leave.that.`it'.is-
7cc0	69 73 2e 0a 4f 74 68 65 72 77 69 73 65 2c 20 65 76 61 6c 75 61 74 65 20 46 4f 52 4d 20 77 69 74	is..Otherwise,.evaluate.FORM.wit
7ce0	68 20 74 68 65 20 73 61 6d 65 20 60 69 74 27 20 62 69 6e 64 69 6e 67 20 73 74 69 6c 6c 20 69 6e	h.the.same.`it'.binding.still.in
7d00	0a 70 6c 61 63 65 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 73 68 6f 75 6c 64 20 62 65 20 61 20	.place...The.result.should.be.a.
7d20	28 70 6f 73 73 69 62 6c 79 20 65 6d 70 74 79 29 20 6c 69 73 74 20 6f 66 20 69 74 65 6d 73 20 74	(possibly.empty).list.of.items.t
7d40	6f 0a 73 70 6c 69 63 65 20 69 6e 20 70 6c 61 63 65 20 6f 66 20 60 69 74 27 20 69 6e 20 4c 49 53	o.splice.in.place.of.`it'.in.LIS
7d60	54 2e 0a 0a 54 68 69 73 20 63 61 6e 20 62 65 20 75 73 65 66 75 6c 20 61 73 20 61 6e 20 61 6c 74	T...This.can.be.useful.as.an.alt
7d80	65 72 6e 61 74 69 76 65 20 74 6f 20 74 68 65 20 60 2c 40 27 20 63 6f 6e 73 74 72 75 63 74 20 69	ernative.to.the.`,@'.construct.i
7da0	6e 20 61 0a 60 5c 3d 60 27 20 73 74 72 75 63 74 75 72 65 2c 20 69 6e 20 63 61 73 65 20 79 6f 75	n.a.`\=`'.structure,.in.case.you
7dc0	20 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 73 20 61 74	.need.to.splice.several.lists.at
7de0	0a 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 6c 65 20 77	.marked.positions.(for.example.w
7e00	69 74 68 20 6b 65 79 77 6f 72 64 73 29 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70	ith.keywords)...This.is.the.anap
7e20	68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 73 70 6c 69 63 65 27 2e 0a	horic.counterpart.to.`-splice'..
7e40	0a 28 66 6e 20 50 52 45 44 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65	.(fn.PRED.FORM.LIST)..(byte-code
7e60	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\
7e80	33 30 33 23 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 23 5c 32 31 30 5c 33 30 35 5c 33 31	303#\305\306\307\310#\210\305\31
7ea0	31 5c 33 31 32 5c 33 31 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66	1\312\313#\207".[function-put.-f
7ec0	6c 61 74 74 65 6e 2d 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	latten-n.pure.t.side-effect-free
7ee0	20 64 65 66 61 6c 69 61 73 20 2d 63 6f 6e 63 61 74 20 61 70 70 65 6e 64 20 22 43 6f 6e 63 61 74	.defalias.-concat.append."Concat
7f00	65 6e 61 74 65 20 61 6c 6c 20 53 45 51 55 45 4e 43 45 53 20 61 6e 64 20 6d 61 6b 65 20 74 68 65	enate.all.SEQUENCES.and.make.the
7f20	20 72 65 73 75 6c 74 20 61 20 6c 69 73 74 2e 5c 6e 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61	.result.a.list.\nThe.result.is.a
7f40	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 74 68 65 20 65 6c 65	.list.whose.elements.are.the.ele
7f60	6d 65 6e 74 73 20 6f 66 20 61 6c 6c 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 2e 5c 6e 45 61 63	ments.of.all.the.arguments.\nEac
7f80	68 20 61 72 67 75 6d 65 6e 74 20 6d 61 79 20 62 65 20 61 20 6c 69 73 74 2c 20 76 65 63 74 6f 72	h.argument.may.be.a.list,.vector
7fa0	20 6f 72 20 73 74 72 69 6e 67 2e 5c 6e 5c 6e 41 6c 6c 20 61 72 67 75 6d 65 6e 74 73 20 65 78 63	.or.string.\n\nAll.arguments.exc
7fc0	65 70 74 20 74 68 65 20 6c 61 73 74 20 61 72 67 75 6d 65 6e 74 20 61 72 65 20 63 6f 70 69 65 64	ept.the.last.argument.are.copied
7fe0	2e 20 20 54 68 65 20 6c 61 73 74 20 61 72 67 75 6d 65 6e 74 5c 6e 69 73 20 6a 75 73 74 20 75 73	...The.last.argument\nis.just.us
8000	65 64 20 61 73 20 74 68 65 20 74 61 69 6c 20 6f 66 20 74 68 65 20 6e 65 77 20 6c 69 73 74 2e 20	ed.as.the.tail.of.the.new.list..
8020	20 49 66 20 74 68 65 20 6c 61 73 74 20 61 72 67 75 6d 65 6e 74 20 69 73 20 6e 6f 74 5c 6e 61 20	.If.the.last.argument.is.not\na.
8040	6c 69 73 74 2c 20 74 68 69 73 20 72 65 73 75 6c 74 73 20 69 6e 20 61 20 64 6f 74 74 65 64 20 6c	list,.this.results.in.a.dotted.l
8060	69 73 74 2e 5c 6e 5c 6e 41 73 20 61 6e 20 65 78 63 65 70 74 69 6f 6e 2c 20 69 66 20 61 6c 6c 20	ist.\n\nAs.an.exception,.if.all.
8080	74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 65 78 63 65 70 74 20 74 68 65 20 6c 61 73 74 20 61 72	the.arguments.except.the.last.ar
80a0	65 20 6e 69 6c 2c 20 61 6e 64 20 74 68 65 5c 6e 6c 61 73 74 20 61 72 67 75 6d 65 6e 74 20 69 73	e.nil,.and.the\nlast.argument.is
80c0	20 6e 6f 74 20 61 20 6c 69 73 74 2c 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73	.not.a.list,.the.return.value.is
80e0	20 74 68 61 74 20 6c 61 73 74 20 61 72 67 75 6d 65 6e 74 5c 6e 75 6e 61 6c 74 65 72 65 64 2c 20	.that.last.argument\nunaltered,.
8100	6e 6f 74 20 61 20 6c 69 73 74 2e 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 53 45 51 55 45 4e 43	not.a.list.\n\n(fn.&rest.SEQUENC
8120	45 53 29 22 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	ES)".-copy.copy-sequence."Create
8140	20 61 20 73 68 61 6c 6c 6f 77 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 2e 5c 6e 54 68 65 20 65 6c	.a.shallow.copy.of.LIST.\nThe.el
8160	65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 20 61 72 65 20 6e 6f 74 20 63 6f 70 69 65 64 3b 20 74	ements.of.LIST.are.not.copied;.t
8180	68 65 79 20 61 72 65 20 73 68 61 72 65 64 20 77 69 74 68 20 74 68 65 20 6f 72 69 67 69 6e 61 6c	hey.are.shared.with.the.original
81a0	2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 5d 20 36 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	.\n\n(fn.LIST)"].6).(defalias.'-
81c0	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 30 5c 33 30	-splice.'(macro...#[771."\300\30
81e0	31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 06 08 5c 33 30 33 06 09 5c 33 30 35 5c 33 30	1!\302.C\303.\304..\303..\305\30
8200	36 06 5c 6e 45 45 5c 33 30 35 5c 33 30 36 06 09 45 46 45 5c 33 30 37 04 44 46 5c 32 30 37 22 20	6.\nEE\305\306..EFE\307.DF\207".
8220	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 63 68	[make-symbol."result".let.--each
8240	20 69 66 20 70 75 73 68 20 69 74 20 6e 72 65 76 65 72 73 65 5d 20 31 35 20 28 23 24 20 2e 20 33	.if.push.it.nreverse].15.(#$...3
8260	31 37 34 34 29 5d 29 29 23 40 36 30 37 20 53 70 6c 69 63 65 20 6c 69 73 74 73 20 67 65 6e 65 72	1744)]))#@607.Splice.lists.gener
8280	61 74 65 64 20 62 79 20 46 55 4e 20 69 6e 20 70 6c 61 63 65 20 6f 66 20 69 74 65 6d 73 20 73 61	ated.by.FUN.in.place.of.items.sa
82a0	74 69 73 66 79 69 6e 67 20 50 52 45 44 20 69 6e 20 4c 49 53 54 2e 0a 0a 43 61 6c 6c 20 50 52 45	tisfying.PRED.in.LIST...Call.PRE
82c0	44 20 6f 6e 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2e 20 20 57 68 65 6e	D.on.each.element.of.LIST...When
82e0	65 76 65 72 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 50 52 45 44 0a 69 73 20 6e 69 6c 2c 20	ever.the.result.of.PRED.is.nil,.
8300	6c 65 61 76 65 20 74 68 61 74 20 60 69 74 27 20 61 73 2d 69 73 2e 20 20 4f 74 68 65 72 77 69 73	leave.that.`it'.as-is...Otherwis
8320	65 2c 20 63 61 6c 6c 20 46 55 4e 20 6f 6e 20 74 68 65 20 73 61 6d 65 0a 60 69 74 27 20 74 68 61	e,.call.FUN.on.the.same.`it'.tha
8340	74 20 73 61 74 69 73 66 69 65 64 20 50 52 45 44 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 73 68	t.satisfied.PRED...The.result.sh
8360	6f 75 6c 64 20 62 65 20 61 20 28 70 6f 73 73 69 62 6c 79 0a 65 6d 70 74 79 29 20 6c 69 73 74 20	ould.be.a.(possibly.empty).list.
8380	6f 66 20 69 74 65 6d 73 20 74 6f 20 73 70 6c 69 63 65 20 69 6e 20 70 6c 61 63 65 20 6f 66 20 60	of.items.to.splice.in.place.of.`
83a0	69 74 27 20 69 6e 20 4c 49 53 54 2e 0a 0a 54 68 69 73 20 63 61 6e 20 62 65 20 75 73 65 66 75 6c	it'.in.LIST...This.can.be.useful
83c0	20 61 73 20 61 6e 20 61 6c 74 65 72 6e 61 74 69 76 65 20 74 6f 20 74 68 65 20 60 2c 40 27 20 63	.as.an.alternative.to.the.`,@'.c
83e0	6f 6e 73 74 72 75 63 74 20 69 6e 20 61 0a 60 5c 3d 60 27 20 73 74 72 75 63 74 75 72 65 2c 20 69	onstruct.in.a.`\=`'.structure,.i
8400	6e 20 63 61 73 65 20 79 6f 75 20 6e 65 65 64 20 74 6f 20 73 70 6c 69 63 65 20 73 65 76 65 72 61	n.case.you.need.to.splice.severa
8420	6c 20 6c 69 73 74 73 20 61 74 0a 6d 61 72 6b 65 64 20 70 6f 73 69 74 69 6f 6e 73 20 28 66 6f 72	l.lists.at.marked.positions.(for
8440	20 65 78 61 6d 70 6c 65 20 77 69 74 68 20 6b 65 79 77 6f 72 64 73 29 2e 0a 0a 54 68 69 73 20 66	.example.with.keywords)...This.f
8460	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.
8480	69 73 20 60 2d 2d 73 70 6c 69 63 65 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 70 6c 69	is.`--splice'...See.also:.`-spli
84a0	63 65 2d 6c 69 73 74 27 2c 20 60 2d 69 6e 73 65 72 74 2d 61 74 27 2e 0a 0a 28 66 6e 20 50 52 45	ce-list',.`-insert-at'...(fn.PRE
84c0	44 20 46 55 4e 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 73 70 6c 69 63 65 20 27 65 64 65	D.FUN.LIST)..(put.'--splice.'ede
84e0	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 20 66 6f 72 6d 29 29	bug-form-spec.'(form.form.form))
8500	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 63 65 20 23 5b 37 37 31 20 22 5c 33 30 30 01	.(defalias.'-splice.#[771."\300.
8520	5c 33 30 31 01 5c 32 30 33 3c 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 06 06 01 21 5c 32	\301.\203<..\211A\262.\242...!\2
8540	30 33 32 00 05 01 21 5c 33 30 31 01 5c 32 30 33 2d 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34	032...!\301.\203-..\211A\262.\24
8560	32 5c 32 31 31 06 07 42 5c 32 36 32 07 5c 32 31 30 54 5c 32 30 32 18 00 5c 32 36 36 03 5c 32 30	2\211..B\262.\210T\202..\266.\20
8580	32 38 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 03 00 5c 32 36 36 02 5c 32	28.\211.B\262.\210T\202..\266.\2
85a0	33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 32 20 28 23 24 20 2e 20 33 33 33 39 30 29 5d	37\207".[nil.0].12.(#$...33390)]
85c0	29 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 6c 61 63 65 20	)#@121.Splice.NEW-LIST.in.place.
85e0	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 6e 20 4c 49 53	of.elements.matching.PRED.in.LIS
8600	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 69 6e 73 65 72	T...See.also:.`-splice',.`-inser
8620	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 53 54 29 1f 23	t-at'..(fn.PRED.NEW-LIST.LIST).#
8640	40 31 30 20 0a 0a 28 66 6e 20 5f 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	@10...(fn._)..(byte-code."\300\3
8660	30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70	01\302\303#\300\207".[function-p
8680	75 74 20 2d 73 70 6c 69 63 65 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75	ut.-splice.important-return-valu
86a0	65 20 74 5d 20 34 29 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	e.t].4).(defalias.'-splice-list.
86c0	23 5b 37 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	#[771."\300.\301\302.\".#\207".[
86e0	2d 73 70 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	-splice.make-closure.#[257."\300
8700	5c 32 30 37 22 20 5b 56 30 5d 20 32 20 28 23 24 20 2e 20 33 34 33 37 32 29 5d 5d 20 38 20 28 23	\207".[V0].2.(#$...34372)]].8.(#
8720	24 20 2e 20 33 34 32 34 37 29 5d 29 23 40 36 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20	$...34247)])#@60.Anaphoric.form.
8740	6f 66 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	of.`-splice-list'...(fn.PRED.NEW
8760	2d 4c 49 53 54 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	-LIST.LIST)..(byte-code."\300\30
8780	31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75	1\302\303#\300\207".[function-pu
87a0	74 20 2d 73 70 6c 69 63 65 2d 6c 69 73 74 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d	t.-splice-list.important-return-
87c0	76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 70 6c 69 63 65 2d	value.t].4).(defalias.'--splice-
87e0	6c 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	list.'(macro...#[771."\300\301\3
8800	30 32 5c 33 30 33 06 06 46 03 03 46 5c 32 30 37 22 20 5b 2d 73 70 6c 69 63 65 2d 6c 69 73 74 20	02\303..F..F\207".[-splice-list.
8820	6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 5d 20 38 20 28 23 24 20 2e	lambda.(it).(ignore.it)].8.(#$..
8840	20 33 34 36 30 39 29 5d 29 29 23 40 32 33 34 20 4d 61 6b 65 20 61 20 6e 65 77 20 6c 69 73 74 20	.34609)]))#@234.Make.a.new.list.
8860	66 72 6f 6d 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 41 52 47 53 2e 0a 54 68 65 20 6c	from.the.elements.of.ARGS..The.l
8880	61 73 74 20 32 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 41 52 47 53 20 61 72 65 20 75 73 65 64 20	ast.2.elements.of.ARGS.are.used.
88a0	61 73 20 74 68 65 20 66 69 6e 61 6c 20 63 6f 6e 73 20 6f 66 20 74 68 65 0a 72 65 73 75 6c 74 2c	as.the.final.cons.of.the.result,
88c0	20 73 6f 20 69 66 20 74 68 65 20 66 69 6e 61 6c 20 65 6c 65 6d 65 6e 74 20 6f 66 20 41 52 47 53	.so.if.the.final.element.of.ARGS
88e0	20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 2c 20 74 68 65 20 72 65 73 75 6c 74 0a 69 73 20 61 20	.is.not.a.list,.the.result.is.a.
8900	64 6f 74 74 65 64 20 6c 69 73 74 2e 20 20 57 69 74 68 20 6e 6f 20 41 52 47 53 2c 20 72 65 74 75	dotted.list...With.no.ARGS,.retu
8920	72 6e 20 6e 69 6c 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 70 75 74 20 27	rn.nil...(fn.&rest.ARGS)..(put.'
8940	2d 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	--splice-list.'edebug-form-spec.
8960	27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73	'(def-form.form.form)).(defalias
8980	20 27 2d 63 6f 6e 73 2a 20 23 5b 31 32 38 20 22 5c 32 31 31 47 5c 32 31 31 5c 33 30 30 5a 02 5c	.'-cons*.#[128."\211G\211\300Z.\
89a0	32 33 33 5c 32 31 31 41 5c 32 31 31 5c 32 30 34 10 00 03 40 5c 32 30 37 01 01 40 5c 32 34 31 5c	233\211A\211\204...@\207..@\241\
89c0	32 31 30 03 5c 32 30 37 22 20 5b 32 5d 20 36 20 28 23 24 20 2e 20 33 34 38 39 36 29 5d 29 23 40	210.\207".[2].6.(#$...34896)])#@
89e0	31 38 34 20 41 70 70 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	184.Append.ELEM.to.the.end.of.th
8a00	65 20 6c 69 73 74 2e 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	e.list...This.is.like.`cons',.bu
8a20	74 20 6f 70 65 72 61 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	t.operates.on.the.end.of.list...
8a40	49 66 20 61 6e 79 20 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	If.any.ELEMENTS.are.given,.appen
8a60	64 20 74 68 65 6d 20 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	d.them.to.the.list.as.well...(fn
8a80	20 4c 49 53 54 20 45 4c 45 4d 20 26 72 65 73 74 20 45 4c 45 4d 45 4e 54 53 29 1f 0a 28 62 79 74	.LIST.ELEM.&rest.ELEMENTS)..(byt
8aa0	65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30	e-code."\300\301\302\303#\300\20
8ac0	37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6e 73 2a 20 73 69 64 65 2d 65 66 66	7".[function-put.-cons*.side-eff
8ae0	65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6e 6f 63 20	ect-free.t].4).(defalias.'-snoc.
8b00	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 6e 63 61 74 5d 20	#[642."\300..C.#\207".[-concat].
8b20	37 20 28 23 24 20 2e 20 33 35 33 30 30 29 5d 29 23 40 32 37 37 20 52 65 74 75 72 6e 20 74 68 65	7.(#$...35300)])#@277.Return.the
8b40	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 46 4f	.first.item.in.LIST.for.which.FO
8b60	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 72 6e 20 6e 69 6c 20	RM.evals.to.non-nil..Return.nil.
8b80	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 45 61 63	if.no.such.element.is.found..Eac
8ba0	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 20 62 6f 75	h.element.of.LIST.in.turn.is.bou
8bc0	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 68 69 6e 20	nd.to.`it'.and.its.index.within.
8be0	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 61 6c 75 61	LIST.to.`it-index'.before.evalua
8c00	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 63	ting.FORM..This.is.the.anaphoric
8c20	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 0a 0a 28 66 6e 20 46	.counterpart.to.`-first'...(fn.F
8c40	4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c	ORM.LIST)..(byte-code."\300\301\
8c60	33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20	302\303#\300\207".[function-put.
8c80	2d 73 6e 6f 63 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65	-snoc.side-effect-free.t].4).(de
8ca0	66 61 6c 69 61 73 20 27 2d 2d 66 69 72 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20	falias.'--first.'(macro...#[514.
8cc0	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 33 30 35 06 08 44	"\300\301!\302.C\303.\304\305..D
8ce0	5c 33 30 36 5c 33 30 37 06 08 5c 33 31 30 42 42 44 45 45 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65	\306\307..\310BBDEE.F\207".[make
8d00	2d 73 79 6d 62 6f 6c 20 22 6e 65 65 64 6c 65 22 20 6c 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c	-symbol."needle".let.--each-whil
8d20	65 20 6f 72 20 6e 6f 74 20 69 67 6e 6f 72 65 20 73 65 74 71 20 28 69 74 29 5d 20 31 33 20 28 23	e.or.not.ignore.setq.(it)].13.(#
8d40	24 20 2e 20 33 35 36 33 38 29 5d 29 29 23 40 32 36 33 20 52 65 74 75 72 6e 20 74 68 65 20 66 69	$...35638)]))#@263.Return.the.fi
8d60	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 52 45 44 20	rst.item.in.LIST.for.which.PRED.
8d80	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 69 66 20 6e	returns.non-nil..Return.nil.if.n
8da0	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 0a 54 6f 20 67 65 74	o.such.element.is.found...To.get
8dc0	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 6f 20 71	.the.first.item.in.the.list.no.q
8de0	75 65 73 74 69 6f 6e 73 20 61 73 6b 65 64 2c 0a 75 73 65 20 60 2d 66 69 72 73 74 2d 69 74 65 6d	uestions.asked,.use.`-first-item
8e00	27 2e 0a 0a 41 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	'...Alias:.`-find'...This.functi
8e20	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 2d	on's.anaphoric.counterpart.is.`-
8e40	2d 66 69 72 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27	-first'...(fn.PRED.LIST)..(put.'
8e60	2d 2d 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	--first.'edebug-form-spec.'(form
8e80	20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 72 73 74 20 23 5b 35 31 34 20	.form)).(defalias.'-first.#[514.
8ea0	22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 02 5c 32 30 33 1d 00 5c 32 31 30 01 5c 32 34 32 05 01	"\300.\301\300.\203..\210.\242..
8ec0	21 5c 32 30 33 12 00 5c 32 30 37 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 04 00 5c	!\203..\207.T\262..A\262.\202..\
8ee0	32 36 36 03 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 33 36 31 37 39 29	266.\207".[nil.0].8.(#$...36179)
8f00	5d 29 23 40 32 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	])#@289.Return.non-nil.if.FORM.e
8f20	76 61 6c 73 20 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	vals.to.non-nil.for.at.least.one
8f40	20 69 74 65 6d 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	.item.in.LIST..If.so,.return.the
8f60	20 66 69 72 73 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	.first.such.result.of.FORM..Each
8f80	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 20 62 6f 75 6e	.element.of.LIST.in.turn.is.boun
8fa0	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 68 69 6e 20 4c	d.to.`it'.and.its.index.within.L
8fc0	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 61 6c 75 61 74	IST.to.`it-index'.before.evaluat
8fe0	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 63 20	ing.FORM..This.is.the.anaphoric.
9000	63 6f 75 6e 74 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	counterpart.to.`-some'...(fn.FOR
9020	4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	M.LIST)..(byte-code."\300\301\30
9040	32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 31 30 5c 33 30 34 5c 33 30 36	2\303#\304\305\301\"\210\304\306
9060	5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 69 72 73 74	\307\"\207".[function-put.-first
9080	20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 20 64 65 66 61 6c 69	.important-return-value.t.defali
90a0	61 73 20 2d 66 69 6e 64 20 2d 2d 66 69 6e 64 20 2d 2d 66 69 72 73 74 5d 20 34 29 0a 28 64 65 66	as.-find.--find.--first].4).(def
90c0	61 6c 69 61 73 20 27 2d 2d 73 6f 6d 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c	alias.'--some.'(macro...#[514."\
90e0	33 30 30 5c 33 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 5c 33 30 35 06 06 06 09 45	300\301!\302.C\303.\304\305....E
9100	44 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 65 64 6c 65 22 20	DE.F\207".[make-symbol."needle".
9120	6c 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 6e 6f 74 20 73 65 74 71 5d 20 31 31 20 28 23	let.--each-while.not.setq].11.(#
9140	24 20 2e 20 33 36 36 31 36 29 5d 29 29 23 40 31 36 32 20 52 65 74 75 72 6e 20 28 50 52 45 44 20	$...36616)]))#@162.Return.(PRED.
9160	78 29 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 4c 49 53 54 20 69 74 65 6d 20 77 68 65 72 65	x).for.the.first.LIST.item.where
9180	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 65 20 6e 69 6c 2e 0a	.(PRED.x).is.non-nil,.else.nil..
91a0	0a 41 6c 69 61 73 3a 20 60 2d 61 6e 79 27 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73	.Alias:.`-any'...This.function's
91c0	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 73 6f 6d	.anaphoric.counterpart.is.`--som
91e0	65 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 73 6f 6d	e'...(fn.PRED.LIST)..(put.'--som
9200	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 29	e.'edebug-form-spec.'(form.form)
9220	29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6f 6d 65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c	).(defalias.'-some.#[514."\300.\
9240	33 30 31 5c 33 30 30 02 5c 32 30 33 1f 00 5c 32 31 30 01 5c 32 34 32 05 01 21 5c 32 31 31 5c 32	301\300.\203..\210.\242..!\211\2
9260	36 32 05 5c 32 30 34 1f 00 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 04 00 5c 32 36	62.\204...T\262..A\262.\202..\26
9280	36 03 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 33 37 32 30 33 29 5d 29	6.\207".[nil.0].8.(#$...37203)])
92a0	23 40 35 31 38 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	#@518.Return.non-nil.if.FORM.eva
92c0	6c 73 20 74 6f 20 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	ls.to.non-nil.for.all.items.in.L
92e0	49 53 54 2e 0a 49 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	IST..If.so,.return.the.last.such
9300	20 72 65 73 75 6c 74 20 6f 66 20 46 4f 52 4d 2e 20 20 4f 74 68 65 72 77 69 73 65 2c 20 6f 6e 63	.result.of.FORM...Otherwise,.onc
9320	65 20 61 6e 0a 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	e.an.item.is.reached.for.which.F
9340	4f 52 4d 20 79 69 65 6c 64 73 20 6e 69 6c 2c 20 72 65 74 75 72 6e 20 6e 69 6c 20 77 69 74 68 6f	ORM.yields.nil,.return.nil.witho
9360	75 74 0a 65 76 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	ut.evaluating.FORM.for.any.furth
9380	65 72 20 4c 49 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	er.LIST.elements..Each.element.o
93a0	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 60 69 74 27 20	f.LIST.in.turn.is.bound.to.`it'.
93c0	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 6f 20 60 69 74	and.its.index.within.LIST.to.`it
93e0	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 4f 52 4d 2e 0a	-index'.before.evaluating.FORM..
9400	0a 54 68 69 73 20 6d 61 63 72 6f 20 69 73 20 6c 69 6b 65 20 60 2d 2d 65 76 65 72 79 2d 70 27 2c	.This.macro.is.like.`--every-p',
9420	20 62 75 74 20 6f 6e 20 73 75 63 63 65 73 73 20 72 65 74 75 72 6e 73 20 74 68 65 20 6c 61 73 74	.but.on.success.returns.the.last
9440	0a 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 20 6f 66 20 46 4f 52 4d 20 69 6e 73 74 65 61 64 20	.non-nil.result.of.FORM.instead.
9460	6f 66 20 6a 75 73 74 20 74 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69	of.just.t...This.is.the.anaphori
9480	63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 65 76 65 72 79 27 2e 0a 0a 28 66 6e 20	c.counterpart.to.`-every'...(fn.
94a0	46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	FORM.LIST)..(byte-code."\300\301
94c0	5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 31 30 5c 33 30 34 5c	\302\303#\304\305\301\"\210\304\
94e0	33 30 36 5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 73 6f	306\307\"\207".[function-put.-so
9500	6d 65 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 20 64 65 66 61	me.important-return-value.t.defa
9520	6c 69 61 73 20 2d 61 6e 79 20 2d 2d 61 6e 79 20 2d 2d 73 6f 6d 65 5d 20 34 29 0a 28 64 65 66 61	lias.-any.--any.--some].4).(defa
9540	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 20 22 5c	lias.'--every.'(macro...#[514."\
9560	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 06 08 45	300\301!\302.\303BC\304.\305...E
9580	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 65 74 20	E.F\207".[make-symbol."all".let.
95a0	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 20 2e 20	(t).--each-while.setq].10.(#$...
95c0	33 37 35 34 32 29 5d 29 29 23 40 34 31 31 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66	37542)]))#@411.Return.non-nil.if
95e0	20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61 6c 6c 20 69 74	.PRED.returns.non-nil.for.all.it
9600	65 6d 73 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 6c	ems.in.LIST..If.so,.return.the.l
9620	61 73 74 20 73 75 63 68 20 72 65 73 75 6c 74 20 6f 66 20 50 52 45 44 2e 20 20 4f 74 68 65 72 77	ast.such.result.of.PRED...Otherw
9640	69 73 65 2c 20 6f 6e 63 65 20 61 6e 0a 69 74 65 6d 20 69 73 20 72 65 61 63 68 65 64 20 66 6f 72	ise,.once.an.item.is.reached.for
9660	20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 69 6c 2c 20 72 65 74 75 72 6e 20	.which.PRED.returns.nil,.return.
9680	6e 69 6c 20 77 69 74 68 6f 75 74 0a 63 61 6c 6c 69 6e 67 20 50 52 45 44 20 6f 6e 20 61 6e 79 20	nil.without.calling.PRED.on.any.
96a0	66 75 72 74 68 65 72 20 4c 49 53 54 20 65 6c 65 6d 65 6e 74 73 2e 0a 0a 54 68 69 73 20 66 75 6e	further.LIST.elements...This.fun
96c0	63 74 69 6f 6e 20 69 73 20 6c 69 6b 65 20 60 2d 65 76 65 72 79 2d 70 27 2c 20 62 75 74 20 6f 6e	ction.is.like.`-every-p',.but.on
96e0	20 73 75 63 63 65 73 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	.success.returns.the.last.non-ni
9700	6c 20 72 65 73 75 6c 74 20 6f 66 20 50 52 45 44 20 69 6e 73 74 65 61 64 20 6f 66 20 6a 75 73 74	l.result.of.PRED.instead.of.just
9720	20 74 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	.t...This.function's.anaphoric.c
9740	6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 65 76 65 72 79 27 2e 0a 0a 28 66 6e 20 50 52	ounterpart.is.`--every'...(fn.PR
9760	45 44 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 65 76 65 72 79 20 27 65 64 65 62 75 67 2d	ED.LIST)..(put.'--every.'edebug-
9780	66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61	form-spec.'(form.form)).(defalia
97a0	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 30 32 02 5c	s.'-every.#[514."\300.\301\302.\
97c0	32 30 33 1f 00 5c 32 31 30 01 5c 32 34 32 05 01 21 5c 32 31 31 5c 32 36 32 05 5c 32 30 33 1f 00	203..\210.\242..!\211\262.\203..
97e0	01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 04 00 5c 32 36 36 03 5c 32 30 37 22 20 5b	.T\262..A\262.\202..\266.\207".[
9800	74 20 30 20 6e 69 6c 5d 20 38 20 28 23 24 20 2e 20 33 38 33 35 31 29 5d 29 23 40 34 34 20 41 6e	t.0.nil].8.(#$...38351)])#@44.An
9820	61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20 46 4f	aphoric.form.of.`-last'...(fn.FO
9840	52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	RM.LIST)..(byte-code."\300\301\3
9860	30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d	02\303#\300\207".[function-put.-
9880	65 76 65 72 79 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20	every.important-return-value.t].
98a0	34 29 0a 28 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	4).(defalias.'--last.'(macro...#
98c0	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 06 07	[514."\300\301!\302.C\303.\304..
98e0	5c 33 30 35 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	\305..\306BBEE.F\207".[make-symb
9900	6f 6c 20 22 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	ol."needle".let.--each.when.setq
9920	20 28 69 74 29 5d 20 31 32 20 28 23 24 20 2e 20 33 38 39 34 32 29 5d 29 29 23 40 38 30 20 52 65	.(it)].12.(#$...38942)]))#@80.Re
9940	74 75 72 6e 20 74 68 65 20 6c 61 73 74 20 78 20 69 6e 20 4c 49 53 54 20 77 68 65 72 65 20 28 50	turn.the.last.x.in.LIST.where.(P
9960	52 45 44 20 78 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 6c 73 65 20 6e 69 6c 2e 0a 0a 28 66	RED.x).is.non-nil,.else.nil...(f
9980	6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 6c 61 73 74 20 27 65 64 65 62	n.PRED.LIST)..(put.'--last.'edeb
99a0	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 28 64 65 66 61	ug-form-spec.'(form.form)).(defa
99c0	6c 69 61 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 01 5c 32 30	lias.'-last.#[514."\300.\301.\20
99e0	33 1b 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 05 01 21 5c 32 30 33 16 00 5c 32 31 31 5c	3...\211A\262.\242..!\203..\211\
9a00	32 36 32 04 5c 32 31 30 54 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 30 37 22 20 5b 6e 69 6c 20 30	262.\210T\202..\266.\207".[nil.0
9a20	5d 20 38 20 28 23 24 20 2e 20 33 39 32 33 30 29 5d 29 23 40 31 31 34 20 52 65 74 75 72 6e 20 74	].8.(#$...39230)])#@114.Return.t
9a40	68 65 20 66 69 72 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	he.first.item.of.LIST,.or.nil.on
9a60	20 61 6e 20 65 6d 70 74 79 20 6c 69 73 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 65 63	.an.empty.list...See.also:.`-sec
9a80	6f 6e 64 2d 69 74 65 6d 27 2c 20 60 2d 6c 61 73 74 2d 69 74 65 6d 27 2c 20 65 74 63 2e 0a 0a 28	ond-item',.`-last-item',.etc...(
9aa0	66 6e 20 4c 49 53 54 29 1f 23 40 31 31 39 20 52 65 74 75 72 6e 20 74 68 65 20 73 65 63 6f 6e 64	fn.LIST).#@119.Return.the.second
9ac0	20 69 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	.item.of.LIST,.or.nil.if.LIST.is
9ae0	20 74 6f 6f 20 73 68 6f 72 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 69 72 73 74 2d 69	.too.short...See.also:.`-first-i
9b00	74 65 6d 27 2c 20 60 2d 74 68 69 72 64 2d 69 74 65 6d 27 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 4c	tem',.`-third-item',.etc...(fn.L
9b20	49 53 54 29 1f 23 40 31 32 30 20 52 65 74 75 72 6e 20 74 68 65 20 74 68 69 72 64 20 69 74 65 6d	IST).#@120.Return.the.third.item
9b40	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 6f 6f 20	.of.LIST,.or.nil.if.LIST.is.too.
9b60	73 68 6f 72 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 65 63 6f 6e 64 2d 69 74 65 6d 27	short...See.also:.`-second-item'
9b80	2c 20 60 2d 66 6f 75 72 74 68 2d 69 74 65 6d 27 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 4c 49 53 54	,.`-fourth-item',.etc...(fn.LIST
9ba0	29 1f 23 40 31 33 20 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 23 40 31 31 39 20 52 65 74 75 72 6e 20	).#@13...(fn.LIST).#@119.Return.
9bc0	74 68 65 20 66 6f 75 72 74 68 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20	the.fourth.item.of.LIST,.or.nil.
9be0	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 65 20 61 6c 73 6f 3a	if.LIST.is.too.short...See.also:
9c00	20 60 2d 74 68 69 72 64 2d 69 74 65 6d 27 2c 20 60 2d 66 69 66 74 68 2d 69 74 65 6d 27 2c 20 65	.`-third-item',.`-fifth-item',.e
9c20	74 63 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 23 40 31 31 38 20 52 65 74 75 72 6e 20 74 68 65 20	tc...(fn.LIST).#@118.Return.the.
9c40	66 69 66 74 68 20 69 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	fifth.item.of.LIST,.or.nil.if.LI
9c60	53 54 20 69 73 20 74 6f 6f 20 73 68 6f 72 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 6f	ST.is.too.short...See.also:.`-fo
9c80	75 72 74 68 2d 69 74 65 6d 27 2c 20 60 2d 6c 61 73 74 2d 69 74 65 6d 27 2c 20 65 74 63 2e 0a 0a	urth-item',.`-last-item',.etc...
9ca0	28 66 6e 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c	(fn.LIST)..(byte-code."\300\301\
9cc0	33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 23 5c 32 31 30 5c 33 31	302\303#\304\305\306\307#\210\31
9ce0	30 5c 33 30 35 5c 33 31 31 5c 33 31 32 23 5c 32 31 30 5c 33 31 30 5c 33 30 35 5c 33 31 33 5c 33	0\305\311\312#\210\310\305\313\3
9d00	31 34 23 5c 32 31 30 5c 33 31 30 5c 33 30 35 5c 33 31 35 5c 33 30 33 23 5c 32 31 30 5c 33 31 30	14#\210\310\305\315\303#\210\310
9d20	5c 33 30 35 5c 33 31 36 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 31 37 5c 33 32 30 5c 33 32	\305\316\303#\210\304\317\320\32
9d40	31 23 5c 32 31 30 5c 33 31 30 5c 33 31 37 5c 33 31 35 5c 33 30 33 23 5c 32 31 30 5c 33 31 30 5c	1#\210\310\317\315\303#\210\310\
9d60	33 31 37 5c 33 31 36 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 32 32 5c 33 32 33 5c 33 32 34	317\316\303#\210\304\322\323\324
9d80	21 5c 32 30 33 41 00 5c 33 32 34 5c 32 30 32 42 00 5c 33 32 35 5c 33 32 36 23 5c 32 31 30 5c 33	!\203A.\324\202B.\325\326#\210\3
9da0	31 30 5c 33 32 32 5c 33 31 35 5c 33 30 33 23 5c 32 31 30 5c 33 31 30 5c 33 32 32 5c 33 31 36 5c	10\322\315\303#\210\310\322\316\
9dc0	33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 32 37 5c 33 32 33 5c 33 33 30 21 5c 32 30 33 5d 00 5c	303#\210\304\327\323\330!\203].\
9de0	33 33 30 5c 32 30 32 5e 00 5c 33 33 31 5c 33 33 32 23 5c 32 31 30 5c 33 31 30 5c 33 32 37 5c 33	330\202^.\331\332#\210\310\327\3
9e00	31 35 5c 33 30 33 23 5c 32 31 30 5c 33 31 30 5c 33 32 37 5c 33 31 36 5c 33 30 33 23 5c 32 30 37	15\303#\210\310\327\316\303#\207
9e20	22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6c 61 73 74 20 69 6d 70 6f 72 74 61 6e 74 2d	".[function-put.-last.important-
9e40	72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 20 64 65 66 61 6c 69 61 73 20 2d 66 69 72 73 74 2d 69	return-value.t.defalias.-first-i
9e60	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 74 65 6d 20 6f	tem.car."Return.the.first.item.o
9e80	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 6c 69 73 74 2e	f.LIST,.or.nil.on.an.empty.list.
9ea0	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 27 2c 20 60 2d	\n\nSee.also:.`-second-item',.`-
9ec0	6c 61 73 74 2d 69 74 65 6d 27 2c 20 65 74 63 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 20 70	last-item',.etc.\n\n(fn.LIST)".p
9ee0	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
9f00	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 70 75 72 65 20 73	pile.byte-compile-one-arg.pure.s
9f20	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 2d 73 65 63 6f 6e 64 2d 69 74 65 6d 20 63 61 64	ide-effect-free.-second-item.cad
9f40	72 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 69 74 65 6d 20 6f 66 20 4c 49 53	r."Return.the.second.item.of.LIS
9f60	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 68 6f 72 74 2e 5c	T,.or.nil.if.LIST.is.too.short.\
9f80	6e 5c 6e 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 69 72 73 74 2d 69 74 65 6d 27 2c 20 60 2d 74 68	n\nSee.also:.`-first-item',.`-th
9fa0	69 72 64 2d 69 74 65 6d 27 2c 20 65 74 63 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 20 2d 74	ird-item',.etc.\n\n(fn.LIST)".-t
9fc0	68 69 72 64 2d 69 74 65 6d 20 66 62 6f 75 6e 64 70 20 63 61 64 64 72 20 23 5b 32 35 37 20 22 5c	hird-item.fboundp.caddr.#[257."\
9fe0	32 31 31 41 41 40 5c 32 30 37 22 20 23 31 3d 5b 5d 20 32 20 28 23 24 20 2e 20 33 39 38 34 37 29	211AA@\207".#1=[].2.(#$...39847)
a000	5d 20 22 52 65 74 75 72 6e 20 74 68 65 20 74 68 69 72 64 20 69 74 65 6d 20 6f 66 20 4c 49 53 54	]."Return.the.third.item.of.LIST
a020	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 68 6f 72 74 2e 5c 6e	,.or.nil.if.LIST.is.too.short.\n
a040	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 27 2c 20 60 2d 66 6f	\nSee.also:.`-second-item',.`-fo
a060	75 72 74 68 2d 69 74 65 6d 27 2c 20 65 74 63 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 20 2d	urth-item',.etc.\n\n(fn.LIST)".-
a080	66 6f 75 72 74 68 2d 69 74 65 6d 20 63 61 64 64 64 72 20 23 5b 32 35 37 20 22 5c 32 31 31 41 41	fourth-item.cadddr.#[257."\211AA
a0a0	41 40 5c 32 30 37 22 20 23 31 23 20 32 20 28 23 24 20 2e 20 33 39 38 34 37 29 5d 20 22 52 65 74	A@\207".#1#.2.(#$...39847)]."Ret
a0c0	75 72 6e 20 74 68 65 20 66 6f 75 72 74 68 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20	urn.the.fourth.item.of.LIST,.or.
a0e0	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 5c 6e 5c 6e 53 65 65	nil.if.LIST.is.too.short.\n\nSee
a100	20 61 6c 73 6f 3a 20 60 2d 74 68 69 72 64 2d 69 74 65 6d 27 2c 20 60 2d 66 69 66 74 68 2d 69 74	.also:.`-third-item',.`-fifth-it
a120	65 6d 27 2c 20 65 74 63 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 5d 20 35 29 0a 28 64 65 66	em',.etc.\n\n(fn.LIST)"].5).(def
a140	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 5c 32 31 31 41 41	alias.'-fifth-item.#[257."\211AA
a160	41 41 40 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 33 39 39 38 39 29 5d 29 23 40 39 38	AA@\207".[].2.(#$...39989)])#@98
a180	20 52 65 74 75 72 6e 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f	.Return.the.last.item.of.LIST,.o
a1a0	72 20 6e 69 6c 20 6f 6e 20 61 6e 20 65 6d 70 74 79 20 6c 69 73 74 2e 0a 0a 53 65 65 20 61 6c 73	r.nil.on.an.empty.list...See.als
a1c0	6f 3a 20 60 2d 66 69 72 73 74 2d 69 74 65 6d 27 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 4c 49 53 54	o:.`-first-item',.etc...(fn.LIST
a1e0	29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23	)..(byte-code."\300\301\302\303#
a200	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
a220	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
a240	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 61 73	-effect-free].5).(defalias.'-las
a260	74 2d 69 74 65 6d 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 40 5c 32 30 37 22 20 5b 6c 61 73 74	t-item.#[257."\300.!@\207".[last
a280	5d 20 33 20 28 23 24 20 2e 20 34 31 33 34 35 29 5d 29 23 40 32 32 20 0a 0a 28 66 6e 20 44 4f 20	].3.(#$...41345)])#@22...(fn.DO.
a2a0	26 72 65 73 74 20 41 52 47 53 29 1f 23 40 31 34 20 0a 0a 28 66 6e 20 56 41 4c 20 58 29 1f 23 40	&rest.ARGS).#@14...(fn.VAL.X).#@
a2c0	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 69 6e	68.Return.a.list.of.all.items.in
a2e0	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 6e 20	.list.except.for.the.last...(fn.
a300	4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	LIST)..(byte-code."\300\301\302\
a320	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 33 30 31 5c 33 30	303#\300\301\304\303#\300\301\30
a340	35 5c 33 30 36 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 6c	5\306#\300\207".[function-put.-l
a360	61 73 74 2d 69 74 65 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	ast-item.pure.t.side-effect-free
a380	20 67 76 2d 65 78 70 61 6e 64 65 72 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	.gv-expander.#[385."\300\301\302
a3a0	04 04 24 5c 32 30 37 22 20 5b 67 76 2d 2d 64 65 66 73 65 74 74 65 72 20 2d 6c 61 73 74 2d 69 74	..$\207".[gv--defsetter.-last-it
a3c0	65 6d 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 44 03 45 5c 32 30 37 22 20 5b 73 65 74	em.#[514."\300\301.D.E\207".[set
a3e0	63 61 72 20 6c 61 73 74 5d 20 35 20 28 23 24 20 2e 20 34 31 36 34 39 29 5d 5d 20 37 20 28 23 24	car.last].5.(#$...41649)]].7.(#$
a400	20 2e 20 34 31 36 32 33 29 5d 5d 20 36 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 62 75 74 6c 61	...41623)]].6).(defalias.'-butla
a420	73 74 20 23 5b 32 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	st.#[257."\300.!\207".[butlast].
a440	33 20 28 23 24 20 2e 20 34 31 36 36 37 29 5d 29 23 40 34 35 20 41 6e 61 70 68 6f 72 69 63 20 66	3.(#$...41667)])#@45.Anaphoric.f
a460	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 20 4c 49 53 54 29	orm.of.`-count'...(fn.PRED.LIST)
a480	1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	..(byte-code."\300\301\302\303#\
a4a0	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
a4c0	69 6f 6e 2d 70 75 74 20 2d 62 75 74 6c 61 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66	ion-put.-butlast.pure.t.side-eff
a4e0	65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 63 6f 75 6e 74 20	ect-free].5).(defalias.'--count.
a500	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 5c	'(macro...#[514."\300\301!\302.\
a520	33 30 33 42 43 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	303BC\304.\305..\306..\307..DEEE
a540	03 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	.F\207".[make-symbol."result".le
a560	74 20 28 30 29 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	t.(0).--each.when.setq.1+].13.(#
a580	24 20 2e 20 34 32 30 36 39 29 5d 29 29 23 40 38 32 20 43 6f 75 6e 74 73 20 74 68 65 20 6e 75 6d	$...42069)]))#@82.Counts.the.num
a5a0	62 65 72 20 6f 66 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 77 68 65 72 65 20 28 50 52 45 44	ber.of.items.in.LIST.where.(PRED
a5c0	20 69 74 65 6d 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53	.item).is.non-nil...(fn.PRED.LIS
a5e0	54 29 1f 0a 28 70 75 74 20 27 2d 2d 63 6f 75 6e 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73	T)..(put.'--count.'edebug-form-s
a600	70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f	pec.'(form.form)).(defalias.'-co
a620	75 6e 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 30 01 5c 32 30 33 1c 00 01 5c 32 31 31	unt.#[514."\300.\300.\203...\211
a640	41 5c 32 36 32 03 5c 32 34 32 05 01 21 5c 32 30 33 17 00 03 54 5c 32 36 32 04 5c 32 31 30 54 5c	A\262.\242..!\203...T\262.\210T\
a660	32 30 32 03 00 5c 32 36 36 02 5c 32 30 37 22 20 5b 30 5d 20 38 20 28 23 24 20 2e 20 34 32 33 38	202..\266.\207".[0].8.(#$...4238
a680	36 29 5d 29 23 40 35 33 20 52 65 74 75 72 6e 20 4f 42 4a 20 61 73 20 61 20 62 6f 6f 6c 65 61 6e	6)])#@53.Return.OBJ.as.a.boolean
a6a0	20 76 61 6c 75 65 20 28 74 20 6f 72 20 6e 69 6c 29 2e 0a 0a 28 66 6e 20 4f 42 4a 29 1f 0a 28 62	.value.(t.or.nil)...(fn.OBJ)..(b
a6c0	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\
a6e0	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 75 6e 74 20 69 6d 70 6f 72 74	207".[function-put.-count.import
a700	61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73	ant-return-value.t].4).(defalias
a720	20 27 2d 2d 2d 74 72 75 74 68 79 3f 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 35 05 00 5c 33	.'---truthy?.#[257."\211\205..\3
a740	30 30 5c 32 30 37 22 20 5b 74 5d 20 32 20 28 23 24 20 2e 20 34 32 36 33 33 29 5d 29 23 40 34 34	00\207".[t].2.(#$...42633)])#@44
a760	20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 61 6e 79 3f 27 2e 0a 0a 28 66 6e	.Anaphoric.form.of.`-any?'...(fn
a780	20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	.FORM.LIST)..(byte-code."\300\30
a7a0	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 33 30 30 5c	1\302\303#\300\301\304\305#\300\
a7c0	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 2d 2d 74 72 75 74 68 79 3f 20 70 75	207".[function-put.---truthy?.pu
a7e0	72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65	re.t.side-effect-free.error-free
a800	5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 61 6e 79 3f 20 27 28 6d 61 63 72 6f 20 2e	].5).(defalias.'--any?.'(macro..
a820	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 32 30 37 22 20 5b	.#[514."\300\301..E\302BB\207".[
a840	61 6e 64 20 2d 2d 73 6f 6d 65 20 28 74 29 5d 20 36 20 28 23 24 20 2e 20 34 32 38 34 39 29 5d 29	and.--some.(t)].6.(#$...42849)])
a860	29 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 29 20 69 73 20 6e	)#@116.Return.t.if.(PRED.X).is.n
a880	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 65 6c 73 65 20 6e	on-nil.for.any.X.in.LIST,.else.n
a8a0	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 6d 65 3f 27 2c 20	il...Alias:.`-any-p',.`-some?',.
a8c0	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 0a 28 70 75 74 20	`-some-p'..(fn.PRED.LIST)..(put.
a8e0	27 2d 2d 61 6e 79 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	'--any?.'edebug-form-spec.'(form
a900	20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 6e 79 3f 20 23 5b 35 31 34 20 22	.form)).(defalias.'-any?.#[514."
a920	5c 33 30 30 01 5c 33 30 31 5c 33 30 30 02 5c 32 30 33 1f 00 5c 32 31 30 01 5c 32 34 32 05 01 21	\300.\301\300.\203..\210.\242..!
a940	5c 32 31 31 5c 32 36 32 05 5c 32 30 34 1f 00 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30	\211\262.\204...T\262..A\262.\20
a960	32 04 00 5c 32 36 36 03 5c 32 30 35 25 00 5c 33 30 32 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20 74	2..\266.\205%.\302\207".[nil.0.t
a980	5d 20 38 20 28 23 24 20 2e 20 34 33 31 31 31 29 5d 29 23 40 35 33 34 20 52 65 74 75 72 6e 20 74	].8.(#$...43111)])#@534.Return.t
a9a0	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 66 6f 72 20 61 6c	.if.FORM.evals.to.non-nil.for.al
a9c0	6c 20 69 74 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	l.items.in.LIST..Otherwise,.once
a9e0	20 61 6e 20 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	.an.item.is.reached.for.which.FO
aa00	52 4d 20 79 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	RM.yields.nil,.return.nil.withou
aa20	74 20 65 76 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	t.evaluating.FORM.for.any.furthe
aa40	72 20 4c 49 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	r.LIST.elements..Each.element.of
aa60	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 60 69 74 27 20 61	.LIST.in.turn.is.bound.to.`it'.a
aa80	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 6f 20 60 69 74 2d	nd.its.index.within.LIST.to.`it-
aaa0	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 4f 52 4d 2e 0a 0a	index'.before.evaluating.FORM...
aac0	54 68 65 20 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	The.similar.macro.`--every'.is.m
aae0	6f 72 65 20 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	ore.widely.useful,.since.it.retu
ab00	72 6e 73 20 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	rns.the.last.non-nil.result.of.F
ab20	4f 52 4d 20 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	ORM.instead.of.just.t.on.success
ab40	2e 0a 0a 41 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	...Alias:.`--all-p',.`--every-p'
ab60	2c 20 60 2d 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	,.`--every?'...This.is.the.anaph
ab80	6f 72 69 63 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	oric.counterpart.to.`-all?'...(f
aba0	6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	n.FORM.LIST)..(byte-code."\300\3
abc0	30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 31 30 5c 33 30	01\302\303#\304\305\301\"\210\30
abe0	34 5c 33 30 36 5c 33 30 37 5c 22 5c 32 31 30 5c 33 30 34 5c 33 31 30 5c 33 30 31 5c 22 5c 32 31	4\306\307\"\210\304\310\301\"\21
ac00	30 5c 33 30 34 5c 33 31 31 5c 33 30 37 5c 22 5c 32 31 30 5c 33 30 34 5c 33 31 32 5c 33 30 31 5c	0\304\311\307\"\210\304\312\301\
ac20	22 5c 32 31 30 5c 33 30 34 5c 33 31 33 5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69	"\210\304\313\307\"\207".[functi
ac40	6f 6e 2d 70 75 74 20 2d 61 6e 79 3f 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61	on-put.-any?.important-return-va
ac60	6c 75 65 20 74 20 64 65 66 61 6c 69 61 73 20 2d 73 6f 6d 65 3f 20 2d 2d 73 6f 6d 65 3f 20 2d 2d	lue.t.defalias.-some?.--some?.--
ac80	61 6e 79 3f 20 2d 61 6e 79 2d 70 20 2d 2d 61 6e 79 2d 70 20 2d 73 6f 6d 65 2d 70 20 2d 2d 73 6f	any?.-any-p.--any-p.-some-p.--so
aca0	6d 65 2d 70 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 61 6c 6c 3f 20 27 28 6d 61 63	me-p].4).(defalias.'--all?.'(mac
acc0	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 32 30	ro...#[514."\300\301..E\302BB\20
ace0	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 34 33 34	7".[and.--every.(t)].6.(#$...434
ad00	31 36 29 5d 29 29 23 40 34 33 31 20 52 65 74 75 72 6e 20 74 20 69 66 20 28 50 52 45 44 20 58 29	16)]))#@431.Return.t.if.(PRED.X)
ad20	20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61 6c 6c 20 58 20 69 6e 20 4c 49 53 54 2c 20 65	.is.non-nil.for.all.X.in.LIST,.e
ad40	6c 73 65 20 6e 69 6c 2e 0a 49 6e 20 74 68 65 20 6c 61 74 74 65 72 20 63 61 73 65 2c 20 73 74 6f	lse.nil..In.the.latter.case,.sto
ad60	70 20 61 66 74 65 72 20 74 68 65 20 66 69 72 73 74 20 58 20 66 6f 72 20 77 68 69 63 68 20 28 50	p.after.the.first.X.for.which.(P
ad80	52 45 44 20 58 29 20 69 73 0a 6e 69 6c 2c 20 77 69 74 68 6f 75 74 20 63 61 6c 6c 69 6e 67 20 50	RED.X).is.nil,.without.calling.P
ada0	52 45 44 20 6f 6e 20 61 6e 79 20 73 75 62 73 65 71 75 65 6e 74 20 65 6c 65 6d 65 6e 74 73 20 6f	RED.on.any.subsequent.elements.o
adc0	66 20 4c 49 53 54 2e 0a 0a 54 68 65 20 73 69 6d 69 6c 61 72 20 66 75 6e 63 74 69 6f 6e 20 60 2d	f.LIST...The.similar.function.`-
ade0	65 76 65 72 79 27 20 69 73 20 6d 6f 72 65 20 77 69 64 65 6c 79 20 75 73 65 66 75 6c 2c 20 73 69	every'.is.more.widely.useful,.si
ae00	6e 63 65 20 69 74 0a 72 65 74 75 72 6e 73 20 74 68 65 20 6c 61 73 74 20 6e 6f 6e 2d 6e 69 6c 20	nce.it.returns.the.last.non-nil.
ae20	72 65 73 75 6c 74 20 6f 66 20 50 52 45 44 20 69 6e 73 74 65 61 64 20 6f 66 20 6a 75 73 74 20 74	result.of.PRED.instead.of.just.t
ae40	20 6f 6e 0a 73 75 63 63 65 73 73 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 61 6c 6c 2d 70 27 2c 20 60	.on.success...Alias:.`-all-p',.`
ae60	2d 65 76 65 72 79 2d 70 27 2c 20 60 2d 65 76 65 72 79 3f 27 2e 0a 0a 54 68 69 73 20 66 75 6e 63	-every-p',.`-every?'...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 61 6c 6c 3f 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 70 75 74 20	`--all?'...(fn.PRED.LIST)..(put.
aec0	27 2d 2d 61 6c 6c 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	'--all?.'edebug-form-spec.'(form
aee0	20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 6c 6c 3f 20 23 5b 35 31 34 20 22	.form)).(defalias.'-all?.#[514."
af00	5c 33 30 30 01 5c 33 30 31 5c 33 30 32 02 5c 32 30 33 1f 00 5c 32 31 30 01 5c 32 34 32 05 01 21	\300.\301\302.\203..\210.\242..!
af20	5c 32 31 31 5c 32 36 32 05 5c 32 30 33 1f 00 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30	\211\262.\203...T\262..A\262.\20
af40	32 04 00 5c 32 36 36 03 5c 32 30 35 25 00 5c 33 30 30 5c 32 30 37 22 20 5b 74 20 30 20 6e 69 6c	2..\266.\205%.\300\207".[t.0.nil
af60	5d 20 38 20 28 23 24 20 2e 20 34 34 33 30 30 29 5d 29 23 40 34 35 20 41 6e 61 70 68 6f 72 69 63	].8.(#$...44300)])#@45.Anaphoric
af80	20 66 6f 72 6d 20 6f 66 20 60 2d 6e 6f 6e 65 3f 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53	.form.of.`-none?'...(fn.FORM.LIS
afa0	54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	T)..(byte-code."\300\301\302\303
afc0	23 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 31 30 5c 33 30 34 5c 33 30 36 5c 33 30 37 5c	#\304\305\301\"\210\304\306\307\
afe0	22 5c 32 31 30 5c 33 30 34 5c 33 31 30 5c 33 30 31 5c 22 5c 32 31 30 5c 33 30 34 5c 33 31 31 5c	"\210\304\310\301\"\210\304\311\
b000	33 30 37 5c 22 5c 32 31 30 5c 33 30 34 5c 33 31 32 5c 33 30 31 5c 22 5c 32 31 30 5c 33 30 34 5c	307\"\210\304\312\301\"\210\304\
b020	33 31 33 5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 61 6c	313\307\"\207".[function-put.-al
b040	6c 3f 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 20 64 65 66 61	l?.important-return-value.t.defa
b060	6c 69 61 73 20 2d 65 76 65 72 79 3f 20 2d 2d 65 76 65 72 79 3f 20 2d 2d 61 6c 6c 3f 20 2d 61 6c	lias.-every?.--every?.--all?.-al
b080	6c 2d 70 20 2d 2d 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	l-p.--all-p.-every-p.--every-p].
b0a0	34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6e 6f 6e 65 3f 20 27 28 6d 61 63 72 6f 20 2e 20	4).(defalias.'--none?.'(macro...
b0c0	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 61 6c 6c 3f	#[514."\300\301.D.E\207".[--all?
b0e0	20 6e 6f 74 5d 20 35 20 28 23 24 20 2e 20 34 34 39 31 39 29 5d 29 29 23 40 39 32 20 52 65 74 75	.not].5.(#$...44919)]))#@92.Retu
b100	72 6e 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	rn.t.if.(PRED.X).is.nil.for.all.
b120	58 20 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	X.in.LIST,.else.nil...Alias:.`-n
b140	6f 6e 65 2d 70 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d	one-p'..(fn.PRED.LIST)..(put.'--
b160	6e 6f 6e 65 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 66	none?.'edebug-form-spec.'(form.f
b180	6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6e 6f 6e 65 3f 20 23 5b 35 31 34 20 22 5c	orm)).(defalias.'-none?.#[514."\
b1a0	33 30 30 01 5c 33 30 31 5c 33 30 32 02 5c 32 30 33 20 00 5c 32 31 30 01 5c 32 34 32 05 01 21 3f	300.\301\302.\203..\210.\242..!?
b1c0	5c 32 31 31 5c 32 36 32 05 5c 32 30 33 20 00 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30	\211\262.\203...T\262..A\262.\20
b1e0	32 04 00 5c 32 36 36 03 5c 32 30 35 26 00 5c 33 30 30 5c 32 30 37 22 20 5b 74 20 30 20 6e 69 6c	2..\266.\205&.\300\207".[t.0.nil
b200	5d 20 38 20 28 23 24 20 2e 20 34 35 33 30 38 29 5d 29 23 40 35 30 20 41 6e 61 70 68 6f 72 69 63	].8.(#$...45308)])#@50.Anaphoric
b220	20 66 6f 72 6d 20 6f 66 20 60 2d 6f 6e 6c 79 2d 73 6f 6d 65 3f 27 2e 0a 0a 28 66 6e 20 46 4f 52	.form.of.`-only-some?'...(fn.FOR
b240	4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	M.LIST)..(byte-code."\300\301\30
b260	32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 31 30 5c 33 30 34 5c 33 30 36	2\303#\304\305\301\"\210\304\306
b280	5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6e 6f 6e 65 3f	\307\"\207".[function-put.-none?
b2a0	20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 20 64 65 66 61 6c 69	.important-return-value.t.defali
b2c0	61 73 20 2d 6e 6f 6e 65 2d 70 20 2d 2d 6e 6f 6e 65 2d 70 20 2d 2d 6e 6f 6e 65 3f 5d 20 34 29 0a	as.-none-p.--none-p.--none?].4).
b2e0	28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 3f 20 27 28 6d 61 63 72 6f 20	(defalias.'--only-some?.'(macro.
b300	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 33 02	..#[514."\300\301!\300\302!\303.
b320	02 44 5c 33 30 34 05 5c 33 30 35 5c 33 30 36 06 07 06 07 45 44 5c 33 30 37 06 09 5c 33 31 30 06	.D\304.\305\306....ED\307..\310.
b340	09 5c 33 31 31 42 42 5c 33 31 30 06 09 5c 33 31 32 42 42 46 46 5c 33 31 33 5c 33 30 36 06 06 06	.\311BB\310..\312BBFF\313\306...
b360	06 45 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 79 65 73 22 20 22 6e 6f	.EDF\207".[make-symbol."yes"."no
b380	22 20 6c 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 6e 6f 74 20 61 6e 64 20 69 66 20 73 65	".let.--each-while.not.and.if.se
b3a0	74 71 20 28 74 29 20 28 74 29 20 2d 2d 2d 74 72 75 74 68 79 3f 5d 20 31 35 20 28 23 24 20 2e 20	tq.(t).(t).---truthy?].15.(#$...
b3c0	34 35 35 39 31 29 5d 29 29 23 40 32 38 34 20 52 65 74 75 72 6e 20 74 20 69 66 20 64 69 66 66 65	45591)]))#@284.Return.t.if.diffe
b3e0	72 65 6e 74 20 4c 49 53 54 20 69 74 65 6d 73 20 62 6f 74 68 20 73 61 74 69 73 66 79 20 61 6e 64	rent.LIST.items.both.satisfy.and
b400	20 64 6f 20 6e 6f 74 20 73 61 74 69 73 66 79 20 50 52 45 44 2e 0a 54 68 61 74 20 69 73 2c 20 69	.do.not.satisfy.PRED..That.is,.i
b420	66 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 62 6f 74 68 20 6e 69 6c 20 66 6f 72 20 61 74 20 6c	f.PRED.returns.both.nil.for.at.l
b440	65 61 73 74 20 6f 6e 65 20 69 74 65 6d 2c 20 61 6e 64 0a 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61	east.one.item,.and.non-nil.for.a
b460	74 20 6c 65 61 73 74 20 6f 6e 65 20 6f 74 68 65 72 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2e 20	t.least.one.other.item.in.LIST..
b480	20 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 61 6c 6c 0a 69 74 65 6d 73 20 73 61 74 69 73 66 79	.Return.nil.if.all.items.satisfy
b4a0	20 74 68 65 20 70 72 65 64 69 63 61 74 65 20 6f 72 20 6e 6f 6e 65 20 6f 66 20 74 68 65 6d 20 64	.the.predicate.or.none.of.them.d
b4c0	6f 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 27 0a 0a 28 66 6e 20 50	o...Alias:.`-only-some-p'..(fn.P
b4e0	52 45 44 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 3f 20 27 65	RED.LIST)..(put.'--only-some?.'e
b500	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 0a 28 64	debug-form-spec.'(form.form)).(d
b520	65 66 61 6c 69 61 73 20 27 2d 6f 6e 6c 79 2d 73 6f 6d 65 3f 20 23 5b 35 31 34 20 22 5c 33 30 30	efalias.'-only-some?.#[514."\300
b540	5c 32 31 31 02 5c 33 30 31 5c 33 30 30 02 5c 32 30 33 2f 00 5c 32 31 30 01 5c 32 34 32 04 5c 32	\211.\301\300.\203/.\210.\242.\2
b560	30 33 14 00 03 5c 32 30 34 2f 00 06 06 01 21 5c 32 30 33 21 00 5c 33 30 32 5c 32 36 32 05 5c 32	03...\204/....!\203!.\302\262.\2
b580	30 32 24 00 5c 33 30 32 5c 32 36 32 04 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 05	02$.\302\262..T\262..A\262.\202.
b5a0	00 5c 32 36 36 03 5c 33 30 33 02 5c 32 30 35 37 00 01 21 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20	.\266.\303.\2057..!\207".[nil.0.
b5c0	74 20 2d 2d 2d 74 72 75 74 68 79 3f 5d 20 39 20 28 23 24 20 2e 20 34 36 30 33 31 29 5d 29 23 40	t.---truthy?].9.(#$...46031)])#@
b5e0	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 74 69 6e	287.Return.copy.of.LIST,.startin
b600	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 2e 0a 0a	g.from.index.FROM.to.index.TO...
b620	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 54 68 65	FROM.or.TO.may.be.negative...The
b640	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 64 0a 6d	se.values.are.then.interpreted.m
b660	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 0a 0a 49	odulo.the.length.of.the.list...I
b680	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 20 53 54	f.STEP.is.a.number,.only.each.ST
b6a0	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 63 74 69	EPth.item.in.the.resulting.secti
b6c0	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 31 2e 0a	on.is.returned...Defaults.to.1..
b6e0	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 54 45 50	.(fn.LIST.FROM.&optional.TO.STEP
b700	29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23	)..(byte-code."\300\301\302\303#
b720	5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 31 30 5c 33 30 34 5c 33 30 36 5c 33 30 37 5c 22	\304\305\301\"\210\304\306\307\"
b740	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6f 6e 6c 79 2d 73 6f 6d 65 3f 20	\207".[function-put.-only-some?.
b760	69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 20 64 65 66 61 6c 69 61	important-return-value.t.defalia
b780	73 20 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 20 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 20 2d 2d 6f	s.-only-some-p.--only-some-p.--o
b7a0	6e 6c 79 2d 73 6f 6d 65 3f 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6c 69 63 65 20	nly-some?].4).(defalias.'-slice.
b7c0	23 5b 31 30 32 36 20 22 03 47 5c 33 30 30 03 5c 32 30 36 08 00 01 5c 32 36 32 04 02 5c 32 30 36	#[1026.".G\300.\206...\262..\206
b7e0	0f 00 5c 33 30 31 5c 32 36 32 03 04 5c 33 30 32 57 5c 32 30 33 1d 00 5c 33 30 33 05 03 5c 22 5c	..\301\262..\302W\203..\303..\"\
b800	32 36 32 05 03 5c 33 30 32 57 5c 32 30 33 29 00 5c 33 30 33 04 03 5c 22 5c 32 36 32 04 05 5c 33	262..\302W\203).\303..\"\262..\3
b820	30 32 5c 33 30 30 02 5c 32 30 33 5e 00 5c 32 31 30 01 5c 32 34 32 01 06 07 57 5c 32 30 33 5e 00	02\300.\203^.\210.\242...W\203^.
b840	01 06 08 59 5c 32 30 33 53 00 5c 33 30 33 06 08 03 5a 06 07 5c 22 5c 33 30 32 55 5c 32 30 33 53	...Y\203S.\303...Z..\"\302U\203S
b860	00 5c 32 31 31 04 42 5c 32 36 32 04 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 2c 00	.\211.B\262..T\262..A\262.\202,.
b880	5c 32 36 36 03 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 31 20 30 20 6d 6f 64 5d 20 31 32 20	\266.\237\207".[nil.1.0.mod].12.
b8a0	28 23 24 20 2e 20 34 36 35 36 34 29 5d 29 23 40 33 35 30 20 54 61 6b 65 20 73 75 63 63 65 73 73	(#$...46564)])#@350.Take.success
b8c0	69 76 65 20 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 46 4f	ive.items.from.LIST.for.which.FO
b8e0	52 4d 20 65 76 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	RM.evals.to.non-nil..Each.elemen
b900	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 60 69	t.of.LIST.in.turn.is.bound.to.`i
b920	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 6f 20	t'.and.its.index.within.LIST.to.
b940	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 4f 52	`it-index'.before.evaluating.FOR
b960	4d 2e 20 20 52 65 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	M...Return.a.new.list.of.the.suc
b980	63 65 73 73 69 76 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	cessive.elements.from.the.start.
b9a0	6f 66 20 4c 49 53 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	of.LIST.for.which.FORM.evaluates
b9c0	20 74 6f 20 6e 6f 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	.to.non-nil..This.is.the.anaphor
b9e0	69 63 20 63 6f 75 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	ic.counterpart.to.`-take-while'.
ba00	0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	..(fn.FORM.LIST)..(byte-code."\3
ba20	30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69	00\301\302\303#\300\207".[functi
ba40	6f 6e 2d 70 75 74 20 2d 73 6c 69 63 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74	on-put.-slice.side-effect-free.t
ba60	5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 61 6b 65 2d 77 68 69 6c 65 20 27 28 6d	].4).(defalias.'--take-while.'(m
ba80	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 43 5c 33 30	acro...#[514."\300\301!\302.C\30
baa0	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 30 37 22 20 5b 6d 61	3...\304\305..EF\306.DF\207".[ma
bac0	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 63 68 2d 77 68	ke-symbol."result".let.--each-wh
bae0	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 28 23 24 20 2e 20 34	ile.push.it.nreverse].11.(#$...4
bb00	37 32 38 34 29 5d 29 29 23 40 33 32 32 20 54 61 6b 65 20 73 75 63 63 65 73 73 69 76 65 20 69 74	7284)]))#@322.Take.successive.it
bb20	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 65 74	ems.from.LIST.for.which.PRED.ret
bb40	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 6f 6e	urns.non-nil..PRED.is.a.function
bb60	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 61 20 6e 65 77 20	.of.one.argument...Return.a.new.
bb80	6c 69 73 74 20 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	list.of.the.successive.elements.
bba0	66 72 6f 6d 20 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	from.the.start.of.LIST.for.which
bbc0	20 50 52 45 44 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	.PRED.returns.non-nil...This.fun
bbe0	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 69 73	ction's.anaphoric.counterpart.is
bc00	20 60 2d 2d 74 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	.`--take-while'...For.another.va
bc20	72 69 61 6e 74 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	riant,.see.also.`-drop-while'...
bc40	28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 74 61 6b 65 2d 77 68 69	(fn.PRED.LIST)..(put.'--take-whi
bc60	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
bc80	29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 6b 65 2d 77 68 69 6c 65 20 23 5b 35 31 34 20	)).(defalias.'-take-while.#[514.
bca0	22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 02 5c 32 30 33 21 00 5c 32 31 30 01 5c 32 34 32 05 01	"\300.\301\300.\203!.\210.\242..
bcc0	21 5c 32 30 33 21 00 5c 32 31 31 04 42 5c 32 36 32 04 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03	!\203!.\211.B\262..T\262..A\262.
bce0	5c 32 30 32 04 00 5c 32 36 36 03 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28	\202..\266.\237\207".[nil.0].8.(
bd00	23 24 20 2e 20 34 37 38 38 36 29 5d 29 23 40 33 34 37 20 44 72 6f 70 20 73 75 63 63 65 73 73 69	#$...47886)])#@347.Drop.successi
bd20	76 65 20 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 46 4f 52	ve.items.from.LIST.for.which.FOR
bd40	4d 20 65 76 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	M.evals.to.non-nil..Each.element
bd60	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 60 69 74	.of.LIST.in.turn.is.bound.to.`it
bd80	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 6f 20 60	'.and.its.index.within.LIST.to.`
bda0	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 4f 52 4d	it-index'.before.evaluating.FORM
bdc0	2e 20 20 52 65 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	...Return.the.tail.(not.a.copy).
bde0	6f 66 20 4c 49 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	of.LIST.starting.from.its.first.
be00	65 6c 65 6d 65 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	element.for.which.FORM.evaluates
be20	20 74 6f 20 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	.to.nil..This.is.the.anaphoric.c
be40	6f 75 6e 74 65 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	ounterpart.to.`-drop-while'...(f
be60	6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	n.FORM.LIST)..(byte-code."\300\3
be80	30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70	01\302\303#\300\207".[function-p
bea0	75 74 20 2d 74 61 6b 65 2d 77 68 69 6c 65 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d	ut.-take-while.important-return-
bec0	76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 64 72 6f 70 2d 77 68	value.t].4).(defalias.'--drop-wh
bee0	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
bf00	30 32 01 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	02..DC\303...\304..DF.F\207".[ma
bf20	6b 65 2d 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	ke-symbol."list".let.--each-whil
bf40	65 20 70 6f 70 5d 20 31 30 20 28 23 24 20 2e 20 34 38 34 30 33 29 5d 29 29 23 40 33 31 39 20 44	e.pop].10.(#$...48403)]))#@319.D
bf60	72 6f 70 20 73 75 63 63 65 73 73 69 76 65 20 69 74 65 6d 73 20 66 72 6f 6d 20 4c 49 53 54 20 66	rop.successive.items.from.LIST.f
bf80	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 2e 0a 50	or.which.PRED.returns.non-nil..P
bfa0	52 45 44 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	RED.is.a.function.of.one.argumen
bfc0	74 2e 20 20 52 65 74 75 72 6e 20 74 68 65 20 74 61 69 6c 20 28 6e 6f 74 20 61 20 63 6f 70 79 29	t...Return.the.tail.(not.a.copy)
bfe0	0a 6f 66 20 4c 49 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	.of.LIST.starting.from.its.first
c000	20 65 6c 65 6d 65 6e 74 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 0a	.element.for.which.PRED.returns.
c020	6e 69 6c 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	nil...This.function's.anaphoric.
c040	63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 64 72 6f 70 2d 77 68 69 6c 65 27 2e 0a 0a	counterpart.is.`--drop-while'...
c060	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 2d	For.another.variant,.see.also.`-
c080	74 61 6b 65 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 70	take-while'...(fn.PRED.LIST)..(p
c0a0	75 74 20 27 2d 2d 64 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	ut.'--drop-while.'edebug-form-sp
c0c0	65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 72 6f	ec.'(form.form)).(defalias.'-dro
c0e0	70 2d 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 02 5c 32 30	p-while.#[514."\211.\300\301.\20
c100	33 20 00 5c 32 31 30 01 5c 32 34 32 05 01 21 5c 32 30 33 20 00 03 41 5c 32 36 32 04 01 54 5c 32	3..\210.\242..!\203...A\262..T\2
c120	36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 04 00 5c 32 36 36 03 5c 32 30 37 22 20 5b 30 20 6e 69	62..A\262.\202..\266.\207".[0.ni
c140	6c 5d 20 38 20 28 23 24 20 2e 20 34 38 39 39 31 29 5d 29 23 40 39 32 20 52 65 74 75 72 6e 20 74	l].8.(#$...48991)])#@92.Return.t
c160	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 2e 0a 4c 69 6b	he.first.N.elements.of.LIST..Lik
c180	65 20 60 74 61 6b 65 27 2c 20 62 75 74 20 65 6e 73 75 72 65 20 72 65 73 75 6c 74 20 69 73 20 66	e.`take',.but.ensure.result.is.f
c1a0	72 65 73 68 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	resh...(fn.N.LIST)..(byte-code."
c1c0	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63	\300\301\302\303#\300\207".[func
c1e0	74 69 6f 6e 2d 70 75 74 20 2d 64 72 6f 70 2d 77 68 69 6c 65 20 69 6d 70 6f 72 74 61 6e 74 2d 72	tion-put.-drop-while.important-r
c200	65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73	eturn-value.t].4).(defalias.'das
c220	68 2d 2d 74 61 6b 65 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 5c 32 31 31 02 3d 5c 32 30	h--take.#[514."\300..\"\211.=\20
c240	33 0e 00 5c 33 30 31 01 21 5c 32 30 37 5c 32 30 37 22 20 5b 74 61 6b 65 20 63 6f 70 79 2d 73 65	3..\301.!\207\207".[take.copy-se
c260	71 75 65 6e 63 65 5d 20 35 20 28 23 24 20 2e 20 34 39 34 39 36 29 5d 29 23 40 31 37 31 20 52 65	quence].5.(#$...49496)])#@171.Re
c280	74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 4e 20 69 74 65 6d 73	turn.a.copy.of.the.first.N.items
c2a0	20 69 6e 20 4c 49 53 54 2e 0a 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 20	.in.LIST..Return.a.copy.of.LIST.
c2c0	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 65 77 65 72 2e	if.it.contains.N.items.or.fewer.
c2e0	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 20 6c 65 73 73	.Return.nil.if.N.is.zero.or.less
c300	2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 6b 65 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20	...See.also:.`-take-last'...(fn.
c320	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 20 23 5b 35 31 34 20	N.LIST)..(defalias.'-take.#[514.
c340	22 5c 33 30 30 02 02 5c 22 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 74 61 6b 65 5d 20 35 20 28 23	"\300..\"\207".[dash--take].5.(#
c360	24 20 2e 20 34 39 37 39 30 29 5d 29 23 40 31 37 34 20 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20	$...49790)])#@174.Return.a.copy.
c380	6f 66 20 74 68 65 20 6c 61 73 74 20 4e 20 69 74 65 6d 73 20 6f 66 20 4c 49 53 54 20 69 6e 20 6f	of.the.last.N.items.of.LIST.in.o
c3a0	72 64 65 72 2e 0a 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 20 69 66 20 69	rder..Return.a.copy.of.LIST.if.i
c3c0	74 20 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 0a 52 65 74	t.contains.N.items.or.fewer..Ret
c3e0	75 72 6e 20 6e 69 6c 20 69 66 20 4e 20 69 73 20 7a 65 72 6f 20 6f 72 20 6c 65 73 73 2e 0a 0a 53	urn.nil.if.N.is.zero.or.less...S
c400	65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 6b 65 27 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a	ee.also:.`-take'...(fn.N.LIST)..
c420	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
c440	30 5c 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 73 69 64 65 2d	0\207".[function-put.-take.side-
c460	65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61	effect-free.t].4).(defalias.'-ta
c480	6b 65 2d 6c 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 04 5c 22 21 5c 32 30 37	ke-last.#[514."\300\301..\"!\207
c4a0	22 20 5b 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 6c 61 73 74 5d 20 36 20 28 23 24 20 2e 20 35	".[copy-sequence.last].6.(#$...5
c4c0	30 30 33 34 29 5d 29 23 40 32 30 33 20 52 65 74 75 72 6e 20 74 68 65 20 74 61 69 6c 20 28 6e 6f	0034)])#@203.Return.the.tail.(no
c4e0	74 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	t.a.copy).of.LIST.without.the.fi
c500	72 73 74 20 4e 20 69 74 65 6d 73 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 4c 49 53 54 20	rst.N.items..Return.nil.if.LIST.
c520	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 0a 52 65 74 75 72	contains.N.items.or.fewer..Retur
c540	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 0a 0a 46 6f	n.LIST.if.N.is.zero.or.less...Fo
c560	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 2d 64 72	r.another.variant,.see.also.`-dr
c580	6f 70 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 23 40 31 37 32 20 52 65 74	op-last'...(fn.N.LIST).#@172.Ret
c5a0	75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 20 77 69 74 68 6f 75 74 20 69 74 73 20 6c	urn.a.copy.of.LIST.without.its.l
c5c0	61 73 74 20 4e 20 69 74 65 6d 73 2e 0a 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 4c 49	ast.N.items..Return.a.copy.of.LI
c5e0	53 54 20 69 66 20 4e 20 69 73 20 7a 65 72 6f 20 6f 72 20 6c 65 73 73 2e 0a 52 65 74 75 72 6e 20	ST.if.N.is.zero.or.less..Return.
c600	6e 69 6c 20 69 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 4e 20 69 74 65 6d 73 20 6f 72 20	nil.if.LIST.contains.N.items.or.
c620	66 65 77 65 72 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 64 72 6f 70 27 2e 0a 0a 28 66 6e 20	fewer...See.also:.`-drop'...(fn.
c640	4e 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	N.LIST)..(byte-code."\300\301\30
c660	32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 23 5c 32 30 37 22 20 5b 66 75	2\303#\304\305\306\307#\207".[fu
c680	6e 63 74 69 6f 6e 2d 70 75 74 20 2d 74 61 6b 65 2d 6c 61 73 74 20 73 69 64 65 2d 65 66 66 65 63	nction-put.-take-last.side-effec
c6a0	74 2d 66 72 65 65 20 74 20 64 65 66 61 6c 69 61 73 20 2d 64 72 6f 70 20 6e 74 68 63 64 72 20 22	t-free.t.defalias.-drop.nthcdr."
c6c0	52 65 74 75 72 6e 20 74 68 65 20 74 61 69 6c 20 28 6e 6f 74 20 61 20 63 6f 70 79 29 20 6f 66 20	Return.the.tail.(not.a.copy).of.
c6e0	4c 49 53 54 20 77 69 74 68 6f 75 74 20 74 68 65 20 66 69 72 73 74 20 4e 20 69 74 65 6d 73 2e 5c	LIST.without.the.first.N.items.\
c700	6e 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 20 69	nReturn.nil.if.LIST.contains.N.i
c720	74 65 6d 73 20 6f 72 20 66 65 77 65 72 2e 5c 6e 52 65 74 75 72 6e 20 4c 49 53 54 20 69 66 20 4e	tems.or.fewer.\nReturn.LIST.if.N
c740	20 69 73 20 7a 65 72 6f 20 6f 72 20 6c 65 73 73 2e 5c 6e 5c 6e 46 6f 72 20 61 6e 6f 74 68 65 72	.is.zero.or.less.\n\nFor.another
c760	20 76 61 72 69 61 6e 74 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 64 72 6f 70 2d 6c 61 73 74 27 2e	.variant,.see.also.`-drop-last'.
c780	5c 6e 5c 6e 28 66 6e 20 4e 20 4c 49 53 54 29 22 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27	\n\n(fn.N.LIST)"].5).(defalias.'
c7a0	2d 64 72 6f 70 2d 6c 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 47 03 5a 02 5c 22 5c 32 30	-drop-last.#[514."\300.G.Z.\"\20
c7c0	37 22 20 5b 64 61 73 68 2d 2d 74 61 6b 65 5d 20 35 20 28 23 24 20 2e 20 35 30 35 38 39 29 5d 29	7".[dash--take].5.(#$...50589)])
c7e0	23 40 33 35 34 20 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	#@354.Split.LIST.into.two.sublis
c800	74 73 20 61 66 74 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	ts.after.the.Nth.element..The.re
c820	73 75 6c 74 20 69 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	sult.is.a.list.of.two.elements.(
c840	54 41 4b 45 20 44 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	TAKE.DROP).where.TAKE.is.a.new.l
c860	69 73 74 20 6f 66 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	ist.of.the.first.N.elements.of.L
c880	49 53 54 2c 20 61 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	IST,.and.DROP.is.the.remaining.e
c8a0	6c 65 6d 65 6e 74 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	lements.of.LIST.(not.a.copy)...T
c8c0	41 4b 45 20 61 6e 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	AKE.and.DROP.are.like.the.result
c8e0	73 20 6f 66 20 60 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	s.of.`-take'.and.`-drop',.respec
c900	74 69 76 65 6c 79 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	tively,.but.the.split.is.done.in
c920	20 61 20 73 69 6e 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	.a.single.list.traversal...(fn.N
c940	20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	.LIST)..(byte-code."\300\301\302
c960	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 64 72	\303#\300\207".[function-put.-dr
c980	6f 70 2d 6c 61 73 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28	op-last.side-effect-free.t].4).(
c9a0	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 30 30 01	defalias.'-split-at.#[514."\300.
c9c0	5c 33 30 31 5c 33 30 30 02 5c 32 30 33 27 00 5c 32 31 30 01 5c 32 34 32 01 06 06 57 5c 32 30 33	\301\300.\203'.\210.\242...W\203
c9e0	27 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 04 42 5c 32 36 32 04 01 54 5c 32 36 32 02 02	'..\211A\262.\242.B\262..T\262..
ca00	41 5c 32 36 32 03 5c 32 30 32 04 00 5c 32 36 36 03 5c 32 31 31 5c 32 33 37 02 44 5c 32 30 37 22	A\262.\202..\266.\211\237.D\207"
ca20	20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 35 31 31 37 34 29 5d 29 23 40 31 30 32 20 52	.[nil.0].8.(#$...51174)])#@102.R
ca40	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 69 67 68 74	otate.LIST.N.places.to.the.right
ca60	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 65 20 74 69	.(left.if.N.is.negative)..The.ti
ca80	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 4e 20 4c 49	me.complexity.is.O(n)...(fn.N.LI
caa0	53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	ST)..(byte-code."\300\301\302\30
cac0	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 70 6c 69 74	3#\300\207".[function-put.-split
cae0	2d 61 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61	-at.side-effect-free.t].4).(defa
cb00	6c 69 61 73 20 27 2d 72 6f 74 61 74 65 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 34 06 00 5c	lias.'-rotate.#[514."\211\204..\
cb20	33 30 30 5c 32 30 37 01 5c 33 30 31 55 5c 32 30 33 10 00 5c 33 30 32 01 21 5c 32 30 37 5c 32 31	300\207.\301U\203..\302.!\207\21
cb40	31 47 5c 33 30 33 03 02 5c 22 01 01 5a 5c 33 30 34 01 05 5c 32 33 33 5c 33 30 35 03 06 07 5c 22	1G\303..\"..Z\304..\233\305...\"
cb60	5c 22 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 6d 6f 64	\"\207".[nil.0.copy-sequence.mod
cb80	20 61 70 70 65 6e 64 20 2d 74 61 6b 65 5d 20 31 30 20 28 23 24 20 2e 20 35 31 37 37 35 29 5d 29	.append.-take].10.(#$...51775)])
cba0	23 40 31 30 38 20 52 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	#@108.Return.a.list.with.X.inser
cbc0	74 65 64 20 69 6e 74 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	ted.into.LIST.at.position.N...Se
cbe0	65 20 61 6c 73 6f 3a 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	e.also:.`-splice',.`-splice-list
cc00	27 0a 0a 28 66 6e 20 4e 20 58 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	'..(fn.N.X.LIST)..(byte-code."\3
cc20	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#
cc40	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 6f 74 61 74 65 20	\300\207".[function-put.-rotate.
cc60	70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66	pure.t.side-effect-free].5).(def
cc80	61 6c 69 61 73 20 27 2d 69 6e 73 65 72 74 2d 61 74 20 23 5b 37 37 31 20 22 5c 33 30 30 03 02 5c	alias.'-insert-at.#[771."\300..\
cca0	22 5c 32 31 31 40 03 02 41 40 42 5c 32 34 34 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74 2d 61 74 5d	"\211@..A@B\244\207".[-split-at]
ccc0	20 37 20 28 23 24 20 2e 20 35 32 31 33 34 29 5d 29 23 40 31 30 36 20 52 65 74 75 72 6e 20 61 20	.7.(#$...52134)])#@106.Return.a.
cce0	6c 69 73 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	list.with.element.at.Nth.positio
cd00	6e 20 69 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	n.in.LIST.replaced.with.X...See.
cd20	61 6c 73 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	also:.`-replace'..(fn.N.X.LIST).
cd40	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
cd60	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
cd80	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
cda0	66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63	fect-free].5).(defalias.'-replac
cdc0	65 2d 61 74 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 41 42 5c	e-at.#[771."\300..\"\211@..A@AB\
cde0	32 34 34 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74 2d 61 74 5d 20 37 20 28 23 24 20 2e 20 35 32 34	244\207".[-split-at].7.(#$...524
ce00	33 39 29 5d 29 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	39)])#@181.Use.FUNC.to.update.th
ce20	65 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	e.Nth.element.of.LIST..Return.a.
ce40	63 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	copy.of.LIST.where.the.Nth.eleme
ce60	6e 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	nt.is.replaced.with.the.result.o
ce80	66 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	f.calling.FUNC.on.it...See.also:
cea0	20 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	.`-map-when'..(fn.N.FUNC.LIST)..
cec0	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
cee0	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
cf00	6e 2d 70 75 74 20 2d 72 65 70 6c 61 63 65 2d 61 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66	n-put.-replace-at.pure.t.side-ef
cf20	66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 70 64 61 74 65	fect-free].5).(defalias.'-update
cf40	2d 61 74 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 40 21 02 41	-at.#[771."\300..\"\211@..A@@!.A
cf60	40 41 42 5c 32 34 34 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74 2d 61 74 5d 20 37 20 28 23 24 20 2e	@AB\244\207".[-split-at].7.(#$..
cf80	20 35 32 37 34 37 29 5d 29 23 40 35 34 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20	.52747)])#@54.Anaphoric.version.
cfa0	6f 66 20 60 2d 75 70 64 61 74 65 2d 61 74 27 2e 0a 0a 28 66 6e 20 4e 20 46 4f 52 4d 20 4c 49 53	of.`-update-at'...(fn.N.FORM.LIS
cfc0	54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	T)..(byte-code."\300\301\302\303
cfe0	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 75 70 64 61 74 65	#\300\207".[function-put.-update
d000	2d 61 74 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29	-at.important-return-value.t].4)
d020	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 75 70 64 61 74 65 2d 61 74 20 27 28 6d 61 63 72 6f 20	.(defalias.'--update-at.'(macro.
d040	2e 20 23 5b 37 37 31 20 22 5c 33 30 30 03 5c 33 30 31 5c 33 30 32 5c 33 30 33 06 06 46 03 46 5c	..#[771."\300.\301\302\303..F.F\
d060	32 30 37 22 20 5b 2d 75 70 64 61 74 65 2d 61 74 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 67	207".[-update-at.lambda.(it).(ig
d080	6e 6f 72 65 20 69 74 29 5d 20 39 20 28 23 24 20 2e 20 35 33 31 33 34 29 5d 29 29 23 40 33 33 35	nore.it)].9.(#$...53134)]))#@335
d0a0	20 52 65 74 75 72 6e 20 4c 49 53 54 20 77 69 74 68 20 69 74 73 20 65 6c 65 6d 65 6e 74 20 61 74	.Return.LIST.with.its.element.at
d0c0	20 69 6e 64 65 78 20 4e 20 72 65 6d 6f 76 65 64 2e 0a 54 68 61 74 20 69 73 2c 20 72 65 6d 6f 76	.index.N.removed..That.is,.remov
d0e0	65 20 61 6e 79 20 65 6c 65 6d 65 6e 74 20 73 65 6c 65 63 74 65 64 20 61 73 20 28 6e 74 68 20 4e	e.any.element.selected.as.(nth.N
d100	20 4c 49 53 54 29 20 66 72 6f 6d 20 4c 49 53 54 0a 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20	.LIST).from.LIST.and.return.the.
d120	72 65 73 75 6c 74 2e 0a 0a 54 68 69 73 20 69 73 20 61 20 6e 6f 6e 2d 64 65 73 74 72 75 63 74 69	result...This.is.a.non-destructi
d140	76 65 20 6f 70 65 72 61 74 69 6f 6e 3a 20 70 61 72 74 73 20 6f 66 20 4c 49 53 54 20 28 62 75 74	ve.operation:.parts.of.LIST.(but
d160	20 6e 6f 74 0a 6e 65 63 65 73 73 61 72 69 6c 79 20 61 6c 6c 20 6f 66 20 69 74 29 20 61 72 65 20	.not.necessarily.all.of.it).are.
d180	63 6f 70 69 65 64 20 61 73 20 6e 65 65 64 65 64 20 74 6f 20 61 76 6f 69 64 0a 64 65 73 74 72 75	copied.as.needed.to.avoid.destru
d1a0	63 74 69 76 65 6c 79 20 6d 6f 64 69 66 79 69 6e 67 20 69 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a	ctively.modifying.it...See.also:
d1c0	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 72 65 6d 6f 76 65 27	.`-remove-at-indices',.`-remove'
d1e0	2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 75 70 64 61 74 65 2d 61	...(fn.N.LIST)..(put.'--update-a
d200	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 64 65 66 2d 66	t.'edebug-form-spec.'(form.def-f
d220	6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 2d 61 74	orm.form)).(defalias.'-remove-at
d240	20 23 5b 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 08 00 41 5c 32 30 37 5c 32 31 31 5c 33 30	.#[514.".\300U\203..A\207\211\30
d260	31 02 5c 33 30 30 5c 33 30 31 02 5c 32 30 33 30 00 5c 32 31 30 01 5c 32 34 32 01 06 07 55 5c 32	1.\300\301.\2030.\210.\242...U\2
d280	30 34 30 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 04 42 5c 32 36 32 04 01 54 5c 32 36 32	040..\211A\262.\242.B\262..T\262
d2a0	02 02 41 5c 32 36 32 03 5c 32 30 32 0d 00 5c 32 36 36 03 01 5c 32 30 33 3c 00 5c 32 31 31 5c 32	..A\262.\202..\266..\203<.\211\2
d2c0	33 37 02 41 5c 32 34 34 5c 32 30 37 5c 32 33 37 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 39 20	37.A\244\207\237\207".[0.nil].9.
d2e0	28 23 24 20 2e 20 35 33 34 30 39 29 5d 29 23 40 33 34 31 20 52 65 74 75 72 6e 20 4c 49 53 54 20	(#$...53409)])#@341.Return.LIST.
d300	77 69 74 68 20 69 74 73 20 65 6c 65 6d 65 6e 74 73 20 61 74 20 49 4e 44 49 43 45 53 20 72 65 6d	with.its.elements.at.INDICES.rem
d320	6f 76 65 64 2e 0a 54 68 61 74 20 69 73 2c 20 66 6f 72 20 65 61 63 68 20 69 6e 64 65 78 20 49 20	oved..That.is,.for.each.index.I.
d340	69 6e 20 49 4e 44 49 43 45 53 2c 20 72 65 6d 6f 76 65 20 61 6e 79 20 65 6c 65 6d 65 6e 74 20 73	in.INDICES,.remove.any.element.s
d360	65 6c 65 63 74 65 64 0a 61 73 20 28 6e 74 68 20 49 20 4c 49 53 54 29 20 66 72 6f 6d 20 4c 49 53	elected.as.(nth.I.LIST).from.LIS
d380	54 2e 0a 0a 54 68 69 73 20 69 73 20 61 20 6e 6f 6e 2d 64 65 73 74 72 75 63 74 69 76 65 20 6f 70	T...This.is.a.non-destructive.op
d3a0	65 72 61 74 69 6f 6e 3a 20 70 61 72 74 73 20 6f 66 20 4c 49 53 54 20 28 62 75 74 20 6e 6f 74 0a	eration:.parts.of.LIST.(but.not.
d3c0	6e 65 63 65 73 73 61 72 69 6c 79 20 61 6c 6c 20 6f 66 20 69 74 29 20 61 72 65 20 63 6f 70 69 65	necessarily.all.of.it).are.copie
d3e0	64 20 61 73 20 6e 65 65 64 65 64 20 74 6f 20 61 76 6f 69 64 0a 64 65 73 74 72 75 63 74 69 76 65	d.as.needed.to.avoid.destructive
d400	6c 79 20 6d 6f 64 69 66 79 69 6e 67 20 69 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65	ly.modifying.it...See.also:.`-re
d420	6d 6f 76 65 2d 61 74 27 2c 20 60 2d 72 65 6d 6f 76 65 27 2e 0a 0a 28 66 6e 20 49 4e 44 49 43 45	move-at',.`-remove'...(fn.INDICE
d440	53 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	S.LIST)..(byte-code."\300\301\30
d460	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"
d480	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 20 70 75 72 65 20 74	.[function-put.-remove-at.pure.t
d4a0	20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20	.side-effect-free].5).(defalias.
d4c0	27 2d 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64 69 63 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c	'-remove-at-indices.#[514."\300\
d4e0	33 30 31 03 5c 22 5c 32 31 31 5c 33 30 32 5c 33 30 33 02 5c 32 30 33 23 00 5c 32 31 30 01 5c 32	301.\"\211\302\303.\203#.\210.\2
d500	34 32 5c 32 31 31 5c 33 30 32 57 5c 32 30 33 23 00 03 41 5c 32 36 32 04 01 54 5c 32 36 32 02 02	42\211\302W\203#..A\262..T\262..
d520	41 5c 32 36 32 03 5c 32 30 32 07 00 5c 32 36 36 03 5c 32 36 32 02 01 5c 32 31 31 41 5c 32 36 32	A\262.\202..\266.\262..\211A\262
d540	03 5c 32 34 32 5c 33 30 33 02 5c 33 30 32 5c 33 30 33 02 5c 32 30 33 77 00 5c 32 31 30 01 5c 32	.\242\303.\302\303.\203w.\210.\2
d560	34 32 04 5c 32 30 33 77 00 05 41 5c 32 36 32 06 01 05 55 5c 32 30 34 4e 00 5c 32 31 31 04 42 5c	42.\203w..A\262...U\204N.\211.B\
d580	32 36 32 04 5c 32 30 32 6c 00 06 06 5c 32 30 33 63 00 06 06 40 05 55 5c 32 30 33 63 00 06 06 41	262.\202l...\203c...@.U\203c...A
d5a0	5c 32 36 32 07 5c 32 30 32 4e 00 06 06 5c 32 31 31 41 5c 32 36 32 08 5c 32 34 32 5c 32 36 32 05	\262.\202N...\211A\262.\242\262.
d5c0	01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 31 00 5c 32 36 36 03 5c 32 31 31 5c 32 33	.T\262..A\262.\2021.\266.\211\23
d5e0	37 03 5c 32 34 34 5c 32 30 37 22 20 5b 2d 73 6f 72 74 20 3c 20 30 20 6e 69 6c 5d 20 39 20 28 23	7.\244\207".[-sort.<.0.nil].9.(#
d600	24 20 2e 20 35 34 30 30 34 29 5d 29 23 40 35 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20	$...54004)])#@50.Anaphoric.form.
d620	6f 66 20 60 2d 73 70 6c 69 74 2d 77 69 74 68 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54	of.`-split-with'...(fn.PRED.LIST
d640	29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23	)..(byte-code."\300\301\302\303#
d660	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
d680	74 69 6f 6e 2d 70 75 74 20 2d 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64 69 63 65 73 20 70 75 72 65	tion-put.-remove-at-indices.pure
d6a0	20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61	.t.side-effect-free].5).(defalia
d6c0	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.
d6e0	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
d700	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
d720	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..\
d740	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\
d760	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
d780	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.
d7a0	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
d7c0	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
d7e0	76 65 72 73 65 5d 20 31 37 20 28 23 24 20 2e 20 35 34 38 30 31 29 5d 29 29 23 40 33 35 30 20 53	verse].17.(#$...54801)]))#@350.S
d800	70 6c 69 74 20 4c 49 53 54 20 69 6e 74 6f 20 61 20 70 72 65 66 69 78 20 73 61 74 69 73 66 79 69	plit.LIST.into.a.prefix.satisfyi
d820	6e 67 20 50 52 45 44 2c 20 61 6e 64 20 74 68 65 20 72 65 73 74 2e 0a 54 68 65 20 66 69 72 73 74	ng.PRED,.and.the.rest..The.first
d840	20 73 75 62 6c 69 73 74 20 69 73 20 74 68 65 20 70 72 65 66 69 78 20 6f 66 20 4c 49 53 54 20 77	.sublist.is.the.prefix.of.LIST.w
d860	69 74 68 20 73 75 63 63 65 73 73 69 76 65 20 65 6c 65 6d 65 6e 74 73 0a 73 61 74 69 73 66 79 69	ith.successive.elements.satisfyi
d880	6e 67 20 50 52 45 44 2c 20 61 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 20 73 75 62 6c 69 73 74 20	ng.PRED,.and.the.second.sublist.
d8a0	69 73 20 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 65 6c 65 6d 65 6e 74 73 0a 74 68 61 74 20 64	is.the.remaining.elements.that.d
d8c0	6f 20 6e 6f 74 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 6c 69 6b 65 20 70 65 72 66 6f	o.not...The.result.is.like.perfo
d8e0	72 6d 69 6e 67 0a 0a 20 20 28 28 2d 74 61 6b 65 2d 77 68 69 6c 65 20 50 52 45 44 20 4c 49 53 54	rming....((-take-while.PRED.LIST
d900	29 20 28 2d 64 72 6f 70 2d 77 68 69 6c 65 20 50 52 45 44 20 4c 49 53 54 29 29 0a 0a 62 75 74 20	).(-drop-while.PRED.LIST))..but.
d920	69 6e 20 6e 6f 20 6d 6f 72 65 20 74 68 61 6e 20 61 20 73 69 6e 67 6c 65 20 70 61 73 73 20 74 68	in.no.more.than.a.single.pass.th
d940	72 6f 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 70 75	rough.LIST...(fn.PRED.LIST)..(pu
d960	74 20 27 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	t.'--split-with.'edebug-form-spe
d980	63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69	c.'(form.form)).(defalias.'-spli
d9a0	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 26	t-with.#[514."\211\300\301.\203&
d9c0	00 5c 32 31 31 5c 32 30 33 26 00 02 40 05 01 21 5c 32 30 34 19 00 5c 32 36 36 02 5c 33 30 30 5c	.\211\203&..@..!\204..\266.\300\
d9e0	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 32 30 32 03	202..\211.B\262..A\262.\210\202.
da00	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 2e 20 35 35	..\237.D\207".[nil.t].8.(#$...55
da20	32 39 35 29 5d 29 23 40 32 32 34 20 53 70 6c 69 74 20 74 68 65 20 4c 49 53 54 20 65 61 63 68 20	295)])#@224.Split.the.LIST.each.
da40	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 20 60 2d 70 61	time.ITEM.is.found...Unlike.`-pa
da60	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 73 63 61 72 64	rtition-by',.the.ITEM.is.discard
da80	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 6c 69 73 74 73	ed.from.the.results..Empty.lists
daa0	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 72 65 73 75 6c	.are.also.removed.from.the.resul
dac0	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 65 71 75 61 6c	t...Comparison.is.done.by.`equal
dae0	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 0a 28 66 6e 20	'...See.also.`-split-when'..(fn.
db00	49 54 45 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	ITEM.LIST)..(byte-code."\300\301
db20	5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74	\302\303#\300\207".[function-put
db40	20 2d 73 70 6c 69 74 2d 77 69 74 68 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61	.-split-with.important-return-va
db60	6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 74 2d 6f 6e 20 27	lue.t].4).(defalias.'-split-on.'
db80	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 5c 33 30 33	(macro...#[514."\300\301\302\303
dba0	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 68 65 6e 20 6c 61 6d	\304..EE.E\207".[-split-when.lam
dbc0	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 2e 20 35 35 38 35 32	bda.(it).equal.it].8.(#$...55852
dbe0	29 5d 29 29 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	)]))#@53.Anaphoric.version.of.`-
dc00	73 70 6c 69 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 70	split-when'...(fn.FORM.LIST)..(p
dc20	75 74 20 27 2d 73 70 6c 69 74 2d 6f 6e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20	ut.'-split-on.'edebug-form-spec.
dc40	27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73	'(def-form.form)).(defalias.'--s
dc60	70 6c 69 74 2d 77 68 65 6e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c	plit-when.'(macro...#[514."\300\
dc80	33 30 31 5c 33 30 32 5c 33 30 33 05 46 02 45 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74 2d 77 68 65	301\302\303.F.E\207".[-split-whe
dca0	6e 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 5d 20 37 20 28 23 24	n.lambda.(it).(ignore.it)].7.(#$
dcc0	20 2e 20 35 36 32 39 37 29 5d 29 29 23 40 32 36 39 20 53 70 6c 69 74 20 74 68 65 20 4c 49 53 54	...56297)]))#@269.Split.the.LIST
dce0	20 6f 6e 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 77 68 65 72 65 20 46 4e 20 72 65 74 75 72 6e	.on.each.element.where.FN.return
dd00	73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 55 6e 6c 69 6b 65 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d 62	s.non-nil...Unlike.`-partition-b
dd20	79 27 2c 20 74 68 65 20 22 6d 61 74 63 68 65 64 22 20 65 6c 65 6d 65 6e 74 20 69 73 20 64 69 73	y',.the."matched".element.is.dis
dd40	63 61 72 64 65 64 20 66 72 6f 6d 0a 74 68 65 20 72 65 73 75 6c 74 73 2e 20 20 45 6d 70 74 79 20	carded.from.the.results...Empty.
dd60	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.
dd80	72 65 73 75 6c 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 74 68	result...This.function.can.be.th
dda0	6f 75 67 68 74 20 6f 66 20 61 73 20 61 20 67 65 6e 65 72 61 6c 69 7a 61 74 69 6f 6e 20 6f 66 0a	ought.of.as.a.generalization.of.
ddc0	60 73 70 6c 69 74 2d 73 74 72 69 6e 67 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28	`split-string'...(fn.FN.LIST)..(
dde0	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 66 6f 72 6d 2d 73	put.'--split-when.'edebug-form-s
de00	70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20	pec.'(def-form.form)).(defalias.
de20	27 2d 73 70 6c 69 74 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	'-split-when.#[514."\300\211.\20
de40	33 29 00 03 03 40 21 5c 32 30 34 16 00 02 40 01 42 5c 32 36 32 01 5c 32 30 32 5c 22 00 5c 32 31	3)...@!\204...@.B\262.\202\".\21
de60	31 5c 32 30 33 20 00 5c 32 31 31 5c 32 33 37 02 42 5c 32 36 32 02 5c 32 31 30 5c 33 30 30 02 41	1\203..\211\237.B\262.\210\300.A
de80	5c 32 36 32 03 5c 32 30 32 02 00 5c 32 31 31 5c 32 30 33 33 00 5c 32 31 31 5c 32 33 37 02 42 5c	\262.\202..\211\2033.\211\237.B\
dea0	32 36 32 02 01 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 35 36 35	262..\237\207".[nil].6.(#$...565
dec0	33 30 29 5d 29 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 73 65	30)])#@48.Anaphoric.form.of.`-se
dee0	70 61 72 61 74 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d	parate'...(fn.FORM.LIST)..(byte-
df00	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22	code."\300\301\302\303#\300\207"
df20	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 73 70 6c 69 74 2d 77 68 65 6e 20 69 6d 70 6f 72	.[function-put.-split-when.impor
df40	74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61	tant-return-value.t].4).(defalia
df60	73 20 27 2d 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	s.'--separate.'(macro...#[514."\
df80	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 30	300\301!\300\302!\303..D\304.\30
dfa0	35 06 08 5c 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	5..\306\307..E\306\307..EFE\310\
dfc0	33 31 31 06 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	311..D\311..DEF\207".[make-symbo
dfe0	6c 20 22 79 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	l."yes"."no".let.--each.if.!cons
e000	20 69 74 20 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 37 30 33	.it.list.nreverse].14.(#$...5703
e020	34 29 5d 29 29 23 40 31 39 34 20 53 70 6c 69 74 20 4c 49 53 54 20 69 6e 74 6f 20 74 77 6f 20 73	4)]))#@194.Split.LIST.into.two.s
e040	75 62 6c 69 73 74 73 20 62 61 73 65 64 20 6f 6e 20 77 68 65 74 68 65 72 20 69 74 65 6d 73 20 73	ublists.based.on.whether.items.s
e060	61 74 69 73 66 79 20 50 52 45 44 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 6c 69 6b 65 20	atisfy.PRED..The.result.is.like.
e080	70 65 72 66 6f 72 6d 69 6e 67 0a 0a 20 20 28 28 2d 66 69 6c 74 65 72 20 50 52 45 44 20 4c 49 53	performing....((-filter.PRED.LIS
e0a0	54 29 20 28 2d 72 65 6d 6f 76 65 20 50 52 45 44 20 4c 49 53 54 29 29 0a 0a 62 75 74 20 69 6e 20	T).(-remove.PRED.LIST))..but.in.
e0c0	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 0a 28 66 6e	a.single.pass.through.LIST...(fn
e0e0	20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 73 65 70 61 72 61 74 65 20 27 65	.PRED.LIST)..(put.'--separate.'e
e100	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 0a 28 64	debug-form-spec.'(form.form)).(d
e120	65 66 61 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	efalias.'-separate.#[514."\300\2
e140	31 31 02 5c 33 30 31 01 5c 32 30 33 28 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 06 06 01	11.\301.\203(..\211A\262.\242...
e160	21 5c 32 30 33 1e 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 31 30 5c 32 30 32 24 00 5c 32 31 31	!\203..\211.B\262.\210\202$.\211
e180	04 42 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 04 00 5c 32 36 36 02 01 5c 32 33 37 01 5c 32 33	.B\262.\210T\202..\266..\237.\23
e1a0	37 44 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 35 37 33 38 37 29 5d 29	7D\207".[nil.0].9.(#$...57387)])
e1c0	23 40 37 39 20 4c 69 6b 65 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65	#@79.Like.`-partition-all-in-ste
e1e0	70 73 27 2c 20 62 75 74 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 72 65 76 65 72 73 65 64 2e	ps',.but.the.result.is.reversed.
e200	0a 0a 28 66 6e 20 4e 20 53 54 45 50 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	..(fn.N.STEP.LIST)..(byte-code."
e220	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63	\300\301\302\303#\300\207".[func
e240	74 69 6f 6e 2d 70 75 74 20 2d 73 65 70 61 72 61 74 65 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74	tion-put.-separate.important-ret
e260	75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d	urn-value.t].4).(defalias.'dash-
e280	2d 70 61 72 74 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	-partition-all-in-steps-reversed
e2a0	20 23 5b 37 37 31 20 22 01 5c 33 30 30 57 5c 32 30 33 0d 00 5c 33 30 31 5c 33 30 32 5c 33 30 33	.#[771.".\300W\203..\301\302\303
e2c0	04 44 5c 22 5c 32 31 30 5c 33 30 34 01 5c 32 30 33 5c 22 00 5c 33 30 35 04 03 5c 22 01 42 5c 32	.D\"\210\304.\203\".\305..\".B\2
e2e0	36 32 01 02 02 5c 32 33 33 5c 32 36 32 02 5c 32 30 32 0e 00 5c 32 30 37 22 20 5b 31 20 73 69 67	62...\233\262.\202..\207".[1.sig
e300	6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 22 53 74 65 70 20 73 69	nal.wrong-type-argument."Step.si
e320	7a 65 20 3c 20 31 20 72 65 73 75 6c 74 73 20 69 6e 20 6a 75 69 63 79 20 69 6e 66 69 6e 69 74 65	ze.<.1.results.in.juicy.infinite
e340	20 6c 6f 6f 70 73 22 20 6e 69 6c 20 2d 74 61 6b 65 5d 20 37 20 28 23 24 20 2e 20 35 37 37 39 37	.loops".nil.-take].7.(#$...57797
e360	29 5d 29 23 40 31 39 32 20 50 61 72 74 69 74 69 6f 6e 20 4c 49 53 54 20 69 6e 74 6f 20 73 75 62	)])#@192.Partition.LIST.into.sub
e380	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 53 54 45 50 20	lists.of.length.N.that.are.STEP.
e3a0	69 74 65 6d 73 20 61 70 61 72 74 2e 0a 41 64 6a 61 63 65 6e 74 20 67 72 6f 75 70 73 20 6d 61 79	items.apart..Adjacent.groups.may
e3c0	20 6f 76 65 72 6c 61 70 20 69 66 20 4e 20 65 78 63 65 65 64 73 20 74 68 65 20 53 54 45 50 20 73	.overlap.if.N.exceeds.the.STEP.s
e3e0	74 72 69 64 65 2e 0a 54 72 61 69 6c 69 6e 67 20 67 72 6f 75 70 73 20 6d 61 79 20 63 6f 6e 74 61	tride..Trailing.groups.may.conta
e400	69 6e 20 6c 65 73 73 20 74 68 61 6e 20 4e 20 69 74 65 6d 73 2e 0a 0a 28 66 6e 20 4e 20 53 54 45	in.less.than.N.items...(fn.N.STE
e420	50 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 61	P.LIST)..(defalias.'-partition-a
e440	6c 6c 2d 69 6e 2d 73 74 65 70 73 20 23 5b 37 37 31 20 22 5c 33 30 30 03 03 03 23 5c 32 33 37 5c	ll-in-steps.#[771."\300...#\237\
e460	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 65	207".[dash--partition-all-in-ste
e480	70 73 2d 72 65 76 65 72 73 65 64 5d 20 37 20 28 23 24 20 2e 20 35 38 32 31 37 29 5d 29 23 40 32	ps-reversed].7.(#$...58217)])#@2
e4a0	31 32 20 50 61 72 74 69 74 69 6f 6e 20 4c 49 53 54 20 69 6e 74 6f 20 73 75 62 6c 69 73 74 73 20	12.Partition.LIST.into.sublists.
e4c0	6f 66 20 6c 65 6e 67 74 68 20 4e 20 74 68 61 74 20 61 72 65 20 53 54 45 50 20 69 74 65 6d 73 20	of.length.N.that.are.STEP.items.
e4e0	61 70 61 72 74 2e 0a 4c 69 6b 65 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73	apart..Like.`-partition-all-in-s
e500	74 65 70 73 27 2c 20 62 75 74 20 69 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 74 20 65 6e 6f 75	teps',.but.if.there.are.not.enou
e520	67 68 20 69 74 65 6d 73 0a 74 6f 20 6d 61 6b 65 20 74 68 65 20 6c 61 73 74 20 67 72 6f 75 70 20	gh.items.to.make.the.last.group.
e540	4e 2d 73 69 7a 65 64 2c 20 74 68 6f 73 65 20 69 74 65 6d 73 20 61 72 65 20 64 69 73 63 61 72 64	N-sized,.those.items.are.discard
e560	65 64 2e 0a 0a 28 66 6e 20 4e 20 53 54 45 50 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64	ed...(fn.N.STEP.LIST)..(byte-cod
e580	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
e5a0	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
e5c0	72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 20 70 75 72 65 20 74 20 73 69 64 65	rtition-all-in-steps.pure.t.side
e5e0	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72	-effect-free].5).(defalias.'-par
e600	74 69 74 69 6f 6e 2d 69 6e 2d 73 74 65 70 73 20 23 5b 37 37 31 20 22 5c 33 30 30 03 03 03 23 5c	tition-in-steps.#[771."\300...#\
e620	32 31 31 5c 32 30 33 15 00 5c 32 31 31 40 47 04 57 5c 32 30 33 15 00 41 5c 32 30 32 05 00 5c 32	211\203..\211@G.W\203..A\202..\2
e640	33 37 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	37\207".[dash--partition-all-in-
e660	73 74 65 70 73 2d 72 65 76 65 72 73 65 64 5d 20 37 20 28 23 24 20 2e 20 35 38 35 33 31 29 5d 29	steps-reversed].7.(#$...58531)])
e680	23 40 31 33 32 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 74 68 65	#@132.Return.a.new.list.with.the
e6a0	20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 67 72 6f 75 70 65 64 20 69 6e 74 6f 20 4e 2d 73 69	.items.in.LIST.grouped.into.N-si
e6c0	7a 65 64 20 73 75 62 6c 69 73 74 73 2e 0a 54 68 65 20 6c 61 73 74 20 67 72 6f 75 70 20 6d 61 79	zed.sublists..The.last.group.may
e6e0	20 63 6f 6e 74 61 69 6e 20 6c 65 73 73 20 74 68 61 6e 20 4e 20 69 74 65 6d 73 2e 0a 0a 28 66 6e	.contain.less.than.N.items...(fn
e700	20 4e 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	.N.LIST)..(byte-code."\300\301\3
e720	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
e740	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 69 6e 2d 73 74	".[function-put.-partition-in-st
e760	65 70 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 0a	eps.pure.t.side-effect-free].5).
e780	28 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	(defalias.'-partition-all.#[514.
e7a0	22 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	"\300.\211.#\207".[-partition-al
e7c0	6c 2d 69 6e 2d 73 74 65 70 73 5d 20 36 20 28 23 24 20 2e 20 35 39 30 31 34 29 5d 29 23 40 31 37	l-in-steps].6.(#$...59014)])#@17
e7e0	35 20 52 65 74 75 72 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	5.Return.a.new.list.with.the.ite
e800	6d 73 20 69 6e 20 4c 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	ms.in.LIST.grouped.into.N-sized.
e820	73 75 62 6c 69 73 74 73 2e 0a 49 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 74 20 65 6e 6f 75 67	sublists..If.there.are.not.enoug
e840	68 20 69 74 65 6d 73 20 74 6f 20 6d 61 6b 65 20 74 68 65 20 6c 61 73 74 20 67 72 6f 75 70 20 4e	h.items.to.make.the.last.group.N
e860	2d 73 69 7a 65 64 2c 0a 74 68 6f 73 65 20 69 74 65 6d 73 20 61 72 65 20 64 69 73 63 61 72 64 65	-sized,.those.items.are.discarde
e880	64 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	d...(fn.N.LIST)..(byte-code."\30
e8a0	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#\
e8c0	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 72 74 69 74 69 6f	300\207".[function-put.-partitio
e8e0	6e 2d 61 6c 6c 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	n-all.pure.t.side-effect-free].5
e900	29 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."\
e920	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
e940	74 65 70 73 5d 20 36 20 28 23 24 20 2e 20 35 39 33 36 32 29 5d 29 23 40 35 32 20 41 6e 61 70 68	teps].6.(#$...59362)])#@52.Anaph
e960	6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 27 2e 0a 0a 28	oric.form.of.`-partition-by'...(
e980	66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	fn.FORM.LIST)..(byte-code."\300\
e9a0	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
e9c0	30 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 20	0\207".[function-put.-partition.
e9e0	70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66	pure.t.side-effect-free].5).(def
ea00	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 20	alias.'--partition-by.'(macro...
ea20	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 30	#[514."\300\301!\300\302!\300\30
ea40	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 30	3!\300\304!\300\305!\306...DC\30
ea60	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 34	7.\310..\311B\312\313..DD.\n\314
ea80	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 30	B.\n..D..\315..DD\257.\316..\310
eaa0	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 5c	\312\313..DD....DD\317\320....E\
eac0	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 06	321\322..D..E\323..\324BB\323...
eae0	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 5c	.E\257.\321\312..E\325..D\257.E\
eb00	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 37	321\322.\fD..E\322..D\257.EE\207
eb20	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 74	".[make-symbol."result"."sublist
eb40	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 74	"."value"."new-value"."list".let
eb60	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 69	.when.let*.(nil).it.car.((list.i
eb80	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 73	t)).cdr.while.unless.equal.!cons
eba0	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 23	.nreverse.setq.(nil).!cdr].24.(#
ebc0	24 20 2e 20 35 39 37 33 39 29 5d 29 29 23 40 39 33 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61	$...59739)]))#@93.Apply.FN.to.ea
ebe0	63 68 20 69 74 65 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	ch.item.in.LIST,.splitting.it.ea
ec00	63 68 20 74 69 6d 65 20 46 4e 20 72 65 74 75 72 6e 73 20 61 20 6e 65 77 20 76 61 6c 75 65 2e 0a	ch.time.FN.returns.a.new.value..
ec20	0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e	.(fn.FN.LIST)..(put.'--partition
ec40	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
ec60	6d 29 29 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 5b 35	m)).(defalias.'-partition-by.#[5
ec80	31 34 20 22 5c 32 31 31 5c 32 30 35 3d 00 5c 33 30 30 01 40 5c 32 31 31 43 04 02 21 04 41 5c 32	14."\211\205=.\300.@\211C..!.A\2
eca0	31 31 5c 32 30 33 36 00 5c 32 31 31 40 06 07 01 21 03 01 5c 32 33 32 5c 32 30 34 2b 00 04 5c 32	11\2036.\211@...!..\232\204+..\2
ecc0	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 42 5c	37..B\262.\300\262.\211\262...B\
ece0	32 36 32 05 5c 32 36 36 02 41 5c 32 30 32 0e 00 02 5c 32 33 37 05 42 5c 32 36 36 5c 32 30 35 5c	262.\266.A\202...\237.B\266\205\
ed00	32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 36 30 33 37 30 29 5d 29	237\207".[nil].11.(#$...60370)])
ed20	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 70 61 72 74 69 74 69	#@59.Anaphoric.form.of.`-partiti
ed40	6f 6e 2d 62 79 2d 68 65 61 64 65 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a	on-by-header'...(fn.FORM.LIST)..
ed60	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
ed80	30 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	0\207".[function-put.-partition-
eda0	62 79 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a	by.important-return-value.t].4).
edc0	28 64 65 66 61 6c 69 61 73 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72	(defalias.'--partition-by-header
ede0	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 30 5c	.'(macro...#[514."\300\301!\300\
ee00	33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 30 5c 33 30 34 21 5c 33 30 30 5c 33 30 35 21 5c	302!\300\303!\300\304!\300\305!\
ee20	33 30 30 5c 33 30 36 21 5c 33 30 37 01 06 08 44 43 5c 33 31 30 03 5c 33 31 31 06 5c 6e 5c 33 31	300\306!\307...DC\310.\311.\n\31
ee40	32 42 5c 33 31 33 5c 33 31 34 06 08 44 44 06 0b 5c 33 31 35 42 06 0b 06 10 44 06 0b 5c 33 31 36	2B\313\314..DD..\315B....D..\316
ee60	42 06 5c 6e 5c 33 31 37 06 5c 66 44 44 5c 32 35 37 06 5c 33 32 30 06 07 5c 33 31 31 5c 33 31 33	B.\n\317.\fDD\257.\320..\311\313
ee80	5c 33 31 34 06 0b 44 44 06 0b 06 12 44 44 5c 33 32 31 5c 33 32 32 06 0f 06 0e 45 5c 33 31 30 06	\314..DD....DD\321\322....E\310.
eea0	0f 5c 33 32 33 5c 33 32 34 06 14 44 06 15 45 5c 33 32 35 06 14 5c 33 32 36 42 42 5c 33 32 35 06	.\323\324..D..E\325..\326BB\325.
eec0	13 5c 33 32 37 42 42 5c 32 35 37 05 5c 33 32 35 06 10 5c 33 33 30 42 42 46 5c 33 32 33 5c 33 31	.\327BB\257.\325..\330BBF\323\31
eee0	33 06 11 45 5c 33 33 31 06 0d 44 5c 32 35 37 05 45 5c 33 32 33 5c 33 32 34 06 0d 44 06 0e 45 5c	3..E\331..D\257.E\323\324..D..E\
ef00	33 32 34 06 0e 44 5c 32 35 37 05 45 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20	324..D\257.EE\207".[make-symbol.
ef20	22 72 65 73 75 6c 74 22 20 22 73 75 62 6c 69 73 74 22 20 22 68 65 61 64 65 72 2d 76 61 6c 75 65	"result"."sublist"."header-value
ef40	22 20 22 73 65 65 6e 2d 62 6f 64 79 3f 22 20 22 6e 65 77 2d 76 61 6c 75 65 22 20 22 6c 69 73 74	"."seen-body?"."new-value"."list
ef60	22 20 6c 65 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	".let.when.let*.(nil).it.car.((l
ef80	69 73 74 20 69 74 29 29 20 28 6e 69 6c 29 20 63 64 72 20 77 68 69 6c 65 20 69 66 20 65 71 75 61	ist.it)).(nil).cdr.while.if.equa
efa0	6c 20 21 63 6f 6e 73 20 6e 72 65 76 65 72 73 65 20 73 65 74 71 20 28 6e 69 6c 29 20 28 6e 69 6c	l.!cons.nreverse.setq.(nil).(nil
efc0	29 20 28 74 29 20 21 63 64 72 5d 20 32 37 20 28 23 24 20 2e 20 36 30 37 30 39 29 5d 29 29 23 40	).(t).!cdr].27.(#$...60709)]))#@
efe0	32 31 39 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 69	219.Apply.FN.to.the.first.item.i
f000	6e 20 4c 49 53 54 2e 20 54 68 61 74 20 69 73 20 74 68 65 20 68 65 61 64 65 72 0a 76 61 6c 75 65	n.LIST..That.is.the.header.value
f020	2e 20 41 70 70 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 2c	..Apply.FN.to.each.item.in.LIST,
f040	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 4e 0a 72 65 74 75 72	.splitting.it.each.time.FN.retur
f060	6e 73 20 74 68 65 20 68 65 61 64 65 72 20 76 61 6c 75 65 2c 20 62 75 74 20 6f 6e 6c 79 20 61 66	ns.the.header.value,.but.only.af
f080	74 65 72 20 73 65 65 69 6e 67 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 0a 6f 74 68 65 72 20 76 61	ter.seeing.at.least.one.other.va
f0a0	6c 75 65 20 28 74 68 65 20 62 6f 64 79 29 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28	lue.(the.body)...(fn.FN.LIST)..(
f0c0	70 75 74 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 20 27 65 64 65 62	put.'--partition-by-header.'edeb
f0e0	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 28 64 65 66 61	ug-form-spec.'(form.form)).(defa
f100	6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 20 23 5b 35 31 34	lias.'-partition-by-header.#[514
f120	20 22 5c 32 31 31 5c 32 30 35 4a 00 5c 33 30 30 01 40 5c 32 31 31 43 04 02 21 5c 33 30 30 05 41	."\211\205J.\300.@\211C..!\300.A
f140	5c 32 31 31 5c 32 30 33 42 00 5c 32 31 31 40 06 08 01 21 04 01 5c 32 33 32 5c 32 30 33 33 00 03	\211\203B.\211@...!..\232\2033..
f160	5c 32 30 33 36 00 05 5c 32 33 37 06 08 42 5c 32 36 32 08 5c 33 30 30 5c 32 36 32 06 5c 33 30 30	\2036..\237..B\262.\300\262.\300
f180	5c 32 36 32 04 5c 32 30 32 36 00 5c 33 30 31 5c 32 36 32 04 01 06 06 42 5c 32 36 32 06 5c 32 36	\262.\2026.\301\262....B\262.\26
f1a0	36 02 41 5c 32 30 32 0f 00 03 5c 32 33 37 06 06 42 5c 32 36 36 5c 32 30 36 5c 32 33 37 5c 32 30	6.A\202...\237..B\266\206\237\20
f1c0	37 22 20 5b 6e 69 6c 20 74 5d 20 31 32 20 28 23 24 20 2e 20 36 31 34 31 32 29 5d 29 23 40 32 32	7".[nil.t].12.(#$...61412)])#@22
f1e0	31 20 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	1.Partition.LIST.after.each.elem
f200	65 6e 74 20 66 6f 72 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	ent.for.which.FORM.evaluates.to.
f220	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 49 53 54 20 69 6e	non-nil..Each.element.of.LIST.in
f240	20 74 75 72 6e 20 69 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	.turn.is.bound.to.`it'.before.ev
f260	61 6c 75 61 74 69 6e 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	aluating.FORM...This.is.the.anap
f280	68 6f 72 69 63 20 63 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	horic.counterpart.to.`-partition
f2a0	2d 61 66 74 65 72 2d 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	-after-pred'...(fn.FORM.LIST)..(
f2c0	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
f2e0	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 62	\207".[function-put.-partition-b
f300	79 2d 68 65 61 64 65 72 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20	y-header.important-return-value.
f320	74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74	t].4).(defalias.'--partition-aft
f340	65 72 2d 70 72 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	er-pred.'(macro...#[514."\300\30
f360	31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 34 03 05 44 03 03 45 5c 33	1!\300\302!\300\303!\304..D..E\3
f380	30 35 05 5c 33 30 36 06 07 5c 33 30 37 5c 33 31 30 06 08 45 5c 33 30 35 06 5c 66 5c 33 30 37 5c	05.\306..\307\310..E\305.\f\307\
f3a0	33 31 31 06 0b 44 06 5c 66 45 5c 33 31 32 06 0b 5c 33 31 33 42 42 46 46 5c 33 30 35 06 06 5c 33	311..D.\fE\312..\313BBFF\305..\3
f3c0	30 37 5c 33 31 31 06 09 44 06 5c 6e 45 45 5c 33 31 31 06 08 44 5c 32 35 37 05 45 5c 32 30 37 22	07\311..D.\nEE\311..D\257.E\207"
f3e0	20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 22 20 22 72 65 73 75 6c 74 22 20 22 73	.[make-symbol."list"."result"."s
f400	75 62 6c 69 73 74 22 20 6c 65 74 20 77 68 65 6e 20 2d 2d 65 61 63 68 20 70 75 73 68 20 69 74 20	ublist".let.when.--each.push.it.
f420	6e 72 65 76 65 72 73 65 20 73 65 74 71 20 28 6e 69 6c 29 5d 20 31 38 20 28 23 24 20 2e 20 36 31	nreverse.setq.(nil)].18.(#$...61
f440	39 32 32 29 5d 29 29 23 40 31 35 31 20 50 61 72 74 69 74 69 6f 6e 20 4c 49 53 54 20 61 66 74 65	922)]))#@151.Partition.LIST.afte
f460	72 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65	r.each.element.for.which.PRED.re
f480	74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20	turns.non-nil...This.function's.
f4a0	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 70 61 72 74	anaphoric.counterpart.is.`--part
f4c0	69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53	ition-after-pred'...(fn.PRED.LIS
f4e0	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 61 66 74 65 72 2d	T)..(defalias.'-partition-after-
f500	70 72 65 64 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 02 5c 32 30 35 3a 00 02 5c 33 30 31	pred.#[514."\300\211.\205:..\301
f520	01 5c 32 30 33 2c 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 5c 32 31 31 04 42 5c 32 36 32	.\203,..\211A\262.\242\211.B\262
f540	04 06 06 01 21 5c 32 30 33 27 00 03 5c 32 33 37 05 42 5c 32 36 32 05 5c 33 30 30 5c 32 36 32 04	....!\203'..\237.B\262.\300\262.
f560	5c 32 31 30 54 5c 32 30 32 08 00 5c 32 36 36 02 5c 32 31 31 5c 32 30 33 38 00 5c 32 31 31 5c 32	\210T\202..\266.\211\2038.\211\2
f580	33 37 02 42 5c 32 36 32 02 01 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23	37.B\262..\237\207".[nil.0].9.(#
f5a0	24 20 2e 20 36 32 35 34 31 29 5d 29 23 40 38 39 20 50 61 72 74 69 74 69 6f 6e 20 64 69 72 65 63	$...62541)])#@89.Partition.direc
f5c0	74 6c 79 20 62 65 66 6f 72 65 20 65 61 63 68 20 74 69 6d 65 20 50 52 45 44 20 69 73 20 74 72 75	tly.before.each.time.PRED.is.tru
f5e0	65 20 6f 6e 20 61 6e 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 50 52	e.on.an.element.of.LIST...(fn.PR
f600	45 44 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	ED.LIST)..(byte-code."\300\301\3
f620	30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d	02\303#\300\207".[function-put.-
f640	70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 20 69 6d 70 6f 72 74 61 6e 74 2d 72	partition-after-pred.important-r
f660	65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61	eturn-value.t].4).(defalias.'-pa
f680	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 30 5c	rtition-before-pred.#[514."\300\
f6a0	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 6d 61	301\302.\301.!\"\"\237\207".[-ma
f6c0	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 64 5d	p.reverse.-partition-after-pred]
f6e0	20 38 20 28 23 24 20 2e 20 36 32 38 39 37 29 5d 29 23 40 37 34 20 50 61 72 74 69 74 69 6f 6e 20	.8.(#$...62897)])#@74.Partition.
f700	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 20 61 70	directly.after.each.time.ITEM.ap
f720	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 29 1f 23	pears.in.LIST...(fn.ITEM.LIST).#
f740	40 31 32 20 0a 0a 28 66 6e 20 45 4c 45 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	@12...(fn.ELE)..(byte-code."\300
f760	5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e	\301\302\303#\300\207".[function
f780	2d 70 75 74 20 2d 70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 70 72 65 64 20 69 6d 70 6f	-put.-partition-before-pred.impo
f7a0	72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69	rtant-return-value.t].4).(defali
f7c0	61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 69 74 65 6d 20 23 5b 35 31 34 20	as.'-partition-after-item.#[514.
f7e0	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 69	"\300\301\302.\".\"\207".[-parti
f800	74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32	tion-after-pred.make-closure.#[2
f820	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 28 23 24	57."\211\300\232\207".[V0].3.(#$
f840	20 2e 20 36 33 33 30 30 29 5d 5d 20 36 20 28 23 24 20 2e 20 36 33 32 32 32 29 5d 29 23 40 37 35	...63300)]].6.(#$...63222)])#@75
f860	20 50 61 72 74 69 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	.Partition.directly.before.each.
f880	74 69 6d 65 20 49 54 45 4d 20 61 70 70 65 61 72 73 20 69 6e 20 4c 49 53 54 2e 0a 0a 28 66 6e 20	time.ITEM.appears.in.LIST...(fn.
f8a0	49 54 45 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	ITEM.LIST)..(byte-code."\300\301
f8c0	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
f8e0	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 66 74	07".[function-put.-partition-aft
f900	65 72 2d 69 74 65 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	er-item.pure.t.side-effect-free]
f920	20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65	.5).(defalias.'-partition-before
f940	2d 69 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	-item.#[514."\300\301\302.\".\"\
f960	32 30 37 22 20 5b 2d 70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 70 72 65 64 20 6d 61 6b	207".[-partition-before-pred.mak
f980	65 2d 63 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	e-closure.#[257."\211\300\232\20
f9a0	37 22 20 5b 56 30 5d 20 33 20 28 23 24 20 2e 20 36 33 33 30 30 29 5d 5d 20 36 20 28 23 24 20 2e	7".[V0].3.(#$...63300)]].6.(#$..
f9c0	20 36 33 35 38 35 29 5d 29 23 40 34 38 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20	.63585)])#@48.Anaphoric.form.of.
f9e0	60 2d 67 72 6f 75 70 2d 62 79 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62	`-group-by'...(fn.FORM.LIST)..(b
fa00	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\
fa20	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-
fa40	70 75 74 20 2d 70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 69 74 65 6d 20 70 75 72 65 20	put.-partition-before-item.pure.
fa60	74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73	t.side-effect-free].5).(defalias
fa80	20 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	.'--group-by.'(macro...#[514."\3
faa0	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 5c 33 30	00\301!\300\302!\300\303!\304\30
fac0	35 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	5\306.C\307\310..D\304\311.\nDDE
fae0	45 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	E\312\313...\nD..\314..\315BBDD\
fb00	33 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	316..\317..\307\320\311..DEE\321
fb20	5c 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	\322.\f\323BB\324BBF\325BBB\326.
fb40	09 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	.FED\207".[make-symbol."n"."k"."
fb60	67 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	grp".nreverse.-map.lambda.cons.c
fb80	61 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	ar.cdr.--reduce-from.let*.assoc.
fba0	28 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	(acc).if.setcdr.it.push.list.(it
fbc0	29 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 36 33 39 35	).(acc).(acc).nil].19.(#$...6395
fbe0	30 29 5d 29 29 23 40 31 32 35 20 53 65 70 61 72 61 74 65 20 4c 49 53 54 20 69 6e 74 6f 20 61 6e	0)]))#@125.Separate.LIST.into.an
fc00	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 70 70 6c 69 65 64	.alist.whose.keys.are.FN.applied
fc20	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 20 4b 65 79 73 20	.to.the.elements.of.LIST...Keys.
fc40	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 28 66 6e 20 46 4e	are.compared.by.`equal'...(fn.FN
fc60	20 4c 49 53 54 29 1f 23 40 31 30 20 0a 0a 28 66 6e 20 4e 29 1f 0a 28 70 75 74 20 27 2d 2d 67 72	.LIST).#@10...(fn.N)..(put.'--gr
fc80	6f 75 70 2d 62 79 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 74 29 0a 28 64 65 66	oup-by.'edebug-form-spec.t).(def
fca0	61 6c 69 61 73 20 27 2d 67 72 6f 75 70 2d 62 79 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31	alias.'-group-by.#[514."\300\301
fcc0	5c 33 30 32 03 5c 33 30 33 01 5c 32 30 33 39 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 06	\302.\303.\2039..\211A\262.\242.
fce0	07 01 21 5c 33 30 34 01 06 06 5c 22 5c 32 31 31 5c 32 30 33 27 00 5c 32 31 31 03 02 41 42 5c 32	..!\304...\"\211\203'.\211..AB\2
fd00	34 31 5c 32 36 36 03 5c 32 30 32 31 00 01 03 44 06 06 42 5c 32 36 32 06 5c 32 36 36 02 03 5c 32	41\266.\2021...D..B\262.\266..\2
fd20	36 32 04 5c 32 31 30 54 5c 32 30 32 05 00 5c 32 36 36 02 5c 22 5c 32 33 37 5c 32 30 37 22 20 5b	62.\210T\202..\266.\"\237\207".[
fd40	2d 6d 61 70 20 23 5b 32 35 37 20 22 5c 32 31 31 40 01 41 5c 32 33 37 42 5c 32 30 37 22 20 5b 5d	-map.#[257."\211@.A\237B\207".[]
fd60	20 33 20 28 23 24 20 2e 20 36 34 36 32 30 29 5d 20 6e 69 6c 20 30 20 61 73 73 6f 63 5d 20 31 33	.3.(#$...64620)].nil.0.assoc].13
fd80	20 28 23 24 20 2e 20 36 34 34 39 31 29 5d 29 23 40 37 36 20 52 65 74 75 72 6e 20 61 20 6e 65 77	.(#$...64491)])#@76.Return.a.new
fda0	20 6c 69 73 74 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 65	.list.of.all.elements.in.LIST.se
fdc0	70 61 72 61 74 65 64 20 62 79 20 53 45 50 2e 0a 0a 28 66 6e 20 53 45 50 20 4c 49 53 54 29 1f 0a	parated.by.SEP...(fn.SEP.LIST)..
fde0	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
fe00	30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 67 72 6f 75 70 2d 62 79 20 69	0\207".[function-put.-group-by.i
fe20	6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66	mportant-return-value.t].4).(def
fe40	61 6c 69 61 73 20 27 2d 69 6e 74 65 72 70 6f 73 65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 32	alias.'-interpose.#[514."\300.\2
fe60	30 33 0d 00 5c 32 31 30 5c 32 31 31 40 43 01 41 5c 32 36 32 02 01 5c 32 30 33 20 00 01 40 03 02	03..\210\211@C.A\262..\203...@..
fe80	42 42 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 0d 00 5c 32 33 37 5c 32 30 37 22 20 5b 6e	BB\262..A\262.\202..\237\207".[n
fea0	69 6c 5d 20 36 20 28 23 24 20 2e 20 36 34 39 31 36 29 5d 29 23 40 39 30 20 52 65 74 75 72 6e 20	il].6.(#$...64916)])#@90.Return.
fec0	61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20	a.new.list.of.the.first.item.in.
fee0	65 61 63 68 20 6c 69 73 74 2c 20 74 68 65 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 65 74 63 2e 0a	each.list,.then.the.second.etc..
ff00	0a 28 66 6e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	.(fn.&rest.LISTS)..(byte-code."\
ff20	33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74	300\301\302\303#\300\207".[funct
ff40	69 6f 6e 2d 70 75 74 20 2d 69 6e 74 65 72 70 6f 73 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66	ion-put.-interpose.side-effect-f
ff60	72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 74 65 72 6c 65 61 76 65	ree.t].4).(defalias.'-interleave
ff80	20 23 5b 31 32 38 20 22 5c 32 31 31 5c 32 30 35 2f 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c	.#[128."\211\205/.\300\301\302.\
ffa0	22 5c 32 30 33 2e 00 01 5c 33 30 33 01 5c 32 30 33 23 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32	"\203...\303.\203#..\211A\262.\2
ffc0	34 32 5c 32 31 31 40 04 42 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 0e 00 5c 32 36 36 02 5c 33	42\211@.B\262.\210T\202..\266.\3
ffe0	30 34 5c 33 30 35 03 5c 22 5c 32 36 32 02 5c 32 30 32 05 00 5c 32 33 37 5c 32 30 37 22 20 5b 6e	04\305.\"\262.\202..\237\207".[n
10000	69 6c 20 2d 6e 6f 6e 65 3f 20 6e 75 6c 6c 20 30 20 2d 6d 61 70 20 63 64 72 5d 20 37 20 28 23 24	il.-none?.null.0.-map.cdr].7.(#$
10020	20 2e 20 36 35 32 30 39 29 5d 29 23 40 34 35 30 20 5a 69 70 20 4c 49 53 54 31 20 61 6e 64 20 4c	...65209)])#@450.Zip.LIST1.and.L
10040	49 53 54 32 20 69 6e 74 6f 20 61 20 6e 65 77 20 6c 69 73 74 20 61 63 63 6f 72 64 69 6e 67 20 74	IST2.into.a.new.list.according.t
10060	6f 20 46 4f 52 4d 2e 0a 54 68 61 74 20 69 73 2c 20 65 76 61 6c 75 61 74 65 20 46 4f 52 4d 20 66	o.FORM..That.is,.evaluate.FORM.f
10080	6f 72 20 65 61 63 68 20 69 74 65 6d 20 70 61 69 72 20 66 72 6f 6d 20 74 68 65 20 74 77 6f 20 6c	or.each.item.pair.from.the.two.l
100a0	69 73 74 73 2c 20 61 6e 64 0a 72 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 72 65 73	ists,.and.return.the.list.of.res
100c0	75 6c 74 73 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 73 20 6c 6f 6e 67 20 61 73 20	ults...The.result.is.as.long.as.
100e0	74 68 65 20 73 68 6f 72 74 65 72 0a 6c 69 73 74 2e 0a 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20	the.shorter.list...Each.element.
10100	6f 66 20 4c 49 53 54 31 20 61 6e 64 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53	of.LIST1.and.each.element.of.LIS
10120	54 32 20 69 6e 20 74 75 72 6e 20 61 72 65 20 62 6f 75 6e 64 0a 70 61 69 72 77 69 73 65 20 74 6f	T2.in.turn.are.bound.pairwise.to
10140	20 60 69 74 27 20 61 6e 64 20 60 6f 74 68 65 72 27 2c 20 72 65 73 70 65 63 74 69 76 65 6c 79 2c	.`it'.and.`other',.respectively,
10160	20 61 6e 64 20 74 68 65 69 72 20 69 6e 64 65 78 0a 77 69 74 68 69 6e 20 74 68 65 20 6c 69 73 74	.and.their.index.within.the.list
10180	20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 2c 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e	.to.`it-index',.before.evaluatin
101a0	67 20 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
101c0	6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 7a 69 70 2d 77 69 74 68 27 2e 0a 0a 28 66 6e 20	ounterpart.to.`-zip-with'...(fn.
101e0	46 4f 52 4d 20 4c 49 53 54 31 20 4c 49 53 54 32 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	FORM.LIST1.LIST2)..(byte-code."\
10200	33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74	300\301\302\303#\300\207".[funct
10220	69 6f 6e 2d 70 75 74 20 2d 69 6e 74 65 72 6c 65 61 76 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d	ion-put.-interleave.side-effect-
10240	66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 7a 69 70 2d 77 69 74 68	free.t].4).(defalias.'--zip-with
10260	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 21 5c 33 30 30 5c	.'(macro...#[771."\300\301!\300\
10280	33 30 32 21 5c 33 30 33 01 04 44 03 44 5c 33 30 34 06 06 04 5c 33 30 33 5c 33 30 35 5c 33 30 36	302!\303..D.D\304...\303\305\306
102a0	06 08 44 44 43 5c 33 30 37 5c 33 31 30 06 0d 06 0b 45 46 46 5c 33 31 31 05 44 46 5c 32 30 37 22	..DDC\307\310....EFF\311.DF\207"
102c0	20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 22 6c 69 73 74 32 22 20 6c	.[make-symbol."result"."list2".l
102e0	65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 6f 74 68 65 72 20 70 6f 70 20 28 69 67 6e 6f 72	et.--each-while.other.pop.(ignor
10300	65 20 6f 74 68 65 72 29 20 70 75 73 68 20 6e 72 65 76 65 72 73 65 5d 20 31 36 20 28 23 24 20 2e	e.other).push.nreverse].16.(#$..
10320	20 36 35 35 38 35 29 5d 29 29 23 40 33 39 35 20 5a 69 70 20 4c 49 53 54 31 20 61 6e 64 20 4c 49	.65585)]))#@395.Zip.LIST1.and.LI
10340	53 54 32 20 69 6e 74 6f 20 61 20 6e 65 77 20 6c 69 73 74 20 75 73 69 6e 67 20 74 68 65 20 66 75	ST2.into.a.new.list.using.the.fu
10360	6e 63 74 69 6f 6e 20 46 4e 2e 0a 54 68 61 74 20 69 73 2c 20 61 70 70 6c 79 20 46 4e 20 70 61 69	nction.FN..That.is,.apply.FN.pai
10380	72 77 69 73 65 20 74 61 6b 69 6e 67 20 61 73 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 74	rwise.taking.as.first.argument.t
103a0	68 65 20 6e 65 78 74 0a 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 31 20 61 6e 64 20 61 73 20	he.next.element.of.LIST1.and.as.
103c0	73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 74 68 65 20 6e 65 78 74 20 65 6c 65 6d 65 6e 74	second.argument.the.next.element
103e0	20 6f 66 20 4c 49 53 54 32 0a 61 74 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 70	.of.LIST2.at.the.corresponding.p
10400	6f 73 69 74 69 6f 6e 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 73 20 6c 6f 6e 67 20	osition...The.result.is.as.long.
10420	61 73 20 74 68 65 0a 73 68 6f 72 74 65 72 20 6c 69 73 74 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74	as.the.shorter.list...This.funct
10440	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.`
10460	2d 2d 7a 69 70 2d 77 69 74 68 27 2e 0a 0a 46 6f 72 20 6f 74 68 65 72 20 7a 69 70 73 2c 20 73 65	--zip-with'...For.other.zips,.se
10480	65 20 61 6c 73 6f 20 60 2d 7a 69 70 2d 6c 69 73 74 73 27 20 61 6e 64 20 60 2d 7a 69 70 2d 66 69	e.also.`-zip-lists'.and.`-zip-fi
104a0	6c 6c 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 31 20 4c 49 53 54 32 29 1f 0a 28 70 75 74 20	ll'...(fn.FN.LIST1.LIST2)..(put.
104c0	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 63 20 27 28	'--zip-with.'edebug-form-spec.'(
104e0	66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 7a 69 70	form.form.form)).(defalias.'-zip
10500	2d 77 69 74 68 20 23 5b 37 37 31 20 22 5c 32 31 31 5c 33 30 30 03 5c 33 30 31 5c 33 30 30 02 5c	-with.#[771."\211\300.\301\300.\
10520	32 30 33 2b 00 5c 32 31 30 01 5c 32 34 32 04 5c 32 30 33 2b 00 04 5c 32 31 31 41 5c 32 36 32 06	203+.\210.\242.\203+..\211A\262.
10540	5c 32 34 32 06 08 02 02 5c 22 05 42 5c 32 36 32 05 5c 32 31 30 01 54 5c 32 36 32 02 02 41 5c 32	\242....\".B\262.\210.T\262..A\2
10560	36 32 03 5c 32 30 32 05 00 5c 32 36 36 03 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20	62.\202..\266.\237\207".[nil.0].
10580	31 32 20 28 23 24 20 2e 20 36 36 33 35 32 29 5d 29 23 40 34 35 36 20 5a 69 70 20 4c 49 53 54 53	12.(#$...66352)])#@456.Zip.LISTS
105a0	20 74 6f 67 65 74 68 65 72 2e 0a 0a 47 72 6f 75 70 20 74 68 65 20 68 65 61 64 20 6f 66 20 65 61	.together...Group.the.head.of.ea
105c0	63 68 20 6c 69 73 74 2c 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 20 73 65 63 6f 6e 64 20	ch.list,.followed.by.the.second.
105e0	65 6c 65 6d 65 6e 74 20 6f 66 0a 65 61 63 68 20 6c 69 73 74 2c 20 61 6e 64 20 73 6f 20 6f 6e 2e	element.of.each.list,.and.so.on.
10600	20 20 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 74 75 72 6e 65 64 20 67 72 6f 75 70 69 6e	..The.number.of.returned.groupin
10620	67 73 20 69 73 20 65 71 75 61 6c 0a 74 6f 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65	gs.is.equal.to.the.length.of.the
10640	20 73 68 6f 72 74 65 73 74 20 69 6e 70 75 74 20 6c 69 73 74 2c 20 61 6e 64 20 74 68 65 20 6c 65	.shortest.input.list,.and.the.le
10660	6e 67 74 68 20 6f 66 20 65 61 63 68 0a 67 72 6f 75 70 69 6e 67 20 69 73 20 65 71 75 61 6c 20 74	ngth.of.each.grouping.is.equal.t
10680	6f 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 69 6e 70 75 74 20 4c 49 53 54 53 2e 0a 0a 54 68	o.the.number.of.input.LISTS...Th
106a0	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 61 20 6c 69 73 74 20	e.return.value.is.always.a.list.
106c0	6f 66 20 70 72 6f 70 65 72 20 6c 69 73 74 73 2c 20 69 6e 20 63 6f 6e 74 72 61 73 74 20 74 6f 0a	of.proper.lists,.in.contrast.to.
106e0	60 2d 7a 69 70 27 20 77 68 69 63 68 20 72 65 74 75 72 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 64	`-zip'.which.returns.a.list.of.d
10700	6f 74 74 65 64 20 70 61 69 72 73 20 77 68 65 6e 20 6f 6e 6c 79 20 74 77 6f 20 69 6e 70 75 74 0a	otted.pairs.when.only.two.input.
10720	4c 49 53 54 53 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	LISTS.are.provided...See.also:.`
10740	2d 7a 69 70 2d 70 61 69 72 27 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28	-zip-pair'...(fn.&rest.LISTS)..(
10760	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
10780	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 7a 69 70 2d 77 69 74 68 20 69 6d	\207".[function-put.-zip-with.im
107a0	70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61	portant-return-value.t].4).(defa
107c0	6c 69 61 73 20 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	lias.'-zip-lists.#[128."\211\205
107e0	39 00 5c 33 30 30 5c 33 30 31 02 5c 33 30 32 5c 33 30 30 02 5c 32 30 33 5c 22 00 5c 32 31 30 01	9.\300\301.\302\300.\203\".\210.
10800	5c 32 34 32 5c 32 31 31 5c 32 31 31 5c 32 36 32 05 5c 32 30 33 5c 22 00 01 54 5c 32 36 32 02 02	\242\211\211\262.\203\"..T\262..
10820	41 5c 32 36 32 03 5c 32 30 32 09 00 5c 32 36 36 03 5c 32 30 33 38 00 5c 33 30 33 5c 33 30 34 03	A\262.\202..\266.\2038.\303\304.
10840	5c 22 01 42 5c 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	\".B\262.\303\305.\"\262.\202..\
10860	32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 74 20 30 20 6d 61 70 63 61 72 20 63 61 72 20 63 64 72	237\207".[nil.t.0.mapcar.car.cdr
10880	5d 20 38 20 28 23 24 20 2e 20 36 36 39 36 37 29 5d 29 23 40 33 36 34 20 5a 69 70 20 4c 49 53 54	].8.(#$...66967)])#@364.Zip.LIST
108a0	53 20 74 6f 67 65 74 68 65 72 2c 20 70 61 64 64 69 6e 67 20 73 68 6f 72 74 65 72 20 6c 69 73 74	S.together,.padding.shorter.list
108c0	73 20 77 69 74 68 20 46 49 4c 4c 2d 56 41 4c 55 45 2e 0a 54 68 69 73 20 69 73 20 6c 69 6b 65 20	s.with.FILL-VALUE..This.is.like.
108e0	60 2d 7a 69 70 2d 6c 69 73 74 73 27 20 28 77 68 69 63 68 20 73 65 65 29 2c 20 65 78 63 65 70 74	`-zip-lists'.(which.see),.except
10900	20 69 74 20 72 65 74 61 69 6e 73 20 61 6c 6c 0a 65 6c 65 6d 65 6e 74 73 20 61 74 20 70 6f 73 69	.it.retains.all.elements.at.posi
10920	74 69 6f 6e 73 20 62 65 79 6f 6e 64 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 73 68 6f 72	tions.beyond.the.end.of.the.shor
10940	74 65 73 74 20 6c 69 73 74 2e 20 20 54 68 65 0a 6e 75 6d 62 65 72 20 6f 66 20 72 65 74 75 72 6e	test.list...The.number.of.return
10960	65 64 20 67 72 6f 75 70 69 6e 67 73 20 69 73 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 6c 65 6e	ed.groupings.is.equal.to.the.len
10980	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 74 2c 20 61	gth.of.the.longest.input.list,.a
109a0	6e 64 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 65 61 63 68 20 67 72 6f 75 70 69 6e 67 20 69	nd.the.length.of.each.grouping.i
109c0	73 20 65 71 75 61 6c 20 74 6f 0a 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 69 6e 70 75 74 20 4c	s.equal.to.the.number.of.input.L
109e0	49 53 54 53 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	ISTS...(fn.FILL-VALUE.&rest.LIST
10a00	53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	S)..(byte-code."\300\301\302\303
10a20	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
10a40	63 74 69 6f 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	ction-put.-zip-lists.pure.t.side
10a60	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 7a 69 70	-effect-free].5).(defalias.'-zip
10a80	2d 6c 69 73 74 73 2d 66 69 6c 6c 20 23 5b 33 38 35 20 22 5c 32 31 31 5c 32 30 35 3c 00 5c 33 30	-lists-fill.#[385."\211\205<.\30
10aa0	30 5c 33 30 30 02 5c 33 30 31 5c 33 30 30 02 5c 32 30 33 5c 22 00 5c 32 31 30 01 5c 32 34 32 5c	0\300.\301\300.\203\".\210.\242\
10ac0	32 31 31 5c 32 31 31 5c 32 36 32 05 5c 32 30 34 5c 22 00 01 54 5c 32 36 32 02 02 41 5c 32 36 32	211\211\262.\204\"..T\262..A\262
10ae0	03 5c 32 30 32 09 00 5c 32 36 36 03 5c 32 30 33 3b 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 05 5c	.\202..\266.\203;.\302\303\304.\
10b00	22 03 5c 22 01 42 5c 32 36 32 01 5c 33 30 32 5c 33 30 35 03 5c 22 5c 32 36 32 02 5c 32 30 32 05	".\".B\262.\302\305.\"\262.\202.
10b20	00 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 63 6c	.\237\207".[nil.0.mapcar.make-cl
10b40	6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 33 06 00 40 5c 32 30 37 5c 33 30 30	osure.#[257."\211\203..@\207\300
10b60	5c 32 30 37 22 20 5b 56 30 5d 20 32 20 28 23 24 20 2e 20 32 37 39 36 31 29 5d 20 63 64 72 5d 20	\207".[V0].2.(#$...27961)].cdr].
10b80	39 20 28 23 24 20 2e 20 36 37 37 33 36 29 5d 29 23 40 32 36 38 20 55 6e 7a 69 70 20 4c 49 53 54	9.(#$...67736)])#@268.Unzip.LIST
10ba0	53 2e 0a 0a 54 68 69 73 20 77 6f 72 6b 73 20 6a 75 73 74 20 6c 69 6b 65 20 60 2d 7a 69 70 2d 6c	S...This.works.just.like.`-zip-l
10bc0	69 73 74 73 27 20 28 77 68 69 63 68 20 73 65 65 29 2c 20 62 75 74 20 74 61 6b 65 73 20 61 20 6c	ists'.(which.see),.but.takes.a.l
10be0	69 73 74 0a 6f 66 20 6c 69 73 74 73 20 69 6e 73 74 65 61 64 20 6f 66 20 61 20 76 61 72 69 61 62	ist.of.lists.instead.of.a.variab
10c00	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 63 68 20 74 68 61	le.number.of.arguments,.such.tha
10c20	74 0a 0a 20 20 28 2d 75 6e 7a 69 70 2d 6c 69 73 74 73 20 28 2d 7a 69 70 2d 6c 69 73 74 73 20 41	t....(-unzip-lists.(-zip-lists.A
10c40	52 47 53 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	RGS...))..is.identity.(given.tha
10c60	74 20 74 68 65 20 6c 69 73 74 73 20 63 6f 6d 70 72 69 73 69 6e 67 20 41 52 47 53 20 61 72 65 20	t.the.lists.comprising.ARGS.are.
10c80	6f 66 20 74 68 65 20 73 61 6d 65 0a 6c 65 6e 67 74 68 29 2e 0a 0a 28 66 6e 20 4c 49 53 54 53 29	of.the.same.length)...(fn.LISTS)
10ca0	1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	..(byte-code."\300\301\302\303#\
10cc0	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
10ce0	69 6f 6e 2d 70 75 74 20 2d 7a 69 70 2d 6c 69 73 74 73 2d 66 69 6c 6c 20 70 75 72 65 20 74 20 73	ion-put.-zip-lists-fill.pure.t.s
10d00	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	ide-effect-free].5).(defalias.'-
10d20	75 6e 7a 69 70 2d 6c 69 73 74 73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32	unzip-lists.#[257."\300\301.\"\2
10d40	30 37 22 20 5b 61 70 70 6c 79 20 2d 7a 69 70 2d 6c 69 73 74 73 5d 20 34 20 28 23 24 20 2e 20 36	07".[apply.-zip-lists].4.(#$...6
10d60	38 35 30 32 29 5d 29 23 40 31 31 32 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 4c	8502)])#@112.Return.non-nil.if.L
10d80	49 53 54 20 69 73 20 6f 66 20 4c 45 4e 47 54 48 2e 0a 54 68 69 73 20 69 73 20 61 20 63 6f 6d 70	IST.is.of.LENGTH..This.is.a.comp
10da0	61 74 69 62 69 6c 69 74 79 20 73 68 69 6d 20 66 6f 72 20 60 6c 65 6e 67 74 68 3d 27 20 69 6e 20	atibility.shim.for.`length='.in.
10dc0	45 6d 61 63 73 20 32 38 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 4c 45 4e 47 54 48 29 1f 23 40 32 30	Emacs.28...(fn.LIST.LENGTH).#@20
10de0	20 0a 0a 28 66 6e 20 4c 49 53 54 20 4c 45 4e 47 54 48 29 1f 23 40 32 31 36 20 52 65 74 75 72 6e	...(fn.LIST.LENGTH).#@216.Return
10e00	20 61 20 66 6f 72 6d 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 61 70 70 6c 79 69 6e 67 20 60	.a.form.equivalent.to.applying.`
10e20	2d 7a 69 70 27 20 74 6f 20 4c 49 53 54 53 2e 0a 54 68 69 73 20 60 63 6f 6d 70 69 6c 65 72 2d 6d	-zip'.to.LISTS..This.`compiler-m
10e40	61 63 72 6f 27 20 77 61 72 6e 73 20 61 62 6f 75 74 20 64 69 73 63 6f 75 72 61 67 65 64 20 60 2d	acro'.warns.about.discouraged.`-
10e60	7a 69 70 27 20 75 73 61 67 65 20 61 6e 64 0a 64 65 6c 65 67 61 74 65 73 20 74 6f 20 60 2d 7a 69	zip'.usage.and.delegates.to.`-zi
10e80	70 2d 6c 69 73 74 73 27 20 6f 72 20 60 2d 7a 69 70 2d 70 61 69 72 27 20 64 65 70 65 6e 64 69 6e	p-lists'.or.`-zip-pair'.dependin
10ea0	67 20 6f 6e 20 74 68 65 20 6e 75 6d 62 65 72 0a 6f 66 20 4c 49 53 54 53 2e 0a 0a 28 66 6e 20 46	g.on.the.number.of.LISTS...(fn.F
10ec0	4f 52 4d 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	ORM.&rest.LISTS)..(byte-code."\3
10ee0	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#
10f00	5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 21 5c 32 30 33 16 00 5c 33 31 30 5c 32 30 32 17	\305\306\307\310!\203..\310\202.
10f20	00 5c 33 31 31 5c 33 31 32 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 75	.\311\312#\207".[function-put.-u
10f40	6e 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 65 63 74 2d 66 72	nzip-lists.pure.t.side-effect-fr
10f60	65 65 20 64 65 66 61 6c 69 61 73 20 64 61 73 68 2d 2d 6c 65 6e 67 74 68 3d 20 66 62 6f 75 6e 64	ee.defalias.dash--length=.fbound
10f80	70 20 6c 65 6e 67 74 68 3d 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30 57 5c 32 30 33 08 00	p.length=.#[514."\211\300W\203..
10fa0	5c 33 30 31 5c 32 30 37 5c 32 31 31 5c 33 30 30 55 5c 32 30 33 11 00 01 3f 5c 32 30 37 5c 32 31	\301\207\211\300U\203...?\207\21
10fc0	31 53 02 5c 32 33 33 5c 32 31 31 5c 32 30 35 1c 00 5c 32 31 31 41 3f 5c 32 30 37 22 20 5b 30 20	1S.\233\211\205..\211A?\207".[0.
10fe0	6e 69 6c 5d 20 34 20 28 23 24 20 2e 20 36 39 30 38 39 29 5d 20 22 52 65 74 75 72 6e 20 6e 6f 6e	nil].4.(#$...69089)]."Return.non
11000	2d 6e 69 6c 20 69 66 20 4c 49 53 54 20 69 73 20 6f 66 20 4c 45 4e 47 54 48 2e 5c 6e 54 68 69 73	-nil.if.LIST.is.of.LENGTH.\nThis
11020	20 69 73 20 61 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 73 68 69 6d 20 66 6f 72 20 60 6c 65	.is.a.compatibility.shim.for.`le
11040	6e 67 74 68 3d 27 20 69 6e 20 45 6d 61 63 73 20 32 38 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 20	ngth='.in.Emacs.28.\n\n(fn.LIST.
11060	4c 45 4e 47 54 48 29 22 5d 20 36 29 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 7a 69	LENGTH)"].6).(defalias.'dash--zi
11080	70 2d 6c 69 73 74 73 2d 6f 72 2d 70 61 69 72 20 23 5b 33 38 35 20 22 5c 33 30 30 01 5c 33 30 31	p-lists-or-pair.#[385."\300.\301
110a0	5c 22 5c 32 30 34 0b 00 5c 33 30 32 01 42 5c 32 30 37 5c 33 30 33 01 42 5c 33 30 34 5c 33 30 35	\"\204..\302.B\207\303.B\304\305
110c0	21 5c 32 30 33 19 00 5c 33 30 35 5c 33 30 36 02 5c 22 5c 32 30 37 5c 33 30 37 5c 33 30 36 21 5c	!\203..\305\306.\"\207\307\306!\
110e0	32 31 30 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6c 65 6e 67 74 68 3d 20 32 20 2d 7a 69 70 2d 6c	210\207".[dash--length=.2.-zip-l
11100	69 73 74 73 20 2d 7a 69 70 2d 70 61 69 72 20 66 62 6f 75 6e 64 70 20 6d 61 63 72 6f 65 78 70 2d	ists.-zip-pair.fboundp.macroexp-
11120	77 61 72 6e 2d 61 6e 64 2d 72 65 74 75 72 6e 20 22 55 73 65 20 2d 7a 69 70 2d 70 61 69 72 20 69	warn-and-return."Use.-zip-pair.i
11140	6e 73 74 65 61 64 20 6f 66 20 2d 7a 69 70 20 74 6f 20 67 65 74 20 61 20 6c 69 73 74 20 6f 66 20	nstead.of.-zip.to.get.a.list.of.
11160	70 61 69 72 73 22 20 6d 65 73 73 61 67 65 5d 20 36 20 28 23 24 20 2e 20 36 39 31 31 34 29 5d 29	pairs".message].6.(#$...69114)])
11180	23 40 36 35 30 20 5a 69 70 20 4c 49 53 54 53 20 74 6f 67 65 74 68 65 72 2e 0a 0a 47 72 6f 75 70	#@650.Zip.LISTS.together...Group
111a0	20 74 68 65 20 68 65 61 64 20 6f 66 20 65 61 63 68 20 6c 69 73 74 2c 20 66 6f 6c 6c 6f 77 65 64	.the.head.of.each.list,.followed
111c0	20 62 79 20 74 68 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 20 6f 66 0a 65 61 63 68 20 6c	.by.the.second.element.of.each.l
111e0	69 73 74 2c 20 61 6e 64 20 73 6f 20 6f 6e 2e 20 20 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 72	ist,.and.so.on...The.number.of.r
11200	65 74 75 72 6e 65 64 20 67 72 6f 75 70 69 6e 67 73 20 69 73 20 65 71 75 61 6c 0a 74 6f 20 74 68	eturned.groupings.is.equal.to.th
11220	65 20 6c 65 6e 67 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	e.length.of.the.shortest.input.l
11240	69 73 74 2c 20 61 6e 64 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 69 74 65 6d 73 0a 69 6e 20	ist,.and.the.number.of.items.in.
11260	65 61 63 68 20 67 72 6f 75 70 69 6e 67 20 69 73 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 6e 75	each.grouping.is.equal.to.the.nu
11280	6d 62 65 72 20 6f 66 20 69 6e 70 75 74 20 4c 49 53 54 53 2e 0a 0a 49 66 20 6f 6e 6c 79 20 74 77	mber.of.input.LISTS...If.only.tw
112a0	6f 20 4c 49 53 54 53 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	o.LISTS.are.provided.as.argument
112c0	73 2c 20 72 65 74 75 72 6e 20 74 68 65 20 67 72 6f 75 70 69 6e 67 73 0a 61 73 20 61 20 6c 69 73	s,.return.the.groupings.as.a.lis
112e0	74 20 6f 66 20 64 6f 74 74 65 64 20 70 61 69 72 73 2e 20 20 4f 74 68 65 72 77 69 73 65 2c 20 72	t.of.dotted.pairs...Otherwise,.r
11300	65 74 75 72 6e 20 74 68 65 20 67 72 6f 75 70 69 6e 67 73 20 61 73 20 61 0a 6c 69 73 74 20 6f 66	eturn.the.groupings.as.a.list.of
11320	20 70 72 6f 70 65 72 20 6c 69 73 74 73 2e 0a 0a 53 69 6e 63 65 20 74 68 65 20 72 65 74 75 72 6e	.proper.lists...Since.the.return
11340	20 76 61 6c 75 65 20 63 68 61 6e 67 65 73 20 66 6f 72 6d 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e	.value.changes.form.depending.on
11360	20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 0a 61 72 67 75 6d 65 6e 74 73 2c 20 69 74 20 69 73 20	.the.number.of.arguments,.it.is.
11380	67 65 6e 65 72 61 6c 6c 79 20 72 65 63 6f 6d 6d 65 6e 64 65 64 20 74 6f 20 75 73 65 20 60 2d 7a	generally.recommended.to.use.`-z
113a0	69 70 2d 6c 69 73 74 73 27 0a 69 6e 73 74 65 61 64 2c 20 6f 72 20 60 2d 7a 69 70 2d 70 61 69 72	ip-lists'.instead,.or.`-zip-pair
113c0	27 20 69 66 20 61 20 6c 69 73 74 20 6f 66 20 64 6f 74 74 65 64 20 70 61 69 72 73 20 69 73 20 64	'.if.a.list.of.dotted.pairs.is.d
113e0	65 73 69 72 65 64 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 75 6e 7a 69 70 27 2e 0a 0a 28 66	esired...See.also:.`-unzip'...(f
11400	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 27 2d 7a 69 70 20	n.&rest.LISTS)..(defalias.'-zip.
11420	23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 02 5c 33 30 32 5c 22 5c 32 30 33 5c 66 00 5c 33 30	#[128."\300\301.\302\"\203\f.\30
11440	33 5c 32 30 32 0d 00 5c 33 30 34 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 64 61 73 68 2d	3\202..\304.\"\207".[apply.dash-
11460	2d 6c 65 6e 67 74 68 3d 20 32 20 2d 7a 69 70 2d 70 61 69 72 20 2d 7a 69 70 2d 6c 69 73 74 73 5d	-length=.2.-zip-pair.-zip-lists]
11480	20 35 20 28 23 24 20 2e 20 37 30 30 32 32 29 5d 29 23 40 32 36 33 20 5a 69 70 20 4c 49 53 54 31	.5.(#$...70022)])#@263.Zip.LIST1
114a0	20 61 6e 64 20 4c 49 53 54 32 20 74 6f 67 65 74 68 65 72 2e 0a 0a 4d 61 6b 65 20 61 20 70 61 69	.and.LIST2.together...Make.a.pai
114c0	72 20 77 69 74 68 20 74 68 65 20 68 65 61 64 20 6f 66 20 65 61 63 68 20 6c 69 73 74 2c 20 66 6f	r.with.the.head.of.each.list,.fo
114e0	6c 6c 6f 77 65 64 20 62 79 20 61 20 70 61 69 72 20 77 69 74 68 0a 74 68 65 20 73 65 63 6f 6e 64	llowed.by.a.pair.with.the.second
11500	20 65 6c 65 6d 65 6e 74 20 6f 66 20 65 61 63 68 20 6c 69 73 74 2c 20 61 6e 64 20 73 6f 20 6f 6e	.element.of.each.list,.and.so.on
11520	2e 20 20 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 70 61 69 72 73 0a 72 65 74 75 72 6e 65 64 20	...The.number.of.pairs.returned.
11540	69 73 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 68 65 20 73 68	is.equal.to.the.length.of.the.sh
11560	6f 72 74 65 72 20 69 6e 70 75 74 20 6c 69 73 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 7a	orter.input.list...See.also:.`-z
11580	69 70 2d 6c 69 73 74 73 27 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 62	ip-lists'...(fn.&rest.LISTS)..(b
115a0	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\
115c0	33 30 31 5c 33 30 34 5c 33 30 35 23 5c 33 30 30 5c 33 30 31 5c 33 30 36 5c 33 30 35 23 5c 33 30	301\304\305#\300\301\306\305#\30
115e0	30 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 63 6f 6d 70 69 6c	0\207".[function-put.-zip.compil
11600	65 72 2d 6d 61 63 72 6f 20 64 61 73 68 2d 2d 7a 69 70 2d 6c 69 73 74 73 2d 6f 72 2d 70 61 69 72	er-macro.dash--zip-lists-or-pair
11620	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 36 29 0a 28 64 65	.pure.t.side-effect-free].6).(de
11640	66 61 6c 69 61 73 20 27 2d 7a 69 70 2d 70 61 69 72 20 23 5b 31 32 38 20 22 5c 33 30 30 01 5c 33	falias.'-zip-pair.#[128."\300.\3
11660	30 31 5c 22 5c 32 30 33 37 00 5c 32 31 31 41 40 5c 33 30 32 02 40 5c 33 30 33 5c 33 30 32 02 5c	01\"\2037.\211A@\302.@\303\302.\
11680	32 30 33 33 00 5c 32 31 30 01 5c 32 34 32 04 5c 32 30 33 33 00 04 5c 32 31 31 41 5c 32 36 32 06	2033.\210.\242.\2033..\211A\262.
116a0	5c 32 34 32 01 01 42 05 42 5c 32 36 32 05 5c 32 31 30 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03	\242..B.B\262.\210.T\262..A\262.
116c0	5c 32 30 32 0f 00 5c 32 36 36 03 5c 32 33 37 5c 32 30 37 5c 33 30 34 5c 33 30 35 02 5c 22 5c 32	\202..\266.\237\207\304\305.\"\2
116e0	30 37 22 20 5b 64 61 73 68 2d 2d 6c 65 6e 67 74 68 3d 20 32 20 6e 69 6c 20 30 20 61 70 70 6c 79	07".[dash--length=.2.nil.0.apply
11700	20 2d 7a 69 70 2d 6c 69 73 74 73 5d 20 39 20 28 23 24 20 2e 20 37 30 38 30 37 29 5d 29 23 40 35	.-zip-lists].9.(#$...70807)])#@5
11720	34 38 20 5a 69 70 20 4c 49 53 54 53 20 74 6f 67 65 74 68 65 72 2c 20 70 61 64 64 69 6e 67 20 73	48.Zip.LISTS.together,.padding.s
11740	68 6f 72 74 65 72 20 6c 69 73 74 73 20 77 69 74 68 20 46 49 4c 4c 2d 56 41 4c 55 45 2e 0a 54 68	horter.lists.with.FILL-VALUE..Th
11760	69 73 20 69 73 20 6c 69 6b 65 20 60 2d 7a 69 70 27 20 28 77 68 69 63 68 20 73 65 65 29 2c 20 65	is.is.like.`-zip'.(which.see),.e
11780	78 63 65 70 74 20 69 74 20 72 65 74 61 69 6e 73 20 61 6c 6c 20 65 6c 65 6d 65 6e 74 73 0a 61 74	xcept.it.retains.all.elements.at
117a0	20 70 6f 73 69 74 69 6f 6e 73 20 62 65 79 6f 6e 64 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65	.positions.beyond.the.end.of.the
117c0	20 73 68 6f 72 74 65 73 74 20 6c 69 73 74 2e 20 20 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 0a 72	.shortest.list...The.number.of.r
117e0	65 74 75 72 6e 65 64 20 67 72 6f 75 70 69 6e 67 73 20 69 73 20 65 71 75 61 6c 20 74 6f 20 74 68	eturned.groupings.is.equal.to.th
11800	65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 69 6e 70 75 74 0a 6c 69	e.length.of.the.longest.input.li
11820	73 74 2c 20 61 6e 64 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 65 61 63 68 20 67 72 6f 75 70	st,.and.the.length.of.each.group
11840	69 6e 67 20 69 73 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 0a 69 6e	ing.is.equal.to.the.number.of.in
11860	70 75 74 20 4c 49 53 54 53 2e 0a 0a 53 69 6e 63 65 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c	put.LISTS...Since.the.return.val
11880	75 65 20 63 68 61 6e 67 65 73 20 66 6f 72 6d 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 74 68 65	ue.changes.form.depending.on.the
118a0	20 6e 75 6d 62 65 72 20 6f 66 0a 61 72 67 75 6d 65 6e 74 73 2c 20 69 74 20 69 73 20 67 65 6e 65	.number.of.arguments,.it.is.gene
118c0	72 61 6c 6c 79 20 72 65 63 6f 6d 6d 65 6e 64 65 64 20 74 6f 20 75 73 65 20 60 2d 7a 69 70 2d 6c	rally.recommended.to.use.`-zip-l
118e0	69 73 74 73 2d 66 69 6c 6c 27 0a 69 6e 73 74 65 61 64 2c 20 75 6e 6c 65 73 73 20 61 20 6c 69 73	ists-fill'.instead,.unless.a.lis
11900	74 20 6f 66 20 64 6f 74 74 65 64 20 70 61 69 72 73 20 69 73 20 65 78 70 6c 69 63 69 74 6c 79 20	t.of.dotted.pairs.is.explicitly.
11920	64 65 73 69 72 65 64 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	desired...(fn.FILL-VALUE.&rest.L
11940	49 53 54 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	ISTS)..(byte-code."\300\301\302\
11960	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 34 5c 33 30	303#\210\304\301\305\306#\304\30
11980	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 64 76 65 72 74 69	1\307\306#\300\207".[set-adverti
119a0	73 65 64 2d 63 61 6c 6c 69 6e 67 2d 63 6f 6e 76 65 6e 74 69 6f 6e 20 2d 7a 69 70 2d 70 61 69 72	sed-calling-convention.-zip-pair
119c0	20 28 6c 69 73 74 31 20 6c 69 73 74 32 29 20 22 32 2e 32 30 2e 30 22 20 66 75 6e 63 74 69 6f 6e	.(list1.list2)."2.20.0".function
119e0	2d 70 75 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	-put.pure.t.side-effect-free].5)
11a00	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 32 31	.(defalias.'-zip-fill.#[385."\21
11a20	31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 5c 33 30 32 5c 22 5c 32 30 33 41 00	1\204..\300\207\301.\302\"\203A.
11a40	5c 32 31 31 40 01 41 40 5c 33 30 30 02 5c 32 30 34 1b 00 01 5c 32 30 33 3f 00 02 5c 32 30 33 28	\211@.A@\300.\204...\203?..\203(
11a60	00 02 5c 32 31 31 41 5c 32 36 32 04 5c 32 34 32 5c 32 30 32 29 00 04 02 5c 32 30 33 36 00 02 5c	..\211A\262.\242\202)...\2036..\
11a80	32 31 31 41 5c 32 36 32 04 5c 32 34 32 5c 32 30 32 37 00 05 42 01 42 5c 32 36 32 01 5c 32 30 32	211A\262.\242\2027..B.B\262.\202
11aa0	13 00 5c 32 33 37 5c 32 30 37 5c 33 30 33 5c 33 30 34 03 03 23 5c 32 30 37 22 20 5b 6e 69 6c 20	..\237\207\303\304..#\207".[nil.
11ac0	64 61 73 68 2d 2d 6c 65 6e 67 74 68 3d 20 32 20 61 70 70 6c 79 20 2d 7a 69 70 2d 6c 69 73 74 73	dash--length=.2.apply.-zip-lists
11ae0	2d 66 69 6c 6c 5d 20 38 20 28 23 24 20 2e 20 37 31 34 35 39 29 5d 29 23 40 35 37 30 20 55 6e 7a	-fill].8.(#$...71459)])#@570.Unz
11b00	69 70 20 4c 49 53 54 53 2e 0a 0a 54 68 69 73 20 77 6f 72 6b 73 20 6a 75 73 74 20 6c 69 6b 65 20	ip.LISTS...This.works.just.like.
11b20	60 2d 7a 69 70 27 20 28 77 68 69 63 68 20 73 65 65 29 2c 20 62 75 74 20 74 61 6b 65 73 20 61 20	`-zip'.(which.see),.but.takes.a.
11b40	6c 69 73 74 20 6f 66 0a 6c 69 73 74 73 20 69 6e 73 74 65 61 64 20 6f 66 20 61 20 76 61 72 69 61	list.of.lists.instead.of.a.varia
11b60	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 63 68 20 74 68	ble.number.of.arguments,.such.th
11b80	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 33 20 2e 2e 2e	at....(-unzip.(-zip.L1.L2.L3....
11ba0	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 20 74 68 65 20	))..is.identity.(given.that.the.
11bc0	6c 69 73 74 73 20 61 72 65 20 6f 66 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 2c 20 61 6e	lists.are.of.the.same.length,.an
11be0	64 0a 74 68 61 74 20 60 2d 7a 69 70 27 20 69 73 20 6e 6f 74 20 63 61 6c 6c 65 64 20 77 69 74 68	d.that.`-zip'.is.not.called.with
11c00	20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 2c 20 62 65 63 61 75 73 65 20 6f 66 20 74 68 65 0a 63	.two.arguments,.because.of.the.c
11c20	61 76 65 61 74 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 69 74 73 20 64 6f 63 73 74 72 69 6e 67	aveat.described.in.its.docstring
11c40	29 2e 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	)...Note.in.particular.that.call
11c60	69 6e 67 20 60 2d 75 6e 7a 69 70 27 20 6f 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20 6c 69	ing.`-unzip'.on.a.list.of.two.li
11c80	73 74 73 0a 77 69 6c 6c 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 64 6f 74 74 65 64	sts.will.return.a.list.of.dotted
11ca0	20 70 61 69 72 73 2e 0a 0a 53 69 6e 63 65 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20	.pairs...Since.the.return.value.
11cc0	63 68 61 6e 67 65 73 20 66 6f 72 6d 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 74 68 65 20 6e 75	changes.form.depending.on.the.nu
11ce0	6d 62 65 72 20 6f 66 0a 4c 49 53 54 53 2c 20 69 74 20 69 73 20 67 65 6e 65 72 61 6c 6c 79 20 72	mber.of.LISTS,.it.is.generally.r
11d00	65 63 6f 6d 6d 65 6e 64 65 64 20 74 6f 20 75 73 65 20 60 2d 75 6e 7a 69 70 2d 6c 69 73 74 73 27	ecommended.to.use.`-unzip-lists'
11d20	20 69 6e 73 74 65 61 64 2e 0a 0a 28 66 6e 20 4c 49 53 54 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64	.instead...(fn.LISTS)..(byte-cod
11d40	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
11d60	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 7a 69	\303#\300\207".[function-put.-zi
11d80	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 66 72 65 65 5d 20	p-fill.pure.t.side-effect-free].
11da0	35 29 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	5).(defalias.'-unzip.#[257."\300
11dc0	5c 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	\301.\"\207".[apply.-zip].4.(#$.
11de0	2e 20 37 32 34 34 35 29 5d 29 23 40 31 34 30 20 52 65 74 75 72 6e 20 61 6e 20 69 6e 66 69 6e 69	..72445)])#@140.Return.an.infini
11e00	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
11e20	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
11e40	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
11e60	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 62 79 74	.the.beginning...(fn.LIST)..(byt
11e80	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
11ea0	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
11ec0	74 20 2d 75 6e 7a 69 70 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65	t.-unzip.pure.t.side-effect-free
11ee0	5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 79 63 6c 65 20 23 5b 32 35 37 20 22 5c 33	].5).(defalias.'-cycle.#[257."\3
11f00	30 30 01 5c 33 30 31 5c 22 5c 32 31 31 01 5c 32 34 34 5c 32 30 37 22 20 5b 61 70 70 65 6e 64 20	00.\301\"\211.\244\207".[append.
11f20	6e 69 6c 5d 20 34 20 28 23 24 20 2e 20 37 33 32 30 30 29 5d 29 23 40 32 33 37 20 50 61 64 20 65	nil].4.(#$...73200)])#@237.Pad.e
11f40	61 63 68 20 6f 66 20 4c 49 53 54 53 20 77 69 74 68 20 46 49 4c 4c 2d 56 41 4c 55 45 20 75 6e 74	ach.of.LISTS.with.FILL-VALUE.unt
11f60	69 6c 20 74 68 65 79 20 61 6c 6c 20 68 61 76 65 20 65 71 75 61 6c 20 6c 65 6e 67 74 68 73 2e 0a	il.they.all.have.equal.lengths..
11f80	0a 45 6e 73 75 72 65 20 61 6c 6c 20 4c 49 53 54 53 20 61 72 65 20 61 73 20 6c 6f 6e 67 20 61 73	.Ensure.all.LISTS.are.as.long.as
11fa0	20 74 68 65 20 6c 6f 6e 67 65 73 74 20 6f 6e 65 20 62 79 20 72 65 70 65 61 74 65 64 6c 79 0a 61	.the.longest.one.by.repeatedly.a
11fc0	70 70 65 6e 64 69 6e 67 20 46 49 4c 4c 2d 56 41 4c 55 45 20 74 6f 20 74 68 65 20 73 68 6f 72 74	ppending.FILL-VALUE.to.the.short
11fe0	65 72 20 6c 69 73 74 73 2c 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 0a 72 65 73 75 6c 74 69	er.lists,.and.return.the.resulti
12000	6e 67 20 4c 49 53 54 53 2e 0a 0a 28 66 6e 20 46 49 4c 4c 2d 56 41 4c 55 45 20 26 72 65 73 74 20	ng.LISTS...(fn.FILL-VALUE.&rest.
12020	4c 49 53 54 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	LISTS)..(byte-code."\300\301\302
12040	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 79	\303#\300\207".[function-put.-cy
12060	63 6c 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61	cle.side-effect-free.t].4).(defa
12080	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 43 5c 33	lias.'-pad.#[385."\300\301.\"C\3
120a0	30 32 5c 33 30 33 5c 33 30 34 03 5c 32 34 32 23 5c 33 30 30 5c 33 30 35 5c 33 30 36 03 05 06 08	02\303\304.\242#\300\305\306....
120c0	24 04 5c 22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 6c 65 6e 67 74 68 20 61 70 70 6c 79 20 6d	$.\"\207".[mapcar.length.apply.m
120e0	61 78 20 30 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 01 5c 33	ax.0.make-closure.#[257."\303.\3
12100	30 34 5c 33 30 30 5c 33 30 31 5c 32 34 32 5c 33 30 31 5c 32 31 31 5c 32 34 32 41 5c 32 34 30 5c	04\300\301\242\301\211\242A\240\
12120	32 31 30 5c 32 34 32 5a 5c 33 30 32 5c 22 5c 22 5c 32 30 37 22 20 5b 56 30 20 56 31 20 56 32 20	210\242Z\302\"\"\207".[V0.V1.V2.
12140	61 70 70 65 6e 64 20 6d 61 6b 65 2d 6c 69 73 74 5d 20 38 20 28 23 24 20 2e 20 32 37 39 36 31 29	append.make-list].8.(#$...27961)
12160	5d 5d 20 31 30 20 28 23 24 20 2e 20 37 33 35 33 31 29 5d 29 23 40 32 39 35 20 50 61 69 72 20 65	]].10.(#$...73531)])#@295.Pair.e
12180	61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 77 69 74 68 20 74 68 65 20 72 65 73 75 6c 74	ach.item.in.LIST.with.the.result
121a0	20 6f 66 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 0a 0a 52 65 74 75 72 6e 20 61 6e 20	.of.evaluating.FORM...Return.an.
121c0	61 6c 69 73 74 20 6f 66 20 28 52 45 53 55 4c 54 20 2e 20 49 54 45 4d 29 2c 20 77 68 65 72 65 20	alist.of.(RESULT...ITEM),.where.
121e0	65 61 63 68 20 49 54 45 4d 20 69 73 20 74 68 65 0a 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 65	each.ITEM.is.the.corresponding.e
12200	6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2c 20 61 6e 64 20 52 45 53 55 4c 54 20 69 73 20 74 68	lement.of.LIST,.and.RESULT.is.th
12220	65 20 76 61 6c 75 65 20 6f 62 74 61 69 6e 65 64 0a 62 79 20 65 76 61 6c 75 61 74 69 6e 67 20 46	e.value.obtained.by.evaluating.F
12240	4f 52 4d 20 77 69 74 68 20 49 54 45 4d 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 2e 0a 0a 54 68	ORM.with.ITEM.bound.to.`it'...Th
12260	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.
12280	74 6f 20 60 2d 61 6e 6e 6f 74 61 74 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f	to.`-annotate'...(fn.FORM.LIST).
122a0	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
122c0	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
122e0	6f 6e 2d 70 75 74 20 2d 70 61 64 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66	on-put.-pad.pure.t.side-effect-f
12300	72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 61 6e 6e 6f 74 61 74 65 20 27 28	ree].5).(defalias.'--annotate.'(
12320	6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 5c 33 30 32 42 42 02 45	macro...#[514."\300\301.\302BB.E
12340	5c 32 30 37 22 20 5b 2d 2d 6d 61 70 20 63 6f 6e 73 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20	\207".[--map.cons.(it)].6.(#$...
12360	37 34 31 30 36 29 5d 29 29 23 40 32 37 38 20 50 61 69 72 20 65 61 63 68 20 69 74 65 6d 20 69 6e	74106)]))#@278.Pair.each.item.in
12380	20 4c 49 53 54 20 77 69 74 68 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 70 61 73 73 69 6e 67	.LIST.with.the.result.of.passing
123a0	20 69 74 20 74 6f 20 46 4e 2e 0a 0a 52 65 74 75 72 6e 20 61 6e 20 61 6c 69 73 74 20 6f 66 20 28	.it.to.FN...Return.an.alist.of.(
123c0	52 45 53 55 4c 54 20 2e 20 49 54 45 4d 29 2c 20 77 68 65 72 65 20 65 61 63 68 20 49 54 45 4d 20	RESULT...ITEM),.where.each.ITEM.
123e0	69 73 20 74 68 65 0a 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 65 6c 65 6d 65 6e 74 20 6f 66 20	is.the.corresponding.element.of.
12400	4c 49 53 54 2c 20 61 6e 64 20 52 45 53 55 4c 54 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 6f 62	LIST,.and.RESULT.is.the.value.ob
12420	74 61 69 6e 65 64 0a 62 79 20 63 61 6c 6c 69 6e 67 20 46 4e 20 6f 6e 20 49 54 45 4d 2e 0a 0a 54	tained.by.calling.FN.on.ITEM...T
12440	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
12460	70 61 72 74 20 69 73 20 60 2d 2d 61 6e 6e 6f 74 61 74 65 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49	part.is.`--annotate'...(fn.FN.LI
12480	53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 61 6e 6e 6f 74 61 74 65 20 27 65 64 65 62 75 67 2d 66 6f	ST)..(put.'--annotate.'edebug-fo
124a0	72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20	rm-spec.'(form.form)).(defalias.
124c0	27 2d 61 6e 6e 6f 74 61 74 65 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 5c	'-annotate.#[514."\300\301\302.\
124e0	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 23	".\"\207".[mapcar.make-closure.#
12500	5b 32 35 37 20 22 5c 33 30 30 01 21 01 42 5c 32 30 37 22 20 5b 56 30 5d 20 33 20 28 23 24 20 2e	[257."\300.!.B\207".[V0].3.(#$..
12520	20 32 37 39 36 31 29 5d 5d 20 36 20 28 23 24 20 2e 20 37 34 36 30 37 29 5d 29 23 40 31 34 30 20	.27961)]].6.(#$...74607)])#@140.
12540	48 65 6c 70 65 72 20 66 6f 72 20 60 2d 74 61 62 6c 65 27 20 61 6e 64 20 60 2d 74 61 62 6c 65 2d	Helper.for.`-table'.and.`-table-
12560	66 6c 61 74 27 2e 0a 0a 49 66 20 61 20 6c 69 73 74 20 6f 76 65 72 66 6c 6f 77 73 2c 20 63 61 72	flat'...If.a.list.overflows,.car
12580	72 79 20 74 6f 20 74 68 65 20 72 69 67 68 74 20 61 6e 64 20 72 65 73 65 74 20 74 68 65 20 6c 69	ry.to.the.right.and.reset.the.li
125a0	73 74 2e 0a 0a 28 66 6e 20 4c 49 53 54 53 20 52 45 53 54 4f 52 45 2d 4c 49 53 54 53 20 26 6f 70	st...(fn.LISTS.RESTORE-LISTS.&op
125c0	74 69 6f 6e 61 6c 20 52 45 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	tional.RE)..(byte-code."\300\301
125e0	5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74	\302\303#\300\207".[function-put
12600	20 2d 61 6e 6e 6f 74 61 74 65 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75	.-annotate.important-return-valu
12620	65 20 74 5d 20 34 29 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	e.t].4).(defalias.'dash--table-c
12640	61 72 72 79 20 23 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	arry.#[770.".@\206...\300\232?\2
12660	30 35 3c 00 02 02 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	05<...@\240\210.A@.A.A\240\266..
12680	41 5c 32 36 32 03 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	A\262..A\262.\211\203..\211@\237
126a0	01 41 01 03 41 40 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	.A..A@B\240\266.\211\301\240\210
126c0	41 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 24 20 2e	A\202..\207".[(nil).nil].7.(#$..
126e0	20 37 35 30 37 32 29 5d 29 23 40 33 35 32 20 43 6f 6d 70 75 74 65 20 6f 75 74 65 72 20 70 72 6f	.75072)])#@352.Compute.outer.pro
12700	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 20 46 4e 2e	duct.of.LISTS.using.function.FN.
12720	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 65 20 74 68	..The.function.FN.should.have.th
12740	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 66 0a 73 75	e.same.arity.as.the.number.of.su
12760	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 64 75 63 74	pplied.lists...The.outer.product
12780	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 74 6f 20 61	.is.computed.by.applying.fn.to.a
127a0	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 61 74 65 64	ll.possible.combinations.created
127c0	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 65 61 63 68	.by.taking.one.element.from.each
127e0	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 6f 6e 20 6f	.list.in.order...The.dimension.o
12800	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 73 29 2e 0a	f.the.result.is.(length.lists)..
12820	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 6e 20 46 4e	.See.also:.`-table-flat'..(fn.FN
12840	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 61 62 6c 65	.&rest.LISTS)..(defalias.'-table
12860	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 30 33 5c 22	.#[385."\300.!\301.!\302.G\303\"
12880	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 01 03 40 42	.@\203/.\304.\305\306..\"\"...@B
128a0	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 05 04 23 5c	\240\210.\211@A\240\210\307...#\
128c0	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 63 6f 70 79	266.\202..\301.!@\237\207".[copy
128e0	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 20 61 70 70	-sequence.last.make-list.nil.app
12900	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 79 5d 20 31	ly.-map.car.dash--table-carry].1
12920	30 20 28 23 24 20 2e 20 37 35 35 30 33 29 5d 29 23 40 35 33 39 20 43 6f 6d 70 75 74 65 20 66 6c	0.(#$...75503)])#@539.Compute.fl
12940	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 73 69 6e 67 20	at.outer.product.of.LISTS.using.
12960	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 46 4e 20 73 68	function.FN...The.function.FN.sh
12980	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 20 74 68 65 20	ould.have.the.same.arity.as.the.
129a0	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 54 68 65 20 6f	number.of.supplied.lists...The.o
129c0	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 20 61 70 70 6c	uter.product.is.computed.by.appl
129e0	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 62 69 6e 61 74	ying.fn.to.all.possible.combinat
12a00	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 65 6c 65 6d 65	ions.created.by.taking.one.eleme
12a20	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 20 20 54 68 65	nt.from.each.list.in.order...The
12a40	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 6f 72 69 6e 67	.results.are.flattened,.ignoring
12a60	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 65 20 72 65 73	.the.tensor.structure.of.the.res
12a80	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 20 63 61 6c 6c	ult...This.is.equivalent.to.call
12aa0	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 6e 67 74 68 20	ing:....(-flatten-n.(1-.(length.
12ac0	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 20 6c 69 73 74	lists)).(apply.\='-table.fn.list
12ae0	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 20 68 65 72 65	s))..but.the.implementation.here
12b00	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 65 65 20 61 6c	.is.much.more.efficient...See.al
12b20	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 0a 28 66 6e 20	so:.`-flatten-n',.`-table'..(fn.
12b40	46 4e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	FN.&rest.LISTS)..(byte-code."\30
12b60	30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f	0\301\302\303#\300\207".[functio
12b80	6e 2d 70 75 74 20 2d 74 61 62 6c 65 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61	n-put.-table.important-return-va
12ba0	6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 62 6c 65 2d 66 6c 61 74	lue.t].4).(defalias.'-table-flat
12bc0	20 23 5b 33 38 35 20 22 5c 33 30 30 01 21 5c 33 30 31 02 21 5c 33 30 32 01 40 5c 32 30 33 28 00	.#[385."\300.!\301.!\302.@\203(.
12be0	5c 33 30 33 05 5c 33 30 34 5c 33 30 35 06 07 5c 22 5c 22 5c 32 31 31 02 42 5c 32 36 32 02 04 5c	\303.\304\305..\"\"\211.B\262..\
12c00	32 31 31 40 41 5c 32 34 30 5c 32 31 30 5c 33 30 36 05 05 5c 22 5c 32 36 36 02 5c 32 30 32 07 00	211@A\240\210\306..\"\266.\202..
12c20	5c 32 33 37 5c 32 30 37 22 20 5b 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 6c 61 73 74 20 6e 69	\237\207".[copy-sequence.last.ni
12c40	6c 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	l.apply.-map.car.dash--table-car
12c60	72 79 5d 20 31 30 20 28 23 24 20 2e 20 37 36 30 38 36 29 5d 29 23 40 32 38 31 20 52 65 74 75 72	ry].10.(#$...76086)])#@281.Retur
12c80	6e 20 74 68 65 20 66 69 72 73 74 20 69 6e 64 65 78 20 69 6e 20 4c 49 53 54 20 66 6f 72 20 77 68	n.the.first.index.in.LIST.for.wh
12ca0	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 72	ich.FORM.evals.to.non-nil..Retur
12cc0	6e 20 6e 69 6c 20 69 66 20 6e 6f 20 73 75 63 68 20 69 6e 64 65 78 20 69 73 20 66 6f 75 6e 64 2e	n.nil.if.no.such.index.is.found.
12ce0	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
12d00	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
12d20	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
12d40	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 61 70 68	aluating.FORM..This.is.the.anaph
12d60	6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 66 69 6e 64 2d 69 6e 64 65 78	oric.counterpart.to.`-find-index
12d80	27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	'...(fn.FORM.LIST)..(byte-code."
12da0	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63	\300\301\302\303#\300\207".[func
12dc0	74 69 6f 6e 2d 70 75 74 20 2d 74 61 62 6c 65 2d 66 6c 61 74 20 69 6d 70 6f 72 74 61 6e 74 2d 72	tion-put.-table-flat.important-r
12de0	65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66	eturn-value.t].4).(defalias.'--f
12e00	69 6e 64 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 5c	ind-index.'(macro...#[514."\300\
12e20	33 30 31 03 5c 33 30 32 42 42 02 45 5c 32 30 37 22 20 5b 2d 2d 73 6f 6d 65 20 61 6e 64 20 28 69	301.\302BB.E\207".[--some.and.(i
12e40	74 2d 69 6e 64 65 78 29 5d 20 36 20 28 23 24 20 2e 20 37 36 39 32 33 29 5d 29 29 23 40 33 33 38	t-index)].6.(#$...76923)]))#@338
12e60	20 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 69	.Return.the.index.of.the.first.i
12e80	74 65 6d 20 73 61 74 69 73 66 79 69 6e 67 20 50 52 45 44 20 69 6e 20 4c 49 53 54 2e 0a 52 65 74	tem.satisfying.PRED.in.LIST..Ret
12ea0	75 72 6e 20 6e 69 6c 20 69 66 20 6e 6f 20 73 75 63 68 20 69 74 65 6d 20 69 73 20 66 6f 75 6e 64	urn.nil.if.no.such.item.is.found
12ec0	2e 0a 0a 50 52 45 44 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 6f 6e 65 20 61 72 67 75 6d	...PRED.is.called.with.one.argum
12ee0	65 6e 74 2c 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 73 74 20 65 6c 65 6d 65 6e 74 2c 20 75	ent,.the.current.list.element,.u
12f00	6e 74 69 6c 0a 69 74 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 74 20 77 68 69 63	ntil.it.returns.non-nil,.at.whic
12f20	68 20 70 6f 69 6e 74 20 74 68 65 20 73 65 61 72 63 68 20 74 65 72 6d 69 6e 61 74 65 73 2e 0a 0a	h.point.the.search.terminates...
12f40	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
12f60	72 70 61 72 74 20 69 73 20 60 2d 2d 66 69 6e 64 2d 69 6e 64 65 78 27 2e 0a 0a 53 65 65 20 61 6c	rpart.is.`--find-index'...See.al
12f80	73 6f 3a 20 60 2d 66 69 72 73 74 27 2c 20 60 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 27	so:.`-first',.`-find-last-index'
12fa0	2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 66 69 6e 64 2d	...(fn.PRED.LIST)..(put.'--find-
12fc0	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 66 6f 72 6d 20 66	index.'edebug-form-spec.'(form.f
12fe0	6f 72 6d 29 29 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	orm)).(defalias.'-find-index.#[5
13000	31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 02 5c 32 30 33 23 00 5c 32 31 30 01 5c 32 34	14."\300.\301\300.\203#.\210.\24
13020	32 05 01 21 5c 32 30 35 12 00 01 5c 32 31 31 5c 32 36 32 05 5c 32 30 34 23 00 01 54 5c 32 36 32	2..!\205...\211\262.\204#..T\262
13040	02 02 41 5c 32 36 32 03 5c 32 30 32 04 00 5c 32 36 36 03 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d	..A\262.\202..\266.\207".[nil.0]
13060	20 38 20 28 23 24 20 2e 20 37 37 34 30 39 29 5d 29 23 40 32 30 31 20 52 65 74 75 72 6e 20 74 68	.8.(#$...77409)])#@201.Return.th
13080	65 20 66 69 72 73 74 20 69 6e 64 65 78 20 6f 66 20 45 4c 45 4d 20 69 6e 20 4c 49 53 54 2e 0a 54	e.first.index.of.ELEM.in.LIST..T
130a0	68 61 74 20 69 73 2c 20 74 68 65 20 69 6e 64 65 78 20 77 69 74 68 69 6e 20 4c 49 53 54 20 6f 66	hat.is,.the.index.within.LIST.of
130c0	20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 74 68 61 74 20 69 73 0a 60 65 71 75 61	.the.first.element.that.is.`equa
130e0	6c 27 20 74 6f 20 45 4c 45 4d 2e 20 20 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 74 68 65 72 65	l'.to.ELEM...Return.nil.if.there
13100	20 69 73 20 6e 6f 20 73 75 63 68 20 65 6c 65 6d 65 6e 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20	.is.no.such.element...See.also:.
13120	60 2d 66 69 6e 64 2d 69 6e 64 65 78 27 2e 0a 0a 28 66 6e 20 45 4c 45 4d 20 4c 49 53 54 29 1f 0a	`-find-index'...(fn.ELEM.LIST)..
13140	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
13160	30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 69 6e 64 2d 69 6e 64 65 78	0\207".[function-put.-find-index
13180	20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64	.important-return-value.t].4).(d
131a0	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 22 5c 33 30 30	efalias.'-elem-index.#[514."\300
131c0	01 5c 33 30 31 5c 33 30 30 02 5c 32 30 33 23 00 5c 32 31 30 01 5c 32 34 32 05 01 5c 32 33 32 5c	.\301\300.\203#.\210.\242..\232\
131e0	32 30 35 12 00 01 5c 32 31 31 5c 32 36 32 05 5c 32 30 34 23 00 01 54 5c 32 36 32 02 02 41 5c 32	205...\211\262.\204#..T\262..A\2
13200	36 32 03 5c 32 30 32 04 00 5c 32 36 36 03 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23	62.\202..\266.\207".[nil.0].8.(#
13220	24 20 2e 20 37 37 39 34 33 29 5d 29 23 40 32 34 39 20 52 65 74 75 72 6e 20 74 68 65 20 6c 69 73	$...77943)])#@249.Return.the.lis
13240	74 20 6f 66 20 69 6e 64 69 63 65 73 20 69 6e 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 46	t.of.indices.in.LIST.for.which.F
13260	4f 52 4d 20 65 76 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	ORM.evals.to.non-nil..Each.eleme
13280	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 60	nt.of.LIST.in.turn.is.bound.to.`
132a0	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 6f	it'.and.its.index.within.LIST.to
132c0	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 4f	.`it-index'.before.evaluating.FO
132e0	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 65	RM..This.is.the.anaphoric.counte
13300	72 70 61 72 74 20 74 6f 20 60 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 27 2e 0a 0a 28 66 6e 20 46	rpart.to.`-find-indices'...(fn.F
13320	4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c	ORM.LIST)..(byte-code."\300\301\
13340	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
13360	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 65 78 20 70 75 72	7".[function-put.-elem-index.pur
13380	65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69	e.t.side-effect-free].5).(defali
133a0	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 20 23 5b 35	as.'--find-indices.'(macro...#[5
133c0	31 34 20 22 5c 33 30 30 5c 33 30 31 03 5c 33 30 32 42 42 02 45 5c 32 30 37 22 20 5b 2d 2d 6b 65	14."\300\301.\302BB.E\207".[--ke
133e0	65 70 20 61 6e 64 20 28 69 74 2d 69 6e 64 65 78 29 5d 20 36 20 28 23 24 20 2e 20 37 38 33 38 36	ep.and.(it-index)].6.(#$...78386
13400	29 5d 29 29 23 40 34 30 33 20 52 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 69 6e 64	)]))#@403.Return.the.list.of.ind
13420	69 63 65 73 20 69 6e 20 4c 49 53 54 20 73 61 74 69 73 66 79 69 6e 67 20 50 52 45 44 2e 0a 0a 45	ices.in.LIST.satisfying.PRED...E
13440	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 20 70	ach.element.of.LIST.in.turn.is.p
13460	61 73 73 65 64 20 74 6f 20 50 52 45 44 2e 20 20 49 66 20 74 68 65 20 72 65 73 75 6c 74 20 69 73	assed.to.PRED...If.the.result.is
13480	0a 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 61 74 20 65 6c 65 6d	.non-nil,.the.index.of.that.elem
134a0	65 6e 74 20 69 6e 20 4c 49 53 54 20 69 73 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 74 68 65 0a 72	ent.in.LIST.is.included.in.the.r
134c0	65 73 75 6c 74 2e 20 20 54 68 65 20 72 65 74 75 72 6e 65 64 20 69 6e 64 69 63 65 73 20 61 72 65	esult...The.returned.indices.are
134e0	20 69 6e 20 61 73 63 65 6e 64 69 6e 67 20 6f 72 64 65 72 2c 20 69 2e 65 2e 2c 20 69 6e 0a 74 68	.in.ascending.order,.i.e.,.in.th
13500	65 20 73 61 6d 65 20 6f 72 64 65 72 20 61 73 20 74 68 65 79 20 61 70 70 65 61 72 20 69 6e 20 4c	e.same.order.as.they.appear.in.L
13520	49 53 54 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	IST...This.function's.anaphoric.
13540	63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 27 2e	counterpart.is.`--find-indices'.
13560	0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 69 6e 64 2d 69 6e 64 65 78 27 2c 20 60 2d 65 6c 65	..See.also:.`-find-index',.`-ele
13580	6d 2d 69 6e 64 69 63 65 73 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 70 75	m-indices'...(fn.PRED.LIST)..(pu
135a0	74 20 27 2d 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73	t.'--find-indices.'edebug-form-s
135c0	70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69	pec.'(form.form)).(defalias.'-fi
135e0	6e 64 2d 69 6e 64 69 63 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33	nd-indices.#[514."\300.\301.\203
13600	23 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 05 01 21 5c 32 30 35 14 00 01 5c 32 31 31 5c	#..\211A\262.\242..!\205...\211\
13620	32 30 33 1d 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 36 36 02 54 5c 32 30 32 03 00 5c 32 36 36	203..\211.B\262.\266.T\202..\266
13640	02 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 37 38 38 35 38	.\237\207".[nil.0].9.(#$...78858
13660	29 5d 29 23 40 31 38 39 20 52 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 69 6e 64 69	)])#@189.Return.the.list.of.indi
13680	63 65 73 20 61 74 20 77 68 69 63 68 20 45 4c 45 4d 20 61 70 70 65 61 72 73 20 69 6e 20 4c 49 53	ces.at.which.ELEM.appears.in.LIS
136a0	54 2e 0a 54 68 61 74 20 69 73 2c 20 74 68 65 20 69 6e 64 69 63 65 73 20 6f 66 20 61 6c 6c 20 65	T..That.is,.the.indices.of.all.e
136c0	6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 20 60 65 71 75 61 6c 27 20 74 6f 20 45 4c 45 4d 2c	lements.of.LIST.`equal'.to.ELEM,
136e0	20 69 6e 0a 74 68 65 20 73 61 6d 65 20 61 73 63 65 6e 64 69 6e 67 20 6f 72 64 65 72 20 61 73 20	.in.the.same.ascending.order.as.
13700	74 68 65 79 20 61 70 70 65 61 72 20 69 6e 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 45 4c 45 4d 20 4c	they.appear.in.LIST...(fn.ELEM.L
13720	49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	IST)..(byte-code."\300\301\302\3
13740	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 66 69 6e 64	03#\300\207".[function-put.-find
13760	2d 69 6e 64 69 63 65 73 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20	-indices.important-return-value.
13780	74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 65 6c 65 6d 2d 69 6e 64 69 63 65 73 20 23	t].4).(defalias.'-elem-indices.#
137a0	5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 23 00 01 5c 32 31 31 41 5c 32 36 32	[514."\300.\301.\203#..\211A\262
137c0	03 5c 32 34 32 05 01 5c 32 33 32 5c 32 30 35 14 00 01 5c 32 31 31 5c 32 30 33 1d 00 5c 32 31 31	.\242..\232\205...\211\203..\211
137e0	05 42 5c 32 36 32 05 5c 32 36 36 02 54 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 33 37 5c 32 30 37	.B\262.\266.T\202..\266.\237\207
13800	22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 37 39 34 36 35 29 5d 29 23 40 32 38 35 20	".[nil.0].9.(#$...79465)])#@285.
13820	52 65 74 75 72 6e 20 74 68 65 20 6c 61 73 74 20 69 6e 64 65 78 20 69 6e 20 4c 49 53 54 20 66 6f	Return.the.last.index.in.LIST.fo
13840	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 0a 52	r.which.FORM.evals.to.non-nil..R
13860	65 74 75 72 6e 20 6e 69 6c 20 69 66 20 6e 6f 20 73 75 63 68 20 69 6e 64 65 78 20 69 73 20 66 6f	eturn.nil.if.no.such.index.is.fo
13880	75 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	und..Each.element.of.LIST.in.tur
138a0	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
138c0	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
138e0	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
13900	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 66 69 6e 64 2d 6c	naphoric.counterpart.to.`-find-l
13920	61 73 74 2d 69 6e 64 65 78 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79	ast-index'...(fn.FORM.LIST)..(by
13940	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
13960	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
13980	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 66	ut.-elem-indices.pure.t.side-eff
139a0	65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 6e 64 2d 6c	ect-free].5).(defalias.'--find-l
139c0	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 5c	ast-index.'(macro...#[514."\300\
139e0	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 06 07 5c 33 30 36 42	301!\302.C\303.\304..\305..\306B
13a00	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 69 6e 64 65 78 22 20	BEE.F\207".[make-symbol."index".
13a20	6c 65 74 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 73 65 74 71 20 28 69 74 2d 69 6e 64 65 78 29 5d	let.--each.when.setq.(it-index)]
13a40	20 31 32 20 28 23 24 20 2e 20 37 39 39 30 34 29 5d 29 29 23 40 32 39 39 20 52 65 74 75 72 6e 20	.12.(#$...79904)]))#@299.Return.
13a60	74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 20 73 61 74 69 73	the.index.of.the.last.item.satis
13a80	66 79 69 6e 67 20 50 52 45 44 20 69 6e 20 4c 49 53 54 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69	fying.PRED.in.LIST..Return.nil.i
13aa0	66 20 6e 6f 20 73 75 63 68 20 69 74 65 6d 20 69 73 20 66 6f 75 6e 64 2e 0a 0a 50 72 65 64 69 63	f.no.such.item.is.found...Predic
13ac0	61 74 65 20 50 52 45 44 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 6f 6e 65 20 61 72 67 75	ate.PRED.is.called.with.one.argu
13ae0	6d 65 6e 74 20 65 61 63 68 20 74 69 6d 65 2c 20 6e 61 6d 65 6c 79 20 74 68 65 0a 63 75 72 72 65	ment.each.time,.namely.the.curre
13b00	6e 74 20 6c 69 73 74 20 65 6c 65 6d 65 6e 74 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27	nt.list.element...This.function'
13b20	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 66 69	s.anaphoric.counterpart.is.`--fi
13b40	6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6c 61 73	nd-last-index'...See.also:.`-las
13b60	74 27 2c 20 60 2d 66 69 6e 64 2d 69 6e 64 65 78 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53	t',.`-find-index'...(fn.PRED.LIS
13b80	54 29 1f 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	T)..(put.'--find-last-index.'ede
13ba0	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 0a 28 64 65 66	bug-form-spec.'(form.form)).(def
13bc0	61 6c 69 61 73 20 27 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 20 23 5b 35 31 34 20 22 5c	alias.'-find-last-index.#[514."\
13be0	33 30 30 01 5c 33 30 31 01 5c 32 30 33 1b 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 05 01	300.\301.\203...\211A\262.\242..
13c00	21 5c 32 30 33 16 00 01 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 30	!\203...\262.\210T\202..\266.\20
13c20	37 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 38 30 34 37 33 29 5d 29 23 40 31 32 33	7".[nil.0].8.(#$...80473)])#@123
13c40	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 73 20 61 72	.Return.a.list.whose.elements.ar
13c60	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 64 0a 61 73	e.elements.from.LIST.selected.as
13c80	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 6f 6d 20 49	.`(nth.i.list)`.for.all.i.from.I
13ca0	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 28 62 79 74	NDICES...(fn.INDICES.LIST)..(byt
13cc0	65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30	e-code."\300\301\302\303#\300\20
13ce0	37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65	7".[function-put.-find-last-inde
13d00	78 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28	x.important-return-value.t].4).(
13d20	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 35	defalias.'-select-by-indices.#[5
13d40	31 34 20 22 5c 33 30 30 02 5c 33 30 31 01 5c 32 30 33 19 00 01 5c 32 31 31 41 5c 32 36 32 03 5c	14."\300.\301.\203...\211A\262.\
13d60	32 34 32 5c 32 31 31 05 38 04 42 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 03 00 5c 32 36 36 02	242\211.8.B\262.\210T\202..\266.
13d80	5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 38 30 39 36 31 29	\237\207".[nil.0].8.(#$...80961)
13da0	5d 29 23 40 32 38 33 20 53 65 6c 65 63 74 20 43 4f 4c 55 4d 4e 53 20 66 72 6f 6d 20 54 41 42 4c	])#@283.Select.COLUMNS.from.TABL
13dc0	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 68 65	E...TABLE.is.a.list.of.lists.whe
13de0	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 20 72	re.each.element.represents.one.r
13e00	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 20 74	ow..It.is.assumed.each.row.has.t
13e20	68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 2e 0a 0a 45 61 63 68 20 72 6f 77 20 69 73 20 74 72 61	he.same.length...Each.row.is.tra
13e40	6e 73 66 6f 72 6d 65 64 20 73 75 63 68 20 74 68 61 74 20 6f 6e 6c 79 20 74 68 65 20 73 70 65 63	nsformed.such.that.only.the.spec
13e60	69 66 69 65 64 20 43 4f 4c 55 4d 4e 53 20 61 72 65 0a 73 65 6c 65 63 74 65 64 2e 0a 0a 53 65 65	ified.COLUMNS.are.selected...See
13e80	20 61 6c 73 6f 3a 20 60 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 27 2c 20 60 2d 73 65 6c 65 63	.also:.`-select-column',.`-selec
13ea0	74 2d 62 79 2d 69 6e 64 69 63 65 73 27 0a 0a 28 66 6e 20 43 4f 4c 55 4d 4e 53 20 54 41 42 4c 45	t-by-indices'..(fn.COLUMNS.TABLE
13ec0	29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23	)..(byte-code."\300\301\302\303#
13ee0	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
13f00	74 69 6f 6e 2d 70 75 74 20 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 20 70 75 72 65	tion-put.-select-by-indices.pure
13f20	20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61	.t.side-effect-free].5).(defalia
13f40	73 20 27 2d 73 65 6c 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	s.'-select-columns.#[514."\300\3
13f60	30 31 5c 33 30 32 04 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	01\302.\".\"\207".[mapcar.make-c
13f80	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 20 5b	losure.#[257."\301\300.\"\207".[
13fa0	56 30 20 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 5d 20 34 20 28 23 24 20 2e 20 32	V0.-select-by-indices].4.(#$...2
13fc0	37 39 36 31 29 5d 5d 20 36 20 28 23 24 20 2e 20 38 31 33 32 30 29 5d 29 23 40 32 35 37 20 53 65	7961)]].6.(#$...81320)])#@257.Se
13fe0	6c 65 63 74 20 43 4f 4c 55 4d 4e 20 66 72 6f 6d 20 54 41 42 4c 45 2e 0a 0a 54 41 42 4c 45 20 69	lect.COLUMN.from.TABLE...TABLE.i
14000	73 20 61 20 6c 69 73 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	s.a.list.of.lists.where.each.ele
14020	6d 65 6e 74 20 72 65 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	ment.represents.one.row..It.is.a
14040	73 73 75 6d 65 64 20 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	ssumed.each.row.has.the.same.len
14060	67 74 68 2e 0a 0a 54 68 65 20 73 69 6e 67 6c 65 20 73 65 6c 65 63 74 65 64 20 63 6f 6c 75 6d 6e	gth...The.single.selected.column
14080	20 69 73 20 72 65 74 75 72 6e 65 64 20 61 73 20 61 20 6c 69 73 74 2e 0a 0a 53 65 65 20 61 6c 73	.is.returned.as.a.list...See.als
140a0	6f 3a 20 60 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 73 27 2c 20 60 2d 73 65 6c 65 63 74 2d 62	o:.`-select-columns',.`-select-b
140c0	79 2d 69 6e 64 69 63 65 73 27 0a 0a 28 66 6e 20 43 4f 4c 55 4d 4e 20 54 41 42 4c 45 29 1f 0a 28	y-indices'..(fn.COLUMN.TABLE)..(
140e0	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
14100	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
14120	2d 70 75 74 20 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 73 20 70 75 72 65 20 74 20 73 69 64 65	-put.-select-columns.pure.t.side
14140	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 6c	-effect-free].5).(defalias.'-sel
14160	65 63 74 2d 63 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	ect-column.#[514."\300\301\302\3
14180	30 33 5c 33 30 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	03\304..\".\"\"\207".[apply.appe
141a0	6e 64 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	nd.mapcar.make-closure.#[257."\3
141c0	30 31 5c 33 30 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	01\300C.\"\207".[V0.-select-by-i
141e0	6e 64 69 63 65 73 5d 20 34 20 28 23 24 20 2e 20 32 37 39 36 31 29 5d 5d 20 38 20 28 23 24 20 2e	ndices].4.(#$...27961)]].8.(#$..
14200	20 38 31 38 38 36 29 5d 29 23 40 32 35 33 20 54 68 72 65 61 64 20 74 68 65 20 65 78 70 72 20 74	.81886)])#@253.Thread.the.expr.t
14220	68 72 6f 75 67 68 20 74 68 65 20 66 6f 72 6d 73 2e 20 49 6e 73 65 72 74 20 58 20 61 73 20 74 68	hrough.the.forms..Insert.X.as.th
14240	65 20 73 65 63 6f 6e 64 20 69 74 65 6d 0a 69 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c	e.second.item.in.the.first.form,
14260	20 6d 61 6b 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 20 69 74 20 69 66 20 69 74 20 69 73 20 6e 6f	.making.a.list.of.it.if.it.is.no
14280	74 20 61 20 6c 69 73 74 0a 61 6c 72 65 61 64 79 2e 20 49 66 20 74 68 65 72 65 20 61 72 65 20 6d	t.a.list.already..If.there.are.m
142a0	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 74 20 66 6f 72 6d	ore.forms,.insert.the.first.form
142c0	20 61 73 20 74 68 65 0a 73 65 63 6f 6e 64 20 69 74 65 6d 20 69 6e 20 73 65 63 6f 6e 64 20 66 6f	.as.the.second.item.in.second.fo
142e0	72 6d 2c 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	rm,.etc...(fn.X.&optional.FORM.&
14300	72 65 73 74 20 4d 4f 52 45 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	rest.MORE)..(byte-code."\300\301
14320	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
14340	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 2d 63 6f 6c 75 6d 6e	07".[function-put.-select-column
14360	20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65	.pure.t.side-effect-free].5).(de
14380	66 61 6c 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	falias.'->.'(macro...#[641.".\20
143a0	34 06 00 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	4...\207\211\204...<\203...@..AB
143c0	42 5c 32 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	B\207..D\207\300\211..E.BB\207".
143e0	5b 2d 3e 5d 20 37 20 28 23 24 20 2e 20 38 32 34 34 37 29 5d 29 29 23 40 32 34 39 20 54 68 72 65	[->].7.(#$...82447)]))#@249.Thre
14400	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 49	ad.the.expr.through.the.forms..I
14420	6e 73 65 72 74 20 58 20 61 73 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 0a 69 6e 20 74 68 65 20	nsert.X.as.the.last.item.in.the.
14440	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 69 74 20	first.form,.making.a.list.of.it.
14460	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 49 66 20	if.it.is.not.a.list.already..If.
14480	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 74 68 65	there.are.more.forms,.insert.the
144a0	20 66 69 72 73 74 20 66 6f 72 6d 20 61 73 20 74 68 65 0a 6c 61 73 74 20 69 74 65 6d 20 69 6e 20	.first.form.as.the.last.item.in.
144c0	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 70 74 69 6f 6e	second.form,.etc...(fn.X.&option
144e0	61 6c 20 46 4f 52 4d 20 26 72 65 73 74 20 4d 4f 52 45 29 1f 0a 28 70 75 74 20 27 2d 3e 20 27 65	al.FORM.&rest.MORE)..(put.'->.'e
14500	64 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	debug-form-spec.'(form.&rest.[&o
14520	72 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 28	r.symbolp.(sexp.&rest.form)])).(
14540	64 65 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	defalias.'->>.'(macro...#[641.".
14560	5c 32 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	\204...\207\211\204...<\203..\30
14580	30 02 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	0..C\"\207..D\207\301\211..E.BB\
145a0	32 30 37 22 20 5b 61 70 70 65 6e 64 20 2d 3e 3e 5d 20 37 20 28 23 24 20 2e 20 38 32 39 34 30 29	207".[append.->>].7.(#$...82940)
145c0	5d 29 29 23 40 32 37 30 20 53 74 61 72 74 69 6e 67 20 77 69 74 68 20 74 68 65 20 76 61 6c 75 65	]))#@270.Starting.with.the.value
145e0	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
14600	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
14620	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.`
14640	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
14660	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
14680	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
146a0	20 62 79 20 60 69 74 27 20 69 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63	.by.`it'.in.the.second.form,.etc
146c0	2e 0a 0a 28 66 6e 20 58 20 26 72 65 73 74 20 46 4f 52 4d 53 29 1f 0a 28 70 75 74 20 27 2d 3e 3e	...(fn.X.&rest.FORMS)..(put.'->>
146e0	20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 2d 3e 29 0a 28 64 65 66 61 6c 69 61	.'edebug-form-spec.'->).(defalia
14700	73 20 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	s.'-->.'(macro...#[385."\300.\30
14720	31 03 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 38 33	1.BBB\207".[-as->.it].6.(#$...83
14740	34 30 31 29 5d 29 29 23 40 32 31 32 20 53 74 61 72 74 69 6e 67 20 77 69 74 68 20 56 41 4c 55 45	401)]))#@212.Starting.with.VALUE
14760	2c 20 74 68 72 65 61 64 20 56 41 52 49 41 42 4c 45 20 74 68 72 6f 75 67 68 20 46 4f 52 4d 53 2e	,.thread.VARIABLE.through.FORMS.
14780	0a 0a 49 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 62 69 6e 64 20 56 41 52 49 41 42	..In.the.first.form,.bind.VARIAB
147a0	4c 45 20 74 6f 20 56 41 4c 55 45 2e 20 20 49 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 66 6f 72 6d	LE.to.VALUE...In.the.second.form
147c0	2c 20 62 69 6e 64 0a 56 41 52 49 41 42 4c 45 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66	,.bind.VARIABLE.to.the.result.of
147e0	20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 61 6e 64 20 73 6f 20 66 6f 72 74 68 2e 0a 0a	.the.first.form,.and.so.forth...
14800	28 66 6e 20 56 41 4c 55 45 20 56 41 52 49 41 42 4c 45 20 26 72 65 73 74 20 46 4f 52 4d 53 29 1f	(fn.VALUE.VARIABLE.&rest.FORMS).
14820	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 63 20 27 28 66	.(put.'-->.'edebug-form-spec.'(f
14840	6f 72 6d 20 62 6f 64 79 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 73 2d 3e 20 27 28 6d 61	orm.body)).(defalias.'-as->.'(ma
14860	63 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	cro...#[642."\211\204...\207\300
14880	02 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	..DC\301.@9\203...@.D\202...@..A
148a0	42 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 38 33	BBBE\207".[let.-as->].9.(#$...83
148c0	37 38 39 29 5d 29 29 23 40 31 36 33 20 57 68 65 6e 20 65 78 70 72 20 69 73 20 6e 6f 6e 2d 6e 69	789)]))#@163.When.expr.is.non-ni
148e0	6c 2c 20 74 68 72 65 61 64 20 69 74 20 74 68 72 6f 75 67 68 20 74 68 65 20 66 69 72 73 74 20 66	l,.thread.it.through.the.first.f
14900	6f 72 6d 20 28 76 69 61 20 60 2d 3e 27 29 2c 0a 61 6e 64 20 77 68 65 6e 20 74 68 61 74 20 72 65	orm.(via.`->'),.and.when.that.re
14920	73 75 6c 74 20 69 73 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	sult.is.non-nil,.through.the.nex
14940	74 20 66 6f 72 6d 2c 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	t.form,.etc...(fn.X.&optional.FO
14960	52 4d 20 26 72 65 73 74 20 4d 4f 52 45 29 1f 0a 28 70 75 74 20 27 2d 61 73 2d 3e 20 27 65 64 65	RM.&rest.MORE)..(put.'-as->.'ede
14980	62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 73 79 6d 62 6f 6c 70 20 62 6f 64	bug-form-spec.'(form.symbolp.bod
149a0	79 29 29 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	y)).(defalias.'-some->.'(macro..
149c0	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
149e0	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
14a00	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
14a20	65 74 20 2d 3e 5d 20 31 30 20 28 23 24 20 2e 20 38 34 31 37 33 29 5d 29 29 23 40 31 36 34 20 57	et.->].10.(#$...84173)]))#@164.W
14a40	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 20 74	hen.expr.is.non-nil,.thread.it.t
14a60	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 3e 27	hrough.the.first.form.(via.`->>'
14a80	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 6e	),.and.when.that.result.is.non-n
14aa0	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 0a	il,.through.the.next.form,.etc..
14ac0	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 45	.(fn.X.&optional.FORM.&rest.MORE
14ae0	29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23	)..(byte-code."\300\301\302\303#
14b00	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".[
14b20	70 75 74 20 2d 73 6f 6d 65 2d 3e 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 2d 3e 20	put.-some->.edebug-form-spec.->.
14b40	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
14b60	6e 20 31 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6f 6d 65 2d 3e 3e 20 27 28 6d 61	n.1].4).(defalias.'-some->>.'(ma
14b80	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 30	cro...#[641.".\204...\207\300\30
14ba0	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 20	1!\302\303...D\304...EE.BB\207".
14bc0	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 2d	[make-symbol."result".-some->>.-
14be0	77 68 65 6e 2d 6c 65 74 20 2d 3e 3e 5d 20 31 30 20 28 23 24 20 2e 20 38 34 35 34 33 29 5d 29 29	when-let.->>].10.(#$...84543)]))
14c00	23 40 32 33 39 20 54 68 72 65 61 64 20 45 58 50 52 20 74 68 72 6f 75 67 68 20 46 4f 52 4d 53 20	#@239.Thread.EXPR.through.FORMS.
14c20	76 69 61 20 60 2d 2d 3e 27 2c 20 77 68 69 6c 65 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 6e	via.`-->',.while.the.result.is.n
14c40	6f 6e 2d 6e 69 6c 2e 0a 57 68 65 6e 20 45 58 50 52 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e	on-nil..When.EXPR.evaluates.to.n
14c60	6f 6e 2d 6e 69 6c 2c 20 74 68 72 65 61 64 20 74 68 65 20 72 65 73 75 6c 74 20 74 68 72 6f 75 67	on-nil,.thread.the.result.throug
14c80	68 20 74 68 65 0a 66 69 72 73 74 20 6f 66 20 46 4f 52 4d 53 2c 20 61 6e 64 20 77 68 65 6e 20 74	h.the.first.of.FORMS,.and.when.t
14ca0	68 61 74 20 72 65 73 75 6c 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 65 61 64 20 69 74	hat.result.is.non-nil,.thread.it
14cc0	0a 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 0a 0a 28 66	.through.the.next.form,.etc...(f
14ce0	6e 20 45 58 50 52 20 26 72 65 73 74 20 46 4f 52 4d 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20	n.EXPR.&rest.FORMS)..(byte-code.
14d00	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 31 5c 33	"\300\301\302\303#\210\304\301\3
14d20	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 3e 3e 20 65	05\306#\300\207".[put.-some->>.e
14d40	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 70 75 74 20	debug-form-spec.->.function-put.
14d60	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 28 64 65 66 61	lisp-indent-function.1].4).(defa
14d80	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 20 22	lias.'-some-->.'(macro...#[385."
14da0	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 30 33	\211\204...\207\300\301!\302\303
14dc0	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 79 6d	..D\304...@EE.ABB\207".[make-sym
14de0	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 74 20	bol."result".-some-->.-when-let.
14e00	2d 2d 3e 5d 20 39 20 28 23 24 20 2e 20 38 34 39 39 38 29 5d 29 29 23 40 32 35 37 20 45 76 61 6c	-->].9.(#$...84998)]))#@257.Eval
14e20	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 67 75 6d 65 6e	uate.INIT.and.pass.it.as.argumen
14e40	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 45 53 55 4c 54	t.to.FORMS.with.`->'..The.RESULT
14e60	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 61 64 65 64 20	.of.evaluating.INIT.is.threaded.
14e80	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 69 64 75 61 6c	through.each.of.FORMS.individual
14ea0	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 54 68 65 20 72	ly.using.`->',.which.see...The.r
14ec0	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 68 20 46 4f 52	eturn.value.is.RESULT,.which.FOR
14ee0	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 65 20 65 66 66	MS.may.have.modified.by.side.eff
14f00	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 1f 23 40 31 33	ect...(fn.INIT.&rest.FORMS).#@13
14f20	20 0a 0a 28 66 6e 20 46 4f 52 4d 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	...(fn.FORM)..(byte-code."\300\3
14f40	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 23	01\302\303#\210\304\301\305\306#
14f60	5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 73 6f 6d 65 2d 2d 3e 20 65 64 65 62 75 67 2d 66	\300\207".[put.-some-->.edebug-f
14f80	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 6f 6c 70	orm-spec.(form.&rest.&or.symbolp
14fa0	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 65 6e 74	.consp).function-put.lisp-indent
14fc0	2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 6f 74 6f	-function.1].4).(defalias.'-doto
14fe0	20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01	.'(macro...#[385."\300\301!\302.
15000	04 44 43 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 5c 22 06 06 5c 22 04 43 5c 22 42	.DC\303\304\305\306..\"..\".C\"B
15020	42 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 74	B\207".[make-symbol."result".let
15040	20 61 70 70 65 6e 64 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	.append.mapcar.make-closure.#[25
15060	37 20 22 5c 33 30 31 5c 33 30 30 02 45 5c 32 30 37 22 20 5b 56 30 20 2d 3e 5d 20 34 20 28 23 24	7."\301\300.E\207".[V0.->].4.(#$
15080	20 2e 20 38 35 37 39 33 29 5d 5d 20 31 30 20 28 23 24 20 2e 20 38 35 35 33 32 29 5d 29 29 23 40	...85793)]].10.(#$...85532)]))#@
150a0	31 39 39 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 64 6f 74 6f 27 2e 0a 54	199.Anaphoric.form.of.`-doto'..T
150c0	68 69 73 20 6a 75 73 74 20 65 76 61 6c 75 61 74 65 73 20 49 4e 49 54 2c 20 62 69 6e 64 73 20 74	his.just.evaluates.INIT,.binds.t
150e0	68 65 20 72 65 73 75 6c 74 20 74 6f 20 60 69 74 27 2c 20 65 76 61 6c 75 61 74 65 73 0a 46 4f 52	he.result.to.`it',.evaluates.FOR
15100	4d 53 2c 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65 20 66 69 6e 61 6c 20 76 61 6c 75 65 20	MS,.and.returns.the.final.value.
15120	6f 66 20 60 69 74 27 2e 0a 4e 6f 74 65 3a 20 60 69 74 27 20 6e 65 65 64 20 6e 6f 74 20 62 65 20	of.`it'..Note:.`it'.need.not.be.
15140	75 73 65 64 20 69 6e 20 65 61 63 68 20 66 6f 72 6d 2e 0a 0a 28 66 6e 20 49 4e 49 54 20 26 72 65	used.in.each.form...(fn.INIT.&re
15160	73 74 20 46 4f 52 4d 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c	st.FORMS)..(byte-code."\300\301\
15180	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 33 30	302\303#\210\304\301\305\306#\30
151a0	30 5c 32 30 37 22 20 5b 70 75 74 20 2d 64 6f 74 6f 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70	0\207".[put.-doto.edebug-form-sp
151c0	65 63 20 28 66 6f 72 6d 20 26 72 65 73 74 20 26 6f 72 20 73 79 6d 62 6f 6c 70 20 63 6f 6e 73 70	ec.(form.&rest.&or.symbolp.consp
151e0	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 6e 63 74	).function-put.lisp-indent-funct
15200	69 6f 6e 20 31 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 64 6f 74 6f 20 27 28 6d 61	ion.1].4).(defalias.'--doto.'(ma
15220	63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 03 44 43 5c 33 30 32 03 5c 33 30	cro...#[385."\300\301.DC\302.\30
15240	33 5c 22 42 42 5c 32 30 37 22 20 5b 6c 65 74 20 69 74 20 61 70 70 65 6e 64 20 28 69 74 29 5d 20	3\"BB\207".[let.it.append.(it)].
15260	37 20 28 23 24 20 2e 20 38 36 31 38 30 29 5d 29 29 23 40 31 37 39 20 47 72 61 64 65 20 65 6c 65	7.(#$...86180)]))#@179.Grade.ele
15280	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 72	ments.of.LIST.using.COMPARATOR.r
152a0	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 69	elation..This.yields.a.permutati
152c0	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 69	on.vector.such.that.applying.thi
152e0	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 69	s.permutation.to.LIST.sorts.it.i
15300	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 41 52 41 54	n.ascending.order...(fn.COMPARAT
15320	4f 52 20 4c 49 53 54 29 1f 23 40 31 37 20 0a 0a 28 66 6e 20 49 54 20 4f 54 48 45 52 29 1f 0a 28	OR.LIST).#@17...(fn.IT.OTHER)..(
15340	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 32 31 30	byte-code."\300\301\302\303#\210
15360	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 75 74 20	\304\301\305\306#\300\207".[put.
15380	2d 2d 64 6f 74 6f 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 6f	--doto.edebug-form-spec.(form.bo
153a0	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 6e	dy).function-put.lisp-indent-fun
153c0	63 74 69 6f 6e 20 31 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 67 72 61 64 65 2d 75 70	ction.1].4).(defalias.'-grade-up
153e0	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 22	.#[514."\300\301\302\303\304..\"
15400	5c 33 30 35 05 5c 33 30 36 01 5c 32 30 33 21 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 5c	\305.\306.\203!..\211A\262.\242\
15420	32 31 31 02 42 04 42 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 0b 00 5c 32 36 36 02 5c 32 33 37	211.B.B\262.\210T\202..\266.\237
15440	5c 22 5c 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	\"\"\207".[mapcar.cdr.-sort.make
15460	2d 63 6c 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	-closure.#[514."\300.@.@\"\207".
15480	5b 56 30 5d 20 35 20 28 23 24 20 2e 20 38 36 38 33 30 29 5d 20 6e 69 6c 20 30 5d 20 31 32 20 28	[V0].5.(#$...86830)].nil.0].12.(
154a0	23 24 20 2e 20 38 36 36 34 37 29 5d 29 23 40 31 38 30 20 47 72 61 64 65 20 65 6c 65 6d 65 6e 74	#$...86647)])#@180.Grade.element
154c0	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 72 65 6c 61 74	s.of.LIST.using.COMPARATOR.relat
154e0	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 69 6f 6e 20 76	ion..This.yields.a.permutation.v
15500	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 69 73 0a 70 65	ector.such.that.applying.this.pe
15520	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 69 6e 20 64 65	rmutation.to.LIST.sorts.it.in.de
15540	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 41 54 4f 52 20	scending.order...(fn.COMPARATOR.
15560	4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	LIST)..(byte-code."\300\301\302\
15580	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 67 72 61	303#\300\207".[function-put.-gra
155a0	64 65 2d 75 70 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20	de-up.important-return-value.t].
155c0	34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 67 72 61 64 65 2d 64 6f 77 6e 20 23 5b 35 31 34 20	4).(defalias.'-grade-down.#[514.
155e0	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 5c 22 5c 33 30 35 05 5c 33	"\300\301\302\303\304..\"\305.\3
15600	30 36 01 5c 32 30 33 21 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 5c 32 31 31 02 42 04 42	06.\203!..\211A\262.\242\211.B.B
15620	5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 0b 00 5c 32 36 36 02 5c 32 33 37 5c 22 5c 22 5c 32 30	\262.\210T\202..\266.\237\"\"\20
15640	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 6f 73 75 72	7".[mapcar.cdr.-sort.make-closur
15660	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 5d 20 35 20	e.#[514."\300.@.@\"\207".[V0].5.
15680	28 23 24 20 2e 20 38 36 38 33 30 29 5d 20 6e 69 6c 20 30 5d 20 31 32 20 28 23 24 20 2e 20 38 37	(#$...86830)].nil.0].12.(#$...87
156a0	32 31 39 29 5d 29 23 40 34 32 20 4d 6f 6e 6f 74 6f 6e 69 63 20 63 6f 75 6e 74 65 72 20 66 6f 72	219)])#@42.Monotonic.counter.for
156c0	20 67 65 6e 65 72 61 74 65 64 20 73 79 6d 62 6f 6c 73 2e 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20	.generated.symbols...(byte-code.
156e0	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e	"\300\301\302\303#\300\207".[fun
15700	63 74 69 6f 6e 2d 70 75 74 20 2d 67 72 61 64 65 2d 64 6f 77 6e 20 69 6d 70 6f 72 74 61 6e 74 2d	ction-put.-grade-down.important-
15720	72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 76 61 72 20 64 61 73 68 2d	return-value.t].4).(defvar.dash-
15740	2d 73 6f 75 72 63 65 2d 63 6f 75 6e 74 65 72 20 30 20 28 23 24 20 2e 20 38 37 37 32 33 29 29 23	-source-counter.0.(#$...87723))#
15760	40 38 37 20 47 65 6e 65 72 61 74 65 20 61 20 6e 65 77 20 64 61 73 68 2d 73 6f 75 72 63 65 20 73	@87.Generate.a.new.dash-source.s
15780	79 6d 62 6f 6c 2e 0a 0a 41 6c 6c 20 72 65 74 75 72 6e 65 64 20 73 79 6d 62 6f 6c 73 20 61 72 65	ymbol...All.returned.symbols.are
157a0	20 67 75 61 72 61 6e 74 65 65 64 20 74 6f 20 62 65 20 75 6e 69 71 75 65 2e 1f 0a 28 64 65 66 61	.guaranteed.to.be.unique...(defa
157c0	6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 73 79	lias.'dash--match-make-source-sy
157e0	6d 62 6f 6c 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 08 5c 22 21 08 54 10 5c 32 30	mbol.#[0."\301\302\303.\"!.T.\20
15800	37 22 20 5b 64 61 73 68 2d 2d 73 6f 75 72 63 65 2d 63 6f 75 6e 74 65 72 20 6d 61 6b 65 2d 73 79	7".[dash--source-counter.make-sy
15820	6d 62 6f 6c 20 66 6f 72 6d 61 74 20 22 2d 2d 64 61 73 68 2d 73 6f 75 72 63 65 2d 25 64 2d 2d 22	mbol.format."--dash-source-%d--"
15840	5d 20 34 20 28 23 24 20 2e 20 38 37 39 30 38 29 5d 29 23 40 37 30 20 52 65 74 75 72 6e 20 6e 6f	].4.(#$...87908)])#@70.Return.no
15860	6e 2d 6e 69 6c 20 69 66 20 53 59 4d 42 4f 4c 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 61 6e 64 20	n-nil.if.SYMBOL.is.a.symbol.and.
15880	73 74 61 72 74 73 20 77 69 74 68 20 5f 2e 0a 0a 28 66 6e 20 53 59 4d 42 4f 4c 29 1f 0a 28 64 65	starts.with._...(fn.SYMBOL)..(de
158a0	66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 69 67 6e 6f 72 65 2d 70 6c 61 63 65	falias.'dash--match-ignore-place
158c0	2d 70 20 23 5b 32 35 37 20 22 5c 32 31 31 39 5c 32 30 35 5c 66 00 5c 33 30 30 01 21 5c 33 30 31	-p.#[257."\2119\205\f.\300.!\301
158e0	48 5c 33 30 32 3d 5c 32 30 37 22 20 5b 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 30 20 39 35 5d 20 33	H\302=\207".[symbol-name.0.95].3
15900	20 28 23 24 20 2e 20 38 38 31 35 31 29 5d 29 23 40 37 35 20 48 65 6c 70 65 72 20 66 75 6e 63 74	.(#$...88151)])#@75.Helper.funct
15920	69 6f 6e 20 67 65 6e 65 72 61 74 69 6e 67 20 69 64 69 6f 6d 61 74 69 63 20 73 68 69 66 74 69 6e	ion.generating.idiomatic.shiftin
15940	67 20 63 6f 64 65 2e 0a 0a 28 66 6e 20 53 4b 49 50 2d 43 44 52 20 53 4f 55 52 43 45 29 1f 0a 28	g.code...(fn.SKIP-CDR.SOURCE)..(
15960	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 73 6b 69 70 2d	defalias.'dash--match-cons-skip-
15980	63 64 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 44 5c 32	cdr.#[514.".\300U\203\n.\301.D\2
159a0	30 37 5c 33 30 32 5c 33 30 33 03 03 5c 22 5c 33 30 34 03 5c 33 30 35 06 06 54 06 06 5c 22 45 45	07\302\303..\"\304.\305..T..\"EE
159c0	5c 32 30 37 22 20 5b 30 20 70 6f 70 20 70 72 6f 67 31 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63	\207".[0.pop.prog1.dash--match-c
159e0	6f 6e 73 2d 67 65 74 2d 63 61 72 20 73 65 74 71 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e	ons-get-car.setq.dash--match-con
15a00	73 2d 67 65 74 2d 63 64 72 5d 20 39 20 28 23 24 20 2e 20 38 38 33 34 30 29 5d 29 23 40 38 31 20	s-get-cdr].9.(#$...88340)])#@81.
15a20	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 69 64 69 6f 6d	Helper.function.generating.idiom
15a40	61 74 69 63 20 63 6f 64 65 20 74 6f 20 67 65 74 20 6e 74 68 20 63 61 72 2e 0a 0a 28 66 6e 20 53	atic.code.to.get.nth.car...(fn.S
15a60	4b 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	KIP-CDR.SOURCE)..(defalias.'dash
15a80	2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 23 5b 35 31 34 20 22 01 5c 33 30	--match-cons-get-car.#[514.".\30
15aa0	30 55 5c 32 30 33 5c 6e 00 5c 33 30 31 01 44 5c 32 30 37 01 5c 33 30 32 55 5c 32 30 33 14 00 5c	0U\203\n.\301.D\207.\302U\203..\
15ac0	33 30 33 01 44 5c 32 30 37 5c 33 30 34 02 02 45 5c 32 30 37 22 20 5b 30 20 63 61 72 20 31 20 63	303.D\207\304..E\207".[0.car.1.c
15ae0	61 64 72 20 6e 74 68 5d 20 35 20 28 23 24 20 2e 20 38 38 36 30 38 29 5d 29 23 40 38 31 20 48 65	adr.nth].5.(#$...88608)])#@81.He
15b00	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 69 64 69 6f 6d 61 74	lper.function.generating.idiomat
15b20	69 63 20 63 6f 64 65 20 74 6f 20 67 65 74 20 6e 74 68 20 63 64 72 2e 0a 0a 28 66 6e 20 53 4b 49	ic.code.to.get.nth.cdr...(fn.SKI
15b40	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 2d	P-CDR.SOURCE)..(defalias.'dash--
15b60	6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72 20 23 5b 35 31 34 20 22 01 5c 33 30 30 55	match-cons-get-cdr.#[514.".\300U
15b80	5c 32 30 33 07 00 5c 32 30 37 01 5c 33 30 31 55 5c 32 30 33 11 00 5c 33 30 32 01 44 5c 32 30 37	\203..\207.\301U\203..\302.D\207
15ba0	5c 33 30 33 02 02 45 5c 32 30 37 22 20 5b 30 20 31 20 63 64 72 20 6e 74 68 63 64 72 5d 20 35 20	\303..E\207".[0.1.cdr.nthcdr].5.
15bc0	28 23 24 20 2e 20 38 38 38 33 30 29 5d 29 23 40 38 36 20 53 65 74 75 70 20 61 20 63 6f 6e 73 20	(#$...88830)])#@86.Setup.a.cons.
15be0	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
15c00	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.
15c20	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-
15c40	63 6f 6e 73 20 23 5b 35 31 34 20 22 5c 33 30 30 20 5c 33 30 31 03 5c 32 31 31 3a 5c 32 30 33 18	cons.#[514."\300.\301.\211:\203.
15c60	00 5c 33 30 32 01 40 21 5c 32 30 33 18 00 01 54 5c 32 36 32 02 41 5c 32 30 32 04 00 5c 32 31 31	.\302.@!\203...T\262.A\202..\211
15c80	3a 5c 32 30 33 2c 00 5c 32 31 31 41 5c 32 30 34 2c 00 5c 33 30 33 01 40 5c 33 30 34 04 06 07 5c	:\203,.\211A\204,.\303.@\304...\
15ca0	22 5c 22 5c 32 30 37 01 5c 33 30 31 56 5c 32 30 33 3b 00 5c 33 30 33 01 5c 33 30 35 04 06 07 5c	"\"\207.\301V\203;.\303.\305...\
15cc0	22 5c 22 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	"\"\207..D\306...\"B\207".[dash-
15ce0	2d 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 30 20 64 61 73 68	-match-make-source-symbol.0.dash
15d00	2d 2d 6d 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	--match-ignore-place-p.dash--mat
15d20	63 68 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 64 61 73 68	ch.dash--match-cons-get-car.dash
15d40	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 68	--match-cons-get-cdr.dash--match
15d60	2d 63 6f 6e 73 2d 31 5d 20 31 30 20 28 23 24 20 2e 20 38 39 30 34 33 29 5d 29 23 40 34 37 20 47	-cons-1].10.(#$...89043)])#@47.G
15d80	65 74 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	et.expand.function.name.for.TYPE
15da0	2e 0a 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	...(fn.TYPE)..(defalias.'dash--g
15dc0	65 74 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	et-expand-function.#[257."\300\3
15de0	30 31 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	01\302.\"!\207".[intern-soft.for
15e00	6d 61 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 38 39	mat."dash-expand:%s"].5.(#$...89
15e20	34 37 31 29 5d 29 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	471)])#@384.Match.MATCH-FORM.aga
15e40	69 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	inst.SOURCE...MATCH-FORM.is.a.pr
15e60	6f 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	oper.or.improper.list...Each.ele
15e80	6d 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	ment.of.MATCH-FORM.is.either.a.s
15ea0	79 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	ymbol,.which.gets.bound.to.the.r
15ec0	65 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	espective.value.in.source.or.ano
15ee0	74 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	ther.match.form.which.gets.destr
15f00	75 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	uctured.recursively...If.the.cdr
15f20	20 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	.of.last.cons.cell.in.the.list.i
15f40	73 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	s.nil,.matching.stops.there...SO
15f60	55 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	URCE.is.a.proper.or.improper.lis
15f80	74 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	t...(fn.MATCH-FORM.SOURCE.&optio
15fa0	6e 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	nal.PROPS)..(defalias.'dash--mat
15fc0	63 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	ch-cons-1.#[770."\300.\301\"\206
15fe0	08 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	..\302.:\203]..A\203S..@9\203,.\
16000	33 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	303\304.@!!\203,.\305\306.!\307.
16020	06 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	..\"\"\207\310.@!\203@.\311.A.\3
16040	31 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	12.\301..T##\207\313\314.@\315..
16060	07 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	.\"\"\311..A..\"\"\207\314.@\316
16080	03 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	...\"\"\207.\204c.\317\207\314.\
160a0	33 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	307...\"\"\207".[plist-get.:skip
160c0	2d 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	-cdr.0.functionp.dash--get-expan
160e0	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 68 2d 2d	d-function.dash--match-kv.dash--
16100	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 20 64 61	match-kv-normalize-match-form.da
16120	73 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	sh--match-cons-get-cdr.dash--mat
16140	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 2d 63 6f	ch-ignore-place-p.dash--match-co
16160	6e 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	ns-1.plist-put.-concat.dash--mat
16180	63 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	ch.dash--match-cons-skip-cdr.das
161a0	68 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	h--match-cons-get-car.nil].11.(#
161c0	24 20 2e 20 38 39 36 34 34 29 5d 29 23 40 38 38 20 53 65 74 75 70 20 61 20 76 65 63 74 6f 72 20	$...89644)])#@88.Setup.a.vector.
161e0	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
16200	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.
16220	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-
16240	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..
16260	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
16280	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
162a0	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.\"\
162c0	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
162e0	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--
16300	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-
16320	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
16340	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
16360	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
16380	78 5d 20 31 31 20 28 23 24 20 2e 20 39 30 35 37 37 29 5d 29 23 40 36 39 31 20 4d 61 74 63 68 20	x].11.(#$...90577)])#@691.Match.
163a0	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 43	MATCH-FORM.against.SOURCE...MATC
163c0	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 6e	H-FORM.is.a.vector...Each.elemen
163e0	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 62	t.of.MATCH-FORM.is.either.a.symb
16400	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 70	ol,.which.gets.bound.to.the.resp
16420	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 65	ective.value.in.source.or.anothe
16440	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 74	r.match.form.which.gets.destruct
16460	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 6f	ured.recursively...If.second-fro
16480	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 68	m-last.place.in.MATCH-FORM.is.th
164a0	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 74	e.symbol.&rest,.the.next.element
164c0	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 67	.of.the.MATCH-FORM.is.matched.ag
164e0	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 69	ainst.the.tail.of.SOURCE,.starti
16500	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 2e	ng.at.index.of.the.&rest.symbol.
16520	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 20	..This.is.conceptually.the.same.
16540	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 69	as.the.(head...tail).match.for.i
16560	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 74	mproper.lists,.where.dot.plays.t
16580	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 76	he.role.of.&rest...SOURCE.is.a.v
165a0	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 72	ector...If.the.MATCH-FORM.vector
165c0	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 20	.is.shorter.than.SOURCE.vector,.
165e0	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 61	only.the.(length.MATCH-FORM).pla
16600	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 53	ces.are.bound,.the.rest.of.the.S
16620	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 46	OURCE.is.discarded...(fn.MATCH-F
16640	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 61	ORM.SOURCE)..(defalias.'dash--ma
16660	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 02	tch-vector-1.#[514."\300.G\301..
16680	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 32	W\203a...H\2119\203+.\211\302=\2
166a0	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 32	03+.\303...TH\304....E\".\262.\2
166c0	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 5c	02U.\2119\203F.\305.!\300H\306=\
166e0	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 3f	204F.\211\307....EDC\202U.\2119?
16700	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 5c	\205U.\303.\307....E\".B\262..T\
16720	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 30	262.\210\202..\310\311.\237\"\20
16740	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 73	7".[0.nil.&rest.dash--match.subs
16760	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 74	tring.symbol-name.95.aref.-flatt
16780	65 6e 2d 6e 20 31 5d 20 31 31 20 28 23 24 20 2e 20 39 31 30 33 34 29 5d 29 23 40 31 34 38 20 4e	en-n.1].11.(#$...91034)])#@148.N
167a0	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 68 6f	ormalize.kv.PATTERN...This.metho
167c0	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 72 6d	d.normalizes.PATTERN.to.the.form
167e0	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 27 2e	at.expected.by.`dash--match-kv'.
16800	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 74 69	..See.`-let'.for.the.specificati
16820	6f 6e 2e 0a 0a 28 66 6e 20 50 41 54 54 45 52 4e 29 1f 23 40 31 33 20 0a 0a 28 66 6e 20 50 41 49	on...(fn.PATTERN).#@13...(fn.PAI
16840	52 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 6b 76 2d 6e 6f	R)..(defalias.'dash--match-kv-no
16860	72 6d 61 6c 69 7a 65 2d 6d 61 74 63 68 2d 66 6f 72 6d 20 23 5b 32 35 37 20 22 5c 32 31 31 40 43	rmalize-match-form.#[257."\211@C
16880	43 5c 33 30 30 43 5c 33 30 31 5c 33 30 32 21 5c 33 30 33 5c 33 30 34 02 06 06 41 06 07 41 41 23	C\300C\301\302!\303\304...A..AA#
168a0	5c 33 30 35 5c 33 30 36 04 06 06 06 08 24 5c 22 5c 32 31 30 02 5c 32 34 32 5c 32 33 37 5c 32 30	\305\306.....$\"\210.\242\237\20
168c0	37 22 20 5b 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	7".[nil.make-symbol."--dash-fill
168e0	2d 70 6c 61 63 65 68 6f 6c 64 65 72 2d 2d 22 20 2d 65 61 63 68 20 2d 7a 69 70 2d 66 69 6c 6c 20	-placeholder--".-each.-zip-fill.
16900	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 31 5c	make-closure.#[257."\211@.A\301\
16920	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 30 01 3d 5c	242\203..\301\303\240\207\300.=\
16940	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 31 31	204:.\2119\203(.\304.!\204(.\211
16960	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 32 30	\305=\204(.\211\204\231.\211:\20
16980	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 30 34	34.\211@\306=\203\231.\307.!\204
169a0	5c 32 33 31 00 5c 33 30 34 02 21 5c 32 30 33 58 00 5c 33 30 32 02 5c 33 30 32 5c 32 34 32 42 5c	\231.\304.!\203X.\302.\302\242B\
169c0	32 34 30 5c 32 31 30 5c 33 30 32 5c 33 31 30 5c 33 31 31 04 21 5c 33 31 32 5c 33 30 33 4f 21 5c	240\210\302\310\311.!\312\303O!\
169e0	33 30 32 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 33 70	302\242B\240\210\202\225..;\203p
16a00	00 5c 33 30 32 02 5c 33 30 32 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 32 5c 33 31 30 03	.\302.\302\242B\240\210\302\310.
16a20	21 5c 33 30 32 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 32 30	!\302\242B\240\210\202\225..:\20
16a40	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 32 02 5c 33 30 32 5c	3\217..@\306=\203\217.\302.\302\
16a60	32 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 32 02 41 40 5c 33 30 32 5c 32 34 32 42 5c 32 34 30	242B\240\210\302.A@\302\242B\240
16a80	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 30 31	\210\202\225.\313\314..#\210\301
16aa0	5c 33 30 33 5c 32 34 30 5c 32 30 37 5c 33 30 32 02 5c 33 30 32 5c 32 34 32 42 5c 32 34 30 5c 32	\303\240\207\302.\302\242B\240\2
16ac0	31 30 5c 33 30 32 01 5c 33 30 32 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 31 5c 33 30 35	10\302.\302\242B\240\210\301\305
16ae0	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 64 70	\240\207".[V0.V1.V2.nil.keywordp
16b00	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 2d 6e	.t.quote.vectorp.intern.symbol-n
16b20	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 25 73	ame.1.error."-let:.found.key.`%s
16b40	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 70 61	'.in.kv.destructuring.but.its.pa
16b60	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 6e 6f	ttern.`%s'.is.invalid.and.can.no
16b80	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 28 23	t.be.derived.from.the.key"].8.(#
16ba0	24 20 2e 20 39 32 32 31 35 29 5d 5d 20 31 31 20 28 23 24 20 2e 20 39 32 30 36 33 29 5d 29 23 40	$...92215)]].11.(#$...92063)])#@
16bc0	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 76 69 72 6f 6e 6d	152.Setup.a.kv.matching.environm
16be0	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 65 72 2e 0a 0a	ent.and.call.the.real.matcher...
16c00	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 6f 72 65 2c 20 73	kv.can.be.any.key-value.store,.s
16c20	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 68 2d 74 61 62 6c	uch.as.plist,.alist.or.hash-tabl
16c40	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 1f 0a 28 64 65 66	e...(fn.MATCH-FORM.SOURCE)..(def
16c60	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 34 20 22 5c 33 30	alias.'dash--match-kv.#[514."\30
16c80	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 32 30 37 01 39 5c	0..G\301U\203..\302.A..@#\207.9\
16ca0	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 33 30 32 04 41 03	203..\302.A..@#\207\211.D\302.A.
16cc0	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 6b 65 2d 73 6f 75	..@#B\207".[dash--match-make-sou
16ce0	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 76 2d 31 5d 20 38	rce-symbol.3.dash--match-kv-1].8
16d00	20 28 23 24 20 2e 20 39 33 31 32 34 29 5d 29 23 40 37 39 20 47 65 6e 65 72 61 74 65 20 65 78 74	.(#$...93124)])#@79.Generate.ext
16d20	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 6f 72 20 26 68 61 73	racting.KEY.from.SOURCE.for.&has
16d40	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 20 53 4f 55 52 43 45	h.destructuring...(fn.KEY.SOURCE
16d60	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 3a 26 68 61 73 68 20	)..(defalias.'dash-expand:&hash.
16d80	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 61 73 68 5d 20 35 20	#[514."\300..E\207".[gethash].5.
16da0	28 23 24 20 2e 20 39 33 34 36 30 29 5d 29 23 40 38 30 20 47 65 6e 65 72 61 74 65 20 65 78 74 72	(#$...93460)])#@80.Generate.extr
16dc0	61 63 74 69 6e 67 20 4b 45 59 20 66 72 6f 6d 20 53 4f 55 52 43 45 20 66 6f 72 20 26 70 6c 69 73	acting.KEY.from.SOURCE.for.&plis
16de0	74 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2e 0a 0a 28 66 6e 20 4b 45 59 20 53 4f 55 52 43 45	t.destructuring...(fn.KEY.SOURCE
16e00	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 3a 26 70 6c 69 73 74	)..(defalias.'dash-expand:&plist
16e20	20 23 5b 35 31 34 20 22 5c 33 30 30 01 03 45 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 67 65 74 5d	.#[514."\300..E\207".[plist-get]
16e40	20 35 20 28 23 24 20 2e 20 39 33 36 31 39 29 5d 29 23 40 38 30 20 47 65 6e 65 72 61 74 65 20 65	.5.(#$...93619)])#@80.Generate.e
16e60	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 6f 72 20 26 61	xtracting.KEY.from.SOURCE.for.&a
16e80	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 59 20 53 4f 55	list.destructuring...(fn.KEY.SOU
16ea0	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 3a 26 61 6c	RCE)..(defalias.'dash-expand:&al
16ec0	69 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 03 45 44 5c 32 30 37 22 20 5b 63 64	ist.#[514."\300\301..ED\207".[cd
16ee0	72 20 61 73 73 6f 63 5d 20 36 20 28 23 24 20 2e 20 39 33 37 38 32 29 5d 29 23 40 31 33 35 20 47	r.assoc].6.(#$...93782)])#@135.G
16f00	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
16f20	43 45 20 66 6f 72 20 26 68 61 73 68 3f 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2e 0a 53 69 6d	CE.for.&hash?.destructuring..Sim
16f40	69 6c 61 72 20 74 6f 20 26 68 61 73 68 20 62 75 74 20 63 68 65 63 6b 20 77 68 65 74 68 65 72 20	ilar.to.&hash.but.check.whether.
16f60	74 68 65 20 6d 61 70 20 69 73 20 6e 6f 74 20 6e 69 6c 2e 0a 0a 28 66 6e 20 4b 45 59 20 53 4f 55	the.map.is.not.nil...(fn.KEY.SOU
16f80	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 3a 26 68 61	RCE)..(defalias.'dash-expand:&ha
16fa0	73 68 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 03 44 43 5c 33 30 33	sh?.#[514."\300\301!\302..DC\303
16fc0	03 5c 33 30 34 06 07 06 06 45 45 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22	.\304....EEE\207".[make-symbol."
16fe0	73 72 63 22 20 6c 65 74 20 77 68 65 6e 20 67 65 74 68 61 73 68 5d 20 31 30 20 28 23 24 20 2e 20	src".let.when.gethash].10.(#$...
17000	39 33 39 35 31 29 5d 29 23 40 35 30 39 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61	93951)])#@509.Match.MATCH-FORM.a
17020	67 61 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	gainst.SOURCE.of.type.TYPE...MAT
17040	43 48 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	CH-FORM.is.a.proper.list.of.the.
17060	66 6f 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	form.(key1.place1.....keyN.place
17080	4e 29 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	N)...Each.placeK.is.either.a.sym
170a0	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 0a 76 61 6c	bol,.which.gets.bound.to.the.val
170c0	75 65 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	ue.of.keyK.retrieved.from.the.ke
170e0	79 2d 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	y-value.store,.or.another.match.
17100	66 6f 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	form.which.gets.destructured.rec
17120	75 72 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	ursively...SOURCE.is.a.key-value
17140	20 73 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	.store.of.type.TYPE,.which.can.b
17160	65 20 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	e.a.plist,.an.alist.or.a.hash.ta
17180	62 6c 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	ble...TYPE.is.a.token.specifying
171a0	20 74 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	.the.type.of.the.key-value.store
171c0	2e 0a 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	..Valid.values.are.&plist,.&alis
171e0	74 20 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	t.and.&hash...(fn.MATCH-FORM.SOU
17200	52 43 45 20 54 59 50 45 29 1f 23 40 31 31 20 0a 0a 28 66 6e 20 4b 56 29 1f 0a 28 64 65 66 61 6c	RCE.TYPE).#@11...(fn.KV)..(defal
17220	69 61 73 20 27 64 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	ias.'dash-expand:&keys.'dash-exp
17240	61 6e 64 3a 26 70 6c 69 73 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74	and:&plist).(defalias.'dash--mat
17260	63 68 2d 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	ch-kv-1.#[771."\300\301\302\303\
17280	33 30 34 05 06 07 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	304...#\305\306..\"\"\"\207".[-f
172a0	6c 61 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	latten-n.1.-map.make-closure.#[2
172c0	35 37 20 22 5c 32 31 31 40 01 41 40 5c 33 30 32 5c 33 30 30 21 02 5c 33 30 31 5c 22 01 39 5c 32	57."\211@.A@\302\300!.\301\".9\2
172e0	30 33 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	03....DC\207\303..\"\207".[V0.V1
17300	20 64 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	.dash--get-expand-function.dash-
17320	2d 6d 61 74 63 68 5d 20 37 20 28 23 24 20 2e 20 39 34 37 33 35 29 5d 20 2d 70 61 72 74 69 74 69	-match].7.(#$...94735)].-partiti
17340	6f 6e 20 32 5d 20 31 30 20 28 23 24 20 2e 20 39 34 32 32 32 29 5d 29 23 40 39 36 20 42 69 6e 64	on.2].10.(#$...94222)])#@96.Bind
17360	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
17380	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
173a0	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
173c0	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.
173e0	22 01 01 44 43 5c 32 30 37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20 39 35 30 36 38 29 5d 29 23 40	"..DC\207".[].4.(#$...95068)])#@
17400	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 55	281.Match.MATCH-FORM.against.SOU
17420	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 41	RCE...This.function.tests.the.MA
17440	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 69	TCH-FORM.and.dispatches.to.speci
17460	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 6f	fic.matchers.based.on.the.type.o
17480	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 6f	f.the.expression...Key-value.sto
174a0	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 67	res.are.disambiguated.by.placing
174c0	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 68	.a.token.&plist,.&alist.or.&hash
174e0	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 4f	.as.a.first.item.in.the.MATCH-FO
17500	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 65	RM...(fn.MATCH-FORM.SOURCE)..(de
17520	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 30	falias.'dash--match.#[514.".9\20
17540	33 12 00 5c 33 30 30 5c 33 30 31 03 21 21 5c 32 30 34 12 00 5c 33 30 32 02 02 5c 22 5c 32 30 37	3..\300\301.!!\204..\302..\"\207
17560	01 3a 5c 32 30 33 4d 00 01 41 3a 5c 32 30 33 38 00 01 40 39 5c 32 30 33 38 00 01 41 40 5c 33 30	.:\203M..A:\2038..@9\2038..A@\30
17580	33 3d 5c 32 30 33 38 00 01 40 5c 32 31 31 02 44 5c 33 30 34 04 41 41 03 5c 22 42 5c 32 30 37 5c	3=\2038..@\211.D\304.AA.\"B\207\
175a0	33 30 30 5c 33 30 31 03 40 21 21 5c 32 30 33 48 00 5c 33 30 35 5c 33 30 36 03 21 02 5c 22 5c 32	300\301.@!!\203H.\305\306.!.\"\2
175c0	30 37 5c 33 30 37 02 02 5c 22 5c 32 30 37 5c 33 31 30 02 21 5c 32 30 35 7c 00 01 47 5c 33 31 31	07\307..\"\207\310.!\205|..G\311
175e0	56 5c 32 30 33 78 00 01 5c 33 31 32 48 39 5c 32 30 33 78 00 01 5c 33 31 33 48 5c 33 30 33 3d 5c	V\203x..\312H9\203x..\313H\303=\
17600	32 30 33 78 00 01 5c 33 31 32 48 5c 32 31 31 02 44 5c 33 30 34 04 5c 33 31 31 5c 33 31 34 4f 03	203x..\312H\211.D\304.\311\314O.
17620	5c 22 42 5c 32 30 37 5c 33 31 35 02 02 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 70 20	\"B\207\315..\"\207".[functionp.
17640	64 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	dash--get-expand-function.dash--
17660	6d 61 74 63 68 2d 73 79 6d 62 6f 6c 20 26 61 73 20 64 61 73 68 2d 2d 6d 61 74 63 68 20 64 61 73	match-symbol.&as.dash--match.das
17680	68 2d 2d 6d 61 74 63 68 2d 6b 76 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 2d 6e 6f 72 6d 61	h--match-kv.dash--match-kv-norma
176a0	6c 69 7a 65 2d 6d 61 74 63 68 2d 66 6f 72 6d 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73	lize-match-form.dash--match-cons
176c0	20 76 65 63 74 6f 72 70 20 32 20 30 20 31 20 6e 69 6c 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 76	.vectorp.2.0.1.nil.dash--match-v
176e0	65 63 74 6f 72 5d 20 38 20 28 23 24 20 2e 20 39 35 32 33 36 29 5d 29 23 40 33 36 34 20 4e 6f 72	ector].8.(#$...95236)])#@364.Nor
17700	6d 61 6c 69 7a 65 20 56 41 52 4c 49 53 54 20 73 6f 20 74 68 61 74 20 65 76 65 72 79 20 62 69 6e	malize.VARLIST.so.that.every.bin
17720	64 69 6e 67 20 69 73 20 61 20 6c 69 73 74 2e 0a 0a 60 6c 65 74 27 20 61 6c 6c 6f 77 73 20 73 70	ding.is.a.list...`let'.allows.sp
17740	65 63 69 66 79 69 6e 67 20 61 20 62 69 6e 64 69 6e 67 20 77 68 69 63 68 20 69 73 20 6e 6f 74 20	ecifying.a.binding.which.is.not.
17760	61 20 6c 69 73 74 20 62 75 74 20 73 69 6d 70 6c 79 0a 74 68 65 20 70 6c 61 63 65 20 77 68 69 63	a.list.but.simply.the.place.whic
17780	68 20 69 73 20 74 68 65 6e 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 62 6f 75 6e 64 20 74 6f	h.is.then.automatically.bound.to
177a0	20 6e 69 6c 2c 20 73 75 63 68 20 74 68 61 74 20 61 6c 6c 0a 74 68 72 65 65 20 6f 66 20 74 68 65	.nil,.such.that.all.three.of.the
177c0	20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 65 20 69 64 65 6e 74 69 63 61 6c 20 61 6e 64 20 65 76 61	.following.are.identical.and.eva
177e0	6c 75 61 74 65 20 74 6f 20 6e 69 6c 2e 0a 0a 20 20 28 6c 65 74 20 28 61 29 20 61 29 0a 20 20 28	luate.to.nil.....(let.(a).a)...(
17800	6c 65 74 20 28 28 61 29 29 20 61 29 0a 20 20 28 6c 65 74 20 28 28 61 20 6e 69 6c 29 29 20 61 29	let.((a)).a)...(let.((a.nil)).a)
17820	0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 6e 6f 72 6d 61 6c 69 7a 65 73 20 61 6c 6c 20 6f	..This.function.normalizes.all.o
17840	66 20 74 68 65 73 65 20 74 6f 20 74 68 65 20 6c 61 73 74 20 66 6f 72 6d 2e 0a 0a 28 66 6e 20 56	f.these.to.the.last.form...(fn.V
17860	41 52 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6e 6f 72 6d 61 6c	ARLIST)..(defalias.'dash--normal
17880	69 7a 65 2d 6c 65 74 2d 76 61 72 6c 69 73 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02	ize-let-varlist.#[257."\300\301.
178a0	5c 22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 32 31 31 3a 5c 32 30 33	\"\207".[mapcar.#[257."\211:\203
178c0	06 00 5c 32 30 37 5c 32 31 31 5c 33 30 30 44 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 33 20 28 23 24	..\207\211\300D\207".[nil].3.(#$
178e0	20 2e 20 32 37 39 36 31 29 5d 5d 20 34 20 28 23 24 20 2e 20 39 35 39 39 37 29 5d 29 23 40 34 37	...27961)]].4.(#$...95997)])#@47
17900	36 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 56 41	6.Bind.variables.according.to.VA
17920	52 4c 49 53 54 20 74 68 65 6e 20 65 76 61 6c 20 42 4f 44 59 2e 0a 0a 56 41 52 4c 49 53 54 20 69	RLIST.then.eval.BODY...VARLIST.i
17940	73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 50	s.a.list.of.lists.of.the.form.(P
17960	41 54 54 45 52 4e 20 53 4f 55 52 43 45 29 2e 20 20 45 61 63 68 0a 50 41 54 54 45 52 4e 20 69 73	ATTERN.SOURCE)...Each.PATTERN.is
17980	20 6d 61 74 63 68 65 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 53 4f 55 52 43 45 20 73 74 72 75	.matched.against.the.SOURCE.stru
179a0	63 74 75 72 61 6c 6c 79 2e 20 20 53 4f 55 52 43 45 20 69 73 0a 6f 6e 6c 79 20 65 76 61 6c 75 61	cturally...SOURCE.is.only.evalua
179c0	74 65 64 20 6f 6e 63 65 20 66 6f 72 20 65 61 63 68 20 50 41 54 54 45 52 4e 2e 0a 0a 45 61 63 68	ted.once.for.each.PATTERN...Each
179e0	20 53 4f 55 52 43 45 20 63 61 6e 20 72 65 66 65 72 20 74 6f 20 74 68 65 20 73 79 6d 62 6f 6c 73	.SOURCE.can.refer.to.the.symbols
17a00	20 61 6c 72 65 61 64 79 20 62 6f 75 6e 64 20 62 79 20 74 68 69 73 0a 56 41 52 4c 49 53 54 2e 20	.already.bound.by.this.VARLIST..
17a20	20 54 68 69 73 20 69 73 20 75 73 65 66 75 6c 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 64	.This.is.useful.if.you.want.to.d
17a40	65 73 74 72 75 63 74 75 72 65 20 53 4f 55 52 43 45 0a 72 65 63 75 72 73 69 76 65 6c 79 20 62 75	estructure.SOURCE.recursively.bu
17a60	74 20 61 6c 73 6f 20 77 61 6e 74 20 74 6f 20 6e 61 6d 65 20 74 68 65 20 69 6e 74 65 72 6d 65 64	t.also.want.to.name.the.intermed
17a80	69 61 74 65 20 73 74 72 75 63 74 75 72 65 73 2e 0a 0a 53 65 65 20 60 2d 6c 65 74 27 20 66 6f 72	iate.structures...See.`-let'.for
17aa0	20 74 68 65 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 70 6f 73 73 69 62 6c 65 20 70 61 74 74 65 72	.the.list.of.all.possible.patter
17ac0	6e 73 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	ns...(fn.VARLIST.&rest.BODY)..(d
17ae0	65 66 61 6c 69 61 73 20 27 2d 6c 65 74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22	efalias.'-let*.'(macro...#[385."
17b00	5c 33 30 30 02 21 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 5c 22 5c 22 5c 33 30 35 01	\300.!\301\302\303\304.\"\"\305.
17b20	04 42 42 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6c 65 74 2d 76 61	.BB\207".[dash--normalize-let-va
17b40	72 6c 69 73 74 20 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20	rlist.apply.append.mapcar.#[257.
17b60	22 5c 33 30 30 01 40 02 41 40 5c 22 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 5d 20	"\300.@.A@\"\207".[dash--match].
17b80	34 20 28 23 24 20 2e 20 32 37 39 36 31 29 5d 20 6c 65 74 2a 5d 20 38 20 28 23 24 20 2e 20 39 36	4.(#$...27961)].let*].8.(#$...96
17ba0	35 31 34 29 5d 29 29 23 40 35 36 39 34 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73 20 61 63 63	514)]))#@5694.Bind.variables.acc
17bc0	6f 72 64 69 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	ording.to.VARLIST.then.eval.BODY
17be0	2e 0a 0a 56 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	...VARLIST.is.a.list.of.lists.of
17c00	20 74 68 65 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	.the.form.(PATTERN.SOURCE)...Eac
17c20	68 0a 50 41 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	h.PATTERN.is.matched.against.the
17c40	20 53 4f 55 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	.SOURCE."structurally"...SOURCE.
17c60	69 73 20 6f 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	is.only.evaluated.once.for.each.
17c80	50 41 54 54 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	PATTERN...Each.PATTERN.is.matche
17ca0	64 0a 72 65 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	d.recursively,.and.can.therefore
17cc0	20 63 6f 6e 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	.contain.sub-patterns.which.are.
17ce0	6d 61 74 63 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	matched.against.corresponding.su
17d00	62 2d 65 78 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	b-expressions.of.SOURCE...All.th
17d20	65 20 53 4f 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	e.SOURCEs.are.evalled.before.any
17d40	20 73 79 6d 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	.symbols.are.bound.(i.e.."in.par
17d60	61 6c 6c 65 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	allel")...If.VARLIST.only.contai
17d80	6e 73 20 6f 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	ns.one.(PATTERN.SOURCE).element,
17da0	20 79 6f 75 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	.you.can.optionally.specify.it.u
17dc0	73 69 6e 67 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	sing.a.vector.and.discarding.the
17de0	0a 6f 75 74 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	.outer-most.parens...Thus....(-l
17e00	65 74 20 28 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	et.((PATTERN.SOURCE))....)..beco
17e20	6d 65 73 0a 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	mes....(-let.[PATTERN.SOURCE]...
17e40	2e 29 2e 0a 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	.)...`-let'.uses.a.convention.of
17e60	20 6e 6f 74 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	.not.binding.places.(symbols).st
17e80	61 72 74 69 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	arting.with._.whenever.it's.poss
17ea0	69 62 6c 65 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	ible...You.can.use.this.to.skip.
17ec0	6f 76 65 72 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	over.entries.you.don't.care.abou
17ee0	74 2e 20 20 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	t...However,.this.is.not.*always
17f00	2a 0a 70 6f 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	*.possible.(as.a.result.of.imple
17f20	6d 65 6e 74 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	mentation).and.these.symbols.mig
17f40	68 74 0a 67 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	ht.get.bound.to.undefined.values
17f60	2e 0a 0a 46 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	...Following.is.the.overview.of.
17f80	73 75 70 70 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	supported.patterns...Remember.th
17fa0	61 74 0a 70 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	at.patterns.can.be.matched.recur
17fc0	73 69 76 65 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	sively,.so.every.a,.b,.aK.in.the
17fe0	0a 66 6f 6c 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	.following.can.be.a.matching.con
18000	73 74 72 75 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	struct.and.not.necessarily.a.sym
18020	62 6f 6c 2f 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	bol/variable...Symbol:....a.-.bi
18040	6e 64 20 74 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	nd.the.SOURCE.to.A...This.is.jus
18060	74 20 6c 69 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	t.like.regular.`let'...Conses.an
18080	64 20 6c 69 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	d.lists:....(a).-.bind.`car'.of.
180a0	63 6f 6e 73 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	cons/list.to.A....(a...b).-.bind
180c0	20 63 61 72 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	.car.of.cons.to.A.and.`cdr'.to.B
180e0	0a 0a 20 20 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	....(a.b).-.bind.car.of.list.to.
18100	41 20 61 6e 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	A.and.`cadr'.to.B....(a1.a2.a3..
18120	2e 2e 29 20 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	..).-.bind.0th.car.of.list.to.A1
18140	2c 20 31 73 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	,.1st.to.A2,.2nd.to.A3.......(a1
18160	20 61 32 20 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	.a2.a3.....aN...rest).-.as.above
18180	2c 20 62 75 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	,.but.bind.the.Nth.cdr.to.REST..
181a0	0a 56 65 63 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	.Vectors:....[a].-.bind.0th.elem
181c0	65 6e 74 20 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	ent.of.a.non-list.sequence.to.A.
181e0	28 77 6f 72 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	(works.with.........vectors,.str
18200	69 6e 67 73 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	ings,.bit.arrays...)....[a1.a2.a
18220	33 20 2e 2e 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	3....].-.bind.0th.element.of.non
18240	2d 6c 69 73 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	-list.sequence.to.A0,.1st.to....
18260	20 20 20 20 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	................A1,.2nd.to.A2,..
18280	2e 2e 0a 20 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	......................If.the.PAT
182a0	54 45 52 4e 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	TERN.is.shorter.than.SOURCE,.the
182c0	20 76 61 6c 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	.values.at....................pl
182e0	61 63 65 73 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	aces.not.in.PATTERN.are.ignored.
18300	0a 20 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	....................If.the.PATTE
18320	52 4e 20 69 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	RN.is.longer.than.SOURCE,.an.`er
18340	72 6f 72 27 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	ror'.is....................throw
18360	6e 2e 0a 0a 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	n.....[a1.a2.a3.....&rest.rest].
18380	2d 20 61 73 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	-.as.above,.but.bind.the.rest.of
183a0	0a 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 20 74	...............................t
183c0	68 65 20 73 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	he.sequence.to.REST...This.is...
183e0	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 63 6f 6e 63	............................conc
18400	65 70 74 75 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	eptually.the.same.as.improper.li
18420	73 74 0a 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	st..............................
18440	20 6d 61 74 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	.matching.(a1.a2.....aN...rest).
18460	0a 4b 65 79 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	.Key/value.stores:....(&plist.ke
18480	79 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	y0.a0.....keyN.aN).-.bind.value.
184a0	6d 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	mapped.by.keyK.in.the...........
184c0	20 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 70 6c	.......................SOURCE.pl
184e0	69 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	ist.to.aK...If.the..............
18500	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
18520	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...............
18540	20 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 70 6c 69 73 74 2d	....................Uses.`plist-
18560	67 65 74 27 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	get'.to.fetch.values.....(&alist
18580	20 6b 65 79 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	.key0.a0.....keyN.aN).-.bind.val
185a0	75 65 20 6d 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	ue.mapped.by.keyK.in.the........
185c0	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 53 4f 55 52 43 45	..........................SOURCE
185e0	20 61 6c 69 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	.alist.to.aK...If.the...........
18600	20 20 20 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	.......................value.is.
18620	6e 6f 74 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	not.found,.aK.is.nil............
18640	20 20 20 20 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	.......................Uses.`ass
18660	6f 63 27 20 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	oc'.to.fetch.values.....(&hash.k
18680	65 79 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	ey0.a0.....keyN.aN).-.bind.value
186a0	20 6d 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	.mapped.by.keyK.in.the..........
186c0	20 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 68 61	.......................SOURCE.ha
186e0	73 68 20 74 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	sh.table.to.aK...If.the.........
18700	20 20 20 20 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	........................value.is
18720	20 6e 6f 74 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	.not.found,.aK.is.nil...........
18740	20 20 20 20 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	.......................Uses.`get
18760	68 61 73 68 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	hash'.to.fetch.values...Further,
18780	20 73 70 65 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	.special.keyword.&keys.supports.
187a0	22 69 6e 6c 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	"inline".matching.of.plist-like.
187c0	6b 65 79 2d 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	key-value.pairs,.similarly.to.&k
187e0	65 79 73 20 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	eys.keyword.of.`cl-defun'.....(a
18800	31 20 61 32 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	1.a2.....aN.&keys.key1.b1.....ke
18820	79 4e 20 62 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	yN.bK)..This.binds.N.values.from
18840	20 74 68 65 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	.the.list.to.a1.....aN,.then.int
18860	65 72 70 72 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	erprets.the.cdr.as.a.plist.(see.
18880	6b 65 79 2f 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	key/value.matching.above)...A.sh
188a0	6f 72 74 68 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	orthand.notation.for.kv-destruct
188c0	75 72 69 6e 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	uring.exists.which.allows.the.pa
188e0	74 74 65 72 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	tterns.be.optionally.left.out.an
18900	64 20 64 65 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	d.derived.from.the.key.name.in.t
18920	68 65 20 66 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	he.following.fashion:..-.a.key.:
18940	66 6f 6f 20 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	foo.is.converted.into.`foo'.patt
18960	65 72 6e 2c 0a 2d 20 61 20 6b 65 79 20 5c 3d 27 62 61 72 20 69 73 20 63 6f 6e 76 65 72 74 65 64	ern,.-.a.key.\='bar.is.converted
18980	20 69 6e 74 6f 20 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	.into.`bar'.pattern,.-.a.key."ba
189a0	7a 22 20 69 73 20 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	z".is.converted.into.`baz'.patte
189c0	72 6e 2e 0a 0a 54 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	rn...That.is,.the.entire.value.u
189e0	6e 64 65 72 20 74 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	nder.the.key.is.bound.to.the.der
18a00	69 76 65 64 0a 76 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	ived.variable.without.any.furthe
18a20	72 20 64 65 73 74 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	r.destructuring...This.is.possib
18a40	6c 65 20 6f 6e 6c 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	le.only.when.the.form.following.
18a60	74 68 65 20 6b 65 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	the.key.is.not.a.valid.pattern.(
18a80	69 2e 65 2e 20 6e 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	i.e..not.a.symbol,.a.cons.cell.o
18aa0	72 20 61 20 76 65 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	r.a.vector)..Otherwise.the.match
18ac0	69 6e 67 20 70 72 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	ing.proceeds.as.usual.and.in.cas
18ae0	65 20 6f 66 20 61 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	e.of.an.invalid.spec.fails.with.
18b00	61 6e 20 65 72 72 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	an.error...Thus.the.patterns.are
18b20	20 6e 6f 72 6d 61 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	.normalized.as.follows:.....;;.d
18b40	65 72 69 76 65 20 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	erive.all.the.missing.patterns..
18b60	20 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 5c 3d 27 62 61 72 20 22 62 61 7a 22 29 20 3d 3e 20	..(&plist.:foo.\='bar."baz").=>.
18b80	28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 66 6f 6f 20 5c 3d 27 62 61 72 20 62 61 72 20 22 62 61 7a	(&plist.:foo.foo.\='bar.bar."baz
18ba0	22 20 62 61 7a 29 0a 0a 20 20 20 3b 3b 20 77 65 20 63 61 6e 20 73 70 65 63 69 66 79 20 73 6f 6d	".baz).....;;.we.can.specify.som
18bc0	65 20 62 75 74 20 6e 6f 74 20 6f 74 68 65 72 73 0a 20 20 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f	e.but.not.others....(&plist.:foo
18be0	20 5c 3d 27 62 61 72 20 65 78 70 6c 69 63 69 74 2d 62 61 72 29 20 3d 3e 20 28 26 70 6c 69 73 74	.\='bar.explicit-bar).=>.(&plist
18c00	20 3a 66 6f 6f 20 66 6f 6f 20 5c 3d 27 62 61 72 20 65 78 70 6c 69 63 69 74 2d 62 61 72 29 0a 0a	.:foo.foo.\='bar.explicit-bar)..
18c20	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 73 74 6f 72 65 20	...;;.nothing.happens,.we.store.
18c40	3a 66 6f 6f 20 69 6e 20 78 0a 20 20 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 78 29 20 3d 3e 20	:foo.in.x....(&plist.:foo.x).=>.
18c60	28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 78 29 0a 0a 20 20 20 3b 3b 20 6e 6f 74 68 69 6e 67 20 68	(&plist.:foo.x).....;;.nothing.h
18c80	61 70 70 65 6e 73 2c 20 77 65 20 6d 61 74 63 68 20 72 65 63 75 72 73 69 76 65 6c 79 0a 20 20 20	appens,.we.match.recursively....
18ca0	28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 28 61 20 62 20 63 29 29 20 3d 3e 20 28 26 70 6c 69 73 74	(&plist.:foo.(a.b.c)).=>.(&plist
18cc0	20 3a 66 6f 6f 20 28 61 20 62 20 63 29 29 0a 0a 59 6f 75 20 63 61 6e 20 6e 61 6d 65 20 74 68 65	.:foo.(a.b.c))..You.can.name.the
18ce0	20 73 6f 75 72 63 65 20 75 73 69 6e 67 20 74 68 65 20 73 79 6e 74 61 78 20 53 59 4d 42 4f 4c 20	.source.using.the.syntax.SYMBOL.
18d00	26 61 73 20 50 41 54 54 45 52 4e 2e 0a 54 68 69 73 20 73 79 6e 74 61 78 20 77 6f 72 6b 73 20 77	&as.PATTERN..This.syntax.works.w
18d20	69 74 68 20 6c 69 73 74 73 20 28 70 72 6f 70 65 72 20 6f 72 20 69 6d 70 72 6f 70 65 72 29 2c 20	ith.lists.(proper.or.improper),.
18d40	76 65 63 74 6f 72 73 20 61 6e 64 0a 61 6c 6c 20 74 79 70 65 73 20 6f 66 20 6d 61 70 73 2e 0a 0a	vectors.and.all.types.of.maps...
18d60	20 20 28 6c 69 73 74 20 26 61 73 20 61 20 62 20 63 29 20 28 6c 69 73 74 20 31 20 32 20 33 29 0a	..(list.&as.a.b.c).(list.1.2.3).
18d80	0a 62 69 6e 64 73 20 41 20 74 6f 20 31 2c 20 42 20 74 6f 20 32 2c 20 43 20 74 6f 20 33 20 61 6e	.binds.A.to.1,.B.to.2,.C.to.3.an
18da0	64 20 4c 49 53 54 20 74 6f 20 28 31 20 32 20 33 29 2e 0a 0a 53 69 6d 69 6c 61 72 6c 79 3a 0a 0a	d.LIST.to.(1.2.3)...Similarly:..
18dc0	20 20 28 62 6f 75 6e 64 73 20 26 61 73 20 62 65 67 20 2e 20 65 6e 64 29 20 28 63 6f 6e 73 20 31	..(bounds.&as.beg...end).(cons.1
18de0	20 32 29 0a 0a 62 69 6e 64 73 20 42 45 47 20 74 6f 20 31 2c 20 45 4e 44 20 74 6f 20 32 20 61 6e	.2)..binds.BEG.to.1,.END.to.2.an
18e00	64 20 42 4f 55 4e 44 53 20 74 6f 20 28 31 20 2e 20 32 29 2e 0a 0a 20 20 28 69 74 65 6d 73 20 26	d.BOUNDS.to.(1...2).....(items.&
18e20	61 73 20 66 69 72 73 74 20 2e 20 72 65 73 74 29 20 28 6c 69 73 74 20 31 20 32 20 33 29 0a 0a 62	as.first...rest).(list.1.2.3)..b
18e40	69 6e 64 73 20 46 49 52 53 54 20 74 6f 20 31 2c 20 52 45 53 54 20 74 6f 20 28 32 20 33 29 20 61	inds.FIRST.to.1,.REST.to.(2.3).a
18e60	6e 64 20 49 54 45 4d 53 20 74 6f 20 28 31 20 32 20 33 29 0a 0a 20 20 5b 76 65 63 74 20 26 61 73	nd.ITEMS.to.(1.2.3)....[vect.&as
18e80	20 5f 20 62 20 63 5d 20 5b 31 20 32 20 33 5d 0a 0a 62 69 6e 64 73 20 42 20 74 6f 20 32 2c 20 43	._.b.c].[1.2.3]..binds.B.to.2,.C
18ea0	20 74 6f 20 33 20 61 6e 64 20 56 45 43 54 20 74 6f 20 5b 31 20 32 20 33 5d 20 28 5f 20 61 76 6f	.to.3.and.VECT.to.[1.2.3].(_.avo
18ec0	69 64 73 20 62 69 6e 64 69 6e 67 20 61 73 20 75 73 75 61 6c 29 2e 0a 0a 20 20 28 70 6c 69 73 74	ids.binding.as.usual).....(plist
18ee0	20 26 61 73 20 26 70 6c 69 73 74 20 3a 62 20 62 29 20 28 6c 69 73 74 20 3a 61 20 31 20 3a 62 20	.&as.&plist.:b.b).(list.:a.1.:b.
18f00	32 20 3a 63 20 33 29 0a 0a 62 69 6e 64 73 20 42 20 74 6f 20 32 20 61 6e 64 20 50 4c 49 53 54 20	2.:c.3)..binds.B.to.2.and.PLIST.
18f20	74 6f 20 28 3a 61 20 31 20 3a 62 20 32 20 3a 63 20 33 29 2e 20 20 53 61 6d 65 20 66 6f 72 20 26	to.(:a.1.:b.2.:c.3)...Same.for.&
18f40	61 6c 69 73 74 20 61 6e 64 20 26 68 61 73 68 2e 0a 0a 54 68 69 73 20 69 73 20 65 73 70 65 63 69	alist.and.&hash...This.is.especi
18f60	61 6c 6c 79 20 75 73 65 66 75 6c 20 77 68 65 6e 20 77 65 20 77 61 6e 74 20 74 6f 20 63 61 70 74	ally.useful.when.we.want.to.capt
18f80	75 72 65 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 0a 63 6f 6d 70 75 74 61 74 69 6f 6e 20	ure.the.result.of.a.computation.
18fa0	61 6e 64 20 64 65 73 74 72 75 63 74 75 72 65 20 61 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65	and.destructure.at.the.same.time
18fc0	2e 20 20 43 6f 6e 73 69 64 65 72 20 74 68 65 0a 66 6f 72 6d 20 28 66 75 6e 63 74 69 6f 6e 2d 72	...Consider.the.form.(function-r
18fe0	65 74 75 72 6e 69 6e 67 2d 63 6f 6d 70 6c 65 78 2d 73 74 72 75 63 74 75 72 65 29 20 72 65 74 75	eturning-complex-structure).retu
19000	72 6e 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 0a 74 77 6f 20 76 65 63 74 6f 72 73 20 77 69 74 68	rning.a.list.of.two.vectors.with
19020	20 74 77 6f 20 69 74 65 6d 73 20 65 61 63 68 2e 20 20 57 65 20 77 61 6e 74 20 74 6f 20 63 61 70	.two.items.each...We.want.to.cap
19040	74 75 72 65 20 74 68 69 73 20 65 6e 74 69 72 65 0a 72 65 73 75 6c 74 20 61 6e 64 20 70 61 73 73	ture.this.entire.result.and.pass
19060	20 69 74 20 74 6f 20 61 6e 6f 74 68 65 72 20 63 6f 6d 70 75 74 61 74 69 6f 6e 2c 20 62 75 74 20	.it.to.another.computation,.but.
19080	61 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 0a 77 65 20 77 61 6e 74 20 74 6f 20 67 65 74 20	at.the.same.time.we.want.to.get.
190a0	74 68 65 20 73 65 63 6f 6e 64 20 69 74 65 6d 20 66 72 6f 6d 20 65 61 63 68 20 76 65 63 74 6f 72	the.second.item.from.each.vector
190c0	2e 20 20 57 65 20 63 61 6e 20 61 63 68 69 65 76 65 0a 69 74 20 77 69 74 68 20 70 61 74 74 65 72	...We.can.achieve.it.with.patter
190e0	6e 0a 0a 20 20 28 72 65 73 75 6c 74 20 26 61 73 20 5b 5f 20 61 5d 20 5b 5f 20 62 5d 29 20 28 66	n....(result.&as.[_.a].[_.b]).(f
19100	75 6e 63 74 69 6f 6e 2d 72 65 74 75 72 6e 69 6e 67 2d 63 6f 6d 70 6c 65 78 2d 73 74 72 75 63 74	unction-returning-complex-struct
19120	75 72 65 29 0a 0a 4e 6f 74 65 3a 20 43 6c 6f 6a 75 72 65 20 70 72 6f 67 72 61 6d 6d 65 72 73 20	ure)..Note:.Clojure.programmers.
19140	6d 61 79 20 6b 6e 6f 77 20 74 68 69 73 20 66 65 61 74 75 72 65 20 61 73 20 74 68 65 20 22 3a 61	may.know.this.feature.as.the.":a
19160	73 0a 62 69 6e 64 69 6e 67 22 2e 20 20 54 68 65 20 64 69 66 66 65 72 65 6e 63 65 20 69 73 20 74	s.binding"...The.difference.is.t
19180	68 61 74 20 77 65 20 70 75 74 20 74 68 65 20 26 61 73 20 61 74 20 74 68 65 20 66 72 6f 6e 74 0a	hat.we.put.the.&as.at.the.front.
191a0	62 65 63 61 75 73 65 20 77 65 20 6e 65 65 64 20 74 6f 20 73 75 70 70 6f 72 74 20 69 6d 70 72 6f	because.we.need.to.support.impro
191c0	70 65 72 20 6c 69 73 74 20 62 69 6e 64 69 6e 67 2e 0a 0a 28 66 6e 20 56 41 52 4c 49 53 54 20 26	per.list.binding...(fn.VARLIST.&
191e0	72 65 73 74 20 42 4f 44 59 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	rest.BODY)..(byte-code."\300\301
19200	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 33	\302\303#\210\304\301\305\306#\3
19220	30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 6c 65 74 2a 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73	00\207".[put.-let*.edebug-form-s
19240	70 65 63 20 28 28 26 72 65 73 74 20 5b 26 6f 72 20 28 73 65 78 70 20 66 6f 72 6d 29 20 73 65 78	pec.((&rest.[&or.(sexp.form).sex
19260	70 5d 29 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	p]).body).function-put.lisp-inde
19280	6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 65	nt-function.1].4).(defalias.'-le
192a0	74 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 32 30 33 13 00 5c	t.'(macro...#[385."\300.!\203..\
192c0	33 30 31 5c 33 30 32 03 5c 33 30 33 48 04 5c 33 30 34 48 5c 22 02 42 42 5c 32 30 37 5c 33 30 35	301\302.\303H.\304H\".BB\207\305
192e0	02 21 5c 33 30 36 01 5c 33 30 33 01 5c 32 30 33 36 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34	.!\306.\303.\2036..\211A\262.\24
19300	32 5c 33 30 37 5c 33 31 30 5c 33 31 31 04 5c 22 21 01 41 40 44 04 42 5c 32 36 32 04 5c 32 31 30	2\307\310\311.\"!.A@D.B\262.\210
19320	54 5c 32 30 32 19 00 5c 32 36 36 02 5c 32 33 37 5c 32 31 31 5c 33 30 36 03 5c 33 30 33 5c 33 30	T\202..\266.\237\211\306.\303\30
19340	36 02 5c 32 30 33 64 00 5c 32 31 30 01 5c 32 34 32 04 5c 32 30 33 64 00 04 5c 32 31 31 41 5c 32	6.\203d.\210.\242.\203d..\211A\2
19360	36 32 06 5c 32 34 32 01 40 01 40 44 05 42 5c 32 36 32 05 5c 32 31 30 01 54 5c 32 36 32 02 02 41	62.\242.@.@D.B\262.\210.T\262..A
19380	5c 32 36 32 03 5c 32 30 32 3e 00 5c 32 36 36 03 5c 32 36 36 5c 32 30 31 5c 32 33 37 5c 33 31 32	\262.\202>.\266.\266\201\237\312
193a0	02 5c 33 31 33 03 06 07 42 42 45 5c 32 30 37 22 20 5b 76 65 63 74 6f 72 70 20 6c 65 74 2a 20 64	.\313...BBE\207".[vectorp.let*.d
193c0	61 73 68 2d 2d 6d 61 74 63 68 20 30 20 31 20 64 61 73 68 2d 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6c	ash--match.0.1.dash--normalize-l
193e0	65 74 2d 76 61 72 6c 69 73 74 20 6e 69 6c 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 66 6f 72 6d 61	et-varlist.nil.make-symbol.forma
19400	74 20 22 69 6e 70 75 74 25 64 22 20 6c 65 74 20 2d 6c 65 74 2a 5d 20 31 32 20 28 23 24 20 2e 20	t."input%d".let.-let*].12.(#$...
19420	39 37 31 39 38 29 5d 29 29 23 40 34 32 37 20 52 65 74 75 72 6e 20 61 20 6c 61 6d 62 64 61 20 77	97198)]))#@427.Return.a.lambda.w
19440	68 69 63 68 20 64 65 73 74 72 75 63 74 75 72 65 73 20 69 74 73 20 69 6e 70 75 74 20 61 73 20 4d	hich.destructures.its.input.as.M
19460	41 54 43 48 2d 46 4f 52 4d 20 61 6e 64 20 65 78 65 63 75 74 65 73 20 42 4f 44 59 2e 0a 0a 4e 6f	ATCH-FORM.and.executes.BODY...No
19480	74 65 20 74 68 61 74 20 79 6f 75 20 68 61 76 65 20 74 6f 20 65 6e 63 6c 6f 73 65 20 74 68 65 20	te.that.you.have.to.enclose.the.
194a0	4d 41 54 43 48 2d 46 4f 52 4d 20 69 6e 20 61 20 70 61 69 72 20 6f 66 20 70 61 72 65 6e 73 2c 0a	MATCH-FORM.in.a.pair.of.parens,.
194c0	73 75 63 68 20 74 68 61 74 3a 0a 0a 20 20 28 2d 6c 61 6d 62 64 61 20 28 78 29 20 62 6f 64 79 29	such.that:....(-lambda.(x).body)
194e0	0a 20 20 28 2d 6c 61 6d 62 64 61 20 28 78 20 79 20 2e 2e 2e 29 20 62 6f 64 79 29 0a 0a 68 61 73	...(-lambda.(x.y....).body)..has
19500	20 74 68 65 20 75 73 75 61 6c 20 73 65 6d 61 6e 74 69 63 73 20 6f 66 20 60 6c 61 6d 62 64 61 27	.the.usual.semantics.of.`lambda'
19520	2e 20 20 46 75 72 74 68 65 72 6d 6f 72 65 2c 20 74 68 65 73 65 20 67 65 74 0a 74 72 61 6e 73 6c	...Furthermore,.these.get.transl
19540	61 74 65 64 20 69 6e 74 6f 20 6e 6f 72 6d 61 6c 20 60 6c 61 6d 62 64 61 27 2c 20 73 6f 20 74 68	ated.into.normal.`lambda',.so.th
19560	65 72 65 20 69 73 20 6e 6f 20 70 65 72 66 6f 72 6d 61 6e 63 65 0a 70 65 6e 61 6c 74 79 2e 0a 0a	ere.is.no.performance.penalty...
19580	53 65 65 20 60 2d 6c 65 74 27 20 66 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20	See.`-let'.for.a.description.of.
195a0	74 68 65 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 20 6d 65 63 68 61 6e 69 73 6d 2e 0a 0a 28 66	the.destructuring.mechanism...(f
195c0	6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 62 79 74 65 2d	n.MATCH-FORM.&rest.BODY)..(byte-
195e0	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\
19600	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 65 74 20	301\305\306#\300\207".[put.-let.
19620	65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 5b 26 6f 72 20 28 26 72 65 73 74 20 5b 26	edebug-form-spec.([&or.(&rest.[&
19640	6f 72 20 28 73 65 78 70 20 66 6f 72 6d 29 20 73 65 78 70 5d 29 20 28 76 65 63 74 6f 72 20 5b 26	or.(sexp.form).sexp]).(vector.[&
19660	72 65 73 74 20 5b 73 65 78 70 20 66 6f 72 6d 5d 5d 29 5d 20 62 6f 64 79 29 20 66 75 6e 63 74 69	rest.[sexp.form]])].body).functi
19680	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 34	on-put.lisp-indent-function.1].4
196a0	29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 61 6d 62 64 61 20 27 28 6d 61 63 72 6f 20 2e 20 23	).(defalias.'-lambda.'(macro...#
196c0	5b 33 38 35 20 22 01 3c 5c 32 30 34 5c 66 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 44 5c 22 5c	[385.".<\204\f.\300\301\302.D\"\
196e0	32 30 37 5c 33 30 33 5c 33 30 34 03 5c 22 5c 32 30 33 19 00 5c 33 30 35 02 02 42 42 5c 32 30 37	207\303\304.\"\203..\305..BB\207
19700	5c 33 30 36 02 5c 33 30 37 01 5c 32 30 33 37 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 5c	\306.\307.\2037..\211A\262.\242\
19720	32 31 31 5c 33 31 30 5c 33 31 31 5c 33 31 32 05 5c 22 21 44 04 42 5c 32 36 32 04 5c 32 31 30 54	211\310\311\312.\"!D.B\262.\210T
19740	5c 32 30 32 1c 00 5c 32 36 36 02 5c 32 33 37 5c 33 30 35 5c 33 31 33 5c 33 31 34 03 5c 22 5c 33	\202..\266.\237\305\313\314.\"\3
19760	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 70 65 2d	15..BBE\207".[signal.wrong-type-
19780	61 72 67 75 6d 65 6e 74 20 6c 69 73 74 70 20 2d 61 6c 6c 3f 20 73 79 6d 62 6f 6c 70 20 6c 61 6d	argument.listp.-all?.symbolp.lam
197a0	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 20 22 69 6e	bda.nil.0.make-symbol.format."in
197c0	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 31 20 28 23 24	put%d".mapcar.cadr.-let*].11.(#$
197e0	20 2e 20 31 30 33 34 37 31 29 5d 29 29 23 40 35 33 30 20 42 69 6e 64 20 65 61 63 68 20 4d 41 54	...103471)]))#@530.Bind.each.MAT
19800	43 48 2d 46 4f 52 4d 20 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 69 74 73 20 56 41 4c 2e	CH-FORM.to.the.value.of.its.VAL.
19820	0a 0a 4d 41 54 43 48 2d 46 4f 52 4d 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 20 69 73 20 64 6f	..MATCH-FORM.destructuring.is.do
19840	6e 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 72 75 6c 65 73 20 6f 66 20 60 2d 6c	ne.according.to.the.rules.of.`-l
19860	65 74 27 2e 0a 0a 54 68 69 73 20 6d 61 63 72 6f 20 61 6c 6c 6f 77 73 20 79 6f 75 20 74 6f 20 62	et'...This.macro.allows.you.to.b
19880	69 6e 64 20 6d 75 6c 74 69 70 6c 65 20 76 61 72 69 61 62 6c 65 73 20 62 79 20 64 65 73 74 72 75	ind.multiple.variables.by.destru
198a0	63 74 75 72 69 6e 67 0a 74 68 65 20 76 61 6c 75 65 2c 20 73 6f 20 66 6f 72 20 65 78 61 6d 70 6c	cturing.the.value,.so.for.exampl
198c0	65 3a 0a 0a 20 20 28 2d 73 65 74 71 20 28 61 20 62 29 20 78 0a 20 20 20 20 20 20 20 20 20 28 26	e:....(-setq.(a.b).x..........(&
198e0	70 6c 69 73 74 20 3a 63 20 63 29 20 70 6c 69 73 74 29 0a 0a 65 78 70 61 6e 64 73 20 72 6f 75 67	plist.:c.c).plist)..expands.roug
19900	68 6c 79 20 73 70 65 61 6b 69 6e 67 20 74 6f 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f	hly.speaking.to.the.following.co
19920	64 65 0a 0a 20 20 28 73 65 74 71 20 61 20 28 63 61 72 20 78 29 0a 20 20 20 20 20 20 20 20 62 20	de....(setq.a.(car.x).........b.
19940	28 63 61 64 72 20 78 29 0a 20 20 20 20 20 20 20 20 63 20 28 70 6c 69 73 74 2d 67 65 74 20 70 6c	(cadr.x).........c.(plist-get.pl
19960	69 73 74 20 3a 63 29 29 0a 0a 43 61 72 65 20 69 73 20 74 61 6b 65 6e 20 74 6f 20 6f 6e 6c 79 20	ist.:c))..Care.is.taken.to.only.
19980	65 76 61 6c 75 61 74 65 20 65 61 63 68 20 56 41 4c 20 6f 6e 63 65 20 73 6f 20 74 68 61 74 20 69	evaluate.each.VAL.once.so.that.i
199a0	6e 20 63 61 73 65 20 6f 66 0a 6d 75 6c 74 69 70 6c 65 20 61 73 73 69 67 6e 6d 65 6e 74 73 20 69	n.case.of.multiple.assignments.i
199c0	74 20 64 6f 65 73 20 6e 6f 74 20 63 61 75 73 65 20 75 6e 65 78 70 65 63 74 65 64 20 73 69 64 65	t.does.not.cause.unexpected.side
199e0	20 65 66 66 65 63 74 73 2e 0a 0a 28 66 6e 20 5b 4d 41 54 43 48 2d 46 4f 52 4d 20 56 41 4c 5d 2e	.effects...(fn.[MATCH-FORM.VAL].
19a00	2e 2e 29 1f 23 40 31 30 20 0a 0a 28 66 6e 20 58 29 1f 23 40 31 37 20 0a 0a 28 66 6e 20 42 49 4e	..).#@10...(fn.X).#@17...(fn.BIN
19a20	44 49 4e 47 53 29 1f 23 40 31 36 20 0a 0a 28 66 6e 20 42 49 4e 44 49 4e 47 29 1f 0a 28 62 79 74	DINGS).#@16...(fn.BINDING)..(byt
19a40	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
19a60	31 5c 33 30 34 5c 33 30 35 23 5c 33 30 36 5c 33 30 31 5c 33 30 37 5c 33 31 30 23 5c 32 30 37 22	1\304\305#\306\301\307\310#\207"
19a80	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6c 61 6d 62 64 61 20 64 6f 63 2d 73 74 72 69 6e	.[function-put.-lambda.doc-strin
19aa0	67 2d 65 6c 74 20 32 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 64 65 66	g-elt.2.lisp-indent-function.def
19ac0	75 6e 20 70 75 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 26 64 65 66 69 6e 65	un.put.edebug-form-spec.(&define
19ae0	20 73 65 78 70 20 5b 26 6f 70 74 69 6f 6e 61 6c 20 73 74 72 69 6e 67 70 5d 20 5b 26 6f 70 74 69	.sexp.[&optional.stringp].[&opti
19b00	6f 6e 61 6c 20 28 22 69 6e 74 65 72 61 63 74 69 76 65 22 20 69 6e 74 65 72 61 63 74 69 76 65 29	onal.("interactive".interactive)
19b20	5d 20 64 65 66 2d 62 6f 64 79 29 5d 20 36 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 74 71	].def-body)].6).(defalias.'-setq
19b40	20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 31 32 38 20 22 5c 33 30 30 01 47 5c 33 30 31 5c 22 5c 33	.'(macro...#[128."\300.G\301\"\3
19b60	30 32 55 5c 32 30 33 13 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 03 47 54 44 5c 22 5c 32 31 30 5c	02U\203..\303\304\305.GTD\"\210\
19b80	33 30 36 5c 33 30 37 5c 33 31 30 5c 33 30 31 04 5c 22 5c 22 5c 33 31 31 5c 33 31 32 02 5c 22 5c	306\307\310\301.\"\"\311\312.\"\
19ba0	33 31 33 5c 33 30 36 5c 33 31 34 03 5c 22 5c 33 31 35 5c 33 31 36 5c 33 30 32 06 06 5c 22 5c 33	313\306\314.\"\315\316\302..\"\3
19bc0	31 37 5c 33 32 30 5c 33 30 36 5c 33 32 31 06 08 5c 22 21 42 45 5c 33 31 37 5c 33 32 30 05 21 42	17\320\306\321..\"!BE\317\320.!B
19be0	46 5c 32 30 37 22 20 5b 6d 6f 64 20 32 20 31 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 6e 75 6d	F\207".[mod.2.1.signal.wrong-num
19c00	62 65 72 2d 6f 66 2d 61 72 67 75 6d 65 6e 74 73 20 2d 73 65 74 71 20 2d 6d 61 70 20 23 5b 32 35	ber-of-arguments.-setq.-map.#[25
19c20	37 20 22 5c 33 30 30 01 40 02 41 40 5c 22 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68	7."\300.@.A@\"\207".[dash--match
19c40	5d 20 34 20 28 23 24 20 2e 20 31 30 34 39 36 39 29 5d 20 2d 70 61 72 74 69 74 69 6f 6e 20 2d 6d	].4.(#$...104969)].-partition.-m
19c60	61 70 63 61 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 01 5c	apcat.#[257."\300\301\302.\303.\
19c80	32 30 33 23 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 5c 33 30 34 5c 33 30 35 5c 33 30 36	203#..\211A\262.\242\304\305\306
19ca0	03 40 21 5c 22 5c 32 30 34 1e 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 05	.@!\"\204..\211.B\262.\210T\202.
19cc0	00 5c 32 36 36 02 5c 32 33 37 5c 22 5c 32 30 37 22 20 5b 2d 6d 61 70 20 23 5b 32 35 37 20 22 5c	.\266.\237\"\207".[-map.#[257."\
19ce0	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 33 51 21 44 5c 32 30	211@\211\300\301\302.!\303Q!D\20
19d00	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 69 6e 64 69 6e 67 2d	7".[make-symbol."--dash-binding-
19d20	22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 2d 2d 22 5d 20 37 20 28 23 24 20 2e 20 31 30 35 30	".symbol-name."--"].7.(#$...1050
19d40	30 34 29 5d 20 6e 69 6c 20 30 20 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 2d 2d 22 20	04)].nil.0.string-prefix-p."--".
19d60	73 79 6d 62 6f 6c 2d 6e 61 6d 65 5d 20 31 31 20 28 23 24 20 2e 20 31 30 34 39 38 33 29 5d 20 6c	symbol-name].11.(#$...104983)].l
19d80	65 74 20 63 61 64 72 20 6c 65 74 2a 20 2d 66 6c 61 74 74 65 6e 2d 6e 20 73 65 74 71 20 2d 66 6c	et.cadr.let*.-flatten-n.setq.-fl
19da0	61 74 74 65 6e 20 72 65 76 65 72 73 65 5d 20 31 32 20 28 23 24 20 2e 20 31 30 34 34 33 35 29 5d	atten.reverse].12.(#$...104435)]
19dc0	29 29 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 20 74 6f 20	))#@320.If.all.VALS.evaluate.to.
19de0	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 72 65 73 70	true,.bind.them.to.their.corresp
19e00	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 65 72 77 69	onding.VARS.and.do.THEN,.otherwi
19e20	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 20 62 65 20	se.do.ELSE..VARS-VALS.should.be.
19e40	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 4e 6f 74 65	a.list.of.(VAR.VAL).pairs...Note
19e60	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 74 6f 20 60	:.binding.is.done.according.to.`
19e80	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 73 65 71 75	-let*'...VALS.are.evaluated.sequ
19ea0	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 70 73 20 61	entially,.and.evaluation.stops.a
19ec0	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 63 6f 75 6e	fter.the.first.nil.VAL.is.encoun
19ee0	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 72 65 73 74	tered...(fn.VARS-VALS.THEN.&rest
19f00	20 45 4c 53 45 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	.ELSE)..(byte-code."\300\301\302
19f20	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
19f40	30 37 22 20 5b 70 75 74 20 2d 73 65 74 71 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20	07".[put.-setq.edebug-form-spec.
19f60	28 26 72 65 73 74 20 73 65 78 70 20 66 6f 72 6d 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c	(&rest.sexp.form).function-put.l
19f80	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 28 64 65 66 61 6c	isp-indent-function.1].4).(defal
19fa0	69 61 73 20 27 2d 69 66 2d 6c 65 74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 01	ias.'-if-let*.'(macro...#[642.".
19fc0	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 08 5c 22 5c 22 21 5c 32 31 31 47	\300\301\302\303\304..\"\"!\211G
19fe0	5c 33 30 35 5c 32 31 31 02 5c 33 30 36 56 5c 32 30 33 3b 00 02 53 5c 32 36 32 03 5c 32 31 30 01	\305\211.\306V\203;..S\262.\210.
1a000	03 03 48 5c 32 36 32 02 01 40 02 41 40 5c 33 30 37 02 02 44 43 5c 33 31 30 04 06 5c 6e 06 5c 66	..H\262..@.A@\307..DC\310..\n.\f
1a020	42 42 42 45 5c 32 36 36 5c 32 30 32 5c 32 36 32 05 5c 32 30 32 0f 00 5c 32 36 36 04 5c 32 30 37	BBBE\266\202\262.\202..\266.\207
1a040	22 20 5b 76 63 6f 6e 63 61 74 20 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 23	".[vconcat.apply.append.mapcar.#
1a060	5b 32 35 37 20 22 5c 33 30 30 01 40 02 41 40 5c 22 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61	[257."\300.@.A@\"\207".[dash--ma
1a080	74 63 68 5d 20 34 20 28 23 24 20 2e 20 32 37 39 36 31 29 5d 20 6e 69 6c 20 30 20 6c 65 74 20 69	tch].4.(#$...27961)].nil.0.let.i
1a0a0	66 5d 20 31 36 20 28 23 24 20 2e 20 31 30 35 39 32 38 29 5d 29 29 23 40 31 35 33 20 49 66 20 56	f].16.(#$...105928)]))#@153.If.V
1a0c0	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 69 74	AL.evaluates.to.non-nil,.bind.it
1a0e0	20 74 6f 20 56 41 52 20 61 6e 64 20 64 6f 20 54 48 45 4e 2c 0a 6f 74 68 65 72 77 69 73 65 20 64	.to.VAR.and.do.THEN,.otherwise.d
1a100	6f 20 45 4c 53 45 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	o.ELSE...Note:.binding.is.done.a
1a120	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 41 52 20 56 41	ccording.to.`-let'...(fn.(VAR.VA
1a140	4c 29 20 54 48 45 4e 20 26 72 65 73 74 20 45 4c 53 45 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20	L).THEN.&rest.ELSE)..(byte-code.
1a160	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 31 5c 33	"\300\301\302\303#\210\304\301\3
1a180	30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 69 66 2d 6c 65 74 2a 20 65	05\306#\300\207".[put.-if-let*.e
1a1a0	64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 26 72 65 73 74 20 28 73 65 78 70 20 66 6f	debug-form-spec.((&rest.(sexp.fo
1a1c0	72 6d 29 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	rm)).form.body).function-put.lis
1a1e0	70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 28 64 65 66 61 6c 69 61	p-indent-function.2].4).(defalia
1a200	73 20 27 2d 69 66 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30	s.'-if-let.'(macro...#[642."\300
1a220	03 43 03 03 42 42 42 5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 74 2a 5d 20 37 20 28 23 24 20 2e 20	.C..BBB\207".[-if-let*].7.(#$...
1a240	31 30 36 36 38 34 29 5d 29 29 23 40 31 31 31 20 49 66 20 56 41 4c 20 65 76 61 6c 75 61 74 65 73	106684)]))#@111.If.VAL.evaluates
1a260	20 74 6f 20 6e 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	.to.non-nil,.bind.it.to.symbol.`
1a280	69 74 27 20 61 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	it'.and.do.THEN,.otherwise.do.EL
1a2a0	53 45 2e 0a 0a 28 66 6e 20 56 41 4c 20 54 48 45 4e 20 26 72 65 73 74 20 45 4c 53 45 29 1f 0a 28	SE...(fn.VAL.THEN.&rest.ELSE)..(
1a2c0	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 32 31 30	byte-code."\300\301\302\303#\210
1a2e0	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 75 74 20	\304\301\305\306#\300\207".[put.
1a300	2d 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	-if-let.edebug-form-spec.((sexp.
1a320	66 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	form).form.body).function-put.li
1a340	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 28 64 65 66 61 6c 69	sp-indent-function.2].4).(defali
1a360	61 73 20 27 2d 2d 69 66 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33	as.'--if-let.'(macro...#[642."\3
1a380	30 30 5c 33 30 31 04 44 03 03 42 42 42 5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 74 20 69 74 5d 20	00\301.D..BBB\207".[-if-let.it].
1a3a0	37 20 28 23 24 20 2e 20 31 30 37 30 38 38 29 5d 29 29 23 40 33 30 31 20 49 66 20 61 6c 6c 20 56	7.(#$...107088)]))#@301.If.all.V
1a3c0	41 4c 53 20 65 76 61 6c 75 61 74 65 20 74 6f 20 74 72 75 65 2c 20 62 69 6e 64 20 74 68 65 6d 20	ALS.evaluate.to.true,.bind.them.
1a3e0	74 6f 20 74 68 65 69 72 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 56 41 52 53 20 61 6e 64 20	to.their.corresponding.VARS.and.
1a400	65 78 65 63 75 74 65 20 62 6f 64 79 2e 20 56 41 52 53 2d 56 41 4c 53 20 73 68 6f 75 6c 64 20 62	execute.body..VARS-VALS.should.b
1a420	65 20 61 20 6c 69 73 74 20 6f 66 20 28 56 41 52 20 56 41 4c 29 0a 70 61 69 72 73 2e 0a 0a 4e 6f	e.a.list.of.(VAR.VAL).pairs...No
1a440	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 74 6f	te:.binding.is.done.according.to
1a460	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 73 65	.`-let*'...VALS.are.evaluated.se
1a480	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 70 73	quentially,.and.evaluation.stops
1a4a0	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 63 6f	.after.the.first.nil.VAL.is.enco
1a4c0	75 6e 74 65 72 65 64 2e 0a 0a 28 66 6e 20 56 41 52 53 2d 56 41 4c 53 20 26 72 65 73 74 20 42 4f	untered...(fn.VARS-VALS.&rest.BO
1a4e0	44 59 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	DY)..(byte-code."\300\301\302\30
1a500	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 22	3#\210\304\301\305\306#\300\207"
1a520	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 20	.[put.--if-let.edebug-form-spec.
1a540	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 69	(form.form.body).function-put.li
1a560	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 28 64 65 66 61 6c 69	sp-indent-function.2].4).(defali
1a580	61 73 20 27 2d 77 68 65 6e 2d 6c 65 74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22	as.'-when-let*.'(macro...#[385."
1a5a0	5c 33 30 30 02 5c 33 30 31 03 42 45 5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 74 2a 20 70 72 6f 67	\300.\301.BE\207".[-if-let*.prog
1a5c0	6e 5d 20 36 20 28 23 24 20 2e 20 31 30 37 34 34 38 29 5d 29 29 23 40 31 33 34 20 49 66 20 56 41	n].6.(#$...107448)]))#@134.If.VA
1a5e0	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 69 74 20	L.evaluates.to.non-nil,.bind.it.
1a600	74 6f 20 56 41 52 20 61 6e 64 20 65 78 65 63 75 74 65 20 62 6f 64 79 2e 0a 0a 4e 6f 74 65 3a 20	to.VAR.and.execute.body...Note:.
1a620	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 74 6f 20 60 2d 6c	binding.is.done.according.to.`-l
1a640	65 74 27 2e 0a 0a 28 66 6e 20 28 56 41 52 20 56 41 4c 29 20 26 72 65 73 74 20 42 4f 44 59 29 1f	et'...(fn.(VAR.VAL).&rest.BODY).
1a660	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 32	.(byte-code."\300\301\302\303#\2
1a680	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 75	10\304\301\305\306#\300\207".[pu
1a6a0	74 20 2d 77 68 65 6e 2d 6c 65 74 2a 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28	t.-when-let*.edebug-form-spec.((
1a6c0	26 72 65 73 74 20 28 73 65 78 70 20 66 6f 72 6d 29 29 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f	&rest.(sexp.form)).body).functio
1a6e0	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 34 29	n-put.lisp-indent-function.1].4)
1a700	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 77 68 65 6e 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20	.(defalias.'-when-let.'(macro...
1a720	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 5b 2d 69 66 2d 6c 65	#[385."\300.\301.BE\207".[-if-le
1a740	74 20 70 72 6f 67 6e 5d 20 36 20 28 23 24 20 2e 20 31 30 37 39 39 35 29 5d 29 29 23 40 39 32 20	t.progn].6.(#$...107995)]))#@92.
1a760	49 66 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	If.VAL.evaluates.to.non-nil,.bin
1a780	64 20 69 74 20 74 6f 20 73 79 6d 62 6f 6c 20 60 69 74 27 20 61 6e 64 0a 65 78 65 63 75 74 65 20	d.it.to.symbol.`it'.and.execute.
1a7a0	62 6f 64 79 2e 0a 0a 28 66 6e 20 56 41 4c 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 62 79 74	body...(fn.VAL.&rest.BODY)..(byt
1a7c0	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 30	e-code."\300\301\302\303#\210\30
1a7e0	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 77 68	4\301\305\306#\300\207".[put.-wh
1a800	65 6e 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	en-let.edebug-form-spec.((sexp.f
1a820	6f 72 6d 29 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	orm).body).function-put.lisp-ind
1a840	65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d	ent-function.1].4).(defalias.'--
1a860	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 5c	when-let.'(macro...#[385."\300.\
1a880	33 30 31 03 42 45 5c 32 30 37 22 20 5b 2d 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.(
1a8a0	23 24 20 2e 20 31 30 38 33 38 34 29 5d 29 29 23 40 32 36 38 20 54 65 73 74 73 20 66 6f 72 20 65	#$...108384)]))#@268.Tests.for.e
1a8c0	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 2c 20 6f 72 20 60 65	quality.use.this.function,.or.`e
1a8e0	71 75 61 6c 27 20 69 66 20 74 68 69 73 20 69 73 20 6e 69 6c 2e 0a 0a 41 73 20 61 20 64 79 6e 61	qual'.if.this.is.nil...As.a.dyna
1a900	6d 69 63 20 76 61 72 69 61 62 6c 65 2c 20 74 68 69 73 20 73 68 6f 75 6c 64 20 62 65 20 74 65 6d	mic.variable,.this.should.be.tem
1a920	70 6f 72 61 72 69 6c 79 20 62 6f 75 6e 64 20 61 72 6f 75 6e 64 0a 74 68 65 20 72 65 6c 65 76 61	porarily.bound.around.the.releva
1a940	6e 74 20 6f 70 65 72 61 74 69 6f 6e 2c 20 72 61 74 68 65 72 20 74 68 61 6e 20 70 65 72 6d 61 6e	nt.operation,.rather.than.perman
1a960	65 6e 74 6c 79 20 6d 6f 64 69 66 69 65 64 2e 20 20 46 6f 72 0a 65 78 61 6d 70 6c 65 3a 0a 0a 20	ently.modified...For.example:...
1a980	20 28 6c 65 74 20 28 28 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 23 5c 3d 27 3d 29 29 0a 20 20 20 20	.(let.((-compare-fn.#\='=)).....
1a9a0	28 2d 75 6e 69 6f 6e 20 5c 3d 27 28 31 20 32 20 33 29 20 5c 3d 27 28 32 20 33 20 34 29 29 29 1f	(-union.\='(1.2.3).\='(2.3.4))).
1a9c0	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 32	.(byte-code."\300\301\302\303#\2
1a9e0	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 75	10\304\301\305\306#\300\207".[pu
1aa00	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 28 66	t.--when-let.edebug-form-spec.(f
1aa20	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
1aa40	6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 28 64 65 66 76 61 72 20 2d 63 6f 6d 70 61	nt-function.1].4).(defvar.-compa
1aa60	72 65 2d 66 6e 20 6e 69 6c 20 28 23 24 20 2e 20 31 30 38 37 32 35 29 29 23 40 36 36 20 52 65 74	re-fn.nil.(#$...108725))#@66.Ret
1aa80	75 72 6e 20 74 68 65 20 66 6c 61 76 6f 72 20 6f 66 20 60 6d 65 6d 62 65 72 27 20 74 68 61 74 20	urn.the.flavor.of.`member'.that.
1aaa0	67 6f 65 73 20 62 65 73 74 20 77 69 74 68 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 2e 1f 23 40	goes.best.with.`-compare-fn'..#@
1aac0	31 37 20 0a 0a 28 66 6e 20 45 4c 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64	17...(fn.ELT.LIST)..(defalias.'d
1aae0	61 73 68 2d 2d 6d 65 6d 62 65 72 2d 66 6e 20 23 5b 30 20 22 08 5c 32 31 31 5c 33 30 31 5c 32 36	ash--member-fn.#[0.".\211\301\26
1ab00	37 5c 32 30 32 0d 00 5c 33 30 32 5c 32 30 37 5c 33 30 33 5c 32 30 37 5c 33 30 34 5c 32 30 37 5c	7\202..\302\207\303\207\304\207\
1ab20	33 30 35 5c 33 30 36 02 5c 22 5c 32 30 37 22 20 5b 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 23 73 28	305\306.\"\207".[-compare-fn.#s(
1ab40	68 61 73 68 2d 74 61 62 6c 65 20 74 65 73 74 20 65 71 20 70 75 72 65 63 6f 70 79 20 74 20 64 61	hash-table.test.eq.purecopy.t.da
1ab60	74 61 20 28 6e 69 6c 20 37 20 65 71 75 61 6c 20 37 20 65 71 20 39 20 65 71 6c 20 31 31 29 29 20	ta.(nil.7.equal.7.eq.9.eql.11)).
1ab80	6d 65 6d 62 65 72 20 6d 65 6d 71 20 6d 65 6d 71 6c 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23	member.memq.memql.make-closure.#
1aba0	5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 10 00 5c 33 30 30 02 02 40 5c 22 5c 32 30 34 10 00 41	[514."\211\203..\300..@\"\204..A
1abc0	5c 32 30 32 00 00 5c 32 30 37 22 20 5b 56 30 5d 20 35 20 28 23 24 20 2e 20 31 30 39 32 35 31 29	\202..\207".[V0].5.(#$...109251)
1abe0	5d 5d 20 34 20 28 23 24 20 2e 20 31 30 39 31 38 31 29 5d 29 23 40 36 35 20 52 65 74 75 72 6e 20	]].4.(#$...109181)])#@65.Return.
1ac00	74 68 65 20 66 6c 61 76 6f 72 20 6f 66 20 60 61 73 73 6f 63 27 20 74 68 61 74 20 67 6f 65 73 20	the.flavor.of.`assoc'.that.goes.
1ac20	62 65 73 74 20 77 69 74 68 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 2e 1f 23 40 31 38 20 0a 0a	best.with.`-compare-fn'..#@18...
1ac40	28 66 6e 20 4b 45 59 20 41 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	(fn.KEY.ALIST)..(byte-code."\300
1ac60	5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e	\301\302\303#\300\207".[function
1ac80	2d 70 75 74 20 64 61 73 68 2d 2d 6d 65 6d 62 65 72 2d 66 6e 20 73 69 64 65 2d 65 66 66 65 63 74	-put.dash--member-fn.side-effect
1aca0	2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27	-free.error-free].4).(defalias.'
1acc0	64 61 73 68 2d 2d 61 73 73 6f 63 2d 66 6e 20 23 5b 30 20 22 08 5c 32 31 31 5c 33 30 31 5c 32 36	dash--assoc-fn.#[0.".\211\301\26
1ace0	37 5c 32 30 32 0b 00 5c 33 30 32 5c 32 30 37 5c 33 30 33 5c 32 30 37 5c 33 30 34 5c 33 30 35 02	7\202..\302\207\303\207\304\305.
1ad00	5c 22 5c 32 30 37 22 20 5b 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 23 73 28 68 61 73 68 2d 74 61 62	\"\207".[-compare-fn.#s(hash-tab
1ad20	6c 65 20 74 65 73 74 20 65 71 20 70 75 72 65 63 6f 70 79 20 74 20 64 61 74 61 20 28 6e 69 6c 20	le.test.eq.purecopy.t.data.(nil.
1ad40	37 20 65 71 75 61 6c 20 37 20 65 71 20 39 29 29 20 61 73 73 6f 63 20 61 73 73 71 20 6d 61 6b 65	7.equal.7.eq.9)).assoc.assq.make
1ad60	2d 63 6c 6f 73 75 72 65 20 23 5b 35 31 34 20 22 5c 33 30 31 02 02 5c 33 30 30 23 5c 32 30 37 22	-closure.#[514."\301..\300#\207"
1ad80	20 5b 56 30 20 61 73 73 6f 63 5d 20 36 20 28 23 24 20 2e 20 31 30 39 36 33 30 29 5d 5d 20 34 20	.[V0.assoc].6.(#$...109630)]].4.
1ada0	28 23 24 20 2e 20 31 30 39 35 36 31 29 5d 29 23 40 31 32 37 20 52 65 74 75 72 6e 20 74 68 65 20	(#$...109561)])#@127.Return.the.
1adc0	68 61 73 68 20 74 61 62 6c 65 20 74 65 73 74 20 66 75 6e 63 74 69 6f 6e 20 63 6f 72 72 65 73 70	hash.table.test.function.corresp
1ade0	6f 6e 64 69 6e 67 20 74 6f 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 2e 0a 52 65 74 75 72 6e 20	onding.to.`-compare-fn'..Return.
1ae00	6e 69 6c 20 69 66 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 20 69 73 20 6e 6f 74 20 61 20 6b 6e	nil.if.`-compare-fn'.is.not.a.kn
1ae20	6f 77 6e 20 74 65 73 74 20 66 75 6e 63 74 69 6f 6e 2e 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	own.test.function...(byte-code."
1ae40	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63	\300\301\302\303#\300\207".[func
1ae60	74 69 6f 6e 2d 70 75 74 20 64 61 73 68 2d 2d 61 73 73 6f 63 2d 66 6e 20 73 69 64 65 2d 65 66 66	tion-put.dash--assoc-fn.side-eff
1ae80	65 63 74 2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 5d 20 34 29 0a 28 64 65 66 61 6c 69 61	ect-free.error-free].4).(defalia
1aea0	73 20 27 64 61 73 68 2d 2d 68 61 73 68 2d 74 65 73 74 2d 66 6e 20 23 5b 30 20 22 08 5c 32 30 36	s.'dash--hash-test-fn.#[0.".\206
1aec0	05 00 5c 33 30 31 5c 33 30 32 3e 40 5c 32 30 37 22 20 5b 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 65	..\301\302>@\207".[-compare-fn.e
1aee0	71 75 61 6c 20 28 65 71 75 61 6c 20 65 71 20 65 71 6c 29 5d 20 32 20 28 23 24 20 2e 20 31 31 30	qual.(equal.eq.eql)].2.(#$...110
1af00	30 30 35 29 5d 29 23 40 32 34 37 20 4d 61 78 69 6d 75 6d 20 6c 69 73 74 20 6c 65 6e 67 74 68 20	005)])#@247.Maximum.list.length.
1af20	63 6f 6e 73 69 64 65 72 65 64 20 73 68 6f 72 74 2c 20 66 6f 72 20 6f 70 74 69 6d 69 7a 61 74 69	considered.short,.for.optimizati
1af40	6f 6e 73 2e 0a 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 68 65 20 73 70 65 65 64 75 70 20 61 66	ons..For.example,.the.speedup.af
1af60	66 6f 72 64 65 64 20 62 79 20 68 61 73 68 20 74 61 62 6c 65 20 6c 6f 6f 6b 75 70 20 6d 61 79 20	forded.by.hash.table.lookup.may.
1af80	73 74 61 72 74 0a 74 6f 20 6f 75 74 77 65 69 67 68 20 69 74 73 20 72 75 6e 74 69 6d 65 20 61 6e	start.to.outweigh.its.runtime.an
1afa0	64 20 6d 65 6d 6f 72 79 20 6f 76 65 72 68 65 61 64 20 66 6f 72 20 70 72 6f 62 6c 65 6d 20 73 69	d.memory.overhead.for.problem.si
1afc0	7a 65 73 0a 67 72 65 61 74 65 72 20 74 68 61 6e 20 74 68 69 73 20 76 61 6c 75 65 2e 20 20 53 65	zes.greater.than.this.value...Se
1afe0	65 20 61 6c 73 6f 20 74 68 65 20 64 69 73 63 75 73 73 69 6f 6e 20 69 6e 20 50 52 20 23 33 30 35	e.also.the.discussion.in.PR.#305
1b000	2e 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23	...(byte-code."\300\301\302\303#
1b020	5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 64 61 73 68 2d 2d 68 61	\300\207".[function-put.dash--ha
1b040	73 68 2d 74 65 73 74 2d 66 6e 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 65 72 72 6f	sh-test-fn.side-effect-free.erro
1b060	72 2d 66 72 65 65 5d 20 34 29 0a 28 64 65 66 76 61 72 20 64 61 73 68 2d 2d 73 68 6f 72 74 2d 6c	r-free].4).(defvar.dash--short-l
1b080	69 73 74 2d 6c 65 6e 67 74 68 20 33 32 20 28 23 24 20 2e 20 31 31 30 33 34 38 29 29 23 40 31 37	ist-length.32.(#$...110348))#@17
1b0a0	35 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 68 20 61 6c 6c	5.Return.a.copy.of.LIST.with.all
1b0c0	20 64 75 70 6c 69 63 61 74 65 20 65 6c 65 6d 65 6e 74 73 20 72 65 6d 6f 76 65 64 2e 0a 0a 54 68	.duplicate.elements.removed...Th
1b0e0	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 77 69 74 68	e.test.for.equality.is.done.with
1b100	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 66 6e 27 0a	.`equal',.or.with.`-compare-fn'.
1b120	69 66 20 74 68 61 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 75 6e	if.that.is.non-nil...Alias:.`-un
1b140	69 71 27 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 64 69 73	iq'...(fn.LIST)..(defalias.'-dis
1b160	74 69 6e 63 74 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 32 31 31 02 5c 32 30 34 08 00 5c 33 30 31	tinct.#[257."\301\211.\204..\301
1b180	5c 32 30 37 5c 33 30 32 20 5c 32 31 31 5c 32 36 32 03 5c 32 30 33 4c 00 02 47 5c 32 31 31 5c 32	\207\302.\211\262.\203L..G\211\2
1b1a0	36 32 02 08 56 5c 32 30 33 4c 00 5c 33 30 33 5c 33 30 34 03 5c 33 30 35 04 24 5c 33 30 31 04 5c	62..V\203L.\303\304.\305.$\301.\
1b1c0	33 30 36 01 5c 32 30 33 48 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 5c 33 30 37 01 06 06	306.\203H..\211A\262.\242\307...
1b1e0	5c 22 5c 32 30 34 43 00 5c 33 31 30 01 5c 33 31 31 06 07 23 5c 32 30 33 43 00 5c 32 31 31 04 42	\"\204C.\310.\311..#\203C.\211.B
1b200	5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 23 00 5c 32 36 36 02 5c 32 33 37 5c 32 30 37 5c 33 31	\262.\210T\202#.\266.\237\207\31
1b220	32 20 5c 33 30 31 04 5c 33 30 36 01 5c 32 30 33 6c 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34	2.\301.\306.\203l..\211A\262.\24
1b240	32 04 01 05 5c 22 5c 32 30 34 67 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32	2...\"\204g.\211.B\262.\210T\202
1b260	51 00 5c 32 36 36 02 5c 32 33 37 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 73 68 6f 72 74 2d 6c 69	Q.\266.\237\207".[dash--short-li
1b280	73 74 2d 6c 65 6e 67 74 68 20 6e 69 6c 20 64 61 73 68 2d 2d 68 61 73 68 2d 74 65 73 74 2d 66 6e	st-length.nil.dash--hash-test-fn
1b2a0	20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 3a 73 69 7a 65 20 30 20 67	.make-hash-table.:test.:size.0.g
1b2c0	65 74 68 61 73 68 20 70 75 74 68 61 73 68 20 74 20 64 61 73 68 2d 2d 6d 65 6d 62 65 72 2d 66 6e	ethash.puthash.t.dash--member-fn
1b2e0	5d 20 31 32 20 28 23 24 20 2e 20 31 31 30 37 35 34 29 5d 29 23 40 32 34 30 20 52 65 74 75 72 6e	].12.(#$...110754)])#@240.Return
1b300	20 74 68 65 20 73 75 6d 20 6f 66 20 6e 6f 6e 6e 65 67 61 74 69 76 65 20 66 69 78 6e 75 6d 73 20	.the.sum.of.nonnegative.fixnums.
1b320	53 49 5a 45 31 20 61 6e 64 20 53 49 5a 45 32 2e 0a 52 65 74 75 72 6e 20 60 6d 6f 73 74 2d 70 6f	SIZE1.and.SIZE2..Return.`most-po
1b340	73 69 74 69 76 65 2d 66 69 78 6e 75 6d 27 20 6f 6e 20 6f 76 65 72 66 6c 6f 77 2e 20 20 54 68 69	sitive-fixnum'.on.overflow...Thi
1b360	73 20 65 6e 73 75 72 65 73 20 74 68 65 0a 72 65 73 75 6c 74 20 69 73 20 61 20 76 61 6c 69 64 20	s.ensures.the.result.is.a.valid.
1b380	73 69 7a 65 2c 20 70 61 72 74 69 63 75 6c 61 72 6c 79 20 66 6f 72 20 61 6c 6c 6f 63 61 74 69 6e	size,.particularly.for.allocatin
1b3a0	67 20 68 61 73 68 20 74 61 62 6c 65 73 2c 0a 65 76 65 6e 20 69 6e 20 74 68 65 20 70 72 65 73 65	g.hash.tables,.even.in.the.prese
1b3c0	6e 63 65 20 6f 66 20 62 69 67 6e 75 6d 20 73 75 70 70 6f 72 74 2e 0a 0a 28 66 6e 20 53 49 5a 45	nce.of.bignum.support...(fn.SIZE
1b3e0	31 20 53 49 5a 45 32 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	1.SIZE2)..(byte-code."\300\301\3
1b400	30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63	02\303#\304\305\301\"\207".[func
1b420	74 69 6f 6e 2d 70 75 74 20 2d 64 69 73 74 69 6e 63 74 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74	tion-put.-distinct.important-ret
1b440	75 72 6e 2d 76 61 6c 75 65 20 74 20 64 65 66 61 6c 69 61 73 20 2d 75 6e 69 71 5d 20 34 29 0a 28	urn-value.t.defalias.-uniq].4).(
1b460	64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 73 69 7a 65 2b 20 23 5b 35 31 34 20 22 01 08 02	defalias.'dash--size+.#[514."...
1b480	5a 57 5c 32 30 33 5c 66 00 01 01 5c 5c 5c 32 30 37 08 5c 32 30 37 22 20 5b 6d 6f 73 74 2d 70 6f	ZW\203\f...\\\207.\207".[most-po
1b4a0	73 69 74 69 76 65 2d 66 69 78 6e 75 6d 5d 20 35 20 28 23 24 20 2e 20 31 31 31 33 35 34 29 5d 29	sitive-fixnum].5.(#$...111354)])
1b4c0	23 40 31 38 31 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 64 69 73 74 69	#@181.Return.a.new.list.of.disti
1b4e0	6e 63 74 20 65 6c 65 6d 65 6e 74 73 20 61 70 70 65 61 72 69 6e 67 20 69 6e 20 65 69 74 68 65 72	nct.elements.appearing.in.either
1b500	20 4c 49 53 54 31 20 6f 72 20 4c 49 53 54 32 2e 0a 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20 65	.LIST1.or.LIST2...The.test.for.e
1b520	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 20 6f 72	quality.is.done.with.`equal',.or
1b540	20 77 69 74 68 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 0a 69 66 20 74 68 61 74 20 69 73 20 6e	.with.`-compare-fn'.if.that.is.n
1b560	6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 6e 20 4c 49 53 54 31 20 4c 49 53 54 32 29 1f 0a 28 62 79 74 65	on-nil...(fn.LIST1.LIST2)..(byte
1b580	2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37	-code."\300\301\302\303#\300\207
1b5a0	22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 64 61 73 68 2d 2d 73 69 7a 65 2b 20 73 69 64 65	".[function-put.dash--size+.side
1b5c0	2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75	-effect-free.t].4).(defalias.'-u
1b5e0	6e 69 6f 6e 20 23 5b 35 31 34 20 22 01 01 44 5c 33 30 31 5c 32 31 31 5c 32 31 31 05 5c 32 30 34	nion.#[514."..D\301\211\211.\204
1b600	0e 00 04 5c 32 30 33 5c 32 32 34 00 5c 33 30 32 20 5c 32 31 31 5c 32 36 32 04 5c 32 30 33 64 00	...\203\224.\302.\211\262.\203d.
1b620	5c 33 30 33 06 06 47 06 06 47 5c 22 5c 32 31 31 5c 32 36 32 03 08 56 5c 32 30 33 64 00 5c 33 30	\303..G..G\"\211\262..V\203d.\30
1b640	34 5c 33 30 35 04 5c 33 30 36 05 24 04 5c 32 31 31 5c 32 30 33 5f 00 5c 32 31 31 40 5c 32 31 31	4\305.\306.$.\211\203_.\211@\211
1b660	5c 33 30 37 01 5c 32 30 33 59 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 5c 33 31 30 01 06	\307.\203Y..\211A\262.\242\310..
1b680	07 5c 22 5c 32 30 34 54 00 5c 33 31 31 01 5c 33 31 32 06 08 23 5c 32 31 30 5c 32 31 31 06 07 42	.\"\204T.\311.\312..#\210\211..B
1b6a0	5c 32 36 32 07 5c 32 31 30 54 5c 32 30 32 35 00 5c 32 36 36 03 41 5c 32 30 32 2d 00 5c 32 36 36	\262.\210T\2025.\266.A\202-.\266
1b6c0	02 5c 32 30 32 5c 32 32 34 00 5c 33 31 33 20 04 5c 32 31 31 5c 32 30 33 5c 32 32 32 00 5c 32 31	.\202\224.\313..\211\203\222.\21
1b6e0	31 40 5c 32 31 31 5c 33 30 37 01 5c 32 30 33 5c 32 31 34 00 01 5c 32 31 31 41 5c 32 36 32 03 5c	1@\211\307.\203\214..\211A\262.\
1b700	32 34 32 05 01 06 08 5c 22 5c 32 30 34 5c 32 30 37 00 5c 32 31 31 06 07 42 5c 32 36 32 07 5c 32	242....\"\204\207.\211..B\262.\2
1b720	31 30 54 5c 32 30 32 6f 00 5c 32 36 36 03 41 5c 32 30 32 67 00 5c 32 36 36 02 5c 32 33 37 5c 32	10T\202o.\266.A\202g.\266.\237\2
1b740	30 37 22 20 5b 64 61 73 68 2d 2d 73 68 6f 72 74 2d 6c 69 73 74 2d 6c 65 6e 67 74 68 20 6e 69 6c	07".[dash--short-list-length.nil
1b760	20 64 61 73 68 2d 2d 68 61 73 68 2d 74 65 73 74 2d 66 6e 20 64 61 73 68 2d 2d 73 69 7a 65 2b 20	.dash--hash-test-fn.dash--size+.
1b780	6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 3a 73 69 7a 65 20 30 20 67 65	make-hash-table.:test.:size.0.ge
1b7a0	74 68 61 73 68 20 70 75 74 68 61 73 68 20 74 20 64 61 73 68 2d 2d 6d 65 6d 62 65 72 2d 66 6e 5d	thash.puthash.t.dash--member-fn]
1b7c0	20 31 36 20 28 23 24 20 2e 20 31 31 31 38 31 34 29 5d 29 23 40 31 38 30 20 52 65 74 75 72 6e 20	.16.(#$...111814)])#@180.Return.
1b7e0	61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 64 69 73 74 69 6e 63 74 20 65 6c 65 6d 65 6e 74 73 20	a.new.list.of.distinct.elements.
1b800	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 49 53 54	appearing.in.both.LIST1.and.LIST
1b820	32 2e 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	2...The.test.for.equality.is.don
1b840	65 20 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	e.with.`equal',.or.with.`-compar
1b860	65 2d 66 6e 27 0a 69 66 20 74 68 61 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 6e 20 4c	e-fn'.if.that.is.non-nil...(fn.L
1b880	49 53 54 31 20 4c 49 53 54 32 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	IST1.LIST2)..(byte-code."\300\30
1b8a0	31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75	1\302\303#\300\207".[function-pu
1b8c0	74 20 2d 75 6e 69 6f 6e 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20	t.-union.important-return-value.
1b8e0	74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 74 65 72 73 65 63 74 69 6f 6e 20 23	t].4).(defalias.'-intersection.#
1b900	5b 35 31 34 20 22 5c 33 30 31 5c 32 31 31 03 5c 32 30 33 5c 6e 00 02 5c 32 30 34 5c 66 00 5c 33	[514."\301\211.\203\n..\204\f.\3
1b920	30 31 5c 32 30 37 5c 33 30 32 20 5c 32 31 31 5c 32 36 32 03 5c 32 30 33 67 00 02 47 5c 32 31 31	01\207\302.\211\262.\203g..G\211
1b940	5c 32 36 32 02 08 56 5c 32 30 33 67 00 5c 33 30 33 5c 33 30 34 03 5c 33 30 35 04 24 03 5c 33 30	\262..V\203g.\303\304.\305.$.\30
1b960	36 01 5c 32 30 33 3c 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 5c 33 30 37 01 5c 33 31 30	6.\203<..\211A\262.\242\307.\310
1b980	06 06 23 5c 32 36 36 02 54 5c 32 30 32 26 00 5c 32 36 36 02 5c 33 30 31 05 5c 33 30 36 01 5c 32	..#\266.T\202&.\266.\301.\306.\2
1b9a0	30 33 63 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 5c 33 31 31 01 06 06 5c 22 5c 32 30 33	03c..\211A\262.\242\311...\"\203
1b9c0	5e 00 5c 33 31 32 01 06 06 5c 22 5c 32 31 30 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 54 5c	^.\312...\"\210\211.B\262.\210T\
1b9e0	32 30 32 41 00 5c 32 36 36 02 5c 32 33 37 5c 32 30 37 5c 33 31 33 20 5c 33 30 31 05 5c 33 30 36	202A.\266.\237\207\313.\301.\306
1ba00	01 5c 32 30 33 5c 32 31 37 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 04 01 06 09 5c 22 5c	.\203\217..\211A\262.\242....\"\
1ba20	32 30 33 5c 32 31 32 00 04 01 05 5c 22 5c 32 30 34 5c 32 31 32 00 5c 32 31 31 04 42 5c 32 36 32	203\212....\"\204\212.\211.B\262
1ba40	04 5c 32 31 30 54 5c 32 30 32 6c 00 5c 32 36 36 02 5c 32 33 37 5c 32 30 37 22 20 5b 64 61 73 68	.\210T\202l.\266.\237\207".[dash
1ba60	2d 2d 73 68 6f 72 74 2d 6c 69 73 74 2d 6c 65 6e 67 74 68 20 6e 69 6c 20 64 61 73 68 2d 2d 68 61	--short-list-length.nil.dash--ha
1ba80	73 68 2d 74 65 73 74 2d 66 6e 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74	sh-test-fn.make-hash-table.:test
1baa0	20 3a 73 69 7a 65 20 30 20 70 75 74 68 61 73 68 20 74 20 67 65 74 68 61 73 68 20 72 65 6d 68 61	.:size.0.puthash.t.gethash.remha
1bac0	73 68 20 64 61 73 68 2d 2d 6d 65 6d 62 65 72 2d 66 6e 5d 20 31 32 20 28 23 24 20 2e 20 31 31 32	sh.dash--member-fn].12.(#$...112
1bae0	36 30 31 29 5d 29 23 40 31 38 32 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69	601)])#@182.Return.a.new.list.wi
1bb00	74 68 20 74 68 65 20 64 69 73 74 69 6e 63 74 20 6d 65 6d 62 65 72 73 20 6f 66 20 4c 49 53 54 31	th.the.distinct.members.of.LIST1
1bb20	20 74 68 61 74 20 61 72 65 20 6e 6f 74 20 69 6e 20 4c 49 53 54 32 2e 0a 0a 54 68 65 20 74 65 73	.that.are.not.in.LIST2...The.tes
1bb40	74 20 66 6f 72 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	t.for.equality.is.done.with.`equ
1bb60	61 6c 27 2c 20 6f 72 20 77 69 74 68 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 0a 69 66 20 74 68	al',.or.with.`-compare-fn'.if.th
1bb80	61 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 6e 20 4c 49 53 54 31 20 4c 49 53 54 32 29	at.is.non-nil...(fn.LIST1.LIST2)
1bba0	1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	..(byte-code."\300\301\302\303#\
1bbc0	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 6e 74 65 72 73 65 63	300\207".[function-put.-intersec
1bbe0	74 69 6f 6e 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34	tion.important-return-value.t].4
1bc00	29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 69 66 66 65 72 65 6e 63 65 20 23 5b 35 31 34 20 22	).(defalias.'-difference.#[514."
1bc20	5c 33 30 31 5c 32 31 31 5c 32 31 31 04 5c 32 30 34 09 00 5c 33 30 31 5c 32 30 37 03 5c 32 30 34	\301\211\211.\204..\301\207.\204
1bc40	11 00 5c 33 30 32 05 21 5c 32 30 37 5c 33 30 33 20 5c 32 31 31 5c 32 36 32 04 5c 32 30 33 5c 32	..\302.!\207\303.\211\262.\203\2
1bc60	30 32 00 5c 32 36 36 02 02 47 02 47 01 01 5d 08 56 5c 32 30 33 5c 32 30 32 00 5c 33 30 34 5c 33	02.\266..G.G..].V\203\202.\304\3
1bc80	30 35 04 5c 33 30 36 05 24 5c 33 30 34 5c 33 30 35 05 5c 33 30 36 05 24 05 5c 33 30 37 01 5c 32	05.\306.$\304\305.\306.$.\307.\2
1bca0	30 33 4b 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 5c 33 31 30 01 5c 33 31 31 06 06 23 5c	03K..\211A\262.\242\310.\311..#\
1bcc0	32 36 36 02 54 5c 32 30 32 35 00 5c 32 36 36 02 5c 33 30 31 06 07 5c 33 30 37 01 5c 32 30 33 7e	266.T\2025.\266.\301..\307.\203~
1bce0	00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 5c 33 31 32 01 06 06 5c 22 5c 32 30 34 79 00 5c	..\211A\262.\242\312...\"\204y.\
1bd00	33 31 32 01 06 07 5c 22 5c 32 30 34 79 00 5c 33 31 30 01 5c 33 31 31 06 08 23 5c 32 30 33 79 00	312...\"\204y.\310.\311..#\203y.
1bd20	5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 51 00 5c 32 36 36 02 5c 32 33 37 5c	\211.B\262.\210T\202Q.\266.\237\
1bd40	32 30 37 5c 33 31 33 20 5c 33 30 31 06 06 5c 33 30 37 01 5c 32 30 33 5c 32 35 33 00 01 5c 32 31	207\313.\301..\307.\203\253..\21
1bd60	31 41 5c 32 36 32 03 5c 32 34 32 04 01 06 5c 6e 5c 22 5c 32 30 34 5c 32 34 36 00 04 01 05 5c 22	1A\262.\242...\n\"\204\246....\"
1bd80	5c 32 30 34 5c 32 34 36 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 5c 32 31	\204\246.\211.B\262.\210T\202\21
1bda0	30 00 5c 32 36 36 02 5c 32 33 37 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 73 68 6f 72 74 2d 6c 69	0.\266.\237\207".[dash--short-li
1bdc0	73 74 2d 6c 65 6e 67 74 68 20 6e 69 6c 20 2d 64 69 73 74 69 6e 63 74 20 64 61 73 68 2d 2d 68 61	st-length.nil.-distinct.dash--ha
1bde0	73 68 2d 74 65 73 74 2d 66 6e 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74	sh-test-fn.make-hash-table.:test
1be00	20 3a 73 69 7a 65 20 30 20 70 75 74 68 61 73 68 20 74 20 67 65 74 68 61 73 68 20 64 61 73 68 2d	.:size.0.puthash.t.gethash.dash-
1be20	2d 6d 65 6d 62 65 72 2d 66 6e 5d 20 31 35 20 28 23 24 20 2e 20 31 31 33 33 38 38 29 5d 29 23 40	-member-fn].15.(#$...113388)])#@
1be40	34 32 20 52 65 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	42.Return.the.power.set.of.LIST.
1be60	0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	..(fn.LIST)..(byte-code."\300\30
1be80	31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75	1\302\303#\300\207".[function-pu
1bea0	74 20 2d 64 69 66 66 65 72 65 6e 63 65 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76	t.-difference.important-return-v
1bec0	61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 6f 77 65 72 73 65 74 20	alue.t].4).(defalias.'-powerset.
1bee0	23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 34 07 00 5c 33 30 30 43 5c 32 30 37 5c 33 30 31 01 41	#[257."\211\204..\300C\207\301.A
1bf00	21 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 5c 22 02 5c 22 01 5c 32 34 34 5c 32 30 37 22 20 5b 6e	!\302\303\304.\".\".\244\207".[n
1bf20	69 6c 20 2d 70 6f 77 65 72 73 65 74 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65	il.-powerset.mapcar.make-closure
1bf40	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 20 33 20 28 23 24 20	.#[257."\300@.B\207".[V0].3.(#$.
1bf60	2e 20 31 30 34 39 36 39 29 5d 5d 20 36 20 28 23 24 20 2e 20 31 31 34 32 34 33 29 5d 29 23 40 32	..104969)]].6.(#$...114243)])#@2
1bf80	36 39 20 43 6f 75 6e 74 20 74 68 65 20 6f 63 63 75 72 72 65 6e 63 65 73 20 6f 66 20 65 61 63 68	69.Count.the.occurrences.of.each
1bfa0	20 64 69 73 74 69 6e 63 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2e 0a 0a 52 65 74 75	.distinct.element.of.LIST...Retu
1bfc0	72 6e 20 61 6e 20 61 6c 69 73 74 20 6f 66 20 28 45 4c 45 4d 45 4e 54 20 2e 20 4e 29 2c 20 77 68	rn.an.alist.of.(ELEMENT...N),.wh
1bfe0	65 72 65 20 65 61 63 68 20 45 4c 45 4d 45 4e 54 20 6f 63 63 75 72 73 20 4e 0a 74 69 6d 65 73 20	ere.each.ELEMENT.occurs.N.times.
1c000	69 6e 20 4c 49 53 54 2e 0a 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20 65 71 75 61 6c 69 74 79 20	in.LIST...The.test.for.equality.
1c020	69 73 20 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2c 20 6f 72 20 77 69 74 68 20 60 2d	is.done.with.`equal',.or.with.`-
1c040	63 6f 6d 70 61 72 65 2d 66 6e 27 0a 69 66 20 74 68 61 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a	compare-fn'.if.that.is.non-nil..
1c060	0a 53 65 65 20 61 6c 73 6f 20 60 2d 63 6f 75 6e 74 27 20 61 6e 64 20 60 2d 67 72 6f 75 70 2d 62	.See.also.`-count'.and.`-group-b
1c080	79 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	y'...(fn.LIST)..(byte-code."\300
1c0a0	5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33	\301\302\303#\300\301\304\303#\3
1c0c0	30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 70 6f 77 65 72 73 65 74 20	00\207".[function-put.-powerset.
1c0e0	70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66	pure.t.side-effect-free].5).(def
1c100	61 6c 69 61 73 20 27 2d 66 72 65 71 75 65 6e 63 69 65 73 20 23 5b 32 35 37 20 22 5c 33 30 31 5c	alias.'-frequencies.#[257."\301\
1c120	32 31 31 5c 32 31 31 03 5c 32 30 33 5c 32 30 36 00 5c 33 30 32 20 5c 32 31 31 5c 32 36 32 04 5c	211\211.\203\206.\302.\211\262.\
1c140	32 30 33 55 00 03 47 5c 32 31 31 5c 32 36 32 03 08 56 5c 32 30 33 55 00 5c 33 30 33 5c 33 30 34	203U..G\211\262..V\203U.\303\304
1c160	04 5c 33 30 35 05 24 04 5c 33 30 36 01 5c 32 30 33 50 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32	.\305.$.\306.\203P..\211A\262.\2
1c180	34 32 5c 33 30 37 01 05 5c 22 5c 32 31 31 5c 32 30 33 3d 00 5c 32 31 31 01 41 54 5c 32 34 31 5c	42\307..\"\211\203=.\211.AT\241\
1c1a0	32 36 36 03 5c 32 30 32 4c 00 5c 33 31 30 02 5c 32 31 31 5c 33 31 31 42 06 07 23 06 06 42 5c 32	266.\202L.\310.\211\311B..#..B\2
1c1c0	36 32 06 5c 32 36 36 02 54 5c 32 30 32 21 00 5c 32 36 36 03 5c 32 30 32 5c 32 30 36 00 5c 33 31	62.\266.T\202!.\266.\202\206.\31
1c1e0	32 20 04 5c 33 30 36 01 5c 32 30 33 5c 32 30 34 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32	2..\306.\203\204..\211A\262.\242
1c200	03 01 06 06 5c 22 5c 32 31 31 5c 32 30 33 76 00 5c 32 31 31 01 41 54 5c 32 34 31 5c 32 36 36 03	....\"\211\203v.\211.AT\241\266.
1c220	5c 32 30 32 5c 32 30 30 00 01 5c 33 31 31 42 06 06 42 5c 32 36 32 06 5c 32 36 36 02 54 5c 32 30	\202\200..\311B..B\262.\266.T\20
1c240	32 59 00 5c 32 36 36 03 5c 32 33 37 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 73 68 6f 72 74 2d 6c	2Y.\266.\237\207".[dash--short-l
1c260	69 73 74 2d 6c 65 6e 67 74 68 20 6e 69 6c 20 64 61 73 68 2d 2d 68 61 73 68 2d 74 65 73 74 2d 66	ist-length.nil.dash--hash-test-f
1c280	6e 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 3a 73 69 7a 65 20 30 20	n.make-hash-table.:test.:size.0.
1c2a0	67 65 74 68 61 73 68 20 70 75 74 68 61 73 68 20 31 20 64 61 73 68 2d 2d 61 73 73 6f 63 2d 66 6e	gethash.puthash.1.dash--assoc-fn
1c2c0	5d 20 31 33 20 28 23 24 20 2e 20 31 31 34 35 36 33 29 5d 29 23 40 37 32 20 52 65 74 75 72 6e 20	].13.(#$...114563)])#@72.Return.
1c2e0	6e 6f 6e 2d 6e 69 6c 20 69 66 20 4e 55 4d 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6e 6f 6e	non-nil.if.NUMS.is.a.list.of.non
1c300	2d 64 65 63 72 65 61 73 69 6e 67 20 6e 75 6d 62 65 72 73 2e 0a 0a 28 66 6e 20 4e 55 4d 53 29 1f	-decreasing.numbers...(fn.NUMS).
1c320	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
1c340	30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 72 65 71 75 65 6e 63 69	00\207".[function-put.-frequenci
1c360	65 73 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a	es.important-return-value.t].4).
1c380	28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6e 75 6d 62 65 72 73 3c 3d 20 23 5b 32 35 37	(defalias.'dash--numbers<=.#[257
1c3a0	20 22 5c 32 31 31 3f 5c 32 30 36 3b 00 5c 32 31 31 01 41 5c 32 36 32 02 5c 32 34 32 5c 32 31 31	."\211?\206;.\211.A\262.\242\211
1c3c0	5c 32 34 37 5c 32 30 35 39 00 5c 33 30 30 02 5c 33 30 31 5c 33 30 32 02 5c 32 30 33 37 00 5c 32	\247\2059.\300.\301\302.\2037.\2
1c3e0	31 30 01 5c 32 34 32 5c 32 31 31 5c 32 34 37 5c 32 30 35 26 00 04 01 5c 32 31 31 5c 32 36 32 07	10.\242\211\247\205&...\211\262.
1c400	58 5c 32 31 31 5c 32 36 32 05 5c 32 30 33 37 00 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32	X\211\262.\2037..T\262..A\262.\2
1c420	30 32 14 00 5c 32 36 36 03 5c 32 36 32 01 5c 32 30 37 22 20 5b 74 20 30 20 6e 69 6c 5d 20 39 20	02..\266.\262.\207".[t.0.nil].9.
1c440	28 23 24 20 2e 20 31 31 35 34 31 37 29 5d 29 23 40 33 38 33 20 55 70 64 61 74 65 20 41 52 52 41	(#$...115417)])#@383.Update.ARRA
1c460	59 20 6f 66 20 4e 20 6e 75 6d 62 65 72 73 20 77 69 74 68 20 69 74 73 20 6e 65 78 74 20 6c 65 78	Y.of.N.numbers.with.its.next.lex
1c480	69 63 6f 67 72 61 70 68 69 63 20 70 65 72 6d 75 74 61 74 69 6f 6e 2e 0a 52 65 74 75 72 6e 20 6e	icographic.permutation..Return.n
1c4a0	69 6c 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 20 73 75 63 68 20 73 75 63 63 65 73 73 6f 72	il.if.there.is.no.such.successor
1c4c0	2e 20 20 4e 20 73 68 6f 75 6c 64 20 62 65 20 6e 6f 6e 7a 65 72 6f 2e 0a 0a 54 68 69 73 20 69 6d	...N.should.be.nonzero...This.im
1c4e0	70 6c 65 6d 65 6e 74 73 20 74 68 65 20 73 61 6c 69 65 6e 74 20 73 74 65 70 73 20 6f 66 20 41 6c	plements.the.salient.steps.of.Al
1c500	67 6f 72 69 74 68 6d 20 4c 20 28 4c 65 78 69 63 6f 67 72 61 70 68 69 63 0a 70 65 72 6d 75 74 61	gorithm.L.(Lexicographic.permuta
1c520	74 69 6f 6e 20 67 65 6e 65 72 61 74 69 6f 6e 29 20 61 73 20 64 65 73 63 72 69 62 65 64 20 69 6e	tion.generation).as.described.in
1c540	20 44 45 20 4b 6e 75 74 68 27 73 20 54 68 65 20 41 72 74 20 6f 66 0a 43 6f 6d 70 75 74 65 72 20	.DE.Knuth's.The.Art.of.Computer.
1c560	50 72 6f 67 72 61 6d 6d 69 6e 67 2c 20 56 6f 6c 75 6d 65 20 34 41 20 2f 20 43 6f 6d 62 69 6e 61	Programming,.Volume.4A./.Combina
1c580	74 6f 72 69 61 6c 20 41 6c 67 6f 72 69 74 68 6d 73 2c 0a 50 61 72 74 20 49 2c 20 41 64 64 69 73	torial.Algorithms,.Part.I,.Addis
1c5a0	6f 6e 2d 57 65 73 6c 65 79 2c 20 32 30 31 31 2c 20 c2 a7 20 37 2e 32 2e 31 2e 32 2c 20 70 2e 20	on-Wesley,.2011,....7.2.1.2,.p..
1c5c0	33 31 39 2e 0a 0a 28 66 6e 20 41 52 52 41 59 20 4e 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	319...(fn.ARRAY.N)..(byte-code."
1c5e0	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
1c600	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 64 61 73 68 2d 2d	3#\300\207".[function-put.dash--
1c620	6e 75 6d 62 65 72 73 3c 3d 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65	numbers<=.pure.t.side-effect-fre
1c640	65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6e 65 78 74 2d 6c 65 78 2d	e].5).(defalias.'dash--next-lex-
1c660	70 65 72 6d 20 23 5b 35 31 34 20 22 53 5c 32 31 31 01 53 03 03 48 5c 32 31 31 02 5c 33 30 30 59	perm.#[514."S\211.S..H\211.\300Y
1c680	5c 32 30 33 21 00 5c 32 31 31 06 06 04 48 5c 32 31 31 5c 32 36 32 03 58 5c 32 30 33 21 00 02 53	\203!.\211...H\211\262.X\203!..S
1c6a0	5c 32 36 32 03 5c 32 30 32 08 00 02 5c 33 30 30 59 5c 32 30 35 6b 00 5c 32 31 31 02 59 5c 32 30	\262.\202...\300Y\205k.\211.Y\20
1c6c0	33 39 00 03 53 5c 32 36 32 04 05 04 48 5c 32 36 32 02 5c 32 30 32 27 00 05 03 03 49 5c 32 31 30	39..S\262...H\262.\202'....I\210
1c6e0	05 04 02 49 5c 32 31 30 04 5c 32 36 32 04 02 54 5c 32 31 31 5c 32 36 32 04 04 57 5c 32 30 33 6a	...I\210.\262..T\211\262..W\203j
1c700	00 05 03 48 5c 32 36 32 01 05 03 06 07 06 06 48 49 5c 32 31 30 05 04 02 49 5c 32 31 30 03 53 5c	...H\262.......HI\210...I\210.S\
1c720	32 36 32 04 5c 32 30 32 46 00 05 5c 32 30 37 22 20 5b 30 5d 20 31 30 20 28 23 24 20 2e 20 31 31	262.\202F..\207".[0].10.(#$...11
1c740	35 37 39 37 29 5d 29 23 40 34 38 37 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 65	5797)])#@487.Return.a.list.of.pe
1c760	72 6d 75 74 61 74 69 6f 6e 73 20 6f 66 20 56 45 43 20 69 6e 20 6c 65 78 69 63 6f 67 72 61 70 68	rmutations.of.VEC.in.lexicograph
1c780	69 63 20 6f 72 64 65 72 2e 0a 53 70 65 63 69 66 69 63 61 6c 6c 79 2c 20 72 65 74 75 72 6e 20 6f	ic.order..Specifically,.return.o
1c7a0	6e 6c 79 20 74 68 65 20 73 75 63 63 65 73 73 6f 72 73 20 6f 66 20 56 45 43 20 69 6e 20 6c 65 78	nly.the.successors.of.VEC.in.lex
1c7c0	69 63 6f 67 72 61 70 68 69 63 0a 6f 72 64 65 72 2e 20 20 45 61 63 68 20 72 65 74 75 72 6e 65 64	icographic.order...Each.returned
1c7e0	20 70 65 72 6d 75 74 61 74 69 6f 6e 20 69 73 20 61 20 6c 69 73 74 2e 20 20 56 45 43 20 73 68 6f	.permutation.is.a.list...VEC.sho
1c800	75 6c 64 20 63 6f 6d 70 72 69 73 65 0a 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 6e 75 6d 62 65 72 73	uld.comprise.one.or.more.numbers
1c820	2c 20 61 6e 64 20 6d 61 79 20 62 65 20 64 65 73 74 72 75 63 74 69 76 65 6c 79 20 6d 6f 64 69 66	,.and.may.be.destructively.modif
1c840	69 65 64 2e 0a 0a 49 66 20 4f 52 49 47 49 4e 41 4c 20 69 73 20 61 20 76 65 63 74 6f 72 2c 20 74	ied...If.ORIGINAL.is.a.vector,.t
1c860	68 65 6e 20 56 45 43 20 69 73 20 69 6e 74 65 72 70 72 65 74 65 64 20 61 73 20 61 20 73 65 74 20	hen.VEC.is.interpreted.as.a.set.
1c880	6f 66 0a 69 6e 64 69 63 65 73 20 69 6e 74 6f 20 4f 52 49 47 49 4e 41 4c 2e 20 20 49 6e 20 74 68	of.indices.into.ORIGINAL...In.th
1c8a0	69 73 20 63 61 73 65 2c 20 74 68 65 20 69 6e 64 69 63 65 73 20 61 72 65 20 70 65 72 6d 75 74 65	is.case,.the.indices.are.permute
1c8c0	64 2c 0a 61 6e 64 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 69 6e 64 65 78 20 70 65 72 6d 75	d,.and.the.resulting.index.permu
1c8e0	74 61 74 69 6f 6e 73 20 61 72 65 20 75 73 65 64 20 74 6f 20 64 65 72 65 66 65 72 65 6e 63 65 0a	tations.are.used.to.dereference.
1c900	65 6c 65 6d 65 6e 74 73 20 6f 66 20 4f 52 49 47 49 4e 41 4c 2e 0a 0a 28 66 6e 20 56 45 43 20 26	elements.of.ORIGINAL...(fn.VEC.&
1c920	6f 70 74 69 6f 6e 61 6c 20 4f 52 49 47 49 4e 41 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64	optional.ORIGINAL)..(defalias.'d
1c940	61 73 68 2d 2d 6c 65 78 2d 70 65 72 6d 73 20 23 5b 35 31 33 20 22 01 47 5c 33 30 30 03 5c 32 30	ash--lex-perms.#[513.".G\300.\20
1c960	33 26 00 02 5c 32 30 33 15 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 05 5c 22 05 5c 22 5c 32 30 32	3&..\203..\301\302\303.\".\"\202
1c980	19 00 5c 33 30 34 04 5c 33 30 30 5c 22 01 42 5c 32 36 32 01 5c 33 30 35 04 03 5c 22 5c 32 36 32	..\304.\300\".B\262.\305..\"\262
1c9a0	04 5c 32 30 32 03 00 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 6d 61 70 63 61 72 20 6d 61 6b	.\202..\237\207".[nil.mapcar.mak
1c9c0	65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 48 5c 32 30 37 22 20 5b 56 30	e-closure.#[257."\300.H\207".[V0
1c9e0	5d 20 33 20 28 23 24 20 2e 20 32 37 39 36 31 29 5d 20 61 70 70 65 6e 64 20 64 61 73 68 2d 2d 6e	].3.(#$...27961)].append.dash--n
1ca00	65 78 74 2d 6c 65 78 2d 70 65 72 6d 5d 20 38 20 28 23 24 20 2e 20 31 31 36 35 35 37 29 5d 29 23	ext-lex-perm].8.(#$...116557)])#
1ca20	40 31 30 34 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 65 72 6d 75 74 61 74 69 6f	@104.Return.a.list.of.permutatio
1ca40	6e 73 20 6f 66 20 4c 49 53 54 2e 0a 4c 49 53 54 20 69 73 20 74 72 65 61 74 65 64 20 61 73 20 69	ns.of.LIST..LIST.is.treated.as.i
1ca60	66 20 61 6c 6c 20 69 74 73 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 64 69 73 74 69 6e 63 74 2e	f.all.its.elements.are.distinct.
1ca80	0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 75 6e	..(fn.LIST)..(defalias.'dash--un
1caa0	69 71 2d 70 65 72 6d 73 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 31 01 21 5c 32 31 31	iq-perms.#[257."\300.!\301.!\211
1cac0	47 5c 33 30 32 5c 32 31 31 02 57 5c 32 30 33 18 00 02 01 5c 32 31 31 49 5c 32 31 30 54 5c 32 30	G\302\211.W\203....\211I\210T\20
1cae0	32 09 00 5c 32 36 36 02 5c 33 30 33 01 03 5c 22 5c 32 30 37 22 20 5b 76 63 6f 6e 63 61 74 20 63	2..\266.\303..\"\207".[vconcat.c
1cb00	6f 70 79 2d 73 65 71 75 65 6e 63 65 20 30 20 64 61 73 68 2d 2d 6c 65 78 2d 70 65 72 6d 73 5d 20	opy-sequence.0.dash--lex-perms].
1cb20	38 20 28 23 24 20 2e 20 31 31 37 32 38 35 29 5d 29 23 40 31 37 36 20 52 65 74 75 72 6e 20 61 20	8.(#$...117285)])#@176.Return.a.
1cb40	6c 69 73 74 20 6f 66 20 70 65 72 6d 75 74 61 74 69 6f 6e 73 20 6f 66 20 74 68 65 20 6d 75 6c 74	list.of.permutations.of.the.mult
1cb60	69 73 65 74 20 4c 49 53 54 2e 0a 46 52 45 51 53 20 73 68 6f 75 6c 64 20 62 65 20 61 6e 20 61 6c	iset.LIST..FREQS.should.be.an.al
1cb80	69 73 74 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 20 66 72 65 71 75 65 6e 63 79 20 6f 66 20	ist.describing.the.frequency.of.
1cba0	65 61 63 68 20 65 6c 65 6d 65 6e 74 0a 69 6e 20 4c 49 53 54 2c 20 61 73 20 72 65 74 75 72 6e 65	each.element.in.LIST,.as.returne
1cbc0	64 20 62 79 20 60 2d 66 72 65 71 75 65 6e 63 69 65 73 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46	d.by.`-frequencies'...(fn.LIST.F
1cbe0	52 45 51 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 75 6c 74 69 2d 70 65	REQS)..(defalias.'dash--multi-pe
1cc00	72 6d 73 20 23 5b 35 31 34 20 22 5c 33 30 30 01 47 5c 33 30 31 5c 22 5c 33 30 30 03 47 5c 33 30	rms.#[514."\300.G\301\"\300.G\30
1cc20	31 5c 22 5c 33 30 32 03 5c 33 30 32 01 5c 32 30 33 3f 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32	1\"\302.\302.\203?..\211A\262.\2
1cc40	34 32 05 02 02 40 49 5c 32 31 30 5c 32 31 31 41 5c 33 30 32 5c 32 31 31 02 57 5c 32 30 33 39 00	42...@I\210\211A\302\211.W\2039.
1cc60	5c 33 30 31 06 07 06 07 06 06 49 5c 32 31 30 06 06 54 5c 32 36 32 07 5c 32 31 30 54 5c 32 30 32	\301......I\210..T\262.\210T\202
1cc80	20 00 5c 32 36 36 03 54 5c 32 30 32 0d 00 5c 32 36 36 02 5c 33 30 33 02 04 5c 22 5c 32 30 37 22	..\266.T\202..\266.\303..\"\207"
1cca0	20 5b 6d 61 6b 65 2d 76 65 63 74 6f 72 20 6e 69 6c 20 30 20 64 61 73 68 2d 2d 6c 65 78 2d 70 65	.[make-vector.nil.0.dash--lex-pe
1ccc0	72 6d 73 5d 20 31 34 20 28 23 24 20 2e 20 31 31 37 35 35 39 29 5d 29 23 40 31 34 39 20 52 65 74	rms].14.(#$...117559)])#@149.Ret
1cce0	75 72 6e 20 74 68 65 20 64 69 73 74 69 6e 63 74 20 70 65 72 6d 75 74 61 74 69 6f 6e 73 20 6f 66	urn.the.distinct.permutations.of
1cd00	20 4c 49 53 54 2e 0a 0a 44 75 70 6c 69 63 61 74 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49	.LIST...Duplicate.elements.of.LI
1cd20	53 54 20 61 72 65 20 64 65 74 65 72 6d 69 6e 65 64 20 62 79 20 60 65 71 75 61 6c 27 2c 20 6f 72	ST.are.determined.by.`equal',.or
1cd40	20 62 79 0a 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 20 69 66 20 74 68 61 74 20 69 73 20 6e 6f 6e	.by.`-compare-fn'.if.that.is.non
1cd60	2d 6e 69 6c 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 70 65	-nil...(fn.LIST)..(defalias.'-pe
1cd80	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 07 00 5c 33 30 30	rmutations.#[257."\211\204..\300
1cda0	43 5c 32 30 37 5c 33 30 31 01 21 5c 32 30 33 13 00 5c 33 30 32 5c 33 30 33 02 21 21 5c 32 30 37	C\207\301.!\203..\302\303.!!\207
1cdc0	5c 33 30 34 01 21 5c 33 30 35 01 5c 33 30 36 5c 33 30 30 02 5c 32 30 33 36 00 5c 32 31 30 01 5c	\304.!\305.\306\300.\2036.\210.\
1cde0	32 34 32 5c 32 31 31 41 5c 33 30 37 55 5c 32 31 31 5c 32 36 32 05 5c 32 30 33 36 00 01 54 5c 32	242\211A\307U\211\262.\2036..T\2
1ce00	36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 1a 00 5c 32 36 36 03 3f 5c 32 30 35 40 00 5c 33 31 30	62..A\262.\202..\266.?\205@.\310
1ce20	02 02 5c 22 5c 32 36 32 01 5c 32 30 36 48 00 5c 33 31 31 01 21 5c 32 30 37 22 20 5b 6e 69 6c 20	..\"\262.\206H.\311.!\207".[nil.
1ce40	64 61 73 68 2d 2d 6e 75 6d 62 65 72 73 3c 3d 20 64 61 73 68 2d 2d 6c 65 78 2d 70 65 72 6d 73 20	dash--numbers<=.dash--lex-perms.
1ce60	76 63 6f 6e 63 61 74 20 2d 66 72 65 71 75 65 6e 63 69 65 73 20 74 20 30 20 31 20 64 61 73 68 2d	vconcat.-frequencies.t.0.1.dash-
1ce80	2d 6d 75 6c 74 69 2d 70 65 72 6d 73 20 64 61 73 68 2d 2d 75 6e 69 71 2d 70 65 72 6d 73 5d 20 38	-multi-perms.dash--uniq-perms].8
1cea0	20 28 23 24 20 2e 20 31 31 37 39 38 31 29 5d 29 23 40 34 31 20 52 65 74 75 72 6e 20 61 6c 6c 20	.(#$...117981)])#@41.Return.all.
1cec0	70 72 65 66 69 78 65 73 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 62	prefixes.of.LIST...(fn.LIST)..(b
1cee0	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\
1cf00	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 70 65 72 6d 75 74 61 74 69 6f 6e 73	207".[function-put.-permutations
1cf20	20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64	.important-return-value.t].4).(d
1cf40	65 66 61 6c 69 61 73 20 27 2d 69 6e 69 74 73 20 23 5b 32 35 37 20 22 5c 32 31 31 43 5c 33 30 30	efalias.'-inits.#[257."\211C\300
1cf60	02 21 5c 32 36 32 02 01 5c 32 30 33 19 00 5c 33 30 30 02 41 5c 32 31 31 5c 32 36 32 04 21 01 42	.!\262..\203..\300.A\211\262.!.B
1cf80	5c 32 36 32 01 5c 32 30 32 07 00 5c 32 30 37 22 20 5b 72 65 76 65 72 73 65 5d 20 35 20 28 23 24	\262.\202..\207".[reverse].5.(#$
1cfa0	20 2e 20 31 31 38 34 35 33 29 5d 29 23 40 34 31 20 52 65 74 75 72 6e 20 61 6c 6c 20 73 75 66 66	...118453)])#@41.Return.all.suff
1cfc0	69 78 65 73 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d	ixes.of.LIST...(fn.LIST)..(byte-
1cfe0	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c	code."\300\301\302\303#\300\301\
1d000	33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20	304\303#\300\207".[function-put.
1d020	2d 69 6e 69 74 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	-inits.pure.t.side-effect-free].
1d040	35 29 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	5).(defalias.'-tails.#[257."\300
1d060	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
1d080	72 6f 6d 20 63 6f 6e 73 20 6e 69 6c 5d 20 35 20 28 23 24 20 2e 20 31 31 38 37 30 35 29 5d 29 23	rom.cons.nil].5.(#$...118705)])#
1d0a0	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
1d0c0	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)
1d0e0	1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	..(byte-code."\300\301\302\303#\
1d100	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
1d120	69 6f 6e 2d 70 75 74 20 2d 74 61 69 6c 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63	ion-put.-tails.pure.t.side-effec
1d140	74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6d 6d 6f 6e 2d 70 72	t-free].5).(defalias.'-common-pr
1d160	65 66 69 78 20 23 5b 31 32 38 20 22 5c 32 31 31 5c 32 30 33 4c 00 5c 32 31 31 40 01 41 5c 33 30	efix.#[128."\211\203L.\211@.A\30
1d180	30 01 5c 32 30 33 49 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 5c 33 30 31 01 5c 33 30 30	0.\203I..\211A\262.\242\301.\300
1d1a0	5c 33 30 31 02 5c 32 30 33 3f 00 5c 32 31 30 01 5c 32 34 32 06 07 5c 32 30 33 3f 00 06 07 5c 32	\301.\203?.\210.\242..\203?...\2
1d1c0	31 31 41 5c 32 36 32 09 5c 32 34 32 01 5c 32 33 32 5c 32 30 33 3f 00 5c 32 31 31 04 42 5c 32 36	11A\262.\242.\232\203?.\211.B\26
1d1e0	32 04 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 17 00 5c 32 36 36 03 5c 32 33 37 5c	2..T\262..A\262.\202..\266.\237\
1d200	32 36 32 04 5c 32 31 30 54 5c 32 30 32 09 00 5c 32 36 36 02 5c 32 30 37 5c 33 30 31 5c 32 31 31	262.\210T\202..\266.\207\301\211
1d220	5c 32 31 31 5c 33 30 30 5c 33 30 31 02 5c 32 30 33 77 00 5c 32 31 30 01 5c 32 34 32 04 5c 32 30	\211\300\301.\203w.\210.\242.\20
1d240	33 77 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 01 5c 32 33 32 5c 32 30 33 77 00 5c 32 31	3w..\211A\262.\242.\232\203w.\21
1d260	31 04 42 5c 32 36 32 04 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 51 00 5c 32 36 36	1.B\262..T\262..A\262.\202Q.\266
1d280	03 5c 32 33 37 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 31 31 38 39	.\237\207".[0.nil].11.(#$...1189
1d2a0	34 38 29 5d 29 23 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	48)])#@62.Return.the.longest.com
1d2c0	6d 6f 6e 20 73 75 66 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	mon.suffix.of.LISTS...(fn.&rest.
1d2e0	4c 49 53 54 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	LISTS)..(byte-code."\300\301\302
1d300	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".
1d320	5b 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	[function-put.-common-prefix.pur
1d340	65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69	e.t.side-effect-free].5).(defali
1d360	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 5c 33	as.'-common-suffix.#[128."\300\3
1d380	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 79 20	01\302\303.\"\"\237\207".[apply.
1d3a0	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 20 36	-common-prefix.mapcar.reverse].6
1d3c0	20 28 23 24 20 2e 20 31 31 39 34 36 36 29 5d 29 23 40 32 35 38 20 52 65 74 75 72 6e 20 6e 6f 6e	.(#$...119466)])#@258.Return.non
1d3e0	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 0a 0a	-nil.if.LIST.contains.ELEMENT...
1d400	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 77 69	The.test.for.equality.is.done.wi
1d420	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 66 6e	th.`equal',.or.with.`-compare-fn
1d440	27 0a 69 66 20 74 68 61 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 20 20 41 73 20 77 69 74 68 20 60	'.if.that.is.non-nil...As.with.`
1d460	6d 65 6d 62 65 72 27 2c 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 0a 61 63 74	member',.the.return.value.is.act
1d480	75 61 6c 6c 79 20 74 68 65 20 74 61 69 6c 20 6f 66 20 4c 49 53 54 20 77 68 6f 73 65 20 63 61 72	ually.the.tail.of.LIST.whose.car
1d4a0	20 69 73 20 45 4c 45 4d 45 4e 54 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 63 6f 6e 74 61 69 6e 73 2d	.is.ELEMENT...Alias:.`-contains-
1d4c0	70 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 45 4c 45 4d 45 4e 54 29 1f 0a 28 62 79 74 65 2d 63 6f	p'...(fn.LIST.ELEMENT)..(byte-co
1d4e0	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30	de."\300\301\302\303#\300\301\30
1d500	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 63	4\303#\300\207".[function-put.-c
1d520	6f 6d 6d 6f 6e 2d 73 75 66 66 69 78 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d	ommon-suffix.pure.t.side-effect-
1d540	66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 74 61 69 6e 73 3f 20 23	free].5).(defalias.'-contains?.#
1d560	5b 35 31 34 20 22 5c 33 30 30 20 01 03 5c 22 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 65 6d 62	[514."\300...\"\207".[dash--memb
1d580	65 72 2d 66 6e 5d 20 35 20 28 23 24 20 2e 20 31 31 39 37 36 36 29 5d 29 23 40 33 32 39 20 52 65	er-fn].5.(#$...119766)])#@329.Re
1d5a0	74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 4c 49 53 54 31 20 61 6e 64 20 4c 49 53 54 32 20	turn.non-nil.if.LIST1.and.LIST2.
1d5c0	68 61 76 65 20 74 68 65 20 73 61 6d 65 20 64 69 73 74 69 6e 63 74 20 65 6c 65 6d 65 6e 74 73 2e	have.the.same.distinct.elements.
1d5e0	0a 0a 54 68 65 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	..The.order.of.the.elements.in.t
1d600	68 65 20 6c 69 73 74 73 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 74 65 72 2e 20 20 54 68 65 0a 6c	he.lists.does.not.matter...The.l
1d620	69 73 74 73 20 6d 61 79 20 62 65 20 6f 66 20 64 69 66 66 65 72 65 6e 74 20 6c 65 6e 67 74 68 73	ists.may.be.of.different.lengths
1d640	2c 20 69 2e 65 2e 2c 20 63 6f 6e 74 61 69 6e 20 64 75 70 6c 69 63 61 74 65 0a 65 6c 65 6d 65 6e	,.i.e.,.contain.duplicate.elemen
1d660	74 73 2e 20 20 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	ts...The.test.for.equality.is.do
1d680	6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2c 20 6f 72 20 77 69 74 68 0a 60 2d 63 6f 6d 70 61	ne.with.`equal',.or.with.`-compa
1d6a0	72 65 2d 66 6e 27 20 69 66 20 74 68 61 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 41 6c 69 61	re-fn'.if.that.is.non-nil...Alia
1d6c0	73 3a 20 60 2d 73 61 6d 65 2d 69 74 65 6d 73 2d 70 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 31 20 4c	s:.`-same-items-p'...(fn.LIST1.L
1d6e0	49 53 54 32 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	IST2)..(byte-code."\300\301\302\
1d700	33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f	303#\304\305\301\"\207".[functio
1d720	6e 2d 70 75 74 20 2d 63 6f 6e 74 61 69 6e 73 3f 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72	n-put.-contains?.important-retur
1d740	6e 2d 76 61 6c 75 65 20 74 20 64 65 66 61 6c 69 61 73 20 2d 63 6f 6e 74 61 69 6e 73 2d 70 5d 20	n-value.t.defalias.-contains-p].
1d760	34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 61 6d 65 2d 69 74 65 6d 73 3f 20 23 5b 35 31 34	4).(defalias.'-same-items?.#[514
1d780	20 22 5c 33 30 31 5c 32 31 31 5c 32 31 31 04 5c 32 30 36 08 00 03 3f 5c 32 30 36 5c 33 35 31 00	."\301\211\211.\206...?\206\351.
1d7a0	04 5c 32 30 33 14 00 03 5c 32 30 34 16 00 5c 33 30 31 5c 32 30 37 5c 33 30 32 20 5c 32 31 31 5c	.\203...\204..\301\207\302.\211\
1d7c0	32 36 32 04 5c 32 30 33 5c 32 32 37 00 5c 32 36 36 02 02 47 02 47 01 01 5d 08 56 5c 32 30 33 5c	262.\203\227.\266..G.G..].V\203\
1d7e0	32 32 37 00 5c 33 30 33 5c 33 30 34 04 5c 33 30 35 05 24 5c 33 30 33 5c 33 30 34 05 5c 33 30 35	227.\303\304.\305.$\303\304.\305
1d800	05 24 06 06 5c 33 30 36 01 5c 32 30 33 51 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 5c 33	.$..\306.\203Q..\211A\262.\242\3
1d820	30 37 01 5c 33 31 30 06 07 23 5c 32 36 36 02 54 5c 32 30 32 3b 00 5c 32 36 36 02 5c 33 31 30 06	07.\310..#\266.T\202;.\266.\310.
1d840	06 5c 33 30 36 5c 33 30 31 02 5c 32 30 33 5c 32 31 34 00 5c 32 31 30 01 5c 32 34 32 5c 33 31 31	.\306\301.\203\214.\210.\242\311
1d860	01 06 07 5c 22 5c 32 30 33 76 00 5c 33 31 32 01 06 07 5c 22 5c 32 31 30 5c 33 30 37 01 5c 33 31	...\"\203v.\312...\"\210\307.\31
1d880	30 06 07 23 5c 32 30 32 7b 00 5c 33 31 31 01 06 06 5c 22 5c 32 31 31 5c 32 36 32 05 5c 32 30 33	0..#\202{.\311...\"\211\262.\203
1d8a0	5c 32 31 34 00 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 58 00 5c 32 36 36 03 5c 32	\214..T\262..A\262.\202X.\266.\2
1d8c0	30 35 5c 32 32 36 00 5c 33 31 33 02 21 5c 33 30 36 55 5c 32 30 37 5c 33 31 34 20 5c 33 31 30 06	05\226.\313.!\306U\207\314.\310.
1d8e0	06 5c 33 30 36 5c 33 30 31 02 5c 32 30 33 5c 32 37 33 00 5c 32 31 30 01 5c 32 34 32 04 01 06 5c	.\306\301.\203\273.\210.\242...\
1d900	6e 5c 22 5c 32 31 31 5c 32 36 32 05 5c 32 30 33 5c 32 37 33 00 01 54 5c 32 36 32 02 02 41 5c 32	n\"\211\262.\203\273..T\262..A\2
1d920	36 32 03 5c 32 30 32 5c 32 33 36 00 5c 32 36 36 03 5c 32 30 35 5c 33 34 37 00 5c 33 31 30 05 5c	62.\202\236.\266.\205\347.\310.\
1d940	33 30 36 5c 33 30 31 02 5c 32 30 33 5c 33 34 31 00 5c 32 31 30 01 5c 32 34 32 04 01 06 0b 5c 22	306\301.\203\341.\210.\242....\"
1d960	5c 32 31 31 5c 32 36 32 05 5c 32 30 33 5c 33 34 31 00 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03	\211\262.\203\341..T\262..A\262.
1d980	5c 32 30 32 5c 33 30 34 00 5c 32 36 36 03 5c 32 30 35 5c 33 34 37 00 5c 33 31 30 5c 32 36 32 01	\202\304.\266.\205\347.\310\262.
1d9a0	5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 73 68 6f 72 74 2d 6c 69 73 74 2d 6c 65 6e 67 74 68 20 6e	\207".[dash--short-list-length.n
1d9c0	69 6c 20 64 61 73 68 2d 2d 68 61 73 68 2d 74 65 73 74 2d 66 6e 20 6d 61 6b 65 2d 68 61 73 68 2d	il.dash--hash-test-fn.make-hash-
1d9e0	74 61 62 6c 65 20 3a 74 65 73 74 20 3a 73 69 7a 65 20 30 20 70 75 74 68 61 73 68 20 74 20 67 65	table.:test.:size.0.puthash.t.ge
1da00	74 68 61 73 68 20 72 65 6d 68 61 73 68 20 68 61 73 68 2d 74 61 62 6c 65 2d 63 6f 75 6e 74 20 64	thash.remhash.hash-table-count.d
1da20	61 73 68 2d 2d 6d 65 6d 62 65 72 2d 66 6e 5d 20 31 35 20 28 23 24 20 2e 20 31 32 30 32 32 32 29	ash--member-fn].15.(#$...120222)
1da40	5d 29 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 45 46 49 58 20	])#@89.Return.non-nil.if.PREFIX.
1da60	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 3a 20 60 2d 69	is.a.prefix.of.LIST...Alias:.`-i
1da80	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 53 54 29 1f 0a	s-prefix-p'...(fn.PREFIX.LIST)..
1daa0	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
1dac0	34 5c 33 30 35 5c 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	4\305\301\"\207".[function-put.-
1dae0	73 61 6d 65 2d 69 74 65 6d 73 3f 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c	same-items?.important-return-val
1db00	75 65 20 74 20 64 65 66 61 6c 69 61 73 20 2d 73 61 6d 65 2d 69 74 65 6d 73 2d 70 5d 20 34 29 0a	ue.t.defalias.-same-items-p].4).
1db20	28 64 65 66 61 6c 69 61 73 20 27 2d 69 73 2d 70 72 65 66 69 78 3f 20 23 5b 35 31 34 20 22 5c 32	(defalias.'-is-prefix?.#[514."\2
1db40	31 31 5c 33 30 30 5c 33 30 31 02 5c 32 30 33 24 00 5c 32 31 30 01 5c 32 34 32 04 40 01 5c 32 33	11\300\301.\203$.\210.\242.@.\23
1db60	32 5c 32 30 33 24 00 04 41 5c 32 31 31 5c 32 36 32 06 5c 32 30 33 24 00 01 54 5c 32 36 32 02 02	2\203$..A\211\262.\203$..T\262..
1db80	41 5c 32 36 32 03 5c 32 30 32 03 00 5c 32 36 36 03 01 3f 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d	A\262.\202..\266..?\207".[0.nil]
1dba0	20 37 20 28 23 24 20 2e 20 31 32 31 34 31 35 29 5d 29 23 40 38 39 20 52 65 74 75 72 6e 20 6e 6f	.7.(#$...121415)])#@89.Return.no
1dbc0	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 78 20 6f 66 20 4c	n-nil.if.SUFFIX.is.a.suffix.of.L
1dbe0	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 27 2e 0a 0a 28 66	IST...Alias:.`-is-suffix-p'...(f
1dc00	6e 20 53 55 46 46 49 58 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	n.SUFFIX.LIST)..(byte-code."\300
1dc20	5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33	\301\302\303#\300\301\304\303#\3
1dc40	30 30 5c 32 30 37 22 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	00\207".[function-put.-is-prefix
1dc60	3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64	?.pure.t.side-effect-free].5).(d
1dc80	65 66 61 6c 69 61 73 20 27 2d 69 73 2d 73 75 66 66 69 78 3f 20 23 5b 35 31 34 20 22 01 5c 33 30	efalias.'-is-suffix?.#[514.".\30
1dca0	30 02 04 47 5c 22 5c 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	0..G\"\232\207".[last].6.(#$...1
1dcc0	32 31 37 38 33 29 5d 29 23 40 31 31 38 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20	21783)])#@118.Return.non-nil.if.
1dce0	49 4e 46 49 58 20 69 73 20 69 6e 66 69 78 20 6f 66 20 4c 49 53 54 2e 0a 0a 54 68 69 73 20 6f 70	INFIX.is.infix.of.LIST...This.op
1dd00	65 72 61 74 69 6f 6e 20 72 75 6e 73 20 69 6e 20 4f 28 6e 5e 32 29 20 74 69 6d 65 0a 0a 41 6c 69	eration.runs.in.O(n^2).time..Ali
1dd20	61 73 3a 20 60 2d 69 73 2d 69 6e 66 69 78 2d 70 27 0a 0a 28 66 6e 20 49 4e 46 49 58 20 4c 49 53	as:.`-is-infix-p'..(fn.INFIX.LIS
1dd40	54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	T)..(byte-code."\300\301\302\303
1dd60	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
1dd80	63 74 69 6f 6e 2d 70 75 74 20 2d 69 73 2d 73 75 66 66 69 78 3f 20 70 75 72 65 20 74 20 73 69 64	ction-put.-is-suffix?.pure.t.sid
1dda0	65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 73	e-effect-free].5).(defalias.'-is
1ddc0	2d 69 6e 66 69 78 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	-infix?.#[514."\300\211\204...\2
1dde0	30 33 16 00 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	03..\301..\"\262..A\262.\202..\2
1de00	30 37 22 20 5b 6e 69 6c 20 2d 69 73 2d 70 72 65 66 69 78 3f 5d 20 36 20 28 23 24 20 2e 20 31 32	07".[nil.-is-prefix?].6.(#$...12
1de20	32 30 36 32 29 5d 29 23 40 32 36 38 20 53 6f 72 74 20 4c 49 53 54 2c 20 73 74 61 62 6c 79 2c 20	2062)])#@268.Sort.LIST,.stably,.
1de40	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 41 52 41	comparing.elements.using.COMPARA
1de60	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 20 4c 49	TOR..Return.the.sorted.list...LI
1de80	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 66 65 63	ST.is.NOT.modified.by.side.effec
1dea0	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 20 74 77	ts..COMPARATOR.is.called.with.tw
1dec0	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 64 20 72	o.elements.of.LIST,.and.should.r
1dee0	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 65 6d 65	eturn.non-nil.if.the.first.eleme
1df00	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 6f 6e 64	nt.should.sort.before.the.second
1df20	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 62 79 74 65 2d 63	...(fn.COMPARATOR.LIST)..(byte-c
1df40	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
1df60	30 34 5c 33 30 33 23 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31	04\303#\305\306\307\"\210\305\31
1df80	30 5c 33 31 31 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31 32 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b	0\311\"\210\305\312\301\"\207".[
1dfa0	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 73 2d 69 6e 66 69 78 3f 20 70 75 72 65 20 74 20 73	function-put.-is-infix?.pure.t.s
1dfc0	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 69 73 2d 70 72 65	ide-effect-free.defalias.-is-pre
1dfe0	66 69 78 2d 70 20 2d 69 73 2d 70 72 65 66 69 78 3f 20 2d 69 73 2d 73 75 66 66 69 78 2d 70 20 2d	fix-p.-is-prefix?.-is-suffix-p.-
1e000	69 73 2d 73 75 66 66 69 78 3f 20 2d 69 73 2d 69 6e 66 69 78 2d 70 5d 20 35 29 0a 28 64 65 66 61	is-suffix?.-is-infix-p].5).(defa
1e020	6c 69 61 73 20 27 2d 73 6f 72 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 04 23 5c 32	lias.'-sort.#[514."\300.\301.#\2
1e040	30 37 22 20 5b 73 6f 72 74 20 3a 6c 65 73 73 70 5d 20 36 20 28 23 24 20 2e 20 31 32 32 34 31 33	07".[sort.:lessp].6.(#$...122413
1e060	29 5d 29 23 40 34 34 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 6f 72 74	)])#@44.Anaphoric.form.of.`-sort
1e080	27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	'...(fn.FORM.LIST)..(byte-code."
1e0a0	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63	\300\301\302\303#\300\207".[func
1e0c0	74 69 6f 6e 2d 70 75 74 20 2d 73 6f 72 74 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d	tion-put.-sort.important-return-
1e0e0	76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 6f 72 74 20 27 28	value.t].4).(defalias.'--sort.'(
1e100	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 5c 33 30 33 05	macro...#[514."\300\301\302\303.
1e120	46 02 45 5c 32 30 37 22 20 5b 2d 73 6f 72 74 20 6c 61 6d 62 64 61 20 28 69 74 20 6f 74 68 65 72	F.E\207".[-sort.lambda.(it.other
1e140	29 20 28 69 67 6e 6f 72 65 20 69 74 20 6f 74 68 65 72 29 5d 20 37 20 28 23 24 20 2e 20 31 32 32	).(ignore.it.other)].7.(#$...122
1e160	39 38 34 29 5d 29 29 23 40 33 39 38 20 45 6e 73 75 72 65 20 41 52 47 20 69 73 20 61 20 6c 69 73	984)]))#@398.Ensure.ARG.is.a.lis
1e180	74 2e 0a 49 66 20 41 52 47 20 69 73 20 61 6c 72 65 61 64 79 20 61 20 6c 69 73 74 2c 20 72 65 74	t..If.ARG.is.already.a.list,.ret
1e1a0	75 72 6e 20 69 74 20 61 73 20 69 73 20 28 6e 6f 74 20 61 20 63 6f 70 79 29 2e 0a 4f 74 68 65 72	urn.it.as.is.(not.a.copy)..Other
1e1c0	77 69 73 65 2c 20 72 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 41 52 47	wise,.return.a.new.list.with.ARG
1e1e0	20 61 73 20 69 74 73 20 6f 6e 6c 79 20 65 6c 65 6d 65 6e 74 2e 0a 0a 41 6e 6f 74 68 65 72 20 73	.as.its.only.element...Another.s
1e200	75 70 70 6f 72 74 65 64 20 63 61 6c 6c 69 6e 67 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 69 73 20 28	upported.calling.convention.is.(
1e220	2d 6c 69 73 74 20 26 72 65 73 74 20 41 52 47 53 29 2e 0a 49 6e 20 74 68 69 73 20 63 61 73 65 2c	-list.&rest.ARGS)..In.this.case,
1e240	20 69 66 20 41 52 47 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 2c 20 61 20 6e 65 77 20 6c 69 73	.if.ARG.is.not.a.list,.a.new.lis
1e260	74 20 77 69 74 68 20 61 6c 6c 20 6f 66 0a 41 52 47 53 20 61 73 20 65 6c 65 6d 65 6e 74 73 20 69	t.with.all.of.ARGS.as.elements.i
1e280	73 20 72 65 74 75 72 6e 65 64 2e 20 20 54 68 69 73 20 75 73 65 20 69 73 20 73 75 70 70 6f 72 74	s.returned...This.use.is.support
1e2a0	65 64 20 66 6f 72 0a 62 61 63 6b 77 61 72 64 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 61 6e	ed.for.backward.compatibility.an
1e2c0	64 20 69 73 20 6f 74 68 65 72 77 69 73 65 20 64 65 70 72 65 63 61 74 65 64 2e 0a 0a 28 66 6e 20	d.is.otherwise.deprecated...(fn.
1e2e0	26 6f 70 74 69 6f 6e 61 6c 20 41 52 47 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 70 75 74 20	&optional.ARG.&rest.ARGS)..(put.
1e300	27 2d 2d 73 6f 72 74 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	'--sort.'edebug-form-spec.'(def-
1e320	66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 69 73 74 20 23 5b 33	form.form)).(defalias.'-list.#[3
1e340	38 34 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	84.".<\203...\207..B\207".[].4.(
1e360	23 24 20 2e 20 31 32 33 32 34 35 29 5d 29 23 40 31 30 30 20 52 65 74 75 72 6e 20 61 20 6e 65 77	#$...123245)])#@100.Return.a.new
1e380	20 6c 69 73 74 20 6f 66 20 6c 65 6e 67 74 68 20 4e 20 77 69 74 68 20 65 61 63 68 20 65 6c 65 6d	.list.of.length.N.with.each.elem
1e3a0	65 6e 74 20 62 65 69 6e 67 20 58 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 4e 20 69 73 20	ent.being.X..Return.nil.if.N.is.
1e3c0	6c 65 73 73 20 74 68 61 6e 20 31 2e 0a 0a 28 66 6e 20 4e 20 58 29 1f 0a 28 62 79 74 65 2d 63 6f	less.than.1...(fn.N.X)..(byte-co
1e3e0	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
1e400	31 5c 33 30 35 5c 33 30 36 23 5c 33 30 34 5c 33 30 31 5c 33 30 37 5c 33 31 30 23 5c 33 30 30 5c	1\305\306#\304\301\307\310#\300\
1e420	32 30 37 22 20 5b 73 65 74 2d 61 64 76 65 72 74 69 73 65 64 2d 63 61 6c 6c 69 6e 67 2d 63 6f 6e	207".[set-advertised-calling-con
1e440	76 65 6e 74 69 6f 6e 20 2d 6c 69 73 74 20 28 61 72 67 29 20 22 32 2e 31 38 2e 30 22 20 66 75 6e	vention.-list.(arg)."2.18.0".fun
1e460	63 74 69 6f 6e 2d 70 75 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65	ction-put.pure.t.side-effect-fre
1e480	65 20 65 72 72 6f 72 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70	e.error-free].5).(defalias.'-rep
1e4a0	65 61 74 20 23 5b 35 31 34 20 22 01 5c 33 30 30 59 5c 32 30 35 5c 6e 00 5c 33 30 31 02 02 5c 22	eat.#[514.".\300Y\205\n.\301..\"
1e4c0	5c 32 30 37 22 20 5b 30 20 6d 61 6b 65 2d 6c 69 73 74 5d 20 35 20 28 23 24 20 2e 20 31 32 33 37	\207".[0.make-list].5.(#$...1237
1e4e0	36 34 29 5d 29 23 40 33 36 20 52 65 74 75 72 6e 20 74 68 65 20 73 75 6d 20 6f 66 20 4c 49 53 54	64)])#@36.Return.the.sum.of.LIST
1e500	2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	...(fn.LIST)..(byte-code."\300\3
1e520	30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70	01\302\303#\300\207".[function-p
1e540	75 74 20 2d 72 65 70 65 61 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34	ut.-repeat.side-effect-free.t].4
1e560	29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 75 6d 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30	).(defalias.'-sum.#[257."\300\30
1e580	31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 2b 5d 20 34 20 28 23 24 20 2e 20 31 32 34 31	1.\"\207".[apply.+].4.(#$...1241
1e5a0	33 38 29 5d 29 23 40 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	38)])#@86.Return.a.list.with.run
1e5c0	6e 69 6e 67 20 73 75 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	ning.sums.of.items.in.LIST..LIST
1e5e0	20 6d 75 73 74 20 62 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	.must.be.non-empty...(fn.LIST)..
1e600	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
1e620	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
1e640	6e 2d 70 75 74 20 2d 73 75 6d 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72	n-put.-sum.pure.t.side-effect-fr
1e660	65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 75 6e 6e 69 6e 67 2d 73 75 6d 20 23	ee].5).(defalias.'-running-sum.#
1e680	5b 32 35 37 20 22 5c 32 31 31 5c 32 30 34 0b 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 44 5c 22	[257."\211\204..\300\301\302.D\"
1e6a0	5c 32 31 30 5c 33 30 33 5c 33 30 34 02 5c 22 5c 32 30 37 22 20 5b 73 69 67 6e 61 6c 20 77 72 6f	\210\303\304.\"\207".[signal.wro
1e6c0	6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 63 6f 6e 73 70 20 2d 72 65 64 75 63 74 69 6f	ng-type-argument.consp.-reductio
1e6e0	6e 73 20 2b 5d 20 35 20 28 23 24 20 2e 20 31 32 34 33 33 30 29 5d 29 23 40 34 30 20 52 65 74 75	ns.+].5.(#$...124330)])#@40.Retu
1e700	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 49 53	rn.the.product.of.LIST...(fn.LIS
1e720	54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	T)..(byte-code."\300\301\302\303
1e740	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
1e760	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 65 20 74 20 73 69	ction-put.-running-sum.pure.t.si
1e780	64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70	de-effect-free].5).(defalias.'-p
1e7a0	72 6f 64 75 63 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	roduct.#[257."\300\301.\"\207".[
1e7c0	61 70 70 6c 79 20 2a 5d 20 34 20 28 23 24 20 2e 20 31 32 34 36 36 38 29 5d 29 23 40 39 30 20 52	apply.*].4.(#$...124668)])#@90.R
1e7e0	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 70 72 6f 64 75 63	eturn.a.list.with.running.produc
1e800	74 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	ts.of.items.in.LIST..LIST.must.b
1e820	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 62 79 74 65 2d 63	e.non-empty...(fn.LIST)..(byte-c
1e840	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
1e860	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.-
1e880	70 72 6f 64 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	product.pure.t.side-effect-free]
1e8a0	20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 75 6e 6e 69 6e 67 2d 70 72 6f 64 75 63 74 20	.5).(defalias.'-running-product.
1e8c0	23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 34 0b 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 44 5c	#[257."\211\204..\300\301\302.D\
1e8e0	22 5c 32 31 30 5c 33 30 33 5c 33 30 34 02 5c 22 5c 32 30 37 22 20 5b 73 69 67 6e 61 6c 20 77 72	"\210\303\304.\"\207".[signal.wr
1e900	6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 63 6f 6e 73 70 20 2d 72 65 64 75 63 74 69	ong-type-argument.consp.-reducti
1e920	6f 6e 73 20 2a 5d 20 35 20 28 23 24 20 2e 20 31 32 34 38 39 35 29 5d 29 23 40 37 30 20 52 65 74	ons.*].5.(#$...124895)])#@70.Ret
1e940	75 72 6e 20 74 68 65 20 6c 61 72 67 65 73 74 20 76 61 6c 75 65 20 66 72 6f 6d 20 4c 49 53 54 20	urn.the.largest.value.from.LIST.
1e960	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 54	of.numbers.or.markers...(fn.LIST
1e980	29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23	)..(byte-code."\300\301\302\303#
1e9a0	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
1e9c0	74 69 6f 6e 2d 70 75 74 20 2d 72 75 6e 6e 69 6e 67 2d 70 72 6f 64 75 63 74 20 70 75 72 65 20 74	tion-put.-running-product.pure.t
1e9e0	20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20	.side-effect-free].5).(defalias.
1ea00	27 2d 6d 61 78 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	'-max.#[257."\300\301.\"\207".[a
1ea20	70 70 6c 79 20 6d 61 78 5d 20 34 20 28 23 24 20 2e 20 31 32 35 32 34 35 29 5d 29 23 40 37 31 20	pply.max].4.(#$...125245)])#@71.
1ea40	52 65 74 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	Return.the.smallest.value.from.L
1ea60	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 28 66 6e 20	IST.of.numbers.or.markers...(fn.
1ea80	4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	LIST)..(byte-code."\300\301\302\
1eaa0	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".[
1eac0	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6d 61 78 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66	function-put.-max.pure.t.side-ef
1eae0	66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 69 6e 20 23 5b	fect-free].5).(defalias.'-min.#[
1eb00	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 79 20 6d 69 6e	257."\300\301.\"\207".[apply.min
1eb20	5d 20 34 20 28 23 24 20 2e 20 31 32 35 35 30 34 29 5d 29 23 40 32 32 35 20 54 61 6b 65 20 61 20	].4.(#$...125504)])#@225.Take.a.
1eb40	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 61	comparison.function.COMPARATOR.a
1eb60	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 67 72 65 61 74 65 73	nd.a.LIST.and.return.the.greates
1eb80	74 20 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	t.element.of.the.list.by.the.com
1eba0	70 61 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	parison.function...See.also.comb
1ebc0	69 6e 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	inator.`-on'.which.can.transform
1ebe0	20 74 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	.the.values.before.comparing.the
1ec00	6d 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 62 79 74 65 2d	m...(fn.COMPARATOR.LIST)..(byte-
1ec20	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c	code."\300\301\302\303#\300\301\
1ec40	33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20	304\303#\300\207".[function-put.
1ec60	2d 6d 69 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29	-min.pure.t.side-effect-free].5)
1ec80	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 78 2d 62 79 20 23 5b 35 31 34 20 22 5c 32 31 31 5c	.(defalias.'-max-by.#[514."\211\
1eca0	32 30 33 29 00 5c 32 31 31 40 01 41 5c 33 30 30 01 5c 32 30 33 26 00 01 5c 32 31 31 41 5c 32 36	203).\211@.A\300.\203&..\211A\26
1ecc0	32 03 5c 32 34 32 05 01 05 5c 22 5c 32 30 33 1e 00 5c 32 31 31 5c 32 30 32 1f 00 03 5c 32 36 32	2.\242...\"\203..\211\202...\262
1ece0	04 5c 32 31 30 54 5c 32 30 32 09 00 5c 32 36 36 02 5c 32 30 37 01 5c 33 30 31 5c 32 31 31 5c 22	.\210T\202..\266.\207.\301\211\"
1ed00	5c 33 30 31 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 31 32 35 37 35	\301\207".[0.nil].10.(#$...12575
1ed20	33 29 5d 29 23 40 32 32 32 20 54 61 6b 65 20 61 20 63 6f 6d 70 61 72 69 73 6f 6e 20 66 75 6e 63	3)])#@222.Take.a.comparison.func
1ed40	74 69 6f 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20 61 6e 64 20 61 20 4c 49 53 54 20 61 6e 64 20 72	tion.COMPARATOR.and.a.LIST.and.r
1ed60	65 74 75 72 6e 0a 74 68 65 20 6c 65 61 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c	eturn.the.least.element.of.the.l
1ed80	69 73 74 20 62 79 20 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 66 75 6e 63 74 69 6f 6e 2e 0a	ist.by.the.comparison.function..
1eda0	0a 53 65 65 20 61 6c 73 6f 20 63 6f 6d 62 69 6e 61 74 6f 72 20 60 2d 6f 6e 27 20 77 68 69 63 68	.See.also.combinator.`-on'.which
1edc0	20 63 61 6e 20 74 72 61 6e 73 66 6f 72 6d 20 74 68 65 20 76 61 6c 75 65 73 20 62 65 66 6f 72 65	.can.transform.the.values.before
1ede0	0a 63 6f 6d 70 61 72 69 6e 67 20 74 68 65 6d 2e 0a 0a 28 66 6e 20 43 4f 4d 50 41 52 41 54 4f 52	.comparing.them...(fn.COMPARATOR
1ee00	20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	.LIST)..(byte-code."\300\301\302
1ee20	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 6d 61	\303#\300\207".[function-put.-ma
1ee40	78 2d 62 79 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34	x-by.important-return-value.t].4
1ee60	29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 69 6e 2d 62 79 20 23 5b 35 31 34 20 22 5c 32 31 31	).(defalias.'-min-by.#[514."\211
1ee80	5c 32 30 33 29 00 5c 32 31 31 40 01 41 5c 33 30 30 01 5c 32 30 33 26 00 01 5c 32 31 31 41 5c 32	\203).\211@.A\300.\203&..\211A\2
1eea0	36 32 03 5c 32 34 32 05 01 05 5c 22 5c 32 30 33 1e 00 03 5c 32 30 32 1f 00 5c 32 31 31 5c 32 36	62.\242...\"\203...\202..\211\26
1eec0	32 04 5c 32 31 30 54 5c 32 30 32 09 00 5c 32 36 36 02 5c 32 30 37 01 5c 33 30 31 5c 32 31 31 5c	2.\210T\202..\266.\207.\301\211\
1eee0	22 5c 33 30 31 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 31 32 36 32	"\301\207".[0.nil].10.(#$...1262
1ef00	35 30 29 5d 29 23 40 31 31 37 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20	50)])#@117.Anaphoric.version.of.
1ef20	60 2d 6d 61 78 2d 62 79 27 2e 0a 0a 54 68 65 20 69 74 65 6d 73 20 66 6f 72 20 74 68 65 20 63 6f	`-max-by'...The.items.for.the.co
1ef40	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 20 61 73 20 22 69 74	mparator.form.are.exposed.as."it
1ef60	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 4c 49 53 54 29 1f 0a	".and."other"...(fn.FORM.LIST)..
1ef80	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
1efa0	30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6d 69 6e 2d 62 79 20 69 6d 70	0\207".[function-put.-min-by.imp
1efc0	6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c	ortant-return-value.t].4).(defal
1efe0	69 61 73 20 27 2d 2d 6d 61 78 2d 62 79 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c	ias.'--max-by.'(macro...#[514."\
1f000	33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 05 46 02 45 5c 32 30 37 22 20 5b 2d 6d 61 78 2d 62	300\301\302\303.F.E\207".[-max-b
1f020	79 20 6c 61 6d 62 64 61 20 28 69 74 20 6f 74 68 65 72 29 20 28 69 67 6e 6f 72 65 20 69 74 20 6f	y.lambda.(it.other).(ignore.it.o
1f040	74 68 65 72 29 5d 20 37 20 28 23 24 20 2e 20 31 32 36 37 33 31 29 5d 29 29 23 40 31 31 37 20 41	ther)].7.(#$...126731)]))#@117.A
1f060	6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 6d 69 6e 2d 62 79 27 2e 0a 0a	naphoric.version.of.`-min-by'...
1f080	54 68 65 20 69 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	The.items.for.the.comparator.for
1f0a0	6d 20 61 72 65 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	m.are.exposed.as."it".and."other
1f0c0	22 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27 2d 2d 6d 61 78 2d	"...(fn.FORM.LIST)..(put.'--max-
1f0e0	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 66 6f 72 6d 20	by.'edebug-form-spec.'(def-form.
1f100	66 6f 72 6d 29 29 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	form)).(defalias.'--min-by.'(mac
1f120	72 6f 20 2e 20 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	ro...#[514."\300\301\302\303.F.E
1f140	5c 32 30 37 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	\207".[-min-by.lambda.(it.other)
1f160	20 28 69 67 6e 6f 72 65 20 69 74 20 6f 74 68 65 72 29 5d 20 37 20 28 23 24 20 2e 20 31 32 37 30	.(ignore.it.other)].7.(#$...1270
1f180	37 31 29 5d 29 29 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	71)]))#@251.Return.a.list.contai
1f1a0	6e 69 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	ning.COUNT.numbers..Starts.from.
1f1c0	53 54 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	START.and.adds.STEP.each.time...
1f1e0	54 68 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	The.default.START.is.zero,.the.d
1f200	65 66 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	efault.STEP.is.1..This.function.
1f220	74 61 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	takes.its.name.from.the.correspo
1f240	6e 64 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	nding.primitive.in.the.APL.langu
1f260	61 67 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	age...(fn.COUNT.&optional.START.
1f280	53 54 45 50 29 1f 0a 28 70 75 74 20 27 2d 2d 6d 69 6e 2d 62 79 20 27 65 64 65 62 75 67 2d 66 6f	STEP)..(put.'--min-by.'edebug-fo
1f2a0	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 28 64 65 66 61 6c	rm-spec.'(def-form.form)).(defal
1f2c0	69 61 73 20 27 2d 69 6f 74 61 20 23 5b 37 36 39 20 22 5c 33 30 30 03 21 5c 32 30 34 0d 00 5c 33	ias.'-iota.#[769."\300.!\204..\3
1f2e0	30 31 5c 33 30 32 5c 33 30 30 05 44 5c 22 5c 32 31 30 01 5c 32 30 34 14 00 5c 33 30 33 5c 32 36	01\302\300.D\"\210.\204..\303\26
1f300	32 02 5c 32 31 31 5c 32 30 34 1a 00 5c 32 31 30 5c 33 30 34 5c 32 31 31 5c 33 30 33 55 5c 32 30	2.\211\204..\210\304\211\303U\20
1f320	33 25 00 5c 33 30 35 03 03 5c 22 5c 32 30 37 02 5c 33 30 33 56 5c 32 30 35 4d 00 01 5c 32 31 31	3%.\305..\"\207.\303V\205M..\211
1f340	43 04 53 5c 33 30 33 5c 32 31 31 02 57 5c 32 30 33 48 00 5c 33 30 36 04 06 06 5c 5c 5c 32 31 31	C.S\303\211.W\203H.\306...\\\211
1f360	5c 32 36 32 06 04 42 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 31 00 5c 32 36 36 02 5c 32 36 36	\262..B\262.\210T\2021.\266.\266
1f380	5c 32 30 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 61 74 6e 75 6d 70 20 73 69 67 6e 61 6c 20 77 72	\201\237\207".[natnump.signal.wr
1f3a0	6f 6e 67 2d 74 79 70 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	ong-type-argument.0.1.make-list.
1f3c0	6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 31 32 37 33 37 32 29 5d 29 23 40 31 33 39 20 43 6f 6d	nil].10.(#$...127372)])#@139.Com
1f3e0	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 4e 20	pute.the.(least).fixpoint.of.FN.
1f400	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 73 20	with.initial.input.LIST...FN.is.
1f420	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 61 72	called.at.least.once,.results.ar
1f440	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 46 4e	e.compared.with.`equal'...(fn.FN
1f460	20 4c 49 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	.LIST)..(byte-code."\300\301\302
1f480	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 69 6f	\303#\300\207".[function-put.-io
1f4a0	74 61 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c	ta.side-effect-free.t].4).(defal
1f4c0	69 61 73 20 27 2d 66 69 78 20 23 5b 35 31 34 20 22 01 01 21 01 01 5c 32 33 32 5c 32 30 34 14 00	ias.'-fix.#[514."..!..\232\204..
1f4e0	5c 32 31 31 5c 32 36 32 02 02 01 21 5c 32 36 32 01 5c 32 30 32 03 00 5c 32 30 37 22 20 5b 5d 20	\211\262...!\262.\202..\207".[].
1f500	35 20 28 23 24 20 2e 20 31 32 37 39 36 35 29 5d 29 23 40 34 33 20 41 6e 61 70 68 6f 72 69 63 20	5.(#$...127965)])#@43.Anaphoric.
1f520	66 6f 72 6d 20 6f 66 20 60 2d 66 69 78 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f	form.of.`-fix'...(fn.FORM.LIST).
1f540	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
1f560	30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 69 78 20 69 6d 70 6f 72	00\207".[function-put.-fix.impor
1f580	74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61	tant-return-value.t].4).(defalia
1f5a0	73 20 27 2d 2d 66 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	s.'--fix.'(macro...#[514."\300\3
1f5c0	30 31 5c 33 30 32 5c 33 30 33 05 46 02 45 5c 32 30 37 22 20 5b 2d 66 69 78 20 6c 61 6d 62 64 61	01\302\303.F.E\207".[-fix.lambda
1f5e0	20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 5d 20 37 20 28 23 24 20 2e 20 31 32 38 32 37	.(it).(ignore.it)].7.(#$...12827
1f600	38 29 5d 29 29 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	8)]))#@360.Build.a.list.from.SEE
1f620	44 20 75 73 69 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	D.using.FUN...This.is."dual".ope
1f640	72 61 74 69 6f 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	ration.to.`-reduce-r':.while.-re
1f660	64 75 63 65 2d 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	duce-r.consumes.a.list.to.produc
1f680	65 20 61 20 73 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	e.a.single.value,.`-unfold'.take
1f6a0	73 20 61 0a 73 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	s.a.seed.value.and.builds.a.(pot
1f6c0	65 6e 74 69 61 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	entially.infinite!).list...FUN.s
1f6e0	68 6f 75 6c 64 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	hould.return.nil.to.stop.the.gen
1f700	65 72 61 74 69 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	erating.process,.or.a.cons.(A...
1f720	42 29 2c 20 77 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	B),.where.A.will.be.prepended.to
1f740	20 74 68 65 20 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	.the.result.and.B.is.the.new.see
1f760	64 2e 0a 0a 28 66 6e 20 46 55 4e 20 53 45 45 44 29 1f 0a 28 70 75 74 20 27 2d 2d 66 69 78 20 27	d...(fn.FUN.SEED)..(put.'--fix.'
1f780	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
1f7a0	29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 6e 66 6f 6c 64 20 23 5b 35 31 34 20 22 01 01 21	)).(defalias.'-unfold.#[514."..!
1f7c0	5c 33 30 30 01 5c 32 30 33 17 00 01 40 01 42 5c 32 36 32 01 03 02 41 21 5c 32 36 32 02 5c 32 30	\300.\203...@.B\262...A!\262.\20
1f7e0	32 04 00 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 31 32 38 35 32	2..\237\207".[nil].6.(#$...12852
1f800	33 29 5d 29 23 40 34 39 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d	3)])#@49.Anaphoric.version.of.`-
1f820	75 6e 66 6f 6c 64 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 53 45 45 44 29 1f 0a 28 62 79 74 65 2d	unfold'...(fn.FORM.SEED)..(byte-
1f840	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22	code."\300\301\302\303#\300\207"
1f860	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 75 6e 66 6f 6c 64 20 69 6d 70 6f 72 74 61 6e 74	.[function-put.-unfold.important
1f880	2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	-return-value.t].4).(defalias.'-
1f8a0	2d 75 6e 66 6f 6c 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	-unfold.'(macro...#[514."\300\30
1f8c0	31 5c 33 30 32 5c 33 30 33 05 46 02 45 5c 32 30 37 22 20 5b 2d 75 6e 66 6f 6c 64 20 6c 61 6d 62	1\302\303.F.E\207".[-unfold.lamb
1f8e0	64 61 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 5d 20 37 20 28 23 24 20 2e 20 31 32 39	da.(it).(ignore.it)].7.(#$...129
1f900	30 33 33 29 5d 29 29 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	033)]))#@125.Return.non-nil.if.O
1f920	42 4a 20 69 73 20 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	BJ.is.a.true.cons.pair..That.is,
1f940	20 61 20 63 6f 6e 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	.a.cons.(A...B).where.B.is.not.a
1f960	20 6c 69 73 74 2e 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	.list...Alias:.`-cons-pair-p'...
1f980	28 66 6e 20 4f 42 4a 29 1f 0a 28 70 75 74 20 27 2d 2d 75 6e 66 6f 6c 64 20 27 65 64 65 62 75 67	(fn.OBJ)..(put.'--unfold.'edebug
1f9a0	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 28 64 65	-form-spec.'(def-form.form)).(de
1f9c0	66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 2d 70 61 69 72 3f 20 23 5b 32 35 37 20 22 5c 32 31 31 5c	falias.'-cons-pair?.#[257."\211\
1f9e0	32 34 33 3c 3f 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 31 32 39 32 39 33 29 5d 29 23	243<?\207".[].2.(#$...129293)])#
1fa00	40 38 38 20 43 6f 6e 76 65 72 74 20 61 20 63 6f 6e 73 20 70 61 69 72 20 74 6f 20 61 20 6c 69 73	@88.Convert.a.cons.pair.to.a.lis
1fa20	74 20 77 69 74 68 20 60 63 61 72 27 20 61 6e 64 20 60 63 64 72 27 20 6f 66 20 74 68 65 20 70 61	t.with.`car'.and.`cdr'.of.the.pa
1fa40	69 72 20 72 65 73 70 65 63 74 69 76 65 6c 79 2e 0a 0a 28 66 6e 20 43 4f 4e 29 1f 0a 28 62 79 74	ir.respectively...(fn.CON)..(byt
1fa60	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
1fa80	31 5c 33 30 34 5c 33 30 35 23 5c 33 30 36 5c 33 30 37 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 66	1\304\305#\306\307\301\"\207".[f
1faa0	75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6e 73 2d 70 61 69 72 3f 20 70 75 72 65 20 74 20 73	unction-put.-cons-pair?.pure.t.s
1fac0	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 20 64 65 66 61 6c	ide-effect-free.error-free.defal
1fae0	69 61 73 20 2d 63 6f 6e 73 2d 70 61 69 72 2d 70 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27	ias.-cons-pair-p].5).(defalias.'
1fb00	2d 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	-cons-to-list.#[257."\211@.AD\20
1fb20	37 22 20 5b 5d 20 33 20 28 23 24 20 2e 20 31 32 39 35 34 30 29 5d 29 23 40 31 39 32 20 43 6f 6e	7".[].3.(#$...129540)])#@192.Con
1fb40	76 65 72 74 20 61 20 76 61 6c 75 65 20 74 6f 20 61 20 6c 69 73 74 2e 0a 0a 49 66 20 74 68 65 20	vert.a.value.to.a.list...If.the.
1fb60	76 61 6c 75 65 20 69 73 20 61 20 63 6f 6e 73 20 70 61 69 72 2c 20 6d 61 6b 65 20 61 20 6c 69 73	value.is.a.cons.pair,.make.a.lis
1fb80	74 20 77 69 74 68 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 2c 20 60 63 61 72 27 0a 61 6e 64 20 60	t.with.two.elements,.`car'.and.`
1fba0	63 64 72 27 20 6f 66 20 74 68 65 20 70 61 69 72 20 72 65 73 70 65 63 74 69 76 65 6c 79 2e 0a 0a	cdr'.of.the.pair.respectively...
1fbc0	49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 61 6e 79 74 68 69 6e 67 20 65 6c 73 65 2c 20 77	If.the.value.is.anything.else,.w
1fbe0	72 61 70 20 69 74 20 69 6e 20 61 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 56 41 4c 29 1f 0a 28 62 79	rap.it.in.a.list...(fn.VAL)..(by
1fc00	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
1fc20	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
1fc40	75 74 20 2d 63 6f 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	ut.-cons-to-list.pure.t.side-eff
1fc60	65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 76 61 6c 75 65 2d 74	ect-free].5).(defalias.'-value-t
1fc80	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.
1fca0	21 5c 32 30 37 43 5c 32 30 37 22 20 5b 2d 63 6f 6e 73 2d 70 61 69 72 3f 20 2d 63 6f 6e 73 2d 74	!\207C\207".[-cons-pair?.-cons-t
1fcc0	6f 2d 6c 69 73 74 5d 20 33 20 28 23 24 20 2e 20 31 32 39 38 35 33 29 5d 29 23 40 34 32 33 20 41	o-list].3.(#$...129853)])#@423.A
1fce0	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 2c	pply.FN.to.each.element.of.TREE,
1fd00	20 61 6e 64 20 6d 61 6b 65 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 73 2e	.and.make.a.list.of.the.results.
1fd20	0a 49 66 20 65 6c 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	.If.elements.of.TREE.are.lists.t
1fd40	68 65 6d 73 65 6c 76 65 73 2c 20 61 70 70 6c 79 20 46 4e 20 72 65 63 75 72 73 69 76 65 6c 79 20	hemselves,.apply.FN.recursively.
1fd60	74 6f 0a 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 68 65 73 65 20 6e 65 73 74 65 64 20 6c 69 73 74	to.elements.of.these.nested.list
1fd80	73 2e 0a 0a 54 68 65 6e 20 72 65 64 75 63 65 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 6c 69	s...Then.reduce.the.resulting.li
1fda0	73 74 73 20 75 73 69 6e 67 20 46 4f 4c 44 45 52 20 61 6e 64 20 69 6e 69 74 69 61 6c 20 76 61 6c	sts.using.FOLDER.and.initial.val
1fdc0	75 65 0a 49 4e 49 54 2d 56 41 4c 55 45 2e 20 53 65 65 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 72	ue.INIT-VALUE..See.`-reduce-r-fr
1fde0	6f 6d 27 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 63 61 6c 6c 69 6e	om'...This.is.the.same.as.callin
1fe00	67 20 60 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 20 61 66 74 65 72 20 60 2d 74 72	g.`-tree-reduce-from'.after.`-tr
1fe20	65 65 2d 6d 61 70 27 0a 62 75 74 20 69 73 20 74 77 69 63 65 20 61 73 20 66 61 73 74 20 61 73 20	ee-map'.but.is.twice.as.fast.as.
1fe40	69 74 20 6f 6e 6c 79 20 74 72 61 76 65 72 73 65 20 74 68 65 20 73 74 72 75 63 74 75 72 65 20 6f	it.only.traverse.the.structure.o
1fe60	6e 63 65 2e 0a 0a 28 66 6e 20 46 4e 20 46 4f 4c 44 45 52 20 49 4e 49 54 2d 56 41 4c 55 45 20 54	nce...(fn.FN.FOLDER.INIT-VALUE.T
1fe80	52 45 45 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	REE)..(byte-code."\300\301\302\3
1fea0	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
1fec0	75 6e 63 74 69 6f 6e 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	unction-put.-value-to-list.pure.
1fee0	74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73	t.side-effect-free].5).(defalias
1ff00	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 30 32 38 20 22 5c	.'-tree-mapreduce-from.#[1028."\
1ff20	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 33 10 00 03 01 21	211\204..\300\207\301.!\203....!
1ff40	5c 32 30 37 5c 32 31 31 3a 5c 32 30 33 26 00 5c 33 30 32 03 03 5c 33 30 33 5c 33 30 34 5c 33 30	\207\211:\203&.\302..\303\304\30
1ff60	35 06 07 06 09 06 0b 24 05 5c 22 23 5c 32 30 37 03 01 21 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63	5......$.\"#\207..!\207".[nil.-c
1ff80	6f 6e 73 2d 70 61 69 72 3f 20 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 6d 61 70 63 61 72 20	ons-pair?.-reduce-r-from.mapcar.
1ffa0	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 33 30 32 5c 33 30 31	make-closure.#[257."\303\302\301
1ffc0	5c 33 30 30 04 24 5c 32 30 37 22 20 5b 56 30 20 56 31 20 56 32 20 2d 74 72 65 65 2d 6d 61 70 72	\300.$\207".[V0.V1.V2.-tree-mapr
1ffe0	65 64 75 63 65 2d 66 72 6f 6d 5d 20 36 20 28 23 24 20 2e 20 31 30 34 39 36 39 29 5d 5d 20 31 33	educe-from].6.(#$...104969)]].13
20000	20 28 23 24 20 2e 20 31 33 30 32 37 31 29 5d 29 23 40 37 37 20 41 6e 61 70 68 6f 72 69 63 20 66	.(#$...130271)])#@77.Anaphoric.f
20020	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 72 6f 6d 27 2e 0a 0a	orm.of.`-tree-mapreduce-from'...
20040	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 45 20 54 52 45 45 29	(fn.FORM.FOLDER.INIT-VALUE.TREE)
20060	1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	..(byte-code."\300\301\302\303#\
20080	33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 74 72 65 65 2d 6d 61 70	300\207".[function-put.-tree-map
200a0	72 65 64 75 63 65 2d 66 72 6f 6d 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c	reduce-from.important-return-val
200c0	75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 6d 61 70 72 65	ue.t].4).(defalias.'--tree-mapre
200e0	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
20100	5c 33 30 31 5c 33 30 32 5c 33 30 33 06 07 46 5c 33 30 31 5c 33 30 34 5c 33 30 35 06 07 46 04 04	\301\302\303..F\301\304\305..F..
20120	5c 32 35 37 05 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d	\257.\207".[-tree-mapreduce-from
20140	20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 20 28 69 74 20 61 63 63	.lambda.(it).(ignore.it).(it.acc
20160	29 20 28 69 67 6e 6f 72 65 20 69 74 20 61 63 63 29 5d 20 31 30 20 28 23 24 20 2e 20 31 33 31 30	).(ignore.it.acc)].10.(#$...1310
20180	39 33 29 5d 29 29 23 40 34 30 37 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 65 6c 65	93)]))#@407.Apply.FN.to.each.ele
201a0	6d 65 6e 74 20 6f 66 20 54 52 45 45 2c 20 61 6e 64 20 6d 61 6b 65 20 61 20 6c 69 73 74 20 6f 66	ment.of.TREE,.and.make.a.list.of
201c0	20 74 68 65 20 72 65 73 75 6c 74 73 2e 0a 49 66 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 54 52 45	.the.results..If.elements.of.TRE
201e0	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 46 4e	E.are.lists.themselves,.apply.FN
20200	20 72 65 63 75 72 73 69 76 65 6c 79 20 74 6f 0a 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 68 65 73	.recursively.to.elements.of.thes
20220	65 20 6e 65 73 74 65 64 20 6c 69 73 74 73 2e 0a 0a 54 68 65 6e 20 72 65 64 75 63 65 20 74 68 65	e.nested.lists...Then.reduce.the
20240	20 72 65 73 75 6c 74 69 6e 67 20 6c 69 73 74 73 20 75 73 69 6e 67 20 46 4f 4c 44 45 52 20 61 6e	.resulting.lists.using.FOLDER.an
20260	64 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 0a 49 4e 49 54 2d 56 41 4c 55 45 2e 20 53 65 65 20	d.initial.value.INIT-VALUE..See.
20280	60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20 73	`-reduce-r-from'...This.is.the.s
202a0	61 6d 65 20 61 73 20 63 61 6c 6c 69 6e 67 20 60 2d 74 72 65 65 2d 72 65 64 75 63 65 27 20 61 66	ame.as.calling.`-tree-reduce'.af
202c0	74 65 72 20 60 2d 74 72 65 65 2d 6d 61 70 27 0a 62 75 74 20 69 73 20 74 77 69 63 65 20 61 73 20	ter.`-tree-map'.but.is.twice.as.
202e0	66 61 73 74 20 61 73 20 69 74 20 6f 6e 6c 79 20 74 72 61 76 65 72 73 65 20 74 68 65 20 73 74 72	fast.as.it.only.traverse.the.str
20300	75 63 74 75 72 65 20 6f 6e 63 65 2e 0a 0a 28 66 6e 20 46 4e 20 46 4f 4c 44 45 52 20 54 52 45 45	ucture.once...(fn.FN.FOLDER.TREE
20320	29 1f 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	)..(put.'--tree-mapreduce-from.'
20340	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 64 65 66 2d	edebug-form-spec.'(def-form.def-
20360	66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65	form.form.form)).(defalias.'-tre
20380	65 2d 6d 61 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	e-mapreduce.#[771."\211\204..\30
203a0	30 5c 32 30 37 5c 33 30 31 01 21 5c 32 30 33 10 00 02 01 21 5c 32 30 37 5c 32 31 31 3a 5c 32 30	0\207\301.!\203....!\207\211:\20
203c0	33 23 00 5c 33 30 32 02 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 06 06 08 23 04 5c 22 5c 22 5c 32	3#.\302.\303\304\305....#.\"\"\2
203e0	30 37 02 01 21 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 73 2d 70 61 69 72 3f 20 2d 72 65 64	07..!\207".[nil.-cons-pair?.-red
20400	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 5b 32 35 37 20	uce-r.mapcar.make-closure.#[257.
20420	22 5c 33 30 32 5c 33 30 31 5c 33 30 30 03 23 5c 32 30 37 22 20 5b 56 30 20 56 31 20 2d 74 72 65	"\302\301\300.#\207".[V0.V1.-tre
20440	65 2d 6d 61 70 72 65 64 75 63 65 5d 20 35 20 28 23 24 20 2e 20 31 30 34 39 36 39 29 5d 5d 20 31	e-mapreduce].5.(#$...104969)]].1
20460	30 20 28 23 24 20 2e 20 31 33 31 34 36 38 29 5d 29 23 40 36 31 20 41 6e 61 70 68 6f 72 69 63 20	0.(#$...131468)])#@61.Anaphoric.
20480	66 6f 72 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	form.of.`-tree-mapreduce'...(fn.
204a0	46 4f 52 4d 20 46 4f 4c 44 45 52 20 54 52 45 45 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	FORM.FOLDER.TREE)..(byte-code."\
204c0	33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74	300\301\302\303#\300\207".[funct
204e0	69 6f 6e 2d 70 75 74 20 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 20 69 6d 70 6f 72 74 61 6e	ion-put.-tree-mapreduce.importan
20500	74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27	t-return-value.t].4).(defalias.'
20520	2d 2d 74 72 65 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	--tree-mapreduce.'(macro...#[771
20540	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 06 06 46 5c 33 30 31 5c 33 30 34 5c 33 30	."\300\301\302\303..F\301\304\30
20560	35 06 06 46 03 46 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 20 6c 61 6d	5..F.F\207".[-tree-mapreduce.lam
20580	62 64 61 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 20 28 69 74 20 61 63 63 29 20 28 69	bda.(it).(ignore.it).(it.acc).(i
205a0	67 6e 6f 72 65 20 69 74 20 61 63 63 29 5d 20 39 20 28 23 24 20 2e 20 31 33 32 32 31 34 29 5d 29	gnore.it.acc)].9.(#$...132214)])
205c0	29 23 40 38 35 20 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	)#@85.Apply.FN.to.each.element.o
205e0	66 20 54 52 45 45 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	f.TREE.while.preserving.the.tree
20600	20 73 74 72 75 63 74 75 72 65 2e 0a 0a 28 66 6e 20 46 4e 20 54 52 45 45 29 1f 0a 28 70 75 74 20	.structure...(fn.FN.TREE)..(put.
20620	27 2d 2d 74 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	'--tree-mapreduce.'edebug-form-s
20640	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 29 29 0a 28	pec.'(def-form.def-form.form)).(
20660	64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 6d 61 70 20 23 5b 35 31 34 20 22 5c 32 31 31 5c	defalias.'-tree-map.#[514."\211\
20680	32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 21 5c 32 30 33 10 00 01 01 21 5c 32 30 37	204..\300\207\301.!\203....!\207
206a0	5c 32 31 31 3a 5c 32 30 33 1d 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 5c 22 02 5c 22 5c 32 30	\211:\203..\302\303\304.\".\"\20
206c0	37 01 01 21 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 73 2d 70 61 69 72 3f 20 6d 61 70 63 61	7..!\207".[nil.-cons-pair?.mapca
206e0	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 30 02 5c	r.make-closure.#[257."\301\300.\
20700	22 5c 32 30 37 22 20 5b 56 30 20 2d 74 72 65 65 2d 6d 61 70 5d 20 34 20 28 23 24 20 2e 20 31 30	"\207".[V0.-tree-map].4.(#$...10
20720	34 39 36 39 29 5d 5d 20 36 20 28 23 24 20 2e 20 31 33 32 35 35 30 29 5d 29 23 40 34 38 20 41 6e	4969)]].6.(#$...132550)])#@48.An
20740	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 27 2e 0a 0a 28 66	aphoric.form.of.`-tree-map'...(f
20760	6e 20 46 4f 52 4d 20 54 52 45 45 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	n.FORM.TREE)..(byte-code."\300\3
20780	30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70	01\302\303#\300\207".[function-p
207a0	75 74 20 2d 74 72 65 65 2d 6d 61 70 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61	ut.-tree-map.important-return-va
207c0	6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 6d 61 70 20	lue.t].4).(defalias.'--tree-map.
207e0	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 5c 33 30	'(macro...#[514."\300\301\302\30
20800	33 05 46 02 45 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 6d 61 70 20 6c 61 6d 62 64 61 20 28 69 74	3.F.E\207".[-tree-map.lambda.(it
20820	29 20 28 69 67 6e 6f 72 65 20 69 74 29 5d 20 37 20 28 23 24 20 2e 20 31 33 32 39 32 36 29 5d 29	).(ignore.it)].7.(#$...132926)])
20840	29 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 73	)#@346.Use.FN.to.reduce.elements
20860	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 52	.of.list.TREE..If.elements.of.TR
20880	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 74	EE.are.lists.themselves,.apply.t
208a0	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 73	he.reduction.recursively...FN.is
208c0	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 64	.first.applied.to.INIT-VALUE.and
208e0	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 6e	.first.element.of.the.list,.then
20900	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 65	.on.this.result.and.second.eleme
20920	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 69	nt.from.the.list.etc...The.initi
20940	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 72	al.value.is.ignored.on.cons.pair
20960	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 65	s.as.they.always.contain.two.ele
20980	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 1f	ments...(fn.FN.INIT-VALUE.TREE).
209a0	0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 6d 61 70 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73	.(put.'--tree-map.'edebug-form-s
209c0	70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20	pec.'(def-form.form)).(defalias.
209e0	27 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 5c 32 31 31 5c 32	'-tree-reduce-from.#[771."\211\2
20a00	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 5c 32 31 31	04..\300\207\301.!\203..\207\211
20a20	3a 5c 32 30 33 21 00 5c 33 30 32 03 03 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07 06 09 23 05 5c	:\203!.\302..\303\304\305....#.\
20a40	22 23 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 3f 20 2d 72 65	"#\207\207".[nil.-cons-pair?.-re
20a60	64 75 63 65 2d 72 2d 66 72 6f 6d 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20	duce-r-from.mapcar.make-closure.
20a80	23 5b 32 35 37 20 22 5c 33 30 32 5c 33 30 31 5c 33 30 30 03 23 5c 32 30 37 22 20 5b 56 30 20 56	#[257."\302\301\300.#\207".[V0.V
20aa0	31 20 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 5d 20 35 20 28 23 24 20 2e 20 31 30 34	1.-tree-reduce-from].5.(#$...104
20ac0	39 36 39 29 5d 5d 20 31 31 20 28 23 24 20 2e 20 31 33 33 31 39 31 29 5d 29 23 40 36 37 20 41 6e	969)]].11.(#$...133191)])#@67.An
20ae0	61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72	aphoric.form.of.`-tree-reduce-fr
20b00	6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 54 2d 56 41 4c 55 45 20 54 52 45 45 29 1f	om'...(fn.FORM.INIT-VALUE.TREE).
20b20	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
20b40	30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 74 72 65 65 2d 72 65 64 75	00\207".[function-put.-tree-redu
20b60	63 65 2d 66 72 6f 6d 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74	ce-from.important-return-value.t
20b80	5d 20 34 29 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 2d 66 72	].4).(defalias.'--tree-reduce-fr
20ba0	6f 6d 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	om.'(macro...#[771."\300\301\302
20bc0	5c 33 30 33 06 06 46 03 03 46 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72	\303..F..F\207".[-tree-reduce-fr
20be0	6f 6d 20 6c 61 6d 62 64 61 20 28 69 74 20 61 63 63 29 20 28 69 67 6e 6f 72 65 20 69 74 20 61 63	om.lambda.(it.acc).(ignore.it.ac
20c00	63 29 5d 20 38 20 28 23 24 20 2e 20 31 33 33 38 35 34 29 5d 29 29 23 40 33 33 32 20 55 73 65 20	c)].8.(#$...133854)]))#@332.Use.
20c20	46 4e 20 74 6f 20 72 65 64 75 63 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 6c 69 73 74 20 54 52	FN.to.reduce.elements.of.list.TR
20c40	45 45 2e 0a 49 66 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 54 52 45 45 20 61 72 65 20 6c 69 73 74	EE..If.elements.of.TREE.are.list
20c60	73 20 74 68 65 6d 73 65 6c 76 65 73 2c 20 61 70 70 6c 79 20 74 68 65 20 72 65 64 75 63 74 69 6f	s.themselves,.apply.the.reductio
20c80	6e 20 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 0a 46 4e 20 69 73 20 66 69 72 73 74 20 61 70 70 6c	n.recursively...FN.is.first.appl
20ca0	69 65 64 20 74 6f 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	ied.to.first.element.of.the.list
20cc0	20 61 6e 64 20 73 65 63 6f 6e 64 0a 65 6c 65 6d 65 6e 74 2c 20 74 68 65 6e 20 6f 6e 20 74 68 69	.and.second.element,.then.on.thi
20ce0	73 20 72 65 73 75 6c 74 20 61 6e 64 20 74 68 69 72 64 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20	s.result.and.third.element.from.
20d00	74 68 65 20 6c 69 73 74 20 65 74 63 2e 0a 0a 53 65 65 20 60 2d 72 65 64 75 63 65 2d 72 27 20 66	the.list.etc...See.`-reduce-r'.f
20d20	6f 72 20 68 6f 77 20 65 78 61 63 74 6c 79 20 61 72 65 20 6c 69 73 74 73 20 6f 66 20 7a 65 72 6f	or.how.exactly.are.lists.of.zero
20d40	20 6f 72 20 6f 6e 65 20 65 6c 65 6d 65 6e 74 20 68 61 6e 64 6c 65 64 2e 0a 0a 28 66 6e 20 46 4e	.or.one.element.handled...(fn.FN
20d60	20 54 52 45 45 29 1f 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d	.TREE)..(put.'--tree-reduce-from
20d80	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
20da0	72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 72 65 64 75 63	rm.form)).(defalias.'-tree-reduc
20dc0	65 20 23 5b 35 31 34 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	e.#[514."\211\204..\300\207\301.
20de0	21 5c 32 30 33 0d 00 5c 32 30 37 5c 32 31 31 3a 5c 32 30 33 1e 00 5c 33 30 32 02 5c 33 30 33 5c	!\203..\207\211:\203..\302.\303\
20e00	33 30 34 5c 33 30 35 06 06 5c 22 04 5c 22 5c 22 5c 32 30 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d	304\305..\".\"\"\207\207".[nil.-
20e20	63 6f 6e 73 2d 70 61 69 72 3f 20 2d 72 65 64 75 63 65 2d 72 20 6d 61 70 63 61 72 20 6d 61 6b 65	cons-pair?.-reduce-r.mapcar.make
20e40	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"
20e60	20 5b 56 30 20 2d 74 72 65 65 2d 72 65 64 75 63 65 5d 20 34 20 28 23 24 20 2e 20 31 30 34 39 36	.[V0.-tree-reduce].4.(#$...10496
20e80	39 29 5d 5d 20 38 20 28 23 24 20 2e 20 31 33 34 31 37 32 29 5d 29 23 40 35 31 20 41 6e 61 70 68	9)]].8.(#$...134172)])#@51.Anaph
20ea0	6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 72 65 64 75 63 65 27 2e 0a 0a 28 66	oric.form.of.`-tree-reduce'...(f
20ec0	6e 20 46 4f 52 4d 20 54 52 45 45 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	n.FORM.TREE)..(byte-code."\300\3
20ee0	30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70	01\302\303#\300\207".[function-p
20f00	75 74 20 2d 74 72 65 65 2d 72 65 64 75 63 65 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e	ut.-tree-reduce.important-return
20f20	2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 72	-value.t].4).(defalias.'--tree-r
20f40	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 31 5c	educe.'(macro...#[514."\300\301\
20f60	33 30 32 5c 33 30 33 05 46 02 45 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 72 65 64 75 63 65 20 6c	302\303.F.E\207".[-tree-reduce.l
20f80	61 6d 62 64 61 20 28 69 74 20 61 63 63 29 20 28 69 67 6e 6f 72 65 20 69 74 20 61 63 63 29 5d 20	ambda.(it.acc).(ignore.it.acc)].
20fa0	37 20 28 23 24 20 2e 20 31 33 34 38 31 31 29 5d 29 29 23 40 32 30 37 20 43 61 6c 6c 20 46 55 4e	7.(#$...134811)]))#@207.Call.FUN
20fc0	20 6f 6e 20 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	.on.each.node.of.TREE.that.satis
20fe0	66 69 65 73 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	fies.PRED...If.PRED.returns.nil,
21000	20 63 6f 6e 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	.continue.descending.down.this.n
21020	6f 64 65 2e 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	ode...If.PRED.returns.non-nil,.a
21040	70 70 6c 79 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	pply.FUN.to.this.node.and.do.not
21060	20 64 65 73 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	.descend.further...(fn.PRED.FUN.
21080	54 52 45 45 29 1f 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 20 27 65 64 65 62	TREE)..(put.'--tree-reduce.'edeb
210a0	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 28	ug-form-spec.'(def-form.form)).(
210c0	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 37 37 31 20	defalias.'-tree-map-nodes.#[771.
210e0	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 1f 00 5c 32 31	"..!\203\n...!\207\211<\203..\21
21100	31 41 3c 5c 32 30 33 1f 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 06 06 23 02 5c 22 5c 32 30 37	1A<\203..\300\301\302...#.\"\207
21120	5c 32 30 37 22 20 5b 2d 6d 61 70 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22	\207".[-map.make-closure.#[257."
21140	5c 33 30 32 5c 33 30 31 5c 33 30 30 03 23 5c 32 30 37 22 20 5b 56 30 20 56 31 20 2d 74 72 65 65	\302\301\300.#\207".[V0.V1.-tree
21160	2d 6d 61 70 2d 6e 6f 64 65 73 5d 20 35 20 28 23 24 20 2e 20 31 30 34 39 36 39 29 5d 5d 20 38 20	-map-nodes].5.(#$...104969)]].8.
21180	28 23 24 20 2e 20 31 33 35 30 39 36 29 5d 29 23 40 35 39 20 41 6e 61 70 68 6f 72 69 63 20 66 6f	(#$...135096)])#@59.Anaphoric.fo
211a0	72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 27 2e 0a 0a 28 66 6e 20 50 52	rm.of.`-tree-map-nodes'...(fn.PR
211c0	45 44 20 46 4f 52 4d 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	ED.FORM.TREE)..(defalias.'--tree
211e0	2d 6d 61 70 2d 6e 6f 64 65 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30	-map-nodes.'(macro...#[771."\300
21200	5c 33 30 31 5c 33 30 32 5c 33 30 33 06 06 46 5c 33 30 31 5c 33 30 34 5c 33 30 35 06 06 46 03 46	\301\302\303..F\301\304\305..F.F
21220	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 62 64 61 20 28 69	\207".[-tree-map-nodes.lambda.(i
21240	74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 5d	t).(ignore.it).(it).(ignore.it)]
21260	20 39 20 28 23 24 20 2e 20 31 33 35 35 37 32 29 5d 29 29 23 40 33 36 33 20 52 65 74 75 72 6e 20	.9.(#$...135572)]))#@363.Return.
21280	61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 74 68 65 20 6e 6f 64 65 73 20 69 6e 20 54 52 45 45 2c	a.sequence.of.the.nodes.in.TREE,
212a0	20 69 6e 20 64 65 70 74 68 2d 66 69 72 73 74 20 73 65 61 72 63 68 20 6f 72 64 65 72 2e 0a 0a 42	.in.depth-first.search.order...B
212c0	52 41 4e 43 48 20 69 73 20 61 20 70 72 65 64 69 63 61 74 65 20 6f 66 20 6f 6e 65 20 61 72 67 75	RANCH.is.a.predicate.of.one.argu
212e0	6d 65 6e 74 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 74 68 65	ment.that.returns.non-nil.if.the
21300	0a 70 61 73 73 65 64 20 61 72 67 75 6d 65 6e 74 20 69 73 20 61 20 62 72 61 6e 63 68 2c 20 74 68	.passed.argument.is.a.branch,.th
21320	61 74 20 69 73 2c 20 61 20 6e 6f 64 65 20 74 68 61 74 20 63 61 6e 20 68 61 76 65 20 63 68 69 6c	at.is,.a.node.that.can.have.chil
21340	64 72 65 6e 2e 0a 0a 43 48 49 4c 44 52 45 4e 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 66	dren...CHILDREN.is.a.function.of
21360	20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 63	.one.argument.that.returns.the.c
21380	68 69 6c 64 72 65 6e 0a 6f 66 20 74 68 65 20 70 61 73 73 65 64 20 62 72 61 6e 63 68 20 6e 6f 64	hildren.of.the.passed.branch.nod
213a0	65 2e 0a 0a 4e 6f 6e 2d 62 72 61 6e 63 68 20 6e 6f 64 65 73 20 61 72 65 20 73 69 6d 70 6c 79 20	e...Non-branch.nodes.are.simply.
213c0	63 6f 70 69 65 64 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	copied...(fn.BRANCH.CHILDREN.TRE
213e0	45 29 1f 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	E)..(put.'--tree-map-nodes.'edeb
21400	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 6f 72 6d	ug-form-spec.'(def-form.def-form
21420	20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 73 65 71 20 23 5b 37	.form)).(defalias.'-tree-seq.#[7
21440	37 31 20 22 5c 32 31 31 03 02 21 5c 32 30 35 12 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 06 07	71."\211..!\205..\300\301\302...
21460	23 04 04 21 5c 22 42 5c 32 30 37 22 20 5b 2d 6d 61 70 63 61 74 20 6d 61 6b 65 2d 63 6c 6f 73 75	#..!\"B\207".[-mapcat.make-closu
21480	72 65 20 23 5b 32 35 37 20 22 5c 33 30 32 5c 33 30 31 5c 33 30 30 03 23 5c 32 30 37 22 20 5b 56	re.#[257."\302\301\300.#\207".[V
214a0	30 20 56 31 20 2d 74 72 65 65 2d 73 65 71 5d 20 35 20 28 23 24 20 2e 20 31 30 34 39 36 39 29 5d	0.V1.-tree-seq].5.(#$...104969)]
214c0	5d 20 39 20 28 23 24 20 2e 20 31 33 35 38 30 31 29 5d 29 23 40 35 39 20 41 6e 61 70 68 6f 72 69	].9.(#$...135801)])#@59.Anaphori
214e0	63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 73 65 71 27 2e 0a 0a 28 66 6e 20 42 52 41 4e	c.form.of.`-tree-seq'...(fn.BRAN
21500	43 48 20 43 48 49 4c 44 52 45 4e 20 54 52 45 45 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	CH.CHILDREN.TREE)..(byte-code."\
21520	33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74	300\301\302\303#\300\207".[funct
21540	69 6f 6e 2d 70 75 74 20 2d 74 72 65 65 2d 73 65 71 20 69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75	ion-put.-tree-seq.important-retu
21560	72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65	rn-value.t].4).(defalias.'--tree
21580	2d 73 65 71 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	-seq.'(macro...#[771."\300\301\3
215a0	30 32 5c 33 30 33 06 06 46 5c 33 30 31 5c 33 30 34 5c 33 30 35 06 06 46 03 46 5c 32 30 37 22 20	02\303..F\301\304\305..F.F\207".
215c0	5b 2d 74 72 65 65 2d 73 65 71 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69	[-tree-seq.lambda.(it).(ignore.i
215e0	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 2e 20 31 33 36	t).(it).(ignore.it)].9.(#$...136
21600	34 30 38 29 5d 29 29 23 40 32 30 35 20 43 72 65 61 74 65 20 61 20 64 65 65 70 20 63 6f 70 79 20	408)]))#@205.Create.a.deep.copy.
21620	6f 66 20 4c 49 53 54 2e 0a 54 68 65 20 6e 65 77 20 6c 69 73 74 20 68 61 73 20 74 68 65 20 73 61	of.LIST..The.new.list.has.the.sa
21640	6d 65 20 65 6c 65 6d 65 6e 74 73 20 61 6e 64 20 73 74 72 75 63 74 75 72 65 20 62 75 74 20 61 6c	me.elements.and.structure.but.al
21660	6c 20 63 6f 6e 73 20 61 72 65 0a 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 6e 65 77 20 6f 6e 65	l.cons.are.replaced.with.new.one
21680	73 2e 20 20 54 68 69 73 20 69 73 20 75 73 65 66 75 6c 20 77 68 65 6e 20 79 6f 75 20 6e 65 65 64	s...This.is.useful.when.you.need
216a0	20 74 6f 20 63 6c 6f 6e 65 20 61 0a 73 74 72 75 63 74 75 72 65 20 73 75 63 68 20 61 73 20 70 6c	.to.clone.a.structure.such.as.pl
216c0	69 73 74 20 6f 72 20 61 6c 69 73 74 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 70 75 74 20 27	ist.or.alist...(fn.LIST)..(put.'
216e0	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
21700	65 66 2d 66 6f 72 6d 20 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61	ef-form.def-form.form)).(defalia
21720	73 20 27 2d 63 6c 6f 6e 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37	s.'-clone.#[257."\300\301.\"\207
21740	22 20 5b 2d 74 72 65 65 2d 6d 61 70 20 69 64 65 6e 74 69 74 79 5d 20 34 20 28 23 24 20 2e 20 31	".[-tree-map.identity].4.(#$...1
21760	33 36 37 31 37 29 5d 29 23 40 32 39 34 20 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20	36717)])#@294.Return.a.function.
21780	74 68 61 74 20 69 73 20 61 20 70 61 72 74 69 61 6c 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 6f 66	that.is.a.partial.application.of
217a0	20 46 55 4e 20 74 6f 20 41 52 47 53 2e 0a 41 52 47 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20	.FUN.to.ARGS..ARGS.is.a.list.of.
217c0	74 68 65 20 66 69 72 73 74 20 4e 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 70 61 73 73 20 74 6f	the.first.N.arguments.to.pass.to
217e0	20 46 55 4e 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 6e 65 77 20 66 75 6e 63 74 69	.FUN..The.result.is.a.new.functi
21800	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 20 46 55 4e 2c 20 65	on.which.does.the.same.as.FUN,.e
21820	78 63 65 70 74 20 74 68 61 74 0a 74 68 65 20 66 69 72 73 74 20 4e 20 61 72 67 75 6d 65 6e 74 73	xcept.that.the.first.N.arguments
21840	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 74 68 20 77 68	.are.fixed.at.the.values.with.wh
21860	69 63 68 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 0a 77 61 73 20 63 61 6c 6c 65 64 2e 0a 0a 28	ich.this.function.was.called...(
21880	66 6e 20 46 55 4e 20 26 72 65 73 74 20 41 52 47 53 29 1f 23 40 33 39 32 20 52 65 74 75 72 6e 20	fn.FUN.&rest.ARGS).#@392.Return.
218a0	61 20 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	a.function.that.is.a.partial.app
218c0	6c 69 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	lication.of.FN.to.ARGS..ARGS.is.
218e0	61 20 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	a.list.of.the.last.N.arguments.t
21900	6f 20 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	o.pass.to.FN...The.result.is.a.n
21920	65 77 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	ew.function.which.does.the.same.
21940	61 73 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	as.FN,.except.that.the.last.N.ar
21960	67 75 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	guments.are.fixed.at.the.values.
21980	77 69 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	with.which.this.function.was.cal
219a0	6c 65 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	led...This.is.like.`-partial',.e
219c0	78 63 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	xcept.the.arguments.are.fixed.st
219e0	61 72 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	arting.from.the.right.rather.tha
21a00	6e 20 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	n.the.left...(fn.FN.&rest.ARGS).
21a20	23 40 32 36 20 0a 0a 28 66 6e 20 26 72 65 73 74 20 41 52 47 53 2d 42 45 46 4f 52 45 29 1f 0a 28	#@26...(fn.&rest.ARGS-BEFORE)..(
21a40	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 34	byte-code."\300\301\302\303#\304
21a60	5c 33 30 35 5c 33 30 36 5c 33 30 37 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74	\305\306\307#\207".[function-put
21a80	20 2d 63 6c 6f 6e 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 20 64 65 66 61 6c	.-clone.side-effect-free.t.defal
21aa0	69 61 73 20 2d 70 61 72 74 69 61 6c 20 61 70 70 6c 79 2d 70 61 72 74 69 61 6c 6c 79 20 22 52 65	ias.-partial.apply-partially."Re
21ac0	74 75 72 6e 20 61 20 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	turn.a.function.that.is.a.partia
21ae0	6c 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 6f 66 20 46 55 4e 20 74 6f 20 41 52 47 53 2e 5c 6e 41	l.application.of.FUN.to.ARGS.\nA
21b00	52 47 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 4e 20 61 72 67	RGS.is.a.list.of.the.first.N.arg
21b20	75 6d 65 6e 74 73 20 74 6f 20 70 61 73 73 20 74 6f 20 46 55 4e 2e 5c 6e 54 68 65 20 72 65 73 75	uments.to.pass.to.FUN.\nThe.resu
21b40	6c 74 20 69 73 20 61 20 6e 65 77 20 66 75 6e 63 74 69 6f 6e 20 77 68 69 63 68 20 64 6f 65 73 20	lt.is.a.new.function.which.does.
21b60	74 68 65 20 73 61 6d 65 20 61 73 20 46 55 4e 2c 20 65 78 63 65 70 74 20 74 68 61 74 5c 6e 74 68	the.same.as.FUN,.except.that\nth
21b80	65 20 66 69 72 73 74 20 4e 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 66 69 78 65 64 20 61 74	e.first.N.arguments.are.fixed.at
21ba0	20 74 68 65 20 76 61 6c 75 65 73 20 77 69 74 68 20 77 68 69 63 68 20 74 68 69 73 20 66 75 6e 63	.the.values.with.which.this.func
21bc0	74 69 6f 6e 5c 6e 77 61 73 20 63 61 6c 6c 65 64 2e 5c 6e 5c 6e 28 66 6e 20 46 55 4e 20 26 72 65	tion\nwas.called.\n\n(fn.FUN.&re
21be0	73 74 20 41 52 47 53 29 22 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 70 61 72 74 69	st.ARGS)"].5).(defalias.'-rparti
21c00	61 6c 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 02 04 23 5c 32 30 37 22 20 5b 6d 61 6b 65	al.#[385."\300\301..#\207".[make
21c20	2d 63 6c 6f 73 75 72 65 20 23 5b 31 32 38 20 22 5c 33 30 32 5c 33 30 31 5c 33 30 33 03 5c 33 30	-closure.#[128."\302\301\303.\30
21c40	30 5c 22 5c 22 5c 32 30 37 22 20 5b 56 30 20 56 31 20 61 70 70 6c 79 20 61 70 70 65 6e 64 5d 20	0\"\"\207".[V0.V1.apply.append].
21c60	36 20 28 23 24 20 2e 20 31 33 37 37 36 35 29 5d 5d 20 36 20 28 23 24 20 2e 20 31 33 37 33 36 39	6.(#$...137765)]].6.(#$...137369
21c80	29 5d 29 23 40 31 39 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	)])#@194.Return.a.function.that.
21ca0	69 73 20 74 68 65 20 6a 75 78 74 61 70 6f 73 69 74 69 6f 6e 20 6f 66 20 46 4e 53 2e 0a 54 68 65	is.the.juxtaposition.of.FNS..The
21cc0	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 61 20 76 61 72 69 61	.returned.function.takes.a.varia
21ce0	62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 41 52 47 53 2c 20 61 70 70 6c 69 65 73 0a 65 61 63 68	ble.number.of.ARGS,.applies.each
21d00	20 6f 66 20 46 4e 53 20 69 6e 20 74 75 72 6e 20 74 6f 20 41 52 47 53 2c 20 61 6e 64 20 72 65 74	.of.FNS.in.turn.to.ARGS,.and.ret
21d20	75 72 6e 73 20 74 68 65 20 6c 69 73 74 20 6f 66 20 72 65 73 75 6c 74 73 2e 0a 0a 28 66 6e 20 26	urns.the.list.of.results...(fn.&
21d40	72 65 73 74 20 46 4e 53 29 1f 23 40 31 39 20 0a 0a 28 66 6e 20 26 72 65 73 74 20 41 52 47 53 29	rest.FNS).#@19...(fn.&rest.ARGS)
21d60	1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	..(byte-code."\300\301\302\303#\
21d80	33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 35 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74	300\301\304\305#\300\207".[funct
21da0	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 65 66	ion-put.-rpartial.pure.t.side-ef
21dc0	66 65 63 74 2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69	fect-free.error-free].5).(defali
21de0	61 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	as.'-juxt.#[128."\300\301.\"\207
21e00	22 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	".[make-closure.#[128."\301\302\
21e20	33 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	303.\"\300\"\207".[V0.mapcar.mak
21e40	65 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	e-closure.#[257."\301.\300\"\207
21e60	22 20 5b 56 30 20 61 70 70 6c 79 5d 20 34 20 28 23 24 20 2e 20 31 30 34 39 36 39 29 5d 5d 20 35	".[V0.apply].4.(#$...104969)]].5
21e80	20 28 23 24 20 2e 20 31 33 38 35 37 35 29 5d 5d 20 34 20 28 23 24 20 2e 20 31 33 38 33 37 37 29	.(#$...138575)]].4.(#$...138377)
21ea0	5d 29 23 40 33 33 35 20 43 6f 6d 70 6f 73 65 20 46 4e 53 20 69 6e 74 6f 20 61 20 73 69 6e 67 6c	])#@335.Compose.FNS.into.a.singl
21ec0	65 20 63 6f 6d 70 6f 73 69 74 65 20 66 75 6e 63 74 69 6f 6e 2e 0a 52 65 74 75 72 6e 20 61 20 66	e.composite.function..Return.a.f
21ee0	75 6e 63 74 69 6f 6e 20 74 68 61 74 20 74 61 6b 65 73 20 61 20 76 61 72 69 61 62 6c 65 20 6e 75	unction.that.takes.a.variable.nu
21f00	6d 62 65 72 20 6f 66 20 41 52 47 53 2c 20 61 70 70 6c 69 65 73 0a 74 68 65 20 6c 61 73 74 20 66	mber.of.ARGS,.applies.the.last.f
21f20	75 6e 63 74 69 6f 6e 20 69 6e 20 46 4e 53 20 74 6f 20 41 52 47 53 2c 20 61 6e 64 20 72 65 74 75	unction.in.FNS.to.ARGS,.and.retu
21f40	72 6e 73 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 0a 63 61 6c 6c 69 6e 67 20 65 61 63 68 20 72	rns.the.result.of.calling.each.r
21f60	65 6d 61 69 6e 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 74 68 65 20 72 65 73 75 6c 74 20	emaining.function.on.the.result.
21f80	6f 66 20 74 68 65 20 70 72 65 76 69 6f 75 73 0a 66 75 6e 63 74 69 6f 6e 2c 20 72 69 67 68 74 2d	of.the.previous.function,.right-
21fa0	74 6f 2d 6c 65 66 74 2e 20 20 49 66 20 6e 6f 20 46 4e 53 20 61 72 65 20 67 69 76 65 6e 2c 20 72	to-left...If.no.FNS.are.given,.r
21fc0	65 74 75 72 6e 20 61 20 76 61 72 69 61 64 69 63 0a 60 69 64 65 6e 74 69 74 79 27 20 66 75 6e 63	eturn.a.variadic.`identity'.func
21fe0	74 69 6f 6e 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 46 4e 53 29 1f 23 40 33 30 20 0a 0a 28 66 6e	tion...(fn.&rest.FNS).#@30...(fn
22000	20 26 6f 70 74 69 6f 6e 61 6c 20 41 52 47 20 26 72 65 73 74 20 5f 29 1f 0a 28 62 79 74 65 2d 63	.&optional.ARG.&rest._)..(byte-c
22020	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
22040	30 34 5c 33 30 35 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\305#\300\207".[function-put.-
22060	6a 75 78 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 20 65 72 72	juxt.pure.t.side-effect-free.err
22080	6f 72 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6d 70 6f 73 65 20	or-free].5).(defalias.'-compose.
220a0	23 5b 31 32 38 20 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	#[128."\211\237\211@.A\211\203..
220c0	5c 33 30 30 5c 33 30 31 02 04 23 5c 32 30 37 02 5c 32 30 33 16 00 01 5c 32 30 37 5c 33 30 32 5c	\300\301..#\207.\203...\207\302\
220e0	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 22 5c 33 30 32 5c 33	207".[make-closure.#[128."\302\3
22100	30 31 02 5c 22 5c 33 30 30 5c 33 30 33 01 5c 32 30 33 1a 00 01 5c 32 31 31 41 5c 32 36 32 03 5c	01.\"\300\303.\203...\211A\262.\
22120	32 34 32 5c 32 31 31 04 21 5c 32 36 32 04 5c 32 31 30 54 5c 32 30 32 06 00 5c 32 36 36 02 5c 32	242\211.!\262.\210T\202..\266.\2
22140	30 37 22 20 5b 56 30 20 56 31 20 61 70 70 6c 79 20 30 5d 20 37 20 28 23 24 20 2e 20 31 33 38 35	07".[V0.V1.apply.0].7.(#$...1385
22160	37 35 29 5d 20 23 5b 33 38 34 20 22 01 5c 32 30 37 22 20 5b 5d 20 33 20 28 23 24 20 2e 20 31 33	75)].#[384.".\207".[].3.(#$...13
22180	39 32 35 39 29 5d 5d 20 38 20 28 23 24 20 2e 20 31 33 38 39 32 30 29 5d 29 23 40 31 38 35 20 52	9259)]].8.(#$...138920)])#@185.R
221a0	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 46 4e	eturn.a.function.that.applies.FN
221c0	20 74 6f 20 61 20 73 69 6e 67 6c 65 20 6c 69 73 74 20 6f 66 20 61 72 67 73 2e 0a 54 68 69 73 20	.to.a.single.list.of.args..This.
221e0	63 68 61 6e 67 65 73 20 74 68 65 20 61 72 69 74 79 20 6f 66 20 46 4e 20 66 72 6f 6d 20 74 61 6b	changes.the.arity.of.FN.from.tak
22200	69 6e 67 20 4e 20 64 69 73 74 69 6e 63 74 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 0a 74 61 6b 69	ing.N.distinct.arguments.to.taki
22220	6e 67 20 31 20 61 72 67 75 6d 65 6e 74 20 77 68 69 63 68 20 69 73 20 61 20 6c 69 73 74 20 6f 66	ng.1.argument.which.is.a.list.of
22240	20 4e 20 61 72 67 75 6d 65 6e 74 73 2e 0a 0a 28 66 6e 20 46 4e 29 1f 23 40 31 33 20 0a 0a 28 66	.N.arguments...(fn.FN).#@13...(f
22260	6e 20 41 52 47 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	n.ARGS)..(byte-code."\300\301\30
22280	32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 35 23 5c 33 30 30 5c 32 30 37 22	2\303#\300\301\304\305#\300\207"
222a0	20 5b 66 75 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	.[function-put.-compose.pure.t.s
222c0	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 5d 20 35 29 0a 28	ide-effect-free.error-free].5).(
222e0	64 65 66 61 6c 69 61 73 20 27 2d 61 70 70 6c 69 66 79 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33	defalias.'-applify.#[257."\300\3
22300	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 37 20 22	01.\"\207".[make-closure.#[257."
22320	5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 30 37 22 20 5b 56 30 20 61 70 70 6c 79 5d 20 34 20 28 23	\301\300.\"\207".[V0.apply].4.(#
22340	24 20 2e 20 31 33 39 38 36 38 29 5d 5d 20 34 20 28 23 24 20 2e 20 31 33 39 36 37 39 29 5d 29 23	$...139868)]].4.(#$...139679)])#
22360	40 34 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	@454.Return.a.function.that.call
22380	73 20 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	s.TRANS.on.each.arg.and.OP.on.th
223a0	65 20 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	e.results..The.returned.function
223c0	20 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 61 72 67 75	.takes.a.variable.number.of.argu
223e0	6d 65 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	ments,.calls.the.function.TRANS.
22400	6f 6e 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	on.each.one.in.turn,.and.then.pa
22420	73 73 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	sses.those.results.as.the.list.o
22440	66 20 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	f.arguments.to.OP,.in.the.same.o
22460	72 64 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	rder...For.example,.the.followin
22480	67 20 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	g.pairs.of.expressions.are.moral
224a0	6c 79 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	ly.equivalent:....(funcall.(-on.
224c0	23 5c 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	#\='+.#\='1+).1.2.3).=.(+.(1+.1)
224e0	20 28 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	.(1+.2).(1+.3))...(funcall.(-on.
22500	23 5c 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	#\='+.#\='1+)).......=.(+)..(fn.
22520	4f 50 20 54 52 41 4e 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c	OP.TRANS)..(byte-code."\300\301\
22540	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 33 30 30 5c 32 30	302\303#\300\301\304\305#\300\20
22560	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 20 70 75 72 65 20 74	7".[function-put.-applify.pure.t
22580	20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 5d 20 35 29	.side-effect-free.error-free].5)
225a0	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02	.(defalias.'-on.#[514."\300\301.
225c0	04 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 22 5c 32 31	.#\207".[make-closure.#[128."\21
225e0	31 41 41 5c 32 30 33 0e 00 5c 33 30 32 5c 33 30 31 5c 33 30 33 5c 33 30 30 04 5c 22 5c 22 5c 32	1AA\203..\302\301\303\300.\"\"\2
22600	30 37 5c 32 31 31 41 5c 32 30 33 1f 00 5c 33 30 31 5c 33 30 30 02 40 21 5c 33 30 30 03 41 40 21	07\211A\203..\301\300.@!\300.A@!
22620	5c 22 5c 32 30 37 5c 32 31 31 5c 32 30 33 2a 00 5c 33 30 31 5c 33 30 30 02 40 21 21 5c 32 30 37	\"\207\211\203*.\301\300.@!!\207
22640	5c 33 30 31 20 5c 32 30 37 22 20 5b 56 30 20 56 31 20 61 70 70 6c 79 20 6d 61 70 63 61 72 5d 20	\301.\207".[V0.V1.apply.mapcar].
22660	36 20 28 23 24 20 2e 20 31 33 38 35 37 35 29 5d 5d 20 36 20 28 23 24 20 2e 20 31 34 30 31 33 33	6.(#$...138575)]].6.(#$...140133
22680	29 5d 29 23 40 32 37 31 20 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20	)])#@271.Return.a.function.that.
226a0	63 61 6c 6c 73 20 46 4e 20 77 69 74 68 20 69 74 73 20 61 72 67 75 6d 65 6e 74 73 20 72 65 76 65	calls.FN.with.its.arguments.reve
226c0	72 73 65 64 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 61 6b 65	rsed..The.returned.function.take
226e0	73 20 74 68 65 20 73 61 6d 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 61	s.the.same.number.of.arguments.a
22700	73 20 46 4e 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	s.FN...For.example,.the.followin
22720	67 20 74 77 6f 20 65 78 70 72 65 73 73 69 6f 6e 73 20 61 72 65 20 6d 6f 72 61 6c 6c 79 0a 65 71	g.two.expressions.are.morally.eq
22740	75 69 76 61 6c 65 6e 74 3a 0a 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 2d 66 6c 69 70 20 23 5c 3d	uivalent:....(funcall.(-flip.#\=
22760	27 2d 29 20 31 20 32 29 20 3d 20 28 2d 20 32 20 31 29 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d	'-).1.2).=.(-.2.1)..See.also:.`-
22780	72 6f 74 61 74 65 2d 61 72 67 73 27 2e 0a 0a 28 66 6e 20 46 4e 29 1f 0a 28 62 79 74 65 2d 63 6f	rotate-args'...(fn.FN)..(byte-co
227a0	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30	de."\300\301\302\303#\300\301\30
227c0	34 5c 33 30 35 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	4\305#\300\207".[function-put.-o
227e0	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 20 65 72 72 6f 72 2d	n.pure.t.side-effect-free.error-
22800	66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 6c 69 70 20 23 5b 32 35 37 20	free].5).(defalias.'-flip.#[257.
22820	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 6f 73 75 72 65 20	"\300\301.\"\207".[make-closure.
22840	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 30 30 02 5c 32 33	#[128."\211AA\203\f.\301\300.\23
22860	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 40 5c 22 5c 32 30	7\"\207\211A\203..\300.A@.@\"\20
22880	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 30 20 5c 32 30 37	7\211\203\".\300.@!\207\300.\207
228a0	22 20 5b 56 30 20 61 70 70 6c 79 5d 20 34 20 28 23 24 20 2e 20 31 33 38 35 37 35 29 5d 5d 20 34	".[V0.apply].4.(#$...138575)]].4
228c0	20 28 23 24 20 2e 20 31 34 30 39 33 37 29 5d 29 23 40 32 39 36 20 52 65 74 75 72 6e 20 61 20 66	.(#$...140937)])#@296.Return.a.f
228e0	75 6e 63 74 69 6f 6e 20 74 68 61 74 20 63 61 6c 6c 73 20 46 4e 20 77 69 74 68 20 61 72 67 73 20	unction.that.calls.FN.with.args.
22900	72 6f 74 61 74 65 64 20 4e 20 70 6c 61 63 65 73 20 74 6f 20 74 68 65 20 72 69 67 68 74 2e 0a 54	rotated.N.places.to.the.right..T
22920	68 65 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	he.returned.function.takes.the.s
22940	61 6d 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 2c 0a 72	ame.number.of.arguments.as.FN,.r
22960	6f 74 61 74 65 73 20 74 68 65 20 6c 69 73 74 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 4e 20 70	otates.the.list.of.arguments.N.p
22980	6c 61 63 65 73 20 74 6f 20 74 68 65 20 72 69 67 68 74 20 28 6c 65 66 74 20 69 66 20 4e 20 69 73	laces.to.the.right.(left.if.N.is
229a0	0a 6e 65 67 61 74 69 76 65 29 20 6a 75 73 74 20 6c 69 6b 65 20 60 2d 72 6f 74 61 74 65 27 2c 20	.negative).just.like.`-rotate',.
229c0	61 6e 64 20 61 70 70 6c 69 65 73 20 46 4e 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 2e 0a 0a 53	and.applies.FN.to.the.result...S
229e0	65 65 20 61 6c 73 6f 3a 20 60 2d 66 6c 69 70 27 2e 0a 0a 28 66 6e 20 4e 20 46 4e 29 1f 0a 28 62	ee.also:.`-flip'...(fn.N.FN)..(b
22a00	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\
22a20	33 30 31 5c 33 30 34 5c 33 30 35 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d	301\304\305#\300\207".[function-
22a40	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 65	put.-flip.pure.t.side-effect-fre
22a60	65 20 65 72 72 6f 72 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 6f 74	e.error-free].5).(defalias.'-rot
22a80	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 5c 32 30 37	ate-args.#[514.".\300U\203..\207
22aa0	01 5c 33 30 31 5c 32 34 36 5c 33 30 30 55 5c 33 30 32 5c 33 30 33 02 04 06 06 24 5c 32 30 37 22	.\301\246\300U\302\303....$\207"
22ac0	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 31 41 41	.[0.2.make-closure.#[128."\211AA
22ae0	5c 32 30 33 0e 00 5c 33 30 33 5c 33 30 31 5c 33 30 34 5c 33 30 32 04 5c 22 5c 22 5c 32 30 37 5c	\203..\303\301\304\302.\"\"\207\
22b00	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 30 5c 32 30 33 21 00	211A\203-.\211@.A@\301\300\203!.
22b20	02 5c 32 30 32 5c 22 00 01 5c 33 30 30 5c 32 30 33 2a 00 02 5c 32 30 32 2b 00 03 5c 22 5c 32 30	.\202\"..\300\203*..\202+..\"\20
22b40	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 30 37 22	7\211\2036.\301.@!\207\301.\207"
22b60	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 28 23 24 20	.[V0.V1.V2.apply.-rotate].6.(#$.
22b80	2e 20 31 33 38 35 37 35 29 5d 5d 20 38 20 28 23 24 20 2e 20 31 34 31 35 32 36 29 5d 29 23 40 31	..138575)]].8.(#$...141526)])#@1
22ba0	30 30 20 52 65 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	00.Return.a.function.that.return
22bc0	73 20 43 20 69 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	s.C.ignoring.any.additional.argu
22be0	6d 65 6e 74 73 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	ments...In.types:.a.->.b.->.a..(
22c00	66 6e 20 43 29 1f 23 40 31 36 20 0a 0a 28 66 6e 20 26 72 65 73 74 20 5f 29 1f 0a 28 62 79 74 65	fn.C).#@16...(fn.&rest._)..(byte
22c20	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
22c40	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
22c60	20 2d 72 6f 74 61 74 65 2d 61 72 67 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74	.-rotate-args.pure.t.side-effect
22c80	2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 74 20 23 5b 32 35	-free].5).(defalias.'-const.#[25
22ca0	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 6f 73 75 72	7."\300\301.\"\207".[make-closur
22cc0	65 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 56 30 5d 20 32 20 28 23 24 20 2e 20	e.#[128."\300\207".[V0].2.(#$...
22ce0	31 34 32 33 34 37 29 5d 5d 20 34 20 28 23 24 20 2e 20 31 34 32 32 34 33 29 5d 29 23 40 31 37 36	142347)]].4.(#$...142243)])#@176
22d00	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 6e 20 61 72 67 75 6d	.Take.n-ary.function.and.n.argum
22d20	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 6f 66 20 74 68 65 6d	ents.and.specialize.some.of.them
22d40	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 20 77 69 6c 6c 20 62	..Arguments.denoted.by.<>.will.b
22d60	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 65 20 53 52 46 49 2d	e.left.unspecialized...See.SRFI-
22d80	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 6f 6e 2e 0a 0a 28 66	26.for.detailed.description...(f
22da0	6e 20 26 72 65 73 74 20 50 41 52 41 4d 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	n.&rest.PARAMS)..(byte-code."\30
22dc0	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#\
22de0	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 6e 73 74 20 70 75	300\207".[function-put.-const.pu
22e00	72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65	re.t.side-effect-free.error-free
22e20	5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 75 74 20 27 28 6d 61 63 72 6f 20 2e 20 23	].5).(defalias.'-cut.'(macro...#
22e40	5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 02 5c 33 30 30 01 5c 32 30 33 2e 00 01 5c 32 31 31 41	[128."\300\301.\300.\203...\211A
22e60	5c 32 36 32 03 5c 32 34 32 5c 32 31 31 5c 33 30 32 3d 5c 32 30 35 1f 00 04 54 5c 32 36 32 05 5c	\262.\242\211\302=\205...T\262.\
22e80	33 30 33 5c 33 30 34 5c 33 30 35 06 07 5c 22 21 5c 32 31 31 5c 32 30 33 28 00 5c 32 31 31 05 42	303\304\305..\"!\211\203(.\211.B
22ea0	5c 32 36 32 05 5c 32 36 36 02 54 5c 32 30 32 04 00 5c 32 36 36 02 5c 32 33 37 43 5c 33 30 36 01	\262.\266.T\202..\266.\237C\306.
22ec0	5c 32 34 32 5c 33 30 37 5c 33 31 30 5c 33 31 31 05 5c 22 06 06 5c 22 05 40 5c 33 30 32 3d 5c 32	\242\307\310\311.\"..\".@\302=\2
22ee0	30 33 49 00 5c 33 31 32 01 42 5c 32 36 32 01 45 5c 32 30 37 22 20 5b 30 20 6e 69 6c 20 3c 3e 20	03I.\312.B\262.E\207".[0.nil.<>.
22f00	6d 61 6b 65 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	make-symbol.format."D%d".lambda.
22f20	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 32 31 31 5c	mapcar.make-closure.#[257."\211\
22f40	33 30 31 3d 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	301=\203..\300\242\300\211\242A\
22f60	32 34 30 5c 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 28	240\210\242\207\207".[V0.<>].4.(
22f80	23 24 20 2e 20 32 37 39 36 31 29 5d 20 66 75 6e 63 61 6c 6c 5d 20 31 30 20 28 23 24 20 2e 20 31	#$...27961)].funcall].10.(#$...1
22fa0	34 32 35 39 33 29 5d 29 29 23 40 32 32 34 20 52 65 74 75 72 6e 20 61 20 70 72 65 64 69 63 61 74	42593)]))#@224.Return.a.predicat
22fc0	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 52 45	e.that.negates.the.result.of.PRE
22fe0	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 65 73	D..The.returned.predicate.passes
23000	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 45 44	.its.arguments.to.PRED...If.PRED
23020	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 6e 2d	.returns.nil,.the.result.is.non-
23040	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 69 6c	nil;.otherwise.the.result.is.nil
23060	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 66 6e	...See.also:.`-andfn'.and.`-orfn
23080	27 2e 0a 0a 28 66 6e 20 50 52 45 44 29 1f 0a 28 70 75 74 20 27 2d 63 75 74 20 27 65 64 65 62 75	'...(fn.PRED)..(put.'-cut.'edebu
230a0	67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 26 6f 70 74 69 6f 6e 61 6c 20 73 65 78 70 20 26 72 65	g-form-spec.'(&optional.sexp.&re
230c0	73 74 20 26 6f 72 20 22 3c 3e 22 20 66 6f 72 6d 29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6e	st.&or."<>".form)).(defalias.'-n
230e0	6f 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 6b 65	ot.#[257."\300\301.\"\207".[make
23100	2d 63 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	-closure.#[128."\301\300.\"?\207
23120	22 20 5b 56 30 20 61 70 70 6c 79 5d 20 34 20 28 23 24 20 2e 20 31 33 38 35 37 35 29 5d 5d 20 34	".[V0.apply].4.(#$...138575)]].4
23140	20 28 23 24 20 2e 20 31 34 33 32 37 39 29 5d 29 23 40 34 31 38 20 52 65 74 75 72 6e 20 61 20 70	.(#$...143279)])#@418.Return.a.p
23160	72 65 64 69 63 61 74 65 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 66 69 72 73 74 20	redicate.that.returns.the.first.
23180	6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 20 6f 66 20 50 52 45 44 53 2e 0a 54 68 65 20 72 65 74	non-nil.result.of.PREDS..The.ret
231a0	75 72 6e 65 64 20 70 72 65 64 69 63 61 74 65 20 74 61 6b 65 73 20 61 20 76 61 72 69 61 62 6c 65	urned.predicate.takes.a.variable
231c0	20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2c 0a 70 61 73 73 65 73 20 74 68 65	.number.of.arguments,.passes.the
231e0	6d 20 74 6f 20 65 61 63 68 20 70 72 65 64 69 63 61 74 65 20 69 6e 20 50 52 45 44 53 20 69 6e 20	m.to.each.predicate.in.PREDS.in.
23200	74 75 72 6e 20 75 6e 74 69 6c 20 6f 6e 65 20 6f 66 20 74 68 65 6d 0a 72 65 74 75 72 6e 73 20 6e	turn.until.one.of.them.returns.n
23220	6f 6e 2d 6e 69 6c 2c 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68 61 74 20 6e 6f 6e 2d 6e 69 6c	on-nil,.and.returns.that.non-nil
23240	20 72 65 73 75 6c 74 20 77 69 74 68 6f 75 74 20 63 61 6c 6c 69 6e 67 0a 74 68 65 20 72 65 6d 61	.result.without.calling.the.rema
23260	69 6e 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	ining.PREDS...If.all.PREDS.retur
23280	6e 20 6e 69 6c 2c 20 6f 72 20 69 66 20 6e 6f 20 50 52 45 44 53 20 61 72 65 0a 67 69 76 65 6e 2c	n.nil,.or.if.no.PREDS.are.given,
232a0	20 74 68 65 20 72 65 74 75 72 6e 65 64 20 70 72 65 64 69 63 61 74 65 20 72 65 74 75 72 6e 73 20	.the.returned.predicate.returns.
232c0	6e 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 6e	nil...See.also:.`-andfn'.and.`-n
232e0	6f 74 27 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 50 52 45 44 53 29 1f 0a 28 62 79 74 65 2d 63 6f	ot'...(fn.&rest.PREDS)..(byte-co
23300	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30	de."\300\301\302\303#\300\301\30
23320	34 5c 33 30 35 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	4\305#\300\207".[function-put.-n
23340	6f 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 20 65 72 72 6f 72	ot.pure.t.side-effect-free.error
23360	2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6f 72 66 6e 20 23 5b 31 32 38	-free].5).(defalias.'-orfn.#[128
23380	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 5c 32 31	."\211A\203\n.\300\301.\"\207\21
233a0	31 5c 32 30 33 10 00 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	1\203..@\207\302\207".[make-clos
233c0	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 02 5c 32 30 33	ure.#[128."\301\300\302\301.\203
233e0	21 00 5c 32 31 30 01 5c 32 34 32 5c 33 30 33 01 06 06 5c 22 5c 32 31 31 5c 32 36 32 05 5c 32 30	!.\210.\242\303...\"\211\262.\20
23400	34 21 00 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 04 00 5c 32 36 36 03 5c 32 30 37	4!..T\262..A\262.\202..\266.\207
23420	22 20 5b 56 30 20 6e 69 6c 20 30 20 61 70 70 6c 79 5d 20 38 20 28 23 24 20 2e 20 31 33 38 35 37	".[V0.nil.0.apply].8.(#$...13857
23440	35 29 5d 20 69 67 6e 6f 72 65 5d 20 34 20 28 23 24 20 2e 20 31 34 33 37 30 32 29 5d 29 23 40 34	5)].ignore].4.(#$...143702)])#@4
23460	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
23480	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
234a0	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.
234c0	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
234e0	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
23500	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.
23520	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
23540	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
23560	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.
23580	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
235a0	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,.
235c0	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
235e0	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
23600	65 73 74 20 50 52 45 44 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	est.PREDS)..(byte-code."\300\301
23620	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 33 30 30 5c 32	\302\303#\300\301\304\305#\300\2
23640	30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6f 72 66 6e 20 70 75 72 65 20 74 20 73	07".[function-put.-orfn.pure.t.s
23660	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 5d 20 35 29 0a 28	ide-effect-free.error-free].5).(
23680	64 65 66 61 6c 69 61 73 20 27 2d 61 6e 64 66 6e 20 23 5b 31 32 38 20 22 5c 32 31 31 41 5c 32 30	defalias.'-andfn.#[128."\211A\20
236a0	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 33 10 00 40 5c 32	3\n.\300\301.\"\207\211\203..@\2
236c0	30 37 5c 33 30 32 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	07\302\207".[make-closure.#[128.
236e0	22 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 33 30 33 02 5c 32 30 33 21 00 5c 32 31 30 01 5c 32 34	"\301\300\302\303.\203!.\210.\24
23700	32 5c 33 30 34 01 06 06 5c 22 5c 32 31 31 5c 32 36 32 05 5c 32 30 33 21 00 01 54 5c 32 36 32 02	2\304...\"\211\262.\203!..T\262.
23720	02 41 5c 32 36 32 03 5c 32 30 32 04 00 5c 32 36 36 03 5c 32 30 37 22 20 5b 56 30 20 74 20 30 20	.A\262.\202..\266.\207".[V0.t.0.
23740	6e 69 6c 20 61 70 70 6c 79 5d 20 38 20 28 23 24 20 2e 20 31 33 38 35 37 35 29 5d 20 61 6c 77 61	nil.apply].8.(#$...138575)].alwa
23760	79 73 5d 20 34 20 28 23 24 20 2e 20 31 34 34 34 38 33 29 5d 29 23 40 33 39 36 20 52 65 74 75 72	ys].4.(#$...144483)])#@396.Retur
23780	6e 20 61 20 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	n.a.function.FN.composed.N.times
237a0	20 77 69 74 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	.with.itself...FN.is.a.unary.fun
237c0	63 74 69 6f 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	ction...If.you.need.to.use.a.fun
237e0	63 74 69 6f 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	ction.of.higher.arity,.use.`-app
23800	6c 69 66 79 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	lify'.first.to.turn.it.into.a.un
23820	61 72 79 20 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	ary.function...With.n.=.0,.this.
23840	61 63 74 73 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	acts.as.identity.function...In.t
23860	79 70 65 73 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	ypes:.(a.->.a).->.Int.->.a.->.a.
23880	0a 0a 54 68 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	..This.function.satisfies.the.fo
238a0	6c 6c 6f 77 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	llowing.law:....(funcall.(-itera
238c0	74 65 66 6e 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	tefn.fn.n).init).=.(-last-item.(
238e0	2d 69 74 65 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	-iterate.fn.init.(1+.n)))...(fn.
23900	46 4e 20 4e 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	FN.N)..(byte-code."\300\301\302\
23920	33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 35 23 5c 33 30 30 5c 32 30 37 22 20 5b	303#\300\301\304\305#\300\207".[
23940	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 2d	function-put.-andfn.pure.t.side-
23960	65 66 66 65 63 74 2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61	effect-free.error-free].5).(defa
23980	6c 69 61 73 20 27 2d 69 74 65 72 61 74 65 66 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31	lias.'-iteratefn.#[514."\300\301
239a0	02 04 23 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33	..#\207".[make-closure.#[257."\3
239c0	30 32 5c 33 30 33 01 5c 33 30 30 57 5c 32 30 33 16 00 5c 32 31 30 5c 32 31 31 01 54 5c 32 36 32	02\303.\300W\203..\210\211.T\262
239e0	02 5c 33 30 31 03 21 5c 32 36 32 03 5c 32 30 32 02 00 5c 32 36 36 02 5c 32 30 37 22 20 5b 56 30	.\301.!\262.\202..\266.\207".[V0
23a00	20 56 31 20 30 20 6e 69 6c 5d 20 35 20 28 23 24 20 2e 20 31 30 34 39 36 39 29 5d 5d 20 36 20 28	.V1.0.nil].5.(#$...104969)]].6.(
23a20	23 24 20 2e 20 31 34 35 32 37 35 29 5d 29 23 40 33 37 39 20 52 65 74 75 72 6e 20 61 20 63 6c 6f	#$...145275)])#@379.Return.a.clo
23a40	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 20 74 6f 20 45 4e 44	sure.that.counts.from.BEG.to.END
23a60	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 65 20 63 6c 6f 73 75	,.with.increment.INC...The.closu
23a80	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 61 6c 75 65 20 69 6e	re.will.return.the.next.value.in
23aa0	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 63 68 20 74 69 6d 65	.the.counting.sequence.each.time
23ac0	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 74 65 72 20 45 4e 44	.it.is.called,.and.nil.after.END
23ae0	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 20 74 6f 20 30 2c 20	.is.reached..BEG.defaults.to.0,.
23b00	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 20 45 4e 44 20 69 73	INC.defaults.to.1,.and.if.END.is
23b20	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 63 72 65 6d 65 6e 74	.nil,.the.counter.will.increment
23b40	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 72 65 20 61 63 63 65	.indefinitely...The.closure.acce
23b60	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 74 73 2c 20 77 68 69	pts.any.number.of.arguments,.whi
23b80	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 70 74 69 6f 6e 61 6c	ch.are.discarded...(fn.&optional
23ba0	20 42 45 47 20 45 4e 44 20 49 4e 43 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	.BEG.END.INC)..(byte-code."\300\
23bc0	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 33 30	301\302\303#\300\301\304\305#\30
23be0	30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 74 65 72 61 74 65 66 6e 20	0\207".[function-put.-iteratefn.
23c00	70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72	pure.t.side-effect-free.error-fr
23c20	65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 75 6e 74 65 72 20 23 5b 37 36 38	ee].5).(defalias.'-counter.#[768
23c40	20 22 5c 32 31 31 5c 32 30 36 05 00 5c 33 30 30 03 5c 32 30 36 5c 6e 00 5c 33 30 31 43 5c 33 30	."\211\206..\300.\206\n.\301C\30
23c60	32 5c 33 30 33 02 04 06 07 24 5c 32 30 37 22 20 5b 31 20 30 20 6d 61 6b 65 2d 63 6c 6f 73 75 72	2\303....$\207".[1.0.make-closur
23c80	65 20 23 5b 31 32 38 20 22 5c 33 30 32 5c 32 30 33 0b 00 5c 33 30 30 5c 32 34 32 5c 33 30 32 57	e.#[128."\302\203..\300\242\302W
23ca0	5c 32 30 35 14 00 5c 33 30 30 5c 32 34 32 5c 33 30 30 5c 32 31 31 5c 32 34 32 5c 33 30 31 5c 5c	\205..\300\242\300\211\242\301\\
23cc0	5c 32 34 30 5c 32 31 30 5c 32 30 37 22 20 5b 56 30 20 56 31 20 56 32 5d 20 35 20 28 23 24 20 2e	\240\210\207".[V0.V1.V2].5.(#$..
23ce0	20 31 34 32 33 34 37 29 5d 5d 20 31 30 20 28 23 24 20 2e 20 31 34 35 39 37 32 29 5d 29 23 40 39	.142347)]].10.(#$...145972)])#@9
23d00	34 20 54 68 65 20 64 65 66 61 75 6c 74 20 6d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20	4.The.default.maximum.number.of.
23d20	69 74 65 72 61 74 69 6f 6e 73 20 70 65 72 66 6f 72 6d 65 64 20 62 79 20 60 2d 66 69 78 66 6e 27	iterations.performed.by.`-fixfn'
23d40	0a 20 20 75 6e 6c 65 73 73 20 6f 74 68 65 72 77 69 73 65 20 73 70 65 63 69 66 69 65 64 2e 1f 0a	...unless.otherwise.specified...
23d60	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
23d80	30 5c 33 30 31 5c 33 30 34 5c 33 30 35 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f	0\301\304\305#\300\207".[functio
23da0	6e 2d 70 75 74 20 2d 63 6f 75 6e 74 65 72 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63	n-put.-counter.pure.t.side-effec
23dc0	74 2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 76 61 72 20 2d 66	t-free.error-free].5).(defvar.-f
23de0	69 78 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	ixfn-max-iterations.1000.(#$...1
23e00	34 36 36 39 30 29 29 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	46690))#@1190.Return.a.function.
23e20	74 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	that.computes.the.(least).fixpoi
23e40	6e 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	nt.of.FN...FN.must.be.a.unary.fu
23e60	6e 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	nction..The.returned.lambda.take
23e80	73 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	s.a.single.argument,.X,.the.init
23ea0	69 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	ial.value.for.the.fixpoint.itera
23ec0	74 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	tion..The.iteration.halts.when.e
23ee0	69 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	ither.of.the.following.condition
23f00	73 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	s.is.satisfied:...1..Iteration.c
23f20	6f 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	onverges.to.the.fixpoint,.with.e
23f40	71 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	quality.being.....tested.using.E
23f60	51 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	QUAL-TEST..If.EQUAL-TEST.is.not.
23f80	73 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	specified,.....`equal'.is.used..
23fa0	46 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	For.functions.over.the.floating.
23fc0	70 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	point.....numbers,.it.may.be.nec
23fe0	65 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	essary.to.provide.an.appropriate
24000	0a 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	.....approximate.comparison.test
24020	2e 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	....2..HALT-TEST.returns.a.non-n
24040	69 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	il.value..HALT-TEST.defaults.to.
24060	61 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	a.....simple.counter.that.return
24080	73 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	s.t.after.`-fixfn-max-iterations
240a0	27 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	',.....to.guard.against.infinite
240c0	20 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	.iteration..Otherwise,.HALT-TEST
240e0	0a 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	.....must.be.a.function.that.acc
24100	65 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	epts.a.single.argument,.the.....
24120	63 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	current.value.of.X,.and.returns.
24140	6e 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	non-nil.as.long.as.iteration....
24160	20 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	.should.continue..In.this.way,.a
24180	20 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	.more.sophisticated.....converge
241a0	6e 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	nce.test.may.be.supplied.by.the.
241c0	63 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	caller...The.return.value.of.the
241e0	20 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	.lambda.is.either.the.fixpoint.o
24200	72 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	r,.if.iteration.halted.before.co
24220	6e 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	nverging,.a.cons.with.car.`halte
24240	64 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	d'.and.cdr.the.final.output.from
24260	20 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	.HALT-TEST...In.types:.(a.->.a).
24280	2d 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	->.a.->.a...(fn.FN.&optional.EQU
242a0	41 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	AL-TEST.HALT-TEST)..(defalias.'-
242c0	66 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	fixfn.#[769.".\206..\301.\206..\
242e0	33 30 32 5c 33 30 33 5c 33 30 34 08 5c 22 21 5c 33 30 35 5c 33 30 36 02 04 06 08 24 5c 32 30 37	302\303\304.\"!\305\306....$\207
24300	22 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	".[-fixfn-max-iterations.equal.-
24320	6e 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	not.-counter.0.make-closure.#[25
24340	37 20 22 5c 33 30 32 01 21 5c 33 30 30 02 21 5c 32 31 31 5c 32 30 34 21 00 5c 33 30 31 03 03 5c	7."\302.!\300.!\211\204!.\301..\
24360	22 5c 32 30 34 21 00 01 5c 32 36 32 03 5c 33 30 32 02 21 5c 32 36 32 02 5c 33 30 30 02 21 5c 32	"\204!..\262.\302.!\262.\300.!\2
24380	36 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	62.\202..\211\203).\303.B\207.\2
243a0	30 37 22 20 5b 56 30 20 56 31 20 56 32 20 68 61 6c 74 65 64 5d 20 36 20 28 23 24 20 2e 20 31 30	07".[V0.V1.V2.halted].6.(#$...10
243c0	34 39 36 39 29 5d 5d 20 31 30 20 28 23 24 20 2e 20 31 34 36 39 35 38 29 5d 29 23 40 39 30 30 20	4969)]].10.(#$...146958)])#@900.
243e0	52 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	Return.a.function.that.applies.e
24400	61 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	ach.of.FNS.to.each.of.a.list.of.
24420	61 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	arguments...Takes.a.list.of.N.fu
24440	6e 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	nctions.and.returns.a.function.t
24460	68 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	hat.takes.a.list.of.length.N,.ap
24480	70 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	plying.Ith.function.to.Ith.eleme
244a0	6e 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	nt.of.the.input.list...Returns.a
244c0	20 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	.list.of.length.N...In.types.(fo
244e0	72 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	r.N=2):.((a.->.b),.(c.->.d)).->.
24500	28 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	(a,.c).->.(b,.d)..This.function.
24520	73 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	satisfies.the.following.laws:...
24540	20 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	...(-compose.(-prodfn.f.g....)..
24560	20 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	.............(-prodfn.f\='.g\='.
24580	2e 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	...))...=.(-prodfn.(-compose.f.f
245a0	5c 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	\=')..............(-compose.g.g\
245c0	3d 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	=').................)......(-pro
245e0	64 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	dfn.f.g....)...=.(-juxt.(-compos
24600	65 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	e.f.(-partial.#\='nth.0)).......
24620	20 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	.....(-compose.g.(-partial.#\='n
24640	74 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	th.1))...............)......(-co
24660	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 20 20 20 20 20 20	mpose.(-prodfn.f.g....).........
24680	20 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	......(-juxt.f\='.g\='....))...=
246a0	20 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	.(-juxt.(-compose.f.f\=').......
246c0	20 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	.....(-compose.g.g\=')..........
246e0	20 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	.....)......(-compose.(-partial.
24700	23 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	#\='nth.n)...............(-prod.
24720	66 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	f1.f2....))...=.(-compose.fn.(-p
24740	61 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	artial.#\='nth.n))..(fn.&rest.FN
24760	53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	S)..(byte-code."\300\301\302\303
24780	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 66 69 78 66 6e 20	#\300\207".[function-put.-fixfn.
247a0	69 6d 70 6f 72 74 61 6e 74 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 74 5d 20 34 29 0a 28 64 65	important-return-value.t].4).(de
247c0	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 30 5c 33 30 31 02	falias.'-prodfn.#[128."\300\301.
247e0	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 37 20 22 5c 32 31	\"\207".[make-closure.#[257."\21
24800	31 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 33 30 31 02 5c 32 30 33 29 00 5c 32 31 30 01 5c 32 34	1\301\300\302\301.\203).\210.\24
24820	32 04 5c 32 30 33 29 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 01 01 21 05 42 5c 32 36 32	2.\203)..\211A\262.\242..!.B\262
24840	05 5c 32 31 30 01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 05 00 5c 32 36 36 03 5c 32	.\210.T\262..A\262.\202..\266.\2
24860	33 37 5c 32 30 37 22 20 5b 56 30 20 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 31 30 34 39 36	37\207".[V0.nil.0].9.(#$...10496
24880	39 29 5d 5d 20 34 20 28 23 24 20 2e 20 31 34 38 34 34 38 29 5d 29 23 40 34 35 20 46 6f 6e 74 20	9)]].4.(#$...148448)])#@45.Font.
248a0	6c 6f 63 6b 20 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	lock.keywords.for.`dash-fontify-
248c0	6d 6f 64 65 27 2e 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	mode'...(byte-code."\300\301\302
248e0	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".
24900	5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 70 72 6f 64 66 6e 20 70 75 72 65 20 74 20 73 69 64	[function-put.-prodfn.pure.t.sid
24920	65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 76 61 72 20 64 61 73 68 2d 2d	e-effect-free].5).(defvar.dash--
24940	6b 65 79 77 6f 72 64 73 20 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 5c 33 30 32 42 5c 33	keywords.(byte-code."\301\302B\3
24960	30 33 5c 33 30 34 42 5c 33 30 35 08 5c 33 30 36 57 5c 32 30 35 11 00 5c 33 30 37 5c 33 31 30 42	03\304B\305.\306W\205..\307\310B
24980	43 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 73 69 6f 6e 20 22	CBBB\207".[emacs-major-version."
249a0	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 65 78 5c 5c 29 3f	\\_<\\(?:acc\\|it\\(?:-index\\)?
249c0	5c 5c 7c 6f 74 68 65 72 5c 5c 29 5c 5c 5f 3e 22 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 76 61 72 69	\\|other\\)\\_>".'font-lock-vari
249e0	61 62 6c 65 2d 6e 61 6d 65 2d 66 61 63 65 20 22 28 5c 5c 28 5c 5c 28 3f 3a 64 65 66 5c 5c 28 3f	able-name-face."(\\(\\(?:def\\(?
24a00	3a 2d 65 78 61 6d 70 6c 65 2d 67 72 6f 75 70 5c 5c 7c 65 78 61 6d 70 6c 65 73 5c 5c 29 5c 5c 29	:-example-group\\|examples\\)\\)
24a20	5c 5c 29 5c 5c 5f 3e 5b 09 20 5d 2b 5c 5c 28 5c 5c 28 3f 3a 5c 5c 77 5c 5c 7c 5c 5c 73 5f 5c 5c	\\)\\_>[..]+\\(\\(?:\\w\\|\\s_\\
24a40	7c 5c 5c 5c 5c 2e 5c 5c 29 2a 5c 5c 29 22 20 28 28 31 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65	|\\\\.\\)*\\)".((1.'font-lock-ke
24a60	79 77 6f 72 64 2d 66 61 63 65 29 20 28 32 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 75 6e 63 74 69	yword-face).(2.'font-lock-functi
24a80	6f 6e 2d 6e 61 6d 65 2d 66 61 63 65 29 29 20 22 5c 5c 5f 3c 5c 5c 28 3f 3a 5c 5c 28 3f 3a 21 21	on-name-face))."\\_<\\(?:\\(?:!!
24aa0	5c 5c 7c 5b 3d 7e 5d 5c 5c 29 3e 5c 5c 29 5c 5c 5f 3e 22 20 32 35 20 22 28 5c 5c 5f 3c 5c 5c 28	\\|[=~]\\)>\\)\\_>".25."(\\_<\\(
24ac0	21 63 5c 5c 28 3f 3a 64 72 5c 5c 7c 6f 6e 73 5c 5c 29 5c 5c 7c 2d 5c 5c 28 3f 3a 2d 5c 5c 28 3f	!c\\(?:dr\\|ons\\)\\|-\\(?:-\\(?
24ae0	3a 3e 5c 5c 7c 61 5c 5c 28 3f 3a 6c 6c 5c 5c 28 3f 3a 2d 70 5c 5c 7c 5c 5c 3f 5c 5c 29 5c 5c 7c	:>\\|a\\(?:ll\\(?:-p\\|\\?\\)\\|
24b00	6e 5c 5c 28 3f 3a 6e 6f 74 61 74 65 5c 5c 7c 79 5c 5c 28 3f 3a 2d 70 5c 5c 7c 5c 5c 3f 5c 5c 29	n\\(?:notate\\|y\\(?:-p\\|\\?\\)
24b20	3f 5c 5c 29 5c 5c 29 5c 5c 7c 63 6f 75 6e 74 5c 5c 7c 64 5c 5c 28 3f 3a 6f 74 5c 5c 28 3f 3a 69	?\\)\\)\\|count\\|d\\(?:ot\\(?:i
24b40	6d 65 73 5c 5c 7c 6f 5c 5c 29 5c 5c 7c 72 6f 70 2d 77 68 69 6c 65 5c 5c 29 5c 5c 7c 65 5c 5c 28	mes\\|o\\)\\|rop-while\\)\\|e\\(
24b60	3f 3a 61 63 68 5c 5c 28 3f 3a 2d 5c 5c 28 3f 3a 69 6e 64 65 78 65 64 5c 5c 7c 72 5c 5c 28 3f 3a	?:ach\\(?:-\\(?:indexed\\|r\\(?:
24b80	2d 77 68 69 6c 65 5c 5c 29 3f 5c 5c 7c 77 68 69 6c 65 5c 5c 29 5c 5c 29 3f 5c 5c 7c 76 65 72 79	-while\\)?\\|while\\)\\)?\\|very
24ba0	5c 5c 28 3f 3a 2d 70 5c 5c 7c 5c 5c 3f 5c 5c 29 3f 5c 5c 29 5c 5c 7c 66 69 5c 5c 28 3f 3a 6c 74	\\(?:-p\\|\\?\\)?\\)\\|fi\\(?:lt
24bc0	65 72 5c 5c 7c 6e 64 5c 5c 28 3f 3a 2d 5c 5c 28 3f 3a 69 6e 64 5c 5c 28 3f 3a 65 78 5c 5c 7c 69	er\\|nd\\(?:-\\(?:ind\\(?:ex\\|i
24be0	63 65 73 5c 5c 29 5c 5c 7c 6c 61 73 74 2d 69 6e 64 65 78 5c 5c 29 5c 5c 29 3f 5c 5c 7c 72 73 74	ces\\)\\|last-index\\)\\)?\\|rst
24c00	5c 5c 7c 78 5c 5c 29 5c 5c 7c 67 72 6f 75 70 2d 62 79 5c 5c 7c 69 5c 5c 28 3f 3a 66 2d 6c 65 74	\\|x\\)\\|group-by\\|i\\(?:f-let
24c20	5c 5c 7c 74 65 72 61 74 65 5c 5c 29 5c 5c 7c 6b 65 65 70 5c 5c 7c 6c 61 73 74 5c 5c 7c 6d 5c 5c	\\|terate\\)\\|keep\\|last\\|m\\
24c40	28 3f 3a 61 5c 5c 28 3f 3a 70 5c 5c 28 3f 3a 2d 5c 5c 28 3f 3a 66 69 72 73 74 5c 5c 7c 69 6e 64	(?:a\\(?:p\\(?:-\\(?:first\\|ind
24c60	65 78 65 64 5c 5c 7c 6c 61 73 74 5c 5c 7c 77 68 65 6e 5c 5c 29 5c 5c 7c 63 61 74 5c 5c 29 3f 5c	exed\\|last\\|when\\)\\|cat\\)?\
24c80	5c 7c 78 2d 62 79 5c 5c 29 5c 5c 7c 69 6e 2d 62 79 5c 5c 29 5c 5c 7c 6e 6f 6e 65 5c 5c 28 3f 3a	\|x-by\\)\\|in-by\\)\\|none\\(?:
24ca0	2d 70 5c 5c 7c 5c 5c 3f 5c 5c 29 5c 5c 7c 6f 6e 6c 79 2d 73 6f 6d 65 5c 5c 28 3f 3a 2d 70 5c 5c	-p\\|\\?\\)\\|only-some\\(?:-p\\
24cc0	7c 5c 5c 3f 5c 5c 29 5c 5c 7c 70 61 72 74 69 74 69 6f 6e 2d 5c 5c 28 3f 3a 61 66 74 65 72 2d 70	|\\?\\)\\|partition-\\(?:after-p
24ce0	72 65 64 5c 5c 7c 62 79 5c 5c 28 3f 3a 2d 68 65 61 64 65 72 5c 5c 29 3f 5c 5c 29 5c 5c 7c 72 65	red\\|by\\(?:-header\\)?\\)\\|re
24d00	5c 5c 28 3f 3a 64 75 63 5c 5c 28 3f 3a 65 5c 5c 28 3f 3a 2d 5c 5c 28 3f 3a 66 72 6f 6d 5c 5c 7c	\\(?:duc\\(?:e\\(?:-\\(?:from\\|
24d20	72 5c 5c 28 3f 3a 2d 66 72 6f 6d 5c 5c 29 3f 5c 5c 29 5c 5c 29 3f 5c 5c 7c 74 69 6f 6e 73 5c 5c	r\\(?:-from\\)?\\)\\)?\\|tions\\
24d40	28 3f 3a 2d 5c 5c 28 3f 3a 66 72 6f 6d 5c 5c 7c 72 5c 5c 28 3f 3a 2d 66 72 6f 6d 5c 5c 29 3f 5c	(?:-\\(?:from\\|r\\(?:-from\\)?\
24d60	5c 29 5c 5c 29 3f 5c 5c 29 5c 5c 7c 6a 65 63 74 5c 5c 28 3f 3a 2d 5c 5c 28 3f 3a 5c 5c 28 3f 3a	\)\\)?\\)\\|ject\\(?:-\\(?:\\(?:
24d80	66 69 72 5c 5c 7c 6c 61 5c 5c 29 73 74 5c 5c 29 5c 5c 29 3f 5c 5c 7c 6d 6f 76 65 5c 5c 28 3f 3a	fir\\|la\\)st\\)\\)?\\|move\\(?:
24da0	2d 5c 5c 28 3f 3a 5c 5c 28 3f 3a 66 69 72 5c 5c 7c 6c 61 5c 5c 29 73 74 5c 5c 29 5c 5c 29 3f 5c	-\\(?:\\(?:fir\\|la\\)st\\)\\)?\
24dc0	5c 7c 70 6c 61 63 65 2d 77 68 65 72 65 5c 5c 29 5c 5c 7c 73 5c 5c 28 3f 3a 65 5c 5c 28 3f 3a 6c	\|place-where\\)\\|s\\(?:e\\(?:l
24de0	65 63 74 5c 5c 7c 70 61 72 61 74 65 5c 5c 29 5c 5c 7c 6f 5c 5c 28 3f 3a 6d 65 5c 5c 28 3f 3a 2d	ect\\|parate\\)\\|o\\(?:me\\(?:-
24e00	70 5c 5c 7c 5c 5c 3f 5c 5c 29 3f 5c 5c 7c 72 74 5c 5c 29 5c 5c 7c 70 6c 69 5c 5c 28 3f 3a 63 65	p\\|\\?\\)?\\|rt\\)\\|pli\\(?:ce
24e20	5c 5c 28 3f 3a 2d 6c 69 73 74 5c 5c 29 3f 5c 5c 7c 74 2d 77 5c 5c 28 3f 3a 68 65 6e 5c 5c 7c 69	\\(?:-list\\)?\\|t-w\\(?:hen\\|i
24e40	74 68 5c 5c 29 5c 5c 29 5c 5c 29 5c 5c 7c 74 5c 5c 28 3f 3a 61 6b 65 2d 77 68 69 6c 65 5c 5c 7c	th\\)\\)\\)\\|t\\(?:ake-while\\|
24e60	72 65 65 2d 5c 5c 28 3f 3a 6d 61 70 5c 5c 28 3f 3a 2d 6e 6f 64 65 73 5c 5c 7c 72 65 64 75 63 65	ree-\\(?:map\\(?:-nodes\\|reduce
24e80	5c 5c 28 3f 3a 2d 66 72 6f 6d 5c 5c 29 3f 5c 5c 29 3f 5c 5c 7c 72 65 64 75 63 65 5c 5c 28 3f 3a	\\(?:-from\\)?\\)?\\|reduce\\(?:
24ea0	2d 66 72 6f 6d 5c 5c 29 3f 5c 5c 7c 73 65 71 5c 5c 29 5c 5c 29 5c 5c 7c 75 5c 5c 28 3f 3a 6e 66	-from\\)?\\|seq\\)\\)\\|u\\(?:nf
24ec0	6f 6c 64 5c 5c 7c 70 64 61 74 65 2d 61 74 5c 5c 29 5c 5c 7c 77 68 65 6e 2d 6c 65 74 5c 5c 7c 7a	old\\|pdate-at\\)\\|when-let\\|z
24ee0	69 70 2d 77 69 74 68 5c 5c 29 5c 5c 7c 3e 3e 3f 5c 5c 7c 61 73 2d 3e 5c 5c 7c 63 75 74 5c 5c 7c	ip-with\\)\\|>>?\\|as->\\|cut\\|
24f00	64 6f 74 6f 5c 5c 7c 69 66 2d 6c 65 74 5c 5c 2a 3f 5c 5c 7c 6c 5c 5c 28 3f 3a 61 6d 62 64 61 5c	doto\\|if-let\\*?\\|l\\(?:ambda\
24f20	5c 7c 65 74 5c 5c 2a 3f 5c 5c 29 5c 5c 7c 73 5c 5c 28 3f 3a 65 74 71 5c 5c 7c 6f 6d 65 2d 5c 5c	\|et\\*?\\)\\|s\\(?:etq\\|ome-\\
24f40	28 3f 3a 5b 3e 2d 5d 3f 3e 5c 5c 29 5c 5c 7c 70 6c 69 74 2d 6f 6e 5c 5c 29 5c 5c 7c 77 68 65 6e	(?:[>-]?>\\)\\|plit-on\\)\\|when
24f60	2d 6c 65 74 5c 5c 2a 3f 5c 5c 29 5c 5c 29 5c 5c 5f 3e 22 20 31 5d 20 35 29 20 28 23 24 20 2e 20	-let\\*?\\)\\)\\_>".1].5).(#$...
24f80	31 34 39 36 35 39 29 29 23 40 31 36 31 20 4d 6f 64 65 20 6c 69 6e 65 20 6c 69 67 68 74 65 72 20	149659))#@161.Mode.line.lighter.
24fa0	66 6f 72 20 60 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27 2e 0a 45 69 74 68 65 72 20	for.`dash-fontify-mode'..Either.
24fc0	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 64 65 20	a.string.to.display.in.the.mode.
24fe0	6c 69 6e 65 20 77 68 65 6e 0a 60 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27 20 69 73	line.when.`dash-fontify-mode'.is
25000	20 6f 6e 2c 20 6f 72 20 6e 69 6c 20 74 6f 20 64 69 73 70 6c 61 79 0a 6e 6f 74 68 69 6e 67 20 28	.on,.or.nil.to.display.nothing.(
25020	74 68 65 20 64 65 66 61 75 6c 74 29 2e 1f 23 40 32 20 1f 23 40 31 30 33 20 4e 6f 6e 2d 6e 69 6c	the.default)..#@2..#@103.Non-nil
25040	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 6e 61 62 6c 65 64	.if.Dash-Fontify.mode.is.enabled
25060	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 6e 74 69 66 79 2d	..Use.the.command.`dash-fontify-
25080	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 62 6c 65 2e 1f 0a	mode'.to.change.this.variable...
250a0	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 5c 33 30 34	(byte-code."\300\301\302\303\304
250c0	44 44 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 26 07 5c 32 30 37 22 20 5b 63	DD\305\306\307\310\311&.\207".[c
250e0	75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 64 61 73 68 2d 66 6f 6e 74	ustom-declare-variable.dash-font
25100	69 66 79 2d 6d 6f 64 65 2d 6c 69 67 68 74 65 72 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f	ify-mode-lighter.funcall.functio
25120	6e 20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 31 20 28 23 24 20 2e 20 31	n.#[0."\300\207".[nil].1.(#$...1
25140	35 31 36 30 32 29 5d 20 28 23 24 20 2e 20 31 35 31 34 33 38 29 20 3a 70 61 63 6b 61 67 65 2d 76	51602)].(#$...151438).:package-v
25160	65 72 73 69 6f 6e 20 28 64 61 73 68 20 2e 20 22 32 2e 31 38 2e 30 22 29 20 3a 74 79 70 65 20 28	ersion.(dash..."2.18.0").:type.(
25180	63 68 6f 69 63 65 20 28 73 74 72 69 6e 67 20 3a 74 61 67 20 22 4c 69 67 68 74 65 72 22 20 3a 76	choice.(string.:tag."Lighter".:v
251a0	61 6c 75 65 20 22 20 44 61 73 68 22 29 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 4e 6f 74 68 69	alue.".Dash").(const.:tag."Nothi
251c0	6e 67 22 20 6e 69 6c 29 29 5d 20 38 29 0a 28 64 65 66 76 61 72 20 64 61 73 68 2d 66 6f 6e 74 69	ng".nil))].8).(defvar.dash-fonti
251e0	66 79 2d 6d 6f 64 65 20 6e 69 6c 20 28 23 24 20 2e 20 31 35 31 36 30 39 29 29 23 40 31 30 34 39	fy-mode.nil.(#$...151609))#@1049
25200	20 54 6f 67 67 6c 65 20 66 6f 6e 74 69 66 69 63 61 74 69 6f 6e 20 6f 66 20 44 61 73 68 20 73 70	.Toggle.fontification.of.Dash.sp
25220	65 63 69 61 6c 20 76 61 72 69 61 62 6c 65 73 2e 0a 0a 44 61 73 68 2d 46 6f 6e 74 69 66 79 20 6d	ecial.variables...Dash-Fontify.m
25240	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 6f 64 65	ode.is.a.buffer-local.minor.mode
25260	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 65 72 73	.intended.for.Emacs.Lisp.buffers
25280	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 63 69 61	...Enabling.it.causes.the.specia
252a0	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 63 20 44	l.variables.bound.in.anaphoric.D
252c0	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 54 68 65	ash.macros.to.be.fontified...The
252e0	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 74 2d 69	se.anaphoras.include.`it',.`it-i
25300	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 6e 20 6f	ndex',.`acc',.and.`other'...In.o
25320	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 6e 6f 74	lder.Emacs.versions.which.do.not
25340	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 61 73 68	.dynamically.detect.macros,.Dash
25360	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 6e 74 69	-Fontify.mode.additionally.fonti
25380	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 6c 73 6f	fies.Dash.macro.calls...See.also
253a0	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 61 6e 64	.`dash-fontify-mode-lighter'.and
253c0	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 0a 54 68	.`global-dash-fontify-mode'...Th
253e0	69 73 20 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	is.is.a.minor.mode...If.called.i
25400	6e 74 65 72 61 63 74 69 76 65 6c 79 2c 20 74 6f 67 67 6c 65 20 74 68 65 20 60 44 61 73 68 2d 46	nteractively,.toggle.the.`Dash-F
25420	6f 6e 74 69 66 79 0a 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	ontify.mode'.mode...If.the.prefi
25440	78 20 61 72 67 75 6d 65 6e 74 20 69 73 20 70 6f 73 69 74 69 76 65 2c 20 65 6e 61 62 6c 65 20 74	x.argument.is.positive,.enable.t
25460	68 65 20 6d 6f 64 65 2c 20 61 6e 64 20 69 66 0a 69 74 20 69 73 20 7a 65 72 6f 20 6f 72 20 6e 65	he.mode,.and.if.it.is.zero.or.ne
25480	67 61 74 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	gative,.disable.the.mode...If.ca
254a0	6c 6c 65 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	lled.from.Lisp,.toggle.the.mode.
254c0	69 66 20 41 52 47 20 69 73 20 60 74 6f 67 67 6c 65 27 2e 20 20 45 6e 61 62 6c 65 20 74 68 65 0a	if.ARG.is.`toggle'...Enable.the.
254e0	6d 6f 64 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	mode.if.ARG.is.nil,.omitted,.or.
25500	69 73 20 61 20 70 6f 73 69 74 69 76 65 20 6e 75 6d 62 65 72 2e 20 20 44 69 73 61 62 6c 65 20 74	is.a.positive.number...Disable.t
25520	68 65 20 6d 6f 64 65 0a 69 66 20 41 52 47 20 69 73 20 61 20 6e 65 67 61 74 69 76 65 20 6e 75 6d	he.mode.if.ARG.is.a.negative.num
25540	62 65 72 2e 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	ber...To.check.whether.the.minor
25560	20 6d 6f 64 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	.mode.is.enabled.in.the.current.
25580	62 75 66 66 65 72 2c 0a 65 76 61 6c 75 61 74 65 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 60 64	buffer,.evaluate.the.variable.`d
255a0	61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27 2e 0a 0a 54 68 65 20 6d 6f 64 65 27 73 20 68	ash-fontify-mode'...The.mode's.h
255c0	6f 6f 6b 20 69 73 20 63 61 6c 6c 65 64 20 62 6f 74 68 20 77 68 65 6e 20 74 68 65 20 6d 6f 64 65	ook.is.called.both.when.the.mode
255e0	20 69 73 20 65 6e 61 62 6c 65 64 20 61 6e 64 20 77 68 65 6e 20 69 74 20 69 73 0a 64 69 73 61 62	.is.enabled.and.when.it.is.disab
25600	6c 65 64 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 41 52 47 29 1f 0a 28 6d 61 6b 65 2d	led...(fn.&optional.ARG)..(make-
25620	76 61 72 69 61 62 6c 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	variable-buffer-local.'dash-font
25640	69 66 79 2d 6d 6f 64 65 29 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 66 6f 6e 74 69 66	ify-mode).(defalias.'dash-fontif
25660	79 2d 6d 6f 64 65 20 23 5b 32 35 36 20 22 5c 33 30 33 20 01 5c 33 30 34 3d 5c 32 30 33 0d 00 08	y-mode.#[256."\303..\304=\203...
25680	3f 5c 32 30 32 1d 00 01 5c 32 34 37 5c 32 30 33 1c 00 01 5c 33 30 35 57 5c 32 30 33 1c 00 5c 33	?\202...\247\203...\305W\203..\3
256a0	30 36 5c 32 30 32 1d 00 5c 33 30 37 10 5c 33 31 30 5c 33 30 31 21 5c 32 30 33 31 00 5c 33 31 31	06\202..\307.\310\301!\2031.\311
256c0	5c 33 30 30 09 5c 22 11 08 5c 32 30 33 31 00 5c 33 30 30 09 42 11 08 5c 32 30 33 3e 00 5c 33 31	\300.\"..\2031.\300.B..\203>.\31
256e0	32 5c 33 30 36 5c 6e 5c 33 30 37 23 5c 32 31 30 5c 32 30 32 43 00 5c 33 31 33 5c 33 30 36 5c 6e	2\306\n\307#\210\202C.\313\306\n
25700	5c 22 5c 32 31 30 5c 33 31 34 20 5c 32 31 30 5c 33 31 35 5c 33 31 36 08 5c 32 30 33 50 00 5c 33	\"\210\314.\210\315\316.\203P.\3
25720	31 37 5c 32 30 32 51 00 5c 33 32 30 5c 22 5c 32 31 30 5c 33 32 31 5c 33 32 32 21 5c 32 30 33 74	17\202Q.\320\"\210\321\322!\203t
25740	00 5c 33 30 33 20 5c 32 30 33 65 00 5c 32 31 31 5c 33 30 33 20 5c 32 33 32 5c 32 30 33 74 00 5c	.\303.\203e.\211\303.\232\203t.\
25760	33 32 33 5c 33 32 34 5c 33 32 35 08 5c 32 30 33 70 00 5c 33 32 36 5c 32 30 32 71 00 5c 33 32 37	323\324\325.\203p.\326\202q.\327
25780	5c 33 33 30 24 5c 32 31 30 5c 32 31 30 5c 33 33 31 20 08 5c 32 30 37 22 20 5b 64 61 73 68 2d 66	\330$\210\210\331..\207".[dash-f
257a0	6f 6e 74 69 66 79 2d 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	ontify-mode.local-minor-modes.da
257c0	73 68 2d 2d 6b 65 79 77 6f 72 64 73 20 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 74 6f 67	sh--keywords.current-message.tog
257e0	67 6c 65 20 31 20 6e 69 6c 20 74 20 62 6f 75 6e 64 70 20 64 65 6c 71 20 66 6f 6e 74 2d 6c 6f 63	gle.1.nil.t.boundp.delq.font-loc
25800	6b 2d 61 64 64 2d 6b 65 79 77 6f 72 64 73 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 72 65 6d 6f 76 65 2d	k-add-keywords.font-lock-remove-
25820	6b 65 79 77 6f 72 64 73 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 6c 75 73 68 20 72 75 6e 2d 68 6f 6f	keywords.font-lock-flush.run-hoo
25840	6b 73 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 64 61 73 68 2d 66	ks.dash-fontify-mode-hook.dash-f
25860	6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6f 6e 2d 68 6f 6f 6b 20 64 61 73 68 2d 66 6f 6e 74 69 66 79	ontify-mode-on-hook.dash-fontify
25880	2d 6d 6f 64 65 2d 6f 66 66 2d 68 6f 6f 6b 20 63 61 6c 6c 65 64 2d 69 6e 74 65 72 61 63 74 69 76	-mode-off-hook.called-interactiv
258a0	65 6c 79 2d 70 20 61 6e 79 20 6d 65 73 73 61 67 65 20 22 25 73 20 25 73 61 62 6c 65 64 25 73 22	ely-p.any.message."%s.%sabled%s"
258c0	20 22 44 61 73 68 2d 46 6f 6e 74 69 66 79 20 6d 6f 64 65 22 20 22 65 6e 22 20 22 64 69 73 22 20	."Dash-Fontify.mode"."en"."dis".
258e0	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 6f 64 65 2d	".in.current.buffer".force-mode-
25900	6c 69 6e 65 2d 75 70 64 61 74 65 5d 20 38 20 28 23 24 20 2e 20 31 35 32 30 36 35 29 20 28 62 79	line-update].8.(#$...152065).(by
25920	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 00 5c 33 30	te-code.".\203\n.\301.!\202..\30
25940	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 70 72 65 66	2C\207".[current-prefix-arg.pref
25960	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 29 0a 28 64	ix-numeric-value.toggle].2)]).(d
25980	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 20 6e 69 6c	efvar.dash-fontify-mode-hook.nil
259a0	29 23 40 35 36 20 45 6e 61 62 6c 65 20 60 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27	)#@56.Enable.`dash-fontify-mode'
259c0	20 69 66 20 69 6e 20 61 6e 20 45 6d 61 63 73 20 4c 69 73 70 20 62 75 66 66 65 72 2e 1f 0a 28 62	.if.in.an.Emacs.Lisp.buffer...(b
259e0	79 74 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	yte-code."\301\302N\204\f.\303\3
25a00	30 31 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	01\302\304#\210\303\301\305\306#
25a20	5c 32 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	\210\303\301\307\310C#\210\311\3
25a40	31 32 5c 33 31 33 5c 33 31 34 5c 33 30 30 21 5c 32 30 35 23 00 08 5c 33 31 30 5c 32 31 31 25 5c	12\313\314\300!\205#..\310\211%\
25a60	32 30 37 22 20 5b 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6d 61 70 20 64 61 73 68	207".[dash-fontify-mode-map.dash
25a80	2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75	-fontify-mode-hook.variable-docu
25aa0	6d 65 6e 74 61 74 69 6f 6e 20 70 75 74 20 22 48 6f 6f 6b 20 72 75 6e 20 61 66 74 65 72 20 65 6e	mentation.put."Hook.run.after.en
25ac0	74 65 72 69 6e 67 20 6f 72 20 6c 65 61 76 69 6e 67 20 60 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d	tering.or.leaving.`dash-fontify-
25ae0	6d 6f 64 65 27 2e 5c 6e 4e 6f 20 70 72 6f 62 6c 65 6d 73 20 72 65 73 75 6c 74 20 69 66 20 74 68	mode'.\nNo.problems.result.if.th
25b00	69 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f 74 20 62 6f 75 6e 64 2e 5c 6e 60 61 64 64 2d	is.variable.is.not.bound.\n`add-
25b20	68 6f 6f 6b 27 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 62 69 6e 64 73 20 69 74 2e 20 20 28	hook'.automatically.binds.it...(
25b40	54 68 69 73 20 69 73 20 74 72 75 65 20 66 6f 72 20 61 6c 6c 20 68 6f 6f 6b 20 76 61 72 69 61 62	This.is.true.for.all.hook.variab
25b60	6c 65 73 2e 29 22 20 63 75 73 74 6f 6d 2d 74 79 70 65 20 68 6f 6f 6b 20 73 74 61 6e 64 61 72 64	les.)".custom-type.hook.standard
25b80	2d 76 61 6c 75 65 20 6e 69 6c 20 61 64 64 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 64 61 73 68 2d 66	-value.nil.add-minor-mode.dash-f
25ba0	6f 6e 74 69 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 2d 6c 69	ontify-mode.dash-fontify-mode-li
25bc0	67 68 74 65 72 20 62 6f 75 6e 64 70 5d 20 36 29 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68	ghter.boundp].6).(defalias.'dash
25be0	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 22 5c 33 30 30	--turn-on-fontify-mode.#[0."\300
25c00	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 76 65 64 2d 6d	\301!\205..\302.\207".[derived-m
25c20	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 66 6f 6e 74 69	ode-p.emacs-lisp-mode.dash-fonti
25c40	66 79 2d 6d 6f 64 65 5d 20 32 20 28 23 24 20 2e 20 31 35 34 30 32 32 29 5d 29 0a 28 70 75 74 20	fy-mode].2.(#$...154022)]).(put.
25c60	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 67 6c 6f 62 61	'global-dash-fontify-mode.'globa
25c80	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 20 64 61 73 68	lized-minor-mode.t).(defvar.dash
25ca0	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 6c 29 23 40 32	-fontify-mode-major-mode.nil)#@2
25cc0	39 33 20 4e 6f 6e 2d 6e 69 6c 20 69 66 20 47 6c 6f 62 61 6c 20 44 61 73 68 2d 46 6f 6e 74 69 66	93.Non-nil.if.Global.Dash-Fontif
25ce0	79 20 6d 6f 64 65 20 69 73 20 65 6e 61 62 6c 65 64 2e 0a 53 65 65 20 74 68 65 20 60 67 6c 6f 62	y.mode.is.enabled..See.the.`glob
25d00	61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27 20 63 6f 6d 6d 61 6e 64 0a 66 6f	al-dash-fontify-mode'.command.fo
25d20	72 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 69 73 20 6d 69 6e 6f 72 20 6d 6f	r.a.description.of.this.minor.mo
25d40	64 65 2e 0a 53 65 74 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	de..Setting.this.variable.direct
25d60	6c 79 20 64 6f 65 73 20 6e 6f 74 20 74 61 6b 65 20 65 66 66 65 63 74 3b 0a 65 69 74 68 65 72 20	ly.does.not.take.effect;.either.
25d80	63 75 73 74 6f 6d 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	customize.it.(see.the.info.node.
25da0	60 45 61 73 79 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 27 29 0a 6f 72 20 63 61 6c 6c 20 74 68	`Easy.Customization').or.call.th
25dc0	65 20 66 75 6e 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	e.function.`global-dash-fontify-
25de0	6d 6f 64 65 27 2e 1f 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	mode'..#@484.Toggle.Dash-Fontify
25e00	20 6d 6f 64 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	.mode.in.all.buffers..With.prefi
25e20	78 20 41 52 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	x.ARG,.enable.Global.Dash-Fontif
25e40	79 20 6d 6f 64 65 20 69 66 20 41 52 47 20 69 73 20 70 6f 73 69 74 69 76 65 3b 20 6f 74 68 65 72	y.mode.if.ARG.is.positive;.other
25e60	77 69 73 65 2c 0a 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	wise,.disable.it...If.called.fro
25e80	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 41 52 47 20 69	m.Lisp,.toggle.the.mode.if.ARG.i
25ea0	73 20 60 74 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	s.`toggle'..Enable.the.mode.if.A
25ec0	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 61 20 70 6f 73 69	RG.is.nil,.omitted,.or.is.a.posi
25ee0	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 6f 64 65 20 69 66	tive.number..Disable.the.mode.if
25f00	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 0a 0a 44 61 73 68	.ARG.is.a.negative.number...Dash
25f20	2d 46 6f 6e 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	-Fontify.mode.is.enabled.in.all.
25f40	62 75 66 66 65 72 73 20 77 68 65 72 65 20 60 64 61 73 68 2d 2d 74 75 72 6e 2d 6f 6e 2d 66 6f 6e	buffers.where.`dash--turn-on-fon
25f60	74 69 66 79 2d 6d 6f 64 65 27 0a 77 6f 75 6c 64 20 64 6f 20 69 74 2e 0a 0a 53 65 65 20 60 64 61	tify-mode'.would.do.it...See.`da
25f80	73 68 2d 66 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	sh-fontify-mode'.for.more.inform
25fa0	61 74 69 6f 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	ation.on.Dash-Fontify.mode...(fn
25fc0	20 26 6f 70 74 69 6f 6e 61 6c 20 41 52 47 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	.&optional.ARG)..(byte-code."\30
25fe0	30 5c 33 30 31 21 5c 32 31 30 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 44 44	0\301!\210\302\303\304\305\306DD
26000	5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 26 09 5c 32	\307\310\311\312\313\314\315&.\2
26020	30 37 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	07".[make-variable-buffer-local.
26040	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 63 75 73	dash-fontify-mode-major-mode.cus
26060	74 6f 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	tom-declare-variable.global-dash
26080	2d 66 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	-fontify-mode.funcall.function.#
260a0	5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 31 20 28 23 24 20 2e 20 31 35 31 36	[0."\300\207".[nil].1.(#$...1516
260c0	30 32 29 5d 20 28 23 24 20 2e 20 31 35 34 38 31 39 29 20 3a 73 65 74 20 63 75 73 74 6f 6d 2d 73	02)].(#$...154819).:set.custom-s
260e0	65 74 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 3a 69 6e 69 74 69 61 6c 69 7a 65 20 63 75 73 74 6f 6d	et-minor-mode.:initialize.custom
26100	2d 69 6e 69 74 69 61 6c 69 7a 65 2d 64 65 66 61 75 6c 74 20 3a 74 79 70 65 20 62 6f 6f 6c 65 61	-initialize-default.:type.boolea
26120	6e 5d 20 31 30 29 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	n].10).(defalias.'global-dash-fo
26140	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 34 5c 33 30 31 03	ntify-mode.#[256."\303.\304\301.
26160	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 00 03 5c 32 34 37	\305=\203..\306\301!?\202!..\247
26180	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 21 00 5c 33 31 31	\203...\307W\203..\310\202!.\311
261a0	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 33 30 31 08 5c 22	\"\210\312\300!\2038.\313\301.\"
261c0	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 30 33 44 00 5c 33	.\306\301!\2038.\301.B..\203D.\3
261e0	31 34 5c 33 31 35 5c 33 31 36 5c 22 5c 32 31 30 5c 32 30 32 49 00 5c 33 31 37 5c 33 31 35 5c 33	14\315\316\"\210\202I.\317\315\3
26200	31 36 5c 22 5c 32 31 30 5c 33 32 30 20 5c 32 31 31 5c 32 30 33 6d 00 5c 32 31 31 40 72 5c 32 31	16\"\210\320.\211\203m.\211@r\21
26220	31 71 5c 32 31 30 09 5c 32 30 33 5f 00 5c 33 32 31 20 5c 32 31 30 5c 32 30 32 67 00 5c 6e 5c 32	1q\210.\203_.\321.\210\202g.\n\2
26240	30 33 67 00 5c 33 30 32 5c 33 32 32 21 5c 32 31 30 29 5c 32 31 30 41 5c 32 30 32 4b 00 5c 32 31	03g.\302\322!\210)\210A\202K.\21
26260	30 5c 33 32 33 5c 33 32 34 5c 33 30 36 5c 33 30 31 21 5c 32 30 33 7a 00 5c 33 32 35 5c 32 30 32	0\323\324\306\301!\203z.\325\202
26280	7b 00 5c 33 32 36 5c 22 5c 32 31 30 5c 33 32 37 5c 33 33 30 21 5c 32 30 33 5c 32 34 34 00 5c 33	{.\326\"\210\327\330!\203\244.\3
262a0	33 31 5c 33 30 31 21 5c 32 31 30 5c 33 30 33 20 5c 32 30 33 5c 32 32 33 00 5c 32 31 31 5c 33 30	31\301!\210\303.\203\223.\211\30
262c0	33 20 5c 32 33 32 5c 32 30 33 5c 32 34 34 00 5c 33 33 32 5c 33 33 33 5c 33 33 34 5c 33 30 36 5c	3.\232\203\244.\332\333\334\306\
262e0	33 30 31 21 5c 32 30 33 5c 32 34 30 00 5c 33 33 35 5c 32 30 32 5c 32 34 31 00 5c 33 33 36 5c 33	301!\203\240.\335\202\241.\336\3
26300	33 37 24 5c 32 31 30 5c 32 31 30 5c 33 34 30 20 5c 32 31 30 5c 33 30 36 5c 33 30 31 21 5c 32 30	37$\210\210\340.\210\306\301!\20
26320	37 22 20 5b 67 6c 6f 62 61 6c 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 73 20 67 6c 6f 62 61 6c 2d 64 61	7".[global-minor-modes.global-da
26340	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 2d 6d 6f 64	sh-fontify-mode.dash-fontify-mod
26360	65 20 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 73 65 74 2d 64 65 66 61 75 6c 74 20 74 6f	e.current-message.set-default.to
26380	67 67 6c 65 20 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 20 31 20 6e 69 6c 20 74 20 62 6f 75 6e 64	ggle.default-value.1.nil.t.bound
263a0	70 20 64 65 6c 71 20 61 64 64 2d 68 6f 6f 6b 20 61 66 74 65 72 2d 63 68 61 6e 67 65 2d 6d 61 6a	p.delq.add-hook.after-change-maj
263c0	6f 72 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79	or-mode-hook.global-dash-fontify
263e0	2d 6d 6f 64 65 2d 65 6e 61 62 6c 65 2d 69 6e 2d 62 75 66 66 65 72 20 72 65 6d 6f 76 65 2d 68 6f	-mode-enable-in-buffer.remove-ho
26400	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 2d 66 6f 6e	ok.buffer-list.dash--turn-on-fon
26420	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 6c 2d 64 61	tify-mode.-1.run-hooks.global-da
26440	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 64 61 73 68	sh-fontify-mode-hook.global-dash
26460	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 2d 64 61 73	-fontify-mode-on-hook.global-das
26480	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
264a0	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 2d 6d 61 72	nteractively-p.any.customize-mar
264c0	6b 2d 61 73 2d 73 65 74 20 6d 65 73 73 61 67 65 20 22 25 73 20 25 73 61 62 6c 65 64 25 73 22 20	k-as-set.message."%s.%sabled%s".
264e0	22 47 6c 6f 62 61 6c 20 44 61 73 68 2d 46 6f 6e 74 69 66 79 20 6d 6f 64 65 22 20 22 65 6e 22 20	"Global.Dash-Fontify.mode"."en".
26500	22 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	"dis"."".force-mode-line-update]
26520	20 37 20 28 23 24 20 2e 20 31 35 35 31 31 37 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 5c 32	.7.(#$...155117).(byte-code.".\2
26540	30 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	03\n.\301.!\202..\302C\207".[cur
26560	72 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	rent-prefix-arg.prefix-numeric-v
26580	61 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	alue.toggle].2)]).(defvar.global
265a0	2d 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	-dash-fontify-mode-hook.nil).(by
265c0	74 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	te-code."\301\302N\204\f.\303\30
265e0	31 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	1\302\304#\210\303\301\305\306#\
26600	32 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	210\303\301\307\310C#\210\311\31
26620	32 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	2\310\313\300!\205#..\310\211%\2
26640	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 6d 61	07".[global-dash-fontify-mode-ma
26660	70 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	p.global-dash-fontify-mode-hook.
26680	76 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	variable-documentation.put."Hook
266a0	20 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	.run.after.entering.or.leaving.`
266c0	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 5c 6e 4e 6f 20 70	global-dash-fontify-mode'.\nNo.p
266e0	72 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	roblems.result.if.this.variable.
26700	69 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	is.not.bound.\n`add-hook'.automa
26720	74 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	tically.binds.it...(This.is.true
26740	20 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	.for.all.hook.variables.)".custo
26760	6d 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	m-type.hook.standard-value.nil.a
26780	64 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	dd-minor-mode.global-dash-fontif
267a0	79 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	y-mode.boundp].6).(defvar.dash-f
267c0	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 20 6e 69 6c 29 0a	ontify-mode-set-explicitly.nil).
267e0	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 64 61 73	(make-variable-buffer-local.'das
26800	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 29 0a 28	h-fontify-mode-set-explicitly).(
26820	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 65 74 2d	defalias.'dash-fontify-mode-set-
26840	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 22 20 5b	explicitly.#[0."\301\211.\207".[
26860	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
26880	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 33 30 32	.t].2]).(byte-code."\300\301\302
268a0	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 5b 70 75	\303#\210\304\305\301\"\207".[pu
268c0	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 63 69 74	t.dash-fontify-mode-set-explicit
268e0	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 68 2d 66	ly.definition-name.global-dash-f
26900	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 74 69 66	ontify-mode.add-hook.dash-fontif
26920	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 6c 2d 64	y-mode-hook].4).(defvar.global-d
26940	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 0a 28 64	ash-fontify-mode-buffers.nil).(d
26960	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 6d 6f 64	efalias.'global-dash-fontify-mod
26980	65 2d 65 6e 61 62 6c 65 2d 69 6e 2d 62 75 66 66 65 72 20 23 5b 30 20 22 5c 33 30 35 70 08 5c 22	e-enable-in-buffer.#[0."\305p.\"
269a0	10 09 5c 32 30 34 20 00 5c 6e 0b 3d 5c 32 30 34 20 00 5c 66 5c 32 30 33 1d 00 5c 33 30 34 5c 33	..\204..\n.=\204..\f\203..\304\3
269c0	30 36 21 5c 32 31 30 5c 33 30 37 20 5c 32 31 30 5c 32 30 32 20 00 5c 33 30 37 20 5c 32 31 30 0b	06!\210\307.\210\202..\307.\210.
269e0	5c 32 31 31 12 5c 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	\211.\207".[global-dash-fontify-
26a00	6d 6f 64 65 2d 62 75 66 66 65 72 73 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 73	mode-buffers.dash-fontify-mode-s
26a20	65 74 2d 65 78 70 6c 69 63 69 74 6c 79 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d	et-explicitly.dash-fontify-mode-
26a40	6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 64 61 73 68 2d 66 6f 6e 74 69	major-mode.major-mode.dash-fonti
26a60	66 79 2d 6d 6f 64 65 20 64 65 6c 71 20 2d 31 20 64 61 73 68 2d 2d 74 75 72 6e 2d 6f 6e 2d 66 6f	fy-mode.delq.-1.dash--turn-on-fo
26a80	6e 74 69 66 79 2d 6d 6f 64 65 5d 20 33 5d 29 23 40 36 31 20 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20	ntify-mode].3])#@61.If.non-nil,.
26aa0	66 6f 6e 74 69 66 79 20 44 61 73 68 20 6d 61 63 72 6f 20 63 61 6c 6c 73 20 61 6e 64 20 73 70 65	fontify.Dash.macro.calls.and.spe
26ac0	63 69 61 6c 20 76 61 72 69 61 62 6c 65 73 2e 1f 23 40 31 36 20 0a 0a 28 66 6e 20 53 59 4d 20 56	cial.variables..#@16...(fn.SYM.V
26ae0	41 4c 29 1f 23 40 39 34 20 54 68 65 20 44 61 73 68 20 3a 64 6f 63 2d 73 70 65 63 20 65 6e 74 72	AL).#@94.The.Dash.:doc-spec.entr
26b00	79 20 66 6f 72 20 60 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 61 6c 69 73 74 27 2e 0a 49 74 20 69 73	y.for.`info-lookup-alist'..It.is
26b20	20 62 61 73 65 64 20 6f 6e 20 74 68 61 74 20 66 6f 72 20 60 65 6d 61 63 73 2d 6c 69 73 70 2d 6d	.based.on.that.for.`emacs-lisp-m
26b40	6f 64 65 27 2e 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	ode'...(byte-code."\300\301\302\
26b60	33 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	303#\210\304\305\306\307\310DD\3
26b80	31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 26 07 5c 32 31 30 5c 33 31 36 5c 33 30 35	11\312\313\314\315&.\210\316\305
26ba0	5c 33 30 33 5c 33 31 37 23 5c 32 31 30 5c 33 32 30 5c 33 32 31 5c 33 30 33 5c 33 32 32 23 5c 32	\303\317#\210\320\321\303\322#\2
26bc0	31 30 5c 33 32 33 5c 33 32 31 5c 33 30 33 5c 33 31 37 23 5c 32 30 37 22 20 5b 70 75 74 20 67 6c	10\323\321\303\317#\207".[put.gl
26be0	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 61 62 6c 65 2d 69 6e	obal-dash-fontify-mode-enable-in
26c00	2d 62 75 66 66 65 72 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	-buffer.definition-name.global-d
26c20	61 73 68 2d 66 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	ash-fontify-mode.custom-declare-
26c40	76 61 72 69 61 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	variable.dash-enable-fontlock.fu
26c60	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 37 22 20 5b 6e	ncall.function.#[0."\300\207".[n
26c80	69 6c 5d 20 31 20 28 23 24 20 2e 20 31 35 31 36 30 32 29 5d 20 28 23 24 20 2e 20 31 35 38 33 35	il].1.(#$...151602)].(#$...15835
26ca0	36 29 20 3a 73 65 74 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 5c 32 31 30 5c 33 30 31 01	6).:set.#[514."\300..\"\210\301.
26cc0	5c 32 30 33 0e 00 5c 33 30 32 5c 32 30 32 0f 00 5c 33 30 33 21 5c 32 30 37 22 20 5b 73 65 74 2d	\203..\302\202..\303!\207".[set-
26ce0	64 65 66 61 75 6c 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	default.global-dash-fontify-mode
26d00	20 31 20 30 5d 20 35 20 28 23 24 20 2e 20 31 35 38 34 32 31 29 5d 20 3a 74 79 70 65 20 62 6f 6f	.1.0].5.(#$...158421)].:type.boo
26d20	6c 65 61 6e 20 6d 61 6b 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 20 22 32 2e 31	lean.make-obsolete-variable."2.1
26d40	38 2e 30 22 20 64 65 66 61 6c 69 61 73 20 64 61 73 68 2d 65 6e 61 62 6c 65 2d 66 6f 6e 74 2d 6c	8.0".defalias.dash-enable-font-l
26d60	6f 63 6b 20 6e 69 6c 20 6d 61 6b 65 2d 6f 62 73 6f 6c 65 74 65 5d 20 38 29 0a 28 64 65 66 76 61	ock.nil.make-obsolete].8).(defva
26d80	72 20 64 61 73 68 2d 2d 69 6e 66 6f 2d 64 6f 63 2d 73 70 65 63 20 27 28 22 28 64 61 73 68 29 20	r.dash--info-doc-spec.'("(dash).
26da0	49 6e 64 65 78 22 20 6e 69 6c 20 22 5e 20 2d 2b 20 2e 2a 3a 20 22 20 22 5c 5c 28 20 5c 5c 7c 24	Index".nil."^.-+..*:."."\\(.\\|$
26dc0	5c 5c 29 22 29 20 28 23 24 20 2e 20 31 35 38 34 34 31 29 29 23 40 31 36 35 20 52 65 74 75 72 6e	\\)").(#$...158441))#@165.Return
26de0	20 74 68 65 20 60 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 27 20 73 79 6d 62 6f 6c 20 64 6f	.the.`emacs-lisp-mode'.symbol.do
26e00	63 73 20 66 72 6f 6d 20 60 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 61 6c 69 73 74 27 2e 0a 53 70 65	cs.from.`info-lookup-alist'..Spe
26e20	63 69 66 69 63 61 6c 6c 79 2c 20 72 65 74 75 72 6e 20 74 68 65 20 63 6f 6e 73 20 63 6f 6e 74 61	cifically,.return.the.cons.conta
26e40	69 6e 69 6e 67 20 74 68 65 69 72 0a 60 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 3e 64 6f 63 2d 73 70	ining.their.`info-lookup->doc-sp
26e60	65 63 27 20 73 6f 20 74 68 61 74 20 77 65 20 63 61 6e 20 6d 6f 64 69 66 79 20 69 74 2e 1f 0a 28	ec'.so.that.we.can.modify.it...(
26e80	64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 69 6e 66 6f 2d 65 6c 69 73 70 2d 64 6f 63 73 20	defalias.'dash--info-elisp-docs.
26ea0	23 5b 30 20 22 5c 33 30 31 5c 33 30 32 08 5c 32 33 36 41 5c 32 33 36 41 41 41 5c 32 30 37 22 20	#[0."\301\302.\236A\236AAA\207".
26ec0	5b 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 61 6c 69 73 74 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f	[info-lookup-alist.emacs-lisp-mo
26ee0	64 65 20 73 79 6d 62 6f 6c 5d 20 33 20 28 23 24 20 2e 20 31 35 39 31 39 34 29 5d 29 23 40 31 32	de.symbol].3.(#$...159194)])#@12
26f00	37 20 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	7.Register.the.Dash.Info.manual.
26f20	77 69 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	with.`info-lookup-symbol'..This.
26f40	61 6c 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	allows.Dash.symbols.to.be.looked
26f60	20 75 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	.up.with.\[info-lookup-symbol]..
26f80	0a 28 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	.(defalias.'dash-register-info-l
26fa0	6f 6f 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	ookup.#[0."\301\302!\210\303.\21
26fc0	31 5c 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	1\304.@.C\"\240\210\305.\207".[d
26fe0	61 73 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	ash--info-doc-spec.require.info-
27000	6c 6f 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	look.dash--info-elisp-docs.appen
27020	64 20 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 35 39	d.info-lookup-reset].5.(#$...159
27040	34 39 30 29 20 6e 69 6c 5d 29 23 40 37 36 20 52 65 6d 6f 76 65 20 44 61 73 68 20 66 72 6f 6d 20	490).nil])#@76.Remove.Dash.from.
27060	60 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	`info-lookup-alist'..Used.by.`un
27080	6c 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	load-feature',.which.see...(defa
270a0	6c 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	lias.'dash-unload-function.#[0."
270c0	5c 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	\301\302!\205..\303...@\235\203.
270e0	00 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	.\211\304..@\"\240\210\305.\210\
27100	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 20 66 65	306\207".[dash--info-doc-spec.fe
27120	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 6c 69 73	aturep.info-look.dash--info-elis
27140	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 65 74 20	p-docs.remove.info-lookup-reset.
27160	6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 31 35 39 38 32 33 29 5d 29 0a 28 70 72 6f 76 69 64 65 20	nil].6.(#$...159823)]).(provide.
27180	27 64 61 73 68 29 0a	'dash).