blob: 1eb7fb047699dc8981186925216c7efb3cc17429 (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 30 5c 33 30 34 21 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30	303!\210\300\304!\210\305\306\30
01e0	37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 26 07 5c 32 31 30 5c 33 31 35 5c	7\310\311\312\313\314&.\210\315\
0200	33 31 36 5c 33 31 37 5c 33 32 30 5c 33 32 31 44 44 5c 33 32 32 5c 33 31 33 5c 33 30 36 5c 33 32	316\317\320\321DD\322\313\306\32
0220	33 5c 33 32 34 26 07 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	3\324&.\207".[require.cl-generic
0240	20 70 72 6f 6a 65 63 74 20 73 65 71 20 73 75 62 72 2d 78 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61	.project.seq.subr-x.custom-decla
0260	72 65 2d 67 72 6f 75 70 20 73 65 73 6d 61 6e 20 6e 69 6c 20 22 47 65 6e 65 72 69 63 20 53 65 73	re-group.sesman.nil."Generic.Ses
0280	73 69 6f 6e 20 4d 61 6e 61 67 65 72 2e 22 20 3a 70 72 65 66 69 78 20 22 73 65 73 6d 61 6e 2d 22	sion.Manager.".:prefix."sesman-"
02a0	20 3a 67 72 6f 75 70 20 74 6f 6f 6c 73 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72	.:group.tools.custom-declare-var
02c0	69 61 62 6c 65 20 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	iable.sesman-single-link-context
02e0	2d 74 79 70 65 73 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 23 5b 30 20 22 5c 33 30	-types.funcall.function.#[0."\30
0300	30 5c 32 30 37 22 20 5b 28 62 75 66 66 65 72 29 5d 20 31 5d 20 22 4c 69 73 74 20 6f 66 20 63 6f	0\207".[(buffer)].1]."List.of.co
0320	6e 74 65 78 74 20 74 79 70 65 73 20 74 6f 20 77 68 69 63 68 20 61 74 20 6d 6f 73 74 20 6f 6e 65	ntext.types.to.which.at.most.one
0340	20 73 65 73 73 69 6f 6e 20 63 61 6e 20 62 65 20 6c 69 6e 6b 65 64 2e 22 20 3a 74 79 70 65 20 28	.session.can.be.linked.".:type.(
0360	72 65 70 65 61 74 20 73 79 6d 62 6f 6c 29 5d 20 38 29 0a 23 40 38 30 20 48 61 73 68 2d 74 61 62	repeat.symbol)].8).#@80.Hash-tab
0380	6c 65 20 6f 66 20 61 6c 6c 20 73 65 73 6d 61 6e 20 73 65 73 73 69 6f 6e 73 2e 0a 4b 65 79 20 69	le.of.all.sesman.sessions..Key.i
03a0	73 20 61 20 63 6f 6e 73 20 28 73 79 73 74 65 6d 2d 6e 61 6d 65 20 2e 20 73 65 73 73 69 6f 6e 2d	s.a.cons.(system-name...session-
03c0	6e 61 6d 65 29 2e 1f 0a 28 64 65 66 76 61 72 20 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 73 2d	name)...(defvar.sesman-sessions-
03e0	68 61 73 68 6d 61 70 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 27	hashmap.(make-hash-table.:test.'
0400	65 71 75 61 6c 29 20 28 23 24 20 2e 20 38 38 38 29 29 0a 23 40 31 38 33 20 41 6e 20 61 6c 69 73	equal).(#$...888)).#@183.An.alis
0420	74 20 6f 66 20 61 6c 6c 20 73 65 73 6d 61 6e 20 6c 69 6e 6b 73 2e 0a 45 61 63 68 20 65 6c 65 6d	t.of.all.sesman.links..Each.elem
0440	65 6e 74 20 69 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 6b 65 79 20 63 78 74 2d 74 79 70 65	ent.is.of.the.form.(key.cxt-type
0460	20 63 78 74 2d 76 61 6c 75 65 29 20 77 68 65 72 65 0a 22 6b 65 79 22 20 69 73 20 6f 66 20 74 68	.cxt-value).where."key".is.of.th
0480	65 20 66 6f 72 6d 20 28 73 79 73 74 65 6d 2d 6e 61 6d 65 20 2e 20 73 65 73 73 69 6f 6e 2d 6e 61	e.form.(system-name...session-na
04a0	6d 65 29 2e 20 73 79 73 74 65 6d 2d 6e 61 6d 65 0a 61 6e 64 20 63 78 74 2d 74 79 70 65 20 6d 75	me)..system-name.and.cxt-type.mu
04c0	73 74 20 62 65 20 73 79 6d 62 6f 6c 73 2e 1f 0a 28 64 65 66 76 61 72 20 73 65 73 6d 61 6e 2d 6c	st.be.symbols...(defvar.sesman-l
04e0	69 6e 6b 73 2d 61 6c 69 73 74 20 6e 69 6c 20 28 23 24 20 2e 20 31 30 34 39 29 29 0a 23 40 39 39	inks-alist.nil.(#$...1049)).#@99
0500	20 4e 61 6d 65 20 6f 66 20 74 68 65 20 73 79 73 74 65 6d 20 6d 61 6e 61 67 65 64 20 62 79 20 60	.Name.of.the.system.managed.by.`
0520	73 65 73 6d 61 6e 27 2e 0a 43 61 6e 20 62 65 20 65 69 74 68 65 72 20 61 20 73 79 6d 62 6f 6c 2c	sesman'..Can.be.either.a.symbol,
0540	20 6f 72 20 61 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 69 6e 67 20 61 20 73 79 6d 62 6f	.or.a.function.returning.a.symbo
0560	6c 2e 1f 0a 28 64 65 66 76 61 72 20 73 65 73 6d 61 6e 2d 73 79 73 74 65 6d 20 6e 69 6c 20 28 23	l...(defvar.sesman-system.nil.(#
0580	24 20 2e 20 31 32 38 31 29 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72	$...1281)).(make-variable-buffer
05a0	2d 6c 6f 63 61 6c 20 27 73 65 73 6d 61 6e 2d 73 79 73 74 65 6d 29 0a 28 64 65 66 61 6c 69 61 73	-local.'sesman-system).(defalias
05c0	20 27 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 23 5b 35 31	.'sesman--on-C-u-u-sessions.#[51
05e0	34 20 22 5c 32 31 31 5c 32 30 34 0e 00 5c 33 30 30 02 21 5c 32 31 31 5c 32 30 35 0d 00 5c 32 31	4."\211\204..\300.!\211\205..\21
0600	31 43 5c 32 30 37 5c 32 31 31 5c 33 30 31 5c 32 33 32 5c 32 30 34 1a 00 5c 32 31 31 5c 33 30 32	1C\207\211\301\232\204..\211\302
0620	3d 5c 32 30 33 1e 00 5c 33 30 33 02 21 5c 32 30 37 5c 32 31 31 5c 33 30 34 5c 32 33 32 5c 32 30	=\203..\303.!\207\211\304\232\20
0640	34 30 00 5c 32 31 31 5c 33 30 35 3d 5c 32 30 34 30 00 5c 32 31 31 5c 33 30 36 3d 5c 32 30 33 34	40.\211\305=\2040.\211\306=\2034
0660	00 5c 33 30 37 02 21 5c 32 30 37 5c 33 31 30 5c 33 31 31 02 5c 22 5c 32 30 37 22 20 5b 73 65 73	.\307.!\207\310\311.\"\207".[ses
0680	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 6e 6b 65 64 20 73	man-current-session.(4).linked.s
06a0	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 20 61 6c 6c 20 74	esman-linked-sessions.(16).all.t
06c0	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 65 72 72	.sesman--all-system-sessions.err
06e0	6f 72 20 22 49 6e 76 61 6c 69 64 20 77 68 69 63 68 20 61 72 67 75 6d 65 6e 74 20 28 25 73 29 22	or."Invalid.which.argument.(%s)"
0700	5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 20 57 48 49 43 48 29 22 5d 29 0a 28 64	].5."\n\n(fn.SYSTEM.WHICH)"]).(d
0720	65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 2d 63 61 70 2d 73 79 73 74 65 6d 2d 6e 61 6d 65	efalias.'sesman--cap-system-name
0740	20 23 5b 32 35 37 20 22 5c 33 30 31 01 21 5c 33 30 32 01 5c 33 30 33 5c 33 30 34 18 5c 33 30 35	.#[257."\301.!\302.\303\304.\305
0760	03 03 03 23 29 5c 32 36 36 5c 32 30 33 5c 32 30 33 17 00 5c 32 31 31 5c 32 30 32 1a 00 5c 33 30	...#)\266\203\203..\211\202..\30
0780	36 01 21 5c 32 30 37 22 20 5b 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68	6.!\207".[inhibit-changing-match
07a0	2d 64 61 74 61 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 5e 5b 5b 3a 75 70 70 65 72 3a 5d 5d 22	-data.symbol-name."^[[:upper:]]"
07c0	20 6e 69 6c 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 63 61 70 69 74 61 6c 69 7a 65 5d 20	.nil.t.string-match.capitalize].
07e0	39 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 69 61 73 20	9."\n\n(fn.SYSTEM)"]).(defalias.
0800	27 73 65 73 6d 61 6e 2d 2d 6c 69 6e 6b 2d 73 65 73 73 69 6f 6e 20 23 5b 37 37 30 20 22 5c 32 31	'sesman--link-session.#[770."\21
0820	31 43 02 5c 32 34 32 5c 32 30 36 5c 6e 00 5c 33 30 32 5c 33 30 33 21 5c 33 30 34 02 5c 32 34 32	1C.\242\206\n.\302\303!\304.\242
0840	5c 32 30 33 17 00 5c 33 30 35 03 5c 32 34 32 21 5c 32 30 32 2c 00 5c 33 30 36 5c 33 30 37 5c 33	\203..\305.\242!\202,.\306\307\3
0860	31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 06 08 21 5c 33 31 34 5c 22 5c 33 31 35 5c 33 31 36 25	10\311\312\313..!\314\"\315\316%
0880	5c 33 31 37 5c 33 32 30 06 09 21 21 5c 22 5c 32 30 36 34 00 5c 33 30 32 5c 33 32 31 04 5c 32 34	\317\320..!!\"\2064.\302\321.\24
08a0	32 5c 22 21 05 02 42 5c 32 31 31 04 5c 32 34 32 03 45 04 5c 32 34 32 08 5c 32 33 35 5c 32 30 33	2\"!..B\211.\242.E.\242.\235\203
08c0	57 00 5c 32 31 31 5c 33 32 32 5c 33 32 33 06 5c 6e 5c 33 32 34 06 09 5c 32 34 32 06 08 24 09 5c	W.\211\322\323.\n\324..\242..$.\
08e0	22 42 11 5c 32 30 32 6c 00 5c 33 32 35 5c 33 32 33 06 09 06 06 06 08 5c 32 34 32 06 07 24 09 5c	"B.\202l.\325\323......\242..$.\
0900	22 5c 32 30 34 6c 00 5c 32 31 31 09 42 11 01 5c 32 36 36 5c 32 30 34 5c 32 30 37 22 20 5b 73 65	"\204l.\211.B..\266\204\207".[se
0920	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 79 70 65 73 20 73	sman-single-link-context-types.s
0940	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 45 53 53 49 4f 4e	esman-links-alist.error."SESSION
0960	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 73 6d 61 6e 2d 2d	.must.be.a.headed.list".sesman--
0980	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 6f 6e 74 65 78 74	expand-path-maybe.sesman-context
09a0	20 73 65 71 2d 73 6f 6d 65 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33	.seq-some.make-byte-code.257."\3
09c0	30 31 01 21 5c 33 30 30 02 5c 32 34 30 5c 32 31 30 5c 32 31 31 5c 32 30 37 22 20 76 63 6f 6e 63	01.!\300.\240\210\211\207".vconc
09e0	61 74 20 76 65 63 74 6f 72 20 5b 73 65 73 6d 61 6e 2d 63 6f 6e 74 65 78 74 5d 20 34 20 22 5c 6e	at.vector.[sesman-context].4."\n
0a00	5c 6e 28 66 6e 20 43 54 59 50 45 29 22 20 72 65 76 65 72 73 65 20 73 65 73 6d 61 6e 2d 63 6f 6e	\n(fn.CTYPE)".reverse.sesman-con
0a20	74 65 78 74 2d 74 79 70 65 73 20 22 4e 6f 20 6c 6f 63 61 6c 20 63 6f 6e 74 65 78 74 20 6f 66 20	text-types."No.local.context.of.
0a40	74 79 70 65 20 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	type.%s".seq-remove.sesman--link
0a60	2d 6c 6f 6f 6b 75 70 2d 66 6e 20 6e 69 6c 20 73 65 71 2d 66 69 6c 74 65 72 5d 20 31 35 20 22 5c	-lookup-fn.nil.seq-filter].15."\
0a80	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 6c 20	n\n(fn.SYSTEM.SESSION.&optional.
0aa0	43 58 54 2d 54 59 50 45 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 2d	CXT-TYPE)"]).(defalias.'sesman--
0ac0	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 79 20 27 28 6d 61 63	link-session-interactively.'(mac
0ae0	72 6f 20 2e 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33	ro...#[257."\300.!\301\302\303\3
0b00	30 34 5c 33 30 35 06 06 44 5c 33 30 36 42 42 5c 33 30 31 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c	04\305..D\306BB\301\307\310\311\
0b20	33 31 32 5c 33 31 33 06 5c 6e 5c 33 31 34 5c 33 31 35 5c 33 30 35 06 0f 44 44 44 46 5c 33 31 36	312\313.\n\314\315\305..DDDF\316
0b40	42 42 42 44 43 5c 33 31 37 5c 33 31 31 5c 33 30 37 5c 33 30 35 06 0b 44 46 45 5c 33 32 30 5c 33	BBBDC\317\311\307\305..DFE\320\3
0b60	31 32 5c 33 32 31 5c 33 32 32 5c 33 30 30 06 0b 21 21 5c 33 32 33 42 42 42 44 46 45 5c 32 30 37	12\321\322\300..!!\323BBBDFE\207
0b80	22 20 5b 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6c 65 74 20 28 28 73 79 73 74 65 6d 20 28 73 65 73	".[symbol-name.let.((system.(ses
0ba0	6d 61 6e 2d 2d 73 79 73 74 65 6d 29 29 29 20 69 66 20 6d 65 6d 62 65 72 20 71 75 6f 74 65 20 28	man--system))).if.member.quote.(
0bc0	28 73 65 73 6d 61 6e 2d 63 6f 6e 74 65 78 74 2d 74 79 70 65 73 20 73 79 73 74 65 6d 29 29 20 73	(sesman-context-types.system)).s
0be0	65 73 73 69 6f 6e 20 73 65 73 6d 61 6e 2d 61 73 6b 2d 66 6f 72 2d 73 65 73 73 69 6f 6e 20 73 79	ession.sesman-ask-for-session.sy
0c00	73 74 65 6d 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	stem.format."Link.with.%s.%s:.".
0c20	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 73 65 73 6d 61 6e	sesman--abbrev-path-maybe.sesman
0c40	2d 63 6f 6e 74 65 78 74 20 28 28 73 65 73 6d 61 6e 2d 2d 61 6c 6c 2d 73 79 73 74 65 6d 2d 73 65	-context.((sesman--all-system-se
0c60	73 73 69 6f 6e 73 20 73 79 73 74 65 6d 29 20 27 61 73 6b 2d 6e 65 77 29 20 73 65 73 6d 61 6e 2d	ssions.system).'ask-new).sesman-
0c80	2d 6c 69 6e 6b 2d 73 65 73 73 69 6f 6e 20 65 72 72 6f 72 20 22 25 73 20 61 73 73 6f 63 69 61 74	-link-session.error."%s.associat
0ca0	69 6f 6e 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 66 6f 72 20 74 68 69 73 20 73 79 73 74 65 6d 20	ion.not.allowed.for.this.system.
0cc0	28 25 73 29 22 20 63 61 70 69 74 61 6c 69 7a 65 20 28 73 79 73 74 65 6d 29 5d 20 31 37 20 22 5c	(%s)".capitalize.(system)].17."\
0ce0	6e 5c 6e 28 66 6e 20 43 58 54 2d 54 59 50 45 29 22 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20	n\n(fn.CXT-TYPE)"])).(byte-code.
0d00	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33	"\300\301\302\303#\210\304\301\3
0d20	30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 65 73 6d 61	05\306#\207".[function-put.sesma
0d40	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 79 20 6c 69	n--link-session-interactively.li
0d60	73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 20 70 75 74 20 65 64 65 62 75 67 2d	sp-indent-function.1.put.edebug-
0d80	66 6f 72 6d 2d 73 70 65 63 20 28 73 79 6d 62 6f 6c 70 20 26 72 65 73 74 29 5d 20 34 29 0a 28 64	form-spec.(symbolp.&rest)].4).(d
0da0	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 2d 6d 61 79	efalias.'sesman--expand-path-may
0dc0	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\
0de0	32 31 31 3a 5c 32 30 33 1c 00 5c 32 31 31 41 3b 5c 32 30 33 1c 00 5c 32 31 31 40 5c 33 30 30 02	211:\203..\211A;\203..\211@\300.
0e00	41 21 42 5c 32 30 37 5c 32 30 37 22 20 5b 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 5d 20	A!B\207\207".[expand-file-name].
0e20	34 20 22 5c 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	4."\n\n(fn.OBJ)"]).(defalias.'se
0e40	73 6d 61 6e 2d 2d 61 62 62 72 65 76 2d 70 61 74 68 2d 6d 61 79 62 65 20 23 5b 32 35 37 20 22 5c	sman--abbrev-path-maybe.#[257."\
0e60	32 31 31 3b 5c 32 30 33 09 00 5c 33 30 30 01 21 5c 32 30 37 5c 32 31 31 3a 5c 32 30 33 1c 00 5c	211;\203..\300.!\207\211:\203..\
0e80	32 31 31 41 3b 5c 32 30 33 1c 00 5c 32 31 31 40 5c 33 30 30 02 41 21 42 5c 32 30 37 5c 32 30 37	211A;\203..\211@\300.A!B\207\207
0ea0	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 34 20 22 5c 6e 5c 6e	".[abbreviate-file-name].4."\n\n
0ec0	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 2d 2d 73	(fn.OBJ)"]).(defalias.'sesman--s
0ee0	79 73 74 65 6d 20 23 5b 30 20 22 08 5c 32 30 33 0f 00 5c 33 30 31 08 21 5c 32 30 33 0d 00 08 20	ystem.#[0.".\203..\301.!\203....
0f00	5c 32 30 37 08 5c 32 30 37 5c 33 30 32 5c 33 30 33 70 5c 22 5c 32 30 37 22 20 5b 73 65 73 6d 61	\207.\207\302\303p\"\207".[sesma
0f20	6e 2d 73 79 73 74 65 6d 20 66 75 6e 63 74 69 6f 6e 70 20 65 72 72 6f 72 20 22 4e 6f 20 60 73 65	n-system.functionp.error."No.`se
0f40	73 6d 61 6e 2d 73 79 73 74 65 6d 27 20 69 6e 20 62 75 66 66 65 72 20 60 25 73 27 22 5d 20 33 5d	sman-system'.in.buffer.`%s'"].3]
0f60	29 0a 23 40 37 34 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 73 65 73 73 69 6f 6e 73	).#@74.Return.a.list.of.sessions
0f80	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 20 26 6f	.registered.with.SYSTEM...(fn.&o
0fa0	70 74 69 6f 6e 61 6c 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	ptional.SYSTEM)..(defalias.'sesm
0fc0	61 6e 2d 2d 61 6c 6c 2d 73 79 73 74 65 6d 2d 73 65 73 73 69 6f 6e 73 20 23 5b 32 35 36 20 22 5c	an--all-system-sessions.#[256."\
0fe0	32 31 31 5c 32 30 36 06 00 5c 33 30 31 20 5c 33 30 32 43 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c	211\206..\301.\302C\303\304\305\
1000	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 5c 33 31 33 25	306\307\310....\"\311\"\312\313%
1020	08 5c 22 5c 32 31 30 5c 33 31 34 02 02 5c 32 34 32 5c 22 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e	.\"\210\314..\242\"\207".[sesman
1040	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 6d	-sessions-hashmap.sesman--system
1060	20 6e 69 6c 20 6d 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	.nil.maphash.make-byte-code.514.
1080	22 5c 33 30 32 02 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	"\302.@\300\"\205..\301.\301\242
10a0	42 5c 32 34 30 5c 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	B\240\207".vconcat.vector.[eql].
10c0	35 20 22 5c 6e 5c 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	5."\n\n(fn.K.S)".sesman--sort-se
10e0	73 73 69 6f 6e 73 5d 20 31 31 20 28 23 24 20 2e 20 33 39 34 33 29 5d 29 0a 28 64 65 66 61 6c 69	ssions].11.(#$...3943)]).(defali
1100	61 73 20 27 73 65 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	as.'sesman--link-lookup-fn.#[128
1120	30 20 22 04 5c 32 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	0.".\206..\211@@.\206...@A.\206.
1140	00 02 41 40 04 5c 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	..A@.\206..\300.8\301\302\303\30
1160	34 5c 33 30 35 06 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	4\305........$\306\"\307\310%\20
1180	37 22 20 5b 32 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 5c 32	7".[2.make-byte-code.257."\300\2
11a0	30 33 5c 66 00 5c 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	03\f.\211@@\300=\205;.\301\203..
11c0	5c 32 31 31 40 41 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	\211@A\301\232\205;.\302\2031.\3
11e0	30 32 3c 5c 32 30 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	02<\203).\211A@\302\235\202..\21
1200	31 41 40 5c 33 30 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	1A@\302=\205;.\303?\206;.\304.8\
1220	33 30 33 5c 32 33 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	303\232\207".vconcat.vector.[2].
1240	33 20 22 5c 6e 5c 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	3."\n\n(fn.EL)"].18."\n\n(fn.&op
1260	74 69 6f 6e 61 6c 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	tional.SYSTEM.SES-NAME.CXT-TYPE.
1280	43 58 54 2d 56 41 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	CXT-VAL.X)"]).(defalias.'sesman-
12a0	2d 75 6e 6c 69 6e 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	-unlink.#[257."\301\302\303\211\
12c0	32 31 31 5c 32 31 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	211\211..%.\"\211.\207".[sesman-
12e0	6c 69 6e 6b 73 2d 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	links-alist.seq-remove.sesman--l
1300	69 6e 6b 2d 6c 6f 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	ink-lookup-fn.nil].8."\n\n(fn.X)
1320	22 5d 29 0a 28 64 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	"]).(defalias.'sesman--clear-lin
1340	6b 73 20 23 5b 30 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	ks.#[0."\301\302.\"\211.\207".[s
1360	65 73 6d 61 6e 2d 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	esman-links-alist.seq-filter.#[2
1380	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
13a0	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.
13c0	58 29 22 5d 5d 20 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	X)"]].3]).(defalias.'sesman--for
13e0	6d 61 74 2d 6c 69 6e 6b 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 21 21 5c 33 30 32 5c	mat-link.#[257."\300\301.!!\302\
1400	33 30 33 5c 33 30 34 04 21 03 3c 5c 32 30 33 14 00 03 41 5c 32 30 32 15 00 03 5c 33 30 35 5c 33	303\304.!.<\203...A\202...\305\3
1420	30 36 06 07 21 5c 33 30 37 5c 33 31 30 23 24 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 61 62	06..!\307\310#$\207".[sesman--ab
1440	62 72 65 76 2d 70 61 74 68 2d 6d 61 79 62 65 20 73 65 73 6d 61 6e 2d 2d 6c 6e 6b 2d 76 61 6c 75	brev-path-maybe.sesman--lnk-valu
1460	65 20 66 6f 72 6d 61 74 20 22 25 73 28 25 73 29 2d 3e 25 73 22 20 73 65 73 6d 61 6e 2d 2d 6c 6e	e.format."%s(%s)->%s".sesman--ln
1480	6b 2d 63 6f 6e 74 65 78 74 2d 74 79 70 65 20 70 72 6f 70 65 72 74 69 7a 65 20 73 65 73 6d 61 6e	k-context-type.propertize.sesman
14a0	2d 2d 6c 6e 6b 2d 73 65 73 73 69 6f 6e 2d 6e 61 6d 65 20 66 61 63 65 20 62 6f 6c 64 5d 20 31 30	--lnk-session-name.face.bold].10
14c0	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 65	."\n\n(fn.LINK)"]).(defalias.'se
14e0	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 33	sman--ask-for-link.#[770."\300\3
1500	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 33	01.\"\302..\205...G\303V\205..\3
1520	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 33	04\"\300\305.\"\306...\307\310\3
1540	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 32	07\211..@&.\211\311\230\203...\2
1560	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 01	02@..\203;.\312..\"AC\202@.\312.
1580	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 01	.\"A\207".[mapcar.#[257."\300.!.
15a0	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 22	B\207".[sesman--format-link].3."
15c0	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 6c	\n\n(fn.LINK)"].append.1.(("*all
15e0	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 22	*")).car.completing-read.nil.t."
1600	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 54	*all*".assoc].14."\n\n(fn.PROMPT
1620	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 65	.LINKS.&optional.ASK-ALL)"]).(de
1640	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 5b	falias.'sesman--sort-sessions.#[
1660	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 21	514."\300\301\302\303\304\305..!
1680	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 72	\306\"\307\310%.\"\207".[seq-sor
16a0	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 03	t.make-byte-code.514."\301\300..
16c0	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 6f	#\207".vconcat.vector.[sesman-mo
16e0	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 29	re-relevant-p].6."\n\n(fn.X1.X2)
1700	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 5d	"].9."\n\n(fn.SYSTEM.SESSIONS)"]
1720	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 20	).(defalias.'sesman--sort-links.
1740	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 06	#[514."\300\301\302\303\304\305.
1760	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 73	.!\306\"\307\310%.\"\207".[seq-s
1780	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 30	ort.make-byte-code.514."\302\300
17a0	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 74	\303.@.\"\303.@.\"#\207".vconcat
17c0	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 70	.vector.[sesman-sessions-hashmap
17e0	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 5d	.sesman-more-relevant-p.gethash]
1800	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 20	.8."\n\n(fn.X1.X2)"].9."\n\n(fn.
1820	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 6d	SYSTEM.LINKS)"]).(defalias.'sesm
1840	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 40	an--lnk-system-name.#[257."\211@
1860	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 65	@\207".[].2."\n\n(fn.LNK)"]).(de
1880	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 65	falias.'sesman--lnk-session-name
18a0	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 66	.#[257."\211@A\207".[].2."\n\n(f
18c0	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 6b	n.LNK)"]).(defalias.'sesman--lnk
18e0	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 22	-context-type.#[257."\211A@\207"
1900	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 73	.[].2."\n\n(fn.LNK)"]).(defalias
1920	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 01	.'sesman--lnk-value.#[257."\300.
1940	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 40	8\207".[2].3."\n\n(fn.LNK)"]).#@
1960	32 33 20 53 74 61 72 74 20 73 65 73 6d 61 6e 20 73 65 73 73 69 6f 6e 2e 1f 0a 28 64 65 66 61 6c	23.Start.sesman.session...(defal
1980	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 30 20 5c 33 30 31	ias.'sesman-start.#[0."\300.\301
19a0	5c 33 30 32 02 5c 22 5c 32 31 30 5c 33 30 33 01 21 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d	\302.\"\210\303.!\207".[sesman--
19c0	73 79 73 74 65 6d 20 6d 65 73 73 61 67 65 20 22 53 74 61 72 74 69 6e 67 20 6e 65 77 20 25 73 20	system.message."Starting.new.%s.
19e0	73 65 73 73 69 6f 6e 20 2e 2e 2e 22 20 73 65 73 6d 61 6e 2d 73 74 61 72 74 2d 73 65 73 73 69 6f	session....".sesman-start-sessio
1a00	6e 5d 20 34 20 28 23 24 20 2e 20 36 34 39 39 29 20 6e 69 6c 5d 29 0a 23 40 32 35 20 52 65 73 74	n].4.(#$...6499).nil]).#@25.Rest
1a20	61 72 74 20 73 65 73 6d 61 6e 20 73 65 73 73 69 6f 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	art.sesman.session...(defalias.'
1a40	73 65 73 6d 61 6e 2d 72 65 73 74 61 72 74 20 23 5b 30 20 22 5c 33 30 30 20 5c 33 30 31 01 5c 33	sesman-restart.#[0."\300.\301.\3
1a60	30 32 5c 22 5c 33 30 33 5c 33 30 34 03 03 40 23 5c 32 31 30 5c 33 30 35 02 02 5c 22 5c 32 30 37	02\"\303\304..@#\210\305..\"\207
1a80	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 65 6e 73 75 72 65 2d	".[sesman--system.sesman-ensure-
1aa0	73 65 73 73 69 6f 6e 20 22 52 65 73 74 61 72 74 20 73 65 73 73 69 6f 6e 3a 20 22 20 6d 65 73 73	session."Restart.session:.".mess
1ac0	61 67 65 20 22 52 65 73 74 61 72 74 69 6e 67 20 25 73 20 27 25 73 27 20 73 65 73 73 69 6f 6e 22	age."Restarting.%s.'%s'.session"
1ae0	20 73 65 73 6d 61 6e 2d 72 65 73 74 61 72 74 2d 73 65 73 73 69 6f 6e 5d 20 36 20 28 23 24 20 2e	.sesman-restart-session].6.(#$..
1b00	20 36 36 38 34 29 20 6e 69 6c 5d 29 0a 23 40 32 32 33 20 54 65 72 6d 69 6e 61 74 65 20 73 65 73	.6684).nil]).#@223.Terminate.ses
1b20	6d 61 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	man.session..When.WHICH.is.nil,.
1b40	6b 69 6c 6c 20 6f 6e 6c 79 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 65 73 73 69 6f 6e 3b 20 77	kill.only.the.current.session;.w
1b60	68 65 6e 20 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	hen.a.single.universal.argument.
1b80	6f 72 20 27 6c 69 6e 6b 65 64 2c 20 6b 69 6c 6c 20 61 6c 6c 20 6c 69 6e 6b 65 64 20 73 65 73 73	or.'linked,.kill.all.linked.sess
1ba0	69 6f 6e 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 20 61 72 67	ion;.when.a.double.universal.arg
1bc0	75 6d 65 6e 74 2c 0a 74 20 6f 72 20 27 61 6c 6c 2c 20 6b 69 6c 6c 20 61 6c 6c 20 73 65 73 73 69	ument,.t.or.'all,.kill.all.sessi
1be0	6f 6e 73 2e 0a 0a 28 66 6e 20 57 48 49 43 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73	ons...(fn.WHICH)..(defalias.'ses
1c00	6d 61 6e 2d 71 75 69 74 20 23 5b 32 35 37 20 22 5c 33 30 30 20 5c 33 30 31 01 03 5c 22 5c 32 31	man-quit.#[257."\300.\301..\"\21
1c20	31 5c 32 30 34 11 00 5c 33 30 32 5c 33 30 33 03 5c 22 5c 32 30 32 37 00 5c 33 30 34 5c 33 30 35	1\204..\302\303.\"\2027.\304\305
1c40	5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 06 07 21 5c 33 31 32 5c 22 5c 33 31 33 5c 33 31	\306\307\310\311..!\312\"\313\31
1c60	34 25 02 5c 22 5c 32 31 30 5c 33 30 32 5c 33 31 35 03 03 47 5c 33 31 36 55 5c 32 30 33 30 00 5c	4%.\"\210\302\315..G\316U\2030.\
1c80	33 31 37 5c 32 30 32 31 00 5c 33 32 30 5c 33 32 31 5c 33 32 32 06 06 5c 22 24 5c 32 30 37 22 20	317\2021.\320\321\322..\"$\207".
1ca0	5b 73 65 73 6d 61 6e 2d 2d 73 79 73 74 65 6d 20 73 65 73 6d 61 6e 2d 2d 6f 6e 2d 43 2d 75 2d 75	[sesman--system.sesman--on-C-u-u
1cc0	2d 73 65 73 73 69 6f 6e 73 20 6d 65 73 73 61 67 65 20 22 4e 6f 20 6d 6f 72 65 20 25 73 20 73 65	-sessions.message."No.more.%s.se
1ce0	73 73 69 6f 6e 73 22 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	ssions".mapc.make-byte-code.257.
1d00	22 5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 31 30 5c 33 30 32 5c 33 30 30 02 5c 22 5c 32 30 37 22	"\301\300.\"\210\302\300.\"\207"
1d20	20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 73 65 73 6d 61 6e 2d 75 6e 72 65 67 69 73 74	.vconcat.vector.[sesman-unregist
1d40	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(
1d60	66 6e 20 53 29 22 20 22 4b 69 6c 6c 65 64 20 25 73 20 25 73 20 25 73 22 20 31 20 22 73 65 73 73	fn.S)"."Killed.%s.%s.%s".1."sess
1d80	69 6f 6e 22 20 22 73 65 73 73 69 6f 6e 73 22 20 6d 61 70 63 61 72 20 63 61 72 5d 20 31 30 20 28	ion"."sessions".mapcar.car].10.(
1da0	23 24 20 2e 20 36 39 33 31 29 20 22 50 22 5d 29 0a 23 40 32 33 38 20 44 69 73 70 6c 61 79 20 73	#$...6931)."P"]).#@238.Display.s
1dc0	65 73 73 69 6f 6e 28 73 29 20 69 6e 66 6f 2e 0a 57 68 65 6e 20 57 48 49 43 48 20 69 73 20 6e 69	ession(s).info..When.WHICH.is.ni
1de0	6c 2c 20 73 68 6f 77 20 69 6e 66 6f 20 66 6f 72 20 63 75 72 72 65 6e 74 20 73 65 73 73 69 6f 6e	l,.show.info.for.current.session
1e00	3b 20 77 68 65 6e 20 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	;.when.a.single.universal.argume
1e20	6e 74 20 6f 72 20 27 6c 69 6e 6b 65 64 2c 20 73 68 6f 77 20 69 6e 66 6f 20 66 6f 72 20 61 6c 6c	nt.or.'linked,.show.info.for.all
1e40	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 75 62 6c 65 20	.linked.sessions;.when.a.double.
1e60	75 6e 69 76 65 72 73 61 6c 0a 61 72 67 75 6d 65 6e 74 20 6f 72 20 27 61 6c 6c 2c 20 73 68 6f 77	universal.argument.or.'all,.show
1e80	20 69 6e 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 57 48 49	.info.for.all.sessions...(fn.WHI
1ea0	43 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d 61 6e 2d 73 68 6f 77 2d 73 65 73 73	CH)..(defalias.'sesman-show-sess
1ec0	69 6f 6e 2d 69 6e 66 6f 20 23 5b 32 35 37 20 22 5c 33 30 30 20 5c 33 30 31 01 03 5c 22 5c 32 31	ion-info.#[257."\300.\301..\"\21
1ee0	31 5c 32 30 33 5c 22 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37	1\203\".\302\303\304\305\306\307
1f00	5c 33 31 30 06 08 21 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 5c 33 31 34 04 21 5c 33 31 35	\310..!\311\"\312\313%\314.!\315
1f20	23 21 5c 32 30 32 26 00 5c 33 30 32 5c 33 31 36 03 5c 22 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e	#!\202&.\302\316.\"\207".[sesman
1f40	2d 2d 73 79 73 74 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	--system.sesman--on-C-u-u-sessio
1f60	6e 73 20 6d 65 73 73 61 67 65 20 6d 61 70 63 6f 6e 63 61 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63	ns.message.mapconcat.make-byte-c
1f80	6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 03 40 5c 33 30 34 5c 33 30 35 23	ode.257."\301\302\303.@\304\305#
1fa0	5c 33 30 36 5c 33 30 30 05 5c 33 30 37 23 5c 33 31 30 5c 33 30 30 06 06 5c 22 24 5c 32 30 37 22	\306\300.\307#\310\300..\"$\207"
1fc0	20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 66 6f 72 6d 61 74 20 22 25 73 20 5b 6c 69 6e	.vconcat.vector.[format."%s.[lin
1fe0	6b 65 64 3a 20 25 73 5d 5c 6e 25 73 22 20 70 72 6f 70 65 72 74 69 7a 65 20 66 61 63 65 20 62 6f	ked:.%s]\n%s".propertize.face.bo
2000	6c 64 20 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 2d 6c 69 6e 6b 73 20 74 20 73 65 73 6d 61 6e	ld.sesman-session-links.t.sesman
2020	2d 73 65 73 73 69 6f 6e 2d 69 6e 66 6f 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 53 29 22 20	-session-info].8."\n\n(fn.SES)".
2040	64 65 6c 65 74 65 2d 63 6f 6e 73 65 63 75 74 69 76 65 2d 64 75 70 73 20 22 5c 6e 22 20 22 4e 6f	delete-consecutive-dups."\n"."No
2060	20 25 73 20 73 65 73 73 69 6f 6e 73 22 5d 20 31 31 20 28 23 24 20 2e 20 37 36 30 37 29 20 22 50	.%s.sessions"].11.(#$...7607)."P
2080	22 5d 29 0a 23 40 34 36 20 44 69 73 70 6c 61 79 20 6c 69 6e 6b 73 20 61 63 74 69 76 65 20 69 6e	"]).#@46.Display.links.active.in
20a0	20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6e 74 65 78 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73	.the.current.context...(defalias
20c0	20 27 73 65 73 6d 61 6e 2d 73 68 6f 77 2d 6c 69 6e 6b 73 20 23 5b 30 20 22 5c 33 30 30 20 5c 33	.'sesman-show-links.#[0."\300.\3
20e0	30 31 01 21 5c 32 31 31 5c 32 30 33 13 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 5c 33 30 35 23	01.!\211\203..\302\303\304.\305#
2100	21 5c 32 30 32 17 00 5c 33 30 32 5c 33 30 36 03 5c 22 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d	!\202..\302\306.\"\207".[sesman-
2120	2d 73 79 73 74 65 6d 20 73 65 73 6d 61 6e 2d 63 75 72 72 65 6e 74 2d 6c 69 6e 6b 73 20 6d 65 73	-system.sesman-current-links.mes
2140	73 61 67 65 20 6d 61 70 63 6f 6e 63 61 74 20 73 65 73 6d 61 6e 2d 2d 66 6f 72 6d 61 74 2d 6c 69	sage.mapconcat.sesman--format-li
2160	6e 6b 20 22 5c 6e 22 20 22 4e 6f 20 25 73 20 6c 69 6e 6b 73 20 69 6e 20 74 68 65 20 63 75 72 72	nk."\n"."No.%s.links.in.the.curr
2180	65 6e 74 20 63 6f 6e 74 65 78 74 22 5d 20 37 20 28 23 24 20 2e 20 38 33 32 39 29 20 6e 69 6c 5d	ent.context"].7.(#$...8329).nil]
21a0	29 0a 23 40 34 32 20 41 73 73 6f 63 69 61 74 65 20 61 20 73 65 73 73 69 6f 6e 20 77 69 74 68 20	).#@42.Associate.a.session.with.
21c0	63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 73 6d	current.buffer...(defalias.'sesm
21e0	61 6e 2d 6c 69 6e 6b 2d 77 69 74 68 2d 62 75 66 66 65 72 20 23 5b 30 20 22 5c 33 30 30 20 5c 33	an-link-with-buffer.#[0."\300.\3
2200	30 31 5c 33 30 32 02 21 5c 32 33 35 5c 32 30 33 24 00 5c 33 30 33 01 5c 33 30 34 5c 33 30 35 5c	01\302.!\235\203$.\303.\304\305\
2220	33 30 36 5c 33 30 37 5c 33 31 30 5c 33 30 31 21 21 23 5c 33 31 31 04 21 5c 33 31 32 24 5c 33 31	306\307\310\301!!#\311.!\312$\31
2240	33 02 02 5c 33 30 31 23 5c 32 36 32 01 5c 32 30 32 2b 00 5c 33 31 34 5c 33 30 34 5c 33 31 35 5c	3..\301#\262.\202+.\314\304\315\
2260	33 31 36 04 23 21 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 73 79 73 74 65 6d 20 62 75 66 66	316.#!\207".[sesman--system.buff
2280	65 72 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 61	er.sesman-context-types.sesman-a
22a0	73 6b 2d 66 6f 72 2d 73 65 73 73 69 6f 6e 20 66 6f 72 6d 61 74 20 22 4c 69 6e 6b 20 77 69 74 68	sk-for-session.format."Link.with
22c0	20 25 73 20 25 73 3a 20 22 20 22 62 75 66 66 65 72 22 20 73 65 73 6d 61 6e 2d 2d 61 62 62 72 65	.%s.%s:."."buffer".sesman--abbre
22e0	76 2d 70 61 74 68 2d 6d 61 79 62 65 20 73 65 73 6d 61 6e 2d 63 6f 6e 74 65 78 74 20 73 65 73 6d	v-path-maybe.sesman-context.sesm
2300	61 6e 2d 2d 61 6c 6c 2d 73 79 73 74 65 6d 2d 73 65 73 73 69 6f 6e 73 20 61 73 6b 2d 6e 65 77 20	an--all-system-sessions.ask-new.
2320	73 65 73 6d 61 6e 2d 2d 6c 69 6e 6b 2d 73 65 73 73 69 6f 6e 20 65 72 72 6f 72 20 22 25 73 20 61	sesman--link-session.error."%s.a
2340	73 73 6f 63 69 61 74 69 6f 6e 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 66 6f 72 20 74 68 69 73 20	ssociation.not.allowed.for.this.
2360	73 79 73 74 65 6d 20 28 25 73 29 22 20 22 42 75 66 66 65 72 22 5d 20 39 20 28 23 24 20 2e 20 38	system.(%s)"."Buffer"].9.(#$...8
2380	36 31 35 29 20 6e 69 6c 5d 29 0a 23 40 34 35 20 41 73 73 6f 63 69 61 74 65 20 61 20 73 65 73 73	615).nil]).#@45.Associate.a.sess
23a0	69 6f 6e 20 77 69 74 68 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 1f 0a 28 64 65	ion.with.current.directory...(de
23c0	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 64 69 72 65 63 74 6f	falias.'sesman-link-with-directo
23e0	72 79 20 23 5b 30 20 22 5c 33 30 30 20 5c 33 30 31 5c 33 30 32 02 21 5c 32 33 35 5c 32 30 33 24	ry.#[0."\300.\301\302.!\235\203$
2400	00 5c 33 30 33 01 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 30 31 21 21	.\303.\304\305\306\307\310\301!!
2420	23 5c 33 31 31 04 21 5c 33 31 32 24 5c 33 31 33 02 02 5c 33 30 31 23 5c 32 36 32 01 5c 32 30 32	#\311.!\312$\313..\301#\262.\202
2440	2b 00 5c 33 31 34 5c 33 30 34 5c 33 31 35 5c 33 31 36 04 23 21 5c 32 30 37 22 20 5b 73 65 73 6d	+.\314\304\315\316.#!\207".[sesm
2460	61 6e 2d 2d 73 79 73 74 65 6d 20 64 69 72 65 63 74 6f 72 79 20 73 65 73 6d 61 6e 2d 63 6f 6e 74	an--system.directory.sesman-cont
2480	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 6f 6e	ext-types.sesman-ask-for-session
24a0	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 22 64 69 72	.format."Link.with.%s.%s:."."dir
24c0	65 63 74 6f 72 79 22 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	ectory".sesman--abbrev-path-mayb
24e0	65 20 73 65 73 6d 61 6e 2d 63 6f 6e 74 65 78 74 20 73 65 73 6d 61 6e 2d 2d 61 6c 6c 2d 73 79 73	e.sesman-context.sesman--all-sys
2500	74 65 6d 2d 73 65 73 73 69 6f 6e 73 20 61 73 6b 2d 6e 65 77 20 73 65 73 6d 61 6e 2d 2d 6c 69 6e	tem-sessions.ask-new.sesman--lin
2520	6b 2d 73 65 73 73 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	k-session.error."%s.association.
2540	6e 6f 74 20 61 6c 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	not.allowed.for.this.system.(%s)
2560	22 20 22 44 69 72 65 63 74 6f 72 79 22 5d 20 39 20 28 23 24 20 2e 20 39 31 30 34 29 20 6e 69 6c	"."Directory"].9.(#$...9104).nil
2580	5d 29 0a 23 40 34 33 20 41 73 73 6f 63 69 61 74 65 20 61 20 73 65 73 73 69 6f 6e 20 77 69 74 68	]).#@43.Associate.a.session.with
25a0	20 63 75 72 72 65 6e 74 20 70 72 6f 6a 65 63 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65	.current.project...(defalias.'se
25c0	73 6d 61 6e 2d 6c 69 6e 6b 2d 77 69 74 68 2d 70 72 6f 6a 65 63 74 20 23 5b 30 20 22 5c 33 30 30	sman-link-with-project.#[0."\300
25e0	20 5c 33 30 31 5c 33 30 32 02 21 5c 32 33 35 5c 32 30 33 24 00 5c 33 30 33 01 5c 33 30 34 5c 33	.\301\302.!\235\203$.\303.\304\3
2600	30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 30 31 21 21 23 5c 33 31 31 04 21 5c 33 31 32 24	05\306\307\310\301!!#\311.!\312$
2620	5c 33 31 33 02 02 5c 33 30 31 23 5c 32 36 32 01 5c 32 30 32 2b 00 5c 33 31 34 5c 33 30 34 5c 33	\313..\301#\262.\202+.\314\304\3
2640	31 35 5c 33 31 36 04 23 21 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 73 79 73 74 65 6d 20 70	15\316.#!\207".[sesman--system.p
2660	72 6f 6a 65 63 74 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	roject.sesman-context-types.sesm
2680	61 6e 2d 61 73 6b 2d 66 6f 72 2d 73 65 73 73 69 6f 6e 20 66 6f 72 6d 61 74 20 22 4c 69 6e 6b 20	an-ask-for-session.format."Link.
26a0	77 69 74 68 20 25 73 20 25 73 3a 20 22 20 22 70 72 6f 6a 65 63 74 22 20 73 65 73 6d 61 6e 2d 2d	with.%s.%s:."."project".sesman--
26c0	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 6f 6e 74 65 78 74	abbrev-path-maybe.sesman-context
26e0	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 61 73 6b	.sesman--all-system-sessions.ask
2700	2d 6e 65 77 20 73 65 73 6d 61 6e 2d 2d 6c 69 6e 6b 2d 73 65 73 73 69 6f 6e 20 65 72 72 6f 72 20	-new.sesman--link-session.error.
2720	22 25 73 20 61 73 73 6f 63 69 61 74 69 6f 6e 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 66 6f 72 20	"%s.association.not.allowed.for.
2740	74 68 69 73 20 73 79 73 74 65 6d 20 28 25 73 29 22 20 22 50 72 6f 6a 65 63 74 22 5d 20 39 20 28	this.system.(%s)"."Project"].9.(
2760	23 24 20 2e 20 39 36 30 38 29 20 6e 69 6c 5d 29 0a 23 40 34 34 20 42 72 65 61 6b 20 61 6e 79 20	#$...9608).nil]).#@44.Break.any.
2780	6f 66 20 74 68 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	of.the.previously.created.links.
27a0	1f 0a 28 64 65 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	..(defalias.'sesman-unlink.#[0."
27c0	5c 33 30 30 20 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	\300.\301.!\206\f.\302\303.\"\30
27e0	34 5c 33 30 35 5c 33 30 36 5c 33 30 37 04 5c 33 31 30 23 5c 22 5c 32 30 37 22 20 5b 73 65 73 6d	4\305\306\307.\310#\"\207".[sesm
2800	61 6e 2d 2d 73 79 73 74 65 6d 20 73 65 73 6d 61 6e 2d 63 75 72 72 65 6e 74 2d 6c 69 6e 6b 73 20	an--system.sesman-current-links.
2820	75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 20 25 73 20 6c 69 6e 6b 73 20 66 6f 75 6e 64 22 20 6d	user-error."No.%s.links.found".m
2840	61 70 63 20 73 65 73 6d 61 6e 2d 2d 75 6e 6c 69 6e 6b 20 73 65 73 6d 61 6e 2d 2d 61 73 6b 2d 66	apc.sesman--unlink.sesman--ask-f
2860	6f 72 2d 6c 69 6e 6b 20 22 55 6e 6c 69 6e 6b 3a 20 22 20 61 73 6b 2d 61 6c 6c 5d 20 38 20 28 23	or-link."Unlink:.".ask-all].8.(#
2880	24 20 2e 20 31 30 31 30 32 29 20 6e 69 6c 5d 29 0a 23 40 33 35 20 53 65 73 73 69 6f 6e 20 6d 61	$...10102).nil]).#@35.Session.ma
28a0	6e 61 67 65 6d 65 6e 74 20 70 72 65 66 69 78 20 6b 65 79 6d 61 70 2e 1f 0a 28 64 65 66 76 61 72	nagement.prefix.keymap...(defvar
28c0	20 73 65 73 6d 61 6e 2d 6d 61 70 20 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 18 5c 33 30	.sesman-map.(byte-code."\301.\30
28e0	32 5c 33 30 30 21 5c 32 31 30 5c 33 30 33 08 5c 33 30 34 5c 33 30 35 23 5c 32 31 30 5c 33 30 33	2\300!\210\303.\304\305#\210\303
2900	08 5c 33 30 36 5c 33 30 35 23 5c 32 31 30 5c 33 30 33 08 5c 33 30 37 5c 33 31 30 23 5c 32 31 30	.\306\305#\210\303.\307\310#\210
2920	5c 33 30 33 08 5c 33 31 31 5c 33 31 30 23 5c 32 31 30 5c 33 30 33 08 5c 33 31 32 5c 33 31 33 23	\303.\311\310#\210\303.\312\313#
2940	5c 32 31 30 5c 33 30 33 08 5c 33 31 34 5c 33 31 33 23 5c 32 31 30 5c 33 30 33 08 5c 33 31 35 5c	\210\303.\314\313#\210\303.\315\
2960	33 31 36 23 5c 32 31 30 5c 33 30 33 08 5c 33 31 37 5c 33 31 36 23 5c 32 31 30 5c 33 30 33 08 5c	316#\210\303.\317\316#\210\303.\
2980	33 32 30 5c 33 32 31 23 5c 32 31 30 5c 33 30 33 08 5c 33 32 32 5c 33 32 31 23 5c 32 31 30 5c 33	320\321#\210\303.\322\321#\210\3
29a0	30 33 08 5c 33 32 33 5c 33 32 34 23 5c 32 31 30 5c 33 30 33 08 5c 33 32 35 5c 33 32 34 23 5c 32	03.\323\324#\210\303.\325\324#\2
29c0	31 30 5c 33 30 33 08 5c 33 32 36 5c 33 32 37 23 5c 32 31 30 5c 33 30 33 08 5c 33 33 30 5c 33 32	10\303.\326\327#\210\303.\330\32
29e0	37 23 5c 32 31 30 5c 33 30 33 08 5c 33 33 31 5c 33 33 32 23 5c 32 31 30 5c 33 30 33 08 5c 33 33	7#\210\303.\331\332#\210\303.\33
2a00	33 5c 33 33 32 23 5c 32 31 30 5c 33 30 33 08 5c 33 33 34 5c 33 33 35 23 5c 32 31 30 5c 33 30 33	3\332#\210\303.\334\335#\210\303
2a20	08 5c 33 33 36 5c 33 33 35 23 5c 32 31 30 08 29 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 6d 61	.\336\335#\210.)\207".[sesman-ma
2a40	70 20 6e 69 6c 20 64 65 66 69 6e 65 2d 70 72 65 66 69 78 2d 63 6f 6d 6d 61 6e 64 20 64 65 66 69	p.nil.define-prefix-command.defi
2a60	6e 65 2d 6b 65 79 20 22 09 22 20 73 65 73 6d 61 6e 2d 73 68 6f 77 2d 73 65 73 73 69 6f 6e 2d 69	ne-key.".".sesman-show-session-i
2a80	6e 66 6f 20 22 69 22 20 22 5c 66 22 20 73 65 73 6d 61 6e 2d 73 68 6f 77 2d 6c 69 6e 6b 73 20 22	nfo."i"."\f".sesman-show-links."
2aa0	6c 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	l".".".sesman-start."s".".".sesm
2ac0	61 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	an-restart."r".".".sesman-quit."
2ae0	71 22 20 22 02 22 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 2d 77 69 74 68 2d 62 75 66 66 65 72 20 22	q".".".sesman-link-with-buffer."
2b00	62 22 20 22 04 22 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 2d 77 69 74 68 2d 64 69 72 65 63 74 6f 72	b".".".sesman-link-with-director
2b20	79 20 22 64 22 20 22 10 22 20 73 65 73 6d 61 6e 2d 6c 69 6e 6b 2d 77 69 74 68 2d 70 72 6f 6a 65	y."d".".".sesman-link-with-proje
2b40	63 74 20 22 70 22 20 22 15 22 20 73 65 73 6d 61 6e 2d 75 6e 6c 69 6e 6b 20 22 75 22 5d 20 34 29	ct."p".".".sesman-unlink."u"].4)
2b60	20 28 23 24 20 2e 20 31 30 33 39 30 29 29 0a 23 40 31 34 20 53 65 73 6d 61 6e 20 4d 65 6e 75 2e	.(#$...10390)).#@14.Sesman.Menu.
2b80	1f 0a 28 64 65 66 76 61 72 20 73 65 73 6d 61 6e 2d 6d 65 6e 75 20 27 28 22 53 65 73 6d 61 6e 22	..(defvar.sesman-menu.'("Sesman"
2ba0	20 5b 22 53 68 6f 77 20 53 65 73 73 69 6f 6e 20 49 6e 66 6f 22 20 73 65 73 6d 61 6e 2d 73 68 6f	.["Show.Session.Info".sesman-sho
2bc0	77 2d 73 65 73 73 69 6f 6e 2d 69 6e 66 6f 5d 20 5b 22 53 68 6f 77 20 4c 69 6e 6b 73 22 20 73 65	w-session-info].["Show.Links".se
2be0	73 6d 61 6e 2d 73 68 6f 77 2d 6c 69 6e 6b 73 5d 20 22 2d 2d 22 20 5b 22 53 74 61 72 74 22 20 73	sman-show-links]."--".["Start".s
2c00	65 73 6d 61 6e 2d 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	esman-start].["Restart".sesman-r
2c20	65 73 74 61 72 74 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	estart.:active.(sesman-connected
2c40	2d 70 29 5d 20 5b 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	-p)].["Quit".sesman-quit.:active
2c60	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 20 5b 22 4c 69	.(sesman-connected-p)]."--".["Li
2c80	6e 6b 20 77 69 74 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	nk.with.Buffer".sesman-link-with
2ca0	2d 62 75 66 66 65 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	-buffer.:active.(sesman-connecte
2cc0	64 2d 70 29 5d 20 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	d-p)].["Link.with.Directory".ses
2ce0	6d 61 6e 2d 6c 69 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	man-link-with-directory.:active.
2d00	28 73 65 73 6d 61 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	(sesman-connected-p)].["Link.wit
2d20	68 20 50 72 6f 6a 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	h.Project".sesman-link-with-proj
2d40	65 63 74 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	ect.:active.(sesman-connected-p)
2d60	5d 20 22 2d 2d 22 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	]."--".["Unlink".sesman-unlink.:
2d80	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 29 20 28 23	active.(sesman-connected-p)]).(#
2da0	24 20 2e 20 31 31 31 32 34 29 29 0a 23 40 34 33 20 49 6e 73 74 61 6c 6c 20 60 73 65 73 6d 61 6e	$...11124)).#@43.Install.`sesman
2dc0	2d 6d 65 6e 75 27 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	-menu'.into.MAP...(fn.MAP)..(def
2de0	61 6c 69 61 73 20 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	alias.'sesman-install-menu.#[257
2e00	20 22 5c 33 30 31 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	."\301\302.\300\303N.$\207".[ses
2e20	6d 61 6e 2d 6d 65 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	man-menu.easy-menu-do-define.sem
2e40	61 6e 2d 6d 65 6e 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	an-menu-open.variable-documentat
2e60	69 6f 6e 5d 20 36 20 28 23 24 20 2e 20 31 31 36 39 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65	ion].6.(#$...11697)]).(byte-code
2e80	20 22 5c 33 30 30 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	."\300\301\302\301\303\304#\305#
2ea0	5c 32 31 30 5c 33 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	\210\300\306\302\306\307\304#\31
2ec0	30 23 5c 32 31 30 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	0#\210\300\311\302\311\312\304#\
2ee0	33 31 33 23 5c 32 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	313#\210\314\311\304\312\304\315
2f00	25 5c 32 31 30 5c 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	%\210\300\316\302\316\317\304#\3
2f20	32 30 23 5c 32 31 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	20#\210\314\316\304\317\304\321%
2f40	5c 32 31 30 5c 33 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	\210\300\322\302\322\323\304#\32
2f60	34 23 5c 32 31 30 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	4#\210\314\322\304\323\304\325%\
2f80	32 31 30 5c 33 30 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	210\300\326\302\326\327\304#\330
2fa0	23 5c 32 31 30 5c 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	#\210\314\326\304\327\304\331%\2
2fc0	30 37 22 20 5b 64 65 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	07".[defalias.sesman-start-sessi
2fe0	6f 6e 20 63 6c 2d 67 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	on.cl-generic-define.(system).ni
3000	6c 20 22 53 74 61 72 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	l."Start.and.return.SYSTEM.SESSI
3020	4f 4e 2e 5c 6e 5c 6e 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	ON.\n\n(fn.SYSTEM)".sesman-quit-
3040	73 65 73 73 69 6f 6e 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	session.(system.session)."Termin
3060	61 74 65 20 53 59 53 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	ate.SYSTEM.SESSION.\n\n(fn.SYSTE
3080	4d 20 53 45 53 53 49 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	M.SESSION)".sesman-restart-sessi
30a0	6f 6e 20 28 73 79 73 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	on.(system.session)."Restart.SYS
30c0	54 45 4d 20 53 45 53 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	TEM.SESSION.\nBy.default,.calls.
30e0	60 73 65 73 6d 61 6e 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	`sesman-quit-session'.and.then\n
3100	60 73 65 73 6d 61 6e 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	`sesman-start-session'.\n\n(fn.S
3120	59 53 54 45 4d 20 53 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	YSTEM.SESSION)".cl-generic-defin
3140	65 2d 6d 65 74 68 6f 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	e-method.#[514."\211@\300..\"\21
3160	30 5c 33 30 31 03 21 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	0\301.!\211.\240\262.\207".[sesm
3180	61 6e 2d 71 75 69 74 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	an-quit-session.sesman-start-ses
31a0	73 69 6f 6e 5d 20 36 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	sion].6."\n\n(fn.SYSTEM.SESSION)
31c0	22 5d 20 73 65 73 6d 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	"].sesman-session-info.(_system.
31e0	73 65 73 73 69 6f 6e 29 20 22 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 20 53 45 53 53 49 4f 4e	session)."\n\n(fn.SYSTEM.SESSION
3200	29 22 20 23 5b 35 31 34 20 22 5c 32 31 31 41 5c 32 30 37 22 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28	)".#[514."\211A\207".[].3."\n\n(
3220	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 61 6e 2d 63 6f 6e 74	fn.SYSTEM.SESSION)"].sesman-cont
3240	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 20 61 20 6c 69	ext-types.(_system)."Return.a.li
3260	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 6f 6f 64 20 62	st.of.context.types.understood.b
3280	79 20 53 59 53 54 45 4d 2e 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 29 22 20 23 5b 32 35 37 20	y.SYSTEM.\n\n(fn.SYSTEM)".#[257.
32a0	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 79 20 70 72	"\300\207".[(buffer.directory.pr
32c0	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 20 73 65 73	oject)].2."\n\n(fn.SYSTEM)"].ses
32e0	6d 61 6e 2d 6d 6f 72 65 2d 72 65 6c 65 76 61 6e 74 2d 70 20 28 5f 73 79 73 74 65 6d 20 73 65 73	man-more-relevant-p.(_system.ses
3300	73 69 6f 6e 31 20 73 65 73 73 69 6f 6e 32 29 20 22 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20	sion1.session2)."Return.non-nil.
3320	69 66 20 53 45 53 53 49 4f 4e 31 20 73 68 6f 75 6c 64 20 62 65 20 73 6f 72 74 65 64 20 62 65 66	if.SESSION1.should.be.sorted.bef
3340	6f 72 65 20 53 45 53 53 49 4f 4e 32 2e 5c 6e 42 79 20 64 65 66 61 75 6c 74 2c 20 73 6f 72 74 20	ore.SESSION2.\nBy.default,.sort.
3360	62 79 20 73 65 73 73 69 6f 6e 20 6e 61 6d 65 2e 20 53 79 73 74 65 6d 73 20 73 68 6f 75 6c 64 20	by.session.name..Systems.should.
3380	6f 76 65 72 77 72 69 74 65 20 74 68 69 73 20 6d 65 74 68 6f 64 20 74 6f 5c 6e 70 72 6f 76 69 64	overwrite.this.method.to\nprovid
33a0	65 20 61 20 6d 6f 72 65 20 6d 65 61 6e 69 6e 67 66 75 6c 20 6f 72 64 65 72 69 6e 67 2e 20 49 66	e.a.more.meaningful.ordering..If
33c0	20 79 6f 75 72 20 73 79 73 74 65 6d 20 6f 62 6a 65 63 74 73 20 61 72 65 20 62 75 66 66 65 72 73	.your.system.objects.are.buffers
33e0	20 79 6f 75 5c 6e 63 61 6e 20 75 73 65 20 60 73 65 73 6d 61 6e 2d 6d 6f 72 65 2d 72 65 6c 65 76	.you\ncan.use.`sesman-more-relev
3400	61 6e 74 2d 70 27 20 75 74 69 6c 69 74 79 20 69 6e 20 74 68 69 73 20 6d 65 74 68 6f 64 2e 5c 6e	ant-p'.utility.in.this.method.\n
3420	5c 6e 28 66 6e 20 53 59 53 54 45 4d 20 53 45 53 53 49 4f 4e 31 20 53 45 53 53 49 4f 4e 32 29 22	\n(fn.SYSTEM.SESSION1.SESSION2)"
3440	20 23 5b 37 37 31 20 22 5c 33 30 30 02 40 02 40 5c 22 3f 5c 32 30 37 22 20 5b 73 74 72 69 6e 67	.#[771."\300.@.@\"?\207".[string
3460	2d 67 72 65 61 74 65 72 70 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 53 59 53 54 45 4d 20 53 45 53	-greaterp].6."\n\n(fn.SYSTEM.SES
3480	53 49 4f 4e 31 20 53 45 53 53 49 4f 4e 32 29 22 5d 5d 20 36 29 0a 23 40 38 39 20 52 65 74 72 69	SION1.SESSION2)"]].6).#@89.Retri
34a0	65 76 65 20 53 59 53 54 45 4d 27 73 20 73 65 73 73 69 6f 6e 20 77 69 74 68 20 53 45 53 53 49 4f	eve.SYSTEM's.session.with.SESSIO
34c0	4e 2d 4e 41 4d 45 20 66 72 6f 6d 20 67 6c 6f 62 61 6c 20 68 61 73 68 2e 0a 0a 28 66 6e 20 53 59	N-NAME.from.global.hash...(fn.SY
34e0	53 54 45 4d 20 53 45 53 53 49 4f 4e 2d 4e 41 4d 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73	STEM.SESSION-NAME)..(defalias.'s
3500	65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 20 23 5b 35 31 34 20 22 01 5c 32 30 36 06 00 5c 33 30 31	esman-session.#[514.".\206..\301
3520	20 5c 33 30 32 01 03 42 08 5c 22 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e	.\302..B.\"\207".[sesman-session
3540	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 67 65 74 68 61 73 68	s-hashmap.sesman--system.gethash
3560	5d 20 36 20 28 23 24 20 2e 20 31 33 34 36 37 29 5d 29 0a 23 40 31 30 38 20 52 65 74 75 72 6e 20	].6.(#$...13467)]).#@108.Return.
3580	61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 73 65 73 73 69 6f 6e 73 20 72 65 67 69 73 74 65 72 65	a.list.of.all.sessions.registere
35a0	64 20 77 69 74 68 20 53 59 53 54 45 4d 2e 0a 60 73 65 73 6d 61 6e 2d 6c 69 6e 6b 65 64 2d 73 65	d.with.SYSTEM..`sesman-linked-se
35c0	73 73 69 6f 6e 73 27 20 6c 65 61 64 20 74 68 65 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 53 59 53 54	ssions'.lead.the.list...(fn.SYST
35e0	45 4d 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 20	EM)..(defalias.'sesman-sessions.
3600	23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 36 06 00 5c 33 30 30 20 5c 33 30 31 5c 33 30 32 5c 33	#[257."\211\206..\300.\301\302\3
3620	30 33 03 21 5c 33 30 34 04 21 5c 22 21 5c 32 30 37 22 20 5b 73 65 73 6d 61 6e 2d 2d 73 79 73 74	03.!\304.!\"!\207".[sesman--syst
3640	65 6d 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 6c 69 6e	em.delete-dups.append.sesman-lin
3660	6b 65 64 2d 73 65 73 73 69 6f 6e 73 20 73 65 73 6d 61 6e 2d 2d 61 6c 6c 2d 73 79 73 74 65 6d 2d	ked-sessions.sesman--all-system-
3680	73 65 73 73 69 6f 6e 73 5d 20 37 20 28 23 24 20 2e 20 31 33 36 38 39 29 5d 29 0a 23 40 38 30 20	sessions].7.(#$...13689)]).#@80.
36a0	52 65 74 75 72 6e 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	Return.t.if.there.is.at.least.on
36c0	65 20 73 65 73 73 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	e.session.registered.with.SYSTEM
36e0	2e 0a 0a 28 66 6e 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	...(fn.SYSTEM)..(defalias.'sesma
3700	6e 2d 68 61 73 2d 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	n-has-sessions-p.#[257."\211\206
3720	06 00 5c 33 30 31 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	..\301.\302C\3031\".\304\305\306
3740	5c 33 30 37 5c 33 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	\307\310\311....\"\312\"\313\314
3760	25 08 5c 22 30 5c 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	%.\"0\202&.\210\202'.\210\211\24
3780	32 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 61 70 20	2\207".[sesman-sessions-hashmap.
37a0	73 65 73 6d 61 6e 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	sesman--system.nil.(error).mapha
37c0	73 68 20 6d 61 6b 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	sh.make-byte-code.514.".@\300=\2
37e0	30 35 0f 00 5c 33 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	05..\301\302\240\210\303\304\305
3800	5c 22 5c 32 30 37 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	\"\207".vconcat.vector.[t.throw.
3820	66 6f 75 6e 64 20 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	found.nil].5."\n\n(fn.K._)"].11.
3840	28 23 24 20 2e 20 31 33 39 38 34 29 5d 29 0a 28 64 65 66 76 61 72 20 73 65 73 6d 61 6e 2d 2d 73	(#$...13984)]).(defvar.sesman--s
3860	65 6c 65 63 74 2d 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	elect-session-history.nil).#@343
3880	20 41 73 6b 20 66 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	.Ask.for.a.SYSTEM.session.with.P
38a0	52 4f 4d 50 54 2e 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	ROMPT..SESSIONS.defaults.to.valu
38c0	65 20 72 65 74 75 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	e.returned.from.`sesman-sessions
38e0	27 2e 20 20 49 66 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	'...If.ASK-NEW.is.non-nil,.offer
3900	20 2a 6e 65 77 2a 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	.*new*.option.to.start.a.new.ses
3920	73 69 6f 6e 2e 20 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	sion...If.ASK-ALL.is.non-nil.off
3940	65 72 20 2a 61 6c 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	er.*all*.option...If.ASK-ALL.is.
3960	6e 6f 6e 2d 6e 69 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	non-nil,.return.a.list.of.sessio
3980	6e 73 2c 20 6f 74 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	ns,.otherwise.a.single.session..
39a0	0a 28 66 6e 20 53 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	.(fn.SYSTEM.PROMPT.&optional.SES
39c0	53 49 4f 4e 53 20 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	SIONS.ASK-NEW.ASK-ALL)..(defalia
39e0	73 20 27 73 65 73 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	s.'sesman-ask-for-session.#[1282
3a00	20 22 02 5c 32 30 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	.".\206..\300.!\301\302.\"\211G.
3a20	5c 32 30 34 1f 00 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	\204..\211\303U\203..\304\305..\
3a40	22 5c 32 30 32 34 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	"\2024.\306...\205'.\307..\2053.
3a60	03 5c 33 31 30 56 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	.\310V\2053.\311#\211@@\312..\30
3a80	31 5c 33 31 33 05 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	1\313.\"\314\315\314\316..&.\211
3aa0	5c 33 31 37 5c 32 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	\317\230\203f.\320..!\321\322.@\
3ac0	22 5c 32 31 30 06 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	"\210..\203`.\211C\202a.\211\262
3ae0	01 5c 32 30 32 5c 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	.\202\207.\211\323\230\203p..\20
3b00	32 5c 32 30 37 00 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	2\207.\324..\"A\324...\"..\203\2
3b20	30 34 00 5c 32 31 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	04.\211C\202\205.\211\266\202\20
3b40	37 22 20 5b 73 65 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	7".[sesman-sessions.mapcar.#[257
3b60	20 22 5c 32 31 31 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	."\211@\2119\203..\300.!\202..\2
3b80	31 31 01 42 5c 32 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	11.B\207".[symbol-name].4."\n\n(
3ba0	66 6e 20 53 29 22 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	fn.S)"].0.error."No.%s.sessions.
3bc0	66 6f 75 6e 64 22 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	found".append.(("*new*")).1.(("*
3be0	61 6c 6c 2a 22 29 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	all*")).completing-read.car.nil.
3c00	74 20 73 65 73 6d 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	t.sesman--select-session-history
3c20	20 22 2a 6e 65 77 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	."*new*".sesman-start-session.me
3c40	73 73 61 67 65 20 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	ssage."Started.%s"."*all*".assoc
3c60	5d 20 31 38 20 28 23 24 20 2e 20 31 34 34 36 35 29 5d 29 0a 23 40 31 32 38 20 47 65 74 20 74 68	].18.(#$...14465)]).#@128.Get.th
3c80	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 20 66	e.most.relevant.linked.session.f
3ca0	6f 72 20 53 59 53 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	or.SYSTEM..CXT-TYPES.is.as.in.`s
3cc0	65 73 6d 61 6e 2d 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	esman-linked-sessions'...(fn.SYS
3ce0	54 45 4d 20 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	TEM.&optional.CXT-TYPES)..(defal
3d00	69 61 73 20 27 73 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	ias.'sesman-current-session.#[51
3d20	33 20 22 5c 33 30 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	3."\300..\"@\207".[sesman-linked
3d40	2d 73 65 73 73 69 6f 6e 73 5d 20 35 20 28 23 24 20 2e 20 31 35 34 38 32 29 5d 29 0a 23 40 31 35	-sessions].5.(#$...15482)]).#@15
3d60	32 20 47 65 74 20 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	2.Get.the.most.relevant.linked.s
3d80	65 73 73 69 6f 6e 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	ession.for.SYSTEM.or.throw.if.no
3da0	6e 65 20 65 78 69 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	ne.exists..CXT-TYPES.is.as.in.`s
3dc0	65 73 6d 61 6e 2d 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	esman-linked-sessions'...(fn.SYS
3de0	54 45 4d 20 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	TEM.&optional.CXT-TYPES)..(defal
3e00	69 61 73 20 27 73 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	ias.'sesman-ensure-session.#[513
3e20	20 22 5c 33 30 30 02 21 40 5c 32 30 36 0b 00 5c 33 30 31 5c 33 30 32 03 5c 22 5c 32 30 37 22 20	."\300.!@\206..\301\302.\"\207".
3e40	5b 73 65 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	[sesman-linked-sessions.user-err
3e60	6f 72 20 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	or."No.linked.%s.sessions"].5.(#
3e80	24 20 2e 20 31 35 37 31 34 29 5d 29 0a 23 40 32 30 34 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74	$...15714)]).#@204.Return.a.list
3ea0	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 20 69 6e 20 63 75	.of.SYSTEM.sessions.linked.in.cu
3ec0	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 73 20 61 20 6c 69	rrent.context..CXT-TYPES.is.a.li
3ee0	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 2e	st.of.context.types.to.consider.
3f00	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 75 72 6e 65 64 20	..Defaults.to.the.list.returned.
3f20	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 27 2e 0a 0a 28 66	from.`sesman-context-types'...(f
3f40	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 45 53 29 1f 0a 28	n.SYSTEM.&optional.CXT-TYPES)..(
3f60	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 73 73 69 6f 6e 73	defalias.'sesman-linked-sessions
3f80	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 00 5c 33 30 31 01	.#[513.".\206..\300..\206..\301.
3fa0	21 5c 33 30 32 20 5c 32 31 30 5c 33 30 33 5c 33 30 34 5c 33 30 35 04 04 5c 22 5c 22 5c 32 30 37	!\302.\210\303\304\305..\"\"\207
3fc0	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 6f 6e 74 65 78 74	".[sesman--system.sesman-context
3fe0	2d 74 79 70 65 73 20 73 65 73 6d 61 6e 2d 2d 63 6c 65 61 72 2d 6c 69 6e 6b 73 20 6d 61 70 63 61	-types.sesman--clear-links.mapca
4000	72 20 23 5b 32 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	r.#[257."\301.@.\"\207".[sesman-
4020	73 65 73 73 69 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	sessions-hashmap.gethash].4."\n\
4040	6e 28 66 6e 20 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	n(fn.ASSOC)"].sesman-current-lin
4060	6b 73 5d 20 39 20 28 23 24 20 2e 20 31 36 30 31 39 29 5d 29 0a 23 40 32 39 34 20 52 65 74 72 69	ks].9.(#$...16019)]).#@294.Retri
4080	65 76 65 20 61 6c 6c 20 6c 69 6e 6b 73 20 66 6f 72 20 53 59 53 54 45 4d 27 73 20 53 45 53 53 49	eve.all.links.for.SYSTEM's.SESSI
40a0	4f 4e 20 66 72 6f 6d 20 74 68 65 20 67 6c 6f 62 61 6c 20 60 53 45 53 53 49 4f 4e 2d 4c 49 4e 4b	ON.from.the.global.`SESSION-LINK
40c0	53 27 2e 0a 52 65 74 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	S'..Return.an.alist.of.the.form.
40e0	20 20 20 28 28 62 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	...((buffer.buffers..).....(dire
4100	63 74 6f 72 79 20 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	ctory.directories...).....(proje
4120	63 74 20 70 72 6f 6a 65 63 74 73 2e 2e 2e 29 29 2e 0a 49 66 20 41 53 2d 53 54 52 49 4e 47 20 69	ct.projects...))..If.AS-STRING.i
4140	73 20 6e 6f 6e 2d 6e 69 6c 2c 20 72 65 74 75 72 6e 20 61 6e 20 65 71 75 69 76 61 6c 65 6e 74 20	s.non-nil,.return.an.equivalent.
4160	73 74 72 69 6e 67 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 2e 0a 0a 28 66 6e 20 53 59 53 54	string.representation...(fn.SYST
4180	45 4d 20 53 45 53 53 49 4f 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 41 53 2d 53 54 52 49 4e 47 29 1f	EM.SESSION.&optional.AS-STRING).
41a0	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 2d 6c 69 6e 6b 73	.(defalias.'sesman-session-links
41c0	20 23 5b 37 37 30 20 22 02 5c 32 30 36 06 00 5c 33 30 31 20 02 5c 32 30 36 0d 00 5c 33 30 32 01	.#[770.".\206..\301..\206..\302.
41e0	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 08 5c 22	!\211@\303\304.\305\306....\".\"
4200	5c 22 21 5c 33 30 37 5c 33 31 30 5c 33 31 31 06 06 21 5c 22 5c 33 31 32 5c 33 31 33 5c 33 31 34	\"!\307\310\311..!\"\312\313\314
4220	5c 33 31 35 5c 33 31 36 5c 33 31 37 06 06 21 5c 33 32 30 5c 22 5c 33 32 31 5c 33 32 32 25 03 5c	\315\316\317..!\320\"\321\322%.\
4240	22 5c 32 31 30 5c 33 32 33 5c 33 32 34 5c 33 30 37 5c 33 32 35 04 5c 22 5c 22 06 06 5c 32 30 33	"\210\323\324\307\325.\"\"..\203
4260	49 00 5c 33 32 36 5c 33 32 37 02 5c 33 33 30 23 5c 32 30 32 4a 00 5c 32 31 31 5c 32 36 32 01 5c	I.\326\327.\330#\202J.\211\262.\
4280	32 30 37 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	207".[sesman-links-alist.sesman-
42a0	2d 73 79 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	-system.sesman-current-session.r
42c0	65 76 65 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	everse.sesman--sort-links.seq-fi
42e0	6c 74 65 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	lter.sesman--link-lookup-fn.mapc
4300	61 72 20 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	ar.#[257."\211C\207".#1=[].2."\n
4320	5c 6e 28 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	\n(fn.X)"].sesman-context-types.
4340	6d 61 70 63 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 21 5c	mapc.make-byte-code.257."\301.!\
4360	33 30 32 02 21 5c 33 30 33 02 5c 33 30 30 5c 22 5c 32 31 31 5c 32 30 35 14 00 5c 32 31 31 02 02	302.!\303.\300\"\211\205..\211..
4380	41 42 5c 32 34 31 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	AB\241\207".vconcat.vector.[sesm
43a0	61 6e 2d 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 2d 6c 6e 6b	an--lnk-context-type.sesman--lnk
43c0	2d 76 61 6c 75 65 20 61 73 73 6f 63 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 4c 49 4e 4b 29 22 20	-value.assoc].7."\n\n(fn.LINK)".
43e0	64 65 6c 71 20 6e 69 6c 20 23 5b 32 35 37 20 22 5c 32 31 31 41 5c 32 30 35 06 00 5c 32 31 31 5c	delq.nil.#[257."\211A\205..\211\
4400	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 6d 61 70 63 6f 6e	207".#1#.2."\n\n(fn.EL)"].mapcon
4420	63 61 74 20 23 5b 32 35 37 20 22 5c 32 31 31 40 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	cat.#[257."\211@\300\301\302\303
4440	5c 33 30 34 5c 33 30 35 06 06 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 03 41 5c 33 31 31	\304\305..!\306\"\307\310%.A\311
4460	23 5c 32 30 37 22 20 5b 6d 61 70 63 6f 6e 63 61 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65	#\207".[mapconcat.make-byte-code
4480	20 32 35 37 20 22 5c 32 31 31 3c 5c 32 30 33 5c 6e 00 5c 32 31 31 41 5c 32 30 32 0b 00 5c 32 31	.257."\211<\203\n.\211A\202..\21
44a0	31 5c 33 30 31 5c 33 30 32 5c 33 30 30 03 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63	1\301\302\300.#\207".vconcat.vec
44c0	74 6f 72 20 5b 66 6f 72 6d 61 74 20 22 25 73 28 25 73 29 22 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e	tor.[format."%s(%s)"].6."\n\n(fn
44e0	20 4c 29 22 20 22 20 22 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 4c 49 4e 4b 2d 56 41 4c 53 29 22	.L)"."."].9."\n\n(fn.LINK-VALS)"
4500	5d 20 22 20 22 5d 20 31 35 20 28 23 24 20 2e 20 31 36 35 30 37 29 5d 29 0a 23 40 31 30 36 20 52	]."."].15.(#$...16507)]).#@106.R
4520	65 74 72 69 65 76 65 20 61 6c 6c 20 6c 69 6e 6b 73 20 66 6f 72 20 53 59 53 54 45 4d 2c 20 53 45	etrieve.all.links.for.SYSTEM,.SE
4540	53 53 49 4f 4e 2d 4e 41 4d 45 20 61 6e 64 20 43 58 54 2d 54 59 50 45 53 2e 0a 0a 28 66 6e 20 53	SSION-NAME.and.CXT-TYPES...(fn.S
4560	59 53 54 45 4d 20 26 6f 70 74 69 6f 6e 61 6c 20 53 45 53 53 49 4f 4e 2d 4e 41 4d 45 20 43 58 54	YSTEM.&optional.SESSION-NAME.CXT
4580	2d 54 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 6c 69 6e 6b 73	-TYPES)..(defalias.'sesman-links
45a0	20 23 5b 37 36 39 20 22 5c 33 30 31 03 03 03 23 5c 33 30 32 01 08 5c 22 5c 32 30 37 22 20 5b 73	.#[769."\301...#\302..\"\207".[s
45c0	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 2d 6c	esman-links-alist.sesman--link-l
45e0	6f 6f 6b 75 70 2d 66 6e 20 73 65 71 2d 66 69 6c 74 65 72 5d 20 37 20 28 23 24 20 2e 20 31 37 36	ookup-fn.seq-filter].7.(#$...176
4600	39 35 29 5d 29 0a 23 40 32 32 34 20 52 65 74 72 69 65 76 65 20 61 6c 6c 20 61 63 74 69 76 65 20	95)]).#@224.Retrieve.all.active.
4620	6c 69 6e 6b 73 20 69 6e 20 63 75 72 72 65 6e 74 20 63 6f 6e 74 65 78 74 20 66 6f 72 20 53 59 53	links.in.current.context.for.SYS
4640	54 45 4d 2e 0a 43 58 54 2d 54 59 50 45 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6e 74	TEM..CXT-TYPES.is.a.list.of.cont
4660	65 78 74 20 74 79 70 65 73 20 74 6f 20 63 6f 6e 73 69 64 65 72 2e 20 20 52 65 74 75 72 6e 65 64	ext.types.to.consider...Returned
4680	20 6c 69 6e 6b 73 0a 61 72 65 20 61 20 73 75 62 73 65 74 20 6f 66 20 60 73 65 73 6d 61 6e 2d 6c	.links.are.a.subset.of.`sesman-l
46a0	69 6e 6b 73 2d 61 6c 69 73 74 27 20 73 6f 72 74 65 64 20 69 6e 20 6f 72 64 65 72 20 6f 66 20 72	inks-alist'.sorted.in.order.of.r
46c0	65 6c 65 76 61 6e 63 65 2e 0a 0a 28 66 6e 20 53 59 53 54 45 4d 20 26 6f 70 74 69 6f 6e 61 6c 20	elevance...(fn.SYSTEM.&optional.
46e0	43 58 54 2d 54 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 63 75	CXT-TYPES)..(defalias.'sesman-cu
4700	72 72 65 6e 74 2d 6c 69 6e 6b 73 20 23 5b 35 31 33 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	rrent-links.#[513."\300\301\302\
4720	33 30 33 5c 33 30 34 5c 33 30 35 06 07 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 02 5c 32	303\304\305..!\306\"\307\310%.\2
4740	30 36 15 00 5c 33 31 31 04 21 5c 22 5c 32 30 37 22 20 5b 73 65 71 2d 6d 61 70 63 61 74 20 6d 61	06..\311.!\"\207".[seq-mapcat.ma
4760	6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 32 5c 33 30 30 5c 33 30 33 03 23	ke-byte-code.257."\302\300\303.#
4780	5c 33 30 34 5c 33 30 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32	\304\300\305\306\307\310\311\312
47a0	06 09 06 09 5c 22 5c 33 31 33 5c 22 5c 33 31 34 5c 33 31 35 25 09 5c 22 5c 22 5c 32 30 37 22 20	....\"\313\"\314\315%.\"\"\207".
47c0	76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 73 65 73 6d 61 6e 2d 6c 69 6e 6b 73 2d 61 6c 69	vconcat.vector.[sesman-links-ali
47e0	73 74 20 73 65 73 6d 61 6e 2d 2d 6c 69 6e 6b 2d 6c 6f 6f 6b 75 70 2d 66 6e 20 6e 69 6c 20 73 65	st.sesman--link-lookup-fn.nil.se
4800	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 72 20 6d 61 6b 65	sman--sort-links.seq-filter.make
4820	2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 01 21 5c 32 30 35 5c 66 00 5c 33 30	-byte-code.257."\301.!\205\f.\30
4840	32 5c 33 30 30 5c 33 30 33 03 38 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f	2\300\303.8\"\207".vconcat.vecto
4860	72 20 5b 73 65 73 6d 61 6e 2d 72 65 6c 65 76 61 6e 74 2d 63 6f 6e 74 65 78 74 2d 70 20 32 5d 20	r.[sesman-relevant-context-p.2].
4880	35 20 22 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	5."\n\n(fn.L)"].12."\n\n(fn.CXT-
48a0	54 59 50 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 39 20 28	TYPE)".sesman-context-types].9.(
48c0	23 24 20 2e 20 31 37 39 33 32 29 5d 29 0a 23 40 31 34 39 20 52 65 74 75 72 6e 20 74 20 69 66 20	#$...17932)]).#@149.Return.t.if.
48e0	74 68 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	there.is.at.least.one.linked.ses
4900	73 69 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	sion..CXT-TYPES.defaults.to.`ses
4920	6d 61 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	man-context-types'.for.current.S
4940	59 53 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	YSTEM...(fn.SYSTEM.&optional.CXT
4960	2d 54 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	-TYPES)..(defalias.'sesman-has-l
4980	69 6e 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	inks-p.#[513."\211\206..\301.!\3
49a0	30 32 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	02C\3031%.\304\305\306\307\310\3
49c0	31 31 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	11......#\312\"\313\314%.\"0\202
49e0	29 00 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	).\210\202*.\210\211\242\207".[s
4a00	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 63 6f 6e 74 65 78 74	esman-links-alist.sesman-context
4a20	2d 74 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	-types.nil.(error).mapc.make-byt
4a40	65 2d 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	e-code.257."\300\303.!=\205$.\30
4a60	34 01 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	4.!\211\301\235\205\".\305.\306.
4a80	21 5c 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	!\"\205\".\302\307\240\210\310\3
4aa0	31 31 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	11\312\"\262.\207".vconcat.vecto
4ac0	72 20 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	r.[sesman--lnk-system-name.sesma
4ae0	6e 2d 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	n--lnk-context-type.sesman-relev
4b00	61 6e 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	ant-context-p.sesman--lnk-value.
4b20	74 20 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	t.throw.found.nil].6."\n\n(fn.L)
4b40	22 5d 20 31 33 20 28 23 24 20 2e 20 31 38 36 34 34 29 5d 29 0a 23 40 33 37 37 20 52 65 67 69 73	"].13.(#$...18644)]).#@377.Regis
4b60	74 65 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	ter.SESSION.into.`sesman-session
4b80	73 2d 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	s-hashmap'.and.`sesman-links-ali
4ba0	73 74 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	st'..SYSTEM.defaults.to.current.
4bc0	73 79 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	system...If.a.session.with.same.
4be0	6e 61 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	name.is.already.registered.in.`s
4c00	65 73 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	esman-sessions-hashmap',.change.
4c20	74 68 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	the.name.by.appending."#1",."#2"
4c40	20 2e 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	.....to.the.name...This.function
4c60	20 73 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	.should.be.called.by.system-spec
4c80	69 66 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	ific.connection.initializers.("r
4ca0	75 6e 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	un-xyz",."xyz-jack-in".etc.)...(
4cc0	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 73	fn.SYSTEM.SESSION)..(defalias.'s
4ce0	65 73 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	esman-register.#[514.".\206..\30
4d00	31 20 01 40 02 40 5c 33 30 32 5c 33 30 33 04 04 5c 22 5c 32 30 33 1c 00 5c 33 30 34 5c 33 30 35	1..@.@\302\303..\"\203..\304\305
4d20	03 03 23 5c 32 36 32 03 5c 32 30 32 0b 00 02 05 41 42 5c 32 36 32 05 5c 33 30 36 04 04 42 06 06	..#\262.\202....AB\262.\306..B..
4d40	08 23 5c 32 31 30 5c 33 30 37 04 06 06 5c 22 5c 32 31 30 04 5c 32 30 37 22 20 5b 73 65 73 6d 61	.#\210\307...\"\210.\207".[sesma
4d60	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
4d80	6d 20 31 20 73 65 73 6d 61 6e 2d 73 65 73 73 69 6f 6e 20 66 6f 72 6d 61 74 20 22 25 73 23 25 64	m.1.sesman-session.format."%s#%d
4da0	22 20 70 75 74 68 61 73 68 20 73 65 73 6d 61 6e 2d 2d 6c 69 6e 6b 2d 73 65 73 73 69 6f 6e 5d 20	".puthash.sesman--link-session].
4dc0	31 30 20 28 23 24 20 2e 20 31 39 32 39 31 29 5d 29 0a 23 40 31 35 30 20 55 6e 72 65 67 69 73 74	10.(#$...19291)]).#@150.Unregist
4de0	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 74 73 20 74 6f 20 63	er.SESSION..SYSTEM.defaults.to.c
4e00	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 73 73 69 6f 6e 20 66	urrent.system...Remove.session.f
4e20	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 6d 61 70 27 20 61 6e	rom.`sesman-sessions-hashmap'.an
4e40	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 28 66 6e 20 53 59 53	d.`sesman-links-alist'...(fn.SYS
4e60	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 6d 61 6e 2d	TEM.SESSION)..(defalias.'sesman-
4e80	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 31 01 08 5c 22 5c 32	unregister.#[514."..@B\301..\"\2
4ea0	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 2d 73 65 73 73 69 6f	10\302.\210.\207".[sesman-sessio
4ec0	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 2d 2d 63 6c 65 61 72	ns-hashmap.remhash.sesman--clear
4ee0	2d 6c 69 6e 6b 73 5d 20 36 20 28 23 24 20 2e 20 31 39 39 32 38 29 5d 29 0a 23 40 32 37 31 20 41	-links].6.(#$...19928)]).#@271.A
4f00	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 20 74 6f 20 73 65 73	dd.(destructively).OBJECT.to.ses
4f20	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 45 4d 2e 0a 49 66 20	sion.SESSION-NAME.of.SYSTEM..If.
4f40	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 69 6f 6e 20 77 69 74	ALLOW-NEW.is.nil.and.session.wit
4f60	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 78 69 73 74 0a 74 68	h.SESSION-NAME.does.not.exist.th
4f80	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 65 67 69 73 74 65 72	row.an.error,.otherwise.register
4fa0	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 6f 6e 20 28 6c 69 73	.a.new.session.with.session.(lis
4fc0	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 28 66 6e 20 53 59 53	t.SESSION-NAME.OBJECT)...(fn.SYS
4fe0	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 6e 61	TEM.SESSION-NAME.OBJECT.&optiona
5000	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 73 65 73 6d 61 6e 2d	l.ALLOW-NEW)..(defalias.'sesman-
5020	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 00 5c 33 30 30 20 5c	add-object.#[1027.".\206..\300.\
5040	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 5c 32 34 31 5c 32 30	301..\"\211\203..\211..AB\241\20
5060	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 32 2e 00 5c 33 30 33	2...\203&.\302.....D\"\202..\303
5080	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 6e 2d 2d 73 79 73 74	\304\305.!..#\207".[sesman--syst
50a0	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 72 65 67 69 73 74 65	em.sesman-session.sesman-registe
50c0	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 64 6f 65 73 20 6e 6f	r.error."%s.session.'%s'.does.no
50e0	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 65 6d 2d 6e 61 6d 65	t.exist".sesman--cap-system-name
5100	5d 20 31 30 20 28 23 24 20 2e 20 32 30 32 32 33 29 5d 29 0a 23 40 35 37 34 20 52 65 6d 6f 76 65	].10.(#$...20223)]).#@574.Remove
5120	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 72 6f 6d 20 73 65 73	.(destructively).OBJECT.from.ses
5140	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 45 4d 2e 0a 49 66 20	sion.SESSION-NAME.of.SYSTEM..If.
5160	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 69 65 76 65 20 74 68	SESSION-NAME.is.nil,.retrieve.th
5180	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 73 73 69 6f 6e 2d 66	e.session.with.`sesman-session-f
51a0	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 20 74 68 65 20 6c 61	or-object'...If.OBJECT.is.the.la
51c0	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 6f 6e 2c 20 60 73 65	st.object.in.sesman.session,.`se
51e0	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 69 6f 6e 2e 20 20 49	sman-unregister'.the.session...I
5200	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 6e 69 6c 0a 75 6e 72	f.AUTO-UNREGISTER.is.non-nil.unr
5220	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 68 20 30 20 61 6e 64	egister.sessions.of.length.0.and
5240	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 68 20 74 68 65 20 73	.remove.all.the.links.with.the.s
5260	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 6e 2d 6e 69 6c 2c 20	ession..If.NO-ERROR.is.non-nil,.
5280	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 45 43 54 20 69	don't.throw.an.error.if.OBJECT.i
52a0	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 6e 2e 20 20 54 68 69	s.not.found.in.any.session...Thi
52c0	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 73 65 76 65 72 61 6c	s.is.useful.if.there.are.several
52e0	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 63 68 0a 63 61 6e 20	."concurrent".parties.which.can.
5300	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 59 53 54 45 4d 20 53	remove.the.object...(fn.SYSTEM.S
5320	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 6e 61 6c 20 41 55 54	ESSION-NAME.OBJECT.&optional.AUT
5340	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 64 65 66 61 6c 69 61	O-UNREGISTER.NO-ERROR)..(defalia
5360	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 5b 31 32 38 33 20 22	s.'sesman-remove-object.#[1283."
5380	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 06 5c 22 5c 32 30 32	.\206..\301..\203..\302...\"\202
53a0	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 30 36 3a 00 5c 32 31	..\303...#\304..\"\211?\206:.\21
53c0	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 03 5c 22 5c 32 30 32	1G\305U\2032..\205:.\306..\"\202
53e0	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 6e 2d 73 65 73 73 69	:.\307..@B..#\207".[sesman-sessi
5400	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 73 65 73 6d 61	ons-hashmap.sesman--system.sesma
5420	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 66 6f 72 2d 6f 62 6a	n-session.sesman-session-for-obj
5440	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 69 73 74 65 72 20 70	ect.delete.1.sesman-unregister.p
5460	75 74 68 61 73 68 5d 20 31 32 20 28 23 24 20 2e 20 32 30 37 36 32 29 5d 29 0a 23 40 31 39 39 20	uthash].12.(#$...20762)]).#@199.
5480	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 68 69 63 68 20 63 6f	Retrieve.SYSTEM.session.which.co
54a0	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 52 4f 52 20 69 73 20	ntains.OBJECT..When.NO-ERROR.is.
54c0	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 72 72 6f 72 20 69 66	non-nil,.don't.throw.an.error.if
54e0	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 79 0a 73 65 73 73 69	.OBJECT.is.not.part.of.any.sessi
5500	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 20 6e 69 6c 2e 0a 0a	on...In.such.case,.return.nil...
5520	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 61 6c 20 4e 4f 2d 45	(fn.SYSTEM.OBJECT.&optional.NO-E
5540	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 73 65 73 73 69 6f 6e	RROR)..(defalias.'sesman-session
5560	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 00 5c 33 30 30 20 5c	-for-object.#[770.".\206..\300.\
5580	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 5c 33 30 37 06 09 21	301.!\302\303\304\305\306\307..!
55a0	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 3f 5c 32 30 35 26 00	\310\"\311\312%.\"\206&..?\205&.
55c0	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 2d 73 79 73 74 65 6d	\313\314..#\207".[sesman--system
55e0	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 73 65 71	.sesman--all-system-sessions.seq
5600	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 22 5c 33 30 31 5c 33	-find.make-byte-code.257."\301\3
5620	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 30 37 5c 22 5c 33 31	02\303\304\305\306\300!\307\"\31
5640	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 65 63 74 6f 72 20 5b	0\311%.A\"\207".vconcat.vector.[
5660	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 22 5c 33 30	seq-find.make-byte-code.257."\30
5680	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 72 20 5b 5d 20 33 20	0.\232\207".vconcat.vector.[].3.
56a0	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 53 45 53 29 22 20 65	"\n\n(fn.X)"].8."\n\n(fn.SES)".e
56c0	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 6e 79 20 25 73 20 73	rror."%s.is.not.part.of.any.%s.s
56e0	65 73 73 69 6f 6e 73 22 5d 20 31 32 20 28 23 24 20 2e 20 32 31 36 33 32 29 5d 29 0a 23 40 32 31	essions"].12.(#$...21632)]).#@21
5700	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 65 20 53 59 53 54 45	4.Retrieve.the.name.of.the.SYSTE
5720	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 4a 45 43 54 2e 0a 57	M's.session.containing.OBJECT..W
5740	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 64 6f 6e 27 74 20 74	hen.NO-ERROR.is.non-nil,.don't.t
5760	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 69 73 20 6e 6f 74 20	hrow.an.error.if.OBJCECT.is.not.
5780	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 73 75 63 68 20 63 61	part.of.any.session...In.such.ca
57a0	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 45 4d 20 4f 42 4a 45	se,.return.nil...(fn.SYSTEM.OBJE
57c0	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 64 65 66 61 6c 69 61	CT.&optional.NO-ERROR)..(defalia
57e0	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 72 2d 6f 62 6a 65 63	s.'sesman-session-name-for-objec
5800	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 73 65 73 6d 61 6e 2d	t.#[770."\300...#@\207".[sesman-
5820	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 20 2e 20 32 32 32 37	session-for-object].7.(#$...2227
5840	34 29 5d 29 0a 23 40 32 38 37 20 52 65 74 75 72 6e 20 74 20 69 66 20 42 55 46 53 31 20 69 73 20	4)]).#@287.Return.t.if.BUFS1.is.
5860	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 55 46 53 31 20 61 6e	more.recent.than.BUFS2..BUFS1.an
5880	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 73 20 6f 72 20 6c 69	d.BUFS2.are.either.buffers.or.li
58a0	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 74 73 20 6f 66 0a 62	sts.of.buffers...When.lists.of.b
58c0	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 72 73 20 66 72 6f 6d	uffers,.most.recent.buffers.from
58e0	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 2e 20 20 54 6f 20 62	.each.list.are.considered...To.b
5900	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 61 6e 2d 6d 6f 72 65	e.used.primarily.in.`sesman-more
5920	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 20 73 65 73 73 69 6f	-relevant-p'.methods.when.sessio
5940	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 66 6e 20 42 55 46 53	n.objects.are.buffers...(fn.BUFS
5960	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 61 6e 2d 6d 6f 72 65	1.BUFS2)..(defalias.'sesman-more
5980	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 30 33 0b 00 01 43 5c	-recent-p.#[514."\300.!\203...C\
59a0	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 18 00 01 5c 33 30 31	202\f..\300.!\203...C\202...\301
59c0	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 22 5c 33 30 37 5c 22	\302\303\304\305\306....\"\307\"
59e0	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 22 20 5b 62 75 66 66	\310\311%\312.\"\313=\207".[buff
5a00	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 64 65 20 32 35 37 20	erp.seq-some.make-byte-code.257.
5a20	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 30 37 5c 32 31 31 5c	"\211\300\235\203..\302\207\211\
5a40	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 6f 6e 63 61 74 20 76	301\235\205..\303\207".vconcat.v
5a60	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 29 22 20 62 75 66 66	ector.[1.-1].3."\n\n(fn.B)".buff
5a80	65 72 2d 6c 69 73 74 20 31 5d 20 31 32 20 28 23 24 20 2e 20 32 32 36 30 33 29 5d 29 0a 28 62 79	er-list.1].12.(#$...22603)]).(by
5aa0	74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 31 5c 33 30 33 5c 33 30	te-code."\300\301\302\301\303\30
5ac0	34 23 5c 33 30 35 23 5c 32 31 30 5c 33 30 36 5c 33 30 31 5c 33 30 34 5c 33 30 37 5c 33 30 34 5c	4#\305#\210\306\301\304\307\304\
5ae0	33 31 30 25 5c 32 31 30 5c 33 30 36 5c 33 30 31 5c 33 30 34 5c 33 31 31 5c 33 30 34 5c 33 31 32	310%\210\306\301\304\311\304\312
5b00	25 5c 32 31 30 5c 33 30 36 5c 33 30 31 5c 33 30 34 5c 33 31 33 5c 33 30 34 5c 33 31 34 25 5c 32	%\210\306\301\304\313\304\314%\2
5b20	31 30 5c 33 30 30 5c 33 31 35 5c 33 30 32 5c 33 31 35 5c 33 31 36 5c 33 30 34 23 5c 33 31 37 23	10\300\315\302\315\316\304#\317#
5b40	5c 32 31 30 5c 33 30 36 5c 33 31 35 5c 33 30 34 5c 33 32 30 5c 33 30 34 5c 33 32 31 25 5c 32 31	\210\306\315\304\320\304\321%\21
5b60	30 5c 33 30 36 5c 33 31 35 5c 33 30 34 5c 33 32 32 5c 33 30 34 5c 33 32 33 25 5c 32 31 30 5c 33	0\306\315\304\322\304\323%\210\3
5b80	30 36 5c 33 31 35 5c 33 30 34 5c 33 32 34 5c 33 30 34 5c 33 32 35 25 5c 32 31 30 5c 33 32 36 5c	06\315\304\324\304\325%\210\326\
5ba0	33 32 37 21 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 6e 74 65	327!\207".[defalias.sesman-conte
5bc0	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 70 65 29	xt.cl-generic-define.(_cxt-type)
5be0	20 6e 69 6c 20 22 47 69 76 65 6e 20 63 6f 6e 74 65 78 74 20 74 79 70 65 20 43 58 54 2d 54 59 50	.nil."Given.context.type.CXT-TYP
5c00	45 20 72 65 74 75 72 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 2e 5c 6e 5c 6e 28 66 6e 20 43 58 54	E.return.the.context.\n\n(fn.CXT
5c20	2d 54 59 50 45 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	-TYPE)".cl-generic-define-method
5c40	20 28 28 5f 63 78 74 2d 74 79 70 65 20 28 65 71 6c 20 62 75 66 66 65 72 29 29 29 20 23 5b 32 35	.((_cxt-type.(eql.buffer))).#[25
5c60	37 20 22 70 5c 32 30 37 22 20 23 31 3d 5b 5d 20 32 20 22 52 65 74 75 72 6e 20 63 75 72 72 65 6e	7."p\207".#1=[].2."Return.curren
5c80	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 29 22 5d 20 28 28 5f	t.buffer.\n\n(fn.CXT-TYPE)"].((_
5ca0	63 78 74 2d 74 79 70 65 20 28 65 71 6c 20 64 69 72 65 63 74 6f 72 79 29 29 29 20 23 5b 32 35 37	cxt-type.(eql.directory))).#[257
5cc0	20 22 08 5c 32 30 37 22 20 5b 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 5d 20 32 20 22	.".\207".[default-directory].2."
5ce0	52 65 74 75 72 6e 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 5c 6e 5c 6e 28 66 6e	Return.current.directory.\n\n(fn
5d00	20 43 58 54 2d 54 59 50 45 29 22 5d 20 28 28 5f 63 78 74 2d 74 79 70 65 20 28 65 71 6c 20 70 72	.CXT-TYPE)"].((_cxt-type.(eql.pr
5d20	6f 6a 65 63 74 29 29 29 20 23 5b 32 35 37 20 22 5c 33 30 30 20 5c 32 30 37 22 20 5b 70 72 6f 6a	oject))).#[257."\300.\207".[proj
5d40	65 63 74 2d 63 75 72 72 65 6e 74 5d 20 32 20 22 52 65 74 75 72 6e 20 63 75 72 72 65 6e 74 20 70	ect-current].2."Return.current.p
5d60	72 6f 6a 65 63 74 2e 5c 6e 5c 6e 28 66 6e 20 43 58 54 2d 54 59 50 45 29 22 5d 20 73 65 73 6d 61	roject.\n\n(fn.CXT-TYPE)"].sesma
5d80	6e 2d 72 65 6c 65 76 61 6e 74 2d 63 6f 6e 74 65 78 74 2d 70 20 28 5f 63 78 74 2d 74 79 70 65 20	n-relevant-context-p.(_cxt-type.
5da0	63 78 74 29 20 22 4e 6f 6e 2d 6e 69 6c 20 69 66 20 63 6f 6e 74 65 78 74 20 43 58 54 20 69 73 20	cxt)."Non-nil.if.context.CXT.is.
5dc0	72 65 6c 65 76 61 6e 74 20 74 6f 20 63 75 72 72 65 6e 74 20 63 6f 6e 74 65 78 74 20 6f 66 20 74	relevant.to.current.context.of.t
5de0	79 70 65 20 43 58 54 2d 54 59 50 45 2e 5c 6e 5c 6e 28 66 6e 20 43 58 54 2d 54 59 50 45 20 43 58	ype.CXT-TYPE.\n\n(fn.CXT-TYPE.CX
5e00	54 29 22 20 28 28 5f 63 78 74 2d 74 79 70 65 20 28 65 71 6c 20 62 75 66 66 65 72 29 29 20 62 75	T)".((_cxt-type.(eql.buffer)).bu
5e20	66 29 20 23 5b 35 31 34 20 22 70 01 3d 5c 32 30 37 22 20 23 31 23 20 34 20 22 4e 6f 6e 2d 6e 69	f).#[514."p.=\207".#1#.4."Non-ni
5e40	6c 20 69 66 20 42 55 46 20 69 73 20 60 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 27 2e 5c 6e 5c	l.if.BUF.is.`current-buffer'.\n\
5e60	6e 28 66 6e 20 43 58 54 2d 54 59 50 45 20 42 55 46 29 22 5d 20 28 28 5f 63 78 74 2d 74 79 70 65	n(fn.CXT-TYPE.BUF)"].((_cxt-type
5e80	20 28 65 71 6c 20 64 69 72 65 63 74 6f 72 79 29 29 20 64 69 72 29 20 23 5b 35 31 34 20 22 5c 32	.(eql.directory)).dir).#[514."\2
5ea0	31 31 5c 32 30 35 19 00 08 5c 32 30 35 19 00 5c 33 30 32 01 50 5c 33 30 33 08 21 5c 33 30 34 5c	11\205...\205..\302.P\303.!\304\
5ec0	33 30 35 19 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	305.\306...#)\266\203\207".[defa
5ee0	75 6c 74 2d 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	ult-directory.inhibit-changing-m
5f00	61 74 63 68 2d 64 61 74 61 20 22 5e 22 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e	atch-data."^".expand-file-name.n
5f20	69 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	il.t.string-match].9."Non-nil.if
5f40	20 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	.DIR.is.the.parent.or.equals.the
5f60	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 54	.`default-directory'.\n\n(fn.CXT
5f80	2d 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	-TYPE.DIR)"].((_cxt-type.(eql.pr
5fa0	6f 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 1a 00 08	oject)).proj).#[514."\211\205...
5fc0	5c 32 30 35 1a 00 5c 33 30 32 01 41 50 5c 33 30 33 08 21 5c 33 30 34 5c 33 30 35 19 5c 33 30 36	\205..\302.AP\303.!\304\305.\306
5fe0	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 69 72 65	...#)\266\203\207".[default-dire
6000	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 64 61 74	ctory.inhibit-changing-match-dat
6020	61 20 22 5e 22 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 69 6c 20 74 20 73 74 72	a."^".expand-file-name.nil.t.str
6040	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 52 4f 4a 20 69 73	ing-match].9."Non-nil.if.PROJ.is
6060	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 60 64 65 66 61 75	.the.parent.or.equals.the.`defau
6080	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 54 59 50 45 20 50	lt-directory'.\n\n(fn.CXT-TYPE.P
60a0	52 4f 4a 29 22 5d 20 70 72 6f 76 69 64 65 20 73 65 73 6d 61 6e 5d 20 36 29 0a	ROJ)"].provide.sesman].6).