blob: 69bfb8a3774d0a3a0846b4c90ec7bc67e1f77591 (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 30 5c 33 30 35 21 5c 32	303!\210\300\304!\210\300\305!\2
01e0	31 30 5c 33 30 30 5c 33 30 36 21 5c 32 31 30 5c 33 30 30 5c 33 30 37 21 5c 32 30 37 22 20 5b 72	10\300\306!\210\300\307!\207".[r
0200	65 71 75 69 72 65 20 63 6c 2d 6c 69 62 20 6a 73 6f 6e 20 75 72 6c 2d 75 74 69 6c 20 68 61 73 6b	equire.cl-lib.json.url-util.hask
0220	65 6c 6c 2d 63 6f 6d 70 61 74 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 20 68 61 73 6b 65	ell-compat.haskell-session.haske
0240	6c 6c 2d 63 75 73 74 6f 6d 69 7a 65 20 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 5d 20 32 29 0a	ll-customize.haskell-string].2).
0260	23 40 36 34 20 55 73 65 64 20 66 6f 72 20 64 65 6c 69 6d 69 74 69 6e 67 20 63 6f 6d 6d 61 6e 64	#@64.Used.for.delimiting.command
0280	20 72 65 70 6c 69 65 73 2e 20 34 20 69 73 20 45 6e 64 20 6f 66 20 54 72 61 6e 73 6d 69 73 73 69	.replies..4.is.End.of.Transmissi
02a0	6f 6e 2e 1f 0a 28 64 65 66 63 6f 6e 73 74 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 70	on...(defconst.haskell-process-p
02c0	72 6f 6d 70 74 2d 72 65 67 65 78 20 22 04 22 20 28 23 24 20 2e 20 36 31 33 29 29 0a 23 40 34 38	rompt-regex.".".(#$...613)).#@48
02e0	20 55 73 65 64 20 69 6e 74 65 72 6e 61 6c 6c 79 20 66 6f 72 20 60 68 61 73 6b 65 6c 6c 2d 70 72	.Used.internally.for.`haskell-pr
0300	6f 63 65 73 73 2d 6c 6f 61 64 69 73 68 27 2e 1f 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c	ocess-loadish'...(defvar.haskell
0320	2d 72 65 6c 6f 61 64 2d 70 20 6e 69 6c 20 28 23 24 20 2e 20 37 33 37 29 29 0a 23 40 35 31 20 47	-reload-p.nil.(#$...737)).#@51.G
0340	72 65 65 74 69 6e 67 73 20 66 6f 72 20 77 68 65 6e 20 74 68 65 20 48 61 73 6b 65 6c 6c 20 70 72	reetings.for.when.the.Haskell.pr
0360	6f 63 65 73 73 20 73 74 61 72 74 73 20 75 70 2e 1f 0a 28 64 65 66 63 6f 6e 73 74 20 68 61 73 6b	ocess.starts.up...(defconst.hask
0380	65 6c 6c 2d 70 72 6f 63 65 73 73 2d 67 72 65 65 74 69 6e 67 73 20 28 6c 69 73 74 20 22 48 65 6c	ell-process-greetings.(list."Hel
03a0	6c 6f 2c 20 48 61 73 6b 65 6c 6c 21 22 20 22 54 68 65 20 6c 61 6d 62 64 61 73 20 6d 75 73 74 20	lo,.Haskell!"."The.lambdas.must.
03c0	66 6c 6f 77 2e 22 20 22 48 6f 75 72 73 20 6f 66 20 68 61 63 6b 69 6e 67 20 61 77 61 69 74 21 22	flow."."Hours.of.hacking.await!"
03e0	20 22 54 68 65 20 6e 65 78 74 20 62 69 67 20 48 61 73 6b 65 6c 6c 20 70 72 6f 6a 65 63 74 20 69	."The.next.big.Haskell.project.i
0400	73 20 61 62 6f 75 74 20 74 6f 20 73 74 61 72 74 21 22 20 22 59 6f 75 72 20 77 69 73 68 20 69 73	s.about.to.start!"."Your.wish.is
0420	20 6d 79 20 49 4f 20 28 29 2e 22 29 20 28 23 24 20 2e 20 38 33 31 29 29 0a 23 40 33 33 20 48 61	.my.IO.().").(#$...831)).#@33.Ha
0440	73 6b 65 6c 6c 20 6c 6f 67 6f 20 66 6f 72 20 6e 6f 74 69 66 69 63 61 74 69 6f 6e 73 2e 1f 0a 28	skell.logo.for.notifications...(
0460	64 65 66 63 6f 6e 73 74 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 6c 6f 67 6f 20 28 65	defconst.haskell-process-logo.(e
0480	78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 6c 6f 67 6f 2e 73 76 67 22 20 68 61 73 6b 65	xpand-file-name."logo.svg".haske
04a0	6c 6c 2d 6d 6f 64 65 2d 70 6b 67 2d 62 61 73 65 2d 64 69 72 29 20 28 23 24 20 2e 20 31 30 38 36	ll-mode-pkg-base-dir).(#$...1086
04c0	29 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 70 2d	)).(defalias.'haskell-command-p-
04e0	2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c	-cmacro.#[514."\300\301\302\303\
0500	32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65	211\211..&.\207".[cl--defsubst-e
0520	78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 68 61 73 6b 65 6c 6c 2d 63	xpand.(cl-x).(cl-block.haskell-c
0540	6f 6d 6d 61 6e 64 2d 70 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66	ommand-p.(declare.(side-effect-f
0560	72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 29 29 20 28 61 6e 64 20 28 76 65 63 74 6f 72 70 20 63	ree.error-free)).(and.(vectorp.c
0580	6c 2d 78 29 20 28 3e 3d 20 28 6c 65 6e 67 74 68 20 63 6c 2d 78 29 20 35 29 20 28 6d 65 6d 71 20	l-x).(>=.(length.cl-x).5).(memq.
05a0	28 61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 68 61 73 6b 65 6c 6c 2d	(aref.cl-x.0).cl-struct-haskell-
05c0	63 6f 6d 6d 61 6e 64 2d 74 61 67 73 29 20 74 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66	command-tags).t)).nil].9."\n\n(f
05e0	6e 20 43 4c 2d 57 48 4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27 68 61	n.CL-WHOLE-ARG.CL-X)"]).(put.'ha
0600	73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 70 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20	skell-command-p.'compiler-macro.
0620	27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 70 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66	'haskell-command-p--cmacro).(def
0640	61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 70 20 23 5b 32 35 37 20 22	alias.'haskell-command-p.#[257."
0660	5c 33 30 31 01 21 5c 32 30 35 16 00 5c 32 31 31 47 5c 33 30 32 59 5c 32 30 35 16 00 5c 32 31 31	\301.!\205..\211G\302Y\205..\211
0680	5c 33 30 33 48 08 3e 5c 32 30 35 16 00 5c 33 30 34 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63	\303H.>\205..\304\207".[cl-struc
06a0	74 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 61 67 73 20 76 65 63 74 6f 72 70 20 35	t-haskell-command-tags.vectorp.5
06c0	20 30 20 74 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d 29 0a 28 62 79 74 65 2d	.0.t].3."\n\n(fn.CL-X)"]).(byte-
06e0	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c	code."\300\301\302\303#\210\304\
0700	33 30 35 5c 33 30 36 5c 33 30 31 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20	305\306\301#\207".[function-put.
0720	68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 70 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72	haskell-command-p.side-effect-fr
0740	65 65 20 65 72 72 6f 72 2d 66 72 65 65 20 70 75 74 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e	ee.error-free.put.haskell-comman
0760	64 20 63 6c 2d 64 65 66 74 79 70 65 2d 73 61 74 69 73 66 69 65 73 5d 20 34 29 0a 28 64 65 66 61	d.cl-deftype-satisfies].4).(defa
0780	6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 73 74 61 74 65 2d 2d 63 6d 61	lias.'haskell-command-state--cma
07a0	63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32 31 31 5c	cro.#[514."\300\301\302\303\211\
07c0	32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e	211..&.\207".[cl--defsubst-expan
07e0	64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61	d.(cl-x).(cl-block.haskell-comma
0800	6e 64 2d 73 74 61 74 65 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66	nd-state.(declare.(side-effect-f
0820	72 65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 20 28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d	ree.t)).(or.(and.(memq.(aref.cl-
0840	78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74	x.0).cl-struct-haskell-command-t
0860	61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65	ags)).(signal.'wrong-type-argume
0880	6e 74 20 28 6c 69 73 74 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 63 6c 2d 78 29 29	nt.(list.'haskell-command.cl-x))
08a0	29 20 28 61 72 65 66 20 63 6c 2d 78 20 31 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e	).(aref.cl-x.1)).nil].9."\n\n(fn
08c0	20 43 4c 2d 57 48 4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27 68 61 73	.CL-WHOLE-ARG.CL-X)"]).(put.'has
08e0	6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 73 74 61 74 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63	kell-command-state.'compiler-mac
0900	72 6f 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 73 74 61 74 65 2d 2d 63 6d 61 63 72	ro.'haskell-command-state--cmacr
0920	6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 73 74	o).(defalias.'haskell-command-st
0940	61 74 65 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33 30 32	ate.#[257."\211\301H.>\204..\302
0960	5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b	\303\304.D\"\210\211\305H\207".[
0980	63 6c 2d 73 74 72 75 63 74 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 61 67 73 20 30	cl-struct-haskell-command-tags.0
09a0	20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 68 61 73 6b	.signal.wrong-type-argument.hask
09c0	65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 31 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22	ell-command.1].5."\n\n(fn.CL-X)"
09e0	5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e	]).(function-put.'haskell-comman
0a00	64 2d 73 74 61 74 65 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 28 64 65	d-state.'side-effect-free.t).(de
0a20	66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 67 6f 2d 2d 63 6d 61 63	falias.'haskell-command-go--cmac
0a40	72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32 31 31 5c 32	ro.#[514."\300\301\302\303\211\2
0a60	31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64	11..&.\207".[cl--defsubst-expand
0a80	20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e	.(cl-x).(cl-block.haskell-comman
0aa0	64 2d 67 6f 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20	d-go.(declare.(side-effect-free.
0ac0	74 29 29 20 28 6f 72 20 28 61 6e 64 20 28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d 78 20 30 29	t)).(or.(and.(memq.(aref.cl-x.0)
0ae0	20 63 6c 2d 73 74 72 75 63 74 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 61 67 73 29	.cl-struct-haskell-command-tags)
0b00	29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28	).(signal.'wrong-type-argument.(
0b20	6c 69 73 74 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 63 6c 2d 78 29 29 29 20 28 61	list.'haskell-command.cl-x))).(a
0b40	72 65 66 20 63 6c 2d 78 20 32 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d	ref.cl-x.2)).nil].9."\n\n(fn.CL-
0b60	57 48 4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27 68 61 73 6b 65 6c 6c	WHOLE-ARG.CL-X)"]).(put.'haskell
0b80	2d 63 6f 6d 6d 61 6e 64 2d 67 6f 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 68 61 73	-command-go.'compiler-macro.'has
0ba0	6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 67 6f 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69	kell-command-go--cmacro).(defali
0bc0	61 73 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 67 6f 20 23 5b 32 35 37 20 22 5c 32	as.'haskell-command-go.#[257."\2
0be0	31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c	11\301H.>\204..\302\303\304.D\"\
0c00	32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 68 61 73	210\211\305H\207".[cl-struct-has
0c20	6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67	kell-command-tags.0.signal.wrong
0c40	2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 32	-type-argument.haskell-command.2
0c60	5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d	].5."\n\n(fn.CL-X)"]).(function-
0c80	70 75 74 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 67 6f 20 27 73 69 64 65 2d 65 66	put.'haskell-command-go.'side-ef
0ca0	66 65 63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d	fect-free.t).(defalias.'haskell-
0cc0	63 6f 6d 6d 61 6e 64 2d 6c 69 76 65 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30	command-live--cmacro.#[514."\300
0ce0	5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63	\301\302\303\211\211..&.\207".[c
0d00	6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c	l--defsubst-expand.(cl-x).(cl-bl
0d20	6f 63 6b 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 76 65 20 28 64 65 63 6c 61 72	ock.haskell-command-live.(declar
0d40	65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64	e.(side-effect-free.t)).(or.(and
0d60	20 28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 68	.(memq.(aref.cl-x.0).cl-struct-h
0d80	61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77	askell-command-tags)).(signal.'w
0da0	72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 68 61 73 6b 65 6c	rong-type-argument.(list.'haskel
0dc0	6c 2d 63 6f 6d 6d 61 6e 64 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 33 29 29	l-command.cl-x))).(aref.cl-x.3))
0de0	20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 57 48 4f 4c 45 2d 41 52 47 20 43 4c	.nil].9."\n\n(fn.CL-WHOLE-ARG.CL
0e00	2d 58 29 22 5d 29 0a 28 70 75 74 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 76	-X)"]).(put.'haskell-command-liv
0e20	65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61	e.'compiler-macro.'haskell-comma
0e40	6e 64 2d 6c 69 76 65 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b	nd-live--cmacro).(defalias.'hask
0e60	65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 76 65 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31	ell-command-live.#[257."\211\301
0e80	48 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31	H.>\204..\302\303\304.D\"\210\21
0ea0	31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 68 61 73 6b 65 6c 6c 2d 63	1\305H\207".[cl-struct-haskell-c
0ec0	6f 6d 6d 61 6e 64 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d	ommand-tags.0.signal.wrong-type-
0ee0	61 72 67 75 6d 65 6e 74 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 33 5d 20 35 20 22 5c	argument.haskell-command.3].5."\
0f00	6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 68	n\n(fn.CL-X)"]).(function-put.'h
0f20	61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 76 65 20 27 73 69 64 65 2d 65 66 66 65 63 74	askell-command-live.'side-effect
0f40	2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d	-free.t).(defalias.'haskell-comm
0f60	61 6e 64 2d 63 6f 6d 70 6c 65 74 65 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30	and-complete--cmacro.#[514."\300
0f80	5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63	\301\302\303\211\211..&.\207".[c
0fa0	6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c	l--defsubst-expand.(cl-x).(cl-bl
0fc0	6f 63 6b 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 20 28 64 65	ock.haskell-command-complete.(de
0fe0	63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20	clare.(side-effect-free.t)).(or.
1000	28 61 6e 64 20 28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75	(and.(memq.(aref.cl-x.0).cl-stru
1020	63 74 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61	ct-haskell-command-tags)).(signa
1040	6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 68 61	l.'wrong-type-argument.(list.'ha
1060	73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78	skell-command.cl-x))).(aref.cl-x
1080	20 34 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 57 48 4f 4c 45 2d 41 52	.4)).nil].9."\n\n(fn.CL-WHOLE-AR
10a0	47 20 43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64	G.CL-X)"]).(put.'haskell-command
10c0	2d 63 6f 6d 70 6c 65 74 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 68 61 73 6b 65	-complete.'compiler-macro.'haske
10e0	6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65	ll-command-complete--cmacro).(de
1100	66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65	falias.'haskell-command-complete
1120	20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30	.#[257."\211\301H.>\204..\302\30
1140	33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d	3\304.D\"\210\211\305H\207".[cl-
1160	73 74 72 75 63 74 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 61 67 73 20 30 20 73 69	struct-haskell-command-tags.0.si
1180	67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 68 61 73 6b 65 6c 6c	gnal.wrong-type-argument.haskell
11a0	2d 63 6f 6d 6d 61 6e 64 20 34 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d 29 0a	-command.4].5."\n\n(fn.CL-X)"]).
11c0	28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31	(byte-code."\300\301\302\303#\21
11e0	30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70	0\304\305\306\"\207".[function-p
1200	75 74 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 63 6f 6d 70 6c 65 74 65 20 73 69 64 65	ut.haskell-command-complete.side
1220	2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 20 64 65 66 61 6c 69 61 73 20 63 6f 70 79 2d 68 61 73	-effect-free.t.defalias.copy-has
1240	6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 5d 20 34 29 0a 23	kell-command.copy-sequence].4).#
1260	40 35 35 20 0a 0a 28 66 6e 20 43 4c 2d 57 48 4f 4c 45 20 26 63 6c 2d 71 75 6f 74 65 20 26 6b 65	@55...(fn.CL-WHOLE.&cl-quote.&ke
1280	79 20 53 54 41 54 45 20 47 4f 20 4c 49 56 45 20 43 4f 4d 50 4c 45 54 45 29 1f 0a 28 64 65 66 61	y.STATE.GO.LIVE.COMPLETE)..(defa
12a0	6c 69 61 73 20 27 6d 61 6b 65 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 2d 63 6d 61 63	lias.'make-haskell-command--cmac
12c0	72 6f 20 23 5b 33 38 35 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 41 40 5c 33 30 30 02 5c 33 30 32	ro.#[385."\300.\301\"A@\300.\302
12e0	5c 22 41 40 5c 33 30 30 03 5c 33 30 33 5c 22 41 40 5c 33 30 30 04 5c 33 30 34 5c 22 41 40 04 5c	\"A@\300.\303\"A@\300.\304\"A@.\
1300	32 31 31 5c 32 30 33 44 00 5c 32 31 31 40 5c 33 30 35 3e 5c 32 30 33 2c 00 5c 32 31 31 41 41 5c	211\203D.\211@\305>\203,.\211AA\
1320	32 36 32 01 5c 32 30 32 19 00 5c 33 30 36 06 06 3e 41 40 5c 32 30 33 3b 00 5c 33 30 37 5c 32 36	262.\202..\306..>A@\203;.\307\26
1340	32 01 5c 32 30 32 19 00 5c 33 31 30 5c 33 31 31 02 40 5c 22 5c 32 31 30 5c 32 30 32 19 00 5c 32	2.\202..\310\311.@\"\210\202..\2
1360	31 30 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 30 37 06 09 5c 33 30 37 06 09 06 09 06 09 06 09	10\312\313\314\307..\307........
1380	26 09 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 6d 65 6d 62 65 72 20 3a 73 74 61 74 65 20 3a 67 6f	&.\207".[plist-member.:state.:go
13a0	20 3a 6c 69 76 65 20 3a 63 6f 6d 70 6c 65 74 65 20 28 3a 73 74 61 74 65 20 3a 67 6f 20 3a 6c 69	.:live.:complete.(:state.:go.:li
13c0	76 65 20 3a 63 6f 6d 70 6c 65 74 65 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 20	ve.:complete.:allow-other-keys).
13e0	3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 6e 69 6c 20 65 72 72 6f 72 20 22 4b 65 79	:allow-other-keys.nil.error."Key
1400	77 6f 72 64 20 61 72 67 75 6d 65 6e 74 20 25 73 20 6e 6f 74 20 6f 6e 65 20 6f 66 20 28 3a 73 74	word.argument.%s.not.one.of.(:st
1420	61 74 65 20 3a 67 6f 20 3a 6c 69 76 65 20 3a 63 6f 6d 70 6c 65 74 65 29 22 20 63 6c 2d 2d 64 65	ate.:go.:live.:complete)".cl--de
1440	66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 73 74 61 74 65 20 67 6f 20 6c 69 76 65 20 63 6f 6d	fsubst-expand.(state.go.live.com
1460	70 6c 65 74 65 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 6d 61 6b 65 2d 68 61 73 6b 65 6c 6c 2d 63 6f	plete).(cl-block.make-haskell-co
1480	6d 6d 61 6e 64 20 22 43 6f 6e 73 74 72 75 63 74 6f 72 20 66 6f 72 20 6f 62 6a 65 63 74 73 20 6f	mmand."Constructor.for.objects.o
14a0	66 20 74 79 70 65 20 60 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 27 2e 22 20 28 64 65 63 6c	f.type.`haskell-command'.".(decl
14c0	61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 76 65 63 74 6f	are.(side-effect-free.t)).(vecto
14e0	72 20 27 63 6c 2d 73 74 72 75 63 74 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 73 74 61	r.'cl-struct-haskell-command.sta
1500	74 65 20 67 6f 20 6c 69 76 65 20 63 6f 6d 70 6c 65 74 65 29 29 5d 20 31 36 20 28 23 24 20 2e 20	te.go.live.complete))].16.(#$...
1520	34 37 30 38 29 5d 29 0a 28 70 75 74 20 27 6d 61 6b 65 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61	4708)]).(put.'make-haskell-comma
1540	6e 64 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 6d 61 6b 65 2d 68 61 73 6b 65 6c 6c	nd.'compiler-macro.'make-haskell
1560	2d 63 6f 6d 6d 61 6e 64 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 38 36 20 43 6f 6e 73 74 72 75 63 74	-command--cmacro).#@86.Construct
1580	6f 72 20 66 6f 72 20 6f 62 6a 65 63 74 73 20 6f 66 20 74 79 70 65 20 60 68 61 73 6b 65 6c 6c 2d	or.for.objects.of.type.`haskell-
15a0	63 6f 6d 6d 61 6e 64 27 2e 0a 0a 28 66 6e 20 26 6b 65 79 20 53 54 41 54 45 20 47 4f 20 4c 49 56	command'...(fn.&key.STATE.GO.LIV
15c0	45 20 43 4f 4d 50 4c 45 54 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6d 61 6b 65 2d 68 61 73	E.COMPLETE)..(defalias.'make-has
15e0	6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 23 5b 31 32 38 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 41	kell-command.#[128."\300.\301\"A
1600	40 5c 33 30 30 02 5c 33 30 32 5c 22 41 40 5c 33 30 30 03 5c 33 30 33 5c 22 41 40 5c 33 30 30 04	@\300.\302\"A@\300.\303\"A@\300.
1620	5c 33 30 34 5c 22 41 40 04 5c 32 31 31 5c 32 30 33 44 00 5c 32 31 31 40 5c 33 30 35 3e 5c 32 30	\304\"A@.\211\203D.\211@\305>\20
1640	33 2c 00 5c 32 31 31 41 41 5c 32 36 32 01 5c 32 30 32 19 00 5c 33 30 36 06 06 3e 41 40 5c 32 30	3,.\211AA\262.\202..\306..>A@\20
1660	33 3b 00 5c 33 30 37 5c 32 36 32 01 5c 32 30 32 19 00 5c 33 31 30 5c 33 31 31 02 40 5c 22 5c 32	3;.\307\262.\202..\310\311.@\"\2
1680	31 30 5c 32 30 32 19 00 5c 32 31 30 5c 33 31 32 5c 33 31 33 05 05 05 05 25 5c 32 30 37 22 20 5b	10\202..\210\312\313....%\207".[
16a0	70 6c 69 73 74 2d 6d 65 6d 62 65 72 20 3a 73 74 61 74 65 20 3a 67 6f 20 3a 6c 69 76 65 20 3a 63	plist-member.:state.:go.:live.:c
16c0	6f 6d 70 6c 65 74 65 20 28 3a 73 74 61 74 65 20 3a 67 6f 20 3a 6c 69 76 65 20 3a 63 6f 6d 70 6c	omplete.(:state.:go.:live.:compl
16e0	65 74 65 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 20 3a 61 6c 6c 6f 77 2d 6f 74	ete.:allow-other-keys).:allow-ot
1700	68 65 72 2d 6b 65 79 73 20 6e 69 6c 20 65 72 72 6f 72 20 22 4b 65 79 77 6f 72 64 20 61 72 67 75	her-keys.nil.error."Keyword.argu
1720	6d 65 6e 74 20 25 73 20 6e 6f 74 20 6f 6e 65 20 6f 66 20 28 3a 73 74 61 74 65 20 3a 67 6f 20 3a	ment.%s.not.one.of.(:state.:go.:
1740	6c 69 76 65 20 3a 63 6f 6d 70 6c 65 74 65 29 22 20 76 65 63 74 6f 72 20 63 6c 2d 73 74 72 75 63	live.:complete)".vector.cl-struc
1760	74 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 5d 20 31 31 20 28 23 24 20 2e 20 35 34 39 35	t-haskell-command].11.(#$...5495
1780	29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	)]).(byte-code."\300\301\302\303
17a0	23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 32 31 31 5c 33 31	#\210\304\305\306\307\310\211\31
17c0	31 5c 33 31 32 5c 33 31 33 5c 33 30 33 26 09 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70	1\312\313\303&.\207".[function-p
17e0	75 74 20 6d 61 6b 65 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 73 69 64 65 2d 65 66 66	ut.make-haskell-command.side-eff
1800	65 63 74 2d 66 72 65 65 20 74 20 63 6c 2d 73 74 72 75 63 74 2d 64 65 66 69 6e 65 20 68 61 73 6b	ect-free.t.cl-struct-define.hask
1820	65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 22 44 61 74 61 20 73 74 72 75 63 74 75 72 65 20 72 65 70 72	ell-command."Data.structure.repr
1840	65 73 65 6e 74 69 6e 67 20 61 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 62 65 20 65 78 65 63 75 74 65	esenting.a.command.to.be.execute
1860	64 20 77 68 65 6e 20 77 69 74 68 5c 6e 20 20 61 20 63 75 73 74 6f 6d 20 73 74 61 74 65 20 61 6e	d.when.with\n..a.custom.state.an
1880	64 20 74 68 72 65 65 20 63 61 6c 6c 62 61 63 6b 2e 22 20 63 6c 2d 73 74 72 75 63 74 75 72 65 2d	d.three.callback.".cl-structure-
18a0	6f 62 6a 65 63 74 20 6e 69 6c 20 28 28 63 6c 2d 74 61 67 2d 73 6c 6f 74 29 20 28 73 74 61 74 65	object.nil.((cl-tag-slot).(state
18c0	29 20 28 67 6f 29 20 28 6c 69 76 65 29 20 28 63 6f 6d 70 6c 65 74 65 29 29 20 63 6c 2d 73 74 72	).(go).(live).(complete)).cl-str
18e0	75 63 74 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 61 67 73 20 63 6c 2d 73 74 72 75	uct-haskell-command-tags.cl-stru
1900	63 74 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 5d 20 31 30 29 0a 23 40 32 30 32 20 43 6f	ct-haskell-command].10).#@202.Co
1920	6d 70 75 74 65 20 74 68 65 20 6c 6f 67 20 61 6e 64 20 70 72 6f 63 65 73 73 20 74 6f 20 73 74 61	mpute.the.log.and.process.to.sta
1940	72 74 20 63 6f 6d 6d 61 6e 64 20 66 6f 72 20 74 68 65 20 53 45 53 53 49 4f 4e 20 66 72 6f 6d 20	rt.command.for.the.SESSION.from.
1960	74 68 65 20 48 50 54 59 50 45 2e 0a 44 6f 20 6e 6f 74 20 61 63 74 75 61 6c 6c 79 20 73 74 61 72	the.HPTYPE..Do.not.actually.star
1980	74 20 61 6e 79 20 70 72 6f 63 65 73 73 2e 0a 48 50 54 59 50 45 20 69 73 20 74 68 65 20 72 65 73	t.any.process..HPTYPE.is.the.res
19a0	75 6c 74 20 6f 66 20 63 61 6c 6c 69 6e 67 20 60 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73	ult.of.calling.`'haskell-process
19c0	2d 74 79 70 65 60 27 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 48	-type`'.function...(fn.SESSION.H
19e0	50 54 59 50 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65	PTYPE)..(defalias.'haskell-proce
1a00	73 73 2d 63 6f 6d 70 75 74 65 2d 70 72 6f 63 65 73 73 2d 6c 6f 67 2d 61 6e 64 2d 63 6f 6d 6d 61	ss-compute-process-log-and-comma
1a20	6e 64 20 23 5b 35 31 34 20 22 5c 33 30 36 02 21 5c 33 30 37 02 5c 33 31 30 5c 22 5c 32 30 33 20	nd.#[514."\306.!\307.\310\"\203.
1a40	00 5c 33 31 31 5c 33 31 32 5c 33 31 33 08 5c 22 02 5c 33 31 34 45 5c 33 31 35 09 5c 33 31 31 5c	.\311\312\313.\".\314E\315.\311\
1a60	33 31 36 08 21 5c 6e 5c 22 43 5c 22 5c 22 5c 32 30 32 5c 32 35 35 00 5c 33 30 37 02 5c 33 31 37	316.!\n\"C\"\"\202\255.\307.\317
1a80	5c 22 5c 32 30 33 4b 00 5c 33 31 31 5c 33 31 32 5c 33 32 30 0b 5c 22 02 5c 33 31 34 45 5c 33 31	\"\203K.\311\312\320.\".\314E\31
1aa0	35 09 5c 33 31 31 5c 33 31 36 0b 21 5c 33 32 31 43 5c 66 5c 33 32 32 06 0b 21 5c 32 31 31 5c 32	5.\311\316.!\321C\f\322..!\211\2
1ac0	30 35 42 00 5c 32 31 31 43 5c 32 36 32 01 24 43 5c 22 5c 22 5c 32 30 32 5c 32 35 35 00 5c 33 30	05B.\211C\262.$C\"\"\202\255.\30
1ae0	37 02 5c 33 32 33 5c 22 5c 32 30 33 76 00 5c 33 31 31 5c 33 31 32 5c 33 32 34 0b 5c 22 02 5c 33	7.\323\"\203v.\311\312\324.\".\3
1b00	31 34 45 5c 33 31 35 09 5c 33 31 31 5c 33 31 36 0b 21 5c 33 32 35 43 0d 5c 33 32 32 06 0b 21 5c	14E\315.\311\316.!\325C.\322..!\
1b20	32 31 31 5c 32 30 35 6d 00 5c 32 31 31 43 5c 32 36 32 01 24 43 5c 22 5c 22 5c 32 30 32 5c 32 35	211\205m.\211C\262.$C\"\"\202\25
1b40	35 00 5c 33 30 37 02 5c 33 32 36 5c 22 5c 32 30 33 5c 32 34 34 00 5c 33 31 31 5c 33 31 32 5c 33	5.\307.\326\"\203\244.\311\312\3
1b60	32 37 0e 1c 5c 22 02 5c 33 31 34 45 5c 33 31 35 09 5c 33 31 31 5c 33 31 36 0e 1c 21 5c 33 33 30	27..\".\314E\315.\311\316..!\330
1b80	43 5c 33 32 32 06 5c 6e 21 5c 32 31 31 5c 32 30 35 5c 32 33 31 00 5c 32 31 31 43 5c 32 36 32 01	C\322.\n!\211\205\231.\211C\262.
1ba0	0e 1d 24 43 5c 22 5c 22 5c 32 30 32 5c 32 35 35 00 5c 33 33 31 5c 33 33 32 03 5c 33 33 33 23 5c	..$C\"\"\202\255.\331\332.\333#\
1bc0	32 30 35 5c 32 35 35 00 5c 33 31 34 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65	205\255.\314\207".[haskell-proce
1be0	73 73 2d 70 61 74 68 2d 67 68 63 69 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 77 72 61	ss-path-ghci.haskell-process-wra
1c00	70 70 65 72 2d 66 75 6e 63 74 69 6f 6e 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 61 72	pper-function.haskell-process-ar
1c20	67 73 2d 67 68 63 69 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 70 61 74 68 2d 63 61 62	gs-ghci.haskell-process-path-cab
1c40	61 6c 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 61 72 67 73 2d 63 61 62 61 6c 2d 6e 65	al.haskell-process-args-cabal-ne
1c60	77 2d 72 65 70 6c 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 61 72 67 73 2d 63 61 62 61	w-repl.haskell-process-args-caba
1c80	6c 2d 72 65 70 6c 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 6e 61 6d 65 20 6d 65 6d 71	l-repl.haskell-session-name.memq
1ca0	6c 20 27 67 68 63 69 20 61 70 70 65 6e 64 20 66 6f 72 6d 61 74 20 22 53 74 61 72 74 69 6e 67 20	l.'ghci.append.format."Starting.
1cc0	69 6e 66 65 72 69 6f 72 20 47 48 43 69 20 70 72 6f 63 65 73 73 20 25 73 20 2e 2e 2e 22 20 6e 69	inferior.GHCi.process.%s....".ni
1ce0	6c 20 61 70 70 6c 79 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 70 61 74 68 2d 74 6f 2d	l.apply.haskell-process-path-to-
1d00	6c 69 73 74 20 27 63 61 62 61 6c 2d 6e 65 77 2d 72 65 70 6c 20 22 53 74 61 72 74 69 6e 67 20 69	list.'cabal-new-repl."Starting.i
1d20	6e 66 65 72 69 6f 72 20 60 63 61 62 61 6c 20 6e 65 77 2d 72 65 70 6c 27 20 70 72 6f 63 65 73 73	nferior.`cabal.new-repl'.process
1d40	20 75 73 69 6e 67 20 25 73 20 2e 2e 2e 22 20 22 6e 65 77 2d 72 65 70 6c 22 20 68 61 73 6b 65 6c	.using.%s...."."new-repl".haskel
1d60	6c 2d 73 65 73 73 69 6f 6e 2d 74 61 72 67 65 74 20 27 63 61 62 61 6c 2d 72 65 70 6c 20 22 53 74	l-session-target.'cabal-repl."St
1d80	61 72 74 69 6e 67 20 69 6e 66 65 72 69 6f 72 20 60 63 61 62 61 6c 20 72 65 70 6c 27 20 70 72 6f	arting.inferior.`cabal.repl'.pro
1da0	63 65 73 73 20 75 73 69 6e 67 20 25 73 20 2e 2e 2e 22 20 22 72 65 70 6c 22 20 27 73 74 61 63 6b	cess.using.%s...."."repl".'stack
1dc0	2d 67 68 63 69 20 22 53 74 61 72 74 69 6e 67 20 69 6e 66 65 72 69 6f 72 20 73 74 61 63 6b 20 47	-ghci."Starting.inferior.stack.G
1de0	48 43 69 20 70 72 6f 63 65 73 73 20 75 73 69 6e 67 20 25 73 22 20 22 67 68 63 69 22 20 65 72 72	HCi.process.using.%s"."ghci".err
1e00	6f 72 20 22 63 6c 2d 65 63 61 73 65 20 66 61 69 6c 65 64 3a 20 25 73 2c 20 25 73 22 20 28 67 68	or."cl-ecase.failed:.%s,.%s".(gh
1e20	63 69 20 71 75 6f 74 65 20 63 61 62 61 6c 2d 6e 65 77 2d 72 65 70 6c 20 71 75 6f 74 65 20 63 61	ci.quote.cabal-new-repl.quote.ca
1e40	62 61 6c 2d 72 65 70 6c 20 71 75 6f 74 65 20 73 74 61 63 6b 2d 67 68 63 69 20 71 75 6f 74 65 29	bal-repl.quote.stack-ghci.quote)
1e60	20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 70 61 74 68 2d 73 74 61 63 6b 20 68 61 73 6b	.haskell-process-path-stack.hask
1e80	65 6c 6c 2d 70 72 6f 63 65 73 73 2d 61 72 67 73 2d 73 74 61 63 6b 2d 67 68 63 69 5d 20 31 33 20	ell-process-args-stack-ghci].13.
1ea0	28 23 24 20 2e 20 36 34 33 30 29 5d 29 0a 23 40 37 32 20 43 6f 6e 76 65 72 74 20 61 20 70 61 74	(#$...6430)]).#@72.Convert.a.pat
1ec0	68 20 28 77 68 69 63 68 20 6d 61 79 20 62 65 20 61 20 73 74 72 69 6e 67 20 6f 72 20 61 20 6c 69	h.(which.may.be.a.string.or.a.li
1ee0	73 74 29 20 74 6f 20 61 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 50 41 54 48 29 1f 0a 28 64 65 66 61	st).to.a.list...(fn.PATH)..(defa
1f00	6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 70 61 74 68 2d 74 6f 2d 6c 69	lias.'haskell-process-path-to-li
1f20	73 74 20 23 5b 32 35 37 20 22 5c 32 31 31 3b 5c 32 30 33 08 00 5c 32 31 31 43 5c 32 30 37 5c 32	st.#[257."\211;\203..\211C\207\2
1f40	30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 37 38 35 39 29 5d 29 0a 23 40 34 36 20 4d 61 6b 65	07".[].2.(#$...7859)]).#@46.Make
1f60	20 61 6e 20 69 6e 66 65 72 69 6f 72 20 48 61 73 6b 65 6c 6c 20 70 72 6f 63 65 73 73 2e 0a 0a 28	.an.inferior.Haskell.process...(
1f80	66 6e 20 4e 41 4d 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f	fn.NAME)..(defalias.'haskell-pro
1fa0	63 65 73 73 2d 6d 61 6b 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 42 43 5c 32 30 37 22 20 5b 6e	cess-make.#[257."\300.BC\207".[n
1fc0	61 6d 65 5d 20 33 20 28 23 24 20 2e 20 38 30 32 38 29 5d 29 0a 23 40 35 33 20 54 68 65 20 73 65	ame].3.(#$...8028)]).#@53.The.se
1fe0	6e 74 69 6e 65 6c 20 66 6f 72 20 74 68 65 20 70 72 6f 63 65 73 73 20 70 69 70 65 2e 0a 0a 28 66	ntinel.for.the.process.pipe...(f
2000	6e 20 50 52 4f 43 20 45 56 45 4e 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c	n.PROC.EVENT)..(defalias.'haskel
2020	6c 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 69 6e 65 6c 20 23 5b 35 31 34 20 22 5c 33 30 30 02 21	l-process-sentinel.#[514."\300.!
2040	5c 32 31 31 5c 32 30 35 2b 00 5c 33 30 31 01 21 5c 33 30 32 01 21 3f 5c 32 30 35 29 00 5c 33 30	\211\205+.\301.!\302.!?\205).\30
2060	33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 5c 22 5c 33 30 37 5c 33 31 30 23 21 5c 32 31 30 5c	3\304\305\306..\"\307\310#!\210\
2080	33 30 33 5c 33 30 34 5c 33 31 31 5c 33 30 37 5c 33 31 32 23 21 5c 32 31 30 5c 33 31 33 5c 33 31	303\304\311\307\312#!\210\313\31
20a0	34 02 5c 22 5c 32 36 32 01 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d	4.\"\262.\207".[haskell-process-
20c0	70 72 6f 6a 65 63 74 2d 62 79 2d 70 72 6f 63 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d	project-by-proc.haskell-session-
20e0	70 72 6f 63 65 73 73 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 72 65 73 74 61 72 74 69	process.haskell-process-restarti
2100	6e 67 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 6c 6f 67 20 70 72 6f 70 65 72 74 69 7a	ng.haskell-process-log.propertiz
2120	65 20 66 6f 72 6d 61 74 20 22 45 76 65 6e 74 3a 20 25 53 5c 6e 22 20 66 61 63 65 20 28 28 3a 77	e.format."Event:.%S\n".face.((:w
2140	65 69 67 68 74 20 62 6f 6c 64 29 29 20 22 50 72 6f 63 65 73 73 20 72 65 73 65 74 2e 5c 6e 22 20	eight.bold))."Process.reset.\n".
2160	66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 20 72 75 6e 2d 68 6f 6f 6b 2d	font-lock-comment-face.run-hook-
2180	77 69 74 68 2d 61 72 67 73 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 65 6e 64 65 64 2d	with-args.haskell-process-ended-
21a0	66 75 6e 63 74 69 6f 6e 73 5d 20 39 20 28 23 24 20 2e 20 38 31 35 34 29 5d 29 0a 23 40 35 34 20	functions].9.(#$...8154)]).#@54.
21c0	54 68 65 20 66 69 6c 74 65 72 20 66 6f 72 20 74 68 65 20 70 72 6f 63 65 73 73 20 70 69 70 65 2e	The.filter.for.the.process.pipe.
21e0	0a 0a 28 66 6e 20 50 52 4f 43 20 52 45 53 50 4f 4e 53 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	..(fn.PROC.RESPONSE)..(defalias.
2200	27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 20 23 5b 35 31 34 20 22 5c	'haskell-process-filter.#[514."\
2220	33 30 30 5c 33 30 31 02 5c 33 30 32 5c 22 5c 33 30 33 01 3a 5c 32 30 33 32 00 01 40 5c 32 36 32	300\301.\302\"\303.:\2032..@\262
2240	01 5c 33 30 34 03 5c 33 30 30 55 5c 32 30 33 1e 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31	.\304.\300U\203..\305\306\307\31
2260	30 23 5c 32 30 32 1f 00 5c 33 31 31 5c 33 30 35 03 5c 33 30 37 5c 33 31 32 23 50 21 5c 32 31 30	0#\202..\311\305.\307\312#P!\210
2280	02 54 5c 32 36 32 03 01 41 5c 32 36 32 02 5c 32 30 32 06 00 5c 32 36 36 03 5c 33 31 33 02 21 5c	.T\262..A\262.\202..\266.\313.!\
22a0	32 31 31 5c 32 30 35 4a 00 5c 33 31 34 5c 33 31 35 02 21 21 5c 32 30 35 4a 00 5c 33 31 36 01 03	211\205J.\314\315.!!\205J.\316..
22c0	5c 33 31 35 04 21 23 5c 32 30 37 22 20 5b 30 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 22 5c 6e	\315.!#\207".[0.split-string."\n
22e0	22 20 6e 69 6c 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 6c 6f 67 20 70 72 6f 70 65 72	".nil.haskell-process-log.proper
2300	74 69 7a 65 20 22 3c 2d 20 22 20 66 61 63 65 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e	tize."<-.".face.font-lock-commen
2320	74 2d 66 61 63 65 20 22 20 20 20 22 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65	t-face."...".haskell-interactive
2340	2d 66 61 63 65 2d 63 6f 6d 70 69 6c 65 2d 77 61 72 6e 69 6e 67 20 68 61 73 6b 65 6c 6c 2d 70 72	-face-compile-warning.haskell-pr
2360	6f 63 65 73 73 2d 70 72 6f 6a 65 63 74 2d 62 79 2d 70 72 6f 63 20 68 61 73 6b 65 6c 6c 2d 70 72	ocess-project-by-proc.haskell-pr
2380	6f 63 65 73 73 2d 63 6d 64 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 70 72 6f 63 65 73	ocess-cmd.haskell-session-proces
23a0	73 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 63 6f 6c 6c 65 63 74 5d 20 31 31 20 28 23	s.haskell-process-collect].11.(#
23c0	24 20 2e 20 38 36 34 30 29 5d 29 0a 23 40 36 35 20 45 66 66 65 63 74 69 76 65 20 61 70 70 65 6e	$...8640)]).#@65.Effective.appen
23e0	64 20 4d 53 47 20 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 20 6c 6f 67 20 28 69 66 20 65 6e 61	d.MSG.to.the.process.log.(if.ena
2400	62 6c 65 64 29 2e 0a 0a 28 66 6e 20 4d 53 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73	bled)...(fn.MSG)..(defalias.'has
2420	6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 6c 6f 67 20 23 5b 32 35 37 20 22 08 5c 32 30 35 1a 00 5c	kell-process-log.#[257.".\205..\
2440	33 30 33 5c 33 30 34 21 72 5c 32 31 31 71 5c 32 31 30 5c 33 30 35 5c 33 30 31 21 5c 32 31 30 5c	303\304!r\211q\210\305\301!\210\
2460	33 30 36 11 5c 33 30 37 1a 01 5c 33 31 30 5c 32 36 31 02 2a 5c 32 36 32 01 5c 32 30 37 22 20 5b	306.\307..\310\261.*\262.\207".[
2480	68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 6c 6f 67 20 77 69 6e 64 6f 77 2d 70 6f 69 6e 74	haskell-process-log.window-point
24a0	2d 69 6e 73 65 72 74 69 6f 6e 2d 74 79 70 65 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79	-insertion-type.buffer-read-only
24c0	20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 68 61 73 6b 65 6c 6c 2d 70 72 6f	.get-buffer-create."*haskell-pro
24e0	63 65 73 73 2d 6c 6f 67 2a 22 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 74	cess-log*".make-local-variable.t
2500	20 6e 69 6c 20 22 5c 6e 22 5d 20 34 20 28 23 24 20 2e 20 39 31 36 39 29 5d 29 0a 23 40 33 37 20	.nil."\n"].4.(#$...9169)]).#@37.
2520	46 69 6e 64 20 70 72 6f 6a 65 63 74 20 62 79 20 70 72 6f 63 65 73 73 2e 0a 0a 28 66 6e 20 50 52	Find.project.by.process...(fn.PR
2540	4f 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d	OC)..(defalias.'haskell-process-
2560	70 72 6f 6a 65 63 74 2d 62 79 2d 70 72 6f 63 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 32 5c	project-by-proc.#[257."\301\302\
2580	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 31	303\304\305\306..!\307\"\310\311
25a0	25 08 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 73 20 63 6c 2d 66	%.\"\207".[haskell-sessions.cl-f
25c0	69 6e 64 2d 69 66 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	ind-if.make-byte-code.257."\301.
25e0	21 5c 33 30 32 5c 33 30 30 21 5c 32 33 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74	!\302\300!\230\207".vconcat.vect
2600	6f 72 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 6e 61 6d 65 20 70 72 6f 63 65 73 73	or.[haskell-session-name.process
2620	2d 6e 61 6d 65 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 50 52 4f 4a 45 43 54 29 22 5d 20 38 20 28	-name].4."\n\n(fn.PROJECT)"].8.(
2640	23 24 20 2e 20 39 35 30 34 29 5d 29 0a 23 40 38 38 20 43 6f 6c 6c 65 63 74 20 69 6e 70 75 74 20	#$...9504)]).#@88.Collect.input.
2660	66 6f 72 20 74 68 65 20 72 65 73 70 6f 6e 73 65 20 75 6e 74 69 6c 20 72 65 63 65 69 76 65 73 20	for.the.response.until.receives.
2680	61 20 70 72 6f 6d 70 74 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 52 45 53 50 4f 4e 53 45 20	a.prompt...(fn.SESSION.RESPONSE.
26a0	50 52 4f 43 45 53 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f	PROCESS)..(defalias.'haskell-pro
26c0	63 65 73 73 2d 63 6f 6c 6c 65 63 74 20 23 5b 37 37 31 20 22 5c 33 30 31 01 5c 33 30 32 03 21 04	cess-collect.#[771."\301.\302.!.
26e0	50 5c 22 5c 32 31 30 5c 33 30 33 01 21 5c 32 30 34 09 00 5c 33 30 34 08 5c 33 30 32 03 21 5c 22	P\"\210\303.!\204..\304.\302.!\"
2700	5c 32 30 35 2d 00 5c 33 30 35 5c 33 30 36 02 21 5c 33 30 37 08 5c 33 31 30 5c 33 30 32 06 06 21	\205-.\305\306.!\307.\310\302..!
2720	23 5c 22 5c 32 31 30 5c 33 31 31 01 21 5c 32 31 30 5c 33 31 32 01 21 5c 32 30 37 22 20 5b 68 61	#\"\210\311.!\210\312.!\207".[ha
2740	73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 70 72 6f 6d 70 74 2d 72 65 67 65 78 20 68 61 73 6b 65	skell-process-prompt-regex.haske
2760	6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 2d 72 65 73 70 6f 6e 73 65 20 68 61 73 6b 65 6c 6c 2d	ll-process-set-response.haskell-
2780	70 72 6f 63 65 73 73 2d 72 65 73 70 6f 6e 73 65 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73	process-response.haskell-process
27a0	2d 6c 69 76 65 2d 75 70 64 61 74 65 73 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 68 61 73 6b 65	-live-updates.string-match.haske
27c0	6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 65 78 65 63 2d 63 6f 6d 70 6c 65 74 65 20 68 61 73 6b 65 6c 6c	ll-command-exec-complete.haskell
27e0	2d 70 72 6f 63 65 73 73 2d 63 6d 64 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73	-process-cmd.replace-regexp-in-s
2800	74 72 69 6e 67 20 22 22 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 72 65 73 65 74 20 68	tring."".haskell-process-reset.h
2820	61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 74 72 69 67 67 65 72 2d 71 75 65 75 65 5d 20 31 30	askell-process-trigger-queue].10
2840	20 28 23 24 20 2e 20 39 38 31 30 29 5d 29 0a 23 40 37 33 20 52 65 73 65 74 20 74 68 65 20 70 72	.(#$...9810)]).#@73.Reset.the.pr
2860	6f 63 65 73 73 27 73 20 73 74 61 74 65 2c 20 72 65 61 64 79 20 66 6f 72 20 74 68 65 20 6e 65 78	ocess's.state,.ready.for.the.nex
2880	74 20 73 65 6e 64 2f 72 65 70 6c 79 2e 0a 0a 28 66 6e 20 50 52 4f 43 45 53 53 29 1f 0a 28 64 65	t.send/reply...(fn.PROCESS)..(de
28a0	66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 72 65 73 65 74 20 23 5b	falias.'haskell-process-reset.#[
28c0	32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 31 30 5c 33 30 32 01 5c 33 30 33 5c 22 5c	257."\300.\301\"\210\302.\303\"\
28e0	32 31 30 5c 33 30 34 01 5c 33 30 35 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f	210\304.\305\"\207".[haskell-pro
2900	63 65 73 73 2d 73 65 74 2d 72 65 73 70 6f 6e 73 65 2d 63 75 72 73 6f 72 20 30 20 68 61 73 6b 65	cess-set-response-cursor.0.haske
2920	6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 2d 72 65 73 70 6f 6e 73 65 20 22 22 20 68 61 73 6b 65	ll-process-set-response."".haske
2940	6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 2d 63 6d 64 20 6e 69 6c 5d 20 34 20 28 23 24 20 2e 20	ll-process-set-cmd.nil].4.(#$...
2960	31 30 33 32 34 29 5d 29 0a 23 40 39 33 20 43 6f 6e 73 75 6d 65 20 61 20 72 65 67 65 78 20 66 72	10324)]).#@93.Consume.a.regex.fr
2980	6f 6d 20 74 68 65 20 72 65 73 70 6f 6e 73 65 20 61 6e 64 20 6d 6f 76 65 20 74 68 65 20 63 75 72	om.the.response.and.move.the.cur
29a0	73 6f 72 20 61 6c 6f 6e 67 20 69 66 20 73 75 63 63 65 65 64 2e 0a 0a 28 66 6e 20 50 52 4f 43 45	sor.along.if.succeed...(fn.PROCE
29c0	53 53 20 52 45 47 45 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72	SS.REGEX)..(defalias.'haskell-pr
29e0	6f 63 65 73 73 2d 63 6f 6e 73 75 6d 65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 04 21	ocess-consume.#[514."\300.\301.!
2a00	5c 33 30 32 05 21 23 5c 32 30 35 13 00 5c 33 30 33 02 5c 33 30 34 5c 32 32 35 5c 22 5c 32 31 30	\302.!#\205..\303.\304\225\"\210
2a20	5c 33 30 35 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 68 61 73 6b 65 6c 6c 2d	\305\207".[string-match.haskell-
2a40	70 72 6f 63 65 73 73 2d 72 65 73 70 6f 6e 73 65 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73	process-response.haskell-process
2a60	2d 72 65 73 70 6f 6e 73 65 2d 63 75 72 73 6f 72 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73	-response-cursor.haskell-process
2a80	2d 73 65 74 2d 72 65 73 70 6f 6e 73 65 2d 63 75 72 73 6f 72 20 30 20 74 5d 20 37 20 28 23 24 20	-set-response-cursor.0.t].7.(#$.
2aa0	2e 20 31 30 36 30 36 29 5d 29 0a 23 40 31 30 35 20 54 72 79 20 74 6f 20 73 65 6e 64 20 61 20 73	..10606)]).#@105.Try.to.send.a.s
2ac0	74 72 69 6e 67 20 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 27 73 20 70 72 6f 63 65 73 73 2e 20	tring.to.the.process's.process..
2ae0	41 73 6b 20 74 6f 20 72 65 73 74 61 72 74 20 69 66 20 69 74 27 73 20 6e 6f 74 20 72 75 6e 6e 69	Ask.to.restart.if.it's.not.runni
2b00	6e 67 2e 0a 0a 28 66 6e 20 50 52 4f 43 45 53 53 20 53 54 52 49 4e 47 29 1f 0a 28 64 65 66 61 6c	ng...(fn.PROCESS.STRING)..(defal
2b20	69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 6e 64 2d 73 74 72 69 6e 67	ias.'haskell-process-send-string
2b40	20 23 5b 35 31 34 20 22 5c 33 30 30 02 21 5c 33 30 31 01 21 5c 33 30 32 5c 32 33 32 5c 32 30 33	.#[514."\300.!\301.!\302\232\203
2b60	51 00 01 5c 33 30 33 50 5c 33 30 34 5c 33 30 35 02 5c 33 30 33 5c 22 5c 33 30 36 01 3a 5c 32 30	Q..\303P\304\305.\303\"\306.:\20
2b80	33 46 00 01 40 5c 32 36 32 01 5c 32 31 31 5c 33 30 37 5c 32 33 30 5c 32 30 34 3b 00 5c 33 31 30	3F..@\262.\211\307\230\204;.\310
2ba0	03 5c 33 30 34 55 5c 32 30 33 32 00 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 23 5c 32 30	.\304U\2032.\311\312\313\314#\20
2bc0	32 33 00 5c 33 31 35 5c 33 31 31 03 5c 33 31 33 5c 33 31 36 23 50 21 5c 32 31 30 02 54 5c 32 36	23.\315\311.\313\316#P!\210.T\26
2be0	32 03 01 41 5c 32 36 32 02 5c 32 30 32 14 00 5c 32 36 36 03 5c 33 31 37 02 02 5c 22 5c 32 36 32	2..A\262.\202..\266.\317..\"\262
2c00	01 5c 32 30 32 5c 5c 00 5c 33 32 30 03 21 3f 5c 32 30 35 5c 5c 00 5c 33 32 31 5c 33 32 32 04 5c	.\202\\.\320.!?\205\\.\321\322.\
2c20	22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 70 72 6f 63 65 73 73 20	"\207".[haskell-process-process.
2c40	70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 72 75 6e 20 22 5c 6e 22 20 30 20 73 70 6c 69 74 2d	process-status.run."\n".0.split-
2c60	73 74 72 69 6e 67 20 6e 69 6c 20 22 22 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 6c 6f	string.nil."".haskell-process-lo
2c80	67 20 70 72 6f 70 65 72 74 69 7a 65 20 22 2d 3e 20 22 20 66 61 63 65 20 66 6f 6e 74 2d 6c 6f 63	g.propertize."->.".face.font-loc
2ca0	6b 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 20 22 20 20 20 22 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 73	k-comment-face."...".font-lock-s
2cc0	74 72 69 6e 67 2d 66 61 63 65 20 70 72 6f 63 65 73 73 2d 73 65 6e 64 2d 73 74 72 69 6e 67 20 68	tring-face.process-send-string.h
2ce0	61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 72 65 73 74 61 72 74 69 6e 67 20 72 75 6e 2d 68 6f	askell-process-restarting.run-ho
2d00	6f 6b 2d 77 69 74 68 2d 61 72 67 73 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 65 6e 64	ok-with-args.haskell-process-end
2d20	65 64 2d 66 75 6e 63 74 69 6f 6e 73 5d 20 31 33 20 28 23 24 20 2e 20 31 30 39 32 39 29 5d 29 0a	ed-functions].13.(#$...10929)]).
2d40	23 40 33 37 20 50 72 6f 63 65 73 73 20 6c 69 76 65 20 75 70 64 61 74 65 73 2e 0a 0a 28 66 6e 20	#@37.Process.live.updates...(fn.
2d60	50 52 4f 43 45 53 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f	PROCESS)..(defalias.'haskell-pro
2d80	63 65 73 73 2d 6c 69 76 65 2d 75 70 64 61 74 65 73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30	cess-live-updates.#[257."\300\30
2da0	31 02 21 5c 33 30 32 03 21 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e	1.!\302.!\"\207".[haskell-comman
2dc0	64 2d 65 78 65 63 2d 6c 69 76 65 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 63 6d 64 20	d-exec-live.haskell-process-cmd.
2de0	68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 72 65 73 70 6f 6e 73 65 5d 20 35 20 28 23 24 20	haskell-process-response].5.(#$.
2e00	2e 20 31 31 35 38 39 29 5d 29 0a 23 40 39 36 20 51 75 65 75 65 20 4c 49 4e 45 20 74 6f 20 62 65	..11589)]).#@96.Queue.LINE.to.be
2e20	20 73 65 6e 74 20 74 6f 20 50 52 4f 43 45 53 53 20 77 69 74 68 6f 75 74 20 62 6f 74 68 65 72 69	.sent.to.PROCESS.without.botheri
2e40	6e 67 20 74 6f 20 6c 6f 6f 6b 20 61 74 0a 74 68 65 20 72 65 73 70 6f 6e 73 65 2e 0a 0a 28 66 6e	ng.to.look.at.the.response...(fn
2e60	20 50 52 4f 43 45 53 53 20 4c 49 4e 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65	.PROCESS.LINE)..(defalias.'haske
2e80	6c 6c 2d 70 72 6f 63 65 73 73 2d 71 75 65 75 65 2d 77 69 74 68 6f 75 74 2d 66 69 6c 74 65 72 73	ll-process-queue-without-filters
2ea0	20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 33 30 32 05 05 42 5c 33 30 33 5c 33 30 34	.#[514."\300.\301\302..B\303\304
2ec0	5c 32 31 31 25 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 71 75	\211%\"\207".[haskell-process-qu
2ee0	65 75 65 2d 63 6f 6d 6d 61 6e 64 20 76 65 63 74 6f 72 20 63 6c 2d 73 74 72 75 63 74 2d 68 61 73	eue-command.vector.cl-struct-has
2f00	6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 23 5b 32 35 37 20 22 5c 33 30 30 01 40 02 41 5c 22 5c 32	kell-command.#[257."\300.@.A\"\2
2f20	30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 6e 64 2d 73 74 72 69 6e 67	07".[haskell-process-send-string
2f40	5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 53 54 41 54 45 29 22 5d 20 6e 69 6c 5d 20 31 30 20 28 23	].4."\n\n(fn.STATE)"].nil].10.(#
2f60	24 20 2e 20 31 31 37 39 32 29 5d 29 0a 23 40 36 37 20 41 64 64 20 61 20 63 6f 6d 6d 61 6e 64 20	$...11792)]).#@67.Add.a.command.
2f80	74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 20 63 6f 6d 6d 61 6e 64 20 71 75 65 75 65 2e 0a 0a 28	to.the.process.command.queue...(
2fa0	66 6e 20 50 52 4f 43 45 53 53 20 43 4f 4d 4d 41 4e 44 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	fn.PROCESS.COMMAND)..(defalias.'
2fc0	68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 71 75 65 75 65 2d 63 6f 6d 6d 61 6e 64 20 23 5b	haskell-process-queue-command.#[
2fe0	35 31 34 20 22 5c 33 30 30 02 02 5c 22 5c 32 31 30 5c 33 30 31 02 21 5c 32 30 37 22 20 5b 68 61	514."\300..\"\210\301.!\207".[ha
3000	73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 63 6d 64 2d 71 75 65 75 65 2d 61 64 64 20 68 61 73 6b	skell-process-cmd-queue-add.hask
3020	65 6c 6c 2d 70 72 6f 63 65 73 73 2d 74 72 69 67 67 65 72 2d 71 75 65 75 65 5d 20 35 20 28 23 24	ell-process-trigger-queue].5.(#$
3040	20 2e 20 31 32 31 34 36 29 5d 29 0a 23 40 39 35 20 54 72 69 67 67 65 72 20 74 68 65 20 6e 65 78	...12146)]).#@95.Trigger.the.nex
3060	74 20 63 6f 6d 6d 61 6e 64 20 69 6e 20 74 68 65 20 71 75 65 75 65 20 74 6f 20 62 65 20 72 61 6e	t.command.in.the.queue.to.be.ran
3080	20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 20 63 75 72 72 65 6e 74 20 63 6f 6d 6d 61 6e 64 2e	.if.there.is.no.current.command.
30a0	0a 0a 28 66 6e 20 50 52 4f 43 45 53 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65	..(fn.PROCESS)..(defalias.'haske
30c0	6c 6c 2d 70 72 6f 63 65 73 73 2d 74 72 69 67 67 65 72 2d 71 75 65 75 65 20 23 5b 32 35 37 20 22	ll-process-trigger-queue.#[257."
30e0	5c 33 30 30 01 21 5c 32 30 33 25 00 5c 33 30 31 5c 33 30 30 02 21 21 5c 32 30 33 25 00 5c 33 30	\300.!\203%.\301\300.!!\203%.\30
3100	32 01 21 3f 5c 32 30 35 33 00 5c 33 30 33 01 21 5c 32 31 31 5c 32 30 35 24 00 5c 33 30 34 02 02	2.!?\2053.\303.!\211\205$.\304..
3120	5c 22 5c 32 31 30 5c 33 30 35 01 21 5c 32 30 37 5c 33 30 36 01 21 5c 32 31 30 5c 33 30 37 01 5c	\"\210\305.!\207\306.!\210\307.\
3140	33 31 30 5c 33 31 31 23 5c 32 31 30 5c 33 31 32 5c 33 31 33 02 5c 22 5c 32 30 37 22 20 5b 68 61	310\311#\210\312\313.\"\207".[ha
3160	73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 70 72 6f 63 65 73 73 20 70 72 6f 63 65 73 73 2d 6c 69	skell-process-process.process-li
3180	76 65 2d 70 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 63 6d 64 20 68 61 73 6b 65 6c 6c	ve-p.haskell-process-cmd.haskell
31a0	2d 70 72 6f 63 65 73 73 2d 63 6d 64 2d 71 75 65 75 65 2d 70 6f 70 20 68 61 73 6b 65 6c 6c 2d 70	-process-cmd-queue-pop.haskell-p
31c0	72 6f 63 65 73 73 2d 73 65 74 2d 63 6d 64 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 65	rocess-set-cmd.haskell-command-e
31e0	78 65 63 2d 67 6f 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 72 65 73 65 74 20 68 61 73	xec-go.haskell-process-reset.has
3200	6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 20 63 6f 6d 6d 61 6e 64 2d 71 75 65 75 65 20 6e	kell-process-set.command-queue.n
3220	69 6c 20 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 20 68 61 73 6b 65 6c 6c 2d 70 72	il.run-hook-with-args.haskell-pr
3240	6f 63 65 73 73 2d 65 6e 64 65 64 2d 66 75 6e 63 74 69 6f 6e 73 5d 20 35 20 28 23 24 20 2e 20 31	ocess-ended-functions].5.(#$...1
3260	32 33 36 39 29 5d 29 0a 23 40 37 32 20 52 65 74 75 72 6e 20 74 20 69 66 20 63 6f 6d 6d 61 6e 64	2369)]).#@72.Return.t.if.command
3280	20 71 75 65 75 65 20 68 61 73 20 62 65 65 6e 20 63 6f 6d 70 6c 65 74 65 6c 79 20 70 72 6f 63 65	.queue.has.been.completely.proce
32a0	73 73 65 64 2e 0a 0a 28 66 6e 20 50 52 4f 43 45 53 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	ssed...(fn.PROCESS)..(defalias.'
32c0	68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 71 75 65 75 65 2d 66 6c 75 73 68 65 64 2d 70 20	haskell-process-queue-flushed-p.
32e0	23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 36 09 00 5c 33 30 31 01 21 3f 5c 32 30 37 22 20	#[257."\300.!\206..\301.!?\207".
3300	5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 63 6d 64 2d 71 75 65 75 65 20 68 61 73 6b 65	[haskell-process-cmd-queue.haske
3320	6c 6c 2d 70 72 6f 63 65 73 73 2d 63 6d 64 5d 20 33 20 28 23 24 20 2e 20 31 32 39 30 39 29 5d 29	ll-process-cmd].3.(#$...12909)])
3340	0a 23 40 31 32 36 20 42 6c 6f 63 6b 20 74 69 6c 6c 20 50 52 4f 43 45 53 53 27 20 63 6f 6d 6d 61	.#@126.Block.till.PROCESS'.comma
3360	6e 64 20 71 75 65 75 65 20 68 61 73 20 62 65 65 6e 20 63 6f 6d 70 6c 65 74 65 6c 79 20 70 72 6f	nd.queue.has.been.completely.pro
3380	63 65 73 73 65 64 2e 0a 54 68 69 73 20 75 73 65 73 20 60 61 63 63 65 70 74 2d 70 72 6f 63 65 73	cessed..This.uses.`accept-proces
33a0	73 2d 6f 75 74 70 75 74 27 20 69 6e 74 65 72 6e 61 6c 6c 79 2e 0a 0a 28 66 6e 20 50 52 4f 43 45	s-output'.internally...(fn.PROCE
33c0	53 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d	SS)..(defalias.'haskell-process-
33e0	71 75 65 75 65 2d 66 6c 75 73 68 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 3f 5c 32 30 35 15 00	queue-flush.#[257."\300.!?\205..
3400	5c 33 30 31 01 21 5c 32 31 30 5c 33 30 32 5c 33 30 33 02 21 5c 33 30 34 5c 22 5c 32 31 30 5c 32	\301.!\210\302\303.!\304\"\210\2
3420	30 32 00 00 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 71 75 65 75 65	02..\207".[haskell-process-queue
3440	2d 66 6c 75 73 68 65 64 2d 70 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 74 72 69 67 67	-flushed-p.haskell-process-trigg
3460	65 72 2d 71 75 65 75 65 20 61 63 63 65 70 74 2d 70 72 6f 63 65 73 73 2d 6f 75 74 70 75 74 20 68	er-queue.accept-process-output.h
3480	61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 70 72 6f 63 65 73 73 20 31 5d 20 34 20 28 23 24 20	askell-process-process.1].4.(#$.
34a0	2e 20 31 33 31 32 37 29 5d 29 0a 23 40 38 39 20 51 75 65 75 65 20 73 75 62 6d 69 74 74 69 6e 67	..13127)]).#@89.Queue.submitting
34c0	20 52 45 51 53 54 52 20 74 6f 20 50 52 4f 43 45 53 53 20 61 6e 64 20 72 65 74 75 72 6e 20 72 65	.REQSTR.to.PROCESS.and.return.re
34e0	73 70 6f 6e 73 65 20 62 6c 6f 63 6b 69 6e 67 6c 79 2e 0a 0a 28 66 6e 20 50 52 4f 43 45 53 53 20	sponse.blockingly...(fn.PROCESS.
3500	52 45 51 53 54 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63	REQSTR)..(defalias.'haskell-proc
3520	65 73 73 2d 71 75 65 75 65 2d 73 79 6e 63 2d 72 65 71 75 65 73 74 20 23 5b 35 31 34 20 22 5c 33	ess-queue-sync-request.#[514."\3
3540	30 31 5c 33 30 32 5c 33 30 33 04 42 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 07 45 45	01\302\303.B\304\305\306\307..EE
3560	5c 33 30 33 5c 33 31 30 25 5c 33 31 31 03 02 5c 22 5c 32 31 30 5c 33 31 32 03 21 5c 32 31 30 5c	\303\310%\311..\"\210\312.!\210\
3580	32 31 31 5c 33 31 33 48 08 3e 5c 32 30 34 28 00 5c 33 31 34 5c 33 31 35 5c 33 31 36 03 44 5c 22	211\313H.>\204(.\314\315\316.D\"
35a0	5c 32 31 30 5c 32 31 31 5c 33 31 37 48 5c 32 34 32 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63	\210\211\317H\242\207".[cl-struc
35c0	74 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 61 67 73 20 76 65 63 74 6f 72 20 63 6c	t-haskell-command-tags.vector.cl
35e0	2d 73 74 72 75 63 74 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 6e 69 6c 20 6c 61 6d 62	-struct-haskell-command.nil.lamb
3600	64 61 20 28 73 29 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 6e 64 2d 73 74 72 69	da.(s).haskell-process-send-stri
3620	6e 67 20 28 63 64 72 20 73 29 20 73 65 74 63 61 72 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73	ng.(cdr.s).setcar.haskell-proces
3640	73 2d 71 75 65 75 65 2d 63 6f 6d 6d 61 6e 64 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d	s-queue-command.haskell-process-
3660	71 75 65 75 65 2d 66 6c 75 73 68 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d	queue-flush.0.signal.wrong-type-
3680	61 72 67 75 6d 65 6e 74 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 31 5d 20 31 30 20 28	argument.haskell-command.1].10.(
36a0	23 24 20 2e 20 31 33 34 38 38 29 5d 29 0a 23 40 32 35 38 20 51 75 65 72 79 20 50 52 4f 43 45 53	#$...13488)]).#@258.Query.PROCES
36c0	53 20 77 69 74 68 20 60 3a 63 6f 6d 70 6c 65 74 65 20 72 65 70 6c 20 2e 2e 2e 27 20 66 6f 72 20	S.with.`:complete.repl....'.for.
36e0	49 4e 50 55 54 53 54 52 2e 0a 47 69 76 65 20 6f 70 74 69 6f 6e 61 6c 20 4c 49 4d 49 54 20 61 72	INPUTSTR..Give.optional.LIMIT.ar
3700	67 20 74 6f 20 6c 69 6d 69 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 63 61 6e 64 69 64 61 74 65 73	g.to.limit.completion.candidates
3720	20 63 6f 75 6e 74 2c 0a 7a 65 72 6f 2c 20 6e 65 67 61 74 69 76 65 20 76 61 6c 75 65 73 2c 20 61	.count,.zero,.negative.values,.a
3740	6e 64 20 6e 69 6c 20 6d 65 61 6e 73 20 61 6c 6c 20 70 6f 73 73 69 62 6c 65 20 63 6f 6d 70 6c 65	nd.nil.means.all.possible.comple
3760	74 69 6f 6e 73 2e 0a 52 65 74 75 72 6e 73 20 4e 49 4c 20 77 68 65 6e 20 6e 6f 20 63 6f 6d 70 6c	tions..Returns.NIL.when.no.compl
3780	65 74 69 6f 6e 73 20 66 6f 75 6e 64 2e 0a 0a 28 66 6e 20 50 52 4f 43 45 53 53 20 49 4e 50 55 54	etions.found...(fn.PROCESS.INPUT
37a0	53 54 52 20 26 6f 70 74 69 6f 6e 61 6c 20 4c 49 4d 49 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	STR.&optional.LIMIT)..(defalias.
37c0	27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 67 65 74 2d 72 65 70 6c 2d 63 6f 6d 70 6c 65	'haskell-process-get-repl-comple
37e0	74 69 6f 6e 73 20 23 5b 37 37 30 20 22 5c 32 31 31 5c 32 30 33 13 00 5c 32 31 31 5c 33 30 30 56	tions.#[770."\211\203..\211\300V
3800	5c 32 30 33 13 00 5c 33 30 31 5c 33 30 32 02 21 5c 33 30 31 51 5c 32 30 32 14 00 5c 33 30 31 5c	\203..\301\302.!\301Q\202..\301\
3820	33 30 33 01 5c 33 30 34 05 21 51 5c 33 30 35 05 02 5c 22 5c 33 30 36 01 21 5c 32 31 31 5c 33 30	303.\304.!Q\305..\"\306.!\211\30
3840	37 3d 5c 32 30 33 2d 00 5c 33 31 30 5c 33 31 31 21 5c 32 30 32 66 00 01 5c 32 30 35 66 00 5c 33	7=\203-.\310\311!\202f..\205f.\3
3860	31 32 02 5c 33 31 33 5c 33 31 34 23 5c 33 31 35 5c 33 31 36 02 41 5c 22 01 40 5c 33 31 37 5c 33	12.\313\314#\315\316.A\".@\317\3
3880	32 30 02 5c 22 5c 32 30 34 48 00 5c 33 31 30 5c 33 32 31 21 5c 32 31 30 5c 33 32 32 5c 33 32 33	20.\"\204H.\310\321!\210\322\323
38a0	02 5c 22 5c 33 31 36 5c 33 32 32 5c 33 32 34 04 5c 22 21 5c 33 32 35 02 21 04 47 55 5c 32 30 34	.\"\316\322\324.\"!\325.!.GU\204
38c0	5f 00 5c 33 31 30 5c 33 32 36 21 5c 32 31 30 5c 32 31 31 04 42 5c 32 36 36 5c 32 30 32 5c 32 36	_.\310\326!\210\211.B\266\202\26
38e0	36 5c 32 30 33 5c 32 30 37 22 20 5b 30 20 22 20 22 20 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69	6\203\207".[0.".".number-to-stri
3900	6e 67 20 22 3a 63 6f 6d 70 6c 65 74 65 20 72 65 70 6c 22 20 68 61 73 6b 65 6c 6c 2d 73 74 72 69	ng.":complete.repl".haskell-stri
3920	6e 67 2d 6c 69 74 65 72 61 6c 2d 65 6e 63 6f 64 65 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73	ng-literal-encode.haskell-proces
3940	73 2d 71 75 65 75 65 2d 73 79 6e 63 2d 72 65 71 75 65 73 74 20 68 61 73 6b 65 6c 6c 2d 75 74 69	s-queue-sync-request.haskell-uti
3960	6c 73 2d 72 65 70 6c 2d 72 65 73 70 6f 6e 73 65 2d 65 72 72 6f 72 2d 73 74 61 74 75 73 20 75 6e	ls-repl-response-error-status.un
3980	6b 6e 6f 77 6e 2d 63 6f 6d 6d 61 6e 64 20 65 72 72 6f 72 20 22 47 48 43 69 20 6c 61 63 6b 73 20	known-command.error."GHCi.lacks.
39a0	60 3a 63 6f 6d 70 6c 65 74 65 27 20 73 75 70 70 6f 72 74 20 28 74 72 79 20 69 6e 73 74 61 6c 6c	`:complete'.support.(try.install
39c0	69 6e 67 20 47 48 43 20 37 2e 38 2b 20 6f 72 20 67 68 63 69 2d 6e 67 29 22 20 73 70 6c 69 74 2d	ing.GHC.7.8+.or.ghci-ng)".split-
39e0	73 74 72 69 6e 67 20 22 0d 3f 5c 6e 22 20 74 20 6d 61 70 63 61 72 20 68 61 73 6b 65 6c 6c 2d 73	string.".?\n".t.mapcar.haskell-s
3a00	74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 64 65 63 6f 64 65 20 73 74 72 69 6e 67 2d 6d 61 74 63	tring-literal-decode.string-matc
3a20	68 20 22 5c 5c 60 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 20 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 20	h."\\`\\([0-9]+\\).\\([0-9]+\\).
3a40	5c 5c 28 5c 22 2e 2a 5c 22 5c 5c 29 5c 5c 27 22 20 22 49 6e 76 61 6c 69 64 20 60 3a 63 6f 6d 70	\\(\".*\"\\)\\'"."Invalid.`:comp
3a60	6c 65 74 65 27 20 72 65 73 70 6f 6e 73 65 22 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 33	lete'.response".match-string.1.3
3a80	20 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 22 4c 65 6e 67 74 68 73 20 69 6e 63 6f 6e	.string-to-number."Lengths.incon
3aa0	73 69 73 74 65 6e 74 20 69 6e 20 60 3a 63 6f 6d 70 6c 65 74 65 27 20 72 65 70 6f 6e 73 65 22 5d	sistent.in.`:complete'.reponse"]
3ac0	20 31 35 20 28 23 24 20 2e 20 31 34 30 30 34 29 5d 29 0a 23 40 37 36 20 47 65 74 20 74 68 65 20	.15.(#$...14004)]).#@76.Get.the.
3ae0	50 52 4f 43 45 53 53 27 73 20 4b 45 59 20 76 61 6c 75 65 2e 0a 52 65 74 75 72 6e 73 20 6e 69 6c	PROCESS's.KEY.value..Returns.nil
3b00	20 69 66 20 4b 45 59 20 6e 6f 74 20 73 65 74 2e 0a 0a 28 66 6e 20 50 52 4f 43 45 53 53 20 4b 45	.if.KEY.not.set...(fn.PROCESS.KE
3b20	59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 67	Y)..(defalias.'haskell-process-g
3b40	65 74 20 23 5b 35 31 34 20 22 5c 32 31 31 02 5c 32 33 36 41 5c 32 30 37 22 20 5b 5d 20 34 20 28	et.#[514."\211.\236A\207".[].4.(
3b60	23 24 20 2e 20 31 35 30 36 34 29 5d 29 0a 23 40 38 32 20 53 65 74 20 74 68 65 20 50 52 4f 43 45	#$...15064)]).#@82.Set.the.PROCE
3b80	53 53 27 73 20 4b 45 59 20 74 6f 20 56 41 4c 55 45 2e 0a 52 65 74 75 72 6e 73 20 6e 65 77 6c 79	SS's.KEY.to.VALUE..Returns.newly
3ba0	20 73 65 74 20 56 41 4c 55 45 2e 0a 0a 28 66 6e 20 50 52 4f 43 45 53 53 20 4b 45 59 20 56 41 4c	.set.VALUE...(fn.PROCESS.KEY.VAL
3bc0	55 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d	UE)..(defalias.'haskell-process-
3be0	73 65 74 20 23 5b 37 37 31 20 22 02 5c 32 30 33 1c 00 01 03 5c 32 33 36 5c 32 31 31 5c 32 30 33	set.#[771.".\203....\236\211\203
3c00	11 00 5c 32 31 31 02 5c 32 34 31 5c 32 30 32 1b 00 03 03 03 42 05 41 42 5c 32 34 31 5c 32 31 30	..\211.\241\202.....B.AB\241\210
3c20	01 5c 32 30 37 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 64 69 73 70 6c 61	.\207\300\301\302\"\207".[displa
3c40	79 2d 77 61 72 6e 69 6e 67 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 20 22 60	y-warning.haskell-interactive."`
3c60	68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 27 20 63 61 6c 6c 65 64 20 77 69 74 68	haskell-process-set'.called.with
3c80	20 6e 69 6c 20 70 72 6f 63 65 73 73 22 5d 20 37 20 28 23 24 20 2e 20 31 35 32 31 39 29 5d 29 0a	.nil.process"].7.(#$...15219)]).
3ca0	23 40 37 31 20 57 65 27 76 65 20 73 65 6e 74 20 73 74 64 69 6e 2c 20 73 6f 20 6c 65 74 27 73 20	#@71.We've.sent.stdin,.so.let's.
3cc0	6e 6f 74 20 63 6c 65 61 72 20 74 68 65 20 6f 75 74 70 75 74 20 61 74 20 74 68 65 20 65 6e 64 2e	not.clear.the.output.at.the.end.
3ce0	0a 0a 28 66 6e 20 50 20 56 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70	..(fn.P.V)..(defalias.'haskell-p
3d00	72 6f 63 65 73 73 2d 73 65 74 2d 73 65 6e 74 2d 73 74 64 69 6e 20 23 5b 35 31 34 20 22 5c 33 30	rocess-set-sent-stdin.#[514."\30
3d20	30 02 5c 33 30 31 03 23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73	0.\301.#\207".[haskell-process-s
3d40	65 74 20 73 65 6e 74 2d 73 74 64 69 6e 5d 20 36 20 28 23 24 20 2e 20 31 35 35 32 35 29 5d 29 0a	et.sent-stdin].6.(#$...15525)]).
3d60	23 40 36 35 20 44 69 64 20 77 65 20 73 65 6e 64 20 61 6e 79 20 73 74 64 69 6e 20 74 6f 20 74 68	#@65.Did.we.send.any.stdin.to.th
3d80	65 20 70 72 6f 63 65 73 73 20 64 75 72 69 6e 67 20 65 76 61 6c 75 61 74 69 6f 6e 3f 0a 0a 28 66	e.process.during.evaluation?..(f
3da0	6e 20 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73	n.P)..(defalias.'haskell-process
3dc0	2d 73 65 6e 74 2d 73 74 64 69 6e 2d 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22	-sent-stdin-p.#[257."\300.\301\"
3de0	5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 67 65 74 20 73 65 6e 74 2d	\207".[haskell-process-get.sent-
3e00	73 74 64 69 6e 5d 20 34 20 28 23 24 20 2e 20 31 35 37 31 37 29 5d 29 0a 23 40 39 37 20 52 65 6d	stdin].4.(#$...15717)]).#@97.Rem
3e20	65 6d 62 65 72 20 77 68 61 74 20 69 6d 70 6f 72 74 73 20 68 61 76 65 20 62 65 65 6e 20 73 75 67	ember.what.imports.have.been.sug
3e40	67 65 73 74 65 64 2c 20 74 6f 20 61 76 6f 69 64 0a 72 65 2d 61 73 6b 69 6e 67 20 61 62 6f 75 74	gested,.to.avoid.re-asking.about
3e60	20 74 68 65 20 73 61 6d 65 20 69 6d 70 6f 72 74 73 2e 0a 0a 28 66 6e 20 50 20 56 29 1f 0a 28 64	.the.same.imports...(fn.P.V)..(d
3e80	65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 2d 73 75 67	efalias.'haskell-process-set-sug
3ea0	67 65 73 74 65 64 2d 69 6d 70 6f 72 74 73 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 03	gested-imports.#[514."\300.\301.
3ec0	23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 20 73 75 67 67	#\207".[haskell-process-set.sugg
3ee0	65 73 74 65 64 2d 69 6d 70 6f 72 74 65 64 5d 20 36 20 28 23 24 20 2e 20 31 35 39 30 31 29 5d 29	ested-imported].6.(#$...15901)])
3f00	0a 23 40 36 38 20 47 65 74 20 77 68 61 74 20 6d 6f 64 75 6c 65 73 20 68 61 76 65 20 61 6c 72 65	.#@68.Get.what.modules.have.alre
3f20	61 64 79 20 62 65 65 6e 20 73 75 67 67 65 73 74 65 64 20 61 6e 64 20 61 63 63 65 70 74 65 64 2e	ady.been.suggested.and.accepted.
3f40	0a 0a 28 66 6e 20 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f	..(fn.P)..(defalias.'haskell-pro
3f60	63 65 73 73 2d 73 75 67 67 65 73 74 65 64 2d 69 6d 70 6f 72 74 73 20 23 5b 32 35 37 20 22 5c 33	cess-suggested-imports.#[257."\3
3f80	30 30 01 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d	00.\301\"\207".[haskell-process-
3fa0	67 65 74 20 73 75 67 67 65 73 74 65 64 2d 69 6d 70 6f 72 74 65 64 5d 20 34 20 28 23 24 20 2e 20	get.suggested-imported].4.(#$...
3fc0	31 36 31 33 34 29 5d 29 0a 23 40 35 30 20 53 65 74 20 73 74 61 74 75 73 20 6f 66 20 65 76 61 6c	16134)]).#@50.Set.status.of.eval
3fe0	75 61 74 69 6e 67 20 74 6f 20 62 65 20 6f 6e 2f 6f 66 66 2e 0a 0a 28 66 6e 20 50 20 56 29 1f 0a	uating.to.be.on/off...(fn.P.V)..
4000	28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 2d 65	(defalias.'haskell-process-set-e
4020	76 61 6c 75 61 74 69 6e 67 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 23 5c 32 30 37	valuating.#[514."\300.\301.#\207
4040	22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 20 65 76 61 6c 75 61 74 69 6e	".[haskell-process-set.evaluatin
4060	67 5d 20 36 20 28 23 24 20 2e 20 31 36 33 33 34 29 5d 29 0a 23 40 34 34 20 47 65 74 20 73 74 61	g].6.(#$...16334)]).#@44.Get.sta
4080	74 75 73 20 6f 66 20 65 76 61 6c 75 61 74 69 6e 67 20 28 6f 6e 2f 6f 66 66 29 2e 0a 0a 28 66 6e	tus.of.evaluating.(on/off)...(fn
40a0	20 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d	.P)..(defalias.'haskell-process-
40c0	65 76 61 6c 75 61 74 69 6e 67 2d 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c	evaluating-p.#[257."\300.\301\"\
40e0	32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 67 65 74 20 65 76 61 6c 75 61	207".[haskell-process-get.evalua
4100	74 69 6e 67 5d 20 34 20 28 23 24 20 2e 20 31 36 35 30 35 29 5d 29 0a 23 40 34 37 20 53 65 74 20	ting].4.(#$...16505)]).#@47.Set.
4120	74 68 65 20 70 72 6f 63 65 73 73 27 73 20 69 6e 66 65 72 69 6f 72 20 70 72 6f 63 65 73 73 2e 0a	the.process's.inferior.process..
4140	0a 28 66 6e 20 50 20 56 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72	.(fn.P.V)..(defalias.'haskell-pr
4160	6f 63 65 73 73 2d 73 65 74 2d 70 72 6f 63 65 73 73 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33	ocess-set-process.#[514."\300.\3
4180	30 31 03 23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 20 69	01.#\207".[haskell-process-set.i
41a0	6e 66 65 72 69 6f 72 2d 70 72 6f 63 65 73 73 5d 20 36 20 28 23 24 20 2e 20 31 36 36 36 38 29 5d	nferior-process].6.(#$...16668)]
41c0	29 0a 23 40 33 32 20 47 65 74 20 74 68 65 20 70 72 6f 63 65 73 73 20 63 68 69 6c 64 2e 0a 0a 28	).#@32.Get.the.process.child...(
41e0	66 6e 20 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73	fn.P)..(defalias.'haskell-proces
4200	73 2d 70 72 6f 63 65 73 73 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 37	s-process.#[257."\300.\301\"\207
4220	22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 67 65 74 20 69 6e 66 65 72 69 6f 72 2d	".[haskell-process-get.inferior-
4240	70 72 6f 63 65 73 73 5d 20 34 20 28 23 24 20 2e 20 31 36 38 33 39 29 5d 29 0a 23 40 33 31 20 47	process].4.(#$...16839)]).#@31.G
4260	65 74 20 74 68 65 20 70 72 6f 63 65 73 73 20 6e 61 6d 65 2e 0a 0a 28 66 6e 20 50 29 1f 0a 28 64	et.the.process.name...(fn.P)..(d
4280	65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 6e 61 6d 65 20 23 5b	efalias.'haskell-process-name.#[
42a0	32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70	257."\300.\301\"\207".[haskell-p
42c0	72 6f 63 65 73 73 2d 67 65 74 20 6e 61 6d 65 5d 20 34 20 28 23 24 20 2e 20 31 36 39 39 31 29 5d	rocess-get.name].4.(#$...16991)]
42e0	29 0a 23 40 37 38 20 47 65 74 20 74 68 65 20 70 72 6f 63 65 73 73 27 73 20 63 75 72 72 65 6e 74	).#@78.Get.the.process's.current
4300	20 63 6f 6d 6d 61 6e 64 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 6e 6f 20 63 75 72 72 65	.command..Return.nil.if.no.curre
4320	6e 74 20 63 6f 6d 6d 61 6e 64 2e 0a 0a 28 66 6e 20 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	nt.command...(fn.P)..(defalias.'
4340	68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 63 6d 64 20 23 5b 32 35 37 20 22 5c 33 30 30 01	haskell-process-cmd.#[257."\300.
4360	5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 67 65 74	\301\"\207".[haskell-process-get
4380	20 63 75 72 72 65 6e 74 2d 63 6f 6d 6d 61 6e 64 5d 20 34 20 28 23 24 20 2e 20 31 37 31 32 37 29	.current-command].4.(#$...17127)
43a0	5d 29 0a 23 40 34 36 20 53 65 74 20 74 68 65 20 70 72 6f 63 65 73 73 27 73 20 63 75 72 72 65 6e	]).#@46.Set.the.process's.curren
43c0	74 20 63 6f 6d 6d 61 6e 64 2e 0a 0a 28 66 6e 20 50 20 56 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	t.command...(fn.P.V)..(defalias.
43e0	27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 2d 63 6d 64 20 23 5b 35 31 34 20 22	'haskell-process-set-cmd.#[514."
4400	5c 33 30 30 02 5c 33 30 31 5c 22 5c 32 31 30 5c 33 30 32 02 5c 33 30 31 5c 22 5c 32 31 30 5c 33	\300.\301\"\210\302.\301\"\210\3
4420	30 33 02 5c 33 30 31 5c 22 5c 32 31 30 5c 33 30 34 02 5c 33 30 35 03 23 5c 32 30 37 22 20 5b 68	03.\301\"\210\304.\305.#\207".[h
4440	61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 2d 65 76 61 6c 75 61 74 69 6e 67 20 6e 69	askell-process-set-evaluating.ni
4460	6c 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 2d 73 65 6e 74 2d 73 74 64 69 6e	l.haskell-process-set-sent-stdin
4480	20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 2d 73 75 67 67 65 73 74 65 64 2d 69	.haskell-process-set-suggested-i
44a0	6d 70 6f 72 74 73 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 20 63 75 72 72 65	mports.haskell-process-set.curre
44c0	6e 74 2d 63 6f 6d 6d 61 6e 64 5d 20 36 20 28 23 24 20 2e 20 31 37 33 32 30 29 5d 29 0a 23 40 34	nt-command].6.(#$...17320)]).#@4
44e0	35 20 47 65 74 20 74 68 65 20 70 72 6f 63 65 73 73 27 73 20 63 75 72 72 65 6e 74 20 72 65 73 70	5.Get.the.process's.current.resp
4500	6f 6e 73 65 2e 0a 0a 28 66 6e 20 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c	onse...(fn.P)..(defalias.'haskel
4520	6c 2d 70 72 6f 63 65 73 73 2d 72 65 73 70 6f 6e 73 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c	l-process-response.#[257."\300.\
4540	33 30 31 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 67 65 74 20	301\"\207".[haskell-process-get.
4560	63 75 72 72 65 6e 74 2d 72 65 73 70 6f 6e 73 65 5d 20 34 20 28 23 24 20 2e 20 31 37 36 33 34 29	current-response].4.(#$...17634)
4580	5d 29 0a 23 40 34 34 20 47 65 74 20 74 68 65 20 70 72 6f 63 65 73 73 27 73 20 63 75 72 72 65 6e	]).#@44.Get.the.process's.curren
45a0	74 20 73 65 73 73 69 6f 6e 2e 0a 0a 28 66 6e 20 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68	t.session...(fn.P)..(defalias.'h
45c0	61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 73 73 69 6f 6e 20 23 5b 32 35 37 20 22 5c 33	askell-process-session.#[257."\3
45e0	30 30 01 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d	00.\301\"\207".[haskell-process-
4600	67 65 74 20 73 65 73 73 69 6f 6e 5d 20 34 20 28 23 24 20 2e 20 31 37 38 30 30 29 5d 29 0a 23 40	get.session].4.(#$...17800)]).#@
4620	34 37 20 53 65 74 20 74 68 65 20 70 72 6f 63 65 73 73 27 73 20 63 75 72 72 65 6e 74 20 72 65 73	47.Set.the.process's.current.res
4640	70 6f 6e 73 65 2e 0a 0a 28 66 6e 20 50 20 56 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73	ponse...(fn.P.V)..(defalias.'has
4660	6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 2d 72 65 73 70 6f 6e 73 65 20 23 5b 35 31 34 20	kell-process-set-response.#[514.
4680	22 5c 33 30 30 02 5c 33 30 31 03 23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65	"\300.\301.#\207".[haskell-proce
46a0	73 73 2d 73 65 74 20 63 75 72 72 65 6e 74 2d 72 65 73 70 6f 6e 73 65 5d 20 36 20 28 23 24 20 2e	ss-set.current-response].6.(#$..
46c0	20 31 37 39 35 35 29 5d 29 0a 23 40 34 36 20 53 65 74 20 74 68 65 20 70 72 6f 63 65 73 73 27 73	.17955)]).#@46.Set.the.process's
46e0	20 63 75 72 72 65 6e 74 20 73 65 73 73 69 6f 6e 2e 0a 0a 28 66 6e 20 50 20 56 29 1f 0a 28 64 65	.current.session...(fn.P.V)..(de
4700	66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 2d 73 65 73 73	falias.'haskell-process-set-sess
4720	69 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 23 5c 32 30 37 22 20 5b 68 61 73	ion.#[514."\300.\301.#\207".[has
4740	6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 20 73 65 73 73 69 6f 6e 5d 20 36 20 28 23 24 20	kell-process-set.session].6.(#$.
4760	2e 20 31 38 31 32 37 29 5d 29 0a 23 40 35 32 20 47 65 74 20 74 68 65 20 70 72 6f 63 65 73 73 27	..18127)]).#@52.Get.the.process'
4780	73 20 63 75 72 72 65 6e 74 20 72 65 73 70 6f 6e 73 65 20 63 75 72 73 6f 72 2e 0a 0a 28 66 6e 20	s.current.response.cursor...(fn.
47a0	50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 72	P)..(defalias.'haskell-process-r
47c0	65 73 70 6f 6e 73 65 2d 63 75 72 73 6f 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c	esponse-cursor.#[257."\300.\301\
47e0	22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 67 65 74 20 63 75 72 72	"\207".[haskell-process-get.curr
4800	65 6e 74 2d 72 65 73 70 6f 6e 73 65 2d 63 75 72 73 6f 72 5d 20 34 20 28 23 24 20 2e 20 31 38 32	ent-response-cursor].4.(#$...182
4820	38 38 29 5d 29 0a 23 40 34 36 20 53 65 74 20 74 68 65 20 70 72 6f 63 65 73 73 27 73 20 72 65 73	88)]).#@46.Set.the.process's.res
4840	70 6f 6e 73 65 20 63 75 72 73 6f 72 2e 0a 0a 28 66 6e 20 50 20 56 29 1f 0a 28 64 65 66 61 6c 69	ponse.cursor...(fn.P.V)..(defali
4860	61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 2d 72 65 73 70 6f 6e 73 65	as.'haskell-process-set-response
4880	2d 63 75 72 73 6f 72 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 23 5c 32 30 37 22 20	-cursor.#[514."\300.\301.#\207".
48a0	5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 20 63 75 72 72 65 6e 74 2d 72 65 73	[haskell-process-set.current-res
48c0	70 6f 6e 73 65 2d 63 75 72 73 6f 72 5d 20 36 20 28 23 24 20 2e 20 31 38 34 37 35 29 5d 29 0a 23	ponse-cursor].6.(#$...18475)]).#
48e0	40 34 32 20 49 73 20 74 68 65 20 50 52 4f 43 45 53 53 20 72 65 73 74 61 72 74 69 6e 67 3f 0a 0a	@42.Is.the.PROCESS.restarting?..
4900	28 66 6e 20 50 52 4f 43 45 53 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c	(fn.PROCESS)..(defalias.'haskell
4920	2d 70 72 6f 63 65 73 73 2d 72 65 73 74 61 72 74 69 6e 67 20 23 5b 32 35 37 20 22 5c 33 30 30 01	-process-restarting.#[257."\300.
4940	5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 67 65 74	\301\"\207".[haskell-process-get
4960	20 69 73 2d 72 65 73 74 61 72 74 69 6e 67 5d 20 34 20 28 23 24 20 2e 20 31 38 36 36 30 29 5d 29	.is-restarting].4.(#$...18660)])
4980	0a 23 40 31 39 34 20 47 65 74 20 74 68 65 20 50 52 4f 43 45 53 53 27 20 63 6f 6d 6d 61 6e 64 20	.#@194.Get.the.PROCESS'.command.
49a0	71 75 65 75 65 2e 0a 4e 65 77 20 65 6e 74 72 69 65 73 20 67 65 74 20 61 64 64 65 64 20 74 6f 20	queue..New.entries.get.added.to.
49c0	74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 6c 69 73 74 2e 20 55 73 65 0a 60 68 61 73 6b 65 6c	the.end.of.the.list..Use.`haskel
49e0	6c 2d 70 72 6f 63 65 73 73 2d 63 6d 64 2d 71 75 65 75 65 2d 61 64 64 27 20 61 6e 64 0a 60 68 61	l-process-cmd-queue-add'.and.`ha
4a00	73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 63 6d 64 2d 71 75 65 75 65 2d 70 6f 70 27 20 74 6f 20	skell-process-cmd-queue-pop'.to.
4a20	6d 6f 64 69 66 79 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 71 75 65 75 65 2e 0a 0a 28 66 6e 20 50	modify.the.command.queue...(fn.P
4a40	52 4f 43 45 53 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63	ROCESS)..(defalias.'haskell-proc
4a60	65 73 73 2d 63 6d 64 2d 71 75 65 75 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22	ess-cmd-queue.#[257."\300.\301\"
4a80	5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 67 65 74 20 63 6f 6d 6d 61	\207".[haskell-process-get.comma
4aa0	6e 64 2d 71 75 65 75 65 5d 20 34 20 28 23 24 20 2e 20 31 38 38 32 33 29 5d 29 0a 23 40 36 32 20	nd-queue].4.(#$...18823)]).#@62.
4ac0	41 64 64 20 43 4d 44 20 74 6f 20 65 6e 64 20 6f 66 20 50 52 4f 43 45 53 53 27 73 20 63 6f 6d 6d	Add.CMD.to.end.of.PROCESS's.comm
4ae0	61 6e 64 20 71 75 65 75 65 2e 0a 0a 28 66 6e 20 50 52 4f 43 45 53 53 20 43 4d 44 29 1f 0a 28 64	and.queue...(fn.PROCESS.CMD)..(d
4b00	65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 63 6d 64 2d 71 75 65	efalias.'haskell-process-cmd-que
4b20	75 65 2d 61 64 64 20 23 5b 35 31 34 20 22 5c 33 30 31 01 21 5c 32 30 33 15 00 5c 32 31 31 47 5c	ue-add.#[514."\301.!\203..\211G\
4b40	33 30 32 59 5c 32 30 33 15 00 5c 32 31 31 5c 33 30 33 48 08 3e 5c 32 30 34 1d 00 5c 33 30 34 5c	302Y\203..\211\303H.>\204..\304\
4b60	33 30 35 5c 33 30 36 03 5c 33 30 37 45 5c 22 5c 32 31 30 5c 33 31 30 02 5c 33 31 31 5c 33 31 32	305\306.\307E\"\210\310.\311\312
4b80	5c 33 31 33 06 06 21 05 43 5c 22 23 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 68 61 73	\313..!.C\"#\207".[cl-struct-has
4ba0	6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 61 67 73 20 76 65 63 74 6f 72 70 20 35 20 30 20 73 69	kell-command-tags.vectorp.5.0.si
4bc0	67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 68 61 73 6b 65 6c 6c	gnal.wrong-type-argument.haskell
4be0	2d 63 6f 6d 6d 61 6e 64 20 63 6d 64 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74	-command.cmd.haskell-process-set
4c00	20 63 6f 6d 6d 61 6e 64 2d 71 75 65 75 65 20 61 70 70 65 6e 64 20 68 61 73 6b 65 6c 6c 2d 70 72	.command-queue.append.haskell-pr
4c20	6f 63 65 73 73 2d 63 6d 64 2d 71 75 65 75 65 5d 20 38 20 28 23 24 20 2e 20 31 39 31 33 36 29 5d	ocess-cmd-queue].8.(#$...19136)]
4c40	29 0a 23 40 39 34 20 50 6f 70 20 74 68 65 20 50 52 4f 43 45 53 53 27 20 6e 65 78 74 20 65 6e 74	).#@94.Pop.the.PROCESS'.next.ent
4c60	72 79 20 66 72 6f 6d 20 63 6f 6d 6d 61 6e 64 20 71 75 65 75 65 2e 0a 52 65 74 75 72 6e 73 20 6e	ry.from.command.queue..Returns.n
4c80	69 6c 20 69 66 20 71 75 65 75 65 20 69 73 20 65 6d 70 74 79 2e 0a 0a 28 66 6e 20 50 52 4f 43 45	il.if.queue.is.empty...(fn.PROCE
4ca0	53 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d	SS)..(defalias.'haskell-process-
4cc0	63 6d 64 2d 71 75 65 75 65 2d 70 6f 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 31 31 5c	cmd-queue-pop.#[257."\300.!\211\
4ce0	32 30 35 10 00 5c 33 30 31 02 5c 33 30 32 03 41 23 5c 32 31 30 5c 32 31 31 40 5c 32 30 37 22 20	205..\301.\302.A#\210\211@\207".
4d00	5b 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 63 6d 64 2d 71 75 65 75 65 20 68 61 73 6b 65	[haskell-process-cmd-queue.haske
4d20	6c 6c 2d 70 72 6f 63 65 73 73 2d 73 65 74 20 63 6f 6d 6d 61 6e 64 2d 71 75 65 75 65 5d 20 36 20	ll-process-set.command-queue].6.
4d40	28 23 24 20 2e 20 31 39 35 32 37 29 5d 29 0a 23 40 33 37 36 20 0a 0a 4e 6f 74 65 20 74 6f 20 57	(#$...19527)]).#@376...Note.to.W
4d60	69 6e 64 6f 77 73 20 45 6d 61 63 73 20 68 61 63 6b 65 72 73 3a 0a 0a 63 68 6d 6f 64 20 69 73 20	indows.Emacs.hackers:..chmod.is.
4d80	68 6f 77 20 74 6f 20 63 68 61 6e 67 65 20 74 68 65 20 6d 6f 64 65 20 6f 66 20 66 69 6c 65 73 20	how.to.change.the.mode.of.files.
4da0	69 6e 20 50 4f 53 49 58 0a 73 79 73 74 65 6d 73 2e 20 54 68 69 73 20 77 69 6c 6c 20 6e 6f 74 20	in.POSIX.systems..This.will.not.
4dc0	77 6f 72 6b 20 6f 6e 20 79 6f 75 72 20 6f 70 65 72 61 74 69 6e 67 0a 73 79 73 74 65 6d 2e 0a 0a	work.on.your.operating.system...
4de0	54 68 65 72 65 20 69 73 20 61 20 63 6f 6d 6d 61 6e 64 20 61 20 62 69 74 20 6c 69 6b 65 20 63 68	There.is.a.command.a.bit.like.ch
4e00	6d 6f 64 20 63 61 6c 6c 65 64 20 22 43 61 6c 63 73 22 0a 74 68 61 74 20 79 6f 75 20 63 61 6e 20	mod.called."Calcs".that.you.can.
4e20	74 72 79 20 75 73 69 6e 67 20 68 65 72 65 3a 0a 0a 68 74 74 70 3a 2f 2f 74 65 63 68 6e 65 74 2e	try.using.here:..http://technet.
4e40	6d 69 63 72 6f 73 6f 66 74 2e 63 6f 6d 2f 65 6e 2d 75 73 2f 6c 69 62 72 61 72 79 2f 62 62 34 39	microsoft.com/en-us/library/bb49
4e60	30 38 37 32 2e 61 73 70 78 0a 0a 49 66 20 69 74 20 77 6f 72 6b 73 2c 20 79 6f 75 20 63 61 6e 20	0872.aspx..If.it.works,.you.can.
4e80	73 75 62 6d 69 74 20 61 20 70 61 74 63 68 20 74 6f 20 74 68 69 73 0a 66 75 6e 63 74 69 6f 6e 20	submit.a.patch.to.this.function.
4ea0	61 6e 64 20 72 65 6d 6f 76 65 20 74 68 69 73 20 63 6f 6d 6d 65 6e 74 2e 0a 0a 28 66 6e 20 53 45	and.remove.this.comment...(fn.SE
4ec0	53 53 49 4f 4e 20 46 49 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d	SSION.FILE)..(defalias.'haskell-
4ee0	70 72 6f 63 65 73 73 2d 75 6e 69 67 6e 6f 72 65 2d 66 69 6c 65 20 23 5b 35 31 34 20 22 5c 33 30	process-unignore-file.#[514."\30
4f00	30 5c 33 30 31 5c 33 30 32 5c 33 30 33 04 50 5c 22 21 5c 32 31 30 5c 33 30 34 02 5c 33 30 35 5c	0\301\302\303.P\"!\210\304.\305\
4f20	33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 06 08 21 5c 33 31 33 5c 22 5c 33 31 34	306\307\310\311\312..!\313\"\314
4f40	5c 33 31 35 25 23 5c 32 30 37 22 20 5b 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 72 65 61 64 2d	\315%#\207".[shell-command.read-
4f60	66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 50 65 72 6d 69 73 73 69 6f 6e 73 20 63 6f 6d	from-minibuffer."Permissions.com
4f80	6d 61 6e 64 3a 20 22 20 22 63 68 6d 6f 64 20 37 30 30 20 22 20 68 61 73 6b 65 6c 6c 2d 73 65 73	mand:."."chmod.700.".haskell-ses
4fa0	73 69 6f 6e 2d 6d 6f 64 69 66 79 20 69 67 6e 6f 72 65 64 2d 66 69 6c 65 73 20 6d 61 6b 65 2d 62	sion-modify.ignored-files.make-b
4fc0	79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33	yte-code.257."\301\302\303\304\3
4fe0	30 35 5c 33 30 36 5c 33 30 30 21 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 02 5c 22 5c 32 30	05\306\300!\307\"\310\311%.\"\20
5000	37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20	7".vconcat.vector.[cl-remove-if.
5020	6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 32 31 31 5c 33 30 30 5c 32 33 30	make-byte-code.257."\211\300\230
5040	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 22 5c 6e 5c 6e 28	\207".vconcat.vector.[].3."\n\n(
5060	66 6e 20 50 41 54 48 29 22 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 46 49 4c 45 53 29 22 5d 20 31	fn.PATH)"].8."\n\n(fn.FILES)"].1
5080	31 20 28 23 24 20 2e 20 31 39 37 39 37 29 5d 29 0a 23 40 34 37 20 43 61 6c 6c 20 74 68 65 20 63	1.(#$...19797)]).#@47.Call.the.c
50a0	6f 6d 6d 61 6e 64 27 73 20 67 6f 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 28 66 6e 20 43 4f 4d 4d 41	ommand's.go.function...(fn.COMMA
50c0	4e 44 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d	ND)..(defalias.'haskell-command-
50e0	65 78 65 63 2d 67 6f 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00	exec-go.#[257."\211\301H.>\204..
5100	5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 31	\302\303\304.D\"\210\211\305H\21
5120	31 5c 32 30 35 2a 00 5c 32 31 31 02 5c 33 30 31 48 08 3e 5c 32 30 34 26 00 5c 33 30 32 5c 33 30	1\205*.\211.\301H.>\204&.\302\30
5140	33 5c 33 30 34 05 44 5c 22 5c 32 31 30 02 5c 33 30 36 48 21 5c 32 30 37 22 20 5b 63 6c 2d 73 74	3\304.D\"\210.\306H!\207".[cl-st
5160	72 75 63 74 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 61 67 73 20 30 20 73 69 67 6e	ruct-haskell-command-tags.0.sign
5180	61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 68 61 73 6b 65 6c 6c 2d 63	al.wrong-type-argument.haskell-c
51a0	6f 6d 6d 61 6e 64 20 32 20 31 5d 20 37 20 28 23 24 20 2e 20 32 30 36 33 30 29 5d 29 0a 23 40 36	ommand.2.1].7.(#$...20630)]).#@6
51c0	32 20 43 61 6c 6c 20 74 68 65 20 63 6f 6d 6d 61 6e 64 27 73 20 63 6f 6d 70 6c 65 74 65 20 66 75	2.Call.the.command's.complete.fu
51e0	6e 63 74 69 6f 6e 2e 0a 0a 28 66 6e 20 43 4f 4d 4d 41 4e 44 20 52 45 53 50 4f 4e 53 45 29 1f 0a	nction...(fn.COMMAND.RESPONSE)..
5200	28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 65 78 65 63 2d	(defalias.'haskell-command-exec-
5220	63 6f 6d 70 6c 65 74 65 20 23 5b 35 31 34 20 22 01 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33	complete.#[514.".\301H.>\204..\3
5240	30 32 5c 33 30 33 5c 33 30 34 04 44 5c 22 5c 32 31 30 01 5c 33 30 35 48 5c 32 31 31 5c 32 30 35	02\303\304.D\"\210.\305H\211\205
5260	48 00 5c 33 30 36 31 42 00 5c 33 30 37 31 39 00 5c 32 31 31 03 5c 33 30 31 48 08 3e 5c 32 30 34	H.\3061B.\30719.\211.\301H.>\204
5280	2f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 44 5c 22 5c 32 31 30 03 5c 33 31 30 48 03 5c 22	/.\302\303\304..D\"\210.\310H.\"
52a0	30 30 5c 32 30 32 48 00 30 5c 33 31 31 5c 33 31 32 21 5c 32 36 32 01 5c 32 30 32 48 00 5c 33 31	00\202H.0\311\312!\262.\202H.\31
52c0	31 5c 33 31 33 02 5c 22 5c 32 36 32 01 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 68 61	1\313.\"\262.\207".[cl-struct-ha
52e0	73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e	skell-command-tags.0.signal.wron
5300	67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20	g-type-argument.haskell-command.
5320	34 20 28 64 65 62 75 67 20 65 72 72 6f 72 29 20 28 64 65 62 75 67 20 71 75 69 74 29 20 31 20 6d	4.(debug.error).(debug.quit).1.m
5340	65 73 73 61 67 65 20 22 51 75 69 74 22 20 22 48 61 73 6b 65 6c 6c 20 70 72 6f 63 65 73 73 20 63	essage."Quit"."Haskell.process.c
5360	6f 6d 6d 61 6e 64 20 65 72 72 6f 72 65 64 20 77 69 74 68 3a 20 25 53 22 5d 20 38 20 28 23 24 20	ommand.errored.with:.%S"].8.(#$.
5380	2e 20 32 30 39 33 30 29 5d 29 0a 23 40 36 39 20 54 72 69 67 67 65 72 20 74 68 65 20 63 6f 6d 6d	..20930)]).#@69.Trigger.the.comm
53a0	61 6e 64 27 73 20 6c 69 76 65 20 75 70 64 61 74 65 73 20 63 61 6c 6c 62 61 63 6b 2e 0a 0a 28 66	and's.live.updates.callback...(f
53c0	6e 20 43 4f 4d 4d 41 4e 44 20 52 45 53 50 4f 4e 53 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	n.COMMAND.RESPONSE)..(defalias.'
53e0	68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 65 78 65 63 2d 6c 69 76 65 20 23 5b 35 31 34 20	haskell-command-exec-live.#[514.
5400	22 01 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 44 5c 22 5c	".\301H.>\204..\302\303\304.D\"\
5420	32 31 30 01 5c 33 30 35 48 5c 32 31 31 5c 32 30 35 2c 00 5c 32 31 31 03 5c 33 30 31 48 08 3e 5c	210.\305H\211\205,.\211.\301H.>\
5440	32 30 34 27 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 44 5c 22 5c 32 31 30 03 5c 33 30 36 48	204'.\302\303\304..D\"\210.\306H
5460	03 5c 22 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d	.\"\207".[cl-struct-haskell-comm
5480	61 6e 64 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67	and-tags.0.signal.wrong-type-arg
54a0	75 6d 65 6e 74 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 33 20 31 5d 20 38 20 28 23 24	ument.haskell-command.3.1].8.(#$
54c0	20 2e 20 32 31 33 39 32 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 68 61 73 6b 65 6c 6c 2d 70 72	...21392)]).(provide.'haskell-pr
54e0	6f 63 65 73 73 29 0a	ocess).