blob: a1864ecd5c95c992eb0bbb3eb11c13646332b8c2 (plain)

ofs	hex dump	ascii
0000	63 6f 6e 64 2d 6c 65 74 2d 30 2e 31 2e 31 2f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	cond-let-0.1.1/.................
0020	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0040	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0060	00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000755.0000000.0000000.0000
0080	30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 31 36 35 35 00 20 35 00 00 00	0000000.00000000000.011655..5...
00a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
00c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
00e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0100	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
0120	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
0140	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0160	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0180	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
01a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
01c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
01e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0200	63 6f 6e 64 2d 6c 65 74 2d 30 2e 31 2e 31 2f 52 45 41 44 4d 45 2e 6f 72 67 00 00 00 00 00 00 00	cond-let-0.1.1/README.org.......
0220	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0240	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0260	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
0280	30 30 30 32 32 36 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 33 32 36 00 20 30 00 00 00	0002263.00000000000.013326..0...
02a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
02c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
02e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0300	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
0320	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
0340	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0360	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0380	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
03a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
03c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
03e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0400	2a 20 43 6f 6e 64 2d 4c 65 74 20 e2 80 94 20 41 64 64 69 74 69 6f 6e 61 6c 20 61 6e 64 20 69 6d	*.Cond-Let.....Additional.and.im
0420	70 72 6f 76 65 64 20 62 69 6e 64 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 0a 0a 2a 54 68	proved.binding.conditionals..*Th
0440	69 73 20 69 73 20 61 6e 20 41 4c 50 48 41 20 72 65 6c 65 61 73 65 21 2a 0a 2a 42 72 65 61 6b 69	is.is.an.ALPHA.release!*.*Breaki
0460	6e 67 20 63 68 61 6e 67 65 73 20 61 72 65 20 70 6f 73 73 69 62 6c 65 21 2a 0a 0a 45 6d 61 63 73	ng.changes.are.possible!*..Emacs
0480	20 70 72 6f 76 69 64 65 73 20 74 68 65 20 62 69 6e 64 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 61	.provides.the.binding.conditiona
04a0	6c 73 20 7e 69 66 2d 6c 65 74 7e 2c 20 7e 69 66 2d 6c 65 74 2a 7e 2c 0a 7e 77 68 65 6e 2d 6c 65	ls.~if-let~,.~if-let*~,.~when-le
04c0	74 7e 2c 20 7e 77 68 65 6e 2d 6c 65 74 2a 7e 2c 20 7e 61 6e 64 2d 6c 65 74 2a 7e 20 61 6e 64 20	t~,.~when-let*~,.~and-let*~.and.
04e0	7e 77 68 69 6c 65 2d 6c 65 74 7e 2e 0a 0a 54 68 69 73 20 70 61 63 6b 61 67 65 20 69 6d 70 6c 65	~while-let~...This.package.imple
0500	6d 65 6e 74 73 20 74 68 65 20 6d 69 73 73 69 6e 67 20 7e 61 6e 64 2d 6c 65 74 7e 20 61 6e 64 20	ments.the.missing.~and-let~.and.
0520	7e 77 68 69 6c 65 2d 6c 65 74 2a 7e 2c 0a 61 6e 64 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 7e	~while-let*~,.and.the.original.~
0540	63 6f 6e 64 2d 6c 65 74 7e 2c 20 7e 63 6f 6e 64 2d 6c 65 74 2a 7e 2c 20 7e 61 6e 64 24 7e 20 61	cond-let~,.~cond-let*~,.~and$~.a
0560	6e 64 20 7e 61 6e 64 3e 7e 2e 0a 0a 54 68 69 73 20 70 61 63 6b 61 67 65 20 61 64 64 69 74 69 6f	nd.~and>~...This.package.additio
0580	6e 61 6c 6c 79 20 70 72 6f 76 69 64 65 73 20 6d 6f 72 65 20 63 6f 6e 73 69 73 74 65 6e 74 20 61	nally.provides.more.consistent.a
05a0	6e 64 20 69 6d 70 72 6f 76 65 64 0a 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 6f 66 20 74	nd.improved.implementations.of.t
05c0	68 65 20 62 69 6e 64 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 20 61 6c 72 65 61 64 79 20	he.binding.conditionals.already.
05e0	70 72 6f 76 69 64 65 64 20 62 79 0a 45 6d 61 63 73 2e 20 20 4d 65 72 65 6c 79 20 6c 6f 61 64 69	provided.by.Emacs...Merely.loadi
0600	6e 67 20 74 68 69 73 20 6c 69 62 72 61 72 79 20 64 6f 65 73 20 6e 6f 74 20 73 68 61 77 6f 77 20	ng.this.library.does.not.shawow.
0620	74 68 65 20 62 75 69 6c 74 2d 69 6e 0a 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 3b 20 74 68	the.built-in.implementations;.th
0640	69 73 20 63 61 6e 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 62 65 20 64 6f 6e 65 20 69 6e 20 74 68 65	is.can.optionally.be.done.in.the
0660	20 63 6f 6e 74 65 78 74 20 6f 66 0a 61 6e 20 69 6e 64 69 76 69 64 75 61 6c 20 6c 69 62 72 61 72	.context.of.an.individual.librar
0680	79 2c 20 61 73 20 64 65 73 63 72 69 62 65 64 20 62 65 6c 6f 77 2e 0a 0a 7e 63 6f 6e 64 2d 6c 65	y,.as.described.below...~cond-le
06a0	74 7e 20 61 6e 64 20 7e 63 6f 6e 64 2d 6c 65 74 2a 7e 20 61 72 65 20 70 72 6f 76 69 64 65 64 20	t~.and.~cond-let*~.are.provided.
06c0	65 78 61 63 74 6c 79 20 75 6e 64 65 72 20 74 68 65 73 65 20 6e 61 6d 65 73 2e 0a 54 68 65 20 6e	exactly.under.these.names..The.n
06e0	61 6d 65 73 20 6f 66 20 61 6c 6c 20 6f 74 68 65 72 20 6d 61 63 72 6f 73 20 69 6d 70 6c 65 6d 65	ames.of.all.other.macros.impleme
0700	6e 74 65 64 20 62 79 20 74 68 69 73 20 70 61 63 6b 61 67 65 20 62 65 67 69 6e 0a 77 69 74 68 20	nted.by.this.package.begin.with.
0720	7e 63 6f 6e 64 2d 6c 65 74 2d 2d 7e 2c 20 74 68 65 20 70 61 63 6b 61 67 65 27 73 20 70 72 65 66	~cond-let--~,.the.package's.pref
0740	69 78 20 66 6f 72 20 70 72 69 76 61 74 65 20 73 79 6d 62 6f 6c 2e 0a 0a 55 73 65 72 73 20 6f 66	ix.for.private.symbol...Users.of
0760	20 74 68 69 73 20 70 61 63 6b 61 67 65 20 61 72 65 20 6e 6f 74 20 65 78 70 65 63 74 65 64 20 74	.this.package.are.not.expected.t
0780	6f 20 75 73 65 20 74 68 65 73 65 20 75 6e 77 69 65 6c 64 79 0a 6e 61 6d 65 73 2e 20 20 49 6e 73	o.use.these.unwieldy.names...Ins
07a0	74 65 61 64 20 6f 6e 65 20 73 68 6f 75 6c 64 20 75 73 65 20 45 6d 61 63 73 27 20 73 68 6f 72 74	tead.one.should.use.Emacs'.short
07c0	68 61 6e 64 20 66 65 61 74 75 72 65 20 74 6f 20 75 73 65 0a 61 6c 6c 20 6f 72 20 73 6f 6d 65 20	hand.feature.to.use.all.or.some.
07e0	6f 66 20 74 68 65 73 65 20 6d 61 63 72 6f 73 20 62 79 20 74 68 65 69 72 20 63 6f 6e 63 65 70 74	of.these.macros.by.their.concept
0800	75 61 6c 20 6e 61 6d 65 73 2e 0a 0a 50 6c 65 61 73 65 20 73 65 65 20 74 68 65 20 6c 69 62 72 61	ual.names...Please.see.the.libra
0820	72 79 20 68 65 61 64 65 72 20 66 6f 72 20 75 73 61 67 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20	ry.header.for.usage.information.
0840	61 6e 64 20 74 68 65 0a 64 6f 63 73 74 72 69 6e 67 73 20 66 6f 72 20 69 6e 66 6f 72 6d 61 74 69	and.the.docstrings.for.informati
0860	6f 6e 20 61 62 6f 75 74 20 74 68 65 20 69 6e 64 69 76 69 64 75 61 6c 20 6d 61 63 72 6f 73 2e 0a	on.about.the.individual.macros..
0880	53 65 65 20 61 6c 73 6f 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 74 61 72 73	See.also.https://github.com/tars
08a0	69 75 73 2f 63 6f 6e 64 2d 6c 65 74 2f 77 69 6b 69 2e 0a 00 00 00 00 00 00 00 00 00 00 00 00 00	ius/cond-let/wiki...............
08c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
08e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0900	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0920	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0940	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0960	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0980	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
09a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
09c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
09e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0a00	63 6f 6e 64 2d 6c 65 74 2d 30 2e 31 2e 31 2f 63 6f 6e 64 2d 6c 65 74 2e 65 6c 00 00 00 00 00 00	cond-let-0.1.1/cond-let.el......
0a20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0a40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0a60	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
0a80	30 30 34 36 33 35 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 37 32 32 00 20 30 00 00 00	0046356.00000000000.013722..0...
0aa0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0ac0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0ae0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0b00	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
0b20	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
0b40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0b60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0b80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0ba0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0bc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0be0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0c00	3b 3b 3b 20 63 6f 6e 64 2d 6c 65 74 2e 65 6c 20 2d 2d 2d 20 41 64 64 69 74 69 6f 6e 61 6c 20 61	;;;.cond-let.el.---.Additional.a
0c20	6e 64 20 69 6d 70 72 6f 76 65 64 20 62 69 6e 64 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 73	nd.improved.binding.conditionals
0c40	20 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 74 20 2d 2a 2d 0a 0a 3b 3b 20	..-*-.lexical-binding:t.-*-..;;.
0c60	43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 35 20 4a 6f 6e 61 73 20 42 65 72 6e 6f 75 6c	Copyright.(C).2025.Jonas.Bernoul
0c80	6c 69 0a 0a 3b 3b 20 4d 61 79 20 63 6f 6e 74 61 69 6e 20 74 72 61 63 65 73 20 6f 66 20 45 6d 61	li..;;.May.contain.traces.of.Ema
0ca0	63 73 2c 20 77 68 69 63 68 20 69 73 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 31 39	cs,.which.is.;;.Copyright.(C).19
0cc0	38 35 2d 32 30 32 35 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e	85-2025.Free.Software.Foundation
0ce0	2c 20 49 6e 63 2e 0a 0a 3b 3b 20 41 75 74 68 6f 72 73 3a 20 4a 6f 6e 61 73 20 42 65 72 6e 6f 75	,.Inc...;;.Authors:.Jonas.Bernou
0d00	6c 6c 69 20 3c 65 6d 61 63 73 2e 63 6f 6e 64 2d 6c 65 74 40 6a 6f 6e 61 73 2e 62 65 72 6e 6f 75	lli.<emacs.cond-let@jonas.bernou
0d20	6c 6c 69 2e 64 65 76 3e 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69	lli.dev>.;;.Homepage:.https://gi
0d40	74 68 75 62 2e 63 6f 6d 2f 74 61 72 73 69 75 73 2f 63 6f 6e 64 2d 6c 65 74 0a 3b 3b 20 4b 65 79	thub.com/tarsius/cond-let.;;.Key
0d60	77 6f 72 64 73 3a 20 65 78 74 65 6e 73 69 6f 6e 73 0a 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 56 65	words:.extensions..;;.Package-Ve
0d80	72 73 69 6f 6e 3a 20 30 2e 31 2e 31 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73	rsion:.0.1.1.;;.Package-Requires
0da0	3a 20 28 28 65 6d 61 63 73 20 22 32 38 2e 31 22 29 29 0a 0a 3b 3b 20 53 50 44 58 2d 4c 69 63 65	:.((emacs."28.1"))..;;.SPDX-Lice
0dc0	6e 73 65 2d 49 64 65 6e 74 69 66 69 65 72 3a 20 47 50 4c 2d 33 2e 30 2d 6f 72 2d 6c 61 74 65 72	nse-Identifier:.GPL-3.0-or-later
0de0	0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3a	..;;.This.file.is.free.software:
0e00	20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20	.you.can.redistribute.it.and/or.
0e20	6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20	modify.;;.it.under.the.terms.of.
0e40	74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61	the.GNU.General.Public.License.a
0e60	73 20 70 75 62 6c 69 73 68 65 64 0a 3b 3b 20 62 79 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77	s.published.;;.by.the.Free.Softw
0e80	61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33	are.Foundation,.either.version.3
0ea0	20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 0a 3b 3b 20 6f 72 20 28 61 74 20 79 6f 75 72 20	.of.the.License,.;;.or.(at.your.
0ec0	6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 3b 3b 0a 3b 3b	option).any.later.version..;;.;;
0ee0	20 54 68 69 73 20 66 69 6c 65 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65	.This.file.is.distributed.in.the
0f00	20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b	.hope.that.it.will.be.useful,.;;
0f20	20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f	.but.WITHOUT.ANY.WARRANTY;.witho
0f40	75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a	ut.even.the.implied.warranty.of.
0f60	3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f	;;.MERCHANTABILITY.or.FITNESS.FO
0f80	52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65	R.A.PARTICULAR.PURPOSE...See.the
0fa0	0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66	.;;.GNU.General.Public.License.f
0fc0	6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 3b 3b 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c	or.more.details..;;.;;.You.shoul
0fe0	64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e	d.have.received.a.copy.of.the.GN
1000	55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e	U.General.Public.License.;;.alon
1020	67 20 77 69 74 68 20 74 68 69 73 20 66 69 6c 65 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c	g.with.this.file...If.not,.see.<
1040	68 74 74 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a	https://www.gnu.org/licenses/>..
1060	0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 54 68 69 73 20 69 73 20 61 6e 20	.;;;.Commentary:..;;.This.is.an.
1080	41 4c 50 48 41 20 72 65 6c 65 61 73 65 21 0a 3b 3b 20 42 72 65 61 6b 69 6e 67 20 63 68 61 6e 67	ALPHA.release!.;;.Breaking.chang
10a0	65 73 20 61 72 65 20 70 6f 73 73 69 62 6c 65 21 0a 0a 3b 3b 20 45 6d 61 63 73 20 70 72 6f 76 69	es.are.possible!..;;.Emacs.provi
10c0	64 65 73 20 74 68 65 20 62 69 6e 64 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 20 60 69 66	des.the.binding.conditionals.`if
10e0	2d 6c 65 74 27 2c 20 60 69 66 2d 6c 65 74 2a 27 2c 0a 3b 3b 20 60 77 68 65 6e 2d 6c 65 74 27 2c	-let',.`if-let*',.;;.`when-let',
1100	20 60 77 68 65 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	.`when-let*',.`and-let*'.and.`wh
1120	69 6c 65 2d 6c 65 74 27 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 61 63 6b 61 67 65 20 69 6d 70 6c 65	ile-let'...;;.This.package.imple
1140	6d 65 6e 74 73 20 74 68 65 20 6d 69 73 73 69 6e 67 20 60 61 6e 64 2d 6c 65 74 27 20 61 6e 64 20	ments.the.missing.`and-let'.and.
1160	60 77 68 69 6c 65 2d 6c 65 74 2a 27 2c 0a 3b 3b 20 61 6e 64 20 74 68 65 20 6f 72 69 67 69 6e 61	`while-let*',.;;.and.the.origina
1180	6c 20 60 63 6f 6e 64 2d 6c 65 74 27 2c 20 60 63 6f 6e 64 2d 6c 65 74 2a 27 2c 20 60 61 6e 64 24	l.`cond-let',.`cond-let*',.`and$
11a0	27 20 61 6e 64 20 60 61 6e 64 3e 27 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 61 63 6b 61 67 65 20 61	'.and.`and>'...;;.This.package.a
11c0	64 64 69 74 69 6f 6e 61 6c 6c 79 20 70 72 6f 76 69 64 65 73 20 6d 6f 72 65 20 63 6f 6e 73 69 73	dditionally.provides.more.consis
11e0	74 65 6e 74 20 61 6e 64 20 69 6d 70 72 6f 76 65 64 0a 3b 3b 20 69 6d 70 6c 65 6d 65 6e 74 61 74	tent.and.improved.;;.implementat
1200	69 6f 6e 73 20 6f 66 20 74 68 65 20 62 69 6e 64 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 73	ions.of.the.binding.conditionals
1220	20 61 6c 72 65 61 64 79 20 70 72 6f 76 69 64 65 64 20 62 79 0a 3b 3b 20 45 6d 61 63 73 2e 20 20	.already.provided.by.;;.Emacs...
1240	4d 65 72 65 6c 79 20 6c 6f 61 64 69 6e 67 20 74 68 69 73 20 6c 69 62 72 61 72 79 20 64 6f 65 73	Merely.loading.this.library.does
1260	20 6e 6f 74 20 73 68 61 77 6f 77 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 0a 3b 3b 20 69 6d 70 6c	.not.shawow.the.built-in.;;.impl
1280	65 6d 65 6e 74 61 74 69 6f 6e 73 3b 20 74 68 69 73 20 63 61 6e 20 6f 70 74 69 6f 6e 61 6c 6c 79	ementations;.this.can.optionally
12a0	20 62 65 20 64 6f 6e 65 20 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 0a 3b 3b 20 61 6e	.be.done.in.the.context.of.;;.an
12c0	20 69 6e 64 69 76 69 64 75 61 6c 20 6c 69 62 72 61 72 79 2c 20 61 73 20 64 65 73 63 72 69 62 65	.individual.library,.as.describe
12e0	64 20 62 65 6c 6f 77 2e 0a 0a 3b 3b 20 60 63 6f 6e 64 2d 6c 65 74 27 20 61 6e 64 20 60 63 6f 6e	d.below...;;.`cond-let'.and.`con
1300	64 2d 6c 65 74 2a 27 20 61 72 65 20 70 72 6f 76 69 64 65 64 20 65 78 61 63 74 6c 79 20 75 6e 64	d-let*'.are.provided.exactly.und
1320	65 72 20 74 68 65 73 65 20 6e 61 6d 65 73 2e 0a 3b 3b 20 54 68 65 20 6e 61 6d 65 73 20 6f 66 20	er.these.names..;;.The.names.of.
1340	61 6c 6c 20 6f 74 68 65 72 20 6d 61 63 72 6f 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 79 20	all.other.macros.implemented.by.
1360	74 68 69 73 20 70 61 63 6b 61 67 65 20 62 65 67 69 6e 0a 3b 3b 20 77 69 74 68 20 60 63 6f 6e 64	this.package.begin.;;.with.`cond
1380	2d 6c 65 74 2d 2d 27 2c 20 74 68 65 20 70 61 63 6b 61 67 65 27 73 20 70 72 65 66 69 78 20 66 6f	-let--',.the.package's.prefix.fo
13a0	72 20 70 72 69 76 61 74 65 20 73 79 6d 62 6f 6c 2e 0a 0a 3b 3b 20 55 73 65 72 73 20 6f 66 20 74	r.private.symbol...;;.Users.of.t
13c0	68 69 73 20 70 61 63 6b 61 67 65 20 61 72 65 20 6e 6f 74 20 65 78 70 65 63 74 65 64 20 74 6f 20	his.package.are.not.expected.to.
13e0	75 73 65 20 74 68 65 73 65 20 75 6e 77 69 65 6c 64 79 0a 3b 3b 20 6e 61 6d 65 73 2e 20 20 49 6e	use.these.unwieldy.;;.names...In
1400	73 74 65 61 64 20 6f 6e 65 20 73 68 6f 75 6c 64 20 75 73 65 20 45 6d 61 63 73 27 20 73 68 6f 72	stead.one.should.use.Emacs'.shor
1420	74 68 61 6e 64 20 66 65 61 74 75 72 65 20 74 6f 20 75 73 65 0a 3b 3b 20 61 6c 6c 20 6f 72 20 73	thand.feature.to.use.;;.all.or.s
1440	6f 6d 65 20 6f 66 20 74 68 65 73 65 20 6d 61 63 72 6f 73 20 62 79 20 74 68 65 69 72 20 63 6f 6e	ome.of.these.macros.by.their.con
1460	63 65 70 74 75 61 6c 20 6e 61 6d 65 73 2e 20 20 45 2e 67 2e 2c 20 69 66 0a 3b 3b 20 79 6f 75 20	ceptual.names...E.g.,.if.;;.you.
1480	77 61 6e 74 20 74 6f 20 75 73 65 20 61 6c 6c 20 6f 66 20 74 68 65 20 61 76 61 69 6c 61 62 6c 65	want.to.use.all.of.the.available
14a0	20 6d 61 63 72 6f 73 2c 20 61 64 64 20 74 68 69 73 20 61 74 20 74 68 65 20 65 6e 64 0a 3b 3b 20	.macros,.add.this.at.the.end.;;.
14c0	6f 66 20 61 20 6c 69 62 72 61 72 79 2e 0a 0a 3b 3b 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65	of.a.library...;;.Local.Variable
14e0	73 3a 0a 3b 3b 20 72 65 61 64 2d 73 79 6d 62 6f 6c 2d 73 68 6f 72 74 68 61 6e 64 73 3a 20 28 0a	s:.;;.read-symbol-shorthands:.(.
1500	3b 3b 20 20 20 28 22 61 6e 64 24 22 20 20 20 20 20 20 2e 20 22 63 6f 6e 64 2d 6c 65 74 2d 2d 61	;;...("and$"........"cond-let--a
1520	6e 64 24 22 29 0a 3b 3b 20 20 20 28 22 61 6e 64 3e 22 20 20 20 20 20 20 2e 20 22 63 6f 6e 64 2d	nd$").;;...("and>"........"cond-
1540	6c 65 74 2d 2d 61 6e 64 3e 22 29 0a 3b 3b 20 20 20 28 22 61 6e 64 2d 6c 65 74 22 20 20 20 2e 20	let--and>").;;...("and-let".....
1560	22 63 6f 6e 64 2d 6c 65 74 2d 2d 61 6e 64 2d 6c 65 74 22 29 0a 3b 3b 20 20 20 28 22 69 66 2d 6c	"cond-let--and-let").;;...("if-l
1580	65 74 22 20 20 20 20 2e 20 22 63 6f 6e 64 2d 6c 65 74 2d 2d 69 66 2d 6c 65 74 22 29 0a 3b 3b 20	et"......"cond-let--if-let").;;.
15a0	20 20 28 22 77 68 65 6e 2d 6c 65 74 22 20 20 2e 20 22 63 6f 6e 64 2d 6c 65 74 2d 2d 77 68 65 6e	..("when-let"...."cond-let--when
15c0	2d 6c 65 74 22 29 0a 3b 3b 20 20 20 28 22 77 68 69 6c 65 2d 6c 65 74 22 20 2e 20 22 63 6f 6e 64	-let").;;...("while-let"..."cond
15e0	2d 6c 65 74 2d 2d 77 68 69 6c 65 2d 6c 65 74 22 29 29 0a 3b 3b 20 45 6e 64 3a 0a 0a 3b 3b 20 59	-let--while-let")).;;.End:..;;.Y
1600	6f 75 20 63 61 6e 20 74 68 69 6e 6b 20 6f 66 20 74 68 65 73 65 20 66 69 6c 65 2d 6c 6f 63 61 6c	ou.can.think.of.these.file-local
1620	20 73 65 74 74 69 6e 67 73 20 61 73 20 69 6d 70 6f 72 74 20 73 74 61 74 65 6d 65 6e 74 73 20 6f	.settings.as.import.statements.o
1640	66 0a 3b 3b 20 73 6f 72 74 73 2e 20 20 49 66 20 79 6f 75 20 64 6f 20 74 68 69 73 2c 20 74 68 65	f.;;.sorts...If.you.do.this,.the
1660	6e 20 74 68 69 73 20 70 61 63 6b 61 67 65 27 73 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73	n.this.package's.implementations
1680	20 73 68 61 64 6f 77 0a 3b 3b 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 69 6d 70 6c 65 6d 65 6e	.shadow.;;.the.built-in.implemen
16a0	74 61 74 69 6f 6e 73 2e 20 20 44 6f 69 6e 67 20 73 6f 20 64 6f 65 73 20 6e 6f 74 20 61 66 66 65	tations...Doing.so.does.not.affe
16c0	63 74 20 61 6e 79 20 6f 74 68 65 72 0a 3b 3b 20 6c 69 62 72 61 72 69 65 73 2c 20 77 68 69 63 68	ct.any.other.;;.libraries,.which
16e0	20 63 6f 6e 74 69 6e 75 65 20 74 6f 20 75 73 65 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 69 6d	.continue.to.use.the.built-in.im
1700	70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 20 44 75 65 20 74 6f 20 6c 69 6d 69 74 61	plementations...;;.Due.to.limita
1720	74 69 6f 6e 73 20 6f 66 20 74 68 65 20 73 68 6f 72 74 68 61 6e 64 20 69 6d 70 6c 65 6d 65 6e 74	tions.of.the.shorthand.implement
1740	61 74 69 6f 6e 20 74 68 69 73 20 68 61 73 20 74 6f 20 62 65 0a 3b 3b 20 64 6f 6e 65 20 66 6f 72	ation.this.has.to.be.;;.done.for
1760	20 65 61 63 68 20 69 6e 64 69 76 69 64 75 61 6c 20 6c 69 62 72 61 72 79 2e 20 20 22 64 69 72 2d	.each.individual.library..."dir-
1780	6c 6f 63 61 6c 73 2e 65 6c 22 20 63 61 6e 6e 6f 74 20 62 65 20 75 73 65 64 2e 0a 0a 3b 3b 20 49	locals.el".cannot.be.used...;;.I
17a0	66 20 79 6f 75 20 75 73 65 20 60 61 6e 64 24 27 20 61 6e 64 20 60 61 6e 64 3e 27 2c 20 79 6f 75	f.you.use.`and$'.and.`and>',.you
17c0	20 6d 69 67 68 74 20 77 61 6e 74 20 74 6f 20 61 64 64 20 74 68 69 73 20 74 6f 20 79 6f 75 72 0a	.might.want.to.add.this.to.your.
17e0	3b 3b 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 3a 0a 0a 3b 3b 20 20 20 28 77 69 74 68 2d 65 76	;;.configuration:..;;...(with-ev
1800	61 6c 2d 61 66 74 65 72 2d 6c 6f 61 64 20 27 63 6f 6e 64 2d 6c 65 74 0a 3b 3b 20 20 20 20 20 28	al-after-load.'cond-let.;;.....(
1820	66 6f 6e 74 2d 6c 6f 63 6b 2d 61 64 64 2d 6b 65 79 77 6f 72 64 73 20 27 65 6d 61 63 73 2d 6c 69	font-lock-add-keywords.'emacs-li
1840	73 70 2d 6d 6f 64 65 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	sp-mode.;;......................
1860	20 20 20 20 20 20 20 63 6f 6e 64 2d 6c 65 74 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72	.......cond-let-font-lock-keywor
1880	64 73 20 74 29 29 0a 0a 3b 3b 20 46 6f 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74	ds.t))..;;.For.information.about
18a0	20 74 68 65 20 69 6e 64 69 76 69 64 75 61 6c 20 6d 61 63 72 6f 73 2c 20 70 6c 65 61 73 65 20 72	.the.individual.macros,.please.r
18c0	65 66 65 72 20 74 6f 20 74 68 65 69 72 0a 3b 3b 20 64 6f 63 73 74 72 69 6e 67 73 2e 0a 0a 3b 3b	efer.to.their.;;.docstrings...;;
18e0	20 53 65 65 20 61 6c 73 6f 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 74 61 72	.See.also.https://github.com/tar
1900	73 69 75 73 2f 63 6f 6e 64 2d 6c 65 74 2f 77 69 6b 69 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 3b	sius/cond-let/wiki...;;;.Code:.;
1920	3b 3b 20 43 6f 6e 64 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61 72	;;.Cond..(defun.cond-let--prepar
1940	65 2d 63 6c 61 75 73 65 73 20 28 74 61 67 20 77 68 65 6e 20 6c 65 74 20 63 6c 61 75 73 65 73 29	e-clauses.(tag.when.let.clauses)
1960	0a 20 20 22 55 73 65 64 20 62 79 20 6d 61 63 72 6f 73 20 60 63 6f 6e 64 2d 6c 65 74 2a 27 20 61	..."Used.by.macros.`cond-let*'.a
1980	6e 64 20 60 63 6f 6e 64 2d 6c 65 74 27 2e 22 0a 20 20 28 6c 65 74 20 28 62 6f 64 79 29 0a 20 20	nd.`cond-let'."...(let.(body)...
19a0	20 20 28 73 65 74 71 20 63 6c 61 75 73 65 73 20 28 6e 72 65 76 65 72 73 65 20 63 6c 61 75 73 65	..(setq.clauses.(nreverse.clause
19c0	73 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 63 6c 61 75 73 65 73 0a 20 20 20 20 20 20 28 6c 65	s)).....(while.clauses.......(le
19e0	74 20 28 28 63 6c 61 75 73 65 20 28 70 6f 70 20 63 6c 61 75 73 65 73 29 29 29 0a 20 20 20 20 20	t.((clause.(pop.clauses)))......
1a00	20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 28 28 76 65 63 74 6f 72 70 20 63 6c 61 75	...(cond..........((vectorp.clau
1a20	73 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 6f 64 79 0a 20 20 20 20 20 20 20	se)...........(setq.body........
1a40	20 20 20 20 20 20 20 20 20 60 28 28 2c 28 69 66 20 28 6c 65 6e 67 74 68 3d 20 63 6c 61 75 73 65	.........`((,(if.(length=.clause
1a60	20 31 29 20 27 6c 65 74 20 6c 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.1).'let.let)...................
1a80	20 2c 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 76 65 63 29 20 28 61 70 70 65 6e 64 20	.,(mapcar.(lambda.(vec).(append.
1aa0	76 65 63 20 6e 69 6c 29 29 20 63 6c 61 75 73 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20	vec.nil)).clause)...............
1ac0	20 20 20 20 20 2c 40 62 6f 64 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 28 6c 65 74 20 28	.....,@body))))..........((let.(
1ae0	76 61 72 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 76 65 63	varlist).............(while.(vec
1b00	74 6f 72 70 20 28 63 61 72 20 63 6c 61 75 73 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20	torp.(car.clause))..............
1b20	20 28 70 75 73 68 20 28 61 70 70 65 6e 64 20 28 70 6f 70 20 63 6c 61 75 73 65 29 20 6e 69 6c 29	.(push.(append.(pop.clause).nil)
1b40	20 76 61 72 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f	.varlist)).............(push.(co
1b60	6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 72 6c 69 73 74 0a 20	nd....................(varlist..
1b80	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 28 69 66 20 28 6c 65 6e 67 74	...................`(,(if.(lengt
1ba0	68 3d 20 76 61 72 6c 69 73 74 20 31 29 20 27 63 6f 6e 64 2d 6c 65 74 2d 2d 77 68 65 6e 2d 6c 65	h=.varlist.1).'cond-let--when-le
1bc0	74 20 77 68 65 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28	t.when).......................,(
1be0	6e 72 65 76 65 72 73 65 20 76 61 72 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20	nreverse.varlist)...............
1c00	20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 2c 74 61 67 20 2c 28 6d 61 63 72 6f 65 78 70 2d	........(throw.',tag.,(macroexp-
1c20	70 72 6f 67 6e 20 63 6c 61 75 73 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	progn.clause))))................
1c40	20 20 20 20 28 28 6c 65 6e 67 74 68 3d 20 63 6c 61 75 73 65 20 31 29 0a 20 20 20 20 20 20 20 20	....((length=.clause.1).........
1c60	20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 20 28 67 65 6e 73 79 6d 20 22 61 6e	............(let.((a.(gensym."an
1c80	6f 6e 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 6c	on"))).......................`(l
1ca0	65 74 20 28 28 2c 61 20 2c 28 63 61 72 20 63 6c 61 75 73 65 29 29 29 0a 20 20 20 20 20 20 20 20	et.((,a.,(car.clause))).........
1cc0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 2c 61 20 28 74 68 72 6f 77	.................(when.,a.(throw
1ce0	20 27 2c 74 61 67 20 2c 61 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.',tag.,a)))))..................
1d00	20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 77 68 65 6e 20	..(t.....................`(when.
1d20	2c 28 70 6f 70 20 63 6c 61 75 73 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	,(pop.clause)...................
1d40	20 20 20 20 20 28 74 68 72 6f 77 20 27 2c 74 61 67 20 2c 28 6d 61 63 72 6f 65 78 70 2d 70 72 6f	.....(throw.',tag.,(macroexp-pro
1d60	67 6e 20 63 6c 61 75 73 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	gn.clause)))))..................
1d80	20 62 6f 64 79 29 29 29 29 29 29 0a 20 20 20 20 62 6f 64 79 29 29 0a 0a 28 64 65 66 6d 61 63 72	.body)))))).....body))..(defmacr
1da0	6f 20 63 6f 6e 64 2d 6c 65 74 2a 20 28 26 72 65 73 74 20 63 6c 61 75 73 65 73 29 0a 20 20 22 54	o.cond-let*.(&rest.clauses)..."T
1dc0	72 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	ry.each.clause.until.one.succeed
1de0	73 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	s...Each.clause.has.one.of.these
1e00	20 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	.forms:.-.a.plain.clause...(COND
1e20	49 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	ITION.BODY...).-.a.binding.claus
1e40	65 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	e.([SYMBOL.VALUEFORM]....BODY...
1e60	29 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	).-.a.binding.vector.[[SYMBOL.VA
1e80	4c 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	LUEFORM]...]..A.(CONDITION.BODY.
1ea0	2e 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	..).clause.works.as.for.`cond'..
1ec0	20 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	.Evaluate.CONDITION,.and.if.it.y
1ee0	69 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	ields.non-nil,.the.clause.succee
1f00	64 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	ds...Then.evaluate.BODY.forms.se
1f20	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 20 76 61 6c 75 65 20	quentially.and.return.the.value.
1f40	6f 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	of.the.last;.or.if.there.are.no.
1f60	42 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	BODY.forms,.return.the.value.of.
1f80	43 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	CONDITION...If.CONDITION.yields.
1fa0	6e 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	nil,.do.not.evaluate.the.BODY.fo
1fc0	72 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	rms.and.instead.proceed.to.the.n
1fe0	65 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	ext.clause...A.([SYMBOL.VALUEFOR
2000	4d 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	M]....BODY...).clause.begins.wit
2020	68 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	h.one.or.more.binding.vectors,.f
2040	6f 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	ollowed.by.one.or.more.BODY.form
2060	73 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	s...Bind.SYMBOL.to.the.value.of.
2080	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 72	VALUEFORM...Each.VALUEFORM.can.r
20a0	65 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	efer.to.symbols.already.bound.by
20c0	20 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	.this.VARLIST.(as.for.`let*')...
20e0	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 2c	If.all.VALUEFORMs.yield.non-nil,
2100	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 6c	.evaluate.BODY.forms.sequentiall
2120	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 66	y,.with.VARLIST's.bindings.in.ef
2140	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 68	fect,.and.return.the.value.of.th
2160	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 79	e.last.form...If.any.VALUEFORM.y
2180	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 20	ields.nil,.evaluate.neither.the.
21a0	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 44	remaining.VALUEFORMs.nor.the.BOD
21c0	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 65 20 6e 65 78 74	Y.forms,.and.proceed.to.the.next
21e0	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 46 4f 52 4d 5d 2e	.clause...A.[[SYMBOL.VALUEFORM].
2200	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 20 77 68 69 63 68	..].form.creates.bindings,.which
2220	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 6c 61 75 73 65 73	.extend.to.all.remaining.clauses
2240	20 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	.and.binding.vectors...Unlike.fo
2260	72 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	r.the.previous.form,.always.bind
2280	20 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	.all.SYMBOLs,.even.if.a.VALUEFOR
22a0	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 0a 74 6f	M.yields.nil...Always.proceed.to
22c0	20 74 68 65 20 6e 65 78 74 20 63 6c 61 75 73 65 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69	.the.next.clause."...(declare.(i
22e0	6e 64 65 6e 74 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 62 75 67 20 28 26 72 65 73	ndent.0)............(debug.(&res
2300	74 20 5b 26 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	t.[&or..........................
2320	20 28 76 65 63 74 6f 72 20 26 72 65 73 74 20 28 76 65 63 74 6f 72 20 73 79 6d 62 6f 6c 70 20 66	.(vector.&rest.(vector.symbolp.f
2340	6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	orm))...........................
2360	28 5b 26 72 65 73 74 20 28 76 65 63 74 6f 72 20 73 79 6d 62 6f 6c 70 20 66 6f 72 6d 29 5d 20 62	([&rest.(vector.symbolp.form)].b
2380	6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28	ody)...........................(
23a0	66 6f 72 6d 20 62 6f 64 79 29 5d 29 29 29 0a 20 20 28 6c 65 74 20 28 28 74 61 67 20 28 67 65 6e	form.body)])))...(let.((tag.(gen
23c0	73 79 6d 20 22 3a 63 6f 6e 64 2d 6c 65 74 2a 22 29 29 29 0a 20 20 20 20 60 28 63 61 74 63 68 20	sym.":cond-let*"))).....`(catch.
23e0	27 2c 74 61 67 0a 20 20 20 20 20 20 20 2c 40 28 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61 72	',tag........,@(cond-let--prepar
2400	65 2d 63 6c 61 75 73 65 73 20 74 61 67 20 27 63 6f 6e 64 2d 6c 65 74 2d 2d 77 68 65 6e 2d 6c 65	e-clauses.tag.'cond-let--when-le
2420	74 2a 20 27 6c 65 74 2a 20 63 6c 61 75 73 65 73 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20	t*.'let*.clauses))))..(defmacro.
2440	63 6f 6e 64 2d 6c 65 74 20 28 26 72 65 73 74 20 63 6c 61 75 73 65 73 29 0a 20 20 22 54 72 79 20	cond-let.(&rest.clauses)..."Try.
2460	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 2e 0a	each.clause.until.one.succeeds..
2480	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 66 6f	.Each.clause.has.one.of.these.fo
24a0	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 54 49	rms:.-.a.plain.clause...(CONDITI
24c0	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 20 28	ON.BODY...).-.a.binding.clause.(
24e0	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 0a 2d	[SYMBOL.VALUEFORM]....BODY...).-
2500	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 55 45	.a.binding.vector.[[SYMBOL.VALUE
2520	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 2e 29	FORM]...]..A.(CONDITION.BODY...)
2540	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 45 76	.clause.works.as.for.`cond'...Ev
2560	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 65 6c	aluate.CONDITION,.and.if.it.yiel
2580	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 73 2e	ds.non-nil,.the.clause.succeeds.
25a0	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 75 65	..Then.evaluate.BODY.forms.seque
25c0	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 66 20	ntially.and.return.the.value.of.
25e0	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 4f 44	the.last;.or.if.there.are.no.BOD
2600	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 4f 4e	Y.forms,.return.the.value.of.CON
2620	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 69 6c	DITION...If.CONDITION.yields.nil
2640	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 6d 73	,.do.not.evaluate.the.BODY.forms
2660	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 78 74	.and.instead.proceed.to.the.next
2680	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 5d 2e	.clause...A.([SYMBOL.VALUEFORM].
26a0	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 20 6f	...BODY...).clause.begins.with.o
26c0	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 6c 6c	ne.or.more.binding.vectors,.foll
26e0	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 2e 20	owed.by.one.or.more.BODY.forms..
2700	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 41 4c	.Bind.SYMBOL.to.the.value.of.VAL
2720	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 52 4d 73	UEFORM...Evaluate.all.VALUEFORMs
2740	20 62 65 66 6f 72 65 20 62 69 6e 64 69 6e 67 20 74 68 65 69 72 20 72 65 73 70 65 63 74 69 76 65	.before.binding.their.respective
2760	0a 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 61 6c 6c	.SYMBOLs.(as.for.`let')...If.all
2780	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 61 6c 75	.VALUEFORMs.yield.non-nil,.evalu
27a0	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 2c 20 77 69 74	ate.BODY.forms.sequentially,.wit
27c0	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 65 63 74 2c 20	h.VARLIST's.bindings.in.effect,.
27e0	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 20 6c 61 73 74	and.return.the.value.of.the.last
2800	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 65 6c 64 73 20	.form...If.any.VALUEFORM.yields.
2820	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 69 6e	nil,.evaluate.neither.the.remain
2840	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 72 6d	ing.VALUEFORMs.nor.the.BODY.form
2860	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 63 6c 61 75 73	s,.and.proceed.to.the.next.claus
2880	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 2e 5d 20 66 6f	e...A.[[SYMBOL.VALUEFORM]...].fo
28a0	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 65 78 74 65 6e	rm.creates.bindings,.which.exten
28c0	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 61 6e 64 20 62	d.to.all.remaining.clauses.and.b
28e0	69 6e 64 69 6e 67 20 76 65 63 74 6f 72 73 2e 20 20 45 76 61 6c 75 61 74 65 20 61 6c 6c 20 56 41	inding.vectors...Evaluate.all.VA
2900	4c 55 45 46 4f 52 4d 73 20 62 65 66 6f 72 65 0a 62 69 6e 64 69 6e 67 20 74 68 65 69 72 20 72 65	LUEFORMs.before.binding.their.re
2920	73 70 65 63 74 69 76 65 20 53 59 4d 42 4f 4c 73 2e 20 20 55 6e 6c 69 6b 65 20 66 6f 72 20 74 68	spective.SYMBOLs...Unlike.for.th
2940	65 20 70 72 65 76 69 6f 75 73 20 66 6f 72 6d 2c 20 62 69 6e 64 0a 61 6c 6c 20 53 59 4d 42 4f 4c	e.previous.form,.bind.all.SYMBOL
2960	73 2c 20 65 76 65 6e 20 69 66 20 61 20 56 41 4c 55 45 46 4f 52 4d 20 79 69 65 6c 64 73 20 6e 69	s,.even.if.a.VALUEFORM.yields.ni
2980	6c 2e 20 20 41 6c 77 61 79 73 20 70 72 6f 63 65 65 64 20 74 6f 20 74 68 65 0a 6e 65 78 74 20 63	l...Always.proceed.to.the.next.c
29a0	6c 61 75 73 65 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 30 29 20 28 64	lause."...(declare.(indent.0).(d
29c0	65 62 75 67 20 63 6f 6e 64 2d 6c 65 74 29 29 0a 20 20 28 6c 65 74 20 28 28 74 61 67 20 28 67 65	ebug.cond-let))...(let.((tag.(ge
29e0	6e 73 79 6d 20 22 3a 63 6f 6e 64 2d 6c 65 74 22 29 29 29 0a 20 20 20 20 60 28 63 61 74 63 68 20	nsym.":cond-let"))).....`(catch.
2a00	27 2c 74 61 67 0a 20 20 20 20 20 20 20 2c 40 28 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61 72	',tag........,@(cond-let--prepar
2a20	65 2d 63 6c 61 75 73 65 73 20 74 61 67 20 27 63 6f 6e 64 2d 6c 65 74 2d 2d 77 68 65 6e 2d 6c 65	e-clauses.tag.'cond-let--when-le
2a40	74 20 27 6c 65 74 20 63 6c 61 75 73 65 73 29 29 29 29 0a 0a 3b 3b 3b 20 43 6f 6d 6d 6f 6e 0a 0a	t.'let.clauses))))..;;;.Common..
2a60	28 64 65 66 75 6e 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	(defun.cond-let--prepare-varlist
2a80	20 28 76 61 72 6c 69 73 74 29 0a 20 20 22 55 73 65 64 20 62 79 20 43 6f 6e 64 2d 4c 65 74 27 73	.(varlist)..."Used.by.Cond-Let's
2aa0	20 60 77 68 65 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	.`when-let*',.`and-let*'.and.`wh
2ac0	69 6c 65 2d 6c 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	ile-let*'..Also.used.by.other.ma
2ae0	63 72 6f 73 20 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	cros.via.`cond-let--prepare-varf
2b00	6f 72 6d 73 27 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	orms'..Return.(VARLIST.LASTVAR).
2b20	22 0a 20 20 28 6c 65 74 20 28 70 72 65 76 76 61 72 29 0a 20 20 20 20 28 6c 69 73 74 20 28 6d 61	"...(let.(prevvar).....(list.(ma
2b40	70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 62 69 6e 64 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20	pcar.(lambda.(binding)..........
2b60	20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6c 65 6e 67 74 68 3d 20 62 69 6e 64	...........(unless.(length=.bind
2b80	69 6e 67 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 69	ing.2).......................(si
2ba0	67 6e 61 6c 20 27 65 72 72 6f 72 20 28 63 6f 6e 73 20 22 49 6e 76 61 6c 69 64 20 62 69 6e 64 69	gnal.'error.(cons."Invalid.bindi
2bc0	6e 67 22 20 62 69 6e 64 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ng".binding)))..................
2be0	20 20 20 28 70 63 61 73 65 2d 6c 65 74 20 28 28 60 28 2c 76 61 72 20 2c 66 6f 72 6d 29 20 62 69	...(pcase-let.((`(,var.,form).bi
2c00	6e 64 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77	nding)).......................(w
2c20	68 65 6e 20 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 5f 22 20 28 73 79 6d 62 6f 6c	hen.(string-prefix-p."_".(symbol
2c40	2d 6e 61 6d 65 20 76 61 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	-name.var)).....................
2c60	20 20 20 20 28 73 65 74 71 20 76 61 72 20 28 67 65 6e 73 79 6d 20 22 61 6e 6f 6e 22 29 29 29 0a	....(setq.var.(gensym."anon"))).
2c80	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 31 20 28 69 66	......................(prog1.(if
2ca0	20 70 72 65 76 76 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.prevvar........................
2cc0	20 20 20 20 20 20 20 20 20 20 60 28 2c 76 61 72 20 28 61 6e 64 20 2c 70 72 65 76 76 61 72 20 2c	..........`(,var.(and.,prevvar.,
2ce0	66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	form))..........................
2d00	20 20 20 20 20 20 28 6c 69 73 74 20 76 61 72 20 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20	......(list.var.form))..........
2d20	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 72 65 76 76 61 72 20 76 61 72	...............(setq.prevvar.var
2d40	29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 72 6c 69 73 74 29 0a	))))...................varlist).
2d60	20 20 20 20 20 20 20 20 20 20 70 72 65 76 76 61 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e	..........prevvar)))..(defun.con
2d80	64 2d 6c 65 74 2d 2d 70 72 65 70 61 72 65 2d 76 61 72 66 6f 72 6d 73 20 28 76 61 72 6c 69 73 74	d-let--prepare-varforms.(varlist
2da0	20 26 6f 70 74 69 6f 6e 61 6c 20 69 66 2d 6c 65 74 29 0a 20 20 22 55 73 65 64 20 62 79 20 43 6f	.&optional.if-let)..."Used.by.Co
2dc0	6e 64 2d 4c 65 74 27 73 20 60 77 68 65 6e 2d 6c 65 74 27 2c 20 60 61 6e 64 2d 6c 65 74 27 2c 20	nd-Let's.`when-let',.`and-let',.
2de0	60 77 68 69 6c 65 2d 6c 65 74 27 20 61 6e 64 20 60 69 66 2d 6c 65 74 27 2e 0a 52 65 74 75 72 6e	`while-let'.and.`if-let'..Return
2e00	20 28 41 4e 4f 4e 2d 56 41 52 4c 49 53 54 20 41 4e 4f 4e 2d 53 45 54 51 20 56 41 52 4c 49 53 54	.(ANON-VARLIST.ANON-SETQ.VARLIST
2e20	20 4c 41 53 54 56 41 52 29 2c 20 6f 72 20 69 66 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 0a 56	.LASTVAR),.or.if.the.length.of.V
2e40	41 52 4c 49 53 54 20 69 73 20 31 20 61 6e 64 20 49 46 2d 4c 45 54 20 69 73 20 6e 69 6c 2c 20 72	ARLIST.is.1.and.IF-LET.is.nil,.r
2e60	65 74 75 72 6e 20 28 6e 69 6c 20 6e 69 6c 20 56 41 52 4c 49 53 54 20 4c 41 53 54 56 41 52 29 2e	eturn.(nil.nil.VARLIST.LASTVAR).
2e80	22 0a 20 20 28 69 66 20 28 61 6e 64 20 28 6e 6f 74 20 69 66 2d 6c 65 74 29 0a 20 20 20 20 20 20	"...(if.(and.(not.if-let).......
2ea0	20 20 20 20 20 28 6c 65 6e 67 74 68 3d 20 76 61 72 6c 69 73 74 20 31 29 29 0a 20 20 20 20 20 20	.....(length=.varlist.1)).......
2ec0	60 28 6e 69 6c 20 6e 69 6c 20 2c 40 28 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61 72 65 2d 76	`(nil.nil.,@(cond-let--prepare-v
2ee0	61 72 6c 69 73 74 20 76 61 72 6c 69 73 74 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 74 72 69 70	arlist.varlist)).....(let.((trip
2f00	6c 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28	les............(mapcar.(lambda.(
2f20	62 69 6e 64 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75	binding)......................(u
2f40	6e 6c 65 73 73 20 28 6c 65 6e 67 74 68 3d 20 62 69 6e 64 69 6e 67 20 32 29 0a 20 20 20 20 20 20	nless.(length=.binding.2).......
2f60	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 20 27 65 72 72 6f 72 20	.................(signal.'error.
2f80	28 63 6f 6e 73 20 22 49 6e 76 61 6c 69 64 20 62 69 6e 64 69 6e 67 22 20 62 69 6e 64 69 6e 67 29	(cons."Invalid.binding".binding)
2fa0	29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 63 61 73 65 2d 6c	))......................(pcase-l
2fc0	65 74 20 28 28 60 28 2c 76 61 72 20 2c 66 6f 72 6d 29 20 62 69 6e 64 69 6e 67 29 29 0a 20 20 20	et.((`(,var.,form).binding))....
2fe0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e	....................(when.(strin
3000	67 2d 70 72 65 66 69 78 2d 70 20 22 5f 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 76 61 72 29	g-prefix-p."_".(symbol-name.var)
3020	29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71	)..........................(setq
3040	20 76 61 72 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.var.nil))......................
3060	20 20 28 6c 69 73 74 20 28 61 6e 64 20 76 61 72 20 28 67 65 6e 73 79 6d 20 22 61 6e 6f 6e 22 29	..(list.(and.var.(gensym."anon")
3080	29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76	)..............................v
30a0	61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ar..............................
30c0	66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 72 6c 69	form)))....................varli
30e0	73 74 29 29 29 0a 20 20 20 20 20 20 28 6c 69 73 74 20 28 6d 61 70 63 61 6e 20 28 70 63 61 73 65	st))).......(list.(mapcan.(pcase
3100	2d 6c 61 6d 62 64 61 20 28 60 28 2c 61 6e 6f 6e 20 2c 5f 20 2c 5f 29 29 0a 20 20 20 20 20 20 20	-lambda.(`(,anon.,_.,_))........
3120	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 61 6e 6f 6e 20 28 6c 69 73 74 20 61	...............(and.anon.(list.a
3140	6e 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 69 70 6c	non))).....................tripl
3160	65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 70 63 61 73 65 2d 6c	es).............(mapcar.(pcase-l
3180	61 6d 62 64 61 20 28 60 28 2c 61 6e 6f 6e 20 2c 5f 20 2c 66 6f 72 6d 29 29 0a 20 20 20 20 20 20	ambda.(`(,anon.,_.,form)).......
31a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 61 6e 6f 6e 0a 20 20 20 20 20 20 20	................(if.anon........
31c0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 73 65 74 71 20 2c 61 6e 6f 6e 20	...................`(setq.,anon.
31e0	2c 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66	,form).........................f
3200	6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 69 70 6c 65	orm)).....................triple
3220	73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 6e 20 28 70 63 61 73 65 2d 6c 61	s).............(mapcan.(pcase-la
3240	6d 62 64 61 20 28 60 28 2c 61 6e 6f 6e 20 2c 76 61 72 20 2c 5f 29 29 0a 20 20 20 20 20 20 20 20	mbda.(`(,anon.,var.,_)).........
3260	20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 76 61 72 20 60 28 28 2c 76 61 72 20 2c	..............(and.var.`((,var.,
3280	61 6e 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 69	anon)))).....................tri
32a0	70 6c 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 64 72 20 28 63 61 72 20 28 6c 61	ples).............(cadr.(car.(la
32c0	73 74 20 74 72 69 70 6c 65 73 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 20 41 6e 64 0a 0a 28 64 65 66	st.triples)))))))..;;;.And..(def
32e0	6d 61 63 72 6f 20 63 6f 6e 64 2d 6c 65 74 2d 2d 61 6e 64 2d 6c 65 74 2a 20 28 76 61 72 6c 69 73	macro.cond-let--and-let*.(varlis
3300	74 20 26 6f 70 74 69 6f 6e 61 6c 20 62 6f 64 79 66 6f 72 6d 29 0a 20 20 22 42 69 6e 64 20 61 63	t.&optional.bodyform)..."Bind.ac
3320	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 6f 6e 65 20 79 69 65	cording.to.VARLIST.until.one.yie
3340	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 44 59 46 4f 52 4d 2e	lds.nil,.else.evaluate.BODYFORM.
3360	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 73 20 61 20 6c	..Each.element.of.VARLIST.is.a.l
3380	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 63 68 20 62 69	ist.(SYMBOL.VALUEFORM),.which.bi
33a0	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 56 41 4c 55 45	nds.SYMBOL.to.the.value.of.VALUE
33c0	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 66 65 72 20	FORM...Each.VALUEFORM.can.refer.
33e0	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 79 20 74 68 69 73	to.symbols.already.bound.by.this
3400	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 0a 45 76 61 6c 75	.VARLIST.(as.for.`let*')...Evalu
3420	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 68 65 6d 20	ate.VALUEFORMs.until.on.of.them.
3440	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 20 72 65 74	yields.nil...If.that.happens.ret
3460	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 72 20 74 68	urn.nil,.and.evaluate.neither.th
3480	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 4f 44 59 46	e.remaining.VALUEFORMs.nor.BODYF
34a0	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 64 20 6e 6f	ORM...If.all.VALUEFORMs.yield.no
34c0	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 68 20 74 68	n-nil,.evaluate.BODYFORM.with.th
34e0	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 74 75 72 6e	e.bindings.in.effect,.and.return
3500	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 6f 20 42 4f	.its.value;.or.if.there.is.no.BO
3520	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 74 0a 56 41	DYFORM,.the.value.of.the.last.VA
3540	4c 55 45 46 4f 52 4d 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 29 0a	LUEFORM."...(declare.(indent.1).
3560	20 20 20 20 20 20 20 20 20 20 20 28 64 65 62 75 67 20 28 28 26 72 65 73 74 20 28 73 79 6d 62 6f	...........(debug.((&rest.(symbo
3580	6c 70 20 66 6f 72 6d 29 29 20 66 6f 72 6d 29 29 29 0a 20 20 28 70 63 61 73 65 2d 6c 65 74 20 28	lp.form)).form)))...(pcase-let.(
35a0	28 60 28 2c 76 61 72 6c 69 73 74 20 2c 6c 61 73 74 76 61 72 29 0a 20 20 20 20 20 20 20 20 20 20	(`(,varlist.,lastvar)...........
35c0	20 20 20 20 20 28 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	.....(cond-let--prepare-varlist.
35e0	76 61 72 6c 69 73 74 29 29 29 0a 20 20 20 20 60 28 6c 65 74 2a 20 2c 76 61 72 6c 69 73 74 0a 20	varlist))).....`(let*.,varlist..
3600	20 20 20 20 20 20 2c 28 69 66 20 62 6f 64 79 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20	......,(if.bodyform.............
3620	60 28 61 6e 64 20 2c 6c 61 73 74 76 61 72 20 2c 62 6f 64 79 66 6f 72 6d 29 0a 20 20 20 20 20 20	`(and.,lastvar.,bodyform).......
3640	20 20 20 20 6c 61 73 74 76 61 72 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 63 6f 6e 64 2d	....lastvar))))..(defmacro.cond-
3660	6c 65 74 2d 2d 61 6e 64 2d 6c 65 74 20 28 76 61 72 6c 69 73 74 20 26 6f 70 74 69 6f 6e 61 6c 20	let--and-let.(varlist.&optional.
3680	62 6f 64 79 66 6f 72 6d 29 0a 20 20 22 42 69 6e 64 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 56	bodyform)..."Bind.according.to.V
36a0	41 52 4c 49 53 54 20 75 6e 74 69 6c 20 6f 6e 65 20 79 69 65 6c 64 73 20 6e 69 6c 2c 20 65 6c 73	ARLIST.until.one.yields.nil,.els
36c0	65 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59 46 4f 52 4d 2e 0a 0a 45 61 63 68 20 65 6c 65 6d 65	e.evaluate.BODYFORM...Each.eleme
36e0	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 4f 4c 20	nt.of.VARLIST.is.a.list.(SYMBOL.
3700	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 4c 0a 74	VALUEFORM),.which.binds.SYMBOL.t
3720	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 61 6c 75	o.the.value.of.VALUEFORM...Evalu
3740	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 64 69 6e	ate.all.VALUEFORMs.before.bindin
3760	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 73 20 66	g.their.respective.SYMBOLs.(as.f
3780	6f 72 20 60 6c 65 74 27 29 2e 0a 0a 45 76 61 6c 75 61 74 65 20 56 41 4c 55 45 46 4f 52 4d 73 20	or.`let')...Evaluate.VALUEFORMs.
37a0	75 6e 74 69 6c 20 6f 6e 20 6f 66 20 74 68 65 6d 20 79 69 65 6c 64 73 20 6e 69 6c 2e 20 20 49 66	until.on.of.them.yields.nil...If
37c0	20 74 68 61 74 20 68 61 70 70 65 6e 73 20 72 65 74 75 72 6e 0a 6e 69 6c 2c 20 61 6e 64 20 65 76	.that.happens.return.nil,.and.ev
37e0	61 6c 75 61 74 65 20 6e 65 69 74 68 65 72 20 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 56 41 4c	aluate.neither.the.remaining.VAL
3800	55 45 46 4f 52 4d 73 20 6e 6f 72 20 42 4f 44 59 46 4f 52 4d 2e 20 20 49 66 20 61 6c 6c 0a 56 41	UEFORMs.nor.BODYFORM...If.all.VA
3820	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 61 6c 75 61 74 65	LUEFORMs.yield.non-nil,.evaluate
3840	20 42 4f 44 59 46 4f 52 4d 20 77 69 74 68 20 74 68 65 20 62 69 6e 64 69 6e 67 73 20 69 6e 20 65	.BODYFORM.with.the.bindings.in.e
3860	66 66 65 63 74 2c 0a 61 6e 64 20 72 65 74 75 72 6e 20 69 74 73 20 76 61 6c 75 65 3b 20 6f 72 20	ffect,.and.return.its.value;.or.
3880	69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 20 42 4f 44 59 46 4f 52 4d 2c 20 74 68 65 20 76 61 6c	if.there.is.no.BODYFORM,.the.val
38a0	75 65 20 6f 66 20 74 68 65 20 6c 61 73 74 0a 56 41 4c 55 45 46 4f 52 4d 2e 22 0a 20 20 28 64 65	ue.of.the.last.VALUEFORM."...(de
38c0	63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 29 20 28 64 65 62 75 67 20 63 6f 6e 64 2d 6c 65 74	clare.(indent.1).(debug.cond-let
38e0	2d 2d 61 6e 64 2d 6c 65 74 2a 29 29 0a 20 20 28 70 63 61 73 65 2d 6c 65 74 20 28 28 60 28 2c 61	--and-let*))...(pcase-let.((`(,a
3900	6e 6f 6e 20 2c 73 65 74 20 2c 62 69 6e 64 20 2c 6c 61 73 74 76 61 72 29 0a 20 20 20 20 20 20 20	non.,set.,bind.,lastvar)........
3920	20 20 20 20 20 20 20 20 28 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61 72 65 2d 76 61 72 66 6f	........(cond-let--prepare-varfo
3940	72 6d 73 20 76 61 72 6c 69 73 74 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 61 6e 6f 6e 0a 20	rms.varlist))).....(cond.(anon..
3960	20 20 20 20 20 20 20 20 20 20 60 28 6c 65 74 20 2c 61 6e 6f 6e 0a 20 20 20 20 20 20 20 20 20 20	..........`(let.,anon...........
3980	20 20 20 20 28 61 6e 64 20 2c 40 73 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	....(and.,@set..................
39a0	20 20 28 6c 65 74 20 2c 62 69 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	..(let.,bind....................
39c0	20 20 2c 28 6f 72 20 62 6f 64 79 66 6f 72 6d 20 6c 61 73 74 76 61 72 29 29 29 29 29 0a 20 20 20	..,(or.bodyform.lastvar)))))....
39e0	20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 6c 65 74 20 2c 62 69 6e 64	.......(t............`(let.,bind
3a00	0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 69 66 20 62 6f 64 79 66 6f 72 6d 0a 20 20 20	...............,(if.bodyform....
3a20	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 61 6e 64 20 2c 6c 61 73 74 76 61 72 20 2c	................`(and.,lastvar.,
3a40	62 6f 64 79 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 76	bodyform)..................lastv
3a60	61 72 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 63 6f 6e 64 2d 6c 65 74 2d 2d 61 6e	ar))))))..(defmacro.cond-let--an
3a80	64 24 20 28 76 61 72 66 6f 72 6d 20 62 6f 64 79 66 6f 72 6d 29 0a 20 20 22 42 69 6e 64 20 76 61	d$.(varform.bodyform)..."Bind.va
3aa0	72 69 61 62 6c 65 20 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	riable.`$'.to.value.of.VARFORM.a
3ac0	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 20 42 4f 44 59 46 4f	nd.conditionally.evaluate.BODYFO
3ae0	52 4d 2e 0a 0a 49 66 20 56 41 52 46 4f 52 4d 20 79 69 65 6c 64 73 20 61 20 6e 6f 6e 2d 6e 69 6c	RM...If.VARFORM.yields.a.non-nil
3b00	20 76 61 6c 75 65 2c 20 62 69 6e 64 20 74 68 65 20 73 79 6d 62 6f 6c 20 60 24 27 20 74 6f 20 74	.value,.bind.the.symbol.`$'.to.t
3b20	68 61 74 20 76 61 6c 75 65 2c 0a 65 76 61 6c 75 61 74 65 20 42 4f 44 59 46 4f 52 4d 20 77 69 74	hat.value,.evaluate.BODYFORM.wit
3b40	68 20 74 68 61 74 20 62 69 6e 64 69 6e 67 20 69 6e 20 65 66 66 65 63 74 2c 20 61 6e 64 20 72 65	h.that.binding.in.effect,.and.re
3b60	74 75 72 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 0a 42 4f 44 59 46 4f 52 4d 2e 20 20 49 66 20	turn.the.value.of.BODYFORM...If.
3b80	56 41 52 46 4f 52 4d 20 79 69 65 6c 64 73 20 6e 69 6c 2c 20 64 6f 20 6e 6f 74 20 65 76 61 6c 75	VARFORM.yields.nil,.do.not.evalu
3ba0	61 74 65 20 42 4f 44 59 46 4f 52 4d 2c 20 61 6e 64 20 72 65 74 75 72 6e 0a 6e 69 6c 2e 22 0a 20	ate.BODYFORM,.and.return.nil."..
3bc0	20 28 64 65 63 6c 61 72 65 20 28 64 65 62 75 67 20 28 66 6f 72 6d 20 66 6f 72 6d 29 29 29 0a 20	.(declare.(debug.(form.form)))..
3be0	20 60 28 6c 65 74 20 28 28 24 20 2c 76 61 72 66 6f 72 6d 29 29 0a 20 20 20 20 20 28 61 6e 64 20	.`(let.(($.,varform))......(and.
3c00	24 20 2c 62 6f 64 79 66 6f 72 6d 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 63 6f 6e 64 2d 6c	$.,bodyform)))..(defmacro.cond-l
3c20	65 74 2d 2d 61 6e 64 3e 20 28 66 6f 72 6d 20 66 6f 72 6d 32 20 26 72 65 73 74 20 66 6f 72 6d 73	et--and>.(form.form2.&rest.forms
3c40	29 0a 20 20 22 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	)..."Bind.variables.according.to
3c60	20 65 61 63 68 20 56 41 52 46 4f 52 4d 20 75 6e 74 69 6c 20 6f 6e 65 20 6f 66 20 74 68 65 6d 20	.each.VARFORM.until.one.of.them.
3c80	79 69 65 6c 64 73 20 6e 69 6c 2e 0a 0a 45 76 61 6c 75 61 74 65 20 74 68 65 20 66 69 72 73 74 20	yields.nil...Evaluate.the.first.
3ca0	46 4f 52 4d 20 61 6e 64 20 69 66 20 74 68 61 74 20 79 69 65 6c 64 73 20 61 20 6e 6f 6e 2d 6e 69	FORM.and.if.that.yields.a.non-ni
3cc0	6c 20 76 61 6c 75 65 2c 20 62 69 6e 64 20 74 68 65 0a 73 79 6d 62 6f 6c 20 60 24 27 20 74 6f 20	l.value,.bind.the.symbol.`$'.to.
3ce0	74 68 61 74 20 76 61 6c 75 65 2c 20 61 6e 64 20 65 76 61 6c 75 61 74 65 20 74 68 65 20 6e 65 78	that.value,.and.evaluate.the.nex
3d00	74 20 46 4f 52 4d 20 77 69 74 68 20 74 68 61 74 20 62 69 6e 64 69 6e 67 0a 69 6e 20 65 66 66 65	t.FORM.with.that.binding.in.effe
3d20	63 74 2e 20 20 52 65 70 65 61 74 20 74 68 69 73 20 70 72 6f 63 65 73 73 20 77 69 74 68 20 73 75	ct...Repeat.this.process.with.su
3d40	62 73 65 71 75 65 6e 74 20 46 4f 52 4d 73 20 75 6e 74 69 6c 20 6f 6e 65 20 79 69 65 6c 64 73 0a	bsequent.FORMs.until.one.yields.
3d60	6e 69 6c 2c 20 74 68 65 6e 20 72 65 74 75 72 6e 20 6e 69 6c 20 77 69 74 68 6f 75 74 20 65 76 61	nil,.then.return.nil.without.eva
3d80	6c 75 61 74 65 20 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 46 4f 52 4d 73 2e 20 20 49 66 20 61	luate.the.remaining.FORMs...If.a
3da0	6c 6c 0a 46 4f 52 4d 73 20 79 69 65 6c 64 20 6e 6f 6e 2d 6e 69 6c 2c 20 72 65 74 75 72 6e 20 74	ll.FORMs.yield.non-nil,.return.t
3dc0	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 2e 0a 0a 5c 28 66 6e	he.value.of.the.last.FORM...\(fn
3de0	20 46 4f 52 4d 20 46 4f 52 4d 2e 2e 2e 29 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 64 65 62 75	.FORM.FORM...)"...(declare.(debu
3e00	67 20 28 66 6f 72 6d 20 66 6f 72 6d 20 62 6f 64 79 29 29 29 0a 20 20 60 28 2c 28 69 66 20 66 6f	g.(form.form.body)))...`(,(if.fo
3e20	72 6d 73 20 27 6c 65 74 2a 20 27 6c 65 74 29 0a 20 20 20 20 28 28 24 20 2c 66 6f 72 6d 29 0a 20	rms.'let*.'let).....(($.,form)..
3e40	20 20 20 20 2c 40 28 61 6e 64 20 66 6f 72 6d 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61	....,@(and.forms.............(ma
3e60	70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20	pcar.(lambda.(form).............
3e80	20 20 20 20 20 20 20 20 20 20 60 28 24 20 28 61 6e 64 20 24 20 2c 66 6f 72 6d 29 29 29 0a 20 20	..........`($.(and.$.,form)))...
3ea0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 66 6f 72 6d 32 20 28 62	..................(cons.form2.(b
3ec0	75 74 6c 61 73 74 20 66 6f 72 6d 73 29 29 29 29 29 0a 20 20 20 20 28 61 6e 64 20 24 0a 20 20 20	utlast.forms))))).....(and.$....
3ee0	20 20 20 20 20 20 2c 28 6f 72 20 28 63 61 72 20 28 6c 61 73 74 20 66 6f 72 6d 73 29 29 0a 20 20	......,(or.(car.(last.forms))...
3f00	20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 32 29 29 29 29 0a 0a 3b 3b 3b 20 49 66 0a 0a 28	............form2))))..;;;.If..(
3f20	64 65 66 6d 61 63 72 6f 20 63 6f 6e 64 2d 6c 65 74 2d 2d 69 66 2d 6c 65 74 2a 20 28 76 61 72 6c	defmacro.cond-let--if-let*.(varl
3f40	69 73 74 20 74 68 65 6e 20 26 72 65 73 74 20 65 6c 73 65 29 0a 20 20 22 42 69 6e 64 20 76 61 72	ist.then.&rest.else)..."Bind.var
3f60	69 61 62 6c 65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 56 41 52 4c 49 53 54 20 61 6e 64 20	iables.according.to.VARLIST.and.
3f80	65 76 61 6c 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	evaluate.THEN.or.ELSE...Each.ele
3fa0	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 4f	ment.of.VARLIST.is.a.list.(SYMBO
3fc0	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 4c	L.VALUEFORM),.which.binds.SYMBOL
3fe0	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 61 63	.to.the.value.of.VALUEFORM...Eac
4000	68 20 56 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	h.VALUEFORM.can.refer.to.symbols
4020	20 61 6c 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	.already.bound.by.this.VARLIST.(
4040	61 73 20 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	as.for.`let*')...If.all.VALUEFOR
4060	4d 73 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 54 48 45 4e 20	Ms.yield.non-nil,.evaluate.THEN.
4080	77 69 74 68 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	with.VARLIST's.bindings.in.effec
40a0	74 2c 20 61 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	t,.and.return.its.value...THEN.m
40c0	75 73 74 20 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	ust.be.one.expression...If.any.V
40e0	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 45 4c	ALUEFORM.yields.nil,.evaluate.EL
4100	53 45 20 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 68 65 0a 76	SE.sequentially.and.return.the.v
4120	61 6c 75 65 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	alue.of.the.last.form;.or.if.the
4140	72 65 20 61 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	re.are.no.ELSE.forms.return.nil.
4160	20 20 54 68 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	..The.bindings.from.VARLIST.do._
4180	6e 6f 74 5f 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	not_.extend.to.the.ELSE.forms...
41a0	5c 28 66 6e 20 56 41 52 4c 49 53 54 20 54 48 45 4e 20 5b 45 4c 53 45 2e 2e 2e 5d 29 22 0a 20 20	\(fn.VARLIST.THEN.[ELSE...])"...
41c0	28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 28	(declare.(indent.2)............(
41e0	64 65 62 75 67 20 28 28 26 72 65 73 74 20 28 73 79 6d 62 6f 6c 70 20 66 6f 72 6d 29 29 20 66 6f	debug.((&rest.(symbolp.form)).fo
4200	72 6d 20 62 6f 64 79 29 29 29 0a 20 20 28 70 63 61 73 65 2d 6c 65 74 20 28 28 60 28 2c 76 61 72	rm.body)))...(pcase-let.((`(,var
4220	6c 69 73 74 20 2c 6c 61 73 74 76 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63	list.,lastvar)................(c
4240	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 76 61 72 6c 69 73 74	ond-let--prepare-varlist.varlist
4260	29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 67 20 28 67 65 6e 73 79 6d 20 22 3a	))...............(tag.(gensym.":
4280	69 66 2d 6c 65 74 2a 22 29 29 29 0a 20 20 20 20 60 28 63 61 74 63 68 20 27 2c 74 61 67 0a 20 20	if-let*"))).....`(catch.',tag...
42a0	20 20 20 20 20 28 6c 65 74 2a 20 2c 76 61 72 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 28 77 68	.....(let*.,varlist..........(wh
42c0	65 6e 20 2c 6c 61 73 74 76 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 2c	en.,lastvar............(throw.',
42e0	74 61 67 20 2c 74 68 65 6e 29 29 29 0a 20 20 20 20 20 20 20 2c 40 65 6c 73 65 29 29 29 0a 0a 28	tag.,then)))........,@else)))..(
4300	64 65 66 6d 61 63 72 6f 20 63 6f 6e 64 2d 6c 65 74 2d 2d 69 66 2d 6c 65 74 20 28 76 61 72 6c 69	defmacro.cond-let--if-let.(varli
4320	73 74 20 74 68 65 6e 20 26 72 65 73 74 20 65 6c 73 65 29 0a 20 20 22 42 69 6e 64 20 76 61 72 69	st.then.&rest.else)..."Bind.vari
4340	61 62 6c 65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 56 41 52 4c 49 53 54 20 61 6e 64 20 65	ables.according.to.VARLIST.and.e
4360	76 61 6c 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	valuate.THEN.or.ELSE...Each.elem
4380	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 4f 4c	ent.of.VARLIST.is.a.list.(SYMBOL
43a0	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 4c 0a	.VALUEFORM),.which.binds.SYMBOL.
43c0	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 61 6c	to.the.value.of.VALUEFORM...Eval
43e0	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 64 69	uate.all.VALUEFORMs.before.bindi
4400	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 73 20	ng.their.respective.SYMBOLs.(as.
4420	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 20 79	for.`let')...If.all.VALUEFORMs.y
4440	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
4460	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
4480	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.
44a0	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
44c0	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
44e0	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
4500	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
4520	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
4540	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_
4560	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 5c 28 66 6e	.extend.to.the.ELSE.forms...\(fn
4580	20 56 41 52 4c 49 53 54 20 54 48 45 4e 20 5b 45 4c 53 45 2e 2e 2e 5d 29 22 0a 20 20 28 64 65 63	.VARLIST.THEN.[ELSE...])"...(dec
45a0	6c 61 72 65 20 28 69 6e 64 65 6e 74 20 32 29 20 28 64 65 62 75 67 20 63 6f 6e 64 2d 6c 65 74 2d	lare.(indent.2).(debug.cond-let-
45c0	2d 69 66 2d 6c 65 74 2a 29 29 0a 20 20 28 70 63 61 73 65 2d 6c 65 74 2a 20 28 28 60 28 2c 61 6e	-if-let*))...(pcase-let*.((`(,an
45e0	6f 6e 20 2c 73 65 74 20 2c 62 69 6e 64 20 2c 5f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20	on.,set.,bind.,_)...............
4600	20 20 28 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 76 61	..(cond-let--prepare-varforms.va
4620	72 6c 69 73 74 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 28 69	rlist.t))................(set.(i
4640	66 20 28 6c 65 6e 67 74 68 3d 20 73 65 74 20 31 29 20 28 63 61 72 20 73 65 74 29 20 28 63 6f 6e	f.(length=.set.1).(car.set).(con
4660	73 20 27 61 6e 64 20 73 65 74 29 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 2c 61 6e 6f 6e 0a 20	s.'and.set)))).....`(let.,anon..
4680	20 20 20 20 20 20 28 69 66 20 2c 73 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 2c	......(if.,set............(let.,
46a0	62 69 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 74 68 65 6e 29 0a 20 20 20 20 20 20 20	bind..............,then)........
46c0	20 20 2c 40 65 6c 73 65 29 29 29 29 0a 0a 3b 3b 3b 20 57 68 65 6e 0a 0a 28 64 65 66 6d 61 63 72	..,@else))))..;;;.When..(defmacr
46e0	6f 20 63 6f 6e 64 2d 6c 65 74 2d 2d 77 68 65 6e 2d 6c 65 74 2a 20 28 76 61 72 6c 69 73 74 20 62	o.cond-let--when-let*.(varlist.b
4700	6f 64 79 66 6f 72 6d 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 42 69 6e 64 20 76 61 72 69	odyform.&rest.body)..."Bind.vari
4720	61 62 6c 65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 56 41 52 4c 49 53 54 20 61 6e 64 20 63	ables.according.to.VARLIST.and.c
4740	6f 6e 64 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 45 61 63	onditionally.evaluate.BODY...Eac
4760	68 20 65 6c 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	h.element.of.VARLIST.is.a.list.(
4780	53 59 4d 42 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	SYMBOL.VALUEFORM),.which.binds.S
47a0	59 4d 42 4f 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	YMBOL.to.the.value.of.VALUEFORM.
47c0	20 20 45 61 63 68 20 56 41 4c 55 45 46 4f 52 4d 20 63 61 6e 20 72 65 66 65 72 20 74 6f 20 73 79	..Each.VALUEFORM.can.refer.to.sy
47e0	6d 62 6f 6c 73 20 61 6c 72 65 61 64 79 0a 62 6f 75 6e 64 20 62 79 20 74 68 69 73 20 56 41 52 4c	mbols.already.bound.by.this.VARL
4800	49 53 54 20 28 61 73 20 66 6f 72 20 60 6c 65 74 2a 27 29 2e 0a 0a 49 66 20 61 6c 6c 20 56 41 4c	IST.(as.for.`let*')...If.all.VAL
4820	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 61 6c 75 61 74 65 20	UEFORMs.yield.non-nil,.evaluate.
4840	42 4f 44 59 20 66 6f 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	BODY.forms.sequentially,.with.VA
4860	52 4c 49 53 54 27 73 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	RLIST's.bindings.in.effect,.and.
4880	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 66 6f 72	return.the.value.of.the.last.for
48a0	6d 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	m...If.any.VALUEFORM.yields.nil,
48c0	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 69 6e 69 6e 67 20	.evaluate.neither.the.remaining.
48e0	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 72 6d 73 2c 20 61	VALUEFORMs.nor.the.BODY.forms,.a
4900	6e 64 20 69 6e 73 74 65 61 64 20 72 65 74 75 72 6e 20 6e 69 6c 2e 0a 0a 42 4f 44 59 20 6d 75 73	nd.instead.return.nil...BODY.mus
4920	74 20 62 65 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 65 78 70 72 65 73 73 69 6f 6e 73 2e 20 20 49	t.be.one.or.more.expressions...I
4940	66 20 56 41 52 4c 49 53 54 20 69 73 20 65 6d 70 74 79 2c 20 64 6f 20 6e 6f 74 68 69 6e 67 0a 61	f.VARLIST.is.empty,.do.nothing.a
4960	6e 64 20 72 65 74 75 72 6e 20 6e 69 6c 2e 0a 0a 5c 28 66 6e 20 56 41 52 4c 49 53 54 20 42 4f 44	nd.return.nil...\(fn.VARLIST.BOD
4980	59 2e 2e 2e 29 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 29 0a 20 20 20	Y...)"...(declare.(indent.1)....
49a0	20 20 20 20 20 20 20 20 28 64 65 62 75 67 20 28 28 26 72 65 73 74 20 28 73 79 6d 62 6f 6c 70 20	........(debug.((&rest.(symbolp.
49c0	66 6f 72 6d 29 29 20 66 6f 72 6d 20 62 6f 64 79 29 29 29 0a 20 20 28 70 63 61 73 65 2d 6c 65 74	form)).form.body)))...(pcase-let
49e0	20 28 28 60 28 2c 76 61 72 6c 69 73 74 20 2c 6c 61 73 74 76 61 72 29 0a 20 20 20 20 20 20 20 20	.((`(,varlist.,lastvar).........
4a00	20 20 20 20 20 20 20 28 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61 72 65 2d 76 61 72 6c 69 73	.......(cond-let--prepare-varlis
4a20	74 20 76 61 72 6c 69 73 74 29 29 29 0a 20 20 20 20 60 28 6c 65 74 2a 20 2c 76 61 72 6c 69 73 74	t.varlist))).....`(let*.,varlist
4a40	0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 2c 6c 61 73 74 76 61 72 0a 20 20 20 20 20 20 20 20 20	........(when.,lastvar..........
4a60	2c 62 6f 64 79 66 6f 72 6d 20 2c 40 62 6f 64 79 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20	,bodyform.,@body))))..(defmacro.
4a80	63 6f 6e 64 2d 6c 65 74 2d 2d 77 68 65 6e 2d 6c 65 74 20 28 76 61 72 6c 69 73 74 20 62 6f 64 79	cond-let--when-let.(varlist.body
4aa0	66 6f 72 6d 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 42 69 6e 64 20 76 61 72 69 61 62 6c	form.&rest.body)..."Bind.variabl
4ac0	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 63 6f 6e 64	es.according.to.VARLIST.and.cond
4ae0	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 45 61 63 68 20 65	itionally.evaluate.BODY...Each.e
4b00	6c 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	lement.of.VARLIST.is.a.list.(SYM
4b20	42 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	BOL.VALUEFORM),.which.binds.SYMB
4b40	4f 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	OL.to.the.value.of.VALUEFORM...E
4b60	76 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	valuate.all.VALUEFORMs.before.bi
4b80	6e 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	nding.their.respective.SYMBOLs.(
4ba0	61 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	as.for.`let')...If.all.VALUEFORM
4bc0	73 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	s.yield.non-nil,.evaluate.BODY.f
4be0	6f 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	orms.sequentially,.with.VARLIST'
4c00	73 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 74 75 72 6e	s.bindings.in.effect,.and.return
4c20	20 74 68 65 20 76 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	.the.value.of.the.last.form...If
4c40	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 20 65 76 61 6c 75	.any.VALUEFORM.yields.nil,.evalu
4c60	61 74 65 20 6e 65 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	ate.neither.the.remaining.VALUEF
4c80	4f 52 4d 73 0a 6e 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	ORMs.nor.the.BODY.forms,.and.ins
4ca0	74 65 61 64 20 72 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	tead.return.nil...BODY.must.be.o
4cc0	6e 65 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	ne.or.more.expressions...If.VARL
4ce0	49 53 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	IST.is.empty,.do.nothing.and.ret
4d00	75 72 6e 20 6e 69 6c 2e 0a 0a 5c 28 66 6e 20 56 41 52 4c 49 53 54 20 42 4f 44 59 2e 2e 2e 29 22	urn.nil...\(fn.VARLIST.BODY...)"
4d20	0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 29 20 28 64 65 62 75 67 20 63 6f	...(declare.(indent.1).(debug.co
4d40	6e 64 2d 6c 65 74 2d 2d 77 68 65 6e 2d 6c 65 74 2a 29 29 0a 20 20 28 70 63 61 73 65 2d 6c 65 74	nd-let--when-let*))...(pcase-let
4d60	20 28 28 60 28 2c 61 6e 6f 6e 20 2c 73 65 74 20 2c 62 69 6e 64 20 2c 6c 61 73 74 76 61 72 29 0a	.((`(,anon.,set.,bind.,lastvar).
4d80	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 2d 6c 65 74 2d 2d 70 72 65 70 61 72	...............(cond-let--prepar
4da0	65 2d 76 61 72 66 6f 72 6d 73 20 76 61 72 6c 69 73 74 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20	e-varforms.varlist))).....(cond.
4dc0	28 61 6e 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 6c 65 74 20 2c 61 6e 6f 6e 0a 20 20 20	(anon............`(let.,anon....
4de0	20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 2c 40 73 65 74 29 0a 20 20 20	...........(when.(and.,@set)....
4e00	20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 2c 62 69 6e 64 0a 20 20 20 20 20 20 20 20	.............(let.,bind.........
4e20	20 20 20 20 20 20 20 20 20 20 2c 62 6f 64 79 66 6f 72 6d 20 2c 40 62 6f 64 79 29 29 29 29 0a 20	..........,bodyform.,@body))))..
4e40	20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 6c 65 74 20 2c 62 69	.........(t............`(let.,bi
4e60	6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 2c 6c 61 73 74 76 61 72 0a	nd...............(when.,lastvar.
4e80	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 62 6f 64 79 66 6f 72 6d 20 2c 40 62 6f 64 79	................,bodyform.,@body
4ea0	29 29 29 29 29 29 0a 0a 3b 3b 3b 20 57 68 69 6c 65 0a 0a 28 64 65 66 6d 61 63 72 6f 20 63 6f 6e	))))))..;;;.While..(defmacro.con
4ec0	64 2d 6c 65 74 2d 2d 77 68 69 6c 65 2d 6c 65 74 2a 20 28 76 61 72 6c 69 73 74 20 26 72 65 73 74	d-let--while-let*.(varlist.&rest
4ee0	20 62 6f 64 79 29 0a 20 20 22 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73 20 61 63 63 6f 72 64 69	.body)..."Bind.variables.accordi
4f00	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
4f20	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
4f40	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
4f60	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
4f80	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 61	L.to.the.value.of.VALUEFORM...Ea
4fa0	63 68 20 56 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	ch.VALUEFORM.can.refer.to.symbol
4fc0	73 20 61 6c 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	s.already.bound.by.this.VARLIST.
4fe0	28 61 73 20 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	(as.for.`let*')...If.all.VALUEFO
5000	52 4d 73 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	RMs.yield.non-nil,.evaluate.BODY
5020	20 66 6f 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	.forms.sequentially,.with.VARLIS
5040	54 27 73 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	T's.bindings.in.effect,.and.repe
5060	61 74 20 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	at.the.loop...If.any.VALUEFORM.y
5080	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 20	ields.nil,.evaluate.neither.the.
50a0	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 44	remaining.VALUEFORMs.nor.the.BOD
50c0	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 2c 20 61 6c 77	Y.forms,.and.instead.return,.alw
50e0	61 79 73 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 7a	ays.yielding.nil...BODY.can.be.z
5100	65 72 6f 20 6f 72 20 6d 6f 72 65 20 65 78 70 72 65 73 73 69 6f 6e 73 2e 0a 0a 5c 28 66 6e 20 56	ero.or.more.expressions...\(fn.V
5120	41 52 4c 49 53 54 20 5b 42 4f 44 59 2e 2e 2e 5d 29 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69	ARLIST.[BODY...])"...(declare.(i
5140	6e 64 65 6e 74 20 31 29 20 28 64 65 62 75 67 20 63 6f 6e 64 2d 6c 65 74 2d 2d 69 66 2d 6c 65 74	ndent.1).(debug.cond-let--if-let
5160	2a 29 29 0a 20 20 28 70 63 61 73 65 2d 6c 65 74 20 28 28 60 28 2c 76 61 72 6c 69 73 74 20 2c 6c	*))...(pcase-let.((`(,varlist.,l
5180	61 73 74 76 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 2d 6c 65 74	astvar)................(cond-let
51a0	2d 2d 70 72 65 70 61 72 65 2d 76 61 72 6c 69 73 74 20 76 61 72 6c 69 73 74 29 29 0a 20 20 20 20	--prepare-varlist.varlist)).....
51c0	20 20 20 20 20 20 20 20 20 20 28 74 61 67 20 28 67 65 6e 73 79 6d 20 22 3a 77 68 69 6c 65 2d 6c	..........(tag.(gensym.":while-l
51e0	65 74 2a 22 29 29 29 0a 20 20 20 20 60 28 63 61 74 63 68 20 27 2c 74 61 67 0a 20 20 20 20 20 20	et*"))).....`(catch.',tag.......
5200	20 28 77 68 69 6c 65 20 74 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 2c 76 61 72 6c 69 73	.(while.t..........(let*.,varlis
5220	74 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 2c 6c 61 73 74 76 61 72 0a 20 20 20 20 20 20	t............(if.,lastvar.......
5240	20 20 20 20 20 20 20 20 20 2c 28 6d 61 63 72 6f 65 78 70 2d 70 72 6f 67 6e 20 62 6f 64 79 29 0a	.........,(macroexp-progn.body).
5260	20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 2c 74 61 67 20 6e 69 6c 29 29 29	.............(throw.',tag.nil)))
5280	29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 63 6f 6e 64 2d 6c 65 74 2d 2d 77 68 69 6c 65 2d	))))..(defmacro.cond-let--while-
52a0	6c 65 74 20 28 76 61 72 6c 69 73 74 20 62 6f 64 79 66 6f 72 6d 20 26 72 65 73 74 20 62 6f 64 79	let.(varlist.bodyform.&rest.body
52c0	29 0a 20 20 22 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	)..."Bind.variables.according.to
52e0	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 65	.VARLIST,.conditionally.evaluate
5300	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 74	.BODY,.and.repeat...Each.element
5320	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
5340	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.
5360	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
5380	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.
53a0	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
53c0	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
53e0	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
5400	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
5420	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 68 65 20 6c	ings.in.effect,.and.repeat.the.l
5440	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 73 20 6e 69	oop...If.any.VALUEFORM.yields.ni
5460	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 69 6e 69 6e	l,.evaluate.neither.the.remainin
5480	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 72 6d 73 2c	g.VALUEFORMs.nor.the.BODY.forms,
54a0	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 79 69 65 6c	.and.instead.return,.always.yiel
54c0	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 6f 72 20 6d 6f	ding.nil...BODY.can.be.one.or.mo
54e0	72 65 20 65 78 70 72 65 73 73 69 6f 6e 73 2e 0a 0a 5c 28 66 6e 20 56 41 52 4c 49 53 54 20 42 4f	re.expressions...\(fn.VARLIST.BO
5500	44 59 2e 2e 2e 29 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 29 20 28 64	DY...)"...(declare.(indent.1).(d
5520	65 62 75 67 20 63 6f 6e 64 2d 6c 65 74 2d 2d 69 66 2d 6c 65 74 2a 29 29 0a 20 20 28 70 63 61 73	ebug.cond-let--if-let*))...(pcas
5540	65 2d 6c 65 74 20 28 28 60 28 2c 61 6e 6f 6e 20 2c 73 65 74 20 2c 62 69 6e 64 20 2c 6c 61 73 74	e-let.((`(,anon.,set.,bind.,last
5560	76 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 2d 6c 65 74 2d 2d 70	var)................(cond-let--p
5580	72 65 70 61 72 65 2d 76 61 72 66 6f 72 6d 73 20 76 61 72 6c 69 73 74 29 29 0a 20 20 20 20 20 20	repare-varforms.varlist)).......
55a0	20 20 20 20 20 20 20 20 28 74 61 67 20 28 67 65 6e 73 79 6d 20 22 3a 77 68 69 6c 65 2d 6c 65 74	........(tag.(gensym.":while-let
55c0	22 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 61 6e 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20	"))).....(cond.(anon............
55e0	60 28 63 61 74 63 68 20 27 2c 74 61 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69	`(catch.',tag...............(whi
5600	6c 65 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 2c 61 6e 6f 6e 0a	le.t.................(let.,anon.
5620	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 2c 40 73 65 74	..................(if.(and.,@set
5640	29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 2c 62 69	).......................(let.,bi
5660	6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 62 6f 64 79	nd.........................,body
5680	66 6f 72 6d 20 2c 40 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	form.,@body)....................
56a0	20 28 74 68 72 6f 77 20 27 2c 74 61 67 20 6e 69 6c 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20	.(throw.',tag.nil)))))).........
56c0	20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 63 61 74 63 68 20 27 2c 74 61 67 0a 20 20	..(t............`(catch.',tag...
56e0	20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 74 0a 20 20 20 20 20 20 20 20 20 20 20	............(while.t............
5700	20 20 20 20 20 28 6c 65 74 20 2c 62 69 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.....(let.,bind.................
5720	20 20 28 69 66 20 2c 6c 61 73 74 76 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	..(if.,lastvar..................
5740	20 20 20 20 20 2c 28 6d 61 63 72 6f 65 78 70 2d 70 72 6f 67 6e 20 28 63 6f 6e 73 20 62 6f 64 79	.....,(macroexp-progn.(cons.body
5760	66 6f 72 6d 20 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	form.body)).....................
5780	28 74 68 72 6f 77 20 27 2c 74 61 67 20 6e 69 6c 29 29 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 20 46	(throw.',tag.nil)))))))))..;;;.F
57a0	6f 6e 74 2d 4c 6f 63 6b 0a 0a 28 64 65 66 76 61 72 20 63 6f 6e 64 2d 6c 65 74 2d 66 6f 6e 74 2d	ont-Lock..(defvar.cond-let-font-
57c0	6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 0a 20 20 27 28 28 22 5c 5c 5f 3c 5c 5c 24 5c 5c 5f 3e 22	lock-keywords...'(("\\_<\\$\\_>"
57e0	20 30 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 2d 66 61 63 65	.0.'font-lock-variable-name-face
5800	29 29 0a 20 20 22 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	))..."Highlight.`$'.using.`font-
5820	6c 6f 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	lock-variable-name-face'..To.add
5840	20 74 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	.these.keywords,.add.this.to.you
5860	72 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 3a 0a 5c 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 61 64 64	r.configuration:.\(font-lock-add
5880	2d 6b 65 79 77 6f 72 64 73 20 5c 5c 3d 27 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 20 63 6f	-keywords.\\='emacs-lisp-mode.co
58a0	6e 64 2d 6c 65 74 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 20 74 29 22 29 0a 0a	nd-let-font-lock-keywords.t)")..
58c0	28 70 72 6f 76 69 64 65 20 27 63 6f 6e 64 2d 6c 65 74 29 0a 3b 3b 3b 20 63 6f 6e 64 2d 6c 65 74	(provide.'cond-let).;;;.cond-let
58e0	2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.el.ends.here...................
5900	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5920	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5940	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5960	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5980	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
59a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
59c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
59e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5a00	63 6f 6e 64 2d 6c 65 74 2d 30 2e 31 2e 31 2f 52 45 41 44 4d 45 2d 65 6c 70 61 00 00 00 00 00 00	cond-let-0.1.1/README-elpa......
5a20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5a40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5a60	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
5a80	30 30 30 32 36 30 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 34 35 37 00 20 30 00 00 00	0002605.00000000000.013457..0...
5aa0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5ac0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5ae0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5b00	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
5b20	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
5b40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5b60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5b80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5ba0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5bc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5be0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
5c00	31 20 43 6f 6e 64 2d 4c 65 74 20 e2 80 94 20 41 64 64 69 74 69 6f 6e 61 6c 20 61 6e 64 20 69 6d	1.Cond-Let.....Additional.and.im
5c20	70 72 6f 76 65 64 20 62 69 6e 64 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 0a e2 95 90 e2	proved.binding.conditionals.....
5c40	95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90	................................
5c60	e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95	................................
5c80	90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2	................................
5ca0	95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90	................................
5cc0	e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95 90 e2 95	................................
5ce0	90 e2 95 90 e2 95 90 0a 0a 20 20 2a 54 68 69 73 20 69 73 20 61 6e 20 41 4c 50 48 41 20 72 65 6c	...........*This.is.an.ALPHA.rel
5d00	65 61 73 65 21 2a 20 42 72 65 61 6b 69 6e 67 20 63 68 61 6e 67 65 73 20 61 72 65 20 70 6f 73 73	ease!*.Breaking.changes.are.poss
5d20	69 62 6c 65 21 2a 0a 0a 20 20 45 6d 61 63 73 20 70 72 6f 76 69 64 65 73 20 74 68 65 20 62 69 6e	ible!*....Emacs.provides.the.bin
5d40	64 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 20 60 69 66 2d 6c 65 74 27 2c 20 60 69 66 2d	ding.conditionals.`if-let',.`if-
5d60	6c 65 74 2a 27 2c 0a 20 20 60 77 68 65 6e 2d 6c 65 74 27 2c 20 60 77 68 65 6e 2d 6c 65 74 2a 27	let*',...`when-let',.`when-let*'
5d80	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 65 74 27 2e 0a 0a 20	,.`and-let*'.and.`while-let'....
5da0	20 54 68 69 73 20 70 61 63 6b 61 67 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20 74 68 65 20 6d 69 73	.This.package.implements.the.mis
5dc0	73 69 6e 67 20 60 61 6e 64 2d 6c 65 74 27 20 61 6e 64 20 60 77 68 69 6c 65 2d 6c 65 74 2a 27 2c	sing.`and-let'.and.`while-let*',
5de0	20 61 6e 64 0a 20 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 60 63 6f 6e 64 2d 6c 65 74 27 2c 20	.and...the.original.`cond-let',.
5e00	60 63 6f 6e 64 2d 6c 65 74 2a 27 2c 20 60 61 6e 64 24 27 20 61 6e 64 20 60 61 6e 64 3e 27 2e 0a	`cond-let*',.`and$'.and.`and>'..
5e20	0a 20 20 54 68 69 73 20 70 61 63 6b 61 67 65 20 61 64 64 69 74 69 6f 6e 61 6c 6c 79 20 70 72 6f	...This.package.additionally.pro
5e40	76 69 64 65 73 20 6d 6f 72 65 20 63 6f 6e 73 69 73 74 65 6e 74 20 61 6e 64 20 69 6d 70 72 6f 76	vides.more.consistent.and.improv
5e60	65 64 0a 20 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 6f 66 20 74 68 65 20 62 69 6e 64	ed...implementations.of.the.bind
5e80	69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 20 61 6c 72 65 61 64 79 20 70 72 6f 76 69 64 65	ing.conditionals.already.provide
5ea0	64 20 62 79 20 45 6d 61 63 73 2e 0a 20 20 4d 65 72 65 6c 79 20 6c 6f 61 64 69 6e 67 20 74 68 69	d.by.Emacs....Merely.loading.thi
5ec0	73 20 6c 69 62 72 61 72 79 20 64 6f 65 73 20 6e 6f 74 20 73 68 61 77 6f 77 20 74 68 65 20 62 75	s.library.does.not.shawow.the.bu
5ee0	69 6c 74 2d 69 6e 0a 20 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 3b 20 74 68 69 73 20 63	ilt-in...implementations;.this.c
5f00	61 6e 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 62 65 20 64 6f 6e 65 20 69 6e 20 74 68 65 20 63 6f 6e	an.optionally.be.done.in.the.con
5f20	74 65 78 74 20 6f 66 20 61 6e 0a 20 20 69 6e 64 69 76 69 64 75 61 6c 20 6c 69 62 72 61 72 79 2c	text.of.an...individual.library,
5f40	20 61 73 20 64 65 73 63 72 69 62 65 64 20 62 65 6c 6f 77 2e 0a 0a 20 20 60 63 6f 6e 64 2d 6c 65	.as.described.below.....`cond-le
5f60	74 27 20 61 6e 64 20 60 63 6f 6e 64 2d 6c 65 74 2a 27 20 61 72 65 20 70 72 6f 76 69 64 65 64 20	t'.and.`cond-let*'.are.provided.
5f80	65 78 61 63 74 6c 79 20 75 6e 64 65 72 20 74 68 65 73 65 20 6e 61 6d 65 73 2e 0a 20 20 54 68 65	exactly.under.these.names....The
5fa0	20 6e 61 6d 65 73 20 6f 66 20 61 6c 6c 20 6f 74 68 65 72 20 6d 61 63 72 6f 73 20 69 6d 70 6c 65	.names.of.all.other.macros.imple
5fc0	6d 65 6e 74 65 64 20 62 79 20 74 68 69 73 20 70 61 63 6b 61 67 65 20 62 65 67 69 6e 20 77 69 74	mented.by.this.package.begin.wit
5fe0	68 0a 20 20 60 63 6f 6e 64 2d 6c 65 74 2d 2d 27 2c 20 74 68 65 20 70 61 63 6b 61 67 65 27 73 20	h...`cond-let--',.the.package's.
6000	70 72 65 66 69 78 20 66 6f 72 20 70 72 69 76 61 74 65 20 73 79 6d 62 6f 6c 2e 0a 0a 20 20 55 73	prefix.for.private.symbol.....Us
6020	65 72 73 20 6f 66 20 74 68 69 73 20 70 61 63 6b 61 67 65 20 61 72 65 20 6e 6f 74 20 65 78 70 65	ers.of.this.package.are.not.expe
6040	63 74 65 64 20 74 6f 20 75 73 65 20 74 68 65 73 65 20 75 6e 77 69 65 6c 64 79 20 6e 61 6d 65 73	cted.to.use.these.unwieldy.names
6060	2e 0a 20 20 49 6e 73 74 65 61 64 20 6f 6e 65 20 73 68 6f 75 6c 64 20 75 73 65 20 45 6d 61 63 73	....Instead.one.should.use.Emacs
6080	27 20 73 68 6f 72 74 68 61 6e 64 20 66 65 61 74 75 72 65 20 74 6f 20 75 73 65 20 61 6c 6c 20 6f	'.shorthand.feature.to.use.all.o
60a0	72 20 73 6f 6d 65 20 6f 66 0a 20 20 74 68 65 73 65 20 6d 61 63 72 6f 73 20 62 79 20 74 68 65 69	r.some.of...these.macros.by.thei
60c0	72 20 63 6f 6e 63 65 70 74 75 61 6c 20 6e 61 6d 65 73 2e 0a 0a 20 20 50 6c 65 61 73 65 20 73 65	r.conceptual.names.....Please.se
60e0	65 20 74 68 65 20 6c 69 62 72 61 72 79 20 68 65 61 64 65 72 20 66 6f 72 20 75 73 61 67 65 20 69	e.the.library.header.for.usage.i
6100	6e 66 6f 72 6d 61 74 69 6f 6e 20 61 6e 64 20 74 68 65 20 64 6f 63 73 74 72 69 6e 67 73 0a 20 20	nformation.and.the.docstrings...
6120	66 6f 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 74 68 65 20 69 6e 64 69 76 69	for.information.about.the.indivi
6140	64 75 61 6c 20 6d 61 63 72 6f 73 2e 20 20 53 65 65 20 61 6c 73 6f 0a 20 20 3c 68 74 74 70 73 3a	dual.macros...See.also...<https:
6160	2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 74 61 72 73 69 75 73 2f 63 6f 6e 64 2d 6c 65 74 2f 77 69	//github.com/tarsius/cond-let/wi
6180	6b 69 3e 2e 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	ki>.............................
61a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
61c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
61e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6200	63 6f 6e 64 2d 6c 65 74 2d 30 2e 31 2e 31 2f 63 6f 6e 64 2d 6c 65 74 2d 70 6b 67 2e 65 6c 00 00	cond-let-0.1.1/cond-let-pkg.el..
6220	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6240	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6260	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
6280	30 30 30 30 34 37 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 34 37 30 00 20 30 00 00 00	0000474.00000000000.014470..0...
62a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
62c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
62e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6300	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
6320	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
6340	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6360	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6380	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
63a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
63c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
63e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6400	3b 3b 20 47 65 6e 65 72 61 74 65 64 20 70 61 63 6b 61 67 65 20 64 65 73 63 72 69 70 74 69 6f 6e	;;.Generated.package.description
6420	20 66 72 6f 6d 20 63 6f 6e 64 2d 6c 65 74 2e 65 6c 20 20 2d 2a 2d 20 6d 6f 64 65 3a 20 6c 69 73	.from.cond-let.el..-*-.mode:.lis
6440	70 2d 64 61 74 61 3b 20 6e 6f 2d 62 79 74 65 2d 63 6f 6d 70 69 6c 65 3a 20 74 20 2d 2a 2d 0a 28	p-data;.no-byte-compile:.t.-*-.(
6460	64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 22 63 6f 6e 64 2d 6c 65 74 22 20 22 30 2e 31 2e 31	define-package."cond-let"."0.1.1
6480	22 20 22 41 64 64 69 74 69 6f 6e 61 6c 20 61 6e 64 20 69 6d 70 72 6f 76 65 64 20 62 69 6e 64 69	"."Additional.and.improved.bindi
64a0	6e 67 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 73 22 20 27 28 28 65 6d 61 63 73 20 22 32 38 2e 31 22	ng.conditionals".'((emacs."28.1"
64c0	29 29 20 3a 63 6f 6d 6d 69 74 20 22 37 39 61 31 36 65 31 66 32 34 32 38 66 30 66 37 39 66 30 33	)).:commit."79a16e1f2428f0f79f03
64e0	32 35 30 62 39 38 37 62 63 37 39 63 64 33 37 61 30 32 39 65 22 20 3a 6b 65 79 77 6f 72 64 73 20	250b987bc79cd37a029e".:keywords.
6500	27 28 22 65 78 74 65 6e 73 69 6f 6e 73 22 29 20 3a 75 72 6c 20 22 68 74 74 70 73 3a 2f 2f 67 69	'("extensions").:url."https://gi
6520	74 68 75 62 2e 63 6f 6d 2f 74 61 72 73 69 75 73 2f 63 6f 6e 64 2d 6c 65 74 22 29 0a 00 00 00 00	thub.com/tarsius/cond-let").....
6540	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6560	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6580	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
65a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
65c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
65e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6600	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6620	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6640	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6660	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6680	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
66a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
66c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
66e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6700	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6720	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6740	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6760	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6780	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
67a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
67c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
67e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6800	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6820	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6840	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6860	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6880	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
68a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
68c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
68e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6900	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6920	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6940	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6960	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6980	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
69a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
69c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
69e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6a00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6a20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6a40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6a60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6a80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6aa0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6ac0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6ae0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6b00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6b20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6b40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6b60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6b80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6ba0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6bc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6be0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6c00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6c20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6c40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6c60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6c80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6ca0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6cc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6ce0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6d00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6d20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6d40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6d60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6d80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6da0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6dc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6de0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6e00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6e20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6e40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6e60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6e80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6ea0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6ec0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6ee0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6f00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6f20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6f40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6f60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6f80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6fa0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6fc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
6fe0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7000	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7020	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7040	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7060	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7080	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
70a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
70c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
70e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7100	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7120	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7140	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7160	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7180	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
71a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
71c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
71e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7200	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7220	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7240	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7260	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7280	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
72a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
72c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
72e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7300	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7320	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7340	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7360	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7380	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
73a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
73c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
73e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7400	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7420	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7440	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7460	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7480	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
74a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
74c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
74e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7500	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7520	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7540	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7560	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7580	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
75a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
75c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
75e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7600	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7620	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7640	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7660	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7680	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
76a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
76c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
76e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7700	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7720	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7740	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7760	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
7780	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
77a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
77c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
77e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................