blob: 267a08033e64c640f9786eb0f47db313034c5bb0 (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 72 65 71 75 69 72 65 20 27 64	;;;;;;;;;;;;;;;;;;...(require.'d
01a0	61 73 68 29 0a 23 40 32 33 36 20 54 61 6b 65 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 61	ash).#@236.Takes.a.function.FN.a
01c0	6e 64 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	nd.fewer.than.the.normal.argumen
01e0	74 73 20 74 6f 20 46 4e 2c 0a 61 6e 64 20 72 65 74 75 72 6e 73 20 61 20 66 6e 20 74 68 61 74 20	ts.to.FN,.and.returns.a.fn.that.
0200	74 61 6b 65 73 20 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 64 64 69 74	takes.a.variable.number.of.addit
0220	69 6f 6e 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	ional.ARGS..When.called,.the.ret
0240	75 72 6e 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	urned.function.calls.FN.with.ARG
0260	53 20 66 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	S.first.and.then.additional.args
0280	2e 0a 0a 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	...(fn.FN.&rest.ARGS)..(defalias
02a0	20 27 2d 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	.'-partial.#[385."\300\301..#\20
02c0	37 22 20 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	7".[apply.apply-partially].6.(#$
02e0	20 2e 20 34 32 37 29 5d 29 0a 23 40 32 34 30 20 54 61 6b 65 73 20 61 20 66 75 6e 63 74 69 6f 6e	...427)]).#@240.Takes.a.function
0300	20 46 4e 20 61 6e 64 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	.FN.and.fewer.than.the.normal.ar
0320	67 75 6d 65 6e 74 73 20 74 6f 20 46 4e 2c 0a 61 6e 64 20 72 65 74 75 72 6e 73 20 61 20 66 6e 20	guments.to.FN,.and.returns.a.fn.
0340	74 68 61 74 20 74 61 6b 65 73 20 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20	that.takes.a.variable.number.of.
0360	61 64 64 69 74 69 6f 6e 61 6c 20 41 52 47 53 2e 0a 57 68 65 6e 20 63 61 6c 6c 65 64 2c 20 74 68	additional.ARGS..When.called,.th
0380	65 20 72 65 74 75 72 6e 65 64 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 73 20 46 4e 20 77 69 74	e.returned.function.calls.FN.wit
03a0	68 20 74 68 65 20 61 64 64 69 74 69 6f 6e 61 6c 0a 61 72 67 73 20 66 69 72 73 74 20 61 6e 64 20	h.the.additional.args.first.and.
03c0	74 68 65 6e 20 41 52 47 53 2e 0a 0a 28 66 6e 20 46 4e 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a	then.ARGS...(fn.FN.&rest.ARGS)..
03e0	28 64 65 66 61 6c 69 61 73 20 27 2d 72 70 61 72 74 69 61 6c 20 23 5b 33 38 35 20 22 5c 33 30 30	(defalias.'-rpartial.#[385."\300
0400	5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 06 06 5c 22 5c 33 30 35 5c 22 5c 33 30 36	\301\302\303\304....\"\305\"\306
0420	5c 33 30 37 25 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 31 32 38 20 22	\307%\207".[make-byte-code.128."
0440	5c 33 30 32 5c 33 30 30 5c 33 30 33 03 5c 33 30 31 5c 22 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63	\302\300\303.\301\"\"\207".vconc
0460	61 74 20 76 65 63 74 6f 72 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 5d 20 36 20 22 5c 6e 5c 6e	at.vector.[apply.append].6."\n\n
0480	28 66 6e 20 26 72 65 73 74 20 41 52 47 53 2d 42 45 46 4f 52 45 29 22 5d 20 39 20 28 23 24 20 2e	(fn.&rest.ARGS-BEFORE)"].9.(#$..
04a0	20 37 35 32 29 5d 29 0a 23 40 32 33 39 20 54 61 6b 65 73 20 61 20 6c 69 73 74 20 6f 66 20 66 75	.752)]).#@239.Takes.a.list.of.fu
04c0	6e 63 74 69 6f 6e 73 20 61 6e 64 20 72 65 74 75 72 6e 73 20 61 20 66 6e 20 74 68 61 74 20 69 73	nctions.and.returns.a.fn.that.is
04e0	20 74 68 65 0a 6a 75 78 74 61 70 6f 73 69 74 69 6f 6e 20 6f 66 20 74 68 6f 73 65 20 66 6e 73 2e	.the.juxtaposition.of.those.fns.
0500	20 54 68 65 20 72 65 74 75 72 6e 65 64 20 66 6e 20 74 61 6b 65 73 20 61 20 76 61 72 69 61 62 6c	.The.returned.fn.takes.a.variabl
0520	65 0a 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 73 2c 20 61 6e 64 20 72 65 74 75 72 6e 73 20 61 20	e.number.of.args,.and.returns.a.
0540	6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 0a 61 70	list.containing.the.result.of.ap
0560	70 6c 79 69 6e 67 20 65 61 63 68 20 66 6e 20 74 6f 20 74 68 65 20 61 72 67 73 20 28 6c 65 66 74	plying.each.fn.to.the.args.(left
0580	2d 74 6f 2d 72 69 67 68 74 29 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 46 4e 53 29 1f 0a 28 64 65	-to-right)...(fn.&rest.FNS)..(de
05a0	66 61 6c 69 61 73 20 27 2d 6a 75 78 74 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	falias.'-juxt.#[128."\300\301\30
05c0	32 5c 33 30 33 5c 33 30 34 05 21 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 37 22 20	2\303\304.!\305\"\306\307%\207".
05e0	5b 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 31 32 38 20 22 5c 33 30 31 5c 33 30 32 5c 33 30	[make-byte-code.128."\301\302\30
0600	33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 21 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 5c	3\304\305\306..!\307\"\310\311%\
0620	33 30 30 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 61	300\"\207".vconcat.vector.[mapca
0640	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 01 5c 33 30 30 5c	r.make-byte-code.257."\301.\300\
0660	22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 61 70 70 6c 79 5d 20 34 20	"\207".vconcat.vector.[apply].4.
0680	22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 41	"\n\n(fn.X)"].8."\n\n(fn.&rest.A
06a0	52 47 53 29 22 5d 20 37 20 28 23 24 20 2e 20 31 31 39 38 29 5d 29 0a 23 40 32 37 31 20 54 61 6b	RGS)"].7.(#$...1198)]).#@271.Tak
06c0	65 73 20 61 20 6c 69 73 74 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 61 6e 64 20 72 65 74 75 72	es.a.list.of.functions.and.retur
06e0	6e 73 20 61 20 66 6e 20 74 68 61 74 20 69 73 20 74 68 65 0a 63 6f 6d 70 6f 73 69 74 69 6f 6e 20	ns.a.fn.that.is.the.composition.
0700	6f 66 20 74 68 6f 73 65 20 66 6e 73 2e 20 54 68 65 20 72 65 74 75 72 6e 65 64 20 66 6e 20 74 61	of.those.fns..The.returned.fn.ta
0720	6b 65 73 20 61 20 76 61 72 69 61 62 6c 65 0a 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e	kes.a.variable.number.of.argumen
0740	74 73 2c 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 70	ts,.and.returns.the.result.of.ap
0760	70 6c 79 69 6e 67 0a 65 61 63 68 20 66 6e 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20	plying.each.fn.to.the.result.of.
0780	61 70 70 6c 79 69 6e 67 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 66 6e 20 74 6f 0a 74 68 65 20	applying.the.previous.fn.to.the.
07a0	61 72 67 75 6d 65 6e 74 73 20 28 72 69 67 68 74 2d 74 6f 2d 6c 65 66 74 29 2e 0a 0a 28 66 6e 20	arguments.(right-to-left)...(fn.
07c0	26 72 65 73 74 20 46 4e 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6d 70 6f 73 65 20	&rest.FNS)..(defalias.'-compose.
07e0	23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 05 21 5c 33 30	#[128."\300\301\302\303\304.!\30
0800	35 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64	5\"\306\307%\207".[make-byte-cod
0820	65 20 31 32 38 20 22 5c 33 30 31 5c 33 30 32 02 5c 33 30 30 23 40 5c 32 30 37 22 20 76 63 6f 6e	e.128."\301\302.\300#@\207".vcon
0840	63 61 74 20 76 65 63 74 6f 72 20 5b 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 23 5b 35 31 34	cat.vector.[-reduce-r-from.#[514
0860	20 22 5c 33 30 30 02 02 5c 22 43 5c 32 30 37 22 20 5b 61 70 70 6c 79 5d 20 35 20 22 5c 6e 5c 6e	."\300..\"C\207".[apply].5."\n\n
0880	28 66 6e 20 46 4e 20 58 53 29 22 5d 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 41	(fn.FN.XS)"]].5."\n\n(fn.&rest.A
08a0	52 47 53 29 22 5d 20 37 20 28 23 24 20 2e 20 31 37 32 35 29 5d 29 0a 23 40 31 30 39 20 43 68 61	RGS)"].7.(#$...1725)]).#@109.Cha
08c0	6e 67 65 73 20 61 6e 20 6e 2d 61 72 69 74 79 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 74 6f 20 61	nges.an.n-arity.function.FN.to.a
08e0	20 31 2d 61 72 69 74 79 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 0a 65 78 70 65 63 74 73 20 61	.1-arity.function.that.expects.a
0900	20 6c 69 73 74 20 77 69 74 68 20 6e 20 69 74 65 6d 73 20 61 73 20 61 72 67 75 6d 65 6e 74 73 0a	.list.with.n.items.as.arguments.
0920	0a 28 66 6e 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 70 70 6c 69 66 79 20 23 5b	.(fn.FN)..(defalias.'-applify.#[
0940	32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 2d 70 61 72	257."\300\301.\"\207".[apply-par
0960	74 69 61 6c 6c 79 20 61 70 70 6c 79 5d 20 34 20 28 23 24 20 2e 20 32 32 33 37 29 5d 29 0a 23 40	tially.apply].4.(#$...2237)]).#@
0980	32 32 34 20 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 74 77 6f 20 61 72 67	224.Return.a.function.of.two.arg
09a0	75 6d 65 6e 74 73 20 74 68 61 74 20 66 69 72 73 74 20 61 70 70 6c 69 65 73 0a 54 52 41 4e 53 46	uments.that.first.applies.TRANSF
09c0	4f 52 4d 45 52 20 74 6f 20 65 61 63 68 20 6f 66 20 74 68 65 6d 20 61 6e 64 20 74 68 65 6e 20 61	ORMER.to.each.of.them.and.then.a
09e0	70 70 6c 69 65 73 20 4f 50 45 52 41 54 4f 52 20 6f 6e 20 74 68 65 0a 72 65 73 75 6c 74 73 20 28	pplies.OPERATOR.on.the.results.(
0a00	69 6e 20 74 68 65 20 73 61 6d 65 20 6f 72 64 65 72 29 2e 0a 0a 49 6e 20 74 79 70 65 73 3a 20 28	in.the.same.order)...In.types:.(
0a20	62 20 2d 3e 20 62 20 2d 3e 20 63 29 20 2d 3e 20 28 61 20 2d 3e 20 62 29 20 2d 3e 20 61 20 2d 3e	b.->.b.->.c).->.(a.->.b).->.a.->
0a40	20 61 20 2d 3e 20 63 0a 0a 28 66 6e 20 4f 50 45 52 41 54 4f 52 20 54 52 41 4e 53 46 4f 52 4d 45	.a.->.c..(fn.OPERATOR.TRANSFORME
0a60	52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33	R)..(defalias.'-on.#[514."\300\3
0a80	30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 06 06 5c 22 5c 33 30 35 5c 22 5c 33 30 36 5c 33	01\302\303\304....\"\305\"\306\3
0aa0	30 37 25 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33	07%\207".[make-byte-code.514."\3
0ac0	30 30 5c 33 30 31 03 21 5c 33 30 31 03 21 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65	00\301.!\301.!\"\207".vconcat.ve
0ae0	63 74 6f 72 20 5b 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 58 20 59 29 22 5d 20 39 20 28 23 24 20	ctor.[].6."\n\n(fn.X.Y)"].9.(#$.
0b00	2e 20 32 34 33 36 29 5d 29 0a 23 40 31 30 36 20 53 77 61 70 20 74 68 65 20 6f 72 64 65 72 20 6f	..2436)]).#@106.Swap.the.order.o
0b20	66 20 61 72 67 75 6d 65 6e 74 73 20 66 6f 72 20 62 69 6e 61 72 79 20 66 75 6e 63 74 69 6f 6e 20	f.arguments.for.binary.function.
0b40	46 55 4e 43 2e 0a 0a 49 6e 20 74 79 70 65 73 3a 20 28 61 20 2d 3e 20 62 20 2d 3e 20 63 29 20 2d	FUNC...In.types:.(a.->.b.->.c).-
0b60	3e 20 62 20 2d 3e 20 61 20 2d 3e 20 63 0a 0a 28 66 6e 20 46 55 4e 43 29 1f 0a 28 64 65 66 61 6c	>.b.->.a.->.c..(fn.FUNC)..(defal
0b80	69 61 73 20 27 2d 66 6c 69 70 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	ias.'-flip.#[257."\300\301\302\3
0ba0	30 33 5c 33 30 34 05 21 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 37 22 20 5b 6d 61	03\304.!\305\"\306\307%\207".[ma
0bc0	6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33 30 30 01 03 5c 22 5c 32 30 37 22 20	ke-byte-code.514."\300..\"\207".
0be0	76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 20 59	vconcat.vector.[].5."\n\n(fn.X.Y
0c00	29 22 5d 20 37 20 28 23 24 20 2e 20 32 38 33 32 29 5d 29 0a 23 40 31 30 30 20 52 65 74 75 72 6e	)"].7.(#$...2832)]).#@100.Return
0c20	20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 43 20 69 67 6e 6f 72	.a.function.that.returns.C.ignor
0c40	69 6e 67 20 61 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 73 2e 0a 0a 49	ing.any.additional.arguments...I
0c60	6e 20 74 79 70 65 73 3a 20 61 20 2d 3e 20 62 20 2d 3e 20 61 0a 0a 28 66 6e 20 43 29 1f 0a 28 64	n.types:.a.->.b.->.a..(fn.C)..(d
0c80	65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c	efalias.'-const.#[257."\300\301\
0ca0	33 30 32 5c 33 30 33 5c 33 30 34 05 21 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 37	302\303\304.!\305\"\306\307%\207
0cc0	22 20 5b 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 31 32 38 20 22 5c 33 30 30 5c 32 30 37 22	".[make-byte-code.128."\300\207"
0ce0	20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 26 72	.vconcat.vector.[].2."\n\n(fn.&r
0d00	65 73 74 20 5f 29 22 5d 20 37 20 28 23 24 20 2e 20 33 30 39 38 29 5d 29 0a 23 40 31 37 36 20 54	est._)"].7.(#$...3098)]).#@176.T
0d20	61 6b 65 20 6e 2d 61 72 79 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 6e 20 61 72 67 75 6d 65 6e	ake.n-ary.function.and.n.argumen
0d40	74 73 20 61 6e 64 20 73 70 65 63 69 61 6c 69 7a 65 20 73 6f 6d 65 20 6f 66 20 74 68 65 6d 2e 0a	ts.and.specialize.some.of.them..
0d60	41 72 67 75 6d 65 6e 74 73 20 64 65 6e 6f 74 65 64 20 62 79 20 3c 3e 20 77 69 6c 6c 20 62 65 20	Arguments.denoted.by.<>.will.be.
0d80	6c 65 66 74 20 75 6e 73 70 65 63 69 61 6c 69 7a 65 64 2e 0a 0a 53 65 65 20 53 52 46 49 2d 32 36	left.unspecialized...See.SRFI-26
0da0	20 66 6f 72 20 64 65 74 61 69 6c 65 64 20 64 65 73 63 72 69 70 74 69 6f 6e 2e 0a 0a 28 66 6e 20	.for.detailed.description...(fn.
0dc0	26 72 65 73 74 20 50 41 52 41 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 75 74 20 27	&rest.PARAMS)..(defalias.'-cut.'
0de0	28 6d 61 63 72 6f 20 2e 20 23 5b 31 32 38 20 22 5c 33 30 30 43 5c 33 30 31 5c 33 30 32 5c 33 30	(macro...#[128."\300C\301\302\30
0e00	33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 21 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 5c	3\304\305\306..!\307\"\310\311%\
0e20	33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 22 05 5c 22 5c 22 43 5c 33 31 36 01 5c 32 34 32	312\313\314\315\".\"\"C\316.\242
0e40	5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 31 37 5c 33 30 35 5c 33 30 36 06 08 21 5c 33 32 30 5c	\301\302\303\317\305\306..!\320\
0e60	22 5c 33 32 31 5c 33 32 32 25 06 06 5c 22 05 40 5c 33 31 35 3d 5c 32 30 33 3a 00 5c 33 32 33 01	"\321\322%..\".@\315=\203:.\323.
0e80	42 5c 32 30 32 3b 00 5c 32 31 31 5c 32 36 32 01 45 5c 32 30 37 22 20 5b 30 20 6d 61 70 63 61 72	B\202;.\211\262.E\207".[0.mapcar
0ea0	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 5c 32 31 31 5c 32 34	.make-byte-code.257."\300\211\24
0ec0	32 54 5c 32 34 30 5c 32 31 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 30 5c 32 34 32 5c 22	2T\240\210\301\302\303\300\242\"
0ee0	21 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6d 61 6b 65 2d 73 79 6d 62	!\207".vconcat.vector.[make-symb
0f00	6f 6c 20 66 6f 72 6d 61 74 20 22 44 25 64 22 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 5f 29 22 20	ol.format."D%d"].5."\n\n(fn._)".
0f20	2d 66 69 6c 74 65 72 20 2d 70 61 72 74 69 61 6c 20 65 71 20 3c 3e 20 6c 61 6d 62 64 61 20 22 5c	-filter.-partial.eq.<>.lambda."\
0f40	32 31 31 5c 33 30 31 3d 5c 32 30 33 10 00 5c 33 30 30 5c 32 34 32 5c 33 30 30 5c 32 31 31 5c 32	211\301=\203..\300\242\300\211\2
0f60	34 32 41 5c 32 34 30 5c 32 31 30 5c 32 34 32 5c 32 30 37 5c 32 30 37 22 20 5b 3c 3e 5d 20 34 20	42A\240\210\242\207\207".[<>].4.
0f80	22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 20 66 75 6e 63 61 6c 6c 5d 20 31 32 20 28 23 24 20 2e 20	"\n\n(fn.IT)".funcall].12.(#$...
0fa0	33 33 35 39 29 5d 29 29 0a 23 40 31 33 37 20 54 61 6b 65 20 61 20 75 6e 61 72 79 20 70 72 65 64	3359)])).#@137.Take.a.unary.pred
0fc0	69 63 61 74 65 20 50 52 45 44 20 61 6e 64 20 72 65 74 75 72 6e 20 61 20 75 6e 61 72 79 20 70 72	icate.PRED.and.return.a.unary.pr
0fe0	65 64 69 63 61 74 65 0a 74 68 61 74 20 72 65 74 75 72 6e 73 20 74 20 69 66 20 50 52 45 44 20 72	edicate.that.returns.t.if.PRED.r
1000	65 74 75 72 6e 73 20 6e 69 6c 20 61 6e 64 20 6e 69 6c 20 69 66 20 50 52 45 44 20 72 65 74 75 72	eturns.nil.and.nil.if.PRED.retur
1020	6e 73 0a 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 6e 20 50 52 45 44 29 1f 0a 28 64 65 66 61 6c 69 61	ns.non-nil...(fn.PRED)..(defalia
1040	73 20 27 2d 6e 6f 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c	s.'-not.#[257."\300\301\302\303\
1060	33 30 34 05 21 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 37 22 20 5b 6d 61 6b 65 2d	304.!\305\"\306\307%\207".[make-
1080	62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 21 3f 5c 32 30 37 22 20 76 63 6f 6e	byte-code.257."\300.!?\207".vcon
10a0	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 58 29 22 5d 20 37 20	cat.vector.[].3."\n\n(fn.X)"].7.
10c0	28 23 24 20 2e 20 34 30 31 35 29 5d 29 0a 23 40 32 30 38 20 54 61 6b 65 20 6c 69 73 74 20 6f 66	(#$...4015)]).#@208.Take.list.of
10e0	20 75 6e 61 72 79 20 70 72 65 64 69 63 61 74 65 73 20 50 52 45 44 53 20 61 6e 64 20 72 65 74 75	.unary.predicates.PREDS.and.retu
1100	72 6e 20 61 20 75 6e 61 72 79 0a 70 72 65 64 69 63 61 74 65 20 77 69 74 68 20 61 72 67 75 6d 65	rn.a.unary.predicate.with.argume
1120	6e 74 20 78 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 61 74 20	nt.x.that.returns.non-nil.if.at.
1140	6c 65 61 73 74 20 6f 6e 65 20 6f 66 0a 74 68 65 20 50 52 45 44 53 20 72 65 74 75 72 6e 73 20 6e	least.one.of.the.PREDS.returns.n
1160	6f 6e 2d 6e 69 6c 20 6f 6e 20 78 2e 0a 0a 49 6e 20 74 79 70 65 73 3a 20 5b 61 20 2d 3e 20 42 6f	on-nil.on.x...In.types:.[a.->.Bo
1180	6f 6c 5d 20 2d 3e 20 61 20 2d 3e 20 42 6f 6f 6c 0a 0a 28 66 6e 20 26 72 65 73 74 20 50 52 45 44	ol].->.a.->.Bool..(fn.&rest.PRED
11a0	53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6f 72 66 6e 20 23 5b 31 32 38 20 22 5c 33 30 30	S)..(defalias.'-orfn.#[128."\300
11c0	5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 05 21 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37	\301\302\303\304.!\305\"\306\307
11e0	25 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31	%\207".[make-byte-code.257."\301
1200	5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 21 5c 33 30 37 5c 22 5c 33 31	\302\303\304\305\306..!\307\"\31
1220	30 5c 33 31 31 25 5c 33 30 30 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72	0\311%\300\"\207".vconcat.vector
1240	20 5b 2d 61 6e 79 5c 3f 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 32 31	.[-any\?.make-byte-code.257."\21
1260	31 5c 33 30 30 21 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	1\300!\207".vconcat.vector.[].3.
1280	22 5c 6e 5c 6e 28 66 6e 20 44 31 29 22 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 37	"\n\n(fn.D1)"].8."\n\n(fn.X)"].7
12a0	20 28 23 24 20 2e 20 34 33 30 38 29 5d 29 0a 23 40 31 39 39 20 54 61 6b 65 20 6c 69 73 74 20 6f	.(#$...4308)]).#@199.Take.list.o
12c0	66 20 75 6e 61 72 79 20 70 72 65 64 69 63 61 74 65 73 20 50 52 45 44 53 20 61 6e 64 20 72 65 74	f.unary.predicates.PREDS.and.ret
12e0	75 72 6e 20 61 20 75 6e 61 72 79 0a 70 72 65 64 69 63 61 74 65 20 77 69 74 68 20 61 72 67 75 6d	urn.a.unary.predicate.with.argum
1300	65 6e 74 20 78 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 61 6c	ent.x.that.returns.non-nil.if.al
1320	6c 20 6f 66 20 74 68 65 0a 50 52 45 44 53 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 20 6f	l.of.the.PREDS.returns.non-nil.o
1340	6e 20 78 2e 0a 0a 49 6e 20 74 79 70 65 73 3a 20 5b 61 20 2d 3e 20 42 6f 6f 6c 5d 20 2d 3e 20 61	n.x...In.types:.[a.->.Bool].->.a
1360	20 2d 3e 20 42 6f 6f 6c 0a 0a 28 66 6e 20 26 72 65 73 74 20 50 52 45 44 53 29 1f 0a 28 64 65 66	.->.Bool..(fn.&rest.PREDS)..(def
1380	61 6c 69 61 73 20 27 2d 61 6e 64 66 6e 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	alias.'-andfn.#[128."\300\301\30
13a0	32 5c 33 30 33 5c 33 30 34 05 21 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 37 22 20	2\303\304.!\305\"\306\307%\207".
13c0	5b 6d 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 32 5c 33 30	[make-byte-code.257."\301\302\30
13e0	33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 21 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 5c	3\304\305\306..!\307\"\310\311%\
1400	33 30 30 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 61 6c 6c 5c	300\"\207".vconcat.vector.[-all\
1420	3f 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 32 31 31 5c 33 30 30 21 5c	?.make-byte-code.257."\211\300!\
1440	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 66	207".vconcat.vector.[].3."\n\n(f
1460	6e 20 44 31 29 22 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 37 20 28 23 24 20 2e 20	n.D1)"].8."\n\n(fn.X)"].7.(#$...
1480	34 37 38 39 29 5d 29 0a 23 40 33 39 36 20 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20	4789)]).#@396.Return.a.function.
14a0	46 4e 20 63 6f 6d 70 6f 73 65 64 20 4e 20 74 69 6d 65 73 20 77 69 74 68 20 69 74 73 65 6c 66 2e	FN.composed.N.times.with.itself.
14c0	0a 0a 46 4e 20 69 73 20 61 20 75 6e 61 72 79 20 66 75 6e 63 74 69 6f 6e 2e 20 20 49 66 20 79 6f	..FN.is.a.unary.function...If.yo
14e0	75 20 6e 65 65 64 20 74 6f 20 75 73 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 68 69 67 68	u.need.to.use.a.function.of.high
1500	65 72 0a 61 72 69 74 79 2c 20 75 73 65 20 60 2d 61 70 70 6c 69 66 79 27 20 66 69 72 73 74 20 74	er.arity,.use.`-applify'.first.t
1520	6f 20 74 75 72 6e 20 69 74 20 69 6e 74 6f 20 61 20 75 6e 61 72 79 20 66 75 6e 63 74 69 6f 6e 2e	o.turn.it.into.a.unary.function.
1540	0a 0a 57 69 74 68 20 6e 20 3d 20 30 2c 20 74 68 69 73 20 61 63 74 73 20 61 73 20 69 64 65 6e 74	..With.n.=.0,.this.acts.as.ident
1560	69 74 79 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 49 6e 20 74 79 70 65 73 3a 20 28 61 20 2d 3e 20 61	ity.function...In.types:.(a.->.a
1580	29 20 2d 3e 20 49 6e 74 20 2d 3e 20 61 20 2d 3e 20 61 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69	).->.Int.->.a.->.a...This.functi
15a0	6f 6e 20 73 61 74 69 73 66 69 65 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 61 77 3a 0a	on.satisfies.the.following.law:.
15c0	0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 2d 69 74 65 72 61 74 65 66 6e 20 66 6e 20 6e 29 20 69 6e	...(funcall.(-iteratefn.fn.n).in
15e0	69 74 29 20 3d 20 28 2d 6c 61 73 74 2d 69 74 65 6d 20 28 2d 69 74 65 72 61 74 65 20 66 6e 20 69	it).=.(-last-item.(-iterate.fn.i
1600	6e 69 74 20 28 31 2b 20 6e 29 29 29 2e 0a 0a 28 66 6e 20 46 4e 20 4e 29 1f 0a 28 64 65 66 61 6c	nit.(1+.n)))...(fn.FN.N)..(defal
1620	69 61 73 20 27 2d 69 74 65 72 61 74 65 66 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c	ias.'-iteratefn.#[514."\300\301\
1640	33 30 32 5c 33 30 33 5c 33 30 34 06 06 06 06 5c 22 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37 25	302\303\304....\"\305\"\306\307%
1660	5c 32 30 37 22 20 5b 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c	\207".[make-byte-code.257."\301\
1680	33 30 32 5c 32 31 31 02 57 5c 32 30 33 14 00 5c 33 30 30 03 21 5c 32 36 32 03 5c 32 31 31 54 5c	302\211.W\203..\300.!\262.\211T\
16a0	32 36 32 01 5c 32 30 32 02 00 5c 32 36 36 02 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63	262.\202..\266.\207".vconcat.vec
16c0	74 6f 72 20 5b 30 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 39 20 28 23 24 20 2e 20	tor.[0].5."\n\n(fn.X)"].9.(#$...
16e0	35 32 36 32 29 5d 29 0a 23 40 33 37 39 20 52 65 74 75 72 6e 20 61 20 63 6c 6f 73 75 72 65 20 74	5262)]).#@379.Return.a.closure.t
1700	68 61 74 20 63 6f 75 6e 74 73 20 66 72 6f 6d 20 42 45 47 20 74 6f 20 45 4e 44 2c 20 77 69 74 68	hat.counts.from.BEG.to.END,.with
1720	20 69 6e 63 72 65 6d 65 6e 74 20 49 4e 43 2e 0a 0a 54 68 65 20 63 6c 6f 73 75 72 65 20 77 69 6c	.increment.INC...The.closure.wil
1740	6c 20 72 65 74 75 72 6e 20 74 68 65 20 6e 65 78 74 20 76 61 6c 75 65 20 69 6e 20 74 68 65 20 63	l.return.the.next.value.in.the.c
1760	6f 75 6e 74 69 6e 67 20 73 65 71 75 65 6e 63 65 0a 65 61 63 68 20 74 69 6d 65 20 69 74 20 69 73	ounting.sequence.each.time.it.is
1780	20 63 61 6c 6c 65 64 2c 20 61 6e 64 20 6e 69 6c 20 61 66 74 65 72 20 45 4e 44 20 69 73 20 72 65	.called,.and.nil.after.END.is.re
17a0	61 63 68 65 64 2e 20 42 45 47 0a 64 65 66 61 75 6c 74 73 20 74 6f 20 30 2c 20 49 4e 43 20 64 65	ached..BEG.defaults.to.0,.INC.de
17c0	66 61 75 6c 74 73 20 74 6f 20 31 2c 20 61 6e 64 20 69 66 20 45 4e 44 20 69 73 20 6e 69 6c 2c 20	faults.to.1,.and.if.END.is.nil,.
17e0	74 68 65 20 63 6f 75 6e 74 65 72 0a 77 69 6c 6c 20 69 6e 63 72 65 6d 65 6e 74 20 69 6e 64 65 66	the.counter.will.increment.indef
1800	69 6e 69 74 65 6c 79 2e 0a 0a 54 68 65 20 63 6c 6f 73 75 72 65 20 61 63 63 65 70 74 73 20 61 6e	initely...The.closure.accepts.an
1820	79 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2c 20 77 68 69 63 68 20 61 72 65	y.number.of.arguments,.which.are
1840	20 64 69 73 63 61 72 64 65 64 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 42 45 47 20 45	.discarded...(fn.&optional.BEG.E
1860	4e 44 20 49 4e 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 75 6e 74 65 72 20 23 5b 37	ND.INC)..(defalias.'-counter.#[7
1880	36 38 20 22 5c 32 31 31 5c 32 30 36 05 00 5c 33 30 30 03 5c 32 30 36 5c 6e 00 5c 33 30 31 43 5c	68."\211\206..\300.\206\n.\301C\
18a0	33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 08 06 07 06 07 23 5c 33 30 37 5c 22	302\303\304\305\306......#\307\"
18c0	5c 33 31 30 5c 33 31 31 25 5c 32 30 37 22 20 5b 31 20 30 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f	\310\311%\207".[1.0.make-byte-co
18e0	64 65 20 31 32 38 20 22 5c 33 30 30 5c 32 30 33 0b 00 5c 33 30 32 5c 32 34 32 5c 33 30 30 57 5c	de.128."\300\203..\302\242\300W\
1900	32 30 35 14 00 5c 33 30 32 5c 32 34 32 5c 33 30 32 5c 32 31 31 5c 32 34 32 5c 33 30 31 5c 5c 5c	205..\302\242\302\211\242\301\\\
1920	32 34 30 5c 32 31 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 35	240\210\207".vconcat.vector.[].5
1940	20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 5f 29 22 5d 20 31 33 20 28 23 24 20 2e 20 35 38	."\n\n(fn.&rest._)"].13.(#$...58
1960	37 30 29 5d 29 0a 23 40 39 34 20 54 68 65 20 64 65 66 61 75 6c 74 20 6d 61 78 69 6d 75 6d 20 6e	70)]).#@94.The.default.maximum.n
1980	75 6d 62 65 72 20 6f 66 20 69 74 65 72 61 74 69 6f 6e 73 20 70 65 72 66 6f 72 6d 65 64 20 62 79	umber.of.iterations.performed.by
19a0	20 60 2d 66 69 78 66 6e 27 0a 20 20 75 6e 6c 65 73 73 20 6f 74 68 65 72 77 69 73 65 20 73 70 65	.`-fixfn'...unless.otherwise.spe
19c0	63 69 66 69 65 64 2e 1f 0a 28 64 65 66 76 61 72 20 2d 66 69 78 66 6e 2d 6d 61 78 2d 69 74 65 72	cified...(defvar.-fixfn-max-iter
19e0	61 74 69 6f 6e 73 20 31 30 30 30 20 28 23 24 20 2e 20 36 35 30 37 29 29 0a 23 40 31 31 39 30 20	ations.1000.(#$...6507)).#@1190.
1a00	52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 63 6f 6d 70 75 74 65 73 20	Return.a.function.that.computes.
1a20	74 68 65 20 28 6c 65 61 73 74 29 20 66 69 78 70 6f 69 6e 74 20 6f 66 20 46 4e 2e 0a 0a 46 4e 20	the.(least).fixpoint.of.FN...FN.
1a40	6d 75 73 74 20 62 65 20 61 20 75 6e 61 72 79 20 66 75 6e 63 74 69 6f 6e 2e 20 54 68 65 20 72 65	must.be.a.unary.function..The.re
1a60	74 75 72 6e 65 64 20 6c 61 6d 62 64 61 20 74 61 6b 65 73 20 61 20 73 69 6e 67 6c 65 0a 61 72 67	turned.lambda.takes.a.single.arg
1a80	75 6d 65 6e 74 2c 20 58 2c 20 74 68 65 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 20 66 6f 72 20	ument,.X,.the.initial.value.for.
1aa0	74 68 65 20 66 69 78 70 6f 69 6e 74 20 69 74 65 72 61 74 69 6f 6e 2e 20 54 68 65 0a 69 74 65 72	the.fixpoint.iteration..The.iter
1ac0	61 74 69 6f 6e 20 68 61 6c 74 73 20 77 68 65 6e 20 65 69 74 68 65 72 20 6f 66 20 74 68 65 20 66	ation.halts.when.either.of.the.f
1ae0	6f 6c 6c 6f 77 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 73 20 69 73 20 73 61 74 69 73 69 66 69 65	ollowing.conditions.is.satisifie
1b00	64 3a 0a 0a 20 31 2e 20 49 74 65 72 61 74 69 6f 6e 20 63 6f 6e 76 65 72 67 65 73 20 74 6f 20 74	d:...1..Iteration.converges.to.t
1b20	68 65 20 66 69 78 70 6f 69 6e 74 2c 20 77 69 74 68 20 65 71 75 61 6c 69 74 79 20 62 65 69 6e 67	he.fixpoint,.with.equality.being
1b40	0a 20 20 20 20 74 65 73 74 65 64 20 75 73 69 6e 67 20 45 51 55 41 4c 2d 54 45 53 54 2e 20 49 66	.....tested.using.EQUAL-TEST..If
1b60	20 45 51 55 41 4c 2d 54 45 53 54 20 69 73 20 6e 6f 74 20 73 70 65 63 69 66 69 65 64 2c 0a 20 20	.EQUAL-TEST.is.not.specified,...
1b80	20 20 60 65 71 75 61 6c 27 20 69 73 20 75 73 65 64 2e 20 46 6f 72 20 66 75 6e 63 74 69 6f 6e 73	..`equal'.is.used..For.functions
1ba0	20 6f 76 65 72 20 74 68 65 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 0a 20 20 20 20 6e 75 6d	.over.the.floating.point.....num
1bc0	62 65 72 73 2c 20 69 74 20 6d 61 79 20 62 65 20 6e 65 63 65 73 73 61 72 79 20 74 6f 20 70 72 6f	bers,.it.may.be.necessary.to.pro
1be0	76 69 64 65 20 61 6e 20 61 70 70 72 6f 70 72 69 61 74 65 0a 20 20 20 20 61 70 70 6f 78 69 6d 61	vide.an.appropriate.....appoxima
1c00	74 65 20 63 6f 6d 70 61 72 73 69 6f 6e 20 74 65 73 74 2e 0a 0a 20 32 2e 20 48 41 4c 54 2d 54 45	te.comparsion.test....2..HALT-TE
1c20	53 54 20 72 65 74 75 72 6e 73 20 61 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2e 20 48 41 4c 54	ST.returns.a.non-nil.value..HALT
1c40	2d 54 45 53 54 20 64 65 66 61 75 6c 74 73 20 74 6f 20 61 0a 20 20 20 20 73 69 6d 70 6c 65 20 63	-TEST.defaults.to.a.....simple.c
1c60	6f 75 6e 74 65 72 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 74 20 61 66 74 65 72 20 60 2d 66 69	ounter.that.returns.t.after.`-fi
1c80	78 66 6e 2d 6d 61 78 2d 69 74 65 72 61 74 69 6f 6e 73 27 2c 0a 20 20 20 20 74 6f 20 67 75 61 72	xfn-max-iterations',.....to.guar
1ca0	64 20 61 67 61 69 6e 73 74 20 69 6e 66 69 6e 69 74 65 20 69 74 65 72 61 74 69 6f 6e 2e 20 4f 74	d.against.infinite.iteration..Ot
1cc0	68 65 72 77 69 73 65 2c 20 48 41 4c 54 2d 54 45 53 54 0a 20 20 20 20 6d 75 73 74 20 62 65 20 61	herwise,.HALT-TEST.....must.be.a
1ce0	20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 61 63 63 65 70 74 73 20 61 20 73 69 6e 67 6c 65 20	.function.that.accepts.a.single.
1d00	61 72 67 75 6d 65 6e 74 2c 20 74 68 65 0a 20 20 20 20 63 75 72 72 65 6e 74 20 76 61 6c 75 65 20	argument,.the.....current.value.
1d20	6f 66 20 58 2c 20 61 6e 64 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 20 61 73 20 6c 6f 6e	of.X,.and.returns.non-nil.as.lon
1d40	67 20 61 73 20 69 74 65 72 61 74 69 6f 6e 0a 20 20 20 20 73 68 6f 75 6c 64 20 63 6f 6e 74 69 6e	g.as.iteration.....should.contin
1d60	75 65 2e 20 49 6e 20 74 68 69 73 20 77 61 79 2c 20 61 20 6d 6f 72 65 20 73 6f 70 68 69 73 74 69	ue..In.this.way,.a.more.sophisti
1d80	63 61 74 65 64 0a 20 20 20 20 63 6f 6e 76 65 72 67 65 6e 63 65 20 74 65 73 74 20 6d 61 79 20 62	cated.....convergence.test.may.b
1da0	65 20 73 75 70 70 6c 69 65 64 20 62 79 20 74 68 65 20 63 61 6c 6c 65 72 2e 0a 0a 54 68 65 20 72	e.supplied.by.the.caller...The.r
1dc0	65 74 75 72 6e 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 6c 61 6d 62 64 61 20 69 73 20 65 69 74	eturn.value.of.the.lambda.is.eit
1de0	68 65 72 20 74 68 65 20 66 69 78 70 6f 69 6e 74 20 6f 72 2c 20 69 66 0a 69 74 65 72 61 74 69 6f	her.the.fixpoint.or,.if.iteratio
1e00	6e 20 68 61 6c 74 65 64 20 62 65 66 6f 72 65 20 63 6f 6e 76 65 72 67 69 6e 67 2c 20 61 20 63 6f	n.halted.before.converging,.a.co
1e20	6e 73 20 77 69 74 68 20 63 61 72 20 60 68 61 6c 74 65 64 27 20 61 6e 64 0a 63 64 72 20 74 68 65	ns.with.car.`halted'.and.cdr.the
1e40	20 66 69 6e 61 6c 20 6f 75 74 70 75 74 20 66 72 6f 6d 20 48 41 4c 54 2d 54 45 53 54 2e 0a 0a 49	.final.output.from.HALT-TEST...I
1e60	6e 20 74 79 70 65 73 3a 20 28 61 20 2d 3e 20 61 29 20 2d 3e 20 61 20 2d 3e 20 61 2e 0a 0a 28 66	n.types:.(a.->.a).->.a.->.a...(f
1e80	6e 20 46 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 45 51 55 41 4c 2d 54 45 53 54 20 48 41 4c 54 2d 54	n.FN.&optional.EQUAL-TEST.HALT-T
1ea0	45 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 78 66 6e 20 23 5b 37 36 39 20 22 01	EST)..(defalias.'-fixfn.#[769.".
1ec0	5c 32 30 36 05 00 5c 33 30 31 01 5c 32 30 36 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 08 5c 22	\206..\301.\206..\302\303\304.\"
1ee0	21 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 06 09 06 07 06 07 23 5c 33 31 32	!\305\306\307\310\311......#\312
1f00	5c 22 5c 33 31 33 5c 33 31 34 25 5c 32 30 37 22 20 5b 2d 66 69 78 66 6e 2d 6d 61 78 2d 69 74 65	\"\313\314%\207".[-fixfn-max-ite
1f20	72 61 74 69 6f 6e 73 20 65 71 75 61 6c 20 2d 6e 6f 74 20 2d 63 6f 75 6e 74 65 72 20 30 20 6d 61	rations.equal.-not.-counter.0.ma
1f40	6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 32 02 21 5c 32	ke-byte-code.257."\300.!\302.!\2
1f60	31 31 5c 32 30 34 21 00 5c 33 30 31 03 03 5c 22 5c 32 30 34 21 00 01 5c 32 36 32 03 5c 33 30 30	11\204!.\301..\"\204!..\262.\300
1f80	02 21 5c 32 36 32 02 5c 33 30 32 02 21 5c 32 36 32 01 5c 32 30 32 06 00 5c 32 31 31 5c 32 30 33	.!\262.\302.!\262.\202..\211\203
1fa0	2b 00 5c 33 30 33 01 42 5c 32 30 32 2c 00 01 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63	+.\303.B\202,..\207".vconcat.vec
1fc0	74 6f 72 20 5b 68 61 6c 74 65 64 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 33 20	tor.[halted].6."\n\n(fn.X)"].13.
1fe0	28 23 24 20 2e 20 36 36 35 36 29 5d 29 0a 23 40 36 38 39 20 54 61 6b 65 20 61 20 6c 69 73 74 20	(#$...6656)]).#@689.Take.a.list.
2000	6f 66 20 6e 20 66 75 6e 63 74 69 6f 6e 73 20 61 6e 64 20 72 65 74 75 72 6e 20 61 20 66 75 6e 63	of.n.functions.and.return.a.func
2020	74 69 6f 6e 20 74 68 61 74 20 74 61 6b 65 73 20 61 0a 6c 69 73 74 20 6f 66 20 6c 65 6e 67 74 68	tion.that.takes.a.list.of.length
2040	20 6e 2c 20 61 70 70 6c 79 69 6e 67 20 69 2d 74 68 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 69 2d	.n,.applying.i-th.function.to.i-
2060	74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 0a 69 6e 70 75 74 20 6c 69 73 74 2e 20 20 52	th.element.of.the.input.list...R
2080	65 74 75 72 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 65 6e 67 74 68 20 6e 2e 0a 0a 49 6e 20 74	eturns.a.list.of.length.n...In.t
20a0	79 70 65 73 20 28 66 6f 72 20 6e 3d 32 29 3a 20 28 28 61 20 2d 3e 20 62 29 2c 20 28 63 20 2d 3e	ypes.(for.n=2):.((a.->.b),.(c.->
20c0	20 64 29 29 20 2d 3e 20 28 61 2c 20 63 29 20 2d 3e 20 28 62 2c 20 64 29 0a 0a 54 68 69 73 20 66	.d)).->.(a,.c).->.(b,.d)..This.f
20e0	75 6e 63 74 69 6f 6e 20 73 61 74 69 73 66 69 65 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20	unction.satisfies.the.following.
2100	6c 61 77 73 3a 0a 0a 20 20 28 2d 63 6f 6d 70 6f 73 65 20 28 2d 70 72 6f 64 66 6e 20 66 20 67 20	laws:....(-compose.(-prodfn.f.g.
2120	2e 2e 2e 29 20 28 2d 70 72 6f 64 66 6e 20 66 5c 3d 27 20 67 5c 3d 27 20 2e 2e 2e 29 29 20 3d 20	...).(-prodfn.f\='.g\='....)).=.
2140	28 2d 70 72 6f 64 66 6e 20 28 2d 63 6f 6d 70 6f 73 65 20 66 20 66 5c 3d 27 29 20 28 2d 63 6f 6d	(-prodfn.(-compose.f.f\=').(-com
2160	70 6f 73 65 20 67 20 67 5c 3d 27 29 20 2e 2e 2e 29 0a 20 20 28 2d 70 72 6f 64 66 6e 20 66 20 67	pose.g.g\=')....)...(-prodfn.f.g
2180	20 2e 2e 2e 29 20 3d 20 28 2d 6a 75 78 74 20 28 2d 63 6f 6d 70 6f 73 65 20 66 20 28 2d 70 61 72	....).=.(-juxt.(-compose.f.(-par
21a0	74 69 61 6c 20 5c 3d 27 6e 74 68 20 30 29 29 20 28 2d 63 6f 6d 70 6f 73 65 20 67 20 28 2d 70 61	tial.\='nth.0)).(-compose.g.(-pa
21c0	72 74 69 61 6c 20 5c 3d 27 6e 74 68 20 31 29 29 20 2e 2e 2e 29 0a 20 20 28 2d 63 6f 6d 70 6f 73	rtial.\='nth.1))....)...(-compos
21e0	65 20 28 2d 70 72 6f 64 66 6e 20 66 20 67 20 2e 2e 2e 29 20 28 2d 6a 75 78 74 20 66 5c 3d 27 20	e.(-prodfn.f.g....).(-juxt.f\='.
2200	67 5c 3d 27 20 2e 2e 2e 29 29 20 3d 20 28 2d 6a 75 78 74 20 28 2d 63 6f 6d 70 6f 73 65 20 66 20	g\='....)).=.(-juxt.(-compose.f.
2220	66 5c 3d 27 29 20 28 2d 63 6f 6d 70 6f 73 65 20 67 20 67 5c 3d 27 29 20 2e 2e 2e 29 0a 20 20 28	f\=').(-compose.g.g\=')....)...(
2240	2d 63 6f 6d 70 6f 73 65 20 28 2d 70 61 72 74 69 61 6c 20 5c 3d 27 6e 74 68 20 6e 29 20 28 2d 70	-compose.(-partial.\='nth.n).(-p
2260	72 6f 64 20 66 31 20 66 32 20 2e 2e 2e 29 29 20 3d 20 28 2d 63 6f 6d 70 6f 73 65 20 66 6e 20 28	rod.f1.f2....)).=.(-compose.fn.(
2280	2d 70 61 72 74 69 61 6c 20 5c 3d 27 6e 74 68 20 6e 29 29 0a 0a 28 66 6e 20 26 72 65 73 74 20 46	-partial.\='nth.n))..(fn.&rest.F
22a0	4e 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 72 6f 64 66 6e 20 23 5b 31 32 38 20 22 5c	NS)..(defalias.'-prodfn.#[128."\
22c0	33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 05 21 5c 33 30 35 5c 22 5c 33 30 36 5c	300\301\302\303\304.!\305\"\306\
22e0	33 30 37 25 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c	307%\207".[make-byte-code.257."\
2300	33 30 31 5c 33 30 32 5c 33 30 30 03 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f	301\302\300.#\207".vconcat.vecto
2320	72 20 5b 2d 7a 69 70 2d 77 69 74 68 20 66 75 6e 63 61 6c 6c 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e	r.[-zip-with.funcall].5."\n\n(fn
2340	20 58 29 22 5d 20 37 20 28 23 24 20 2e 20 38 31 38 30 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27	.X)"].7.(#$...8180)]).(provide.'
2360	64 61 73 68 2d 66 75 6e 63 74 69 6f 6e 61 6c 29 0a	dash-functional).