blob: 59bd437099864a2164628a810f700855a55410fc (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.3.1.;;;.with.all.o
0040	70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65	ptimizations...;;;.This.file.use
0060	73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65	s.dynamic.docstrings,.first.adde
0080	64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65	d.in.Emacs.19.29...;;;.This.file
00a0	20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49	.does.not.contain.utf-8.non-ASCI
00c0	49 20 63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20	I.characters,.;;;.and.so.can.be.
00e0	6c 6f 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72	loaded.in.Emacs.versions.earlier
0100	20 74 68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.than.23...;;;;;;;;;;;;;;;;;;;;;
0120	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;
0160	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 23 40 31 39 32 20 52 65 74 75 72	;;;;;;;;;;;;;;;;;;...#@192.Retur
01a0	6e 20 61 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 20 69 6e 73 69 64 65 20 44 41 54 41 20 74	n.alist.of.symbols.inside.DATA.t
01c0	68 61 74 20 73 74 61 72 74 20 77 69 74 68 20 61 20 60 2e 27 2e 0a 50 65 72 66 6f 72 6d 20 61 20	hat.start.with.a.`.'..Perform.a.
01e0	64 65 65 70 20 73 65 61 72 63 68 20 61 6e 64 20 72 65 74 75 72 6e 20 61 6e 20 61 6c 69 73 74 20	deep.search.and.return.an.alist.
0200	77 68 65 72 65 20 65 61 63 68 20 63 61 72 20 69 73 20 74 68 65 0a 73 79 6d 62 6f 6c 2c 20 61 6e	where.each.car.is.the.symbol,.an
0220	64 20 65 61 63 68 20 63 64 72 20 69 73 20 74 68 65 20 73 61 6d 65 20 73 79 6d 62 6f 6c 20 77 69	d.each.cdr.is.the.same.symbol.wi
0240	74 68 6f 75 74 20 74 68 65 20 60 2e 27 2e 0a 0a 28 66 6e 20 44 41 54 41 29 1f 0a 28 64 65 66 61	thout.the.`.'...(fn.DATA)..(defa
0260	6c 69 61 73 20 27 6c 65 74 2d 61 6c 69 73 74 2d 2d 64 65 65 70 2d 64 6f 74 2d 73 65 61 72 63 68	lias.'let-alist--deep-dot-search
0280	20 23 5b 32 35 37 20 22 5c 32 31 31 39 5c 32 30 33 1c 00 5c 33 30 30 01 21 5c 33 30 31 5c 33 30	.#[257."\2119\203..\300.!\301\30
02a0	32 02 5c 22 5c 32 30 35 1b 00 01 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 32 31 31 06	2.\"\205...\303\304\305\306\211.
02c0	06 24 21 42 43 5c 32 30 37 5c 32 31 31 3a 5c 32 30 34 23 00 5c 33 30 36 5c 32 30 37 5c 32 31 31	.$!BC\207\211:\204#.\306\207\211
02e0	40 5c 33 30 37 3d 5c 32 30 33 30 00 5c 33 31 30 01 41 40 21 5c 32 30 37 5c 33 31 31 5c 33 31 30	@\307=\2030.\310.A@!\207\311\310
0300	02 40 21 5c 33 31 30 03 41 21 5c 22 5c 32 30 37 22 20 5b 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73	.@!\310.A!\"\207".[symbol-name.s
0320	74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5c 5c 2e 22 20 69 6e 74 65 72 6e 20 72 65 70 6c	tring-match."\\`\\.".intern.repl
0340	61 63 65 2d 6d 61 74 63 68 20 22 22 20 6e 69 6c 20 6c 65 74 2d 61 6c 69 73 74 20 6c 65 74 2d 61	ace-match."".nil.let-alist.let-a
0360	6c 69 73 74 2d 2d 64 65 65 70 2d 64 6f 74 2d 73 65 61 72 63 68 20 61 70 70 65 6e 64 5d 20 39 20	list--deep-dot-search.append].9.
0380	28 23 24 20 2e 20 34 31 31 29 5d 29 0a 23 40 37 36 20 52 65 74 75 72 6e 20 61 20 73 65 78 70 20	(#$...411)]).#@76.Return.a.sexp.
03a0	75 73 65 64 20 74 6f 20 61 63 63 65 73 73 20 53 59 4d 42 4f 4c 20 69 6e 73 69 64 65 20 56 41 52	used.to.access.SYMBOL.inside.VAR
03c0	49 41 42 4c 45 2e 0a 0a 28 66 6e 20 53 59 4d 42 4f 4c 20 56 41 52 49 41 42 4c 45 29 1f 0a 28 64	IABLE...(fn.SYMBOL.VARIABLE)..(d
03e0	65 66 61 6c 69 61 73 20 27 6c 65 74 2d 61 6c 69 73 74 2d 2d 61 63 63 65 73 73 2d 73 65 78 70 20	efalias.'let-alist--access-sexp.
0400	23 5b 35 31 34 20 22 5c 33 30 30 02 21 5c 33 30 31 01 21 5c 33 30 32 5c 33 30 33 02 5c 22 5c 32	#[514."\300.!\301.!\302\303.\"\2
0420	30 33 11 00 01 5c 32 30 32 1c 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 04 5c 33 31 30	03...\202..\304\305\306\307.\310
0440	5c 22 5c 32 33 37 5c 22 04 5c 22 5c 32 30 37 22 20 5b 6c 65 74 2d 61 6c 69 73 74 2d 2d 72 65 6d	\"\237\".\"\207".[let-alist--rem
0460	6f 76 65 2d 64 6f 74 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 74 72 69 6e 67 2d 6d 61 74 63 68	ove-dot.symbol-name.string-match
0480	20 22 5c 5c 60 5c 5c 2e 22 20 6c 65 74 2d 61 6c 69 73 74 2d 2d 6c 69 73 74 2d 74 6f 2d 73 65 78	."\\`\\.".let-alist--list-to-sex
04a0	70 20 6d 61 70 63 61 72 20 69 6e 74 65 72 6e 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 22 5c 5c	p.mapcar.intern.split-string."\\
04c0	2e 22 5d 20 31 30 20 28 23 24 20 2e 20 39 31 34 29 5d 29 0a 23 40 37 39 20 54 75 72 6e 20 73 79	."].10.(#$...914)]).#@79.Turn.sy
04e0	6d 62 6f 6c 73 20 4c 49 53 54 20 69 6e 74 6f 20 72 65 63 75 72 73 69 76 65 20 63 61 6c 6c 73 20	mbols.LIST.into.recursive.calls.
0500	74 6f 20 60 63 64 72 27 20 60 61 73 73 71 27 20 6f 6e 20 56 41 52 2e 0a 0a 28 66 6e 20 4c 49 53	to.`cdr'.`assq'.on.VAR...(fn.LIS
0520	54 20 56 41 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6c 65 74 2d 61 6c 69 73 74 2d 2d 6c 69	T.VAR)..(defalias.'let-alist--li
0540	73 74 2d 74 6f 2d 73 65 78 70 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 40	st-to-sexp.#[514."\300\301\302.@
0560	44 04 41 5c 32 30 33 13 00 5c 33 30 33 05 41 05 5c 22 5c 32 30 32 14 00 03 45 44 5c 32 30 37 22	D.A\203..\303.A.\"\202...ED\207"
0580	20 5b 63 64 72 20 61 73 73 71 20 71 75 6f 74 65 20 6c 65 74 2d 61 6c 69 73 74 2d 2d 6c 69 73 74	.[cdr.assq.quote.let-alist--list
05a0	2d 74 6f 2d 73 65 78 70 5d 20 38 20 28 23 24 20 2e 20 31 32 34 31 29 5d 29 0a 23 40 35 30 20 52	-to-sexp].8.(#$...1241)]).#@50.R
05c0	65 74 75 72 6e 20 53 59 4d 42 4f 4c 2c 20 73 61 6e 73 20 61 6e 20 69 6e 69 74 69 61 6c 20 64 6f	eturn.SYMBOL,.sans.an.initial.do
05e0	74 2e 0a 0a 28 66 6e 20 53 59 4d 42 4f 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6c 65 74 2d	t...(fn.SYMBOL)..(defalias.'let-
0600	61 6c 69 73 74 2d 2d 72 65 6d 6f 76 65 2d 64 6f 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c	alist--remove-dot.#[257."\300.!\
0620	33 30 31 5c 33 30 32 02 5c 22 5c 32 30 33 15 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36	301\302.\"\203..\303\304\305\306
0640	5c 32 31 31 05 24 21 5c 32 30 32 16 00 01 5c 32 30 37 22 20 5b 73 79 6d 62 6f 6c 2d 6e 61 6d 65	\211.$!\202...\207".[symbol-name
0660	20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5c 5c 2e 22 20 69 6e 74 65 72 6e 20 72 65	.string-match."\\`\\.".intern.re
0680	70 6c 61 63 65 2d 6d 61 74 63 68 20 22 22 20 6e 69 6c 5d 20 38 20 28 23 24 20 2e 20 31 34 37 31	place-match."".nil].8.(#$...1471
06a0	29 5d 29 0a 23 40 38 38 36 20 4c 65 74 2d 62 69 6e 64 20 64 6f 74 74 65 64 20 73 79 6d 62 6f 6c	)]).#@886.Let-bind.dotted.symbol
06c0	73 20 74 6f 20 74 68 65 69 72 20 63 64 72 73 20 69 6e 20 41 4c 49 53 54 20 61 6e 64 20 65 78 65	s.to.their.cdrs.in.ALIST.and.exe
06e0	63 75 74 65 20 42 4f 44 59 2e 0a 44 6f 74 74 65 64 20 73 79 6d 62 6f 6c 20 69 73 20 61 6e 79 20	cute.BODY..Dotted.symbol.is.any.
0700	73 79 6d 62 6f 6c 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 61 20 60 2e 27 2e 20 20 4f 6e 6c	symbol.starting.with.a.`.'...Onl
0720	79 20 74 68 6f 73 65 20 70 72 65 73 65 6e 74 0a 69 6e 20 42 4f 44 59 20 61 72 65 20 6c 65 74 2d	y.those.present.in.BODY.are.let-
0740	62 6f 75 6e 64 20 61 6e 64 20 74 68 69 73 20 73 65 61 72 63 68 20 69 73 20 64 6f 6e 65 20 61 74	bound.and.this.search.is.done.at
0760	20 63 6f 6d 70 69 6c 65 20 74 69 6d 65 2e 0a 0a 46 6f 72 20 69 6e 73 74 61 6e 63 65 2c 20 74 68	.compile.time...For.instance,.th
0780	65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 64 65 0a 0a 20 20 28 6c 65 74 2d 61 6c 69 73 74 20 61	e.following.code....(let-alist.a
07a0	6c 69 73 74 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 2e 74 69 74 6c 65 20 2e 62 6f 64 79 29 0a	list.....(if.(and..title..body).
07c0	20 20 20 20 20 20 20 20 2e 62 6f 64 79 0a 20 20 20 20 20 20 2e 73 69 74 65 0a 20 20 20 20 20 20	.........body........site.......
07e0	2e 73 69 74 65 2e 63 6f 6e 74 65 6e 74 73 29 29 0a 0a 65 73 73 65 6e 74 69 61 6c 6c 79 20 65 78	.site.contents))..essentially.ex
0800	70 61 6e 64 73 20 74 6f 0a 0a 20 20 28 6c 65 74 20 28 28 2e 74 69 74 6c 65 20 28 63 64 72 20 28	pands.to....(let.((.title.(cdr.(
0820	61 73 73 71 20 5c 3d 27 74 69 74 6c 65 20 61 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 28	assq.\='title.alist))).........(
0840	2e 62 6f 64 79 20 20 28 63 64 72 20 28 61 73 73 71 20 5c 3d 27 62 6f 64 79 20 61 6c 69 73 74 29	.body..(cdr.(assq.\='body.alist)
0860	29 29 0a 20 20 20 20 20 20 20 20 28 2e 73 69 74 65 20 20 28 63 64 72 20 28 61 73 73 71 20 5c 3d	)).........(.site..(cdr.(assq.\=
0880	27 73 69 74 65 20 61 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 2e 73 69 74 65 2e 63 6f	'site.alist))).........(.site.co
08a0	6e 74 65 6e 74 73 20 28 63 64 72 20 28 61 73 73 71 20 5c 3d 27 63 6f 6e 74 65 6e 74 73 20 28 63	ntents.(cdr.(assq.\='contents.(c
08c0	64 72 20 28 61 73 73 71 20 5c 3d 27 73 69 74 65 20 61 6c 69 73 74 29 29 29 29 29 29 0a 20 20 20	dr.(assq.\='site.alist))))))....
08e0	20 28 69 66 20 28 61 6e 64 20 2e 74 69 74 6c 65 20 2e 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20	.(if.(and..title..body).........
0900	2e 62 6f 64 79 0a 20 20 20 20 20 20 2e 73 69 74 65 0a 20 20 20 20 20 20 2e 73 69 74 65 2e 63 6f	.body........site........site.co
0920	6e 74 65 6e 74 73 29 29 0a 0a 49 66 20 79 6f 75 20 6e 65 73 74 20 60 6c 65 74 2d 61 6c 69 73 74	ntents))..If.you.nest.`let-alist
0940	27 20 69 6e 76 6f 63 61 74 69 6f 6e 73 2c 20 74 68 65 20 69 6e 6e 65 72 20 6f 6e 65 20 63 61 6e	'.invocations,.the.inner.one.can
0960	27 74 20 61 63 63 65 73 73 0a 74 68 65 20 76 61 72 69 61 62 6c 65 73 20 6f 66 20 74 68 65 20 6f	't.access.the.variables.of.the.o
0980	75 74 65 72 20 6f 6e 65 2e 20 59 6f 75 20 63 61 6e 2c 20 68 6f 77 65 76 65 72 2c 20 61 63 63 65	uter.one..You.can,.however,.acce
09a0	73 73 20 61 6c 69 73 74 73 0a 69 6e 73 69 64 65 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 61 6c	ss.alists.inside.the.original.al
09c0	69 73 74 20 62 79 20 75 73 69 6e 67 20 64 6f 74 73 20 69 6e 73 69 64 65 20 74 68 65 20 73 79 6d	ist.by.using.dots.inside.the.sym
09e0	62 6f 6c 2c 20 61 73 0a 64 69 73 70 6c 61 79 65 64 20 69 6e 20 74 68 65 20 65 78 61 6d 70 6c 65	bol,.as.displayed.in.the.example
0a00	20 61 62 6f 76 65 2e 0a 0a 28 66 6e 20 41 4c 49 53 54 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a	.above...(fn.ALIST.&rest.BODY)..
0a20	28 64 65 66 61 6c 69 61 73 20 27 6c 65 74 2d 61 6c 69 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23	(defalias.'let-alist.'(macro...#
0a40	5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 04 44 43 5c 33 30 32 5c 33 30 33 5c	[385."\300\301!\302..DC\302\303\
0a60	33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 09 21 5c 33 31 31 5c 22 5c 33 31 32	304\305\306\307\310..!\311\"\312
0a80	5c 33 31 33 25 5c 33 31 34 5c 33 31 35 06 08 21 21 5c 22 05 42 42 45 5c 32 30 37 22 20 5b 6d 61	\313%\314\315..!!\".BBE\207".[ma
0aa0	6b 65 2d 73 79 6d 62 6f 6c 20 22 61 6c 69 73 74 22 20 6c 65 74 20 6d 61 70 63 61 72 20 6d 61 6b	ke-symbol."alist".let.mapcar.mak
0ac0	65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 32 31 31 40 5c 33 30 31 02 40 5c 33 30 30	e-byte-code.257."\211@\301.@\300
0ae0	5c 22 44 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6c 65 74 2d 61 6c 69	\"D\207".vconcat.vector.[let-ali
0b00	73 74 2d 2d 61 63 63 65 73 73 2d 73 65 78 70 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 20	st--access-sexp].5."\n\n(fn.X)".
0b20	64 65 6c 65 74 65 2d 64 75 70 73 20 6c 65 74 2d 61 6c 69 73 74 2d 2d 64 65 65 70 2d 64 6f 74 2d	delete-dups.let-alist--deep-dot-
0b40	73 65 61 72 63 68 5d 20 31 33 20 28 23 24 20 2e 20 31 37 30 36 29 5d 29 29 0a 28 62 79 74 65 2d	search].13.(#$...1706)])).(byte-
0b60	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c	code."\300\301\302\303#\210\304\
0b80	33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 31 30 5c 33 30 37 5c 33 30 31 21 5c 32 30 37 22 20 5b	301\305\306#\210\307\301!\207".[
0ba0	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 65 74 2d 61 6c 69 73 74 20 6c 69 73 70 2d 69 6e 64 65	function-put.let-alist.lisp-inde
0bc0	6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 20 70 75 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70	nt-function.1.put.edebug-form-sp
0be0	65 63 20 74 20 70 72 6f 76 69 64 65 5d 20 34 29 0a	ec.t.provide].4).