blob: 60df2a9d0ff726ba64b41b3dd3065218bcaa9edf (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.3.1.;;;.with.all.o
0040	70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65	ptimizations...;;;.This.file.use
0060	73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65	s.dynamic.docstrings,.first.adde
0080	64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65	d.in.Emacs.19.29...;;;.This.file
00a0	20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49	.does.not.contain.utf-8.non-ASCI
00c0	49 20 63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20	I.characters,.;;;.and.so.can.be.
00e0	6c 6f 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72	loaded.in.Emacs.versions.earlier
0100	20 74 68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.than.23...;;;;;;;;;;;;;;;;;;;;;
0120	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;
0160	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20	;;;;;;;;;;;;;;;;;;...(byte-code.
01a0	22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 30 5c 33 30 32 21 5c 32 31 30 5c 33 30 30 5c	"\300\301!\210\300\302!\210\300\
01c0	33 30 33 21 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31	303!\210\304\305\306\307\310\311
01e0	5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 26 09 5c 32 31 30 5c 33 31 36 5c 33 31 37 5c 33	\312\313\314\315&.\210\316\317\3
0200	32 30 5c 33 32 31 5c 33 31 32 5c 33 30 35 25 5c 32 31 30 5c 33 31 36 5c 33 32 32 5c 33 32 33 5c	20\321\312\305%\210\316\322\323\
0220	33 32 34 5c 33 31 32 5c 33 30 35 25 5c 32 31 30 5c 33 31 36 5c 33 32 35 5c 33 32 36 5c 33 32 37	324\312\305%\210\316\325\326\327
0240	5c 33 31 32 5c 33 30 35 25 5c 32 31 30 5c 33 33 30 5c 33 33 31 5c 33 33 32 5c 33 33 33 5c 33 33	\312\305%\210\330\331\332\333\33
0260	34 44 44 5c 33 33 35 5c 33 31 32 5c 33 30 35 5c 33 33 36 5c 33 33 37 5c 33 34 30 5c 33 34 31 26	4DD\335\312\305\336\337\340\341&
0280	09 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65 20 63 6c 2d 67 65 6e 65 72 69 63 20 73 65 71 20 73	.\207".[require.cl-generic.seq.s
02a0	75 62 72 2d 78 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 67 72 6f 75 70 20 73 65 73 6d 61	ubr-x.custom-declare-group.sesma
02c0	6e 20 6e 69 6c 20 22 47 65 6e 65 72 69 63 20 53 65 73 73 69 6f 6e 20 4d 61 6e 61 67 65 72 2e 22	n.nil."Generic.Session.Manager."
02e0	20 3a 70 72 65 66 69 78 20 22 73 65 73 6d 61 6e 2d 22 20 3a 67 72 6f 75 70 20 74 6f 6f 6c 73 20	.:prefix."sesman-".:group.tools.
0300	3a 6c 69 6e 6b 20 28 75 72 6c 2d 6c 69 6e 6b 20 3a 74 61 67 20 22 47 69 74 48 75 62 22 20 22 68	:link.(url-link.:tag."GitHub"."h
0320	74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 76 73 70 69 6e 75 2f 73 65 73 6d 61 6e 22	ttps://github.com/vspinu/sesman"
0340	29 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 66 61 63 65 20 73 65 73 6d 61 6e 2d 70 72 6f	).custom-declare-face.sesman-pro
0360	6a 65 63 74 2d 66 61 63 65 20 28 28 64 65 66 61 75 6c 74 20 28 3a 69 6e 68 65 72 69 74 20 66 6f	ject-face.((default.(:inherit.fo
0380	6e 74 2d 6c 6f 63 6b 2d 64 6f 63 2d 66 61 63 65 29 29 29 20 22 46 61 63 65 20 75 73 65 64 20 74	nt-lock-doc-face)))."Face.used.t
03a0	6f 20 6d 61 72 6b 20 70 72 6f 6a 65 63 74 73 2e 22 20 73 65 73 6d 61 6e 2d 64 69 72 65 63 74 6f	o.mark.projects.".sesman-directo
03c0	72 79 2d 66 61 63 65 20 28 28 64 65 66 61 75 6c 74 20 28 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74	ry-face.((default.(:inherit.font
03e0	2d 6c 6f 63 6b 2d 74 79 70 65 2d 66 61 63 65 29 29 29 20 22 46 61 63 65 20 75 73 65 64 20 74 6f	-lock-type-face)))."Face.used.to
0400	20 6d 61 72 6b 20 64 69 72 65 63 74 6f 72 69 65 73 2e 22 20 73 65 73 6d 61 6e 2d 62 75 66 66 65	.mark.directories.".sesman-buffe
0420	72 2d 66 61 63 65 20 28 28 64 65 66 61 75 6c 74 20 28 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d	r-face.((default.(:inherit.font-
0440	6c 6f 63 6b 2d 70 72 65 70 72 6f 63 65 73 73 6f 72 2d 66 61 63 65 29 29 29 20 22 46 61 63 65 20	lock-preprocessor-face)))."Face.
0460	75 73 65 64 20 74 6f 20 6d 61 72 6b 20 62 75 66 66 65 72 73 2e 22 20 63 75 73 74 6f 6d 2d 64 65	used.to.mark.buffers.".custom-de
0480	63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 73 65 73 6d 61 6e 2d 73 69 6e 67 6c 65 2d 6c 69 6e	clare-variable.sesman-single-lin
04a0	6b 2d 63 6f 6e 74 65 78 74 2d 74 79 70 65 73 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e	k-context-types.funcall.function
04c0	20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 28 62 75 66 66 65 72 29 5d 20 31 5d 20 22 4c	.#[0."\300\207".[(buffer)].1]."L
04e0	69 73 74 20 6f 66 20 63 6f 6e 74 65 78 74 20 74 79 70 65 73 20 74 6f 20 77 68 69 63 68 20 61 74	ist.of.context.types.to.which.at
0500	20 6d 6f 73 74 20 6f 6e 65 20 73 65 73 73 69 6f 6e 20 63 61 6e 20 62 65 20 6c 69 6e 6b 65 64 2e	.most.one.session.can.be.linked.
0520	22 20 3a 74 79 70 65 20 28 72 65 70 65 61 74 20 73 79 6d 62 6f 6c 29 20 3a 70 61 63 6b 61 67 65	".:type.(repeat.symbol).:package
0540	2d 76 65 72 73 69 6f 6e 20 28 73 65 73 6d 61 6e 20 2e 20 22 30 2e 31 2e 30 22 29 5d 20 31 30 29	-version.(sesman..."0.1.0")].10)
0560	0a 23 40 38 30 20 48 61 73 68 2d 74 61 62 6c 65 20 6f 66 20 61 6c 6c 20 73 65 73 6d 61 6e 20 73	.#@80.Hash-table.of.all.sesman.s
0580	65 73 73 69 6f 6e 73 2e 0a 4b 65 79 20 69 73 20 61 20 63 6f 6e 73 20 28 73 79 73 74 65 6d 2d 6e	essions..Key.is.a.cons.(system-n
05a0	61 6d 65 20 2e 20 73 65 73 73 69 6f 6e 2d 6e 61 6d 65 29 2e 1f 0a 28 64 65 66 76 61 72 20 73 65	ame...session-name)...(defvar.se
05c0	73 6d 61 6e 2d 73 65 73 73 69 6f 6e 73 2d 68 61 73 68 6d 61 70 20 28 6d 61 6b 65 2d 68 61 73 68	sman-sessions-hashmap.(make-hash
05e0	2d 74 61 62 6c 65 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 20 28 23 24 20 2e 20 31 33 38 32 29	-table.:test.'equal).(#$...1382)
0600	29 0a 23 40 31 38 33 20 41 6e 20 61 6c 69 73 74 20 6f 66 20 61 6c 6c 20 73 65 73 6d 61 6e 20 6c	).#@183.An.alist.of.all.sesman.l
0620	69 6e 6b 73 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 69 73 20 6f 66 20 74 68 65 20 66 6f 72	inks..Each.element.is.of.the.for
0640	6d 20 28 6b 65 79 20 63 78 74 2d 74 79 70 65 20 63 78 74 2d 76 61 6c 75 65 29 20 77 68 65 72 65	m.(key.cxt-type.cxt-value).where
0660	0a 22 6b 65 79 22 20 69 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 73 79 73 74 65 6d 2d 6e 61	."key".is.of.the.form.(system-na
0680	6d 65 20 2e 20 73 65 73 73 69 6f 6e 2d 6e 61 6d 65 29 2e 20 73 79 73 74 65 6d 2d 6e 61 6d 65 0a	me...session-name)..system-name.
06a0	61 6e 64 20 63 78 74 2d 74 79 70 65 20 6d 75 73 74 20 62 65 20 73 79 6d 62 6f 6c 73 2e 1f 0a 28	and.cxt-type.must.be.symbols...(
06c0	64 65 66 76 61 72 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 73 2d 61 6c 69 73 74 20 6e 69 6c 20 28 23	defvar.sesman-links-alist.nil.(#
06e0	24 20 2e 20 31 35 34 34 29 29 0a 23 40 39 39 20 4e 61 6d 65 20 6f 66 20 74 68 65 20 73 79 73 74	$...1544)).#@99.Name.of.the.syst
0700	65 6d 20 6d 61 6e 61 67 65 64 20 62 79 20 60 73 65 73 6d 61 6e 27 2e 0a 43 61 6e 20 62 65 20 65	em.managed.by.`sesman'..Can.be.e
0720	69 74 68 65 72 20 61 20 73 79 6d 62 6f 6c 2c 20 6f 72 20 61 20 66 75 6e 63 74 69 6f 6e 20 72 65	ither.a.symbol,.or.a.function.re
0740	74 75 72 6e 69 6e 67 20 61 20 73 79 6d 62 6f 6c 2e 1f 0a 28 64 65 66 76 61 72 20 73 65 73 6d 61	turning.a.symbol...(defvar.sesma
0760	6e 2d 73 79 73 74 65 6d 20 6e 69 6c 20 28 23 24 20 2e 20 31 37 37 36 29 29 0a 28 62 79 74 65 2d	n-system.nil.(#$...1776)).(byte-
0780	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 32 5c 33 30 31 5c 33 30 33 5c	code."\300\301!\210\302\301\303\
07a0	33 30 34 23 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d	304#\207".[make-variable-buffer-
07c0	6c 6f 63 61 6c 20 73 65 73 6d 61 6e 2d 73 79 73 74 65 6d 20 70 75 74 20 70 65 72 6d 61 6e 65 6e	local.sesman-system.put.permanen
07e0	74 2d 6c 6f 63 61 6c 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d	t-local.t].4).(defalias.'sesman-
0800	2d 6f 6e 2d 43 2d 75 2d 75 2d 73 65 73 73 69 6f 6e 73 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32	-on-C-u-u-sessions.#[514."\211\2
0820	30 34 0e 00 5c 33 30 31 02 21 5c 32 31 31 5c 32 30 35 0d 00 5c 32 31 31 43 5c 32 30 37 5c 32 31	04..\301.!\211\205..\211C\207\21
0840	31 5c 33 30 32 5c 32 33 32 5c 32 30 34 1a 00 5c 32 31 31 5c 33 30 33 3d 5c 32 30 33 1e 00 5c 33	1\302\232\204..\211\303=\203..\3
0860	30 34 02 21 5c 32 30 37 5c 32 31 31 5c 33 30 35 5c 32 33 32 5c 32 30 34 30 00 5c 32 31 31 5c 33	04.!\207\211\305\232\2040.\211\3
0880	30 36 3d 5c 32 30 34 30 00 5c 32 31 31 5c 33 30 37 3d 5c 32 30 33 35 00 5c 33 31 30 02 5c 33 31	06=\2040.\211\307=\2035.\310.\31
08a0	31 5c 22 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 49 00 5c 32 31 31 40 3b 5c 32 30 34 46 00 5c 32	1\"\207\211<\203I.\211@;\204F.\2
08c0	31 31 40 39 5c 32 30 33 49 00 5c 32 31 31 43 5c 32 30 37 5c 32 31 31 3b 5c 32 30 36 60 00 5c 32	11@9\203I.\211C\207\211;\206`.\2
08e0	31 31 39 5c 32 30 36 60 00 5c 33 31 32 02 02 42 08 5c 22 5c 32 30 36 60 00 5c 33 31 33 5c 33 31	119\206`.\312..B.\"\206`.\313\31
0900	34 02 5c 22 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 73 2d 68 61 73 68 6d	4.\"\207".[sesman-sessions-hashm
0920	61 70 20 73 65 73 6d 61 6e 2d 63 75 72 72 65 6e 74 2d 73 65 73 73 69 6f 6e 20 28 34 29 20 6c 69	ap.sesman-current-session.(4).li
0940	6e 6b 65 64 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 65 64 2d 73 65 73 73 69 6f 6e 73 20 28 31 36 29	nked.sesman-linked-sessions.(16)
0960	20 61 6c 6c 20 74 20 73 65 73 6d 61 6e 2d 2d 61 6c 6c 2d 73 79 73 74 65 6d 2d 73 65 73 73 69 6f	.all.t.sesman--all-system-sessio
0980	6e 73 20 73 6f 72 74 20 67 65 74 68 61 73 68 20 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 77	ns.sort.gethash.error."Invalid.w
09a0	68 69 63 68 20 61 72 67 75 6d 65 6e 74 20 28 25 73 29 22 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20	hich.argument.(%s)"].5."\n\n(fn.
09c0	53 59 53 54 45 4d 20 57 48 49 43 48 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d	SYSTEM.WHICH)"]).(defalias.'sesm
09e0	61 6e 2d 2d 63 61 70 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 20 23 5b 32 35 37 20 22 5c 33 30 31 01	an--cap-system-name.#[257."\301.
0a00	21 5c 33 30 32 01 5c 33 30 33 5c 33 30 34 18 5c 33 30 35 03 03 03 23 29 5c 32 36 36 5c 32 30 33	!\302.\303\304.\305...#)\266\203
0a20	5c 32 30 33 17 00 5c 32 31 31 5c 32 30 32 1a 00 5c 33 30 36 01 21 5c 32 30 37 22 20 5b 69 6e 68	\203..\211\202..\306.!\207".[inh
0a40	69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 73 79 6d 62 6f 6c 2d	ibit-changing-match-data.symbol-
0a60	6e 61 6d 65 20 22 5e 5b 5b 3a 75 70 70 65 72 3a 5d 5d 22 20 6e 69 6c 20 74 20 73 74 72 69 6e 67	name."^[[:upper:]]".nil.t.string
0a80	2d 6d 61 74 63 68 20 63 61 70 69 74 61 6c 69 7a 65 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 53 59	-match.capitalize].9."\n\n(fn.SY
0aa0	53 54 45 4d 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 2d 6c 65 61 73	STEM)"]).(defalias.'sesman--leas
0ac0	74 2d 73 70 65 63 69 66 69 63 2d 63 6f 6e 74 65 78 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33	t-specific-context.#[257."\300\3
0ae0	30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 06 21 5c 33 30 36 5c 22 5c 33 30 37 5c	01\302\303\304\305..!\306\"\307\
0b00	33 31 30 25 5c 33 31 31 5c 33 31 32 04 21 21 5c 22 5c 32 30 37 22 20 5b 73 65 71 2d 73 6f 6d 65	310%\311\312.!!\"\207".[seq-some
0b20	20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 01 5c 33 30 30 5c 22	.make-byte-code.257."\301.\300\"
0b40	5c 32 31 31 5c 32 30 35 0b 00 01 01 42 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f	\211\205....B\207".vconcat.vecto
0b60	72 20 5b 73 65 73 6d 61 6e 2d 63 6f 6e 74 65 78 74 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 43 54	r.[sesman-context].4."\n\n(fn.CT
0b80	59 50 45 29 22 20 72 65 76 65 72 73 65 20 73 65 73 6d 61 6e 2d 63 6f 6e 74 65 78 74 2d 74 79 70	YPE)".reverse.sesman-context-typ
0ba0	65 73 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 29 22 5d 29 0a 28 64 65 66 61 6c	es].8."\n\n(fn.SYSTEM)"]).(defal
0bc0	69 61 73 20 27 73 65 73 6d 61 6e 2d 2d 6c 69 6e 6b 2d 73 65 73 73 69 6f 6e 2d 69 6e 74 65 72 61	ias.'sesman--link-session-intera
0be0	63 74 69 76 65 6c 79 20 23 5b 37 37 31 20 22 5c 33 30 30 20 02 5c 32 30 34 12 00 5c 33 30 31 01	ctively.#[771."\300..\204..\301.
0c00	21 5c 32 31 31 40 5c 32 36 32 04 5c 32 31 31 41 5c 32 36 32 03 5c 32 31 30 5c 33 30 32 03 21 03	!\211@\262.\211A\262.\210\302.!.
0c20	5c 33 30 33 03 21 5c 32 33 35 5c 32 30 33 42 00 04 5c 32 30 36 35 00 5c 33 30 34 02 5c 33 30 35	\303.!\235\203B..\2065.\304.\305
0c40	5c 33 30 36 04 5c 33 30 37 5c 33 31 30 06 5c 6e 06 09 5c 22 21 23 5c 33 31 31 05 5c 33 31 32 5c	\306.\307\310.\n..\"!#\311.\312\
0c60	22 5c 33 31 33 24 5c 33 31 34 03 02 06 07 06 07 24 5c 32 36 32 01 5c 32 30 32 4b 00 5c 33 31 35	"\313$\314......$\262.\202K.\315
0c80	5c 33 30 35 5c 33 31 36 5c 33 31 37 04 21 05 23 21 5c 32 36 32 01 5c 32 30 37 22 20 5b 73 65 73	\305\316\317.!.#!\262.\207".[ses
0ca0	6d 61 6e 2d 2d 73 79 73 74 65 6d 20 73 65 73 6d 61 6e 2d 2d 6c 65 61 73 74 2d 73 70 65 63 69 66	man--system.sesman--least-specif
0cc0	69 63 2d 63 6f 6e 74 65 78 74 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 65 73 6d 61 6e 2d 63 6f	ic-context.symbol-name.sesman-co
0ce0	6e 74 65 78 74 2d 74 79 70 65 73 20 73 65 73 6d 61 6e 2d 61 73 6b 2d 66 6f 72 2d 73 65 73 73 69	ntext-types.sesman-ask-for-sessi
0d00	6f 6e 20 66 6f 72 6d 61 74 20 22 4c 69 6e 6b 20 77 69 74 68 20 25 73 20 25 73 3a 20 22 20 73 65	on.format."Link.with.%s.%s:.".se
0d20	73 6d 61 6e 2d 2d 61 62 62 72 65 76 2d 70 61 74 68 2d 6d 61 79 62 65 20 73 65 73 6d 61 6e 2d 63	sman--abbrev-path-maybe.sesman-c
0d40	6f 6e 74 65 78 74 20 73 65 73 6d 61 6e 2d 2d 61 6c 6c 2d 73 79 73 74 65 6d 2d 73 65 73 73 69 6f	ontext.sesman--all-system-sessio
0d60	6e 73 20 73 6f 72 74 20 61 73 6b 2d 6e 65 77 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 2d 73 65 73 73	ns.sort.ask-new.sesman-link-sess
0d80	69 6f 6e 20 65 72 72 6f 72 20 22 25 73 20 61 73 73 6f 63 69 61 74 69 6f 6e 20 6e 6f 74 20 61 6c	ion.error."%s.association.not.al
0da0	6c 6f 77 65 64 20 66 6f 72 20 74 68 69 73 20 73 79 73 74 65 6d 20 28 25 73 29 22 20 63 61 70 69	lowed.for.this.system.(%s)".capi
0dc0	74 61 6c 69 7a 65 5d 20 31 34 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 53 53 49 4f 4e 20 43 58 54 2d	talize].14."\n\n(fn.SESSION.CXT-
0de0	54 59 50 45 20 43 58 54 2d 56 41 4c 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d	TYPE.CXT-VAL)"]).(defalias.'sesm
0e00	61 6e 2d 2d 65 78 70 61 6e 64 2d 70 61 74 68 2d 6d 61 79 62 65 20 23 5b 32 35 37 20 22 5c 32 31	an--expand-path-maybe.#[257."\21
0e20	31 3b 5c 32 30 33 09 00 5c 33 30 30 01 21 5c 32 30 37 5c 32 30 37 22 20 5b 65 78 70 61 6e 64 2d	1;\203..\300.!\207\207".[expand-
0e40	66 69 6c 65 2d 6e 61 6d 65 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 4f 42 4a 29 22 5d 29 0a 28 64	file-name].3."\n\n(fn.OBJ)"]).(d
0e60	65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 2d 61 62 62 72 65 76 2d 70 61 74 68 2d 6d 61 79	efalias.'sesman--abbrev-path-may
0e80	62 65 20 23 5b 32 35 37 20 22 5c 32 31 31 3b 5c 32 30 33 09 00 5c 33 30 30 01 21 5c 32 30 37 5c	be.#[257."\211;\203..\300.!\207\
0ea0	32 30 37 22 20 5b 61 62 62 72 65 76 69 61 74 65 2d 66 69 6c 65 2d 6e 61 6d 65 5d 20 33 20 22 5c	207".[abbreviate-file-name].3."\
0ec0	6e 5c 6e 28 66 6e 20 4f 42 4a 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e	n\n(fn.OBJ)"]).(defalias.'sesman
0ee0	2d 2d 73 79 73 74 65 6d 2d 69 6e 2d 62 75 66 66 65 72 20 23 5b 32 35 36 20 22 72 5c 32 31 31 5c	--system-in-buffer.#[256."r\211\
0f00	32 30 36 06 00 70 71 5c 32 31 30 5c 33 30 31 08 21 5c 32 30 33 13 00 08 20 5c 32 30 32 14 00 08	206..pq\210\301.!\203....\202...
0f20	29 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 73 79 73 74 65 6d 20 66 75 6e 63 74 69 6f 6e 70 5d	)\207".[sesman-system.functionp]
0f40	20 33 20 22 5c 6e 5c 6e 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 42 55 46 46 45 52 29 22 5d 29	.3."\n\n(fn.&optional.BUFFER)"])
0f60	0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 2d 73 79 73 74 65 6d 20 23 5b 30 20 22	.(defalias.'sesman--system.#[0."
0f80	08 5c 32 30 33 0f 00 5c 33 30 31 08 21 5c 32 30 33 0d 00 08 20 5c 32 30 37 08 5c 32 30 37 5c 33	.\203..\301.!\203....\207.\207\3
0fa0	30 32 5c 33 30 33 70 5c 22 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 73 79 73 74 65 6d 20 66 75	02\303p\"\207".[sesman-system.fu
0fc0	6e 63 74 69 6f 6e 70 20 65 72 72 6f 72 20 22 4e 6f 20 60 73 65 73 6d 61 6e 2d 73 79 73 74 65 6d	nctionp.error."No.`sesman-system
0fe0	27 20 69 6e 20 62 75 66 66 65 72 20 60 25 73 27 22 5d 20 33 5d 29 0a 23 40 31 32 34 20 52 65 74	'.in.buffer.`%s'"].3]).#@124.Ret
1000	75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 73 65 73 73 69 6f 6e 73 20 72 65 67 69 73 74 65 72 65	urn.a.list.of.sessions.registere
1020	64 20 77 69 74 68 20 53 59 53 54 45 4d 2e 0a 49 66 20 53 4f 52 54 20 69 73 20 6e 6f 6e 2d 6e 69	d.with.SYSTEM..If.SORT.is.non-ni
1040	6c 2c 20 73 6f 72 74 20 69 6e 20 72 65 6c 65 76 61 6e 63 65 20 6f 72 64 65 72 2e 0a 0a 28 66 6e	l,.sort.in.relevance.order...(fn
1060	20 26 6f 70 74 69 6f 6e 61 6c 20 53 59 53 54 45 4d 20 53 4f 52 54 29 1f 0a 28 64 65 66 61 6c 69	.&optional.SYSTEM.SORT)..(defali
1080	61 73 20 27 73 65 73 6d 61 6e 2d 2d 61 6c 6c 2d 73 79 73 74 65 6d 2d 73 65 73 73 69 6f 6e 73 20	as.'sesman--all-system-sessions.
10a0	23 5b 35 31 32 20 22 01 5c 32 30 36 06 00 5c 33 30 31 20 5c 33 30 32 43 5c 33 30 33 5c 33 30 34	#[512.".\206..\301.\302C\303\304
10c0	5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 07 06 07 5c 22 5c 33 31 31 5c 22 5c 33 31 32	\305\306\307\310....\"\311\"\312
10e0	5c 33 31 33 25 08 5c 22 5c 32 31 30 02 5c 32 30 33 27 00 5c 33 31 34 02 02 5c 32 34 32 5c 22 5c	\313%.\"\210.\203'.\314..\242\"\
1100	32 30 32 29 00 5c 32 31 31 5c 32 34 32 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 73 65 73 73 69	202).\211\242\207".[sesman-sessi
1120	6f 6e 73 2d 68 61 73 68 6d 61 70 20 73 65 73 6d 61 6e 2d 2d 73 79 73 74 65 6d 20 6e 69 6c 20 6d	ons-hashmap.sesman--system.nil.m
1140	61 70 68 61 73 68 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33 30 32 02	aphash.make-byte-code.514."\302.
1160	40 5c 33 30 30 5c 22 5c 32 30 35 0e 00 5c 33 30 31 01 5c 33 30 31 5c 32 34 32 42 5c 32 34 30 5c	@\300\"\205..\301.\301\242B\240\
1180	32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 65 71 6c 5d 20 35 20 22 5c 6e 5c	207".vconcat.vector.[eql].5."\n\
11a0	6e 28 66 6e 20 4b 20 53 29 22 20 73 65 73 6d 61 6e 2d 2d 73 6f 72 74 2d 73 65 73 73 69 6f 6e 73	n(fn.K.S)".sesman--sort-sessions
11c0	5d 20 31 32 20 28 23 24 20 2e 20 34 30 39 33 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65	].12.(#$...4093)]).(defalias.'se
11e0	73 6d 61 6e 2d 2d 6c 69 6e 6b 2d 6c 6f 6f 6b 75 70 2d 66 6e 20 23 5b 31 32 38 30 20 22 04 5c 32	sman--link-lookup-fn.#[1280.".\2
1200	30 36 07 00 5c 32 31 31 40 40 04 5c 32 30 36 0e 00 01 40 41 04 5c 32 30 36 15 00 02 41 40 04 5c	06..\211@@.\206...@A.\206...A@.\
1220	32 30 36 1c 00 5c 33 30 30 04 38 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06	206..\300.8\301\302\303\304\305.
1240	08 06 08 06 08 06 08 24 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 5c 32 30 37 22 20 5b 32 20	.......$\306\"\307\310%\207".[2.
1260	6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 5c 32 30 33 5c 66 00 5c	make-byte-code.257."\300\203\f.\
1280	32 31 31 40 40 5c 33 30 30 3d 5c 32 30 35 3b 00 5c 33 30 31 5c 32 30 33 18 00 5c 32 31 31 40 41	211@@\300=\205;.\301\203..\211@A
12a0	5c 33 30 31 5c 32 33 32 5c 32 30 35 3b 00 5c 33 30 32 5c 32 30 33 31 00 5c 33 30 32 3c 5c 32 30	\301\232\205;.\302\2031.\302<\20
12c0	33 29 00 5c 32 31 31 41 40 5c 33 30 32 5c 32 33 35 5c 32 30 32 2e 00 5c 32 31 31 41 40 5c 33 30	3).\211A@\302\235\202..\211A@\30
12e0	32 3d 5c 32 30 35 3b 00 5c 33 30 33 3f 5c 32 30 36 3b 00 5c 33 30 34 01 38 5c 33 30 33 5c 32 33	2=\205;.\303?\206;.\304.8\303\23
1300	32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 32 5d 20 33 20 22 5c 6e 5c	2\207".vconcat.vector.[2].3."\n\
1320	6e 28 66 6e 20 45 4c 29 22 5d 20 31 38 20 22 5c 6e 5c 6e 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c	n(fn.EL)"].18."\n\n(fn.&optional
1340	20 53 59 53 54 45 4d 20 53 45 53 2d 4e 41 4d 45 20 43 58 54 2d 54 59 50 45 20 43 58 54 2d 56 41	.SYSTEM.SES-NAME.CXT-TYPE.CXT-VA
1360	4c 20 58 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 2d 75 6e 6c 69 6e	L.X)"]).(defalias.'sesman--unlin
1380	6b 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32 31 31 5c 32 31 31 5c 32 31	k.#[257."\301\302\303\211\211\21
13a0	31 06 06 25 08 5c 22 5c 32 31 31 10 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 6c 69 6e 6b 73 2d	1..%.\"\211.\207".[sesman-links-
13c0	61 6c 69 73 74 20 73 65 71 2d 72 65 6d 6f 76 65 20 73 65 73 6d 61 6e 2d 2d 6c 69 6e 6b 2d 6c 6f	alist.seq-remove.sesman--link-lo
13e0	6f 6b 75 70 2d 66 6e 20 6e 69 6c 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 29 0a 28 64	okup-fn.nil].8."\n\n(fn.X)"]).(d
1400	65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 2d 63 6c 65 61 72 2d 6c 69 6e 6b 73 20 23 5b 30	efalias.'sesman--clear-links.#[0
1420	20 22 5c 33 30 31 5c 33 30 32 08 5c 22 5c 32 31 31 10 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d	."\301\302.\"\211.\207".[sesman-
1440	6c 69 6e 6b 73 2d 61 6c 69 73 74 20 73 65 71 2d 66 69 6c 74 65 72 20 23 5b 32 35 37 20 22 5c 33	links-alist.seq-filter.#[257."\3
1460	30 31 01 40 08 5c 22 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 73 2d 68 61	01.@.\"\207".[sesman-sessions-ha
1480	73 68 6d 61 70 20 67 65 74 68 61 73 68 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 5d 20	shmap.gethash].4."\n\n(fn.X)"]].
14a0	33 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 2d 66 6f 72 6d 61 74 2d 73 65	3]).(defalias.'sesman--format-se
14c0	73 73 69 6f 6e 2d 6f 62 6a 65 63 74 73 20 23 5b 37 37 30 20 22 5c 33 30 30 03 03 5c 22 5c 32 31	ssion-objects.#[770."\300..\"\21
14e0	31 3c 5c 32 30 33 3b 00 5c 33 30 31 01 40 21 5c 32 30 33 3b 00 02 40 02 5c 32 30 36 17 00 5c 33	1<\203;.\301.@!\203;..@.\206..\3
1500	30 32 5c 33 30 33 03 5c 33 30 34 5c 22 5c 32 30 36 25 00 5c 33 30 35 5c 33 30 36 5c 33 30 33 05	02\303.\304\"\206%.\305\306\303.
1520	5c 33 30 37 5c 22 5c 22 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35	\307\"\"\310\311\312\313\314\315
1540	06 08 21 5c 33 31 36 5c 22 5c 33 31 37 5c 33 32 30 25 02 04 23 5c 32 36 36 5c 32 30 33 5c 32 30	..!\316\"\317\320%..#\266\203\20
1560	32 3f 00 5c 33 32 31 5c 33 32 32 02 5c 22 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 73 65 73 73	2?.\321\322.\"\207".[sesman-sess
1580	69 6f 6e 2d 69 6e 66 6f 20 6b 65 79 77 6f 72 64 70 20 22 20 22 20 70 6c 69 73 74 2d 67 65 74 20	ion-info.keywordp.".".plist-get.
15a0	3a 73 74 72 69 6e 67 73 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02	:strings.mapcar.#[257."\300\301.
15c0	5c 22 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 20 22 25 73 22 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e	\"\207".[format."%s"].4."\n\n(fn
15e0	20 58 29 22 5d 20 3a 6f 62 6a 65 63 74 73 20 6d 61 70 63 6f 6e 63 61 74 20 6d 61 6b 65 2d 62 79	.X)"].:objects.mapconcat.make-by
1600	74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c 33 30 30 5c 33 30 32 03 5c 33 30 33 5c 33	te-code.257."\301\300\302.\303\3
1620	30 34 25 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 72 65 70 6c 61 63 65	04%\207".vconcat.vector.[replace
1640	2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 25 25 73 22 20 6e 69 6c 20 74 5d 20 37	-regexp-in-string."%%s".nil.t].7
1660	20 22 5c 6e 5c 6e 28 66 6e 20 53 54 52 29 22 20 66 6f 72 6d 61 74 20 22 25 73 22 5d 20 31 34 20	."\n\n(fn.STR)".format."%s"].14.
1680	22 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 20 53 45 53 53 49 4f 4e 20 26 6f 70 74 69 6f 6e 61	"\n\n(fn.SYSTEM.SESSION.&optiona
16a0	6c 20 53 45 50 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 2d 66 6f 72	l.SEP)"]).(defalias.'sesman--for
16c0	6d 61 74 2d 73 65 73 73 69 6f 6e 20 23 5b 37 37 30 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	mat-session.#[770."\300\301\302\
16e0	33 30 33 5c 33 30 34 23 02 5c 32 30 36 0b 00 5c 33 30 35 5c 33 30 31 05 40 5c 33 30 33 5c 33 30	303\304#.\206..\305\301.@\303\30
1700	34 23 5c 33 30 31 5c 33 30 36 06 08 06 08 5c 33 30 37 23 5c 33 30 33 5c 33 31 30 23 5c 33 31 31	4#\301\306....\307#\303\310#\311
1720	06 08 06 08 5c 33 31 32 5c 32 31 31 24 25 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 20 70 72 6f 70	....\312\211$%\207".[format.prop
1740	65 72 74 69 7a 65 20 22 25 73 25 73 20 5b 25 73 5d 20 6c 69 6e 6b 65 64 2d 74 6f 20 25 73 22 20	ertize."%s%s.[%s].linked-to.%s".
1760	66 61 63 65 20 62 6f 6c 64 20 22 22 20 73 65 73 6d 61 6e 2d 2d 66 6f 72 6d 61 74 2d 73 65 73 73	face.bold."".sesman--format-sess
1780	69 6f 6e 2d 6f 62 6a 65 63 74 73 20 22 2c 20 22 20 69 74 61 6c 69 63 20 73 65 73 6d 61 6e 2d 67	ion-objects.",.".italic.sesman-g
17a0	72 6f 75 70 65 64 2d 6c 69 6e 6b 73 20 74 5d 20 31 33 20 22 5c 6e 5c 6e 28 66 6e 20 53 59 53 54	rouped-links.t].13."\n\n(fn.SYST
17c0	45 4d 20 53 45 53 20 26 6f 70 74 69 6f 6e 61 6c 20 50 52 45 46 49 58 29 22 5d 29 0a 28 64 65 66	EM.SES.&optional.PREFIX)"]).(def
17e0	61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 2d 66 6f 72 6d 61 74 2d 6c 69 6e 6b 20 23 5b 32 35 37	alias.'sesman--format-link.#[257
1800	20 22 5c 33 30 31 01 21 5c 33 30 32 02 40 08 5c 22 5c 33 30 33 5c 33 30 34 5c 33 30 35 05 21 5c	."\301.!\302.@.\"\303\304\305.!\
1820	33 30 36 5c 33 30 37 5c 33 31 30 06 08 21 21 5c 33 31 31 5c 33 31 32 23 5c 33 30 36 5c 33 31 33	306\307\310..!!\311\312#\306\313
1840	06 08 21 5c 33 31 31 5c 33 31 32 23 05 5c 32 30 33 2c 00 5c 33 31 34 06 07 06 07 5c 22 5c 32 30	..!\311\312#.\203,.\314....\"\20
1860	32 2d 00 5c 33 31 35 25 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 73 2d 68	2-.\315%\207".[sesman-sessions-h
1880	61 73 68 6d 61 70 20 73 65 73 6d 61 6e 2d 2d 6c 6e 6b 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 20 67	ashmap.sesman--lnk-system-name.g
18a0	65 74 68 61 73 68 20 66 6f 72 6d 61 74 20 22 25 73 28 25 73 29 20 2d 3e 20 25 73 20 5b 25 73 5d	ethash.format."%s(%s).->.%s.[%s]
18c0	22 20 73 65 73 6d 61 6e 2d 2d 6c 6e 6b 2d 63 6f 6e 74 65 78 74 2d 74 79 70 65 20 70 72 6f 70 65	".sesman--lnk-context-type.prope
18e0	72 74 69 7a 65 20 73 65 73 6d 61 6e 2d 2d 61 62 62 72 65 76 2d 70 61 74 68 2d 6d 61 79 62 65 20	rtize.sesman--abbrev-path-maybe.
1900	73 65 73 6d 61 6e 2d 2d 6c 6e 6b 2d 76 61 6c 75 65 20 66 61 63 65 20 62 6f 6c 64 20 73 65 73 6d	sesman--lnk-value.face.bold.sesm
1920	61 6e 2d 2d 6c 6e 6b 2d 73 65 73 73 69 6f 6e 2d 6e 61 6d 65 20 73 65 73 6d 61 6e 2d 2d 66 6f 72	an--lnk-session-name.sesman--for
1940	6d 61 74 2d 73 65 73 73 69 6f 6e 2d 6f 62 6a 65 63 74 73 20 22 69 6e 76 61 6c 69 64 22 5d 20 31	mat-session-objects."invalid"].1
1960	31 20 22 5c 6e 5c 6e 28 66 6e 20 4c 49 4e 4b 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73	1."\n\n(fn.LINK)"]).(defalias.'s
1980	65 73 6d 61 6e 2d 2d 61 73 6b 2d 66 6f 72 2d 6c 69 6e 6b 20 23 5b 37 37 30 20 22 5c 33 30 30 5c	esman--ask-for-link.#[770."\300\
19a0	33 30 31 03 5c 22 5c 33 30 32 01 03 5c 32 30 35 12 00 02 47 5c 33 30 33 56 5c 32 30 35 12 00 5c	301.\"\302..\205...G\303V\205..\
19c0	33 30 34 5c 22 5c 33 30 30 5c 33 30 35 02 5c 22 5c 33 30 36 06 06 02 5c 33 30 37 5c 33 31 30 5c	304\"\300\305.\"\306...\307\310\
19e0	33 30 37 5c 32 31 31 06 07 40 26 07 5c 32 31 31 5c 33 31 31 5c 32 33 30 5c 32 30 33 2e 00 05 5c	307\211..@&.\211\311\230\203...\
1a00	32 30 32 40 00 04 5c 32 30 33 3b 00 5c 33 31 32 01 04 5c 22 41 43 5c 32 30 32 40 00 5c 33 31 32	202@..\203;.\312..\"AC\202@.\312
1a20	01 04 5c 22 41 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21	..\"A\207".[mapcar.#[257."\300.!
1a40	01 42 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 66 6f 72 6d 61 74 2d 6c 69 6e 6b 5d 20 33 20	.B\207".[sesman--format-link].3.
1a60	22 5c 6e 5c 6e 28 66 6e 20 4c 49 4e 4b 29 22 5d 20 61 70 70 65 6e 64 20 31 20 28 28 22 2a 61 6c	"\n\n(fn.LINK)"].append.1.(("*al
1a80	6c 2a 22 29 29 20 63 61 72 20 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 6e 69 6c 20 74 20	l*")).car.completing-read.nil.t.
1aa0	22 2a 61 6c 6c 2a 22 20 61 73 73 6f 63 5d 20 31 34 20 22 5c 6e 5c 6e 28 66 6e 20 50 52 4f 4d 50	"*all*".assoc].14."\n\n(fn.PROMP
1ac0	54 20 4c 49 4e 4b 53 20 26 6f 70 74 69 6f 6e 61 6c 20 41 53 4b 2d 41 4c 4c 29 22 5d 29 0a 28 64	T.LINKS.&optional.ASK-ALL)"]).(d
1ae0	65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 2d 73 6f 72 74 2d 73 65 73 73 69 6f 6e 73 20 23	efalias.'sesman--sort-sessions.#
1b00	5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07	[514."\300\301\302\303\304\305..
1b20	21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 02 5c 22 5c 32 30 37 22 20 5b 73 65 71 2d 73 6f	!\306\"\307\310%.\"\207".[seq-so
1b40	72 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33 30 31 5c 33 30 30 03	rt.make-byte-code.514."\301\300.
1b60	03 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 73 65 73 6d 61 6e 2d 6d	.#\207".vconcat.vector.[sesman-m
1b80	6f 72 65 2d 72 65 6c 65 76 61 6e 74 2d 70 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 58 31 20 58 32	ore-relevant-p].6."\n\n(fn.X1.X2
1ba0	29 22 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 20 53 45 53 53 49 4f 4e 53 29 22	)"].9."\n\n(fn.SYSTEM.SESSIONS)"
1bc0	5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 2d 73 6f 72 74 2d 6c 69 6e 6b 73	]).(defalias.'sesman--sort-links
1be0	20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35	.#[514."\300\301\302\303\304\305
1c00	06 07 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 02 5c 22 5c 32 30 37 22 20 5b 73 65 71 2d	..!\306\"\307\310%.\"\207".[seq-
1c20	73 6f 72 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33 30 32 5c 33 30	sort.make-byte-code.514."\302\30
1c40	30 5c 33 30 33 04 40 09 5c 22 5c 33 30 33 04 40 09 5c 22 23 5c 32 30 37 22 20 76 63 6f 6e 63 61	0\303.@.\"\303.@.\"#\207".vconca
1c60	74 20 76 65 63 74 6f 72 20 5b 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 73 2d 68 61 73 68 6d 61	t.vector.[sesman-sessions-hashma
1c80	70 20 73 65 73 6d 61 6e 2d 6d 6f 72 65 2d 72 65 6c 65 76 61 6e 74 2d 70 20 67 65 74 68 61 73 68	p.sesman-more-relevant-p.gethash
1ca0	5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 58 31 20 58 32 29 22 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e	].8."\n\n(fn.X1.X2)"].9."\n\n(fn
1cc0	20 53 59 53 54 45 4d 20 4c 49 4e 4b 53 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73	.SYSTEM.LINKS)"]).(defalias.'ses
1ce0	6d 61 6e 2d 2d 6c 6e 6b 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 20 23 5b 32 35 37 20 22 5c 32 31 31	man--lnk-system-name.#[257."\211
1d00	40 40 5c 32 30 37 22 20 5b 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 4c 4e 4b 29 22 5d 29 0a 28 64	@@\207".[].2."\n\n(fn.LNK)"]).(d
1d20	65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 2d 6c 6e 6b 2d 73 65 73 73 69 6f 6e 2d 6e 61 6d	efalias.'sesman--lnk-session-nam
1d40	65 20 23 5b 32 35 37 20 22 5c 32 31 31 40 41 5c 32 30 37 22 20 5b 5d 20 32 20 22 5c 6e 5c 6e 28	e.#[257."\211@A\207".[].2."\n\n(
1d60	66 6e 20 4c 4e 4b 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 2d 6c 6e	fn.LNK)"]).(defalias.'sesman--ln
1d80	6b 2d 63 6f 6e 74 65 78 74 2d 74 79 70 65 20 23 5b 32 35 37 20 22 5c 32 31 31 41 40 5c 32 30 37	k-context-type.#[257."\211A@\207
1da0	22 20 5b 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 4c 4e 4b 29 22 5d 29 0a 28 64 65 66 61 6c 69 61	".[].2."\n\n(fn.LNK)"]).(defalia
1dc0	73 20 27 73 65 73 6d 61 6e 2d 2d 6c 6e 6b 2d 76 61 6c 75 65 20 23 5b 32 35 37 20 22 5c 33 30 30	s.'sesman--lnk-value.#[257."\300
1de0	01 38 5c 32 30 37 22 20 5b 32 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 4c 4e 4b 29 22 5d 29 0a 23	.8\207".[2].3."\n\n(fn.LNK)"]).#
1e00	40 36 30 20 4e 6f 72 6d 61 6c 20 68 6f 6f 6b 20 72 61 6e 20 61 66 74 65 72 20 65 76 65 72 79 20	@60.Normal.hook.ran.after.every.
1e20	73 74 61 74 65 2d 63 68 61 6e 67 69 6e 67 20 53 65 73 6d 61 6e 20 63 6f 6d 6d 61 6e 64 2e 1f 0a	state-changing.Sesman.command...
1e40	28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68	(defalias.'sesman-post-command-h
1e60	6f 6f 6b 20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 22 4e 6f 72 6d 61 6c 20 68 6f 6f 6b	ook.#[0."\300\207".["Normal.hook
1e80	20 72 61 6e 20 61 66 74 65 72 20 65 76 65 72 79 20 73 74 61 74 65 2d 63 68 61 6e 67 69 6e 67 20	.ran.after.every.state-changing.
1ea0	53 65 73 6d 61 6e 20 63 6f 6d 6d 61 6e 64 2e 22 5d 20 31 20 28 23 24 20 2e 20 37 36 38 34 29 5d	Sesman.command."].1.(#$...7684)]
1ec0	29 0a 23 40 32 35 20 53 74 61 72 74 20 61 20 53 65 73 6d 61 6e 20 73 65 73 73 69 6f 6e 2e 1f 0a	).#@25.Start.a.Sesman.session...
1ee0	28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 73 74 61 72 74 20 23 5b 30 20 22 5c 33 30	(defalias.'sesman-start.#[0."\30
1f00	30 20 5c 33 30 31 5c 33 30 32 02 5c 22 5c 32 31 30 5c 33 30 33 01 21 5c 33 30 34 5c 33 30 35 21	0.\301\302.\"\210\303.!\304\305!
1f20	5c 32 31 30 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 73 79 73 74 65 6d 20 6d 65 73 73 61 67	\210\207".[sesman--system.messag
1f40	65 20 22 53 74 61 72 74 69 6e 67 20 6e 65 77 20 25 73 20 73 65 73 73 69 6f 6e 20 2e 2e 2e 22 20	e."Starting.new.%s.session....".
1f60	73 65 73 6d 61 6e 2d 73 74 61 72 74 2d 73 65 73 73 69 6f 6e 20 72 75 6e 2d 68 6f 6f 6b 73 20 73	sesman-start-session.run-hooks.s
1f80	65 73 6d 61 6e 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 5d 20 34 20 28 23 24 20 2e	esman-post-command-hook].4.(#$..
1fa0	20 37 38 37 39 29 20 6e 69 6c 5d 29 0a 23 40 33 35 33 20 52 65 73 74 61 72 74 20 73 65 73 6d 61	.7879).nil]).#@353.Restart.sesma
1fc0	6e 20 73 65 73 73 69 6f 6e 2e 0a 57 68 65 6e 20 57 48 49 43 48 20 69 73 20 6e 69 6c 2c 20 72 65	n.session..When.WHICH.is.nil,.re
1fe0	73 74 61 72 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 65 73 73 69 6f 6e 3b 20 77 68 65 6e 20	start.the.current.session;.when.
2000	61 20 73 69 6e 67 6c 65 20 75 6e 69 76 65 72 73 61 6c 0a 61 72 67 75 6d 65 6e 74 20 6f 72 20 27	a.single.universal.argument.or.'
2020	6c 69 6e 6b 65 64 2c 20 72 65 73 74 61 72 74 20 61 6c 6c 20 6c 69 6e 6b 65 64 20 73 65 73 73 69	linked,.restart.all.linked.sessi
2040	6f 6e 73 3b 20 77 68 65 6e 20 61 20 64 6f 75 62 6c 65 20 75 6e 69 76 65 72 73 61 6c 0a 61 72 67	ons;.when.a.double.universal.arg
2060	75 6d 65 6e 74 2c 20 74 20 6f 72 20 27 61 6c 6c 2c 20 72 65 73 74 61 72 74 20 61 6c 6c 20 73 65	ument,.t.or.'all,.restart.all.se
2080	73 73 69 6f 6e 73 2e 20 46 6f 72 20 70 72 6f 67 72 61 6d 6d 61 74 69 63 20 75 73 65 2c 20 57 48	ssions..For.programmatic.use,.WH
20a0	49 43 48 20 63 61 6e 20 61 6c 73 6f 0a 62 65 20 61 20 73 65 73 73 69 6f 6e 20 6f 72 20 61 20 6e	ICH.can.also.be.a.session.or.a.n
20c0	61 6d 65 20 6f 66 20 74 68 65 20 73 65 73 73 69 6f 6e 2c 20 69 6e 20 77 68 69 63 68 20 63 61 73	ame.of.the.session,.in.which.cas
20e0	65 20 74 68 61 74 20 73 65 73 73 69 6f 6e 20 69 73 20 72 65 73 74 61 72 74 65 64 2e 0a 0a 28 66	e.that.session.is.restarted...(f
2100	6e 20 26 6f 70 74 69 6f 6e 61 6c 20 57 48 49 43 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73	n.&optional.WHICH)..(defalias.'s
2120	65 73 6d 61 6e 2d 72 65 73 74 61 72 74 20 23 5b 32 35 36 20 22 5c 33 30 30 20 5c 33 30 31 01 03	esman-restart.#[256."\300.\301..
2140	5c 22 5c 32 31 31 5c 32 30 34 11 00 5c 33 30 32 5c 33 30 33 03 5c 22 5c 32 30 32 5c 5c 00 5c 33	\"\211\204..\302\303.\"\202\\.\3
2160	30 34 5c 33 30 35 03 03 47 5c 33 30 36 55 5c 32 30 33 1f 00 5c 33 30 37 5c 32 30 32 20 00 5c 33	04\305..G\306U\203..\307\202..\3
2180	31 30 5c 33 31 31 5c 33 31 32 06 06 5c 22 24 5c 33 31 33 43 5c 33 31 34 5c 33 31 35 5c 33 31 36	10\311\312..\"$\313C\314\315\316
21a0	5c 33 31 37 5c 33 32 30 06 06 06 06 5c 22 5c 33 32 31 5c 22 5c 33 32 32 24 5c 32 31 36 01 5c 32	\317\320....\"\321\"\322$\216.\2
21c0	30 33 45 00 5c 32 31 31 5c 33 32 33 20 5c 32 34 30 5c 32 31 30 5c 33 30 32 5c 33 32 34 03 5c 22	03E.\211\323.\240\210\302\324.\"
21e0	5c 32 31 30 5c 33 32 35 5c 33 31 34 5c 33 32 36 5c 33 32 37 5c 33 31 37 5c 33 32 30 06 09 21 5c	\210\325\314\326\327\317\320..!\
2200	33 33 30 5c 22 5c 33 33 31 5c 33 33 32 25 04 5c 22 5c 32 31 30 29 5c 32 36 36 02 5c 33 33 33 5c	330\"\331\332%.\"\210)\266.\333\
2220	33 33 34 21 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 73 79 73 74 65 6d 20 73 65 73 6d 61 6e	334!\207".[sesman--system.sesman
2240	2d 2d 6f 6e 2d 43 2d 75 2d 75 2d 73 65 73 73 69 6f 6e 73 20 6d 65 73 73 61 67 65 20 22 4e 6f 20	--on-C-u-u-sessions.message."No.
2260	25 73 20 73 65 73 73 69 6f 6e 73 20 66 6f 75 6e 64 22 20 66 6f 72 6d 61 74 20 22 52 65 73 74 61	%s.sessions.found".format."Resta
2280	72 74 69 6e 67 20 25 73 20 25 73 20 25 73 22 20 31 20 22 73 65 73 73 69 6f 6e 22 20 22 73 65 73	rting.%s.%s.%s".1."session"."ses
22a0	73 69 6f 6e 73 22 20 6d 61 70 63 61 72 20 63 61 72 20 6e 69 6c 20 6d 61 6b 65 2d 62 79 74 65 2d	sions".mapcar.car.nil.make-byte-
22c0	63 6f 64 65 20 30 20 22 5c 33 30 30 5c 32 30 35 12 00 5c 33 30 31 5c 32 34 32 5c 32 30 33 0f 00	code.0."\300\205..\301\242\203..
22e0	5c 33 30 32 5c 33 30 33 5c 33 30 31 5c 32 34 32 5c 22 5c 32 30 37 5c 33 30 32 5c 33 30 34 21 5c	\302\303\301\242\"\207\302\304!\
2300	32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6d 65 73 73 61 67 65 20 23 31 3d	207".vconcat.vector.[message.#1=
2320	22 25 73 22 20 6e 69 6c 5d 20 33 20 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 23 31 23 20	"%s".nil].3.current-message.#1#.
2340	6d 61 70 63 20 32 35 37 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 30 37 22 20 5b 73 65 73 6d	mapc.257."\301\300.\"\207".[sesm
2360	61 6e 2d 72 65 73 74 61 72 74 2d 73 65 73 73 69 6f 6e 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 53	an-restart-session].4."\n\n(fn.S
2380	29 22 20 72 75 6e 2d 68 6f 6f 6b 73 20 73 65 73 6d 61 6e 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64	)".run-hooks.sesman-post-command
23a0	2d 68 6f 6f 6b 5d 20 31 32 20 28 23 24 20 2e 20 38 31 31 35 29 20 22 50 22 5d 29 0a 23 40 33 35	-hook].12.(#$...8115)."P"]).#@35
23c0	30 20 54 65 72 6d 69 6e 61 74 65 20 61 20 53 65 73 6d 61 6e 20 73 65 73 73 69 6f 6e 2e 0a 57 68	0.Terminate.a.Sesman.session..Wh
23e0	65 6e 20 57 48 49 43 48 20 69 73 20 6e 69 6c 2c 20 6b 69 6c 6c 20 6f 6e 6c 79 20 74 68 65 20 63	en.WHICH.is.nil,.kill.only.the.c
2400	75 72 72 65 6e 74 20 73 65 73 73 69 6f 6e 3b 20 77 68 65 6e 20 61 20 73 69 6e 67 6c 65 20 75 6e	urrent.session;.when.a.single.un
2420	69 76 65 72 73 61 6c 0a 61 72 67 75 6d 65 6e 74 20 6f 72 20 27 6c 69 6e 6b 65 64 2c 20 6b 69 6c	iversal.argument.or.'linked,.kil
2440	6c 20 61 6c 6c 20 6c 69 6e 6b 65 64 20 73 65 73 73 69 6f 6e 73 3b 20 77 68 65 6e 20 61 20 64 6f	l.all.linked.sessions;.when.a.do
2460	75 62 6c 65 20 75 6e 69 76 65 72 73 61 6c 20 61 72 67 75 6d 65 6e 74 2c 0a 74 20 6f 72 20 27 61	uble.universal.argument,.t.or.'a
2480	6c 6c 2c 20 6b 69 6c 6c 20 61 6c 6c 20 73 65 73 73 69 6f 6e 73 2e 20 46 6f 72 20 70 72 6f 67 72	ll,.kill.all.sessions..For.progr
24a0	61 6d 6d 61 74 69 63 20 75 73 65 2c 20 57 48 49 43 48 20 63 61 6e 20 61 6c 73 6f 20 62 65 20 61	ammatic.use,.WHICH.can.also.be.a
24c0	20 73 65 73 73 69 6f 6e 0a 6f 72 20 61 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 73 65 73 73 69 6f	.session.or.a.name.of.the.sessio
24e0	6e 2c 20 69 6e 20 77 68 69 63 68 20 63 61 73 65 20 74 68 61 74 20 73 65 73 73 69 6f 6e 20 69 73	n,.in.which.case.that.session.is
2500	20 6b 69 6c 6c 65 64 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 57 48 49 43 48 29 1f 0a	.killed...(fn.&optional.WHICH)..
2520	28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 71 75 69 74 20 23 5b 32 35 36 20 22 5c 33	(defalias.'sesman-quit.#[256."\3
2540	30 30 20 5c 33 30 31 01 03 5c 22 5c 32 31 31 5c 32 30 34 11 00 5c 33 30 32 5c 33 30 33 03 5c 22	00.\301..\"\211\204..\302\303.\"
2560	5c 32 30 32 5c 5c 00 5c 33 30 34 5c 33 30 35 03 03 47 5c 33 30 36 55 5c 32 30 33 1f 00 5c 33 30	\202\\.\304\305..G\306U\203..\30
2580	37 5c 32 30 32 20 00 5c 33 31 30 5c 33 31 31 5c 33 31 32 06 06 5c 22 24 5c 33 31 33 43 5c 33 31	7\202..\310\311\312..\"$\313C\31
25a0	34 5c 33 31 35 5c 33 31 36 5c 33 31 37 5c 33 32 30 06 06 06 06 5c 22 5c 33 32 31 5c 22 5c 33 32	4\315\316\317\320....\"\321\"\32
25c0	32 24 5c 32 31 36 01 5c 32 30 33 45 00 5c 32 31 31 5c 33 32 33 20 5c 32 34 30 5c 32 31 30 5c 33	2$\216.\203E.\211\323.\240\210\3
25e0	30 32 5c 33 32 34 03 5c 22 5c 32 31 30 5c 33 32 35 5c 33 31 34 5c 33 32 36 5c 33 32 37 5c 33 31	02\324.\"\210\325\314\326\327\31
2600	37 5c 33 32 30 06 09 21 5c 33 33 30 5c 22 5c 33 33 31 5c 33 33 32 25 04 5c 22 5c 32 31 30 29 5c	7\320..!\330\"\331\332%.\"\210)\
2620	32 36 36 02 5c 33 33 33 5c 33 33 34 21 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 73 79 73 74	266.\333\334!\207".[sesman--syst
2640	65 6d 20 73 65 73 6d 61 6e 2d 2d 6f 6e 2d 43 2d 75 2d 75 2d 73 65 73 73 69 6f 6e 73 20 6d 65 73	em.sesman--on-C-u-u-sessions.mes
2660	73 61 67 65 20 22 4e 6f 20 25 73 20 73 65 73 73 69 6f 6e 73 20 66 6f 75 6e 64 22 20 66 6f 72 6d	sage."No.%s.sessions.found".form
2680	61 74 20 22 4b 69 6c 6c 69 6e 67 20 25 73 20 25 73 20 25 73 22 20 31 20 22 73 65 73 73 69 6f 6e	at."Killing.%s.%s.%s".1."session
26a0	22 20 22 73 65 73 73 69 6f 6e 73 22 20 6d 61 70 63 61 72 20 63 61 72 20 6e 69 6c 20 6d 61 6b 65	"."sessions".mapcar.car.nil.make
26c0	2d 62 79 74 65 2d 63 6f 64 65 20 30 20 22 5c 33 30 30 5c 32 30 35 12 00 5c 33 30 31 5c 32 34 32	-byte-code.0."\300\205..\301\242
26e0	5c 32 30 33 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 31 5c 32 34 32 5c 22 5c 32 30 37 5c 33 30 32	\203..\302\303\301\242\"\207\302
2700	5c 33 30 34 21 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6d 65 73 73 61	\304!\207".vconcat.vector.[messa
2720	67 65 20 23 31 3d 22 25 73 22 20 6e 69 6c 5d 20 33 20 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67	ge.#1="%s".nil].3.current-messag
2740	65 20 23 31 23 20 6d 61 70 63 20 32 35 37 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 31 30 5c	e.#1#.mapc.257."\301\300.\"\210\
2760	33 30 32 5c 33 30 30 02 5c 22 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 75 6e 72 65 67 69 73 74	302\300.\"\207".[sesman-unregist
2780	65 72 20 73 65 73 6d 61 6e 2d 71 75 69 74 2d 73 65 73 73 69 6f 6e 5d 20 34 20 22 5c 6e 5c 6e 28	er.sesman-quit-session].4."\n\n(
27a0	66 6e 20 53 29 22 20 72 75 6e 2d 68 6f 6f 6b 73 20 73 65 73 6d 61 6e 2d 70 6f 73 74 2d 63 6f 6d	fn.S)".run-hooks.sesman-post-com
27c0	6d 61 6e 64 2d 68 6f 6f 6b 5d 20 31 32 20 28 23 24 20 2e 20 39 31 35 34 29 20 22 50 22 5d 29 0a	mand-hook].12.(#$...9154)."P"]).
27e0	23 40 31 30 30 20 44 69 73 70 6c 61 79 20 6c 69 6e 6b 65 64 20 73 65 73 73 69 6f 6e 73 20 69 6e	#@100.Display.linked.sessions.in
2800	66 6f 2e 0a 57 68 65 6e 20 41 4c 4c 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 73 68 6f 77 20 69 6e	fo..When.ALL.is.non-nil,.show.in
2820	66 6f 20 66 6f 72 20 61 6c 6c 20 73 65 73 73 69 6f 6e 73 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f	fo.for.all.sessions...(fn.&optio
2840	6e 61 6c 20 41 4c 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 69 6e 66 6f	nal.ALL)..(defalias.'sesman-info
2860	20 23 5b 32 35 36 20 22 5c 33 30 30 20 5c 33 30 31 43 02 5c 32 30 33 0f 00 5c 33 30 32 02 5c 33	.#[256."\300.\301C.\203..\302.\3
2880	30 33 5c 22 5c 32 30 32 12 00 5c 33 30 34 02 21 5c 32 31 31 5c 32 30 33 30 00 5c 33 30 35 5c 33	03\"\202..\304.!\211\2030.\305\3
28a0	30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 06 09 06 09 06 09 23 5c 33 31	06\307\310\311\312\313......#\31
28c0	34 5c 22 5c 33 31 35 5c 33 31 36 25 03 5c 33 31 37 23 21 5c 32 30 32 3e 00 5c 33 30 35 5c 33 32	4\"\315\316%.\317#!\202>.\305\32
28e0	30 04 06 06 5c 32 30 33 3c 00 5c 33 32 31 5c 32 30 32 3d 00 5c 33 32 32 23 5c 32 30 37 22 20 5b	0...\203<.\321\202=.\322#\207".[
2900	73 65 73 6d 61 6e 2d 2d 73 79 73 74 65 6d 20 31 20 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 73	sesman--system.1.sesman-sessions
2920	20 74 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 65 64 2d 73 65 73 73 69 6f 6e 73 20 6d 65 73 73 61 67	.t.sesman-linked-sessions.messag
2940	65 20 6d 61 70 63 6f 6e 63 61 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22	e.mapconcat.make-byte-code.257."
2960	5c 33 30 32 47 5c 33 30 33 56 5c 32 30 33 20 00 5c 33 30 34 5c 33 30 30 02 5c 22 5c 32 30 33 1c	\302G\303V\203..\304\300.\"\203.
2980	00 5c 33 30 35 5c 33 30 36 5c 33 30 31 5c 32 34 32 5c 22 5c 33 30 31 5c 32 31 31 5c 32 34 32 54	.\305\306\301\242\"\301\211\242T
29a0	5c 32 34 30 5c 32 31 30 5c 32 30 32 21 00 5c 33 30 37 5c 32 30 32 21 00 5c 33 31 30 5c 33 31 31	\240\210\202!.\307\202!.\310\311
29c0	5c 33 30 30 03 03 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 31 20 73	\300..#\207".vconcat.vector.[1.s
29e0	65 73 6d 61 6e 2d 72 65 6c 65 76 61 6e 74 2d 73 65 73 73 69 6f 6e 2d 70 20 66 6f 72 6d 61 74 20	esman-relevant-session-p.format.
2a00	22 25 64 20 22 20 22 20 20 22 20 23 31 3d 22 22 20 73 65 73 6d 61 6e 2d 2d 66 6f 72 6d 61 74 2d	"%d."."..".#1="".sesman--format-
2a20	73 65 73 73 69 6f 6e 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 53 29 22 20 22 5c 6e 22 20 22	session].6."\n\n(fn.SES)"."\n"."
2a40	4e 6f 20 25 73 20 25 73 73 65 73 73 69 6f 6e 73 22 20 23 31 23 20 22 6c 69 6e 6b 65 64 20 22 5d	No.%s.%ssessions".#1#."linked."]
2a60	20 31 34 20 28 23 24 20 2e 20 31 30 32 31 34 29 20 22 50 22 5d 29 0a 23 40 31 36 36 20 41 73 6b	.14.(#$...10214)."P"]).#@166.Ask
2a80	20 66 6f 72 20 53 45 53 53 49 4f 4e 20 61 6e 64 20 6c 69 6e 6b 20 77 69 74 68 20 42 55 46 46 45	.for.SESSION.and.link.with.BUFFE
2aa0	52 2e 0a 42 55 46 46 45 52 20 64 65 66 61 75 6c 74 73 20 74 6f 20 63 75 72 72 65 6e 74 20 62 75	R..BUFFER.defaults.to.current.bu
2ac0	66 66 65 72 2e 20 4f 6e 20 75 6e 69 76 65 72 73 61 6c 20 61 72 67 75 6d 65 6e 74 2c 20 6f 72 20	ffer..On.universal.argument,.or.
2ae0	69 66 20 42 55 46 46 45 52 20 69 73 20 27 61 73 6b 2c 0a 61 73 6b 20 66 6f 72 20 62 75 66 66 65	if.BUFFER.is.'ask,.ask.for.buffe
2b00	72 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 42 55 46 46 45 52 20 53 45 53 53 49 4f 4e	r...(fn.&optional.BUFFER.SESSION
2b20	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 6c 69 6e 6b 2d 77 69 74 68 2d 62	)..(defalias.'sesman-link-with-b
2b40	75 66 66 65 72 20 23 5b 35 31 32 20 22 01 5c 33 30 30 3d 5c 32 30 34 5c 66 00 01 5c 33 30 31 5c	uffer.#[512.".\300=\204\f..\301\
2b60	32 33 32 5c 32 30 33 25 00 5c 33 30 32 20 5c 33 30 33 5c 33 30 34 70 5c 33 30 35 5c 33 30 36 5c	232\203%.\302.\303\304p\305\306\
2b80	33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 06 09 21 5c 33 31 33 5c 22 5c 33 31 34 5c 33 31 35	307\310\311\312..!\313\"\314\315
2ba0	25 24 5c 32 36 32 01 5c 32 30 32 2a 00 01 5c 32 30 36 2a 00 70 5c 33 31 36 02 5c 33 31 37 03 23	%$\262.\202*..\206*.p\316.\317.#
2bc0	5c 32 30 37 22 20 5b 61 73 6b 20 28 34 29 20 73 65 73 6d 61 6e 2d 2d 73 79 73 74 65 6d 20 72 65	\207".[ask.(4).sesman--system.re
2be0	61 64 2d 62 75 66 66 65 72 20 22 4c 69 6e 6b 20 62 75 66 66 65 72 3a 20 22 20 74 20 6d 61 6b 65	ad-buffer."Link.buffer:.".t.make
2c00	2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 41 21 5c 32 33 32 5c	-byte-code.257."\300\301.A!\232\
2c20	32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 73 65 73 6d 61 6e 2d 2d 73 79 73	207".vconcat.vector.[sesman--sys
2c40	74 65 6d 2d 69 6e 2d 62 75 66 66 65 72 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 42 55 46 2d 43 4f	tem-in-buffer].4."\n\n(fn.BUF-CO
2c60	4e 53 29 22 20 73 65 73 6d 61 6e 2d 2d 6c 69 6e 6b 2d 73 65 73 73 69 6f 6e 2d 69 6e 74 65 72 61	NS)".sesman--link-session-intera
2c80	63 74 69 76 65 6c 79 20 62 75 66 66 65 72 5d 20 31 33 20 28 23 24 20 2e 20 31 30 38 37 37 29 20	ctively.buffer].13.(#$...10877).
2ca0	22 50 22 5d 29 0a 23 40 31 36 32 20 41 73 6b 20 66 6f 72 20 53 45 53 53 49 4f 4e 20 61 6e 64 20	"P"]).#@162.Ask.for.SESSION.and.
2cc0	6c 69 6e 6b 20 77 69 74 68 20 44 49 52 2e 0a 44 49 52 20 64 65 66 61 75 6c 74 73 20 74 6f 20 60	link.with.DIR..DIR.defaults.to.`
2ce0	64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 27 2e 20 4f 6e 20 75 6e 69 76 65 72 73 61 6c	default-directory'..On.universal
2d00	20 61 72 67 75 6d 65 6e 74 2c 20 6f 72 20 69 66 20 44 49 52 20 69 73 20 27 61 73 6b 2c 0a 61 73	.argument,.or.if.DIR.is.'ask,.as
2d20	6b 20 66 6f 72 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20	k.for.directory...(fn.&optional.
2d40	44 49 52 20 53 45 53 53 49 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d	DIR.SESSION)..(defalias.'sesman-
2d60	6c 69 6e 6b 2d 77 69 74 68 2d 64 69 72 65 63 74 6f 72 79 20 23 5b 35 31 32 20 22 01 5c 33 30 31	link-with-directory.#[512.".\301
2d80	3d 5c 32 30 34 5c 66 00 01 5c 33 30 32 5c 32 33 32 5c 32 30 33 12 00 5c 33 30 33 5c 33 30 34 21	=\204\f..\302\232\203..\303\304!
2da0	5c 32 30 32 17 00 01 5c 32 30 36 17 00 08 5c 33 30 35 02 5c 33 30 36 03 23 5c 32 30 37 22 20 5b	\202...\206...\305.\306.#\207".[
2dc0	64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 61 73 6b 20 28 34 29 20 72 65 61 64 2d 64	default-directory.ask.(4).read-d
2de0	69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 22 4c 69 6e 6b 20 64 69 72 65 63 74 6f 72 79 3a 20 22	irectory-name."Link.directory:."
2e00	20 73 65 73 6d 61 6e 2d 2d 6c 69 6e 6b 2d 73 65 73 73 69 6f 6e 2d 69 6e 74 65 72 61 63 74 69 76	.sesman--link-session-interactiv
2e20	65 6c 79 20 64 69 72 65 63 74 6f 72 79 5d 20 37 20 28 23 24 20 2e 20 31 31 34 33 36 29 20 22 50	ely.directory].7.(#$...11436)."P
2e40	22 5d 29 0a 23 40 32 31 37 20 41 73 6b 20 66 6f 72 20 53 45 53 53 49 4f 4e 20 61 6e 64 20 6c 69	"]).#@217.Ask.for.SESSION.and.li
2e60	6e 6b 20 77 69 74 68 20 50 52 4f 4a 45 43 54 2e 0a 50 52 4f 4a 45 43 54 20 64 65 66 61 75 6c 74	nk.with.PROJECT..PROJECT.default
2e80	73 20 74 6f 20 63 75 72 72 65 6e 74 20 70 72 6f 6a 65 63 74 2e 20 4f 6e 20 75 6e 69 76 65 72 73	s.to.current.project..On.univers
2ea0	61 6c 20 61 72 67 75 6d 65 6e 74 2c 20 6f 72 20 69 66 20 50 52 4f 4a 45 43 54 20 69 73 0a 27 61	al.argument,.or.if.PROJECT.is.'a
2ec0	73 6b 2c 20 61 73 6b 20 66 6f 72 20 74 68 65 20 70 72 6f 6a 65 63 74 2e 20 53 45 53 53 49 4f 4e	sk,.ask.for.the.project..SESSION
2ee0	20 64 65 66 61 75 6c 74 73 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 65 73 73 69 6f 6e	.defaults.to.the.current.session
2f00	2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 50 52 4f 4a 45 43 54 20 53 45 53 53 49 4f 4e	...(fn.&optional.PROJECT.SESSION
2f20	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 6c 69 6e 6b 2d 77 69 74 68 2d 70	)..(defalias.'sesman-link-with-p
2f40	72 6f 6a 65 63 74 20 23 5b 35 31 32 20 22 5c 33 30 30 20 5c 33 30 31 03 5c 33 30 32 3d 5c 32 30	roject.#[512."\300.\301.\302=\20
2f60	34 0f 00 03 5c 33 30 33 5c 32 33 32 5c 32 30 33 18 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 04 21	4...\303\232\203..\304\305\306.!
2f80	5c 22 5c 32 30 32 1f 00 03 5c 32 30 36 1f 00 5c 33 30 36 02 21 21 5c 33 30 37 03 5c 33 31 30 03	\"\202...\206..\306.!!\307.\310.
2fa0	23 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 73 79 73 74 65 6d 20 65 78 70 61 6e 64 2d 66 69	#\207".[sesman--system.expand-fi
2fc0	6c 65 2d 6e 61 6d 65 20 61 73 6b 20 28 34 29 20 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e	le-name.ask.(4).read-directory-n
2fe0	61 6d 65 20 22 50 72 6f 6a 65 63 74 3a 20 22 20 73 65 73 6d 61 6e 2d 70 72 6f 6a 65 63 74 20 73	ame."Project:.".sesman-project.s
3000	65 73 6d 61 6e 2d 2d 6c 69 6e 6b 2d 73 65 73 73 69 6f 6e 2d 69 6e 74 65 72 61 63 74 69 76 65 6c	esman--link-session-interactivel
3020	79 20 70 72 6f 6a 65 63 74 5d 20 38 20 28 23 24 20 2e 20 31 31 38 35 30 29 20 22 50 22 5d 29 0a	y.project].8.(#$...11850)."P"]).
3040	23 40 32 35 38 20 41 73 6b 20 66 6f 72 20 53 45 53 53 49 4f 4e 20 61 6e 64 20 6c 69 6e 6b 20 77	#@258.Ask.for.SESSION.and.link.w
3060	69 74 68 20 74 68 65 20 6c 65 61 73 74 20 73 70 65 63 69 66 69 63 20 63 6f 6e 74 65 78 74 20 61	ith.the.least.specific.context.a
3080	76 61 69 6c 61 62 6c 65 2e 0a 4e 6f 72 6d 61 6c 6c 79 20 74 68 65 20 6c 65 61 73 74 20 73 70 65	vailable..Normally.the.least.spe
30a0	63 69 66 69 63 20 63 6f 6e 74 65 78 74 20 69 73 20 74 68 65 20 70 72 6f 6a 65 63 74 2e 20 49 66	cific.context.is.the.project..If
30c0	20 6e 6f 74 20 69 6e 20 61 20 70 72 6f 6a 65 63 74 2c 20 6c 69 6e 6b 0a 77 69 74 68 20 74 68 65	.not.in.a.project,.link.with.the
30e0	20 60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 27 2e 20 49 66 20 60 64 65 66 61 75 6c	.`default-directory'..If.`defaul
3100	74 2d 64 69 72 65 63 74 6f 72 79 27 20 69 73 20 6e 69 6c 2c 20 6c 69 6e 6b 20 77 69 74 68 20 63	t-directory'.is.nil,.link.with.c
3120	75 72 72 65 6e 74 0a 62 75 66 66 65 72 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 53 45	urrent.buffer...(fn.&optional.SE
3140	53 53 49 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 6c 69 6e 6b 2d 77	SSION)..(defalias.'sesman-link-w
3160	69 74 68 2d 6c 65 61 73 74 2d 73 70 65 63 69 66 69 63 20 23 5b 32 35 36 20 22 5c 33 30 30 01 5c	ith-least-specific.#[256."\300.\
3180	33 30 31 5c 32 31 31 23 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 6c 69 6e 6b 2d 73 65 73 73	301\211#\207".[sesman--link-sess
31a0	69 6f 6e 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 6e 69 6c 5d 20 35 20 28 23 24 20 2e 20 31	ion-interactively.nil].5.(#$...1
31c0	32 33 35 38 29 20 22 50 22 5d 29 0a 23 40 34 34 20 42 72 65 61 6b 20 61 6e 79 20 6f 66 20 74 68	2358)."P"]).#@44.Break.any.of.th
31e0	65 20 70 72 65 76 69 6f 75 73 6c 79 20 63 72 65 61 74 65 64 20 6c 69 6e 6b 73 2e 1f 0a 28 64 65	e.previously.created.links...(de
3200	66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 75 6e 6c 69 6e 6b 20 23 5b 30 20 22 5c 33 30 30 20	falias.'sesman-unlink.#[0."\300.
3220	5c 33 30 31 01 21 5c 32 30 36 5c 66 00 5c 33 30 32 5c 33 30 33 02 5c 22 5c 33 30 34 5c 33 30 35	\301.!\206\f.\302\303.\"\304\305
3240	5c 33 30 36 5c 33 30 37 04 5c 33 31 30 23 5c 22 5c 32 36 36 03 5c 33 31 31 5c 33 31 32 21 5c 32	\306\307.\310#\"\266.\311\312!\2
3260	30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 73 79 73 74 65 6d 20 73 65 73 6d 61 6e 2d 63 75 72 72 65	07".[sesman--system.sesman-curre
3280	6e 74 2d 6c 69 6e 6b 73 20 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 20 25 73 20 6c 69 6e 6b 73	nt-links.user-error."No.%s.links
32a0	20 66 6f 75 6e 64 22 20 6d 61 70 63 20 73 65 73 6d 61 6e 2d 2d 75 6e 6c 69 6e 6b 20 73 65 73 6d	.found".mapc.sesman--unlink.sesm
32c0	61 6e 2d 2d 61 73 6b 2d 66 6f 72 2d 6c 69 6e 6b 20 22 55 6e 6c 69 6e 6b 3a 20 22 20 61 73 6b 2d	an--ask-for-link."Unlink:.".ask-
32e0	61 6c 6c 20 72 75 6e 2d 68 6f 6f 6b 73 20 73 65 73 6d 61 6e 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e	all.run-hooks.sesman-post-comman
3300	64 2d 68 6f 6f 6b 5d 20 38 20 28 23 24 20 2e 20 31 32 37 35 33 29 20 6e 69 6c 5d 29 0a 23 40 33	d-hook].8.(#$...12753).nil]).#@3
3320	35 20 53 65 73 73 69 6f 6e 20 6d 61 6e 61 67 65 6d 65 6e 74 20 70 72 65 66 69 78 20 6b 65 79 6d	5.Session.management.prefix.keym
3340	61 70 2e 1f 0a 28 64 65 66 76 61 72 20 73 65 73 6d 61 6e 2d 6d 61 70 20 28 62 79 74 65 2d 63 6f	ap...(defvar.sesman-map.(byte-co
3360	64 65 20 22 5c 33 30 31 18 5c 33 30 32 5c 33 30 30 21 5c 32 31 30 5c 33 30 33 08 5c 33 30 34 5c	de."\301.\302\300!\210\303.\304\
3380	33 30 35 23 5c 32 31 30 5c 33 30 33 08 5c 33 30 36 5c 33 30 35 23 5c 32 31 30 5c 33 30 33 08 5c	305#\210\303.\306\305#\210\303.\
33a0	33 30 37 5c 33 31 30 23 5c 32 31 30 5c 33 30 33 08 5c 33 31 31 5c 33 31 30 23 5c 32 31 30 5c 33	307\310#\210\303.\311\310#\210\3
33c0	30 33 08 5c 33 31 32 5c 33 31 33 23 5c 32 31 30 5c 33 30 33 08 5c 33 31 34 5c 33 31 33 23 5c 32	03.\312\313#\210\303.\314\313#\2
33e0	31 30 5c 33 30 33 08 5c 33 31 35 5c 33 31 36 23 5c 32 31 30 5c 33 30 33 08 5c 33 31 37 5c 33 31	10\303.\315\316#\210\303.\317\31
3400	36 23 5c 32 31 30 5c 33 30 33 08 5c 33 32 30 5c 33 32 31 23 5c 32 31 30 5c 33 30 33 08 5c 33 32	6#\210\303.\320\321#\210\303.\32
3420	32 5c 33 32 31 23 5c 32 31 30 5c 33 30 33 08 5c 33 32 33 5c 33 32 34 23 5c 32 31 30 5c 33 30 33	2\321#\210\303.\323\324#\210\303
3440	08 5c 33 32 35 5c 33 32 34 23 5c 32 31 30 5c 33 30 33 08 5c 33 32 36 5c 33 32 37 23 5c 32 31 30	.\325\324#\210\303.\326\327#\210
3460	5c 33 30 33 08 5c 33 33 30 5c 33 32 37 23 5c 32 31 30 5c 33 30 33 08 5c 33 33 31 5c 33 33 32 23	\303.\330\327#\210\303.\331\332#
3480	5c 32 31 30 5c 33 30 33 08 5c 33 33 33 5c 33 33 32 23 5c 32 31 30 5c 33 30 33 08 5c 33 33 34 5c	\210\303.\333\332#\210\303.\334\
34a0	33 33 35 23 5c 32 31 30 5c 33 30 33 08 5c 33 33 36 5c 33 33 35 23 5c 32 31 30 5c 33 30 33 08 5c	335#\210\303.\336\335#\210\303.\
34c0	33 33 37 5c 33 34 30 23 5c 32 31 30 5c 33 30 33 08 5c 33 34 31 5c 33 34 30 23 5c 32 31 30 08 29	337\340#\210\303.\341\340#\210.)
34e0	5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 6d 61 70 20 6e 69 6c 20 64 65 66 69 6e 65 2d 70 72 65	\207".[sesman-map.nil.define-pre
3500	66 69 78 2d 63 6f 6d 6d 61 6e 64 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 09 22 20 73 65 73 6d 61	fix-command.define-key.".".sesma
3520	6e 2d 69 6e 66 6f 20 22 69 22 20 22 17 22 20 73 65 73 6d 61 6e 2d 62 72 6f 77 73 65 72 20 22 77	n-info."i".".".sesman-browser."w
3540	22 20 22 13 22 20 73 65 73 6d 61 6e 2d 73 74 61 72 74 20 22 73 22 20 22 12 22 20 73 65 73 6d 61	".".".sesman-start."s".".".sesma
3560	6e 2d 72 65 73 74 61 72 74 20 22 72 22 20 22 11 22 20 73 65 73 6d 61 6e 2d 71 75 69 74 20 22 71	n-restart."r".".".sesman-quit."q
3580	22 20 22 5c 66 22 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 2d 77 69 74 68 2d 6c 65 61 73 74 2d 73 70	"."\f".sesman-link-with-least-sp
35a0	65 63 69 66 69 63 20 22 6c 22 20 22 02 22 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 2d 77 69 74 68 2d	ecific."l".".".sesman-link-with-
35c0	62 75 66 66 65 72 20 22 62 22 20 22 04 22 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 2d 77 69 74 68 2d	buffer."b".".".sesman-link-with-
35e0	64 69 72 65 63 74 6f 72 79 20 22 64 22 20 22 10 22 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 2d 77 69	directory."d".".".sesman-link-wi
3600	74 68 2d 70 72 6f 6a 65 63 74 20 22 70 22 20 22 15 22 20 73 65 73 6d 61 6e 2d 75 6e 6c 69 6e 6b	th-project."p".".".sesman-unlink
3620	20 22 75 22 5d 20 34 29 20 28 23 24 20 2e 20 31 33 30 39 30 29 29 0a 23 40 31 34 20 53 65 73 6d	."u"].4).(#$...13090)).#@14.Sesm
3640	61 6e 20 4d 65 6e 75 2e 1f 0a 28 64 65 66 76 61 72 20 73 65 73 6d 61 6e 2d 6d 65 6e 75 20 27 28	an.Menu...(defvar.sesman-menu.'(
3660	22 53 65 73 6d 61 6e 22 20 5b 22 53 68 6f 77 20 53 65 73 73 69 6f 6e 20 49 6e 66 6f 22 20 73 65	"Sesman".["Show.Session.Info".se
3680	73 6d 61 6e 2d 69 6e 66 6f 5d 20 22 2d 2d 22 20 5b 22 53 74 61 72 74 22 20 73 65 73 6d 61 6e 2d	sman-info]."--".["Start".sesman-
36a0	73 74 61 72 74 5d 20 5b 22 52 65 73 74 61 72 74 22 20 73 65 73 6d 61 6e 2d 72 65 73 74 61 72 74	start].["Restart".sesman-restart
36c0	20 3a 61 63 74 69 76 65 20 28 73 65 73 6d 61 6e 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 5d 20 5b	.:active.(sesman-connected-p)].[
36e0	22 51 75 69 74 22 20 73 65 73 6d 61 6e 2d 71 75 69 74 20 3a 61 63 74 69 76 65 20 28 73 65 73 6d	"Quit".sesman-quit.:active.(sesm
3700	61 6e 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 5d 20 22 2d 2d 22 20 5b 22 4c 69 6e 6b 20 77 69 74	an-connected-p)]."--".["Link.wit
3720	68 20 42 75 66 66 65 72 22 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 2d 77 69 74 68 2d 62 75 66 66 65	h.Buffer".sesman-link-with-buffe
3740	72 20 3a 61 63 74 69 76 65 20 28 73 65 73 6d 61 6e 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 5d 20	r.:active.(sesman-connected-p)].
3760	5b 22 4c 69 6e 6b 20 77 69 74 68 20 44 69 72 65 63 74 6f 72 79 22 20 73 65 73 6d 61 6e 2d 6c 69	["Link.with.Directory".sesman-li
3780	6e 6b 2d 77 69 74 68 2d 64 69 72 65 63 74 6f 72 79 20 3a 61 63 74 69 76 65 20 28 73 65 73 6d 61	nk-with-directory.:active.(sesma
37a0	6e 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 5d 20 5b 22 4c 69 6e 6b 20 77 69 74 68 20 50 72 6f 6a	n-connected-p)].["Link.with.Proj
37c0	65 63 74 22 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 2d 77 69 74 68 2d 70 72 6f 6a 65 63 74 20 3a 61	ect".sesman-link-with-project.:a
37e0	63 74 69 76 65 20 28 73 65 73 6d 61 6e 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 5d 20 22 2d 2d 22	ctive.(sesman-connected-p)]."--"
3800	20 5b 22 55 6e 6c 69 6e 6b 22 20 73 65 73 6d 61 6e 2d 75 6e 6c 69 6e 6b 20 3a 61 63 74 69 76 65	.["Unlink".sesman-unlink.:active
3820	20 28 73 65 73 6d 61 6e 2d 63 6f 6e 6e 65 63 74 65 64 2d 70 29 5d 29 20 28 23 24 20 2e 20 31 33	.(sesman-connected-p)]).(#$...13
3840	38 38 34 29 29 0a 23 40 34 33 20 49 6e 73 74 61 6c 6c 20 60 73 65 73 6d 61 6e 2d 6d 65 6e 75 27	884)).#@43.Install.`sesman-menu'
3860	20 69 6e 74 6f 20 4d 41 50 2e 0a 0a 28 66 6e 20 4d 41 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	.into.MAP...(fn.MAP)..(defalias.
3880	27 73 65 73 6d 61 6e 2d 69 6e 73 74 61 6c 6c 2d 6d 65 6e 75 20 23 5b 32 35 37 20 22 5c 33 30 31	'sesman-install-menu.#[257."\301
38a0	5c 33 30 32 02 5c 33 30 30 5c 33 30 33 4e 08 24 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 6d 65	\302.\300\303N.$\207".[sesman-me
38c0	6e 75 20 65 61 73 79 2d 6d 65 6e 75 2d 64 6f 2d 64 65 66 69 6e 65 20 73 65 6d 61 6e 2d 6d 65 6e	nu.easy-menu-do-define.seman-men
38e0	75 2d 6f 70 65 6e 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 5d 20 36	u-open.variable-documentation].6
3900	20 28 23 24 20 2e 20 31 34 34 31 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	.(#$...14411)]).(byte-code."\300
3920	5c 33 30 31 5c 33 30 32 5c 33 30 31 5c 33 30 33 5c 33 30 34 23 5c 33 30 35 23 5c 32 31 30 5c 33	\301\302\301\303\304#\305#\210\3
3940	30 30 5c 33 30 36 5c 33 30 32 5c 33 30 36 5c 33 30 37 5c 33 30 34 23 5c 33 31 30 23 5c 32 31 30	00\306\302\306\307\304#\310#\210
3960	5c 33 30 30 5c 33 31 31 5c 33 30 32 5c 33 31 31 5c 33 31 32 5c 33 30 34 23 5c 33 31 33 23 5c 32	\300\311\302\311\312\304#\313#\2
3980	31 30 5c 33 31 34 5c 33 31 31 5c 33 30 34 5c 33 31 32 5c 33 30 34 5c 33 31 35 25 5c 32 31 30 5c	10\314\311\304\312\304\315%\210\
39a0	33 30 30 5c 33 31 36 5c 33 30 32 5c 33 31 36 5c 33 31 37 5c 33 30 34 23 5c 33 32 30 23 5c 32 31	300\316\302\316\317\304#\320#\21
39c0	30 5c 33 31 34 5c 33 31 36 5c 33 30 34 5c 33 31 37 5c 33 30 34 5c 33 32 31 25 5c 32 31 30 5c 33	0\314\316\304\317\304\321%\210\3
39e0	30 30 5c 33 32 32 5c 33 30 32 5c 33 32 32 5c 33 32 33 5c 33 30 34 23 5c 33 32 34 23 5c 32 31 30	00\322\302\322\323\304#\324#\210
3a00	5c 33 31 34 5c 33 32 32 5c 33 30 34 5c 33 32 33 5c 33 30 34 5c 33 32 35 25 5c 32 31 30 5c 33 30	\314\322\304\323\304\325%\210\30
3a20	30 5c 33 32 36 5c 33 30 32 5c 33 32 36 5c 33 32 37 5c 33 30 34 23 5c 33 33 30 23 5c 32 31 30 5c	0\326\302\326\327\304#\330#\210\
3a40	33 31 34 5c 33 32 36 5c 33 30 34 5c 33 32 37 5c 33 30 34 5c 33 33 31 25 5c 32 31 30 5c 33 30 30	314\326\304\327\304\331%\210\300
3a60	5c 33 33 32 5c 33 30 32 5c 33 33 32 5c 33 33 33 5c 33 30 34 23 5c 33 33 34 23 5c 32 31 30 5c 33	\332\302\332\333\304#\334#\210\3
3a80	31 34 5c 33 33 32 5c 33 30 34 5c 33 33 33 5c 33 30 34 5c 33 33 35 25 5c 32 30 37 22 20 5b 64 65	14\332\304\333\304\335%\207".[de
3aa0	66 61 6c 69 61 73 20 73 65 73 6d 61 6e 2d 73 74 61 72 74 2d 73 65 73 73 69 6f 6e 20 63 6c 2d 67	falias.sesman-start-session.cl-g
3ac0	65 6e 65 72 69 63 2d 64 65 66 69 6e 65 20 28 73 79 73 74 65 6d 29 20 6e 69 6c 20 22 53 74 61 72	eneric-define.(system).nil."Star
3ae0	74 20 61 6e 64 20 72 65 74 75 72 6e 20 53 59 53 54 45 4d 20 53 45 53 53 49 4f 4e 2e 5c 6e 5c 6e	t.and.return.SYSTEM.SESSION.\n\n
3b00	28 66 6e 20 53 59 53 54 45 4d 29 22 20 73 65 73 6d 61 6e 2d 71 75 69 74 2d 73 65 73 73 69 6f 6e	(fn.SYSTEM)".sesman-quit-session
3b20	20 28 73 79 73 74 65 6d 20 73 65 73 73 69 6f 6e 29 20 22 54 65 72 6d 69 6e 61 74 65 20 53 59 53	.(system.session)."Terminate.SYS
3b40	54 45 4d 20 53 45 53 53 49 4f 4e 2e 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 20 53 45 53 53 49	TEM.SESSION.\n\n(fn.SYSTEM.SESSI
3b60	4f 4e 29 22 20 73 65 73 6d 61 6e 2d 72 65 73 74 61 72 74 2d 73 65 73 73 69 6f 6e 20 28 73 79 73	ON)".sesman-restart-session.(sys
3b80	74 65 6d 20 73 65 73 73 69 6f 6e 29 20 22 52 65 73 74 61 72 74 20 53 59 53 54 45 4d 20 53 45 53	tem.session)."Restart.SYSTEM.SES
3ba0	53 49 4f 4e 2e 5c 6e 42 79 20 64 65 66 61 75 6c 74 2c 20 63 61 6c 6c 73 20 60 73 65 73 6d 61 6e	SION.\nBy.default,.calls.`sesman
3bc0	2d 71 75 69 74 2d 73 65 73 73 69 6f 6e 27 20 61 6e 64 20 74 68 65 6e 5c 6e 60 73 65 73 6d 61 6e	-quit-session'.and.then\n`sesman
3be0	2d 73 74 61 72 74 2d 73 65 73 73 69 6f 6e 27 2e 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 20 53	-start-session'.\n\n(fn.SYSTEM.S
3c00	45 53 53 49 4f 4e 29 22 20 63 6c 2d 67 65 6e 65 72 69 63 2d 64 65 66 69 6e 65 2d 6d 65 74 68 6f	ESSION)".cl-generic-define-metho
3c20	64 20 23 5b 35 31 34 20 22 5c 32 31 31 40 5c 33 30 30 03 03 5c 22 5c 32 31 30 5c 33 30 31 03 21	d.#[514."\211@\300..\"\210\301.!
3c40	5c 32 31 31 02 5c 32 34 30 5c 32 36 32 01 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 71 75 69 74	\211.\240\262.\207".[sesman-quit
3c60	2d 73 65 73 73 69 6f 6e 20 73 65 73 6d 61 6e 2d 73 74 61 72 74 2d 73 65 73 73 69 6f 6e 5d 20 36	-session.sesman-start-session].6
3c80	20 22 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 20 53 45 53 53 49 4f 4e 29 22 5d 20 73 65 73 6d	."\n\n(fn.SYSTEM.SESSION)"].sesm
3ca0	61 6e 2d 73 65 73 73 69 6f 6e 2d 69 6e 66 6f 20 28 5f 73 79 73 74 65 6d 20 73 65 73 73 69 6f 6e	an-session-info.(_system.session
3cc0	29 20 22 52 65 74 75 72 6e 20 61 20 70 6c 69 73 74 20 77 69 74 68 20 3a 6f 62 6a 65 63 74 73 20	)."Return.a.plist.with.:objects.
3ce0	6b 65 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 75 73 65 72 20 5c 22 76 69 73 69 62 6c 65 5c 22 20	key.containing.user.\"visible\".
3d00	6f 62 6a 65 63 74 73 2e 5c 6e 4f 70 74 69 6f 6e 61 6c 20 3a 73 74 72 69 6e 67 73 20 76 61 6c 75	objects.\nOptional.:strings.valu
3d20	65 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 20 72 65 70 72 65 73 65 6e 74 61	e.is.a.list.of.string.representa
3d40	74 69 6f 6e 73 20 6f 66 20 6f 62 6a 65 63 74 73 2e 20 4f 70 74 69 6f 6e 61 6c 5c 6e 3a 6d 61 70	tions.of.objects..Optional\n:map
3d60	20 6b 65 79 20 69 73 20 61 20 6c 6f 63 61 6c 20 6b 65 79 6d 61 70 20 74 6f 20 70 6c 61 63 65 20	.key.is.a.local.keymap.to.place.
3d80	6f 6e 20 65 76 65 72 79 20 6f 62 6a 65 63 74 20 69 6e 20 74 68 65 20 73 65 73 73 69 6f 6e 20 62	on.every.object.in.the.session.b
3da0	72 6f 77 73 65 72 2e 5c 6e 4f 70 74 69 6f 6e 61 6c 20 3a 62 75 66 66 65 72 73 20 69 73 20 61 20	rowser.\nOptional.:buffers.is.a.
3dc0	6c 69 73 74 20 6f 66 20 62 75 66 66 65 72 73 20 77 68 69 63 68 20 77 69 6c 6c 20 62 65 20 75 73	list.of.buffers.which.will.be.us
3de0	65 64 20 66 6f 72 20 6e 61 76 69 67 61 74 69 6f 6e 20 66 72 6f 6d 5c 6e 74 68 65 20 73 65 73 73	ed.for.navigation.from\nthe.sess
3e00	69 6f 6e 20 62 72 6f 77 73 65 72 2e 20 49 66 20 3a 62 75 66 66 65 72 73 20 69 73 20 6d 69 73 73	ion.browser..If.:buffers.is.miss
3e20	69 6e 67 2c 20 62 75 66 66 65 72 73 20 66 72 6f 6d 20 3a 6f 62 6a 65 63 74 73 20 61 72 65 20 75	ing,.buffers.from.:objects.are.u
3e40	73 65 64 5c 6e 69 6e 73 74 65 61 64 2e 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 20 53 45 53 53	sed\ninstead.\n\n(fn.SYSTEM.SESS
3e60	49 4f 4e 29 22 20 23 5b 35 31 34 20 22 5c 33 30 30 01 41 44 5c 32 30 37 22 20 5b 3a 6f 62 6a 65	ION)".#[514."\300.AD\207".[:obje
3e80	63 74 73 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 20 53 45 53 53 49 4f 4e 29 22	cts].4."\n\n(fn.SYSTEM.SESSION)"
3ea0	5d 20 73 65 73 6d 61 6e 2d 70 72 6f 6a 65 63 74 20 28 5f 73 79 73 74 65 6d 29 20 22 52 65 74 72	].sesman-project.(_system)."Retr
3ec0	69 65 76 65 20 70 72 6f 6a 65 63 74 20 72 6f 6f 74 20 66 6f 72 20 53 59 53 54 45 4d 20 69 6e 20	ieve.project.root.for.SYSTEM.in.
3ee0	64 69 72 65 63 74 6f 72 79 20 44 49 52 2e 5c 6e 44 49 52 20 64 65 66 61 75 6c 74 73 20 74 6f 20	directory.DIR.\nDIR.defaults.to.
3f00	60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 27 2e 20 52 65 74 75 72 6e 20 61 20 73 74	`default-directory'..Return.a.st
3f20	72 69 6e 67 20 6f 72 20 6e 69 6c 20 69 66 20 6e 6f 20 70 72 6f 6a 65 63 74 20 68 61 73 5c 6e 62	ring.or.nil.if.no.project.has\nb
3f40	65 65 6e 20 66 6f 75 6e 64 2e 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 29 22 20 23 5b 32 35 37	een.found.\n\n(fn.SYSTEM)".#[257
3f60	20 22 5c 33 30 30 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 53 59 53	."\300\207".[nil].2."\n\n(fn.SYS
3f80	54 45 4d 29 22 5d 20 73 65 73 6d 61 6e 2d 6d 6f 72 65 2d 72 65 6c 65 76 61 6e 74 2d 70 20 28 5f	TEM)"].sesman-more-relevant-p.(_
3fa0	73 79 73 74 65 6d 20 73 65 73 73 69 6f 6e 31 20 73 65 73 73 69 6f 6e 32 29 20 22 52 65 74 75 72	system.session1.session2)."Retur
3fc0	6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 53 45 53 53 49 4f 4e 31 20 73 68 6f 75 6c 64 20 62 65 20	n.non-nil.if.SESSION1.should.be.
3fe0	73 6f 72 74 65 64 20 62 65 66 6f 72 65 20 53 45 53 53 49 4f 4e 32 2e 5c 6e 42 79 20 64 65 66 61	sorted.before.SESSION2.\nBy.defa
4000	75 6c 74 2c 20 73 6f 72 74 20 62 79 20 73 65 73 73 69 6f 6e 20 6e 61 6d 65 2e 20 53 79 73 74 65	ult,.sort.by.session.name..Syste
4020	6d 73 20 73 68 6f 75 6c 64 20 6f 76 65 72 77 72 69 74 65 20 74 68 69 73 20 6d 65 74 68 6f 64 20	ms.should.overwrite.this.method.
4040	74 6f 5c 6e 70 72 6f 76 69 64 65 20 61 20 6d 6f 72 65 20 6d 65 61 6e 69 6e 67 66 75 6c 20 6f 72	to\nprovide.a.more.meaningful.or
4060	64 65 72 69 6e 67 2e 20 49 66 20 79 6f 75 72 20 73 79 73 74 65 6d 20 6f 62 6a 65 63 74 73 20 61	dering..If.your.system.objects.a
4080	72 65 20 62 75 66 66 65 72 73 20 79 6f 75 20 63 61 6e 5c 6e 75 73 65 20 60 73 65 73 6d 61 6e 2d	re.buffers.you.can\nuse.`sesman-
40a0	6d 6f 72 65 2d 72 65 63 65 6e 74 2d 70 27 20 75 74 69 6c 69 74 79 20 69 6e 20 74 68 69 73 20 6d	more-recent-p'.utility.in.this.m
40c0	65 74 68 6f 64 2e 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 20 53 45 53 53 49 4f 4e 31 20 53 45	ethod.\n\n(fn.SYSTEM.SESSION1.SE
40e0	53 53 49 4f 4e 32 29 22 20 23 5b 37 37 31 20 22 5c 33 30 30 02 40 02 40 5c 22 3f 5c 32 30 37 22	SSION2)".#[771."\300.@.@\"?\207"
4100	20 5b 73 74 72 69 6e 67 2d 67 72 65 61 74 65 72 70 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 53 59	.[string-greaterp].6."\n\n(fn.SY
4120	53 54 45 4d 20 53 45 53 53 49 4f 4e 31 20 53 45 53 53 49 4f 4e 32 29 22 5d 20 73 65 73 6d 61 6e	STEM.SESSION1.SESSION2)"].sesman
4140	2d 63 6f 6e 74 65 78 74 2d 74 79 70 65 73 20 28 5f 73 79 73 74 65 6d 29 20 22 52 65 74 75 72 6e	-context-types.(_system)."Return
4160	20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6e 74 65 78 74 20 74 79 70 65 73 20 75 6e 64 65 72 73 74	.a.list.of.context.types.underst
4180	6f 6f 64 20 62 79 20 53 59 53 54 45 4d 2e 5c 6e 43 6f 6e 74 65 78 74 73 20 6d 75 73 74 20 62 65	ood.by.SYSTEM.\nContexts.must.be
41a0	20 73 6f 72 74 65 64 20 66 72 6f 6d 20 6d 6f 73 74 20 73 70 65 63 69 66 69 63 20 74 6f 20 6c 65	.sorted.from.most.specific.to.le
41c0	61 73 74 20 73 70 65 63 69 66 69 63 2e 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 29 22 20 23 5b	ast.specific.\n\n(fn.SYSTEM)".#[
41e0	32 35 37 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 28 62 75 66 66 65 72 20 64 69 72 65 63 74 6f 72	257."\300\207".[(buffer.director
4200	79 20 70 72 6f 6a 65 63 74 29 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 29 22 5d	y.project)].2."\n\n(fn.SYSTEM)"]
4220	5d 20 36 29 0a 23 40 38 39 20 52 65 74 72 69 65 76 65 20 53 59 53 54 45 4d 27 73 20 73 65 73 73	].6).#@89.Retrieve.SYSTEM's.sess
4240	69 6f 6e 20 77 69 74 68 20 53 45 53 53 49 4f 4e 2d 4e 41 4d 45 20 66 72 6f 6d 20 67 6c 6f 62 61	ion.with.SESSION-NAME.from.globa
4260	6c 20 68 61 73 68 2e 0a 0a 28 66 6e 20 53 59 53 54 45 4d 20 53 45 53 53 49 4f 4e 2d 4e 41 4d 45	l.hash...(fn.SYSTEM.SESSION-NAME
4280	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 20 23 5b 35	)..(defalias.'sesman-session.#[5
42a0	31 34 20 22 01 5c 32 30 36 06 00 5c 33 30 31 20 5c 33 30 32 01 03 42 08 5c 22 5c 32 30 37 22 20	14.".\206..\301.\302..B.\"\207".
42c0	5b 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 73 2d 68 61 73 68 6d 61 70 20 73 65 73 6d 61 6e 2d	[sesman-sessions-hashmap.sesman-
42e0	2d 73 79 73 74 65 6d 20 67 65 74 68 61 73 68 5d 20 36 20 28 23 24 20 2e 20 31 36 39 33 38 29 5d	-system.gethash].6.(#$...16938)]
4300	29 0a 23 40 31 39 30 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 73 65 73	).#@190.Return.a.list.of.all.ses
4320	73 69 6f 6e 73 20 72 65 67 69 73 74 65 72 65 64 20 77 69 74 68 20 53 59 53 54 45 4d 2e 0a 49 66	sions.registered.with.SYSTEM..If
4340	20 53 4f 52 54 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 73 65 73 73 69 6f 6e 73 20 61 72 65 20 73	.SORT.is.non-nil,.sessions.are.s
4360	6f 72 74 65 64 20 69 6e 20 74 68 65 20 72 65 6c 65 76 61 6e 63 65 20 6f 72 64 65 72 20 61 6e 64	orted.in.the.relevance.order.and
4380	0a 60 73 65 73 6d 61 6e 2d 6c 69 6e 6b 65 64 2d 73 65 73 73 69 6f 6e 73 27 20 6c 65 61 64 20 74	.`sesman-linked-sessions'.lead.t
43a0	68 65 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 53 59 53 54 45 4d 20 26 6f 70 74 69 6f 6e 61 6c 20 53	he.list...(fn.SYSTEM.&optional.S
43c0	4f 52 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 73	ORT)..(defalias.'sesman-sessions
43e0	20 23 5b 35 31 33 20 22 01 5c 32 30 36 06 00 5c 33 30 30 20 01 5c 32 30 33 18 00 5c 33 30 31 5c	.#[513.".\206..\300..\203..\301\
4400	33 30 32 5c 33 30 33 03 21 5c 33 30 34 04 5c 33 30 35 5c 22 5c 22 21 5c 32 30 32 1b 00 5c 33 30	302\303.!\304.\305\"\"!\202..\30
4420	34 01 21 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 73 79 73 74 65 6d 20 64 65 6c 65 74 65 2d	4.!\207".[sesman--system.delete-
4440	64 75 70 73 20 61 70 70 65 6e 64 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 65 64 2d 73 65 73 73 69 6f	dups.append.sesman-linked-sessio
4460	6e 73 20 73 65 73 6d 61 6e 2d 2d 61 6c 6c 2d 73 79 73 74 65 6d 2d 73 65 73 73 69 6f 6e 73 20 74	ns.sesman--all-system-sessions.t
4480	5d 20 39 20 28 23 24 20 2e 20 31 37 31 36 30 29 5d 29 0a 23 40 32 30 34 20 52 65 74 75 72 6e 20	].9.(#$...17160)]).#@204.Return.
44a0	61 20 6c 69 73 74 20 6f 66 20 53 59 53 54 45 4d 20 73 65 73 73 69 6f 6e 73 20 6c 69 6e 6b 65 64	a.list.of.SYSTEM.sessions.linked
44c0	20 69 6e 20 63 75 72 72 65 6e 74 20 63 6f 6e 74 65 78 74 2e 0a 43 58 54 2d 54 59 50 45 53 20 69	.in.current.context..CXT-TYPES.i
44e0	73 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6e 74 65 78 74 20 74 79 70 65 73 20 74 6f 20 63 6f 6e	s.a.list.of.context.types.to.con
4500	73 69 64 65 72 2e 20 20 44 65 66 61 75 6c 74 73 20 74 6f 20 74 68 65 0a 6c 69 73 74 20 72 65 74	sider...Defaults.to.the.list.ret
4520	75 72 6e 65 64 20 66 72 6f 6d 20 60 73 65 73 6d 61 6e 2d 63 6f 6e 74 65 78 74 2d 74 79 70 65 73	urned.from.`sesman-context-types
4540	27 2e 0a 0a 28 66 6e 20 53 59 53 54 45 4d 20 26 6f 70 74 69 6f 6e 61 6c 20 43 58 54 2d 54 59 50	'...(fn.SYSTEM.&optional.CXT-TYP
4560	45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 6c 69 6e 6b 65 64 2d 73 65	ES)..(defalias.'sesman-linked-se
4580	73 73 69 6f 6e 73 20 23 5b 35 31 33 20 22 01 5c 32 30 36 06 00 5c 33 30 30 20 01 5c 32 30 36 0d	ssions.#[513.".\206..\300..\206.
45a0	00 5c 33 30 31 01 21 5c 33 30 32 20 5c 32 31 30 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36	.\301.!\302.\210\303\304\305\306
45c0	05 5c 33 30 37 06 06 23 5c 22 21 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 73 79 73 74 65 6d	.\307..#\"!\207".[sesman--system
45e0	20 73 65 73 6d 61 6e 2d 63 6f 6e 74 65 78 74 2d 74 79 70 65 73 20 73 65 73 6d 61 6e 2d 2d 63 6c	.sesman-context-types.sesman--cl
4600	65 61 72 2d 6c 69 6e 6b 73 20 64 65 6c 65 74 65 2d 64 75 70 73 20 6d 61 70 63 61 72 20 23 5b 32	ear-links.delete-dups.mapcar.#[2
4620	35 37 20 22 5c 33 30 31 01 40 08 5c 22 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 73 65 73 73 69	57."\301.@.\"\207".[sesman-sessi
4640	6f 6e 73 2d 68 61 73 68 6d 61 70 20 67 65 74 68 61 73 68 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20	ons-hashmap.gethash].4."\n\n(fn.
4660	41 53 53 4f 43 29 22 5d 20 73 65 73 6d 61 6e 2d 63 75 72 72 65 6e 74 2d 6c 69 6e 6b 73 20 6e 69	ASSOC)"].sesman-current-links.ni
4680	6c 5d 20 31 31 20 28 23 24 20 2e 20 31 37 35 36 31 29 5d 29 0a 23 40 38 30 20 52 65 74 75 72 6e	l].11.(#$...17561)]).#@80.Return
46a0	20 74 20 69 66 20 74 68 65 72 65 20 69 73 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 73 65 73 73	.t.if.there.is.at.least.one.sess
46c0	69 6f 6e 20 72 65 67 69 73 74 65 72 65 64 20 77 69 74 68 20 53 59 53 54 45 4d 2e 0a 0a 28 66 6e	ion.registered.with.SYSTEM...(fn
46e0	20 53 59 53 54 45 4d 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 68 61 73 2d	.SYSTEM)..(defalias.'sesman-has-
4700	73 65 73 73 69 6f 6e 73 2d 70 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 36 06 00 5c 33 30 31	sessions-p.#[257."\211\206..\301
4720	20 5c 33 30 32 43 5c 33 30 33 31 5c 22 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33	.\302C\3031\".\304\305\306\307\3
4740	31 30 5c 33 31 31 06 07 06 07 5c 22 5c 33 31 32 5c 22 5c 33 31 33 5c 33 31 34 25 08 5c 22 30 5c	10\311....\"\312\"\313\314%.\"0\
4760	32 30 32 26 00 5c 32 31 30 5c 32 30 32 27 00 5c 32 31 30 5c 32 31 31 5c 32 34 32 5c 32 30 37 22	202&.\210\202'.\210\211\242\207"
4780	20 5b 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 73 2d 68 61 73 68 6d 61 70 20 73 65 73 6d 61 6e	.[sesman-sessions-hashmap.sesman
47a0	2d 2d 73 79 73 74 65 6d 20 6e 69 6c 20 28 65 72 72 6f 72 29 20 6d 61 70 68 61 73 68 20 6d 61 6b	--system.nil.(error).maphash.mak
47c0	65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 01 40 5c 33 30 30 3d 5c 32 30 35 0f 00 5c 33	e-byte-code.514.".@\300=\205..\3
47e0	30 31 5c 33 30 32 5c 32 34 30 5c 32 31 30 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 22 5c 32 30 37	01\302\240\210\303\304\305\"\207
4800	22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 74 20 74 68 72 6f 77 20 66 6f 75 6e 64 20	".vconcat.vector.[t.throw.found.
4820	6e 69 6c 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 4b 20 5f 29 22 5d 20 31 31 20 28 23 24 20 2e 20	nil].5."\n\n(fn.K._)"].11.(#$...
4840	31 38 30 37 34 29 5d 29 0a 28 64 65 66 76 61 72 20 73 65 73 6d 61 6e 2d 2d 73 65 6c 65 63 74 2d	18074)]).(defvar.sesman--select-
4860	73 65 73 73 69 6f 6e 2d 68 69 73 74 6f 72 79 20 6e 69 6c 29 0a 23 40 33 34 33 20 41 73 6b 20 66	session-history.nil).#@343.Ask.f
4880	6f 72 20 61 20 53 59 53 54 45 4d 20 73 65 73 73 69 6f 6e 20 77 69 74 68 20 50 52 4f 4d 50 54 2e	or.a.SYSTEM.session.with.PROMPT.
48a0	0a 53 45 53 53 49 4f 4e 53 20 64 65 66 61 75 6c 74 73 20 74 6f 20 76 61 6c 75 65 20 72 65 74 75	.SESSIONS.defaults.to.value.retu
48c0	72 6e 65 64 20 66 72 6f 6d 20 60 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 73 27 2e 20 20 49 66	rned.from.`sesman-sessions'...If
48e0	0a 41 53 4b 2d 4e 45 57 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 6f 66 66 65 72 20 2a 6e 65 77 2a	.ASK-NEW.is.non-nil,.offer.*new*
4900	20 6f 70 74 69 6f 6e 20 74 6f 20 73 74 61 72 74 20 61 20 6e 65 77 20 73 65 73 73 69 6f 6e 2e 20	.option.to.start.a.new.session..
4920	20 49 66 0a 41 53 4b 2d 41 4c 4c 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 6f 66 66 65 72 20 2a 61 6c	.If.ASK-ALL.is.non-nil.offer.*al
4940	6c 2a 20 6f 70 74 69 6f 6e 2e 20 20 49 66 20 41 53 4b 2d 41 4c 4c 20 69 73 20 6e 6f 6e 2d 6e 69	l*.option...If.ASK-ALL.is.non-ni
4960	6c 2c 0a 72 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 73 65 73 73 69 6f 6e 73 2c 20 6f 74	l,.return.a.list.of.sessions,.ot
4980	68 65 72 77 69 73 65 20 61 20 73 69 6e 67 6c 65 20 73 65 73 73 69 6f 6e 2e 0a 0a 28 66 6e 20 53	herwise.a.single.session...(fn.S
49a0	59 53 54 45 4d 20 50 52 4f 4d 50 54 20 26 6f 70 74 69 6f 6e 61 6c 20 53 45 53 53 49 4f 4e 53 20	YSTEM.PROMPT.&optional.SESSIONS.
49c0	41 53 4b 2d 4e 45 57 20 41 53 4b 2d 41 4c 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73	ASK-NEW.ASK-ALL)..(defalias.'ses
49e0	6d 61 6e 2d 61 73 6b 2d 66 6f 72 2d 73 65 73 73 69 6f 6e 20 23 5b 31 32 38 32 20 22 02 5c 32 30	man-ask-for-session.#[1282.".\20
4a00	36 07 00 5c 33 30 30 05 21 5c 33 30 31 5c 33 30 32 02 5c 22 5c 32 31 31 47 04 5c 32 30 34 1f 00	6..\300.!\301\302.\"\211G.\204..
4a20	5c 32 31 31 5c 33 30 33 55 5c 32 30 33 1f 00 5c 33 30 34 5c 33 30 35 06 09 5c 22 5c 32 30 32 34	\211\303U\203..\304\305..\"\2024
4a40	00 5c 33 30 36 02 06 06 5c 32 30 35 27 00 5c 33 30 37 06 06 5c 32 30 35 33 00 03 5c 33 31 30 56	.\306...\205'.\307..\2053..\310V
4a60	5c 32 30 35 33 00 5c 33 31 31 23 5c 32 31 31 40 40 5c 33 31 32 06 09 5c 33 30 31 5c 33 31 33 05	\2053.\311#\211@@\312..\301\313.
4a80	5c 22 5c 33 31 34 5c 33 31 35 5c 33 31 34 5c 33 31 36 06 07 26 07 5c 32 31 31 5c 33 31 37 5c 32	\"\314\315\314\316..&.\211\317\2
4aa0	33 30 5c 32 30 33 66 00 5c 33 32 30 06 0b 21 5c 33 32 31 5c 33 32 32 02 40 5c 22 5c 32 31 30 06	30\203f.\320..!\321\322.@\"\210.
4ac0	07 5c 32 30 33 60 00 5c 32 31 31 43 5c 32 30 32 61 00 5c 32 31 31 5c 32 36 32 01 5c 32 30 32 5c	.\203`.\211C\202a.\211\262.\202\
4ae0	32 30 37 00 5c 32 31 31 5c 33 32 33 5c 32 33 30 5c 32 30 33 70 00 05 5c 32 30 32 5c 32 30 37 00	207.\211\323\230\203p..\202\207.
4b00	5c 33 32 34 01 04 5c 22 41 5c 33 32 34 01 06 08 5c 22 06 08 5c 32 30 33 5c 32 30 34 00 5c 32 31	\324..\"A\324...\"..\203\204.\21
4b20	31 43 5c 32 30 32 5c 32 30 35 00 5c 32 31 31 5c 32 36 36 5c 32 30 32 5c 32 30 37 22 20 5b 73 65	1C\202\205.\211\266\202\207".[se
4b40	73 6d 61 6e 2d 73 65 73 73 69 6f 6e 73 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 32 31 31	sman-sessions.mapcar.#[257."\211
4b60	40 5c 32 31 31 39 5c 32 30 33 0d 00 5c 33 30 30 01 21 5c 32 30 32 0e 00 5c 32 31 31 01 42 5c 32	@\2119\203..\300.!\202..\211.B\2
4b80	30 37 22 20 5b 73 79 6d 62 6f 6c 2d 6e 61 6d 65 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 53 29 22	07".[symbol-name].4."\n\n(fn.S)"
4ba0	5d 20 30 20 65 72 72 6f 72 20 22 4e 6f 20 25 73 20 73 65 73 73 69 6f 6e 73 20 66 6f 75 6e 64 22	].0.error."No.%s.sessions.found"
4bc0	20 61 70 70 65 6e 64 20 28 28 22 2a 6e 65 77 2a 22 29 29 20 31 20 28 28 22 2a 61 6c 6c 2a 22 29	.append.(("*new*")).1.(("*all*")
4be0	29 20 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 63 61 72 20 6e 69 6c 20 74 20 73 65 73 6d	).completing-read.car.nil.t.sesm
4c00	61 6e 2d 2d 73 65 6c 65 63 74 2d 73 65 73 73 69 6f 6e 2d 68 69 73 74 6f 72 79 20 22 2a 6e 65 77	an--select-session-history."*new
4c20	2a 22 20 73 65 73 6d 61 6e 2d 73 74 61 72 74 2d 73 65 73 73 69 6f 6e 20 6d 65 73 73 61 67 65 20	*".sesman-start-session.message.
4c40	22 53 74 61 72 74 65 64 20 25 73 22 20 22 2a 61 6c 6c 2a 22 20 61 73 73 6f 63 5d 20 31 38 20 28	"Started.%s"."*all*".assoc].18.(
4c60	23 24 20 2e 20 31 38 35 35 35 29 5d 29 0a 23 40 31 32 38 20 47 65 74 20 74 68 65 20 6d 6f 73 74	#$...18555)]).#@128.Get.the.most
4c80	20 72 65 6c 65 76 61 6e 74 20 6c 69 6e 6b 65 64 20 73 65 73 73 69 6f 6e 20 66 6f 72 20 53 59 53	.relevant.linked.session.for.SYS
4ca0	54 45 4d 2e 0a 43 58 54 2d 54 59 50 45 53 20 69 73 20 61 73 20 69 6e 20 60 73 65 73 6d 61 6e 2d	TEM..CXT-TYPES.is.as.in.`sesman-
4cc0	6c 69 6e 6b 65 64 2d 73 65 73 73 69 6f 6e 73 27 2e 0a 0a 28 66 6e 20 53 59 53 54 45 4d 20 26 6f	linked-sessions'...(fn.SYSTEM.&o
4ce0	70 74 69 6f 6e 61 6c 20 43 58 54 2d 54 59 50 45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73	ptional.CXT-TYPES)..(defalias.'s
4d00	65 73 6d 61 6e 2d 63 75 72 72 65 6e 74 2d 73 65 73 73 69 6f 6e 20 23 5b 35 31 33 20 22 5c 33 30	esman-current-session.#[513."\30
4d20	30 02 02 5c 22 40 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 6c 69 6e 6b 65 64 2d 73 65 73 73 69	0..\"@\207".[sesman-linked-sessi
4d40	6f 6e 73 5d 20 35 20 28 23 24 20 2e 20 31 39 35 37 32 29 5d 29 0a 23 40 31 35 32 20 47 65 74 20	ons].5.(#$...19572)]).#@152.Get.
4d60	74 68 65 20 6d 6f 73 74 20 72 65 6c 65 76 61 6e 74 20 6c 69 6e 6b 65 64 20 73 65 73 73 69 6f 6e	the.most.relevant.linked.session
4d80	20 66 6f 72 20 53 59 53 54 45 4d 20 6f 72 20 74 68 72 6f 77 20 69 66 20 6e 6f 6e 65 20 65 78 69	.for.SYSTEM.or.throw.if.none.exi
4da0	73 74 73 2e 0a 43 58 54 2d 54 59 50 45 53 20 69 73 20 61 73 20 69 6e 20 60 73 65 73 6d 61 6e 2d	sts..CXT-TYPES.is.as.in.`sesman-
4dc0	6c 69 6e 6b 65 64 2d 73 65 73 73 69 6f 6e 73 27 2e 0a 0a 28 66 6e 20 53 59 53 54 45 4d 20 26 6f	linked-sessions'...(fn.SYSTEM.&o
4de0	70 74 69 6f 6e 61 6c 20 43 58 54 2d 54 59 50 45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73	ptional.CXT-TYPES)..(defalias.'s
4e00	65 73 6d 61 6e 2d 65 6e 73 75 72 65 2d 73 65 73 73 69 6f 6e 20 23 5b 35 31 33 20 22 5c 33 30 30	esman-ensure-session.#[513."\300
4e20	02 02 5c 22 40 5c 32 30 36 5c 66 00 5c 33 30 31 5c 33 30 32 03 5c 22 5c 32 30 37 22 20 5b 73 65	..\"@\206\f.\301\302.\"\207".[se
4e40	73 6d 61 6e 2d 6c 69 6e 6b 65 64 2d 73 65 73 73 69 6f 6e 73 20 75 73 65 72 2d 65 72 72 6f 72 20	sman-linked-sessions.user-error.
4e60	22 4e 6f 20 6c 69 6e 6b 65 64 20 25 73 20 73 65 73 73 69 6f 6e 73 22 5d 20 35 20 28 23 24 20 2e	"No.linked.%s.sessions"].5.(#$..
4e80	20 31 39 38 30 34 29 5d 29 0a 28 64 65 66 76 61 72 20 73 65 73 6d 61 6e 2d 2d 63 78 74 2d 61 62	.19804)]).(defvar.sesman--cxt-ab
4ea0	62 72 65 76 73 20 27 28 62 75 66 66 65 72 20 22 62 75 66 22 20 70 72 6f 6a 65 63 74 20 22 70 72	brevs.'(buffer."buf".project."pr
4ec0	6f 6a 22 20 64 69 72 65 63 74 6f 72 79 20 22 64 69 72 22 29 29 0a 28 64 65 66 61 6c 69 61 73 20	oj".directory."dir")).(defalias.
4ee0	27 73 65 73 6d 61 6e 2d 2d 66 6f 72 6d 61 74 2d 63 6f 6e 74 65 78 74 20 23 5b 37 37 31 20 22 5c	'sesman--format-context.#[771."\
4f00	33 30 31 5c 33 30 32 5c 33 30 33 05 5c 22 21 5c 33 30 34 5c 33 30 35 08 06 06 5c 22 5c 32 30 36	301\302\303.\"!\304\305...\"\206
4f20	11 00 04 4a 5c 33 30 36 5c 33 30 37 04 21 5c 32 30 33 1c 00 03 5c 32 30 32 1d 00 5c 33 31 30 05	...J\306\307.!\203...\202..\310.
4f40	44 23 5c 32 31 31 5c 33 30 34 5c 33 30 32 5c 33 31 31 06 07 5c 22 5c 33 30 36 06 06 23 50 5c 32	D#\211\304\302\311..\"\306..#P\2
4f60	30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 63 78 74 2d 61 62 62 72 65 76 73 20 69 6e 74 65 72 6e 20	07".[sesman--cxt-abbrevs.intern.
4f80	66 6f 72 6d 61 74 20 22 73 65 73 6d 61 6e 2d 25 73 2d 66 61 63 65 22 20 70 72 6f 70 65 72 74 69	format."sesman-%s-face".properti
4fa0	7a 65 20 70 6c 69 73 74 2d 67 65 74 20 66 61 63 65 20 66 61 63 65 70 20 66 6f 6e 74 2d 6c 6f 63	ze.plist-get.face.facep.font-loc
4fc0	6b 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 66 61 63 65 20 22 28 25 73 29 22 5d 20 31 30 20	k-function-name-face."(%s)"].10.
4fe0	22 5c 6e 5c 6e 28 66 6e 20 43 58 54 2d 54 59 50 45 20 43 58 54 2d 56 41 4c 20 45 58 54 52 41 2d	"\n\n(fn.CXT-TYPE.CXT-VAL.EXTRA-
5000	46 41 43 45 29 22 5d 29 0a 23 40 34 36 38 20 52 65 74 72 69 65 76 65 20 61 6c 6c 20 6c 69 6e 6b	FACE)"]).#@468.Retrieve.all.link
5020	73 20 66 6f 72 20 53 59 53 54 45 4d 27 73 20 53 45 53 53 49 4f 4e 20 66 72 6f 6d 20 74 68 65 20	s.for.SYSTEM's.SESSION.from.the.
5040	67 6c 6f 62 61 6c 20 60 73 65 73 6d 61 6e 2d 6c 69 6e 6b 73 2d 61 6c 69 73 74 27 2e 0a 52 65 74	global.`sesman-links-alist'..Ret
5060	75 72 6e 20 61 6e 20 61 6c 69 73 74 20 6f 66 20 74 68 65 20 66 6f 72 6d 0a 0a 20 20 20 28 28 62	urn.an.alist.of.the.form.....((b
5080	75 66 66 65 72 20 62 75 66 66 65 72 73 2e 2e 29 0a 20 20 20 20 28 64 69 72 65 63 74 6f 72 79 20	uffer.buffers..).....(directory.
50a0	64 69 72 65 63 74 6f 72 69 65 73 2e 2e 2e 29 0a 20 20 20 20 28 70 72 6f 6a 65 63 74 20 70 72 6f	directories...).....(project.pro
50c0	6a 65 63 74 73 2e 2e 2e 29 29 2e 0a 0a 57 68 65 6e 20 60 43 55 52 52 45 4e 54 2d 46 49 52 53 54	jects...))...When.`CURRENT-FIRST
50e0	27 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 20 63 6f 6e 73 20 6f 66 20 74 77 6f 20 6c 69 73 74	'.is.non-nil,.a.cons.of.two.list
5100	73 20 61 73 20 61 62 6f 76 65 20 69 73 20 72 65 74 75 72 6e 65 64 20 77 69 74 68 0a 63 61 72 20	s.as.above.is.returned.with.car.
5120	63 6f 6e 74 61 69 6e 69 6e 67 20 6c 69 6e 6b 73 20 72 65 6c 65 76 61 6e 74 20 69 6e 20 63 75 72	containing.links.relevant.in.cur
5140	72 65 6e 74 20 63 6f 6e 74 65 78 74 20 61 6e 64 20 63 64 72 20 61 6c 6c 20 6f 74 68 65 72 20 6c	rent.context.and.cdr.all.other.l
5160	69 6e 6b 73 2e 20 49 66 0a 41 53 2d 53 54 52 49 4e 47 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 72	inks..If.AS-STRING.is.non-nil,.r
5180	65 74 75 72 6e 20 61 6e 20 65 71 75 69 76 61 6c 65 6e 74 20 73 74 72 69 6e 67 20 72 65 70 72 65	eturn.an.equivalent.string.repre
51a0	73 65 6e 74 61 74 69 6f 6e 2e 0a 0a 28 66 6e 20 53 59 53 54 45 4d 20 53 45 53 53 49 4f 4e 20 26	sentation...(fn.SYSTEM.SESSION.&
51c0	6f 70 74 69 6f 6e 61 6c 20 43 55 52 52 45 4e 54 2d 46 49 52 53 54 20 41 53 2d 53 54 52 49 4e 47	optional.CURRENT-FIRST.AS-STRING
51e0	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 67 72 6f 75 70 65 64 2d 6c 69 6e	)..(defalias.'sesman-grouped-lin
5200	6b 73 20 23 5b 31 30 32 36 20 22 03 5c 32 30 36 06 00 5c 33 30 31 20 03 5c 32 30 36 0d 00 5c 33	ks.#[1026.".\206..\301..\206..\3
5220	30 32 01 21 5c 32 31 31 40 5c 33 30 33 5c 33 30 34 04 5c 33 30 35 5c 33 30 36 06 07 06 06 5c 22	02.!\211@\303\304.\305\306....\"
5240	08 5c 22 5c 22 21 5c 33 30 37 5c 33 31 30 5c 33 31 31 06 06 21 5c 22 06 06 5c 32 30 35 2c 00 5c	.\"\"!\307\310\311..!\"..\205,.\
5260	33 31 32 01 21 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 33 31 36 5c 33 31 37 5c 33 32 30 06 0d 06	312.!\313\314\315\316\317\320...
5280	08 06 08 23 5c 33 32 31 5c 22 5c 33 32 32 5c 33 32 33 25 04 5c 22 5c 32 31 30 5c 33 32 34 5c 33	...#\321\"\322\323%.\"\210\324\3
52a0	32 35 5c 33 30 37 5c 33 32 36 05 5c 22 5c 22 5c 33 32 34 5c 33 32 35 5c 33 30 37 5c 33 32 37 05	25\307\326.\"\"\324\325\307\327.
52c0	5c 22 5c 22 06 08 5c 32 30 33 77 00 5c 33 33 30 01 5c 32 30 33 6d 00 5c 33 33 31 01 03 5c 33 33	\"\"..\203w.\330.\203m.\331..\33
52e0	32 23 03 5c 32 30 35 63 00 5c 33 33 33 5c 33 33 31 03 06 06 5c 33 33 32 23 51 5c 32 30 32 72 00	2#.\205c.\333\331...\332#Q\202r.
5300	5c 33 33 31 01 04 5c 33 33 32 23 5c 32 36 32 01 5c 32 30 32 5c 32 30 33 00 06 09 5c 32 30 33 5c	\331..\332#\262.\202\203...\203\
5320	32 30 32 00 5c 32 31 31 02 42 5c 32 30 32 5c 32 30 33 00 01 5c 32 36 36 5c 32 30 32 5c 32 30 37	202.\211.B\202\203..\266\202\207
5340	22 20 5b 73 65 73 6d 61 6e 2d 6c 69 6e 6b 73 2d 61 6c 69 73 74 20 73 65 73 6d 61 6e 2d 2d 73 79	".[sesman-links-alist.sesman--sy
5360	73 74 65 6d 20 73 65 73 6d 61 6e 2d 63 75 72 72 65 6e 74 2d 73 65 73 73 69 6f 6e 20 72 65 76 65	stem.sesman-current-session.reve
5380	72 73 65 20 73 65 73 6d 61 6e 2d 2d 73 6f 72 74 2d 6c 69 6e 6b 73 20 73 65 71 2d 66 69 6c 74 65	rse.sesman--sort-links.seq-filte
53a0	72 20 73 65 73 6d 61 6e 2d 2d 6c 69 6e 6b 2d 6c 6f 6f 6b 75 70 2d 66 6e 20 6d 61 70 63 61 72 20	r.sesman--link-lookup-fn.mapcar.
53c0	23 5b 32 35 37 20 22 5c 32 31 31 43 5c 32 30 37 22 20 23 31 3d 5b 5d 20 32 20 22 5c 6e 5c 6e 28	#[257."\211C\207".#1=[].2."\n\n(
53e0	66 6e 20 58 29 22 5d 20 73 65 73 6d 61 6e 2d 63 6f 6e 74 65 78 74 2d 74 79 70 65 73 20 63 6f 70	fn.X)"].sesman-context-types.cop
5400	79 2d 61 6c 69 73 74 20 6d 61 70 63 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20	y-alist.mapc.make-byte-code.257.
5420	22 5c 33 30 33 01 21 5c 33 30 30 5c 32 30 33 14 00 5c 33 30 34 02 21 5c 32 30 33 14 00 5c 33 30	"\303.!\300\203..\304.!\203..\30
5440	35 01 5c 33 30 32 5c 22 5c 32 30 32 18 00 5c 33 30 35 01 5c 33 30 31 5c 22 5c 32 31 31 5c 32 30	5.\302\"\202..\305.\301\"\211\20
5460	35 5c 22 00 5c 32 31 31 03 02 41 42 5c 32 34 31 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65	5\".\211..AB\241\207".vconcat.ve
5480	63 74 6f 72 20 5b 73 65 73 6d 61 6e 2d 2d 6c 6e 6b 2d 63 6f 6e 74 65 78 74 2d 74 79 70 65 20 73	ctor.[sesman--lnk-context-type.s
54a0	65 73 6d 61 6e 2d 72 65 6c 65 76 61 6e 74 2d 6c 69 6e 6b 2d 70 20 61 73 73 6f 63 5d 20 36 20 22	esman-relevant-link-p.assoc].6."
54c0	5c 6e 5c 6e 28 66 6e 20 4c 49 4e 4b 29 22 20 64 65 6c 71 20 6e 69 6c 20 23 5b 32 35 37 20 22 5c	\n\n(fn.LINK)".delq.nil.#[257."\
54e0	32 31 31 41 5c 32 30 35 06 00 5c 32 31 31 5c 32 30 37 22 20 23 31 23 20 32 20 22 5c 6e 5c 6e 28	211A\205..\211\207".#1#.2."\n\n(
5500	66 6e 20 45 4c 29 22 5d 20 23 5b 32 35 37 20 22 5c 32 31 31 41 5c 32 30 35 06 00 5c 32 31 31 5c	fn.EL)"].#[257."\211A\205..\211\
5520	32 30 37 22 20 23 31 23 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 29 22 5d 20 23 5b 32 35 37 20	207".#1#.2."\n\n(fn.EL)"].#[257.
5540	22 5c 32 31 31 40 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 06	"\211@\300\301\302\303\304\305..
5560	21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 03 41 5c 33 31 31 23 5c 32 30 37 22 20 5b 6d 61	!\306\"\307\310%.A\311#\207".[ma
5580	70 63 6f 6e 63 61 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31	pconcat.make-byte-code.257."\301
55a0	5c 33 30 32 02 21 21 5c 33 30 33 5c 33 30 30 02 5c 33 30 34 23 5c 32 30 37 22 20 76 63 6f 6e 63	\302.!!\303\300.\304#\207".vconc
55c0	61 74 20 76 65 63 74 6f 72 20 5b 73 65 73 6d 61 6e 2d 2d 61 62 62 72 65 76 2d 70 61 74 68 2d 6d	at.vector.[sesman--abbrev-path-m
55e0	61 79 62 65 20 73 65 73 6d 61 6e 2d 2d 6c 6e 6b 2d 76 61 6c 75 65 20 73 65 73 6d 61 6e 2d 2d 66	aybe.sesman--lnk-value.sesman--f
5600	6f 72 6d 61 74 2d 63 6f 6e 74 65 78 74 20 69 74 61 6c 69 63 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e	ormat-context.italic].6."\n\n(fn
5620	20 4c 4e 4b 29 22 20 22 2c 20 22 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 54 59 50 45 44 2d 4c 49	.LNK)".",."].9."\n\n(fn.TYPED-LI
5640	4e 4b 53 29 22 5d 20 6d 61 70 63 6f 6e 63 61 74 20 22 2c 20 22 20 22 20 7c 20 22 5d 20 31 39 20	NKS)"].mapconcat.",.".".|."].19.
5660	28 23 24 20 2e 20 32 30 34 39 35 29 5d 29 0a 23 40 32 37 39 20 4c 69 6e 6b 20 53 59 53 54 45 4d	(#$...20495)]).#@279.Link.SYSTEM
5680	27 73 20 53 45 53 53 49 4f 4e 20 74 6f 20 63 6f 6e 74 65 78 74 20 67 69 76 65 20 62 79 20 43 58	's.SESSION.to.context.give.by.CX
56a0	54 2d 54 59 50 45 20 61 6e 64 20 43 58 54 2d 56 41 4c 2e 0a 49 66 20 43 58 54 2d 54 59 50 45 20	T-TYPE.and.CXT-VAL..If.CXT-TYPE.
56c0	69 73 20 6e 69 6c 2c 20 75 73 65 20 74 68 65 20 6c 65 61 73 74 20 73 70 65 63 69 66 69 63 20 74	is.nil,.use.the.least.specific.t
56e0	79 70 65 20 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 0a 63 6f 6e	ype.available.in.the.current.con
5700	74 65 78 74 2e 20 49 66 20 43 58 54 2d 54 59 50 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 6e	text..If.CXT-TYPE.is.non-nil,.an
5720	64 20 43 58 54 2d 56 41 4c 20 69 73 20 6e 6f 74 20 67 69 76 65 6e 2c 20 72 65 74 72 69 65 76 65	d.CXT-VAL.is.not.given,.retrieve
5740	20 69 74 20 77 69 74 68 0a 60 73 65 73 6d 61 6e 2d 63 6f 6e 74 65 78 74 27 2e 0a 0a 28 66 6e 20	.it.with.`sesman-context'...(fn.
5760	53 59 53 54 45 4d 20 53 45 53 53 49 4f 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 43 58 54 2d 54 59 50	SYSTEM.SESSION.&optional.CXT-TYP
5780	45 20 43 58 54 2d 56 41 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 6c 69	E.CXT-VAL)..(defalias.'sesman-li
57a0	6e 6b 2d 73 65 73 73 69 6f 6e 20 23 5b 31 30 32 36 20 22 02 5c 32 34 32 5c 32 30 36 08 00 5c 33	nk-session.#[1026.".\242\206..\3
57c0	30 32 5c 33 30 33 21 01 5c 32 30 36 2d 00 5c 33 30 34 03 5c 32 30 33 19 00 5c 33 30 35 04 06 07	02\303!.\206-.\304.\203..\305...
57e0	5c 22 5c 32 30 32 25 00 5c 33 30 36 06 06 21 5c 32 31 31 40 5c 32 36 32 05 5c 32 31 31 41 5c 32	\"\202%.\306..!\211@\262.\211A\2
5800	36 32 01 5c 32 30 36 2c 00 5c 33 30 32 5c 33 30 37 05 5c 22 21 05 02 42 5c 32 31 31 05 03 45 05	62.\206,.\302\307.\"!..B\211..E.
5820	08 5c 32 33 35 5c 32 30 33 4c 00 5c 32 31 31 5c 33 31 30 5c 33 31 31 06 5c 6e 5c 33 31 32 06 5c	.\235\203L.\211\310\311.\n\312.\
5840	6e 06 08 24 09 5c 22 42 11 5c 32 30 32 60 00 5c 33 31 33 5c 33 31 31 06 09 06 06 06 09 06 07 24	n..$.\"B.\202`.\313\311........$
5860	09 5c 22 5c 32 30 34 60 00 5c 32 31 31 09 42 11 5c 33 31 34 5c 33 31 35 21 5c 32 31 30 5c 32 30	.\"\204`.\211.B.\314\315!\210\20
5880	37 22 20 5b 73 65 73 6d 61 6e 2d 73 69 6e 67 6c 65 2d 6c 69 6e 6b 2d 63 6f 6e 74 65 78 74 2d 74	7".[sesman-single-link-context-t
58a0	79 70 65 73 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 73 2d 61 6c 69 73 74 20 65 72 72 6f 72 20 22 53	ypes.sesman-links-alist.error."S
58c0	45 53 53 49 4f 4e 20 6d 75 73 74 20 62 65 20 61 20 68 65 61 64 65 64 20 6c 69 73 74 22 20 73 65	ESSION.must.be.a.headed.list".se
58e0	73 6d 61 6e 2d 2d 65 78 70 61 6e 64 2d 70 61 74 68 2d 6d 61 79 62 65 20 73 65 73 6d 61 6e 2d 63	sman--expand-path-maybe.sesman-c
5900	6f 6e 74 65 78 74 20 73 65 73 6d 61 6e 2d 2d 6c 65 61 73 74 2d 73 70 65 63 69 66 69 63 2d 63 6f	ontext.sesman--least-specific-co
5920	6e 74 65 78 74 20 22 4e 6f 20 6c 6f 63 61 6c 20 63 6f 6e 74 65 78 74 20 6f 66 20 74 79 70 65 20	ntext."No.local.context.of.type.
5940	25 73 22 20 73 65 71 2d 72 65 6d 6f 76 65 20 73 65 73 6d 61 6e 2d 2d 6c 69 6e 6b 2d 6c 6f 6f 6b	%s".seq-remove.sesman--link-look
5960	75 70 2d 66 6e 20 6e 69 6c 20 73 65 71 2d 66 69 6c 74 65 72 20 72 75 6e 2d 68 6f 6f 6b 73 20 73	up-fn.nil.seq-filter.run-hooks.s
5980	65 73 6d 61 6e 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 5d 20 31 35 20 28 23 24 20	esman-post-command-hook].15.(#$.
59a0	2e 20 32 32 31 33 33 29 5d 29 0a 23 40 33 33 32 20 52 65 74 72 69 65 76 65 20 61 6c 6c 20 6c 69	..22133)]).#@332.Retrieve.all.li
59c0	6e 6b 73 20 66 6f 72 20 53 59 53 54 45 4d 2c 20 53 45 53 53 49 4f 4e 2d 4f 52 2d 4e 41 4d 45 20	nks.for.SYSTEM,.SESSION-OR-NAME.
59e0	61 6e 64 20 43 58 54 2d 54 59 50 45 53 2e 0a 53 45 53 53 49 4f 4e 2d 4f 52 2d 4e 41 4d 45 20 63	and.CXT-TYPES..SESSION-OR-NAME.c
5a00	61 6e 20 62 65 20 65 69 74 68 65 72 20 61 20 73 65 73 73 69 6f 6e 20 6f 72 20 61 20 6e 61 6d 65	an.be.either.a.session.or.a.name
5a20	20 6f 66 20 74 68 65 20 73 65 73 73 69 6f 6e 2e 20 49 66 20 53 4f 52 54 20 69 73 0a 6e 6f 6e 2d	.of.the.session..If.SORT.is.non-
5a40	6e 69 6c 20 6c 69 6e 6b 73 20 61 72 65 20 73 6f 72 74 65 64 20 69 6e 20 72 65 6c 65 76 61 6e 63	nil.links.are.sorted.in.relevanc
5a60	65 20 6f 72 64 65 72 20 61 6e 64 20 60 73 65 73 6d 61 6e 2d 63 75 72 72 65 6e 74 2d 6c 69 6e 6b	e.order.and.`sesman-current-link
5a80	73 27 20 6c 65 61 64 20 74 68 65 0a 6c 69 73 74 2c 20 6f 74 68 65 72 77 69 73 65 20 6c 69 6e 6b	s'.lead.the.list,.otherwise.link
5aa0	73 20 61 72 65 20 72 65 74 75 72 6e 65 64 20 69 6e 20 74 68 65 20 63 72 65 61 74 69 6f 6e 20 6f	s.are.returned.in.the.creation.o
5ac0	72 64 65 72 2e 0a 0a 28 66 6e 20 53 59 53 54 45 4d 20 26 6f 70 74 69 6f 6e 61 6c 20 53 45 53 53	rder...(fn.SYSTEM.&optional.SESS
5ae0	49 4f 4e 2d 4f 52 2d 4e 41 4d 45 20 43 58 54 2d 54 59 50 45 53 20 53 4f 52 54 29 1f 0a 28 64 65	ION-OR-NAME.CXT-TYPES.SORT)..(de
5b00	66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 6c 69 6e 6b 73 20 23 5b 31 30 32 35 20 22 02 3c 5c	falias.'sesman-links.#[1025.".<\
5b20	32 30 33 5c 6e 00 02 40 5c 32 30 32 0b 00 02 5c 33 30 31 05 02 05 23 02 5c 32 30 33 29 00 5c 33	203\n..@\202...\301...#.\203).\3
5b40	30 32 5c 33 30 33 5c 33 30 34 06 08 05 5c 22 5c 33 30 35 06 09 5c 33 30 36 06 06 08 5c 22 5c 22	02\303\304...\"\305..\306...\"\"
5b60	5c 22 21 5c 32 30 32 2d 00 5c 33 30 36 01 08 5c 22 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 6c	\"!\202-.\306..\"\207".[sesman-l
5b80	69 6e 6b 73 2d 61 6c 69 73 74 20 73 65 73 6d 61 6e 2d 2d 6c 69 6e 6b 2d 6c 6f 6f 6b 75 70 2d 66	inks-alist.sesman--link-lookup-f
5ba0	6e 20 64 65 6c 65 74 65 2d 64 75 70 73 20 61 70 70 65 6e 64 20 73 65 73 6d 61 6e 2d 63 75 72 72	n.delete-dups.append.sesman-curr
5bc0	65 6e 74 2d 6c 69 6e 6b 73 20 73 65 73 6d 61 6e 2d 2d 73 6f 72 74 2d 6c 69 6e 6b 73 20 73 65 71	ent-links.sesman--sort-links.seq
5be0	2d 66 69 6c 74 65 72 5d 20 31 34 20 28 23 24 20 2e 20 32 32 39 36 31 29 5d 29 0a 23 40 33 32 35	-filter].14.(#$...22961)]).#@325
5c00	20 52 65 74 72 69 65 76 65 20 61 6c 6c 20 61 63 74 69 76 65 20 6c 69 6e 6b 73 20 69 6e 20 63 75	.Retrieve.all.active.links.in.cu
5c20	72 72 65 6e 74 20 63 6f 6e 74 65 78 74 20 66 6f 72 20 53 59 53 54 45 4d 20 61 6e 64 20 53 45 53	rrent.context.for.SYSTEM.and.SES
5c40	53 49 4f 4e 2d 4f 52 2d 4e 41 4d 45 2e 0a 53 45 53 53 49 4f 4e 2d 4f 52 2d 4e 41 4d 45 20 63 61	SION-OR-NAME..SESSION-OR-NAME.ca
5c60	6e 20 62 65 20 65 69 74 68 65 72 20 61 20 73 65 73 73 69 6f 6e 20 6f 72 20 61 20 6e 61 6d 65 20	n.be.either.a.session.or.a.name.
5c80	6f 66 20 74 68 65 20 73 65 73 73 69 6f 6e 2e 20 43 58 54 2d 54 59 50 45 53 20 69 73 20 61 0a 6c	of.the.session..CXT-TYPES.is.a.l
5ca0	69 73 74 20 6f 66 20 63 6f 6e 74 65 78 74 20 74 79 70 65 73 20 74 6f 20 63 6f 6e 73 69 64 65 72	ist.of.context.types.to.consider
5cc0	2e 20 52 65 74 75 72 6e 65 64 20 6c 69 6e 6b 73 20 61 72 65 20 61 20 73 75 62 73 65 74 20 6f 66	..Returned.links.are.a.subset.of
5ce0	0a 60 73 65 73 6d 61 6e 2d 6c 69 6e 6b 73 2d 61 6c 69 73 74 27 20 73 6f 72 74 65 64 20 69 6e 20	.`sesman-links-alist'.sorted.in.
5d00	6f 72 64 65 72 20 6f 66 20 72 65 6c 65 76 61 6e 63 65 2e 0a 0a 28 66 6e 20 53 59 53 54 45 4d 20	order.of.relevance...(fn.SYSTEM.
5d20	26 6f 70 74 69 6f 6e 61 6c 20 53 45 53 53 49 4f 4e 2d 4f 52 2d 4e 41 4d 45 20 43 58 54 2d 54 59	&optional.SESSION-OR-NAME.CXT-TY
5d40	50 45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 63 75 72 72 65 6e 74 2d	PES)..(defalias.'sesman-current-
5d60	6c 69 6e 6b 73 20 23 5b 37 36 39 20 22 01 3c 5c 32 30 33 5c 6e 00 01 40 5c 32 30 32 0b 00 01 5c	links.#[769.".<\203\n..@\202...\
5d80	33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 09 06 07 5c 22 5c 33 30	300\301\302\303\304\305....\"\30
5da0	36 5c 22 5c 33 30 37 5c 33 31 30 25 03 5c 32 30 36 23 00 5c 33 31 31 06 06 21 5c 22 5c 32 30 37	6\"\307\310%.\206#.\311..!\"\207
5dc0	22 20 5b 73 65 71 2d 6d 61 70 63 61 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37	".[seq-mapcat.make-byte-code.257
5de0	20 22 5c 33 30 33 5c 33 30 30 5c 33 30 31 03 23 5c 33 30 34 5c 33 30 30 5c 33 30 35 5c 33 30 36	."\303\300\301.#\304\300\305\306
5e00	5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 06 09 06 09 5c 22 5c 33 31 33 5c 22 5c 33 31 34	\307\310\311\312....\"\313\"\314
5e20	5c 33 31 35 25 5c 6e 5c 22 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20	\315%\n\"\"\207".vconcat.vector.
5e40	5b 73 65 73 6d 61 6e 2d 6c 69 6e 6b 73 2d 61 6c 69 73 74 20 73 65 73 6d 61 6e 2d 2d 6c 69 6e 6b	[sesman-links-alist.sesman--link
5e60	2d 6c 6f 6f 6b 75 70 2d 66 6e 20 73 65 73 6d 61 6e 2d 2d 73 6f 72 74 2d 6c 69 6e 6b 73 20 73 65	-lookup-fn.sesman--sort-links.se
5e80	71 2d 66 69 6c 74 65 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30	q-filter.make-byte-code.257."\30
5ea0	31 01 21 5c 32 30 35 5c 66 00 5c 33 30 32 5c 33 30 30 5c 33 30 33 03 21 5c 22 5c 32 30 37 22 20	1.!\205\f.\302\300\303.!\"\207".
5ec0	76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 73 65 73 6d 61 6e 2d 72 65 6c 65 76 61 6e 74 2d	vconcat.vector.[sesman-relevant-
5ee0	63 6f 6e 74 65 78 74 2d 70 20 73 65 73 6d 61 6e 2d 2d 6c 6e 6b 2d 76 61 6c 75 65 5d 20 35 20 22	context-p.sesman--lnk-value].5."
5f00	5c 6e 5c 6e 28 66 6e 20 4c 29 22 5d 20 31 32 20 22 5c 6e 5c 6e 28 66 6e 20 43 58 54 2d 54 59 50	\n\n(fn.L)"].12."\n\n(fn.CXT-TYP
5f20	45 29 22 20 73 65 73 6d 61 6e 2d 63 6f 6e 74 65 78 74 2d 74 79 70 65 73 5d 20 31 32 20 28 23 24	E)".sesman-context-types].12.(#$
5f40	20 2e 20 32 33 35 35 33 29 5d 29 0a 23 40 31 34 39 20 52 65 74 75 72 6e 20 74 20 69 66 20 74 68	...23553)]).#@149.Return.t.if.th
5f60	65 72 65 20 69 73 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 6c 69 6e 6b 65 64 20 73 65 73 73 69	ere.is.at.least.one.linked.sessi
5f80	6f 6e 2e 0a 43 58 54 2d 54 59 50 45 53 20 64 65 66 61 75 6c 74 73 20 74 6f 20 60 73 65 73 6d 61	on..CXT-TYPES.defaults.to.`sesma
5fa0	6e 2d 63 6f 6e 74 65 78 74 2d 74 79 70 65 73 27 20 66 6f 72 20 63 75 72 72 65 6e 74 20 53 59 53	n-context-types'.for.current.SYS
5fc0	54 45 4d 2e 0a 0a 28 66 6e 20 53 59 53 54 45 4d 20 26 6f 70 74 69 6f 6e 61 6c 20 43 58 54 2d 54	TEM...(fn.SYSTEM.&optional.CXT-T
5fe0	59 50 45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 68 61 73 2d 6c 69 6e	YPES)..(defalias.'sesman-has-lin
6000	6b 73 2d 70 20 23 5b 35 31 33 20 22 5c 32 31 31 5c 32 30 36 07 00 5c 33 30 31 02 21 5c 33 30 32	ks-p.#[513."\211\206..\301.!\302
6020	43 5c 33 30 33 31 25 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31	C\3031%.\304\305\306\307\310\311
6040	06 09 06 08 06 08 23 5c 33 31 32 5c 22 5c 33 31 33 5c 33 31 34 25 08 5c 22 30 5c 32 30 32 29 00	......#\312\"\313\314%.\"0\202).
6060	5c 32 31 30 5c 32 30 32 2a 00 5c 32 31 30 5c 32 31 31 5c 32 34 32 5c 32 30 37 22 20 5b 73 65 73	\210\202*.\210\211\242\207".[ses
6080	6d 61 6e 2d 6c 69 6e 6b 73 2d 61 6c 69 73 74 20 73 65 73 6d 61 6e 2d 63 6f 6e 74 65 78 74 2d 74	man-links-alist.sesman-context-t
60a0	79 70 65 73 20 6e 69 6c 20 28 65 72 72 6f 72 29 20 6d 61 70 63 20 6d 61 6b 65 2d 62 79 74 65 2d	ypes.nil.(error).mapc.make-byte-
60c0	63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 5c 33 30 33 02 21 3d 5c 32 30 35 24 00 5c 33 30 34 01	code.257."\300\303.!=\205$.\304.
60e0	21 5c 32 31 31 5c 33 30 31 5c 32 33 35 5c 32 30 35 5c 22 00 5c 33 30 35 01 5c 33 30 36 04 21 5c	!\211\301\235\205\".\305.\306.!\
6100	22 5c 32 30 35 5c 22 00 5c 33 30 32 5c 33 30 37 5c 32 34 30 5c 32 31 30 5c 33 31 30 5c 33 31 31	"\205\".\302\307\240\210\310\311
6120	5c 33 31 32 5c 22 5c 32 36 32 01 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20	\312\"\262.\207".vconcat.vector.
6140	5b 73 65 73 6d 61 6e 2d 2d 6c 6e 6b 2d 73 79 73 74 65 6d 2d 6e 61 6d 65 20 73 65 73 6d 61 6e 2d	[sesman--lnk-system-name.sesman-
6160	2d 6c 6e 6b 2d 63 6f 6e 74 65 78 74 2d 74 79 70 65 20 73 65 73 6d 61 6e 2d 72 65 6c 65 76 61 6e	-lnk-context-type.sesman-relevan
6180	74 2d 63 6f 6e 74 65 78 74 2d 70 20 73 65 73 6d 61 6e 2d 2d 6c 6e 6b 2d 76 61 6c 75 65 20 74 20	t-context-p.sesman--lnk-value.t.
61a0	74 68 72 6f 77 20 66 6f 75 6e 64 20 6e 69 6c 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 4c 29 22 5d	throw.found.nil].6."\n\n(fn.L)"]
61c0	20 31 33 20 28 23 24 20 2e 20 32 34 34 30 32 29 5d 29 0a 23 40 33 37 37 20 52 65 67 69 73 74 65	.13.(#$...24402)]).#@377.Registe
61e0	72 20 53 45 53 53 49 4f 4e 20 69 6e 74 6f 20 60 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 73 2d	r.SESSION.into.`sesman-sessions-
6200	68 61 73 68 6d 61 70 27 20 61 6e 64 20 60 73 65 73 6d 61 6e 2d 6c 69 6e 6b 73 2d 61 6c 69 73 74	hashmap'.and.`sesman-links-alist
6220	27 2e 0a 53 59 53 54 45 4d 20 64 65 66 61 75 6c 74 73 20 74 6f 20 63 75 72 72 65 6e 74 20 73 79	'..SYSTEM.defaults.to.current.sy
6240	73 74 65 6d 2e 20 20 49 66 20 61 20 73 65 73 73 69 6f 6e 20 77 69 74 68 20 73 61 6d 65 20 6e 61	stem...If.a.session.with.same.na
6260	6d 65 20 69 73 20 61 6c 72 65 61 64 79 0a 72 65 67 69 73 74 65 72 65 64 20 69 6e 20 60 73 65 73	me.is.already.registered.in.`ses
6280	6d 61 6e 2d 73 65 73 73 69 6f 6e 73 2d 68 61 73 68 6d 61 70 27 2c 20 63 68 61 6e 67 65 20 74 68	man-sessions-hashmap',.change.th
62a0	65 20 6e 61 6d 65 20 62 79 20 61 70 70 65 6e 64 69 6e 67 20 22 23 31 22 2c 0a 22 23 32 22 20 2e	e.name.by.appending."#1",."#2"..
62c0	2e 2e 20 74 6f 20 74 68 65 20 6e 61 6d 65 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73	...to.the.name...This.function.s
62e0	68 6f 75 6c 64 20 62 65 20 63 61 6c 6c 65 64 20 62 79 20 73 79 73 74 65 6d 2d 73 70 65 63 69 66	hould.be.called.by.system-specif
6300	69 63 0a 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 6e 69 74 69 61 6c 69 7a 65 72 73 20 28 22 72 75 6e	ic.connection.initializers.("run
6320	2d 78 79 7a 22 2c 20 22 78 79 7a 2d 6a 61 63 6b 2d 69 6e 22 20 65 74 63 2e 29 2e 0a 0a 28 66 6e	-xyz",."xyz-jack-in".etc.)...(fn
6340	20 53 59 53 54 45 4d 20 53 45 53 53 49 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73	.SYSTEM.SESSION)..(defalias.'ses
6360	6d 61 6e 2d 72 65 67 69 73 74 65 72 20 23 5b 35 31 34 20 22 01 5c 32 30 36 06 00 5c 33 30 31 20	man-register.#[514.".\206..\301.
6380	01 40 02 40 5c 33 30 32 5c 33 30 33 04 04 5c 22 5c 32 30 33 20 00 5c 33 30 34 5c 33 30 35 03 03	.@.@\302\303..\"\203..\304\305..
63a0	23 5c 32 36 32 03 5c 32 31 31 54 5c 32 36 32 01 5c 32 30 32 0b 00 02 05 41 42 5c 32 36 32 05 5c	#\262.\211T\262.\202....AB\262.\
63c0	33 30 36 04 04 42 06 06 08 23 5c 32 31 30 5c 33 30 37 04 06 06 5c 22 5c 32 31 30 04 5c 32 30 37	306..B...#\210\307...\"\210.\207
63e0	22 20 5b 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 73 2d 68 61 73 68 6d 61 70 20 73 65 73 6d 61	".[sesman-sessions-hashmap.sesma
6400	6e 2d 2d 73 79 73 74 65 6d 20 31 20 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 20 66 6f 72 6d 61	n--system.1.sesman-session.forma
6420	74 20 22 25 73 23 25 64 22 20 70 75 74 68 61 73 68 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 2d 73 65	t."%s#%d".puthash.sesman-link-se
6440	73 73 69 6f 6e 5d 20 31 30 20 28 23 24 20 2e 20 32 35 30 34 39 29 5d 29 0a 23 40 31 35 30 20 55	ssion].10.(#$...25049)]).#@150.U
6460	6e 72 65 67 69 73 74 65 72 20 53 45 53 53 49 4f 4e 2e 0a 53 59 53 54 45 4d 20 64 65 66 61 75 6c	nregister.SESSION..SYSTEM.defaul
6480	74 73 20 74 6f 20 63 75 72 72 65 6e 74 20 73 79 73 74 65 6d 2e 20 20 52 65 6d 6f 76 65 20 73 65	ts.to.current.system...Remove.se
64a0	73 73 69 6f 6e 20 66 72 6f 6d 0a 60 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 73 2d 68 61 73 68	ssion.from.`sesman-sessions-hash
64c0	6d 61 70 27 20 61 6e 64 20 60 73 65 73 6d 61 6e 2d 6c 69 6e 6b 73 2d 61 6c 69 73 74 27 2e 0a 0a	map'.and.`sesman-links-alist'...
64e0	28 66 6e 20 53 59 53 54 45 4d 20 53 45 53 53 49 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	(fn.SYSTEM.SESSION)..(defalias.'
6500	73 65 73 6d 61 6e 2d 75 6e 72 65 67 69 73 74 65 72 20 23 5b 35 31 34 20 22 01 01 40 42 5c 33 30	sesman-unregister.#[514."..@B\30
6520	31 01 08 5c 22 5c 32 31 30 5c 33 30 32 20 5c 32 31 30 01 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e	1..\"\210\302.\210.\207".[sesman
6540	2d 73 65 73 73 69 6f 6e 73 2d 68 61 73 68 6d 61 70 20 72 65 6d 68 61 73 68 20 73 65 73 6d 61 6e	-sessions-hashmap.remhash.sesman
6560	2d 2d 63 6c 65 61 72 2d 6c 69 6e 6b 73 5d 20 36 20 28 23 24 20 2e 20 32 35 36 39 35 29 5d 29 0a	--clear-links].6.(#$...25695)]).
6580	23 40 32 37 31 20 41 64 64 20 28 64 65 73 74 72 75 63 74 69 76 65 6c 79 29 20 4f 42 4a 45 43 54	#@271.Add.(destructively).OBJECT
65a0	20 74 6f 20 73 65 73 73 69 6f 6e 20 53 45 53 53 49 4f 4e 2d 4e 41 4d 45 20 6f 66 20 53 59 53 54	.to.session.SESSION-NAME.of.SYST
65c0	45 4d 2e 0a 49 66 20 41 4c 4c 4f 57 2d 4e 45 57 20 69 73 20 6e 69 6c 20 61 6e 64 20 73 65 73 73	EM..If.ALLOW-NEW.is.nil.and.sess
65e0	69 6f 6e 20 77 69 74 68 20 53 45 53 53 49 4f 4e 2d 4e 41 4d 45 20 64 6f 65 73 20 6e 6f 74 20 65	ion.with.SESSION-NAME.does.not.e
6600	78 69 73 74 0a 74 68 72 6f 77 20 61 6e 20 65 72 72 6f 72 2c 20 6f 74 68 65 72 77 69 73 65 20 72	xist.throw.an.error,.otherwise.r
6620	65 67 69 73 74 65 72 20 61 20 6e 65 77 20 73 65 73 73 69 6f 6e 20 77 69 74 68 0a 73 65 73 73 69	egister.a.new.session.with.sessi
6640	6f 6e 20 28 6c 69 73 74 20 53 45 53 53 49 4f 4e 2d 4e 41 4d 45 20 4f 42 4a 45 43 54 29 2e 0a 0a	on.(list.SESSION-NAME.OBJECT)...
6660	28 66 6e 20 53 59 53 54 45 4d 20 53 45 53 53 49 4f 4e 2d 4e 41 4d 45 20 4f 42 4a 45 43 54 20 26	(fn.SYSTEM.SESSION-NAME.OBJECT.&
6680	6f 70 74 69 6f 6e 61 6c 20 41 4c 4c 4f 57 2d 4e 45 57 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	optional.ALLOW-NEW)..(defalias.'
66a0	73 65 73 6d 61 6e 2d 61 64 64 2d 6f 62 6a 65 63 74 20 23 5b 31 30 32 37 20 22 03 5c 32 30 36 06	sesman-add-object.#[1027.".\206.
66c0	00 5c 33 30 30 20 5c 33 30 31 01 05 5c 22 5c 32 31 31 5c 32 30 33 17 00 5c 32 31 31 04 02 41 42	.\300.\301..\"\211\203..\211..AB
66e0	5c 32 34 31 5c 32 30 32 2e 00 02 5c 32 30 33 26 00 5c 33 30 32 02 06 06 06 06 44 5c 22 5c 32 30	\241\202...\203&.\302.....D\"\20
6700	32 2e 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 04 21 06 07 23 5c 32 30 37 22 20 5b 73 65 73 6d 61	2..\303\304\305.!..#\207".[sesma
6720	6e 2d 2d 73 79 73 74 65 6d 20 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 20 73 65 73 6d 61 6e 2d	n--system.sesman-session.sesman-
6740	72 65 67 69 73 74 65 72 20 65 72 72 6f 72 20 22 25 73 20 73 65 73 73 69 6f 6e 20 27 25 73 27 20	register.error."%s.session.'%s'.
6760	64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 22 20 73 65 73 6d 61 6e 2d 2d 63 61 70 2d 73 79 73 74	does.not.exist".sesman--cap-syst
6780	65 6d 2d 6e 61 6d 65 5d 20 31 30 20 28 23 24 20 2e 20 32 35 39 39 30 29 5d 29 0a 23 40 35 37 34	em-name].10.(#$...25990)]).#@574
67a0	20 52 65 6d 6f 76 65 20 28 64 65 73 74 72 75 63 74 69 76 65 6c 79 29 20 4f 42 4a 45 43 54 20 66	.Remove.(destructively).OBJECT.f
67c0	72 6f 6d 20 73 65 73 73 69 6f 6e 20 53 45 53 53 49 4f 4e 2d 4e 41 4d 45 20 6f 66 20 53 59 53 54	rom.session.SESSION-NAME.of.SYST
67e0	45 4d 2e 0a 49 66 20 53 45 53 53 49 4f 4e 2d 4e 41 4d 45 20 69 73 20 6e 69 6c 2c 20 72 65 74 72	EM..If.SESSION-NAME.is.nil,.retr
6800	69 65 76 65 20 74 68 65 20 73 65 73 73 69 6f 6e 20 77 69 74 68 0a 60 73 65 73 6d 61 6e 2d 73 65	ieve.the.session.with.`sesman-se
6820	73 73 69 6f 6e 2d 66 6f 72 2d 6f 62 6a 65 63 74 27 2e 20 20 49 66 20 4f 42 4a 45 43 54 20 69 73	ssion-for-object'...If.OBJECT.is
6840	20 74 68 65 20 6c 61 73 74 20 6f 62 6a 65 63 74 20 69 6e 20 73 65 73 6d 61 6e 0a 73 65 73 73 69	.the.last.object.in.sesman.sessi
6860	6f 6e 2c 20 60 73 65 73 6d 61 6e 2d 75 6e 72 65 67 69 73 74 65 72 27 20 74 68 65 20 73 65 73 73	on,.`sesman-unregister'.the.sess
6880	69 6f 6e 2e 20 20 49 66 20 41 55 54 4f 2d 55 4e 52 45 47 49 53 54 45 52 20 69 73 20 6e 6f 6e 2d	ion...If.AUTO-UNREGISTER.is.non-
68a0	6e 69 6c 0a 75 6e 72 65 67 69 73 74 65 72 20 73 65 73 73 69 6f 6e 73 20 6f 66 20 6c 65 6e 67 74	nil.unregister.sessions.of.lengt
68c0	68 20 30 20 61 6e 64 20 72 65 6d 6f 76 65 20 61 6c 6c 20 74 68 65 20 6c 69 6e 6b 73 20 77 69 74	h.0.and.remove.all.the.links.wit
68e0	68 20 74 68 65 20 73 65 73 73 69 6f 6e 2e 0a 49 66 20 4e 4f 2d 45 52 52 4f 52 20 69 73 20 6e 6f	h.the.session..If.NO-ERROR.is.no
6900	6e 2d 6e 69 6c 2c 20 64 6f 6e 27 74 20 74 68 72 6f 77 20 61 6e 20 65 72 72 6f 72 20 69 66 20 4f	n-nil,.don't.throw.an.error.if.O
6920	42 4a 45 43 54 20 69 73 20 6e 6f 74 20 66 6f 75 6e 64 20 69 6e 20 61 6e 79 0a 73 65 73 73 69 6f	BJECT.is.not.found.in.any.sessio
6940	6e 2e 20 20 54 68 69 73 20 69 73 20 75 73 65 66 75 6c 20 69 66 20 74 68 65 72 65 20 61 72 65 20	n...This.is.useful.if.there.are.
6960	73 65 76 65 72 61 6c 20 22 63 6f 6e 63 75 72 72 65 6e 74 22 20 70 61 72 74 69 65 73 20 77 68 69	several."concurrent".parties.whi
6980	63 68 0a 63 61 6e 20 72 65 6d 6f 76 65 20 74 68 65 20 6f 62 6a 65 63 74 2e 0a 0a 28 66 6e 20 53	ch.can.remove.the.object...(fn.S
69a0	59 53 54 45 4d 20 53 45 53 53 49 4f 4e 2d 4e 41 4d 45 20 4f 42 4a 45 43 54 20 26 6f 70 74 69 6f	YSTEM.SESSION-NAME.OBJECT.&optio
69c0	6e 61 6c 20 41 55 54 4f 2d 55 4e 52 45 47 49 53 54 45 52 20 4e 4f 2d 45 52 52 4f 52 29 1f 0a 28	nal.AUTO-UNREGISTER.NO-ERROR)..(
69e0	64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 72 65 6d 6f 76 65 2d 6f 62 6a 65 63 74 20 23	defalias.'sesman-remove-object.#
6a00	5b 31 32 38 33 20 22 04 5c 32 30 36 06 00 5c 33 30 31 20 04 5c 32 30 33 12 00 5c 33 30 32 01 06	[1283.".\206..\301..\203..\302..
6a20	06 5c 22 5c 32 30 32 17 00 5c 33 30 33 01 05 04 23 5c 33 30 34 05 02 5c 22 5c 32 31 31 3f 5c 32	.\"\202..\303...#\304..\"\211?\2
6a40	30 36 3a 00 5c 32 31 31 47 5c 33 30 35 55 5c 32 30 33 32 00 04 5c 32 30 35 3a 00 5c 33 30 36 03	06:.\211G\305U\2032..\205:.\306.
6a60	03 5c 22 5c 32 30 32 3a 00 5c 33 30 37 03 03 40 42 02 08 23 5c 32 30 37 22 20 5b 73 65 73 6d 61	.\"\202:.\307..@B..#\207".[sesma
6a80	6e 2d 73 65 73 73 69 6f 6e 73 2d 68 61 73 68 6d 61 70 20 73 65 73 6d 61 6e 2d 2d 73 79 73 74 65	n-sessions-hashmap.sesman--syste
6aa0	6d 20 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 20 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 2d	m.sesman-session.sesman-session-
6ac0	66 6f 72 2d 6f 62 6a 65 63 74 20 64 65 6c 65 74 65 20 31 20 73 65 73 6d 61 6e 2d 75 6e 72 65 67	for-object.delete.1.sesman-unreg
6ae0	69 73 74 65 72 20 70 75 74 68 61 73 68 5d 20 31 32 20 28 23 24 20 2e 20 32 36 35 32 39 29 5d 29	ister.puthash].12.(#$...26529)])
6b00	0a 23 40 31 39 39 20 52 65 74 72 69 65 76 65 20 53 59 53 54 45 4d 20 73 65 73 73 69 6f 6e 20 77	.#@199.Retrieve.SYSTEM.session.w
6b20	68 69 63 68 20 63 6f 6e 74 61 69 6e 73 20 4f 42 4a 45 43 54 2e 0a 57 68 65 6e 20 4e 4f 2d 45 52	hich.contains.OBJECT..When.NO-ER
6b40	52 4f 52 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 64 6f 6e 27 74 20 74 68 72 6f 77 20 61 6e 20 65	ROR.is.non-nil,.don't.throw.an.e
6b60	72 72 6f 72 20 69 66 20 4f 42 4a 45 43 54 20 69 73 20 6e 6f 74 20 70 61 72 74 20 6f 66 20 61 6e	rror.if.OBJECT.is.not.part.of.an
6b80	79 0a 73 65 73 73 69 6f 6e 2e 20 20 49 6e 20 73 75 63 68 20 63 61 73 65 2c 20 72 65 74 75 72 6e	y.session...In.such.case,.return
6ba0	20 6e 69 6c 2e 0a 0a 28 66 6e 20 53 59 53 54 45 4d 20 4f 42 4a 45 43 54 20 26 6f 70 74 69 6f 6e	.nil...(fn.SYSTEM.OBJECT.&option
6bc0	61 6c 20 4e 4f 2d 45 52 52 4f 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d	al.NO-ERROR)..(defalias.'sesman-
6be0	73 65 73 73 69 6f 6e 2d 66 6f 72 2d 6f 62 6a 65 63 74 20 23 5b 37 37 30 20 22 02 5c 32 30 36 06	session-for-object.#[770.".\206.
6c00	00 5c 33 30 30 20 5c 33 30 31 01 21 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36	.\300.\301.!\302\303\304\305\306
6c20	5c 33 30 37 06 09 21 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 02 5c 22 5c 32 30 36 26 00 02	\307..!\310\"\311\312%.\"\206&..
6c40	3f 5c 32 30 35 26 00 5c 33 31 33 5c 33 31 34 05 04 23 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d	?\205&.\313\314..#\207".[sesman-
6c60	2d 73 79 73 74 65 6d 20 73 65 73 6d 61 6e 2d 2d 61 6c 6c 2d 73 79 73 74 65 6d 2d 73 65 73 73 69	-system.sesman--all-system-sessi
6c80	6f 6e 73 20 73 65 71 2d 66 69 6e 64 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20	ons.seq-find.make-byte-code.257.
6ca0	22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 30 21 5c 33	"\301\302\303\304\305\306\300!\3
6cc0	30 37 5c 22 5c 33 31 30 5c 33 31 31 25 02 41 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76	07\"\310\311%.A\"\207".vconcat.v
6ce0	65 63 74 6f 72 20 5b 73 65 71 2d 66 69 6e 64 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32	ector.[seq-find.make-byte-code.2
6d00	35 37 20 22 5c 33 30 30 01 5c 32 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f	57."\300.\232\207".vconcat.vecto
6d20	72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20	r.[].3."\n\n(fn.X)"].8."\n\n(fn.
6d40	53 45 53 29 22 20 65 72 72 6f 72 20 22 25 73 20 69 73 20 6e 6f 74 20 70 61 72 74 20 6f 66 20 61	SES)".error."%s.is.not.part.of.a
6d60	6e 79 20 25 73 20 73 65 73 73 69 6f 6e 73 22 5d 20 31 32 20 28 23 24 20 2e 20 32 37 33 39 39 29	ny.%s.sessions"].12.(#$...27399)
6d80	5d 29 0a 23 40 32 31 34 20 52 65 74 72 69 65 76 65 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68	]).#@214.Retrieve.the.name.of.th
6da0	65 20 53 59 53 54 45 4d 27 73 20 73 65 73 73 69 6f 6e 20 63 6f 6e 74 61 69 6e 69 6e 67 20 4f 42	e.SYSTEM's.session.containing.OB
6dc0	4a 45 43 54 2e 0a 57 68 65 6e 20 4e 4f 2d 45 52 52 4f 52 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20	JECT..When.NO-ERROR.is.non-nil,.
6de0	64 6f 6e 27 74 20 74 68 72 6f 77 20 61 6e 20 65 72 72 6f 72 20 69 66 20 4f 42 4a 43 45 43 54 20	don't.throw.an.error.if.OBJCECT.
6e00	69 73 20 6e 6f 74 20 70 61 72 74 20 6f 66 0a 61 6e 79 20 73 65 73 73 69 6f 6e 2e 20 20 49 6e 20	is.not.part.of.any.session...In.
6e20	73 75 63 68 20 63 61 73 65 2c 20 72 65 74 75 72 6e 20 6e 69 6c 2e 0a 0a 28 66 6e 20 53 59 53 54	such.case,.return.nil...(fn.SYST
6e40	45 4d 20 4f 42 4a 45 43 54 20 26 6f 70 74 69 6f 6e 61 6c 20 4e 4f 2d 45 52 52 4f 52 29 1f 0a 28	EM.OBJECT.&optional.NO-ERROR)..(
6e60	64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 2d 6e 61 6d 65 2d 66 6f	defalias.'sesman-session-name-fo
6e80	72 2d 6f 62 6a 65 63 74 20 23 5b 37 37 30 20 22 5c 33 30 30 03 03 03 23 40 5c 32 30 37 22 20 5b	r-object.#[770."\300...#@\207".[
6ea0	73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 2d 66 6f 72 2d 6f 62 6a 65 63 74 5d 20 37 20 28 23 24	sesman-session-for-object].7.(#$
6ec0	20 2e 20 32 38 30 34 31 29 5d 29 0a 23 40 32 38 37 20 52 65 74 75 72 6e 20 74 20 69 66 20 42 55	...28041)]).#@287.Return.t.if.BU
6ee0	46 53 31 20 69 73 20 6d 6f 72 65 20 72 65 63 65 6e 74 20 74 68 61 6e 20 42 55 46 53 32 2e 0a 42	FS1.is.more.recent.than.BUFS2..B
6f00	55 46 53 31 20 61 6e 64 20 42 55 46 53 32 20 61 72 65 20 65 69 74 68 65 72 20 62 75 66 66 65 72	UFS1.and.BUFS2.are.either.buffer
6f20	73 20 6f 72 20 6c 69 73 74 73 20 6f 66 20 62 75 66 66 65 72 73 2e 20 20 57 68 65 6e 20 6c 69 73	s.or.lists.of.buffers...When.lis
6f40	74 73 20 6f 66 0a 62 75 66 66 65 72 73 2c 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 62 75 66 66 65	ts.of.buffers,.most.recent.buffe
6f60	72 73 20 66 72 6f 6d 20 65 61 63 68 20 6c 69 73 74 20 61 72 65 20 63 6f 6e 73 69 64 65 72 65 64	rs.from.each.list.are.considered
6f80	2e 20 20 54 6f 20 62 65 20 75 73 65 64 0a 70 72 69 6d 61 72 69 6c 79 20 69 6e 20 60 73 65 73 6d	...To.be.used.primarily.in.`sesm
6fa0	61 6e 2d 6d 6f 72 65 2d 72 65 6c 65 76 61 6e 74 2d 70 27 20 6d 65 74 68 6f 64 73 20 77 68 65 6e	an-more-relevant-p'.methods.when
6fc0	20 73 65 73 73 69 6f 6e 20 6f 62 6a 65 63 74 73 20 61 72 65 0a 62 75 66 66 65 72 73 2e 0a 0a 28	.session.objects.are.buffers...(
6fe0	66 6e 20 42 55 46 53 31 20 42 55 46 53 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d	fn.BUFS1.BUFS2)..(defalias.'sesm
7000	61 6e 2d 6d 6f 72 65 2d 72 65 63 65 6e 74 2d 70 20 23 5b 35 31 34 20 22 5c 33 30 30 02 21 5c 32	an-more-recent-p.#[514."\300.!\2
7020	30 33 0b 00 01 43 5c 32 30 32 5c 66 00 01 5c 33 30 30 02 21 5c 32 30 33 17 00 01 43 5c 32 30 32	03...C\202\f..\300.!\203...C\202
7040	18 00 01 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 07 06 07 5c	...\301\302\303\304\305\306....\
7060	22 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 5c 33 31 32 20 5c 22 5c 33 31 33 3d 5c 32 30 37	"\307\"\310\311%\312.\"\313=\207
7080	22 20 5b 62 75 66 66 65 72 70 20 73 65 71 2d 73 6f 6d 65 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f	".[bufferp.seq-some.make-byte-co
70a0	64 65 20 32 35 37 20 22 5c 32 31 31 5c 33 30 30 5c 32 33 35 5c 32 30 33 08 00 5c 33 30 32 5c 32	de.257."\211\300\235\203..\302\2
70c0	30 37 5c 32 31 31 5c 33 30 31 5c 32 33 35 5c 32 30 35 0f 00 5c 33 30 33 5c 32 30 37 22 20 76 63	07\211\301\235\205..\303\207".vc
70e0	6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 31 20 2d 31 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 42	oncat.vector.[1.-1].3."\n\n(fn.B
7100	29 22 20 62 75 66 66 65 72 2d 6c 69 73 74 20 31 5d 20 31 32 20 28 23 24 20 2e 20 32 38 33 37 30	)".buffer-list.1].12.(#$...28370
7120	29 5d 29 0a 28 64 65 66 76 61 72 20 73 65 73 6d 61 6e 2d 2d 70 61 74 68 2d 63 61 63 68 65 20 28	)]).(defvar.sesman--path-cache.(
7140	6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 0a 28	make-hash-table.:test.'equal)).(
7160	64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 2d 65 78 70 61 6e 64 2d 70 61 74 68 20 23 5b	defalias.'sesman--expand-path.#[
7180	32 35 37 20 22 5c 33 30 31 01 08 5c 22 5c 32 30 36 0e 00 5c 33 30 32 01 5c 33 30 33 03 21 08 23	257."\301..\"\206..\302.\303.!.#
71a0	5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 70 61 74 68 2d 63 61 63 68 65 20 67 65 74 68 61 73	\207".[sesman--path-cache.gethas
71c0	68 20 70 75 74 68 61 73 68 20 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 5d 20 35 20 22 5c 6e 5c 6e	h.puthash.file-truename].5."\n\n
71e0	28 66 6e 20 50 41 54 48 29 22 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	(fn.PATH)"]).(byte-code."\300\30
7200	31 5c 33 30 32 5c 33 30 31 5c 33 30 33 5c 33 30 34 23 5c 33 30 35 23 5c 32 31 30 5c 33 30 36 5c	1\302\301\303\304#\305#\210\306\
7220	33 30 31 5c 33 30 34 5c 33 30 37 5c 33 30 34 5c 33 31 30 25 5c 32 31 30 5c 33 30 36 5c 33 30 31	301\304\307\304\310%\210\306\301
7240	5c 33 30 34 5c 33 31 31 5c 33 30 34 5c 33 31 32 25 5c 32 31 30 5c 33 30 36 5c 33 30 31 5c 33 30	\304\311\304\312%\210\306\301\30
7260	34 5c 33 31 33 5c 33 30 34 5c 33 31 34 25 5c 32 31 30 5c 33 30 30 5c 33 31 35 5c 33 30 32 5c 33	4\313\304\314%\210\300\315\302\3
7280	31 35 5c 33 31 36 5c 33 30 34 23 5c 33 31 37 23 5c 32 31 30 5c 33 30 36 5c 33 31 35 5c 33 30 34	15\316\304#\317#\210\306\315\304
72a0	5c 33 32 30 5c 33 30 34 5c 33 32 31 25 5c 32 31 30 5c 33 30 36 5c 33 31 35 5c 33 30 34 5c 33 32	\320\304\321%\210\306\315\304\32
72c0	32 5c 33 30 34 5c 33 32 33 25 5c 32 31 30 5c 33 30 36 5c 33 31 35 5c 33 30 34 5c 33 32 34 5c 33	2\304\323%\210\306\315\304\324\3
72e0	30 34 5c 33 32 35 25 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 73 65 73 6d 61 6e 2d 63 6f	04\325%\207".[defalias.sesman-co
7300	6e 74 65 78 74 20 63 6c 2d 67 65 6e 65 72 69 63 2d 64 65 66 69 6e 65 20 28 5f 63 78 74 2d 74 79	ntext.cl-generic-define.(_cxt-ty
7320	70 65 20 5f 73 79 73 74 65 6d 29 20 6e 69 6c 20 22 47 69 76 65 6e 20 53 59 53 54 45 4d 20 61 6e	pe._system).nil."Given.SYSTEM.an
7340	64 20 63 6f 6e 74 65 78 74 20 74 79 70 65 20 43 58 54 2d 54 59 50 45 20 72 65 74 75 72 6e 20 74	d.context.type.CXT-TYPE.return.t
7360	68 65 20 63 6f 6e 74 65 78 74 2e 5c 6e 5c 6e 28 66 6e 20 43 58 54 2d 54 59 50 45 20 53 59 53 54	he.context.\n\n(fn.CXT-TYPE.SYST
7380	45 4d 29 22 20 63 6c 2d 67 65 6e 65 72 69 63 2d 64 65 66 69 6e 65 2d 6d 65 74 68 6f 64 20 28 28	EM)".cl-generic-define-method.((
73a0	5f 63 78 74 2d 74 79 70 65 20 28 65 71 6c 20 62 75 66 66 65 72 29 29 20 5f 73 79 73 74 65 6d 29	_cxt-type.(eql.buffer))._system)
73c0	20 23 5b 35 31 34 20 22 70 5c 32 30 37 22 20 23 31 3d 5b 5d 20 33 20 22 52 65 74 75 72 6e 20 63	.#[514."p\207".#1=[].3."Return.c
73e0	75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 5c 6e 5c 6e 28 66 6e 20 43 58 54 2d 54 59 50 45 20 53	urrent.buffer.\n\n(fn.CXT-TYPE.S
7400	59 53 54 45 4d 29 22 5d 20 28 28 5f 63 78 74 2d 74 79 70 65 20 28 65 71 6c 20 64 69 72 65 63 74	YSTEM)"].((_cxt-type.(eql.direct
7420	6f 72 79 29 29 20 5f 73 79 73 74 65 6d 29 20 23 5b 35 31 34 20 22 5c 33 30 31 08 21 5c 32 30 37	ory))._system).#[514."\301.!\207
7440	22 20 5b 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 73 65 73 6d 61 6e 2d 2d 65 78 70	".[default-directory.sesman--exp
7460	61 6e 64 2d 70 61 74 68 5d 20 34 20 22 52 65 74 75 72 6e 20 63 75 72 72 65 6e 74 20 64 69 72 65	and-path].4."Return.current.dire
7480	63 74 6f 72 79 2e 5c 6e 5c 6e 28 66 6e 20 43 58 54 2d 54 59 50 45 20 53 59 53 54 45 4d 29 22 5d	ctory.\n\n(fn.CXT-TYPE.SYSTEM)"]
74a0	20 28 28 5f 63 78 74 2d 74 79 70 65 20 28 65 71 6c 20 70 72 6f 6a 65 63 74 29 29 20 73 79 73 74	.((_cxt-type.(eql.project)).syst
74c0	65 6d 29 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 32 30 36 07 00 5c 33 30 31 20 21 5c 32 30 36	em).#[514."\300.\206..\301.!\206
74e0	0d 00 5c 33 30 32 20 5c 32 31 31 5c 32 30 35 14 00 5c 33 30 33 01 21 5c 32 30 37 22 20 5b 73 65	..\302.\211\205..\303.!\207".[se
7500	73 6d 61 6e 2d 70 72 6f 6a 65 63 74 20 73 65 73 6d 61 6e 2d 2d 73 79 73 74 65 6d 20 76 63 2d 72	sman-project.sesman--system.vc-r
7520	6f 6f 74 2d 64 69 72 20 73 65 73 6d 61 6e 2d 2d 65 78 70 61 6e 64 2d 70 61 74 68 5d 20 35 20 22	oot-dir.sesman--expand-path].5."
7540	52 65 74 75 72 6e 20 63 75 72 72 65 6e 74 20 70 72 6f 6a 65 63 74 2e 5c 6e 5c 6e 28 66 6e 20 43	Return.current.project.\n\n(fn.C
7560	58 54 2d 54 59 50 45 20 53 59 53 54 45 4d 29 22 5d 20 73 65 73 6d 61 6e 2d 72 65 6c 65 76 61 6e	XT-TYPE.SYSTEM)"].sesman-relevan
7580	74 2d 63 6f 6e 74 65 78 74 2d 70 20 28 5f 63 78 74 2d 74 79 70 65 20 63 78 74 29 20 22 4e 6f 6e	t-context-p.(_cxt-type.cxt)."Non
75a0	2d 6e 69 6c 20 69 66 20 63 6f 6e 74 65 78 74 20 43 58 54 20 69 73 20 72 65 6c 65 76 61 6e 74 20	-nil.if.context.CXT.is.relevant.
75c0	74 6f 20 63 75 72 72 65 6e 74 20 63 6f 6e 74 65 78 74 20 6f 66 20 74 79 70 65 20 43 58 54 2d 54	to.current.context.of.type.CXT-T
75e0	59 50 45 2e 5c 6e 5c 6e 28 66 6e 20 43 58 54 2d 54 59 50 45 20 43 58 54 29 22 20 28 28 5f 63 78	YPE.\n\n(fn.CXT-TYPE.CXT)".((_cx
7600	74 2d 74 79 70 65 20 28 65 71 6c 20 62 75 66 66 65 72 29 29 20 62 75 66 29 20 23 5b 35 31 34 20	t-type.(eql.buffer)).buf).#[514.
7620	22 70 01 3d 5c 32 30 37 22 20 23 31 23 20 34 20 22 4e 6f 6e 2d 6e 69 6c 20 69 66 20 42 55 46 20	"p.=\207".#1#.4."Non-nil.if.BUF.
7640	69 73 20 60 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 27 2e 5c 6e 5c 6e 28 66 6e 20 43 58 54 2d	is.`current-buffer'.\n\n(fn.CXT-
7660	54 59 50 45 20 42 55 46 29 22 5d 20 28 28 5f 63 78 74 2d 74 79 70 65 20 28 65 71 6c 20 64 69 72	TYPE.BUF)"].((_cxt-type.(eql.dir
7680	65 63 74 6f 72 79 29 29 20 64 69 72 29 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 35 1b 00 08	ectory)).dir).#[514."\211\205...
76a0	5c 32 30 35 1b 00 5c 33 30 32 5c 33 30 33 02 21 50 5c 33 30 33 08 21 5c 33 30 34 5c 33 30 35 19	\205..\302\303.!P\303.!\304\305.
76c0	5c 33 30 36 03 03 03 23 29 5c 32 36 36 5c 32 30 33 5c 32 30 37 22 20 5b 64 65 66 61 75 6c 74 2d	\306...#)\266\203\207".[default-
76e0	64 69 72 65 63 74 6f 72 79 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68	directory.inhibit-changing-match
7700	2d 64 61 74 61 20 22 5e 22 20 73 65 73 6d 61 6e 2d 2d 65 78 70 61 6e 64 2d 70 61 74 68 20 6e 69	-data."^".sesman--expand-path.ni
7720	6c 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 39 20 22 4e 6f 6e 2d 6e 69 6c 20 69 66 20	l.t.string-match].9."Non-nil.if.
7740	44 49 52 20 69 73 20 74 68 65 20 70 61 72 65 6e 74 20 6f 72 20 65 71 75 61 6c 73 20 74 68 65 20	DIR.is.the.parent.or.equals.the.
7760	60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 27 2e 5c 6e 5c 6e 28 66 6e 20 43 58 54 2d	`default-directory'.\n\n(fn.CXT-
7780	54 59 50 45 20 44 49 52 29 22 5d 20 28 28 5f 63 78 74 2d 74 79 70 65 20 28 65 71 6c 20 70 72 6f	TYPE.DIR)"].((_cxt-type.(eql.pro
77a0	6a 65 63 74 29 29 20 70 72 6f 6a 29 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 35 1b 00 08 5c	ject)).proj).#[514."\211\205...\
77c0	32 30 35 1b 00 5c 33 30 32 5c 33 30 33 02 21 50 5c 33 30 33 08 21 5c 33 30 34 5c 33 30 35 19 5c	205..\302\303.!P\303.!\304\305.\
77e0	33 30 36 03 03 03 23 29 5c 32 36 36 5c 32 30 33 5c 32 30 37 22 20 5b 64 65 66 61 75 6c 74 2d 64	306...#)\266\203\207".[default-d
7800	69 72 65 63 74 6f 72 79 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d	irectory.inhibit-changing-match-
7820	64 61 74 61 20 22 5e 22 20 73 65 73 6d 61 6e 2d 2d 65 78 70 61 6e 64 2d 70 61 74 68 20 6e 69 6c	data."^".sesman--expand-path.nil
7840	20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 39 20 22 4e 6f 6e 2d 6e 69 6c 20 69 66 20 50	.t.string-match].9."Non-nil.if.P
7860	52 4f 4a 20 69 73 20 74 68 65 20 70 61 72 65 6e 74 20 6f 72 20 65 71 75 61 6c 20 74 6f 20 74 68	ROJ.is.the.parent.or.equal.to.th
7880	65 20 60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 27 2e 5c 6e 5c 6e 28 66 6e 20 43 58	e.`default-directory'.\n\n(fn.CX
78a0	54 2d 54 59 50 45 20 50 52 4f 4a 29 22 5d 5d 20 36 29 0a 23 40 31 35 37 20 52 65 74 75 72 6e 20	T-TYPE.PROJ)"]].6).#@157.Return.
78c0	6e 6f 6e 2d 6e 69 6c 20 69 66 20 4c 49 4e 4b 20 69 73 20 72 65 6c 65 76 61 6e 74 20 74 6f 20 74	non-nil.if.LINK.is.relevant.to.t
78e0	68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e 74 65 78 74 2e 0a 49 66 20 43 58 54 2d 54 59 50 45 53	he.current.context..If.CXT-TYPES
7900	20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 6f 6e 6c 79 20 63 68 65 63 6b 20 72 65 6c 65 76 61 6e 63	.is.non-nil,.only.check.relevanc
7920	65 20 66 6f 72 20 74 68 6f 73 65 20 63 6f 6e 74 65 78 74 73 2e 0a 0a 28 66 6e 20 4c 49 4e 4b 20	e.for.those.contexts...(fn.LINK.
7940	26 6f 70 74 69 6f 6e 61 6c 20 43 58 54 2d 54 59 50 45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	&optional.CXT-TYPES)..(defalias.
7960	27 73 65 73 6d 61 6e 2d 72 65 6c 65 76 61 6e 74 2d 6c 69 6e 6b 2d 70 20 23 5b 35 31 33 20 22 5c	'sesman-relevant-link-p.#[513."\
7980	32 31 31 5c 32 30 33 5c 66 00 5c 33 30 30 02 21 01 5c 32 33 35 5c 32 30 35 14 00 5c 33 30 31 5c	211\203\f.\300.!.\235\205..\301\
79a0	33 30 30 03 21 5c 33 30 32 04 21 5c 22 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 6c 6e 6b 2d	300.!\302.!\"\207".[sesman--lnk-
79c0	63 6f 6e 74 65 78 74 2d 74 79 70 65 20 73 65 73 6d 61 6e 2d 72 65 6c 65 76 61 6e 74 2d 63 6f 6e	context-type.sesman-relevant-con
79e0	74 65 78 74 2d 70 20 73 65 73 6d 61 6e 2d 2d 6c 6e 6b 2d 76 61 6c 75 65 5d 20 36 20 28 23 24 20	text-p.sesman--lnk-value].6.(#$.
7a00	2e 20 33 30 39 30 35 29 5d 29 0a 23 40 31 37 39 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20	..30905)]).#@179.Return.non-nil.
7a20	69 66 20 53 59 53 54 45 4d 27 73 20 53 45 53 53 49 4f 4e 20 69 73 20 72 65 6c 65 76 61 6e 74 20	if.SYSTEM's.SESSION.is.relevant.
7a40	74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e 74 65 78 74 2e 0a 49 66 20 43 58 54 2d 54	to.the.current.context..If.CXT-T
7a60	59 50 45 53 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 6f 6e 6c 79 20 63 68 65 63 6b 20 72 65 6c 65	YPES.is.non-nil,.only.check.rele
7a80	76 61 6e 63 65 20 66 6f 72 20 74 68 6f 73 65 20 63 6f 6e 74 65 78 74 73 2e 0a 0a 28 66 6e 20 53	vance.for.those.contexts...(fn.S
7aa0	59 53 54 45 4d 20 53 45 53 53 49 4f 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 43 58 54 2d 54 59 50 45	YSTEM.SESSION.&optional.CXT-TYPE
7ac0	53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 72 65 6c 65 76 61 6e 74 2d 73	S)..(defalias.'sesman-relevant-s
7ae0	65 73 73 69 6f 6e 2d 70 20 23 5b 37 37 30 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 05 05 23	ession-p.#[770."\300\301\302...#
7b00	5c 22 5c 32 30 37 22 20 5b 73 65 71 2d 73 6f 6d 65 20 73 65 73 6d 61 6e 2d 72 65 6c 65 76 61 6e	\"\207".[seq-some.sesman-relevan
7b20	74 2d 6c 69 6e 6b 2d 70 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 73 5d 20 39 20 28 23 24 20 2e 20 33	t-link-p.sesman-links].9.(#$...3
7b40	31 32 34 39 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 73 65 73 6d 61 6e 29 0a	1249)]).(provide.'sesman).