blob: 7a9ab22551328cb434a0d6a50803b299797dda5f (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.3.1.;;;.with.all.o
0040	70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65	ptimizations...;;;.This.file.use
0060	73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65	s.dynamic.docstrings,.first.adde
0080	64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65	d.in.Emacs.19.29...;;;.This.file
00a0	20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49	.does.not.contain.utf-8.non-ASCI
00c0	49 20 63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20	I.characters,.;;;.and.so.can.be.
00e0	6c 6f 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72	loaded.in.Emacs.versions.earlier
0100	20 74 68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.than.23...;;;;;;;;;;;;;;;;;;;;;
0120	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;
0160	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 63 75 73 74 6f 6d 2d 64 65 63	;;;;;;;;;;;;;;;;;;...(custom-dec
01a0	6c 61 72 65 2d 67 72 6f 75 70 20 27 64 61 73 68 20 6e 69 6c 20 22 43 75 73 74 6f 6d 69 7a 65 20	lare-group.'dash.nil."Customize.
01c0	67 72 6f 75 70 20 66 6f 72 20 64 61 73 68 2e 65 6c 22 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 20	group.for.dash.el".:group.'lisp.
01e0	3a 70 72 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 64 61 73 68	:prefix."dash-").(defalias.'dash
0200	2d 2d 65 6e 61 62 6c 65 2d 66 6f 6e 74 6c 6f 63 6b 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30	--enable-fontlock.#[514."\211\20
0220	33 07 00 5c 33 30 30 20 5c 32 31 30 5c 33 30 31 02 02 5c 22 5c 32 30 37 22 20 5b 64 61 73 68 2d	3..\300.\210\301..\"\207".[dash-
0240	65 6e 61 62 6c 65 2d 66 6f 6e 74 2d 6c 6f 63 6b 20 73 65 74 2d 64 65 66 61 75 6c 74 5d 20 35 20	enable-font-lock.set-default].5.
0260	22 5c 6e 5c 6e 28 66 6e 20 53 59 4d 42 4f 4c 20 56 41 4c 55 45 29 22 5d 29 0a 28 62 79 74 65 2d	"\n\n(fn.SYMBOL.VALUE)"]).(byte-
0280	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 44 44 5c 33 30 35	code."\300\301\302\303\304DD\305
02a0	5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 26 09 5c 32 30 37 22 20	\306\307\310\311\312\313&.\207".
02c0	5b 63 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 65 6e	[custom-declare-variable.dash-en
02e0	61 62 6c 65 2d 66 6f 6e 74 6c 6f 63 6b 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 23	able-fontlock.funcall.function.#
0300	5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 31 5d 20 22 49 66 20 6e 6f 6e 2d 6e	[0."\300\207".[nil].1]."If.non-n
0320	69 6c 2c 20 65 6e 61 62 6c 65 20 66 6f 6e 74 69 66 69 63 61 74 69 6f 6e 20 6f 66 20 64 61 73 68	il,.enable.fontification.of.dash
0340	20 66 75 6e 63 74 69 6f 6e 73 2c 20 6d 61 63 72 6f 73 20 61 6e 64 5c 6e 73 70 65 63 69 61 6c 20	.functions,.macros.and\nspecial.
0360	76 61 6c 75 65 73 2e 22 20 3a 74 79 70 65 20 62 6f 6f 6c 65 61 6e 20 3a 73 65 74 20 64 61 73 68	values.".:type.boolean.:set.dash
0380	2d 2d 65 6e 61 62 6c 65 2d 66 6f 6e 74 6c 6f 63 6b 20 3a 67 72 6f 75 70 20 64 61 73 68 5d 20 31	--enable-fontlock.:group.dash].1
03a0	30 29 0a 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 6f 20	0).#@64.Destructive:.Set.CDR.to.
03c0	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 43 41	the.cons.of.CAR.and.CDR...(fn.CA
03e0	52 20 43 44 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 21 63 6f 6e 73 20 27 28 6d 61 63 72 6f	R.CDR)..(defalias.'!cons.'(macro
0400	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 37 22 20 5b 73 65	...#[514."\300.\301..EE\207".[se
0420	74 71 20 63 6f 6e 73 5d 20 37 20 28 23 24 20 2e 20 39 33 36 29 5d 29 29 0a 23 40 35 34 20 44 65	tq.cons].7.(#$...936)])).#@54.De
0440	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 63 64 72 20 6f	structive:.Set.LIST.to.the.cdr.o
0460	66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 21	f.LIST...(fn.LIST)..(defalias.'!
0480	63 64 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 03 44	cdr.'(macro...#[257."\300.\301.D
04a0	45 5c 32 30 37 22 20 5b 73 65 74 71 20 63 64 72 5d 20 35 20 28 23 24 20 2e 20 31 30 38 36 29 5d	E\207".[setq.cdr].5.(#$...1086)]
04c0	29 29 0a 23 40 35 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 65 61 63 68	)).#@50.Anaphoric.form.of.`-each
04e0	27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c	'...(fn.LIST.&rest.BODY)..(defal
0500	69 61 73 20 27 2d 2d 65 61 63 68 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30	ias.'--each.'(macro...#[385."\30
0520	30 5c 33 30 31 21 5c 33 30 32 01 04 44 5c 33 30 33 42 5c 33 30 34 03 5c 33 30 32 5c 33 30 35 5c	0\301!\302..D\303B\304.\302\305\
0540	33 30 36 06 07 44 44 43 06 07 42 42 5c 33 30 37 5c 33 31 30 06 07 44 5c 32 35 37 05 45 5c 32 30	306..DDC..BB\307\310..D\257.E\20
0560	37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 22 20 6c 65 74 20 28 28 69 74 2d	7".[make-symbol."list".let.((it-
0580	69 6e 64 65 78 20 30 29 29 20 77 68 69 6c 65 20 69 74 20 63 61 72 20 28 73 65 74 71 20 69 74 2d	index.0)).while.it.car.(setq.it-
05a0	69 6e 64 65 78 20 28 31 2b 20 69 74 2d 69 6e 64 65 78 29 29 20 21 63 64 72 5d 20 31 31 20 28 23	index.(1+.it-index)).!cdr].11.(#
05c0	24 20 2e 20 31 32 32 34 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	$...1224)])).(byte-code."\300\30
05e0	31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c	1\302\303#\210\304\301\305\306#\
0600	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 6f 72 6d 2d 73 70 65	207".[put.--each.edebug-form-spe
0620	63 20 28 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d	c.(form.body).function-put.lisp-
0640	69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 32 35 31 20 45 76 61 6c	indent-function.1].4).#@251.Eval
0660	20 61 20 66 6f 72 6d 2c 20 74 68 65 6e 20 69 6e 73 65 72 74 20 74 68 61 74 20 66 6f 72 6d 20 61	.a.form,.then.insert.that.form.a
0680	73 20 74 68 65 20 32 6e 64 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 6f 74 68 65 72 20 66 6f 72 6d	s.the.2nd.argument.to.other.form
06a0	73 2e 0a 54 68 65 20 45 56 41 4c 2d 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 66 6f 72 6d 20 69	s..The.EVAL-INITIAL-VALUE.form.i
06c0	73 20 65 76 61 6c 75 61 74 65 64 20 6f 6e 63 65 2e 20 49 74 73 20 72 65 73 75 6c 74 20 69 73 0a	s.evaluated.once..Its.result.is.
06e0	70 61 73 73 65 64 20 74 6f 20 46 4f 52 4d 53 2c 20 77 68 69 63 68 20 61 72 65 20 74 68 65 6e 20	passed.to.FORMS,.which.are.then.
0700	65 76 61 6c 75 61 74 65 64 20 73 65 71 75 65 6e 74 69 61 6c 6c 79 2e 20 52 65 74 75 72 6e 73 0a	evaluated.sequentially..Returns.
0720	74 68 65 20 74 61 72 67 65 74 20 66 6f 72 6d 2e 0a 0a 28 66 6e 20 45 56 41 4c 2d 49 4e 49 54 49	the.target.form...(fn.EVAL-INITI
0740	41 4c 2d 56 41 4c 55 45 20 26 72 65 73 74 20 46 4f 52 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73	AL-VALUE.&rest.FORMS)..(defalias
0760	20 27 2d 64 6f 74 6f 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	.'-doto.'(macro...#[385."\300\30
0780	31 21 5c 33 30 32 01 04 44 43 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33	1!\302..DC\303\304\305\306\307\3
07a0	31 30 5c 33 31 31 06 09 21 5c 33 31 32 5c 22 5c 33 31 33 5c 33 31 34 25 06 06 5c 22 04 43 5c 22	10\311..!\312\"\313\314%..\".C\"
07c0	42 42 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 76 61 6c 75 65 22 20 6c 65 74	BB\207".[make-symbol."value".let
07e0	20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35	.append.mapcar.make-byte-code.25
0800	37 20 22 5c 33 30 31 01 21 5c 32 30 33 0f 00 5c 33 30 32 01 21 5c 33 30 30 02 41 42 42 5c 32 30	7."\301.!\203..\302.!\300.ABB\20
0820	37 5c 33 30 33 5c 33 30 34 5c 33 30 30 45 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74	7\303\304\300E\207".vconcat.vect
0840	6f 72 20 5b 73 65 71 75 65 6e 63 65 70 20 2d 66 69 72 73 74 2d 69 74 65 6d 20 66 75 6e 63 61 6c	or.[sequencep.-first-item.funcal
0860	6c 20 66 6f 72 6d 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 46 4f 52 4d 29 22 5d 20 31 33 20 28 23	l.form].4."\n\n(fn.FORM)"].13.(#
0880	24 20 2e 20 31 36 32 38 29 5d 29 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 2d 64 6f 74	$...1628)])).(function-put.'-dot
08a0	6f 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 29 0a 23 40 38 38 20	o.'lisp-indent-function.1).#@88.
08c0	43 61 6c 6c 20 46 4e 20 77 69 74 68 20 65 76 65 72 79 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2e	Call.FN.with.every.item.in.LIST.
08e0	20 52 65 74 75 72 6e 20 6e 69 6c 2c 20 75 73 65 64 20 66 6f 72 20 73 69 64 65 2d 65 66 66 65 63	.Return.nil,.used.for.side-effec
0900	74 73 20 6f 6e 6c 79 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61	ts.only...(fn.LIST.FN)..(defalia
0920	73 20 27 2d 65 61 63 68 20 23 5b 35 31 34 20 22 01 5c 33 30 30 01 5c 32 30 35 18 00 01 40 03 01	s.'-each.#[514.".\300.\205...@..
0940	21 5c 32 36 36 02 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 02 00 5c 32 30	!\266.\211T\262..A\262.\202..\20
0960	37 22 20 5b 30 5d 20 37 20 28 23 24 20 2e 20 32 32 34 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64	7".[0].7.(#$...2240)]).(byte-cod
0980	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 35	e."\300\301\302\303#\210\304\305
09a0	5c 33 30 36 5c 22 5c 32 30 37 22 20 5b 70 75 74 20 2d 65 61 63 68 20 6c 69 73 70 2d 69 6e 64 65	\306\"\207".[put.-each.lisp-inde
09c0	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
09e0	64 65 78 65 64 20 2d 2d 65 61 63 68 5d 20 34 29 0a 23 40 31 37 30 20 43 61 6c 6c 20 28 46 4e 20	dexed.--each].4).#@170.Call.(FN.
0a00	69 6e 64 65 78 20 69 74 65 6d 29 20 66 6f 72 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53	index.item).for.each.item.in.LIS
0a20	54 2e 0a 0a 49 6e 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 60 2d 2d 65 61 63	T...In.the.anaphoric.form.`--eac
0a40	68 2d 69 6e 64 65 78 65 64 27 2c 20 74 68 65 20 69 6e 64 65 78 20 69 73 20 65 78 70 6f 73 65 64	h-indexed',.the.index.is.exposed
0a60	20 61 73 20 73 79 6d 62 6f 6c 20 60 69 74 2d 69 6e 64 65 78 27 2e 0a 0a 53 65 65 20 61 6c 73 6f	.as.symbol.`it-index'...See.also
0a80	3a 20 60 2d 6d 61 70 2d 69 6e 64 65 78 65 64 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46 4e 29 1f	:.`-map-indexed'...(fn.LIST.FN).
0aa0	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 20 23 5b 35 31 34 20	.(defalias.'-each-indexed.#[514.
0ac0	22 01 5c 33 30 30 01 5c 32 30 35 19 00 01 40 03 02 02 5c 22 5c 32 36 36 02 5c 32 31 31 54 5c 32	".\300.\205...@...\"\266.\211T\2
0ae0	36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 02 00 5c 32 30 37 22 20 5b 30 5d 20 38 20 28 23 24 20	62..A\262.\202..\207".[0].8.(#$.
0b00	2e 20 32 35 35 31 29 5d 29 0a 28 70 75 74 20 27 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 20 27 6c	..2551)]).(put.'-each-indexed.'l
0b20	69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 29 0a 23 40 36 31 20 41 6e 61 70	isp-indent-function.1).#@61.Anap
0b40	68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 65 61 63 68 2d 77 68 69 6c 65 27 2e 0a 0a 28 66	horic.form.of.`-each-while'...(f
0b60	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
0b80	61 73 20 27 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32	as.'--each-while.'(macro...#[642
0ba0	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 06 06 44 02 5c 33 30	."\300\301!\300\302!\303...D.\30
0bc0	34 42 5c 33 30 35 42 42 5c 33 30 36 5c 33 30 37 05 05 45 5c 33 30 33 5c 33 31 30 5c 33 31 31 06	4B\305BB\306\307..E\303\310\311.
0be0	08 44 44 43 5c 33 31 32 5c 33 31 33 06 0b 44 5c 33 31 34 06 09 5c 33 31 35 42 42 06 0b 42 42 42	.DDC\312\313..D\314..\315BB..BBB
0c00	45 5c 33 31 36 5c 33 31 37 06 08 44 5c 32 35 37 05 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79	E\316\317..D\257.E\207".[make-sy
0c20	6d 62 6f 6c 20 22 6c 69 73 74 22 20 22 63 6f 6e 74 69 6e 75 65 22 20 6c 65 74 20 28 74 29 20 28	mbol."list"."continue".let.(t).(
0c40	28 69 74 2d 69 6e 64 65 78 20 30 29 29 20 77 68 69 6c 65 20 61 6e 64 20 69 74 20 63 61 72 20 69	(it-index.0)).while.and.it.car.i
0c60	66 20 6e 6f 74 20 73 65 74 71 20 28 6e 69 6c 29 20 28 73 65 74 71 20 69 74 2d 69 6e 64 65 78 20	f.not.setq.(nil).(setq.it-index.
0c80	28 31 2b 20 69 74 2d 69 6e 64 65 78 29 29 20 21 63 64 72 5d 20 31 36 20 28 23 24 20 2e 20 32 38	(1+.it-index)).!cdr].16.(#$...28
0ca0	37 36 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	76)])).(byte-code."\300\301\302\
0cc0	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 32 30 37 22 20 5b	303#\210\304\301\305\306#\207".[
0ce0	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 65	put.--each-while.edebug-form-spe
0d00	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 20	c.(form.form.body).function-put.
0d20	6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 31 32 32	lisp-indent-function.2].4).#@122
0d40	20 43 61 6c 6c 20 46 4e 20 77 69 74 68 20 65 76 65 72 79 20 69 74 65 6d 20 69 6e 20 4c 49 53 54	.Call.FN.with.every.item.in.LIST
0d60	20 77 68 69 6c 65 20 28 50 52 45 44 20 69 74 65 6d 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 52	.while.(PRED.item).is.non-nil..R
0d80	65 74 75 72 6e 20 6e 69 6c 2c 20 75 73 65 64 20 66 6f 72 20 73 69 64 65 2d 65 66 66 65 63 74 73	eturn.nil,.used.for.side-effects
0da0	20 6f 6e 6c 79 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 50 52 45 44 20 46 4e 29 1f 0a 28 64 65 66 61	.only...(fn.LIST.PRED.FN)..(defa
0dc0	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 33	lias.'-each-while.#[771.".\300\3
0de0	30 31 02 5c 32 30 35 29 00 01 5c 32 30 35 29 00 02 40 05 01 21 5c 32 30 34 19 00 5c 33 30 32 5c	01.\205)..\205)..@..!\204..\302\
0e00	32 36 32 03 5c 32 30 32 1d 00 04 01 21 5c 32 31 30 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02	262.\202....!\210\210\211T\262..
0e20	41 5c 32 36 32 03 5c 32 30 32 03 00 5c 32 30 37 22 20 5b 74 20 30 20 6e 69 6c 5d 20 39 20 28 23	A\262.\202..\207".[t.0.nil].9.(#
0e40	24 20 2e 20 33 33 39 33 29 5d 29 0a 28 70 75 74 20 27 2d 65 61 63 68 2d 77 68 69 6c 65 20 27 6c	$...3393)]).(put.'-each-while.'l
0e60	69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 29 0a 23 40 31 33 34 20 52 65 70	isp-indent-function.2).#@134.Rep
0e80	65 61 74 65 64 6c 79 20 65 78 65 63 75 74 65 73 20 42 4f 44 59 20 28 70 72 65 73 75 6d 61 62 6c	eatedly.executes.BODY.(presumabl
0ea0	79 20 66 6f 72 20 73 69 64 65 2d 65 66 66 65 63 74 73 29 20 77 69 74 68 20 73 79 6d 62 6f 6c 20	y.for.side-effects).with.symbol.
0ec0	60 69 74 27 20 62 6f 75 6e 64 20 74 6f 20 69 6e 74 65 67 65 72 73 20 66 72 6f 6d 20 30 20 74 68	`it'.bound.to.integers.from.0.th
0ee0	72 6f 75 67 68 20 4e 55 4d 2d 31 2e 0a 0a 28 66 6e 20 4e 55 4d 20 26 72 65 73 74 20 42 4f 44 59	rough.NUM-1...(fn.NUM.&rest.BODY
0f00	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 64 6f 74 69 6d 65 73 20 27 28 6d 61 63 72 6f 20	)..(defalias.'--dotimes.'(macro.
0f20	2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 04 44 5c 33 30 33 42 5c 33	..#[385."\300\301!\302..D\303B\3
0f40	30 34 5c 33 30 35 5c 33 30 36 05 45 5c 33 30 37 06 06 5c 33 31 30 5c 22 42 42 45 5c 32 30 37 22	04\305\306.E\307..\310\"BBE\207"
0f60	20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6e 75 6d 22 20 6c 65 74 20 28 28 69 74 20 30 29 29	.[make-symbol."num".let.((it.0))
0f80	20 77 68 69 6c 65 20 3c 20 69 74 20 61 70 70 65 6e 64 20 28 28 73 65 74 71 20 69 74 20 28 31 2b	.while.<.it.append.((setq.it.(1+
0fa0	20 69 74 29 29 29 5d 20 31 30 20 28 23 24 20 2e 20 33 37 30 39 29 5d 29 29 0a 28 62 79 74 65 2d	.it)))].10.(#$...3709)])).(byte-
0fc0	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\
0fe0	33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 64 6f 74 69 6d 65 73	301\305\306#\207".[put.--dotimes
1000	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 64 79 29 20 66 75	.edebug-form-spec.(form.body).fu
1020	6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20	nction-put.lisp-indent-function.
1040	31 5d 20 34 29 0a 23 40 31 30 36 20 52 65 70 65 61 74 65 64 6c 79 20 63 61 6c 6c 73 20 46 4e 20	1].4).#@106.Repeatedly.calls.FN.
1060	28 70 72 65 73 75 6d 61 62 6c 79 20 66 6f 72 20 73 69 64 65 2d 65 66 66 65 63 74 73 29 20 70 61	(presumably.for.side-effects).pa
1080	73 73 69 6e 67 20 69 6e 20 69 6e 74 65 67 65 72 73 20 66 72 6f 6d 20 30 20 74 68 72 6f 75 67 68	ssing.in.integers.from.0.through
10a0	20 4e 55 4d 2d 31 2e 0a 0a 28 66 6e 20 4e 55 4d 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	.NUM-1...(fn.NUM.FN)..(defalias.
10c0	27 2d 64 6f 74 69 6d 65 73 20 23 5b 35 31 34 20 22 01 5c 33 30 30 5c 32 31 31 02 57 5c 32 30 35	'-dotimes.#[514.".\300\211.W\205
10e0	13 00 02 01 21 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 5c 32 30 32 02 00 5c 32 30 37 22 20 5b	....!\210\211T\262.\202..\207".[
1100	30 5d 20 36 20 28 23 24 20 2e 20 34 31 37 32 29 5d 29 0a 28 70 75 74 20 27 2d 64 6f 74 69 6d 65	0].6.(#$...4172)]).(put.'-dotime
1120	73 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 29 0a 23 40 39 35 20	s.'lisp-indent-function.1).#@95.
1140	52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 63 6f 6e 73 69 73 74 69 6e 67 20 6f 66 20	Return.a.new.list.consisting.of.
1160	74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 65	the.result.of.applying.FN.to.the
1180	20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28	.items.in.LIST...(fn.FN.LIST)..(
11a0	64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 5c 32	defalias.'-map.#[514."\300..\"\2
11c0	30 37 22 20 5b 6d 61 70 63 61 72 5d 20 35 20 28 23 24 20 2e 20 34 34 31 36 29 5d 29 0a 23 40 34	07".[mapcar].5.(#$...4416)]).#@4
11e0	33 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6d 61 70 27 2e 0a 0a 28 66 6e	3.Anaphoric.form.of.`-map'...(fn
1200	20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 20 27 28	.FORM.LIST)..(defalias.'--map.'(
1220	6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c	macro...#[514."\300\301\302.E.E\
1240	32 30 37 22 20 5b 6d 61 70 63 61 72 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20	207".[mapcar.lambda.(it)].6.(#$.
1260	2e 20 34 35 37 38 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70 20 27 65 64 65 62 75 67 2d 66	..4578)])).(put.'--map.'edebug-f
1280	6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 36 35 20 41 6e 61 70	orm-spec.'(form.form)).#@65.Anap
12a0	68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 2e 0a 0a 28	horic.form.of.`-reduce-from'...(
12c0	66 6e 20 46 4f 52 4d 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 4c 49 53 54 29 1f 0a 28 64 65	fn.FORM.INITIAL-VALUE.LIST)..(de
12e0	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 72 6f 20 2e 20	falias.'--reduce-from.'(macro...
1300	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.
1320	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 20	.EE\304BBB\207".[let.acc.--each.
1340	73 65 74 71 20 28 61 63 63 29 5d 20 31 30 20 28 23 24 20 2e 20 34 37 36 34 29 5d 29 29 0a 28 70	setq.(acc)].10.(#$...4764)])).(p
1360	75 74 20 27 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73	ut.'--reduce-from.'edebug-form-s
1380	70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 35 36 20 52 65 74	pec.'(form.form.form)).#@356.Ret
13a0	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 20 74 6f	urn.the.result.of.applying.FN.to
13c0	20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 61 6e 64 20 74 68 65 0a 66 69 72 73 74 20 69 74 65	.INITIAL-VALUE.and.the.first.ite
13e0	6d 20 69 6e 20 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	m.in.LIST,.then.applying.FN.to.t
1400	68 61 74 20 72 65 73 75 6c 74 20 61 6e 64 20 74 68 65 20 32 6e 64 0a 69 74 65 6d 2c 20 65 74 63	hat.result.and.the.2nd.item,.etc
1420	2e 20 49 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 6e 6f 20 69 74 65 6d 73 2c 20 72 65 74	..If.LIST.contains.no.items,.ret
1440	75 72 6e 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 61 6e 64 0a 46 4e 20 69 73 20 6e 6f 74 20	urn.INITIAL-VALUE.and.FN.is.not.
1460	63 61 6c 6c 65 64 2e 0a 0a 49 6e 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 60	called...In.the.anaphoric.form.`
1480	2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 2c 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 65 64 20	--reduce-from',.the.accumulated.
14a0	76 61 6c 75 65 20 69 73 0a 65 78 70 6f 73 65 64 20 61 73 20 73 79 6d 62 6f 6c 20 60 61 63 63 27	value.is.exposed.as.symbol.`acc'
14c0	2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 65 27 2c 20 60 2d 72 65 64 75 63 65	...See.also:.`-reduce',.`-reduce
14e0	2d 72 27 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 4c 49 53 54 29 1f	-r'..(fn.FN.INITIAL-VALUE.LIST).
1500	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22	.(defalias.'-reduce-from.#[771."
1520	01 01 5c 33 30 30 01 5c 32 30 33 1c 00 01 40 06 06 04 02 5c 22 5c 32 36 32 04 5c 32 31 30 5c 32	..\300.\203...@....\"\262.\210\2
1540	31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32	11T\262..A\262.\202..\266.\211\2
1560	30 37 22 20 5b 30 5d 20 31 30 20 28 23 24 20 2e 20 35 30 32 31 29 5d 29 0a 23 40 34 36 20 41 6e	07".[0].10.(#$...5021)]).#@46.An
1580	61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 72 65 64 75 63 65 27 2e 0a 0a 28 66 6e 20	aphoric.form.of.`-reduce'...(fn.
15a0	46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 65 20	FORM.LIST)..(defalias.'--reduce.
15c0	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 03	'(macro...#[514."\300\301!\302..
15e0	44 43 5c 33 30 33 03 5c 33 30 34 06 07 5c 33 30 35 06 07 44 5c 33 30 36 06 08 44 46 5c 33 30 32	DC\303.\304..\305..D\306..DF\302
1600	5c 33 30 37 06 09 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	\307..EFE\207".[make-symbol."lis
1620	74 2d 76 61 6c 75 65 22 20 6c 65 74 20 69 66 20 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 63 61	t-value".let.if.--reduce-from.ca
1640	72 20 63 64 72 20 28 61 63 63 20 69 74 29 5d 20 31 32 20 28 23 24 20 2e 20 35 35 30 32 29 5d 29	r.cdr.(acc.it)].12.(#$...5502)])
1660	29 0a 28 70 75 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	).(put.'--reduce.'edebug-form-sp
1680	65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 34 34 35 20 52 65 74 75 72 6e 20 74 68	ec.'(form.form)).#@445.Return.th
16a0	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
16c0	69 72 73 74 20 32 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2c 0a 74 68 65 6e 20 61 70 70 6c 79	irst.2.items.in.LIST,.then.apply
16e0	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 68 65 20 33 72	ing.FN.to.that.result.and.the.3r
1700	64 20 69 74 65 6d 2c 20 65 74 63 2e 20 49 66 20 4c 49 53 54 0a 63 6f 6e 74 61 69 6e 73 20 6e 6f	d.item,.etc..If.LIST.contains.no
1720	20 69 74 65 6d 73 2c 20 46 4e 20 6d 75 73 74 20 61 63 63 65 70 74 20 6e 6f 20 61 72 67 75 6d 65	.items,.FN.must.accept.no.argume
1740	6e 74 73 20 61 73 20 77 65 6c 6c 2c 20 61 6e 64 0a 72 65 64 75 63 65 20 72 65 74 75 72 6e 20 74	nts.as.well,.and.reduce.return.t
1760	68 65 20 72 65 73 75 6c 74 20 6f 66 20 63 61 6c 6c 69 6e 67 20 46 4e 20 77 69 74 68 20 6e 6f 20	he.result.of.calling.FN.with.no.
1780	61 72 67 75 6d 65 6e 74 73 2e 20 49 66 0a 4c 49 53 54 20 68 61 73 20 6f 6e 6c 79 20 31 20 69 74	arguments..If.LIST.has.only.1.it
17a0	65 6d 2c 20 69 74 20 69 73 20 72 65 74 75 72 6e 65 64 20 61 6e 64 20 46 4e 20 69 73 20 6e 6f 74	em,.it.is.returned.and.FN.is.not
17c0	20 63 61 6c 6c 65 64 2e 0a 0a 49 6e 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20	.called...In.the.anaphoric.form.
17e0	60 2d 2d 72 65 64 75 63 65 27 2c 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 65 64 20 76 61 6c 75	`--reduce',.the.accumulated.valu
1800	65 20 69 73 0a 65 78 70 6f 73 65 64 20 61 73 20 73 79 6d 62 6f 6c 20 60 61 63 63 27 2e 0a 0a 53	e.is.exposed.as.symbol.`acc'...S
1820	65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 2c 20 60 2d 72 65 64 75 63	ee.also:.`-reduce-from',.`-reduc
1840	65 2d 72 27 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	e-r'..(fn.FN.LIST)..(defalias.'-
1860	72 65 64 75 63 65 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 5c 66 00 5c 33 30 30 02 02 40	reduce.#[514."\211\203\f.\300..@
1880	03 41 23 5c 32 30 37 01 20 5c 32 30 37 22 20 5b 2d 72 65 64 75 63 65 2d 66 72 6f 6d 5d 20 36 20	.A#\207..\207".[-reduce-from].6.
18a0	28 23 24 20 2e 20 35 37 38 33 29 5d 29 0a 23 40 33 33 31 20 52 65 70 6c 61 63 65 20 63 6f 6e 73	(#$...5783)]).#@331.Replace.cons
18c0	65 73 20 77 69 74 68 20 46 4e 2c 20 6e 69 6c 20 77 69 74 68 20 49 4e 49 54 49 41 4c 2d 56 41 4c	es.with.FN,.nil.with.INITIAL-VAL
18e0	55 45 20 61 6e 64 20 65 76 61 6c 75 61 74 65 0a 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 65 78	UE.and.evaluate.the.resulting.ex
1900	70 72 65 73 73 69 6f 6e 2e 20 49 66 20 4c 49 53 54 20 69 73 20 65 6d 70 74 79 2c 20 49 4e 49 54	pression..If.LIST.is.empty,.INIT
1920	49 41 4c 2d 56 41 4c 55 45 20 69 73 0a 72 65 74 75 72 6e 65 64 20 61 6e 64 20 46 4e 20 69 73 20	IAL-VALUE.is.returned.and.FN.is.
1940	6e 6f 74 20 63 61 6c 6c 65 64 2e 0a 0a 4e 6f 74 65 3a 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e	not.called...Note:.this.function
1960	20 77 6f 72 6b 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 60 2d 72 65 64 75 63 65 2d 66 72 6f 6d	.works.the.same.as.`-reduce-from
1980	27 20 62 75 74 20 74 68 65 0a 6f 70 65 72 61 74 69 6f 6e 20 61 73 73 6f 63 69 61 74 65 73 20 66	'.but.the.operation.associates.f
19a0	72 6f 6d 20 72 69 67 68 74 20 69 6e 73 74 65 61 64 20 6f 66 20 66 72 6f 6d 20 6c 65 66 74 2e 0a	rom.right.instead.of.from.left..
19c0	0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 65 2d 72 27 2c 20 60 2d 72 65 64 75 63 65	.See.also:.`-reduce-r',.`-reduce
19e0	27 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 4c 49 53 54 29 1f 0a 28	'..(fn.FN.INITIAL-VALUE.LIST)..(
1a00	64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22	defalias.'-reduce-r-from.#[771."
1a20	5c 32 31 31 5c 32 30 34 06 00 01 5c 32 30 37 02 01 40 5c 33 30 30 05 05 05 41 23 5c 22 5c 32 30	\211\204...\207..@\300...A#\"\20
1a40	37 22 20 5b 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 5d 20 39 20 28 23 24 20 2e 20 36 33 32 34	7".[-reduce-r-from].9.(#$...6324
1a60	29 5d 29 0a 23 40 37 30 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d	)]).#@70.Anaphoric.version.of.`-
1a80	72 65 64 75 63 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 49 41	reduce-r-from'...(fn.FORM.INITIA
1aa0	4c 2d 56 41 4c 55 45 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75	L-VALUE.LIST)..(defalias.'--redu
1ac0	63 65 2d 72 2d 66 72 6f 6d 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c	ce-r-from.'(macro...#[771."\300\
1ae0	33 30 31 5c 33 30 32 05 45 03 03 46 5c 32 30 37 22 20 5b 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f	301\302.E..F\207".[-reduce-r-fro
1b00	6d 20 6c 61 6d 62 64 61 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 74 20 61 63 63 29 5d 20 37 20 28	m.lambda.(&optional.it.acc)].7.(
1b20	23 24 20 2e 20 36 37 36 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 65 2d 72 2d 66	#$...6761)])).(put.'--reduce-r-f
1b40	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 6f 72	rom.'edebug-form-spec.'(form.for
1b60	6d 20 66 6f 72 6d 29 29 0a 23 40 35 32 31 20 52 65 70 6c 61 63 65 20 63 6f 6e 73 65 73 20 77 69	m.form)).#@521.Replace.conses.wi
1b80	74 68 20 46 4e 20 61 6e 64 20 65 76 61 6c 75 61 74 65 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67	th.FN.and.evaluate.the.resulting
1ba0	20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 54 68 65 20 66 69 6e 61 6c 20 6e 69 6c 20 69 73 20 69 67	.expression..The.final.nil.is.ig
1bc0	6e 6f 72 65 64 2e 20 49 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 6e 6f 20 69 74 65 6d 73	nored..If.LIST.contains.no.items
1be0	2c 20 46 4e 20 6d 75 73 74 0a 61 63 63 65 70 74 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 20 61 73	,.FN.must.accept.no.arguments.as
1c00	20 77 65 6c 6c 2c 20 61 6e 64 20 72 65 64 75 63 65 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73	.well,.and.reduce.return.the.res
1c20	75 6c 74 20 6f 66 0a 63 61 6c 6c 69 6e 67 20 46 4e 20 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65	ult.of.calling.FN.with.no.argume
1c40	6e 74 73 2e 20 49 66 20 4c 49 53 54 20 68 61 73 20 6f 6e 6c 79 20 31 20 69 74 65 6d 2c 20 69 74	nts..If.LIST.has.only.1.item,.it
1c60	20 69 73 0a 72 65 74 75 72 6e 65 64 20 61 6e 64 20 46 4e 20 69 73 20 6e 6f 74 20 63 61 6c 6c 65	.is.returned.and.FN.is.not.calle
1c80	64 2e 0a 0a 54 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 20	d...The.first.argument.of.FN.is.
1ca0	74 68 65 20 6e 65 77 20 69 74 65 6d 2c 20 74 68 65 20 73 65 63 6f 6e 64 20 69 73 20 74 68 65 0a	the.new.item,.the.second.is.the.
1cc0	61 63 63 75 6d 75 6c 61 74 65 64 20 76 61 6c 75 65 2e 0a 0a 4e 6f 74 65 3a 20 74 68 69 73 20 66	accumulated.value...Note:.this.f
1ce0	75 6e 63 74 69 6f 6e 20 77 6f 72 6b 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 60 2d 72 65 64 75	unction.works.the.same.as.`-redu
1d00	63 65 27 20 62 75 74 20 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 0a 61 73 73 6f 63 69 61 74 65 73	ce'.but.the.operation.associates
1d20	20 66 72 6f 6d 20 72 69 67 68 74 20 69 6e 73 74 65 61 64 20 6f 66 20 66 72 6f 6d 20 6c 65 66 74	.from.right.instead.of.from.left
1d40	2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 2c 20 60	...See.also:.`-reduce-r-from',.`
1d60	2d 72 65 64 75 63 65 27 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61	-reduce'..(fn.FN.LIST)..(defalia
1d80	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 34 07 00 01 20	s.'-reduce-r.#[514."\211\204....
1da0	5c 32 30 37 5c 32 31 31 41 5c 32 30 34 0f 00 5c 32 31 31 40 5c 32 30 37 01 01 40 5c 33 30 30 04	\207\211A\204..\211@\207..@\300.
1dc0	04 41 5c 22 5c 22 5c 32 30 37 22 20 5b 2d 72 65 64 75 63 65 2d 72 5d 20 37 20 28 23 24 20 2e 20	.A\"\"\207".[-reduce-r].7.(#$...
1de0	37 30 32 33 29 5d 29 0a 23 40 35 31 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f	7023)]).#@51.Anaphoric.version.o
1e00	66 20 60 2d 72 65 64 75 63 65 2d 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a	f.`-reduce-r'...(fn.FORM.LIST)..
1e20	28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 65 2d 72 20 27 28 6d 61 63 72 6f 20 2e 20	(defalias.'--reduce-r.'(macro...
1e40	23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 72	#[514."\300\301\302.E.E\207".[-r
1e60	65 64 75 63 65 2d 72 20 6c 61 6d 62 64 61 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 74 20 61 63 63	educe-r.lambda.(&optional.it.acc
1e80	29 5d 20 36 20 28 23 24 20 2e 20 37 36 36 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75	)].6.(#$...7661)])).(put.'--redu
1ea0	63 65 2d 72 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f	ce-r.'edebug-form-spec.'(form.fo
1ec0	72 6d 29 29 0a 23 40 31 38 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20	rm)).#@188.Return.a.list.of.the.
1ee0	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 72 65 64 75 63	intermediate.values.of.the.reduc
1f00	74 69 6f 6e 2e 0a 0a 53 65 65 20 60 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 20 66 6f 72 20 65 78	tion...See.`-reduce-from'.for.ex
1f20	70 6c 61 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 2e 0a 0a 53 65 65	planation.of.the.arguments...See
1f40	20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 27 2c 20 60 2d 72 65 64 75 63 74 69 6f	.also:.`-reductions',.`-reductio
1f60	6e 73 2d 72 27 2c 20 60 2d 72 65 64 75 63 65 2d 72 27 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 20	ns-r',.`-reduce-r'..(fn.FN.INIT.
1f80	4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72	LIST)..(defalias.'-reductions-fr
1fa0	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 40 06 06 04 40 02 5c	om.#[771.".C.\300.\203...@...@.\
1fc0	22 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30	".B\262.\210\211T\262..A\262.\20
1fe0	32 04 00 5c 32 36 36 02 5c 32 31 31 5c 32 36 32 01 5c 32 33 37 5c 32 30 37 22 20 5b 30 5d 20 31	2..\266.\211\262.\237\207".[0].1
2000	30 20 28 23 24 20 2e 20 37 38 38 33 29 5d 29 0a 23 40 31 38 33 20 52 65 74 75 72 6e 20 61 20 6c	0.(#$...7883)]).#@183.Return.a.l
2020	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 65 73 20 6f	ist.of.the.intermediate.values.o
2040	66 20 74 68 65 20 72 65 64 75 63 74 69 6f 6e 2e 0a 0a 53 65 65 20 60 2d 72 65 64 75 63 65 27 20	f.the.reduction...See.`-reduce'.
2060	66 6f 72 20 65 78 70 6c 61 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73	for.explanation.of.the.arguments
2080	2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 27 2c	...See.also:.`-reductions-from',
20a0	20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 27 2c 20 60 2d 72 65 64 75 63 65 2d 72 27 0a 0a 28	.`-reductions-r',.`-reduce-r'..(
20c0	66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 74 69	fn.FN.LIST)..(defalias.'-reducti
20e0	6f 6e 73 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 40 03 41 23 5c 32 30 37 22 20 5b 2d 72 65 64	ons.#[514."\300..@.A#\207".[-red
2100	75 63 74 69 6f 6e 73 2d 66 72 6f 6d 5d 20 36 20 28 23 24 20 2e 20 38 32 31 34 29 5d 29 0a 23 40	uctions-from].6.(#$...8214)]).#@
2120	31 38 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 6e 74 65 72 6d 65	188.Return.a.list.of.the.interme
2140	64 69 61 74 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 72 65 64 75 63 74 69 6f 6e 2e 0a 0a	diate.values.of.the.reduction...
2160	53 65 65 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 20 66 6f 72 20 65 78 70 6c 61 6e 61	See.`-reduce-r-from'.for.explana
2180	74 69 6f 6e 20 6f 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 2e 0a 0a 53 65 65 20 61 6c 73 6f	tion.of.the.arguments...See.also
21a0	3a 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 27 2c 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 27	:.`-reductions-r',.`-reductions'
21c0	2c 20 60 2d 72 65 64 75 63 65 27 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a	,.`-reduce'..(fn.FN.INIT.LIST)..
21e0	28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 20 23 5b	(defalias.'-reductions-r-from.#[
2200	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 35 06 08 21	771."\300\301\302\303\304\305..!
2220	5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 03 43 03 23 5c 32 30 37 22 20 5b 2d 72 65 64 75 63	\306\"\307\310%.C.#\207".[-reduc
2240	65 2d 72 2d 66 72 6f 6d 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 32 20 22 5c 33 30	e-r-from.make-byte-code.512."\30
2260	30 02 02 40 5c 22 01 42 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20	0..@\".B\207".vconcat.vector.[].
2280	35 20 22 5c 6e 5c 6e 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 49 54 20 41 43 43 29 22 5d 20 31	5."\n\n(fn.&optional.IT.ACC)"].1
22a0	30 20 28 23 24 20 2e 20 38 34 38 34 29 5d 29 0a 23 40 31 38 33 20 52 65 74 75 72 6e 20 61 20 6c	0.(#$...8484)]).#@183.Return.a.l
22c0	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 65 73 20 6f	ist.of.the.intermediate.values.o
22e0	66 20 74 68 65 20 72 65 64 75 63 74 69 6f 6e 2e 0a 0a 53 65 65 20 60 2d 72 65 64 75 63 65 2d 72	f.the.reduction...See.`-reduce-r
2300	27 20 66 6f 72 20 65 78 70 6c 61 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 61 72 67 75 6d 65 6e	'.for.explanation.of.the.argumen
2320	74 73 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72	ts...See.also:.`-reductions-r-fr
2340	6f 6d 27 2c 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 27 2c 20 60 2d 72 65 64 75 63 65 27 0a 0a 28	om',.`-reductions',.`-reduce'..(
2360	66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 74 69	fn.FN.LIST)..(defalias.'-reducti
2380	6f 6e 73 2d 72 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 21 5c 33 30 32 04 21 23 5c	ons-r.#[514."\300.\301.!\302.!#\
23a0	32 30 37 22 20 5b 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 20 2d 6c 61 73 74 2d 69	207".[-reductions-r-from.-last-i
23c0	74 65 6d 20 2d 62 75 74 6c 61 73 74 5d 20 37 20 28 23 24 20 2e 20 38 38 38 36 29 5d 29 0a 23 40	tem.-butlast].7.(#$...8886)]).#@
23e0	36 39 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 66 69 6c 74 65 72 27 2e 0a	69.Anaphoric.form.of.`-filter'..
2400	0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 2d 72 65 6d 6f 76 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d	.See.also:.`--remove'...(fn.FORM
2420	20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 6c 74 65 72 20 27 28 6d 61	.LIST)..(defalias.'--filter.'(ma
2440	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 33	cro...#[514."\300\301!\302.C\303
2460	04 5c 33 30 34 06 07 5c 33 30 35 5c 33 30 36 06 08 45 45 45 5c 33 30 37 04 44 46 5c 32 30 37 22	.\304..\305\306..EEE\307.DF\207"
2480	20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 6c 65 74 20 2d 2d 65 61 63	.[make-symbol."result".let.--eac
24a0	68 20 77 68 65 6e 20 21 63 6f 6e 73 20 69 74 20 6e 72 65 76 65 72 73 65 5d 20 31 32 20 28 23 24	h.when.!cons.it.nreverse].12.(#$
24c0	20 2e 20 39 31 38 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 6c 74 65 72 20 27 65 64 65 62	...9187)])).(put.'--filter.'edeb
24e0	75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 34 35	ug-form-spec.'(form.form)).#@145
2500	20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 74 65 6d 73 20	.Return.a.new.list.of.the.items.
2520	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 72 6e 73 20 61	in.LIST.for.which.PRED.returns.a
2540	20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 73 65 6c 65 63 74	.non-nil.value...Alias:.`-select
2560	27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6b 65 65 70 27 2c 20 60 2d 72 65 6d 6f 76 65 27 2e	'..See.also:.`-keep',.`-remove'.
2580	0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69	..(fn.PRED.LIST)..(defalias.'-fi
25a0	6c 74 65 72 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 20 00 01 40 05 01	lter.#[514."\300.\301.\203...@..
25c0	21 5c 32 30 33 14 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01	!\203..\211.B\262.\210\211T\262.
25e0	01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20	.A\262.\202..\266.\211\237\207".
2600	5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 39 34 37 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f	[nil.0].8.(#$...9473)]).(byte-co
2620	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33	de."\300\301\302\"\210\300\303\3
2640	30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 73 65 6c 65 63 74 20 2d 66 69 6c	04\"\207".[defalias.-select.-fil
2660	74 65 72 20 2d 2d 73 65 6c 65 63 74 20 2d 2d 66 69 6c 74 65 72 5d 20 33 29 0a 23 40 36 38 20 41	ter.--select.--filter].3).#@68.A
2680	6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 72 65 6d 6f 76 65 27 2e 0a 0a 53 65 65	naphoric.form.of.`-remove'...See
26a0	20 61 6c 73 6f 20 60 2d 2d 66 69 6c 74 65 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54	.also.`--filter'...(fn.FORM.LIST
26c0	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 6d 6f 76 65 20 27 28 6d 61 63 72 6f 20 2e	)..(defalias.'--remove.'(macro..
26e0	20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 44 02 45 5c 32 30 37 22 20 5b 2d 2d 66 69 6c	.#[514."\300\301.D.E\207".[--fil
2700	74 65 72 20 6e 6f 74 5d 20 35 20 28 23 24 20 2e 20 39 38 35 35 29 5d 29 29 0a 28 70 75 74 20 27	ter.not].5.(#$...9855)])).(put.'
2720	2d 2d 72 65 6d 6f 76 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72	--remove.'edebug-form-spec.'(for
2740	6d 20 66 6f 72 6d 29 29 0a 23 40 31 32 34 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74	m.form)).#@124.Return.a.new.list
2760	20 6f 66 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20	.of.the.items.in.LIST.for.which.
2780	50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65 6a 65	PRED.returns.nil...Alias:.`-reje
27a0	63 74 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 69 6c 74 65 72 27 2e 0a 0a 28 66 6e 20 50	ct'..See.also:.`-filter'...(fn.P
27c0	52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 20 23 5b	RED.LIST)..(defalias.'-remove.#[
27e0	35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 20 00 01 40 05 01 21 5c 32 30 34 14 00	514."\300.\301.\203...@..!\204..
2800	5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02	\211.B\262.\210\211T\262..A\262.
2820	5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d	\202..\266.\211\237\207".[nil.0]
2840	20 38 20 28 23 24 20 2e 20 31 30 30 36 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	.8.(#$...10063)]).(byte-code."\3
2860	30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32	00\301\302\"\210\300\303\304\"\2
2880	30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 72 65 6a 65 63 74 20 2d 72 65 6d 6f 76 65 20 2d 2d	07".[defalias.-reject.-remove.--
28a0	72 65 6a 65 63 74 20 2d 2d 72 65 6d 6f 76 65 5d 20 33 29 0a 23 40 31 33 37 20 52 65 74 75 72 6e	reject.--remove].3).#@137.Return
28c0	20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20	.a.new.list.with.the.first.item.
28e0	6d 61 74 63 68 69 6e 67 20 50 52 45 44 20 72 65 6d 6f 76 65 64 2e 0a 0a 41 6c 69 61 73 3a 20 60	matching.PRED.removed...Alias:.`
2900	2d 72 65 6a 65 63 74 2d 66 69 72 73 74 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 6d 6f	-reject-first'..See.also:.`-remo
2920	76 65 27 2c 20 60 2d 6d 61 70 2d 66 69 72 73 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54	ve',.`-map-first'..(fn.PRED.LIST
2940	29 1f 0a 28 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	)..(defalias.'-remove-first.#[51
2960	34 20 22 5c 33 30 30 01 5c 32 30 33 19 00 02 02 40 21 5c 32 30 34 19 00 01 40 01 42 5c 32 36 32	4."\300.\203....@!\204...@.B\262
2980	01 01 41 5c 32 36 32 02 5c 32 30 32 01 00 01 5c 32 30 33 26 00 5c 33 30 31 01 5c 32 33 37 03 41	..A\262.\202...\203&.\301.\237.A
29a0	5c 22 5c 32 30 32 28 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 63	\"\202(.\211\237\207".[nil.-conc
29c0	61 74 5d 20 36 20 28 23 24 20 2e 20 31 30 34 32 36 29 5d 29 0a 23 40 35 32 20 41 6e 61 70 68 6f	at].6.(#$...10426)]).#@52.Anapho
29e0	72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 27 2e 0a 0a 28 66	ric.form.of.`-remove-first'...(f
2a00	6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 6d 6f 76	n.FORM.LIST)..(defalias.'--remov
2a20	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 30	e-first.'(macro...#[514."\300\30
2a40	31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 6c 61	1\302.E.E\207".[-remove-first.la
2a60	6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 31 30 37 31 34 29 5d 29 29 0a 28 62 79	mbda.(it)].6.(#$...10714)])).(by
2a80	74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33	te-code."\300\301\302\303#\210\3
2aa0	30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 31 30 5c 33 30 34 5c 33 30 37 5c 33 30 31 5c 22 5c 32	04\305\306\"\210\304\307\301\"\2
2ac0	30 37 22 20 5b 70 75 74 20 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 65 64 65 62 75 67 2d 66	07".[put.--remove-first.edebug-f
2ae0	6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 64 65 66 61 6c 69 61 73 20 2d 72	orm-spec.(form.form).defalias.-r
2b00	65 6a 65 63 74 2d 66 69 72 73 74 20 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 2d 2d 72 65 6a 65	eject-first.-remove-first.--reje
2b20	63 74 2d 66 69 72 73 74 5d 20 34 29 0a 23 40 31 33 34 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20	ct-first].4).#@134.Return.a.new.
2b40	6c 69 73 74 20 77 69 74 68 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 20 6d 61 74 63 68 69 6e 67	list.with.the.last.item.matching
2b60	20 50 52 45 44 20 72 65 6d 6f 76 65 64 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65 6a 65 63 74 2d	.PRED.removed...Alias:.`-reject-
2b80	6c 61 73 74 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 6d 6f 76 65 27 2c 20 60 2d 6d 61	last'..See.also:.`-remove',.`-ma
2ba0	70 2d 6c 61 73 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69	p-last'..(fn.PRED.LIST)..(defali
2bc0	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 02 5c 33 30	as.'-remove-last.#[514."\300.\30
2be0	31 03 21 5c 22 5c 32 33 37 5c 32 30 37 22 20 5b 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 72 65	1.!\"\237\207".[-remove-first.re
2c00	76 65 72 73 65 5d 20 36 20 28 23 24 20 2e 20 31 31 30 35 39 29 5d 29 0a 23 40 35 31 20 41 6e 61	verse].6.(#$...11059)]).#@51.Ana
2c20	70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 27 2e 0a 0a	phoric.form.of.`-remove-last'...
2c40	28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 6d	(fn.FORM.LIST)..(defalias.'--rem
2c60	6f 76 65 2d 6c 61 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	ove-last.'(macro...#[514."\300\3
2c80	30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 6c 61	01\302.E.E\207".[-remove-last.la
2ca0	6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 31 31 32 39 33 29 5d 29 29 0a 28 62 79	mbda.(it)].6.(#$...11293)])).(by
2cc0	74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33	te-code."\300\301\302\303#\210\3
2ce0	30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 31 30 5c 33 30 34 5c 33 30 37 5c 33 30 31 5c 22 5c 32	04\305\306\"\210\304\307\301\"\2
2d00	30 37 22 20 5b 70 75 74 20 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 65 64 65 62 75 67 2d 66 6f	07".[put.--remove-last.edebug-fo
2d20	72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 64 65 66 61 6c 69 61 73 20 2d 72 65	rm-spec.(form.form).defalias.-re
2d40	6a 65 63 74 2d 6c 61 73 74 20 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 2d 2d 72 65 6a 65 63 74 2d	ject-last.-remove-last.--reject-
2d60	6c 61 73 74 5d 20 34 29 0a 23 40 39 32 20 52 65 6d 6f 76 65 20 61 6c 6c 20 6f 63 63 75 72 65 6e	last].4).#@92.Remove.all.occuren
2d80	63 65 73 20 6f 66 20 49 54 45 4d 20 66 72 6f 6d 20 4c 49 53 54 2e 0a 0a 43 6f 6d 70 61 72 69 73	ces.of.ITEM.from.LIST...Comparis
2da0	6f 6e 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2e 0a 0a 28 66 6e 20 49 54	on.is.done.with.`equal'...(fn.IT
2dc0	45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 2d 69 74 65	EM.LIST)..(defalias.'-remove-ite
2de0	6d 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 21 00 01 40 5c 32 31 31 06	m.#[514."\300.\301.\203!..@\211.
2e00	06 5c 32 33 32 5c 32 30 34 15 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c	.\232\204..\211.B\262.\210\211T\
2e20	32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32	262..A\262.\202..\266.\211\237\2
2e40	30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 31 31 36 33 30 29 5d 29 0a 28 62 79	07".[nil.0].8.(#$...11630)]).(by
2e60	74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33	te-code."\300\301\302\303#\210\3
2e80	30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70	00\301\304\303#\207".[function-p
2ea0	75 74 20 2d 72 65 6d 6f 76 65 2d 69 74 65 6d 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65	ut.-remove-item.pure.t.side-effe
2ec0	63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 34 34 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20	ct-free].4).#@44.Anaphoric.form.
2ee0	6f 66 20 60 2d 6b 65 65 70 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65	of.`-keep'...(fn.FORM.LIST)..(de
2f00	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 34 20 22	falias.'--keep.'(macro...#[514."
2f20	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 5c 33 30	\300\301!\300\302!\303.C\304.\30
2f40	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 44 46 5c	3...DC\305..\306....EEEE\307.DF\
2f60	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 61 70 70	207".[make-symbol."result"."mapp
2f80	65 64 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 21 63 6f 6e 73 20 6e 72 65 76 65 72	ed".let.--each.when.!cons.nrever
2fa0	73 65 5d 20 31 35 20 28 23 24 20 2e 20 31 31 39 38 35 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6b	se].15.(#$...11985)])).(put.'--k
2fc0	65 65 70 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	eep.'edebug-form-spec.'(form.for
2fe0	6d 29 29 0a 23 40 31 37 33 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74	m)).#@173.Return.a.new.list.of.t
3000	68 65 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 73 20 6f 66 20 61 70 70 6c 79 69 6e 67 20 46	he.non-nil.results.of.applying.F
3020	4e 20 74 6f 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 0a 49 66 20 79 6f 75 20	N.to.the.items.in.LIST...If.you.
3040	77 61 6e 74 20 74 6f 20 73 65 6c 65 63 74 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 69 74 65 6d	want.to.select.the.original.item
3060	73 20 73 61 74 69 73 66 79 69 6e 67 20 61 20 70 72 65 64 69 63 61 74 65 20 75 73 65 20 60 2d 66	s.satisfying.a.predicate.use.`-f
3080	69 6c 74 65 72 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73	ilter'...(fn.FN.LIST)..(defalias
30a0	20 27 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 5c 22 00	.'-keep.#[514."\300.\301.\203\".
30c0	01 40 05 01 21 5c 32 31 31 5c 32 30 33 15 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 36 36 02 5c	.@..!\211\203..\211.B\262.\266.\
30e0	32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c	211T\262..A\262.\202..\266.\211\
3100	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 31 32 32 36 36 29 5d	237\207".[nil.0].9.(#$...12266)]
3120	29 0a 23 40 34 39 20 52 65 74 75 72 6e 20 61 6c 6c 20 6e 6f 6e 2d 6e 69 6c 20 65 6c 65 6d 65 6e	).#@49.Return.all.non-nil.elemen
3140	74 73 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61	ts.of.LIST...(fn.LIST)..(defalia
3160	73 20 27 2d 6e 6f 6e 2d 6e 69 6c 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32	s.'-non-nil.#[257."\300\301.\"\2
3180	30 37 22 20 5b 2d 72 65 6d 6f 76 65 20 6e 75 6c 6c 5d 20 34 20 28 23 24 20 2e 20 31 32 35 38 33	07".[-remove.null].4.(#$...12583
31a0	29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	)]).(byte-code."\300\301\302\303
31c0	23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e	#\210\300\301\304\303#\207".[fun
31e0	63 74 69 6f 6e 2d 70 75 74 20 2d 6e 6f 6e 2d 6e 69 6c 20 70 75 72 65 20 74 20 73 69 64 65 2d 65	ction-put.-non-nil.pure.t.side-e
3200	66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 35 31 20 41 6e 61 70 68 6f 72 69 63 20 66 6f	ffect-free].4).#@51.Anaphoric.fo
3220	72 6d 20 6f 66 20 60 2d 6d 61 70 2d 69 6e 64 65 78 65 64 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20	rm.of.`-map-indexed'...(fn.FORM.
3240	4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 20	LIST)..(defalias.'--map-indexed.
3260	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 43	'(macro...#[514."\300\301!\302.C
3280	5c 33 30 33 04 5c 33 30 34 06 07 06 06 45 45 5c 33 30 35 04 44 46 5c 32 30 37 22 20 5b 6d 61 6b	\303.\304....EE\305.DF\207".[mak
32a0	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 20 21 63 6f	e-symbol."result".let.--each.!co
32c0	6e 73 20 6e 72 65 76 65 72 73 65 5d 20 31 30 20 28 23 24 20 2e 20 31 32 38 32 30 29 5d 29 29 0a	ns.nreverse].10.(#$...12820)])).
32e0	28 70 75 74 20 27 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 20 27 65 64 65 62 75 67 2d 66 6f 72 6d	(put.'--map-indexed.'edebug-form
3300	2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 31 31 20 52 65 74 75 72 6e	-spec.'(form.form)).#@211.Return
3320	20 61 20 6e 65 77 20 6c 69 73 74 20 63 6f 6e 73 69 73 74 69 6e 67 20 6f 66 20 74 68 65 20 72 65	.a.new.list.consisting.of.the.re
3340	73 75 6c 74 20 6f 66 20 28 46 4e 20 69 6e 64 65 78 20 69 74 65 6d 29 20 66 6f 72 20 65 61 63 68	sult.of.(FN.index.item).for.each
3360	20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2e 0a 0a 49 6e 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63	.item.in.LIST...In.the.anaphoric
3380	20 66 6f 72 6d 20 60 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 27 2c 20 74 68 65 20 69 6e 64 65 78	.form.`--map-indexed',.the.index
33a0	20 69 73 20 65 78 70 6f 73 65 64 20 61 73 20 73 79 6d 62 6f 6c 20 60 69 74 2d 69 6e 64 65 78 27	.is.exposed.as.symbol.`it-index'
33c0	2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 27 2e 0a 0a 28	...See.also:.`-each-indexed'...(
33e0	66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 2d 69 6e 64	fn.FN.LIST)..(defalias.'-map-ind
3400	65 78 65 64 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 40 05 02	exed.#[514."\300.\301.\203...@..
3420	02 5c 22 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c	.\".B\262.\210\211T\262..A\262.\
3440	32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20	202..\266.\211\237\207".[nil.0].
3460	39 20 28 23 24 20 2e 20 31 33 30 38 32 29 5d 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20	9.(#$...13082)]).#@52.Anaphoric.
3480	66 6f 72 6d 20 6f 66 20 60 2d 6d 61 70 2d 77 68 65 6e 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 52	form.of.`-map-when'...(fn.PRED.R
34a0	45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 2d 77 68 65 6e 20	EP.LIST)..(defalias.'--map-when.
34c0	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 32 01 43	'(macro...#[771."\300\301!\302.C
34e0	5c 33 30 33 04 5c 33 30 34 5c 33 30 35 06 09 06 09 5c 33 30 36 42 42 42 06 06 45 45 5c 33 30 37	\303.\304\305....\306BBB..EE\307
3500	04 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 6c	.DF\207".[make-symbol."result".l
3520	65 74 20 2d 2d 65 61 63 68 20 21 63 6f 6e 73 20 69 66 20 28 69 74 29 20 6e 72 65 76 65 72 73 65	et.--each.!cons.if.(it).nreverse
3540	5d 20 31 33 20 28 23 24 20 2e 20 31 33 34 33 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70	].13.(#$...13430)])).(put.'--map
3560	2d 77 68 65 6e 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	-when.'edebug-form-spec.'(form.f
3580	6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 36 36 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69	orm.form)).#@266.Return.a.new.li
35a0	73 74 20 77 68 65 72 65 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 53 54 20 74 68	st.where.the.elements.in.LIST.th
35c0	61 74 20 64 6f 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65 20 50 52 45 44 20 66 75 6e 63 74 69 6f	at.do.not.match.the.PRED.functio
35e0	6e 0a 61 72 65 20 75 6e 63 68 61 6e 67 65 64 2c 20 61 6e 64 20 77 68 65 72 65 20 74 68 65 20 65	n.are.unchanged,.and.where.the.e
3600	6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 53 54 20 74 68 61 74 20 64 6f 20 6d 61 74 63 68 20 74 68	lements.in.LIST.that.do.match.th
3620	65 20 50 52 45 44 20 66 75 6e 63 74 69 6f 6e 20 61 72 65 20 6d 61 70 70 65 64 0a 74 68 72 6f 75	e.PRED.function.are.mapped.throu
3640	67 68 20 74 68 65 20 52 45 50 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72	gh.the.REP.function...Alias:.`-r
3660	65 70 6c 61 63 65 2d 77 68 65 72 65 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 75 70 64 61 74	eplace-where'..See.also:.`-updat
3680	65 2d 61 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61	e-at'..(fn.PRED.REP.LIST)..(defa
36a0	6c 69 61 73 20 27 2d 6d 61 70 2d 77 68 65 6e 20 23 5b 37 37 31 20 22 5c 33 30 30 01 5c 33 30 31	lias.'-map-when.#[771."\300.\301
36c0	01 5c 32 30 33 27 00 01 40 06 06 01 21 5c 32 30 33 16 00 05 01 21 5c 32 30 32 17 00 5c 32 31 31	.\203'..@...!\203....!\202..\211
36e0	04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32	.B\262.\210\211T\262..A\262.\202
3700	03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28	..\266.\211\237\207".[nil.0].9.(
3720	23 24 20 2e 20 31 33 37 31 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	#$...13713)]).(byte-code."\300\3
3740	30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20	01\302\"\210\300\303\304\"\207".
3760	5b 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 6d 61 70 2d 77 68	[defalias.-replace-where.-map-wh
3780	65 6e 20 2d 2d 72 65 70 6c 61 63 65 2d 77 68 65 72 65 20 2d 2d 6d 61 70 2d 77 68 65 6e 5d 20 33	en.--replace-where.--map-when].3
37a0	29 0a 23 40 31 34 35 20 52 65 70 6c 61 63 65 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 4c 49	).#@145.Replace.first.item.in.LI
37c0	53 54 20 73 61 74 69 73 66 79 69 6e 67 20 50 52 45 44 20 77 69 74 68 20 72 65 73 75 6c 74 20 6f	ST.satisfying.PRED.with.result.o
37e0	66 20 52 45 50 20 63 61 6c 6c 65 64 20 6f 6e 20 74 68 69 73 20 69 74 65 6d 2e 0a 0a 53 65 65 20	f.REP.called.on.this.item...See.
3800	61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 77 68 65 6e 27 2c 20 60 2d 72 65 70 6c 61 63 65 2d 66 69 72	also:.`-map-when',.`-replace-fir
3820	73 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69	st'..(fn.PRED.REP.LIST)..(defali
3840	61 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	as.'-map-first.#[771."\300.\203.
3860	00 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	...@!\204...@.B\262..A\262.\202.
3880	00 01 5c 32 30 33 2b 00 5c 33 30 31 01 5c 32 33 37 04 04 40 21 04 41 42 5c 22 5c 32 30 32 2d 00	..\203+.\301.\237..@!.AB\"\202-.
38a0	5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 63 61 74 5d 20 38 20 28 23	\211\237\207".[nil.-concat].8.(#
38c0	24 20 2e 20 31 34 32 34 38 29 5d 29 0a 23 40 35 33 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d	$...14248)]).#@53.Anaphoric.form
38e0	20 6f 66 20 60 2d 6d 61 70 2d 66 69 72 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20	.of.`-map-first'...(fn.PRED.REP.
3900	4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 2d 66 69 72 73 74 20 27 28	LIST)..(defalias.'--map-first.'(
3920	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 05 45 5c 33 30	macro...#[771."\300\301\302.E\30
3940	31 5c 33 30 33 5c 33 30 34 06 06 46 03 46 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 66 69 72 73 74 20	1\303\304..F.F\207".[-map-first.
3960	6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 5d 20 39 20	lambda.(it).(it).(ignore.it)].9.
3980	28 23 24 20 2e 20 31 34 35 34 36 29 5d 29 29 0a 23 40 31 34 33 20 52 65 70 6c 61 63 65 20 6c 61	(#$...14546)])).#@143.Replace.la
39a0	73 74 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 73 61 74 69 73 66 79 69 6e 67 20 50 52 45 44 20	st.item.in.LIST.satisfying.PRED.
39c0	77 69 74 68 20 72 65 73 75 6c 74 20 6f 66 20 52 45 50 20 63 61 6c 6c 65 64 20 6f 6e 20 74 68 69	with.result.of.REP.called.on.thi
39e0	73 20 69 74 65 6d 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 77 68 65 6e 27 2c 20	s.item...See.also:.`-map-when',.
3a00	60 2d 72 65 70 6c 61 63 65 2d 6c 61 73 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49	`-replace-last'..(fn.PRED.REP.LI
3a20	53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 2d 6c 61 73 74 20 23 5b 37 37 31 20	ST)..(defalias.'-map-last.#[771.
3a40	22 5c 33 30 30 03 03 5c 33 30 31 04 21 23 5c 32 33 37 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 66 69	"\300..\301.!#\237\207".[-map-fi
3a60	72 73 74 20 72 65 76 65 72 73 65 5d 20 38 20 28 23 24 20 2e 20 31 34 37 34 32 29 5d 29 0a 23 40	rst.reverse].8.(#$...14742)]).#@
3a80	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 6c 61 73 74 27	52.Anaphoric.form.of.`-map-last'
3aa0	2e 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73	...(fn.PRED.REP.LIST)..(defalias
3ac0	20 27 2d 2d 6d 61 70 2d 6c 61 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33	.'--map-last.'(macro...#[771."\3
3ae0	30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33 5c 33 30 34 06 06 46 03 46 5c 32 30	00\301\302.E\301\303\304..F.F\20
3b00	37 22 20 5b 2d 6d 61 70 2d 6c 61 73 74 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 29 20 28	7".[-map-last.lambda.(it).(it).(
3b20	69 67 6e 6f 72 65 20 69 74 29 5d 20 39 20 28 23 24 20 2e 20 31 34 39 37 39 29 5d 29 29 0a 23 40	ignore.it)].9.(#$...14979)])).#@
3b40	31 32 33 20 52 65 70 6c 61 63 65 20 61 6c 6c 20 4f 4c 44 20 69 74 65 6d 73 20 69 6e 20 4c 49 53	123.Replace.all.OLD.items.in.LIS
3b60	54 20 77 69 74 68 20 4e 45 57 2e 0a 0a 45 6c 65 6d 65 6e 74 73 20 61 72 65 20 63 6f 6d 70 61 72	T.with.NEW...Elements.are.compar
3b80	65 64 20 75 73 69 6e 67 20 60 65 71 75 61 6c 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72	ed.using.`equal'...See.also:.`-r
3ba0	65 70 6c 61 63 65 2d 61 74 27 0a 0a 28 66 6e 20 4f 4c 44 20 4e 45 57 20 4c 49 53 54 29 1f 0a 28	eplace-at'..(fn.OLD.NEW.LIST)..(
3bc0	64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63 65 20 23 5b 37 37 31 20 22 5c 33 30 30 01 5c	defalias.'-replace.#[771."\300.\
3be0	33 30 31 01 5c 32 30 33 25 00 01 40 5c 32 31 31 06 07 5c 32 33 32 5c 32 30 33 14 00 05 5c 32 30	301.\203%..@\211..\232\203...\20
3c00	32 15 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32	2..\211.B\262.\210\211T\262..A\2
3c20	36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c	62.\202..\266.\211\237\207".[nil
3c40	20 30 5d 20 39 20 28 23 24 20 2e 20 31 35 31 37 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20	.0].9.(#$...15172)]).(byte-code.
3c60	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33	"\300\301\302\303#\210\300\301\3
3c80	30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 70 6c	04\303#\207".[function-put.-repl
3ca0	61 63 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a	ace.pure.t.side-effect-free].4).
3cc0	23 40 31 33 35 20 52 65 70 6c 61 63 65 20 74 68 65 20 66 69 72 73 74 20 6f 63 63 75 72 65 6e 63	#@135.Replace.the.first.occurenc
3ce0	65 20 6f 66 20 4f 4c 44 20 77 69 74 68 20 4e 45 57 20 69 6e 20 4c 49 53 54 2e 0a 0a 45 6c 65 6d	e.of.OLD.with.NEW.in.LIST...Elem
3d00	65 6e 74 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 75 73 69 6e 67 20 60 65 71 75 61 6c 27 2e	ents.are.compared.using.`equal'.
3d20	0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 66 69 72 73 74 27 0a 0a 28 66 6e 20 4f 4c	..See.also:.`-map-first'..(fn.OL
3d40	44 20 4e 45 57 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63 65	D.NEW.LIST)..(defalias.'-replace
3d60	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 5c 33 30 33 5c 33	-first.#[771."\300\301\302\303\3
3d80	30 34 5c 33 30 35 06 08 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 5c 33 30 31 5c 33 30 32	04\305..!\306\"\307\310%\301\302
3da0	5c 33 31 31 5c 33 30 34 5c 33 30 35 06 08 21 5c 33 30 36 5c 22 5c 33 31 32 5c 33 31 30 25 03 23	\311\304\305..!\306\"\312\310%.#
3dc0	5c 32 30 37 22 20 5b 2d 6d 61 70 2d 66 69 72 73 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65	\207".[-map-first.make-byte-code
3de0	20 32 35 37 20 22 5c 33 30 30 01 5c 32 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63	.257."\300.\232\207".vconcat.vec
3e00	74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 20 22 5c 33 30 30 5c 32 30 37	tor.[].3."\n\n(fn.IT)"."\300\207
3e20	22 20 32 5d 20 31 31 20 28 23 24 20 2e 20 31 35 35 35 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64	".2].11.(#$...15558)]).(byte-cod
3e40	65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31	e."\300\301\302\303#\210\300\301
3e60	5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65	\304\303#\207".[function-put.-re
3e80	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 2d 66	place-first.pure.t.side-effect-f
3ea0	72 65 65 5d 20 34 29 0a 23 40 31 33 33 20 52 65 70 6c 61 63 65 20 74 68 65 20 6c 61 73 74 20 6f	ree].4).#@133.Replace.the.last.o
3ec0	63 63 75 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 54	ccurence.of.OLD.with.NEW.in.LIST
3ee0	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 60	...Elements.are.compared.using.`
3f00	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 61 73 74 27 0a 0a	equal'...See.also:.`-map-last'..
3f20	28 66 6e 20 4f 4c 44 20 4e 45 57 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72	(fn.OLD.NEW.LIST)..(defalias.'-r
3f40	65 70 6c 61 63 65 2d 6c 61 73 74 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	eplace-last.#[771."\300\301\302\
3f60	33 30 33 5c 33 30 34 5c 33 30 35 06 08 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 5c 33 30	303\304\305..!\306\"\307\310%\30
3f80	31 5c 33 30 32 5c 33 31 31 5c 33 30 34 5c 33 30 35 06 08 21 5c 33 30 36 5c 22 5c 33 31 32 5c 33	1\302\311\304\305..!\306\"\312\3
3fa0	31 30 25 03 23 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 6c 61 73 74 20 6d 61 6b 65 2d 62 79 74 65 2d	10%.#\207".[-map-last.make-byte-
3fc0	63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 5c 32 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74	code.257."\300.\232\207".vconcat
3fe0	20 76 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 20 22 5c 33 30 30	.vector.[].3."\n\n(fn.IT)"."\300
4000	5c 32 30 37 22 20 32 5d 20 31 31 20 28 23 24 20 2e 20 31 36 30 34 36 29 5d 29 0a 28 62 79 74 65	\207".2].11.(#$...16046)]).(byte
4020	2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30	-code."\300\301\302\303#\210\300
4040	5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74	\301\304\303#\207".[function-put
4060	20 2d 72 65 70 6c 61 63 65 2d 6c 61 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63	.-replace-last.pure.t.side-effec
4080	74 2d 66 72 65 65 5d 20 34 29 0a 23 40 34 36 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f	t-free].4).#@46.Anaphoric.form.o
40a0	66 20 60 2d 6d 61 70 63 61 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64	f.`-mapcat'...(fn.FORM.LIST)..(d
40c0	65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 63 61 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31	efalias.'--mapcat.'(macro...#[51
40e0	34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 04 45 45 5c 32 30 37 22 20 5b 61 70 70 6c 79 20	4."\300\301\302..EE\207".[apply.
4100	27 61 70 70 65 6e 64 20 2d 2d 6d 61 70 5d 20 37 20 28 23 24 20 2e 20 31 36 35 32 38 29 5d 29 29	'append.--map].7.(#$...16528)]))
4120	0a 28 70 75 74 20 27 2d 2d 6d 61 70 63 61 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65	.(put.'--mapcat.'edebug-form-spe
4140	63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 31 38 20 52 65 74 75 72 6e 20 74 68 65	c.'(form.form)).#@118.Return.the
4160	20 63 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20	.concatenation.of.the.result.of.
4180	6d 61 70 70 69 6e 67 20 46 4e 20 6f 76 65 72 20 4c 49 53 54 2e 0a 54 68 75 73 20 66 75 6e 63 74	mapping.FN.over.LIST..Thus.funct
41a0	69 6f 6e 20 46 4e 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 2e 0a 0a 28 66	ion.FN.should.return.a.list...(f
41c0	6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 63 61 74 20 23	n.FN.LIST)..(defalias.'-mapcat.#
41e0	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 5c 33 30 35 5c 33	[514."\300\301\302\303\304\305\3
4200	30 36 5c 33 30 37 06 09 21 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 04 5c 22 5c 22 5c 32 30	06\307..!\310\"\311\312%.\"\"\20
4220	37 22 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74	7".[apply.append.mapcar.make-byt
4240	65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20	e-code.257."\300.!\207".vconcat.
4260	76 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 31 31 20 28 23	vector.[].3."\n\n(fn.IT)"].11.(#
4280	24 20 2e 20 31 36 37 32 36 29 5d 29 0a 23 40 34 33 36 20 54 61 6b 65 20 61 20 6e 65 73 74 65 64	$...16726)]).#@436.Take.a.nested
42a0	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 65 6e 74 73 20	.list.L.and.return.its.contents.
42c0	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 74 65 20 74 68	as.a.single,.flat.list...Note.th
42e0	61 74 20 62 65 63 61 75 73 65 20 60 6e 69 6c 27 20 72 65 70 72 65 73 65 6e 74 73 20 61 20 6c 69	at.because.`nil'.represents.a.li
4300	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 20 6c 69	st.of.zero.elements.(an.empty.li
4320	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 77 69 6c	st),.any.mention.of.nil.in.L.wil
4340	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 20 20 49	l.disappear.after.flattening...I
4360	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 63 6f 6e	f.you.need.to.preserve.nils,.con
4380	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 6d 20 74	sider.`-flatten-n'.or.map.them.t
43a0	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 20 6d 61	o.some.unique.symbol.and.then.ma
43c0	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 74 6f 6d	p.them.back...Conses.of.two.atom
43e0	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 20 74 68	s.are.considered."terminals",.th
4400	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 66 75 72	at.is,.they.aren't.flattened.fur
4420	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 0a 0a 28	ther...See.also:.`-flatten-n'..(
4440	66 6e 20 4c 29 1f 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	fn.L)..(defalias.'-flatten.#[257
4460	20 22 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	."\211<\203..\211A<\203..\300\30
4480	31 02 5c 22 5c 32 30 37 5c 32 31 31 43 5c 32 30 37 22 20 5b 2d 6d 61 70 63 61 74 20 2d 66 6c 61	1.\"\207\211C\207".[-mapcat.-fla
44a0	74 74 65 6e 5d 20 34 20 28 23 24 20 2e 20 31 37 30 34 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64	tten].4.(#$...17043)]).(byte-cod
44c0	65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31	e."\300\301\302\303#\210\300\301
44e0	5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 6c	\304\303#\207".[function-put.-fl
4500	61 74 74 65 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 34	atten.pure.t.side-effect-free].4
4520	29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 69 74	).#@52.Anaphoric.version.of.`-it
4540	65 72 61 74 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 54 20 4e 29 1f 0a 28 64 65 66 61	erate'...(fn.FORM.INIT.N)..(defa
4560	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 20 23 5b 37 37 31 20	lias.'--iterate.'(macro...#[771.
4580	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 03 03 46 5c 32 30 37 22 20 5b 2d 69 74 65 72 61 74	"\300\301\302.E..F\207".[-iterat
45a0	65 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 37 20 28 23 24 20 2e 20 31 37 37 30 33 29 5d 29 29	e.lambda.(it)].7.(#$...17703)]))
45c0	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 6f 72 6d 2d 73 70	.(put.'--iterate.'edebug-form-sp
45e0	65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 37 35 20 46 6c 61 74 74	ec.'(form.form.form)).#@75.Flatt
4600	65 6e 20 4e 55 4d 20 6c 65 76 65 6c 73 20 6f 66 20 61 20 6e 65 73 74 65 64 20 4c 49 53 54 2e 0a	en.NUM.levels.of.a.nested.LIST..
4620	0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 6c 61 74 74 65 6e 27 0a 0a 28 66 6e 20 4e 55 4d 20 4c	.See.also:.`-flatten'..(fn.NUM.L
4640	49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 6c 61 74 74 65 6e 2d 6e 20 23 5b 35 31	IST)..(defalias.'-flatten-n.#[51
4660	34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 05 54 23 21 5c 32 30 37 22 20 5b 2d 6c 61 73 74	4."\300\301\302..T#!\207".[-last
4680	2d 69 74 65 6d 20 2d 69 74 65 72 61 74 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33	-item.-iterate.#[257."\300\301\3
46a0	30 32 5c 33 30 33 04 5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6d	02\303.\"\"\207".[apply.append.m
46c0	61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 2d 6c 69 73 74 5d	apcar.#[257."\300.!\207".[-list]
46e0	20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 49 54	.3."\n\n(fn.IT)"]].6."\n\n(fn.IT
4700	29 22 5d 5d 20 37 20 28 23 24 20 2e 20 31 37 39 31 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65	)"]].7.(#$...17915)]).(byte-code
4720	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c	."\300\301\302\303#\210\300\301\
4740	33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 6c 61	304\303#\207".[function-put.-fla
4760	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 5d 20	tten-n.pure.t.side-effect-free].
4780	34 29 0a 23 40 39 39 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	4).#@99.Return.a.new.list.with.t
47a0	68 65 20 63 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 65 6c 65 6d 65 6e 74 73	he.concatenation.of.the.elements
47c0	20 69 6e 20 74 68 65 20 73 75 70 70 6c 69 65 64 20 4c 49 53 54 53 2e 0a 0a 28 66 6e 20 26 72 65	.in.the.supplied.LISTS...(fn.&re
47e0	73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 63 61 74 20 23 5b	st.LISTS)..(defalias.'-concat.#[
4800	31 32 38 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70	128."\300\301.\"\207".[apply.app
4820	65 6e 64 5d 20 34 20 28 23 24 20 2e 20 31 38 33 31 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65	end].4.(#$...18312)]).(byte-code
4840	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c	."\300\301\302\303#\210\300\301\
4860	33 30 34 5c 33 30 33 23 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 23 5c 32 30	304\303#\210\305\306\307\310#\20
4880	37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6e 63 61 74 20 70 75 72 65 20 74 20	7".[function-put.-concat.pure.t.
48a0	73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d 63 6f 70 79 20	side-effect-free.defalias.-copy.
48c0	63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 22 43 72 65 61 74 65 20 61 20 73 68 61 6c 6c 6f 77 20	copy-sequence."Create.a.shallow.
48e0	63 6f 70 79 20 6f 66 20 4c 49 53 54 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 5d 20 34 29 0a	copy.of.LIST.\n\n(fn.LIST)"].4).
4900	23 40 33 32 33 20 53 70 6c 69 63 65 20 6c 69 73 74 73 20 67 65 6e 65 72 61 74 65 64 20 62 79 20	#@323.Splice.lists.generated.by.
4920	46 55 4e 20 69 6e 20 70 6c 61 63 65 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 6d 61 74 63 68 69 6e	FUN.in.place.of.elements.matchin
4940	67 20 50 52 45 44 20 69 6e 20 4c 49 53 54 2e 0a 0a 46 55 4e 20 74 61 6b 65 73 20 74 68 65 20 65	g.PRED.in.LIST...FUN.takes.the.e
4960	6c 65 6d 65 6e 74 20 6d 61 74 63 68 69 6e 67 20 50 52 45 44 20 61 73 20 69 6e 70 75 74 2e 0a 0a	lement.matching.PRED.as.input...
4980	54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 63 61 6e 20 62 65 20 75 73 65 64 20 61 73 20 72 65 70	This.function.can.be.used.as.rep
49a0	6c 61 63 65 6d 65 6e 74 20 66 6f 72 20 60 2c 40 27 20 69 6e 20 63 61 73 65 20 79 6f 75 0a 6e 65	lacement.for.`,@'.in.case.you.ne
49c0	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 20 6d 61	ed.to.splice.several.lists.at.ma
49e0	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 0a 77 69 74 68	rked.positions.(for.example.with
4a00	20 6b 65 79 77 6f 72 64 73 29 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 70 6c 69 63 65 2d	.keywords)...See.also:.`-splice-
4a20	6c 69 73 74 27 2c 20 60 2d 69 6e 73 65 72 74 2d 61 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 46 55	list',.`-insert-at'..(fn.PRED.FU
4a40	4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 63 65 20 23 5b 37 37	N.LIST)..(defalias.'-splice.#[77
4a60	31 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 43 00 01 40 06 06 01 21 5c 32 30 33 32 00 05	1."\300.\301.\203C..@...!\2032..
4a80	01 21 5c 32 31 31 5c 33 30 31 01 5c 32 30 33 2d 00 01 40 5c 32 31 31 06 08 42 5c 32 36 32 08 5c	.!\211\301.\203-..@\211..B\262.\
4aa0	32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 15 00 5c 32 36 36 03 5c	210\211T\262..A\262.\202..\266.\
4ac0	32 30 32 37 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41	2027.\211.B\262.\210\211T\262..A
4ae0	5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e	\262.\202..\266.\211\237\207".[n
4b00	69 6c 20 30 5d 20 31 33 20 28 23 24 20 2e 20 31 38 36 39 34 29 5d 29 0a 23 40 35 31 20 41 6e 61	il.0].13.(#$...18694)]).#@51.Ana
4b20	70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 70 6c 69 63 65 27 2e 0a 0a 28 66 6e 20 50	phoric.form.of.`-splice'...(fn.P
4b40	52 45 44 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 70 6c	RED.FORM.LIST)..(defalias.'--spl
4b60	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 31 5c 33 30	ice.'(macro...#[771."\300\301\30
4b80	32 05 45 5c 33 30 31 5c 33 30 33 05 45 03 46 5c 32 30 37 22 20 5b 2d 73 70 6c 69 63 65 20 6c 61	2.E\301\303.E.F\207".[-splice.la
4ba0	6d 62 64 61 20 28 69 74 29 20 28 69 74 29 5d 20 38 20 28 23 24 20 2e 20 31 39 32 32 39 29 5d 29	mbda.(it).(it)].8.(#$...19229)])
4bc0	29 0a 23 40 31 32 31 20 53 70 6c 69 63 65 20 4e 45 57 2d 4c 49 53 54 20 69 6e 20 70 6c 61 63 65	).#@121.Splice.NEW-LIST.in.place
4be0	20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 6d 61 74 63 68 69 6e 67 20 50 52 45 44 20 69 6e 20 4c 49	.of.elements.matching.PRED.in.LI
4c00	53 54 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 70 6c 69 63 65 27 2c 20 60 2d 69 6e 73 65	ST...See.also:.`-splice',.`-inse
4c20	72 74 2d 61 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 4e 45 57 2d 4c 49 53 54 20 4c 49 53 54 29 1f	rt-at'..(fn.PRED.NEW-LIST.LIST).
4c40	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 63 65 2d 6c 69 73 74 20 23 5b 37 37 31 20 22	.(defalias.'-splice-list.#[771."
4c60	5c 33 30 30 03 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 08 21 5c 33 30 36	\300.\301\302\303\304\305..!\306
4c80	5c 22 5c 33 30 37 5c 33 31 30 25 03 23 5c 32 30 37 22 20 5b 2d 73 70 6c 69 63 65 20 6d 61 6b 65	\"\307\310%.#\207".[-splice.make
4ca0	2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 5c 32 30 37 22 20 76 63 6f 6e 63 61	-byte-code.257."\300\207".vconca
4cc0	74 20 76 65 63 74 6f 72 20 5b 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 5f 29 22 5d 20 31 31 20 28	t.vector.[].2."\n\n(fn._)"].11.(
4ce0	23 24 20 2e 20 31 39 34 30 30 29 5d 29 0a 23 40 36 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72	#$...19400)]).#@60.Anaphoric.for
4d00	6d 20 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	m.of.`-splice-list'...(fn.PRED.N
4d20	45 57 2d 4c 49 53 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 70 6c 69	EW-LIST.LIST)..(defalias.'--spli
4d40	63 65 2d 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	ce-list.'(macro...#[771."\300\30
4d60	31 5c 33 30 32 05 45 03 03 46 5c 32 30 37 22 20 5b 2d 73 70 6c 69 63 65 2d 6c 69 73 74 20 6c 61	1\302.E..F\207".[-splice-list.la
4d80	6d 62 64 61 20 28 69 74 29 5d 20 37 20 28 23 24 20 2e 20 31 39 36 39 39 29 5d 29 29 0a 23 40 32	mbda.(it)].7.(#$...19699)])).#@2
4da0	30 34 20 4d 61 6b 65 20 61 20 6e 65 77 20 6c 69 73 74 20 66 72 6f 6d 20 74 68 65 20 65 6c 65 6d	04.Make.a.new.list.from.the.elem
4dc0	65 6e 74 73 20 6f 66 20 41 52 47 53 2e 0a 0a 54 68 65 20 6c 61 73 74 20 32 20 6d 65 6d 62 65 72	ents.of.ARGS...The.last.2.member
4de0	73 20 6f 66 20 41 52 47 53 20 61 72 65 20 75 73 65 64 20 61 73 20 74 68 65 20 66 69 6e 61 6c 20	s.of.ARGS.are.used.as.the.final.
4e00	63 6f 6e 73 20 6f 66 20 74 68 65 0a 72 65 73 75 6c 74 20 73 6f 20 69 66 20 74 68 65 20 66 69 6e	cons.of.the.result.so.if.the.fin
4e20	61 6c 20 6d 65 6d 62 65 72 20 6f 66 20 41 52 47 53 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 20	al.member.of.ARGS.is.not.a.list.
4e40	74 68 65 20 72 65 73 75 6c 74 20 69 73 0a 61 20 64 6f 74 74 65 64 20 6c 69 73 74 2e 0a 0a 28 66	the.result.is.a.dotted.list...(f
4e60	6e 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 2a	n.&rest.ARGS)..(defalias.'-cons*
4e80	20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 2d 72 65 64 75 63	.#[128."\300\301.\"\207".[-reduc
4ea0	65 2d 72 20 63 6f 6e 73 5d 20 34 20 28 23 24 20 2e 20 31 39 38 37 35 29 5d 29 0a 28 62 79 74 65	e-r.cons].4.(#$...19875)]).(byte
4ec0	2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30	-code."\300\301\302\303#\210\300
4ee0	5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74	\301\304\303#\207".[function-put
4f00	20 2d 63 6f 6e 73 2a 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	.-cons*.pure.t.side-effect-free]
4f20	20 34 29 0a 23 40 31 38 32 20 41 70 70 65 6e 64 20 45 4c 45 4d 20 74 6f 20 74 68 65 20 65 6e 64	.4).#@182.Append.ELEM.to.the.end
4f40	20 6f 66 20 74 68 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	.of.the.list...This.is.like.`con
4f60	73 27 2c 20 62 75 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	s',.but.operates.on.the.end.of.l
4f80	69 73 74 2e 0a 0a 49 66 20 45 4c 45 4d 45 4e 54 53 20 69 73 20 6e 6f 6e 20 6e 69 6c 2c 20 61 70	ist...If.ELEMENTS.is.non.nil,.ap
4fa0	70 65 6e 64 20 74 68 65 73 65 20 74 6f 20 74 68 65 20 6c 69 73 74 20 61 73 20 77 65 6c 6c 2e 0a	pend.these.to.the.list.as.well..
4fc0	0a 28 66 6e 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	.(fn.LIST.ELEM.&rest.ELEMENTS)..
4fe0	28 64 65 66 61 6c 69 61 73 20 27 2d 73 6e 6f 63 20 23 5b 36 34 32 20 22 5c 33 30 30 03 03 43 03	(defalias.'-snoc.#[642."\300..C.
5000	23 5c 32 30 37 22 20 5b 2d 63 6f 6e 63 61 74 5d 20 37 20 28 23 24 20 2e 20 32 30 32 36 36 29 5d	#\207".[-concat].7.(#$...20266)]
5020	29 0a 23 40 34 35 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 66 69 72 73 74	).#@45.Anaphoric.form.of.`-first
5040	27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	'...(fn.FORM.LIST)..(defalias.'-
5060	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 30 31	-first.'(macro...#[514."\300\301
5080	21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 05 44 5c 33 30 35 06 08 5c 33 30 36 06 08 5c 33	!\302.C\303.\304.D\305..\306..\3
50a0	30 37 42 42 45 46 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	07BBEF.F\207".[make-symbol."need
50c0	6c 65 22 20 6c 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 6e 6f 74 20 77 68 65 6e 20 73 65	le".let.--each-while.not.when.se
50e0	74 71 20 28 69 74 29 5d 20 31 33 20 28 23 24 20 2e 20 32 30 35 31 39 29 5d 29 29 0a 28 70 75 74	tq.(it)].13.(#$...20519)])).(put
5100	20 27 2d 2d 66 69 72 73 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f	.'--first.'edebug-form-spec.'(fo
5120	72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 36 33 20 52 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74	rm.form)).#@163.Return.the.first
5140	20 78 20 69 6e 20 4c 49 53 54 20 77 68 65 72 65 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 6f 6e	.x.in.LIST.where.(PRED.x).is.non
5160	2d 6e 69 6c 2c 20 65 6c 73 65 20 6e 69 6c 2e 0a 0a 54 6f 20 67 65 74 20 74 68 65 20 66 69 72 73	-nil,.else.nil...To.get.the.firs
5180	74 20 69 74 65 6d 20 69 6e 20 74 68 65 20 6c 69 73 74 20 6e 6f 20 71 75 65 73 74 69 6f 6e 73 20	t.item.in.the.list.no.questions.
51a0	61 73 6b 65 64 2c 20 75 73 65 20 60 63 61 72 27 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 66 69 6e 64	asked,.use.`car'...Alias:.`-find
51c0	27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66	'..(fn.PRED.LIST)..(defalias.'-f
51e0	69 72 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 02 5c 32 30 33 2e 00	irst.#[514."\300.\301\302.\203..
5200	01 5c 32 30 33 2e 00 02 40 04 5c 32 30 33 18 00 5c 33 30 30 5c 32 36 32 03 5c 32 30 32 5c 22 00	.\203...@.\203..\300\262.\202\".
5220	06 06 01 21 5c 32 30 33 5c 22 00 5c 32 31 31 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36	...!\203\".\211\262.\210\211T\26
5240	32 01 02 41 5c 32 36 32 03 5c 32 30 32 04 00 5c 32 36 36 03 5c 32 31 31 5c 32 30 37 22 20 5b 6e	2..A\262.\202..\266.\211\207".[n
5260	69 6c 20 74 20 30 5d 20 39 20 28 23 24 20 2e 20 32 30 37 38 34 29 5d 29 0a 28 62 79 74 65 2d 63	il.t.0].9.(#$...20784)]).(byte-c
5280	6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c	ode."\300\301\302\"\210\300\303\
52a0	33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 66 69 6e 64 20 2d 66 69 72 73	304\"\207".[defalias.-find.-firs
52c0	74 20 2d 2d 66 69 6e 64 20 2d 2d 66 69 72 73 74 5d 20 33 29 0a 23 40 34 34 20 41 6e 61 70 68 6f	t.--find.--first].3).#@44.Anapho
52e0	72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 6f 6d 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c	ric.form.of.`-some'...(fn.FORM.L
5300	49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 6f 6d 65 20 27 28 6d 61 63 72 6f 20	IST)..(defalias.'--some.'(macro.
5320	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 33 04 5c 33 30	..#[514."\300\301!\302.C\303.\30
5340	34 05 44 5c 33 30 35 06 06 06 09 45 46 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f	4.D\305....EF.F\207".[make-symbo
5360	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 65 20 6e 6f 74 20	l."needle".let.--each-while.not.
5380	73 65 74 71 5d 20 31 31 20 28 23 24 20 2e 20 32 31 32 31 30 29 5d 29 29 0a 28 70 75 74 20 27 2d	setq].11.(#$...21210)])).(put.'-
53a0	2d 73 6f 6d 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66	-some.'edebug-form-spec.'(form.f
53c0	6f 72 6d 29 29 0a 23 40 31 30 39 20 52 65 74 75 72 6e 20 28 50 52 45 44 20 78 29 20 66 6f 72 20	orm)).#@109.Return.(PRED.x).for.
53e0	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 20 28 50 52 45 44 20	the.first.LIST.item.where.(PRED.
5400	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 41 6c 69 61 73 3a	x).is.non-nil,.else.nil...Alias:
5420	20 60 2d 61 6e 79 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69	.`-any'..(fn.PRED.LIST)..(defali
5440	61 73 20 27 2d 73 6f 6d 65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 02 5c	as.'-some.#[514."\300.\301\302.\
5460	32 30 33 2a 00 01 5c 32 30 33 2a 00 02 40 04 5c 32 30 33 18 00 5c 33 30 30 5c 32 36 32 03 5c 32	203*..\203*..@.\203..\300\262.\2
5480	30 32 1e 00 06 06 01 21 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36	02.....!\262.\210\211T\262..A\26
54a0	32 03 5c 32 30 32 04 00 5c 32 36 36 03 5c 32 31 31 5c 32 30 37 22 20 5b 6e 69 6c 20 74 20 30 5d	2.\202..\266.\211\207".[nil.t.0]
54c0	20 39 20 28 23 24 20 2e 20 32 31 34 35 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	.9.(#$...21452)]).(byte-code."\3
54e0	30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32	00\301\302\"\210\300\303\304\"\2
5500	30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 61 6e 79 20 2d 73 6f 6d 65 20 2d 2d 61 6e 79 20 2d	07".[defalias.-any.-some.--any.-
5520	2d 73 6f 6d 65 5d 20 33 29 0a 23 40 34 34 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66	-some].3).#@44.Anaphoric.form.of
5540	20 60 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61	.`-last'...(fn.FORM.LIST)..(defa
5560	6c 69 61 73 20 27 2d 2d 6c 61 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33	lias.'--last.'(macro...#[514."\3
5580	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 06 07 5c 33	00\301!\302.C\303.\304..\305..\3
55a0	30 36 42 42 45 45 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6e 65 65 64	06BBEE.F\207".[make-symbol."need
55c0	6c 65 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 73 65 74 71 20 28 69 74 29 5d 20 31	le".let.--each.when.setq.(it)].1
55e0	32 20 28 23 24 20 2e 20 32 31 38 30 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6c 61 73 74 20 27	2.(#$...21807)])).(put.'--last.'
5600	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 23	edebug-form-spec.'(form.form)).#
5620	40 38 30 20 52 65 74 75 72 6e 20 74 68 65 20 6c 61 73 74 20 78 20 69 6e 20 4c 49 53 54 20 77 68	@80.Return.the.last.x.in.LIST.wh
5640	65 72 65 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 6c 73 65 20 6e 69	ere.(PRED.x).is.non-nil,.else.ni
5660	6c 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	l...(fn.PRED.LIST)..(defalias.'-
5680	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 33 1e 00 01 40 05 01	last.#[514."\300.\301.\203...@..
56a0	21 5c 32 30 33 12 00 5c 32 31 31 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41	!\203..\211\262.\210\211T\262..A
56c0	5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 30 37 22 20 5b 6e 69 6c 20 30	\262.\202..\266.\211\207".[nil.0
56e0	5d 20 38 20 28 23 24 20 2e 20 32 32 30 35 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	].8.(#$...22052)]).(byte-code."\
5700	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 35	300\301\302\303#\210\304\301\305
5720	5c 33 30 36 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 37 5c 33 31 30 23 5c 32 31 30 5c 33	\306#\210\304\301\307\310#\210\3
5740	30 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 23 5c 32 31 30 5c 33 30 30 5c 33 31 34 5c 33 31 35 5c	00\311\312\313#\210\300\314\315\
5760	33 31 36 23 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 66 69 72 73 74 2d 69 74 65 6d 20	316#\207".[defalias.-first-item.
5780	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 66 20 4c 49	car."Return.the.first.item.of.LI
57a0	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 5c 6e 5c 6e	ST,.or.nil.on.an.empty.list.\n\n
57c0	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 6c 61 73 74	See.also:.`-second-item',.`-last
57e0	2d 69 74 65 6d 27 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 20 70 75 74 20 62 79 74 65 2d 6f	-item'.\n\n(fn.LIST)".put.byte-o
5800	70 63 6f 64 65 20 62 79 74 65 2d 63 61 72 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 20 62 79 74 65	pcode.byte-car.byte-compile.byte
5820	2d 63 6f 6d 70 69 6c 65 2d 6f 6e 65 2d 61 72 67 20 2d 73 65 63 6f 6e 64 2d 69 74 65 6d 20 63 61	-compile-one-arg.-second-item.ca
5840	64 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	dr."Return.the.second.item.of.LI
5860	53 54 2c 20 6f 72 20 6e 69 6c 20 69 66 20 4c 49 53 54 20 69 73 20 74 6f 6f 20 73 68 6f 72 74 2e	ST,.or.nil.if.LIST.is.too.short.
5880	5c 6e 5c 6e 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 68 69 72 64 2d 69 74 65 6d 27 2e 5c 6e 5c 6e	\n\nSee.also:.`-third-item'.\n\n
58a0	28 66 6e 20 4c 49 53 54 29 22 20 2d 74 68 69 72 64 2d 69 74 65 6d 20 63 61 64 64 72 20 22 52 65	(fn.LIST)".-third-item.caddr."Re
58c0	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 2c 20 6f 72 20	turn.the.third.item.of.LIST,.or.
58e0	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
5900	20 61 6c 73 6f 3a 20 60 2d 66 6f 75 72 74 68 2d 69 74 65 6d 27 2e 5c 6e 5c 6e 28 66 6e 20 4c 49	.also:.`-fourth-item'.\n\n(fn.LI
5920	53 54 29 22 5d 20 34 29 0a 23 40 39 39 20 52 65 74 75 72 6e 20 74 68 65 20 66 6f 75 72 74 68 20	ST)"].4).#@99.Return.the.fourth.
5940	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 20	item.of.LIST,.or.nil.if.LIST.is.
5960	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 66 74 68 2d 69 74	too.short...See.also:.`-fifth-it
5980	65 6d 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 66 6f 75	em'...(fn.LIST)..(defalias.'-fou
59a0	72 74 68 2d 69 74 65 6d 20 23 5b 32 35 37 20 22 5c 32 31 31 41 41 41 40 5c 32 30 37 22 20 5b 5d	rth-item.#[257."\211AAA@\207".[]
59c0	20 32 20 28 23 24 20 2e 20 32 32 38 33 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	.2.(#$...22830)]).(byte-code."\3
59e0	30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c	00\301\302\303#\210\300\301\304\
5a00	33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 6f 75 72 74 68 2d	303#\207".[function-put.-fourth-
5a20	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 20 34 29	item.pure.t.side-effect-free].4)
5a40	0a 23 40 39 37 20 52 65 74 75 72 6e 20 74 68 65 20 66 69 66 74 68 20 69 74 65 6d 20 6f 66 20 4c	.#@97.Return.the.fifth.item.of.L
5a60	49 53 54 2c 20 6f 72 20 6e 69 6c 20 69 66 20 4c 49 53 54 20 69 73 20 74 6f 6f 20 73 68 6f 72 74	IST,.or.nil.if.LIST.is.too.short
5a80	2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6c 61 73 74 2d 69 74 65 6d 27 2e 0a 0a 28 66 6e 20	...See.also:.`-last-item'...(fn.
5aa0	4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 66 74 68 2d 69 74 65 6d 20 23 5b	LIST)..(defalias.'-fifth-item.#[
5ac0	32 35 37 20 22 5c 32 31 31 41 41 41 41 40 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 32	257."\211AAAA@\207".[].2.(#$...2
5ae0	33 31 31 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	3110)]).(byte-code."\300\301\302
5b00	5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20	\303#\210\300\301\304\303#\207".
5b20	5b 66 75 6e 63 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	[function-put.-fifth-item.pure.t
5b40	20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 36 37 20 52 65 74 75 72	.side-effect-free].4).#@67.Retur
5b60	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 72 20 6e 69 6c 20	n.the.last.item.of.LIST,.or.nil.
5b80	6f 6e 20 61 6e 20 65 6d 70 74 79 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64	on.an.empty.list...(fn.LIST)..(d
5ba0	65 66 61 6c 69 61 73 20 27 2d 6c 61 73 74 2d 69 74 65 6d 20 23 5b 32 35 37 20 22 5c 33 30 30 01	efalias.'-last-item.#[257."\300.
5bc0	21 40 5c 32 30 37 22 20 5b 6c 61 73 74 5d 20 33 20 28 23 24 20 2e 20 32 33 33 38 37 29 5d 29 0a	!@\207".[last].3.(#$...23387)]).
5be0	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 31	(byte-code."\300\301\302\303#\21
5c00	30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f	0\300\301\304\303#\207".[functio
5c20	6e 2d 70 75 74 20 2d 6c 61 73 74 2d 69 74 65 6d 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66	n-put.-last-item.pure.t.side-eff
5c40	65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 36 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20	ect-free].4).#@68.Return.a.list.
5c60	6f 66 20 61 6c 6c 20 69 74 65 6d 73 20 69 6e 20 6c 69 73 74 20 65 78 63 65 70 74 20 66 6f 72 20	of.all.items.in.list.except.for.
5c80	74 68 65 20 6c 61 73 74 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	the.last...(fn.LIST)..(defalias.
5ca0	27 2d 62 75 74 6c 61 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	'-butlast.#[257."\300.!\207".[bu
5cc0	74 6c 61 73 74 5d 20 33 20 28 23 24 20 2e 20 32 33 36 33 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f	tlast].3.(#$...23634)]).(byte-co
5ce0	64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30	de."\300\301\302\303#\210\300\30
5d00	31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 62	1\304\303#\207".[function-put.-b
5d20	75 74 6c 61 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20	utlast.pure.t.side-effect-free].
5d40	34 29 0a 23 40 34 35 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 63 6f 75 6e	4).#@45.Anaphoric.form.of.`-coun
5d60	74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	t'...(fn.PRED.LIST)..(defalias.'
5d80	2d 2d 63 6f 75 6e 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30	--count.'(macro...#[514."\300\30
5da0	31 21 5c 33 30 32 01 5c 33 30 33 42 43 5c 33 30 34 04 5c 33 30 35 06 07 5c 33 30 36 06 07 5c 33	1!\302.\303BC\304.\305..\306..\3
5dc0	30 37 06 09 44 45 45 45 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65	07..DEEE.F\207".[make-symbol."re
5de0	73 75 6c 74 22 20 6c 65 74 20 28 30 29 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 73 65 74 71 20 31	sult".let.(0).--each.when.setq.1
5e00	2b 5d 20 31 33 20 28 23 24 20 2e 20 32 33 38 38 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 63 6f	+].13.(#$...23880)])).(put.'--co
5e20	75 6e 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72	unt.'edebug-form-spec.'(form.for
5e40	6d 29 29 0a 23 40 38 32 20 43 6f 75 6e 74 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 69 74	m)).#@82.Counts.the.number.of.it
5e60	65 6d 73 20 69 6e 20 4c 49 53 54 20 77 68 65 72 65 20 28 50 52 45 44 20 69 74 65 6d 29 20 69 73	ems.in.LIST.where.(PRED.item).is
5e80	20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61	.non-nil...(fn.PRED.LIST)..(defa
5ea0	6c 69 61 73 20 27 2d 63 6f 75 6e 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 30 01 5c 32	lias.'-count.#[514."\300.\300.\2
5ec0	30 33 1f 00 01 40 05 01 21 5c 32 30 33 13 00 03 54 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c	03...@..!\203...T\262.\210\211T\
5ee0	32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 30 37 22 20	262..A\262.\202..\266.\211\207".
5f00	5b 30 5d 20 38 20 28 23 24 20 2e 20 32 34 31 33 37 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27	[0].8.(#$...24137)]).(defalias.'
5f20	2d 2d 2d 74 72 75 74 68 79 5c 3f 20 23 5b 32 35 37 20 22 5c 32 31 31 3f 3f 5c 32 30 37 22 20 5b	---truthy\?.#[257."\211??\207".[
5f40	5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 56 41 4c 29 22 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20	].2."\n\n(fn.VAL)"]).(byte-code.
5f60	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33	"\300\301\302\303#\210\300\301\3
5f80	30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 2d 2d 74 72	04\303#\207".[function-put.---tr
5fa0	75 74 68 79 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20	uthy\?.pure.t.side-effect-free].
5fc0	34 29 0a 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 61 6e 79 3f	4).#@44.Anaphoric.form.of.`-any?
5fe0	27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	'...(fn.FORM.LIST)..(defalias.'-
6000	2d 61 6e 79 5c 3f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31	-any\?.'(macro...#[514."\300\301
6020	03 03 45 44 5c 32 30 37 22 20 5b 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 2d 2d 73 6f 6d 65 5d 20 36	..ED\207".[---truthy\?.--some].6
6040	20 28 23 24 20 2e 20 32 34 35 32 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 61 6e 79 5c 3f 20 27	.(#$...24520)])).(put.'--any\?.'
6060	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 23	edebug-form-spec.'(form.form)).#
6080	40 31 31 36 20 52 65 74 75 72 6e 20 74 20 69 66 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 6f 6e	@116.Return.t.if.(PRED.x).is.non
60a0	2d 6e 69 6c 20 66 6f 72 20 61 6e 79 20 78 20 69 6e 20 4c 49 53 54 2c 20 65 6c 73 65 20 6e 69 6c	-nil.for.any.x.in.LIST,.else.nil
60c0	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 60 2d	...Alias:.`-any-p',.`-some?',.`-
60e0	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 64 65 66 61 6c 69	some-p'..(fn.PRED.LIST)..(defali
6100	61 73 20 27 2d 61 6e 79 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 5c 33 30 32 5c	as.'-any\?.#[514."\300\301.\302\
6120	33 30 33 02 5c 32 30 33 2b 00 01 5c 32 30 33 2b 00 02 40 04 5c 32 30 33 19 00 5c 33 30 31 5c 32	303.\203+..\203+..@.\203..\301\2
6140	36 32 03 5c 32 30 32 1f 00 06 07 01 21 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01	62.\202.....!\262.\210\211T\262.
6160	02 41 5c 32 36 32 03 5c 32 30 32 05 00 5c 32 36 36 03 5c 32 31 31 5c 32 36 32 01 21 5c 32 30 37	.A\262.\202..\266.\211\262.!\207
6180	22 20 5b 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 6e 69 6c 20 74 20 30 5d 20 31 30 20 28 23 24 20 2e	".[---truthy\?.nil.t.0].10.(#$..
61a0	20 32 34 37 30 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	.24709)]).(byte-code."\300\301\3
61c0	30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33	02\"\210\300\303\304\"\210\300\3
61e0	30 35 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 36 5c 33 30 34 5c 22 5c 32 31 30 5c 33	05\302\"\210\300\306\304\"\210\3
6200	30 30 5c 33 30 37 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 31 30 5c 33 30 34 5c 22 5c 32	00\307\302\"\210\300\310\304\"\2
6220	30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 73 6f 6d 65 5c 3f 20 2d 61 6e 79 5c 3f 20 2d 2d 73	07".[defalias.-some\?.-any\?.--s
6240	6f 6d 65 5c 3f 20 2d 2d 61 6e 79 5c 3f 20 2d 61 6e 79 2d 70 20 2d 2d 61 6e 79 2d 70 20 2d 73 6f	ome\?.--any\?.-any-p.--any-p.-so
6260	6d 65 2d 70 20 2d 2d 73 6f 6d 65 2d 70 5d 20 33 29 0a 23 40 34 34 20 41 6e 61 70 68 6f 72 69 63	me-p.--some-p].3).#@44.Anaphoric
6280	20 66 6f 72 6d 20 6f 66 20 60 2d 61 6c 6c 3f 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54	.form.of.`-all?'...(fn.FORM.LIST
62a0	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 61 6c 6c 5c 3f 20 27 28 6d 61 63 72 6f 20 2e 20	)..(defalias.'--all\?.'(macro...
62c0	23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 5c 33 30 33 42 43 5c 33 30 34 04	#[514."\300\301!\302.\303BC\304.
62e0	04 5c 33 30 35 06 06 06 09 45 46 5c 33 30 36 04 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79	.\305....EF\306.DF\207".[make-sy
6300	6d 62 6f 6c 20 22 61 6c 6c 22 20 6c 65 74 20 28 74 29 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20	mbol."all".let.(t).--each-while.
6320	73 65 74 71 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 5d 20 31 31 20 28 23 24 20 2e 20 32 35 32 30 37	setq.---truthy\?].11.(#$...25207
6340	29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 61 6c 6c 5c 3f 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d	)])).(put.'--all\?.'edebug-form-
6360	73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 31 38 20 52 65 74 75 72 6e 20	spec.'(form.form)).#@118.Return.
6380	74 20 69 66 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61 6c 6c	t.if.(PRED.x).is.non-nil.for.all
63a0	20 78 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	.x.in.LIST,.else.nil...Alias:.`-
63c0	61 6c 6c 2d 70 27 2c 20 60 2d 65 76 65 72 79 3f 27 2c 20 60 2d 65 76 65 72 79 2d 70 27 0a 0a 28	all-p',.`-every?',.`-every-p'..(
63e0	66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 6c 6c 5c 3f	fn.PRED.LIST)..(defalias.'-all\?
6400	20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 30 5c 33 30 31 02 5c 32 30 33 2a 00 01 5c 32 30	.#[514."\300.\300\301.\203*..\20
6420	33 2a 00 02 40 04 5c 32 30 34 18 00 5c 33 30 32 5c 32 36 32 03 5c 32 30 32 1e 00 06 06 01 21 5c	3*..@.\204..\302\262.\202.....!\
6440	32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 04 00 5c	262.\210\211T\262..A\262.\202..\
6460	32 36 36 03 5c 33 30 33 01 21 5c 32 30 37 22 20 5b 74 20 30 20 6e 69 6c 20 2d 2d 2d 74 72 75 74	266.\303.!\207".[t.0.nil.---trut
6480	68 79 5c 3f 5d 20 39 20 28 23 24 20 2e 20 32 35 34 36 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64	hy\?].9.(#$...25465)]).(byte-cod
64a0	65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30	e."\300\301\302\"\210\300\303\30
64c0	34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 35 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30	4\"\210\300\305\302\"\210\300\30
64e0	36 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 37 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30	6\304\"\210\300\307\302\"\210\30
6500	30 5c 33 31 30 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 65 76 65 72	0\310\304\"\207".[defalias.-ever
6520	79 5c 3f 20 2d 61 6c 6c 5c 3f 20 2d 2d 65 76 65 72 79 5c 3f 20 2d 2d 61 6c 6c 5c 3f 20 2d 61 6c	y\?.-all\?.--every\?.--all\?.-al
6540	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].
6560	33 29 0a 23 40 34 35 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6e 6f 6e 65	3).#@45.Anaphoric.form.of.`-none
6580	3f 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	?'...(fn.FORM.LIST)..(defalias.'
65a0	2d 2d 6e 6f 6e 65 5c 3f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33	--none\?.'(macro...#[514."\300\3
65c0	30 31 03 44 02 45 5c 32 30 37 22 20 5b 2d 2d 61 6c 6c 5c 3f 20 6e 6f 74 5d 20 35 20 28 23 24 20	01.D.E\207".[--all\?.not].5.(#$.
65e0	2e 20 32 35 39 36 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6e 6f 6e 65 5c 3f 20 27 65 64 65 62	..25960)])).(put.'--none\?.'edeb
6600	75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 39 32 20	ug-form-spec.'(form.form)).#@92.
6620	52 65 74 75 72 6e 20 74 20 69 66 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 69 6c 20 66 6f 72 20	Return.t.if.(PRED.x).is.nil.for.
6640	61 6c 6c 20 78 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	all.x.in.LIST,.else.nil...Alias:
6660	20 60 2d 6e 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 64 65 66	.`-none-p'..(fn.PRED.LIST)..(def
6680	61 6c 69 61 73 20 27 2d 6e 6f 6e 65 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 30 5c	alias.'-none\?.#[514."\300.\300\
66a0	33 30 31 02 5c 32 30 33 2b 00 01 5c 32 30 33 2b 00 02 40 04 5c 32 30 34 18 00 5c 33 30 32 5c 32	301.\203+..\203+..@.\204..\302\2
66c0	36 32 03 5c 32 30 32 1f 00 06 06 01 21 3f 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32	62.\202.....!?\262.\210\211T\262
66e0	01 02 41 5c 32 36 32 03 5c 32 30 32 04 00 5c 32 36 36 03 5c 33 30 33 01 21 5c 32 30 37 22 20 5b	..A\262.\202..\266.\303.!\207".[
6700	74 20 30 20 6e 69 6c 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 5d 20 39 20 28 23 24 20 2e 20 32 36 31	t.0.nil.---truthy\?].9.(#$...261
6720	34 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22	44)]).(byte-code."\300\301\302\"
6740	5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61	\210\300\303\304\"\207".[defalia
6760	73 20 2d 6e 6f 6e 65 2d 70 20 2d 6e 6f 6e 65 5c 3f 20 2d 2d 6e 6f 6e 65 2d 70 20 2d 2d 6e 6f 6e	s.-none-p.-none\?.--none-p.--non
6780	65 5c 3f 5d 20 33 29 0a 23 40 35 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60	e\?].3).#@50.Anaphoric.form.of.`
67a0	2d 6f 6e 6c 79 2d 73 6f 6d 65 3f 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28	-only-some?'...(fn.FORM.LIST)..(
67c0	64 65 66 61 6c 69 61 73 20 27 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 27 28 6d 61 63 72 6f 20	defalias.'--only-some\?.'(macro.
67e0	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.
6800	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.
6820	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...
6840	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
6860	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
6880	74 71 20 28 74 29 20 28 74 29 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 5d 20 31 35 20 28 23 24 20 2e	tq.(t).(t).---truthy\?].15.(#$..
68a0	20 32 36 35 30 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 27	.26509)])).(put.'--only-some\?.'
68c0	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 23	edebug-form-spec.'(form.form)).#
68e0	40 32 34 30 20 52 65 74 75 72 6e 20 60 74 60 20 69 66 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20	@240.Return.`t`.if.at.least.one.
6900	69 74 65 6d 20 6f 66 20 4c 49 53 54 20 6d 61 74 63 68 65 73 20 50 52 45 44 20 61 6e 64 20 61 74	item.of.LIST.matches.PRED.and.at
6920	20 6c 65 61 73 74 20 6f 6e 65 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 20 64 6f 65 73 20 6e 6f 74	.least.one.item.of.LIST.does.not
6940	20 6d 61 74 63 68 20 50 52 45 44 2e 0a 52 65 74 75 72 6e 20 60 6e 69 6c 60 20 62 6f 74 68 20 69	.match.PRED..Return.`nil`.both.i
6960	66 20 61 6c 6c 20 69 74 65 6d 73 20 6d 61 74 63 68 20 74 68 65 20 70 72 65 64 69 63 61 74 65 20	f.all.items.match.the.predicate.
6980	6f 72 20 69 66 20 6e 6f 6e 65 20 6f 66 20 74 68 65 20 69 74 65 6d 73 20 6d 61 74 63 68 20 74 68	or.if.none.of.the.items.match.th
69a0	65 20 70 72 65 64 69 63 61 74 65 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 6f 6e 6c 79 2d 73 6f 6d 65	e.predicate...Alias:.`-only-some
69c0	2d 70 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	-p'..(fn.PRED.LIST)..(defalias.'
69e0	2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 02 5c 33 30	-only-some\?.#[514."\300\211.\30
6a00	31 5c 33 30 32 02 5c 32 30 33 39 00 01 5c 32 30 33 39 00 02 40 05 5c 32 30 33 1d 00 04 5c 32 30	1\302.\2039..\2039..@.\203...\20
6a20	33 1d 00 5c 33 30 30 5c 32 36 32 03 5c 32 30 32 2d 00 06 07 01 21 5c 32 30 33 2a 00 5c 33 30 31	3..\300\262.\202-....!\203*.\301
6a40	5c 32 36 32 06 5c 32 30 32 2d 00 5c 33 30 31 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36	\262.\202-.\301\262.\210\211T\26
6a60	32 01 02 41 5c 32 36 32 03 5c 32 30 32 05 00 5c 32 36 36 03 5c 33 30 33 02 5c 32 30 35 41 00 01	2..A\262.\202..\266.\303.\205A..
6a80	21 5c 32 30 37 22 20 5b 6e 69 6c 20 74 20 30 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 5d 20 31 30 20	!\207".[nil.t.0.---truthy\?].10.
6aa0	28 23 24 20 2e 20 32 36 38 35 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	(#$...26853)]).(byte-code."\300\
6ac0	33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22	301\302\"\210\300\303\304\"\207"
6ae0	20 5b 64 65 66 61 6c 69 61 73 20 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 20 2d 6f 6e 6c 79 2d 73 6f	.[defalias.-only-some-p.-only-so
6b00	6d 65 5c 3f 20 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 20 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f	me\?.--only-some-p.--only-some\?
6b20	5d 20 33 29 0a 23 40 32 38 37 20 52 65 74 75 72 6e 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 2c 20	].3).#@287.Return.copy.of.LIST,.
6b40	73 74 61 72 74 69 6e 67 20 66 72 6f 6d 20 69 6e 64 65 78 20 46 52 4f 4d 20 74 6f 20 69 6e 64 65	starting.from.index.FROM.to.inde
6b60	78 20 54 4f 2e 0a 0a 46 52 4f 4d 20 6f 72 20 54 4f 20 6d 61 79 20 62 65 20 6e 65 67 61 74 69 76	x.TO...FROM.or.TO.may.be.negativ
6b80	65 2e 20 20 54 68 65 73 65 20 76 61 6c 75 65 73 20 61 72 65 20 74 68 65 6e 20 69 6e 74 65 72 70	e...These.values.are.then.interp
6ba0	72 65 74 65 64 0a 6d 6f 64 75 6c 6f 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 6c	reted.modulo.the.length.of.the.l
6bc0	69 73 74 2e 0a 0a 49 66 20 53 54 45 50 20 69 73 20 61 20 6e 75 6d 62 65 72 2c 20 6f 6e 6c 79 20	ist...If.STEP.is.a.number,.only.
6be0	65 61 63 68 20 53 54 45 50 74 68 20 69 74 65 6d 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 69 6e	each.STEPth.item.in.the.resultin
6c00	67 0a 73 65 63 74 69 6f 6e 20 69 73 20 72 65 74 75 72 6e 65 64 2e 20 20 44 65 66 61 75 6c 74 73	g.section.is.returned...Defaults
6c20	20 74 6f 20 31 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46 52 4f 4d 20 26 6f 70 74 69 6f 6e 61 6c 20	.to.1...(fn.LIST.FROM.&optional.
6c40	54 4f 20 53 54 45 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6c 69 63 65 20 23 5b 31 30	TO.STEP)..(defalias.'-slice.#[10
6c60	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 0f 00 5c 33	26.".G\300.\206...\262..\206..\3
6c80	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 32 36 32 05	01\262..\302W\203..\303..\"\262.
6ca0	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 30 34 5c 33	.\302W\203).\303..\"\262..\304\3
6cc0	30 32 02 5c 32 30 33 68 00 01 5c 32 30 33 68 00 02 40 01 06 08 57 5c 32 30 34 43 00 5c 33 30 30	02.\203h..\203h..@...W\204C.\300
6ce0	5c 32 36 32 03 5c 32 30 32 5c 5c 00 01 06 09 59 5c 32 30 33 5c 5c 00 5c 33 30 33 06 09 03 5a 06	\262.\202\\....Y\203\\.\303...Z.
6d00	08 5c 22 5c 33 30 32 55 5c 32 30 33 5c 5c 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 31 30 5c 32	.\"\302U\203\\.\211.B\262.\210\2
6d20	31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 2c 00 5c 32 36 36 03 5c 32 31 31 5c 32	11T\262..A\262.\202,.\266.\211\2
6d40	33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 31 20 30 20 6d 6f 64 20 74 5d 20 31 33 20 28 23 24 20 2e	37\207".[nil.1.0.mod.t].13.(#$..
6d60	20 32 37 34 33 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	.27435)]).(byte-code."\300\301\3
6d80	30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37	02\303#\210\300\301\304\303#\207
6da0	22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 73 6c 69 63 65 20 70 75 72 65 20 74 20 73 69	".[function-put.-slice.pure.t.si
6dc0	64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 32 36 20 52 65 74 75 72 6e 20	de-effect-free].4).#@126.Return.
6de0	61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 4e 20 69 74 65 6d 73 20	a.new.list.of.the.first.N.items.
6e00	69 6e 20 4c 49 53 54 2c 20 6f 72 20 61 6c 6c 20 69 74 65 6d 73 20 69 66 20 74 68 65 72 65 20 61	in.LIST,.or.all.items.if.there.a
6e20	72 65 20 66 65 77 65 72 20 74 68 61 6e 20 4e 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61	re.fewer.than.N...See.also:.`-ta
6e40	6b 65 2d 6c 61 73 74 27 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73	ke-last'..(fn.N.LIST)..(defalias
6e60	20 27 2d 74 61 6b 65 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 32 31 31 02 57 5c 32	.'-take.#[514."\300.\301\211.W\2
6e80	30 33 1e 00 03 5c 32 30 33 17 00 03 40 03 42 5c 32 36 32 03 03 41 5c 32 36 32 04 5c 32 31 31 54	03...\203...@.B\262..A\262.\211T
6ea0	5c 32 36 32 01 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e	\262.\202..\266.\211\237\207".[n
6ec0	69 6c 20 30 5d 20 37 20 28 23 24 20 2e 20 32 38 31 32 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64	il.0].7.(#$...28121)]).(byte-cod
6ee0	65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31	e."\300\301\302\303#\210\300\301
6f00	5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 74 61	\304\303#\207".[function-put.-ta
6f20	6b 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23	ke.pure.t.side-effect-free].4).#
6f40	40 37 35 20 52 65 74 75 72 6e 20 74 68 65 20 6c 61 73 74 20 4e 20 69 74 65 6d 73 20 6f 66 20 4c	@75.Return.the.last.N.items.of.L
6f60	49 53 54 20 69 6e 20 6f 72 64 65 72 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 6b 65 27	IST.in.order...See.also:.`-take'
6f80	0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 6b 65 2d	..(fn.N.LIST)..(defalias.'-take-
6fa0	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 22 20 5b	last.#[514."\300\301..\"!\207".[
6fc0	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 32 38 34 38	copy-sequence.last].6.(#$...2848
6fe0	34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	4)]).(byte-code."\300\301\302\30
7000	33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 31 30 5c 33 30 35 5c	3#\210\300\301\304\303#\210\305\
7020	33 30 36 5c 33 30 37 5c 33 31 30 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20	306\307\310#\207".[function-put.
7040	2d 74 61 6b 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 66 72	-take-last.pure.t.side-effect-fr
7060	65 65 20 64 65 66 61 6c 69 61 73 20 2d 64 72 6f 70 20 6e 74 68 63 64 72 20 22 52 65 74 75 72 6e	ee.defalias.-drop.nthcdr."Return
7080	20 74 68 65 20 74 61 69 6c 20 6f 66 20 4c 49 53 54 20 77 69 74 68 6f 75 74 20 74 68 65 20 66 69	.the.tail.of.LIST.without.the.fi
70a0	72 73 74 20 4e 20 69 74 65 6d 73 2e 5c 6e 5c 6e 53 65 65 20 61 6c 73 6f 3a 20 60 2d 64 72 6f 70	rst.N.items.\n\nSee.also:.`-drop
70c0	2d 6c 61 73 74 27 5c 6e 5c 6e 28 66 6e 20 4e 20 4c 49 53 54 29 22 5d 20 34 29 0a 23 40 38 34 20	-last'\n\n(fn.N.LIST)"].4).#@84.
70e0	52 65 6d 6f 76 65 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	Remove.the.last.N.items.of.LIST.
7100	61 6e 64 20 72 65 74 75 72 6e 20 61 20 63 6f 70 79 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d	and.return.a.copy...See.also:.`-
7120	64 72 6f 70 27 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	drop'..(fn.N.LIST)..(defalias.'-
7140	64 72 6f 70 2d 6c 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 03 5c 22 5c 32 30 37 22 20 5b	drop-last.#[514."\300..\"\207".[
7160	62 75 74 6c 61 73 74 5d 20 35 20 28 23 24 20 2e 20 32 38 38 39 36 29 5d 29 0a 28 62 79 74 65 2d	butlast].5.(#$...28896)]).(byte-
7180	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c	code."\300\301\302\303#\210\300\
71a0	33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20	301\304\303#\207".[function-put.
71c0	2d 64 72 6f 70 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 66 72	-drop-last.pure.t.side-effect-fr
71e0	65 65 5d 20 34 29 0a 23 40 35 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d	ee].4).#@50.Anaphoric.form.of.`-
7200	74 61 6b 65 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64	take-while'...(fn.FORM.LIST)..(d
7220	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 61 63 72 6f 20 2e 20	efalias.'--take-while.'(macro...
7240	23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 06 06 5c 33 30	#[514."\300\301!\302.C\303...\30
7260	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 6b 65 2d 73 79 6d 62	4\305..EF\306.DF\207".[make-symb
7280	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 69 6c 65 20 21 63 6f	ol."result".let.--each-while.!co
72a0	6e 73 20 69 74 20 6e 72 65 76 65 72 73 65 5d 20 31 31 20 28 23 24 20 2e 20 32 39 31 36 34 29 5d	ns.it.nreverse].11.(#$...29164)]
72c0	29 29 0a 28 70 75 74 20 27 2d 2d 74 61 6b 65 2d 77 68 69 6c 65 20 27 65 64 65 62 75 67 2d 66 6f	)).(put.'--take-while.'edebug-fo
72e0	72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 30 38 20 52 65 74 75	rm-spec.'(form.form)).#@108.Retu
7300	72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 73 75 63 63 65 73 73 69 76 65 20 69 74 65 6d	rn.a.new.list.of.successive.item
7320	73 20 66 72 6f 6d 20 4c 49 53 54 20 77 68 69 6c 65 20 28 50 52 45 44 20 69 74 65 6d 29 20 72 65	s.from.LIST.while.(PRED.item).re
7340	74 75 72 6e 73 20 61 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2e 0a 0a 28 66 6e 20 50 52 45 44	turns.a.non-nil.value...(fn.PRED
7360	20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 6b 65 2d 77 68 69 6c 65 20 23	.LIST)..(defalias.'-take-while.#
7380	5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 02 5c 32 30 33 2c 00 01 5c 32 30 33 2c	[514."\300.\301\302.\203,..\203,
73a0	00 02 40 06 06 01 21 5c 32 30 34 1b 00 5c 33 30 30 5c 32 36 32 03 5c 32 30 32 20 00 5c 32 31 31	..@...!\204..\300\262.\202..\211
73c0	05 42 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32	.B\262.\210\211T\262..A\262.\202
73e0	04 00 5c 32 36 36 03 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 74 20 30 5d 20 39	..\266.\211\237\207".[nil.t.0].9
7400	20 28 23 24 20 2e 20 32 39 34 33 36 29 5d 29 0a 23 40 35 30 20 41 6e 61 70 68 6f 72 69 63 20 66	.(#$...29436)]).#@50.Anaphoric.f
7420	6f 72 6d 20 6f 66 20 60 2d 64 72 6f 70 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20	orm.of.`-drop-while'...(fn.FORM.
7440	4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 64 72 6f 70 2d 77 68 69 6c 65 20 27	LIST)..(defalias.'--drop-while.'
7460	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 03 44	(macro...#[514."\300\301!\302..D
7480	43 5c 33 30 33 5c 33 30 34 04 5c 33 30 32 5c 33 30 35 5c 33 30 36 06 08 44 44 43 06 09 45 45 5c	C\303\304.\302\305\306..DDC..EE\
74a0	33 30 37 05 44 45 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74	307.DE.F\207".[make-symbol."list
74c0	22 20 6c 65 74 20 77 68 69 6c 65 20 61 6e 64 20 69 74 20 63 61 72 20 21 63 64 72 5d 20 31 32 20	".let.while.and.it.car.!cdr].12.
74e0	28 23 24 20 2e 20 32 39 37 31 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 64 72 6f 70 2d 77 68 69	(#$...29717)])).(put.'--drop-whi
7500	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
7520	29 29 0a 23 40 31 30 35 20 52 65 74 75 72 6e 20 74 68 65 20 74 61 69 6c 20 6f 66 20 4c 49 53 54	)).#@105.Return.the.tail.of.LIST
7540	20 73 74 61 72 74 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 66 6f	.starting.from.the.first.item.fo
7560	72 20 77 68 69 63 68 20 28 50 52 45 44 20 69 74 65 6d 29 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e	r.which.(PRED.item).returns.nil.
7580	0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 72	..(fn.PRED.LIST)..(defalias.'-dr
75a0	6f 70 2d 77 68 69 6c 65 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 31 31 5c 32 30 33 16 00 5c 32	op-while.#[514."\211\211\203..\2
75c0	31 31 40 03 01 21 5c 32 36 32 01 5c 32 30 33 16 00 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 01	11@..!\262.\203..\211A\262.\202.
75e0	00 5c 32 31 31 5c 32 30 37 22 20 5b 5d 20 36 20 28 23 24 20 2e 20 32 39 39 39 33 29 5d 29 0a 23	.\211\207".[].6.(#$...29993)]).#
7600	40 31 30 37 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 28 28 2d 74 61 6b 65 20 4e 20	@107.Return.a.list.of.((-take.N.
7620	4c 49 53 54 29 20 28 2d 64 72 6f 70 20 4e 20 4c 49 53 54 29 29 2c 20 69 6e 20 6e 6f 20 6d 6f 72	LIST).(-drop.N.LIST)),.in.no.mor
7640	65 20 74 68 61 6e 20 6f 6e 65 20 70 61 73 73 20 74 68 72 6f 75 67 68 20 74 68 65 20 6c 69 73 74	e.than.one.pass.through.the.list
7660	2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69	...(fn.N.LIST)..(defalias.'-spli
7680	74 2d 61 74 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 32 31 31 02 57 5c 32 30 33 1e	t-at.#[514."\300.\301\211.W\203.
76a0	00 03 5c 32 30 33 17 00 03 40 03 42 5c 32 36 32 03 03 41 5c 32 36 32 04 5c 32 31 31 54 5c 32 36	..\203...@.B\262..A\262.\211T\26
76c0	32 01 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 02 44 5c 32 30 37 22 20 5b 6e 69	2.\202..\266.\211\237.D\207".[ni
76e0	6c 20 30 5d 20 37 20 28 23 24 20 2e 20 33 30 32 31 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65	l.0].7.(#$...30213)]).(byte-code
7700	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c	."\300\301\302\303#\210\300\301\
7720	33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 73 70 6c	304\303#\207".[function-put.-spl
7740	69 74 2d 61 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34	it-at.pure.t.side-effect-free].4
7760	29 0a 23 40 31 31 36 20 52 6f 74 61 74 65 20 4c 49 53 54 20 4e 20 70 6c 61 63 65 73 20 74 6f 20	).#@116.Rotate.LIST.N.places.to.
7780	74 68 65 20 72 69 67 68 74 2e 20 20 57 69 74 68 20 4e 20 6e 65 67 61 74 69 76 65 2c 20 72 6f 74	the.right...With.N.negative,.rot
77a0	61 74 65 20 74 6f 20 74 68 65 20 6c 65 66 74 2e 0a 54 68 65 20 74 69 6d 65 20 63 6f 6d 70 6c 65	ate.to.the.left..The.time.comple
77c0	78 69 74 79 20 69 73 20 4f 28 6e 29 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66	xity.is.O(n)...(fn.N.LIST)..(def
77e0	61 6c 69 61 73 20 27 2d 72 6f 74 61 74 65 20 23 5b 35 31 34 20 22 01 5c 33 30 30 56 5c 32 30 33	alias.'-rotate.#[514.".\300V\203
7800	11 00 5c 33 30 31 5c 33 30 32 02 04 5c 22 5c 33 30 33 03 05 5c 22 5c 22 5c 32 30 37 5c 33 30 31	..\301\302..\"\303..\"\"\207\301
7820	5c 33 30 34 03 5b 03 5c 22 5c 33 30 35 04 5b 04 5c 22 5c 22 5c 32 30 37 22 20 5b 30 20 61 70 70	\304.[.\"\305.[.\"\"\207".[0.app
7840	65 6e 64 20 6c 61 73 74 20 62 75 74 6c 61 73 74 20 2d 64 72 6f 70 20 2d 74 61 6b 65 5d 20 37 20	end.last.butlast.-drop.-take].7.
7860	28 23 24 20 2e 20 33 30 35 36 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	(#$...30568)]).(byte-code."\300\
7880	33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33	301\302\303#\210\300\301\304\303
78a0	23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 6f 74 61 74 65 20 70 75 72	#\207".[function-put.-rotate.pur
78c0	65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 30 38 20 52	e.t.side-effect-free].4).#@108.R
78e0	65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 58 20 69 6e 73 65 72 74 65 64 20 69 6e 74	eturn.a.list.with.X.inserted.int
7900	6f 20 4c 49 53 54 20 61 74 20 70 6f 73 69 74 69 6f 6e 20 4e 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a	o.LIST.at.position.N...See.also:
7920	20 60 2d 73 70 6c 69 63 65 27 2c 20 60 2d 73 70 6c 69 63 65 2d 6c 69 73 74 27 0a 0a 28 66 6e 20	.`-splice',.`-splice-list'..(fn.
7940	4e 20 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 73 65 72 74 2d 61 74	N.X.LIST)..(defalias.'-insert-at
7960	20 23 5b 37 37 31 20 22 5c 33 30 30 03 02 5c 22 5c 32 31 31 40 03 02 41 40 42 5c 32 34 34 5c 32	.#[771."\300..\"\211@..A@B\244\2
7980	30 37 22 20 5b 2d 73 70 6c 69 74 2d 61 74 5d 20 37 20 28 23 24 20 2e 20 33 30 39 34 33 29 5d 29	07".[-split-at].7.(#$...30943)])
79a0	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
79c0	31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69	10\300\301\304\303#\207".[functi
79e0	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
7a00	66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 30 36 20 52 65 74 75 72 6e 20 61 20 6c 69 73	fect-free].4).#@106.Return.a.lis
7a20	74 20 77 69 74 68 20 65 6c 65 6d 65 6e 74 20 61 74 20 4e 74 68 20 70 6f 73 69 74 69 6f 6e 20 69	t.with.element.at.Nth.position.i
7a40	6e 20 4c 49 53 54 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 58 2e 0a 0a 53 65 65 20 61 6c 73	n.LIST.replaced.with.X...See.als
7a60	6f 3a 20 60 2d 72 65 70 6c 61 63 65 27 0a 0a 28 66 6e 20 4e 20 58 20 4c 49 53 54 29 1f 0a 28 64	o:.`-replace'..(fn.N.X.LIST)..(d
7a80	65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63 65 2d 61 74 20 23 5b 37 37 31 20 22 5c 33 30 30	efalias.'-replace-at.#[771."\300
7aa0	03 02 5c 22 5c 32 31 31 40 03 02 41 40 41 42 5c 32 34 34 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74	..\"\211@..A@AB\244\207".[-split
7ac0	2d 61 74 5d 20 37 20 28 23 24 20 2e 20 33 31 32 35 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65	-at].7.(#$...31252)]).(byte-code
7ae0	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c	."\300\301\302\303#\210\300\301\
7b00	33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 70	304\303#\207".[function-put.-rep
7b20	6c 61 63 65 2d 61 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d	lace-at.pure.t.side-effect-free]
7b40	20 34 29 0a 23 40 31 33 30 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 65 6c 65	.4).#@130.Return.a.list.with.ele
7b60	6d 65 6e 74 20 61 74 20 4e 74 68 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 4c 49 53 54 20 72 65 70	ment.at.Nth.position.in.LIST.rep
7b80	6c 61 63 65 64 20 77 69 74 68 20 60 28 66 75 6e 63 20 28 6e 74 68 20 6e 20 6c 69 73 74 29 29 60	laced.with.`(func.(nth.n.list))`
7ba0	2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 77 68 65 6e 27 0a 0a 28 66 6e 20 4e 20	...See.also:.`-map-when'..(fn.N.
7bc0	46 55 4e 43 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 70 64 61 74 65 2d 61	FUNC.LIST)..(defalias.'-update-a
7be0	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 40 41	t.#[771."\300..\"\211@..A@@!.A@A
7c00	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 20 33	B\244\207".[-split-at].7.(#$...3
7c20	31 35 36 32 29 5d 29 0a 23 40 35 34 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f	1562)]).#@54.Anaphoric.version.o
7c40	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 54	f.`-update-at'...(fn.N.FORM.LIST
7c60	29 1f 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	)..(defalias.'--update-at.'(macr
7c80	6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 03 5c 33 30 31 5c 33 30 32 05 45 03 46 5c 32 30 37	o...#[771."\300.\301\302.E.F\207
7ca0	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 5d 20 38 20 28 23 24	".[-update-at.lambda.(it)].8.(#$
7cc0	20 2e 20 33 31 37 38 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 75 70 64 61 74 65 2d 61 74 20 27	...31789)])).(put.'--update-at.'
7ce0	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 66 6f 72	edebug-form-spec.'(form.form.for
7d00	6d 29 29 0a 23 40 31 31 37 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 65 6c 65	m)).#@117.Return.a.list.with.ele
7d20	6d 65 6e 74 20 61 74 20 4e 74 68 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 4c 49 53 54 20 72 65 6d	ment.at.Nth.position.in.LIST.rem
7d40	6f 76 65 64 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64	oved...See.also:.`-remove-at-ind
7d60	69 63 65 73 27 2c 20 60 2d 72 65 6d 6f 76 65 27 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28	ices',.`-remove'..(fn.N.LIST)..(
7d80	64 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 2d 61 74 20 23 5b 35 31 34 20 22 5c 33 30 30	defalias.'-remove-at.#[514."\300
7da0	02 43 02 5c 22 5c 32 30 37 22 20 5b 2d 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64 69 63 65 73 5d 20	.C.\"\207".[-remove-at-indices].
7dc0	35 20 28 23 24 20 2e 20 33 32 30 31 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	5.(#$...32010)]).(byte-code."\30
7de0	30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33	0\301\302\303#\210\300\301\304\3
7e00	30 33 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 65 2d 61	03#\207".[function-put.-remove-a
7e20	74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40	t.pure.t.side-effect-free].4).#@
7e40	31 37 35 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	175.Return.a.list.whose.elements
7e60	20 61 72 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 4c 49 53 54 20 77 69 74 68 6f 75 74 0a	.are.elements.from.LIST.without.
7e80	65 6c 65 6d 65 6e 74 73 20 73 65 6c 65 63 74 65 64 20 61 73 20 60 28 6e 74 68 20 69 20 6c 69 73	elements.selected.as.`(nth.i.lis
7ea0	74 29 60 20 66 6f 72 20 61 6c 6c 20 69 0a 66 72 6f 6d 20 49 4e 44 49 43 45 53 2e 0a 0a 53 65 65	t)`.for.all.i.from.INDICES...See
7ec0	20 61 6c 73 6f 3a 20 60 2d 72 65 6d 6f 76 65 2d 61 74 27 2c 20 60 2d 72 65 6d 6f 76 65 27 0a 0a	.also:.`-remove-at',.`-remove'..
7ee0	28 66 6e 20 49 4e 44 49 43 45 53 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72	(fn.INDICES.LIST)..(defalias.'-r
7f00	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 33 30 31	emove-at-indices.#[514."\300\301
7f20	03 5c 22 5c 32 31 31 40 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 05 41 06 06 23 5c 22 42	.\"\211@\302\303\304\305.A..#\"B
7f40	5c 33 30 36 01 5c 33 30 37 01 5c 32 30 33 38 00 01 40 5c 33 31 30 01 06 08 5c 22 5c 32 31 31 40	\306.\307.\2038..@\310...\"\211@
7f60	05 42 5c 32 36 32 05 5c 32 31 31 41 40 41 5c 32 36 32 08 5c 32 36 36 02 5c 32 31 31 54 5c 32 36	.B\262.\211A@A\262.\266.\211T\26
7f80	32 01 01 41 5c 32 36 32 02 5c 32 30 32 14 00 5c 32 36 36 02 03 01 42 5c 32 36 32 01 5c 33 31 31	2..A\262.\202..\266...B\262.\311
7fa0	5c 33 31 32 02 5c 32 33 37 5c 22 5c 32 30 37 22 20 5b 2d 73 6f 72 74 20 3c 20 2d 6d 61 70 20 31	\312.\237\"\207".[-sort.<.-map.1
7fc0	2d 20 2d 7a 69 70 2d 77 69 74 68 20 2d 20 6e 69 6c 20 30 20 2d 73 70 6c 69 74 2d 61 74 20 61 70	-.-zip-with.-.nil.0.-split-at.ap
7fe0	70 6c 79 20 2d 63 6f 6e 63 61 74 5d 20 31 31 20 28 23 24 20 2e 20 33 32 33 32 34 29 5d 29 0a 28	ply.-concat].11.(#$...32324)]).(
8000	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
8020	5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e	\300\301\304\303#\207".[function
8040	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 20 74 20 73	-put.-remove-at-indices.pure.t.s
8060	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 35 30 20 41 6e 61 70 68 6f 72	ide-effect-free].4).#@50.Anaphor
8080	69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 70 6c 69 74 2d 77 69 74 68 27 2e 0a 0a 28 66 6e 20 50	ic.form.of.`-split-with'...(fn.P
80a0	52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 70 6c 69 74 2d 77 69	RED.LIST)..(defalias.'--split-wi
80c0	74 68 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	th.'(macro...#[514."\300\301!\30
80e0	30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 34 03 05 44 03 5c 33 30 35 42 03 5c 33 30	0\302!\300\303!\304..D.\305B.\30
8100	36 42 45 5c 33 30 37 5c 33 31 30 06 06 05 45 5c 33 30 34 5c 33 31 31 5c 33 31 32 06 09 44 44 43	6BE\307\310...E\304\311\312..DDC
8120	5c 33 31 33 5c 33 31 34 06 5c 66 44 5c 33 31 35 06 09 5c 33 31 36 42 42 5c 33 31 37 5c 33 31 31	\313\314.\fD\315..\316BB\317\311
8140	06 5c 66 45 5c 33 32 30 06 0d 44 5c 32 35 37 05 45 45 5c 33 32 31 5c 33 32 32 06 06 44 06 07 45	.\fE\320..D\257.EE\321\322..D..E
8160	46 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 20 22 72 65 73 75	F\207".[make-symbol."list"."resu
8180	6c 74 22 20 22 63 6f 6e 74 69 6e 75 65 22 20 6c 65 74 20 28 6e 69 6c 29 20 28 74 29 20 77 68 69	lt"."continue".let.(nil).(t).whi
81a0	6c 65 20 61 6e 64 20 69 74 20 63 61 72 20 69 66 20 6e 6f 74 20 73 65 74 71 20 28 6e 69 6c 29 20	le.and.it.car.if.not.setq.(nil).
81c0	21 63 6f 6e 73 20 21 63 64 72 20 6c 69 73 74 20 6e 72 65 76 65 72 73 65 5d 20 31 37 20 28 23 24	!cons.!cdr.list.nreverse].17.(#$
81e0	20 2e 20 33 32 38 38 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 70 6c 69 74 2d 77 69 74 68 20	...32889)])).(put.'--split-with.
8200	27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a	'edebug-form-spec.'(form.form)).
8220	23 40 31 32 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 28 28 2d 74 61 6b 65 2d 77	#@128.Return.a.list.of.((-take-w
8240	68 69 6c 65 20 50 52 45 44 20 4c 49 53 54 29 20 28 2d 64 72 6f 70 2d 77 68 69 6c 65 20 50 52 45	hile.PRED.LIST).(-drop-while.PRE
8260	44 20 4c 49 53 54 29 29 2c 20 69 6e 20 6e 6f 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 70 61	D.LIST)),.in.no.more.than.one.pa
8280	73 73 20 74 68 72 6f 75 67 68 20 74 68 65 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c	ss.through.the.list...(fn.PRED.L
82a0	49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 74 2d 77 69 74 68 20 23 5b 35	IST)..(defalias.'-split-with.#[5
82c0	31 34 20 22 5c 32 31 31 5c 33 30 30 5c 33 30 31 02 5c 32 30 33 26 00 5c 32 31 31 5c 32 30 33 26	14."\211\300\301.\203&.\211\203&
82e0	00 02 40 05 01 21 5c 32 30 34 19 00 5c 33 30 30 5c 32 36 32 02 5c 32 30 32 5c 22 00 5c 32 31 31	..@..!\204..\300\262.\202\".\211
8300	03 42 5c 32 36 32 03 03 41 5c 32 36 32 04 5c 32 31 30 5c 32 30 32 03 00 01 5c 32 33 37 03 44 5c	.B\262..A\262.\210\202...\237.D\
8320	32 30 37 22 20 5b 6e 69 6c 20 74 5d 20 38 20 28 23 24 20 2e 20 33 33 33 31 38 29 5d 29 0a 23 40	207".[nil.t].8.(#$...33318)]).#@
8340	32 32 34 20 53 70 6c 69 74 20 74 68 65 20 4c 49 53 54 20 65 61 63 68 20 74 69 6d 65 20 49 54 45	224.Split.the.LIST.each.time.ITE
8360	4d 20 69 73 20 66 6f 75 6e 64 2e 0a 0a 55 6e 6c 69 6b 65 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d	M.is.found...Unlike.`-partition-
8380	62 79 27 2c 20 74 68 65 20 49 54 45 4d 20 69 73 20 64 69 73 63 61 72 64 65 64 20 66 72 6f 6d 20	by',.the.ITEM.is.discarded.from.
83a0	74 68 65 20 72 65 73 75 6c 74 73 2e 0a 45 6d 70 74 79 20 6c 69 73 74 73 20 61 72 65 20 61 6c 73	the.results..Empty.lists.are.als
83c0	6f 20 72 65 6d 6f 76 65 64 20 66 72 6f 6d 20 74 68 65 20 72 65 73 75 6c 74 2e 0a 0a 43 6f 6d 70	o.removed.from.the.result...Comp
83e0	61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 62 79 20 60 65 71 75 61 6c 27 2e 0a 0a 53 65 65 20	arison.is.done.by.`equal'...See.
8400	61 6c 73 6f 20 60 2d 73 70 6c 69 74 2d 77 68 65 6e 27 0a 0a 28 66 6e 20 49 54 45 4d 20 4c 49 53	also.`-split-when'..(fn.ITEM.LIS
8420	54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 74 2d 6f 6e 20 27 28 6d 61 63 72 6f	T)..(defalias.'-split-on.'(macro
8440	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 5c 33 30 34 06 06	...#[514."\300\301\302\303\304..
8460	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 62 64 61 20 28 69	EE.E\207".[-split-when.lambda.(i
8480	74 29 20 65 71 75 61 6c 20 69 74 5d 20 38 20 28 23 24 20 2e 20 33 33 36 30 34 29 5d 29 29 0a 28	t).equal.it].8.(#$...33604)])).(
84a0	70 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	put.'-split-on.'edebug-form-spec
84c0	20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 35 33 20 41 6e 61 70 68 6f 72 69 63 20 76 65	.'(form.form)).#@53.Anaphoric.ve
84e0	72 73 69 6f 6e 20 6f 66 20 60 2d 73 70 6c 69 74 2d 77 68 65 6e 27 2e 0a 0a 28 66 6e 20 46 4f 52	rsion.of.`-split-when'...(fn.FOR
8500	4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 70 6c 69 74 2d 77 68 65 6e	M.LIST)..(defalias.'--split-when
8520	20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45	.'(macro...#[514."\300\301\302.E
8540	02 45 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74 2d 77 68 65 6e 20 6c 61 6d 62 64 61 20 28 69 74 29	.E\207".[-split-when.lambda.(it)
8560	5d 20 36 20 28 23 24 20 2e 20 33 34 30 30 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 70 6c 69	].6.(#$...34004)])).(put.'--spli
8580	74 2d 77 68 65 6e 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	t-when.'edebug-form-spec.'(form.
85a0	66 6f 72 6d 29 29 0a 23 40 32 36 39 20 53 70 6c 69 74 20 74 68 65 20 4c 49 53 54 20 6f 6e 20 65	form)).#@269.Split.the.LIST.on.e
85c0	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 73 20 6e 6f 6e	ach.element.where.FN.returns.non
85e0	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 79 27 2c 20 74	-nil...Unlike.`-partition-by',.t
8600	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 63 61 72 64 65	he."matched".element.is.discarde
8620	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 6c 69 73 74 73	d.from.the.results...Empty.lists
8640	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
8660	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 6f 75 67 68 74	t...This.function.can.be.thought
8680	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 60 73 70 6c 69	.of.as.a.generalization.of.`spli
86a0	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 64 65 66 61 6c	t-string'...(fn.FN.LIST)..(defal
86c0	69 61 73 20 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	ias.'-split-when.#[514."\300\211
86e0	02 5c 32 30 33 2a 00 03 03 40 21 5c 32 30 34 16 00 02 40 01 42 5c 32 36 32 01 5c 32 30 32 23 00	.\203*...@!\204...@.B\262.\202#.
8700	5c 32 31 31 5c 32 30 33 20 00 5c 32 31 31 5c 32 33 37 02 42 5c 32 36 32 02 5c 33 30 30 5c 32 36	\211\203..\211\237.B\262.\300\26
8720	32 01 02 41 5c 32 36 32 03 5c 32 30 32 02 00 5c 32 31 31 5c 32 30 33 34 00 5c 32 31 31 5c 32 33	2..A\262.\202..\211\2034.\211\23
8740	37 02 42 5c 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	7.B\262..\237\207".[nil].6.(#$..
8760	20 33 34 32 32 31 29 5d 29 0a 23 40 34 38 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66	.34221)]).#@48.Anaphoric.form.of
8780	20 60 2d 73 65 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	.`-separate'...(fn.FORM.LIST)..(
87a0	64 65 66 61 6c 69 61 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	defalias.'--separate.'(macro...#
87c0	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 02 44 5c	[514."\300\301!\300\302!\303..D\
87e0	33 30 34 05 5c 33 30 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	304.\305..\306\307..E\306\307..E
8800	46 45 5c 33 31 30 5c 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	FE\310\311..D\311..DEF\207".[mak
8820	65 2d 73 79 6d 62 6f 6c 20 22 79 65 73 22 20 22 6e 6f 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 69	e-symbol."yes"."no".let.--each.i
8840	66 20 21 63 6f 6e 73 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	f.!cons.it.list.nreverse].14.(#$
8860	20 2e 20 33 34 36 37 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 65 70 61 72 61 74 65 20 27 65	...34671)])).(put.'--separate.'e
8880	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 23 40	debug-form-spec.'(form.form)).#@
88a0	31 30 37 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 28 28 2d 66 69 6c 74 65 72 20 50	107.Return.a.list.of.((-filter.P
88c0	52 45 44 20 4c 49 53 54 29 20 28 2d 72 65 6d 6f 76 65 20 50 52 45 44 20 4c 49 53 54 29 29 2c 20	RED.LIST).(-remove.PRED.LIST)),.
88e0	69 6e 20 6f 6e 65 20 70 61 73 73 20 74 68 72 6f 75 67 68 20 74 68 65 20 6c 69 73 74 2e 0a 0a 28	in.one.pass.through.the.list...(
8900	66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 70 61 72	fn.PRED.LIST)..(defalias.'-separ
8920	61 74 65 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 02 5c 33 30 31 01 5c 32 30 33 2a 00 01	ate.#[514."\300\211.\301.\203*..
8940	40 06 06 01 21 5c 32 30 33 19 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 30 32 1e 00 5c 32 31 31	@...!\203..\211.B\262.\202..\211
8960	04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32	.B\262.\210\211T\262..A\262.\202
8980	04 00 5c 32 36 36 02 01 5c 32 33 37 01 5c 32 33 37 44 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20	..\266..\237.\237D\207".[nil.0].
89a0	39 20 28 23 24 20 2e 20 33 34 39 38 30 29 5d 29 0a 23 40 38 35 20 50 72 69 76 61 74 65 3a 20 55	9.(#$...34980)]).#@85.Private:.U
89c0	73 65 64 20 62 79 20 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 20 61	sed.by.-partition-all-in-steps.a
89e0	6e 64 20 2d 70 61 72 74 69 74 69 6f 6e 2d 69 6e 2d 73 74 65 70 73 2e 0a 0a 28 66 6e 20 4e 20 53	nd.-partition-in-steps...(fn.N.S
8a00	54 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 2d 70 61 72 74 69 74 69	TEP.LIST)..(defalias.'---partiti
8a20	6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 2d 72 65 76 65 72 73 65 64 20 23 5b 37 37 31 20 22	on-all-in-steps-reversed.#[771."
8a40	01 5c 33 30 30 57 5c 32 30 33 5c 6e 00 5c 33 30 31 5c 33 30 32 21 5c 32 31 30 5c 33 30 33 01 5c	.\300W\203\n.\301\302!\210\303.\
8a60	32 30 33 20 00 5c 33 30 34 04 03 5c 22 01 42 5c 32 36 32 01 5c 33 30 35 03 03 5c 22 5c 32 36 32	203..\304..\".B\262.\305..\"\262
8a80	02 5c 32 30 32 0b 00 5c 32 31 31 5c 32 30 37 22 20 5b 31 20 65 72 72 6f 72 20 22 53 74 65 70 20	.\202..\211\207".[1.error."Step.
8aa0	6d 75 73 74 20 62 65 20 61 20 70 6f 73 69 74 69 76 65 20 6e 75 6d 62 65 72 2c 20 6f 72 20 79 6f	must.be.a.positive.number,.or.yo
8ac0	75 27 72 65 20 6c 6f 6f 6b 69 6e 67 20 61 74 20 73 6f 6d 65 20 6a 75 69 63 79 20 69 6e 66 69 6e	u're.looking.at.some.juicy.infin
8ae0	69 74 65 20 6c 6f 6f 70 73 2e 22 20 6e 69 6c 20 2d 74 61 6b 65 20 2d 64 72 6f 70 5d 20 37 20 28	ite.loops.".nil.-take.-drop].7.(
8b00	23 24 20 2e 20 33 35 32 35 34 29 5d 29 0a 23 40 31 36 30 20 52 65 74 75 72 6e 20 61 20 6e 65 77	#$...35254)]).#@160.Return.a.new
8b20	20 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 67 72 6f	.list.with.the.items.in.LIST.gro
8b40	75 70 65 64 20 69 6e 74 6f 20 4e 2d 73 69 7a 65 64 20 73 75 62 6c 69 73 74 73 20 61 74 20 6f 66	uped.into.N-sized.sublists.at.of
8b60	66 73 65 74 73 20 53 54 45 50 20 61 70 61 72 74 2e 0a 54 68 65 20 6c 61 73 74 20 67 72 6f 75 70	fsets.STEP.apart..The.last.group
8b80	73 20 6d 61 79 20 63 6f 6e 74 61 69 6e 20 6c 65 73 73 20 74 68 61 6e 20 4e 20 69 74 65 6d 73 2e	s.may.contain.less.than.N.items.
8ba0	0a 0a 28 66 6e 20 4e 20 53 54 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	..(fn.N.STEP.LIST)..(defalias.'-
8bc0	70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 20 23 5b 37 37 31 20 22 5c 33	partition-all-in-steps.#[771."\3
8be0	30 30 03 03 03 23 5c 32 33 37 5c 32 30 37 22 20 5b 2d 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c	00...#\237\207".[---partition-al
8c00	6c 2d 69 6e 2d 73 74 65 70 73 2d 72 65 76 65 72 73 65 64 5d 20 37 20 28 23 24 20 2e 20 33 35 36	l-in-steps-reversed].7.(#$...356
8c20	30 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	04)]).(byte-code."\300\301\302\3
8c40	30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66	03#\210\300\301\304\303#\207".[f
8c60	75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74	unction-put.-partition-all-in-st
8c80	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 34 29 0a	eps.pure.t.side-effect-free].4).
8ca0	23 40 32 30 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	#@202.Return.a.new.list.with.the
8cc0	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
8ce0	7a 65 64 20 73 75 62 6c 69 73 74 73 20 61 74 20 6f 66 66 73 65 74 73 20 53 54 45 50 20 61 70 61	zed.sublists.at.offsets.STEP.apa
8d00	72 74 2e 0a 49 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 74 20 65 6e 6f 75 67 68 20 69 74 65 6d	rt..If.there.are.not.enough.item
8d20	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 2d 73 69 7a 65 64	s.to.make.the.last.group.N-sized
8d40	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 64 2e 0a 0a 28 66	,.those.items.are.discarded...(f
8d60	6e 20 4e 20 53 54 45 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	n.N.STEP.LIST)..(defalias.'-part
8d80	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 32	ition-in-steps.#[771."\300...#\2
8da0	31 31 5c 32 30 33 18 00 5c 32 31 31 40 47 04 57 5c 32 30 33 18 00 5c 32 31 31 41 5c 32 36 32 01	11\203..\211@G.W\203..\211A\262.
8dc0	5c 32 30 32 05 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 2d 2d 2d 70 61 72 74 69 74 69 6f	\202..\211\237\207".[---partitio
8de0	6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 2d 72 65 76 65 72 73 65 64 5d 20 37 20 28 23 24 20 2e	n-all-in-steps-reversed].7.(#$..
8e00	20 33 36 30 30 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	.36006)]).(byte-code."\300\301\3
8e20	30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37	02\303#\210\300\301\304\303#\207
8e40	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
8e60	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 34 29 0a	eps.pure.t.side-effect-free].4).
8e80	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
8ea0	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
8ec0	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
8ee0	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
8f00	20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d	.N.LIST)..(defalias.'-partition-
8f20	61 6c 6c 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 32 31 31 03 23 5c 32 30 37 22 20 5b 2d 70 61	all.#[514."\300.\211.#\207".[-pa
8f40	72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 5d 20 36 20 28 23 24 20 2e 20 33 36	rtition-all-in-steps].6.(#$...36
8f60	34 38 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	486)]).(byte-code."\300\301\302\
8f80	33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b	303#\210\300\301\304\303#\207".[
8fa0	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 6c 6c 20 70 75 72 65	function-put.-partition-all.pure
8fc0	20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 37 35 20 52 65	.t.side-effect-free].4).#@175.Re
8fe0	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 6d 73 20 69	turn.a.new.list.with.the.items.i
9000	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 73 75 62 6c	n.LIST.grouped.into.N-sized.subl
9020	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 68 20 69 74	ists..If.there.are.not.enough.it
9040	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 2d 73 69 7a	ems.to.make.the.last.group.N-siz
9060	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 64 2e 0a 0a	ed,.those.items.are.discarded...
9080	28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69	(fn.N.LIST)..(defalias.'-partiti
90a0	6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 32 31 31 03 23 5c 32 30 37 22 20 5b 2d 70 61 72	on.#[514."\300.\211.#\207".[-par
90c0	74 69 74 69 6f 6e 2d 69 6e 2d 73 74 65 70 73 5d 20 36 20 28 23 24 20 2e 20 33 36 38 33 30 29 5d	tition-in-steps].6.(#$...36830)]
90e0	29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	).(byte-code."\300\301\302\303#\
9100	32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74	210\300\301\304\303#\207".[funct
9120	69 6f 6e 2d 70 75 74 20 2d 70 61 72 74 69 74 69 6f 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65	ion-put.-partition.pure.t.side-e
9140	66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 66 6f	ffect-free].4).#@52.Anaphoric.fo
9160	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 66 6e 20 46 4f 52 4d	rm.of.`-partition-by'...(fn.FORM
9180	20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62	.LIST)..(defalias.'--partition-b
91a0	79 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30	y.'(macro...#[514."\300\301!\300
91c0	5c 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	\302!\300\303!\300\304!\300\305!
91e0	5c 33 30 36 01 06 07 44 43 5c 33 30 37 03 5c 33 31 30 06 09 5c 33 31 31 42 5c 33 31 32 5c 33 31	\306...DC\307.\310..\311B\312\31
9200	33 06 08 44 44 06 5c 6e 5c 33 31 34 42 06 5c 6e 06 0f 44 06 09 5c 33 31 35 06 0b 44 44 5c 32 35	3..DD.\n\314B.\n..D..\315..DD\25
9220	37 05 5c 33 31 36 06 07 5c 33 31 30 5c 33 31 32 5c 33 31 33 06 0b 44 44 06 0b 06 11 44 44 5c 33	7.\316..\310\312\313..DD....DD\3
9240	31 37 5c 33 32 30 06 0e 06 0e 45 5c 33 32 31 5c 33 32 32 06 11 44 06 12 45 5c 33 32 33 06 11 5c	17\320....E\321\322..D..E\323..\
9260	33 32 34 42 42 5c 33 32 33 06 11 06 11 45 5c 32 35 37 05 5c 33 32 31 5c 33 31 32 06 10 45 5c 33	324BB\323....E\257.\321\312..E\3
9280	32 35 06 0d 44 5c 32 35 37 05 45 5c 33 32 31 5c 33 32 32 06 5c 66 44 06 0d 45 5c 33 32 32 06 0d	25..D\257.E\321\322.\fD..E\322..
92a0	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 22 72 65 73 75	D\257.EE\207".[make-symbol."resu
92c0	6c 74 22 20 22 73 75 62 6c 69 73 74 22 20 22 76 61 6c 75 65 22 20 22 6e 65 77 2d 76 61 6c 75 65	lt"."sublist"."value"."new-value
92e0	22 20 22 6c 69 73 74 22 20 6c 65 74 20 77 68 65 6e 20 6c 65 74 2a 20 28 6e 69 6c 29 20 69 74 20	"."list".let.when.let*.(nil).it.
9300	63 61 72 20 28 28 6c 69 73 74 20 69 74 29 29 20 63 64 72 20 77 68 69 6c 65 20 75 6e 6c 65 73 73	car.((list.it)).cdr.while.unless
9320	20 65 71 75 61 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	.equal.!cons.nreverse.setq.(nil)
9340	20 21 63 64 72 5d 20 32 34 20 28 23 24 20 2e 20 33 37 32 30 34 29 5d 29 29 0a 28 70 75 74 20 27	.!cdr].24.(#$...37204)])).(put.'
9360	2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63	--partition-by.'edebug-form-spec
9380	20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 39 33 20 41 70 70 6c 79 20 46 4e 20 74 6f 20	.'(form.form)).#@93.Apply.FN.to.
93a0	65 61 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	each.item.in.LIST,.splitting.it.
93c0	65 61 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	each.time.FN.returns.a.new.value
93e0	2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72	...(fn.FN.LIST)..(defalias.'-par
9400	74 69 74 69 6f 6e 2d 62 79 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 31 31 5c 32 30 35 42 00 5c	tition-by.#[514."\211\211\205B.\
9420	33 30 30 01 40 5c 32 31 31 43 05 02 21 04 41 5c 32 31 31 5c 32 30 33 38 00 5c 32 31 31 40 06 08	300.@\211C..!.A\211\2038.\211@..
9440	01 21 03 01 5c 32 33 32 5c 32 30 34 2c 00 04 5c 32 33 37 06 07 42 5c 32 36 32 07 5c 33 30 30 5c	.!..\232\204,..\237..B\262.\300\
9460	32 36 32 05 5c 32 31 31 5c 32 36 32 04 01 05 42 5c 32 36 32 05 02 41 5c 32 36 36 5c 32 30 33 5c	262.\211\262...B\262..A\266\203\
9480	32 30 32 0f 00 02 5c 32 33 37 05 42 5c 32 36 32 05 04 5c 32 33 37 5c 32 36 36 5c 32 30 35 5c 32	202...\237.B\262..\237\266\205\2
94a0	30 37 22 20 5b 6e 69 6c 5d 20 31 32 20 28 23 24 20 2e 20 33 37 37 38 30 29 5d 29 0a 23 40 35 39	07".[nil].12.(#$...37780)]).#@59
94c0	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 6f 6e 2d 62	.Anaphoric.form.of.`-partition-b
94e0	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 28 64 65 66	y-header'...(fn.FORM.LIST)..(def
9500	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 20 27 28 6d	alias.'--partition-by-header.'(m
9520	61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21	acro...#[514."\300\301!\300\302!
9540	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 33 30 30 5c	\300\303!\300\304!\300\305!\300\
9560	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 32 42 5c 33	306!\307...DC\310.\311.\n\312B\3
9580	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 42 06 5c 6e	13\314..DD..\315B....D..\316B.\n
95a0	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 5c 33 31 34	\317.\fDD\257.\320..\311\313\314
95c0	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 0f 5c 33 32	..DD....DD\321\322....E\310..\32
95e0	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 13 5c 33 32	3\324..D..E\325..\326BB\325..\32
9600	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 33 06 11 45	7BB\257.\325..\330BBF\323\313..E
9620	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 33 32 34 06	\331..D\257.E\323\324..D..E\324.
9640	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 22 72 65 73	.D\257.EE\207".[make-symbol."res
9660	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 22 20 22 73	ult"."sublist"."header-value"."s
9680	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 22 20 6c 65	een-body?"."new-value"."list".le
96a0	74 20 77 68 65 6e 20 6c 65 74 2a 20 28 6e 69 6c 29 20 69 74 20 63 61 72 20 28 28 6c 69 73 74 20	t.when.let*.(nil).it.car.((list.
96c0	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 6c 20 21 63	it)).(nil).cdr.while.if.equal.!c
96e0	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 29 20 28 74	ons.nreverse.setq.(nil).(nil).(t
9700	29 20 21 63 64 72 5d 20 32 37 20 28 23 24 20 2e 20 33 38 30 38 31 29 5d 29 29 0a 28 70 75 74 20	).!cdr].27.(#$...38081)])).(put.
9720	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 75 67 2d 66	'--partition-by-header.'edebug-f
9740	6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 31 39 20 41 70 70	orm-spec.'(form.form)).#@219.App
9760	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 6e 20 4c 49 53 54 2e	ly.FN.to.the.first.item.in.LIST.
9780	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 2e 20 41 70 70 6c 79	.That.is.the.header.value..Apply
97a0	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 20 73 70 6c 69 74 74	.FN.to.each.item.in.LIST,.splitt
97c0	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 6e 73 20 74 68 65 20	ing.it.each.time.FN.returns.the.
97e0	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 74 65 72 20 73 65 65	header.value,.but.only.after.see
9800	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 6c 75 65 20 28 74 68	ing.at.least.one.other.value.(th
9820	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 64 65 66 61 6c 69 61	e.body)...(fn.FN.LIST)..(defalia
9840	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 20 22 5c	s.'-partition-by-header.#[514."\
9860	32 31 31 5c 32 31 31 5c 32 30 35 4f 00 5c 33 30 30 01 40 5c 32 31 31 43 05 02 21 5c 33 30 30 05	211\211\205O.\300.@\211C..!\300.
9880	41 5c 32 31 31 5c 32 30 33 44 00 5c 32 31 31 40 06 09 01 21 04 01 5c 32 33 32 5c 32 30 33 34 00	A\211\203D.\211@...!..\232\2034.
98a0	03 5c 32 30 33 37 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	.\2037..\237..B\262.\300\262.\30
98c0	30 5c 32 36 32 04 5c 32 30 32 37 00 5c 33 30 31 5c 32 36 32 04 01 06 06 42 5c 32 36 32 06 02 41	0\262.\2027.\301\262....B\262..A
98e0	5c 32 36 36 5c 32 30 33 5c 32 30 32 10 00 03 5c 32 33 37 06 06 42 5c 32 36 32 06 05 5c 32 33 37	\266\203\202...\237..B\262..\237
9900	5c 32 36 36 5c 32 30 36 5c 32 30 37 22 20 5b 6e 69 6c 20 74 5d 20 31 33 20 28 23 24 20 2e 20 33	\266\206\207".[nil.t].13.(#$...3
9920	38 37 34 39 29 5d 29 0a 23 40 38 38 20 50 61 72 74 69 74 69 6f 6e 20 64 69 72 65 63 74 6c 79 20	8749)]).#@88.Partition.directly.
9940	61 66 74 65 72 20 65 61 63 68 20 74 69 6d 65 20 50 52 45 44 20 69 73 20 74 72 75 65 20 6f 6e 20	after.each.time.PRED.is.true.on.
9960	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 45 44 20 4c 49	an.element.of.LIST...(fn.PRED.LI
9980	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 66 74 65 72	ST)..(defalias.'-partition-after
99a0	2d 70 72 65 64 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 35 5c 22 00 5c 33 30 30 02 02 41 5c	-pred.#[514."\211\205\".\300..A\
99c0	22 02 02 40 21 5c 32 30 33 18 00 01 40 43 01 42 5c 32 30 32 20 00 01 40 01 40 42 01 41 42 5c 32	"..@!\203...@C.B\202...@.@B.AB\2
99e0	36 32 01 5c 32 30 37 22 20 5b 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 5d	62.\207".[-partition-after-pred]
9a00	20 35 20 28 23 24 20 2e 20 33 39 32 31 33 29 5d 29 0a 23 40 38 39 20 50 61 72 74 69 74 69 6f 6e	.5.(#$...39213)]).#@89.Partition
9a20	20 64 69 72 65 63 74 6c 79 20 62 65 66 6f 72 65 20 65 61 63 68 20 74 69 6d 65 20 50 52 45 44 20	.directly.before.each.time.PRED.
9a40	69 73 20 74 72 75 65 20 6f 6e 20 61 6e 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2e 0a 0a	is.true.on.an.element.of.LIST...
9a60	28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74	(fn.PRED.LIST)..(defalias.'-part
9a80	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 33 30	ition-before-pred.#[514."\300\30
9aa0	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 70 20	1\302.\301.!\"\"\237\207".[-map.
9ac0	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 20 38	reverse.-partition-after-pred].8
9ae0	20 28 23 24 20 2e 20 33 39 34 34 37 29 5d 29 0a 23 40 37 34 20 50 61 72 74 69 74 69 6f 6e 20 64	.(#$...39447)]).#@74.Partition.d
9b00	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 70	irectly.after.each.time.ITEM.app
9b20	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 0a 28	ears.in.LIST...(fn.ITEM.LIST)..(
9b40	64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 69 74 65 6d 20	defalias.'-partition-after-item.
9b60	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 5c 33 30 35 06	#[514."\300\301\302\303\304\305.
9b80	07 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 02 5c 22 5c 32 30 37 22 20 5b 2d 70 61 72 74	.!\306\"\307\310%.\"\207".[-part
9ba0	69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20	ition-after-pred.make-byte-code.
9bc0	32 35 37 20 22 5c 32 31 31 5c 33 30 30 5c 32 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76	257."\211\300\232\207".vconcat.v
9be0	65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 45 29 22 5d 20 39 20 28 23 24	ector.[].3."\n\n(fn.ELE)"].9.(#$
9c00	20 2e 20 33 39 36 36 39 29 5d 29 0a 23 40 37 35 20 50 61 72 74 69 74 69 6f 6e 20 64 69 72 65 63	...39669)]).#@75.Partition.direc
9c20	74 6c 79 20 62 65 66 6f 72 65 20 65 61 63 68 20 74 69 6d 65 20 49 54 45 4d 20 61 70 70 65 61 72	tly.before.each.time.ITEM.appear
9c40	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 0a 28 64 65 66	s.in.LIST...(fn.ITEM.LIST)..(def
9c60	61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 69 74 65 6d 20 23 5b	alias.'-partition-before-item.#[
9c80	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 5c 33 30 35 06 07 21	514."\300\301\302\303\304\305..!
9ca0	5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 02 5c 22 5c 32 30 37 22 20 5b 2d 70 61 72 74 69 74	\306\"\307\310%.\"\207".[-partit
9cc0	69 6f 6e 2d 62 65 66 6f 72 65 2d 70 72 65 64 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32	ion-before-pred.make-byte-code.2
9ce0	35 37 20 22 5c 32 31 31 5c 33 30 30 5c 32 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65	57."\211\300\232\207".vconcat.ve
9d00	63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 45 29 22 5d 20 39 20 28 23 24 20	ctor.[].3."\n\n(fn.ELE)"].9.(#$.
9d20	2e 20 33 39 39 35 33 29 5d 29 0a 23 40 34 38 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f	..39953)]).#@48.Anaphoric.form.o
9d40	66 20 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	f.`-group-by'...(fn.FORM.LIST)..
9d60	28 64 65 66 61 6c 69 61 73 20 27 2d 2d 67 72 6f 75 70 2d 62 79 20 27 28 6d 61 63 72 6f 20 2e 20	(defalias.'--group-by.'(macro...
9d80	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
9da0	33 21 5c 33 30 34 5c 33 30 35 5c 33 30 36 05 43 5c 33 30 37 5c 33 31 30 06 08 44 5c 33 30 34 5c	3!\304\305\306.C\307\310..D\304\
9dc0	33 31 31 06 5c 6e 44 44 45 45 5c 33 31 32 5c 33 31 33 06 06 06 5c 6e 44 06 06 5c 33 31 34 06 09	311.\nDDEE\312\313...\nD..\314..
9de0	5c 33 31 35 42 42 44 44 5c 33 31 36 06 07 5c 33 31 37 06 09 5c 33 30 37 5c 33 32 30 5c 33 31 31	\315BBDD\316..\317..\307\320\311
9e00	06 0d 44 45 45 5c 33 32 31 5c 33 32 32 06 5c 66 5c 33 32 33 42 42 5c 33 32 34 42 42 46 5c 33 32	..DEE\321\322.\f\323BB\324BBF\32
9e20	35 42 42 42 5c 33 32 36 06 09 46 45 44 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20	5BBB\326..FED\207".[make-symbol.
9e40	22 6e 22 20 22 6b 22 20 22 67 72 70 22 20 6e 72 65 76 65 72 73 65 20 2d 6d 61 70 20 6c 61 6d 62	"n"."k"."grp".nreverse.-map.lamb
9e60	64 61 20 63 6f 6e 73 20 63 61 72 20 63 64 72 20 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 6c 65	da.cons.car.cdr.--reduce-from.le
9e80	74 2a 20 61 73 73 6f 63 20 28 61 63 63 29 20 69 66 20 73 65 74 63 64 72 20 69 74 20 70 75 73 68	t*.assoc.(acc).if.setcdr.it.push
9ea0	20 6c 69 73 74 20 28 69 74 29 20 28 61 63 63 29 20 28 61 63 63 29 20 6e 69 6c 5d 20 31 39 20 28	.list.(it).(acc).(acc).nil].19.(
9ec0	23 24 20 2e 20 34 30 32 34 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 67 72 6f 75 70 2d 62 79 20	#$...40240)])).(put.'--group-by.
9ee0	27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 74 29 0a 23 40 31 32 35 20 53 65 70 61 72	'edebug-form-spec.t).#@125.Separ
9f00	61 74 65 20 4c 49 53 54 20 69 6e 74 6f 20 61 6e 20 61 6c 69 73 74 20 77 68 6f 73 65 20 6b 65 79	ate.LIST.into.an.alist.whose.key
9f20	73 20 61 72 65 20 46 4e 20 61 70 70 6c 69 65 64 20 74 6f 20 74 68 65 0a 65 6c 65 6d 65 6e 74 73	s.are.FN.applied.to.the.elements
9f40	20 6f 66 20 4c 49 53 54 2e 20 20 4b 65 79 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 62 79 20	.of.LIST...Keys.are.compared.by.
9f60	60 65 71 75 61 6c 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61	`equal'...(fn.FN.LIST)..(defalia
9f80	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 5c 33 30 32	s.'-group-by.#[514."\300\301\302
9fa0	03 5c 33 30 33 01 5c 32 30 33 3b 00 01 40 06 07 01 21 5c 33 30 34 01 06 06 5c 22 5c 32 31 31 5c	.\303.\203;..@...!\304...\"\211\
9fc0	32 30 33 5c 22 00 5c 32 31 31 03 02 41 42 5c 32 34 31 5c 32 31 30 5c 32 30 32 2a 00 01 03 44 06	203\".\211..AB\241\210\202*...D.
9fe0	06 42 5c 32 36 32 06 05 5c 32 36 36 5c 32 30 32 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32	.B\262..\266\202\262.\210\211T\2
a000	36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 05 00 5c 32 36 36 02 5c 32 31 31 5c 32 36 32 01 5c 22	62..A\262.\202..\266.\211\262.\"
a020	5c 32 33 37 5c 32 30 37 22 20 5b 2d 6d 61 70 20 23 5b 32 35 37 20 22 5c 32 31 31 40 01 41 5c 32	\237\207".[-map.#[257."\211@.A\2
a040	33 37 42 5c 32 30 37 22 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 4e 29 22 5d 20 6e 69 6c 20	37B\207".[].3."\n\n(fn.N)"].nil.
a060	30 20 61 73 73 6f 63 5d 20 31 33 20 28 23 24 20 2e 20 34 30 36 39 39 29 5d 29 0a 23 40 37 36 20	0.assoc].13.(#$...40699)]).#@76.
a080	52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 65 6c 65 6d 65 6e 74	Return.a.new.list.of.all.element
a0a0	73 20 69 6e 20 4c 49 53 54 20 73 65 70 61 72 61 74 65 64 20 62 79 20 53 45 50 2e 0a 0a 28 66 6e	s.in.LIST.separated.by.SEP...(fn
a0c0	20 53 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 74 65 72 70 6f 73	.SEP.LIST)..(defalias.'-interpos
a0e0	65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 32 30 33 0f 00 01 40 01 42 5c 32 36 32 01 01 41 5c	e.#[514."\300.\203...@.B\262..A\
a100	32 36 32 02 01 5c 32 30 33 5c 22 00 01 40 03 02 42 42 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32	262..\203\"..@..BB\262..A\262.\2
a120	30 32 0f 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20	02..\211\237\207".[nil].6.(#$...
a140	34 31 30 38 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	41088)]).(byte-code."\300\301\30
a160	32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22	2\303#\210\300\301\304\303#\207"
a180	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 6e 74 65 72 70 6f 73 65 20 70 75 72 65 20 74	.[function-put.-interpose.pure.t
a1a0	20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 39 30 20 52 65 74 75 72	.side-effect-free].4).#@90.Retur
a1c0	6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 69	n.a.new.list.of.the.first.item.i
a1e0	6e 20 65 61 63 68 20 6c 69 73 74 2c 20 74 68 65 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 65 74 63	n.each.list,.then.the.second.etc
a200	2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	...(fn.&rest.LISTS)..(defalias.'
a220	2d 69 6e 74 65 72 6c 65 61 76 65 20 23 5b 31 32 38 20 22 5c 32 31 31 5c 32 30 35 35 00 5c 33 30	-interleave.#[128."\211\2055.\30
a240	30 5c 33 30 31 5c 33 30 32 03 5c 22 5c 32 30 33 31 00 01 5c 33 30 33 01 5c 32 30 33 26 00 01 40	0\301\302.\"\2031..\303.\203&..@
a260	5c 32 31 31 40 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32	\211@.B\262.\210\211T\262..A\262
a280	02 5c 32 30 32 0e 00 5c 32 36 36 02 5c 33 30 34 5c 33 30 35 03 5c 22 5c 32 36 32 02 5c 32 30 32	.\202..\266.\304\305.\"\262.\202
a2a0	05 00 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 6e 6f 6e 65 5c	..\211\237\262.\207".[nil.-none\
a2c0	3f 20 6e 75 6c 6c 20 30 20 2d 6d 61 70 20 63 64 72 5d 20 37 20 28 23 24 20 2e 20 34 31 34 30 33	?.null.0.-map.cdr].7.(#$...41403
a2e0	29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	)]).(byte-code."\300\301\302\303
a300	23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e	#\210\300\301\304\303#\207".[fun
a320	63 74 69 6f 6e 2d 70 75 74 20 2d 69 6e 74 65 72 6c 65 61 76 65 20 70 75 72 65 20 74 20 73 69 64	ction-put.-interleave.pure.t.sid
a340	65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 34 35 20 41 6e 61 70 68 6f 72 69	e-effect-free].4).#@145.Anaphori
a360	63 20 66 6f 72 6d 20 6f 66 20 60 2d 7a 69 70 2d 77 69 74 68 27 2e 0a 0a 54 68 65 20 65 6c 65 6d	c.form.of.`-zip-with'...The.elem
a380	65 6e 74 73 20 69 6e 20 6c 69 73 74 31 20 61 72 65 20 62 6f 75 6e 64 20 61 73 20 73 79 6d 62 6f	ents.in.list1.are.bound.as.symbo
a3a0	6c 20 60 69 74 27 2c 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 6c 69 73 74 32 20 61 73	l.`it',.the.elements.in.list2.as
a3c0	20 73 79 6d 62 6f 6c 20 60 6f 74 68 65 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 31	.symbol.`other'...(fn.FORM.LIST1
a3e0	20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 7a 69 70 2d 77 69 74 68 20 27	.LIST2)..(defalias.'--zip-with.'
a400	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 33 30	(macro...#[771."\300\301!\300\30
a420	32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 34 03 5c 33 30 35 42 03 06 07 44 03 06 07 44 45 5c 33	2!\300\303!\304.\305B...D...DE\3
a440	30 36 5c 33 30 37 05 05 45 5c 33 30 34 5c 33 31 30 5c 33 31 31 06 08 44 44 5c 33 31 32 5c 33 31	06\307..E\304\310\311..DD\312\31
a460	31 06 08 44 44 44 5c 33 31 33 06 5c 66 06 5c 6e 45 5c 33 31 34 06 09 44 5c 33 31 34 06 09 44 5c	1..DDD\313.\f.\nE\314..D\314..D\
a480	32 35 37 05 45 5c 33 31 35 06 06 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20	257.E\315..DF\207".[make-symbol.
a4a0	22 72 65 73 75 6c 74 22 20 22 6c 69 73 74 31 22 20 22 6c 69 73 74 32 22 20 6c 65 74 20 28 6e 69	"result"."list1"."list2".let.(ni
a4c0	6c 29 20 77 68 69 6c 65 20 61 6e 64 20 69 74 20 63 61 72 20 6f 74 68 65 72 20 21 63 6f 6e 73 20	l).while.and.it.car.other.!cons.
a4e0	21 63 64 72 20 6e 72 65 76 65 72 73 65 5d 20 31 36 20 28 23 24 20 2e 20 34 31 38 31 36 29 5d 29	!cdr.nreverse].16.(#$...41816)])
a500	29 0a 28 70 75 74 20 27 2d 2d 7a 69 70 2d 77 69 74 68 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d	).(put.'--zip-with.'edebug-form-
a520	73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 34 37 20 5a 69	spec.'(form.form.form)).#@347.Zi
a540	70 20 74 68 65 20 74 77 6f 20 6c 69 73 74 73 20 4c 49 53 54 31 20 61 6e 64 20 4c 49 53 54 32 20	p.the.two.lists.LIST1.and.LIST2.
a560	75 73 69 6e 67 20 61 20 66 75 6e 63 74 69 6f 6e 20 46 4e 2e 20 20 54 68 69 73 0a 66 75 6e 63 74	using.a.function.FN...This.funct
a580	69 6f 6e 20 69 73 20 61 70 70 6c 69 65 64 20 70 61 69 72 77 69 73 65 20 74 61 6b 69 6e 67 20 61	ion.is.applied.pairwise.taking.a
a5a0	73 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 65 6c 65 6d 65 6e 74 20 6f 66 0a 4c 49 53 54	s.first.argument.element.of.LIST
a5c0	31 20 61 6e 64 20 61 73 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 65 6c 65 6d 65 6e 74	1.and.as.second.argument.element
a5e0	20 6f 66 20 4c 49 53 54 32 20 61 74 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 70 6f 73 69 74	.of.LIST2.at.corresponding.posit
a600	69 6f 6e 2e 0a 0a 54 68 65 20 61 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 60 2d 2d 7a 69 70 2d	ion...The.anaphoric.form.`--zip-
a620	77 69 74 68 27 20 62 69 6e 64 73 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 4c 49	with'.binds.the.elements.from.LI
a640	53 54 31 20 61 73 20 73 79 6d 62 6f 6c 20 60 69 74 27 2c 0a 61 6e 64 20 74 68 65 20 65 6c 65 6d	ST1.as.symbol.`it',.and.the.elem
a660	65 6e 74 73 20 66 72 6f 6d 20 4c 49 53 54 32 20 61 73 20 73 79 6d 62 6f 6c 20 60 6f 74 68 65 72	ents.from.LIST2.as.symbol.`other
a680	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 64 65 66 61 6c 69	'...(fn.FN.LIST1.LIST2)..(defali
a6a0	61 73 20 27 2d 7a 69 70 2d 77 69 74 68 20 23 5b 37 37 31 20 22 5c 33 30 30 02 02 01 5c 32 30 33	as.'-zip-with.#[771."\300...\203
a6c0	23 00 5c 32 31 31 5c 32 30 33 23 00 01 40 01 40 06 07 02 02 5c 22 05 42 5c 32 36 32 05 03 41 5c	#.\211\203#..@.@....\".B\262..A\
a6e0	32 36 32 04 02 41 5c 32 36 36 5c 32 30 33 5c 32 30 32 03 00 02 5c 32 33 37 5c 32 30 37 22 20 5b	262..A\266\203\202...\237\207".[
a700	6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 34 32 33 30 32 29 5d 29 0a 23 40 34 39 32 20 5a 69 70	nil].11.(#$...42302)]).#@492.Zip
a720	20 4c 49 53 54 53 20 74 6f 67 65 74 68 65 72 2e 20 20 47 72 6f 75 70 20 74 68 65 20 68 65 61 64	.LISTS.together...Group.the.head
a740	20 6f 66 20 65 61 63 68 20 6c 69 73 74 2c 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 0a 73	.of.each.list,.followed.by.the.s
a760	65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 65 61 63 68 20 6c 69 73 74 2c 20 61 6e 64	econd.elements.of.each.list,.and
a780	20 73 6f 20 6f 6e 2e 20 54 68 65 20 6c 65 6e 67 74 68 73 20 6f 66 20 74 68 65 20 72 65 74 75 72	.so.on..The.lengths.of.the.retur
a7a0	6e 65 64 0a 67 72 6f 75 70 69 6e 67 73 20 61 72 65 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 6c	ned.groupings.are.equal.to.the.l
a7c0	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 69 73 74	ength.of.the.shortest.input.list
a7e0	2e 0a 0a 49 66 20 74 77 6f 20 6c 69 73 74 73 20 61 72 65 20 70 72 6f 76 69 64 65 64 20 61 73 20	...If.two.lists.are.provided.as.
a800	61 72 67 75 6d 65 6e 74 73 2c 20 72 65 74 75 72 6e 20 74 68 65 20 67 72 6f 75 70 69 6e 67 73 20	arguments,.return.the.groupings.
a820	61 73 20 61 20 6c 69 73 74 0a 6f 66 20 63 6f 6e 73 20 63 65 6c 6c 73 2e 20 4f 74 68 65 72 77 69	as.a.list.of.cons.cells..Otherwi
a840	73 65 2c 20 72 65 74 75 72 6e 20 74 68 65 20 67 72 6f 75 70 69 6e 67 73 20 61 73 20 61 20 6c 69	se,.return.the.groupings.as.a.li
a860	73 74 20 6f 66 20 6c 69 73 74 73 2e 0a 0a 50 6c 65 61 73 65 20 6e 6f 74 65 21 20 54 68 69 73 20	st.of.lists...Please.note!.This.
a880	64 69 73 74 69 6e 63 74 69 6f 6e 20 69 73 20 62 65 69 6e 67 20 72 65 6d 6f 76 65 64 20 69 6e 20	distinction.is.being.removed.in.
a8a0	61 6e 20 75 70 63 6f 6d 69 6e 67 20 33 2e 30 0a 72 65 6c 65 61 73 65 20 6f 66 20 44 61 73 68 2e	an.upcoming.3.0.release.of.Dash.
a8c0	20 49 66 20 79 6f 75 20 72 65 6c 79 20 6f 6e 20 74 68 69 73 20 62 65 68 61 76 69 6f 72 2c 20 75	.If.you.rely.on.this.behavior,.u
a8e0	73 65 20 2d 7a 69 70 2d 70 61 69 72 20 69 6e 73 74 65 61 64 2e 0a 0a 28 66 6e 20 26 72 65 73 74	se.-zip-pair.instead...(fn.&rest
a900	20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 7a 69 70 20 23 5b 31 32 38 20 22	.LISTS)..(defalias.'-zip.#[128."
a920	5c 32 31 31 5c 32 30 35 32 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 22 5c 32 30 33 1d 00 5c	\211\2052.\300\301\302.\"\203..\
a940	33 30 33 5c 33 30 34 03 5c 22 01 42 5c 32 36 32 01 5c 33 30 33 5c 33 30 35 03 5c 22 5c 32 36 32	303\304.\".B\262.\303\305.\"\262
a960	02 5c 32 30 32 05 00 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 01 47 5c 33 30 36 55 5c 32 30 33 2f	.\202..\211\237\262..G\306U\203/
a980	00 5c 33 30 33 5c 33 30 37 02 5c 22 5c 32 30 32 30 00 5c 32 31 31 5c 32 36 32 01 5c 32 30 37 22	.\303\307.\"\2020.\211\262.\207"
a9a0	20 5b 6e 69 6c 20 2d 6e 6f 6e 65 5c 3f 20 6e 75 6c 6c 20 6d 61 70 63 61 72 20 63 61 72 20 63 64	.[nil.-none\?.null.mapcar.car.cd
a9c0	72 20 32 20 23 5b 32 35 37 20 22 5c 32 31 31 40 01 41 40 42 5c 32 30 37 22 20 5b 5d 20 33 20 22	r.2.#[257."\211@.A@B\207".[].3."
a9e0	5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 35 20 28 23 24 20 2e 20 34 32 37 38 31 29 5d 29 0a	\n\n(fn.IT)"]].5.(#$...42781)]).
aa00	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 31	(byte-code."\300\301\302\303#\21
aa20	30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33	0\300\301\304\303#\210\305\306\3
aa40	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 7a 69 70 20 70 75 72	01\"\207".[function-put.-zip.pur
aa60	65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d 7a	e.t.side-effect-free.defalias.-z
aa80	69 70 2d 70 61 69 72 5d 20 34 29 0a 23 40 31 37 37 20 5a 69 70 20 4c 49 53 54 53 2c 20 77 69 74	ip-pair].4).#@177.Zip.LISTS,.wit
aaa0	68 20 46 49 4c 4c 2d 56 41 4c 55 45 20 70 61 64 64 65 64 20 6f 6e 74 6f 20 74 68 65 20 73 68 6f	h.FILL-VALUE.padded.onto.the.sho
aac0	72 74 65 72 20 6c 69 73 74 73 2e 20 54 68 65 0a 6c 65 6e 67 74 68 73 20 6f 66 20 74 68 65 20 72	rter.lists..The.lengths.of.the.r
aae0	65 74 75 72 6e 65 64 20 67 72 6f 75 70 69 6e 67 73 20 61 72 65 20 65 71 75 61 6c 20 74 6f 20 74	eturned.groupings.are.equal.to.t
ab00	68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 0a 6c 6f 6e 67 65 73 74 20 69 6e 70 75 74 20 6c	he.length.of.the.longest.input.l
ab20	69 73 74 2e 0a 0a 28 66 6e 20 46 49 4c 4c 2d 56 41 4c 55 45 20 26 72 65 73 74 20 4c 49 53 54 53	ist...(fn.FILL-VALUE.&rest.LISTS
ab40	29 1f 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	)..(defalias.'-zip-fill.#[385."\
ab60	33 30 30 5c 33 30 31 5c 33 30 30 5c 33 30 32 05 05 42 5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 70	300\301\300\302..B\"\"\207".[app
ab80	6c 79 20 2d 7a 69 70 20 2d 70 61 64 5d 20 38 20 28 23 24 20 2e 20 34 33 36 36 36 29 5d 29 0a 28	ly.-zip.-pad].8.(#$...43666)]).(
aba0	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
abc0	5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e	\300\301\304\303#\207".[function
abe0	2d 70 75 74 20 2d 7a 69 70 2d 66 69 6c 6c 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63	-put.-zip-fill.pure.t.side-effec
ac00	74 2d 66 72 65 65 5d 20 34 29 0a 23 40 32 34 31 20 55 6e 7a 69 70 20 4c 49 53 54 53 2e 0a 0a 54	t-free].4).#@241.Unzip.LISTS...T
ac20	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 27 20 62 75 74 20 74	his.works.just.like.`-zip'.but.t
ac40	61 6b 65 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 69 6e 73 74 65 61 64 20 6f 66 0a	akes.a.list.of.lists.instead.of.
ac60	61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2c 20	a.variable.number.of.arguments,.
ac80	73 75 63 68 20 74 68 61 74 0a 0a 20 20 28 2d 75 6e 7a 69 70 20 28 2d 7a 69 70 20 4c 31 20 4c 32	such.that....(-unzip.(-zip.L1.L2
aca0	20 4c 33 20 2e 2e 2e 29 29 0a 0a 69 73 20 69 64 65 6e 74 69 74 79 20 28 67 69 76 65 6e 20 74 68	.L3....))..is.identity.(given.th
acc0	61 74 20 74 68 65 20 6c 69 73 74 73 20 61 72 65 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68	at.the.lists.are.the.same.length
ace0	29 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 7a 69 70 27 0a 0a 28 66 6e 20 4c 49 53 54 53 29	)...See.also:.`-zip'..(fn.LISTS)
ad00	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 6e 7a 69 70 20 23 5b 32 35 37 20 22 5c 33 30 30 5c	..(defalias.'-unzip.#[257."\300\
ad20	33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 2d 7a 69 70 5d 20 34 20 28 23 24 20 2e	301.\"\207".[apply.-zip].4.(#$..
ad40	20 34 34 30 34 39 29 5d 29 0a 23 40 31 31 32 20 52 65 74 75 72 6e 20 61 6e 20 69 6e 66 69 6e 69	.44049)]).#@112.Return.an.infini
ad60	74 65 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 20 74 68 61 74 20 77 69 6c 6c 20 63 79 63 6c 65 20	te.copy.of.LIST.that.will.cycle.
ad80	74 68 72 6f 75 67 68 20 74 68 65 0a 65 6c 65 6d 65 6e 74 73 20 61 6e 64 20 72 65 70 65 61 74 20	through.the.elements.and.repeat.
ada0	66 72 6f 6d 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	from.the.beginning...(fn.LIST)..
adc0	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 30 30 5c 33 30	(defalias.'-cycle.#[257."\300\30
ade0	31 02 5c 22 5c 32 31 31 01 5c 32 34 34 5c 32 30 37 22 20 5b 2d 6d 61 70 20 69 64 65 6e 74 69 74	1.\"\211.\244\207".[-map.identit
ae00	79 5d 20 34 20 28 23 24 20 2e 20 34 34 33 36 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	y].4.(#$...44368)]).(byte-code."
ae20	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30	\300\301\302\303#\210\300\301\30
ae40	34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 79 63 6c 65	4\303#\207".[function-put.-cycle
ae60	20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31	.pure.t.side-effect-free].4).#@1
ae80	32 38 20 41 70 70 65 6e 64 73 20 46 49 4c 4c 2d 56 41 4c 55 45 20 74 6f 20 74 68 65 20 65 6e 64	28.Appends.FILL-VALUE.to.the.end
aea0	20 6f 66 20 65 61 63 68 20 6c 69 73 74 20 69 6e 20 4c 49 53 54 53 20 73 75 63 68 20 74 68 61 74	.of.each.list.in.LISTS.such.that
aec0	20 74 68 65 79 0a 77 69 6c 6c 20 61 6c 6c 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 6c 65 6e	.they.will.all.have.the.same.len
aee0	67 74 68 2e 0a 0a 28 66 6e 20 46 49 4c 4c 2d 56 41 4c 55 45 20 26 72 65 73 74 20 4c 49 53 54 53	gth...(fn.FILL-VALUE.&rest.LISTS
af00	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 64 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33	)..(defalias.'-pad.#[385."\300\3
af20	30 31 02 5c 22 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 5c 22 21 5c 33 30 35 5c 33 30 36 5c 33 30	01.\"\302\303\304.\"!\305\306\30
af40	37 5c 33 31 30 5c 33 31 31 5c 33 31 32 06 09 06 07 5c 22 5c 33 31 33 5c 22 5c 33 31 34 5c 33 31	7\310\311\312....\"\313\"\314\31
af60	35 25 03 5c 22 5c 32 30 37 22 20 5b 2d 61 6e 6e 6f 74 61 74 65 20 6c 65 6e 67 74 68 20 2d 6d 61	5%.\"\207".[-annotate.length.-ma
af80	78 20 2d 6d 61 70 20 63 61 72 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65	x.-map.car.mapcar.make-byte-code
afa0	20 32 35 37 20 22 5c 33 30 32 01 41 5c 33 30 33 5c 33 30 31 04 40 5a 5c 33 30 30 5c 22 5c 22 5c	.257."\302.A\303\301.@Z\300\"\"\
afc0	32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 61 70 70 65 6e 64 20 2d 72 65 70	207".vconcat.vector.[append.-rep
afe0	65 61 74 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 31 32 20 28 23 24 20 2e 20 34	eat].6."\n\n(fn.IT)"].12.(#$...4
b000	34 36 37 35 29 5d 29 0a 23 40 31 34 31 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 63	4675)]).#@141.Return.a.list.of.c
b020	6f 6e 73 20 63 65 6c 6c 73 20 77 68 65 72 65 20 65 61 63 68 20 63 65 6c 6c 20 69 73 20 46 4e 20	ons.cells.where.each.cell.is.FN.
b040	61 70 70 6c 69 65 64 20 74 6f 20 65 61 63 68 0a 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20	applied.to.each.element.of.LIST.
b060	70 61 69 72 65 64 20 77 69 74 68 20 74 68 65 20 75 6e 6d 6f 64 69 66 69 65 64 20 65 6c 65 6d 65	paired.with.the.unmodified.eleme
b080	6e 74 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61	nt.of.LIST...(fn.FN.LIST)..(defa
b0a0	6c 69 61 73 20 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 03	lias.'-annotate.#[514."\300\301.
b0c0	03 5c 22 02 5c 22 5c 32 30 37 22 20 5b 2d 7a 69 70 20 2d 6d 61 70 5d 20 36 20 28 23 24 20 2e 20	.\".\"\207".[-zip.-map].6.(#$...
b0e0	34 35 30 37 30 29 5d 29 0a 23 40 35 31 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20	45070)]).#@51.Anaphoric.version.
b100	6f 66 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	of.`-annotate'...(fn.FORM.LIST).
b120	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 6d 61 63 72 6f 20 2e	.(defalias.'--annotate.'(macro..
b140	20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d	.#[514."\300\301\302.E.E\207".[-
b160	61 6e 6e 6f 74 61 74 65 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 34 35	annotate.lambda.(it)].6.(#$...45
b180	32 39 34 29 5d 29 29 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	294)])).(put.'--annotate.'edebug
b1a0	2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 34 30 20 48	-form-spec.'(form.form)).#@140.H
b1c0	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 66	elper.for.`-table'.and.`-table-f
b1e0	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 72	lat'...If.a.list.overflows,.carr
b200	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 73	y.to.the.right.and.reset.the.lis
b220	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 74	t...(fn.LISTS.RESTORE-LISTS.&opt
b240	69 6f 6e 61 6c 20 52 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 74 61 62 6c	ional.RE)..(defalias.'dash--tabl
b260	65 2d 63 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	e-carry.#[770.".@\206...\300\232
b280	3f 5c 32 30 35 43 00 02 02 40 5c 32 34 30 5c 32 31 30 02 5c 32 31 31 41 40 5c 32 31 31 02 41 02	?\205C...@\240\210.\211A@\211.A.
b2a0	41 5c 32 34 30 5c 32 31 30 5c 32 36 36 03 02 41 5c 32 36 32 03 01 41 5c 32 36 32 02 5c 32 31 31	A\240\210\266..A\262..A\262.\211
b2c0	5c 32 30 33 00 00 5c 32 31 31 40 5c 32 33 37 01 5c 32 31 31 41 02 02 41 40 42 5c 32 34 30 5c 32	\203..\211@\237.\211A..A@B\240\2
b2e0	36 36 03 5c 32 31 31 5c 33 30 31 5c 32 34 30 5c 32 31 30 5c 32 31 31 41 5c 32 36 32 01 5c 32 30	66.\211\301\240\210\211A\262.\20
b300	32 00 00 5c 32 30 37 22 20 5b 28 6e 69 6c 29 20 6e 69 6c 5d 20 38 20 28 23 24 20 2e 20 34 35 35	2..\207".[(nil).nil].8.(#$...455
b320	30 33 29 5d 29 0a 23 40 33 35 32 20 43 6f 6d 70 75 74 65 20 6f 75 74 65 72 20 70 72 6f 64 75 63	03)]).#@352.Compute.outer.produc
b340	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 0a 0a 54	t.of.LISTS.using.function.FN...T
b360	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 65 20 73	he.function.FN.should.have.the.s
b380	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 70 70 6c	ame.arity.as.the.number.of.suppl
b3a0	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 20 69 73	ied.lists...The.outer.product.is
b3c0	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 6c 6c 20	.computed.by.applying.fn.to.all.
b3e0	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 20 62 79	possible.combinations.created.by
b400	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 20 6c 69	.taking.one.element.from.each.li
b420	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 66 20 74	st.in.order...The.dimension.of.t
b440	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 0a 53 65	he.result.is.(length.lists)...Se
b460	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 20 26 72	e.also:.`-table-flat'..(fn.FN.&r
b480	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 20 23 5b	est.LISTS)..(defalias.'-table.#[
b4a0	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 01 40 5c	385."\300.!\301.!\302.G\303\".@\
b4c0	32 30 33 31 00 5c 33 30 34 05 5c 33 30 35 5c 33 30 36 06 07 5c 22 5c 22 01 5c 32 31 31 02 02 40	2031.\304.\305\306..\"\".\211..@
b4e0	42 5c 32 34 30 5c 32 36 36 02 04 5c 32 31 31 40 41 5c 32 34 30 5c 32 31 30 5c 33 30 37 05 05 04	B\240\266..\211@A\240\210\307...
b500	23 5c 32 36 36 02 5c 32 30 32 0b 00 5c 33 30 31 01 21 40 5c 32 33 37 5c 32 30 37 22 20 5b 63 6f	#\266.\202..\301.!@\237\207".[co
b520	70 79 2d 73 65 71 75 65 6e 63 65 20 6c 61 73 74 20 6d 61 6b 65 2d 6c 69 73 74 20 6e 69 6c 20 61	py-sequence.last.make-list.nil.a
b540	70 70 6c 79 20 2d 6d 61 70 20 63 61 72 20 64 61 73 68 2d 2d 74 61 62 6c 65 2d 63 61 72 72 79 5d	pply.-map.car.dash--table-carry]
b560	20 31 30 20 28 23 24 20 2e 20 34 35 38 36 38 29 5d 29 0a 23 40 35 33 39 20 43 6f 6d 70 75 74 65	.10.(#$...45868)]).#@539.Compute
b580	20 66 6c 61 74 20 6f 75 74 65 72 20 70 72 6f 64 75 63 74 20 6f 66 20 4c 49 53 54 53 20 75 73 69	.flat.outer.product.of.LISTS.usi
b5a0	6e 67 20 66 75 6e 63 74 69 6f 6e 20 46 4e 2e 0a 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 46 4e	ng.function.FN...The.function.FN
b5c0	20 73 68 6f 75 6c 64 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 61 72 69 74 79 20 61 73 20 74	.should.have.the.same.arity.as.t
b5e0	68 65 20 6e 75 6d 62 65 72 20 6f 66 0a 73 75 70 70 6c 69 65 64 20 6c 69 73 74 73 2e 0a 0a 54 68	he.number.of.supplied.lists...Th
b600	65 20 6f 75 74 65 72 20 70 72 6f 64 75 63 74 20 69 73 20 63 6f 6d 70 75 74 65 64 20 62 79 20 61	e.outer.product.is.computed.by.a
b620	70 70 6c 79 69 6e 67 20 66 6e 20 74 6f 20 61 6c 6c 20 70 6f 73 73 69 62 6c 65 0a 63 6f 6d 62 69	pplying.fn.to.all.possible.combi
b640	6e 61 74 69 6f 6e 73 20 63 72 65 61 74 65 64 20 62 79 20 74 61 6b 69 6e 67 20 6f 6e 65 20 65 6c	nations.created.by.taking.one.el
b660	65 6d 65 6e 74 20 66 72 6f 6d 20 65 61 63 68 20 6c 69 73 74 20 69 6e 0a 6f 72 64 65 72 2e 20 20	ement.from.each.list.in.order...
b680	54 68 65 20 72 65 73 75 6c 74 73 20 61 72 65 20 66 6c 61 74 74 65 6e 65 64 2c 20 69 67 6e 6f 72	The.results.are.flattened,.ignor
b6a0	69 6e 67 20 74 68 65 20 74 65 6e 73 6f 72 20 73 74 72 75 63 74 75 72 65 0a 6f 66 20 74 68 65 20	ing.the.tensor.structure.of.the.
b6c0	72 65 73 75 6c 74 2e 20 20 54 68 69 73 20 69 73 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 63	result...This.is.equivalent.to.c
b6e0	61 6c 6c 69 6e 67 3a 0a 0a 20 20 28 2d 66 6c 61 74 74 65 6e 2d 6e 20 28 31 2d 20 28 6c 65 6e 67	alling:....(-flatten-n.(1-.(leng
b700	74 68 20 6c 69 73 74 73 29 29 20 28 61 70 70 6c 79 20 5c 3d 27 2d 74 61 62 6c 65 20 66 6e 20 6c	th.lists)).(apply.\='-table.fn.l
b720	69 73 74 73 29 29 0a 0a 62 75 74 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 68	ists))..but.the.implementation.h
b740	65 72 65 20 69 73 20 6d 75 63 68 20 6d 6f 72 65 20 65 66 66 69 63 69 65 6e 74 2e 0a 0a 53 65 65	ere.is.much.more.efficient...See
b760	20 61 6c 73 6f 3a 20 60 2d 66 6c 61 74 74 65 6e 2d 6e 27 2c 20 60 2d 74 61 62 6c 65 27 0a 0a 28	.also:.`-flatten-n',.`-table'..(
b780	66 6e 20 46 4e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	fn.FN.&rest.LISTS)..(defalias.'-
b7a0	74 61 62 6c 65 2d 66 6c 61 74 20 23 5b 33 38 35 20 22 5c 33 30 30 01 21 5c 33 30 31 02 21 5c 33	table-flat.#[385."\300.!\301.!\3
b7c0	30 32 01 40 5c 32 30 33 28 00 5c 33 30 33 05 5c 33 30 34 5c 33 30 35 06 07 5c 22 5c 22 5c 32 31	02.@\203(.\303.\304\305..\"\"\21
b7e0	31 02 42 5c 32 36 32 02 04 5c 32 31 31 40 41 5c 32 34 30 5c 32 31 30 5c 33 30 36 05 05 5c 22 5c	1.B\262..\211@A\240\210\306..\"\
b800	32 36 36 02 5c 32 30 32 07 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 63 6f 70 79 2d 73 65	266.\202..\211\237\207".[copy-se
b820	71 75 65 6e 63 65 20 6c 61 73 74 20 6e 69 6c 20 61 70 70 6c 79 20 2d 6d 61 70 20 63 61 72 20 64	quence.last.nil.apply.-map.car.d
b840	61 73 68 2d 2d 74 61 62 6c 65 2d 63 61 72 72 79 5d 20 31 30 20 28 23 24 20 2e 20 34 36 34 35 37	ash--table-carry].10.(#$...46457
b860	29 5d 29 0a 23 40 32 33 34 20 54 61 6b 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 61 6e 64	)]).#@234.Take.a.function.FN.and
b880	20 66 65 77 65 72 20 74 68 61 6e 20 74 68 65 20 6e 6f 72 6d 61 6c 20 61 72 67 75 6d 65 6e 74 73	.fewer.than.the.normal.arguments
b8a0	20 74 6f 20 46 4e 2c 0a 61 6e 64 20 72 65 74 75 72 6e 20 61 20 66 6e 20 74 68 61 74 20 74 61 6b	.to.FN,.and.return.a.fn.that.tak
b8c0	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 64 64 69 74 69 6f 6e	es.a.variable.number.of.addition
b8e0	61 6c 20 41 52 47 53 2e 0a 57 68 65 6e 20 63 61 6c 6c 65 64 2c 20 74 68 65 20 72 65 74 75 72 6e	al.ARGS..When.called,.the.return
b900	65 64 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 73 20 46 4e 20 77 69 74 68 20 41 52 47 53 20 66	ed.function.calls.FN.with.ARGS.f
b920	69 72 73 74 20 61 6e 64 0a 74 68 65 6e 20 61 64 64 69 74 69 6f 6e 61 6c 20 61 72 67 73 2e 0a 0a	irst.and.then.additional.args...
b940	28 66 6e 20 46 4e 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	(fn.FN.&rest.ARGS)..(defalias.'-
b960	70 61 72 74 69 61 6c 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 03 03 23 5c 32 30 37 22 20	partial.#[385."\300\301..#\207".
b980	5b 61 70 70 6c 79 20 61 70 70 6c 79 2d 70 61 72 74 69 61 6c 6c 79 5d 20 36 20 28 23 24 20 2e 20	[apply.apply-partially].6.(#$...
b9a0	34 37 32 31 30 29 5d 29 0a 23 40 31 35 31 20 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78 20	47210)]).#@151.Return.the.index.
b9c0	6f 66 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 67 69 76 65	of.the.first.element.in.the.give
b9e0	6e 20 4c 49 53 54 20 77 68 69 63 68 0a 69 73 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 71 75 65	n.LIST.which.is.equal.to.the.que
ba00	72 79 20 65 6c 65 6d 65 6e 74 20 45 4c 45 4d 2c 20 6f 72 20 6e 69 6c 20 69 66 20 74 68 65 72 65	ry.element.ELEM,.or.nil.if.there
ba20	20 69 73 20 6e 6f 0a 73 75 63 68 20 65 6c 65 6d 65 6e 74 2e 0a 0a 28 66 6e 20 45 4c 45 4d 20 4c	.is.no.such.element...(fn.ELEM.L
ba40	49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 65 6c 65 6d 2d 69 6e 64 65 78 20 23 5b 35	IST)..(defalias.'-elem-index.#[5
ba60	31 34 20 22 5c 33 30 30 02 02 5c 22 40 5c 32 30 37 22 20 5b 2d 65 6c 65 6d 2d 69 6e 64 69 63 65	14."\300..\"@\207".[-elem-indice
ba80	73 5d 20 35 20 28 23 24 20 2e 20 34 37 35 33 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	s].5.(#$...47535)]).(byte-code."
baa0	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30	\300\301\302\303#\210\300\301\30
bac0	34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 65 6c 65 6d 2d	4\303#\207".[function-put.-elem-
bae0	69 6e 64 65 78 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34	index.pure.t.side-effect-free].4
bb00	29 0a 23 40 31 31 33 20 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 69 63 65 73 20 6f 66 20 61 6c	).#@113.Return.the.indices.of.al
bb20	6c 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 53 54 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20	l.elements.in.LIST.equal.to.the.
bb40	71 75 65 72 79 0a 65 6c 65 6d 65 6e 74 20 45 4c 45 4d 2c 20 69 6e 20 61 73 63 65 6e 64 69 6e 67	query.element.ELEM,.in.ascending
bb60	20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 45 4c 45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69	.order...(fn.ELEM.LIST)..(defali
bb80	61 73 20 27 2d 65 6c 65 6d 2d 69 6e 64 69 63 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30	as.'-elem-indices.#[514."\300\30
bba0	31 5c 33 30 32 04 5c 22 02 5c 22 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20	1\302.\".\"\207".[-find-indices.
bbc0	2d 70 61 72 74 69 61 6c 20 65 71 75 61 6c 5d 20 36 20 28 23 24 20 2e 20 34 37 38 38 30 29 5d 29	-partial.equal].6.(#$...47880)])
bbe0	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
bc00	31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69	10\300\301\304\303#\207".[functi
bc20	6f 6e 2d 70 75 74 20 2d 65 6c 65 6d 2d 69 6e 64 69 63 65 73 20 70 75 72 65 20 74 20 73 69 64 65	on-put.-elem-indices.pure.t.side
bc40	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 31 31 20 52 65 74 75 72 6e 20 74 68	-effect-free].4).#@111.Return.th
bc60	65 20 69 6e 64 69 63 65 73 20 6f 66 20 61 6c 6c 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 53	e.indices.of.all.elements.in.LIS
bc80	54 20 73 61 74 69 73 66 79 69 6e 67 20 74 68 65 0a 70 72 65 64 69 63 61 74 65 20 50 52 45 44 2c	T.satisfying.the.predicate.PRED,
bca0	20 69 6e 20 61 73 63 65 6e 64 69 6e 67 20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c	.in.ascending.order...(fn.PRED.L
bcc0	49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 23	IST)..(defalias.'-find-indices.#
bce0	5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 01 5c 32 30 33 24 00 01 40	[514."\300\301\302.\303.\203$..@
bd00	06 07 01 21 5c 32 30 35 14 00 01 43 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32	...!\205...C.B\262.\210\211T\262
bd20	01 01 41 5c 32 36 32 02 5c 32 30 32 05 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 32 01	..A\262.\202..\266.\211\237\262.
bd40	5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6e 69 6c 20 30 5d 20 31 30 20	\"\207".[apply.append.nil.0].10.
bd60	28 23 24 20 2e 20 34 38 32 31 35 29 5d 29 0a 23 40 35 35 20 41 6e 61 70 68 6f 72 69 63 20 76 65	(#$...48215)]).#@55.Anaphoric.ve
bd80	72 73 69 6f 6e 20 6f 66 20 60 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 27 2e 0a 0a 28 66 6e 20 46	rsion.of.`-find-indices'...(fn.F
bda0	4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 6e 64 2d 69 6e 64	ORM.LIST)..(defalias.'--find-ind
bdc0	69 63 65 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33	ices.'(macro...#[514."\300\301\3
bde0	30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 6c 61 6d 62 64	02.E.E\207".[-find-indices.lambd
be00	61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 34 38 35 30 30 29 5d 29 29 0a 28 70 75 74 20 27	a.(it)].6.(#$...48500)])).(put.'
be20	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 70 65 63	--find-indices.'edebug-form-spec
be40	20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 38 36 20 54 61 6b 65 20 61 20 70 72 65 64	.'(form.form)).#@186.Take.a.pred
be60	69 63 61 74 65 20 50 52 45 44 20 61 6e 64 20 61 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e	icate.PRED.and.a.LIST.and.return
be80	20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 0a 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20	.the.index.of.the.first.element.
bea0	69 6e 20 74 68 65 20 6c 69 73 74 20 73 61 74 69 73 66 79 69 6e 67 20 74 68 65 20 70 72 65 64 69	in.the.list.satisfying.the.predi
bec0	63 61 74 65 2c 20 6f 72 20 6e 69 6c 20 69 66 0a 74 68 65 72 65 20 69 73 20 6e 6f 20 73 75 63 68	cate,.or.nil.if.there.is.no.such
bee0	20 65 6c 65 6d 65 6e 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 66 69 72 73 74 27 2e 0a 0a 28	.element...See.also.`-first'...(
bf00	66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6e 64 2d	fn.PRED.LIST)..(defalias.'-find-
bf20	69 6e 64 65 78 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 40 5c 32 30 37 22 20 5b 2d 66 69	index.#[514."\300..\"@\207".[-fi
bf40	6e 64 2d 69 6e 64 69 63 65 73 5d 20 35 20 28 23 24 20 2e 20 34 38 37 32 35 29 5d 29 0a 23 40 35	nd-indices].5.(#$...48725)]).#@5
bf60	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 66 69 6e 64 2d 69 6e	3.Anaphoric.version.of.`-find-in
bf80	64 65 78 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73	dex'...(fn.FORM.LIST)..(defalias
bfa0	20 27 2d 2d 66 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	.'--find-index.'(macro...#[514."
bfc0	5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64	\300\301\302.E.E\207".[-find-ind
bfe0	65 78 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 34 38 39 39 34 29 5d 29	ex.lambda.(it)].6.(#$...48994)])
c000	29 0a 28 70 75 74 20 27 2d 2d 66 69 6e 64 2d 69 6e 64 65 78 20 27 65 64 65 62 75 67 2d 66 6f 72	).(put.'--find-index.'edebug-for
c020	6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 38 34 20 54 61 6b 65 20	m-spec.'(form.form)).#@184.Take.
c040	61 20 70 72 65 64 69 63 61 74 65 20 50 52 45 44 20 61 6e 64 20 61 20 4c 49 53 54 20 61 6e 64 20	a.predicate.PRED.and.a.LIST.and.
c060	72 65 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 0a 6c 61 73 74 20 65 6c 65	return.the.index.of.the.last.ele
c080	6d 65 6e 74 20 69 6e 20 74 68 65 20 6c 69 73 74 20 73 61 74 69 73 66 79 69 6e 67 20 74 68 65 20	ment.in.the.list.satisfying.the.
c0a0	70 72 65 64 69 63 61 74 65 2c 20 6f 72 20 6e 69 6c 20 69 66 0a 74 68 65 72 65 20 69 73 20 6e 6f	predicate,.or.nil.if.there.is.no
c0c0	20 73 75 63 68 20 65 6c 65 6d 65 6e 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 6c 61 73 74 27	.such.element...See.also.`-last'
c0e0	2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66	...(fn.PRED.LIST)..(defalias.'-f
c100	69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 03	ind-last-index.#[514."\300\301..
c120	5c 22 21 5c 32 30 37 22 20 5b 2d 6c 61 73 74 2d 69 74 65 6d 20 2d 66 69 6e 64 2d 69 6e 64 69 63	\"!\207".[-last-item.-find-indic
c140	65 73 5d 20 36 20 28 23 24 20 2e 20 34 39 32 31 31 29 5d 29 0a 23 40 35 38 20 41 6e 61 70 68 6f	es].6.(#$...49211)]).#@58.Anapho
c160	72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78	ric.version.of.`-find-last-index
c180	27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d	'...(fn.FORM.LIST)..(defalias.'-
c1a0	2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34	-find-last-index.'(macro...#[514
c1c0	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 6c	."\300\301\302.E.E\207".[-find-l
c1e0	61 73 74 2d 69 6e 64 65 78 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 34	ast-index.lambda.(it)].6.(#$...4
c200	39 34 39 38 29 5d 29 29 0a 23 40 31 32 33 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 68 6f	9498)])).#@123.Return.a.list.who
c220	73 65 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 4c 49	se.elements.are.elements.from.LI
c240	53 54 20 73 65 6c 65 63 74 65 64 0a 61 73 20 60 28 6e 74 68 20 69 20 6c 69 73 74 29 60 20 66 6f	ST.selected.as.`(nth.i.list)`.fo
c260	72 20 61 6c 6c 20 69 20 66 72 6f 6d 20 49 4e 44 49 43 45 53 2e 0a 0a 28 66 6e 20 49 4e 44 49 43	r.all.i.from.INDICES...(fn.INDIC
c280	45 53 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 6c 65 63 74 2d 62 79 2d	ES.LIST)..(defalias.'-select-by-
c2a0	69 6e 64 69 63 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 01 5c 32 30 33 1c 00 01	indices.#[514."\300.\301.\203...
c2c0	40 5c 32 31 31 05 38 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32	@\211.8.B\262.\210\211T\262..A\2
c2e0	36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c	62.\202..\266.\211\237\207".[nil
c300	20 30 5d 20 38 20 28 23 24 20 2e 20 34 39 36 37 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20	.0].8.(#$...49679)]).(byte-code.
c320	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33	"\300\301\302\303#\210\300\301\3
c340	30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 73 65 6c 65	04\303#\207".[function-put.-sele
c360	63 74 2d 62 79 2d 69 6e 64 69 63 65 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74	ct-by-indices.pure.t.side-effect
c380	2d 66 72 65 65 5d 20 34 29 0a 23 40 32 38 33 20 53 65 6c 65 63 74 20 43 4f 4c 55 4d 4e 53 20 66	-free].4).#@283.Select.COLUMNS.f
c3a0	72 6f 6d 20 54 41 42 4c 45 2e 0a 0a 54 41 42 4c 45 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6c	rom.TABLE...TABLE.is.a.list.of.l
c3c0	69 73 74 73 20 77 68 65 72 65 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 72 65 70 72 65 73 65 6e	ists.where.each.element.represen
c3e0	74 73 20 6f 6e 65 20 72 6f 77 2e 0a 49 74 20 69 73 20 61 73 73 75 6d 65 64 20 65 61 63 68 20 72	ts.one.row..It.is.assumed.each.r
c400	6f 77 20 68 61 73 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 2e 0a 0a 45 61 63 68 20 72 6f	ow.has.the.same.length...Each.ro
c420	77 20 69 73 20 74 72 61 6e 73 66 6f 72 6d 65 64 20 73 75 63 68 20 74 68 61 74 20 6f 6e 6c 79 20	w.is.transformed.such.that.only.
c440	74 68 65 20 73 70 65 63 69 66 69 65 64 20 43 4f 4c 55 4d 4e 53 20 61 72 65 0a 73 65 6c 65 63 74	the.specified.COLUMNS.are.select
c460	65 64 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 27 2c	ed...See.also:.`-select-column',
c480	20 60 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 27 0a 0a 28 66 6e 20 43 4f 4c 55 4d	.`-select-by-indices'..(fn.COLUM
c4a0	4e 53 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 6c 65 63 74 2d 63 6f	NS.TABLE)..(defalias.'-select-co
c4c0	6c 75 6d 6e 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30	lumns.#[514."\300\301\302\303\30
c4e0	34 5c 33 30 35 06 07 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 02 5c 22 5c 32 30 37 22 20	4\305..!\306\"\307\310%.\"\207".
c500	5b 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31	[mapcar.make-byte-code.257."\301
c520	5c 33 30 30 02 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 73 65	\300.\"\207".vconcat.vector.[-se
c540	6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22	lect-by-indices].4."\n\n(fn.IT)"
c560	5d 20 39 20 28 23 24 20 2e 20 35 30 30 36 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	].9.(#$...50064)]).(byte-code."\
c580	33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34	300\301\302\303#\210\300\301\304
c5a0	5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 73 65 6c 65 63 74	\303#\207".[function-put.-select
c5c0	2d 63 6f 6c 75 6d 6e 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65	-columns.pure.t.side-effect-free
c5e0	5d 20 34 29 0a 23 40 32 35 37 20 53 65 6c 65 63 74 20 43 4f 4c 55 4d 4e 20 66 72 6f 6d 20 54 41	].4).#@257.Select.COLUMN.from.TA
c600	42 4c 45 2e 0a 0a 54 41 42 4c 45 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 77	BLE...TABLE.is.a.list.of.lists.w
c620	68 65 72 65 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 72 65 70 72 65 73 65 6e 74 73 20 6f 6e 65	here.each.element.represents.one
c640	20 72 6f 77 2e 0a 49 74 20 69 73 20 61 73 73 75 6d 65 64 20 65 61 63 68 20 72 6f 77 20 68 61 73	.row..It.is.assumed.each.row.has
c660	20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 2e 0a 0a 54 68 65 20 73 69 6e 67 6c 65 20 73 65	.the.same.length...The.single.se
c680	6c 65 63 74 65 64 20 63 6f 6c 75 6d 6e 20 69 73 20 72 65 74 75 72 6e 65 64 20 61 73 20 61 20 6c	lected.column.is.returned.as.a.l
c6a0	69 73 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 73	ist...See.also:.`-select-columns
c6c0	27 2c 20 60 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 27 0a 0a 28 66 6e 20 43 4f 4c	',.`-select-by-indices'..(fn.COL
c6e0	55 4d 4e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 6c 65 63 74 2d 63	UMN.TABLE)..(defalias.'-select-c
c700	6f 6c 75 6d 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30	olumn.#[514."\300\301\302\303\30
c720	34 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 09 21 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 04	4\305\306\307..!\310\"\311\312%.
c740	5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 6d	\"\"\207".[apply.append.mapcar.m
c760	61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c 33 30 30 43 02 5c 22 5c	ake-byte-code.257."\301\300C.\"\
c780	32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 73 65 6c 65 63 74 2d 62 79 2d	207".vconcat.vector.[-select-by-
c7a0	69 6e 64 69 63 65 73 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 31 31 20 28 23 24	indices].4."\n\n(fn.IT)"].11.(#$
c7c0	20 2e 20 35 30 36 36 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	...50667)]).(byte-code."\300\301
c7e0	5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32	\302\303#\210\300\301\304\303#\2
c800	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
c820	20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 32	.pure.t.side-effect-free].4).#@2
c840	35 33 20 54 68 72 65 61 64 20 74 68 65 20 65 78 70 72 20 74 68 72 6f 75 67 68 20 74 68 65 20 66	53.Thread.the.expr.through.the.f
c860	6f 72 6d 73 2e 20 49 6e 73 65 72 74 20 58 20 61 73 20 74 68 65 20 73 65 63 6f 6e 64 20 69 74 65	orms..Insert.X.as.the.second.ite
c880	6d 0a 69 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 6d 61 6b 69 6e 67 20 61 20 6c 69	m.in.the.first.form,.making.a.li
c8a0	73 74 20 6f 66 20 69 74 20 69 66 20 69 74 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 0a 61 6c 72	st.of.it.if.it.is.not.a.list.alr
c8c0	65 61 64 79 2e 20 49 66 20 74 68 65 72 65 20 61 72 65 20 6d 6f 72 65 20 66 6f 72 6d 73 2c 20 69	eady..If.there.are.more.forms,.i
c8e0	6e 73 65 72 74 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 61 73 20 74 68 65 0a 73 65 63 6f	nsert.the.first.form.as.the.seco
c900	6e 64 20 69 74 65 6d 20 69 6e 20 73 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63 2e 0a 0a 28 66	nd.item.in.second.form,.etc...(f
c920	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 29 1f 0a	n.X.&optional.FORM.&rest.MORE)..
c940	28 64 65 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	(defalias.'->.'(macro...#[641.".
c960	5c 32 30 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	\204...\207\211\204...<\203...@.
c980	03 41 42 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	.ABB\207..D\207\300\211..E.BB\20
c9a0	37 22 20 5b 2d 3e 5d 20 37 20 28 23 24 20 2e 20 35 31 32 36 37 29 5d 29 29 0a 28 70 75 74 20 27	7".[->].7.(#$...51267)])).(put.'
c9c0	2d 3e 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 26 72 65 73	->.'edebug-form-spec.'(form.&res
c9e0	74 20 5b 26 6f 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	t.[&or.symbolp.(sexp.&rest.form)
ca00	5d 29 29 0a 23 40 32 34 39 20 54 68 72 65 61 64 20 74 68 65 20 65 78 70 72 20 74 68 72 6f 75 67	])).#@249.Thread.the.expr.throug
ca20	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 65 20 6c 61 73	h.the.forms..Insert.X.as.the.las
ca40	74 20 69 74 65 6d 0a 69 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 6d 61 6b 69 6e 67	t.item.in.the.first.form,.making
ca60	20 61 20 6c 69 73 74 20 6f 66 20 69 74 20 69 66 20 69 74 20 69 73 20 6e 6f 74 20 61 20 6c 69 73	.a.list.of.it.if.it.is.not.a.lis
ca80	74 0a 61 6c 72 65 61 64 79 2e 20 49 66 20 74 68 65 72 65 20 61 72 65 20 6d 6f 72 65 20 66 6f 72	t.already..If.there.are.more.for
caa0	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 20 61 73 20 74 68 65	ms,.insert.the.first.form.as.the
cac0	0a 6c 61 73 74 20 69 74 65 6d 20 69 6e 20 73 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63 2e 0a	.last.item.in.second.form,.etc..
cae0	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
cb00	29 1f 0a 28 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	)..(defalias.'->>.'(macro...#[64
cb20	31 20 22 01 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	1.".\204...\207\211\204...<\203.
cb40	00 5c 33 30 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	.\300..C\"\207..D\207\301\211..E
cb60	02 42 42 5c 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 35 31	.BB\207".[append.->>].7.(#$...51
cb80	37 32 32 29 5d 29 29 0a 28 70 75 74 20 27 2d 3e 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73	722)])).(put.'->>.'edebug-form-s
cba0	70 65 63 20 27 2d 3e 29 0a 23 40 32 36 39 20 53 74 61 72 74 69 6e 67 20 77 69 74 68 20 74 68 65	pec.'->).#@269.Starting.with.the
cbc0	20 76 61 6c 75 65 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	.value.of.X,.thread.each.express
cbe0	69 6f 6e 20 74 68 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	ion.through.FORMS...Insert.X.at.
cc00	74 68 65 20 70 6f 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	the.position.signified.by.the.sy
cc20	6d 62 6f 6c 20 60 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	mbol.`it'.in.the.first.form...If
cc40	20 74 68 65 72 65 20 61 72 65 20 6d 6f 72 65 20 66 6f 72 6d 73 2c 20 69 6e 73 65 72 74 20 74 68	.there.are.more.forms,.insert.th
cc60	65 20 66 69 72 73 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	e.first.form.at.the.position.sig
cc80	6e 69 66 69 65 64 20 62 79 20 60 69 74 27 20 69 6e 20 69 6e 20 73 65 63 6f 6e 64 20 66 6f 72 6d	nified.by.`it'.in.in.second.form
cca0	2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58 20 26 72 65 73 74 20 46 4f 52 4d 53 29 1f 0a 28 64 65 66	,.etc...(fn.X.&rest.FORMS)..(def
ccc0	61 6c 69 61 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	alias.'-->.'(macro...#[385."\300
cce0	02 5c 33 30 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	.\301.BBB\207".[-as->.it].6.(#$.
cd00	2e 20 35 32 31 34 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f	..52143)])).(put.'-->.'edebug-fo
cd20	72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 62 6f 64 79 29 29 0a 23 40 32 31 32 20 53 74 61 72	rm-spec.'(form.body)).#@212.Star
cd40	74 69 6e 67 20 77 69 74 68 20 56 41 4c 55 45 2c 20 74 68 72 65 61 64 20 56 41 52 49 41 42 4c 45	ting.with.VALUE,.thread.VARIABLE
cd60	20 74 68 72 6f 75 67 68 20 46 4f 52 4d 53 2e 0a 0a 49 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f	.through.FORMS...In.the.first.fo
cd80	72 6d 2c 20 62 69 6e 64 20 56 41 52 49 41 42 4c 45 20 74 6f 20 56 41 4c 55 45 2e 20 20 49 6e 20	rm,.bind.VARIABLE.to.VALUE...In.
cda0	74 68 65 20 73 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 62 69 6e 64 0a 56 41 52 49 41 42 4c 45 20 74	the.second.form,.bind.VARIABLE.t
cdc0	6f 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20	o.the.result.of.the.first.form,.
cde0	61 6e 64 20 73 6f 20 66 6f 72 74 68 2e 0a 0a 28 66 6e 20 56 41 4c 55 45 20 56 41 52 49 41 42 4c	and.so.forth...(fn.VALUE.VARIABL
ce00	45 20 26 72 65 73 74 20 46 4f 52 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 73 2d 3e	E.&rest.FORMS)..(defalias.'-as->
ce20	20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 32 31 31 5c 32 30 34 06 00 02 5c 32 30	.'(macro...#[642."\211\204...\20
ce40	37 5c 33 30 30 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	7\300..DC\301.@9\203...@.D\202..
ce60	03 40 05 05 41 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	.@..ABBBE\207".[let.-as->].9.(#$
ce80	20 2e 20 35 32 35 34 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 61 73 2d 3e 20 27 65 64 65 62 75 67	...52540)])).(put.'-as->.'edebug
cea0	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 79 29 29	-form-spec.'(form.symbolp.body))
cec0	0a 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 6c 2c 20 74 68 72	.#@163.When.expr.is.non-nil,.thr
cee0	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 6f 72 6d 20 28 76	ead.it.through.the.first.form.(v
cf00	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 73 75 6c 74 20 69	ia.`->'),.and.when.that.result.i
cf20	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 74 20 66 6f 72 6d	s.non-nil,.through.the.next.form
cf40	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 72 65	,.etc...(fn.X.&optional.FORM.&re
cf60	73 74 20 4d 4f 52 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6f 6d 65 2d 3e 20 27 28 6d	st.MORE)..(defalias.'-some->.'(m
cf80	61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 01 5c 32 30 34 06 00 02 5c 32 30 37 5c 33 30 30 5c 33	acro...#[641.".\204...\207\300\3
cfa0	30 31 21 5c 33 30 32 5c 33 30 33 02 06 06 44 5c 33 30 34 04 06 07 45 45 03 42 42 5c 32 30 37 22	01!\302\303...D\304...EE.BB\207"
cfc0	20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 2d 73 6f 6d 65 2d 3e 20 2d	.[make-symbol."result".-some->.-
cfe0	77 68 65 6e 2d 6c 65 74 20 2d 3e 5d 20 31 30 20 28 23 24 20 2e 20 35 32 39 33 35 29 5d 29 29 0a	when-let.->].10.(#$...52935)])).
d000	28 70 75 74 20 27 2d 73 6f 6d 65 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20	(put.'-some->.'edebug-form-spec.
d020	27 2d 3e 29 0a 23 40 31 36 34 20 57 68 65 6e 20 65 78 70 72 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c	'->).#@164.When.expr.is.non-nil,
d040	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 6f 72	.thread.it.through.the.first.for
d060	6d 20 28 76 69 61 20 60 2d 3e 3e 27 29 2c 0a 61 6e 64 20 77 68 65 6e 20 74 68 61 74 20 72 65 73	m.(via.`->>'),.and.when.that.res
d080	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 74	ult.is.non-nil,.through.the.next
d0a0	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 52	.form,.etc...(fn.X.&optional.FOR
d0c0	4d 20 26 72 65 73 74 20 4d 4f 52 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6f 6d 65 2d	M.&rest.MORE)..(defalias.'-some-
d0e0	3e 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 01 5c 32 30 34 06 00 02 5c 32 30 37	>>.'(macro...#[641.".\204...\207
d100	5c 33 30 30 5c 33 30 31 21 5c 33 30 32 5c 33 30 33 02 06 06 44 5c 33 30 34 04 06 07 45 45 03 42	\300\301!\302\303...D\304...EE.B
d120	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 2d 73 6f	B\207".[make-symbol."result".-so
d140	6d 65 2d 3e 3e 20 2d 77 68 65 6e 2d 6c 65 74 20 2d 3e 3e 5d 20 31 30 20 28 23 24 20 2e 20 35 33	me->>.-when-let.->>].10.(#$...53
d160	32 39 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 73 6f 6d 65 2d 3e 3e 20 27 65 64 65 62 75 67 2d 66	291)])).(put.'-some->>.'edebug-f
d180	6f 72 6d 2d 73 70 65 63 20 27 2d 3e 29 0a 23 40 31 36 34 20 57 68 65 6e 20 65 78 70 72 20 69 6e	orm-spec.'->).#@164.When.expr.in
d1a0	20 6e 6f 6e 2d 6e 69 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	.non-nil,.thread.it.through.the.
d1c0	66 69 72 73 74 20 66 6f 72 6d 20 28 76 69 61 20 60 2d 2d 3e 27 29 2c 0a 61 6e 64 20 77 68 65 6e	first.form.(via.`-->'),.and.when
d1e0	20 74 68 61 74 20 72 65 73 75 6c 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 6f 75 67 68	.that.result.is.non-nil,.through
d200	20 74 68 65 20 6e 65 78 74 20 66 6f 72 6d 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58 20 26 6f 70 74	.the.next.form,.etc...(fn.X.&opt
d220	69 6f 6e 61 6c 20 46 4f 52 4d 20 26 72 65 73 74 20 4d 4f 52 45 29 1f 0a 28 64 65 66 61 6c 69 61	ional.FORM.&rest.MORE)..(defalia
d240	73 20 27 2d 73 6f 6d 65 2d 2d 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 01 5c 32	s.'-some-->.'(macro...#[641.".\2
d260	30 34 06 00 02 5c 32 30 37 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 5c 33 30 33 02 06 06 44 5c 33	04...\207\300\301!\302\303...D\3
d280	30 34 04 06 07 45 45 03 42 42 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65	04...EE.BB\207".[make-symbol."re
d2a0	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 2d 2d 3e 5d 20 31 30	sult".-some-->.-when-let.-->].10
d2c0	20 28 23 24 20 2e 20 35 33 36 35 32 29 5d 29 29 0a 28 70 75 74 20 27 2d 73 6f 6d 65 2d 2d 3e 20	.(#$...53652)])).(put.'-some-->.
d2e0	27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 2d 3e 29 0a 23 40 31 37 36 20 47 72 61	'edebug-form-spec.'->).#@176.Gra
d300	64 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 20 75 73 69 6e 67 20 43 4f 4d 50 41 52	de.elements.of.LIST.using.COMPAR
d320	41 54 4f 52 20 72 65 6c 61 74 69 6f 6e 2c 20 79 69 65 6c 64 69 6e 67 20 61 0a 70 65 72 6d 75 74	ATOR.relation,.yielding.a.permut
d340	61 74 69 6f 6e 20 76 65 63 74 6f 72 20 73 75 63 68 20 74 68 61 74 20 61 70 70 6c 79 69 6e 67 20	ation.vector.such.that.applying.
d360	74 68 69 73 20 70 65 72 6d 75 74 61 74 69 6f 6e 20 74 6f 20 4c 49 53 54 0a 73 6f 72 74 73 20 69	this.permutation.to.LIST.sorts.i
d380	74 20 69 6e 20 61 73 63 65 6e 64 69 6e 67 20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 43 4f 4d 50 41	t.in.ascending.order...(fn.COMPA
d3a0	52 41 54 4f 52 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 67 72 61 64 65 2d 75	RATOR.LIST)..(defalias.'-grade-u
d3c0	70 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 05 44 5c 33 30 34 42	p.#[514."\300\301\302\303.D\304B
d3e0	42 45 5c 33 30 35 5c 33 30 36 5c 33 30 37 03 5c 33 31 30 06 06 5c 33 31 31 01 5c 32 30 33 2b 00	BE\305\306\307.\310..\311.\203+.
d400	01 40 5c 32 31 31 02 42 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c	.@\211.B.B\262.\210\211T\262..A\
d420	32 36 32 02 5c 32 30 32 12 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 22 5c 22	262.\202..\266.\211\237\262.\"\"
d440	5c 32 30 37 22 20 5b 6c 61 6d 62 64 61 20 28 69 74 20 6f 74 68 65 72 29 20 66 75 6e 63 61 6c 6c	\207".[lambda.(it.other).funcall
d460	20 71 75 6f 74 65 20 28 28 63 61 72 20 69 74 29 20 28 63 61 72 20 6f 74 68 65 72 29 29 20 2d 6d	.quote.((car.it).(car.other)).-m
d480	61 70 20 63 64 72 20 2d 73 6f 72 74 20 6e 69 6c 20 30 5d 20 31 33 20 28 23 24 20 2e 20 35 34 30	ap.cdr.-sort.nil.0].13.(#$...540
d4a0	31 33 29 5d 29 0a 23 40 31 37 37 20 47 72 61 64 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49	13)]).#@177.Grade.elements.of.LI
d4c0	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 69 6f 6e 2c 20 79 69	ST.using.COMPARATOR.relation,.yi
d4e0	65 6c 64 69 6e 67 20 61 0a 70 65 72 6d 75 74 61 74 69 6f 6e 20 76 65 63 74 6f 72 20 73 75 63 68	elding.a.permutation.vector.such
d500	20 74 68 61 74 20 61 70 70 6c 79 69 6e 67 20 74 68 69 73 20 70 65 72 6d 75 74 61 74 69 6f 6e 20	.that.applying.this.permutation.
d520	74 6f 20 4c 49 53 54 0a 73 6f 72 74 73 20 69 74 20 69 6e 20 64 65 73 63 65 6e 64 69 6e 67 20 6f	to.LIST.sorts.it.in.descending.o
d540	72 64 65 72 2e 0a 0a 28 66 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20 4c 49 53 54 29 1f 0a 28 64 65	rder...(fn.COMPARATOR.LIST)..(de
d560	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 22 5c 33 30 30 5c	falias.'-grade-down.#[514."\300\
d580	33 30 31 5c 33 30 32 5c 33 30 33 05 44 5c 33 30 34 42 42 45 5c 33 30 35 5c 33 30 36 5c 33 30 37	301\302\303.D\304BBE\305\306\307
d5a0	03 5c 33 31 30 06 06 5c 33 31 31 01 5c 32 30 33 2b 00 01 40 5c 32 31 31 02 42 04 42 5c 32 36 32	.\310..\311.\203+..@\211.B.B\262
d5c0	04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 12 00 5c 32 36 36	.\210\211T\262..A\262.\202..\266
d5e0	02 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 22 5c 22 5c 32 30 37 22 20 5b 6c 61 6d 62 64 61 20	.\211\237\262.\"\"\207".[lambda.
d600	28 69 74 20 6f 74 68 65 72 29 20 66 75 6e 63 61 6c 6c 20 71 75 6f 74 65 20 28 28 63 61 72 20 6f	(it.other).funcall.quote.((car.o
d620	74 68 65 72 29 20 28 63 61 72 20 69 74 29 29 20 2d 6d 61 70 20 63 64 72 20 2d 73 6f 72 74 20 6e	ther).(car.it)).-map.cdr.-sort.n
d640	69 6c 20 30 5d 20 31 33 20 28 23 24 20 2e 20 35 34 34 34 34 29 5d 29 0a 23 40 34 32 20 4d 6f 6e	il.0].13.(#$...54444)]).#@42.Mon
d660	6f 74 6f 6e 69 63 20 63 6f 75 6e 74 65 72 20 66 6f 72 20 67 65 6e 65 72 61 74 65 64 20 73 79 6d	otonic.counter.for.generated.sym
d680	62 6f 6c 73 2e 1f 0a 28 64 65 66 76 61 72 20 64 61 73 68 2d 2d 73 6f 75 72 63 65 2d 63 6f 75 6e	bols...(defvar.dash--source-coun
d6a0	74 65 72 20 30 20 28 23 24 20 2e 20 35 34 38 37 37 29 29 0a 23 40 38 37 20 47 65 6e 65 72 61 74	ter.0.(#$...54877)).#@87.Generat
d6c0	65 20 61 20 6e 65 77 20 64 61 73 68 2d 73 6f 75 72 63 65 20 73 79 6d 62 6f 6c 2e 0a 0a 41 6c 6c	e.a.new.dash-source.symbol...All
d6e0	20 72 65 74 75 72 6e 65 64 20 73 79 6d 62 6f 6c 73 20 61 72 65 20 67 75 61 72 61 6e 74 65 65 64	.returned.symbols.are.guaranteed
d700	20 74 6f 20 62 65 20 75 6e 69 71 75 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d	.to.be.unique...(defalias.'dash-
d720	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 23 5b 30 20 22 5c	-match-make-source-symbol.#[0."\
d740	33 30 31 5c 33 30 32 5c 33 30 33 08 5c 22 21 08 54 10 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 73	301\302\303.\"!.T.\207".[dash--s
d760	6f 75 72 63 65 2d 63 6f 75 6e 74 65 72 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 66 6f 72 6d 61 74	ource-counter.make-symbol.format
d780	20 22 2d 2d 64 61 73 68 2d 73 6f 75 72 63 65 2d 25 64 2d 2d 22 5d 20 34 20 28 23 24 20 2e 20 35	."--dash-source-%d--"].4.(#$...5
d7a0	34 39 36 39 29 5d 29 0a 23 40 37 30 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 53	4969)]).#@70.Return.non-nil.if.S
d7c0	59 4d 42 4f 4c 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 61 6e 64 20 73 74 61 72 74 73 20 77 69 74	YMBOL.is.a.symbol.and.starts.wit
d7e0	68 20 5f 2e 0a 0a 28 66 6e 20 53 59 4d 42 4f 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61	h._...(fn.SYMBOL)..(defalias.'da
d800	73 68 2d 2d 6d 61 74 63 68 2d 69 67 6e 6f 72 65 2d 70 6c 61 63 65 2d 70 20 23 5b 32 35 37 20 22	sh--match-ignore-place-p.#[257."
d820	5c 32 31 31 39 5c 32 30 35 5c 66 00 5c 33 30 30 01 21 5c 33 30 31 48 5c 33 30 32 3d 5c 32 30 37	\2119\205\f.\300.!\301H\302=\207
d840	22 20 5b 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 30 20 39 35 5d 20 33 20 28 23 24 20 2e 20 35 35 32	".[symbol-name.0.95].3.(#$...552
d860	31 33 29 5d 29 0a 23 40 37 35 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 20 67 65 6e 65 72	13)]).#@75.Helper.function.gener
d880	61 74 69 6e 67 20 69 64 69 6f 6d 61 74 69 63 20 73 68 69 66 74 69 6e 67 20 63 6f 64 65 2e 0a 0a	ating.idiomatic.shifting.code...
d8a0	28 66 6e 20 53 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	(fn.SKIP-CDR.SOURCE)..(defalias.
d8c0	27 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 23 5b 35 31 34	'dash--match-cons-skip-cdr.#[514
d8e0	20 22 01 5c 33 30 30 55 5c 32 30 33 5c 6e 00 5c 33 30 31 01 44 5c 32 30 37 5c 33 30 32 5c 33 30	.".\300U\203\n.\301.D\207\302\30
d900	33 03 03 5c 22 5c 33 30 34 03 5c 33 30 35 06 06 54 06 06 5c 22 45 45 5c 32 30 37 22 20 5b 30 20	3..\"\304.\305..T..\"EE\207".[0.
d920	70 6f 70 20 70 72 6f 67 31 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63	pop.prog1.dash--match-cons-get-c
d940	61 72 20 73 65 74 71 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72	ar.setq.dash--match-cons-get-cdr
d960	5d 20 39 20 28 23 24 20 2e 20 35 35 34 30 33 29 5d 29 0a 23 40 38 31 20 48 65 6c 70 65 72 20 66	].9.(#$...55403)]).#@81.Helper.f
d980	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 69 63 20 63 6f 64	unction.generating.idiomatic.cod
d9a0	65 20 74 6f 20 67 65 74 20 6e 74 68 20 63 61 72 2e 0a 0a 28 66 6e 20 53 4b 49 50 2d 43 44 52 20	e.to.get.nth.car...(fn.SKIP-CDR.
d9c0	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-
d9e0	63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 23 5b 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 5c 6e	cons-get-car.#[514.".\300U\203\n
da00	00 5c 33 30 31 01 44 5c 32 30 37 01 5c 33 30 32 55 5c 32 30 33 14 00 5c 33 30 33 01 44 5c 32 30	.\301.D\207.\302U\203..\303.D\20
da20	37 5c 33 30 34 02 02 45 5c 32 30 37 22 20 5b 30 20 63 61 72 20 31 20 63 61 64 72 20 6e 74 68 5d	7\304..E\207".[0.car.1.cadr.nth]
da40	20 35 20 28 23 24 20 2e 20 35 35 36 37 32 29 5d 29 0a 23 40 38 31 20 48 65 6c 70 65 72 20 66 75	.5.(#$...55672)]).#@81.Helper.fu
da60	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 69 63 20 63 6f 64 65	nction.generating.idiomatic.code
da80	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 50 2d 43 44 52 20 53	.to.get.nth.cdr...(fn.SKIP-CDR.S
daa0	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 63	OURCE)..(defalias.'dash--match-c
dac0	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 5c 32 30 33 07 00 5c	ons-get-cdr.#[514.".\300U\203..\
dae0	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 5c 33 30 33 02 02 45	207.\301U\203..\302.D\207\303..E
db00	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 28 23 24 20 2e 20 35	\207".[0.1.cdr.nthcdr].5.(#$...5
db20	35 38 39 35 29 5d 29 0a 23 40 38 36 20 53 65 74 75 70 20 61 20 63 6f 6e 73 20 6d 61 74 63 68 69	5895)]).#@86.Setup.a.cons.matchi
db40	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 65 20 72 65 61 6c	ng.environment.and.call.the.real
db60	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 53 4f 55 52 43 45	.matcher...(fn.MATCH-FORM.SOURCE
db80	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 20 23	)..(defalias.'dash--match-cons.#
dba0	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 1b 00 5c 33 30 32 01	[514."\300.\301.\211:\203..\302.
dbc0	40 21 5c 32 30 33 1b 00 01 54 5c 32 36 32 02 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 04 00 5c	@!\203...T\262.\211A\262.\202..\
dbe0	32 31 31 3a 5c 32 30 33 31 00 5c 32 31 31 41 5c 32 30 34 31 00 5c 33 30 33 01 40 5c 33 30 34 04	211:\2031.\211A\2041.\303.@\304.
dc00	06 07 5c 22 5c 22 5c 32 30 32 4b 00 01 5c 33 30 31 56 5c 32 30 33 42 00 5c 33 30 33 01 5c 33 30	..\"\"\202K..\301V\203B.\303.\30
dc20	35 04 06 07 5c 22 5c 22 5c 32 30 32 4b 00 02 04 44 5c 33 30 36 06 06 05 5c 22 42 5c 32 30 37 22	5...\"\"\202K...D\306...\"B\207"
dc40	20 5b 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 6d 62 6f 6c	.[dash--match-make-source-symbol
dc60	20 30 20 64 61 73 68 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	.0.dash--match-ignore-place-p.da
dc80	73 68 2d 2d 6d 61 74 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	sh--match.dash--match-cons-get-c
dca0	61 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72 20 64 61 73 68	ar.dash--match-cons-get-cdr.dash
dcc0	2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 31 5d 20 31 30 20 28 23 24 20 2e 20 35 36 31 30 39 29 5d	--match-cons-1].10.(#$...56109)]
dce0	29 0a 23 40 33 38 36 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	).#@386.Match.MATCH-FORM.against
dd00	20 53 4f 55 52 43 45 2e 0a 0a 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 61 20 70 72 6f 70 65 72	.SOURCE...MATCH-FORM.is.a.proper
dd20	20 6f 72 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 2e 20 20 45 61 63 68 20 65 6c 65 6d 65 6e 74	.or.improper.list...Each.element
dd40	20 6f 66 0a 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 65 69 74 68 65 72 20 61 20 73 79 6d 62 6f	.of.MATCH-FORM.is.either.a.symbo
dd60	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 65	l,.which.gets.bound.to.the.respe
dd80	63 74 69 76 65 0a 76 61 6c 75 65 20 69 6e 20 73 6f 75 72 63 65 20 6f 72 20 61 6e 6f 74 68 65 72	ctive.value.in.source.or.another
dda0	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 75	.match.form.which.gets.destructu
ddc0	72 65 64 0a 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 0a 49 66 20 74 68 65 20 63 64 72 20 6f 66 20	red.recursively...If.the.cdr.of.
dde0	6c 61 73 74 20 63 6f 6e 73 20 63 65 6c 6c 20 69 6e 20 74 68 65 20 6c 69 73 74 20 69 73 20 60 6e	last.cons.cell.in.the.list.is.`n
de00	69 6c 27 2c 20 6d 61 74 63 68 69 6e 67 20 73 74 6f 70 73 0a 74 68 65 72 65 2e 0a 0a 53 4f 55 52	il',.matching.stops.there...SOUR
de20	43 45 20 69 73 20 61 20 70 72 6f 70 65 72 20 6f 72 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 2e	CE.is.a.proper.or.improper.list.
de40	0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 20 26 6f 70 74 69 6f 6e 61	..(fn.MATCH-FORM.SOURCE.&optiona
de60	6c 20 50 52 4f 50 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68	l.PROPS)..(defalias.'dash--match
de80	2d 63 6f 6e 73 2d 31 20 23 5b 37 37 30 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 36 08 00	-cons-1.#[770."\300.\301\"\206..
dea0	5c 33 30 32 03 3a 5c 32 30 33 61 00 03 41 5c 32 30 33 55 00 03 40 39 5c 32 30 33 2a 00 03 40 5c	\302.:\203a..A\203U..@9\203*..@\
dec0	33 30 33 3e 5c 32 30 33 2a 00 5c 33 30 34 04 5c 33 30 35 03 06 06 5c 22 5c 22 5c 32 30 32 73 00	303>\203*.\304.\305...\"\"\202s.
dee0	5c 33 30 36 04 40 21 5c 32 30 33 40 00 5c 33 30 37 04 41 04 5c 33 31 30 05 5c 33 30 31 06 06 54	\306.@!\203@.\307.A.\310.\301..T
df00	23 23 5c 32 30 32 73 00 5c 33 31 31 5c 33 31 32 05 40 5c 33 31 33 04 06 07 5c 22 5c 22 5c 33 30	##\202s.\311\312.@\313...\"\"\30
df20	37 06 06 41 06 06 5c 22 5c 22 5c 32 30 32 73 00 5c 33 31 32 04 40 5c 33 31 34 03 06 06 5c 22 5c	7..A..\"\"\202s.\312.@\314...\"\
df40	22 5c 32 30 32 73 00 03 5c 33 31 35 3d 5c 32 30 33 6b 00 5c 33 31 35 5c 32 30 32 73 00 5c 33 31	"\202s..\315=\203k.\315\202s.\31
df60	32 04 5c 33 30 35 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	2.\305...\"\"\207".[plist-get.:s
df80	6b 69 70 2d 63 64 72 20 30 20 28 26 6b 65 79 73 20 26 70 6c 69 73 74 20 26 61 6c 69 73 74 20 26	kip-cdr.0.(&keys.&plist.&alist.&
dfa0	68 61 73 68 29 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 20 64 61 73 68 2d 2d 6d 61 74 63 68	hash).dash--match-kv.dash--match
dfc0	2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 69 67 6e 6f 72 65	-cons-get-cdr.dash--match-ignore
dfe0	2d 70 6c 61 63 65 2d 70 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 31 20 70 6c 69 73	-place-p.dash--match-cons-1.plis
e000	74 2d 70 75 74 20 2d 63 6f 6e 63 61 74 20 64 61 73 68 2d 2d 6d 61 74 63 68 20 64 61 73 68 2d 2d	t-put.-concat.dash--match.dash--
e020	6d 61 74 63 68 2d 63 6f 6e 73 2d 73 6b 69 70 2d 63 64 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d	match-cons-skip-cdr.dash--match-
e040	63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 35 36 35 35 32	cons-get-car.nil].11.(#$...56552
e060	29 5d 29 0a 23 40 35 39 20 52 65 74 75 72 6e 20 74 68 65 20 74 61 69 6c 20 6f 66 20 53 45 51 20	)]).#@59.Return.the.tail.of.SEQ.
e080	73 74 61 72 74 69 6e 67 20 61 74 20 53 54 41 52 54 2e 0a 0a 28 66 6e 20 53 45 51 20 53 54 41 52	starting.at.START...(fn.SEQ.STAR
e0a0	54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 76 65 63 74 6f 72 2d 74 61 69 6c	T)..(defalias.'dash--vector-tail
e0c0	20 23 5b 35 31 34 20 22 5c 33 30 30 02 21 5c 32 30 33 2b 00 01 47 01 5a 5c 33 30 31 01 5c 33 30	.#[514."\300.!\203+..G.Z\301.\30
e0e0	32 5c 22 01 5c 33 30 32 5c 32 31 31 02 57 5c 32 30 33 28 00 02 01 06 07 03 06 08 5c 5c 48 49 5c	2\".\302\211.W\203(........\\HI\
e100	32 31 30 5c 32 31 31 54 5c 32 36 32 01 5c 32 30 32 10 00 5c 32 36 36 02 5c 32 30 37 01 3b 5c 32	210\211T\262.\202..\266.\207.;\2
e120	30 35 34 00 01 01 5c 33 30 33 4f 5c 32 30 37 22 20 5b 76 65 63 74 6f 72 70 20 6d 61 6b 65 2d 76	054...\303O\207".[vectorp.make-v
e140	65 63 74 6f 72 20 30 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 35 37 34 34 39 29 5d 29 0a 23	ector.0.nil].11.(#$...57449)]).#
e160	40 38 38 20 53 65 74 75 70 20 61 20 76 65 63 74 6f 72 20 6d 61 74 63 68 69 6e 67 20 65 6e 76 69	@88.Setup.a.vector.matching.envi
e180	72 6f 6e 6d 65 6e 74 20 61 6e 64 20 63 61 6c 6c 20 74 68 65 20 72 65 61 6c 20 6d 61 74 63 68 65	ronment.and.call.the.real.matche
e1a0	72 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66	r...(fn.MATCH-FORM.SOURCE)..(def
e1c0	61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 76 65 63 74 6f 72 20 23 5b 35 31 34 20	alias.'dash--match-vector.#[514.
e1e0	22 5c 33 30 30 20 02 47 5c 33 30 31 55 5c 32 30 33 16 00 5c 33 30 32 03 5c 33 30 33 48 5c 33 30	"\300..G\301U\203..\302.\303H\30
e200	34 04 5c 33 30 35 42 42 5c 22 5c 32 30 32 51 00 01 39 5c 32 30 33 5c 22 00 5c 33 30 36 03 03 5c	4.\305BB\"\202Q..9\203\".\306..\
e220	22 5c 32 30 32 51 00 5c 33 30 37 5c 33 31 30 04 5c 22 5c 33 31 31 5c 33 31 32 02 5c 22 47 5c 32	"\202Q.\307\310.\"\311\312.\"G\2
e240	31 31 05 47 53 55 5c 32 30 35 44 00 5c 33 31 33 5c 33 31 32 03 5c 22 5c 33 30 32 06 06 02 48 5c	11.GSU\205D.\313\312.\"\302...H\
e260	33 30 34 06 07 04 45 5c 22 5c 32 36 32 01 5c 32 36 36 5c 32 30 32 5c 32 30 36 51 00 5c 32 31 31	304...E\"\262.\266\202\206Q.\211
e280	02 44 5c 33 30 36 04 03 5c 22 42 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6d 61	.D\306..\"B\207".[dash--match-ma
e2a0	6b 65 2d 73 6f 75 72 63 65 2d 73 79 6d 62 6f 6c 20 31 20 64 61 73 68 2d 2d 6d 61 74 63 68 20 30	ke-source-symbol.1.dash--match.0
e2c0	20 61 72 65 66 20 28 30 29 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 76 65 63 74 6f 72 2d 31 20 6d	.aref.(0).dash--match-vector-1.m
e2e0	61 70 63 61 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 69 67 6e 6f 72 65 2d 70 6c 61 63 65 2d 70	apcar.dash--match-ignore-place-p
e300	20 2d 72 65 6d 6f 76 65 20 6e 75 6c 6c 20 2d 66 69 6e 64 2d 69 6e 64 65 78 5d 20 31 31 20 28 23	.-remove.null.-find-index].11.(#
e320	24 20 2e 20 35 37 37 30 30 29 5d 29 0a 23 40 36 39 31 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46	$...57700)]).#@691.Match.MATCH-F
e340	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 48 2d 46 4f 52 4d 20	ORM.against.SOURCE...MATCH-FORM.
e360	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 74 20 6f 66 20 4d 41	is.a.vector...Each.element.of.MA
e380	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 6f 6c 2c 20 77 68 69	TCH-FORM.is.either.a.symbol,.whi
e3a0	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 65 63 74 69 76 65 20	ch.gets.bound.to.the.respective.
e3c0	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 72 20 6d 61 74 63 68	value.in.source.or.another.match
e3e0	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 75 72 65 64 20 72 65	.form.which.gets.destructured.re
e400	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 6d 2d 6c 61 73 74 20	cursively...If.second-from-last.
e420	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 65 20 73 79 6d 62 6f	place.in.MATCH-FORM.is.the.symbo
e440	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 20 6f 66 20 74 68 65	l.&rest,.the.next.element.of.the
e460	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 61 69 6e 73 74 20 74	.MATCH-FORM.is.matched.against.t
e480	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 6e 67 20 61 74 20 69	he.tail.of.SOURCE,.starting.at.i
e4a0	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 20 20 54 68 69 73 20	ndex.of.the.&rest.symbol...This.
e4c0	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 61 73 20 74 68 65 20	is.conceptually.the.same.as.the.
e4e0	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 6d 70 72 6f 70 65 72	(head...tail).match.for.improper
e500	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 68 65 20 72 6f 6c 65	.lists,.where.dot.plays.the.role
e520	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 65 63 74 6f 72 2e 0a	.of.&rest...SOURCE.is.a.vector..
e540	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 20 69 73 20 73 68 6f	.If.the.MATCH-FORM.vector.is.sho
e560	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 6f 6e 6c 79 0a 74 68	rter.than.SOURCE.vector,.only.th
e580	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 63 65 73 20 61 72 65	e.(length.MATCH-FORM).places.are
e5a0	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 4f 55 52 43 45 0a 69	.bound,.the.rest.of.the.SOURCE.i
e5c0	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 4f 52 4d 20 53 4f 55	s.discarded...(fn.MATCH-FORM.SOU
e5e0	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 76 65 63	RCE)..(defalias.'dash--match-vec
e600	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 57 5c 32 30 33 61 00	tor-1.#[514."\300.G\301..W\203a.
e620	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 30 33 2b 00 5c 33 30	..H\2119\203+.\211\302=\203+.\30
e640	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 30 32 55 00 5c 32 31	3...TH\304....E\".\262.\202U.\21
e660	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 32 30 34 46 00 5c 32	19\203F.\305.!\300H\306=\204F.\2
e680	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 5c 32 30 35 55 00 5c	11\307....EDC\202U.\2119?\205U.\
e6a0	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 32 36 32 04 5c 32 31	303.\307....E\".B\262..T\262.\21
e6c0	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 37 22 20 5b 30 20 6e	0\202..\310\311.\237\"\207".[0.n
e6e0	69 6c 20 26 72 65 73 74 20 64 61 73 68 2d 2d 6d 61 74 63 68 20 64 61 73 68 2d 2d 76 65 63 74 6f	il.&rest.dash--match.dash--vecto
e700	72 2d 74 61 69 6c 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	r-tail.symbol-name.95.aref.-flat
e720	74 65 6e 2d 6e 20 31 5d 20 31 31 20 28 23 24 20 2e 20 35 38 31 36 33 29 5d 29 0a 23 40 31 35 32	ten-n.1].11.(#$...58163)]).#@152
e740	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 65 6e 74	.Setup.a.kv.matching.environment
e760	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 6b 76 20	.and.call.the.real.matcher...kv.
e780	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 75 63 68	can.be.any.key-value.store,.such
e7a0	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 65 2e 0a	.as.plist,.alist.or.hash-table..
e7c0	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 61 6c 69	.(fn.MATCH-FORM.SOURCE)..(defali
e7e0	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 30 20 02	as.'dash--match-kv.#[514."\300..
e800	47 5c 33 30 31 55 5c 32 30 33 13 00 5c 33 30 32 03 41 03 05 40 23 5c 32 30 32 2e 00 01 39 5c 32	G\301U\203..\302.A..@#\202...9\2
e820	30 33 5c 22 00 5c 33 30 32 03 41 03 05 40 23 5c 32 30 32 2e 00 5c 32 31 31 02 44 5c 33 30 32 04	03\".\302.A..@#\202..\211.D\302.
e840	41 03 06 06 40 23 42 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6d 61 6b 65 2d 73	A...@#B\207".[dash--match-make-s
e860	6f 75 72 63 65 2d 73 79 6d 62 6f 6c 20 33 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 2d 31 5d	ource-symbol.3.dash--match-kv-1]
e880	20 38 20 28 23 24 20 2e 20 35 39 32 30 31 29 5d 29 0a 23 40 35 30 39 20 4d 61 74 63 68 20 4d 41	.8.(#$...59201)]).#@509.Match.MA
e8a0	54 43 48 2d 46 4f 52 4d 20 61 67 61 69 6e 73 74 20 53 4f 55 52 43 45 20 6f 66 20 74 79 70 65 20	TCH-FORM.against.SOURCE.of.type.
e8c0	54 59 50 45 2e 0a 0a 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 61 20 70 72 6f 70 65 72 20 6c 69	TYPE...MATCH-FORM.is.a.proper.li
e8e0	73 74 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 6b 65 79 31 20 70 6c 61 63 65 31 20 2e 2e 2e 20	st.of.the.form.(key1.place1.....
e900	6b 65 79 4e 0a 70 6c 61 63 65 4e 29 2e 20 20 45 61 63 68 20 70 6c 61 63 65 4b 20 69 73 20 65 69	keyN.placeN)...Each.placeK.is.ei
e920	74 68 65 72 20 61 20 73 79 6d 62 6f 6c 2c 20 77 68 69 63 68 20 67 65 74 73 20 62 6f 75 6e 64 20	ther.a.symbol,.which.gets.bound.
e940	74 6f 20 74 68 65 0a 76 61 6c 75 65 20 6f 66 20 6b 65 79 4b 20 72 65 74 72 69 65 76 65 64 20 66	to.the.value.of.keyK.retrieved.f
e960	72 6f 6d 20 74 68 65 20 6b 65 79 2d 76 61 6c 75 65 20 73 74 6f 72 65 2c 20 6f 72 20 61 6e 6f 74	rom.the.key-value.store,.or.anot
e980	68 65 72 0a 6d 61 74 63 68 20 66 6f 72 6d 20 77 68 69 63 68 20 67 65 74 73 20 64 65 73 74 72 75	her.match.form.which.gets.destru
e9a0	63 74 75 72 65 64 20 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 0a 53 4f 55 52 43 45 20 69 73 20 61	ctured.recursively...SOURCE.is.a
e9c0	20 6b 65 79 2d 76 61 6c 75 65 20 73 74 6f 72 65 20 6f 66 20 74 79 70 65 20 54 59 50 45 2c 20 77	.key-value.store.of.type.TYPE,.w
e9e0	68 69 63 68 20 63 61 6e 20 62 65 20 61 20 70 6c 69 73 74 2c 0a 61 6e 20 61 6c 69 73 74 20 6f 72	hich.can.be.a.plist,.an.alist.or
ea00	20 61 20 68 61 73 68 20 74 61 62 6c 65 2e 0a 0a 54 59 50 45 20 69 73 20 61 20 74 6f 6b 65 6e 20	.a.hash.table...TYPE.is.a.token.
ea20	73 70 65 63 69 66 79 69 6e 67 20 74 68 65 20 74 79 70 65 20 6f 66 20 74 68 65 20 6b 65 79 2d 76	specifying.the.type.of.the.key-v
ea40	61 6c 75 65 20 73 74 6f 72 65 2e 0a 56 61 6c 69 64 20 76 61 6c 75 65 73 20 61 72 65 20 26 70 6c	alue.store..Valid.values.are.&pl
ea60	69 73 74 2c 20 26 61 6c 69 73 74 20 61 6e 64 20 26 68 61 73 68 2e 0a 0a 28 66 6e 20 4d 41 54 43	ist,.&alist.and.&hash...(fn.MATC
ea80	48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 20 54 59 50 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	H-FORM.SOURCE.TYPE)..(defalias.'
eaa0	64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 2d 31 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31	dash--match-kv-1.#[771."\300\301
eac0	5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 09 06 09 5c 22 5c 33	\302\303\304\305\306\307....\"\3
eae0	31 30 5c 22 5c 33 31 31 5c 33 31 32 25 5c 33 31 33 5c 33 31 34 06 08 5c 22 5c 22 5c 22 5c 32 30	10\"\311\312%\313\314..\"\"\"\20
eb00	37 22 20 5b 2d 66 6c 61 74 74 65 6e 2d 6e 20 31 20 2d 6d 61 70 20 6d 61 6b 65 2d 62 79 74 65 2d	7".[-flatten-n.1.-map.make-byte-
eb20	63 6f 64 65 20 32 35 37 20 22 5c 32 31 31 40 01 41 40 5c 33 30 31 5c 33 30 32 3d 5c 32 30 34 11	code.257."\211@.A@\301\302=\204.
eb40	00 5c 33 30 31 5c 33 30 33 3d 5c 32 30 33 18 00 5c 33 30 34 5c 33 30 30 03 45 5c 32 30 32 31 00	.\301\303=\203..\304\300.E\2021.
eb60	5c 33 30 31 5c 33 30 35 3d 5c 32 30 33 27 00 5c 33 30 36 5c 33 30 37 03 5c 33 30 30 45 44 5c 32	\301\305=\203'.\306\307.\300ED\2
eb80	30 32 31 00 5c 33 30 31 5c 33 31 30 3d 5c 32 30 35 31 00 5c 33 31 31 02 5c 33 30 30 45 01 39 5c	021.\301\310=\2051.\311.\300E.9\
eba0	32 30 33 3d 00 01 01 44 43 5c 32 30 32 41 00 5c 33 31 32 02 02 5c 22 5c 32 30 37 22 20 76 63 6f	203=...DC\202A.\312..\"\207".vco
ebc0	6e 63 61 74 20 76 65 63 74 6f 72 20 5b 26 70 6c 69 73 74 20 26 6b 65 79 73 20 70 6c 69 73 74 2d	ncat.vector.[&plist.&keys.plist-
ebe0	67 65 74 20 26 61 6c 69 73 74 20 63 64 72 20 61 73 73 6f 63 20 26 68 61 73 68 20 67 65 74 68 61	get.&alist.cdr.assoc.&hash.getha
ec00	73 68 20 64 61 73 68 2d 2d 6d 61 74 63 68 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 4b 56 29 22 20	sh.dash--match].7."\n\n(fn.KV)".
ec20	2d 70 61 72 74 69 74 69 6f 6e 20 32 5d 20 31 33 20 28 23 24 20 2e 20 35 39 35 34 34 29 5d 29 0a	-partition.2].13.(#$...59544)]).
ec40	23 40 39 36 20 42 69 6e 64 20 61 20 73 79 6d 62 6f 6c 2e 0a 0a 54 68 69 73 20 77 6f 72 6b 73 20	#@96.Bind.a.symbol...This.works.
ec60	6a 75 73 74 20 6c 69 6b 65 20 60 6c 65 74 27 2c 20 74 68 65 72 65 20 69 73 20 6e 6f 20 64 65 73	just.like.`let',.there.is.no.des
ec80	74 72 75 63 74 75 72 69 6e 67 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52	tructuring...(fn.MATCH-FORM.SOUR
eca0	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 73 79 6d 62	CE)..(defalias.'dash--match-symb
ecc0	6f 6c 20 23 5b 35 31 34 20 22 01 01 44 43 5c 32 30 37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20 36	ol.#[514."..DC\207".[].4.(#$...6
ece0	30 34 38 35 29 5d 29 0a 23 40 32 38 31 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61	0485)]).#@281.Match.MATCH-FORM.a
ed00	67 61 69 6e 73 74 20 53 4f 55 52 43 45 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 65	gainst.SOURCE...This.function.te
ed20	73 74 73 20 74 68 65 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 6e 64 20 64 69 73 70 61 74 63 68 65	sts.the.MATCH-FORM.and.dispatche
ed40	73 20 74 6f 20 73 70 65 63 69 66 69 63 0a 6d 61 74 63 68 65 72 73 20 62 61 73 65 64 20 6f 6e 20	s.to.specific.matchers.based.on.
ed60	74 68 65 20 74 79 70 65 20 6f 66 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 0a 4b 65 79	the.type.of.the.expression...Key
ed80	2d 76 61 6c 75 65 20 73 74 6f 72 65 73 20 61 72 65 20 64 69 73 61 6d 62 69 67 75 61 74 65 64 20	-value.stores.are.disambiguated.
eda0	62 79 20 70 6c 61 63 69 6e 67 20 61 20 74 6f 6b 65 6e 20 26 70 6c 69 73 74 2c 0a 26 61 6c 69 73	by.placing.a.token.&plist,.&alis
edc0	74 20 6f 72 20 26 68 61 73 68 20 61 73 20 61 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 74 68	t.or.&hash.as.a.first.item.in.th
ede0	65 20 4d 41 54 43 48 2d 46 4f 52 4d 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f	e.MATCH-FORM...(fn.MATCH-FORM.SO
ee00	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 20 23 5b	URCE)..(defalias.'dash--match.#[
ee20	35 31 34 20 22 01 39 5c 32 30 33 5c 6e 00 5c 33 30 30 02 02 5c 22 5c 32 30 37 01 3a 5c 32 30 33	514.".9\203\n.\300..\"\207.:\203
ee40	41 00 01 41 3a 5c 32 30 33 30 00 01 40 39 5c 32 30 33 30 00 01 41 40 5c 33 30 31 3d 5c 32 30 33	A..A:\2030..@9\2030..A@\301=\203
ee60	30 00 01 40 5c 32 31 31 02 44 5c 33 30 32 04 41 41 03 5c 22 42 5c 32 30 37 01 40 5c 33 30 33 3e	0..@\211.D\302.AA.\"B\207.@\303>
ee80	5c 32 30 33 3c 00 5c 33 30 34 02 02 5c 22 5c 32 30 37 5c 33 30 35 02 02 5c 22 5c 32 30 37 5c 33	\203<.\304..\"\207\305..\"\207\3
eea0	30 36 02 21 5c 32 30 35 70 00 01 47 5c 33 30 37 56 5c 32 30 33 6c 00 01 5c 33 31 30 48 39 5c 32	06.!\205p..G\307V\203l..\310H9\2
eec0	30 33 6c 00 01 5c 33 31 31 48 5c 33 30 31 3d 5c 32 30 33 6c 00 01 5c 33 31 30 48 5c 32 31 31 02	03l..\311H\301=\203l..\310H\211.
eee0	44 5c 33 30 32 5c 33 31 32 05 5c 33 30 37 5c 22 03 5c 22 42 5c 32 30 37 5c 33 31 33 02 02 5c 22	D\302\312.\307\".\"B\207\313..\"
ef00	5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 2d 73 79 6d 62 6f 6c 20 26 61 73 20 64 61	\207".[dash--match-symbol.&as.da
ef20	73 68 2d 2d 6d 61 74 63 68 20 28 26 6b 65 79 73 20 26 70 6c 69 73 74 20 26 61 6c 69 73 74 20 26	sh--match.(&keys.&plist.&alist.&
ef40	68 61 73 68 29 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 20 64 61 73 68 2d 2d 6d 61 74 63 68	hash).dash--match-kv.dash--match
ef60	2d 63 6f 6e 73 20 76 65 63 74 6f 72 70 20 32 20 30 20 31 20 64 61 73 68 2d 2d 76 65 63 74 6f 72	-cons.vectorp.2.0.1.dash--vector
ef80	2d 74 61 69 6c 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 76 65 63 74 6f 72 5d 20 38 20 28 23 24 20	-tail.dash--match-vector].8.(#$.
efa0	2e 20 36 30 36 35 34 29 5d 29 0a 23 40 34 37 36 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73 20	..60654)]).#@476.Bind.variables.
efc0	61 63 63 6f 72 64 69 6e 67 20 74 6f 20 56 41 52 4c 49 53 54 20 74 68 65 6e 20 65 76 61 6c 20 42	according.to.VARLIST.then.eval.B
efe0	4f 44 59 2e 0a 0a 56 41 52 4c 49 53 54 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73	ODY...VARLIST.is.a.list.of.lists
f000	20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 29 2e 20 20	.of.the.form.(PATTERN.SOURCE)...
f020	45 61 63 68 0a 50 41 54 54 45 52 4e 20 69 73 20 6d 61 74 63 68 65 64 20 61 67 61 69 6e 73 74 20	Each.PATTERN.is.matched.against.
f040	74 68 65 20 53 4f 55 52 43 45 20 73 74 72 75 63 74 75 72 61 6c 6c 79 2e 20 20 53 4f 55 52 43 45	the.SOURCE.structurally...SOURCE
f060	20 69 73 0a 6f 6e 6c 79 20 65 76 61 6c 75 61 74 65 64 20 6f 6e 63 65 20 66 6f 72 20 65 61 63 68	.is.only.evaluated.once.for.each
f080	20 50 41 54 54 45 52 4e 2e 0a 0a 45 61 63 68 20 53 4f 55 52 43 45 20 63 61 6e 20 72 65 66 65 72	.PATTERN...Each.SOURCE.can.refer
f0a0	20 74 6f 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 61 6c 72 65 61 64 79 20 62 6f 75 6e 64 20 62 79	.to.the.symbols.already.bound.by
f0c0	20 74 68 69 73 0a 56 41 52 4c 49 53 54 2e 20 20 54 68 69 73 20 69 73 20 75 73 65 66 75 6c 20 69	.this.VARLIST...This.is.useful.i
f0e0	66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 64 65 73 74 72 75 63 74 75 72 65 20 53 4f 55 52 43 45	f.you.want.to.destructure.SOURCE
f100	0a 72 65 63 75 72 73 69 76 65 6c 79 20 62 75 74 20 61 6c 73 6f 20 77 61 6e 74 20 74 6f 20 6e 61	.recursively.but.also.want.to.na
f120	6d 65 20 74 68 65 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 73 74 72 75 63 74 75 72 65 73 2e 0a	me.the.intermediate.structures..
f140	0a 53 65 65 20 60 2d 6c 65 74 27 20 66 6f 72 20 74 68 65 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20	.See.`-let'.for.the.list.of.all.
f160	70 6f 73 73 69 62 6c 65 20 70 61 74 74 65 72 6e 73 2e 0a 0a 28 66 6e 20 56 41 52 4c 49 53 54 20	possible.patterns...(fn.VARLIST.
f180	26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 65 74 2a 20 27 28	&rest.BODY)..(defalias.'-let*.'(
f1a0	6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 05	macro...#[385."\300\301\302\303.
f1c0	5c 22 5c 22 5c 33 30 34 01 03 42 42 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 20	\"\"\304..BB\207".[apply.append.
f1e0	6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 40 02 41 40 5c 22 5c 32 30 37 22 20 5b	mapcar.#[257."\300.@.A@\"\207".[
f200	64 61 73 68 2d 2d 6d 61 74 63 68 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 6c 65	dash--match].4."\n\n(fn.IT)"].le
f220	74 2a 5d 20 37 20 28 23 24 20 2e 20 36 31 33 36 31 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65	t*].7.(#$...61361)])).(byte-code
f240	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 31 5c	."\300\301\302\303#\210\304\301\
f260	33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 75 74 20 2d 6c 65 74 2a 20 65 64 65 62 75 67 2d	305\306#\207".[put.-let*.edebug-
f280	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 72 6d 29 29 20 62	form-spec.((&rest.(sexp.form)).b
f2a0	6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75	ody).function-put.lisp-indent-fu
f2c0	6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 34 34 32 34 20 42 69 6e 64 20 76 61 72 69 61 62 6c	nction.1].4).#@4424.Bind.variabl
f2e0	65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 56 41 52 4c 49 53 54 20 74 68 65 6e 20 65 76 61	es.according.to.VARLIST.then.eva
f300	6c 20 42 4f 44 59 2e 0a 0a 56 41 52 4c 49 53 54 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69	l.BODY...VARLIST.is.a.list.of.li
f320	73 74 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 29	sts.of.the.form.(PATTERN.SOURCE)
f340	2e 20 20 45 61 63 68 0a 50 41 54 54 45 52 4e 20 69 73 20 6d 61 74 63 68 65 64 20 61 67 61 69 6e	...Each.PATTERN.is.matched.again
f360	73 74 20 74 68 65 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	st.the.SOURCE."structurally"...S
f380	4f 55 52 43 45 0a 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	OURCE.is.only.evaluated.once.for
f3a0	20 65 61 63 68 20 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	.each.PATTERN...Each.PATTERN.is.
f3c0	6d 61 74 63 68 65 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	matched.recursively,.and.can.the
f3e0	72 65 66 6f 72 65 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	refore.contain.sub-patterns.whic
f400	68 20 61 72 65 0a 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	h.are.matched.against.correspond
f420	69 6e 67 20 73 75 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	ing.sub-expressions.of.SOURCE...
f440	41 6c 6c 20 74 68 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	All.the.SOURCEs.are.evalled.befo
f460	72 65 20 61 6e 79 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	re.any.symbols.are.bound.(i.e.."
f480	69 6e 20 70 61 72 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	in.parallel")...If.VARLIST.only.
f4a0	63 6f 6e 74 61 69 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	contains.one.(PATTERN.SOURCE).el
f4c0	65 6d 65 6e 74 2c 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	ement,.you.can.optionally.specif
f4e0	79 20 69 74 20 75 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	y.it.using.a.vector.and.discardi
f500	6e 67 20 74 68 65 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	ng.the.outer-most.parens...Thus.
f520	0a 20 20 28 2d 6c 65 74 20 28 28 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 29 29 20 2e 2e 29 0a	...(-let.((PATTERN.SOURCE))...).
f540	0a 62 65 63 6f 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	.becomes....(-let.[PATTERN.SOURC
f560	45 5d 20 2e 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	E]...)...`-let'.uses.a.conventio
f580	6e 20 6f 66 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	n.of.not.binding.places.(symbols
f5a0	29 20 73 74 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	).starting.with._.whenever.it's.
f5c0	70 6f 73 73 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	possible...You.can.use.this.to.s
f5e0	6b 69 70 20 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	kip.over.entries.you.don't.care.
f600	61 62 6f 75 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	about...However,.this.is.not.*al
f620	77 61 79 73 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	ways*.possible.(as.a.result.of.i
f640	6d 70 6c 65 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	mplementation).and.these.symbols
f660	20 6d 69 67 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	.might.get.bound.to.undefined.va
f680	6c 75 65 73 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	lues...Following.is.the.overview
f6a0	20 6f 66 20 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	.of.supported.patterns...Remembe
f6c0	72 20 74 68 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	r.that.patterns.can.be.matched.r
f6e0	65 63 75 72 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	ecursively,.so.every.a,.b,.aK.in
f700	20 74 68 65 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	.the.following.can.be.a.matching
f720	20 63 6f 6e 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	.construct.and.not.necessarily.a
f740	0a 73 79 6d 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	.symbol/variable...Symbol:....a.
f760	2d 20 62 69 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	-.bind.the.SOURCE.to.A...This.is
f780	20 6a 75 73 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	.just.like.regular.`let'...Conse
f7a0	73 20 61 6e 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	s.and.lists:....(a).-.bind.`car'
f7c0	20 6f 66 20 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	.of.cons/list.to.A....(a...b).-.
f7e0	62 69 6e 64 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	bind.car.of.cons.to.A.and.`cdr'.
f800	74 6f 20 42 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	to.B....(a.b).-.bind.car.of.list
f820	20 74 6f 20 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	.to.A.and.`cadr'.to.B....(a1.a2.
f840	61 33 20 20 2e 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	a3.....).-.bind.0th.car.of.list.
f860	74 6f 20 41 31 2c 20 31 73 74 20 74 6f 20 41 32 2c 20 32 6e 64 20 74 6f 20 41 33 20 2e 2e 2e 0a	to.A1,.1st.to.A2,.2nd.to.A3.....
f880	0a 20 20 28 61 31 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	...(a1.a2.a3.....aN...rest).-.as
f8a0	20 61 62 6f 76 65 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	.above,.but.bind.the.Nth.cdr.to.
f8c0	52 45 53 54 2e 0a 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	REST...Vectors:....[a].-.bind.0t
f8e0	68 20 65 6c 65 6d 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	h.element.of.a.non-list.sequence
f900	20 74 6f 20 41 20 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	.to.A.(works.with.........vector
f920	73 2c 20 73 74 72 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	s,.strings,.bit.arrays...)....[a
f940	31 20 61 32 20 61 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	1.a2.a3....].-.bind.0th.element.
f960	6f 66 20 6e 6f 6e 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	of.non-list.sequence.to.A0,.1st.
f980	74 6f 0a 20 20 20 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	to....................A1,.2nd.to
f9a0	20 41 32 2c 20 2e 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	.A2,........................If.t
f9c0	68 65 20 50 41 54 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	he.PATTERN.is.shorter.than.SOURC
f9e0	45 2c 20 74 68 65 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	E,.the.values.at................
fa00	20 20 20 20 70 6c 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	....places.not.in.PATTERN.are.ig
fa20	6e 6f 72 65 64 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	nored.....................If.the
fa40	20 50 41 54 54 45 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	.PATTERN.is.longer.than.SOURCE,.
fa60	61 6e 20 60 65 72 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	an.`error'.is...................
fa80	20 74 68 72 6f 77 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	.thrown.....[a1.a2.a3.....&rest.
faa0	72 65 73 74 5d 20 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	rest].-.as.above,.but.bind.the.r
fac0	65 73 74 20 6f 66 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	est.of..........................
fae0	20 20 20 20 20 74 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	.....the.sequence.to.REST...This
fb00	20 69 73 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	.is.............................
fb20	20 20 63 6f 6e 63 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	..conceptually.the.same.as.impro
fb40	70 65 72 20 6c 69 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	per.list........................
fb60	20 20 20 20 20 20 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	.......matching.(a1.a2.....aN...
fb80	72 65 73 74 29 0a 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	rest)..Key/value.stores:....(&pl
fba0	69 73 74 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	ist.key0.a0.....keyN.aN).-.bind.
fbc0	76 61 6c 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	value.mapped.by.keyK.in.the.....
fbe0	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 53 4f 55	.............................SOU
fc00	52 43 45 20 70 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	RCE.plist.to.aK...If.the........
fc20	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 76 61 6c 75 65 20	..........................value.
fc40	69 73 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 0a 20 20 28 26 61 6c	is.not.found,.aK.is.nil.....(&al
fc60	69 73 74 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	ist.key0.a0.....keyN.aN).-.bind.
fc80	76 61 6c 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	value.mapped.by.keyK.in.the.....
fca0	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 53 4f 55	.............................SOU
fcc0	52 43 45 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	RCE.alist.to.aK...If.the........
fce0	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 76 61 6c 75 65 20	..........................value.
fd00	69 73 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 0a 20 20 28 26 68 61	is.not.found,.aK.is.nil.....(&ha
fd20	73 68 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	sh.key0.a0.....keyN.aN).-.bind.v
fd40	61 6c 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	alue.mapped.by.keyK.in.the......
fd60	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 53 4f 55 52 43	...........................SOURC
fd80	45 20 68 61 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	E.hash.table.to.aK...If.the.....
fda0	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 76 61 6c 75	............................valu
fdc0	65 20 69 73 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 0a 46 75 72 74	e.is.not.found,.aK.is.nil...Furt
fde0	68 65 72 2c 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	her,.special.keyword.&keys.suppo
fe00	72 74 73 20 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	rts."inline".matching.of.plist-l
fe20	69 6b 65 20 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	ike.key-value.pairs,.similarly.t
fe40	6f 20 26 6b 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	o.&keys.keyword.of.`cl-defun'...
fe60	20 20 28 61 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	..(a1.a2.....aN.&keys.key1.b1...
fe80	2e 20 6b 65 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	..keyN.bK)..This.binds.N.values.
fea0	66 72 6f 6d 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	from.the.list.to.a1.....aN,.then
fec0	20 69 6e 74 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	.interprets.the.cdr.as.a.plist.(
fee0	73 65 65 20 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	see.key/value.matching.above)...
ff00	59 6f 75 20 63 61 6e 20 6e 61 6d 65 20 74 68 65 20 73 6f 75 72 63 65 20 75 73 69 6e 67 20 74 68	You.can.name.the.source.using.th
ff20	65 20 73 79 6e 74 61 78 20 53 59 4d 42 4f 4c 20 26 61 73 20 50 41 54 54 45 52 4e 2e 0a 54 68 69	e.syntax.SYMBOL.&as.PATTERN..Thi
ff40	73 20 73 79 6e 74 61 78 20 77 6f 72 6b 73 20 77 69 74 68 20 6c 69 73 74 73 20 28 70 72 6f 70 65	s.syntax.works.with.lists.(prope
ff60	72 20 6f 72 20 69 6d 70 72 6f 70 65 72 29 2c 20 76 65 63 74 6f 72 73 20 61 6e 64 0a 61 6c 6c 20	r.or.improper),.vectors.and.all.
ff80	74 79 70 65 73 20 6f 66 20 6d 61 70 73 2e 0a 0a 20 20 28 6c 69 73 74 20 26 61 73 20 61 20 62 20	types.of.maps.....(list.&as.a.b.
ffa0	63 29 20 28 6c 69 73 74 20 31 20 32 20 33 29 0a 0a 62 69 6e 64 73 20 41 20 74 6f 20 31 2c 20 42	c).(list.1.2.3)..binds.A.to.1,.B
ffc0	20 74 6f 20 32 2c 20 43 20 74 6f 20 33 20 61 6e 64 20 4c 49 53 54 20 74 6f 20 28 31 20 32 20 33	.to.2,.C.to.3.and.LIST.to.(1.2.3
ffe0	29 2e 0a 0a 53 69 6d 69 6c 61 72 6c 79 3a 0a 0a 20 20 28 62 6f 75 6e 64 73 20 26 61 73 20 62 65	)...Similarly:....(bounds.&as.be
10000	67 20 2e 20 65 6e 64 29 20 28 63 6f 6e 73 20 31 20 32 29 0a 0a 62 69 6e 64 73 20 42 45 47 20 74	g...end).(cons.1.2)..binds.BEG.t
10020	6f 20 31 2c 20 45 4e 44 20 74 6f 20 32 20 61 6e 64 20 42 4f 55 4e 44 53 20 74 6f 20 28 31 20 2e	o.1,.END.to.2.and.BOUNDS.to.(1..
10040	20 32 29 2e 0a 0a 20 20 28 69 74 65 6d 73 20 26 61 73 20 66 69 72 73 74 20 2e 20 72 65 73 74 29	.2).....(items.&as.first...rest)
10060	20 28 6c 69 73 74 20 31 20 32 20 33 29 0a 0a 62 69 6e 64 73 20 46 49 52 53 54 20 74 6f 20 31 2c	.(list.1.2.3)..binds.FIRST.to.1,
10080	20 52 45 53 54 20 74 6f 20 28 32 20 33 29 20 61 6e 64 20 49 54 45 4d 53 20 74 6f 20 28 31 20 32	.REST.to.(2.3).and.ITEMS.to.(1.2
100a0	20 33 29 0a 0a 20 20 5b 76 65 63 74 20 26 61 73 20 5f 20 62 20 63 5d 20 5b 31 20 32 20 33 5d 0a	.3)....[vect.&as._.b.c].[1.2.3].
100c0	0a 62 69 6e 64 73 20 42 20 74 6f 20 32 2c 20 43 20 74 6f 20 33 20 61 6e 64 20 56 45 43 54 20 74	.binds.B.to.2,.C.to.3.and.VECT.t
100e0	6f 20 5b 31 20 32 20 33 5d 20 28 5f 20 61 76 6f 69 64 73 20 62 69 6e 64 69 6e 67 20 61 73 20 75	o.[1.2.3].(_.avoids.binding.as.u
10100	73 75 61 6c 29 2e 0a 0a 20 20 28 70 6c 69 73 74 20 26 61 73 20 26 70 6c 69 73 74 20 3a 62 20 62	sual).....(plist.&as.&plist.:b.b
10120	29 20 28 6c 69 73 74 20 3a 61 20 31 20 3a 62 20 32 20 3a 63 20 33 29 0a 0a 62 69 6e 64 73 20 42	).(list.:a.1.:b.2.:c.3)..binds.B
10140	20 74 6f 20 32 20 61 6e 64 20 50 4c 49 53 54 20 74 6f 20 28 3a 61 20 31 20 3a 62 20 32 20 3a 63	.to.2.and.PLIST.to.(:a.1.:b.2.:c
10160	20 33 29 2e 20 20 53 61 6d 65 20 66 6f 72 20 26 61 6c 69 73 74 20 61 6e 64 20 26 68 61 73 68 2e	.3)...Same.for.&alist.and.&hash.
10180	0a 0a 54 68 69 73 20 69 73 20 65 73 70 65 63 69 61 6c 6c 79 20 75 73 65 66 75 6c 20 77 68 65 6e	..This.is.especially.useful.when
101a0	20 77 65 20 77 61 6e 74 20 74 6f 20 63 61 70 74 75 72 65 20 74 68 65 20 72 65 73 75 6c 74 20 6f	.we.want.to.capture.the.result.o
101c0	66 20 61 0a 63 6f 6d 70 75 74 61 74 69 6f 6e 20 61 6e 64 20 64 65 73 74 72 75 63 74 75 72 65 20	f.a.computation.and.destructure.
101e0	61 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 2e 20 20 43 6f 6e 73 69 64 65 72 20 74 68 65 0a	at.the.same.time...Consider.the.
10200	66 6f 72 6d 20 28 66 75 6e 63 74 69 6f 6e 2d 72 65 74 75 72 6e 69 6e 67 2d 63 6f 6d 70 6c 65 78	form.(function-returning-complex
10220	2d 73 74 72 75 63 74 75 72 65 29 20 72 65 74 75 72 6e 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 0a	-structure).returning.a.list.of.
10240	74 77 6f 20 76 65 63 74 6f 72 73 20 77 69 74 68 20 74 77 6f 20 69 74 65 6d 73 20 65 61 63 68 2e	two.vectors.with.two.items.each.
10260	20 20 57 65 20 77 61 6e 74 20 74 6f 20 63 61 70 74 75 72 65 20 74 68 69 73 20 65 6e 74 69 72 65	..We.want.to.capture.this.entire
10280	0a 72 65 73 75 6c 74 20 61 6e 64 20 70 61 73 73 20 69 74 20 74 6f 20 61 6e 6f 74 68 65 72 20 63	.result.and.pass.it.to.another.c
102a0	6f 6d 70 75 74 61 74 69 6f 6e 2c 20 62 75 74 20 61 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65	omputation,.but.at.the.same.time
102c0	0a 77 65 20 77 61 6e 74 20 74 6f 20 67 65 74 20 74 68 65 20 73 65 63 6f 6e 64 20 69 74 65 6d 20	.we.want.to.get.the.second.item.
102e0	66 72 6f 6d 20 65 61 63 68 20 76 65 63 74 6f 72 2e 20 20 57 65 20 63 61 6e 20 61 63 68 69 65 76	from.each.vector...We.can.achiev
10300	65 0a 69 74 20 77 69 74 68 20 70 61 74 74 65 72 6e 0a 0a 20 20 28 72 65 73 75 6c 74 20 26 61 73	e.it.with.pattern....(result.&as
10320	20 5b 5f 20 61 5d 20 5b 5f 20 62 5d 29 20 28 66 75 6e 63 74 69 6f 6e 2d 72 65 74 75 72 6e 69 6e	.[_.a].[_.b]).(function-returnin
10340	67 2d 63 6f 6d 70 6c 65 78 2d 73 74 72 75 63 74 75 72 65 29 0a 0a 4e 6f 74 65 3a 20 43 6c 6f 6a	g-complex-structure)..Note:.Cloj
10360	75 72 65 20 70 72 6f 67 72 61 6d 6d 65 72 73 20 6d 61 79 20 6b 6e 6f 77 20 74 68 69 73 20 66 65	ure.programmers.may.know.this.fe
10380	61 74 75 72 65 20 61 73 20 74 68 65 20 22 3a 61 73 0a 62 69 6e 64 69 6e 67 22 2e 20 20 54 68 65	ature.as.the.":as.binding"...The
103a0	20 64 69 66 66 65 72 65 6e 63 65 20 69 73 20 74 68 61 74 20 77 65 20 70 75 74 20 74 68 65 20 26	.difference.is.that.we.put.the.&
103c0	61 73 20 61 74 20 74 68 65 20 66 72 6f 6e 74 0a 62 65 63 61 75 73 65 20 77 65 20 6e 65 65 64 20	as.at.the.front.because.we.need.
103e0	74 6f 20 73 75 70 70 6f 72 74 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 20 62 69 6e 64 69 6e 67	to.support.improper.list.binding
10400	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 65 66	...(fn.VARLIST.&rest.BODY)..(def
10420	61 6c 69 61 73 20 27 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30	alias.'-let.'(macro...#[385."\30
10440	30 02 21 5c 32 30 33 13 00 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 48 04 5c 33 30 34 48 5c 22 02	0.!\203..\301\302.\303H.\304H\".
10460	42 42 5c 32 30 37 5c 33 30 35 02 5c 33 30 33 01 5c 32 30 33 36 00 01 40 5c 33 30 36 5c 33 30 37	BB\207\305.\303.\2036..@\306\307
10480	5c 33 31 30 04 5c 22 21 01 41 40 44 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32	\310.\"!.A@D.B\262.\210\211T\262
104a0	01 01 41 5c 32 36 32 02 5c 32 30 32 16 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 32 01	..A\262.\202..\266.\211\237\262.
104c0	5c 33 31 31 5c 33 31 32 5c 33 31 33 05 04 5c 22 5c 22 5c 33 31 34 02 5c 33 31 35 03 06 06 42 42	\311\312\313..\"\"\314.\315...BB
104e0	45 5c 32 30 37 22 20 5b 76 65 63 74 6f 72 70 20 6c 65 74 2a 20 64 61 73 68 2d 2d 6d 61 74 63 68	E\207".[vectorp.let*.dash--match
10500	20 30 20 31 20 6e 69 6c 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 66 6f 72 6d 61 74 20 22 69 6e 70	.0.1.nil.make-symbol.format."inp
10520	75 74 25 64 22 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 32 31 31 40 40 01 41 40 44 5c 32	ut%d".mapcar.#[257."\211@@.A@D\2
10540	30 37 22 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 2d 7a 69 70 20 6c 65 74	07".[].3."\n\n(fn.IT)"].-zip.let
10560	20 2d 6c 65 74 2a 5d 20 31 30 20 28 23 24 20 2e 20 36 32 31 36 34 29 5d 29 29 0a 28 62 79 74 65	.-let*].10.(#$...62164)])).(byte
10580	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 34	-code."\300\301\302\303#\210\304
105a0	5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 75 74 20 2d 6c 65 74 20 65 64 65	\301\305\306#\207".[put.-let.ede
105c0	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 28 73 65 78 70	bug-form-spec.([&or.(&rest.(sexp
105e0	20 66 6f 72 6d 29 29 20 28 76 65 63 74 6f 72 20 5b 26 72 65 73 74 20 5b 73 65 78 70 20 66 6f 72	.form)).(vector.[&rest.[sexp.for
10600	6d 5d 5d 29 5d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e	m]])].body).function-put.lisp-in
10620	64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 34 32 33 20 52 65 74 75 72 6e	dent-function.1].4).#@423.Return
10640	20 61 20 6c 61 6d 62 64 61 20 77 68 69 63 68 20 64 65 73 74 72 75 63 74 75 72 65 73 20 69 74 73	.a.lambda.which.destructures.its
10660	20 69 6e 70 75 74 20 61 73 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 6e 64 20 65 78 65 63 75 74 65	.input.as.MATCH-FORM.and.execute
10680	73 20 42 4f 44 59 2e 0a 0a 4e 6f 74 65 20 74 68 61 74 20 79 6f 75 20 68 61 76 65 20 74 6f 20 65	s.BODY...Note.that.you.have.to.e
106a0	6e 63 6c 6f 73 65 20 74 68 65 20 4d 41 54 43 48 2d 46 4f 52 4d 20 69 6e 20 61 20 70 61 69 72 20	nclose.the.MATCH-FORM.in.a.pair.
106c0	6f 66 20 70 61 72 65 6e 73 2c 0a 73 75 63 68 20 74 68 61 74 3a 0a 0a 20 20 28 2d 6c 61 6d 62 64	of.parens,.such.that:....(-lambd
106e0	61 20 28 78 29 20 62 6f 64 79 29 0a 20 20 28 2d 6c 61 6d 62 64 61 20 28 78 20 79 20 2e 2e 2e 29	a.(x).body)...(-lambda.(x.y....)
10700	20 62 6f 64 79 29 0a 0a 68 61 73 20 74 68 65 20 75 73 75 61 6c 20 73 65 6d 61 6e 74 69 63 73 20	.body)..has.the.usual.semantics.
10720	6f 66 20 60 6c 61 6d 62 64 61 27 2e 20 20 46 75 72 74 68 65 72 6d 6f 72 65 2c 20 74 68 65 73 65	of.`lambda'...Furthermore,.these
10740	20 67 65 74 0a 74 72 61 6e 73 6c 61 74 65 64 20 69 6e 74 6f 20 6e 6f 72 6d 61 6c 20 6c 61 6d 62	.get.translated.into.normal.lamb
10760	64 61 2c 20 73 6f 20 74 68 65 72 65 20 69 73 20 6e 6f 20 70 65 72 66 6f 72 6d 61 6e 63 65 0a 70	da,.so.there.is.no.performance.p
10780	65 6e 61 6c 74 79 2e 0a 0a 53 65 65 20 60 2d 6c 65 74 27 20 66 6f 72 20 74 68 65 20 64 65 73 63	enalty...See.`-let'.for.the.desc
107a0	72 69 70 74 69 6f 6e 20 6f 66 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 20 6d 65 63 68 61 6e 69	ription.of.destructuring.mechani
107c0	73 6d 2e 0a 0a 28 66 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	sm...(fn.MATCH-FORM.&rest.BODY).
107e0	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 5b	.(defalias.'-lambda.'(macro...#[
10800	33 38 35 20 22 01 3a 5c 32 30 34 5c 6e 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 30 37	385.".:\204\n.\300\301\302\"\207
10820	5c 33 30 33 5c 33 30 34 03 5c 22 5c 32 30 33 17 00 5c 33 30 35 02 02 42 42 5c 32 30 37 5c 33 30	\303\304.\"\203..\305..BB\207\30
10840	36 02 5c 33 30 37 01 5c 32 30 33 38 00 01 40 5c 32 31 31 5c 33 31 30 5c 33 31 31 5c 33 31 32 05	6.\307.\2038..@\211\310\311\312.
10860	5c 22 21 44 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02	\"!D.B\262.\210\211T\262..A\262.
10880	5c 32 30 32 1a 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 33 30 35 5c 33 31 33	\202..\266.\211\237\262.\305\313
108a0	5c 33 31 34 03 5c 22 5c 33 31 35 03 05 42 42 45 5c 32 30 37 22 20 5b 73 69 67 6e 61 6c 20 77 72	\314.\"\315..BBE\207".[signal.wr
108c0	6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 22 6d 61 74 63 68 2d 66 6f 72 6d 20 6d 75	ong-type-argument."match-form.mu
108e0	73 74 20 62 65 20 61 20 6c 69 73 74 22 20 2d 61 6c 6c 5c 3f 20 73 79 6d 62 6f 6c 70 20 6c 61 6d	st.be.a.list".-all\?.symbolp.lam
10900	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
10920	70 75 74 25 64 22 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 32 31 31 41 40 5c 32 30 37 22	put%d".mapcar.#[257."\211A@\207"
10940	20 5b 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 2d 6c 65 74 2a 5d 20 31 31 20 28	.[].2."\n\n(fn.IT)"].-let*].11.(
10960	23 24 20 2e 20 36 37 31 33 30 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	#$...67130)])).(byte-code."\300\
10980	33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 35	301\302\303#\210\300\301\304\305
109a0	23 5c 32 31 30 5c 33 30 36 5c 33 30 31 5c 33 30 37 5c 33 31 30 23 5c 32 30 37 22 20 5b 66 75 6e	#\210\306\301\307\310#\207".[fun
109c0	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 67 2d 65 6c 74	ction-put.-lambda.doc-string-elt
109e0	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 75 6e 20 70 75	.2.lisp-indent-function.defun.pu
10a00	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 20 73 65 78 70	t.edebug-form-spec.(&define.sexp
10a20	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 6f 6e 61 6c 20	.[&optional.stringp].[&optional.
10a40	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 5d 20 64 65 66	("interactive".interactive)].def
10a60	2d 62 6f 64 79 29 5d 20 34 29 0a 23 40 33 32 30 20 49 66 20 61 6c 6c 20 56 41 4c 53 20 65 76 61	-body)].4).#@320.If.all.VALS.eva
10a80	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 74 6f 20 74 68 65 69	luate.to.true,.bind.them.to.thei
10aa0	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 64 6f 20 54 48 45 4e	r.corresponding.VARS.and.do.THEN
10ac0	2c 20 6f 74 68 65 72 77 69 73 65 20 64 6f 20 45 4c 53 45 2e 20 56 41 52 53 2d 56 41 4c 53 20 73	,.otherwise.do.ELSE..VARS-VALS.s
10ae0	68 6f 75 6c 64 20 62 65 20 61 20 6c 69 73 74 0a 6f 66 20 28 56 41 52 20 56 41 4c 29 20 70 61 69	hould.be.a.list.of.(VAR.VAL).pai
10b00	72 73 2e 0a 0a 4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64 6f 6e 65 20 61 63 63 6f 72	rs...Note:.binding.is.done.accor
10b20	64 69 6e 67 20 74 6f 20 60 2d 6c 65 74 2a 27 2e 20 20 56 41 4c 53 20 61 72 65 20 65 76 61 6c 75	ding.to.`-let*'...VALS.are.evalu
10b40	61 74 65 64 0a 73 65 71 75 65 6e 74 69 61 6c 6c 79 2c 20 61 6e 64 20 65 76 61 6c 75 61 74 69 6f	ated.sequentially,.and.evaluatio
10b60	6e 20 73 74 6f 70 73 20 61 66 74 65 72 20 74 68 65 20 66 69 72 73 74 20 6e 69 6c 20 56 41 4c 20	n.stops.after.the.first.nil.VAL.
10b80	69 73 0a 65 6e 63 6f 75 6e 74 65 72 65 64 2e 0a 0a 28 66 6e 20 56 41 52 53 2d 56 41 4c 53 20 54	is.encountered...(fn.VARS-VALS.T
10ba0	48 45 4e 20 26 72 65 73 74 20 45 4c 53 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 66 2d	HEN.&rest.ELSE)..(defalias.'-if-
10bc0	6c 65 74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 5c 33 30 31 5c 33	let*.'(macro...#[642."\300\301\3
10be0	30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 06 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25	02\303\304\305..!\306\"\307\310%
10c00	03 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 06 09 5c 22 5c 22 23 5c 32 30 37 22 20 5b 2d	.\311\312\313\314..\"\"#\207".[-
10c20	72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 32	reduce-r-from.make-byte-code.512
10c40	20 22 01 40 02 41 40 5c 33 30 31 02 02 44 43 5c 33 30 32 04 06 06 5c 33 30 30 42 42 42 45 5c 32	.".@.A@\301..DC\302...\300BBBE\2
10c60	30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6c 65 74 20 69 66 5d 20 31 30 20 22	07".vconcat.vector.[let.if].10."
10c80	5c 6e 5c 6e 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 49 54 20 41 43 43 29 22 20 61 70 70 6c 79	\n\n(fn.&optional.IT.ACC)".apply
10ca0	20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 40 02 41 40 5c	.append.mapcar.#[257."\300.@.A@\
10cc0	22 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20	"\207".[dash--match].4."\n\n(fn.
10ce0	49 54 29 22 5d 5d 20 31 31 20 28 23 24 20 2e 20 36 38 32 30 39 29 5d 29 29 0a 28 62 79 74 65 2d	IT)"]].11.(#$...68209)])).(byte-
10d00	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\
10d20	33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 75 74 20 2d 69 66 2d 6c 65 74 2a 20	301\305\306#\207".[put.-if-let*.
10d40	65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 26 72 65 73 74 20 28 73 65 78 70 20 66	edebug-form-spec.((&rest.(sexp.f
10d60	6f 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	orm)).form.body).function-put.li
10d80	73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 31 35 33 20 49	sp-indent-function.2].4).#@153.I
10da0	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 64	f.VAL.evaluates.to.non-nil,.bind
10dc0	20 69 74 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	.it.to.VAR.and.do.THEN,.otherwis
10de0	65 20 64 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	e.do.ELSE...Note:.binding.is.don
10e00	65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 2d 6c 65 74 27 2e 0a 0a 28 66 6e 20 28 56 41 52	e.according.to.`-let'...(fn.(VAR
10e20	20 56 41 4c 29 20 54 48 45 4e 20 26 72 65 73 74 20 45 4c 53 45 29 1f 0a 28 64 65 66 61 6c 69 61	.VAL).THEN.&rest.ELSE)..(defalia
10e40	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
10e60	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.(#$...
10e80	36 39 30 32 33 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	69023)])).(byte-code."\300\301\3
10ea0	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 32 30 37	02\303#\210\304\301\305\306#\207
10ec0	22 20 5b 70 75 74 20 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.
10ee0	28 28 73 65 78 70 20 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	((sexp.form).form.body).function
10f00	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 32 5d 20 34 29 0a	-put.lisp-indent-function.2].4).
10f20	23 40 31 31 31 20 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	#@111.If.VAL.evaluates.to.non-ni
10f40	6c 2c 20 62 69 6e 64 20 69 74 20 74 6f 20 73 79 6d 62 6f 6c 20 60 69 74 27 20 61 6e 64 20 64 6f	l,.bind.it.to.symbol.`it'.and.do
10f60	20 54 48 45 4e 2c 0a 6f 74 68 65 72 77 69 73 65 20 64 6f 20 45 4c 53 45 2e 0a 0a 28 66 6e 20 56	.THEN,.otherwise.do.ELSE...(fn.V
10f80	41 4c 20 54 48 45 4e 20 26 72 65 73 74 20 45 4c 53 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	AL.THEN.&rest.ELSE)..(defalias.'
10fa0	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 30 30 5c 33	--if-let.'(macro...#[642."\300\3
10fc0	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 37 20 28 23	01.D..BBB\207".[-if-let.it].7.(#
10fe0	24 20 2e 20 36 39 34 31 34 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	$...69414)])).(byte-code."\300\3
11000	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#
11020	5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 69 66 2d 6c 65 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d	\207".[put.--if-let.edebug-form-
11040	73 70 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	spec.(form.form.body).function-p
11060	75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40	ut.lisp-indent-function.2].4).#@
11080	33 30 31 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 74 72 75 65	301.If.all.VALS.evaluate.to.true
110a0	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 6f 6e 64 69	,.bind.them.to.their.correspondi
110c0	6e 67 0a 56 41 52 53 20 61 6e 64 20 65 78 65 63 75 74 65 20 62 6f 64 79 2e 20 56 41 52 53 2d 56	ng.VARS.and.execute.body..VARS-V
110e0	41 4c 53 20 73 68 6f 75 6c 64 20 62 65 20 61 20 6c 69 73 74 20 6f 66 20 28 56 41 52 20 56 41 4c	ALS.should.be.a.list.of.(VAR.VAL
11100	29 0a 70 61 69 72 73 2e 0a 0a 4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64 6f 6e 65 20	).pairs...Note:.binding.is.done.
11120	61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 2d 6c 65 74 2a 27 2e 20 20 56 41 4c 53 20 61 72 65 20	according.to.`-let*'...VALS.are.
11140	65 76 61 6c 75 61 74 65 64 0a 73 65 71 75 65 6e 74 69 61 6c 6c 79 2c 20 61 6e 64 20 65 76 61 6c	evaluated.sequentially,.and.eval
11160	75 61 74 69 6f 6e 20 73 74 6f 70 73 20 61 66 74 65 72 20 74 68 65 20 66 69 72 73 74 20 6e 69 6c	uation.stops.after.the.first.nil
11180	20 56 41 4c 20 69 73 0a 65 6e 63 6f 75 6e 74 65 72 65 64 2e 0a 0a 28 66 6e 20 56 41 52 53 2d 56	.VAL.is.encountered...(fn.VARS-V
111a0	41 4c 53 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 77 68 65	ALS.&rest.BODY)..(defalias.'-whe
111c0	6e 2d 6c 65 74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 5c 33 30	n-let*.'(macro...#[385."\300.\30
111e0	31 03 42 45 5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 74 2a 20 70 72 6f 67 6e 5d 20 36 20 28 23 24	1.BE\207".[-if-let*.progn].6.(#$
11200	20 2e 20 36 39 37 36 34 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	...69764)])).(byte-code."\300\30
11220	31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c	1\302\303#\210\304\301\305\306#\
11240	32 30 37 22 20 5b 70 75 74 20 2d 77 68 65 6e 2d 6c 65 74 2a 20 65 64 65 62 75 67 2d 66 6f 72 6d	207".[put.-when-let*.edebug-form
11260	2d 73 70 65 63 20 28 28 26 72 65 73 74 20 28 73 65 78 70 20 66 6f 72 6d 29 29 20 62 6f 64 79 29	-spec.((&rest.(sexp.form)).body)
11280	20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69	.function-put.lisp-indent-functi
112a0	6f 6e 20 31 5d 20 34 29 0a 23 40 31 33 34 20 49 66 20 56 41 4c 20 65 76 61 6c 75 61 74 65 73 20	on.1].4).#@134.If.VAL.evaluates.
112c0	74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 62 69 6e 64 20 69 74 20 74 6f 20 56 41 52 20 61 6e 64 20 65	to.non-nil,.bind.it.to.VAR.and.e
112e0	78 65 63 75 74 65 20 62 6f 64 79 2e 0a 0a 4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64	xecute.body...Note:.binding.is.d
11300	6f 6e 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 2d 6c 65 74 27 2e 0a 0a 28 66 6e 20 28 56	one.according.to.`-let'...(fn.(V
11320	41 52 20 56 41 4c 29 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	AR.VAL).&rest.BODY)..(defalias.'
11340	2d 77 68 65 6e 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02	-when-let.'(macro...#[385."\300.
11360	5c 33 30 31 03 42 45 5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 74 20 70 72 6f 67 6e 5d 20 36 20 28	\301.BE\207".[-if-let.progn].6.(
11380	23 24 20 2e 20 37 30 33 31 39 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	#$...70319)])).(byte-code."\300\
113a0	33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36	301\302\303#\210\304\301\305\306
113c0	23 5c 32 30 37 22 20 5b 70 75 74 20 2d 77 68 65 6e 2d 6c 65 74 20 65 64 65 62 75 67 2d 66 6f 72	#\207".[put.-when-let.edebug-for
113e0	6d 2d 73 70 65 63 20 28 28 73 65 78 70 20 66 6f 72 6d 29 20 62 6f 64 79 29 20 66 75 6e 63 74 69	m-spec.((sexp.form).body).functi
11400	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
11420	29 0a 23 40 39 32 20 49 66 20 56 41 4c 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e	).#@92.If.VAL.evaluates.to.non-n
11440	69 6c 2c 20 62 69 6e 64 20 69 74 20 74 6f 20 73 79 6d 62 6f 6c 20 60 69 74 27 20 61 6e 64 0a 65	il,.bind.it.to.symbol.`it'.and.e
11460	78 65 63 75 74 65 20 62 6f 64 79 2e 0a 0a 28 66 6e 20 56 41 4c 20 26 72 65 73 74 20 42 4f 44 59	xecute.body...(fn.VAL.&rest.BODY
11480	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 77 68 65 6e 2d 6c 65 74 20 27 28 6d 61 63 72 6f	)..(defalias.'--when-let.'(macro
114a0	20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 5c 33 30 31 03 42 45 5c 32 30 37 22 20 5b 2d 2d 69	...#[385."\300.\301.BE\207".[--i
114c0	66 2d 6c 65 74 20 70 72 6f 67 6e 5d 20 36 20 28 23 24 20 2e 20 37 30 36 39 35 29 5d 29 29 0a 28	f-let.progn].6.(#$...70695)])).(
114e0	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
11500	5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 77 68	\304\301\305\306#\207".[put.--wh
11520	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 6f 72 6d 20 62 6f	en-let.edebug-form-spec.(form.bo
11540	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
11560	63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 39 31 20 54 65 73 74 73 20 66 6f 72 20 65 71 75 61	ction.1].4).#@191.Tests.for.equa
11580	6c 69 74 79 20 75 73 65 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 6f 72 20 60 65 71 75 61 6c	lity.use.this.function.or.`equal
115a0	27 20 69 66 20 74 68 69 73 20 69 73 20 6e 69 6c 2e 0a 49 74 20 73 68 6f 75 6c 64 20 6f 6e 6c 79	'.if.this.is.nil..It.should.only
115c0	20 62 65 20 73 65 74 20 75 73 69 6e 67 20 64 79 6e 61 6d 69 63 20 73 63 6f 70 65 20 77 69 74 68	.be.set.using.dynamic.scope.with
115e0	20 61 20 6c 65 74 2c 20 6c 69 6b 65 3a 0a 0a 20 20 28 6c 65 74 20 28 28 2d 63 6f 6d 70 61 72 65	.a.let,.like:....(let.((-compare
11600	2d 66 6e 20 23 5c 3d 27 3d 29 29 20 28 2d 75 6e 69 6f 6e 20 6e 75 6d 62 65 72 73 31 20 6e 75 6d	-fn.#\='=)).(-union.numbers1.num
11620	62 65 72 73 32 20 6e 75 6d 62 65 72 73 33 29 1f 0a 28 64 65 66 76 61 72 20 2d 63 6f 6d 70 61 72	bers2.numbers3)..(defvar.-compar
11640	65 2d 66 6e 20 6e 69 6c 20 28 23 24 20 2e 20 37 31 30 32 36 29 29 0a 23 40 31 36 30 20 52 65 74	e-fn.nil.(#$...71026)).#@160.Ret
11660	75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 61 6c 6c 20 64 75 70 6c 69 63 61 74	urn.a.new.list.with.all.duplicat
11680	65 73 20 72 65 6d 6f 76 65 64 2e 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20 65 71 75 61 6c 69 74	es.removed..The.test.for.equalit
116a0	79 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2c 0a 6f 72 20 77 69 74 68 20	y.is.done.with.`equal',.or.with.
116c0	60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 20 69 66 20 74 68 61 74 27 73 20 6e 6f 6e 2d 6e 69 6c 2e	`-compare-fn'.if.that's.non-nil.
116e0	0a 0a 41 6c 69 61 73 3a 20 60 2d 75 6e 69 71 27 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65	..Alias:.`-uniq'..(fn.LIST)..(de
11700	66 61 6c 69 61 73 20 27 2d 64 69 73 74 69 6e 63 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33	falias.'-distinct.#[257."\300.\3
11720	30 31 01 5c 32 30 33 21 00 01 40 5c 33 30 32 04 02 5c 22 5c 32 30 34 15 00 5c 32 31 31 04 42 5c	01.\203!..@\302..\"\204..\211.B\
11740	32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c	262.\210\211T\262..A\262.\202..\
11760	32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20 2d 63 6f 6e 74 61 69	266.\211\237\207".[nil.0.-contai
11780	6e 73 5c 3f 5d 20 38 20 28 23 24 20 2e 20 37 31 32 36 31 29 5d 29 0a 28 64 65 66 61 6c 69 61 73	ns\?].8.(#$...71261)]).(defalias
117a0	20 27 2d 75 6e 69 71 20 27 2d 64 69 73 74 69 6e 63 74 29 0a 23 40 31 39 37 20 52 65 74 75 72 6e	.'-uniq.'-distinct).#@197.Return
117c0	20 61 20 6e 65 77 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 65 6c 65 6d 65	.a.new.list.containing.the.eleme
117e0	6e 74 73 20 6f 66 20 4c 49 53 54 20 61 6e 64 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54	nts.of.LIST.and.elements.of.LIST
11800	32 20 74 68 61 74 20 61 72 65 20 6e 6f 74 20 69 6e 20 4c 49 53 54 2e 0a 54 68 65 20 74 65 73 74	2.that.are.not.in.LIST..The.test
11820	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 61	.for.equality.is.done.with.`equa
11840	6c 27 2c 0a 6f 72 20 77 69 74 68 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 20 69 66 20 74 68 61	l',.or.with.`-compare-fn'.if.tha
11860	74 27 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 4c 49 53 54 32 29 1f 0a 28	t's.non-nil...(fn.LIST.LIST2)..(
11880	64 65 66 61 6c 69 61 73 20 27 2d 75 6e 69 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 31 02 21 5c 33	defalias.'-union.#[514."\301.!\3
118a0	30 32 5c 33 30 30 21 5c 32 30 33 11 00 08 5c 32 30 33 11 00 08 5c 32 30 32 12 00 5c 33 30 33 5c	02\300!\203...\203...\202..\303\
118c0	32 31 31 18 5c 33 30 34 3e 5c 32 30 33 5f 00 5c 33 30 35 5c 33 30 36 08 5c 22 03 5c 33 30 37 01	211.\304>\203_.\305\306.\".\307.
118e0	5c 32 30 33 38 00 01 40 5c 33 31 30 01 5c 33 31 31 06 06 23 5c 32 36 36 02 5c 32 31 31 54 5c 32	\2038..@\310.\311..#\266.\211T\2
11900	36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 1f 00 5c 32 36 36 02 02 5c 33 30 37 01 5c 32 30 33 5a	62..A\262.\202..\266..\307.\203Z
11920	00 01 40 5c 33 31 32 01 05 5c 22 5c 32 30 34 4e 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 31 30	..@\312..\"\204N.\211.B\262.\210
11940	5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 3c 00 5c 32 36 36 03 5c 32 30 32	\211T\262..A\262.\202<.\266.\202
11960	5c 32 30 31 00 01 5c 33 30 37 01 5c 32 30 33 7f 00 01 40 5c 33 31 33 04 02 5c 22 5c 32 30 34 73	\201..\307.\203...@\313..\"\204s
11980	00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32	.\211.B\262.\210\211T\262..A\262
119a0	02 5c 32 30 32 61 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 29 5c 32 30 37 22 20 5b 2d 63 6f 6d	.\202a.\266.\211\237)\207".[-com
119c0	70 61 72 65 2d 66 6e 20 72 65 76 65 72 73 65 20 62 6f 75 6e 64 70 20 65 71 75 61 6c 20 28 65 71	pare-fn.reverse.boundp.equal.(eq
119e0	20 65 71 6c 20 65 71 75 61 6c 29 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73	.eql.equal).make-hash-table.:tes
11a00	74 20 30 20 70 75 74 68 61 73 68 20 74 20 67 65 74 68 61 73 68 20 2d 63 6f 6e 74 61 69 6e 73 5c	t.0.puthash.t.gethash.-contains\
11a20	3f 5d 20 31 32 20 28 23 24 20 2e 20 37 31 36 31 30 29 5d 29 0a 23 40 31 39 31 20 52 65 74 75 72	?].12.(#$...71610)]).#@191.Retur
11a40	6e 20 61 20 6e 65 77 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 6f 6e 6c 79 20 74 68 65	n.a.new.list.containing.only.the
11a60	20 65 6c 65 6d 65 6e 74 73 20 74 68 61 74 20 61 72 65 20 6d 65 6d 62 65 72 73 20 6f 66 20 62 6f	.elements.that.are.members.of.bo
11a80	74 68 20 4c 49 53 54 20 61 6e 64 20 4c 49 53 54 32 2e 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20	th.LIST.and.LIST2..The.test.for.
11aa0	65 71 75 61 6c 69 74 79 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2c 0a 6f	equality.is.done.with.`equal',.o
11ac0	72 20 77 69 74 68 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 20 69 66 20 74 68 61 74 27 73 20 6e	r.with.`-compare-fn'.if.that's.n
11ae0	6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c	on-nil...(fn.LIST.LIST2)..(defal
11b00	69 61 73 20 27 2d 69 6e 74 65 72 73 65 63 74 69 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c	ias.'-intersection.#[514."\300.\
11b20	33 30 31 01 5c 32 30 33 21 00 01 40 5c 33 30 32 05 02 5c 22 5c 32 30 33 15 00 5c 32 31 31 04 42	301.\203!..@\302..\"\203..\211.B
11b40	5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00	\262.\210\211T\262..A\262.\202..
11b60	5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20 2d 63 6f 6e 74 61	\266.\211\237\207".[nil.0.-conta
11b80	69 6e 73 5c 3f 5d 20 39 20 28 23 24 20 2e 20 37 32 32 35 31 29 5d 29 0a 23 40 31 37 34 20 52 65	ins\?].9.(#$...72251)]).#@174.Re
11ba0	74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 6f 6e 6c 79 20 74 68 65 20 6d 65	turn.a.new.list.with.only.the.me
11bc0	6d 62 65 72 73 20 6f 66 20 4c 49 53 54 20 74 68 61 74 20 61 72 65 20 6e 6f 74 20 69 6e 20 4c 49	mbers.of.LIST.that.are.not.in.LI
11be0	53 54 32 2e 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20 65 71 75 61 6c 69 74 79 20 69 73 20 64 6f	ST2..The.test.for.equality.is.do
11c00	6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2c 0a 6f 72 20 77 69 74 68 20 60 2d 63 6f 6d 70 61	ne.with.`equal',.or.with.`-compa
11c20	72 65 2d 66 6e 27 20 69 66 20 74 68 61 74 27 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 6e 20 4c	re-fn'.if.that's.non-nil...(fn.L
11c40	49 53 54 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 69 66 66 65 72 65 6e	IST.LIST2)..(defalias.'-differen
11c60	63 65 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 01 5c 32 30 33 21 00 01 40 5c 33 30 32	ce.#[514."\300.\301.\203!..@\302
11c80	05 02 5c 22 5c 32 30 34 15 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32	..\"\204..\211.B\262.\210\211T\2
11ca0	36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30	62..A\262.\202..\266.\211\237\20
11cc0	37 22 20 5b 6e 69 6c 20 30 20 2d 63 6f 6e 74 61 69 6e 73 5c 3f 5d 20 39 20 28 23 24 20 2e 20 37	7".[nil.0.-contains\?].9.(#$...7
11ce0	32 36 30 36 29 5d 29 0a 23 40 34 32 20 52 65 74 75 72 6e 20 74 68 65 20 70 6f 77 65 72 20 73 65	2606)]).#@42.Return.the.power.se
11d00	74 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73	t.of.LIST...(fn.LIST)..(defalias
11d20	20 27 2d 70 6f 77 65 72 73 65 74 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30	.'-powerset.#[257."\211\204..\30
11d40	30 5c 32 30 37 5c 33 30 31 01 41 21 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36	0\207\301.A!\302\303\304\305\306
11d60	5c 33 30 37 5c 33 31 30 06 08 21 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 03 5c 22 02 5c 22	\307\310..!\311\"\312\313%.\".\"
11d80	5c 32 30 37 22 20 5b 28 6e 69 6c 29 20 2d 70 6f 77 65 72 73 65 74 20 61 70 70 65 6e 64 20 6d 61	\207".[(nil).-powerset.append.ma
11da0	70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 40 01 42	pcar.make-byte-code.257."\300@.B
11dc0	5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28	\207".vconcat.vector.[].3."\n\n(
11de0	66 6e 20 58 29 22 5d 20 31 30 20 28 23 24 20 2e 20 37 32 39 34 31 29 5d 29 0a 23 40 34 35 20 52	fn.X)"].10.(#$...72941)]).#@45.R
11e00	65 74 75 72 6e 20 74 68 65 20 70 65 72 6d 75 74 61 74 69 6f 6e 73 20 6f 66 20 4c 49 53 54 2e 0a	eturn.the.permutations.of.LIST..
11e20	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 72 6d 75 74 61 74	.(fn.LIST)..(defalias.'-permutat
11e40	69 6f 6e 73 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33	ions.#[257."\211\204..\300\207\3
11e60	30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 08	01\302\303\304\305\306\307\310..
11e80	21 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 04 5c 22 5c 22 5c 32 30 37 22 20 5b 28 6e 69 6c	!\311\"\312\313%.\"\"\207".[(nil
11ea0	29 20 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d	).apply.append.mapcar.make-byte-
11ec0	63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33	code.257."\301\302\303\304\305\3
11ee0	30 36 06 06 21 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 5c 33 31 32 5c 33 31 33 04 5c 33 30	06..!\307\"\310\311%\312\313.\30
11f00	30 5c 22 21 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6d 61 70 63	0\"!\"\207".vconcat.vector.[mapc
11f20	61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 42 5c 32 30	ar.make-byte-code.257."\300.B\20
11f40	37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20	7".vconcat.vector.[].3."\n\n(fn.
11f60	50 45 52 4d 29 22 20 2d 70 65 72 6d 75 74 61 74 69 6f 6e 73 20 72 65 6d 6f 76 65 5d 20 38 20 22	PERM)".-permutations.remove].8."
11f80	5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 30 20 28 23 24 20 2e 20 37 33 32 31 35 29 5d 29 0a 23	\n\n(fn.X)"].10.(#$...73215)]).#
11fa0	40 34 31 20 52 65 74 75 72 6e 20 61 6c 6c 20 70 72 65 66 69 78 65 73 20 6f 66 20 4c 49 53 54 2e	@41.Return.all.prefixes.of.LIST.
11fc0	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 69 6e 69 74 73 20 23	..(fn.LIST)..(defalias.'-inits.#
11fe0	5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 32 33 37 21 5c 22 5c 32 33 37 5c 32	[257."\300\301\302.\237!\"\237\2
12000	30 37 22 20 5b 2d 6d 61 70 20 72 65 76 65 72 73 65 20 2d 74 61 69 6c 73 5d 20 35 20 28 23 24 20	07".[-map.reverse.-tails].5.(#$.
12020	2e 20 37 33 36 33 36 29 5d 29 0a 23 40 34 30 20 52 65 74 75 72 6e 20 61 6c 6c 20 73 75 66 66 69	..73636)]).#@40.Return.all.suffi
12040	78 65 73 20 6f 66 20 4c 49 53 54 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61	xes.of.LIST..(fn.LIST)..(defalia
12060	73 20 27 2d 74 61 69 6c 73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 23 5c	s.'-tails.#[257."\300\301\302.#\
12080	32 30 37 22 20 5b 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 20 63 6f 6e 73 20 6e 69	207".[-reductions-r-from.cons.ni
120a0	6c 5d 20 35 20 28 23 24 20 2e 20 37 33 37 37 36 29 5d 29 0a 23 40 36 32 20 52 65 74 75 72 6e 20	l].5.(#$...73776)]).#@62.Return.
120c0	74 68 65 20 6c 6f 6e 67 65 73 74 20 63 6f 6d 6d 6f 6e 20 70 72 65 66 69 78 20 6f 66 20 4c 49 53	the.longest.common.prefix.of.LIS
120e0	54 53 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73	TS...(fn.&rest.LISTS)..(defalias
12100	20 27 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 23 5b 31 32 38 20 22 5c 32 31 31 5c 32 31 31	.'-common-prefix.#[128."\211\211
12120	5c 32 30 33 62 00 5c 32 31 31 40 01 41 5c 33 30 30 01 5c 32 30 33 5a 00 01 40 5c 33 30 31 01 5c	\203b.\211@.A\300.\203Z..@\301.\
12140	33 30 32 5c 33 30 30 02 5c 32 30 33 46 00 01 5c 32 30 33 46 00 02 40 06 08 5c 32 30 33 2f 00 06	302\300.\203F..\203F..@..\203/..
12160	08 5c 32 31 31 41 5c 32 36 32 5c 6e 5c 32 34 32 01 5c 32 33 32 5c 32 30 34 35 00 5c 33 30 31 5c	.\211A\262\n\242.\232\2045.\301\
12180	32 36 32 03 5c 32 30 32 3a 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32	262.\202:.\211.B\262.\210\211T\2
121a0	36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 14 00 5c 32 36 36 03 5c 32 31 31 5c 32 33 37 5c 32 36	62..A\262.\202..\266.\211\237\26
121c0	32 01 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32	2.\262.\210\211T\262..A\262.\202
121e0	5c 6e 00 5c 32 36 36 02 5c 32 31 31 5c 32 36 32 01 5c 32 30 32 5c 32 34 32 00 5c 33 30 31 5c 32	\n.\266.\211\262.\202\242.\301\2
12200	31 31 5c 32 31 31 01 5c 33 30 32 5c 33 30 30 02 5c 32 30 33 5c 32 33 32 00 01 5c 32 30 33 5c 32	11\211.\302\300.\203\232..\203\2
12220	33 32 00 02 40 06 06 5c 32 30 33 5c 32 30 33 00 06 06 5c 32 31 31 41 5c 32 36 32 08 5c 32 34 32	32..@..\203\203...\211A\262.\242
12240	01 5c 32 33 32 5c 32 30 34 5c 32 31 31 00 5c 33 30 31 5c 32 36 32 03 5c 32 30 32 5c 32 31 36 00	.\232\204\211.\301\262.\202\216.
12260	5c 32 31 31 05 42 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03	\211.B\262.\210\211T\262..A\262.
12280	5c 32 30 32 68 00 5c 32 36 36 03 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 32 36 36 5c 32 30 32	\202h.\266.\211\237\262.\266\202
122a0	5c 32 30 37 22 20 5b 30 20 6e 69 6c 20 74 5d 20 31 33 20 28 23 24 20 2e 20 37 33 39 31 33 29 5d	\207".[0.nil.t].13.(#$...73913)]
122c0	29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	).(byte-code."\300\301\302\303#\
122e0	32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74	210\300\301\304\303#\207".[funct
12300	69 6f 6e 2d 70 75 74 20 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 70 75 72 65 20 74 20 73 69	ion-put.-common-prefix.pure.t.si
12320	64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 36 39 20 52 65 74 75 72 6e 20	de-effect-free].4).#@169.Return.
12340	6e 6f 6e 2d 6e 69 6c 20 69 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 45 4c 45 4d 45 4e 54	non-nil.if.LIST.contains.ELEMENT
12360	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 65	...The.test.for.equality.is.done
12380	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 65	.with.`equal',.or.with.`-compare
123a0	2d 66 6e 27 0a 69 66 20 74 68 61 74 27 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20	-fn'.if.that's.non-nil...Alias:.
123c0	60 2d 63 6f 6e 74 61 69 6e 73 2d 70 27 0a 0a 28 66 6e 20 4c 49 53 54 20 45 4c 45 4d 45 4e 54 29	`-contains-p'..(fn.LIST.ELEMENT)
123e0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 74 61 69 6e 73 5c 3f 20 23 5b 35 31 34 20 22	..(defalias.'-contains\?.#[514."
12400	08 5c 32 30 34 5c 6e 00 5c 32 31 31 02 5c 32 33 35 5c 32 30 32 3a 00 08 5c 33 30 31 3d 5c 32 30	.\204\n.\211.\235\202:..\301=\20
12420	33 16 00 5c 32 31 31 02 3e 5c 32 30 32 3a 00 08 5c 33 30 32 3d 5c 32 30 33 23 00 5c 33 30 33 01	3..\211.>\202:..\302=\203#.\303.
12440	03 5c 22 5c 32 30 32 3a 00 01 5c 32 31 31 5c 32 30 33 37 00 08 02 02 40 5c 22 5c 32 30 34 37 00	.\"\202:..\211\2037....@\"\2047.
12460	5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 24 00 5c 32 31 31 5c 32 36 32 01 3f 3f 5c 32 30 37 22	\211A\262.\202$.\211\262.??\207"
12480	20 5b 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 65 71 20 65 71 6c 20 6d 65 6d 71 6c 5d 20 36 20 28 23	.[-compare-fn.eq.eql.memql].6.(#
124a0	24 20 2e 20 37 34 35 35 33 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 74 61 69 6e	$...74553)]).(defalias.'-contain
124c0	73 2d 70 20 27 2d 63 6f 6e 74 61 69 6e 73 5c 3f 29 0a 23 40 31 34 39 20 52 65 74 75 72 6e 20 74	s-p.'-contains\?).#@149.Return.t
124e0	72 75 65 20 69 66 20 4c 49 53 54 20 61 6e 64 20 4c 49 53 54 32 20 68 61 73 20 74 68 65 20 73 61	rue.if.LIST.and.LIST2.has.the.sa
12500	6d 65 20 69 74 65 6d 73 2e 0a 0a 54 68 65 20 6f 72 64 65 72 20 6f 66 20 74 68 65 20 65 6c 65 6d	me.items...The.order.of.the.elem
12520	65 6e 74 73 20 69 6e 20 74 68 65 20 6c 69 73 74 73 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 74 65	ents.in.the.lists.does.not.matte
12540	72 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 73 61 6d 65 2d 69 74 65 6d 73 2d 70 27 0a 0a 28 66 6e 20	r...Alias:.`-same-items-p'..(fn.
12560	4c 49 53 54 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 61 6d 65 2d 69 74	LIST.LIST2)..(defalias.'-same-it
12580	65 6d 73 5c 3f 20 23 5b 35 31 34 20 22 01 47 01 47 01 01 55 5c 32 30 35 11 00 01 5c 33 30 30 05	ems\?.#[514.".G.G..U\205...\300.
125a0	05 5c 22 47 55 5c 32 30 37 22 20 5b 2d 69 6e 74 65 72 73 65 63 74 69 6f 6e 5d 20 38 20 28 23 24	.\"GU\207".[-intersection].8.(#$
125c0	20 2e 20 37 34 39 36 38 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 61 6d 65 2d 69 74 65	...74968)]).(defalias.'-same-ite
125e0	6d 73 2d 70 20 27 2d 73 61 6d 65 2d 69 74 65 6d 73 5c 3f 29 0a 23 40 38 36 20 52 65 74 75 72 6e	ms-p.'-same-items\?).#@86.Return
12600	20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 50 52 45 46 49 58 20 69 73 20 70 72 65 66 69 78 20 6f 66 20	.non-nil.if.PREFIX.is.prefix.of.
12620	4c 49 53 54 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 69 73 2d 70 72 65 66 69 78 2d 70 27 0a 0a 28 66	LIST...Alias:.`-is-prefix-p'..(f
12640	6e 20 50 52 45 46 49 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 73 2d 70	n.PREFIX.LIST)..(defalias.'-is-p
12660	72 65 66 69 78 5c 3f 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	refix\?.#[514."\211\300\301.\203
12680	2a 00 01 5c 32 30 33 2a 00 02 40 05 40 01 5c 32 33 32 5c 32 30 34 1a 00 5c 33 30 32 5c 32 36 32	*..\203*..@.@.\232\204..\302\262
126a0	03 5c 32 30 32 1e 00 05 41 5c 32 36 32 06 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32	.\202...A\262.\210\211T\262..A\2
126c0	36 32 03 5c 32 30 32 03 00 5c 32 36 36 03 01 3f 5c 32 30 37 22 20 5b 74 20 30 20 6e 69 6c 5d 20	62.\202..\266..?\207".[t.0.nil].
126e0	38 20 28 23 24 20 2e 20 37 35 32 35 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	8.(#$...75258)]).(byte-code."\30
12700	30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33	0\301\302\303#\210\300\301\304\3
12720	30 33 23 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	03#\207".[function-put.-is-prefi
12740	78 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a	x\?.pure.t.side-effect-free].4).
12760	23 40 38 36 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 53 55 46 46 49 58 20 69 73	#@86.Return.non-nil.if.SUFFIX.is
12780	20 73 75 66 66 69 78 20 6f 66 20 4c 49 53 54 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 69 73 2d 73 75	.suffix.of.LIST...Alias:.`-is-su
127a0	66 66 69 78 2d 70 27 0a 0a 28 66 6e 20 53 55 46 46 49 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61	ffix-p'..(fn.SUFFIX.LIST)..(defa
127c0	6c 69 61 73 20 27 2d 69 73 2d 73 75 66 66 69 78 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33	lias.'-is-suffix\?.#[514."\300\3
127e0	30 31 03 21 5c 33 30 31 03 21 5c 22 5c 32 30 37 22 20 5b 2d 69 73 2d 70 72 65 66 69 78 5c 3f 20	01.!\301.!\"\207".[-is-prefix\?.
12800	72 65 76 65 72 73 65 5d 20 36 20 28 23 24 20 2e 20 37 35 36 32 31 29 5d 29 0a 28 62 79 74 65 2d	reverse].6.(#$...75621)]).(byte-
12820	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c	code."\300\301\302\303#\210\300\
12840	33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20	301\304\303#\207".[function-put.
12860	2d 69 73 2d 73 75 66 66 69 78 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d	-is-suffix\?.pure.t.side-effect-
12880	66 72 65 65 5d 20 34 29 0a 23 40 31 31 38 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66	free].4).#@118.Return.non-nil.if
128a0	20 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	.INFIX.is.infix.of.LIST...This.o
128c0	70 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	peration.runs.in.O(n^2).time..Al
128e0	69 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	ias:.`-is-infix-p'..(fn.INFIX.LI
12900	53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 73 2d 69 6e 66 69 78 5c 3f 20 23 5b 35 31	ST)..(defalias.'-is-infix\?.#[51
12920	34 20 22 5c 33 30 30 5c 32 31 31 5c 32 30 34 16 00 01 5c 32 30 33 16 00 5c 33 30 31 03 03 5c 22	4."\300\211\204...\203..\301..\"
12940	5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 01 00 5c 32 31 31 5c 32 30 37 22 20 5b 6e 69 6c	\262..A\262.\202..\211\207".[nil
12960	20 2d 69 73 2d 70 72 65 66 69 78 5c 3f 5d 20 36 20 28 23 24 20 2e 20 37 35 39 31 39 29 5d 29 0a	.-is-prefix\?].6.(#$...75919)]).
12980	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 31	(byte-code."\300\301\302\303#\21
129a0	30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33	0\300\301\304\303#\210\305\306\3
129c0	30 37 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31 30 5c 33 31 31 5c 22 5c 32 31 30 5c 33 30 35 5c 33	07\"\210\305\310\311\"\210\305\3
129e0	31 32 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 69 73 2d	12\301\"\207".[function-put.-is-
12a00	69 6e 66 69 78 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20	infix\?.pure.t.side-effect-free.
12a20	64 65 66 61 6c 69 61 73 20 2d 69 73 2d 70 72 65 66 69 78 2d 70 20 2d 69 73 2d 70 72 65 66 69 78	defalias.-is-prefix-p.-is-prefix
12a40	5c 3f 20 2d 69 73 2d 73 75 66 66 69 78 2d 70 20 2d 69 73 2d 73 75 66 66 69 78 5c 3f 20 2d 69 73	\?.-is-suffix-p.-is-suffix\?.-is
12a60	2d 69 6e 66 69 78 2d 70 5d 20 34 29 0a 23 40 32 36 38 20 53 6f 72 74 20 4c 49 53 54 2c 20 73 74	-infix-p].4).#@268.Sort.LIST,.st
12a80	61 62 6c 79 2c 20 63 6f 6d 70 61 72 69 6e 67 20 65 6c 65 6d 65 6e 74 73 20 75 73 69 6e 67 20 43	ably,.comparing.elements.using.C
12aa0	4f 4d 50 41 52 41 54 4f 52 2e 0a 52 65 74 75 72 6e 20 74 68 65 20 73 6f 72 74 65 64 20 6c 69 73	OMPARATOR..Return.the.sorted.lis
12ac0	74 2e 20 20 4c 49 53 54 20 69 73 20 4e 4f 54 20 6d 6f 64 69 66 69 65 64 20 62 79 20 73 69 64 65	t...LIST.is.NOT.modified.by.side
12ae0	20 65 66 66 65 63 74 73 2e 0a 43 4f 4d 50 41 52 41 54 4f 52 20 69 73 20 63 61 6c 6c 65 64 20 77	.effects..COMPARATOR.is.called.w
12b00	69 74 68 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 2c 20 61 6e 64 20 73 68	ith.two.elements.of.LIST,.and.sh
12b20	6f 75 6c 64 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 0a 69 66 20 74 68 65 20 66 69 72 73 74	ould.return.non-nil.if.the.first
12b40	20 65 6c 65 6d 65 6e 74 20 73 68 6f 75 6c 64 20 73 6f 72 74 20 62 65 66 6f 72 65 20 74 68 65 20	.element.should.sort.before.the.
12b60	73 65 63 6f 6e 64 2e 0a 0a 28 66 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20 4c 49 53 54 29 1f 0a 28	second...(fn.COMPARATOR.LIST)..(
12b80	64 65 66 61 6c 69 61 73 20 27 2d 73 6f 72 74 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02	defalias.'-sort.#[514."\300\301.
12ba0	21 03 5c 22 5c 32 30 37 22 20 5b 73 6f 72 74 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 5d 20 35	!.\"\207".[sort.copy-sequence].5
12bc0	20 28 23 24 20 2e 20 37 36 34 30 33 29 5d 29 0a 23 40 34 34 20 41 6e 61 70 68 6f 72 69 63 20 66	.(#$...76403)]).#@44.Anaphoric.f
12be0	6f 72 6d 20 6f 66 20 60 2d 73 6f 72 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f	orm.of.`-sort'...(fn.FORM.LIST).
12c00	0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 6f 72 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35	.(defalias.'--sort.'(macro...#[5
12c20	31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 73 6f 72 74	14."\300\301\302.E.E\207".[-sort
12c40	20 6c 61 6d 62 64 61 20 28 69 74 20 6f 74 68 65 72 29 5d 20 36 20 28 23 24 20 2e 20 37 36 37 35	.lambda.(it.other)].6.(#$...7675
12c60	37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 6f 72 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d	7)])).(put.'--sort.'edebug-form-
12c80	73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 35 31 20 52 65 74 75 72 6e 20	spec.'(form.form)).#@151.Return.
12ca0	61 20 6c 69 73 74 20 77 69 74 68 20 41 52 47 53 2e 0a 0a 49 66 20 66 69 72 73 74 20 69 74 65 6d	a.list.with.ARGS...If.first.item
12cc0	20 6f 66 20 41 52 47 53 20 69 73 20 61 6c 72 65 61 64 79 20 61 20 6c 69 73 74 2c 20 73 69 6d 70	.of.ARGS.is.already.a.list,.simp
12ce0	6c 79 20 72 65 74 75 72 6e 20 41 52 47 53 2e 20 20 49 66 0a 6e 6f 74 2c 20 72 65 74 75 72 6e 20	ly.return.ARGS...If.not,.return.
12d00	61 20 6c 69 73 74 20 77 69 74 68 20 41 52 47 53 20 61 73 20 65 6c 65 6d 65 6e 74 73 2e 0a 0a 28	a.list.with.ARGS.as.elements...(
12d20	66 6e 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 69 73 74	fn.&rest.ARGS)..(defalias.'-list
12d40	20 23 5b 31 32 38 20 22 5c 32 31 31 40 5c 32 31 31 3c 5c 32 30 33 0b 00 5c 32 31 31 5c 32 30 32	.#[128."\211@\211<\203..\211\202
12d60	5c 66 00 01 5c 32 30 37 22 20 5b 5d 20 33 20 28 23 24 20 2e 20 37 36 39 35 33 29 5d 29 0a 28 62	\f..\207".[].3.(#$...76953)]).(b
12d80	79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c	yte-code."\300\301\302\303#\210\
12da0	33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d	300\301\304\303#\207".[function-
12dc0	70 75 74 20 2d 6c 69 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65	put.-list.pure.t.side-effect-fre
12de0	65 5d 20 34 29 0a 23 40 38 32 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 58 20	e].4).#@82.Return.a.list.with.X.
12e00	72 65 70 65 61 74 65 64 20 4e 20 74 69 6d 65 73 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20	repeated.N.times..Return.nil.if.
12e20	4e 20 69 73 20 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 64 65	N.is.less.than.1...(fn.N.X)..(de
12e40	66 61 6c 69 61 73 20 27 2d 72 65 70 65 61 74 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31	falias.'-repeat.#[514."\300.\301
12e60	5c 32 31 31 02 57 5c 32 30 33 15 00 03 03 42 5c 32 36 32 03 5c 32 31 31 54 5c 32 36 32 01 5c 32	\211.W\203....B\262.\211T\262.\2
12e80	30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 37 20 28 23 24	02..\266.\211\207".[nil.0].7.(#$
12ea0	20 2e 20 37 37 32 39 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	...77291)]).(byte-code."\300\301
12ec0	5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32	\302\303#\210\300\301\304\303#\2
12ee0	30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 70 65 61 74 20 70 75 72 65 20 74	07".[function-put.-repeat.pure.t
12f00	20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 33 36 20 52 65 74 75 72	.side-effect-free].4).#@36.Retur
12f20	6e 20 74 68 65 20 73 75 6d 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28	n.the.sum.of.LIST...(fn.LIST)..(
12f40	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 31 02 5c	defalias.'-sum.#[257."\300\301.\
12f60	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 37 37 35 39 35 29 5d	"\207".[apply.+].4.(#$...77595)]
12f80	29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	).(byte-code."\300\301\302\303#\
12fa0	32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74	210\300\301\304\303#\207".[funct
12fc0	69 6f 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	ion-put.-sum.pure.t.side-effect-
12fe0	66 72 65 65 5d 20 34 29 0a 23 40 38 37 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68	free].4).#@87.Return.a.list.with
13000	20 72 75 6e 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	.running.sums.of.items.in.LIST..
13020	0a 4c 49 53 54 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	.LIST.must.be.non-empty...(fn.LI
13040	53 54 29 1f 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 5b 32	ST)..(defalias.'-running-sum.#[2
13060	35 37 20 22 5c 32 31 31 3a 5c 32 30 34 09 00 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 32	57."\211:\204..\300\301!\210\302
13080	5c 33 30 33 02 5c 22 5c 32 30 37 22 20 5b 65 72 72 6f 72 20 22 4c 49 53 54 20 6d 75 73 74 20 62	\303.\"\207".[error."LIST.must.b
130a0	65 20 6e 6f 6e 2d 65 6d 70 74 79 22 20 2d 72 65 64 75 63 74 69 6f 6e 73 20 2b 5d 20 34 20 28 23	e.non-empty".-reductions.+].4.(#
130c0	24 20 2e 20 37 37 38 30 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	$...77806)]).(byte-code."\300\30
130e0	31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c	1\302\303#\210\300\301\304\303#\
13100	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 75 6e 6e 69 6e 67 2d 73 75 6d 20	207".[function-put.-running-sum.
13120	70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 34 30	pure.t.side-effect-free].4).#@40
13140	20 52 65 74 75 72 6e 20 74 68 65 20 70 72 6f 64 75 63 74 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66	.Return.the.product.of.LIST...(f
13160	6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 72 6f 64 75 63 74 20 23 5b 32	n.LIST)..(defalias.'-product.#[2
13180	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 2a 5d 20 34	57."\300\301.\"\207".[apply.*].4
131a0	20 28 23 24 20 2e 20 37 38 31 34 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	.(#$...78145)]).(byte-code."\300
131c0	5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30	\301\302\303#\210\300\301\304\30
131e0	33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 70 72 6f 64 75 63 74 20 70	3#\207".[function-put.-product.p
13200	75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 39 31 20	ure.t.side-effect-free].4).#@91.
13220	52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 72 75 6e 6e 69 6e 67 20 70 72 6f 64 75	Return.a.list.with.running.produ
13240	63 74 73 20 6f 66 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 0a 4c 49 53 54 20 6d 75 73 74	cts.of.items.in.LIST...LIST.must
13260	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 28 64 65 66 61	.be.non-empty...(fn.LIST)..(defa
13280	6c 69 61 73 20 27 2d 72 75 6e 6e 69 6e 67 2d 70 72 6f 64 75 63 74 20 23 5b 32 35 37 20 22 5c 32	lias.'-running-product.#[257."\2
132a0	31 31 3a 5c 32 30 34 09 00 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 32 5c 33 30 33 02 5c	11:\204..\300\301!\210\302\303.\
132c0	22 5c 32 30 37 22 20 5b 65 72 72 6f 72 20 22 4c 49 53 54 20 6d 75 73 74 20 62 65 20 6e 6f 6e 2d	"\207".[error."LIST.must.be.non-
132e0	65 6d 70 74 79 22 20 2d 72 65 64 75 63 74 69 6f 6e 73 20 2a 5d 20 34 20 28 23 24 20 2e 20 37 38	empty".-reductions.*].4.(#$...78
13300	33 36 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	368)]).(byte-code."\300\301\302\
13320	33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b	303#\210\300\301\304\303#\207".[
13340	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 75 6e 6e 69 6e 67 2d 70 72 6f 64 75 63 74 20 70 75	function-put.-running-product.pu
13360	72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 37 30 20 52	re.t.side-effect-free].4).#@70.R
13380	65 74 75 72 6e 20 74 68 65 20 6c 61 72 67 65 73 74 20 76 61 6c 75 65 20 66 72 6f 6d 20 4c 49 53	eturn.the.largest.value.from.LIS
133a0	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 4c 49	T.of.numbers.or.markers...(fn.LI
133c0	53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 78 20 23 5b 32 35 37 20 22 5c 33 30 30	ST)..(defalias.'-max.#[257."\300
133e0	5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 6d 61 78 5d 20 34 20 28 23 24 20 2e	\301.\"\207".[apply.max].4.(#$..
13400	20 37 38 37 31 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	.78719)]).(byte-code."\300\301\3
13420	30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37	02\303#\210\300\301\304\303#\207
13440	22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6d 61 78 20 70 75 72 65 20 74 20 73 69 64 65	".[function-put.-max.pure.t.side
13460	2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 37 31 20 52 65 74 75 72 6e 20 74 68 65	-effect-free].4).#@71.Return.the
13480	20 73 6d 61 6c 6c 65 73 74 20 76 61 6c 75 65 20 66 72 6f 6d 20 4c 49 53 54 20 6f 66 20 6e 75 6d	.smallest.value.from.LIST.of.num
134a0	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 29 1f 0a 28 64 65	bers.or.markers...(fn.LIST)..(de
134c0	66 61 6c 69 61 73 20 27 2d 6d 69 6e 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c	falias.'-min.#[257."\300\301.\"\
134e0	32 30 37 22 20 5b 61 70 70 6c 79 20 6d 69 6e 5d 20 34 20 28 23 24 20 2e 20 37 38 39 36 36 29 5d	207".[apply.min].4.(#$...78966)]
13500	29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	).(byte-code."\300\301\302\303#\
13520	32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74	210\300\301\304\303#\207".[funct
13540	69 6f 6e 2d 70 75 74 20 2d 6d 69 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d	ion-put.-min.pure.t.side-effect-
13560	66 72 65 65 5d 20 34 29 0a 23 40 32 32 35 20 54 61 6b 65 20 61 20 63 6f 6d 70 61 72 69 73 6f 6e	free].4).#@225.Take.a.comparison
13580	20 66 75 6e 63 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	.function.COMPARATOR.and.a.LIST.
135a0	61 6e 64 20 72 65 74 75 72 6e 0a 74 68 65 20 67 72 65 61 74 65 73 74 20 65 6c 65 6d 65 6e 74 20	and.return.the.greatest.element.
135c0	6f 66 20 74 68 65 20 6c 69 73 74 20 62 79 20 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 66 75	of.the.list.by.the.comparison.fu
135e0	6e 63 74 69 6f 6e 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 63 6f 6d 62 69 6e 61 74 6f 72 20 60 2d 6f	nction...See.also.combinator.`-o
13600	6e 27 20 77 68 69 63 68 20 63 61 6e 20 74 72 61 6e 73 66 6f 72 6d 20 74 68 65 20 76 61 6c 75 65	n'.which.can.transform.the.value
13620	73 20 62 65 66 6f 72 65 0a 63 6f 6d 70 61 72 69 6e 67 20 74 68 65 6d 2e 0a 0a 28 66 6e 20 43 4f	s.before.comparing.them...(fn.CO
13640	4d 50 41 52 41 54 4f 52 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 78 2d	MPARATOR.LIST)..(defalias.'-max-
13660	62 79 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 31 31 5c 32 30 33 33 00 5c 32 31 31 40 01 41 5c	by.#[514."\211\211\2033.\211@.A\
13680	33 30 30 01 5c 32 30 33 2b 00 01 40 06 06 01 05 5c 22 5c 32 30 33 1c 00 5c 32 31 31 5c 32 30 32	300.\203+..@....\"\203..\211\202
136a0	1d 00 03 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30	...\262.\210\211T\262..A\262.\20
136c0	32 5c 6e 00 5c 32 36 36 02 5c 32 31 31 5c 32 36 32 01 5c 32 30 32 43 00 5c 33 30 31 5c 32 31 31	2\n.\266.\211\262.\202C.\301\211
136e0	04 01 03 5c 22 5c 32 30 33 40 00 5c 32 31 31 5c 32 30 32 41 00 01 5c 32 36 36 5c 32 30 32 5c 32	...\"\203@.\211\202A..\266\202\2
13700	30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 37 39 32 31 35 29 5d 29 0a 23 40	07".[0.nil].10.(#$...79215)]).#@
13720	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 74 69 6f 6e 20 43	222.Take.a.comparison.function.C
13740	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 65 74 75 72 6e 0a	OMPARATOR.and.a.LIST.and.return.
13760	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 69 73 74 20 62 79	the.least.element.of.the.list.by
13780	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 0a 53 65 65 20 61	.the.comparison.function...See.a
137a0	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 20 63 61 6e 20 74	lso.combinator.`-on'.which.can.t
137c0	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 0a 63 6f 6d 70 61	ransform.the.values.before.compa
137e0	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 20 4c 49 53 54 29	ring.them...(fn.COMPARATOR.LIST)
13800	1f 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
13820	5c 32 31 31 5c 32 30 33 33 00 5c 32 31 31 40 01 41 5c 33 30 30 01 5c 32 30 33 2b 00 01 40 06 06	\211\2033.\211@.A\300.\203+..@..
13840	01 05 5c 22 5c 32 30 33 1c 00 03 5c 32 30 32 1d 00 5c 32 31 31 5c 32 36 32 04 5c 32 31 30 5c 32	..\"\203...\202..\211\262.\210\2
13860	31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 5c 6e 00 5c 32 36 36 02 5c 32 31 31 5c	11T\262..A\262.\202\n.\266.\211\
13880	32 36 32 01 5c 32 30 32 43 00 5c 33 30 31 5c 32 31 31 04 01 03 5c 22 5c 32 30 33 40 00 01 5c 32	262.\202C.\301\211...\"\203@..\2
138a0	30 32 41 00 5c 32 31 31 5c 32 36 36 5c 32 30 32 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 30	02A.\211\266\202\207".[0.nil].10
138c0	20 28 23 24 20 2e 20 37 39 36 35 32 29 5d 29 0a 23 40 31 31 37 20 41 6e 61 70 68 6f 72 69 63 20	.(#$...79652)]).#@117.Anaphoric.
138e0	76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 6d 61 78 2d 62 79 27 2e 0a 0a 54 68 65 20 69 74 65 6d 73	version.of.`-max-by'...The.items
13900	20 66 6f 72 20 74 68 65 20 63 6f 6d 70 61 72 61 74 6f 72 20 66 6f 72 6d 20 61 72 65 20 65 78 70	.for.the.comparator.form.are.exp
13920	6f 73 65 64 20 61 73 20 22 69 74 22 20 61 6e 64 20 22 6f 74 68 65 72 22 2e 0a 0a 28 66 6e 20 46	osed.as."it".and."other"...(fn.F
13940	4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 78 2d 62 79 20 27	ORM.LIST)..(defalias.'--max-by.'
13960	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 04 45 02 45	(macro...#[514."\300\301\302.E.E
13980	5c 32 30 37 22 20 5b 2d 6d 61 78 2d 62 79 20 6c 61 6d 62 64 61 20 28 69 74 20 6f 74 68 65 72 29	\207".[-max-by.lambda.(it.other)
139a0	5d 20 36 20 28 23 24 20 2e 20 38 30 30 38 36 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 78 2d	].6.(#$...80086)])).(put.'--max-
139c0	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 6d	by.'edebug-form-spec.'(form.form
139e0	29 29 0a 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 60 2d	)).#@117.Anaphoric.version.of.`-
13a00	6d 69 6e 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 6d 70	min-by'...The.items.for.the.comp
13a20	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 22 20	arator.form.are.exposed.as."it".
13a40	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 28 64	and."other"...(fn.FORM.LIST)..(d
13a60	65 66 61 6c 69 61 73 20 27 2d 2d 6d 69 6e 2d 62 79 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31	efalias.'--min-by.'(macro...#[51
13a80	34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 6d 69 6e 2d 62	4."\300\301\302.E.E\207".[-min-b
13aa0	79 20 6c 61 6d 62 64 61 20 28 69 74 20 6f 74 68 65 72 29 5d 20 36 20 28 23 24 20 2e 20 38 30 33	y.lambda.(it.other)].6.(#$...803
13ac0	36 31 29 5d 29 29 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	61)])).(put.'--min-by.'edebug-fo
13ae0	72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 38 32 20 52 65 74 75	rm-spec.'(form.form)).#@182.Retu
13b00	72 6e 20 61 20 6c 69 73 74 20 6f 66 20 69 74 65 72 61 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f	rn.a.list.of.iterated.applicatio
13b20	6e 73 20 6f 66 20 46 55 4e 20 74 6f 20 49 4e 49 54 2e 0a 0a 54 68 69 73 20 6d 65 61 6e 73 20 61	ns.of.FUN.to.INIT...This.means.a
13b40	20 6c 69 73 74 20 6f 66 20 66 6f 72 6d 3a 0a 0a 20 20 28 69 6e 69 74 20 28 66 75 6e 20 69 6e 69	.list.of.form:....(init.(fun.ini
13b60	74 29 20 28 66 75 6e 20 28 66 75 6e 20 69 6e 69 74 29 29 20 2e 2e 2e 29 0a 0a 4e 20 69 73 20 74	t).(fun.(fun.init))....)..N.is.t
13b80	68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 6c 69 73 74 2e 0a	he.length.of.the.returned.list..
13ba0	0a 28 66 6e 20 46 55 4e 20 49 4e 49 54 20 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 74	.(fn.FUN.INIT.N)..(defalias.'-it
13bc0	65 72 61 74 65 20 23 5b 37 37 31 20 22 5c 32 31 31 5c 33 30 30 55 3f 5c 32 30 35 27 00 01 43 01	erate.#[771."\211\300U?\205'..C.
13be0	53 5c 33 30 30 5c 32 31 31 02 57 5c 32 30 33 21 00 05 03 40 21 03 42 5c 32 36 32 03 5c 32 31 31	S\300\211.W\203!...@!.B\262.\211
13c00	54 5c 32 36 32 01 5c 32 30 32 5c 66 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c	T\262.\202\f.\266.\211\237\262.\
13c20	32 30 37 22 20 5b 30 5d 20 38 20 28 23 24 20 2e 20 38 30 36 33 36 29 5d 29 0a 23 40 31 33 39 20	207".[0].8.(#$...80636)]).#@139.
13c40	43 6f 6d 70 75 74 65 20 74 68 65 20 28 6c 65 61 73 74 29 20 66 69 78 70 6f 69 6e 74 20 6f 66 20	Compute.the.(least).fixpoint.of.
13c60	46 4e 20 77 69 74 68 20 69 6e 69 74 69 61 6c 20 69 6e 70 75 74 20 4c 49 53 54 2e 0a 0a 46 4e 20	FN.with.initial.input.LIST...FN.
13c80	69 73 20 63 61 6c 6c 65 64 20 61 74 20 6c 65 61 73 74 20 6f 6e 63 65 2c 20 72 65 73 75 6c 74 73	is.called.at.least.once,.results
13ca0	20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 77 69 74 68 20 60 65 71 75 61 6c 27 2e 0a 0a 28 66 6e	.are.compared.with.`equal'...(fn
13cc0	20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 78 20 23 5b 35 31 34	.FN.LIST)..(defalias.'-fix.#[514
13ce0	20 22 01 01 21 01 01 5c 32 33 32 5c 32 30 34 14 00 5c 32 31 31 5c 32 36 32 02 02 01 21 5c 32 36	."..!..\232\204..\211\262...!\26
13d00	32 01 5c 32 30 32 03 00 5c 32 31 31 5c 32 30 37 22 20 5b 5d 20 35 20 28 23 24 20 2e 20 38 30 39	2.\202..\211\207".[].5.(#$...809
13d20	36 30 29 5d 29 0a 23 40 34 33 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 66	60)]).#@43.Anaphoric.form.of.`-f
13d40	69 78 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	ix'...(fn.FORM.LIST)..(defalias.
13d60	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 30 31	'--fix.'(macro...#[514."\300\301
13d80	5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 66 69 78 20 6c 61 6d 62 64 61 20 28 69 74 29 5d	\302.E.E\207".[-fix.lambda.(it)]
13da0	20 36 20 28 23 24 20 2e 20 38 31 31 39 35 29 5d 29 29 0a 23 40 33 36 32 20 42 75 69 6c 64 20 61	.6.(#$...81195)])).#@362.Build.a
13dc0	20 6c 69 73 74 20 66 72 6f 6d 20 53 45 45 44 20 75 73 69 6e 67 20 46 55 4e 2e 0a 0a 54 68 69 73	.list.from.SEED.using.FUN...This
13de0	20 69 73 20 22 64 75 61 6c 22 20 6f 70 65 72 61 74 69 6f 6e 20 74 6f 20 60 2d 72 65 64 75 63 65	.is."dual".operation.to.`-reduce
13e00	2d 72 27 3a 20 77 68 69 6c 65 20 2d 72 65 64 75 63 65 2d 72 0a 63 6f 6e 73 75 6d 65 73 20 61 20	-r':.while.-reduce-r.consumes.a.
13e20	6c 69 73 74 20 74 6f 20 70 72 6f 64 75 63 65 20 61 20 73 69 6e 67 6c 65 20 76 61 6c 75 65 2c 20	list.to.produce.a.single.value,.
13e40	60 2d 75 6e 66 6f 6c 64 27 20 74 61 6b 65 73 20 61 0a 73 65 65 64 20 76 61 6c 75 65 20 61 6e 64	`-unfold'.takes.a.seed.value.and
13e60	20 62 75 69 6c 64 73 20 61 20 28 70 6f 74 65 6e 74 69 61 6c 6c 79 20 69 6e 66 69 6e 69 74 65 21	.builds.a.(potentially.infinite!
13e80	29 20 6c 69 73 74 2e 0a 0a 46 55 4e 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 60 6e 69 6c 27	).list...FUN.should.return.`nil'
13ea0	20 74 6f 20 73 74 6f 70 20 74 68 65 20 67 65 6e 65 72 61 74 69 6e 67 20 70 72 6f 63 65 73 73 2c	.to.stop.the.generating.process,
13ec0	20 6f 72 20 61 0a 63 6f 6e 73 20 28 41 20 2e 20 42 29 2c 20 77 68 65 72 65 20 41 20 77 69 6c 6c	.or.a.cons.(A...B),.where.A.will
13ee0	20 62 65 20 70 72 65 70 65 6e 64 65 64 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 20 61 6e 64 20	.be.prepended.to.the.result.and.
13f00	42 20 69 73 0a 74 68 65 20 6e 65 77 20 73 65 65 64 2e 0a 0a 28 66 6e 20 46 55 4e 20 53 45 45 44	B.is.the.new.seed...(fn.FUN.SEED
13f20	29 1f 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."..!
13f40	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
13f60	32 04 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 38	2..\211\237\207".[nil].6.(#$...8
13f80	31 33 33 37 29 5d 29 0a 23 40 34 39 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f	1337)]).#@49.Anaphoric.version.o
13fa0	66 20 60 2d 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 64	f.`-unfold'...(fn.FORM.SEED)..(d
13fc0	65 66 61 6c 69 61 73 20 27 2d 2d 75 6e 66 6f 6c 64 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31	efalias.'--unfold.'(macro...#[51
13fe0	34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 75 6e 66 6f 6c	4."\300\301\302.E.E\207".[-unfol
14000	64 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 38 31 38 30 35 29 5d 29 29	d.lambda.(it)].6.(#$...81805)]))
14020	0a 28 70 75 74 20 27 2d 2d 75 6e 66 6f 6c 64 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65	.(put.'--unfold.'edebug-form-spe
14040	63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 39 31 20 52 65 74 75 72 6e 20 6e 6f 6e 2d	c.'(form.form)).#@91.Return.non-
14060	6e 69 6c 20 69 66 20 43 4f 4e 20 69 73 20 74 72 75 65 20 63 6f 6e 73 20 70 61 69 72 2e 0a 54 68	nil.if.CON.is.true.cons.pair..Th
14080	61 74 20 69 73 20 28 41 20 2e 20 42 29 20 77 68 65 72 65 20 42 20 69 73 20 6e 6f 74 20 61 20 6c	at.is.(A...B).where.B.is.not.a.l
140a0	69 73 74 2e 0a 0a 28 66 6e 20 43 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73	ist...(fn.CON)..(defalias.'-cons
140c0	2d 70 61 69 72 5c 3f 20 23 5b 32 35 37 20 22 5c 32 31 31 3c 5c 32 30 35 09 00 5c 32 31 31 41 3c	-pair\?.#[257."\211<\205..\211A<
140e0	3f 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 38 32 30 30 35 29 5d 29 0a 28 62 79 74 65	?\207".[].2.(#$...82005)]).(byte
14100	2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30	-code."\300\301\302\303#\210\300
14120	5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74	\301\304\303#\207".[function-put
14140	20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74	.-cons-pair\?.pure.t.side-effect
14160	2d 66 72 65 65 5d 20 34 29 0a 23 40 38 38 20 43 6f 6e 76 65 72 74 20 61 20 63 6f 6e 73 20 70 61	-free].4).#@88.Convert.a.cons.pa
14180	69 72 20 74 6f 20 61 20 6c 69 73 74 20 77 69 74 68 20 60 63 61 72 27 20 61 6e 64 20 60 63 64 72	ir.to.a.list.with.`car'.and.`cdr
141a0	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 28 66 6e	'.of.the.pair.respectively...(fn
141c0	20 43 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 2d 74 6f 2d 6c 69 73 74 20	.CON)..(defalias.'-cons-to-list.
141e0	23 5b 32 35 37 20 22 5c 32 31 31 40 01 41 44 5c 32 30 37 22 20 5b 5d 20 33 20 28 23 24 20 2e 20	#[257."\211@.AD\207".[].3.(#$...
14200	38 32 32 38 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	82287)]).(byte-code."\300\301\30
14220	32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22	2\303#\210\300\301\304\303#\207"
14240	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6e 73 2d 74 6f 2d 6c 69 73 74 20 70 75 72	.[function-put.-cons-to-list.pur
14260	65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 39 32 20 43	e.t.side-effect-free].4).#@192.C
14280	6f 6e 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	onvert.a.value.to.a.list...If.th
142a0	65 20 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	e.value.is.a.cons.pair,.make.a.l
142c0	69 73 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	ist.with.two.elements,.`car'.and
142e0	20 60 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	.`cdr'.of.the.pair.respectively.
14300	0a 0a 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	..If.the.value.is.anything.else,
14320	20 77 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	.wrap.it.in.a.list...(fn.VAL)..(
14340	64 65 66 61 6c 69 61 73 20 27 2d 76 61 6c 75 65 2d 74 6f 2d 6c 69 73 74 20 23 5b 32 35 37 20 22	defalias.'-value-to-list.#[257."
14360	5c 33 30 30 01 21 5c 32 30 33 5c 6e 00 5c 33 30 31 01 21 5c 32 30 37 5c 32 31 31 43 5c 32 30 37	\300.!\203\n.\301.!\207\211C\207
14380	22 20 5b 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 63 6f 6e 73 2d 74 6f 2d 6c 69 73 74 5d 20 33	".[-cons-pair\?.-cons-to-list].3
143a0	20 28 23 24 20 2e 20 38 32 35 35 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	.(#$...82559)]).(byte-code."\300
143c0	5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30	\301\302\303#\210\300\301\304\30
143e0	33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 76 61 6c 75 65 2d 74 6f 2d	3#\207".[function-put.-value-to-
14400	6c 69 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29	list.pure.t.side-effect-free].4)
14420	0a 23 40 34 32 33 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	.#@423.Apply.FN.to.each.element.
14440	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 20 74 68 65 20	of.TREE,.and.make.a.list.of.the.
14460	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 45 20 61 72 65	results..If.elements.of.TREE.are
14480	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 20 72 65 63 75	.lists.themselves,.apply.FN.recu
144a0	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 65 20 6e 65 73	rsively.to.elements.of.these.nes
144c0	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 20 72 65 73 75	ted.lists...Then.reduce.the.resu
144e0	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 64 20 69 6e 69	lting.lists.using.FOLDER.and.ini
14500	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 60 2d 72 65 64	tial.value.INIT-VALUE..See.`-red
14520	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 61 6d 65 20 61	uce-r-from'...This.is.the.same.a
14540	73 20 63 61 6c 6c 69 6e 67 20 60 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 20 61 66	s.calling.`-tree-reduce-from'.af
14560	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.
14580	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
145a0	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 49 4e 49 54	ucture.once...(fn.FN.FOLDER.INIT
145c0	2d 56 41 4c 55 45 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 6d	-VALUE.TREE)..(defalias.'-tree-m
145e0	61 70 72 65 64 75 63 65 2d 66 72 6f 6d 20 23 5b 31 30 32 38 20 22 5c 32 31 31 5c 32 30 34 06 00	apreduce-from.#[1028."\211\204..
14600	5c 33 30 30 5c 32 30 37 5c 33 30 31 01 21 5c 32 30 33 10 00 03 01 21 5c 32 30 37 5c 32 31 31 3c	\300\207\301.!\203....!\207\211<
14620	5c 32 30 33 2e 00 5c 33 30 32 03 03 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37	\203..\302..\303\304\305\306\307
14640	5c 33 31 30 06 5c 66 06 5c 66 06 5c 66 23 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 05 5c 22	\310.\f.\f.\f#\311\"\312\313%.\"
14660	23 5c 32 30 37 03 01 21 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20	#\207..!\207".[nil.-cons-pair\?.
14680	2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d	-reduce-r-from.mapcar.make-byte-
146a0	63 6f 64 65 20 32 35 37 20 22 5c 33 30 33 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 24 5c 32 30 37	code.257."\303\300\301\302.$\207
146c0	22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63	".vconcat.vector.[-tree-mapreduc
146e0	65 2d 66 72 6f 6d 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 36 20 28 23 24 20 2e	e-from].6."\n\n(fn.X)"].16.(#$..
14700	20 38 32 39 38 33 29 5d 29 0a 23 40 37 37 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66	.82983)]).#@77.Anaphoric.form.of
14720	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 28 66 6e 20 46 4f	.`-tree-mapreduce-from'...(fn.FO
14740	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 1f 0a 28 64 65 66	RM.FOLDER.INIT-VALUE.TREE)..(def
14760	61 6c 69 61 73 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 28 6d	alias.'--tree-mapreduce-from.'(m
14780	61 63 72 6f 20 2e 20 23 5b 31 30 32 38 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 06 06 45 5c 33	acro...#[1028."\300\301\302..E\3
147a0	30 31 5c 33 30 33 06 06 45 04 04 5c 32 35 37 05 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 6d 61 70	01\303..E..\257.\207".[-tree-map
147c0	72 65 64 75 63 65 2d 66 72 6f 6d 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 20 61 63 63 29	reduce-from.lambda.(it).(it.acc)
147e0	5d 20 39 20 28 23 24 20 2e 20 38 33 37 32 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65	].9.(#$...83727)])).(put.'--tree
14800	2d 6d 61 70 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 65	-mapreduce-from.'edebug-form-spe
14820	63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 34 30 37 20	c.'(form.form.form.form)).#@407.
14840	41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 54 52 45 45	Apply.FN.to.each.element.of.TREE
14860	2c 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	,.and.make.a.list.of.the.results
14880	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 73 20	..If.elements.of.TREE.are.lists.
148a0	74 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	themselves,.apply.FN.recursively
148c0	20 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	.to.elements.of.these.nested.lis
148e0	74 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	ts...Then.reduce.the.resulting.l
14900	69 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	ists.using.FOLDER.and.initial.va
14920	6c 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	lue.INIT-VALUE..See.`-reduce-r-f
14940	72 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	rom'...This.is.the.same.as.calli
14960	6e 67 20 60 2d 74 72 65 65 2d 72 65 64 75 63 65 27 20 61 66 74 65 72 20 60 2d 74 72 65 65 2d 6d	ng.`-tree-reduce'.after.`-tree-m
14980	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 69 74 20 6f	ap'.but.is.twice.as.fast.as.it.o
149a0	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 6e 63 65 2e	nly.traverse.the.structure.once.
149c0	0a 0a 28 66 6e 20 46 4e 20 46 4f 4c 44 45 52 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73	..(fn.FN.FOLDER.TREE)..(defalias
149e0	20 27 2d 74 72 65 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	.'-tree-mapreduce.#[771."\211\20
14a00	34 06 00 5c 33 30 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	4..\300\207\301.!\203....!\207\2
14a20	31 31 3c 5c 32 30 33 2b 00 5c 33 30 32 02 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33	11<\203+.\302.\303\304\305\306\3
14a40	30 37 5c 33 31 30 06 5c 6e 06 5c 6e 5c 22 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 04 5c 22	07\310.\n.\n\"\311\"\312\313%.\"
14a60	5c 22 5c 32 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 5c 3f	\"\207..!\207".[nil.-cons-pair\?
14a80	20 2d 72 65 64 75 63 65 2d 72 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65	.-reduce-r.mapcar.make-byte-code
14aa0	20 32 35 37 20 22 5c 33 30 32 5c 33 30 30 5c 33 30 31 03 23 5c 32 30 37 22 20 76 63 6f 6e 63 61	.257."\302\300\301.#\207".vconca
14ac0	74 20 76 65 63 74 6f 72 20 5b 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 5d 20 35 20 22 5c 6e	t.vector.[-tree-mapreduce].5."\n
14ae0	5c 6e 28 66 6e 20 58 29 22 5d 20 31 33 20 28 23 24 20 2e 20 38 34 30 33 32 29 5d 29 0a 23 40 36	\n(fn.X)"].13.(#$...84032)]).#@6
14b00	31 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 6d 61 70 72 65	1.Anaphoric.form.of.`-tree-mapre
14b20	64 75 63 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 46 4f 4c 44 45 52 20 54 52 45 45 29 1f 0a 28	duce'...(fn.FORM.FOLDER.TREE)..(
14b40	64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 20 27 28 6d 61 63	defalias.'--tree-mapreduce.'(mac
14b60	72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33	ro...#[771."\300\301\302.E\301\3
14b80	30 33 05 45 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	03.E.F\207".[-tree-mapreduce.lam
14ba0	62 64 61 20 28 69 74 29 20 28 69 74 20 61 63 63 29 5d 20 38 20 28 23 24 20 2e 20 38 34 37 33 38	bda.(it).(it.acc)].8.(#$...84738
14bc0	29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 20 27 65 64 65	)])).(put.'--tree-mapreduce.'ede
14be0	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))
14c00	0a 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
14c20	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
14c40	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 64 65 66 61	.structure...(fn.FN.TREE)..(defa
14c60	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 32 30 34 06	lias.'-tree-map.#[514."\211\204.
14c80	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 5c 32 31 31	.\300\207\301.!\203....!\207\211
14ca0	3c 5c 32 30 33 26 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 06	<\203&.\302\303\304\305\306\307.
14cc0	07 21 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 02 5c 22 5c 32 30 37 01 01 21 5c 32 30 37 22	.!\310\"\311\312%.\"\207..!\207"
14ce0	20 5b 6e 69 6c 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62	.[nil.-cons-pair\?.mapcar.make-b
14d00	79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 30 37 22 20 76	yte-code.257."\301\300.\"\207".v
14d20	63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 74 72 65 65 2d 6d 61 70 5d 20 34 20 22 5c 6e 5c	concat.vector.[-tree-map].4."\n\
14d40	6e 28 66 6e 20 58 29 22 5d 20 39 20 28 23 24 20 2e 20 38 34 39 39 38 29 5d 29 0a 23 40 34 38 20	n(fn.X)"].9.(#$...84998)]).#@48.
14d60	41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 6d 61 70 27 2e 0a 0a	Anaphoric.form.of.`-tree-map'...
14d80	28 66 6e 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	(fn.FORM.TREE)..(defalias.'--tre
14da0	65 2d 6d 61 70 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	e-map.'(macro...#[514."\300\301\
14dc0	33 30 32 04 45 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	302.E.E\207".[-tree-map.lambda.(
14de0	69 74 29 5d 20 36 20 28 23 24 20 2e 20 38 35 33 34 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74	it)].6.(#$...85344)])).(put.'--t
14e00	72 65 65 2d 6d 61 70 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	ree-map.'edebug-form-spec.'(form
14e20	20 66 6f 72 6d 29 29 0a 23 40 33 34 36 20 55 73 65 20 46 4e 20 74 6f 20 72 65 64 75 63 65 20 65	.form)).#@346.Use.FN.to.reduce.e
14e40	6c 65 6d 65 6e 74 73 20 6f 66 20 6c 69 73 74 20 54 52 45 45 2e 0a 49 66 20 65 6c 65 6d 65 6e 74	lements.of.list.TREE..If.element
14e60	73 20 6f 66 20 54 52 45 45 20 61 72 65 20 6c 69 73 74 73 20 74 68 65 6d 73 65 6c 76 65 73 2c 20	s.of.TREE.are.lists.themselves,.
14e80	61 70 70 6c 79 20 74 68 65 20 72 65 64 75 63 74 69 6f 6e 20 72 65 63 75 72 73 69 76 65 6c 79 2e	apply.the.reduction.recursively.
14ea0	0a 0a 46 4e 20 69 73 20 66 69 72 73 74 20 61 70 70 6c 69 65 64 20 74 6f 20 49 4e 49 54 2d 56 41	..FN.is.first.applied.to.INIT-VA
14ec0	4c 55 45 20 61 6e 64 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73	LUE.and.first.element.of.the.lis
14ee0	74 2c 0a 74 68 65 6e 20 6f 6e 20 74 68 69 73 20 72 65 73 75 6c 74 20 61 6e 64 20 73 65 63 6f 6e	t,.then.on.this.result.and.secon
14f00	64 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 74 68 65 20 6c 69 73 74 20 65 74 63 2e 0a 0a 54 68	d.element.from.the.list.etc...Th
14f20	65 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 20 69 73 20 69 67 6e 6f 72 65 64 20 6f 6e 20 63 6f	e.initial.value.is.ignored.on.co
14f40	6e 73 20 70 61 69 72 73 20 61 73 20 74 68 65 79 20 61 6c 77 61 79 73 20 63 6f 6e 74 61 69 6e 0a	ns.pairs.as.they.always.contain.
14f60	74 77 6f 20 65 6c 65 6d 65 6e 74 73 2e 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 2d 56 41 4c 55 45	two.elements...(fn.FN.INIT-VALUE
14f80	20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 72 65 64 75 63 65 2d	.TREE)..(defalias.'-tree-reduce-
14fa0	66 72 6f 6d 20 23 5b 37 37 31 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33	from.#[771."\211\204..\300\207\3
14fc0	30 31 01 21 5c 32 30 33 0d 00 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 29 00 5c 33 30 32 03 03 5c	01.!\203..\207\211<\203).\302..\
14fe0	33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 0b 06 0b 5c 22 5c 33 31	303\304\305\306\307\310....\"\31
15000	31 5c 22 5c 33 31 32 5c 33 31 33 25 05 5c 22 23 5c 32 30 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d	1\"\312\313%.\"#\207\207".[nil.-
15020	63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 6d 61 70 63 61	cons-pair\?.-reduce-r-from.mapca
15040	72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 32 5c 33 30 30 5c 33	r.make-byte-code.257."\302\300\3
15060	30 31 03 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 74 72 65 65 2d	01.#\207".vconcat.vector.[-tree-
15080	72 65 64 75 63 65 2d 66 72 6f 6d 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 34 20	reduce-from].5."\n\n(fn.X)"].14.
150a0	28 23 24 20 2e 20 38 35 35 35 30 29 5d 29 0a 23 40 36 37 20 41 6e 61 70 68 6f 72 69 63 20 66 6f	(#$...85550)]).#@67.Anaphoric.fo
150c0	72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 2e 0a 0a 28 66 6e 20	rm.of.`-tree-reduce-from'...(fn.
150e0	46 4f 52 4d 20 49 4e 49 54 2d 56 41 4c 55 45 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73	FORM.INIT-VALUE.TREE)..(defalias
15100	20 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 27 28 6d 61 63 72 6f 20 2e 20 23	.'--tree-reduce-from.'(macro...#
15120	5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 03 03 46 5c 32 30 37 22 20 5b 2d 74	[771."\300\301\302.E..F\207".[-t
15140	72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 6c 61 6d 62 64 61 20 28 69 74 20 61 63 63 29 5d	ree-reduce-from.lambda.(it.acc)]
15160	20 37 20 28 23 24 20 2e 20 38 36 31 39 36 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d	.7.(#$...86196)])).(put.'--tree-
15180	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 65 63 20 27 28	reduce-from.'edebug-form-spec.'(
151a0	66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 33 32 20 55 73 65 20 46 4e 20 74 6f	form.form.form)).#@332.Use.FN.to
151c0	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 45 45 2e 0a 49	.reduce.elements.of.list.TREE..I
151e0	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 68 65	f.elements.of.TREE.are.lists.the
15200	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 6e 20 72 65 63	mselves,.apply.the.reduction.rec
15220	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 69 65 64 20 74	ursively...FN.is.first.applied.t
15240	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 20 61 6e 64 20	o.first.element.of.the.list.and.
15260	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 73 20 72 65 73	second.element,.then.on.this.res
15280	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 74 68 65 20 6c	ult.and.third.element.from.the.l
152a0	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 6f 72 20 68 6f	ist.etc...See.`-reduce-r'.for.ho
152c0	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 20 6f 72 20 6f	w.exactly.are.lists.of.zero.or.o
152e0	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 20 54 52 45 45	ne.element.handled...(fn.FN.TREE
15300	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 72 65 64 75 63 65 20 23 5b 35 31 34	)..(defalias.'-tree-reduce.#[514
15320	20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 21 5c 32 30 33 0d 00	."\211\204..\300\207\301.!\203..
15340	5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 26 00 5c 33 30 32 02 5c 33 30 33 5c 33 30 34 5c 33 30 35	\207\211<\203&.\302.\303\304\305
15360	5c 33 30 36 5c 33 30 37 5c 33 31 30 06 09 21 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 04 5c	\306\307\310..!\311\"\312\313%.\
15380	22 5c 22 5c 32 30 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d	"\"\207\207".[nil.-cons-pair\?.-
153a0	72 65 64 75 63 65 2d 72 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32	reduce-r.mapcar.make-byte-code.2
153c0	35 37 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63	57."\301\300.\"\207".vconcat.vec
153e0	74 6f 72 20 5b 2d 74 72 65 65 2d 72 65 64 75 63 65 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 58 29	tor.[-tree-reduce].4."\n\n(fn.X)
15400	22 5d 20 31 31 20 28 23 24 20 2e 20 38 36 34 35 35 29 5d 29 0a 23 40 35 31 20 41 6e 61 70 68 6f	"].11.(#$...86455)]).#@51.Anapho
15420	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 6e	ric.form.of.`-tree-reduce'...(fn
15440	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 2d 72	.FORM.TREE)..(defalias.'--tree-r
15460	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\
15480	33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 72 65 64 75 63 65 20 6c 61 6d 62 64	302.E.E\207".[-tree-reduce.lambd
154a0	61 20 28 69 74 20 61 63 63 29 5d 20 36 20 28 23 24 20 2e 20 38 37 30 36 36 29 5d 29 29 0a 28 70	a.(it.acc)].6.(#$...87066)])).(p
154c0	75 74 20 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73	ut.'--tree-reduce.'edebug-form-s
154e0	70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 30 37 20 43 61 6c 6c 20 46 55 4e	pec.'(form.form)).#@207.Call.FUN
15500	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
15520	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,
15540	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
15560	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
15580	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
155a0	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.
155c0	54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65	TREE)..(defalias.'-tree-map-node
155e0	73 20 23 5b 37 37 31 20 22 02 01 21 5c 32 30 33 5c 6e 00 01 01 21 5c 32 30 37 5c 32 31 31 3c 5c	s.#[771."..!\203\n...!\207\211<\
15600	32 30 33 28 00 5c 33 30 30 01 21 5c 32 30 34 28 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30	203(.\300.!\204(.\301\302\303\30
15620	34 5c 33 30 35 5c 33 30 36 06 08 06 08 5c 22 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 02 5c	4\305\306....\"\307\"\310\311%.\
15640	22 5c 32 30 37 5c 32 30 37 22 20 5b 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 6d 61 70 20 6d 61	"\207\207".[-cons-pair\?.-map.ma
15660	6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 32 5c 33 30 30 5c 33 30 31 03 23	ke-byte-code.257."\302\300\301.#
15680	5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 74 72 65 65 2d 6d 61 70 2d	\207".vconcat.vector.[-tree-map-
156a0	6e 6f 64 65 73 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 31 20 28 23 24 20 2e 20	nodes].5."\n\n(fn.X)"].11.(#$...
156c0	38 37 32 38 38 29 5d 29 0a 23 40 35 39 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20	87288)]).#@59.Anaphoric.form.of.
156e0	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 45 44 20 46 4f 52	`-tree-map-nodes'...(fn.PRED.FOR
15700	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 2d 6d 61 70 2d 6e	M.TREE)..(defalias.'--tree-map-n
15720	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 5c 33 30 31 5c 33	odes.'(macro...#[771."\300\301\3
15740	30 32 05 45 5c 33 30 31 5c 33 30 33 05 45 03 46 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 6d 61 70	02.E\301\303.E.F\207".[-tree-map
15760	2d 6e 6f 64 65 73 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 29 5d 20 38 20 28 23 24 20 2e	-nodes.lambda.(it).(it)].8.(#$..
15780	20 38 37 37 35 38 29 5d 29 29 0a 23 40 33 36 33 20 52 65 74 75 72 6e 20 61 20 73 65 71 75 65 6e	.87758)])).#@363.Return.a.sequen
157a0	63 65 20 6f 66 20 74 68 65 20 6e 6f 64 65 73 20 69 6e 20 54 52 45 45 2c 20 69 6e 20 64 65 70 74	ce.of.the.nodes.in.TREE,.in.dept
157c0	68 2d 66 69 72 73 74 20 73 65 61 72 63 68 20 6f 72 64 65 72 2e 0a 0a 42 52 41 4e 43 48 20 69 73	h-first.search.order...BRANCH.is
157e0	20 61 20 70 72 65 64 69 63 61 74 65 20 6f 66 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 20 74 68 61	.a.predicate.of.one.argument.tha
15800	74 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 74 68 65 0a 70 61 73 73 65 64 20	t.returns.non-nil.if.the.passed.
15820	61 72 67 75 6d 65 6e 74 20 69 73 20 61 20 62 72 61 6e 63 68 2c 20 74 68 61 74 20 69 73 2c 20 61	argument.is.a.branch,.that.is,.a
15840	20 6e 6f 64 65 20 74 68 61 74 20 63 61 6e 20 68 61 76 65 20 63 68 69 6c 64 72 65 6e 2e 0a 0a 43	.node.that.can.have.children...C
15860	48 49 4c 44 52 45 4e 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 6f 6e 65 20 61 72 67	HILDREN.is.a.function.of.one.arg
15880	75 6d 65 6e 74 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 63 68 69 6c 64 72 65 6e 0a	ument.that.returns.the.children.
158a0	6f 66 20 74 68 65 20 70 61 73 73 65 64 20 62 72 61 6e 63 68 20 6e 6f 64 65 2e 0a 0a 4e 6f 6e 2d	of.the.passed.branch.node...Non-
158c0	62 72 61 6e 63 68 20 6e 6f 64 65 73 20 61 72 65 20 73 69 6d 70 6c 79 20 63 6f 70 69 65 64 2e 0a	branch.nodes.are.simply.copied..
158e0	0a 28 66 6e 20 42 52 41 4e 43 48 20 43 48 49 4c 44 52 45 4e 20 54 52 45 45 29 1f 0a 28 64 65 66	.(fn.BRANCH.CHILDREN.TREE)..(def
15900	61 6c 69 61 73 20 27 2d 74 72 65 65 2d 73 65 71 20 23 5b 37 37 31 20 22 5c 32 31 31 03 02 21 5c	alias.'-tree-seq.#[771."\211..!\
15920	32 30 35 1b 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 09 06	205..\300\301\302\303\304\305...
15940	09 5c 22 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 04 04 21 5c 22 42 5c 32 30 37 22 20 5b 2d	.\"\306\"\307\310%..!\"B\207".[-
15960	6d 61 70 63 61 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 32 5c	mapcat.make-byte-code.257."\302\
15980	33 30 30 5c 33 30 31 03 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d	300\301.#\207".vconcat.vector.[-
159a0	74 72 65 65 2d 73 65 71 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 32 20 28 23 24	tree-seq].5."\n\n(fn.X)"].12.(#$
159c0	20 2e 20 38 37 39 35 33 29 5d 29 0a 23 40 35 39 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20	...87953)]).#@59.Anaphoric.form.
159e0	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 43 48 20 43 48 49 4c	of.`-tree-seq'...(fn.BRANCH.CHIL
15a00	44 52 45 4e 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 73 65	DREN.TREE)..(defalias.'--tree-se
15a20	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 30 32 05	q.'(macro...#[771."\300\301\302.
15a40	45 5c 33 30 31 5c 33 30 33 05 45 03 46 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 73 65 71 20 6c 61	E\301\303.E.F\207".[-tree-seq.la
15a60	6d 62 64 61 20 28 69 74 29 20 28 69 74 29 5d 20 38 20 28 23 24 20 2e 20 38 38 35 32 39 29 5d 29	mbda.(it).(it)].8.(#$...88529)])
15a80	29 0a 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 6f 66 20 4c 49	).#@205.Create.a.deep.copy.of.LI
15aa0	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 6d 65 20 65 6c	ST..The.new.list.has.the.same.el
15ac0	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 6c 20 63 6f 6e	ements.and.structure.but.all.con
15ae0	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 73 2e 20 20 54	s.are.replaced.with.new.ones...T
15b00	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 20 74 6f 20 63	his.is.useful.when.you.need.to.c
15b20	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 69 73 74 20 6f	lone.a.structure.such.as.plist.o
15b40	72 20 61 6c 69 73 74 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	r.alist...(fn.LIST)..(defalias.'
15b60	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 22 20 5b	-clone.#[257."\300\301.\"\207".[
15b80	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 38 38 37 31	-tree-map.identity].4.(#$...8871
15ba0	32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	2)]).(byte-code."\300\301\302\30
15bc0	33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75	3#\210\300\301\304\303#\207".[fu
15be0	6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6c 6f 6e 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66	nction-put.-clone.pure.t.side-ef
15c00	66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 36 39 20 41 64 64 20 73 79 6e 74 61 78 20 68 69	fect-free].4).#@69.Add.syntax.hi
15c20	67 68 6c 69 67 68 74 69 6e 67 20 74 6f 20 64 61 73 68 20 66 75 6e 63 74 69 6f 6e 73 2c 20 6d 61	ghlighting.to.dash.functions,.ma
15c40	63 72 6f 73 20 61 6e 64 20 6d 61 67 69 63 20 76 61 6c 75 65 73 2e 1f 0a 28 64 65 66 61 6c 69 61	cros.and.magic.values...(defalia
15c60	73 20 27 64 61 73 68 2d 65 6e 61 62 6c 65 2d 66 6f 6e 74 2d 6c 6f 63 6b 20 23 5b 30 20 22 5c 33	s.'dash-enable-font-lock.#[0."\3
15c80	30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 65 76 61 6c 2d 61 66 74 65 72 2d 6c 6f	00\301\302\"\207".[eval-after-lo
15ca0	61 64 20 6c 69 73 70 2d 6d 6f 64 65 20 23 5b 30 20 22 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33	ad.lisp-mode.#[0."\302\303\304\3
15cc0	30 35 5c 33 30 36 5c 33 30 37 04 5c 33 31 30 5c 22 5c 33 31 31 51 5c 33 31 32 42 43 5c 33 31 33	05\306\307.\310\"\311Q\312BC\313
15ce0	23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 31 34 5c 33 30 37 05 5c 33 31 30 5c 22 5c 33 31 31	#\210\304\305\314\307.\310\"\311
15d00	51 5c 33 31 35 42 43 5c 33 31 33 23 5c 32 36 36 03 5c 33 31 36 20 5c 33 31 37 01 5c 32 30 35 4e	Q\315BC\313#\266.\316.\317.\205N
15d20	00 01 40 72 5c 32 31 31 71 5c 32 31 30 08 5c 33 30 35 3d 5c 32 30 33 41 00 5c 33 32 30 5c 33 30	..@r\211q\210.\305=\203A.\320\30
15d40	31 21 5c 32 30 33 41 00 09 5c 32 30 33 41 00 5c 33 32 31 20 5c 32 31 30 29 5c 32 31 30 5c 32 31	1!\203A..\203A.\321.\210)\210\21
15d60	31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 24 00 5c 32 30 37 22 20 5b 6d 61 6a 6f 72	1T\262..A\262.\202$.\207".[major
15d80	2d 6d 6f 64 65 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 6f 64 65 20 28 22 21 63 6f 6e 73 22 20 22 21	-mode.font-lock-mode.("!cons"."!
15da0	63 64 72 22 20 22 2d 65 61 63 68 22 20 22 2d 2d 65 61 63 68 22 20 22 2d 65 61 63 68 2d 69 6e 64	cdr"."-each"."--each"."-each-ind
15dc0	65 78 65 64 22 20 22 2d 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 22 20 22 2d 65 61 63 68 2d 77 68	exed"."--each-indexed"."-each-wh
15de0	69 6c 65 22 20 22 2d 2d 65 61 63 68 2d 77 68 69 6c 65 22 20 22 2d 64 6f 74 6f 22 20 22 2d 64 6f	ile"."--each-while"."-doto"."-do
15e00	74 69 6d 65 73 22 20 22 2d 2d 64 6f 74 69 6d 65 73 22 20 22 2d 6d 61 70 22 20 22 2d 2d 6d 61 70	times"."--dotimes"."-map"."--map
15e20	22 20 22 2d 72 65 64 75 63 65 2d 66 72 6f 6d 22 20 22 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 22	"."-reduce-from"."--reduce-from"
15e40	20 22 2d 72 65 64 75 63 65 22 20 22 2d 2d 72 65 64 75 63 65 22 20 22 2d 72 65 64 75 63 65 2d 72	."-reduce"."--reduce"."-reduce-r
15e60	2d 66 72 6f 6d 22 20 22 2d 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 22 20 22 2d 72 65 64 75 63	-from"."--reduce-r-from"."-reduc
15e80	65 2d 72 22 20 22 2d 2d 72 65 64 75 63 65 2d 72 22 20 22 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66	e-r"."--reduce-r"."-reductions-f
15ea0	72 6f 6d 22 20 22 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 22 20 22 2d 72 65 64 75	rom"."-reductions-r-from"."-redu
15ec0	63 74 69 6f 6e 73 22 20 22 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 22 20 22 2d 66 69 6c 74 65 72	ctions"."-reductions-r"."-filter
15ee0	22 20 22 2d 2d 66 69 6c 74 65 72 22 20 22 2d 73 65 6c 65 63 74 22 20 22 2d 2d 73 65 6c 65 63 74	"."--filter"."-select"."--select
15f00	22 20 22 2d 72 65 6d 6f 76 65 22 20 22 2d 2d 72 65 6d 6f 76 65 22 20 22 2d 72 65 6a 65 63 74 22	"."-remove"."--remove"."-reject"
15f20	20 22 2d 2d 72 65 6a 65 63 74 22 20 22 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 22 20 22 2d 2d 72	."--reject"."-remove-first"."--r
15f40	65 6d 6f 76 65 2d 66 69 72 73 74 22 20 22 2d 72 65 6a 65 63 74 2d 66 69 72 73 74 22 20 22 2d 2d	emove-first"."-reject-first"."--
15f60	72 65 6a 65 63 74 2d 66 69 72 73 74 22 20 22 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 22 20 22 2d 2d	reject-first"."-remove-last"."--
15f80	72 65 6d 6f 76 65 2d 6c 61 73 74 22 20 22 2d 72 65 6a 65 63 74 2d 6c 61 73 74 22 20 22 2d 2d 72	remove-last"."-reject-last"."--r
15fa0	65 6a 65 63 74 2d 6c 61 73 74 22 20 22 2d 72 65 6d 6f 76 65 2d 69 74 65 6d 22 20 22 2d 6e 6f 6e	eject-last"."-remove-item"."-non
15fc0	2d 6e 69 6c 22 20 22 2d 6b 65 65 70 22 20 22 2d 2d 6b 65 65 70 22 20 22 2d 6d 61 70 2d 69 6e 64	-nil"."-keep"."--keep"."-map-ind
15fe0	65 78 65 64 22 20 22 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 22 20 22 2d 73 70 6c 69 63 65 22 20	exed"."--map-indexed"."-splice".
16000	22 2d 2d 73 70 6c 69 63 65 22 20 22 2d 73 70 6c 69 63 65 2d 6c 69 73 74 22 20 22 2d 2d 73 70 6c	"--splice"."-splice-list"."--spl
16020	69 63 65 2d 6c 69 73 74 22 20 22 2d 6d 61 70 2d 77 68 65 6e 22 20 22 2d 2d 6d 61 70 2d 77 68 65	ice-list"."-map-when"."--map-whe
16040	6e 22 20 22 2d 72 65 70 6c 61 63 65 2d 77 68 65 72 65 22 20 22 2d 2d 72 65 70 6c 61 63 65 2d 77	n"."-replace-where"."--replace-w
16060	68 65 72 65 22 20 22 2d 6d 61 70 2d 66 69 72 73 74 22 20 22 2d 2d 6d 61 70 2d 66 69 72 73 74 22	here"."-map-first"."--map-first"
16080	20 22 2d 6d 61 70 2d 6c 61 73 74 22 20 22 2d 2d 6d 61 70 2d 6c 61 73 74 22 20 22 2d 72 65 70 6c	."-map-last"."--map-last"."-repl
160a0	61 63 65 22 20 22 2d 72 65 70 6c 61 63 65 2d 66 69 72 73 74 22 20 22 2d 72 65 70 6c 61 63 65 2d	ace"."-replace-first"."-replace-
160c0	6c 61 73 74 22 20 22 2d 66 6c 61 74 74 65 6e 22 20 22 2d 66 6c 61 74 74 65 6e 2d 6e 22 20 22 2d	last"."-flatten"."-flatten-n"."-
160e0	63 6f 6e 63 61 74 22 20 22 2d 6d 61 70 63 61 74 22 20 22 2d 2d 6d 61 70 63 61 74 22 20 22 2d 63	concat"."-mapcat"."--mapcat"."-c
16100	6f 70 79 22 20 22 2d 63 6f 6e 73 2a 22 20 22 2d 73 6e 6f 63 22 20 22 2d 66 69 72 73 74 22 20 22	opy"."-cons*"."-snoc"."-first"."
16120	2d 2d 66 69 72 73 74 22 20 22 2d 66 69 6e 64 22 20 22 2d 2d 66 69 6e 64 22 20 22 2d 73 6f 6d 65	--first"."-find"."--find"."-some
16140	22 20 22 2d 2d 73 6f 6d 65 22 20 22 2d 61 6e 79 22 20 22 2d 2d 61 6e 79 22 20 22 2d 6c 61 73 74	"."--some"."-any"."--any"."-last
16160	22 20 22 2d 2d 6c 61 73 74 22 20 22 2d 66 69 72 73 74 2d 69 74 65 6d 22 20 22 2d 73 65 63 6f 6e	"."--last"."-first-item"."-secon
16180	64 2d 69 74 65 6d 22 20 22 2d 74 68 69 72 64 2d 69 74 65 6d 22 20 22 2d 66 6f 75 72 74 68 2d 69	d-item"."-third-item"."-fourth-i
161a0	74 65 6d 22 20 22 2d 66 69 66 74 68 2d 69 74 65 6d 22 20 22 2d 6c 61 73 74 2d 69 74 65 6d 22 20	tem"."-fifth-item"."-last-item".
161c0	22 2d 62 75 74 6c 61 73 74 22 20 22 2d 63 6f 75 6e 74 22 20 22 2d 2d 63 6f 75 6e 74 22 20 22 2d	"-butlast"."-count"."--count"."-
161e0	61 6e 79 3f 22 20 22 2d 2d 61 6e 79 3f 22 20 22 2d 73 6f 6d 65 3f 22 20 22 2d 2d 73 6f 6d 65 3f	any?"."--any?"."-some?"."--some?
16200	22 20 22 2d 61 6e 79 2d 70 22 20 22 2d 2d 61 6e 79 2d 70 22 20 22 2d 73 6f 6d 65 2d 70 22 20 22	"."-any-p"."--any-p"."-some-p"."
16220	2d 2d 73 6f 6d 65 2d 70 22 20 22 2d 73 6f 6d 65 2d 3e 22 20 22 2d 73 6f 6d 65 2d 3e 3e 22 20 22	--some-p"."-some->"."-some->>"."
16240	2d 73 6f 6d 65 2d 2d 3e 22 20 22 2d 61 6c 6c 3f 22 20 22 2d 61 6c 6c 2d 70 22 20 22 2d 2d 61 6c	-some-->"."-all?"."-all-p"."--al
16260	6c 3f 22 20 22 2d 2d 61 6c 6c 2d 70 22 20 22 2d 65 76 65 72 79 3f 22 20 22 2d 2d 65 76 65 72 79	l?"."--all-p"."-every?"."--every
16280	3f 22 20 22 2d 61 6c 6c 2d 70 22 20 22 2d 2d 61 6c 6c 2d 70 22 20 22 2d 65 76 65 72 79 2d 70 22	?"."-all-p"."--all-p"."-every-p"
162a0	20 22 2d 2d 65 76 65 72 79 2d 70 22 20 22 2d 6e 6f 6e 65 3f 22 20 22 2d 2d 6e 6f 6e 65 3f 22 20	."--every-p"."-none?"."--none?".
162c0	22 2d 6e 6f 6e 65 2d 70 22 20 22 2d 2d 6e 6f 6e 65 2d 70 22 20 22 2d 6f 6e 6c 79 2d 73 6f 6d 65	"-none-p"."--none-p"."-only-some
162e0	3f 22 20 22 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 3f 22 20 22 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 22	?"."--only-some?"."-only-some-p"
16300	20 22 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 22 20 22 2d 73 6c 69 63 65 22 20 22 2d 74 61 6b 65	."--only-some-p"."-slice"."-take
16320	22 20 22 2d 64 72 6f 70 22 20 22 2d 64 72 6f 70 2d 6c 61 73 74 22 20 22 2d 74 61 6b 65 2d 6c 61	"."-drop"."-drop-last"."-take-la
16340	73 74 22 20 22 2d 74 61 6b 65 2d 77 68 69 6c 65 22 20 22 2d 2d 74 61 6b 65 2d 77 68 69 6c 65 22	st"."-take-while"."--take-while"
16360	20 22 2d 64 72 6f 70 2d 77 68 69 6c 65 22 20 22 2d 2d 64 72 6f 70 2d 77 68 69 6c 65 22 20 22 2d	."-drop-while"."--drop-while"."-
16380	73 70 6c 69 74 2d 61 74 22 20 22 2d 72 6f 74 61 74 65 22 20 22 2d 69 6e 73 65 72 74 2d 61 74 22	split-at"."-rotate"."-insert-at"
163a0	20 22 2d 72 65 70 6c 61 63 65 2d 61 74 22 20 22 2d 75 70 64 61 74 65 2d 61 74 22 20 22 2d 2d 75	."-replace-at"."-update-at"."--u
163c0	70 64 61 74 65 2d 61 74 22 20 22 2d 72 65 6d 6f 76 65 2d 61 74 22 20 22 2d 72 65 6d 6f 76 65 2d	pdate-at"."-remove-at"."-remove-
163e0	61 74 2d 69 6e 64 69 63 65 73 22 20 22 2d 73 70 6c 69 74 2d 77 69 74 68 22 20 22 2d 2d 73 70 6c	at-indices"."-split-with"."--spl
16400	69 74 2d 77 69 74 68 22 20 22 2d 73 70 6c 69 74 2d 6f 6e 22 20 22 2d 73 70 6c 69 74 2d 77 68 65	it-with"."-split-on"."-split-whe
16420	6e 22 20 22 2d 2d 73 70 6c 69 74 2d 77 68 65 6e 22 20 22 2d 73 65 70 61 72 61 74 65 22 20 22 2d	n"."--split-when"."-separate"."-
16440	2d 73 65 70 61 72 61 74 65 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74	-separate"."-partition-all-in-st
16460	65 70 73 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 69 6e 2d 73 74 65 70 73 22 20 22 2d 70 61 72	eps"."-partition-in-steps"."-par
16480	74 69 74 69 6f 6e 2d 61 6c 6c 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 22 20 22 2d 70 61 72 74 69	tition-all"."-partition"."-parti
164a0	74 69 6f 6e 2d 61 66 74 65 72 2d 69 74 65 6d 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74	tion-after-item"."-partition-aft
164c0	65 72 2d 70 72 65 64 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 69 74 65 6d	er-pred"."-partition-before-item
164e0	22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 70 72 65 64 22 20 22 2d 70 61 72	"."-partition-before-pred"."-par
16500	74 69 74 69 6f 6e 2d 62 79 22 20 22 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 22 20 22 2d 70 61	tition-by"."--partition-by"."-pa
16520	72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 22 20 22 2d 2d 70 61 72 74 69 74 69 6f 6e 2d	rtition-by-header"."--partition-
16540	62 79 2d 68 65 61 64 65 72 22 20 22 2d 67 72 6f 75 70 2d 62 79 22 20 22 2d 2d 67 72 6f 75 70 2d	by-header"."-group-by"."--group-
16560	62 79 22 20 22 2d 69 6e 74 65 72 70 6f 73 65 22 20 22 2d 69 6e 74 65 72 6c 65 61 76 65 22 20 22	by"."-interpose"."-interleave"."
16580	2d 75 6e 7a 69 70 22 20 22 2d 7a 69 70 2d 77 69 74 68 22 20 22 2d 2d 7a 69 70 2d 77 69 74 68 22	-unzip"."-zip-with"."--zip-with"
165a0	20 22 2d 7a 69 70 22 20 22 2d 7a 69 70 2d 66 69 6c 6c 22 20 22 2d 7a 69 70 2d 70 61 69 72 22 20	."-zip"."-zip-fill"."-zip-pair".
165c0	22 2d 63 79 63 6c 65 22 20 22 2d 70 61 64 22 20 22 2d 61 6e 6e 6f 74 61 74 65 22 20 22 2d 2d 61	"-cycle"."-pad"."-annotate"."--a
165e0	6e 6e 6f 74 61 74 65 22 20 22 2d 74 61 62 6c 65 22 20 22 2d 74 61 62 6c 65 2d 66 6c 61 74 22 20	nnotate"."-table"."-table-flat".
16600	22 2d 70 61 72 74 69 61 6c 22 20 22 2d 65 6c 65 6d 2d 69 6e 64 65 78 22 20 22 2d 65 6c 65 6d 2d	"-partial"."-elem-index"."-elem-
16620	69 6e 64 69 63 65 73 22 20 22 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 22 20 22 2d 2d 66 69 6e 64	indices"."-find-indices"."--find
16640	2d 69 6e 64 69 63 65 73 22 20 22 2d 66 69 6e 64 2d 69 6e 64 65 78 22 20 22 2d 2d 66 69 6e 64 2d	-indices"."-find-index"."--find-
16660	69 6e 64 65 78 22 20 22 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 22 20 22 2d 2d 66 69 6e	index"."-find-last-index"."--fin
16680	64 2d 6c 61 73 74 2d 69 6e 64 65 78 22 20 22 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65	d-last-index"."-select-by-indice
166a0	73 22 20 22 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 73 22 20 22 2d 73 65 6c 65 63 74 2d 63 6f	s"."-select-columns"."-select-co
166c0	6c 75 6d 6e 22 20 22 2d 67 72 61 64 65 2d 75 70 22 20 22 2d 67 72 61 64 65 2d 64 6f 77 6e 22 20	lumn"."-grade-up"."-grade-down".
166e0	22 2d 3e 22 20 22 2d 3e 3e 22 20 22 2d 2d 3e 22 20 22 2d 61 73 2d 3e 22 20 22 2d 77 68 65 6e 2d	"->"."->>"."-->"."-as->"."-when-
16700	6c 65 74 22 20 22 2d 77 68 65 6e 2d 6c 65 74 2a 22 20 22 2d 2d 77 68 65 6e 2d 6c 65 74 22 20 22	let"."-when-let*"."--when-let"."
16720	2d 69 66 2d 6c 65 74 22 20 22 2d 69 66 2d 6c 65 74 2a 22 20 22 2d 2d 69 66 2d 6c 65 74 22 20 22	-if-let"."-if-let*"."--if-let"."
16740	2d 6c 65 74 2a 22 20 22 2d 6c 65 74 22 20 22 2d 6c 61 6d 62 64 61 22 20 22 2d 64 69 73 74 69 6e	-let*"."-let"."-lambda"."-distin
16760	63 74 22 20 22 2d 75 6e 69 71 22 20 22 2d 75 6e 69 6f 6e 22 20 22 2d 69 6e 74 65 72 73 65 63 74	ct"."-uniq"."-union"."-intersect
16780	69 6f 6e 22 20 22 2d 64 69 66 66 65 72 65 6e 63 65 22 20 22 2d 70 6f 77 65 72 73 65 74 22 20 22	ion"."-difference"."-powerset"."
167a0	2d 70 65 72 6d 75 74 61 74 69 6f 6e 73 22 20 22 2d 69 6e 69 74 73 22 20 22 2d 74 61 69 6c 73 22	-permutations"."-inits"."-tails"
167c0	20 22 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 22 20 22 2d 63 6f 6e 74 61 69 6e 73 3f 22 20 22	."-common-prefix"."-contains?"."
167e0	2d 63 6f 6e 74 61 69 6e 73 2d 70 22 20 22 2d 73 61 6d 65 2d 69 74 65 6d 73 3f 22 20 22 2d 73 61	-contains-p"."-same-items?"."-sa
16800	6d 65 2d 69 74 65 6d 73 2d 70 22 20 22 2d 69 73 2d 70 72 65 66 69 78 2d 70 22 20 22 2d 69 73 2d	me-items-p"."-is-prefix-p"."-is-
16820	70 72 65 66 69 78 3f 22 20 22 2d 69 73 2d 73 75 66 66 69 78 2d 70 22 20 22 2d 69 73 2d 73 75 66	prefix?"."-is-suffix-p"."-is-suf
16840	66 69 78 3f 22 20 22 2d 69 73 2d 69 6e 66 69 78 2d 70 22 20 22 2d 69 73 2d 69 6e 66 69 78 3f 22	fix?"."-is-infix-p"."-is-infix?"
16860	20 22 2d 73 6f 72 74 22 20 22 2d 2d 73 6f 72 74 22 20 22 2d 6c 69 73 74 22 20 22 2d 72 65 70 65	."-sort"."--sort"."-list"."-repe
16880	61 74 22 20 22 2d 73 75 6d 22 20 22 2d 72 75 6e 6e 69 6e 67 2d 73 75 6d 22 20 22 2d 70 72 6f 64	at"."-sum"."-running-sum"."-prod
168a0	75 63 74 22 20 22 2d 72 75 6e 6e 69 6e 67 2d 70 72 6f 64 75 63 74 22 20 22 2d 6d 61 78 22 20 22	uct"."-running-product"."-max"."
168c0	2d 6d 69 6e 22 20 22 2d 6d 61 78 2d 62 79 22 20 22 2d 2d 6d 61 78 2d 62 79 22 20 22 2d 6d 69 6e	-min"."-max-by"."--max-by"."-min
168e0	2d 62 79 22 20 22 2d 2d 6d 69 6e 2d 62 79 22 20 22 2d 69 74 65 72 61 74 65 22 20 22 2d 2d 69 74	-by"."--min-by"."-iterate"."--it
16900	65 72 61 74 65 22 20 22 2d 66 69 78 22 20 22 2d 2d 66 69 78 22 20 22 2d 75 6e 66 6f 6c 64 22 20	erate"."-fix"."--fix"."-unfold".
16920	22 2d 2d 75 6e 66 6f 6c 64 22 20 22 2d 63 6f 6e 73 2d 70 61 69 72 3f 22 20 22 2d 63 6f 6e 73 2d	"--unfold"."-cons-pair?"."-cons-
16940	74 6f 2d 6c 69 73 74 22 20 22 2d 76 61 6c 75 65 2d 74 6f 2d 6c 69 73 74 22 20 22 2d 74 72 65 65	to-list"."-value-to-list"."-tree
16960	2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 22 20 22 2d 2d 74 72 65 65 2d 6d 61 70 72 65 64 75	-mapreduce-from"."--tree-mapredu
16980	63 65 2d 66 72 6f 6d 22 20 22 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 22 20 22 2d 2d 74 72	ce-from"."-tree-mapreduce"."--tr
169a0	65 65 2d 6d 61 70 72 65 64 75 63 65 22 20 22 2d 74 72 65 65 2d 6d 61 70 22 20 22 2d 2d 74 72 65	ee-mapreduce"."-tree-map"."--tre
169c0	65 2d 6d 61 70 22 20 22 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 22 20 22 2d 2d 74 72	e-map"."-tree-reduce-from"."--tr
169e0	65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 22 20 22 2d 74 72 65 65 2d 72 65 64 75 63 65 22 20 22	ee-reduce-from"."-tree-reduce"."
16a00	2d 2d 74 72 65 65 2d 72 65 64 75 63 65 22 20 22 2d 74 72 65 65 2d 73 65 71 22 20 22 2d 2d 74 72	--tree-reduce"."-tree-seq"."--tr
16a20	65 65 2d 73 65 71 22 20 22 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 22 20 22 2d 2d 74 72 65	ee-seq"."-tree-map-nodes"."--tre
16a40	65 2d 6d 61 70 2d 6e 6f 64 65 73 22 20 22 2d 63 6c 6f 6e 65 22 20 22 2d 72 70 61 72 74 69 61 6c	e-map-nodes"."-clone"."-rpartial
16a60	22 20 22 2d 6a 75 78 74 22 20 22 2d 61 70 70 6c 69 66 79 22 20 22 2d 6f 6e 22 20 22 2d 66 6c 69	"."-juxt"."-applify"."-on"."-fli
16a80	70 22 20 22 2d 63 6f 6e 73 74 22 20 22 2d 63 75 74 22 20 22 2d 6f 72 66 6e 22 20 22 2d 61 6e 64	p"."-const"."-cut"."-orfn"."-and
16aa0	66 6e 22 20 22 2d 69 74 65 72 61 74 65 66 6e 22 20 22 2d 66 69 78 66 6e 22 20 22 2d 70 72 6f 64	fn"."-iteratefn"."-fixfn"."-prod
16ac0	66 6e 22 29 20 28 22 69 74 22 20 22 69 74 2d 69 6e 64 65 78 22 20 22 61 63 63 22 20 22 6f 74 68	fn").("it"."it-index"."acc"."oth
16ae0	65 72 22 29 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 61 64 64 2d 6b 65 79 77 6f 72 64 73 20 65 6d 61 63	er").font-lock-add-keywords.emac
16b00	73 2d 6c 69 73 70 2d 6d 6f 64 65 20 22 5c 5c 5f 3c 22 20 72 65 67 65 78 70 2d 6f 70 74 20 70 61	s-lisp-mode."\\_<".regexp-opt.pa
16b20	72 65 6e 20 22 5c 5c 5f 3e 22 20 28 31 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 76 61 72 69 61 62 6c 65	ren."\\_>".(1.font-lock-variable
16b40	2d 6e 61 6d 65 2d 66 61 63 65 29 20 61 70 70 65 6e 64 20 22 28 5c 5c 73 2d 2a 22 20 28 31 20 66	-name-face).append."(\\s-*".(1.f
16b60	6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 29 20 62 75 66 66 65 72 2d 6c 69	ont-lock-keyword-face).buffer-li
16b80	73 74 20 30 20 62 6f 75 6e 64 70 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 72 65 66 72 65 73 68 2d 64 65	st.0.boundp.font-lock-refresh-de
16ba0	66 61 75 6c 74 73 5d 20 38 5d 5d 20 33 20 28 23 24 20 2e 20 38 39 31 30 37 29 5d 29 0a 28 70 72	faults].8]].3.(#$...89107)]).(pr
16bc0	6f 76 69 64 65 20 27 64 61 73 68 29 0a	ovide.'dash).