blob: bb18a183ed645607aeff6f5ce0a35aed7389c7bf (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 1e 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 33 30 2e 32 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.30.2.;;;.with.all.opt
0040	69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 0a 23 40 37 33 20 55 73 65 64 20 62 79 20 6d 61 63 72 6f	imizations....#@73.Used.by.macro
0060	73 20 60 63 6f 6e 64 2d 6c 65 74 2a 27 20 61 6e 64 20 60 63 6f 6e 64 2d 6c 65 74 27 2e 0a 0a 28	s.`cond-let*'.and.`cond-let'...(
0080	66 6e 20 54 41 47 20 53 45 51 55 45 4e 54 49 41 4c 20 43 4c 41 55 53 45 53 29 1f 23 40 31 32 20	fn.TAG.SEQUENTIAL.CLAUSES).#@12.
00a0	0a 0a 28 66 6e 20 56 45 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 6e 64 2d 6c 65 74 2d	..(fn.VEC)..(defalias.'cond-let-
00c0	2d 70 72 65 70 61 72 65 2d 63 6c 61 75 73 65 73 20 23 5b 37 37 31 20 22 5c 33 30 30 01 5c 32 33	-prepare-clauses.#[771."\300.\23
00e0	37 5c 32 31 31 5c 32 30 33 1e 01 5c 32 31 31 40 5c 33 30 31 01 21 5c 32 30 33 2d 00 04 5c 32 30	7\211\203..\211@\301.!\203-..\20
0100	33 1e 00 5c 33 30 32 01 5c 33 30 33 5c 22 5c 32 30 33 1e 00 5c 33 30 34 5c 32 30 32 1f 00 5c 33	3..\302.\303\"\203..\304\202..\3
0120	30 35 5c 33 30 36 5c 33 30 37 03 5c 22 04 42 42 43 5c 32 36 32 03 5c 32 31 30 5c 32 30 32 1a 01	05\306\307.\".BBC\262.\210\202..
0140	5c 33 30 30 5c 33 30 31 02 40 21 5c 32 30 33 45 00 5c 33 31 30 02 5c 32 31 31 41 5c 32 36 32 04	\300\301.@!\203E.\310.\211A\262.
0160	5c 32 34 32 5c 33 30 30 5c 22 01 42 5c 32 36 32 01 5c 32 30 32 2e 00 5c 32 31 31 5c 32 30 33 5c	\242\300\".B\262.\202..\211\203\
0180	33 30 36 00 03 5c 32 30 35 4e 00 5c 33 31 31 06 06 5c 32 30 35 57 00 5c 33 30 32 02 5c 33 30 33	306..\205N.\311..\205W.\302.\303
01a0	5c 22 44 5c 32 31 31 5c 33 31 32 5c 32 33 32 5c 32 30 33 63 00 5c 32 31 30 5c 33 31 33 5c 32 30	\"D\211\312\232\203c.\210\313\20
01c0	32 5c 32 35 34 00 5c 32 31 31 3a 5c 32 30 35 5c 32 35 32 00 5c 32 31 31 5c 32 34 32 5c 32 31 31	2\254.\211:\205\252.\211\242\211
01e0	5c 33 31 34 5c 32 36 37 5c 32 31 30 5c 32 30 32 5c 32 35 31 00 01 5c 32 34 33 5c 32 31 31 3a 5c	\314\267\210\202\251..\243\211:\
0200	32 30 35 5c 32 30 32 00 5c 32 31 31 5c 32 34 33 5c 32 31 31 3f 5c 32 30 35 5c 32 30 30 00 5c 33	205\202.\211\243\211?\205\200.\3
0220	31 35 5c 32 36 32 01 5c 32 36 36 5c 32 30 33 5c 32 30 32 5c 32 35 34 00 01 5c 32 34 33 5c 32 31	15\262.\266\203\202\254..\243\21
0240	31 5c 33 31 36 5c 32 33 32 5c 32 30 33 5c 32 32 35 00 5c 32 36 36 03 5c 33 31 37 5c 32 30 32 5c	1\316\232\203\225.\266.\317\202\
0260	32 35 34 00 5c 32 31 31 3a 5c 32 30 35 5c 32 34 34 00 5c 32 31 31 5c 32 34 33 5c 32 31 31 3f 5c	254.\211:\205\244.\211\243\211?\
0280	32 30 35 5c 32 34 32 00 5c 33 32 30 5c 32 36 32 01 5c 32 36 36 5c 32 30 33 5c 32 30 32 5c 32 35	205\242.\320\262.\266\203\202\25
02a0	34 00 5c 33 30 30 5c 32 36 32 01 01 5c 32 33 37 05 5c 32 30 33 5c 32 37 37 00 5c 33 32 31 5c 33	4.\300\262..\237.\203\277.\321\3
02c0	32 32 06 5c 6e 44 5c 33 32 33 06 06 21 45 5c 32 30 32 5c 33 30 32 00 5c 33 32 33 04 21 45 5c 32	22.\nD\323..!E\202\302.\323.!E\2
02e0	30 32 14 01 5c 33 32 34 02 5c 33 30 33 5c 22 5c 32 30 33 5c 33 36 30 00 03 5c 32 30 33 5c 33 35	02..\324.\303\"\203\360..\203\35
0300	33 00 5c 33 32 35 5c 33 32 36 21 5c 33 30 35 01 04 40 44 43 5c 33 32 37 03 5c 33 32 31 5c 33 32	3.\325\326!\305..@DC\327.\321\32
0320	32 06 0d 44 06 06 45 45 45 5c 32 36 32 01 5c 32 30 32 14 01 01 40 5c 32 30 32 14 01 01 40 5c 33	2..D..EEE\262.\202...@\202...@\3
0340	31 31 3d 5c 32 30 33 02 01 03 5c 32 30 34 02 01 5c 33 32 33 02 41 21 5c 32 30 32 14 01 5c 33 32	11=\203...\204..\323.A!\202..\32
0360	37 02 5c 32 31 31 41 5c 32 36 32 04 5c 32 34 32 5c 33 32 31 5c 33 32 32 06 5c 6e 44 5c 33 32 33	7.\211A\262.\242\321\322.\nD\323
0380	06 06 21 45 45 04 42 5c 32 36 32 04 5c 32 36 36 02 41 5c 32 30 32 03 00 5c 32 31 30 5c 32 30 37	..!EE.B\262.\266.A\202..\210\207
03a0	22 20 5b 6e 69 6c 20 76 65 63 74 6f 72 70 20 6c 65 6e 67 74 68 3e 20 31 20 6c 65 74 2a 20 6c 65	".[nil.vectorp.length>.1.let*.le
03c0	74 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 37 22	t.mapcar.#[257."\300.\301\"\207"
03e0	20 5b 61 70 70 65 6e 64 20 6e 69 6c 5d 20 34 20 28 23 24 20 2e 20 31 36 30 29 5d 20 61 70 70 65	.[append.nil].4.(#$...160)].appe
0400	6e 64 20 74 20 28 74 20 74 29 20 63 6f 6e 64 2d 6c 65 74 2d 2d 77 68 65 6e 2d 6c 65 74 2a 20 23	nd.t.(t.t).cond-let--when-let*.#
0420	73 28 68 61 73 68 2d 74 61 62 6c 65 20 74 65 73 74 20 65 71 20 70 75 72 65 63 6f 70 79 20 74 20	s(hash-table.test.eq.purecopy.t.
0440	64 61 74 61 20 28 74 20 31 31 33 20 6e 69 6c 20 31 33 35 29 29 20 63 6f 6e 64 2d 6c 65 74 2d 2d	data.(t.113.nil.135)).cond-let--
0460	77 68 65 6e 2d 6c 65 74 20 28 74 29 20 63 6f 6e 64 2d 6c 65 74 2d 2d 61 6e 64 2d 6c 65 74 2a 20	when-let.(t).cond-let--and-let*.
0480	63 6f 6e 64 2d 6c 65 74 2d 2d 61 6e 64 2d 6c 65 74 20 74 68 72 6f 77 20 71 75 6f 74 65 20 6d 61	cond-let--and-let.throw.quote.ma
04a0	63 72 6f 65 78 70 2d 70 72 6f 67 6e 20 6c 65 6e 67 74 68 3d 20 67 65 6e 73 79 6d 20 22 61 6e 6f	croexp-progn.length=.gensym."ano
04c0	6e 22 20 77 68 65 6e 5d 20 31 35 20 28 23 24 20 2e 20 38 33 29 5d 29 23 40 31 33 32 30 20 54 72	n".when].15.(#$...83)])#@1320.Tr
04e0	79 20 65 61 63 68 20 63 6c 61 75 73 65 20 75 6e 74 69 6c 20 6f 6e 65 20 73 75 63 63 65 65 64 73	y.each.clause.until.one.succeeds
0500	2e 0a 0a 45 61 63 68 20 63 6c 61 75 73 65 20 68 61 73 20 6f 6e 65 20 6f 66 20 74 68 65 73 65 20	...Each.clause.has.one.of.these.
0520	66 6f 72 6d 73 3a 0a 2d 20 61 20 70 6c 61 69 6e 20 63 6c 61 75 73 65 20 20 20 28 43 4f 4e 44 49	forms:.-.a.plain.clause...(CONDI
0540	54 49 4f 4e 20 42 4f 44 59 2e 2e 2e 29 0a 2d 20 61 20 62 69 6e 64 69 6e 67 20 63 6c 61 75 73 65	TION.BODY...).-.a.binding.clause
0560	20 28 5b 53 59 4d 42 4f 4c 20 56 41 4c 55 45 46 4f 52 4d 5d 2e 2e 2e 20 42 4f 44 59 2e 2e 2e 29	.([SYMBOL.VALUEFORM]....BODY...)
0580	0a 2d 20 61 20 62 69 6e 64 69 6e 67 20 76 65 63 74 6f 72 20 5b 5b 53 59 4d 42 4f 4c 20 56 41 4c	.-.a.binding.vector.[[SYMBOL.VAL
05a0	55 45 46 4f 52 4d 5d 2e 2e 2e 5d 0a 0a 41 20 28 43 4f 4e 44 49 54 49 4f 4e 20 42 4f 44 59 2e 2e	UEFORM]...]..A.(CONDITION.BODY..
05c0	2e 29 20 63 6c 61 75 73 65 20 77 6f 72 6b 73 20 61 73 20 66 6f 72 20 60 63 6f 6e 64 27 2e 20 20	.).clause.works.as.for.`cond'...
05e0	45 76 61 6c 75 61 74 65 20 43 4f 4e 44 49 54 49 4f 4e 2c 0a 61 6e 64 20 69 66 20 69 74 20 79 69	Evaluate.CONDITION,.and.if.it.yi
0600	65 6c 64 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 63 6c 61 75 73 65 20 73 75 63 63 65 65 64	elds.non-nil,.the.clause.succeed
0620	73 2e 20 20 54 68 65 6e 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59 20 66 6f 72 6d 73 0a 73 65 71	s...Then.evaluate.BODY.forms.seq
0640	75 65 6e 74 69 61 6c 6c 79 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 76 61 6c 75 65 20 6f	uentially.and.return.the.value.o
0660	66 20 74 68 65 20 6c 61 73 74 3b 20 6f 72 20 69 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 20 42	f.the.last;.or.if.there.are.no.B
0680	4f 44 59 0a 66 6f 72 6d 73 2c 20 72 65 74 75 72 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 43	ODY.forms,.return.the.value.of.C
06a0	4f 4e 44 49 54 49 4f 4e 2e 20 20 49 66 20 43 4f 4e 44 49 54 49 4f 4e 20 79 69 65 6c 64 73 20 6e	ONDITION...If.CONDITION.yields.n
06c0	69 6c 2c 20 64 6f 20 6e 6f 74 0a 65 76 61 6c 75 61 74 65 20 74 68 65 20 42 4f 44 59 20 66 6f 72	il,.do.not.evaluate.the.BODY.for
06e0	6d 73 20 61 6e 64 20 69 6e 73 74 65 61 64 20 70 72 6f 63 65 65 64 20 74 6f 20 74 68 65 20 6e 65	ms.and.instead.proceed.to.the.ne
0700	78 74 20 63 6c 61 75 73 65 2e 0a 0a 41 20 28 5b 53 59 4d 42 4f 4c 20 56 41 4c 55 45 46 4f 52 4d	xt.clause...A.([SYMBOL.VALUEFORM
0720	5d 2e 2e 2e 20 42 4f 44 59 2e 2e 2e 29 20 63 6c 61 75 73 65 20 62 65 67 69 6e 73 20 77 69 74 68	]....BODY...).clause.begins.with
0740	20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 62 69 6e 64 69 6e 67 0a 76 65 63 74 6f 72 73 2c 20 66 6f	.one.or.more.binding.vectors,.fo
0760	6c 6c 6f 77 65 64 20 62 79 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 42 4f 44 59 20 66 6f 72 6d 73	llowed.by.one.or.more.BODY.forms
0780	2e 20 20 42 69 6e 64 20 53 59 4d 42 4f 4c 20 74 6f 20 74 68 65 20 76 61 6c 75 65 0a 6f 66 20 56	...Bind.SYMBOL.to.the.value.of.V
07a0	41 4c 55 45 46 4f 52 4d 2e 20 20 45 61 63 68 20 56 41 4c 55 45 46 4f 52 4d 20 63 61 6e 20 72 65	ALUEFORM...Each.VALUEFORM.can.re
07c0	66 65 72 20 74 6f 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 20	fer.to.symbols.already.bound.by.
07e0	74 68 69 73 0a 56 41 52 4c 49 53 54 20 28 61 73 20 66 6f 72 20 60 6c 65 74 2a 27 29 2e 0a 0a 49	this.VARLIST.(as.for.`let*')...I
0800	66 20 61 6c 6c 20 56 41 4c 55 45 46 4f 52 4d 73 20 79 69 65 6c 64 20 6e 6f 6e 2d 6e 69 6c 2c 20	f.all.VALUEFORMs.yield.non-nil,.
0820	65 76 61 6c 75 61 74 65 20 42 4f 44 59 20 66 6f 72 6d 73 20 73 65 71 75 65 6e 74 69 61 6c 6c 79	evaluate.BODY.forms.sequentially
0840	2c 20 77 69 74 68 0a 56 41 52 4c 49 53 54 27 73 20 62 69 6e 64 69 6e 67 73 20 69 6e 20 65 66 66	,.with.VARLIST's.bindings.in.eff
0860	65 63 74 2c 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65	ect,.and.return.the.value.of.the
0880	20 6c 61 73 74 20 66 6f 72 6d 2e 0a 0a 49 66 20 61 6e 79 20 56 41 4c 55 45 46 4f 52 4d 20 79 69	.last.form...If.any.VALUEFORM.yi
08a0	65 6c 64 73 20 6e 69 6c 2c 20 65 76 61 6c 75 61 74 65 20 6e 65 69 74 68 65 72 20 74 68 65 20 72	elds.nil,.evaluate.neither.the.r
08c0	65 6d 61 69 6e 69 6e 67 20 56 41 4c 55 45 46 4f 52 4d 73 0a 6e 6f 72 20 74 68 65 20 42 4f 44 59	emaining.VALUEFORMs.nor.the.BODY
08e0	20 66 6f 72 6d 73 2c 20 61 6e 64 20 70 72 6f 63 65 65 64 20 74 6f 20 74 68 65 20 6e 65 78 74 20	.forms,.and.proceed.to.the.next.
0900	63 6c 61 75 73 65 2e 0a 0a 41 20 5b 5b 53 59 4d 42 4f 4c 20 56 41 4c 55 45 46 4f 52 4d 5d 2e 2e	clause...A.[[SYMBOL.VALUEFORM]..
0920	2e 5d 20 66 6f 72 6d 20 63 72 65 61 74 65 73 20 62 69 6e 64 69 6e 67 73 2c 20 77 68 69 63 68 20	.].form.creates.bindings,.which.
0940	65 78 74 65 6e 64 20 74 6f 20 61 6c 6c 0a 72 65 6d 61 69 6e 69 6e 67 20 63 6c 61 75 73 65 73 20	extend.to.all.remaining.clauses.
0960	61 6e 64 20 62 69 6e 64 69 6e 67 20 76 65 63 74 6f 72 73 2e 20 20 55 6e 6c 69 6b 65 20 66 6f 72	and.binding.vectors...Unlike.for
0980	20 74 68 65 20 70 72 65 76 69 6f 75 73 20 66 6f 72 6d 2c 0a 61 6c 77 61 79 73 20 62 69 6e 64 20	.the.previous.form,.always.bind.
09a0	61 6c 6c 20 53 59 4d 42 4f 4c 73 2c 20 65 76 65 6e 20 69 66 20 61 20 56 41 4c 55 45 46 4f 52 4d	all.SYMBOLs,.even.if.a.VALUEFORM
09c0	20 79 69 65 6c 64 73 20 6e 69 6c 2e 20 20 41 6c 77 61 79 73 20 70 72 6f 63 65 65 64 0a 74 6f 20	.yields.nil...Always.proceed.to.
09e0	74 68 65 20 6e 65 78 74 20 63 6c 61 75 73 65 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 43 4c 41 55	the.next.clause...(fn.&rest.CLAU
0a00	53 45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 6e 64 2d 6c 65 74 2a 20 27 28 6d 61 63	SES)..(defalias.'cond-let*.'(mac
0a20	72 6f 20 2e 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 5c 33 30 33 02 44 5c	ro...#[128."\300\301!\302\303.D\
0a40	33 30 34 03 5c 33 30 35 06 06 23 42 42 5c 32 30 37 22 20 5b 67 65 6e 73 79 6d 20 22 3a 63 6f 6e	304.\305..#BB\207".[gensym.":con
0a60	64 2d 6c 65 74 2a 22 20 63 61 74 63 68 20 71 75 6f 74 65 20 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72	d-let*".catch.quote.cond-let--pr
0a80	65 70 61 72 65 2d 63 6c 61 75 73 65 73 20 74 5d 20 38 20 28 23 24 20 2e 20 31 32 34 36 29 5d 29	epare-clauses.t].8.(#$...1246)])
0aa0	29 23 40 31 33 37 36 20 54 72 79 20 65 61 63 68 20 63 6c 61 75 73 65 20 75 6e 74 69 6c 20 6f 6e	)#@1376.Try.each.clause.until.on
0ac0	65 20 73 75 63 63 65 65 64 73 2e 0a 0a 45 61 63 68 20 63 6c 61 75 73 65 20 68 61 73 20 6f 6e 65	e.succeeds...Each.clause.has.one
0ae0	20 6f 66 20 74 68 65 73 65 20 66 6f 72 6d 73 3a 0a 2d 20 61 20 70 6c 61 69 6e 20 63 6c 61 75 73	.of.these.forms:.-.a.plain.claus
0b00	65 20 20 20 28 43 4f 4e 44 49 54 49 4f 4e 20 42 4f 44 59 2e 2e 2e 29 0a 2d 20 61 20 62 69 6e 64	e...(CONDITION.BODY...).-.a.bind
0b20	69 6e 67 20 63 6c 61 75 73 65 20 28 5b 53 59 4d 42 4f 4c 20 56 41 4c 55 45 46 4f 52 4d 5d 2e 2e	ing.clause.([SYMBOL.VALUEFORM]..
0b40	2e 20 42 4f 44 59 2e 2e 2e 29 0a 2d 20 61 20 62 69 6e 64 69 6e 67 20 76 65 63 74 6f 72 20 5b 5b	..BODY...).-.a.binding.vector.[[
0b60	53 59 4d 42 4f 4c 20 56 41 4c 55 45 46 4f 52 4d 5d 2e 2e 2e 5d 0a 0a 41 20 28 43 4f 4e 44 49 54	SYMBOL.VALUEFORM]...]..A.(CONDIT
0b80	49 4f 4e 20 42 4f 44 59 2e 2e 2e 29 20 63 6c 61 75 73 65 20 77 6f 72 6b 73 20 61 73 20 66 6f 72	ION.BODY...).clause.works.as.for
0ba0	20 60 63 6f 6e 64 27 2e 20 20 45 76 61 6c 75 61 74 65 20 43 4f 4e 44 49 54 49 4f 4e 2c 0a 61 6e	.`cond'...Evaluate.CONDITION,.an
0bc0	64 20 69 66 20 69 74 20 79 69 65 6c 64 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 63 6c 61 75	d.if.it.yields.non-nil,.the.clau
0be0	73 65 20 73 75 63 63 65 65 64 73 2e 20 20 54 68 65 6e 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59	se.succeeds...Then.evaluate.BODY
0c00	20 66 6f 72 6d 73 0a 73 65 71 75 65 6e 74 69 61 6c 6c 79 20 61 6e 64 20 72 65 74 75 72 6e 20 74	.forms.sequentially.and.return.t
0c20	68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 6c 61 73 74 3b 20 6f 72 20 69 66 20 74 68 65 72	he.value.of.the.last;.or.if.ther
0c40	65 20 61 72 65 20 6e 6f 20 42 4f 44 59 0a 66 6f 72 6d 73 2c 20 72 65 74 75 72 6e 20 74 68 65 20	e.are.no.BODY.forms,.return.the.
0c60	76 61 6c 75 65 20 6f 66 20 43 4f 4e 44 49 54 49 4f 4e 2e 20 20 49 66 20 43 4f 4e 44 49 54 49 4f	value.of.CONDITION...If.CONDITIO
0c80	4e 20 79 69 65 6c 64 73 20 6e 69 6c 2c 20 64 6f 20 6e 6f 74 0a 65 76 61 6c 75 61 74 65 20 74 68	N.yields.nil,.do.not.evaluate.th
0ca0	65 20 42 4f 44 59 20 66 6f 72 6d 73 20 61 6e 64 20 69 6e 73 74 65 61 64 20 70 72 6f 63 65 65 64	e.BODY.forms.and.instead.proceed
0cc0	20 74 6f 20 74 68 65 20 6e 65 78 74 20 63 6c 61 75 73 65 2e 0a 0a 41 20 28 5b 53 59 4d 42 4f 4c	.to.the.next.clause...A.([SYMBOL
0ce0	20 56 41 4c 55 45 46 4f 52 4d 5d 2e 2e 2e 20 42 4f 44 59 2e 2e 2e 29 20 63 6c 61 75 73 65 20 62	.VALUEFORM]....BODY...).clause.b
0d00	65 67 69 6e 73 20 77 69 74 68 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 62 69 6e 64 69 6e 67 0a 76	egins.with.one.or.more.binding.v
0d20	65 63 74 6f 72 73 2c 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20	ectors,.followed.by.one.or.more.
0d40	42 4f 44 59 20 66 6f 72 6d 73 2e 20 20 42 69 6e 64 20 53 59 4d 42 4f 4c 20 74 6f 20 74 68 65 20	BODY.forms...Bind.SYMBOL.to.the.
0d60	76 61 6c 75 65 0a 6f 66 20 56 41 4c 55 45 46 4f 52 4d 2e 20 20 45 76 61 6c 75 61 74 65 20 61 6c	value.of.VALUEFORM...Evaluate.al
0d80	6c 20 56 41 4c 55 45 46 4f 52 4d 73 20 62 65 66 6f 72 65 20 62 69 6e 64 69 6e 67 20 74 68 65 69	l.VALUEFORMs.before.binding.thei
0da0	72 20 72 65 73 70 65 63 74 69 76 65 0a 53 59 4d 42 4f 4c 73 20 28 61 73 20 66 6f 72 20 60 6c 65	r.respective.SYMBOLs.(as.for.`le
0dc0	74 27 29 2e 0a 0a 49 66 20 61 6c 6c 20 56 41 4c 55 45 46 4f 52 4d 73 20 79 69 65 6c 64 20 6e 6f	t')...If.all.VALUEFORMs.yield.no
0de0	6e 2d 6e 69 6c 2c 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59 20 66 6f 72 6d 73 20 73 65 71 75 65	n-nil,.evaluate.BODY.forms.seque
0e00	6e 74 69 61 6c 6c 79 2c 20 77 69 74 68 0a 56 41 52 4c 49 53 54 27 73 20 62 69 6e 64 69 6e 67 73	ntially,.with.VARLIST's.bindings
0e20	20 69 6e 20 65 66 66 65 63 74 2c 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 76 61 6c 75 65	.in.effect,.and.return.the.value
0e40	20 6f 66 20 74 68 65 20 6c 61 73 74 20 66 6f 72 6d 2e 0a 0a 49 66 20 61 6e 79 20 56 41 4c 55 45	.of.the.last.form...If.any.VALUE
0e60	46 4f 52 4d 20 79 69 65 6c 64 73 20 6e 69 6c 2c 20 65 76 61 6c 75 61 74 65 20 6e 65 69 74 68 65	FORM.yields.nil,.evaluate.neithe
0e80	72 20 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 56 41 4c 55 45 46 4f 52 4d 73 0a 6e 6f 72 20 74	r.the.remaining.VALUEFORMs.nor.t
0ea0	68 65 20 42 4f 44 59 20 66 6f 72 6d 73 2c 20 61 6e 64 20 70 72 6f 63 65 65 64 20 74 6f 20 74 68	he.BODY.forms,.and.proceed.to.th
0ec0	65 20 6e 65 78 74 20 63 6c 61 75 73 65 2e 0a 0a 41 20 5b 5b 53 59 4d 42 4f 4c 20 56 41 4c 55 45	e.next.clause...A.[[SYMBOL.VALUE
0ee0	46 4f 52 4d 5d 2e 2e 2e 5d 20 66 6f 72 6d 20 63 72 65 61 74 65 73 20 62 69 6e 64 69 6e 67 73 2c	FORM]...].form.creates.bindings,
0f00	20 77 68 69 63 68 20 65 78 74 65 6e 64 20 74 6f 20 61 6c 6c 0a 72 65 6d 61 69 6e 69 6e 67 20 63	.which.extend.to.all.remaining.c
0f20	6c 61 75 73 65 73 20 61 6e 64 20 62 69 6e 64 69 6e 67 20 76 65 63 74 6f 72 73 2e 20 20 45 76 61	lauses.and.binding.vectors...Eva
0f40	6c 75 61 74 65 20 61 6c 6c 20 56 41 4c 55 45 46 4f 52 4d 73 20 62 65 66 6f 72 65 0a 62 69 6e 64	luate.all.VALUEFORMs.before.bind
0f60	69 6e 67 20 74 68 65 69 72 20 72 65 73 70 65 63 74 69 76 65 20 53 59 4d 42 4f 4c 73 2e 20 20 55	ing.their.respective.SYMBOLs...U
0f80	6e 6c 69 6b 65 20 66 6f 72 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 66 6f 72 6d 2c 20 62 69 6e	nlike.for.the.previous.form,.bin
0fa0	64 0a 61 6c 6c 20 53 59 4d 42 4f 4c 73 2c 20 65 76 65 6e 20 69 66 20 61 20 56 41 4c 55 45 46 4f	d.all.SYMBOLs,.even.if.a.VALUEFO
0fc0	52 4d 20 79 69 65 6c 64 73 20 6e 69 6c 2e 20 20 41 6c 77 61 79 73 20 70 72 6f 63 65 65 64 20 74	RM.yields.nil...Always.proceed.t
0fe0	6f 20 74 68 65 0a 6e 65 78 74 20 63 6c 61 75 73 65 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 43 4c	o.the.next.clause...(fn.&rest.CL
1000	41 55 53 45 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	AUSES)..(byte-code."\300\301\302
1020	5c 33 30 33 23 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 66 75 6e	\303#\304\301\305\306#\207".[fun
1040	63 74 69 6f 6e 2d 70 75 74 20 63 6f 6e 64 2d 6c 65 74 2a 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d	ction-put.cond-let*.lisp-indent-
1060	66 75 6e 63 74 69 6f 6e 20 30 20 70 75 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20	function.0.put.edebug-form-spec.
1080	28 26 72 65 73 74 20 5b 26 6f 72 20 28 76 65 63 74 6f 72 20 26 72 65 73 74 20 28 76 65 63 74 6f	(&rest.[&or.(vector.&rest.(vecto
10a0	72 20 73 79 6d 62 6f 6c 70 20 66 6f 72 6d 29 29 20 28 5b 26 72 65 73 74 20 28 76 65 63 74 6f 72	r.symbolp.form)).([&rest.(vector
10c0	20 73 79 6d 62 6f 6c 70 20 66 6f 72 6d 29 5d 20 62 6f 64 79 29 20 28 66 6f 72 6d 20 62 6f 64 79	.symbolp.form)].body).(form.body
10e0	29 5d 29 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 6e 64 2d 6c 65 74 20 27 28 6d 61	)])].5).(defalias.'cond-let.'(ma
1100	63 72 6f 20 2e 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 5c 33 30 33 02 44	cro...#[128."\300\301!\302\303.D
1120	5c 33 30 34 03 5c 33 30 35 06 06 23 42 42 5c 32 30 37 22 20 5b 67 65 6e 73 79 6d 20 22 3a 63 6f	\304.\305..#BB\207".[gensym.":co
1140	6e 64 2d 6c 65 74 22 20 63 61 74 63 68 20 71 75 6f 74 65 20 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72	nd-let".catch.quote.cond-let--pr
1160	65 70 61 72 65 2d 63 6c 61 75 73 65 73 20 6e 69 6c 5d 20 38 20 28 23 24 20 2e 20 32 37 32 38 29	epare-clauses.nil].8.(#$...2728)
1180	5d 29 29 23 40 31 36 32 20 55 73 65 64 20 62 79 20 43 6f 6e 64 2d 4c 65 74 27 73 20 60 77 68 65	]))#@162.Used.by.Cond-Let's.`whe
11a0	6e 2d 6c 65 74 2a 27 2c 20 60 61 6e 64 2d 6c 65 74 2a 27 20 61 6e 64 20 60 77 68 69 6c 65 2d 6c	n-let*',.`and-let*'.and.`while-l
11c0	65 74 2a 27 2e 0a 41 6c 73 6f 20 75 73 65 64 20 62 79 20 6f 74 68 65 72 20 6d 61 63 72 6f 73 20	et*'..Also.used.by.other.macros.
11e0	76 69 61 20 60 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61 72 65 2d 76 61 72 66 6f 72 6d 73 27	via.`cond-let--prepare-varforms'
1200	2e 0a 52 65 74 75 72 6e 20 28 56 41 52 4c 49 53 54 20 4c 41 53 54 56 41 52 29 2e 0a 0a 28 66 6e	..Return.(VARLIST.LASTVAR)...(fn
1220	20 56 41 52 4c 49 53 54 29 1f 23 40 31 36 20 0a 0a 28 66 6e 20 42 49 4e 44 49 4e 47 29 1f 0a 28	.VARLIST).#@16...(fn.BINDING)..(
1240	62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34	byte-code."\300\301\302\303#\304
1260	5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74	\301\305\306#\207".[function-put
1280	20 63 6f 6e 64 2d 6c 65 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 30	.cond-let.lisp-indent-function.0
12a0	20 70 75 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 63 6f 6e 64 2d 6c 65 74 2a 5d	.put.edebug-form-spec.cond-let*]
12c0	20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61 72 65	.5).(defalias.'cond-let--prepare
12e0	2d 76 61 72 6c 69 73 74 20 23 5b 32 35 37 20 22 5c 33 30 30 43 5c 33 30 31 5c 33 30 32 5c 33 30	-varlist.#[257."\300C\301\302\30
1300	33 03 5c 22 03 5c 22 01 5c 32 34 32 44 5c 32 30 37 22 20 5b 6e 69 6c 20 6d 61 70 63 61 72 20 6d	3.\".\".\242D\207".[nil.mapcar.m
1320	61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 31 01 5c 33 30 32 5c 22 5c 32	ake-closure.#[257."\301.\302\"\2
1340	30 34 0e 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 03 42 5c 22 5c 32 31 30 5c 32 31 31 5c 32 34 32	04..\303\304\305.B\"\210\211\242
1360	01 5c 32 34 33 5c 32 31 31 5c 32 34 32 01 5c 32 34 33 03 5c 33 30 36 5c 33 30 37 5c 33 31 30 06	.\243\211\242.\243.\306\307\310.
1380	07 21 5c 22 5c 32 30 33 26 00 5c 33 31 31 5c 33 31 32 21 5c 32 36 32 01 5c 33 30 30 5c 32 34 32	.!\"\203&.\311\312!\262.\300\242
13a0	5c 32 30 33 35 00 5c 32 31 31 5c 33 31 33 5c 33 30 30 5c 32 34 32 05 45 44 5c 32 30 32 38 00 5c	\2035.\211\313\300\242.ED\2028.\
13c0	32 31 31 03 44 5c 33 30 30 02 5c 32 34 30 5c 32 31 30 5c 32 30 37 22 20 5b 56 30 20 6c 65 6e 67	211.D\300.\240\210\207".[V0.leng
13e0	74 68 3d 20 32 20 73 69 67 6e 61 6c 20 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 62 69 6e 64	th=.2.signal.error."Invalid.bind
1400	69 6e 67 22 20 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 5f 22 20 73 79 6d 62 6f 6c 2d	ing".string-prefix-p."_".symbol-
1420	6e 61 6d 65 20 67 65 6e 73 79 6d 20 22 61 6e 6f 6e 22 20 61 6e 64 5d 20 31 30 20 28 23 24 20 2e	name.gensym."anon".and].10.(#$..
1440	20 34 36 35 35 29 5d 5d 20 36 20 28 23 24 20 2e 20 34 34 38 39 29 5d 29 23 40 32 33 35 20 55 73	.4655)]].6.(#$...4489)])#@235.Us
1460	65 64 20 62 79 20 43 6f 6e 64 2d 4c 65 74 27 73 20 60 77 68 65 6e 2d 6c 65 74 27 2c 20 60 61 6e	ed.by.Cond-Let's.`when-let',.`an
1480	64 2d 6c 65 74 27 2c 20 60 77 68 69 6c 65 2d 6c 65 74 27 20 61 6e 64 20 60 69 66 2d 6c 65 74 27	d-let',.`while-let'.and.`if-let'
14a0	2e 0a 52 65 74 75 72 6e 20 28 41 4e 4f 4e 2d 56 41 52 4c 49 53 54 20 41 4e 4f 4e 2d 53 45 54 51	..Return.(ANON-VARLIST.ANON-SETQ
14c0	20 56 41 52 4c 49 53 54 20 4c 41 53 54 56 41 52 29 2c 20 6f 72 20 69 66 20 74 68 65 20 6c 65 6e	.VARLIST.LASTVAR),.or.if.the.len
14e0	67 74 68 20 6f 66 0a 56 41 52 4c 49 53 54 20 69 73 20 31 20 61 6e 64 20 49 46 2d 4c 45 54 20 69	gth.of.VARLIST.is.1.and.IF-LET.i
1500	73 20 6e 69 6c 2c 20 72 65 74 75 72 6e 20 28 6e 69 6c 20 6e 69 6c 20 56 41 52 4c 49 53 54 20 4c	s.nil,.return.(nil.nil.VARLIST.L
1520	41 53 54 56 41 52 29 2e 0a 0a 28 66 6e 20 56 41 52 4c 49 53 54 20 26 6f 70 74 69 6f 6e 61 6c 20	ASTVAR)...(fn.VARLIST.&optional.
1540	49 46 2d 4c 45 54 29 1f 23 40 31 33 20 0a 0a 28 66 6e 20 41 52 47 30 29 1f 0a 28 64 65 66 61 6c	IF-LET).#@13...(fn.ARG0)..(defal
1560	69 61 73 20 27 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61 72 65 2d 76 61 72 66 6f 72 6d 73 20	ias.'cond-let--prepare-varforms.
1580	23 5b 35 31 33 20 22 5c 32 31 31 5c 32 30 34 13 00 5c 33 30 30 02 5c 33 30 31 5c 22 5c 32 30 33	#[513."\211\204..\300.\301\"\203
15a0	13 00 5c 33 30 32 5c 32 31 31 5c 33 30 33 04 21 42 42 5c 32 30 37 5c 33 30 34 5c 33 30 35 03 5c	..\302\211\303.!BB\207\304\305.\
15c0	22 5c 33 30 36 5c 33 30 37 02 5c 22 5c 33 30 34 5c 33 31 30 03 5c 22 5c 33 30 36 5c 33 31 31 04	"\306\307.\"\304\310.\"\306\311.
15e0	5c 22 5c 33 31 32 04 21 40 41 40 46 5c 32 30 37 22 20 5b 6c 65 6e 67 74 68 3d 20 31 20 6e 69 6c	\"\312.!@A@F\207".[length=.1.nil
1600	20 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61 72 65 2d 76 61 72 6c 69 73 74 20 6d 61 70 63 61	.cond-let--prepare-varlist.mapca
1620	72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 34 0e 00 5c 33 30 32 5c 33	r.#[257."\300.\301\"\204..\302\3
1640	30 33 5c 33 30 34 03 42 5c 22 5c 32 31 30 5c 32 31 31 5c 32 34 32 01 5c 32 34 33 5c 32 31 31 5c	03\304.B\"\210\211\242.\243\211\
1660	32 34 32 01 5c 32 34 33 03 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 07 21 5c 22 5c 32 30 33 23 00	242.\243.\305\306\307..!\"\203#.
1680	5c 32 31 30 5c 33 31 30 5c 32 31 31 5c 32 30 35 2a 00 5c 33 31 31 5c 33 31 32 21 01 04 45 5c 32	\210\310\211\205*.\311\312!..E\2
16a0	30 37 22 20 5b 6c 65 6e 67 74 68 3d 20 32 20 73 69 67 6e 61 6c 20 65 72 72 6f 72 20 22 49 6e 76	07".[length=.2.signal.error."Inv
16c0	61 6c 69 64 20 62 69 6e 64 69 6e 67 22 20 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 5f	alid.binding".string-prefix-p."_
16e0	22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6e 69 6c 20 67 65 6e 73 79 6d 20 22 61 6e 6f 6e 22 5d	".symbol-name.nil.gensym."anon"]
1700	20 31 30 20 28 23 24 20 2e 20 34 36 35 35 29 5d 20 6d 61 70 63 61 6e 20 23 5b 32 35 37 20 22 5c	.10.(#$...4655)].mapcan.#[257."\
1720	32 31 31 5c 32 34 32 01 5c 32 34 33 5c 32 31 31 5c 32 34 33 5c 32 31 31 5c 32 34 33 03 5c 32 30	211\242.\243\211\243\211\243.\20
1740	35 0e 00 03 43 5c 32 30 37 22 20 23 31 3d 5b 5d 20 36 20 28 23 24 20 2e 20 35 34 35 33 29 5d 20	5...C\207".#1=[].6.(#$...5453)].
1760	23 5b 32 35 37 20 22 5c 32 31 31 5c 32 34 32 01 5c 32 34 33 5c 32 31 31 5c 32 34 33 5c 32 31 31	#[257."\211\242.\243\211\243\211
1780	5c 32 34 32 01 5c 32 34 33 04 5c 32 30 33 13 00 5c 33 30 30 05 03 45 5c 32 30 37 01 5c 32 30 37	\242.\243.\203..\300..E\207.\207
17a0	22 20 5b 73 65 74 71 5d 20 39 20 28 23 24 20 2e 20 35 34 35 33 29 5d 20 23 5b 32 35 37 20 22 5c	".[setq].9.(#$...5453)].#[257."\
17c0	32 31 31 5c 32 34 32 01 5c 32 34 33 5c 32 31 31 5c 32 34 32 01 5c 32 34 33 5c 32 31 31 5c 32 34	211\242.\243\211\242.\243\211\24
17e0	33 02 5c 32 30 35 12 00 02 05 44 43 5c 32 30 37 22 20 23 31 23 20 38 20 28 23 24 20 2e 20 35 34	3.\205....DC\207".#1#.8.(#$...54
1800	35 33 29 5d 20 6c 61 73 74 5d 20 38 20 28 23 24 20 2e 20 35 32 31 34 29 5d 29 23 40 35 39 34 20	53)].last].8.(#$...5214)])#@594.
1820	42 69 6e 64 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 56 41 52 4c 49 53 54 20 75 6e 74 69 6c 20	Bind.according.to.VARLIST.until.
1840	6f 6e 65 20 79 69 65 6c 64 73 20 6e 69 6c 2c 20 65 6c 73 65 20 65 76 61 6c 75 61 74 65 20 42 4f	one.yields.nil,.else.evaluate.BO
1860	44 59 46 4f 52 4d 2e 0a 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 56 41 52 4c 49 53 54	DYFORM...Each.element.of.VARLIST
1880	20 69 73 20 61 20 6c 69 73 74 20 28 53 59 4d 42 4f 4c 20 56 41 4c 55 45 46 4f 52 4d 29 2c 20 77	.is.a.list.(SYMBOL.VALUEFORM),.w
18a0	68 69 63 68 20 62 69 6e 64 73 20 53 59 4d 42 4f 4c 0a 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f	hich.binds.SYMBOL.to.the.value.o
18c0	66 20 56 41 4c 55 45 46 4f 52 4d 2e 20 20 45 61 63 68 20 56 41 4c 55 45 46 4f 52 4d 20 63 61 6e	f.VALUEFORM...Each.VALUEFORM.can
18e0	20 72 65 66 65 72 20 74 6f 20 73 79 6d 62 6f 6c 73 20 61 6c 72 65 61 64 79 0a 62 6f 75 6e 64 20	.refer.to.symbols.already.bound.
1900	62 79 20 74 68 69 73 20 56 41 52 4c 49 53 54 20 28 61 73 20 66 6f 72 20 60 6c 65 74 2a 27 29 2e	by.this.VARLIST.(as.for.`let*').
1920	0a 0a 45 76 61 6c 75 61 74 65 20 56 41 4c 55 45 46 4f 52 4d 73 20 75 6e 74 69 6c 20 6f 6e 20 6f	..Evaluate.VALUEFORMs.until.on.o
1940	66 20 74 68 65 6d 20 79 69 65 6c 64 73 20 6e 69 6c 2e 20 20 49 66 20 74 68 61 74 20 68 61 70 70	f.them.yields.nil...If.that.happ
1960	65 6e 73 20 72 65 74 75 72 6e 0a 6e 69 6c 2c 20 61 6e 64 20 65 76 61 6c 75 61 74 65 20 6e 65 69	ens.return.nil,.and.evaluate.nei
1980	74 68 65 72 20 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 56 41 4c 55 45 46 4f 52 4d 73 20 6e 6f	ther.the.remaining.VALUEFORMs.no
19a0	72 20 42 4f 44 59 46 4f 52 4d 2e 20 20 49 66 20 61 6c 6c 0a 56 41 4c 55 45 46 4f 52 4d 73 20 79	r.BODYFORM...If.all.VALUEFORMs.y
19c0	69 65 6c 64 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59 46 4f 52 4d 20	ield.non-nil,.evaluate.BODYFORM.
19e0	77 69 74 68 20 74 68 65 20 62 69 6e 64 69 6e 67 73 20 69 6e 20 65 66 66 65 63 74 2c 0a 61 6e 64	with.the.bindings.in.effect,.and
1a00	20 72 65 74 75 72 6e 20 69 74 73 20 76 61 6c 75 65 3b 20 6f 72 20 69 66 20 74 68 65 72 65 20 69	.return.its.value;.or.if.there.i
1a20	73 20 6e 6f 20 42 4f 44 59 46 4f 52 4d 2c 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20	s.no.BODYFORM,.the.value.of.the.
1a40	6c 61 73 74 0a 56 41 4c 55 45 46 4f 52 4d 2e 0a 0a 28 66 6e 20 56 41 52 4c 49 53 54 20 26 6f 70	last.VALUEFORM...(fn.VARLIST.&op
1a60	74 69 6f 6e 61 6c 20 42 4f 44 59 46 4f 52 4d 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 6e	tional.BODYFORM)..(defalias.'con
1a80	64 2d 6c 65 74 2d 2d 61 6e 64 2d 6c 65 74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 33 20	d-let--and-let*.'(macro...#[513.
1aa0	22 5c 33 30 30 02 21 5c 32 31 31 5c 32 34 32 01 5c 32 34 33 5c 32 31 31 5c 32 34 32 01 5c 32 34	"\300.!\211\242.\243\211\242.\24
1ac0	33 5c 33 30 31 04 06 07 5c 32 30 33 1a 00 5c 33 30 32 04 06 09 45 5c 32 30 32 1b 00 03 45 5c 32	3\301...\203..\302...E\202...E\2
1ae0	30 37 22 20 5b 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61 72 65 2d 76 61 72 6c 69 73 74 20 6c	07".[cond-let--prepare-varlist.l
1b00	65 74 2a 20 61 6e 64 5d 20 31 32 20 28 23 24 20 2e 20 36 31 37 36 29 5d 29 29 23 40 35 39 31 20	et*.and].12.(#$...6176)]))#@591.
1b20	42 69 6e 64 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 56 41 52 4c 49 53 54 20 75 6e 74 69 6c 20	Bind.according.to.VARLIST.until.
1b40	6f 6e 65 20 79 69 65 6c 64 73 20 6e 69 6c 2c 20 65 6c 73 65 20 65 76 61 6c 75 61 74 65 20 42 4f	one.yields.nil,.else.evaluate.BO
1b60	44 59 46 4f 52 4d 2e 0a 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 56 41 52 4c 49 53 54	DYFORM...Each.element.of.VARLIST
1b80	20 69 73 20 61 20 6c 69 73 74 20 28 53 59 4d 42 4f 4c 20 56 41 4c 55 45 46 4f 52 4d 29 2c 20 77	.is.a.list.(SYMBOL.VALUEFORM),.w
1ba0	68 69 63 68 20 62 69 6e 64 73 20 53 59 4d 42 4f 4c 0a 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f	hich.binds.SYMBOL.to.the.value.o
1bc0	66 20 56 41 4c 55 45 46 4f 52 4d 2e 20 20 45 76 61 6c 75 61 74 65 20 61 6c 6c 20 56 41 4c 55 45	f.VALUEFORM...Evaluate.all.VALUE
1be0	46 4f 52 4d 73 20 62 65 66 6f 72 65 20 62 69 6e 64 69 6e 67 20 74 68 65 69 72 0a 72 65 73 70 65	FORMs.before.binding.their.respe
1c00	63 74 69 76 65 20 53 59 4d 42 4f 4c 73 20 28 61 73 20 66 6f 72 20 60 6c 65 74 27 29 2e 0a 0a 45	ctive.SYMBOLs.(as.for.`let')...E
1c20	76 61 6c 75 61 74 65 20 56 41 4c 55 45 46 4f 52 4d 73 20 75 6e 74 69 6c 20 6f 6e 20 6f 66 20 74	valuate.VALUEFORMs.until.on.of.t
1c40	68 65 6d 20 79 69 65 6c 64 73 20 6e 69 6c 2e 20 20 49 66 20 74 68 61 74 20 68 61 70 70 65 6e 73	hem.yields.nil...If.that.happens
1c60	20 72 65 74 75 72 6e 0a 6e 69 6c 2c 20 61 6e 64 20 65 76 61 6c 75 61 74 65 20 6e 65 69 74 68 65	.return.nil,.and.evaluate.neithe
1c80	72 20 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 56 41 4c 55 45 46 4f 52 4d 73 20 6e 6f 72 20 42	r.the.remaining.VALUEFORMs.nor.B
1ca0	4f 44 59 46 4f 52 4d 2e 20 20 49 66 20 61 6c 6c 0a 56 41 4c 55 45 46 4f 52 4d 73 20 79 69 65 6c	ODYFORM...If.all.VALUEFORMs.yiel
1cc0	64 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59 46 4f 52 4d 20 77 69 74	d.non-nil,.evaluate.BODYFORM.wit
1ce0	68 20 74 68 65 20 62 69 6e 64 69 6e 67 73 20 69 6e 20 65 66 66 65 63 74 2c 0a 61 6e 64 20 72 65	h.the.bindings.in.effect,.and.re
1d00	74 75 72 6e 20 69 74 73 20 76 61 6c 75 65 3b 20 6f 72 20 69 66 20 74 68 65 72 65 20 69 73 20 6e	turn.its.value;.or.if.there.is.n
1d20	6f 20 42 4f 44 59 46 4f 52 4d 2c 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 6c 61 73	o.BODYFORM,.the.value.of.the.las
1d40	74 0a 56 41 4c 55 45 46 4f 52 4d 2e 0a 0a 28 66 6e 20 56 41 52 4c 49 53 54 20 26 6f 70 74 69 6f	t.VALUEFORM...(fn.VARLIST.&optio
1d60	6e 61 6c 20 42 4f 44 59 46 4f 52 4d 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	nal.BODYFORM)..(byte-code."\300\
1d80	33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30	301\302\303#\304\301\305\306#\20
1da0	37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 6f 6e 64 2d 6c 65 74 2d 2d 61 6e 64 2d 6c	7".[function-put.cond-let--and-l
1dc0	65 74 2a 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 20 70 75 74 20 65	et*.lisp-indent-function.1.put.e
1de0	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 79 6d 62 6f 6c 70	debug-form-spec.((&rest.(symbolp
1e00	20 66 6f 72 6d 29 29 20 66 6f 72 6d 29 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 6e	.form)).form)].5).(defalias.'con
1e20	64 2d 6c 65 74 2d 2d 61 6e 64 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 33 20 22	d-let--and-let.'(macro...#[513."
1e40	5c 33 30 30 02 21 5c 32 31 31 5c 32 34 32 01 5c 32 34 33 5c 32 31 31 5c 32 34 32 01 5c 32 34 33	\300.!\211\242.\243\211\242.\243
1e60	5c 32 31 31 5c 32 34 32 01 5c 32 34 33 5c 32 31 31 5c 32 34 32 01 5c 32 34 33 06 07 5c 32 30 33	\211\242.\243\211\242.\243..\203
1e80	2f 00 5c 33 30 31 06 08 5c 33 30 32 5c 33 30 33 06 09 5c 33 30 31 06 09 06 10 5c 32 30 36 29 00	/.\301..\302\303..\301....\206).
1ea0	06 08 45 43 5c 22 42 45 5c 32 30 37 5c 33 30 31 04 06 0b 5c 32 30 33 3e 00 5c 33 30 32 04 06 0d	..EC\"BE\207\301...\203>.\302...
1ec0	45 5c 32 30 32 3f 00 03 45 5c 32 30 37 22 20 5b 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61 72	E\202?..E\207".[cond-let--prepar
1ee0	65 2d 76 61 72 66 6f 72 6d 73 20 6c 65 74 20 61 6e 64 20 61 70 70 65 6e 64 5d 20 31 39 20 28 23	e-varforms.let.and.append].19.(#
1f00	24 20 2e 20 36 39 34 34 29 5d 29 29 23 40 34 32 33 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73	$...6944)]))#@423.Bind.variables
1f20	20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 65 61 63 68 20 46 4f 52 4d 20 75 6e 74 69 6c 20 6f 6e	.according.to.each.FORM.until.on
1f40	65 20 6f 66 20 74 68 65 6d 20 79 69 65 6c 64 73 20 6e 69 6c 2e 0a 0a 45 76 61 6c 75 61 74 65 20	e.of.them.yields.nil...Evaluate.
1f60	74 68 65 20 66 69 72 73 74 20 46 4f 52 4d 20 61 6e 64 20 69 66 20 74 68 61 74 20 79 69 65 6c 64	the.first.FORM.and.if.that.yield
1f80	73 20 61 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2c 20 62 69 6e 64 20 74 68 65 0a 73 79 6d 62	s.a.non-nil.value,.bind.the.symb
1fa0	6f 6c 20 60 24 27 20 74 6f 20 74 68 61 74 20 76 61 6c 75 65 2c 20 61 6e 64 20 65 76 61 6c 75 61	ol.`$'.to.that.value,.and.evalua
1fc0	74 65 20 74 68 65 20 6e 65 78 74 20 46 4f 52 4d 20 77 69 74 68 20 74 68 61 74 20 62 69 6e 64 69	te.the.next.FORM.with.that.bindi
1fe0	6e 67 0a 69 6e 20 65 66 66 65 63 74 2e 20 20 52 65 70 65 61 74 20 74 68 69 73 20 70 72 6f 63 65	ng.in.effect...Repeat.this.proce
2000	73 73 20 77 69 74 68 20 73 75 62 73 65 71 75 65 6e 74 20 46 4f 52 4d 73 20 75 6e 74 69 6c 20 6f	ss.with.subsequent.FORMs.until.o
2020	6e 65 20 79 69 65 6c 64 73 0a 6e 69 6c 2c 20 74 68 65 6e 20 72 65 74 75 72 6e 20 6e 69 6c 20 77	ne.yields.nil,.then.return.nil.w
2040	69 74 68 6f 75 74 20 65 76 61 6c 75 61 74 65 20 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 46 4f	ithout.evaluate.the.remaining.FO
2060	52 4d 73 2e 20 20 49 66 20 61 6c 6c 0a 46 4f 52 4d 73 20 79 69 65 6c 64 20 6e 6f 6e 2d 6e 69 6c	RMs...If.all.FORMs.yield.non-nil
2080	2c 20 72 65 74 75 72 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 6c 61 73 74 20 46	,.return.the.value.of.the.last.F
20a0	4f 52 4d 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 46 4f 52 4d 2e 2e 2e 29 1f 23 40 31 33 20 0a 0a 28	ORM...(fn.FORM.FORM...).#@13...(
20c0	66 6e 20 46 4f 52 4d 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	fn.FORM)..(byte-code."\300\301\3
20e0	30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 66	02\303#\304\301\305\306#\207".[f
2100	75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 6f 6e 64 2d 6c 65 74 2d 2d 61 6e 64 2d 6c 65 74 20 6c 69	unction-put.cond-let--and-let.li
2120	73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 20 70 75 74 20 65 64 65 62 75 67 2d	sp-indent-function.1.put.edebug-
2140	66 6f 72 6d 2d 73 70 65 63 20 63 6f 6e 64 2d 6c 65 74 2d 2d 61 6e 64 2d 6c 65 74 2a 5d 20 35 29	form-spec.cond-let--and-let*].5)
2160	0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 6e 64 2d 6c 65 74 2d 2d 61 6e 64 24 20 27 28 6d 61 63	.(defalias.'cond-let--and$.'(mac
2180	72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 32 31 31 5c 32 30 33 08 00 5c 33 30 30 5c 32 30 32 09 00	ro...#[642."\211\203..\300\202..
21a0	5c 33 30 31 5c 33 30 32 04 44 02 5c 32 30 35 19 00 5c 33 30 33 5c 33 30 34 05 5c 33 30 35 06 06	\301\302.D.\205..\303\304.\305..
21c0	21 42 5c 22 42 5c 33 30 36 5c 33 30 32 5c 33 30 37 05 21 40 5c 32 30 36 24 00 05 45 45 5c 32 30	!B\"B\306\302\307.!@\206$..EE\20
21e0	37 22 20 5b 6c 65 74 2a 20 6c 65 74 20 24 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30	7".[let*.let.$.mapcar.#[257."\30
2200	30 5c 33 30 31 5c 33 30 30 03 45 44 5c 32 30 37 22 20 5b 24 20 61 6e 64 5d 20 35 20 28 23 24 20	0\301\300.ED\207".[$.and].5.(#$.
2220	2e 20 38 33 38 31 29 5d 20 62 75 74 6c 61 73 74 20 61 6e 64 20 6c 61 73 74 5d 20 31 30 20 28 23	..8381)].butlast.and.last].10.(#
2240	24 20 2e 20 37 39 35 34 29 5d 29 29 23 40 32 39 32 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 20	$...7954)]))#@292.Bind.variable.
2260	60 24 27 20 74 6f 20 76 61 6c 75 65 20 6f 66 20 6e 74 68 20 46 4f 52 4d 20 62 65 66 6f 72 65 20	`$'.to.value.of.nth.FORM.before.
2280	65 76 61 6c 75 61 74 69 6e 67 20 6e 74 68 2b 31 20 46 4f 52 4d 2e 0a 0a 45 76 61 6c 75 61 74 65	evaluating.nth+1.FORM...Evaluate
22a0	20 74 68 65 20 66 69 72 73 74 20 46 4f 52 4d 20 61 6e 64 20 62 69 6e 64 20 74 68 65 20 73 79 6d	.the.first.FORM.and.bind.the.sym
22c0	62 6f 6c 20 60 24 27 20 74 6f 20 69 74 73 20 76 61 6c 75 65 2e 0a 54 68 65 6e 20 65 76 61 6c 75	bol.`$'.to.its.value..Then.evalu
22e0	61 74 65 20 74 68 65 20 6e 65 78 74 20 46 4f 52 4d 20 77 69 74 68 20 74 68 61 74 20 62 69 6e 64	ate.the.next.FORM.with.that.bind
2300	69 6e 67 20 69 6e 20 65 66 66 65 63 74 2e 20 20 52 65 70 65 61 74 20 74 68 69 73 0a 70 72 6f 63	ing.in.effect...Repeat.this.proc
2320	65 73 73 20 77 69 74 68 20 73 75 62 73 65 71 75 65 6e 74 20 46 4f 52 4d 73 2c 20 61 6e 64 20 72	ess.with.subsequent.FORMs,.and.r
2340	65 74 75 72 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 6c 61 73 74 20 46 4f 52 4d	eturn.the.value.of.the.last.FORM
2360	2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 46 4f 52 4d 2e 2e 2e 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65	...(fn.FORM.FORM...)..(byte-code
2380	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c	."\300\301\302\303#\304\301\305\
23a0	33 30 36 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 6f 6e 64 2d 6c 65 74	306#\207".[function-put.cond-let
23c0	2d 2d 61 6e 64 24 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 30 20 70 75	--and$.lisp-indent-function.0.pu
23e0	74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 74 5d 20 35 29 0a 28 64 65 66 61 6c 69	t.edebug-form-spec.t].5).(defali
2400	61 73 20 27 63 6f 6e 64 2d 6c 65 74 2d 2d 74 68 72 65 61 64 24 20 27 28 6d 61 63 72 6f 20 2e 20	as.'cond-let--thread$.'(macro...
2420	23 5b 36 34 32 20 22 5c 32 31 31 5c 32 30 33 08 00 5c 33 30 30 5c 32 30 32 09 00 5c 33 30 31 5c	#[642."\211\203..\300\202..\301\
2440	33 30 32 04 44 02 5c 32 30 35 19 00 5c 33 30 33 5c 33 30 34 05 5c 33 30 35 06 06 21 42 5c 22 42	302.D.\205..\303\304.\305..!B\"B
2460	5c 33 30 36 03 21 40 5c 32 30 36 5c 22 00 03 45 5c 32 30 37 22 20 5b 6c 65 74 2a 20 6c 65 74 20	\306.!@\206\"..E\207".[let*.let.
2480	24 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 44 5c 32 30 37 22 20 5b 24 5d 20	$.mapcar.#[257."\300.D\207".[$].
24a0	33 20 28 23 24 20 2e 20 38 33 38 31 29 5d 20 62 75 74 6c 61 73 74 20 6c 61 73 74 5d 20 31 30 20	3.(#$...8381)].butlast.last].10.
24c0	28 23 24 20 2e 20 38 37 38 36 29 5d 29 29 23 40 36 31 33 20 42 69 6e 64 20 76 61 72 69 61 62 6c	(#$...8786)]))#@613.Bind.variabl
24e0	65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 56 41 52 4c 49 53 54 20 61 6e 64 20 65 76 61 6c	es.according.to.VARLIST.and.eval
2500	75 61 74 65 20 54 48 45 4e 20 6f 72 20 45 4c 53 45 2e 0a 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74	uate.THEN.or.ELSE...Each.element
2520	20 6f 66 20 56 41 52 4c 49 53 54 20 69 73 20 61 20 6c 69 73 74 20 28 53 59 4d 42 4f 4c 20 56 41	.of.VARLIST.is.a.list.(SYMBOL.VA
2540	4c 55 45 46 4f 52 4d 29 2c 20 77 68 69 63 68 20 62 69 6e 64 73 20 53 59 4d 42 4f 4c 0a 74 6f 20	LUEFORM),.which.binds.SYMBOL.to.
2560	74 68 65 20 76 61 6c 75 65 20 6f 66 20 56 41 4c 55 45 46 4f 52 4d 2e 20 20 45 61 63 68 20 56 41	the.value.of.VALUEFORM...Each.VA
2580	4c 55 45 46 4f 52 4d 20 63 61 6e 20 72 65 66 65 72 20 74 6f 20 73 79 6d 62 6f 6c 73 20 61 6c 72	LUEFORM.can.refer.to.symbols.alr
25a0	65 61 64 79 0a 62 6f 75 6e 64 20 62 79 20 74 68 69 73 20 56 41 52 4c 49 53 54 20 28 61 73 20 66	eady.bound.by.this.VARLIST.(as.f
25c0	6f 72 20 60 6c 65 74 2a 27 29 2e 0a 0a 49 66 20 61 6c 6c 20 56 41 4c 55 45 46 4f 52 4d 73 20 79	or.`let*')...If.all.VALUEFORMs.y
25e0	69 65 6c 64 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 76 61 6c 75 61 74 65 20 54 48 45 4e 20 77 69 74 68	ield.non-nil,.evaluate.THEN.with
2600	20 56 41 52 4c 49 53 54 27 73 20 62 69 6e 64 69 6e 67 73 0a 69 6e 20 65 66 66 65 63 74 2c 20 61	.VARLIST's.bindings.in.effect,.a
2620	6e 64 20 72 65 74 75 72 6e 20 69 74 73 20 76 61 6c 75 65 2e 20 20 54 48 45 4e 20 6d 75 73 74 20	nd.return.its.value...THEN.must.
2640	62 65 20 6f 6e 65 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 0a 49 66 20 61 6e 79 20 56 41 4c 55 45	be.one.expression...If.any.VALUE
2660	46 4f 52 4d 20 79 69 65 6c 64 73 20 6e 69 6c 2c 20 65 76 61 6c 75 61 74 65 20 45 4c 53 45 20 73	FORM.yields.nil,.evaluate.ELSE.s
2680	65 71 75 65 6e 74 69 61 6c 6c 79 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 0a 76 61 6c 75 65	equentially.and.return.the.value
26a0	20 6f 66 20 74 68 65 20 6c 61 73 74 20 66 6f 72 6d 3b 20 6f 72 20 69 66 20 74 68 65 72 65 20 61	.of.the.last.form;.or.if.there.a
26c0	72 65 20 6e 6f 20 45 4c 53 45 20 66 6f 72 6d 73 20 72 65 74 75 72 6e 20 6e 69 6c 2e 20 20 54 68	re.no.ELSE.forms.return.nil...Th
26e0	65 0a 62 69 6e 64 69 6e 67 73 20 66 72 6f 6d 20 56 41 52 4c 49 53 54 20 64 6f 20 5f 6e 6f 74 5f	e.bindings.from.VARLIST.do._not_
2700	20 65 78 74 65 6e 64 20 74 6f 20 74 68 65 20 45 4c 53 45 20 66 6f 72 6d 73 2e 0a 0a 28 66 6e 20	.extend.to.the.ELSE.forms...(fn.
2720	56 41 52 4c 49 53 54 20 54 48 45 4e 20 5b 45 4c 53 45 2e 2e 2e 5d 29 1f 0a 28 62 79 74 65 2d 63	VARLIST.THEN.[ELSE...])..(byte-c
2740	6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 31 5c 33	ode."\300\301\302\303#\304\301\3
2760	30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 6f 6e 64 2d	05\306#\207".[function-put.cond-
2780	6c 65 74 2d 2d 74 68 72 65 61 64 24 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f	let--thread$.lisp-indent-functio
27a0	6e 20 30 20 70 75 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 74 5d 20 35 29 0a 28	n.0.put.edebug-form-spec.t].5).(
27c0	64 65 66 61 6c 69 61 73 20 27 63 6f 6e 64 2d 6c 65 74 2d 2d 69 66 2d 6c 65 74 2a 20 27 28 6d 61	defalias.'cond-let--if-let*.'(ma
27e0	63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 03 21 5c 33 30 31 5c 33 30 32 21 01 5c 32 34	cro...#[642."\300.!\301\302!.\24
2800	32 02 5c 32 34 33 5c 32 31 31 5c 32 34 32 01 5c 32 34 33 5c 33 30 33 5c 33 30 34 06 06 44 5c 33	2.\243\211\242.\243\303\304..D\3
2820	30 35 06 06 5c 33 30 36 06 06 5c 33 30 37 5c 33 30 34 06 5c 66 44 06 0f 45 45 45 06 09 42 42 42	05..\306..\307\304.\fD..EEE..BBB
2840	5c 32 30 37 22 20 5b 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61 72 65 2d 76 61 72 6c 69 73 74	\207".[cond-let--prepare-varlist
2860	20 67 65 6e 73 79 6d 20 22 3a 69 66 2d 6c 65 74 2a 22 20 63 61 74 63 68 20 71 75 6f 74 65 20 6c	.gensym.":if-let*".catch.quote.l
2880	65 74 2a 20 77 68 65 6e 20 74 68 72 6f 77 5d 20 31 38 20 28 23 24 20 2e 20 39 34 32 38 29 5d 29	et*.when.throw].18.(#$...9428)])
28a0	29 23 40 36 31 30 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73 20 61 63 63 6f 72 64 69 6e 67 20	)#@610.Bind.variables.according.
28c0	74 6f 20 56 41 52 4c 49 53 54 20 61 6e 64 20 65 76 61 6c 75 61 74 65 20 54 48 45 4e 20 6f 72 20	to.VARLIST.and.evaluate.THEN.or.
28e0	45 4c 53 45 2e 0a 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 56 41 52 4c 49 53 54 20 69	ELSE...Each.element.of.VARLIST.i
2900	73 20 61 20 6c 69 73 74 20 28 53 59 4d 42 4f 4c 20 56 41 4c 55 45 46 4f 52 4d 29 2c 20 77 68 69	s.a.list.(SYMBOL.VALUEFORM),.whi
2920	63 68 20 62 69 6e 64 73 20 53 59 4d 42 4f 4c 0a 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20	ch.binds.SYMBOL.to.the.value.of.
2940	56 41 4c 55 45 46 4f 52 4d 2e 20 20 45 76 61 6c 75 61 74 65 20 61 6c 6c 20 56 41 4c 55 45 46 4f	VALUEFORM...Evaluate.all.VALUEFO
2960	52 4d 73 20 62 65 66 6f 72 65 20 62 69 6e 64 69 6e 67 20 74 68 65 69 72 0a 72 65 73 70 65 63 74	RMs.before.binding.their.respect
2980	69 76 65 20 53 59 4d 42 4f 4c 73 20 28 61 73 20 66 6f 72 20 60 6c 65 74 27 29 2e 0a 0a 49 66 20	ive.SYMBOLs.(as.for.`let')...If.
29a0	61 6c 6c 20 56 41 4c 55 45 46 4f 52 4d 73 20 79 69 65 6c 64 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 76	all.VALUEFORMs.yield.non-nil,.ev
29c0	61 6c 75 61 74 65 20 54 48 45 4e 20 77 69 74 68 20 56 41 52 4c 49 53 54 27 73 20 62 69 6e 64 69	aluate.THEN.with.VARLIST's.bindi
29e0	6e 67 73 0a 69 6e 20 65 66 66 65 63 74 2c 20 61 6e 64 20 72 65 74 75 72 6e 20 69 74 73 20 76 61	ngs.in.effect,.and.return.its.va
2a00	6c 75 65 2e 20 20 54 48 45 4e 20 6d 75 73 74 20 62 65 20 6f 6e 65 20 65 78 70 72 65 73 73 69 6f	lue...THEN.must.be.one.expressio
2a20	6e 2e 0a 0a 49 66 20 61 6e 79 20 56 41 4c 55 45 46 4f 52 4d 20 79 69 65 6c 64 73 20 6e 69 6c 2c	n...If.any.VALUEFORM.yields.nil,
2a40	20 65 76 61 6c 75 61 74 65 20 45 4c 53 45 20 73 65 71 75 65 6e 74 69 61 6c 6c 79 20 61 6e 64 20	.evaluate.ELSE.sequentially.and.
2a60	72 65 74 75 72 6e 20 74 68 65 0a 76 61 6c 75 65 20 6f 66 20 74 68 65 20 6c 61 73 74 20 66 6f 72	return.the.value.of.the.last.for
2a80	6d 3b 20 6f 72 20 69 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 20 45 4c 53 45 20 66 6f 72 6d 73	m;.or.if.there.are.no.ELSE.forms
2aa0	20 72 65 74 75 72 6e 20 6e 69 6c 2e 20 20 54 68 65 0a 62 69 6e 64 69 6e 67 73 20 66 72 6f 6d 20	.return.nil...The.bindings.from.
2ac0	56 41 52 4c 49 53 54 20 64 6f 20 5f 6e 6f 74 5f 20 65 78 74 65 6e 64 20 74 6f 20 74 68 65 20 45	VARLIST.do._not_.extend.to.the.E
2ae0	4c 53 45 20 66 6f 72 6d 73 2e 0a 0a 28 66 6e 20 56 41 52 4c 49 53 54 20 54 48 45 4e 20 5b 45 4c	LSE.forms...(fn.VARLIST.THEN.[EL
2b00	53 45 2e 2e 2e 5d 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	SE...])..(byte-code."\300\301\30
2b20	32 5c 33 30 33 23 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 66 75	2\303#\304\301\305\306#\207".[fu
2b40	6e 63 74 69 6f 6e 2d 70 75 74 20 63 6f 6e 64 2d 6c 65 74 2d 2d 69 66 2d 6c 65 74 2a 20 6c 69 73	nction-put.cond-let--if-let*.lis
2b60	70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 20 70 75 74 20 65 64 65 62 75 67 2d 66	p-indent-function.2.put.edebug-f
2b80	6f 72 6d 2d 73 70 65 63 20 28 28 26 72 65 73 74 20 28 73 79 6d 62 6f 6c 70 20 66 6f 72 6d 29 29	orm-spec.((&rest.(symbolp.form))
2ba0	20 66 6f 72 6d 20 62 6f 64 79 29 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 6e 64 2d	.form.body)].5).(defalias.'cond-
2bc0	6c 65 74 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	let--if-let.'(macro...#[642."\30
2be0	30 03 5c 33 30 31 5c 22 5c 32 31 31 5c 32 34 32 01 5c 32 34 33 5c 32 31 31 5c 32 34 32 01 5c 32	0.\301\"\211\242.\243\211\242.\2
2c00	34 33 5c 32 31 31 5c 32 34 32 01 5c 32 34 33 5c 32 31 31 5c 32 34 33 5c 33 30 32 05 5c 33 30 33	43\211\242.\243\211\243\302.\303
2c20	5c 22 5c 32 30 33 1e 00 04 40 5c 32 30 32 21 00 5c 33 30 34 05 42 5c 33 30 35 06 08 5c 33 30 36	\"\203...@\202!.\304.B\305..\306
2c40	03 5c 33 30 35 06 08 06 10 45 06 0e 42 42 42 45 5c 32 30 37 22 20 5b 63 6f 6e 64 2d 6c 65 74 2d	.\305....E..BBBE\207".[cond-let-
2c60	2d 70 72 65 70 61 72 65 2d 76 61 72 66 6f 72 6d 73 20 74 20 6c 65 6e 67 74 68 3d 20 31 20 61 6e	-prepare-varforms.t.length=.1.an
2c80	64 20 6c 65 74 20 69 66 5d 20 31 39 20 28 23 24 20 2e 20 31 30 34 30 37 29 5d 29 29 23 40 36 32	d.let.if].19.(#$...10407)]))#@62
2ca0	33 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 56 41	3.Bind.variables.according.to.VA
2cc0	52 4c 49 53 54 20 61 6e 64 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 6c 79 20 65 76 61 6c 75 61 74 65	RLIST.and.conditionally.evaluate
2ce0	20 42 4f 44 59 2e 0a 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 56 41 52 4c 49 53 54 20	.BODY...Each.element.of.VARLIST.
2d00	69 73 20 61 20 6c 69 73 74 20 28 53 59 4d 42 4f 4c 20 56 41 4c 55 45 46 4f 52 4d 29 2c 20 77 68	is.a.list.(SYMBOL.VALUEFORM),.wh
2d20	69 63 68 20 62 69 6e 64 73 20 53 59 4d 42 4f 4c 0a 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66	ich.binds.SYMBOL.to.the.value.of
2d40	20 56 41 4c 55 45 46 4f 52 4d 2e 20 20 45 61 63 68 20 56 41 4c 55 45 46 4f 52 4d 20 63 61 6e 20	.VALUEFORM...Each.VALUEFORM.can.
2d60	72 65 66 65 72 20 74 6f 20 73 79 6d 62 6f 6c 73 20 61 6c 72 65 61 64 79 0a 62 6f 75 6e 64 20 62	refer.to.symbols.already.bound.b
2d80	79 20 74 68 69 73 20 56 41 52 4c 49 53 54 20 28 61 73 20 66 6f 72 20 60 6c 65 74 2a 27 29 2e 0a	y.this.VARLIST.(as.for.`let*')..
2da0	0a 49 66 20 61 6c 6c 20 56 41 4c 55 45 46 4f 52 4d 73 20 79 69 65 6c 64 20 6e 6f 6e 2d 6e 69 6c	.If.all.VALUEFORMs.yield.non-nil
2dc0	2c 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59 20 66 6f 72 6d 73 20 73 65 71 75 65 6e 74 69 61 6c	,.evaluate.BODY.forms.sequential
2de0	6c 79 2c 20 77 69 74 68 0a 56 41 52 4c 49 53 54 27 73 20 62 69 6e 64 69 6e 67 73 20 69 6e 20 65	ly,.with.VARLIST's.bindings.in.e
2e00	66 66 65 63 74 2c 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74	ffect,.and.return.the.value.of.t
2e20	68 65 20 6c 61 73 74 20 66 6f 72 6d 2e 0a 0a 49 66 20 61 6e 79 20 56 41 4c 55 45 46 4f 52 4d 20	he.last.form...If.any.VALUEFORM.
2e40	79 69 65 6c 64 73 20 6e 69 6c 2c 20 65 76 61 6c 75 61 74 65 20 6e 65 69 74 68 65 72 20 74 68 65	yields.nil,.evaluate.neither.the
2e60	20 72 65 6d 61 69 6e 69 6e 67 20 56 41 4c 55 45 46 4f 52 4d 73 0a 6e 6f 72 20 74 68 65 20 42 4f	.remaining.VALUEFORMs.nor.the.BO
2e80	44 59 20 66 6f 72 6d 73 2c 20 61 6e 64 20 69 6e 73 74 65 61 64 20 72 65 74 75 72 6e 20 6e 69 6c	DY.forms,.and.instead.return.nil
2ea0	2e 0a 0a 42 4f 44 59 20 6d 75 73 74 20 62 65 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 65 78 70 72	...BODY.must.be.one.or.more.expr
2ec0	65 73 73 69 6f 6e 73 2e 20 20 49 66 20 56 41 52 4c 49 53 54 20 69 73 20 65 6d 70 74 79 2c 20 64	essions...If.VARLIST.is.empty,.d
2ee0	6f 20 6e 6f 74 68 69 6e 67 0a 61 6e 64 20 72 65 74 75 72 6e 20 6e 69 6c 2e 0a 0a 28 66 6e 20 56	o.nothing.and.return.nil...(fn.V
2f00	41 52 4c 49 53 54 20 42 4f 44 59 2e 2e 2e 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	ARLIST.BODY...)..(byte-code."\30
2f20	30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c	0\301\302\303#\304\301\305\306#\
2f40	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 6f 6e 64 2d 6c 65 74 2d 2d 69 66 2d	207".[function-put.cond-let--if-
2f60	6c 65 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 20 70 75 74 20 65	let.lisp-indent-function.2.put.e
2f80	64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 63 6f 6e 64 2d 6c 65 74 2d 2d 69 66 2d 6c 65 74	debug-form-spec.cond-let--if-let
2fa0	2a 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 6e 64 2d 6c 65 74 2d 2d 77 68 65 6e 2d	*].5).(defalias.'cond-let--when-
2fc0	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 03 21 5c 32 31 31	let*.'(macro...#[642."\300.!\211
2fe0	5c 32 34 32 01 5c 32 34 33 5c 32 31 31 5c 32 34 32 01 5c 32 34 33 5c 33 30 31 04 5c 33 30 32 04	\242.\243\211\242.\243\301.\302.
3000	06 5c 6e 06 5c 6e 42 42 42 45 5c 32 30 37 22 20 5b 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61	.\n.\nBBBE\207".[cond-let--prepa
3020	72 65 2d 76 61 72 6c 69 73 74 20 6c 65 74 2a 20 77 68 65 6e 5d 20 31 34 20 28 23 24 20 2e 20 31	re-varlist.let*.when].14.(#$...1
3040	31 34 32 36 29 5d 29 29 23 40 36 32 30 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73 20 61 63 63	1426)]))#@620.Bind.variables.acc
3060	6f 72 64 69 6e 67 20 74 6f 20 56 41 52 4c 49 53 54 20 61 6e 64 20 63 6f 6e 64 69 74 69 6f 6e 61	ording.to.VARLIST.and.conditiona
3080	6c 6c 79 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59 2e 0a 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74	lly.evaluate.BODY...Each.element
30a0	20 6f 66 20 56 41 52 4c 49 53 54 20 69 73 20 61 20 6c 69 73 74 20 28 53 59 4d 42 4f 4c 20 56 41	.of.VARLIST.is.a.list.(SYMBOL.VA
30c0	4c 55 45 46 4f 52 4d 29 2c 20 77 68 69 63 68 20 62 69 6e 64 73 20 53 59 4d 42 4f 4c 0a 74 6f 20	LUEFORM),.which.binds.SYMBOL.to.
30e0	74 68 65 20 76 61 6c 75 65 20 6f 66 20 56 41 4c 55 45 46 4f 52 4d 2e 20 20 45 76 61 6c 75 61 74	the.value.of.VALUEFORM...Evaluat
3100	65 20 61 6c 6c 20 56 41 4c 55 45 46 4f 52 4d 73 20 62 65 66 6f 72 65 20 62 69 6e 64 69 6e 67 20	e.all.VALUEFORMs.before.binding.
3120	74 68 65 69 72 0a 72 65 73 70 65 63 74 69 76 65 20 53 59 4d 42 4f 4c 73 20 28 61 73 20 66 6f 72	their.respective.SYMBOLs.(as.for
3140	20 60 6c 65 74 27 29 2e 0a 0a 49 66 20 61 6c 6c 20 56 41 4c 55 45 46 4f 52 4d 73 20 79 69 65 6c	.`let')...If.all.VALUEFORMs.yiel
3160	64 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59 20 66 6f 72 6d 73 20 73	d.non-nil,.evaluate.BODY.forms.s
3180	65 71 75 65 6e 74 69 61 6c 6c 79 2c 20 77 69 74 68 0a 56 41 52 4c 49 53 54 27 73 20 62 69 6e 64	equentially,.with.VARLIST's.bind
31a0	69 6e 67 73 20 69 6e 20 65 66 66 65 63 74 2c 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 76	ings.in.effect,.and.return.the.v
31c0	61 6c 75 65 20 6f 66 20 74 68 65 20 6c 61 73 74 20 66 6f 72 6d 2e 0a 0a 49 66 20 61 6e 79 20 56	alue.of.the.last.form...If.any.V
31e0	41 4c 55 45 46 4f 52 4d 20 79 69 65 6c 64 73 20 6e 69 6c 2c 20 65 76 61 6c 75 61 74 65 20 6e 65	ALUEFORM.yields.nil,.evaluate.ne
3200	69 74 68 65 72 20 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 56 41 4c 55 45 46 4f 52 4d 73 0a 6e	ither.the.remaining.VALUEFORMs.n
3220	6f 72 20 74 68 65 20 42 4f 44 59 20 66 6f 72 6d 73 2c 20 61 6e 64 20 69 6e 73 74 65 61 64 20 72	or.the.BODY.forms,.and.instead.r
3240	65 74 75 72 6e 20 6e 69 6c 2e 0a 0a 42 4f 44 59 20 6d 75 73 74 20 62 65 20 6f 6e 65 20 6f 72 20	eturn.nil...BODY.must.be.one.or.
3260	6d 6f 72 65 20 65 78 70 72 65 73 73 69 6f 6e 73 2e 20 20 49 66 20 56 41 52 4c 49 53 54 20 69 73	more.expressions...If.VARLIST.is
3280	20 65 6d 70 74 79 2c 20 64 6f 20 6e 6f 74 68 69 6e 67 0a 61 6e 64 20 72 65 74 75 72 6e 20 6e 69	.empty,.do.nothing.and.return.ni
32a0	6c 2e 0a 0a 28 66 6e 20 56 41 52 4c 49 53 54 20 42 4f 44 59 2e 2e 2e 29 1f 0a 28 62 79 74 65 2d	l...(fn.VARLIST.BODY...)..(byte-
32c0	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 31 5c	code."\300\301\302\303#\304\301\
32e0	33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 6f 6e 64	305\306#\207".[function-put.cond
3300	2d 6c 65 74 2d 2d 77 68 65 6e 2d 6c 65 74 2a 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63	-let--when-let*.lisp-indent-func
3320	74 69 6f 6e 20 31 20 70 75 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 26 72	tion.1.put.edebug-form-spec.((&r
3340	65 73 74 20 28 73 79 6d 62 6f 6c 70 20 66 6f 72 6d 29 29 20 66 6f 72 6d 20 62 6f 64 79 29 5d 20	est.(symbolp.form)).form.body)].
3360	35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 6e 64 2d 6c 65 74 2d 2d 77 68 65 6e 2d 6c 65 74	5).(defalias.'cond-let--when-let
3380	20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 03 21 5c 32 31 31 5c 32 34 32	.'(macro...#[642."\300.!\211\242
33a0	01 5c 32 34 33 5c 32 31 31 5c 32 34 32 01 5c 32 34 33 5c 32 31 31 5c 32 34 32 01 5c 32 34 33 5c	.\243\211\242.\243\211\242.\243\
33c0	32 31 31 5c 32 34 32 01 5c 32 34 33 06 07 5c 32 30 33 2d 00 5c 33 30 31 06 08 5c 33 30 32 5c 33	211\242.\243..\203-.\301..\302\3
33e0	30 33 06 09 42 5c 33 30 31 06 08 06 10 06 10 42 42 42 45 45 5c 32 30 37 5c 33 30 31 04 5c 33 30	03..B\301......BBBEE\207\301.\30
3400	32 04 06 0e 06 0e 42 42 42 45 5c 32 30 37 22 20 5b 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61	2.....BBBE\207".[cond-let--prepa
3420	72 65 2d 76 61 72 66 6f 72 6d 73 20 6c 65 74 20 77 68 65 6e 20 61 6e 64 5d 20 32 30 20 28 23 24	re-varforms.let.when.and].20.(#$
3440	20 2e 20 31 32 33 36 36 29 5d 29 29 23 40 33 39 36 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 20	...12366)]))#@396.Bind.variable.
3460	60 24 27 20 74 6f 20 76 61 6c 75 65 20 6f 66 20 56 41 52 46 4f 52 4d 20 61 6e 64 20 63 6f 6e 64	`$'.to.value.of.VARFORM.and.cond
3480	69 74 69 6f 6e 61 6c 6c 79 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59 2e 0a 0a 49 66 20 56 41 52	itionally.evaluate.BODY...If.VAR
34a0	46 4f 52 4d 20 79 69 65 6c 64 73 20 61 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2c 20 62 69 6e	FORM.yields.a.non-nil.value,.bin
34c0	64 20 74 68 65 20 73 79 6d 62 6f 6c 20 60 24 27 20 74 6f 20 74 68 61 74 20 76 61 6c 75 65 2c 0a	d.the.symbol.`$'.to.that.value,.
34e0	65 76 61 6c 75 61 74 65 20 42 4f 44 59 20 77 69 74 68 20 74 68 61 74 20 62 69 6e 64 69 6e 67 20	evaluate.BODY.with.that.binding.
3500	69 6e 20 65 66 66 65 63 74 2c 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 76 61 6c 75 65 20	in.effect,.and.return.the.value.
3520	6f 66 20 74 68 65 0a 6c 61 73 74 20 66 6f 72 6d 2e 20 20 49 66 20 56 41 52 46 4f 52 4d 20 79 69	of.the.last.form...If.VARFORM.yi
3540	65 6c 64 73 20 6e 69 6c 2c 20 64 6f 20 6e 6f 74 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59 2c 20	elds.nil,.do.not.evaluate.BODY,.
3560	61 6e 64 20 72 65 74 75 72 6e 20 6e 69 6c 2e 0a 42 4f 44 59 20 6d 75 73 74 20 62 65 20 6f 6e 65	and.return.nil..BODY.must.be.one
3580	20 6f 72 20 6d 6f 72 65 20 65 78 70 72 65 73 73 69 6f 6e 73 2e 20 20 49 66 20 56 41 52 4c 49 53	.or.more.expressions...If.VARLIS
35a0	54 20 69 73 20 65 6d 70 74 79 2c 20 64 6f 20 6e 6f 74 68 69 6e 67 0a 61 6e 64 20 72 65 74 75 72	T.is.empty,.do.nothing.and.retur
35c0	6e 20 6e 69 6c 2e 0a 0a 28 66 6e 20 56 41 52 46 4f 52 4d 20 42 4f 44 59 2e 2e 2e 29 1f 0a 28 62	n.nil...(fn.VARFORM.BODY...)..(b
35e0	79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c	yte-code."\300\301\302\303#\304\
3600	33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20	301\305\306#\207".[function-put.
3620	63 6f 6e 64 2d 6c 65 74 2d 2d 77 68 65 6e 2d 6c 65 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66	cond-let--when-let.lisp-indent-f
3640	75 6e 63 74 69 6f 6e 20 31 20 70 75 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 63	unction.1.put.edebug-form-spec.c
3660	6f 6e 64 2d 6c 65 74 2d 2d 77 68 65 6e 2d 6c 65 74 2a 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73	ond-let--when-let*].5).(defalias
3680	20 27 63 6f 6e 64 2d 6c 65 74 2d 2d 77 68 65 6e 24 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34	.'cond-let--when$.'(macro...#[64
36a0	32 20 22 5c 33 30 30 5c 33 30 31 04 44 43 5c 33 30 32 5c 33 30 31 05 05 42 42 42 45 5c 32 30 37	2."\300\301.DC\302\301..BBBE\207
36c0	22 20 5b 6c 65 74 20 24 20 77 68 65 6e 5d 20 39 20 28 23 24 20 2e 20 31 33 33 39 34 29 5d 29 29	".[let.$.when].9.(#$...13394)]))
36e0	23 40 35 38 34 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73 20 61 63 63 6f 72 64 69 6e 67 20 74	#@584.Bind.variables.according.t
3700	6f 20 56 41 52 4c 49 53 54 2c 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 6c 79 20 65 76 61 6c 75 61 74	o.VARLIST,.conditionally.evaluat
3720	65 20 42 4f 44 59 2c 20 61 6e 64 20 72 65 70 65 61 74 2e 0a 0a 45 61 63 68 20 65 6c 65 6d 65 6e	e.BODY,.and.repeat...Each.elemen
3740	74 20 6f 66 20 56 41 52 4c 49 53 54 20 69 73 20 61 20 6c 69 73 74 20 28 53 59 4d 42 4f 4c 20 56	t.of.VARLIST.is.a.list.(SYMBOL.V
3760	41 4c 55 45 46 4f 52 4d 29 2c 20 77 68 69 63 68 20 62 69 6e 64 73 20 53 59 4d 42 4f 4c 0a 74 6f	ALUEFORM),.which.binds.SYMBOL.to
3780	20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 56 41 4c 55 45 46 4f 52 4d 2e 20 20 45 61 63 68 20 56	.the.value.of.VALUEFORM...Each.V
37a0	41 4c 55 45 46 4f 52 4d 20 63 61 6e 20 72 65 66 65 72 20 74 6f 20 73 79 6d 62 6f 6c 73 20 61 6c	ALUEFORM.can.refer.to.symbols.al
37c0	72 65 61 64 79 0a 62 6f 75 6e 64 20 62 79 20 74 68 69 73 20 56 41 52 4c 49 53 54 20 28 61 73 20	ready.bound.by.this.VARLIST.(as.
37e0	66 6f 72 20 60 6c 65 74 2a 27 29 2e 0a 0a 49 66 20 61 6c 6c 20 56 41 4c 55 45 46 4f 52 4d 73 20	for.`let*')...If.all.VALUEFORMs.
3800	79 69 65 6c 64 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59 20 66 6f 72	yield.non-nil,.evaluate.BODY.for
3820	6d 73 20 73 65 71 75 65 6e 74 69 61 6c 6c 79 2c 20 77 69 74 68 0a 56 41 52 4c 49 53 54 27 73 20	ms.sequentially,.with.VARLIST's.
3840	62 69 6e 64 69 6e 67 73 20 69 6e 20 65 66 66 65 63 74 2c 20 61 6e 64 20 72 65 70 65 61 74 20 74	bindings.in.effect,.and.repeat.t
3860	68 65 20 6c 6f 6f 70 2e 0a 0a 49 66 20 61 6e 79 20 56 41 4c 55 45 46 4f 52 4d 20 79 69 65 6c 64	he.loop...If.any.VALUEFORM.yield
3880	73 20 6e 69 6c 2c 20 65 76 61 6c 75 61 74 65 20 6e 65 69 74 68 65 72 20 74 68 65 20 72 65 6d 61	s.nil,.evaluate.neither.the.rema
38a0	69 6e 69 6e 67 20 56 41 4c 55 45 46 4f 52 4d 73 0a 6e 6f 72 20 74 68 65 20 42 4f 44 59 20 66 6f	ining.VALUEFORMs.nor.the.BODY.fo
38c0	72 6d 73 2c 20 61 6e 64 20 69 6e 73 74 65 61 64 20 72 65 74 75 72 6e 2c 20 61 6c 77 61 79 73 20	rms,.and.instead.return,.always.
38e0	79 69 65 6c 64 69 6e 67 20 6e 69 6c 2e 0a 0a 42 4f 44 59 20 63 61 6e 20 62 65 20 7a 65 72 6f 20	yielding.nil...BODY.can.be.zero.
3900	6f 72 20 6d 6f 72 65 20 65 78 70 72 65 73 73 69 6f 6e 73 2e 0a 0a 28 66 6e 20 56 41 52 4c 49 53	or.more.expressions...(fn.VARLIS
3920	54 20 5b 42 4f 44 59 2e 2e 2e 5d 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	T.[BODY...])..(byte-code."\300\3
3940	30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37	01\302\303#\304\301\305\306#\207
3960	22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 6f 6e 64 2d 6c 65 74 2d 2d 77 68 65 6e 24 20	".[function-put.cond-let--when$.
3980	6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 20 70 75 74 20 65 64 65 62 75	lisp-indent-function.1.put.edebu
39a0	67 2d 66 6f 72 6d 2d 73 70 65 63 20 74 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 6e	g-form-spec.t].5).(defalias.'con
39c0	64 2d 6c 65 74 2d 2d 77 68 69 6c 65 2d 6c 65 74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38	d-let--while-let*.'(macro...#[38
39e0	35 20 22 5c 33 30 30 02 21 5c 33 30 31 5c 33 30 32 21 01 5c 32 34 32 02 5c 32 34 33 5c 32 31 31	5."\300.!\301\302!.\242.\243\211
3a00	5c 32 34 32 01 5c 32 34 33 5c 33 30 33 5c 33 30 34 06 06 44 5c 33 30 35 5c 33 30 36 5c 33 30 37	\242.\243\303\304..D\305\306\307
3a20	06 08 5c 33 31 30 06 08 5c 33 31 31 06 0f 21 5c 33 31 32 5c 33 30 34 06 0f 44 5c 33 31 33 42 42	..\310..\311..!\312\304..D\313BB
3a40	46 45 45 45 5c 32 30 37 22 20 5b 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61 72 65 2d 76 61 72	FEEE\207".[cond-let--prepare-var
3a60	6c 69 73 74 20 67 65 6e 73 79 6d 20 22 3a 77 68 69 6c 65 2d 6c 65 74 2a 22 20 63 61 74 63 68 20	list.gensym.":while-let*".catch.
3a80	71 75 6f 74 65 20 77 68 69 6c 65 20 74 20 6c 65 74 2a 20 69 66 20 6d 61 63 72 6f 65 78 70 2d 70	quote.while.t.let*.if.macroexp-p
3aa0	72 6f 67 6e 20 74 68 72 6f 77 20 28 6e 69 6c 29 5d 20 32 30 20 28 23 24 20 2e 20 31 34 30 35 34	rogn.throw.(nil)].20.(#$...14054
3ac0	29 5d 29 29 23 40 35 37 38 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73 20 61 63 63 6f 72 64 69	)]))#@578.Bind.variables.accordi
3ae0	6e 67 20 74 6f 20 56 41 52 4c 49 53 54 2c 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 6c 79 20 65 76 61	ng.to.VARLIST,.conditionally.eva
3b00	6c 75 61 74 65 20 42 4f 44 59 2c 20 61 6e 64 20 72 65 70 65 61 74 2e 0a 0a 45 61 63 68 20 65 6c	luate.BODY,.and.repeat...Each.el
3b20	65 6d 65 6e 74 20 6f 66 20 56 41 52 4c 49 53 54 20 69 73 20 61 20 6c 69 73 74 20 28 53 59 4d 42	ement.of.VARLIST.is.a.list.(SYMB
3b40	4f 4c 20 56 41 4c 55 45 46 4f 52 4d 29 2c 20 77 68 69 63 68 20 62 69 6e 64 73 20 53 59 4d 42 4f	OL.VALUEFORM),.which.binds.SYMBO
3b60	4c 0a 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 56 41 4c 55 45 46 4f 52 4d 2e 20 20 45 76	L.to.the.value.of.VALUEFORM...Ev
3b80	61 6c 75 61 74 65 20 61 6c 6c 20 56 41 4c 55 45 46 4f 52 4d 73 20 62 65 66 6f 72 65 20 62 69 6e	aluate.all.VALUEFORMs.before.bin
3ba0	64 69 6e 67 20 74 68 65 69 72 0a 72 65 73 70 65 63 74 69 76 65 20 53 59 4d 42 4f 4c 73 20 28 61	ding.their.respective.SYMBOLs.(a
3bc0	73 20 66 6f 72 20 60 6c 65 74 27 29 2e 0a 0a 49 66 20 61 6c 6c 20 56 41 4c 55 45 46 4f 52 4d 73	s.for.`let')...If.all.VALUEFORMs
3be0	20 79 69 65 6c 64 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59 20 66 6f	.yield.non-nil,.evaluate.BODY.fo
3c00	72 6d 73 20 73 65 71 75 65 6e 74 69 61 6c 6c 79 2c 20 77 69 74 68 0a 56 41 52 4c 49 53 54 27 73	rms.sequentially,.with.VARLIST's
3c20	20 62 69 6e 64 69 6e 67 73 20 69 6e 20 65 66 66 65 63 74 2c 20 61 6e 64 20 72 65 70 65 61 74 20	.bindings.in.effect,.and.repeat.
3c40	74 68 65 20 6c 6f 6f 70 2e 0a 0a 49 66 20 61 6e 79 20 56 41 4c 55 45 46 4f 52 4d 20 79 69 65 6c	the.loop...If.any.VALUEFORM.yiel
3c60	64 73 20 6e 69 6c 2c 20 65 76 61 6c 75 61 74 65 20 6e 65 69 74 68 65 72 20 74 68 65 20 72 65 6d	ds.nil,.evaluate.neither.the.rem
3c80	61 69 6e 69 6e 67 20 56 41 4c 55 45 46 4f 52 4d 73 0a 6e 6f 72 20 74 68 65 20 42 4f 44 59 20 66	aining.VALUEFORMs.nor.the.BODY.f
3ca0	6f 72 6d 73 2c 20 61 6e 64 20 69 6e 73 74 65 61 64 20 72 65 74 75 72 6e 2c 20 61 6c 77 61 79 73	orms,.and.instead.return,.always
3cc0	20 79 69 65 6c 64 69 6e 67 20 6e 69 6c 2e 0a 0a 42 4f 44 59 20 63 61 6e 20 62 65 20 6f 6e 65 20	.yielding.nil...BODY.can.be.one.
3ce0	6f 72 20 6d 6f 72 65 20 65 78 70 72 65 73 73 69 6f 6e 73 2e 0a 0a 28 66 6e 20 56 41 52 4c 49 53	or.more.expressions...(fn.VARLIS
3d00	54 20 42 4f 44 59 2e 2e 2e 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31	T.BODY...)..(byte-code."\300\301
3d20	5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20	\302\303#\304\301\305\306#\207".
3d40	5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 6f 6e 64 2d 6c 65 74 2d 2d 77 68 69 6c 65 2d 6c 65	[function-put.cond-let--while-le
3d60	74 2a 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 20 70 75 74 20 65 64	t*.lisp-indent-function.1.put.ed
3d80	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 79 6d 62 6f 6c 70 20	ebug-form-spec.((&rest.(symbolp.
3da0	66 6f 72 6d 29 29 20 62 6f 64 79 29 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 6e 64	form)).body)].5).(defalias.'cond
3dc0	2d 6c 65 74 2d 2d 77 68 69 6c 65 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20	-let--while-let.'(macro...#[642.
3de0	22 5c 33 30 30 03 21 5c 33 30 31 5c 33 30 32 21 01 5c 32 34 32 02 5c 32 34 33 5c 32 31 31 5c 32	"\300.!\301\302!.\242.\243\211\2
3e00	34 32 01 5c 32 34 33 5c 32 31 31 5c 32 34 32 01 5c 32 34 33 5c 32 31 31 5c 32 34 32 01 5c 32 34	42.\243\211\242.\243\211\242.\24
3e20	33 06 07 5c 32 30 33 41 00 5c 33 30 33 5c 33 30 34 06 5c 6e 44 5c 33 30 35 5c 33 30 36 5c 33 30	3..\203A.\303\304.\nD\305\306\30
3e40	37 06 5c 66 5c 33 31 30 5c 33 31 31 06 0d 42 5c 33 30 37 06 5c 66 06 15 06 15 42 42 42 5c 33 31	7.\f\310\311..B\307.\f....BBB\31
3e60	32 5c 33 30 34 06 13 44 5c 33 31 33 42 42 46 45 45 45 5c 32 30 37 5c 33 30 33 5c 33 30 34 06 5c	2\304..D\313BBFEEE\207\303\304.\
3e80	6e 44 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 08 5c 33 31 30 06 08 5c 33 31 34 06 14 06 14 42 21	nD\305\306\307..\310..\314....B!
3ea0	5c 33 31 32 5c 33 30 34 06 13 44 5c 33 31 35 42 42 46 45 45 45 5c 32 30 37 22 20 5b 63 6f 6e 64	\312\304..D\315BBFEEE\207".[cond
3ec0	2d 6c 65 74 2d 2d 70 72 65 70 61 72 65 2d 76 61 72 66 6f 72 6d 73 20 67 65 6e 73 79 6d 20 22 3a	-let--prepare-varforms.gensym.":
3ee0	77 68 69 6c 65 2d 6c 65 74 22 20 63 61 74 63 68 20 71 75 6f 74 65 20 77 68 69 6c 65 20 74 20 6c	while-let".catch.quote.while.t.l
3f00	65 74 20 69 66 20 61 6e 64 20 74 68 72 6f 77 20 28 6e 69 6c 29 20 6d 61 63 72 6f 65 78 70 2d 70	et.if.and.throw.(nil).macroexp-p
3f20	72 6f 67 6e 20 28 6e 69 6c 29 5d 20 32 35 20 28 23 24 20 2e 20 31 35 30 35 30 29 5d 29 29 23 40	rogn.(nil)].25.(#$...15050)]))#@
3f40	31 38 32 20 48 69 67 68 6c 69 67 68 74 20 60 24 27 20 75 73 69 6e 67 20 60 66 6f 6e 74 2d 6c 6f	182.Highlight.`$'.using.`font-lo
3f60	63 6b 2d 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 2d 66 61 63 65 27 2e 0a 54 6f 20 61 64 64 20 74	ck-variable-name-face'..To.add.t
3f80	68 65 73 65 20 6b 65 79 77 6f 72 64 73 2c 20 61 64 64 20 74 68 69 73 20 74 6f 20 79 6f 75 72 20	hese.keywords,.add.this.to.your.
3fa0	63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 3a 0a 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 61 64 64 2d 6b 65	configuration:.(font-lock-add-ke
3fc0	79 77 6f 72 64 73 20 5c 3d 27 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 20 63 6f 6e 64 2d 6c	ywords.\='emacs-lisp-mode.cond-l
3fe0	65 74 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 20 74 29 1f 0a 28 62 79 74 65 2d	et-font-lock-keywords.t)..(byte-
4000	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 31 5c	code."\300\301\302\303#\304\301\
4020	33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 6f 6e 64	305\306#\207".[function-put.cond
4040	2d 6c 65 74 2d 2d 77 68 69 6c 65 2d 6c 65 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63	-let--while-let.lisp-indent-func
4060	74 69 6f 6e 20 31 20 70 75 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 26 72	tion.1.put.edebug-form-spec.((&r
4080	65 73 74 20 28 73 79 6d 62 6f 6c 70 20 66 6f 72 6d 29 29 20 66 6f 72 6d 20 62 6f 64 79 29 5d 20	est.(symbolp.form)).form.body)].
40a0	35 29 0a 28 64 65 66 76 61 72 20 63 6f 6e 64 2d 6c 65 74 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65	5).(defvar.cond-let-font-lock-ke
40c0	79 77 6f 72 64 73 20 27 28 28 22 5c 5c 5f 3c 5c 5c 24 5c 5c 5f 3e 22 20 30 20 27 66 6f 6e 74 2d	ywords.'(("\\_<\\$\\_>".0.'font-
40e0	6c 6f 63 6b 2d 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 2d 66 61 63 65 29 29 20 28 23 24 20 2e 20	lock-variable-name-face)).(#$...
4100	31 36 31 39 36 29 29 23 40 34 39 33 20 49 6e 73 74 65 61 64 20 6f 66 20 74 68 69 73 20 61 6c 69	16196))#@493.Instead.of.this.ali
4120	61 73 2c 20 75 73 65 20 60 63 6f 6e 64 2d 6c 65 74 2d 2d 61 6e 64 24 27 20 76 69 61 20 60 61 6e	as,.use.`cond-let--and$'.via.`an
4140	64 24 27 20 73 68 6f 72 74 68 61 6e 64 2e 0a 0a 54 68 69 73 20 61 6c 69 61 73 20 77 69 6c 6c 20	d$'.shorthand...This.alias.will.
4160	6c 69 6b 65 6c 79 20 62 65 20 64 65 63 6c 61 72 65 64 20 6f 62 73 6f 6c 65 74 65 20 69 6e 20 32	likely.be.declared.obsolete.in.2
4180	30 32 37 2e 20 20 49 66 20 79 6f 75 20 77 6f 75 6c 64 20 6c 69 6b 65 0a 74 6f 20 63 6f 6e 74 69	027...If.you.would.like.to.conti
41a0	6e 75 65 20 74 6f 20 75 73 65 20 69 74 2c 20 70 6c 65 61 73 65 20 67 65 74 20 69 6e 20 63 6f 6e	nue.to.use.it,.please.get.in.con
41c0	74 61 63 74 20 62 65 66 6f 72 65 20 74 68 65 6e 2e 20 20 54 68 69 73 20 61 6c 69 61 73 0a 6d 69	tact.before.then...This.alias.mi
41e0	67 68 74 20 65 76 65 6e 74 75 61 6c 6c 79 20 62 65 20 72 65 6d 6f 76 65 64 20 61 6c 74 6f 67 65	ght.eventually.be.removed.altoge
4200	74 68 65 72 3b 20 61 67 61 69 6e 20 73 75 62 6a 65 63 74 20 74 6f 20 75 73 65 72 20 66 65 65 64	ther;.again.subject.to.user.feed
4220	62 61 63 6b 2e 0a 0a 49 66 20 79 6f 75 20 64 6f 20 6e 6f 74 20 63 61 72 65 20 61 62 6f 75 74 20	back...If.you.do.not.care.about.
4240	74 68 65 20 73 79 6d 62 6f 6c 20 60 63 6f 6e 64 2d 6c 65 74 2d 2d 61 6e 64 3e 27 2c 20 62 75 74	the.symbol.`cond-let--and>',.but
4260	20 77 61 6e 74 20 74 6f 20 6b 65 65 70 0a 75 73 69 6e 67 20 74 68 65 20 72 65 73 70 65 63 74 69	.want.to.keep.using.the.respecti
4280	76 65 20 60 61 6e 64 3e 27 20 73 68 6f 72 74 68 61 6e 64 2c 20 79 6f 75 20 63 61 6e 20 66 75 74	ve.`and>'.shorthand,.you.can.fut
42a0	75 72 65 2d 70 72 6f 6f 66 20 74 68 61 74 20 6e 6f 77 2c 0a 62 79 20 63 68 61 6e 67 69 6e 67 20	ure-proof.that.now,.by.changing.
42c0	74 68 65 20 73 68 6f 72 74 68 61 6e 64 20 64 65 66 69 6e 69 74 69 6f 6e 20 74 6f 20 28 22 61 6e	the.shorthand.definition.to.("an
42e0	64 3e 22 20 2e 20 22 63 6f 6e 64 2d 6c 65 74 2d 2d 61 6e 64 24 22 29 2e 1f 0a 28 62 79 74 65 2d	d>"..."cond-let--and$")...(byte-
4300	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\
4320	33 30 35 21 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 63 6f 6e 64 2d 6c 65 74 2d 2d 61 6e	305!\207".[defalias.cond-let--an
4340	64 3e 20 63 6f 6e 64 2d 6c 65 74 2d 2d 61 6e 64 24 20 22 49 6e 73 74 65 61 64 20 6f 66 20 74 68	d>.cond-let--and$."Instead.of.th
4360	69 73 20 61 6c 69 61 73 2c 20 75 73 65 20 60 63 6f 6e 64 2d 6c 65 74 2d 2d 61 6e 64 24 27 20 76	is.alias,.use.`cond-let--and$'.v
4380	69 61 20 60 61 6e 64 24 27 20 73 68 6f 72 74 68 61 6e 64 2e 5c 6e 5c 6e 54 68 69 73 20 61 6c 69	ia.`and$'.shorthand.\n\nThis.ali
43a0	61 73 20 77 69 6c 6c 20 6c 69 6b 65 6c 79 20 62 65 20 64 65 63 6c 61 72 65 64 20 6f 62 73 6f 6c	as.will.likely.be.declared.obsol
43c0	65 74 65 20 69 6e 20 32 30 32 37 2e 20 20 49 66 20 79 6f 75 20 77 6f 75 6c 64 20 6c 69 6b 65 5c	ete.in.2027...If.you.would.like\
43e0	6e 74 6f 20 63 6f 6e 74 69 6e 75 65 20 74 6f 20 75 73 65 20 69 74 2c 20 70 6c 65 61 73 65 20 67	nto.continue.to.use.it,.please.g
4400	65 74 20 69 6e 20 63 6f 6e 74 61 63 74 20 62 65 66 6f 72 65 20 74 68 65 6e 2e 20 20 54 68 69 73	et.in.contact.before.then...This
4420	20 61 6c 69 61 73 5c 6e 6d 69 67 68 74 20 65 76 65 6e 74 75 61 6c 6c 79 20 62 65 20 72 65 6d 6f	.alias\nmight.eventually.be.remo
4440	76 65 64 20 61 6c 74 6f 67 65 74 68 65 72 3b 20 61 67 61 69 6e 20 73 75 62 6a 65 63 74 20 74 6f	ved.altogether;.again.subject.to
4460	20 75 73 65 72 20 66 65 65 64 62 61 63 6b 2e 5c 6e 5c 6e 49 66 20 79 6f 75 20 64 6f 20 6e 6f 74	.user.feedback.\n\nIf.you.do.not
4480	20 63 61 72 65 20 61 62 6f 75 74 20 74 68 65 20 73 79 6d 62 6f 6c 20 60 63 6f 6e 64 2d 6c 65 74	.care.about.the.symbol.`cond-let
44a0	2d 2d 61 6e 64 3e 27 2c 20 62 75 74 20 77 61 6e 74 20 74 6f 20 6b 65 65 70 5c 6e 75 73 69 6e 67	--and>',.but.want.to.keep\nusing
44c0	20 74 68 65 20 72 65 73 70 65 63 74 69 76 65 20 60 61 6e 64 3e 27 20 73 68 6f 72 74 68 61 6e 64	.the.respective.`and>'.shorthand
44e0	2c 20 79 6f 75 20 63 61 6e 20 66 75 74 75 72 65 2d 70 72 6f 6f 66 20 74 68 61 74 20 6e 6f 77 2c	,.you.can.future-proof.that.now,
4500	5c 6e 62 79 20 63 68 61 6e 67 69 6e 67 20 74 68 65 20 73 68 6f 72 74 68 61 6e 64 20 64 65 66 69	\nby.changing.the.shorthand.defi
4520	6e 69 74 69 6f 6e 20 74 6f 20 28 5c 22 61 6e 64 3e 5c 22 20 2e 20 5c 22 63 6f 6e 64 2d 6c 65 74	nition.to.(\"and>\"...\"cond-let
4540	2d 2d 61 6e 64 24 5c 22 29 2e 22 20 70 72 6f 76 69 64 65 20 63 6f 6e 64 2d 6c 65 74 5d 20 34 29	--and$\").".provide.cond-let].4)
4560	0a	.