blob: af75eb64f0b2b37bfe0e65e65db9a298d260e3f2 (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 72 65 71 75 69 72 65 20 27 63	;;;;;;;;;;;;;;;;;;...(require.'c
01a0	6c 2d 6c 69 62 29 0a 23 40 35 35 20 43 72 65 61 74 65 20 6e 52 45 50 4c 20 64 69 63 74 20 66 72	l-lib).#@55.Create.nREPL.dict.fr
01c0	6f 6d 20 4b 45 59 2d 56 41 4c 53 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 4b 45 59 2d 56 41 4c 53	om.KEY-VALS...(fn.&rest.KEY-VALS
01e0	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6e 72 65 70 6c 2d 64 69 63 74 20 23 5b 31 32 38 20 22	)..(defalias.'nrepl-dict.#[128."
0200	5c 33 30 30 01 42 5c 32 30 37 22 20 5b 64 69 63 74 5d 20 33 20 28 23 24 20 2e 20 34 32 38 29 5d	\300.B\207".[dict].3.(#$...428)]
0220	29 0a 23 40 35 31 20 52 65 74 75 72 6e 20 74 20 69 66 20 4f 42 4a 45 43 54 20 69 73 20 61 6e 20	).#@51.Return.t.if.OBJECT.is.an.
0240	6e 52 45 50 4c 20 64 69 63 74 2e 0a 0a 28 66 6e 20 4f 42 4a 45 43 54 29 1f 0a 28 64 65 66 61 6c	nREPL.dict...(fn.OBJECT)..(defal
0260	69 61 73 20 27 6e 72 65 70 6c 2d 64 69 63 74 2d 70 20 23 5b 32 35 37 20 22 5c 32 31 31 3c 5c 32	ias.'nrepl-dict-p.#[257."\211<\2
0280	30 35 09 00 5c 32 31 31 40 5c 33 30 30 3d 5c 32 30 37 22 20 5b 64 69 63 74 5d 20 33 20 28 23 24	05..\211@\300=\207".[dict].3.(#$
02a0	20 2e 20 35 35 31 29 5d 29 0a 23 40 35 30 20 52 65 74 75 72 6e 20 74 20 69 66 20 6e 52 45 50 4c	...551)]).#@50.Return.t.if.nREPL
02c0	20 64 69 63 74 20 44 49 43 54 20 69 73 20 65 6d 70 74 79 2e 0a 0a 28 66 6e 20 44 49 43 54 29 1f	.dict.DICT.is.empty...(fn.DICT).
02e0	0a 28 64 65 66 61 6c 69 61 73 20 27 6e 72 65 70 6c 2d 64 69 63 74 2d 65 6d 70 74 79 2d 70 20 23	.(defalias.'nrepl-dict-empty-p.#
0300	5b 32 35 37 20 22 5c 32 31 31 41 3f 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 36 38 37	[257."\211A?\207".[].2.(#$...687
0320	29 5d 29 0a 23 40 32 36 34 20 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 6e 52 45 50 4c 20 64 69	)]).#@264.Return.nil.if.nREPL.di
0340	63 74 20 44 49 43 54 20 64 6f 65 73 6e 27 74 20 63 6f 6e 74 61 69 6e 20 4b 45 59 2e 0a 49 66 20	ct.DICT.doesn't.contain.KEY..If.
0360	44 49 43 54 20 64 6f 65 73 20 63 6f 6e 74 61 69 6e 20 4b 45 59 2c 20 74 68 65 6e 20 61 20 6e 6f	DICT.does.contain.KEY,.then.a.no
0380	6e 2d 6e 69 6c 20 76 61 6c 75 65 20 69 73 20 72 65 74 75 72 6e 65 64 2e 20 20 44 75 65 20 74 6f	n-nil.value.is.returned...Due.to
03a0	20 74 68 65 0a 63 75 72 72 65 6e 74 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2c 20 74 68 69	.the.current.implementation,.thi
03c0	73 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 74 68 65 20 74 61 69 6c 20 6f 66 20 44 49	s.return.value.is.the.tail.of.DI
03e0	43 54 27 73 20 6b 65 79 2d 6c 69 73 74 0a 77 68 6f 73 65 20 63 61 72 20 69 73 20 4b 45 59 2e 20	CT's.key-list.whose.car.is.KEY..
0400	20 43 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27	.Comparison.is.done.with.`equal'
0420	2e 0a 0a 28 66 6e 20 44 49 43 54 20 4b 45 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6e 72 65	...(fn.DICT.KEY)..(defalias.'nre
0440	70 6c 2d 64 69 63 74 2d 63 6f 6e 74 61 69 6e 73 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30	pl-dict-contains.#[514."\211\300
0460	03 21 5c 32 33 35 5c 32 30 37 22 20 5b 6e 72 65 70 6c 2d 64 69 63 74 2d 6b 65 79 73 5d 20 35 20	.!\235\207".[nrepl-dict-keys].5.
0480	28 23 24 20 2e 20 38 31 30 29 5d 29 0a 23 40 32 35 37 20 47 65 74 20 66 72 6f 6d 20 44 49 43 54	(#$...810)]).#@257.Get.from.DICT
04a0	20 76 61 6c 75 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 4b 45 59 2c 20 6f 70 74 69	.value.associated.with.KEY,.opti
04c0	6f 6e 61 6c 20 44 45 46 41 55 4c 54 20 69 66 20 4b 45 59 20 6e 6f 74 20 69 6e 20 44 49 43 54 2e	onal.DEFAULT.if.KEY.not.in.DICT.
04e0	0a 49 66 20 64 69 63 74 20 69 73 20 6e 69 6c 2c 20 72 65 74 75 72 6e 20 6e 69 6c 2e 20 20 49 66	.If.dict.is.nil,.return.nil...If
0500	20 44 45 46 41 55 4c 54 20 6e 6f 74 20 70 72 6f 76 69 64 65 64 2c 20 61 6e 64 20 4b 45 59 20 6e	.DEFAULT.not.provided,.and.KEY.n
0520	6f 74 20 69 6e 20 44 49 43 54 2c 0a 72 65 74 75 72 6e 20 6e 69 6c 2e 20 20 49 66 20 44 49 43 54	ot.in.DICT,.return.nil...If.DICT
0540	20 69 73 20 6e 6f 74 20 61 6e 20 6e 52 45 50 4c 20 64 69 63 74 20 6f 62 6a 65 63 74 2c 20 61 6e	.is.not.an.nREPL.dict.object,.an
0560	20 65 72 72 6f 72 20 69 73 20 74 68 72 6f 77 6e 2e 0a 0a 28 66 6e 20 44 49 43 54 20 4b 45 59 20	.error.is.thrown...(fn.DICT.KEY.
0580	26 6f 70 74 69 6f 6e 61 6c 20 44 45 46 41 55 4c 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6e	&optional.DEFAULT)..(defalias.'n
05a0	72 65 70 6c 2d 64 69 63 74 2d 67 65 74 20 23 5b 37 37 30 20 22 02 5c 32 30 35 1c 00 5c 33 30 30	repl-dict-get.#[770.".\205..\300
05c0	03 21 5c 32 30 33 18 00 5c 33 30 31 03 03 5c 22 5c 32 30 33 17 00 5c 33 30 32 03 41 03 5c 22 5c	.!\203..\301..\"\203..\302.A.\"\
05e0	32 30 37 5c 32 30 37 5c 33 30 33 5c 33 30 34 04 5c 22 5c 32 30 37 22 20 5b 6e 72 65 70 6c 2d 64	207\207\303\304.\"\207".[nrepl-d
0600	69 63 74 2d 70 20 6e 72 65 70 6c 2d 64 69 63 74 2d 63 6f 6e 74 61 69 6e 73 20 6c 61 78 2d 70 6c	ict-p.nrepl-dict-contains.lax-pl
0620	69 73 74 2d 67 65 74 20 65 72 72 6f 72 20 22 4e 6f 74 20 61 6e 20 6e 52 45 50 4c 20 64 69 63 74	ist-get.error."Not.an.nREPL.dict
0640	20 6f 62 6a 65 63 74 3a 20 25 73 22 5d 20 36 20 28 23 24 20 2e 20 31 31 37 31 29 5d 29 0a 23 40	.object:.%s"].6.(#$...1171)]).#@
0660	31 30 37 20 41 73 73 6f 63 69 61 74 65 20 69 6e 20 44 49 43 54 2c 20 4b 45 59 20 74 6f 20 56 41	107.Associate.in.DICT,.KEY.to.VA
0680	4c 55 45 2e 0a 52 65 74 75 72 6e 20 6e 65 77 20 64 69 63 74 2e 20 20 44 69 63 74 20 69 73 20 6d	LUE..Return.new.dict...Dict.is.m
06a0	6f 64 69 66 69 65 64 20 62 79 20 73 69 64 65 20 65 66 66 65 63 74 73 2e 0a 0a 28 66 6e 20 44 49	odified.by.side.effects...(fn.DI
06c0	43 54 20 4b 45 59 20 56 41 4c 55 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6e 72 65 70 6c 2d	CT.KEY.VALUE)..(defalias.'nrepl-
06e0	64 69 63 74 2d 70 75 74 20 23 5b 37 37 31 20 22 02 5c 32 30 34 09 00 5c 33 30 30 02 02 45 5c 32	dict-put.#[771.".\204..\300..E\2
0700	30 37 5c 33 30 31 03 21 5c 32 30 34 14 00 5c 33 30 32 5c 33 30 33 04 5c 22 5c 32 30 37 02 5c 33	07\301.!\204..\302\303.\"\207.\3
0720	30 34 04 41 04 04 23 5c 32 34 31 5c 32 31 30 02 5c 32 30 37 22 20 5b 64 69 63 74 20 6e 72 65 70	04.A..#\241\210.\207".[dict.nrep
0740	6c 2d 64 69 63 74 2d 70 20 65 72 72 6f 72 20 22 4e 6f 74 20 61 6e 20 6e 52 45 50 4c 20 64 69 63	l-dict-p.error."Not.an.nREPL.dic
0760	74 20 6f 62 6a 65 63 74 3a 20 25 73 22 20 6c 61 78 2d 70 6c 69 73 74 2d 70 75 74 5d 20 38 20 28	t.object:.%s".lax-plist-put].8.(
0780	23 24 20 2e 20 31 36 33 36 29 5d 29 0a 23 40 35 31 20 52 65 74 75 72 6e 20 61 6c 6c 20 74 68 65	#$...1636)]).#@51.Return.all.the
07a0	20 6b 65 79 73 20 69 6e 20 74 68 65 20 6e 52 45 50 4c 20 44 49 43 54 2e 0a 0a 28 66 6e 20 44 49	.keys.in.the.nREPL.DICT...(fn.DI
07c0	43 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6e 72 65 70 6c 2d 64 69 63 74 2d 6b 65 79 73 20	CT)..(defalias.'nrepl-dict-keys.
07e0	23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 33 1f 00 5c 32 31 31 41 5c 33 30 31 01 3a 5c 32	#[257."\300.!\203..\211A\301.:\2
0800	30 33 1c 00 01 40 01 42 5c 32 36 32 01 01 41 41 5c 32 36 32 02 5c 32 30 32 09 00 5c 32 31 31 5c	03...@.B\262..AA\262.\202..\211\
0820	32 33 37 5c 32 30 37 5c 33 30 32 5c 33 30 33 21 5c 32 30 37 22 20 5b 6e 72 65 70 6c 2d 64 69 63	237\207\302\303!\207".[nrepl-dic
0840	74 2d 70 20 6e 69 6c 20 65 72 72 6f 72 20 22 4e 6f 74 20 61 6e 20 6e 52 45 50 4c 20 64 69 63 74	t-p.nil.error."Not.an.nREPL.dict
0860	22 5d 20 35 20 28 23 24 20 2e 20 31 39 33 38 29 5d 29 0a 23 40 35 33 20 52 65 74 75 72 6e 20 61	"].5.(#$...1938)]).#@53.Return.a
0880	6c 6c 20 74 68 65 20 76 61 6c 75 65 73 20 69 6e 20 74 68 65 20 6e 52 45 50 4c 20 44 49 43 54 2e	ll.the.values.in.the.nREPL.DICT.
08a0	0a 0a 28 66 6e 20 44 49 43 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6e 72 65 70 6c 2d 64 69	..(fn.DICT)..(defalias.'nrepl-di
08c0	63 74 2d 76 61 6c 73 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 33 20 00 5c 32 31 31 41	ct-vals.#[257."\300.!\203..\211A
08e0	5c 33 30 31 01 3a 5c 32 30 33 1d 00 01 41 40 01 42 5c 32 36 32 01 01 41 41 5c 32 36 32 02 5c 32	\301.:\203...A@.B\262..AA\262.\2
0900	30 32 09 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 5c 33 30 32 5c 33 30 33 21 5c 32 30 37 22 20 5b	02..\211\237\207\302\303!\207".[
0920	6e 72 65 70 6c 2d 64 69 63 74 2d 70 20 6e 69 6c 20 65 72 72 6f 72 20 22 4e 6f 74 20 61 6e 20 6e	nrepl-dict-p.nil.error."Not.an.n
0940	52 45 50 4c 20 64 69 63 74 22 5d 20 35 20 28 23 24 20 2e 20 32 31 36 38 29 5d 29 0a 23 40 38 31	REPL.dict"].5.(#$...2168)]).#@81
0960	20 4d 61 70 20 46 4e 20 6f 6e 20 6e 52 45 50 4c 20 44 49 43 54 2e 0a 46 4e 20 6d 75 73 74 20 61	.Map.FN.on.nREPL.DICT..FN.must.a
0980	63 63 65 70 74 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 20 6b 65 79 20 61 6e 64 20 76 61 6c 75	ccept.two.arguments.key.and.valu
09a0	65 2e 0a 0a 28 66 6e 20 46 4e 20 44 49 43 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6e 72 65	e...(fn.FN.DICT)..(defalias.'nre
09c0	70 6c 2d 64 69 63 74 2d 6d 61 70 20 23 5b 35 31 34 20 22 5c 33 30 30 01 21 5c 32 30 33 24 00 5c	pl-dict-map.#[514."\300.!\203$.\
09e0	32 31 31 41 5c 33 30 31 01 3a 5c 32 30 33 21 00 03 02 40 03 41 40 5c 22 01 42 5c 32 36 32 01 01	211A\301.:\203!...@.A@\".B\262..
0a00	41 41 5c 32 36 32 02 5c 32 30 32 09 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 5c 33 30 32 5c 33 30	AA\262.\202..\211\237\207\302\30
0a20	33 21 5c 32 30 37 22 20 5b 6e 72 65 70 6c 2d 64 69 63 74 2d 70 20 6e 69 6c 20 65 72 72 6f 72 20	3!\207".[nrepl-dict-p.nil.error.
0a40	22 4e 6f 74 20 61 6e 20 6e 52 45 50 4c 20 64 69 63 74 22 5d 20 37 20 28 23 24 20 2e 20 32 34 30	"Not.an.nREPL.dict"].7.(#$...240
0a60	31 29 5d 29 0a 23 40 39 36 20 44 65 73 74 72 75 63 74 69 76 65 6c 79 20 6d 65 72 67 65 20 44 49	1)]).#@96.Destructively.merge.DI
0a80	43 54 32 20 69 6e 74 6f 20 44 49 43 54 31 2e 0a 4b 65 79 73 20 69 6e 20 44 49 43 54 32 20 6f 76	CT2.into.DICT1..Keys.in.DICT2.ov
0aa0	65 72 72 69 64 65 20 74 68 6f 73 65 20 69 6e 20 44 49 43 54 31 2e 0a 0a 28 66 6e 20 44 49 43 54	erride.those.in.DICT1...(fn.DICT
0ac0	31 20 44 49 43 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6e 72 65 70 6c 2d 64 69 63 74 2d	1.DICT2)..(defalias.'nrepl-dict-
0ae0	6d 65 72 67 65 20 23 5b 35 31 34 20 22 01 5c 32 30 36 05 00 5c 33 30 30 5c 33 30 31 5c 33 30 32	merge.#[514.".\206..\300\301\302
0b00	5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 21 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31	\303\304\305\306..!\307\"\310\31
0b20	31 25 03 5c 32 30 36 18 00 5c 33 31 32 5c 22 5c 32 31 30 5c 32 31 31 5c 32 30 37 22 20 5b 28 64	1%.\206..\312\"\210\211\207".[(d
0b40	69 63 74 29 20 6e 72 65 70 6c 2d 64 69 63 74 2d 6d 61 70 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f	ict).nrepl-dict-map.make-byte-co
0b60	64 65 20 35 31 34 20 22 5c 33 30 31 5c 33 30 30 03 03 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74	de.514."\301\300..#\207".vconcat
0b80	20 76 65 63 74 6f 72 20 5b 6e 72 65 70 6c 2d 64 69 63 74 2d 70 75 74 5d 20 36 20 22 5c 6e 5c 6e	.vector.[nrepl-dict-put].6."\n\n
0ba0	28 66 6e 20 4b 20 56 29 22 20 28 64 69 63 74 29 5d 20 31 30 20 28 23 24 20 2e 20 32 36 36 36 29	(fn.K.V)".(dict)].10.(#$...2666)
0bc0	5d 29 0a 23 40 31 35 34 20 52 65 74 75 72 6e 20 74 68 65 20 76 61 6c 75 65 20 69 6e 20 61 20 6e	]).#@154.Return.the.value.in.a.n
0be0	65 73 74 65 64 20 44 49 43 54 2e 0a 4b 45 59 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6b 65	ested.DICT..KEYS.is.a.list.of.ke
0c00	79 73 2e 20 20 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 61 6e 79 20 6f 66 20 74 68 65 20 6b 65	ys...Return.nil.if.any.of.the.ke
0c20	79 73 20 69 73 20 6e 6f 74 20 70 72 65 73 65 6e 74 20 6f 72 20 69 66 0a 61 6e 79 20 6f 66 20 74	ys.is.not.present.or.if.any.of.t
0c40	68 65 20 76 61 6c 75 65 73 20 69 73 20 6e 69 6c 2e 0a 0a 28 66 6e 20 44 49 43 54 20 4b 45 59 53	he.values.is.nil...(fn.DICT.KEYS
0c60	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6e 72 65 70 6c 2d 64 69 63 74 2d 67 65 74 2d 69 6e 20	)..(defalias.'nrepl-dict-get-in.
0c80	23 5b 35 31 34 20 22 01 01 5c 32 30 33 17 00 5c 32 31 31 5c 32 30 33 17 00 5c 33 30 30 01 03 5c	#[514."..\203..\211\203..\300..\
0ca0	32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 22 5c 32 36 32 01 5c 32 30 32 01 00 5c 32 31 31 5c 32	211A\262.\242\"\262.\202..\211\2
0cc0	30 37 22 20 5b 6e 72 65 70 6c 2d 64 69 63 74 2d 67 65 74 5d 20 37 20 28 23 24 20 2e 20 33 30 31	07".[nrepl-dict-get].7.(#$...301
0ce0	37 29 5d 29 0a 23 40 32 31 30 20 4d 61 70 20 46 55 4e 43 54 49 4f 4e 20 6f 76 65 72 20 44 49 43	7)]).#@210.Map.FUNCTION.over.DIC
0d00	54 20 61 6e 64 20 66 6c 61 74 74 65 6e 20 74 68 65 20 72 65 73 75 6c 74 2e 0a 46 55 4e 43 54 49	T.and.flatten.the.result..FUNCTI
0d20	4f 4e 20 66 6f 6c 6c 6f 77 73 20 74 68 65 20 73 61 6d 65 20 72 65 73 74 72 69 63 74 69 6f 6e 73	ON.follows.the.same.restrictions
0d40	20 61 73 20 69 6e 20 60 6e 72 65 70 6c 2d 64 69 63 74 2d 6d 61 70 27 2c 20 61 6e 64 20 69 74 20	.as.in.`nrepl-dict-map',.and.it.
0d60	6d 75 73 74 0a 61 6c 73 6f 20 61 6c 77 61 79 20 72 65 74 75 72 6e 20 61 20 73 65 71 75 65 6e 63	must.also.alway.return.a.sequenc
0d80	65 20 28 73 69 6e 63 65 20 74 68 65 20 72 65 73 75 6c 74 20 77 69 6c 6c 20 62 65 20 66 6c 61 74	e.(since.the.result.will.be.flat
0da0	74 65 6e 65 64 29 2e 0a 0a 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20 44 49 43 54 29 1f 0a 28 64 65	tened)...(fn.FUNCTION.DICT)..(de
0dc0	66 61 6c 69 61 73 20 27 6e 72 65 70 6c 2d 64 69 63 74 2d 66 6c 61 74 2d 6d 61 70 20 23 5b 35 31	falias.'nrepl-dict-flat-map.#[51
0de0	34 20 22 5c 32 31 31 5c 32 30 35 0b 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 04 5c 22 5c 22 5c	4."\211\205..\300\301\302..\"\"\
0e00	32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6e 72 65 70 6c 2d 64 69 63 74 2d 6d 61	207".[apply.append.nrepl-dict-ma
0e20	70 5d 20 37 20 28 23 24 20 2e 20 33 33 30 37 29 5d 29 0a 23 40 36 31 20 47 65 6e 65 72 69 63 20	p].7.(#$...3307)]).#@61.Generic.
0e40	63 6f 6e 73 20 6f 66 20 43 41 52 20 74 6f 20 4c 49 53 54 2d 4f 52 2d 44 49 43 54 2e 0a 0a 28 66	cons.of.CAR.to.LIST-OR-DICT...(f
0e60	6e 20 43 41 52 20 4c 49 53 54 2d 4f 52 2d 44 49 43 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	n.CAR.LIST-OR-DICT)..(defalias.'
0e80	6e 72 65 70 6c 2d 2d 63 6f 6e 73 20 23 5b 35 31 34 20 22 5c 32 31 31 40 5c 33 30 30 3d 5c 32 30	nrepl--cons.#[514."\211@\300=\20
0ea0	33 0e 00 5c 33 30 30 02 02 41 42 42 5c 32 30 37 01 01 42 5c 32 30 37 22 20 5b 64 69 63 74 5d 20	3..\300..ABB\207..B\207".[dict].
0ec0	35 20 28 23 24 20 2e 20 33 36 34 30 29 5d 29 0a 23 40 36 38 20 47 65 6e 65 72 69 63 20 60 6e 72	5.(#$...3640)]).#@68.Generic.`nr
0ee0	65 76 65 72 73 65 27 20 77 68 69 63 68 20 77 6f 72 6b 73 20 6f 6e 20 4c 49 53 54 2d 4f 52 2d 44	everse'.which.works.on.LIST-OR-D
0f00	49 43 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 2d 4f 52 2d 44 49 43 54 29 1f 0a 28 64 65 66 61 6c 69	ICT...(fn.LIST-OR-DICT)..(defali
0f20	61 73 20 27 6e 72 65 70 6c 2d 2d 6e 72 65 76 65 72 73 65 20 23 5b 32 35 37 20 22 5c 32 31 31 40	as.'nrepl--nreverse.#[257."\211@
0f40	5c 33 30 30 3d 5c 32 30 33 0d 00 5c 33 30 30 01 41 5c 32 33 37 42 5c 32 30 37 5c 32 31 31 5c 32	\300=\203..\300.A\237B\207\211\2
0f60	33 37 5c 32 30 37 22 20 5b 64 69 63 74 5d 20 33 20 28 23 24 20 2e 20 33 37 39 37 29 5d 29 0a 23	37\207".[dict].3.(#$...3797)]).#
0f80	40 35 39 20 43 6f 6e 73 20 4f 42 4a 20 74 6f 20 74 68 65 20 74 6f 70 20 65 6c 65 6d 65 6e 74 20	@59.Cons.OBJ.to.the.top.element.
0fa0	6f 66 20 74 68 65 20 53 54 41 43 4b 2e 0a 0a 28 66 6e 20 4f 42 4a 20 53 54 41 43 4b 29 1f 0a 28	of.the.STACK...(fn.OBJ.STACK)..(
0fc0	64 65 66 61 6c 69 61 73 20 27 6e 72 65 70 6c 2d 2d 70 75 73 68 20 23 5b 35 31 34 20 22 5c 32 31	defalias.'nrepl--push.#[514."\21
0fe0	31 40 40 5c 33 30 30 3d 5c 32 30 33 13 00 5c 33 30 30 02 02 40 41 42 42 01 41 42 5c 32 30 37 5c	1@@\300=\203..\300..@ABB.AB\207\
1000	32 31 31 5c 32 30 34 1b 00 01 5c 32 30 32 1f 00 01 01 40 42 01 41 42 5c 32 30 37 22 20 5b 64 69	211\204...\202....@B.AB\207".[di
1020	63 74 5d 20 35 20 28 23 24 20 2e 20 33 39 37 32 29 5d 29 0a 23 40 33 35 37 20 4a 6f 69 6e 20 6e	ct].5.(#$...3972)]).#@357.Join.n
1040	52 45 50 4c 20 64 69 63 74 73 20 44 49 43 54 31 20 61 6e 64 20 44 49 43 54 32 20 69 6e 20 61 20	REPL.dicts.DICT1.and.DICT2.in.a.
1060	6d 65 61 6e 69 6e 67 66 75 6c 20 77 61 79 2e 0a 53 74 72 69 6e 67 20 76 61 6c 75 65 73 20 66 6f	meaningful.way..String.values.fo
1080	72 20 6e 6f 6e 20 22 69 64 22 20 61 6e 64 20 22 73 65 73 73 69 6f 6e 22 20 6b 65 79 73 20 61 72	r.non."id".and."session".keys.ar
10a0	65 20 63 6f 6e 63 61 74 65 6e 61 74 65 64 2e 20 4c 69 73 74 73 0a 61 72 65 20 61 70 70 65 6e 64	e.concatenated..Lists.are.append
10c0	65 64 2e 20 6e 52 45 50 4c 20 64 69 63 74 73 20 6d 65 72 67 65 64 20 72 65 63 75 72 73 69 76 65	ed..nREPL.dicts.merged.recursive
10e0	6c 79 2e 20 41 6c 6c 20 6f 74 68 65 72 20 6f 62 6a 65 63 74 73 20 61 72 65 0a 61 63 63 75 6d 75	ly..All.other.objects.are.accumu
1100	6c 61 74 65 64 20 69 6e 74 6f 20 61 20 6c 69 73 74 2e 20 44 49 43 54 31 20 69 73 20 6d 6f 64 69	lated.into.a.list..DICT1.is.modi
1120	66 69 65 64 20 64 65 73 74 72 75 63 74 69 76 65 6c 79 20 61 6e 64 0a 74 68 65 6e 20 72 65 74 75	fied.destructively.and.then.retu
1140	72 6e 65 64 2e 0a 49 66 20 4e 4f 2d 4a 4f 49 4e 20 69 73 20 67 69 76 65 6e 2c 20 72 65 74 75 72	rned..If.NO-JOIN.is.given,.retur
1160	6e 20 74 68 65 20 66 69 72 73 74 20 6e 6f 6e 20 6e 69 6c 20 64 69 63 74 2e 0a 0a 28 66 6e 20 44	n.the.first.non.nil.dict...(fn.D
1180	49 43 54 31 20 44 49 43 54 32 20 26 6f 70 74 69 6f 6e 61 6c 20 4e 4f 2d 4a 4f 49 4e 29 1f 0a 28	ICT1.DICT2.&optional.NO-JOIN)..(
11a0	64 65 66 61 6c 69 61 73 20 27 6e 72 65 70 6c 2d 2d 6d 65 72 67 65 20 23 5b 37 37 30 20 22 5c 32	defalias.'nrepl--merge.#[770."\2
11c0	31 31 5c 32 30 33 5c 6e 00 02 5c 32 30 36 55 00 01 5c 32 30 37 02 5c 32 30 34 10 00 01 5c 32 30	11\203\n..\206U..\207.\204...\20
11e0	37 01 5c 32 30 34 16 00 02 5c 32 30 37 02 3b 5c 32 30 33 1f 00 02 02 50 5c 32 30 37 5c 33 30 30	7.\204...\207.;\203....P\207\300
1200	03 21 5c 32 30 33 38 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36	.!\2038.\301\302\303\304\305\306
1220	06 08 21 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 03 5c 22 5c 32 31 30 02 5c 32 30 37 01 3c	..!\307\"\310\311%.\"\210.\207.<
1240	5c 32 30 33 47 00 02 3c 5c 32 30 33 47 00 5c 33 31 32 03 03 5c 22 5c 32 30 37 02 3c 5c 32 30 33	\203G..<\203G.\312..\"\207.<\203
1260	52 00 5c 33 31 32 03 03 43 5c 22 5c 32 30 37 02 02 44 5c 32 30 37 22 20 5b 6e 72 65 70 6c 2d 64	R.\312..C\"\207..D\207".[nrepl-d
1280	69 63 74 2d 70 20 6e 72 65 70 6c 2d 64 69 63 74 2d 6d 61 70 20 6d 61 6b 65 2d 62 79 74 65 2d 63	ict-p.nrepl-dict-map.make-byte-c
12a0	6f 64 65 20 35 31 34 20 22 5c 33 30 31 5c 33 30 30 03 5c 33 30 32 5c 33 30 33 5c 33 30 30 06 07	ode.514."\301\300.\302\303\300..
12c0	5c 22 05 06 07 5c 33 30 34 5c 32 33 35 23 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63	\"...\304\235##\207".vconcat.vec
12e0	74 6f 72 20 5b 6e 72 65 70 6c 2d 64 69 63 74 2d 70 75 74 20 6e 72 65 70 6c 2d 2d 6d 65 72 67 65	tor.[nrepl-dict-put.nrepl--merge
1300	20 6e 72 65 70 6c 2d 64 69 63 74 2d 67 65 74 20 28 22 69 64 22 20 22 73 65 73 73 69 6f 6e 22 29	.nrepl-dict-get.("id"."session")
1320	5d 20 31 30 20 22 5c 6e 5c 6e 28 66 6e 20 4b 32 20 56 32 29 22 20 61 70 70 65 6e 64 5d 20 31 30	].10."\n\n(fn.K2.V2)".append].10
1340	20 28 23 24 20 2e 20 34 31 35 34 29 5d 29 0a 23 40 31 32 32 20 44 65 73 74 72 75 63 74 75 72 65	.(#$...4154)]).#@122.Destructure
1360	20 61 6e 20 6e 52 45 50 4c 20 52 45 53 50 4f 4e 53 45 20 64 69 63 74 2e 0a 42 69 6e 64 20 74 68	.an.nREPL.RESPONSE.dict..Bind.th
1380	65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 70 72 6f 76 69 64 65 64 20 4b 45 59 53 20 61 6e 64	e.value.of.the.provided.KEYS.and
13a0	20 65 78 65 63 75 74 65 20 42 4f 44 59 2e 0a 0a 28 66 6e 20 52 45 53 50 4f 4e 53 45 20 4b 45 59	.execute.BODY...(fn.RESPONSE.KEY
13c0	53 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6e 72 65 70 6c 2d	S.&rest.BODY)..(defalias.'nrepl-
13e0	64 62 69 6e 64 2d 72 65 73 70 6f 6e 73 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22	dbind-response.'(macro...#[642."
1400	5c 33 30 30 02 5c 33 30 31 5c 32 31 31 02 3a 5c 32 30 33 23 00 02 40 5c 32 36 32 02 01 5c 33 30	\300.\301\211.:\203#..@\262..\30
1420	32 06 08 5c 33 30 33 5c 33 30 34 06 06 5c 22 45 44 01 42 5c 32 36 32 01 02 41 5c 32 36 32 03 5c	2..\303\304..\"ED.B\262..A\262.\
1440	32 30 32 04 00 5c 32 31 31 5c 32 33 37 5c 32 36 36 5c 32 30 33 02 42 42 5c 32 30 37 22 20 5b 6c	202..\211\237\266\203.BB\207".[l
1460	65 74 20 6e 69 6c 20 6e 72 65 70 6c 2d 64 69 63 74 2d 67 65 74 20 66 6f 72 6d 61 74 20 22 25 73	et.nil.nrepl-dict-get.format."%s
1480	22 5d 20 31 33 20 28 23 24 20 2e 20 34 39 34 39 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20	"].13.(#$...4949)])).(byte-code.
14a0	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 30 5c 33 30 31 5c 33	"\300\301\302\303#\210\300\301\3
14c0	30 34 5c 33 30 35 23 5c 32 31 30 5c 33 30 36 5c 33 30 37 21 5c 32 30 37 22 20 5b 70 75 74 20 6e	04\305#\210\306\307!\207".[put.n
14e0	72 65 70 6c 2d 64 62 69 6e 64 2d 72 65 73 70 6f 6e 73 65 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d	repl-dbind-response.edebug-form-
1500	73 70 65 63 20 28 66 6f 72 6d 20 28 26 72 65 73 74 20 73 79 6d 62 6f 6c 70 29 20 62 6f 64 79 29	spec.(form.(&rest.symbolp).body)
1520	20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 20 70 72 6f 76 69 64 65 20	.lisp-indent-function.2.provide.
1540	6e 72 65 70 6c 2d 64 69 63 74 5d 20 34 29 0a	nrepl-dict].4).