blob: 7a443d3604907de7c23e3ca7293a940c9c41d243 (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 30 37 22 20 5b 72 65 71 75 69 72 65 20 62 69 6e 64 61 74 20 75 72 6c 2d 70 61	303!\207".[require.bindat.url-pa
01e0	72 73 65 20 75 72 6c 2d 63 6f 6f 6b 69 65 5d 20 32 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65	rse.url-cookie].2).(defalias.'we
0200	62 73 6f 63 6b 65 74 2d 70 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30	bsocket-p--cmacro.#[514."\300\30
0220	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 6c 2d 2d	1\302\303\211\211..&.\207".[cl--
0240	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 6f 63 6b	defsubst-expand.(cl-x).(cl-block
0260	20 77 65 62 73 6f 63 6b 65 74 2d 70 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65	.websocket-p.(declare.(side-effe
0280	63 74 2d 66 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	ct-free.error-free)).(and.(vecto
02a0	72 70 20 63 6c 2d 78 29 20 28 3e 3d 20 28 6c 65 6e 67 74 68 20 63 6c 2d 78 29 20 31 37 29 20 28	rp.cl-x).(>=.(length.cl-x).17).(
02c0	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 77 65 62	memq.(aref.cl-x.0).cl-struct-web
02e0	73 6f 63 6b 65 74 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 6e	socket-tags).t)).nil].9."\n\n(fn
0300	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 77 65 62	.CL-WHOLE-ARG.CL-X)"]).(put.'web
0320	73 6f 63 6b 65 74 2d 70 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 77 65 62 73 6f 63	socket-p.'compiler-macro.'websoc
0340	6b 65 74 2d 70 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63	ket-p--cmacro).(defalias.'websoc
0360	6b 65 74 2d 70 20 23 5b 32 35 37 20 22 5c 33 30 31 01 21 5c 32 30 35 16 00 5c 32 31 31 47 5c 33	ket-p.#[257."\301.!\205..\211G\3
0380	30 32 59 5c 32 30 35 16 00 5c 32 31 31 5c 33 30 33 48 08 3e 5c 32 30 35 16 00 5c 33 30 34 5c 32	02Y\205..\211\303H.>\205..\304\2
03a0	30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 20 76 65	07".[cl-struct-websocket-tags.ve
03c0	63 74 6f 72 70 20 31 37 20 30 20 74 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d	ctorp.17.0.t].3."\n\n(fn.CL-X)"]
03e0	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 23 5c	).(byte-code."\300\301\302\303#\
0400	32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 31 23 5c 32 30 37 22 20 5b 66 75 6e 63 74	210\304\305\306\301#\207".[funct
0420	69 6f 6e 2d 70 75 74 20 77 65 62 73 6f 63 6b 65 74 2d 70 20 73 69 64 65 2d 65 66 66 65 63 74 2d	ion-put.websocket-p.side-effect-
0440	66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 20 70 75 74 20 77 65 62 73 6f 63 6b 65 74 20 63 6c	free.error-free.put.websocket.cl
0460	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 6c 69 61 73	-deftype-satisfies].4).(defalias
0480	20 27 77 65 62 73 6f 63 6b 65 74 2d 72 65 61 64 79 2d 73 74 61 74 65 2d 2d 63 6d 61 63 72 6f 20	.'websocket-ready-state--cmacro.
04a0	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 31 31 06	#[514."\300\301\302\303\211\211.
04c0	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 20 28 63	.&.\207".[cl--defsubst-expand.(c
04e0	6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 72 65 61 64 79 2d 73	l-x).(cl-block.websocket-ready-s
0500	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 72 65 65 20	tate.(declare.(side-effect-free.
0520	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)
0540	20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 29 29 20 28 73 69 67	.cl-struct-websocket-tags)).(sig
0560	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 6c 69 73 74 20 27	nal.'wrong-type-argument.(list.'
0580	77 65 62 73 6f 63 6b 65 74 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 31 29 29	websocket.cl-x))).(aref.cl-x.1))
05a0	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
05c0	2d 58 29 22 5d 29 0a 28 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 72 65 61 64 79 2d 73 74 61	-X)"]).(put.'websocket-ready-sta
05e0	74 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 77 65 62 73 6f 63 6b 65 74 2d 72 65	te.'compiler-macro.'websocket-re
0600	61 64 79 2d 73 74 61 74 65 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65	ady-state--cmacro).(defalias.'we
0620	62 73 6f 63 6b 65 74 2d 72 65 61 64 79 2d 73 74 61 74 65 20 23 5b 32 35 37 20 22 5c 32 31 31 5c	bsocket-ready-state.#[257."\211\
0640	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 32 31 30	301H.>\204..\302\303\304.D\"\210
0660	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 77 65 62 73 6f 63	\211\305H\207".[cl-struct-websoc
0680	6b 65 74 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	ket-tags.0.signal.wrong-type-arg
06a0	75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 31 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c	ument.websocket.1].5."\n\n(fn.CL
06c0	2d 58 29 22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d	-X)"]).(function-put.'websocket-
06e0	72 65 61 64 79 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	ready-state.'side-effect-free.t)
0700	0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 63 6c 69 65 6e 74 2d 64 61 74	.(defalias.'websocket-client-dat
0720	61 2d 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	a--cmacro.#[514."\300\301\302\30
0740	33 5c 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	3\211\211..&.\207".[cl--defsubst
0760	2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b	-expand.(cl-x).(cl-block.websock
0780	65 74 2d 63 6c 69 65 6e 74 2d 64 61 74 61 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66	et-client-data.(declare.(side-ef
07a0	66 65 63 74 2d 66 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	fect-free.t)).(or.(and.(memq.(ar
07c0	65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74	ef.cl-x.0).cl-struct-websocket-t
07e0	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
0800	6e 74 20 28 6c 69 73 74 20 27 77 65 62 73 6f 63 6b 65 74 20 63 6c 2d 78 29 29 29 20 28 61 72 65	nt.(list.'websocket.cl-x))).(are
0820	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 57 48	f.cl-x.2)).nil].9."\n\n(fn.CL-WH
0840	4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74	OLE-ARG.CL-X)"]).(put.'websocket
0860	2d 63 6c 69 65 6e 74 2d 64 61 74 61 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 77 65	-client-data.'compiler-macro.'we
0880	62 73 6f 63 6b 65 74 2d 63 6c 69 65 6e 74 2d 64 61 74 61 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65	bsocket-client-data--cmacro).(de
08a0	66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 63 6c 69 65 6e 74 2d 64 61 74 61 20 23 5b	falias.'websocket-client-data.#[
08c0	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 33 5c 33	257."\211\301H.>\204..\302\303\3
08e0	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 73 74 72	04.D\"\210\211\305H\207".[cl-str
0900	75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e	uct-websocket-tags.0.signal.wron
0920	67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 32 5d 20 35 20 22	g-type-argument.websocket.2].5."
0940	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 70 75 74 20 27	\n\n(fn.CL-X)"]).(function-put.'
0960	77 65 62 73 6f 63 6b 65 74 2d 63 6c 69 65 6e 74 2d 64 61 74 61 20 27 73 69 64 65 2d 65 66 66 65	websocket-client-data.'side-effe
0980	63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d	ct-free.t).(defalias.'websocket-
09a0	6f 6e 2d 6f 70 65 6e 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c	on-open--cmacro.#[514."\300\301\
09c0	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 6c 2d 2d 64 65	302\303\211\211..&.\207".[cl--de
09e0	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 6f 63 6b 20 77	fsubst-expand.(cl-x).(cl-block.w
0a00	65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 6f 70 65 6e 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d	ebsocket-on-open.(declare.(side-
0a20	65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 20 28 6d 65 6d 71 20 28	effect-free.t)).(or.(and.(memq.(
0a40	61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74	aref.cl-x.0).cl-struct-websocket
0a60	2d 74 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	-tags)).(signal.'wrong-type-argu
0a80	6d 65 6e 74 20 28 6c 69 73 74 20 27 77 65 62 73 6f 63 6b 65 74 20 63 6c 2d 78 29 29 29 20 28 61	ment.(list.'websocket.cl-x))).(a
0aa0	72 65 66 20 63 6c 2d 78 20 33 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.3)).nil].9."\n\n(fn.CL-
0ac0	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 77 65 62 73 6f 63 6b	WHOLE-ARG.CL-X)"]).(put.'websock
0ae0	65 74 2d 6f 6e 2d 6f 70 65 6e 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 77 65 62 73	et-on-open.'compiler-macro.'webs
0b00	6f 63 6b 65 74 2d 6f 6e 2d 6f 70 65 6e 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73	ocket-on-open--cmacro).(defalias
0b20	20 27 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 6f 70 65 6e 20 23 5b 32 35 37 20 22 5c 32 31 31 5c	.'websocket-on-open.#[257."\211\
0b40	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 32 31 30	301H.>\204..\302\303\304.D\"\210
0b60	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 77 65 62 73 6f 63	\211\305H\207".[cl-struct-websoc
0b80	6b 65 74 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	ket-tags.0.signal.wrong-type-arg
0ba0	75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 33 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c	ument.websocket.3].5."\n\n(fn.CL
0bc0	2d 58 29 22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d	-X)"]).(function-put.'websocket-
0be0	6f 6e 2d 6f 70 65 6e 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	on-open.'side-effect-free.t).(de
0c00	66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 6d 65 73 73 61 67 65 2d 2d 63 6d	falias.'websocket-on-message--cm
0c20	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 32 31 31	acro.#[514."\300\301\302\303\211
0c40	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 78 70 61	\211..&.\207".[cl--defsubst-expa
0c60	6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 6f 6e	nd.(cl-x).(cl-block.websocket-on
0c80	2d 6d 65 73 73 61 67 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	-message.(declare.(side-effect-f
0ca0	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-
0cc0	78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 29 29 20	x.0).cl-struct-websocket-tags)).
0ce0	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 6c 69	(signal.'wrong-type-argument.(li
0d00	73 74 20 27 77 65 62 73 6f 63 6b 65 74 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78	st.'websocket.cl-x))).(aref.cl-x
0d20	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
0d40	47 20 43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 6d 65	G.CL-X)"]).(put.'websocket-on-me
0d60	73 73 61 67 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 77 65 62 73 6f 63 6b 65 74	ssage.'compiler-macro.'websocket
0d80	2d 6f 6e 2d 6d 65 73 73 61 67 65 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27	-on-message--cmacro).(defalias.'
0da0	77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 6d 65 73 73 61 67 65 20 23 5b 32 35 37 20 22 5c 32 31 31	websocket-on-message.#[257."\211
0dc0	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 32 31	\301H.>\204..\302\303\304.D\"\21
0de0	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 77 65 62 73 6f	0\211\305H\207".[cl-struct-webso
0e00	63 6b 65 74 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	cket-tags.0.signal.wrong-type-ar
0e20	67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 34 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43	gument.websocket.4].5."\n\n(fn.C
0e40	4c 2d 58 29 22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74	L-X)"]).(function-put.'websocket
0e60	2d 6f 6e 2d 6d 65 73 73 61 67 65 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29	-on-message.'side-effect-free.t)
0e80	0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 63 6c 6f 73 65 2d 2d	.(defalias.'websocket-on-close--
0ea0	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 32	cmacro.#[514."\300\301\302\303\2
0ec0	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 78	11\211..&.\207".[cl--defsubst-ex
0ee0	70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d	pand.(cl-x).(cl-block.websocket-
0f00	6f 6e 2d 63 6c 6f 73 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	on-close.(declare.(side-effect-f
0f20	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-
0f40	78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 29 29 20	x.0).cl-struct-websocket-tags)).
0f60	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 6c 69	(signal.'wrong-type-argument.(li
0f80	73 74 20 27 77 65 62 73 6f 63 6b 65 74 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78	st.'websocket.cl-x))).(aref.cl-x
0fa0	20 35 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	.5)).nil].9."\n\n(fn.CL-WHOLE-AR
0fc0	47 20 43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 63 6c	G.CL-X)"]).(put.'websocket-on-cl
0fe0	6f 73 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 77 65 62 73 6f 63 6b 65 74 2d 6f	ose.'compiler-macro.'websocket-o
1000	6e 2d 63 6c 6f 73 65 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73	n-close--cmacro).(defalias.'webs
1020	6f 63 6b 65 74 2d 6f 6e 2d 63 6c 6f 73 65 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08	ocket-on-close.#[257."\211\301H.
1040	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 31 5c	>\204..\302\303\304.D\"\210\211\
1060	33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74	305H\207".[cl-struct-websocket-t
1080	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 75 6d 65 6e 74	ags.0.signal.wrong-type-argument
10a0	20 77 65 62 73 6f 63 6b 65 74 20 35 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d	.websocket.5].5."\n\n(fn.CL-X)"]
10c0	29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 63 6c	).(function-put.'websocket-on-cl
10e0	6f 73 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 66 61 6c 69	ose.'side-effect-free.t).(defali
1100	61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 65 72 72 6f 72 2d 2d 63 6d 61 63 72 6f 20 23	as.'websocket-on-error--cmacro.#
1120	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 31 31 06 06	[514."\300\301\302\303\211\211..
1140	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 20 28 63 6c	&.\207".[cl--defsubst-expand.(cl
1160	2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 65 72 72 6f 72	-x).(cl-block.websocket-on-error
1180	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 74 29 29 20	.(declare.(side-effect-free.t)).
11a0	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 20 63 6c 2d	(or.(and.(memq.(aref.cl-x.0).cl-
11c0	73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20	struct-websocket-tags)).(signal.
11e0	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 77 65 62 73	'wrong-type-argument.(list.'webs
1200	6f 63 6b 65 74 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 36 29 29 20 6e 69 6c	ocket.cl-x))).(aref.cl-x.6)).nil
1220	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 2d 58 29 22	].9."\n\n(fn.CL-WHOLE-ARG.CL-X)"
1240	5d 29 0a 28 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 65 72 72 6f 72 20 27 63 6f 6d	]).(put.'websocket-on-error.'com
1260	70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 65 72 72 6f 72 2d	piler-macro.'websocket-on-error-
1280	2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 6f 6e	-cmacro).(defalias.'websocket-on
12a0	2d 65 72 72 6f 72 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	-error.#[257."\211\301H.>\204..\
12c0	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 30 37	302\303\304.D\"\210\211\305H\207
12e0	22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 20 30 20 73 69	".[cl-struct-websocket-tags.0.si
1300	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 77 65 62 73 6f 63 6b	gnal.wrong-type-argument.websock
1320	65 74 20 36 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	et.6].5."\n\n(fn.CL-X)"]).(funct
1340	69 6f 6e 2d 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 65 72 72 6f 72 20 27 73 69 64	ion-put.'websocket-on-error.'sid
1360	65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73	e-effect-free.t).(defalias.'webs
1380	6f 63 6b 65 74 2d 6e 65 67 6f 74 69 61 74 65 64 2d 70 72 6f 74 6f 63 6f 6c 73 2d 2d 63 6d 61 63	ocket-negotiated-protocols--cmac
13a0	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
13c0	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
13e0	20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 6e 65 67 6f	.(cl-x).(cl-block.websocket-nego
1400	74 69 61 74 65 64 2d 70 72 6f 74 6f 63 6f 6c 73 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d	tiated-protocols.(declare.(side-
1420	65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 20 28 6d 65 6d 71 20 28	effect-free.t)).(or.(and.(memq.(
1440	61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74	aref.cl-x.0).cl-struct-websocket
1460	2d 74 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	-tags)).(signal.'wrong-type-argu
1480	6d 65 6e 74 20 28 6c 69 73 74 20 27 77 65 62 73 6f 63 6b 65 74 20 63 6c 2d 78 29 29 29 20 28 61	ment.(list.'websocket.cl-x))).(a
14a0	72 65 66 20 63 6c 2d 78 20 37 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.7)).nil].9."\n\n(fn.CL-
14c0	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 77 65 62 73 6f 63 6b	WHOLE-ARG.CL-X)"]).(put.'websock
14e0	65 74 2d 6e 65 67 6f 74 69 61 74 65 64 2d 70 72 6f 74 6f 63 6f 6c 73 20 27 63 6f 6d 70 69 6c 65	et-negotiated-protocols.'compile
1500	72 2d 6d 61 63 72 6f 20 27 77 65 62 73 6f 63 6b 65 74 2d 6e 65 67 6f 74 69 61 74 65 64 2d 70 72	r-macro.'websocket-negotiated-pr
1520	6f 74 6f 63 6f 6c 73 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73	otocols--cmacro).(defalias.'webs
1540	6f 63 6b 65 74 2d 6e 65 67 6f 74 69 61 74 65 64 2d 70 72 6f 74 6f 63 6f 6c 73 20 23 5b 32 35 37	ocket-negotiated-protocols.#[257
1560	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 33 5c 33 30 34 03	."\211\301H.>\204..\302\303\304.
1580	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 73 74 72 75 63 74	D\"\210\211\305H\207".[cl-struct
15a0	2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74	-websocket-tags.0.signal.wrong-t
15c0	79 70 65 2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 37 5d 20 35 20 22 5c 6e 5c	ype-argument.websocket.7].5."\n\
15e0	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 77 65 62	n(fn.CL-X)"]).(function-put.'web
1600	73 6f 63 6b 65 74 2d 6e 65 67 6f 74 69 61 74 65 64 2d 70 72 6f 74 6f 63 6f 6c 73 20 27 73 69 64	socket-negotiated-protocols.'sid
1620	65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73	e-effect-free.t).(defalias.'webs
1640	6f 63 6b 65 74 2d 6e 65 67 6f 74 69 61 74 65 64 2d 65 78 74 65 6e 73 69 6f 6e 73 2d 2d 63 6d 61	ocket-negotiated-extensions--cma
1660	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\
1680	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
16a0	64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 6e 65 67	d.(cl-x).(cl-block.websocket-neg
16c0	6f 74 69 61 74 65 64 2d 65 78 74 65 6e 73 69 6f 6e 73 20 28 64 65 63 6c 61 72 65 20 28 73 69 64	otiated-extensions.(declare.(sid
16e0	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 20 28 6d 65 6d 71	e-effect-free.t)).(or.(and.(memq
1700	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 77 65 62 73 6f 63 6b	.(aref.cl-x.0).cl-struct-websock
1720	65 74 2d 74 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	et-tags)).(signal.'wrong-type-ar
1740	67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 77 65 62 73 6f 63 6b 65 74 20 63 6c 2d 78 29 29 29 20	gument.(list.'websocket.cl-x))).
1760	28 61 72 65 66 20 63 6c 2d 78 20 38 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43	(aref.cl-x.8)).nil].9."\n\n(fn.C
1780	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 77 65 62 73 6f	L-WHOLE-ARG.CL-X)"]).(put.'webso
17a0	63 6b 65 74 2d 6e 65 67 6f 74 69 61 74 65 64 2d 65 78 74 65 6e 73 69 6f 6e 73 20 27 63 6f 6d 70	cket-negotiated-extensions.'comp
17c0	69 6c 65 72 2d 6d 61 63 72 6f 20 27 77 65 62 73 6f 63 6b 65 74 2d 6e 65 67 6f 74 69 61 74 65 64	iler-macro.'websocket-negotiated
17e0	2d 65 78 74 65 6e 73 69 6f 6e 73 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27	-extensions--cmacro).(defalias.'
1800	77 65 62 73 6f 63 6b 65 74 2d 6e 65 67 6f 74 69 61 74 65 64 2d 65 78 74 65 6e 73 69 6f 6e 73 20	websocket-negotiated-extensions.
1820	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 33	#[257."\211\301H.>\204..\302\303
1840	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 73	\304.D\"\210\211\305H\207".[cl-s
1860	74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72	truct-websocket-tags.0.signal.wr
1880	6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 38 5d 20 35	ong-type-argument.websocket.8].5
18a0	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 70 75 74	."\n\n(fn.CL-X)"]).(function-put
18c0	20 27 77 65 62 73 6f 63 6b 65 74 2d 6e 65 67 6f 74 69 61 74 65 64 2d 65 78 74 65 6e 73 69 6f 6e	.'websocket-negotiated-extension
18e0	73 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 66 61 6c 69 61 73	s.'side-effect-free.t).(defalias
1900	20 27 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 70 2d 2d 63 6d 61 63 72 6f 20 23 5b 35	.'websocket-server-p--cmacro.#[5
1920	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 31 31 06 06 26 06	14."\300\301\302\303\211\211..&.
1940	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 20 28 63 6c 2d 78	\207".[cl--defsubst-expand.(cl-x
1960	29 20 28 63 6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 70 20 28	).(cl-block.websocket-server-p.(
1980	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 74 29 29 20 28 6f	declare.(side-effect-free.t)).(o
19a0	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 20 63 6c 2d 73 74	r.(and.(memq.(aref.cl-x.0).cl-st
19c0	72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77	ruct-websocket-tags)).(signal.'w
19e0	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 77 65 62 73 6f 63	rong-type-argument.(list.'websoc
1a00	6b 65 74 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 39 29 29 20 6e 69 6c 5d 20	ket.cl-x))).(aref.cl-x.9)).nil].
1a20	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 2d 58 29 22 5d 29	9."\n\n(fn.CL-WHOLE-ARG.CL-X)"])
1a40	0a 28 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 70 20 27 63 6f 6d 70 69	.(put.'websocket-server-p.'compi
1a60	6c 65 72 2d 6d 61 63 72 6f 20 27 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 70 2d 2d 63	ler-macro.'websocket-server-p--c
1a80	6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76	macro).(defalias.'websocket-serv
1aa0	65 72 2d 70 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	er-p.#[257."\211\301H.>\204..\30
1ac0	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 30 37 22 20	2\303\304.D\"\210\211\305H\207".
1ae0	5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 20 30 20 73 69 67 6e	[cl-struct-websocket-tags.0.sign
1b00	61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74	al.wrong-type-argument.websocket
1b20	20 39 5d 20 35 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 63 6f	.9].5."\n\n(fn.CL-X)"]).(byte-co
1b40	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 33 30	de."\300\301\302\303#\210\304\30
1b60	31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 77 65	1\305\306#\207".[function-put.we
1b80	62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 70 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65	bsocket-server-p.side-effect-fre
1ba0	65 20 74 20 70 75 74 20 67 76 2d 65 78 70 61 6e 64 65 72 20 23 5b 35 31 34 20 22 5c 33 30 30 5c	e.t.put.gv-expander.#[514."\300\
1bc0	33 30 31 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 65 72 72 6f 72 20 22 25 73 20 69 73 20 61 20 72	301\302\"\207".[error."%s.is.a.r
1be0	65 61 64 2d 6f 6e 6c 79 20 73 6c 6f 74 22 20 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d	ead-only.slot".websocket-server-
1c00	70 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 44 4f 20 43 4c 2d 58 29 22 5d 5d 20 34 29 0a	p].5."\n\n(fn.CL-DO.CL-X)"]].4).
1c20	28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 75 72 6c 2d 2d 63 6d 61 63 72 6f	(defalias.'websocket-url--cmacro
1c40	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 31 31	.#[514."\300\301\302\303\211\211
1c60	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 20 28	..&.\207".[cl--defsubst-expand.(
1c80	63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 75 72 6c 20 28 64	cl-x).(cl-block.websocket-url.(d
1ca0	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 74 29 29 20 28 6f 72	eclare.(side-effect-free.t)).(or
1cc0	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 20 63 6c 2d 73 74 72	.(and.(memq.(aref.cl-x.0).cl-str
1ce0	75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77 72	uct-websocket-tags)).(signal.'wr
1d00	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 77 65 62 73 6f 63 6b	ong-type-argument.(list.'websock
1d20	65 74 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 31 30 29 29 20 6e 69 6c 5d 20	et.cl-x))).(aref.cl-x.10)).nil].
1d40	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 2d 58 29 22 5d 29	9."\n\n(fn.CL-WHOLE-ARG.CL-X)"])
1d60	0a 28 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 75 72 6c 20 27 63 6f 6d 70 69 6c 65 72 2d 6d	.(put.'websocket-url.'compiler-m
1d80	61 63 72 6f 20 27 77 65 62 73 6f 63 6b 65 74 2d 75 72 6c 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65	acro.'websocket-url--cmacro).(de
1da0	66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 75 72 6c 20 23 5b 32 35 37 20 22 5c 32 31	falias.'websocket-url.#[257."\21
1dc0	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 32	1\301H.>\204..\302\303\304.D\"\2
1de0	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 77 65 62 73	10\211\305H\207".[cl-struct-webs
1e00	6f 63 6b 65 74 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	ocket-tags.0.signal.wrong-type-a
1e20	72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 31 30 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e	rgument.websocket.10].5."\n\n(fn
1e40	20 43 4c 2d 58 29 22 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	.CL-X)"]).(byte-code."\300\301\3
1e60	30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37	02\303#\210\304\301\305\306#\207
1e80	22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 77 65 62 73 6f 63 6b 65 74 2d 75 72 6c 20 73 69	".[function-put.websocket-url.si
1ea0	64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 20 70 75 74 20 67 76 2d 65 78 70 61 6e 64 65 72	de-effect-free.t.put.gv-expander
1ec0	20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 65 72 72	.#[514."\300\301\302\"\207".[err
1ee0	6f 72 20 22 25 73 20 69 73 20 61 20 72 65 61 64 2d 6f 6e 6c 79 20 73 6c 6f 74 22 20 77 65 62 73	or."%s.is.a.read-only.slot".webs
1f00	6f 63 6b 65 74 2d 75 72 6c 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 44 4f 20 43 4c 2d 58	ocket-url].5."\n\n(fn.CL-DO.CL-X
1f20	29 22 5d 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 70 72 6f	)"]].4).(defalias.'websocket-pro
1f40	74 6f 63 6f 6c 73 2d 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	tocols--cmacro.#[514."\300\301\3
1f60	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 6c 2d 2d 64 65 66	02\303\211\211..&.\207".[cl--def
1f80	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 6f 63 6b 20 77 65	subst-expand.(cl-x).(cl-block.we
1fa0	62 73 6f 63 6b 65 74 2d 70 72 6f 74 6f 63 6f 6c 73 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65	bsocket-protocols.(declare.(side
1fc0	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 20 28 6d 65 6d 71 20	-effect-free.t)).(or.(and.(memq.
1fe0	28 61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65	(aref.cl-x.0).cl-struct-websocke
2000	74 2d 74 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	t-tags)).(signal.'wrong-type-arg
2020	75 6d 65 6e 74 20 28 6c 69 73 74 20 27 77 65 62 73 6f 63 6b 65 74 20 63 6c 2d 78 29 29 29 20 28	ument.(list.'websocket.cl-x))).(
2040	61 72 65 66 20 63 6c 2d 78 20 31 31 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43	aref.cl-x.11)).nil].9."\n\n(fn.C
2060	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 77 65 62 73 6f	L-WHOLE-ARG.CL-X)"]).(put.'webso
2080	63 6b 65 74 2d 70 72 6f 74 6f 63 6f 6c 73 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27	cket-protocols.'compiler-macro.'
20a0	77 65 62 73 6f 63 6b 65 74 2d 70 72 6f 74 6f 63 6f 6c 73 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65	websocket-protocols--cmacro).(de
20c0	66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 70 72 6f 74 6f 63 6f 6c 73 20 23 5b 32 35	falias.'websocket-protocols.#[25
20e0	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 33 5c 33 30 34	7."\211\301H.>\204..\302\303\304
2100	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 73 74 72 75 63	.D\"\210\211\305H\207".[cl-struc
2120	74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d	t-websocket-tags.0.signal.wrong-
2140	74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 31 31 5d 20 35 20 22 5c	type-argument.websocket.11].5."\
2160	6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	n\n(fn.CL-X)"]).(byte-code."\300
2180	5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30	\301\302\303#\210\304\301\305\30
21a0	36 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 77 65 62 73 6f 63 6b 65 74 2d	6#\207".[function-put.websocket-
21c0	70 72 6f 74 6f 63 6f 6c 73 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 20 70 75 74	protocols.side-effect-free.t.put
21e0	20 67 76 2d 65 78 70 61 6e 64 65 72 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	.gv-expander.#[514."\300\301\302
2200	5c 22 5c 32 30 37 22 20 5b 65 72 72 6f 72 20 22 25 73 20 69 73 20 61 20 72 65 61 64 2d 6f 6e 6c	\"\207".[error."%s.is.a.read-onl
2220	79 20 73 6c 6f 74 22 20 77 65 62 73 6f 63 6b 65 74 2d 70 72 6f 74 6f 63 6f 6c 73 5d 20 35 20 22	y.slot".websocket-protocols].5."
2240	5c 6e 5c 6e 28 66 6e 20 43 4c 2d 44 4f 20 43 4c 2d 58 29 22 5d 5d 20 34 29 0a 28 64 65 66 61 6c	\n\n(fn.CL-DO.CL-X)"]].4).(defal
2260	69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 65 78 74 65 6e 73 69 6f 6e 73 2d 2d 63 6d 61 63 72	ias.'websocket-extensions--cmacr
2280	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 31	o.#[514."\300\301\302\303\211\21
22a0	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 20	1..&.\207".[cl--defsubst-expand.
22c0	28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 65 78 74 65 6e	(cl-x).(cl-block.websocket-exten
22e0	73 69 6f 6e 73 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	sions.(declare.(side-effect-free
2300	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 78 20 30	.t)).(or.(and.(memq.(aref.cl-x.0
2320	29 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 29 29 20 28 73 69	).cl-struct-websocket-tags)).(si
2340	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 6c 69 73 74 20	gnal.'wrong-type-argument.(list.
2360	27 77 65 62 73 6f 63 6b 65 74 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 31 32	'websocket.cl-x))).(aref.cl-x.12
2380	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 47 20	)).nil].9."\n\n(fn.CL-WHOLE-ARG.
23a0	43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 65 78 74 65 6e 73 69	CL-X)"]).(put.'websocket-extensi
23c0	6f 6e 73 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 77 65 62 73 6f 63 6b 65 74 2d 65	ons.'compiler-macro.'websocket-e
23e0	78 74 65 6e 73 69 6f 6e 73 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65	xtensions--cmacro).(defalias.'we
2400	62 73 6f 63 6b 65 74 2d 65 78 74 65 6e 73 69 6f 6e 73 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33	bsocket-extensions.#[257."\211\3
2420	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 32 31 30 5c	01H.>\204..\302\303\304.D\"\210\
2440	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 77 65 62 73 6f 63 6b	211\305H\207".[cl-struct-websock
2460	65 74 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 75	et-tags.0.signal.wrong-type-argu
2480	6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 31 32 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c	ment.websocket.12].5."\n\n(fn.CL
24a0	2d 58 29 22 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	-X)"]).(byte-code."\300\301\302\
24c0	33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b	303#\210\304\301\305\306#\207".[
24e0	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 77 65 62 73 6f 63 6b 65 74 2d 65 78 74 65 6e 73 69 6f 6e	function-put.websocket-extension
2500	73 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 20 70 75 74 20 67 76 2d 65 78 70 61	s.side-effect-free.t.put.gv-expa
2520	6e 64 65 72 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 30 37 22 20	nder.#[514."\300\301\302\"\207".
2540	5b 65 72 72 6f 72 20 22 25 73 20 69 73 20 61 20 72 65 61 64 2d 6f 6e 6c 79 20 73 6c 6f 74 22 20	[error."%s.is.a.read-only.slot".
2560	77 65 62 73 6f 63 6b 65 74 2d 65 78 74 65 6e 73 69 6f 6e 73 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e	websocket-extensions].5."\n\n(fn
2580	20 43 4c 2d 44 4f 20 43 4c 2d 58 29 22 5d 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65	.CL-DO.CL-X)"]].4).(defalias.'we
25a0	62 73 6f 63 6b 65 74 2d 63 6f 6e 6e 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30	bsocket-conn--cmacro.#[514."\300
25c0	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
25e0	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
2600	6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 63 6f 6e 6e 20 28 64 65 63 6c 61 72 65 20 28 73 69 64	ock.websocket-conn.(declare.(sid
2620	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 20 28 6d 65 6d 71	e-effect-free.t)).(or.(and.(memq
2640	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 77 65 62 73 6f 63 6b	.(aref.cl-x.0).cl-struct-websock
2660	65 74 2d 74 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	et-tags)).(signal.'wrong-type-ar
2680	67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 77 65 62 73 6f 63 6b 65 74 20 63 6c 2d 78 29 29 29 20	gument.(list.'websocket.cl-x))).
26a0	28 61 72 65 66 20 63 6c 2d 78 20 31 33 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20	(aref.cl-x.13)).nil].9."\n\n(fn.
26c0	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 77 65 62 73	CL-WHOLE-ARG.CL-X)"]).(put.'webs
26e0	6f 63 6b 65 74 2d 63 6f 6e 6e 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 77 65 62 73	ocket-conn.'compiler-macro.'webs
2700	6f 63 6b 65 74 2d 63 6f 6e 6e 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77	ocket-conn--cmacro).(defalias.'w
2720	65 62 73 6f 63 6b 65 74 2d 63 6f 6e 6e 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e	ebsocket-conn.#[257."\211\301H.>
2740	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 31 5c 33	\204..\302\303\304.D\"\210\211\3
2760	30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61	05H\207".[cl-struct-websocket-ta
2780	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 75 6d 65 6e 74 20	gs.0.signal.wrong-type-argument.
27a0	77 65 62 73 6f 63 6b 65 74 20 31 33 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d	websocket.13].5."\n\n(fn.CL-X)"]
27c0	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 23 5c	).(byte-code."\300\301\302\303#\
27e0	32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 66 75 6e 63 74	210\304\301\305\306#\207".[funct
2800	69 6f 6e 2d 70 75 74 20 77 65 62 73 6f 63 6b 65 74 2d 63 6f 6e 6e 20 73 69 64 65 2d 65 66 66 65	ion-put.websocket-conn.side-effe
2820	63 74 2d 66 72 65 65 20 74 20 70 75 74 20 67 76 2d 65 78 70 61 6e 64 65 72 20 23 5b 35 31 34 20	ct-free.t.put.gv-expander.#[514.
2840	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 65 72 72 6f 72 20 22 25 73 20	"\300\301\302\"\207".[error."%s.
2860	69 73 20 61 20 72 65 61 64 2d 6f 6e 6c 79 20 73 6c 6f 74 22 20 77 65 62 73 6f 63 6b 65 74 2d 63	is.a.read-only.slot".websocket-c
2880	6f 6e 6e 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 44 4f 20 43 4c 2d 58 29 22 5d 5d 20 34	onn].5."\n\n(fn.CL-DO.CL-X)"]].4
28a0	29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 63 6f	).(defalias.'websocket-server-co
28c0	6e 6e 2d 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	nn--cmacro.#[514."\300\301\302\3
28e0	30 33 5c 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	03\211\211..&.\207".[cl--defsubs
2900	74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63	t-expand.(cl-x).(cl-block.websoc
2920	6b 65 74 2d 73 65 72 76 65 72 2d 63 6f 6e 6e 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65	ket-server-conn.(declare.(side-e
2940	66 66 65 63 74 2d 66 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	ffect-free.t)).(or.(and.(memq.(a
2960	72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d	ref.cl-x.0).cl-struct-websocket-
2980	74 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	tags)).(signal.'wrong-type-argum
29a0	65 6e 74 20 28 6c 69 73 74 20 27 77 65 62 73 6f 63 6b 65 74 20 63 6c 2d 78 29 29 29 20 28 61 72	ent.(list.'websocket.cl-x))).(ar
29c0	65 66 20 63 6c 2d 78 20 31 34 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d	ef.cl-x.14)).nil].9."\n\n(fn.CL-
29e0	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 77 65 62 73 6f 63 6b	WHOLE-ARG.CL-X)"]).(put.'websock
2a00	65 74 2d 73 65 72 76 65 72 2d 63 6f 6e 6e 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27	et-server-conn.'compiler-macro.'
2a20	77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 63 6f 6e 6e 2d 2d 63 6d 61 63 72 6f 29 0a 28	websocket-server-conn--cmacro).(
2a40	64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 63 6f 6e 6e 20	defalias.'websocket-server-conn.
2a60	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 33	#[257."\211\301H.>\204..\302\303
2a80	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 73	\304.D\"\210\211\305H\207".[cl-s
2aa0	74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72	truct-websocket-tags.0.signal.wr
2ac0	6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 31 34 5d 20	ong-type-argument.websocket.14].
2ae0	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 70 75	5."\n\n(fn.CL-X)"]).(function-pu
2b00	74 20 27 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 63 6f 6e 6e 20 27 73 69 64 65 2d 65	t.'websocket-server-conn.'side-e
2b20	66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b	ffect-free.t).(defalias.'websock
2b40	65 74 2d 61 63 63 65 70 74 2d 73 74 72 69 6e 67 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22	et-accept-string--cmacro.#[514."
2b60	5c 33 30 30 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	\300\301\302\303\211\211..&.\207
2b80	22 20 5b 63 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	".[cl--defsubst-expand.(cl-x).(c
2ba0	6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 61 63 63 65 70 74 2d 73 74 72 69 6e 67 20	l-block.websocket-accept-string.
2bc0	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 74 29 29 20 28	(declare.(side-effect-free.t)).(
2be0	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 20 63 6c 2d 73	or.(and.(memq.(aref.cl-x.0).cl-s
2c00	74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27	truct-websocket-tags)).(signal.'
2c20	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 77 65 62 73 6f	wrong-type-argument.(list.'webso
2c40	63 6b 65 74 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 31 35 29 29 20 6e 69 6c	cket.cl-x))).(aref.cl-x.15)).nil
2c60	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 2d 58 29 22	].9."\n\n(fn.CL-WHOLE-ARG.CL-X)"
2c80	5d 29 0a 28 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 61 63 63 65 70 74 2d 73 74 72 69 6e 67	]).(put.'websocket-accept-string
2ca0	20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 77 65 62 73 6f 63 6b 65 74 2d 61 63 63 65	.'compiler-macro.'websocket-acce
2cc0	70 74 2d 73 74 72 69 6e 67 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65	pt-string--cmacro).(defalias.'we
2ce0	62 73 6f 63 6b 65 74 2d 61 63 63 65 70 74 2d 73 74 72 69 6e 67 20 23 5b 32 35 37 20 22 5c 32 31	bsocket-accept-string.#[257."\21
2d00	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 32	1\301H.>\204..\302\303\304.D\"\2
2d20	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 77 65 62 73	10\211\305H\207".[cl-struct-webs
2d40	6f 63 6b 65 74 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	ocket-tags.0.signal.wrong-type-a
2d60	72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 31 35 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e	rgument.websocket.15].5."\n\n(fn
2d80	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 77 65 62 73 6f 63 6b	.CL-X)"]).(function-put.'websock
2da0	65 74 2d 61 63 63 65 70 74 2d 73 74 72 69 6e 67 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72	et-accept-string.'side-effect-fr
2dc0	65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 69 6e 66 6c 69	ee.t).(defalias.'websocket-infli
2de0	67 68 74 2d 69 6e 70 75 74 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30	ght-input--cmacro.#[514."\300\30
2e00	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 6c 2d 2d	1\302\303\211\211..&.\207".[cl--
2e20	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 6f 63 6b	defsubst-expand.(cl-x).(cl-block
2e40	20 77 65 62 73 6f 63 6b 65 74 2d 69 6e 66 6c 69 67 68 74 2d 69 6e 70 75 74 20 28 64 65 63 6c 61	.websocket-inflight-input.(decla
2e60	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 28 61 6e	re.(side-effect-free.t)).(or.(an
2e80	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 63 74 2d	d.(memq.(aref.cl-x.0).cl-struct-
2ea0	77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d	websocket-tags)).(signal.'wrong-
2ec0	74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 77 65 62 73 6f 63 6b 65 74 20 63	type-argument.(list.'websocket.c
2ee0	6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 31 36 29 29 20 6e 69 6c 5d 20 39 20 22 5c	l-x))).(aref.cl-x.16)).nil].9."\
2f00	6e 5c 6e 28 66 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	n\n(fn.CL-WHOLE-ARG.CL-X)"]).(pu
2f20	74 20 27 77 65 62 73 6f 63 6b 65 74 2d 69 6e 66 6c 69 67 68 74 2d 69 6e 70 75 74 20 27 63 6f 6d	t.'websocket-inflight-input.'com
2f40	70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 77 65 62 73 6f 63 6b 65 74 2d 69 6e 66 6c 69 67 68 74 2d	piler-macro.'websocket-inflight-
2f60	69 6e 70 75 74 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63	input--cmacro).(defalias.'websoc
2f80	6b 65 74 2d 69 6e 66 6c 69 67 68 74 2d 69 6e 70 75 74 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33	ket-inflight-input.#[257."\211\3
2fa0	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 32 31 30 5c	01H.>\204..\302\303\304.D\"\210\
2fc0	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 77 65 62 73 6f 63 6b	211\305H\207".[cl-struct-websock
2fe0	65 74 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 75	et-tags.0.signal.wrong-type-argu
3000	6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 31 36 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c	ment.websocket.16].5."\n\n(fn.CL
3020	2d 58 29 22 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	-X)"]).(byte-code."\300\301\302\
3040	33 30 33 23 5c 32 31 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	303#\210\304\305\306\"\207".[fun
3060	63 74 69 6f 6e 2d 70 75 74 20 77 65 62 73 6f 63 6b 65 74 2d 69 6e 66 6c 69 67 68 74 2d 69 6e 70	ction-put.websocket-inflight-inp
3080	75 74 20 73 69 64 65 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	ut.side-effect-free.t.defalias.c
30a0	6f 70 79 2d 77 65 62 73 6f 63 6b 65 74 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 5d 20 34 29 0a	opy-websocket.copy-sequence].4).
30c0	23 40 32 31 36 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	#@216...(fn.CL-WHOLE.&cl-quote.&
30e0	6b 65 79 20 52 45 41 44 59 2d 53 54 41 54 45 20 43 4c 49 45 4e 54 2d 44 41 54 41 20 4f 4e 2d 4f	key.READY-STATE.CLIENT-DATA.ON-O
3100	50 45 4e 20 4f 4e 2d 4d 45 53 53 41 47 45 20 4f 4e 2d 43 4c 4f 53 45 20 4f 4e 2d 45 52 52 4f 52	PEN.ON-MESSAGE.ON-CLOSE.ON-ERROR
3120	20 4e 45 47 4f 54 49 41 54 45 44 2d 50 52 4f 54 4f 43 4f 4c 53 20 4e 45 47 4f 54 49 41 54 45 44	.NEGOTIATED-PROTOCOLS.NEGOTIATED
3140	2d 45 58 54 45 4e 53 49 4f 4e 53 20 53 45 52 56 45 52 2d 50 20 55 52 4c 20 50 52 4f 54 4f 43 4f	-EXTENSIONS.SERVER-P.URL.PROTOCO
3160	4c 53 20 45 58 54 45 4e 53 49 4f 4e 53 20 43 4f 4e 4e 20 53 45 52 56 45 52 2d 43 4f 4e 4e 20 41	LS.EXTENSIONS.CONN.SERVER-CONN.A
3180	43 43 45 50 54 2d 53 54 52 49 4e 47 20 49 4e 46 4c 49 47 48 54 2d 49 4e 50 55 54 29 1f 0a 28 64	CCEPT-STRING.INFLIGHT-INPUT)..(d
31a0	65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 69 6e 6e 65 72 2d 63 72 65 61 74 65 2d	efalias.'websocket-inner-create-
31c0	2d 63 6d 61 63 72 6f 20 23 5b 33 38 35 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 36 08 00	-cmacro.#[385."\300.\301\"\206..
31e0	5c 33 30 32 41 40 5c 33 30 30 02 5c 33 30 33 5c 22 41 40 5c 33 30 30 03 5c 33 30 34 5c 22 41 40	\302A@\300.\303\"A@\300.\304\"A@
3200	5c 33 30 30 04 5c 33 30 35 5c 22 41 40 5c 33 30 30 05 5c 33 30 36 5c 22 41 40 5c 33 30 30 06 06	\300.\305\"A@\300.\306\"A@\300..
3220	5c 33 30 37 5c 22 41 40 5c 33 30 30 06 07 5c 33 31 30 5c 22 41 40 5c 33 30 30 06 08 5c 33 31 31	\307\"A@\300..\310\"A@\300..\311
3240	5c 22 41 40 5c 33 30 30 06 09 5c 33 31 32 5c 22 41 40 5c 33 30 30 06 5c 6e 5c 33 31 33 5c 22 5c	\"A@\300..\312\"A@\300.\n\313\"\
3260	32 30 36 47 00 5c 33 31 34 41 40 5c 33 30 30 06 0b 5c 33 31 35 5c 22 41 40 5c 33 30 30 06 5c 66	206G.\314A@\300..\315\"A@\300.\f
3280	5c 33 31 36 5c 22 41 40 5c 33 30 30 06 0d 5c 33 31 37 5c 22 5c 32 30 36 60 00 5c 33 32 30 41 40	\316\"A@\300..\317\"\206`.\320A@
32a0	5c 33 30 30 06 0e 5c 33 32 31 5c 22 41 40 5c 33 30 30 06 0f 5c 33 32 32 5c 22 41 40 5c 33 30 30	\300..\321\"A@\300..\322\"A@\300
32c0	06 10 5c 33 32 33 5c 22 41 40 06 10 5c 32 31 31 5c 32 30 33 5c 32 34 34 00 5c 32 31 31 40 5c 33	..\323\"A@..\211\203\244.\211@\3
32e0	32 34 3e 5c 32 30 33 5c 32 31 34 00 5c 32 31 31 41 41 5c 32 36 32 01 5c 32 30 32 79 00 5c 33 32	24>\203\214.\211AA\262.\202y.\32
3300	35 06 12 3e 41 40 5c 32 30 33 5c 32 33 33 00 5c 33 32 36 5c 32 36 32 01 5c 32 30 32 79 00 5c 33	5..>A@\203\233.\326\262.\202y.\3
3320	32 37 5c 33 33 30 02 40 5c 22 5c 32 31 30 5c 32 30 32 79 00 5c 32 31 30 5c 33 33 31 5c 33 33 32	27\330.@\"\210\202y.\210\331\332
3340	5c 33 33 33 5c 33 32 36 06 15 5c 33 32 36 06 15 06 15 06 15 06 15 06 15 06 15 06 15 06 15 06 15	\333\326..\326..................
3360	06 15 06 15 06 15 06 15 06 15 06 15 06 15 26 15 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 6d 65 6d	..............&.\207".[plist-mem
3380	62 65 72 20 3a 72 65 61 64 79 2d 73 74 61 74 65 20 28 6e 69 6c 20 27 63 6f 6e 6e 65 63 74 69 6e	ber.:ready-state.(nil.'connectin
33a0	67 29 20 3a 63 6c 69 65 6e 74 2d 64 61 74 61 20 3a 6f 6e 2d 6f 70 65 6e 20 3a 6f 6e 2d 6d 65 73	g).:client-data.:on-open.:on-mes
33c0	73 61 67 65 20 3a 6f 6e 2d 63 6c 6f 73 65 20 3a 6f 6e 2d 65 72 72 6f 72 20 3a 6e 65 67 6f 74 69	sage.:on-close.:on-error.:negoti
33e0	61 74 65 64 2d 70 72 6f 74 6f 63 6f 6c 73 20 3a 6e 65 67 6f 74 69 61 74 65 64 2d 65 78 74 65 6e	ated-protocols.:negotiated-exten
3400	73 69 6f 6e 73 20 3a 73 65 72 76 65 72 2d 70 20 3a 75 72 6c 20 28 6e 69 6c 20 28 63 6c 2d 61 73	sions.:server-p.:url.(nil.(cl-as
3420	73 65 72 74 20 6e 69 6c 29 29 20 3a 70 72 6f 74 6f 63 6f 6c 73 20 3a 65 78 74 65 6e 73 69 6f 6e	sert.nil)).:protocols.:extension
3440	73 20 3a 63 6f 6e 6e 20 28 6e 69 6c 20 28 63 6c 2d 61 73 73 65 72 74 20 6e 69 6c 29 29 20 3a 73	s.:conn.(nil.(cl-assert.nil)).:s
3460	65 72 76 65 72 2d 63 6f 6e 6e 20 3a 61 63 63 65 70 74 2d 73 74 72 69 6e 67 20 3a 69 6e 66 6c 69	erver-conn.:accept-string.:infli
3480	67 68 74 2d 69 6e 70 75 74 20 28 3a 72 65 61 64 79 2d 73 74 61 74 65 20 3a 63 6c 69 65 6e 74 2d	ght-input.(:ready-state.:client-
34a0	64 61 74 61 20 3a 6f 6e 2d 6f 70 65 6e 20 3a 6f 6e 2d 6d 65 73 73 61 67 65 20 3a 6f 6e 2d 63 6c	data.:on-open.:on-message.:on-cl
34c0	6f 73 65 20 3a 6f 6e 2d 65 72 72 6f 72 20 3a 6e 65 67 6f 74 69 61 74 65 64 2d 70 72 6f 74 6f 63	ose.:on-error.:negotiated-protoc
34e0	6f 6c 73 20 3a 6e 65 67 6f 74 69 61 74 65 64 2d 65 78 74 65 6e 73 69 6f 6e 73 20 3a 73 65 72 76	ols.:negotiated-extensions.:serv
3500	65 72 2d 70 20 3a 75 72 6c 20 3a 70 72 6f 74 6f 63 6f 6c 73 20 3a 65 78 74 65 6e 73 69 6f 6e 73	er-p.:url.:protocols.:extensions
3520	20 3a 63 6f 6e 6e 20 3a 73 65 72 76 65 72 2d 63 6f 6e 6e 20 3a 61 63 63 65 70 74 2d 73 74 72 69	.:conn.:server-conn.:accept-stri
3540	6e 67 20 3a 69 6e 66 6c 69 67 68 74 2d 69 6e 70 75 74 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d	ng.:inflight-input.:allow-other-
3560	6b 65 79 73 29 20 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	keys).:allow-other-keys.nil.erro
3580	72 20 22 4b 65 79 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	r."Keyword.argument.%s.not.one.o
35a0	66 20 28 3a 72 65 61 64 79 2d 73 74 61 74 65 20 3a 63 6c 69 65 6e 74 2d 64 61 74 61 20 3a 6f 6e	f.(:ready-state.:client-data.:on
35c0	2d 6f 70 65 6e 20 3a 6f 6e 2d 6d 65 73 73 61 67 65 20 3a 6f 6e 2d 63 6c 6f 73 65 20 3a 6f 6e 2d	-open.:on-message.:on-close.:on-
35e0	65 72 72 6f 72 20 3a 6e 65 67 6f 74 69 61 74 65 64 2d 70 72 6f 74 6f 63 6f 6c 73 20 3a 6e 65 67	error.:negotiated-protocols.:neg
3600	6f 74 69 61 74 65 64 2d 65 78 74 65 6e 73 69 6f 6e 73 20 3a 73 65 72 76 65 72 2d 70 20 3a 75 72	otiated-extensions.:server-p.:ur
3620	6c 20 3a 70 72 6f 74 6f 63 6f 6c 73 20 3a 65 78 74 65 6e 73 69 6f 6e 73 20 3a 63 6f 6e 6e 20 3a	l.:protocols.:extensions.:conn.:
3640	73 65 72 76 65 72 2d 63 6f 6e 6e 20 3a 61 63 63 65 70 74 2d 73 74 72 69 6e 67 20 3a 69 6e 66 6c	server-conn.:accept-string.:infl
3660	69 67 68 74 2d 69 6e 70 75 74 29 22 20 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64	ight-input)".cl--defsubst-expand
3680	20 28 72 65 61 64 79 2d 73 74 61 74 65 20 63 6c 69 65 6e 74 2d 64 61 74 61 20 6f 6e 2d 6f 70 65	.(ready-state.client-data.on-ope
36a0	6e 20 6f 6e 2d 6d 65 73 73 61 67 65 20 6f 6e 2d 63 6c 6f 73 65 20 6f 6e 2d 65 72 72 6f 72 20 6e	n.on-message.on-close.on-error.n
36c0	65 67 6f 74 69 61 74 65 64 2d 70 72 6f 74 6f 63 6f 6c 73 20 6e 65 67 6f 74 69 61 74 65 64 2d 65	egotiated-protocols.negotiated-e
36e0	78 74 65 6e 73 69 6f 6e 73 20 73 65 72 76 65 72 2d 70 20 75 72 6c 20 70 72 6f 74 6f 63 6f 6c 73	xtensions.server-p.url.protocols
3700	20 65 78 74 65 6e 73 69 6f 6e 73 20 63 6f 6e 6e 20 73 65 72 76 65 72 2d 63 6f 6e 6e 20 61 63 63	.extensions.conn.server-conn.acc
3720	65 70 74 2d 73 74 72 69 6e 67 20 69 6e 66 6c 69 67 68 74 2d 69 6e 70 75 74 29 20 28 63 6c 2d 62	ept-string.inflight-input).(cl-b
3740	6c 6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 69 6e 6e 65 72 2d 63 72 65 61 74 65 20 22 43 6f 6e	lock.websocket-inner-create."Con
3760	73 74 72 75 63 74 6f 72 20 66 6f 72 20 6f 62 6a 65 63 74 73 20 6f 66 20 74 79 70 65 20 60 77 65	structor.for.objects.of.type.`we
3780	62 73 6f 63 6b 65 74 27 2e 22 20 28 76 65 63 74 6f 72 20 27 63 6c 2d 73 74 72 75 63 74 2d 77 65	bsocket'.".(vector.'cl-struct-we
37a0	62 73 6f 63 6b 65 74 20 72 65 61 64 79 2d 73 74 61 74 65 20 63 6c 69 65 6e 74 2d 64 61 74 61 20	bsocket.ready-state.client-data.
37c0	6f 6e 2d 6f 70 65 6e 20 6f 6e 2d 6d 65 73 73 61 67 65 20 6f 6e 2d 63 6c 6f 73 65 20 6f 6e 2d 65	on-open.on-message.on-close.on-e
37e0	72 72 6f 72 20 6e 65 67 6f 74 69 61 74 65 64 2d 70 72 6f 74 6f 63 6f 6c 73 20 6e 65 67 6f 74 69	rror.negotiated-protocols.negoti
3800	61 74 65 64 2d 65 78 74 65 6e 73 69 6f 6e 73 20 73 65 72 76 65 72 2d 70 20 75 72 6c 20 70 72 6f	ated-extensions.server-p.url.pro
3820	74 6f 63 6f 6c 73 20 65 78 74 65 6e 73 69 6f 6e 73 20 63 6f 6e 6e 20 73 65 72 76 65 72 2d 63 6f	tocols.extensions.conn.server-co
3840	6e 6e 20 61 63 63 65 70 74 2d 73 74 72 69 6e 67 20 69 6e 66 6c 69 67 68 74 2d 69 6e 70 75 74 29	nn.accept-string.inflight-input)
3860	29 5d 20 34 30 20 28 23 24 20 2e 20 31 32 34 38 36 29 5d 29 0a 28 70 75 74 20 27 77 65 62 73 6f	)].40.(#$...12486)]).(put.'webso
3880	63 6b 65 74 2d 69 6e 6e 65 72 2d 63 72 65 61 74 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72	cket-inner-create.'compiler-macr
38a0	6f 20 27 77 65 62 73 6f 63 6b 65 74 2d 69 6e 6e 65 72 2d 63 72 65 61 74 65 2d 2d 63 6d 61 63 72	o.'websocket-inner-create--cmacr
38c0	6f 29 0a 23 40 32 34 31 20 43 6f 6e 73 74 72 75 63 74 6f 72 20 66 6f 72 20 6f 62 6a 65 63 74 73	o).#@241.Constructor.for.objects
38e0	20 6f 66 20 74 79 70 65 20 60 77 65 62 73 6f 63 6b 65 74 27 2e 0a 0a 28 66 6e 20 26 6b 65 79 20	.of.type.`websocket'...(fn.&key.
3900	52 45 41 44 59 2d 53 54 41 54 45 20 43 4c 49 45 4e 54 2d 44 41 54 41 20 4f 4e 2d 4f 50 45 4e 20	READY-STATE.CLIENT-DATA.ON-OPEN.
3920	4f 4e 2d 4d 45 53 53 41 47 45 20 4f 4e 2d 43 4c 4f 53 45 20 4f 4e 2d 45 52 52 4f 52 20 4e 45 47	ON-MESSAGE.ON-CLOSE.ON-ERROR.NEG
3940	4f 54 49 41 54 45 44 2d 50 52 4f 54 4f 43 4f 4c 53 20 4e 45 47 4f 54 49 41 54 45 44 2d 45 58 54	OTIATED-PROTOCOLS.NEGOTIATED-EXT
3960	45 4e 53 49 4f 4e 53 20 53 45 52 56 45 52 2d 50 20 55 52 4c 20 50 52 4f 54 4f 43 4f 4c 53 20 45	ENSIONS.SERVER-P.URL.PROTOCOLS.E
3980	58 54 45 4e 53 49 4f 4e 53 20 43 4f 4e 4e 20 53 45 52 56 45 52 2d 43 4f 4e 4e 20 41 43 43 45 50	XTENSIONS.CONN.SERVER-CONN.ACCEP
39a0	54 2d 53 54 52 49 4e 47 20 49 4e 46 4c 49 47 48 54 2d 49 4e 50 55 54 29 1f 0a 28 64 65 66 61 6c	T-STRING.INFLIGHT-INPUT)..(defal
39c0	69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 69 6e 6e 65 72 2d 63 72 65 61 74 65 20 23 5b 31 32	ias.'websocket-inner-create.#[12
39e0	38 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 36 08 00 5c 33 30 32 41 40 5c 33 30 30 02 5c	8."\300.\301\"\206..\302A@\300.\
3a00	33 30 33 5c 22 41 40 5c 33 30 30 03 5c 33 30 34 5c 22 41 40 5c 33 30 30 04 5c 33 30 35 5c 22 41	303\"A@\300.\304\"A@\300.\305\"A
3a20	40 5c 33 30 30 05 5c 33 30 36 5c 22 41 40 5c 33 30 30 06 06 5c 33 30 37 5c 22 41 40 5c 33 30 30	@\300.\306\"A@\300..\307\"A@\300
3a40	06 07 5c 33 31 30 5c 22 41 40 5c 33 30 30 06 08 5c 33 31 31 5c 22 41 40 5c 33 30 30 06 09 5c 33	..\310\"A@\300..\311\"A@\300..\3
3a60	31 32 5c 22 41 40 5c 33 30 30 06 5c 6e 5c 33 31 33 5c 22 5c 32 30 36 4d 00 5c 33 31 34 5c 33 31	12\"A@\300.\n\313\"\206M.\314\31
3a80	35 5c 33 31 34 21 5c 32 31 30 5c 33 31 34 44 41 40 5c 33 30 30 06 0b 5c 33 31 36 5c 22 41 40 5c	5\314!\210\314DA@\300..\316\"A@\
3aa0	33 30 30 06 5c 66 5c 33 31 37 5c 22 41 40 5c 33 30 30 06 0d 5c 33 32 30 5c 22 5c 32 30 36 6c 00	300.\f\317\"A@\300..\320\"\206l.
3ac0	5c 33 31 34 5c 33 31 35 5c 33 31 34 21 5c 32 31 30 5c 33 31 34 44 41 40 5c 33 30 30 06 0e 5c 33	\314\315\314!\210\314DA@\300..\3
3ae0	32 31 5c 22 41 40 5c 33 30 30 06 0f 5c 33 32 32 5c 22 41 40 5c 33 30 30 06 10 5c 33 32 33 5c 22	21\"A@\300..\322\"A@\300..\323\"
3b00	41 40 06 10 5c 32 31 31 5c 32 30 33 5c 32 36 30 00 5c 32 31 31 40 5c 33 32 34 3e 5c 32 30 33 5c	A@..\211\203\260.\211@\324>\203\
3b20	32 33 30 00 5c 32 31 31 41 41 5c 32 36 32 01 5c 32 30 32 5c 32 30 35 00 5c 33 32 35 06 12 3e 41	230.\211AA\262.\202\205.\325..>A
3b40	40 5c 32 30 33 5c 32 34 37 00 5c 33 31 34 5c 32 36 32 01 5c 32 30 32 5c 32 30 35 00 5c 33 32 36	@\203\247.\314\262.\202\205.\326
3b60	5c 33 32 37 02 40 5c 22 5c 32 31 30 5c 32 30 32 5c 32 30 35 00 5c 32 31 30 5c 33 33 30 5c 33 33	\327.@\"\210\202\205.\210\330\33
3b80	31 06 11 06 11 06 11 06 11 06 11 06 11 06 11 06 11 06 11 06 11 06 11 06 11 06 11 06 11 06 11 06	1...............................
3ba0	11 26 11 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 6d 65 6d 62 65 72 20 3a 72 65 61 64 79 2d 73 74	.&.\207".[plist-member.:ready-st
3bc0	61 74 65 20 28 6e 69 6c 20 63 6f 6e 6e 65 63 74 69 6e 67 29 20 3a 63 6c 69 65 6e 74 2d 64 61 74	ate.(nil.connecting).:client-dat
3be0	61 20 3a 6f 6e 2d 6f 70 65 6e 20 3a 6f 6e 2d 6d 65 73 73 61 67 65 20 3a 6f 6e 2d 63 6c 6f 73 65	a.:on-open.:on-message.:on-close
3c00	20 3a 6f 6e 2d 65 72 72 6f 72 20 3a 6e 65 67 6f 74 69 61 74 65 64 2d 70 72 6f 74 6f 63 6f 6c 73	.:on-error.:negotiated-protocols
3c20	20 3a 6e 65 67 6f 74 69 61 74 65 64 2d 65 78 74 65 6e 73 69 6f 6e 73 20 3a 73 65 72 76 65 72 2d	.:negotiated-extensions.:server-
3c40	70 20 3a 75 72 6c 20 6e 69 6c 20 63 6c 2d 2d 61 73 73 65 72 74 69 6f 6e 2d 66 61 69 6c 65 64 20	p.:url.nil.cl--assertion-failed.
3c60	3a 70 72 6f 74 6f 63 6f 6c 73 20 3a 65 78 74 65 6e 73 69 6f 6e 73 20 3a 63 6f 6e 6e 20 3a 73 65	:protocols.:extensions.:conn.:se
3c80	72 76 65 72 2d 63 6f 6e 6e 20 3a 61 63 63 65 70 74 2d 73 74 72 69 6e 67 20 3a 69 6e 66 6c 69 67	rver-conn.:accept-string.:inflig
3ca0	68 74 2d 69 6e 70 75 74 20 28 3a 72 65 61 64 79 2d 73 74 61 74 65 20 3a 63 6c 69 65 6e 74 2d 64	ht-input.(:ready-state.:client-d
3cc0	61 74 61 20 3a 6f 6e 2d 6f 70 65 6e 20 3a 6f 6e 2d 6d 65 73 73 61 67 65 20 3a 6f 6e 2d 63 6c 6f	ata.:on-open.:on-message.:on-clo
3ce0	73 65 20 3a 6f 6e 2d 65 72 72 6f 72 20 3a 6e 65 67 6f 74 69 61 74 65 64 2d 70 72 6f 74 6f 63 6f	se.:on-error.:negotiated-protoco
3d00	6c 73 20 3a 6e 65 67 6f 74 69 61 74 65 64 2d 65 78 74 65 6e 73 69 6f 6e 73 20 3a 73 65 72 76 65	ls.:negotiated-extensions.:serve
3d20	72 2d 70 20 3a 75 72 6c 20 3a 70 72 6f 74 6f 63 6f 6c 73 20 3a 65 78 74 65 6e 73 69 6f 6e 73 20	r-p.:url.:protocols.:extensions.
3d40	3a 63 6f 6e 6e 20 3a 73 65 72 76 65 72 2d 63 6f 6e 6e 20 3a 61 63 63 65 70 74 2d 73 74 72 69 6e	:conn.:server-conn.:accept-strin
3d60	67 20 3a 69 6e 66 6c 69 67 68 74 2d 69 6e 70 75 74 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b	g.:inflight-input.:allow-other-k
3d80	65 79 73 29 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 65 72 72 6f 72 20 22 4b 65	eys).:allow-other-keys.error."Ke
3da0	79 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 72	yword.argument.%s.not.one.of.(:r
3dc0	65 61 64 79 2d 73 74 61 74 65 20 3a 63 6c 69 65 6e 74 2d 64 61 74 61 20 3a 6f 6e 2d 6f 70 65 6e	eady-state.:client-data.:on-open
3de0	20 3a 6f 6e 2d 6d 65 73 73 61 67 65 20 3a 6f 6e 2d 63 6c 6f 73 65 20 3a 6f 6e 2d 65 72 72 6f 72	.:on-message.:on-close.:on-error
3e00	20 3a 6e 65 67 6f 74 69 61 74 65 64 2d 70 72 6f 74 6f 63 6f 6c 73 20 3a 6e 65 67 6f 74 69 61 74	.:negotiated-protocols.:negotiat
3e20	65 64 2d 65 78 74 65 6e 73 69 6f 6e 73 20 3a 73 65 72 76 65 72 2d 70 20 3a 75 72 6c 20 3a 70 72	ed-extensions.:server-p.:url.:pr
3e40	6f 74 6f 63 6f 6c 73 20 3a 65 78 74 65 6e 73 69 6f 6e 73 20 3a 63 6f 6e 6e 20 3a 73 65 72 76 65	otocols.:extensions.:conn.:serve
3e60	72 2d 63 6f 6e 6e 20 3a 61 63 63 65 70 74 2d 73 74 72 69 6e 67 20 3a 69 6e 66 6c 69 67 68 74 2d	r-conn.:accept-string.:inflight-
3e80	69 6e 70 75 74 29 22 20 76 65 63 74 6f 72 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b	input)".vector.cl-struct-websock
3ea0	65 74 5d 20 33 35 20 28 23 24 20 2e 20 31 34 35 33 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65	et].35.(#$...14537)]).(byte-code
3ec0	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 32 31 31 5c 33 30 35 5c 33	."\300\301\302\303\304\211\305\3
3ee0	30 36 5c 33 30 37 5c 33 31 30 26 09 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 64 65 66	06\307\310&.\207".[cl-struct-def
3f00	69 6e 65 20 77 65 62 73 6f 63 6b 65 74 20 22 41 20 77 65 62 73 6f 63 6b 65 74 20 73 74 72 75 63	ine.websocket."A.websocket.struc
3f20	74 75 72 65 2e 5c 6e 54 68 69 73 20 66 6f 6c 6c 6f 77 73 20 74 68 65 20 57 33 43 20 57 65 62 73	ture.\nThis.follows.the.W3C.Webs
3f40	6f 63 6b 65 74 20 41 50 49 2c 20 65 78 63 65 70 74 20 74 72 61 6e 73 6c 61 74 65 64 20 74 6f 20	ocket.API,.except.translated.to.
3f60	65 6c 69 73 70 5c 6e 69 64 69 6f 6d 73 2e 20 20 54 68 65 20 41 50 49 20 69 73 20 69 6d 70 6c 65	elisp\nidioms...The.API.is.imple
3f80	6d 65 6e 74 65 64 20 69 6e 20 62 6f 74 68 20 74 68 65 20 77 65 62 73 6f 63 6b 65 74 20 73 74 72	mented.in.both.the.websocket.str
3fa0	75 63 74 20 61 6e 64 5c 6e 61 64 64 69 74 69 6f 6e 61 6c 20 6d 65 74 68 6f 64 73 2e 20 20 44 75	uct.and\nadditional.methods...Du
3fc0	65 20 74 6f 20 68 6f 77 20 64 65 66 73 74 72 75 63 74 20 73 6c 6f 74 73 20 61 72 65 20 61 63 63	e.to.how.defstruct.slots.are.acc
3fe0	65 73 73 65 64 2c 20 61 6c 6c 5c 6e 41 50 49 20 6d 65 74 68 6f 64 73 20 61 72 65 20 70 72 65 66	essed,.all\nAPI.methods.are.pref
4000	69 78 65 64 20 77 69 74 68 20 5c 22 77 65 62 73 6f 63 6b 65 74 2d 5c 22 20 61 6e 64 20 74 61 6b	ixed.with.\"websocket-\".and.tak
4020	65 20 61 20 77 65 62 73 6f 63 6b 65 74 5c 6e 61 73 20 61 6e 20 61 72 67 75 6d 65 6e 74 2c 20 73	e.a.websocket\nas.an.argument,.s
4040	6f 20 74 68 65 20 64 69 73 74 72 69 6e 63 74 69 6f 6e 20 62 65 74 77 65 65 6e 20 74 68 65 20 73	o.the.distrinction.between.the.s
4060	74 72 75 63 74 20 41 50 49 20 61 6e 64 5c 6e 74 68 65 20 61 64 64 69 74 69 6f 6e 61 6c 20 68 65	truct.API.and\nthe.additional.he
4080	6c 70 65 72 20 41 50 49 73 20 61 72 65 20 6e 6f 74 20 76 69 73 69 62 6c 65 20 74 6f 20 74 68 65	lper.APIs.are.not.visible.to.the
40a0	20 63 61 6c 6c 65 72 2e 5c 6e 5c 6e 41 20 77 65 62 73 6f 63 6b 65 74 20 73 74 72 75 63 74 20 69	.caller.\n\nA.websocket.struct.i
40c0	73 20 63 72 65 61 74 65 64 20 77 69 74 68 20 60 77 65 62 73 6f 63 6b 65 74 2d 6f 70 65 6e 27 2e	s.created.with.`websocket-open'.
40e0	5c 6e 5c 6e 60 72 65 61 64 79 2d 73 74 61 74 65 27 20 63 6f 6e 74 61 69 6e 73 20 6f 6e 65 20 6f	\n\n`ready-state'.contains.one.o
4100	66 20 60 63 6f 6e 6e 65 63 74 69 6e 67 27 2c 20 60 6f 70 65 6e 27 2c 20 6f 72 5c 6e 60 63 6c 6f	f.`connecting',.`open',.or\n`clo
4120	73 65 64 27 2c 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 74 68 65 20 73 74 61 74 65 20 6f 66 20	sed',.depending.on.the.state.of.
4140	74 68 65 20 77 65 62 73 6f 63 6b 65 74 2e 5c 6e 5c 6e 54 68 65 20 57 33 43 20 41 50 49 20 5c 22	the.websocket.\n\nThe.W3C.API.\"
4160	62 75 66 66 65 72 65 64 41 6d 6f 75 6e 74 5c 22 20 63 61 6c 6c 20 69 73 20 6e 6f 74 20 63 75 72	bufferedAmount\".call.is.not.cur
4180	72 65 6e 74 6c 79 20 69 6d 70 6c 65 6d 65 6e 74 65 64 2c 5c 6e 73 69 6e 63 65 20 74 68 65 72 65	rently.implemented,\nsince.there
41a0	20 69 73 20 6e 6f 20 65 6c 69 73 70 20 41 50 49 20 74 6f 20 67 65 74 20 74 68 65 20 62 75 66 66	.is.no.elisp.API.to.get.the.buff
41c0	65 72 65 64 20 61 6d 6f 75 6e 74 20 66 72 6f 6d 20 74 68 65 5c 6e 73 75 62 70 72 6f 63 65 73 73	ered.amount.from.the\nsubprocess
41e0	2e 20 20 54 68 65 72 65 20 6d 61 79 2c 20 69 6e 20 66 61 63 74 2c 20 62 65 20 6f 75 74 70 75 74	...There.may,.in.fact,.be.output
4200	20 64 61 74 61 20 62 75 66 66 65 72 65 64 2c 5c 6e 68 6f 77 65 76 65 72 2c 20 77 68 65 6e 20 74	.data.buffered,\nhowever,.when.t
4220	68 65 20 60 6f 6e 2d 6d 65 73 73 61 67 65 27 20 6f 72 20 60 6f 6e 2d 63 6c 6f 73 65 27 20 63 61	he.`on-message'.or.`on-close'.ca
4240	6c 6c 62 61 63 6b 73 20 61 72 65 5c 6e 63 61 6c 6c 65 64 2e 5c 6e 5c 6e 60 6f 6e 2d 6f 70 65 6e	llbacks.are\ncalled.\n\n`on-open
4260	27 2c 20 60 6f 6e 2d 6d 65 73 73 61 67 65 27 2c 20 60 6f 6e 2d 63 6c 6f 73 65 27 2c 20 61 6e 64	',.`on-message',.`on-close',.and
4280	20 60 6f 6e 2d 65 72 72 6f 72 27 20 61 72 65 20 64 65 73 63 72 69 62 65 64 5c 6e 69 6e 20 60 77	.`on-error'.are.described\nin.`w
42a0	65 62 73 6f 63 6b 65 74 2d 6f 70 65 6e 27 2e 5c 6e 5c 6e 54 68 65 20 60 6e 65 67 6f 74 69 61 74	ebsocket-open'.\n\nThe.`negotiat
42c0	65 64 2d 65 78 74 65 6e 73 69 6f 6e 73 27 20 73 6c 6f 74 20 6c 69 73 74 73 20 74 68 65 20 65 78	ed-extensions'.slot.lists.the.ex
42e0	74 65 6e 73 69 6f 6e 73 20 61 63 63 65 70 74 65 64 20 62 79 5c 6e 62 6f 74 68 20 74 68 65 20 63	tensions.accepted.by\nboth.the.c
4300	6c 69 65 6e 74 20 61 6e 64 20 73 65 72 76 65 72 2c 20 61 6e 64 20 60 6e 65 67 6f 74 69 61 74 65	lient.and.server,.and.`negotiate
4320	64 2d 70 72 6f 74 6f 63 6f 6c 73 27 20 64 6f 65 73 20 74 68 65 5c 6e 73 61 6d 65 20 66 6f 72 20	d-protocols'.does.the\nsame.for.
4340	74 68 65 20 70 72 6f 74 6f 63 6f 6c 73 2e 22 20 63 6c 2d 73 74 72 75 63 74 75 72 65 2d 6f 62 6a	the.protocols.".cl-structure-obj
4360	65 63 74 20 6e 69 6c 20 28 28 63 6c 2d 74 61 67 2d 73 6c 6f 74 29 20 28 72 65 61 64 79 2d 73 74	ect.nil.((cl-tag-slot).(ready-st
4380	61 74 65 20 27 63 6f 6e 6e 65 63 74 69 6e 67 29 20 28 63 6c 69 65 6e 74 2d 64 61 74 61 29 20 28	ate.'connecting).(client-data).(
43a0	6f 6e 2d 6f 70 65 6e 29 20 28 6f 6e 2d 6d 65 73 73 61 67 65 29 20 28 6f 6e 2d 63 6c 6f 73 65 29	on-open).(on-message).(on-close)
43c0	20 28 6f 6e 2d 65 72 72 6f 72 29 20 28 6e 65 67 6f 74 69 61 74 65 64 2d 70 72 6f 74 6f 63 6f 6c	.(on-error).(negotiated-protocol
43e0	73 29 20 28 6e 65 67 6f 74 69 61 74 65 64 2d 65 78 74 65 6e 73 69 6f 6e 73 29 20 28 73 65 72 76	s).(negotiated-extensions).(serv
4400	65 72 2d 70 20 6e 69 6c 20 3a 72 65 61 64 2d 6f 6e 6c 79 20 74 29 20 28 75 72 6c 20 28 63 6c 2d	er-p.nil.:read-only.t).(url.(cl-
4420	61 73 73 65 72 74 20 6e 69 6c 29 20 3a 72 65 61 64 2d 6f 6e 6c 79 20 74 29 20 28 70 72 6f 74 6f	assert.nil).:read-only.t).(proto
4440	63 6f 6c 73 20 6e 69 6c 20 3a 72 65 61 64 2d 6f 6e 6c 79 20 74 29 20 28 65 78 74 65 6e 73 69 6f	cols.nil.:read-only.t).(extensio
4460	6e 73 20 6e 69 6c 20 3a 72 65 61 64 2d 6f 6e 6c 79 20 74 29 20 28 63 6f 6e 6e 20 28 63 6c 2d 61	ns.nil.:read-only.t).(conn.(cl-a
4480	73 73 65 72 74 20 6e 69 6c 29 20 3a 72 65 61 64 2d 6f 6e 6c 79 20 74 29 20 28 73 65 72 76 65 72	ssert.nil).:read-only.t).(server
44a0	2d 63 6f 6e 6e 29 20 28 61 63 63 65 70 74 2d 73 74 72 69 6e 67 29 20 28 69 6e 66 6c 69 67 68 74	-conn).(accept-string).(inflight
44c0	2d 69 6e 70 75 74 20 6e 69 6c 29 29 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74	-input.nil)).cl-struct-websocket
44e0	2d 74 61 67 73 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 20 74 5d 20 31 30 29	-tags.cl-struct-websocket.t].10)
4500	0a 23 40 35 30 20 56 65 72 73 69 6f 6e 20 6e 75 6d 62 65 72 73 20 6f 66 20 74 68 69 73 20 76 65	.#@50.Version.numbers.of.this.ve
4520	72 73 69 6f 6e 20 6f 66 20 77 65 62 73 6f 63 6b 65 74 2e 65 6c 2e 1f 0a 28 64 65 66 76 61 72 20	rsion.of.websocket.el...(defvar.
4540	77 65 62 73 6f 63 6b 65 74 2d 76 65 72 73 69 6f 6e 20 22 31 2e 39 22 20 28 23 24 20 2e 20 31 37	websocket-version."1.9".(#$...17
4560	36 37 30 29 29 0a 23 40 31 34 34 20 53 65 74 20 74 6f 20 74 72 75 65 20 74 6f 20 6f 75 74 70 75	670)).#@144.Set.to.true.to.outpu
4580	74 20 64 65 62 75 67 67 69 6e 67 20 69 6e 66 6f 20 74 6f 20 61 20 70 65 72 2d 77 65 62 73 6f 63	t.debugging.info.to.a.per-websoc
45a0	6b 65 74 20 62 75 66 66 65 72 2e 0a 54 68 65 20 62 75 66 66 65 72 20 69 73 20 60 20 2a 77 65 62	ket.buffer..The.buffer.is.`.*web
45c0	73 6f 63 6b 65 74 20 55 52 4c 20 64 65 62 75 67 2a 27 20 77 68 65 72 65 20 55 52 4c 20 69 73 20	socket.URL.debug*'.where.URL.is.
45e0	74 68 65 0a 55 52 4c 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 1f 0a 28 64 65 66	the.URL.of.the.connection...(def
4600	76 61 72 20 77 65 62 73 6f 63 6b 65 74 2d 64 65 62 75 67 20 6e 69 6c 20 28 23 24 20 2e 20 31 37	var.websocket-debug.nil.(#$...17
4620	37 37 32 29 29 0a 23 40 38 32 20 54 68 65 20 77 65 62 73 6f 63 6b 65 74 20 47 55 49 44 20 61 73	772)).#@82.The.websocket.GUID.as
4640	20 64 65 66 69 6e 65 64 20 69 6e 20 52 46 43 20 36 34 35 35 2e 0a 44 6f 20 6e 6f 74 20 63 68 61	.defined.in.RFC.6455..Do.not.cha
4660	6e 67 65 20 75 6e 6c 65 73 73 20 74 68 65 20 52 46 43 20 63 68 61 6e 67 65 73 2e 1f 0a 28 64 65	nge.unless.the.RFC.changes...(de
4680	66 63 6f 6e 73 74 20 77 65 62 73 6f 63 6b 65 74 2d 67 75 69 64 20 22 32 35 38 45 41 46 41 35 2d	fconst.websocket-guid."258EAFA5-
46a0	45 39 31 34 2d 34 37 44 41 2d 39 35 43 41 2d 43 35 41 42 30 44 43 38 35 42 31 31 22 20 28 23 24	E914-47DA-95CA-C5AB0DC85B11".(#$
46c0	20 2e 20 31 37 39 36 33 29 29 0a 23 40 32 35 37 20 49 66 20 74 72 75 65 2c 20 77 68 65 6e 20 61	...17963)).#@257.If.true,.when.a
46e0	6e 20 65 72 72 6f 72 20 68 61 70 70 65 6e 73 20 69 6e 20 61 20 63 6c 69 65 6e 74 20 63 61 6c 6c	n.error.happens.in.a.client.call
4700	62 61 63 6b 2c 20 69 6e 76 6f 6b 65 20 74 68 65 20 64 65 62 75 67 67 65 72 2e 0a 48 61 76 69 6e	back,.invoke.the.debugger..Havin
4720	67 20 74 68 69 73 20 6f 6e 20 63 61 6e 20 63 61 75 73 65 20 69 73 73 75 65 73 20 77 69 74 68 20	g.this.on.can.cause.issues.with.
4740	6d 69 73 73 69 6e 67 20 66 72 61 6d 65 73 20 69 66 20 74 68 65 20 64 65 62 75 67 67 65 72 20 69	missing.frames.if.the.debugger.i
4760	73 0a 65 78 69 74 65 64 20 62 79 20 71 75 69 74 74 69 6e 67 20 69 6e 73 74 65 61 64 20 6f 66 20	s.exited.by.quitting.instead.of.
4780	63 6f 6e 74 69 6e 75 69 6e 67 2c 20 73 6f 20 69 74 27 73 20 62 65 73 74 20 74 6f 20 68 61 76 65	continuing,.so.it's.best.to.have
47a0	20 74 68 69 73 20 73 65 74 0a 74 6f 20 6e 69 6c 20 75 6e 6c 65 73 73 20 69 74 20 69 73 20 65 73	.this.set.to.nil.unless.it.is.es
47c0	70 65 63 69 61 6c 6c 79 20 6e 65 65 64 65 64 2e 1f 0a 28 64 65 66 76 61 72 20 77 65 62 73 6f 63	pecially.needed...(defvar.websoc
47e0	6b 65 74 2d 63 61 6c 6c 62 61 63 6b 2d 64 65 62 75 67 2d 6f 6e 2d 65 72 72 6f 72 20 6e 69 6c 20	ket-callback-debug-on-error.nil.
4800	28 23 24 20 2e 20 31 38 31 32 39 29 29 0a 23 40 39 38 20 44 6f 63 75 6d 65 6e 74 20 46 55 4e 43	(#$...18129)).#@98.Document.FUNC
4820	54 49 4f 4e 20 77 69 74 68 20 44 4f 43 53 54 52 49 4e 47 2e 20 20 55 73 65 20 74 68 69 73 20 66	TION.with.DOCSTRING...Use.this.f
4840	6f 72 20 64 65 66 73 74 72 75 63 74 20 61 63 63 65 73 73 6f 72 20 65 74 63 2e 0a 0a 28 66 6e 20	or.defstruct.accessor.etc...(fn.
4860	46 55 4e 43 54 49 4f 4e 20 44 4f 43 53 54 52 49 4e 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	FUNCTION.DOCSTRING)..(defalias.'
4880	77 65 62 73 6f 63 6b 65 74 2d 64 6f 63 75 6d 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 27 28 6d 61	websocket-document-function.'(ma
48a0	63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 44 5c 33 30 32 03 46 5c 32 30	cro...#[514."\300\301.D\302.F\20
48c0	37 22 20 5b 70 75 74 20 71 75 6f 74 65 20 27 66 75 6e 63 74 69 6f 6e 2d 64 6f 63 75 6d 65 6e 74	7".[put.quote.'function-document
48e0	61 74 69 6f 6e 5d 20 36 20 28 23 24 20 2e 20 31 38 34 35 31 29 5d 29 29 0a 28 62 79 74 65 2d 63	ation].6.(#$...18451)])).(byte-c
4900	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 30 5c 33	ode."\300\301\302\303#\210\300\3
4920	30 31 5c 33 30 34 5c 33 30 35 23 5c 32 31 30 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 23	01\304\305#\210\306\307\310\311#
4940	5c 32 31 30 5c 33 30 36 5c 33 31 32 5c 33 31 30 5c 33 31 33 23 5c 32 31 30 5c 33 30 36 5c 33 31	\210\306\312\310\313#\210\306\31
4960	34 5c 33 31 30 5c 33 31 35 23 5c 32 31 30 5c 33 30 36 5c 33 31 36 5c 33 31 30 5c 33 31 37 23 5c	4\310\315#\210\306\316\310\317#\
4980	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 77 65 62 73 6f 63 6b 65 74 2d 64 6f 63	207".[function-put.websocket-doc
49a0	75 6d 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74	ument-function.lisp-indent-funct
49c0	69 6f 6e 20 64 65 66 75 6e 20 64 6f 63 2d 73 74 72 69 6e 67 2d 65 6c 74 20 32 20 70 75 74 20 77	ion.defun.doc-string-elt.2.put.w
49e0	65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 6f 70 65 6e 20 66 75 6e 63 74 69 6f 6e 2d 64 6f 63 75 6d 65	ebsocket-on-open.function-docume
4a00	6e 74 61 74 69 6f 6e 20 22 41 63 63 65 73 73 6f 72 20 66 6f 72 20 77 65 62 73 6f 63 6b 65 74 20	ntation."Accessor.for.websocket.
4a20	6f 6e 2d 6f 70 65 6e 20 63 61 6c 6c 62 61 63 6b 2e 5c 6e 53 65 65 20 60 77 65 62 73 6f 63 6b 65	on-open.callback.\nSee.`websocke
4a40	74 2d 6f 70 65 6e 27 20 66 6f 72 20 64 65 74 61 69 6c 73 2e 5c 6e 5c 6e 28 66 6e 20 57 45 42 53	t-open'.for.details.\n\n(fn.WEBS
4a60	4f 43 4b 45 54 29 22 20 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 6d 65 73 73 61 67 65 20 22 41 63	OCKET)".websocket-on-message."Ac
4a80	63 65 73 73 6f 72 20 66 6f 72 20 77 65 62 73 6f 63 6b 65 74 20 6f 6e 2d 6d 65 73 73 61 67 65 20	cessor.for.websocket.on-message.
4aa0	63 61 6c 6c 62 61 63 6b 2e 5c 6e 53 65 65 20 60 77 65 62 73 6f 63 6b 65 74 2d 6f 70 65 6e 27 20	callback.\nSee.`websocket-open'.
4ac0	66 6f 72 20 64 65 74 61 69 6c 73 2e 5c 6e 5c 6e 28 66 6e 20 57 45 42 53 4f 43 4b 45 54 29 22 20	for.details.\n\n(fn.WEBSOCKET)".
4ae0	77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 63 6c 6f 73 65 20 22 41 63 63 65 73 73 6f 72 20 66 6f 72	websocket-on-close."Accessor.for
4b00	20 77 65 62 73 6f 63 6b 65 74 20 6f 6e 2d 63 6c 6f 73 65 20 63 61 6c 6c 62 61 63 6b 2e 5c 6e 53	.websocket.on-close.callback.\nS
4b20	65 65 20 60 77 65 62 73 6f 63 6b 65 74 2d 6f 70 65 6e 27 20 66 6f 72 20 64 65 74 61 69 6c 73 2e	ee.`websocket-open'.for.details.
4b40	5c 6e 5c 6e 28 66 6e 20 57 45 42 53 4f 43 4b 45 54 29 22 20 77 65 62 73 6f 63 6b 65 74 2d 6f 6e	\n\n(fn.WEBSOCKET)".websocket-on
4b60	2d 65 72 72 6f 72 20 22 41 63 63 65 73 73 6f 72 20 66 6f 72 20 77 65 62 73 6f 63 6b 65 74 20 6f	-error."Accessor.for.websocket.o
4b80	6e 2d 65 72 72 6f 72 20 63 61 6c 6c 62 61 63 6b 2e 5c 6e 53 65 65 20 60 77 65 62 73 6f 63 6b 65	n-error.callback.\nSee.`websocke
4ba0	74 2d 6f 70 65 6e 27 20 66 6f 72 20 64 65 74 61 69 6c 73 2e 5c 6e 5c 6e 28 66 6e 20 57 45 42 53	t-open'.for.details.\n\n(fn.WEBS
4bc0	4f 43 4b 45 54 29 22 5d 20 34 29 0a 23 40 34 34 20 47 65 6e 65 72 61 74 65 20 4e 42 59 54 45 53	OCKET)"].4).#@44.Generate.NBYTES
4be0	20 72 61 6e 64 6f 6d 20 62 79 74 65 73 2e 0a 0a 28 66 6e 20 4e 42 59 54 45 53 29 1f 0a 28 64 65	.random.bytes...(fn.NBYTES)..(de
4c00	66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 67 65 6e 62 79 74 65 73 20 23 5b 32 35 37	falias.'websocket-genbytes.#[257
4c20	20 22 5c 33 30 30 01 5c 33 30 31 5c 22 01 5c 33 30 32 5c 32 31 31 02 57 5c 32 30 33 1c 00 5c 32	."\300.\301\".\302\211.W\203..\2
4c40	31 31 03 01 5c 33 30 33 5c 33 30 34 21 49 5c 32 36 36 02 5c 32 31 31 54 5c 32 36 32 01 5c 32 30	11..\303\304!I\266.\211T\262.\20
4c60	32 06 00 5c 32 36 36 02 5c 32 31 31 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 74 72 69 6e 67 20 33	2..\266.\211\207".[make-string.3
4c80	32 20 30 20 72 61 6e 64 6f 6d 20 32 35 36 5d 20 39 20 28 23 24 20 2e 20 31 39 34 30 39 29 5d 29	2.0.random.256].9.(#$...19409)])
4ca0	0a 23 40 32 31 31 20 49 6e 76 6f 6b 65 20 66 75 6e 63 74 69 6f 6e 20 57 45 42 53 4f 43 4b 45 54	.#@211.Invoke.function.WEBSOCKET
4cc0	2d 43 41 4c 4c 42 41 43 4b 20 77 69 74 68 20 57 45 42 53 4f 43 4b 45 54 20 61 6e 64 20 52 45 53	-CALLBACK.with.WEBSOCKET.and.RES
4ce0	54 20 61 72 67 73 2e 0a 49 66 20 61 6e 20 65 72 72 6f 72 20 68 61 70 70 65 6e 73 2c 20 69 74 20	T.args..If.an.error.happens,.it.
4d00	69 73 20 68 61 6e 64 6c 65 64 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 0a 60 77 65 62 73 6f 63 6b	is.handled.according.to.`websock
4d20	65 74 2d 63 61 6c 6c 62 61 63 6b 2d 64 65 62 75 67 2d 6f 6e 2d 65 72 72 6f 72 27 2e 0a 0a 28 66	et-callback-debug-on-error'...(f
4d40	6e 20 57 45 42 53 4f 43 4b 45 54 2d 43 41 4c 4c 42 41 43 4b 20 43 41 4c 4c 42 41 43 4b 2d 54 59	n.WEBSOCKET-CALLBACK.CALLBACK-TY
4d60	50 45 20 57 45 42 53 4f 43 4b 45 54 20 26 72 65 73 74 20 52 45 53 54 29 1f 0a 28 64 65 66 61 6c	PE.WEBSOCKET.&rest.REST)..(defal
4d80	69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 74 72 79 2d 63 61 6c 6c 62 61 63 6b 20 23 5b 38 39	ias.'websocket-try-callback.#[89
4da0	39 20 22 5c 32 31 31 08 19 02 01 42 5c 32 36 32 01 08 5c 32 30 33 37 00 5c 33 30 33 31 1a 00 5c	9."\211....B\262..\2037.\3031..\
4dc0	33 30 34 05 04 21 02 5c 22 30 5c 32 30 32 5f 00 03 5c 33 30 35 48 5c 6e 3e 5c 32 30 34 2a 00 5c	304..!.\"0\202_..\305H\n>\204*.\
4de0	33 30 36 5c 33 30 37 5c 33 31 30 06 06 44 5c 22 5c 32 31 30 03 5c 33 31 31 48 04 06 06 03 23 5c	306\307\310..D\"\210.\311H....#\
4e00	32 36 32 01 5c 32 30 32 5f 00 5c 33 31 32 31 45 00 5c 33 30 34 05 04 21 02 5c 22 30 5c 32 30 32	262.\202_.\3121E.\304..!.\"0\202
4e20	5f 00 03 5c 33 30 35 48 5c 6e 3e 5c 32 30 34 55 00 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 06 44	_..\305H\n>\204U.\306\307\310..D
4e40	5c 22 5c 32 31 30 03 5c 33 31 31 48 04 06 06 03 23 5c 32 36 32 01 29 5c 32 30 37 22 20 5b 77 65	\"\210.\311H....#\262.)\207".[we
4e60	62 73 6f 63 6b 65 74 2d 63 61 6c 6c 62 61 63 6b 2d 64 65 62 75 67 2d 6f 6e 2d 65 72 72 6f 72 20	bsocket-callback-debug-on-error.
4e80	64 65 62 75 67 2d 6f 6e 2d 65 72 72 6f 72 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b	debug-on-error.cl-struct-websock
4ea0	65 74 2d 74 61 67 73 20 28 64 65 62 75 67 20 65 72 72 6f 72 29 20 61 70 70 6c 79 20 30 20 73 69	et-tags.(debug.error).apply.0.si
4ec0	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 77 65 62 73 6f 63 6b	gnal.wrong-type-argument.websock
4ee0	65 74 20 36 20 28 65 72 72 6f 72 29 5d 20 31 30 20 28 23 24 20 2e 20 31 39 36 32 33 29 5d 29 0a	et.6.(error)].10.(#$...19623)]).
4f00	23 40 35 34 20 47 65 6e 65 72 61 74 65 20 61 20 6b 65 79 20 73 75 69 74 61 62 6c 65 20 66 6f 72	#@54.Generate.a.key.suitable.for
4f20	20 74 68 65 20 77 65 62 73 6f 63 6b 65 74 20 68 61 6e 64 73 68 61 6b 65 2e 1f 0a 28 64 65 66 61	.the.websocket.handshake...(defa
4f40	6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 67 65 6e 6b 65 79 20 23 5b 30 20 22 5c 33 30 30	lias.'websocket-genkey.#[0."\300
4f60	5c 33 30 31 5c 33 30 32 21 21 5c 32 30 37 22 20 5b 62 61 73 65 36 34 2d 65 6e 63 6f 64 65 2d 73	\301\302!!\207".[base64-encode-s
4f80	74 72 69 6e 67 20 77 65 62 73 6f 63 6b 65 74 2d 67 65 6e 62 79 74 65 73 20 31 36 5d 20 33 20 28	tring.websocket-genbytes.16].3.(
4fa0	23 24 20 2e 20 32 30 32 32 39 29 5d 29 0a 23 40 31 32 30 20 43 61 6c 63 75 6c 61 74 65 20 74 68	#$...20229)]).#@120.Calculate.th
4fc0	65 20 65 78 70 65 63 74 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 61 63 63 65 70 74 20 68 65 61	e.expect.value.of.the.accept.hea
4fe0	64 65 72 2e 0a 54 68 69 73 20 69 73 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 4b 45 59 20 66 72	der..This.is.based.on.the.KEY.fr
5000	6f 6d 20 74 68 65 20 53 65 63 2d 57 65 62 53 6f 63 6b 65 74 2d 4b 65 79 20 68 65 61 64 65 72 2e	om.the.Sec-WebSocket-Key.header.
5020	0a 0a 28 66 6e 20 4b 45 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74	..(fn.KEY)..(defalias.'websocket
5040	2d 63 61 6c 63 75 6c 61 74 65 2d 61 63 63 65 70 74 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30	-calculate-accept.#[257."\301\30
5060	32 02 08 50 5c 33 30 33 5c 32 31 31 5c 33 30 34 24 21 5c 32 30 37 22 20 5b 77 65 62 73 6f 63 6b	2..P\303\211\304$!\207".[websock
5080	65 74 2d 67 75 69 64 20 62 61 73 65 36 34 2d 65 6e 63 6f 64 65 2d 73 74 72 69 6e 67 20 73 68 61	et-guid.base64-encode-string.sha
50a0	31 20 6e 69 6c 20 74 5d 20 37 20 28 23 24 20 2e 20 32 30 34 30 34 29 5d 29 0a 23 40 32 32 38 20	1.nil.t].7.(#$...20404)]).#@228.
50c0	46 72 6f 6d 20 73 74 72 69 6e 67 20 53 2c 20 72 65 74 72 69 65 76 65 20 74 68 65 20 76 61 6c 75	From.string.S,.retrieve.the.valu
50e0	65 20 6f 66 20 4e 20 62 79 74 65 73 2e 0a 52 65 74 75 72 6e 20 74 68 65 20 76 61 6c 75 65 20 61	e.of.N.bytes..Return.the.value.a
5100	73 20 61 6e 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 65 67 65 72 2e 20 20 54 68 65 20 76 61 6c 75	s.an.unsigned.integer...The.valu
5120	65 20 4e 20 6d 75 73 74 20 62 65 20 61 0a 70 6f 77 65 72 20 6f 66 20 32 2c 20 75 70 20 74 6f 20	e.N.must.be.a.power.of.2,.up.to.
5140	38 2e 0a 0a 57 65 20 73 75 70 70 6f 72 74 20 67 65 74 74 69 6e 67 20 66 72 61 6d 65 73 20 75 70	8...We.support.getting.frames.up
5160	20 74 6f 20 35 33 36 38 37 30 39 31 31 20 62 79 74 65 73 20 28 32 5e 32 39 20 2d 20 31 29 2c 0a	.to.536870911.bytes.(2^29.-.1),.
5180	61 70 70 72 6f 78 69 6d 61 74 65 6c 79 20 35 33 37 4d 20 6c 6f 6e 67 2e 0a 0a 28 66 6e 20 53 20	approximately.537M.long...(fn.S.
51a0	4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 67 65 74 2d 62 79 74	N)..(defalias.'websocket-get-byt
51c0	65 73 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30 55 5c 32 30 33 34 00 5c 33 30 31 5c 33 30	es.#[514."\211\300U\2034.\301\30
51e0	32 5c 33 30 33 04 5c 22 5c 33 30 34 5c 22 5c 33 30 35 5c 33 30 36 02 5c 33 30 37 48 5c 33 31 30	2\303.\"\304\"\305\306.\307H\310
5200	5c 22 02 5c 33 31 31 48 5c 22 01 5c 33 30 37 48 5c 33 30 37 55 5c 32 30 33 2f 00 5c 33 30 36 02	\".\311H\".\307H\307U\203/.\306.
5220	5c 33 31 31 48 5c 33 31 32 5c 22 5c 33 30 37 55 5c 32 30 33 2f 00 5c 32 31 31 5c 32 30 32 33 00	\311H\312\"\307U\203/.\211\2023.
5240	5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 22 5c 32 30 37 5c 33 30 31 5c 33 31 36 31 65 00 5c 33 30	\313\314\315\"\207\301\3161e.\30
5260	32 5c 33 30 34 03 5c 33 31 31 55 5c 32 30 33 45 00 5c 33 31 37 5c 32 30 32 5d 00 03 5c 33 32 30	2\304.\311U\203E.\317\202]..\320
5280	55 5c 32 30 33 4f 00 5c 33 32 31 5c 32 30 32 5d 00 03 5c 33 32 32 55 5c 32 30 33 59 00 5c 33 32	U\203O.\321\202]..\322U\203Y.\32
52a0	33 5c 32 30 32 5d 00 5c 33 32 34 5c 33 32 35 05 5c 22 44 43 04 5c 22 30 5c 32 30 32 6f 00 5c 33	3\202].\324\325.\"DC.\"0\202o.\3
52c0	31 33 5c 33 31 34 5c 33 32 36 5c 33 32 37 06 07 5c 22 5c 22 5c 32 36 32 01 5c 33 30 34 5c 22 5c	13\314\326\327..\"\"\262.\304\"\
52e0	32 30 37 22 20 5b 38 20 62 69 6e 64 61 74 2d 67 65 74 2d 66 69 65 6c 64 20 62 69 6e 64 61 74 2d	207".[8.bindat-get-field.bindat-
5300	75 6e 70 61 63 6b 20 28 28 3a 76 61 6c 20 76 65 63 20 32 20 75 33 32 29 29 20 3a 76 61 6c 20 6c	unpack.((:val.vec.2.u32)).:val.l
5320	6f 67 69 6f 72 20 6c 73 68 20 30 20 33 32 20 31 20 2d 32 39 20 73 69 67 6e 61 6c 20 77 65 62 73	ogior.lsh.0.32.1.-29.signal.webs
5340	6f 63 6b 65 74 2d 75 6e 70 61 72 73 65 61 62 6c 65 2d 66 72 61 6d 65 20 22 46 72 61 6d 65 20 76	ocket-unparseable-frame."Frame.v
5360	61 6c 75 65 20 66 6f 75 6e 64 20 74 6f 6f 20 6c 61 72 67 65 20 74 6f 20 70 61 72 73 65 21 22 20	alue.found.too.large.to.parse!".
5380	28 61 72 67 73 2d 6f 75 74 2d 6f 66 2d 72 61 6e 67 65 29 20 75 38 20 32 20 75 31 36 20 34 20 75	(args-out-of-range).u8.2.u16.4.u
53a0	33 32 20 65 72 72 6f 72 20 22 77 65 62 73 6f 63 6b 65 74 2d 67 65 74 2d 62 79 74 65 73 3a 20 55	32.error."websocket-get-bytes:.U
53c0	6e 6b 6e 6f 77 6e 20 4e 3a 20 25 53 22 20 66 6f 72 6d 61 74 20 22 46 72 61 6d 65 20 75 6e 65 78	nknown.N:.%S".format."Frame.unex
53e0	70 65 63 74 65 64 6c 79 20 73 68 6f 72 74 6c 79 3a 20 25 73 22 5d 20 39 20 28 23 24 20 2e 20 32	pectedly.shortly:.%s"].9.(#$...2
5400	30 36 37 32 29 5d 29 0a 23 40 31 38 38 20 45 6e 63 6f 64 65 20 74 68 65 20 69 6e 74 65 67 65 72	0672)]).#@188.Encode.the.integer
5420	20 56 41 4c 20 69 6e 20 4e 42 59 54 45 53 20 6f 66 20 64 61 74 61 2e 0a 4e 42 59 54 45 53 20 6d	.VAL.in.NBYTES.of.data..NBYTES.m
5440	75 63 68 20 62 65 20 61 20 70 6f 77 65 72 20 6f 66 20 32 2c 20 75 70 20 74 6f 20 38 2e 0a 0a 54	uch.be.a.power.of.2,.up.to.8...T
5460	68 69 73 20 73 75 70 70 6f 72 74 73 20 65 6e 63 6f 64 69 6e 67 20 76 61 6c 75 65 73 20 75 70 20	his.supports.encoding.values.up.
5480	74 6f 20 35 33 36 38 37 30 39 31 31 20 62 79 74 65 73 20 28 32 5e 32 39 20 2d 20 31 29 2c 0a 61	to.536870911.bytes.(2^29.-.1),.a
54a0	70 70 72 6f 78 69 6d 61 74 65 6c 79 20 35 33 37 4d 20 6c 6f 6e 67 2e 0a 0a 28 66 6e 20 56 41 4c	pproximately.537M.long...(fn.VAL
54c0	20 4e 42 59 54 45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 74	.NBYTES)..(defalias.'websocket-t
54e0	6f 2d 62 79 74 65 73 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30 57 5c 32 30 33 17 00 01 5c	o-bytes.#[514."\211\300W\203...\
5500	33 30 31 5c 33 30 32 03 5c 33 30 30 5f 5c 22 56 5c 32 30 33 17 00 5c 33 30 33 5c 33 30 34 03 03	301\302.\300_\"V\203..\303\304..
5520	23 5c 32 31 30 5c 32 31 31 5c 33 30 30 55 5c 32 30 33 46 00 5c 33 30 35 02 5c 33 30 36 5c 22 02	#\210\211\300U\203F.\305.\306\".
5540	5c 33 30 35 02 5c 33 30 37 5c 22 5a 01 5c 33 31 30 56 5c 32 30 34 36 00 5c 33 30 35 01 5c 33 31	\305.\307\"Z.\310V\2046.\305.\31
5560	31 5c 22 5c 33 31 30 56 5c 32 30 33 3b 00 5c 33 31 32 5c 33 31 33 05 5c 22 5c 32 31 30 5c 33 31	1\"\310V\203;.\312\313.\"\210\31
5580	34 5c 33 31 35 5c 33 31 36 5c 33 31 37 05 05 5c 22 42 43 5c 22 5c 32 30 37 5c 33 31 34 5c 33 31	4\315\316\317..\"BC\"\207\314\31
55a0	36 02 5c 33 32 30 55 5c 32 30 33 52 00 5c 33 32 31 5c 32 30 32 6a 00 02 5c 33 30 32 55 5c 32 30	6.\320U\203R.\321\202j..\302U\20
55c0	33 5c 5c 00 5c 33 32 32 5c 32 30 32 6a 00 02 5c 33 32 33 55 5c 32 30 33 66 00 5c 33 32 34 5c 32	3\\.\322\202j..\323U\203f.\324\2
55e0	30 32 6a 00 5c 33 30 33 5c 33 32 35 04 5c 22 44 43 5c 33 31 36 04 42 43 5c 22 5c 32 30 37 22 20	02j.\303\325.\"DC\316.BC\"\207".
5600	5b 38 20 65 78 70 74 20 32 20 65 72 72 6f 72 20 22 77 65 62 73 6f 63 6b 65 74 2d 74 6f 2d 62 79	[8.expt.2.error."websocket-to-by
5620	74 65 73 3a 20 56 61 6c 75 65 20 25 64 20 63 6f 75 6c 64 20 6e 6f 74 20 62 65 20 65 78 70 72 65	tes:.Value.%d.could.not.be.expre
5640	73 73 65 64 20 69 6e 20 25 64 20 62 79 74 65 73 22 20 6c 73 68 20 2d 33 32 20 33 32 20 30 20 2d	ssed.in.%d.bytes".lsh.-32.32.0.-
5660	32 39 20 73 69 67 6e 61 6c 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 74 6f 6f 2d 6c 61	29.signal.websocket-frame-too-la
5680	72 67 65 20 62 69 6e 64 61 74 2d 70 61 63 6b 20 28 28 3a 76 61 6c 20 76 65 63 20 32 20 75 33 32	rge.bindat-pack.((:val.vec.2.u32
56a0	29 29 20 3a 76 61 6c 20 76 65 63 74 6f 72 20 31 20 75 38 20 75 31 36 20 34 20 75 33 32 20 22 77	)).:val.vector.1.u8.u16.4.u32."w
56c0	65 62 73 6f 63 6b 65 74 2d 74 6f 2d 62 79 74 65 73 3a 20 55 6e 6b 6e 6f 77 6e 20 4e 42 59 54 45	ebsocket-to-bytes:.Unknown.NBYTE
56e0	53 3a 20 25 53 22 5d 20 31 30 20 28 23 24 20 2e 20 32 31 35 31 38 29 5d 29 0a 23 40 35 38 20 52	S:.%S"].10.(#$...21518)]).#@58.R
5700	65 74 72 69 65 76 65 20 74 68 65 20 6f 70 63 6f 64 65 20 66 72 6f 6d 20 66 69 72 73 74 20 62 79	etrieve.the.opcode.from.first.by
5720	74 65 20 6f 66 20 73 74 72 69 6e 67 20 53 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 64 65 66 61 6c 69	te.of.string.S...(fn.S)..(defali
5740	61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 67 65 74 2d 6f 70 63 6f 64 65 20 23 5b 32 35 37 20 22	as.'websocket-get-opcode.#[257."
5760	5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 31 30 5c 33 30 32 5c 33 30 33 02 5c 33 30 31 5c 22 5c 33	\300.\301\"\210\302\303.\301\"\3
5780	30 34 5c 22 5c 32 31 31 5c 33 30 35 55 5c 32 30 33 16 00 5c 33 30 36 5c 32 30 32 45 00 5c 32 31	04\"\211\305U\203..\306\202E.\21
57a0	31 5c 33 30 31 55 5c 32 30 33 20 00 5c 33 30 37 5c 32 30 32 45 00 5c 32 31 31 5c 33 31 30 55 5c	1\301U\203..\307\202E.\211\310U\
57c0	32 30 33 2a 00 5c 33 31 31 5c 32 30 32 45 00 5c 32 31 31 5c 33 31 32 55 5c 32 30 33 34 00 5c 33	203*.\311\202E.\211\312U\2034.\3
57e0	31 33 5c 32 30 32 45 00 5c 32 31 31 5c 33 31 34 55 5c 32 30 33 3e 00 5c 33 31 35 5c 32 30 32 45	13\202E.\211\314U\203>.\315\202E
5800	00 5c 32 31 31 5c 33 31 36 55 5c 32 30 35 45 00 5c 33 31 37 5c 32 30 37 22 20 5b 77 65 62 73 6f	.\211\316U\205E.\317\207".[webso
5820	63 6b 65 74 2d 65 6e 73 75 72 65 2d 6c 65 6e 67 74 68 20 31 20 6c 6f 67 61 6e 64 20 77 65 62 73	cket-ensure-length.1.logand.webs
5840	6f 63 6b 65 74 2d 67 65 74 2d 62 79 74 65 73 20 31 35 20 30 20 63 6f 6e 74 69 6e 75 61 74 69 6f	ocket-get-bytes.15.0.continuatio
5860	6e 20 74 65 78 74 20 32 20 62 69 6e 61 72 79 20 38 20 63 6c 6f 73 65 20 39 20 70 69 6e 67 20 31	n.text.2.binary.8.close.9.ping.1
5880	30 20 70 6f 6e 67 5d 20 35 20 28 23 24 20 2e 20 32 32 32 37 31 29 5d 29 0a 23 40 31 37 31 20 50	0.pong].5.(#$...22271)]).#@171.P
58a0	61 72 73 65 20 6f 75 74 20 74 68 65 20 70 61 79 6c 6f 61 64 20 6c 65 6e 67 74 68 20 66 72 6f 6d	arse.out.the.payload.length.from
58c0	20 74 68 65 20 73 74 72 69 6e 67 20 53 2e 0a 57 65 20 73 74 61 72 74 20 61 74 20 70 6f 73 69 74	.the.string.S..We.start.at.posit
58e0	69 6f 6e 20 30 2c 20 61 6e 64 20 72 65 74 75 72 6e 20 61 20 63 6f 6e 73 20 6f 66 20 74 68 65 20	ion.0,.and.return.a.cons.of.the.
5900	70 61 79 6c 6f 61 64 20 6c 65 6e 67 74 68 20 61 6e 64 20 68 6f 77 0a 6d 61 6e 79 20 62 79 74 65	payload.length.and.how.many.byte
5920	73 20 77 65 72 65 20 63 6f 6e 73 75 6d 65 64 20 66 72 6f 6d 20 74 68 65 20 73 74 72 69 6e 67 2e	s.were.consumed.from.the.string.
5940	0a 0a 28 66 6e 20 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 67	..(fn.S)..(defalias.'websocket-g
5960	65 74 2d 70 61 79 6c 6f 61 64 2d 6c 65 6e 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c	et-payload-len.#[257."\300.\301\
5980	22 5c 32 31 30 5c 33 30 32 5c 33 30 33 02 5c 33 30 31 5c 22 5c 33 30 34 5c 22 5c 32 31 31 5c 33	"\210\302\303.\301\"\304\"\211\3
59a0	30 34 55 5c 32 30 33 23 00 5c 33 30 30 02 5c 33 30 35 5c 22 5c 32 31 30 5c 33 30 33 02 5c 33 30	04U\203#.\300.\305\"\210\303.\30
59c0	31 5c 33 30 36 4f 5c 33 30 37 5c 22 5c 33 30 35 42 5c 32 30 32 3d 00 5c 32 31 31 5c 33 31 30 55	1\306O\307\"\305B\202=.\211\310U
59e0	5c 32 30 33 3a 00 5c 33 30 30 02 5c 33 31 31 5c 22 5c 32 31 30 5c 33 30 33 02 5c 33 30 31 5c 33	\203:.\300.\311\"\210\303.\301\3
5a00	30 36 4f 5c 33 31 32 5c 22 5c 33 31 31 42 5c 32 30 32 3d 00 5c 32 31 31 5c 33 30 31 42 5c 32 30	06O\312\"\311B\202=.\211\301B\20
5a20	37 22 20 5b 77 65 62 73 6f 63 6b 65 74 2d 65 6e 73 75 72 65 2d 6c 65 6e 67 74 68 20 31 20 6c 6f	7".[websocket-ensure-length.1.lo
5a40	67 61 6e 64 20 77 65 62 73 6f 63 6b 65 74 2d 67 65 74 2d 62 79 74 65 73 20 31 32 37 20 39 20 6e	gand.websocket-get-bytes.127.9.n
5a60	69 6c 20 38 20 31 32 36 20 33 20 32 5d 20 36 20 28 23 24 20 2e 20 32 32 36 38 37 29 5d 29 0a 28	il.8.126.3.2].6.(#$...22687)]).(
5a80	64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 70 2d 2d 63 6d 61	defalias.'websocket-frame-p--cma
5aa0	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\
5ac0	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
5ae0	64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61	d.(cl-x).(cl-block.websocket-fra
5b00	6d 65 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 72 65 65 20	me-p.(declare.(side-effect-free.
5b20	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 6c 2d 78 29	error-free)).(and.(vectorp.cl-x)
5b40	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 28 61 72 65	.(>=.(length.cl-x).5).(memq.(are
5b60	66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72	f.cl-x.0).cl-struct-websocket-fr
5b80	61 6d 65 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 6e 20 43 4c	ame-tags).t)).nil].9."\n\n(fn.CL
5ba0	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 77 65 62 73 6f 63	-WHOLE-ARG.CL-X)"]).(put.'websoc
5bc0	6b 65 74 2d 66 72 61 6d 65 2d 70 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 77 65 62	ket-frame-p.'compiler-macro.'web
5be0	73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 70 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61	socket-frame-p--cmacro).(defalia
5c00	73 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 70 20 23 5b 32 35 37 20 22 5c 33 30 31	s.'websocket-frame-p.#[257."\301
5c20	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 5c 33 30 33	.!\205..\211G\302Y\205..\211\303
5c40	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 74 2d 77 65	H.>\205..\304\207".[cl-struct-we
5c60	62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 74 61 67 73 20 76 65 63 74 6f 72 70 20 35 20 30 20 74	bsocket-frame-tags.vectorp.5.0.t
5c80	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 63 6f 64 65	].3."\n\n(fn.CL-X)"]).(byte-code
5ca0	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 33 30 35 5c	."\300\301\302\303#\210\304\305\
5cc0	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 77 65 62 73	306\301#\207".[function-put.webs
5ce0	6f 63 6b 65 74 2d 66 72 61 6d 65 2d 70 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 65	ocket-frame-p.side-effect-free.e
5d00	72 72 6f 72 2d 66 72 65 65 20 70 75 74 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 63 6c	rror-free.put.websocket-frame.cl
5d20	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 6c 69 61 73	-deftype-satisfies].4).(defalias
5d40	20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 6f 70 63 6f 64 65 2d 2d 63 6d 61 63 72 6f	.'websocket-frame-opcode--cmacro
5d60	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 31 31	.#[514."\300\301\302\303\211\211
5d80	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 20 28	..&.\207".[cl--defsubst-expand.(
5da0	63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d	cl-x).(cl-block.websocket-frame-
5dc0	6f 70 63 6f 64 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 72 65	opcode.(declare.(side-effect-fre
5de0	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 78 20	e.t)).(or.(and.(memq.(aref.cl-x.
5e00	30 29 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 74 61 67	0).cl-struct-websocket-frame-tag
5e20	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 6e 74	s)).(signal.'wrong-type-argument
5e40	20 28 6c 69 73 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 63 6c 2d 78 29 29 29 20	.(list.'websocket-frame.cl-x))).
5e60	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 20 43	(aref.cl-x.1)).nil].9."\n\n(fn.C
5e80	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 77 65 62 73 6f	L-WHOLE-ARG.CL-X)"]).(put.'webso
5ea0	63 6b 65 74 2d 66 72 61 6d 65 2d 6f 70 63 6f 64 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72	cket-frame-opcode.'compiler-macr
5ec0	6f 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 6f 70 63 6f 64 65 2d 2d 63 6d 61 63 72	o.'websocket-frame-opcode--cmacr
5ee0	6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 6f 70	o).(defalias.'websocket-frame-op
5f00	63 6f 64 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	code.#[257."\211\301H.>\204..\30
5f20	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 30 37 22 20	2\303\304.D\"\210\211\305H\207".
5f40	5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 74 61 67 73 20	[cl-struct-websocket-frame-tags.
5f60	30 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 77 65 62	0.signal.wrong-type-argument.web
5f80	73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 31 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29	socket-frame.1].5."\n\n(fn.CL-X)
5fa0	22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61	"]).(function-put.'websocket-fra
5fc0	6d 65 2d 6f 70 63 6f 64 65 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 28	me-opcode.'side-effect-free.t).(
5fe0	64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 70 61 79 6c 6f 61	defalias.'websocket-frame-payloa
6000	64 2d 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	d--cmacro.#[514."\300\301\302\30
6020	33 5c 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	3\211\211..&.\207".[cl--defsubst
6040	2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b	-expand.(cl-x).(cl-block.websock
6060	65 74 2d 66 72 61 6d 65 2d 70 61 79 6c 6f 61 64 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d	et-frame-payload.(declare.(side-
6080	65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 20 28 6d 65 6d 71 20 28	effect-free.t)).(or.(and.(memq.(
60a0	61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74	aref.cl-x.0).cl-struct-websocket
60c0	2d 66 72 61 6d 65 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70	-frame-tags)).(signal.'wrong-typ
60e0	65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d	e-argument.(list.'websocket-fram
6100	65 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 32 29 29 20 6e 69 6c 5d 20 39 20	e.cl-x))).(aref.cl-x.2)).nil].9.
6120	22 5c 6e 5c 6e 28 66 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	"\n\n(fn.CL-WHOLE-ARG.CL-X)"]).(
6140	70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 70 61 79 6c 6f 61 64 20 27 63 6f	put.'websocket-frame-payload.'co
6160	6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 70 61	mpiler-macro.'websocket-frame-pa
6180	79 6c 6f 61 64 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63	yload--cmacro).(defalias.'websoc
61a0	6b 65 74 2d 66 72 61 6d 65 2d 70 61 79 6c 6f 61 64 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30	ket-frame-payload.#[257."\211\30
61c0	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 32 31 30 5c 32	1H.>\204..\302\303\304.D\"\210\2
61e0	31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65	11\305H\207".[cl-struct-websocke
6200	74 2d 66 72 61 6d 65 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	t-frame-tags.0.signal.wrong-type
6220	2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 32 5d 20 35 20 22	-argument.websocket-frame.2].5."
6240	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 70 75 74 20 27	\n\n(fn.CL-X)"]).(function-put.'
6260	77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 70 61 79 6c 6f 61 64 20 27 73 69 64 65 2d 65 66	websocket-frame-payload.'side-ef
6280	66 65 63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65	fect-free.t).(defalias.'websocke
62a0	74 2d 66 72 61 6d 65 2d 6c 65 6e 67 74 68 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33	t-frame-length--cmacro.#[514."\3
62c0	30 30 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	00\301\302\303\211\211..&.\207".
62e0	5b 63 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	[cl--defsubst-expand.(cl-x).(cl-
6300	62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 6c 65 6e 67 74 68 20 28 64 65	block.websocket-frame-length.(de
6320	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.
6340	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
6360	63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61	ct-websocket-frame-tags)).(signa
6380	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 77 65	l.'wrong-type-argument.(list.'we
63a0	62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78	bsocket-frame.cl-x))).(aref.cl-x
63c0	20 33 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	.3)).nil].9."\n\n(fn.CL-WHOLE-AR
63e0	47 20 43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65	G.CL-X)"]).(put.'websocket-frame
6400	2d 6c 65 6e 67 74 68 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 77 65 62 73 6f 63 6b	-length.'compiler-macro.'websock
6420	65 74 2d 66 72 61 6d 65 2d 6c 65 6e 67 74 68 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69	et-frame-length--cmacro).(defali
6440	61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 6c 65 6e 67 74 68 20 23 5b 32 35 37	as.'websocket-frame-length.#[257
6460	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 33 5c 33 30 34 03	."\211\301H.>\204..\302\303\304.
6480	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 73 74 72 75 63 74	D\"\210\211\305H\207".[cl-struct
64a0	2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77	-websocket-frame-tags.0.signal.w
64c0	72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61	rong-type-argument.websocket-fra
64e0	6d 65 20 33 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	me.3].5."\n\n(fn.CL-X)"]).(funct
6500	69 6f 6e 2d 70 75 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 6c 65 6e 67 74 68 20	ion-put.'websocket-frame-length.
6520	27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27	'side-effect-free.t).(defalias.'
6540	77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 63 6f 6d 70 6c 65 74 65 70 2d 2d 63 6d 61 63 72	websocket-frame-completep--cmacr
6560	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 31	o.#[514."\300\301\302\303\211\21
6580	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 20	1..&.\207".[cl--defsubst-expand.
65a0	28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65	(cl-x).(cl-block.websocket-frame
65c0	2d 63 6f 6d 70 6c 65 74 65 70 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74	-completep.(declare.(side-effect
65e0	2d 66 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	-free.t)).(or.(and.(memq.(aref.c
6600	6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65	l-x.0).cl-struct-websocket-frame
6620	2d 74 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	-tags)).(signal.'wrong-type-argu
6640	6d 65 6e 74 20 28 6c 69 73 74 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 63 6c 2d 78	ment.(list.'websocket-frame.cl-x
6660	29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 34 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28	))).(aref.cl-x.4)).nil].9."\n\n(
6680	66 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 77	fn.CL-WHOLE-ARG.CL-X)"]).(put.'w
66a0	65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 63 6f 6d 70 6c 65 74 65 70 20 27 63 6f 6d 70 69 6c	ebsocket-frame-completep.'compil
66c0	65 72 2d 6d 61 63 72 6f 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 63 6f 6d 70 6c 65	er-macro.'websocket-frame-comple
66e0	74 65 70 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65	tep--cmacro).(defalias.'websocke
6700	74 2d 66 72 61 6d 65 2d 63 6f 6d 70 6c 65 74 65 70 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30	t-frame-completep.#[257."\211\30
6720	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 32 31 30 5c 32	1H.>\204..\302\303\304.D\"\210\2
6740	31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65	11\305H\207".[cl-struct-websocke
6760	74 2d 66 72 61 6d 65 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	t-frame-tags.0.signal.wrong-type
6780	2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 34 5d 20 35 20 22	-argument.websocket-frame.4].5."
67a0	5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	\n\n(fn.CL-X)"]).(byte-code."\30
67c0	30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 22	0\301\302\303#\210\304\305\306\"
67e0	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 77 65 62 73 6f 63 6b 65 74 2d 66 72	\207".[function-put.websocket-fr
6800	61 6d 65 2d 63 6f 6d 70 6c 65 74 65 70 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74	ame-completep.side-effect-free.t
6820	20 64 65 66 61 6c 69 61 73 20 63 6f 70 79 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 63	.defalias.copy-websocket-frame.c
6840	6f 70 79 2d 73 65 71 75 65 6e 63 65 5d 20 34 29 0a 23 40 36 34 20 0a 0a 28 66 6e 20 43 4c 2d 57	opy-sequence].4).#@64...(fn.CL-W
6860	48 4f 4c 45 20 26 63 6c 2d 71 75 6f 74 65 20 26 6b 65 79 20 4f 50 43 4f 44 45 20 50 41 59 4c 4f	HOLE.&cl-quote.&key.OPCODE.PAYLO
6880	41 44 20 4c 45 4e 47 54 48 20 43 4f 4d 50 4c 45 54 45 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	AD.LENGTH.COMPLETEP)..(defalias.
68a0	27 6d 61 6b 65 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 2d 63 6d 61 63 72 6f 20 23 5b	'make-websocket-frame--cmacro.#[
68c0	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 5c 22 41 40 5c	385."\300.\301\"A@\300.\302\"A@\
68e0	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 32 31 31 5c 32	300.\303\"A@\300.\304\"A@.\211\2
6900	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 32 36 32 01 5c	03D.\211@\305>\203,.\211AA\262.\
6920	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 32 01 5c 32 30	202..\306..>A@\203;.\307\262.\20
6940	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 31 30 5c 33 31	2..\310\311.@\"\210\202..\210\31
6960	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 26 09 5c 32 30	2\313\314\307..\307........&.\20
6980	37 22 20 5b 70 6c 69 73 74 2d 6d 65 6d 62 65 72 20 3a 6f 70 63 6f 64 65 20 3a 70 61 79 6c 6f 61	7".[plist-member.:opcode.:payloa
69a0	64 20 3a 6c 65 6e 67 74 68 20 3a 63 6f 6d 70 6c 65 74 65 70 20 28 3a 6f 70 63 6f 64 65 20 3a 70	d.:length.:completep.(:opcode.:p
69c0	61 79 6c 6f 61 64 20 3a 6c 65 6e 67 74 68 20 3a 63 6f 6d 70 6c 65 74 65 70 20 3a 61 6c 6c 6f 77	ayload.:length.:completep.:allow
69e0	2d 6f 74 68 65 72 2d 6b 65 79 73 29 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 6e	-other-keys).:allow-other-keys.n
6a00	69 6c 20 65 72 72 6f 72 20 22 4b 65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 20 25 73 20 6e 6f	il.error."Keyword.argument.%s.no
6a20	74 20 6f 6e 65 20 6f 66 20 28 3a 6f 70 63 6f 64 65 20 3a 70 61 79 6c 6f 61 64 20 3a 6c 65 6e 67	t.one.of.(:opcode.:payload.:leng
6a40	74 68 20 3a 63 6f 6d 70 6c 65 74 65 70 29 22 20 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70	th.:completep)".cl--defsubst-exp
6a60	61 6e 64 20 28 6f 70 63 6f 64 65 20 70 61 79 6c 6f 61 64 20 6c 65 6e 67 74 68 20 63 6f 6d 70 6c	and.(opcode.payload.length.compl
6a80	65 74 65 70 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 6d 61 6b 65 2d 77 65 62 73 6f 63 6b 65 74 2d 66	etep).(cl-block.make-websocket-f
6aa0	72 61 6d 65 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 66	rame."Constructor.for.objects.of
6ac0	20 74 79 70 65 20 60 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 27 2e 22 20 28 64 65 63 6c 61	.type.`websocket-frame'.".(decla
6ae0	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 72	re.(side-effect-free.t)).(vector
6b00	20 27 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 6f 70 63 6f	.'cl-struct-websocket-frame.opco
6b20	64 65 20 70 61 79 6c 6f 61 64 20 6c 65 6e 67 74 68 20 63 6f 6d 70 6c 65 74 65 70 29 29 5d 20 31	de.payload.length.completep))].1
6b40	36 20 28 23 24 20 2e 20 32 36 37 31 30 29 5d 29 0a 28 70 75 74 20 27 6d 61 6b 65 2d 77 65 62 73	6.(#$...26710)]).(put.'make-webs
6b60	6f 63 6b 65 74 2d 66 72 61 6d 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 6d 61 6b	ocket-frame.'compiler-macro.'mak
6b80	65 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 39 35 20	e-websocket-frame--cmacro).#@95.
6ba0	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 66 20 74 79 70 65 20	Constructor.for.objects.of.type.
6bc0	60 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 27 2e 0a 0a 28 66 6e 20 26 6b 65 79 20 4f 50 43	`websocket-frame'...(fn.&key.OPC
6be0	4f 44 45 20 50 41 59 4c 4f 41 44 20 4c 45 4e 47 54 48 20 43 4f 4d 50 4c 45 54 45 50 29 1f 0a 28	ODE.PAYLOAD.LENGTH.COMPLETEP)..(
6c00	64 65 66 61 6c 69 61 73 20 27 6d 61 6b 65 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 23	defalias.'make-websocket-frame.#
6c20	5b 31 32 38 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 41 40 5c 33 30 30 02 5c 33 30 32 5c 22 41 40	[128."\300.\301\"A@\300.\302\"A@
6c40	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 32 31 31 5c	\300.\303\"A@\300.\304\"A@.\211\
6c60	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 32 36 32 01	203D.\211@\305>\203,.\211AA\262.
6c80	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 32 01 5c 32	\202..\306..>A@\203;.\307\262.\2
6ca0	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 31 30 5c 33	02..\310\311.@\"\210\202..\210\3
6cc0	31 32 5c 33 31 33 05 05 05 05 25 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 6d 65 6d 62 65 72 20 3a	12\313....%\207".[plist-member.:
6ce0	6f 70 63 6f 64 65 20 3a 70 61 79 6c 6f 61 64 20 3a 6c 65 6e 67 74 68 20 3a 63 6f 6d 70 6c 65 74	opcode.:payload.:length.:complet
6d00	65 70 20 28 3a 6f 70 63 6f 64 65 20 3a 70 61 79 6c 6f 61 64 20 3a 6c 65 6e 67 74 68 20 3a 63 6f	ep.(:opcode.:payload.:length.:co
6d20	6d 70 6c 65 74 65 70 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	mpletep.:allow-other-keys).:allo
6d40	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 77 6f 72 64 20	w-other-keys.nil.error."Keyword.
6d60	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 6f 70 63 6f 64 65 20	argument.%s.not.one.of.(:opcode.
6d80	3a 70 61 79 6c 6f 61 64 20 3a 6c 65 6e 67 74 68 20 3a 63 6f 6d 70 6c 65 74 65 70 29 22 20 76 65	:payload.:length.:completep)".ve
6da0	63 74 6f 72 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 5d 20	ctor.cl-struct-websocket-frame].
6dc0	31 31 20 28 23 24 20 2e 20 32 37 35 35 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	11.(#$...27552)]).(byte-code."\3
6de0	30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c	00\301\302\303#\210\304\305\306\
6e00	33 30 37 5c 33 30 36 5c 32 31 31 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 30 33 26 09 5c 32 30	307\306\211\310\311\312\303&.\20
6e20	37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6d 61 6b 65 2d 77 65 62 73 6f 63 6b 65 74 2d	7".[function-put.make-websocket-
6e40	66 72 61 6d 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 20 63 6c 2d 73 74 72 75	frame.side-effect-free.t.cl-stru
6e60	63 74 2d 64 65 66 69 6e 65 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 6e 69 6c 20 63 6c	ct-define.websocket-frame.nil.cl
6e80	2d 73 74 72 75 63 74 75 72 65 2d 6f 62 6a 65 63 74 20 28 28 63 6c 2d 74 61 67 2d 73 6c 6f 74 29	-structure-object.((cl-tag-slot)
6ea0	20 28 6f 70 63 6f 64 65 29 20 28 70 61 79 6c 6f 61 64 29 20 28 6c 65 6e 67 74 68 29 20 28 63 6f	.(opcode).(payload).(length).(co
6ec0	6d 70 6c 65 74 65 70 29 29 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72	mpletep)).cl-struct-websocket-fr
6ee0	61 6d 65 2d 74 61 67 73 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61	ame-tags.cl-struct-websocket-fra
6f00	6d 65 5d 20 31 30 29 0a 23 40 37 32 20 47 69 76 65 6e 20 46 52 41 4d 45 2c 20 72 65 74 75 72 6e	me].10).#@72.Given.FRAME,.return
6f20	20 74 68 65 20 70 61 79 6c 6f 61 64 20 61 73 20 61 20 75 74 66 2d 38 20 65 6e 63 6f 64 65 64 20	.the.payload.as.a.utf-8.encoded.
6f40	73 74 72 69 6e 67 2e 0a 0a 28 66 6e 20 46 52 41 4d 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	string...(fn.FRAME)..(defalias.'
6f60	77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 74 65 78 74 20 23 5b 32 35 37 20 22 5c 33 30 31	websocket-frame-text.#[257."\301
6f80	01 21 5c 32 30 33 15 00 5c 32 31 31 47 5c 33 30 32 59 5c 32 30 33 15 00 5c 32 31 31 5c 33 30 33	.!\203..\211G\302Y\203..\211\303
6fa0	48 08 3e 5c 32 30 34 19 00 5c 33 30 34 5c 33 30 35 21 5c 32 31 30 5c 33 30 36 01 5c 33 30 33 48	H.>\204..\304\305!\210\306.\303H
6fc0	08 3e 5c 32 30 34 29 00 5c 33 30 37 5c 33 31 30 5c 33 31 31 04 44 5c 22 5c 32 31 30 01 5c 33 31	.>\204).\307\310\311.D\"\210.\31
6fe0	32 48 5c 33 31 33 5c 22 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b	2H\313\"\207".[cl-struct-websock
7000	65 74 2d 66 72 61 6d 65 2d 74 61 67 73 20 76 65 63 74 6f 72 70 20 35 20 30 20 63 6c 2d 2d 61 73	et-frame-tags.vectorp.5.0.cl--as
7020	73 65 72 74 69 6f 6e 2d 66 61 69 6c 65 64 20 28 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d	sertion-failed.(websocket-frame-
7040	70 20 66 72 61 6d 65 29 20 64 65 63 6f 64 65 2d 63 6f 64 69 6e 67 2d 73 74 72 69 6e 67 20 73 69	p.frame).decode-coding-string.si
7060	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 77 65 62 73 6f 63 6b	gnal.wrong-type-argument.websock
7080	65 74 2d 66 72 61 6d 65 20 32 20 75 74 66 2d 38 5d 20 36 20 28 23 24 20 2e 20 32 38 34 32 39 29	et-frame.2.utf-8].6.(#$...28429)
70a0	5d 29 0a 23 40 31 31 36 20 55 73 69 6e 67 20 73 74 72 69 6e 67 20 4b 45 59 2c 20 6d 61 73 6b 20	]).#@116.Using.string.KEY,.mask.
70c0	73 74 72 69 6e 67 20 44 41 54 41 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 52 46 43	string.DATA.according.to.the.RFC
70e0	2e 0a 54 68 69 73 20 69 73 20 75 73 65 64 20 74 6f 20 62 6f 74 68 20 6d 61 73 6b 20 61 6e 64 20	..This.is.used.to.both.mask.and.
7100	75 6e 6d 61 73 6b 20 64 61 74 61 2e 0a 0a 28 66 6e 20 4b 45 59 20 44 41 54 41 29 1f 0a 28 64 65	unmask.data...(fn.KEY.DATA)..(de
7120	66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 6d 61 73 6b 20 23 5b 35 31 34 20 22 5c 33	falias.'websocket-mask.#[514."\3
7140	30 30 5c 33 30 31 02 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 47 5c 33 30 33 04 54 5c 32 31 31	00\301.\302\303\304..G\303.T\211
7160	5c 32 36 32 06 06 06 47 57 5c 32 30 33 3b 00 05 05 48 5c 32 36 32 04 02 02 58 5c 32 30 33 3b 00	\262...GW\203;...H\262...X\203;.
7180	5c 33 30 35 5c 33 30 36 06 0b 5c 33 30 37 06 06 5c 33 31 30 5c 22 5c 33 30 33 4f 5c 33 31 31 5c	\305\306..\307..\310\"\303O\311\
71a0	22 05 5c 22 01 42 5c 32 36 32 01 02 54 5c 32 36 32 03 5c 32 30 32 5c 6e 00 5c 32 31 31 5c 32 33	".\".B\262..T\262.\202\n.\211\23
71c0	37 5c 32 36 36 5c 32 30 36 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 75 6e 69 62 79 74 65 2d	7\266\206\"\207".[apply.unibyte-
71e0	73 74 72 69 6e 67 20 2d 31 20 6e 69 6c 20 30 20 6c 6f 67 78 6f 72 20 77 65 62 73 6f 63 6b 65 74	string.-1.nil.0.logxor.websocket
7200	2d 67 65 74 2d 62 79 74 65 73 20 6d 6f 64 20 34 20 31 5d 20 31 36 20 28 23 24 20 2e 20 32 38 38	-get-bytes.mod.4.1].16.(#$...288
7220	34 31 29 5d 29 0a 23 40 31 31 31 20 45 6e 73 75 72 65 20 74 68 65 20 73 74 72 69 6e 67 20 53 20	41)]).#@111.Ensure.the.string.S.
7240	68 61 73 20 61 74 20 6d 6f 73 74 20 4e 20 62 79 74 65 73 2e 0a 4f 74 68 65 72 77 69 73 65 20 77	has.at.most.N.bytes..Otherwise.w
7260	65 20 74 68 72 6f 77 20 74 68 65 20 65 72 72 6f 72 20 60 77 65 62 73 6f 63 6b 65 74 2d 69 6e 63	e.throw.the.error.`websocket-inc
7280	6f 6d 70 6c 65 74 65 2d 66 72 61 6d 65 27 2e 0a 0a 28 66 6e 20 53 20 4e 29 1f 0a 28 64 65 66 61	omplete-frame'...(fn.S.N)..(defa
72a0	6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 65 6e 73 75 72 65 2d 6c 65 6e 67 74 68 20 23 5b	lias.'websocket-ensure-length.#[
72c0	35 31 34 20 22 01 47 01 57 5c 32 30 35 0b 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 30	514.".G.W\205..\300\301\302\"\20
72e0	37 22 20 5b 74 68 72 6f 77 20 77 65 62 73 6f 63 6b 65 74 2d 69 6e 63 6f 6d 70 6c 65 74 65 2d 66	7".[throw.websocket-incomplete-f
7300	72 61 6d 65 20 6e 69 6c 5d 20 35 20 28 23 24 20 2e 20 32 39 32 32 38 29 5d 29 0a 23 40 31 33 31	rame.nil].5.(#$...29228)]).#@131
7320	20 45 6e 63 6f 64 65 20 74 68 65 20 46 52 41 4d 45 20 73 74 72 75 63 74 20 74 6f 20 74 68 65 20	.Encode.the.FRAME.struct.to.the.
7340	62 69 6e 61 72 79 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 2e 0a 57 65 20 6d 61 73 6b 20 74	binary.representation..We.mask.t
7360	68 65 20 66 72 61 6d 65 20 6f 72 20 6e 6f 74 2c 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 53 48	he.frame.or.not,.depending.on.SH
7380	4f 55 4c 44 2d 4d 41 53 4b 2e 0a 0a 28 66 6e 20 46 52 41 4d 45 20 53 48 4f 55 4c 44 2d 4d 41 53	OULD-MASK...(fn.FRAME.SHOULD-MAS
73a0	4b 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 65 6e 63 6f 64 65 2d	K)..(defalias.'websocket-encode-
73c0	66 72 61 6d 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 30 32 5c	frame.#[514.".\301H.>\204..\302\
73e0	33 30 33 5c 33 30 34 04 44 5c 22 5c 32 31 30 01 5c 33 30 35 48 02 5c 33 30 31 48 08 3e 5c 32 30	303\304.D\"\210.\305H.\301H.>\20
7400	34 21 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 05 44 5c 22 5c 32 31 30 02 5c 33 30 36 48 03 5c 33	4!.\302\303\304.D\"\210.\306H.\3
7420	30 31 48 08 3e 5c 32 30 34 34 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 44 5c 22 5c 32 31 30	01H.>\2044.\302\303\304..D\"\210
7440	03 5c 33 30 37 48 01 5c 32 30 35 3e 00 02 5c 33 31 30 3e 04 5c 32 30 35 45 00 5c 33 31 31 5c 33	.\307H.\205>..\310>.\205E.\311\3
7460	30 37 21 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 06 08 5c 33 31 36 3d 5c 32 30 33 54 00	07!\312\313\314\315..\316=\203T.
7480	5c 33 30 31 5c 32 30 32 5c 32 31 34 00 06 08 5c 33 31 37 3d 5c 32 30 33 5f 00 5c 33 30 35 5c 32	\301\202\214...\317=\203_.\305\2
74a0	30 32 5c 32 31 34 00 06 08 5c 33 32 30 3d 5c 32 30 33 6a 00 5c 33 30 36 5c 32 30 32 5c 32 31 34	02\214...\320=\203j.\306\202\214
74c0	00 06 08 5c 33 32 31 3d 5c 32 30 33 75 00 5c 33 32 32 5c 32 30 32 5c 32 31 34 00 06 08 5c 33 32	...\321=\203u.\322\202\214...\32
74e0	33 3d 5c 32 30 33 5c 32 30 30 00 5c 33 32 34 5c 32 30 32 5c 32 31 34 00 06 08 5c 33 32 35 3d 5c	3=\203\200.\324\202\214...\325=\
7500	32 30 33 5c 32 31 33 00 5c 33 32 36 5c 32 30 32 5c 32 31 34 00 5c 33 32 37 06 07 5c 32 30 33 5c	203\213.\326\202\214.\327..\203\
7520	32 32 35 00 5c 33 33 30 5c 32 30 32 5c 32 32 36 00 5c 33 30 31 5c 22 43 05 5c 32 30 35 5c 33 30	225.\330\202\226.\301\"C.\205\30
7540	34 00 5c 33 31 35 06 5c 6e 5c 32 30 33 5c 32 34 36 00 5c 33 33 30 5c 32 30 32 5c 32 34 37 00 5c	4.\315.\n\203\246.\330\202\247.\
7560	33 30 31 06 09 47 5c 33 33 31 57 5c 32 30 33 5c 32 36 35 00 06 09 47 5c 32 30 32 5c 33 30 32 00	301..G\331W\203\265...G\202\302.
7580	06 09 47 5c 33 33 32 57 5c 32 30 33 5c 33 30 31 00 5c 33 33 31 5c 32 30 32 5c 33 30 32 00 5c 33	..G\332W\203\301.\331\202\302.\3
75a0	33 33 5c 22 43 06 06 5c 32 30 35 5c 33 36 32 00 06 08 47 5c 33 33 31 59 5c 32 30 35 5c 33 36 32	33\"C..\205\362...G\331Y\205\362
75c0	00 5c 33 31 34 5c 33 33 34 06 5c 6e 47 06 0b 47 5c 33 33 31 57 5c 32 30 33 5c 33 34 32 00 5c 33	.\314\334.\nG..G\331W\203\342.\3
75e0	30 35 5c 32 30 32 5c 33 35 37 00 06 0b 47 5c 33 33 32 57 5c 32 30 33 5c 33 35 36 00 5c 33 30 36	05\202\357...G\332W\203\356.\306
7600	5c 32 30 32 5c 33 35 37 00 5c 33 32 32 5c 22 5c 33 32 37 5c 22 06 07 5c 32 30 35 01 01 06 0b 5c	\202\357.\322\"\327\"..\205....\
7620	32 30 35 01 01 5c 33 31 34 06 07 5c 33 32 37 5c 22 06 08 5c 32 30 35 19 01 5c 33 31 34 06 0d 5c	205..\314..\327\"..\205..\314..\
7640	32 30 33 15 01 5c 33 33 35 06 09 06 0d 5c 22 5c 32 30 32 17 01 06 0b 5c 33 32 37 5c 22 25 5c 32	203..\335....\"\202....\327\"%\2
7660	31 31 47 5c 33 30 35 55 5c 32 30 33 28 01 5c 33 31 34 01 5c 33 33 36 5c 22 5c 32 30 32 29 01 5c	11G\305U\203(.\314.\336\"\202).\
7680	32 31 31 5c 32 36 32 01 5c 22 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f	211\262.\"\207".[cl-struct-webso
76a0	63 6b 65 74 2d 66 72 61 6d 65 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74	cket-frame-tags.0.signal.wrong-t
76c0	79 70 65 2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 31 20 32	ype-argument.websocket-frame.1.2
76e0	20 34 20 28 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 70 69 6e 67 20 70 6f 6e 67 20 74 65 78 74 20	.4.(continuation.ping.pong.text.
7700	62 69 6e 61 72 79 29 20 77 65 62 73 6f 63 6b 65 74 2d 67 65 6e 62 79 74 65 73 20 61 70 70 6c 79	binary).websocket-genbytes.apply
7720	20 75 6e 69 62 79 74 65 2d 73 74 72 69 6e 67 20 61 70 70 65 6e 64 20 6c 6f 67 69 6f 72 20 63 6f	.unibyte-string.append.logior.co
7740	6e 74 69 6e 75 61 74 69 6f 6e 20 74 65 78 74 20 62 69 6e 61 72 79 20 63 6c 6f 73 65 20 38 20 70	ntinuation.text.binary.close.8.p
7760	69 6e 67 20 39 20 70 6f 6e 67 20 31 30 20 6e 69 6c 20 31 32 38 20 31 32 36 20 36 35 35 33 36 20	ing.9.pong.10.nil.128.126.65536.
7780	31 32 37 20 77 65 62 73 6f 63 6b 65 74 2d 74 6f 2d 62 79 74 65 73 20 77 65 62 73 6f 63 6b 65 74	127.websocket-to-bytes.websocket
77a0	2d 6d 61 73 6b 20 28 30 29 5d 20 31 38 20 28 23 24 20 2e 20 32 39 34 37 33 29 5d 29 0a 23 40 32	-mask.(0)].18.(#$...29473)]).#@2
77c0	30 35 20 52 65 61 64 20 66 72 6f 6d 20 73 74 72 69 6e 67 20 53 20 61 20 60 77 65 62 73 6f 63 6b	05.Read.from.string.S.a.`websock
77e0	65 74 2d 66 72 61 6d 65 27 20 73 74 72 75 63 74 20 77 69 74 68 20 74 68 65 20 63 6f 6e 74 65 6e	et-frame'.struct.with.the.conten
7800	74 73 2e 0a 54 68 69 73 20 6f 6e 6c 79 20 67 65 74 73 20 63 6f 6d 70 6c 65 74 65 20 66 72 61 6d	ts..This.only.gets.complete.fram
7820	65 73 2e 20 20 50 61 72 74 69 61 6c 20 66 72 61 6d 65 73 20 6e 65 65 64 20 74 6f 20 77 61 69 74	es...Partial.frames.need.to.wait
7840	20 75 6e 74 69 6c 0a 74 68 65 20 66 72 61 6d 65 20 66 69 6e 69 73 68 65 73 2e 20 20 49 66 20 74	.until.the.frame.finishes...If.t
7860	68 65 20 66 72 61 6d 65 20 69 73 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 64 2c 20 72 65 74 75 72	he.frame.is.not.completed,.retur
7880	6e 20 4e 49 4c 2e 0a 0a 28 66 6e 20 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f	n.NIL...(fn.S)..(defalias.'webso
78a0	63 6b 65 74 2d 72 65 61 64 2d 66 72 61 6d 65 20 23 5b 32 35 37 20 22 5c 33 30 30 32 5c 32 31 37	cket-read-frame.#[257."\3002\217
78c0	00 5c 33 30 31 01 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 33 01 21 5c 33 30 34 5c 33 30 35 03 5c	.\301.\302\"\210\303.!\304\305.\
78e0	33 30 32 5c 22 5c 33 30 36 5c 22 01 5c 33 30 37 3e 5c 32 31 31 5c 32 30 35 20 00 5c 33 31 30 04	302\"\306\".\307>\211\205..\310.
7900	5c 33 30 32 5c 33 31 31 4f 21 01 5c 32 30 35 31 00 5c 33 30 34 5c 33 30 35 06 06 5c 33 30 32 5c	\302\311O!.\2051.\304\305..\302\
7920	33 31 31 4f 5c 33 30 32 5c 22 5c 33 30 36 5c 22 5c 33 30 36 55 02 5c 32 30 35 41 00 5c 32 31 31	311O\302\"\306\"\306U.\205A.\211
7940	5c 32 30 33 3d 00 5c 33 31 32 5c 32 30 32 3e 00 5c 33 30 32 02 41 5c 5c 03 5c 32 30 35 49 00 5c	\203=.\312\202>.\302.A\\.\205I.\
7960	32 31 31 03 40 5c 5c 04 5c 32 30 35 58 00 5c 33 30 31 06 08 02 5c 22 5c 32 31 30 06 07 02 02 4f	211.@\\.\205X.\301...\"\210....O
7980	5c 33 31 33 5c 33 31 34 06 09 5c 33 31 35 06 07 5c 32 30 33 78 00 06 5c 66 06 09 41 54 5c 33 31	\313\314..\315..\203x..\f..AT\31
79a0	32 06 0b 41 5c 5c 4f 5c 33 31 36 01 06 07 5c 22 5c 32 36 32 01 5c 32 30 32 79 00 04 5c 33 31 37	2..A\\O\316...\"\262.\202y..\317
79c0	06 0b 5c 32 30 33 5c 32 30 34 00 06 07 5c 32 30 32 5c 32 30 35 00 5c 33 30 32 5c 33 32 30 06 0e	..\203\204...\202\205.\302\320..
79e0	5c 33 32 31 56 26 08 5c 32 36 36 5c 32 31 30 30 5c 32 30 37 22 20 5b 77 65 62 73 6f 63 6b 65 74	\321V&.\266\2100\207".[websocket
7a00	2d 69 6e 63 6f 6d 70 6c 65 74 65 2d 66 72 61 6d 65 20 77 65 62 73 6f 63 6b 65 74 2d 65 6e 73 75	-incomplete-frame.websocket-ensu
7a20	72 65 2d 6c 65 6e 67 74 68 20 31 20 77 65 62 73 6f 63 6b 65 74 2d 67 65 74 2d 6f 70 63 6f 64 65	re-length.1.websocket-get-opcode
7a40	20 6c 6f 67 61 6e 64 20 77 65 62 73 6f 63 6b 65 74 2d 67 65 74 2d 62 79 74 65 73 20 31 32 38 20	.logand.websocket-get-bytes.128.
7a60	28 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 74 65 78 74 20 62 69 6e 61 72 79 20 70 69 6e 67 20 70	(continuation.text.binary.ping.p
7a80	6f 6e 67 29 20 77 65 62 73 6f 63 6b 65 74 2d 67 65 74 2d 70 61 79 6c 6f 61 64 2d 6c 65 6e 20 6e	ong).websocket-get-payload-len.n
7aa0	69 6c 20 35 20 6d 61 6b 65 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 3a 6f 70 63 6f 64	il.5.make-websocket-frame.:opcod
7ac0	65 20 3a 70 61 79 6c 6f 61 64 20 77 65 62 73 6f 63 6b 65 74 2d 6d 61 73 6b 20 3a 6c 65 6e 67 74	e.:payload.websocket-mask.:lengt
7ae0	68 20 3a 63 6f 6d 70 6c 65 74 65 70 20 30 5d 20 31 39 20 28 23 24 20 2e 20 33 30 36 35 39 29 5d	h.:completep.0].19.(#$...30659)]
7b00	29 0a 23 40 31 31 33 20 46 6f 72 6d 61 74 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20	).#@113.Format.an.error.message.
7b20	6c 69 6b 65 20 63 6f 6d 6d 61 6e 64 20 6c 65 76 65 6c 20 64 6f 65 73 2e 0a 45 52 52 20 73 68 6f	like.command.level.does..ERR.sho
7b40	75 6c 64 20 62 65 20 61 20 63 6f 6e 73 20 6f 66 20 65 72 72 6f 72 20 73 79 6d 62 6f 6c 20 61 6e	uld.be.a.cons.of.error.symbol.an
7b60	64 20 65 72 72 6f 72 20 64 61 74 61 2e 0a 0a 28 66 6e 20 45 52 52 29 1f 0a 28 64 65 66 61 6c 69	d.error.data...(fn.ERR)..(defali
7b80	61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 66 6f 72 6d 61 74 2d 65 72 72 6f 72 20 23 5b 32 35 37	as.'websocket-format-error.#[257
7ba0	20 22 5c 32 31 31 40 5c 33 30 30 4e 5c 32 30 36 5c 66 00 5c 33 30 31 5c 33 30 32 02 40 5c 22 01	."\211@\300N\206\f.\301\302.@\".
7bc0	41 5c 32 30 35 1a 00 5c 33 30 31 5c 33 30 33 5c 33 30 34 5c 33 30 35 05 41 5c 33 30 36 23 5c 22	A\205..\301\303\304\305.A\306#\"
7be0	50 5c 32 30 37 22 20 5b 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 20 66 6f 72 6d 61 74 20 22 70 65	P\207".[error-message.format."pe
7c00	63 75 6c 69 61 72 20 65 72 72 6f 72 20 28 25 73 29 22 20 22 3a 20 25 73 22 20 6d 61 70 63 6f 6e	culiar.error.(%s)".":.%s".mapcon
7c20	63 61 74 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 22 2c 20 22 5d 20 38 20 28 23 24 20	cat.prin1-to-string.",."].8.(#$.
7c40	2e 20 33 31 34 39 36 29 5d 29 0a 23 40 38 38 20 54 68 65 20 64 65 66 61 75 6c 74 20 65 72 72 6f	..31496)]).#@88.The.default.erro
7c60	72 20 68 61 6e 64 6c 65 72 20 75 73 65 64 20 74 6f 20 68 61 6e 64 6c 65 20 65 72 72 6f 72 73 20	r.handler.used.to.handle.errors.
7c80	69 6e 20 63 61 6c 6c 62 61 63 6b 73 2e 0a 0a 28 66 6e 20 57 45 42 53 4f 43 4b 45 54 20 54 59 50	in.callbacks...(fn.WEBSOCKET.TYP
7ca0	45 20 45 52 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 64 65 66	E.ERR)..(defalias.'websocket-def
7cc0	61 75 6c 74 2d 65 72 72 6f 72 2d 68 61 6e 64 6c 65 72 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33	ault-error-handler.#[771."\300\3
7ce0	30 31 5c 33 30 32 5c 33 30 33 05 5c 33 30 34 06 06 21 23 5c 33 30 35 23 5c 32 30 37 22 20 5b 64	01\302\303.\304..!#\305#\207".[d
7d00	69 73 70 6c 61 79 2d 77 61 72 6e 69 6e 67 20 77 65 62 73 6f 63 6b 65 74 20 66 6f 72 6d 61 74 20	isplay-warning.websocket.format.
7d20	22 69 6e 20 63 61 6c 6c 62 61 63 6b 20 60 25 53 27 3a 20 25 73 22 20 77 65 62 73 6f 63 6b 65 74	"in.callback.`%S':.%s".websocket
7d40	2d 66 6f 72 6d 61 74 2d 65 72 72 6f 72 20 3a 65 72 72 6f 72 5d 20 31 30 20 28 23 24 20 2e 20 33	-format-error.:error].10.(#$...3
7d60	31 38 32 34 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	1824)]).(byte-code."\300\301\302
7d80	5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 35 23 5c 32 31 30 5c 33	\303#\210\300\301\304\305#\210\3
7da0	30 30 5c 33 30 36 5c 33 30 32 5c 33 30 37 23 5c 32 31 30 5c 33 30 30 5c 33 30 36 5c 33 30 34 5c	00\306\302\307#\210\300\306\304\
7dc0	33 31 30 23 5c 32 31 30 5c 33 30 30 5c 33 31 31 5c 33 30 32 5c 33 31 32 23 5c 32 31 30 5c 33 30	310#\210\300\311\302\312#\210\30
7de0	30 5c 33 31 31 5c 33 30 34 5c 33 31 33 23 5c 32 31 30 5c 33 30 30 5c 33 31 34 5c 33 30 32 5c 33	0\311\304\313#\210\300\314\302\3
7e00	31 35 23 5c 32 31 30 5c 33 30 30 5c 33 31 34 5c 33 30 34 5c 33 31 36 23 5c 32 31 30 5c 33 30 30	15#\210\300\314\304\316#\210\300
7e20	5c 33 31 37 5c 33 30 32 5c 33 32 30 23 5c 32 31 30 5c 33 30 30 5c 33 31 37 5c 33 30 34 5c 33 32	\317\302\320#\210\300\317\304\32
7e40	31 23 5c 32 31 30 5c 33 30 30 5c 33 32 32 5c 33 30 32 5c 33 32 33 23 5c 32 31 30 5c 33 30 30 5c	1#\210\300\322\302\323#\210\300\
7e60	33 32 32 5c 33 30 34 5c 33 32 34 23 5c 32 31 30 5c 33 30 30 5c 33 32 35 5c 33 30 32 5c 33 32 36	322\304\324#\210\300\325\302\326
7e80	23 5c 32 31 30 5c 33 30 30 5c 33 32 35 5c 33 30 34 5c 33 32 37 23 5c 32 31 30 5c 33 30 30 5c 33	#\210\300\325\304\327#\210\300\3
7ea0	33 30 5c 33 30 32 5c 33 33 31 23 5c 32 31 30 5c 33 30 30 5c 33 33 30 5c 33 30 34 5c 33 33 32 23	30\302\331#\210\300\330\304\332#
7ec0	5c 32 30 37 22 20 5b 70 75 74 20 77 65 62 73 6f 63 6b 65 74 2d 75 6e 73 75 70 70 6f 72 74 65 64	\207".[put.websocket-unsupported
7ee0	2d 70 72 6f 74 6f 63 6f 6c 20 65 72 72 6f 72 2d 63 6f 6e 64 69 74 69 6f 6e 73 20 28 65 72 72 6f	-protocol.error-conditions.(erro
7f00	72 20 77 65 62 73 6f 63 6b 65 74 2d 65 72 72 6f 72 20 77 65 62 73 6f 63 6b 65 74 2d 75 6e 73 75	r.websocket-error.websocket-unsu
7f20	70 70 6f 72 74 65 64 2d 70 72 6f 74 6f 63 6f 6c 29 20 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 20	pported-protocol).error-message.
7f40	22 55 6e 73 75 70 70 6f 72 74 65 64 20 77 65 62 73 6f 63 6b 65 74 20 70 72 6f 74 6f 63 6f 6c 22	"Unsupported.websocket.protocol"
7f60	20 77 65 62 73 6f 63 6b 65 74 2d 77 73 73 2d 6e 65 65 64 73 2d 65 6d 61 63 73 2d 32 34 20 28 65	.websocket-wss-needs-emacs-24.(e
7f80	72 72 6f 72 20 77 65 62 73 6f 63 6b 65 74 2d 65 72 72 6f 72 20 77 65 62 73 6f 63 6b 65 74 2d 75	rror.websocket-error.websocket-u
7fa0	6e 73 75 70 70 6f 72 74 65 64 2d 70 72 6f 74 6f 63 6f 6c 20 77 65 62 73 6f 63 6b 65 74 2d 77 73	nsupported-protocol.websocket-ws
7fc0	73 2d 6e 65 65 64 73 2d 65 6d 61 63 73 2d 32 34 29 20 22 77 73 73 20 70 72 6f 74 6f 63 6f 6c 20	s-needs-emacs-24)."wss.protocol.
7fe0	69 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 66 6f 72 20 45 6d 61 63 73 20 62 65 66 6f 72	is.not.supported.for.Emacs.befor
8000	65 20 76 65 72 73 69 6f 6e 20 32 34 2e 22 20 77 65 62 73 6f 63 6b 65 74 2d 72 65 63 65 69 76 65	e.version.24.".websocket-receive
8020	64 2d 65 72 72 6f 72 2d 68 74 74 70 2d 72 65 73 70 6f 6e 73 65 20 28 65 72 72 6f 72 20 77 65 62	d-error-http-response.(error.web
8040	73 6f 63 6b 65 74 2d 65 72 72 6f 72 20 77 65 62 73 6f 63 6b 65 74 2d 72 65 63 65 69 76 65 64 2d	socket-error.websocket-received-
8060	65 72 72 6f 72 2d 68 74 74 70 2d 72 65 73 70 6f 6e 73 65 29 20 22 45 72 72 6f 72 20 72 65 73 70	error-http-response)."Error.resp
8080	6f 6e 73 65 20 72 65 63 65 69 76 65 64 20 66 72 6f 6d 20 77 65 62 73 6f 63 6b 65 74 20 73 65 72	onse.received.from.websocket.ser
80a0	76 65 72 22 20 77 65 62 73 6f 63 6b 65 74 2d 69 6e 76 61 6c 69 64 2d 68 65 61 64 65 72 20 28 65	ver".websocket-invalid-header.(e
80c0	72 72 6f 72 20 77 65 62 73 6f 63 6b 65 74 2d 65 72 72 6f 72 20 77 65 62 73 6f 63 6b 65 74 2d 69	rror.websocket-error.websocket-i
80e0	6e 76 61 6c 69 64 2d 68 65 61 64 65 72 29 20 22 49 6e 76 61 6c 69 64 20 48 54 54 50 20 68 65 61	nvalid-header)."Invalid.HTTP.hea
8100	64 65 72 20 73 65 6e 74 22 20 77 65 62 73 6f 63 6b 65 74 2d 69 6c 6c 65 67 61 6c 2d 66 72 61 6d	der.sent".websocket-illegal-fram
8120	65 20 28 65 72 72 6f 72 20 77 65 62 73 6f 63 6b 65 74 2d 65 72 72 6f 72 20 77 65 62 73 6f 63 6b	e.(error.websocket-error.websock
8140	65 74 2d 69 6c 6c 65 67 61 6c 2d 66 72 61 6d 65 29 20 22 43 61 6e 6e 6f 74 20 73 65 6e 64 20 69	et-illegal-frame)."Cannot.send.i
8160	6c 6c 65 67 61 6c 20 66 72 61 6d 65 20 74 6f 20 77 65 62 73 6f 63 6b 65 74 22 20 77 65 62 73 6f	llegal.frame.to.websocket".webso
8180	63 6b 65 74 2d 63 6c 6f 73 65 64 20 28 65 72 72 6f 72 20 77 65 62 73 6f 63 6b 65 74 2d 65 72 72	cket-closed.(error.websocket-err
81a0	6f 72 20 77 65 62 73 6f 63 6b 65 74 2d 63 6c 6f 73 65 64 29 20 22 43 61 6e 6e 6f 74 20 73 65 6e	or.websocket-closed)."Cannot.sen
81c0	64 20 6d 65 73 73 61 67 65 20 74 6f 20 61 20 63 6c 6f 73 65 64 20 77 65 62 73 6f 63 6b 65 74 22	d.message.to.a.closed.websocket"
81e0	20 77 65 62 73 6f 63 6b 65 74 2d 75 6e 70 61 72 73 65 61 62 6c 65 2d 66 72 61 6d 65 20 28 65 72	.websocket-unparseable-frame.(er
8200	72 6f 72 20 77 65 62 73 6f 63 6b 65 74 2d 65 72 72 6f 72 20 77 65 62 73 6f 63 6b 65 74 2d 75 6e	ror.websocket-error.websocket-un
8220	70 61 72 73 65 61 62 6c 65 2d 66 72 61 6d 65 29 20 22 52 65 63 65 69 76 65 64 20 61 6e 20 75 6e	parseable-frame)."Received.an.un
8240	70 61 72 73 65 61 62 6c 65 20 66 72 61 6d 65 22 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65	parseable.frame".websocket-frame
8260	2d 74 6f 6f 2d 6c 61 72 67 65 20 28 65 72 72 6f 72 20 77 65 62 73 6f 63 6b 65 74 2d 65 72 72 6f	-too-large.(error.websocket-erro
8280	72 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 74 6f 6f 2d 6c 61 72 67 65 29 20 22 54 68	r.websocket-frame-too-large)."Th
82a0	65 20 66 72 61 6d 65 20 62 65 69 6e 67 20 73 65 6e 74 20 69 73 20 74 6f 6f 20 6c 61 72 67 65 20	e.frame.being.sent.is.too.large.
82c0	66 6f 72 20 74 68 69 73 20 65 6d 61 63 73 20 74 6f 20 68 61 6e 64 6c 65 22 5d 20 34 29 0a 23 40	for.this.emacs.to.handle"].4).#@
82e0	38 38 20 53 69 6d 70 6c 65 20 6c 69 73 74 20 69 6e 74 65 72 73 65 63 74 69 6f 6e 2c 20 73 68 6f	88.Simple.list.intersection,.sho
8300	75 6c 64 20 66 75 6e 63 74 69 6f 6e 20 6c 69 6b 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 27 73 20	uld.function.like.Common.Lisp's.
8320	60 69 6e 74 65 72 73 65 63 74 69 6f 6e 27 2e 0a 0a 28 66 6e 20 41 20 42 29 1f 0a 28 64 65 66 61	`intersection'...(fn.A.B)..(defa
8340	6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 69 6e 74 65 72 73 65 63 74 20 23 5b 35 31 34 20	lias.'websocket-intersect.#[514.
8360	22 5c 33 30 30 02 5c 32 31 31 5c 32 30 33 1a 00 5c 32 31 31 40 5c 32 31 31 04 5c 32 33 35 5c 32	"\300.\211\203..\211@\211.\235\2
8380	30 33 13 00 5c 32 31 31 03 42 5c 32 36 32 03 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 02 00 01	03..\211.B\262..A\266\202\202...
83a0	5c 32 33 37 5c 32 36 32 01 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 37 20 28 23 24 20 2e 20 33 33 35	\237\262.\207".[nil].7.(#$...335
83c0	30 37 29 5d 29 0a 23 40 37 30 20 47 65 74 20 6f 72 20 63 72 65 61 74 65 20 74 68 65 20 62 75 66	07)]).#@70.Get.or.create.the.buf
83e0	66 65 72 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 57 45 42 53 4f 43 4b 45 54 2e 0a	fer.corresponding.to.WEBSOCKET..
8400	0a 28 66 6e 20 57 45 42 53 4f 43 4b 45 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73	.(fn.WEBSOCKET)..(defalias.'webs
8420	6f 63 6b 65 74 2d 67 65 74 2d 64 65 62 75 67 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 23 5b	ocket-get-debug-buffer-create.#[
8440	32 35 37 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 03 5c 33 30 34 48 08 3e 5c 32 30 34 13 00 5c	257."\301\302\303.\304H.>\204..\
8460	33 30 35 5c 33 30 36 5c 33 30 37 06 06 44 5c 22 5c 32 31 30 03 5c 33 31 30 48 5c 22 21 5c 33 31	305\306\307..D\"\210.\310H\"!\31
8480	31 01 21 5c 33 30 34 55 5c 32 30 33 24 00 5c 33 31 32 01 21 5c 32 31 30 5c 32 31 31 5c 32 30 37	1.!\304U\203$.\312.!\210\211\207
84a0	22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 20 67 65 74 2d	".[cl-struct-websocket-tags.get-
84c0	62 75 66 66 65 72 2d 63 72 65 61 74 65 20 66 6f 72 6d 61 74 20 22 2a 77 65 62 73 6f 63 6b 65 74	buffer-create.format."*websocket
84e0	20 25 73 20 64 65 62 75 67 2a 22 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d	.%s.debug*".0.signal.wrong-type-
8500	61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 31 30 20 62 75 66 66 65 72 2d 73 69 7a	argument.websocket.10.buffer-siz
8520	65 20 62 75 66 66 65 72 2d 64 69 73 61 62 6c 65 2d 75 6e 64 6f 5d 20 38 20 28 23 24 20 2e 20 33	e.buffer-disable-undo].8.(#$...3
8540	33 37 33 39 29 5d 29 0a 23 40 39 33 20 49 6e 20 74 68 65 20 57 45 42 53 4f 43 4b 45 54 27 73 20	3739)]).#@93.In.the.WEBSOCKET's.
8560	64 65 62 75 67 20 62 75 66 66 65 72 2c 20 73 65 6e 64 20 4d 53 47 2c 20 77 69 74 68 20 66 6f 72	debug.buffer,.send.MSG,.with.for
8580	6d 61 74 20 41 52 47 53 2e 0a 0a 28 66 6e 20 57 45 42 53 4f 43 4b 45 54 20 4d 53 47 20 26 72 65	mat.ARGS...(fn.WEBSOCKET.MSG.&re
85a0	73 74 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 64	st.ARGS)..(defalias.'websocket-d
85c0	65 62 75 67 20 23 5b 36 34 32 20 22 08 5c 32 30 35 21 00 5c 33 30 31 03 21 5c 32 31 32 72 5c 32	ebug.#[642.".\205!.\301.!\212r\2
85e0	31 31 71 5c 32 31 30 64 62 5c 32 31 30 5c 33 30 32 63 5c 32 31 30 5c 33 30 33 5c 33 30 34 5c 33	11q\210db\210\302c\210\303\304\3
8600	30 35 05 43 05 5c 22 5c 22 63 5c 32 31 30 5c 33 30 36 63 2a 5c 32 36 32 01 5c 32 30 37 22 20 5b	05.C.\"\"c\210\306c*\262.\207".[
8620	77 65 62 73 6f 63 6b 65 74 2d 64 65 62 75 67 20 77 65 62 73 6f 63 6b 65 74 2d 67 65 74 2d 64 65	websocket-debug.websocket-get-de
8640	62 75 67 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 5b 57 53 5d 20 22 20 61 70 70 6c 79 20	bug-buffer-create."[WS].".apply.
8660	66 6f 72 6d 61 74 20 61 70 70 65 6e 64 20 22 5c 6e 22 5d 20 39 20 28 23 24 20 2e 20 33 34 31 32	format.append."\n"].9.(#$...3412
8680	35 29 5d 29 0a 23 40 31 39 36 20 56 65 72 69 66 79 20 74 68 61 74 20 4f 55 54 50 55 54 20 63 6f	5)]).#@196.Verify.that.OUTPUT.co
86a0	6e 74 61 69 6e 73 20 61 20 76 61 6c 69 64 20 48 54 54 50 20 72 65 73 70 6f 6e 73 65 20 63 6f 64	ntains.a.valid.HTTP.response.cod
86c0	65 2e 0a 54 68 65 20 6f 6e 6c 79 20 61 63 63 65 70 74 61 62 6c 65 20 6f 6e 65 20 74 6f 20 77 65	e..The.only.acceptable.one.to.we
86e0	62 73 6f 63 6b 65 74 20 69 73 20 72 65 73 70 6f 6e 63 65 20 63 6f 64 65 20 31 30 31 2e 0a 41 20	bsocket.is.responce.code.101..A.
8700	74 20 76 61 6c 75 65 20 77 69 6c 6c 20 62 65 20 72 65 74 75 72 6e 65 64 20 6f 6e 20 73 75 63 63	t.value.will.be.returned.on.succ
8720	65 73 73 2c 20 61 6e 64 20 61 6e 20 65 72 72 6f 72 20 74 68 72 6f 77 6e 0a 69 66 20 6e 6f 74 2e	ess,.and.an.error.thrown.if.not.
8740	0a 0a 28 66 6e 20 4f 55 54 50 55 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63	..(fn.OUTPUT)..(defalias.'websoc
8760	6b 65 74 2d 76 65 72 69 66 79 2d 72 65 73 70 6f 6e 73 65 2d 63 6f 64 65 20 23 5b 32 35 37 20 22	ket-verify-response-code.#[257."
8780	5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 34 5c 66 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 22	\300\301.\"\204\f.\302\303\304\"
87a0	5c 32 31 30 5c 33 30 35 5c 33 30 36 02 5c 22 5c 33 30 37 5c 32 33 32 5c 32 30 34 1f 00 5c 33 30	\210\305\306.\"\307\232\204..\30
87c0	32 5c 33 31 30 5c 33 31 31 5c 33 30 35 5c 33 30 36 05 5c 22 21 5c 22 5c 32 31 30 5c 33 31 32 5c	2\310\311\305\306.\"!\"\210\312\
87e0	32 30 37 22 20 5b 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 48 54 54 50 2f 31 2e 31 20 5c 5c	207".[string-match."^HTTP/1.1.\\
8800	28 5b 5b 3a 64 69 67 69 74 3a 5d 5d 2b 5c 5c 29 22 20 73 69 67 6e 61 6c 20 77 65 62 73 6f 63 6b	([[:digit:]]+\\)".signal.websock
8820	65 74 2d 69 6e 76 61 6c 69 64 2d 68 65 61 64 65 72 20 22 49 6e 76 61 6c 69 64 20 48 54 54 50 20	et-invalid-header."Invalid.HTTP.
8840	73 74 61 74 75 73 20 6c 69 6e 65 22 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 22 31 30 31	status.line".match-string.1."101
8860	22 20 77 65 62 73 6f 63 6b 65 74 2d 72 65 63 65 69 76 65 64 2d 65 72 72 6f 72 2d 68 74 74 70 2d	".websocket-received-error-http-
8880	72 65 73 70 6f 6e 73 65 20 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 74 5d 20 37 20 28	response.string-to-number.t].7.(
88a0	23 24 20 2e 20 33 34 34 34 33 29 5d 29 0a 23 40 31 30 32 20 46 72 6f 6d 20 68 65 61 64 65 72 2d	#$...34443)]).#@102.From.header-
88c0	63 6f 6e 74 61 69 6e 69 6e 67 20 4f 55 54 50 55 54 2c 20 70 61 72 73 65 20 6f 75 74 20 74 68 65	containing.OUTPUT,.parse.out.the
88e0	20 6c 69 73 74 20 66 72 6f 6d 20 61 0a 70 6f 73 73 69 62 6c 79 20 72 65 70 65 61 74 65 64 20 66	.list.from.a.possibly.repeated.f
8900	69 65 6c 64 2e 0a 0a 28 66 6e 20 4f 55 54 50 55 54 20 46 49 45 4c 44 29 1f 0a 28 64 65 66 61 6c	ield...(fn.OUTPUT.FIELD)..(defal
8920	69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 70 61 72 73 65 2d 72 65 70 65 61 74 65 64 2d 66 69	ias.'websocket-parse-repeated-fi
8940	65 6c 64 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 01 5c 32 30 33 29 00 5c 33 30 32 5c 33	eld.#[514."\300\301.\203).\302\3
8960	30 33 5c 33 30 34 05 5c 22 05 04 23 5c 32 30 33 29 00 5c 33 30 35 5c 32 32 35 5c 32 31 31 5c 32	03\304.\"..#\203).\305\225\211\2
8980	36 32 03 5c 32 30 33 02 00 5c 33 30 36 01 5c 33 30 37 5c 33 31 30 5c 33 30 35 06 08 5c 22 5c 33	62.\203..\306.\307\310\305..\"\3
89a0	31 31 5c 22 5c 22 5c 32 36 32 01 5c 32 30 32 02 00 5c 32 30 37 22 20 5b 30 20 6e 69 6c 20 73 74	11\"\"\262.\202..\207".[0.nil.st
89c0	72 69 6e 67 2d 6d 61 74 63 68 20 66 6f 72 6d 61 74 20 22 0d 5c 6e 25 73 3a 20 5c 5c 28 2e 2a 5c	ring-match.format.".\n%s:.\\(.*\
89e0	5c 29 0d 5c 6e 22 20 31 20 61 70 70 65 6e 64 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 6d 61 74	\).\n".1.append.split-string.mat
8a00	63 68 2d 73 74 72 69 6e 67 20 22 2c 20 3f 22 5d 20 31 30 20 28 23 24 20 2e 20 33 34 39 39 36 29	ch-string.",.?"].10.(#$...34996)
8a20	5d 29 0a 23 40 33 39 30 20 55 73 69 6e 67 20 74 68 65 20 57 45 42 53 4f 43 4b 45 54 27 73 20 66	]).#@390.Using.the.WEBSOCKET's.f
8a40	69 6c 74 65 72 20 61 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 2c 20 70 72 6f 63 65 73 73 20 74 68	ilter.and.connection,.process.th
8a60	65 20 46 52 41 4d 45 2e 0a 54 68 69 73 20 72 65 74 75 72 6e 73 20 61 20 6c 61 6d 62 64 61 20 74	e.FRAME..This.returns.a.lambda.t
8a80	68 61 74 20 73 68 6f 75 6c 64 20 62 65 20 65 78 65 63 75 74 65 64 20 77 68 65 6e 20 61 6c 6c 20	hat.should.be.executed.when.all.
8aa0	66 72 61 6d 65 73 20 68 61 76 65 0a 62 65 65 6e 20 70 72 6f 63 65 73 73 65 64 2e 20 20 49 66 20	frames.have.been.processed...If.
8ac0	74 68 65 20 66 72 61 6d 65 20 68 61 73 20 61 20 70 61 79 6c 6f 61 64 2c 20 74 68 65 20 6c 61 6d	the.frame.has.a.payload,.the.lam
8ae0	62 64 61 20 68 61 73 20 74 68 65 20 66 72 61 6d 65 0a 70 61 73 73 65 64 20 74 6f 20 74 68 65 20	bda.has.the.frame.passed.to.the.
8b00	66 69 6c 74 65 72 20 73 6c 6f 74 20 6f 66 20 57 45 42 53 4f 43 4b 45 54 2e 20 20 49 66 20 74 68	filter.slot.of.WEBSOCKET...If.th
8b20	65 20 66 72 61 6d 65 20 69 73 20 61 20 70 69 6e 67 2c 0a 74 68 65 20 6c 61 6d 62 64 61 20 68 61	e.frame.is.a.ping,.the.lambda.ha
8b40	73 20 61 20 72 65 70 6c 79 20 77 69 74 68 20 61 20 70 6f 6e 67 2e 20 20 49 66 20 74 68 65 20 66	s.a.reply.with.a.pong...If.the.f
8b60	72 61 6d 65 20 69 73 20 61 20 63 6c 6f 73 65 2c 20 74 68 65 20 6c 61 6d 62 64 61 0a 68 61 73 20	rame.is.a.close,.the.lambda.has.
8b80	63 6f 6e 6e 65 63 74 69 6f 6e 20 74 65 72 6d 69 6e 61 74 69 6f 6e 2e 0a 0a 28 66 6e 20 57 45 42	connection.termination...(fn.WEB
8ba0	53 4f 43 4b 45 54 20 46 52 41 4d 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63	SOCKET.FRAME)..(defalias.'websoc
8bc0	6b 65 74 2d 70 72 6f 63 65 73 73 2d 66 72 61 6d 65 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30	ket-process-frame.#[514."\211\30
8be0	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 32 31 30 5c 32	1H.>\204..\302\303\304.D\"\210\2
8c00	31 31 5c 33 30 35 48 5c 32 31 31 5c 33 30 36 3e 5c 32 30 33 29 00 5c 33 30 37 5c 33 30 31 5c 33	11\305H\211\306>\203).\307\301\3
8c20	31 30 5c 33 31 31 5c 33 31 32 06 07 06 07 5c 22 5c 33 31 33 5c 22 5c 33 31 34 24 5c 32 30 32 56	10\311\312....\"\313\"\314$\202V
8c40	00 5c 32 31 31 5c 33 31 35 3d 5c 32 30 33 40 00 5c 33 30 37 5c 33 30 31 5c 33 31 36 5c 33 31 31	.\211\315=\203@.\307\301\316\311
8c60	5c 33 31 32 06 07 06 07 5c 22 5c 33 31 37 5c 22 5c 33 32 30 24 5c 32 30 32 56 00 5c 32 31 31 5c	\312....\"\317\"\320$\202V.\211\
8c80	33 32 31 3d 5c 32 30 33 55 00 5c 33 30 37 5c 33 30 31 5c 33 32 32 5c 33 31 31 5c 33 31 32 06 07	321=\203U.\307\301\322\311\312..
8ca0	21 5c 33 32 33 5c 22 5c 33 31 34 24 5c 32 30 32 56 00 5c 33 32 34 5c 32 30 37 22 20 5b 63 6c 2d	!\323\"\314$\202V.\324\207".[cl-
8cc0	73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 74 61 67 73 20 30 20 73 69	struct-websocket-frame-tags.0.si
8ce0	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 77 65 62 73 6f 63 6b	gnal.wrong-type-argument.websock
8d00	65 74 2d 66 72 61 6d 65 20 31 20 28 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 74 65 78 74 20 62 69	et-frame.1.(continuation.text.bi
8d20	6e 61 72 79 29 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 32 5c 33 30 33 5c 33	nary).make-byte-code."\302\303\3
8d40	30 34 5c 33 30 30 5c 33 30 31 24 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20	04\300\301$\207".vconcat.vector.
8d60	5b 77 65 62 73 6f 63 6b 65 74 2d 74 72 79 2d 63 61 6c 6c 62 61 63 6b 20 77 65 62 73 6f 63 6b 65	[websocket-try-callback.websocke
8d80	74 2d 6f 6e 2d 6d 65 73 73 61 67 65 20 6f 6e 2d 6d 65 73 73 61 67 65 5d 20 35 20 70 69 6e 67 20	t-on-message.on-message].5.ping.
8da0	22 5c 33 30 33 5c 33 30 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 30 31 5c 33 31	"\303\300\304\305\306\307\301\31
8dc0	30 48 5c 6e 3e 5c 32 30 34 15 00 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 30 31 44 5c 22 5c 32	0H\n>\204..\311\312\313\301D\"\2
8de0	31 30 5c 33 30 31 5c 33 31 34 48 5c 33 31 35 5c 33 31 36 26 06 5c 22 5c 32 30 37 22 20 5b 63 6c	10\301\314H\315\316&.\"\207".[cl
8e00	2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 74 61 67 73 20 77 65 62	-struct-websocket-frame-tags.web
8e20	73 6f 63 6b 65 74 2d 73 65 6e 64 20 6d 61 6b 65 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65	socket-send.make-websocket-frame
8e40	20 3a 6f 70 63 6f 64 65 20 70 6f 6e 67 20 3a 70 61 79 6c 6f 61 64 20 30 20 73 69 67 6e 61 6c 20	.:opcode.pong.:payload.0.signal.
8e60	77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 2d 66 72	wrong-type-argument.websocket-fr
8e80	61 6d 65 20 32 20 3a 63 6f 6d 70 6c 65 74 65 70 20 74 5d 20 31 30 20 63 6c 6f 73 65 20 22 5c 33	ame.2.:completep.t].10.close."\3
8ea0	30 32 5c 33 30 30 5c 33 30 33 48 09 3e 5c 32 30 34 10 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c	02\300\303H.>\204..\304\305\306\
8ec0	33 30 30 44 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 37 48 21 5c 32 30 37 22 20 5b 63 6c 2d 73 74	300D\"\210\300\307H!\207".[cl-st
8ee0	72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 20 64 65 6c 65 74 65 2d 70 72 6f 63 65	ruct-websocket-tags.delete-proce
8f00	73 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 75 6d 65 6e 74 20	ss.0.signal.wrong-type-argument.
8f20	77 65 62 73 6f 63 6b 65 74 20 31 33 5d 20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 6e 69	websocket.13].#[0."\300\207".[ni
8f40	6c 5d 20 31 5d 5d 20 31 30 20 28 23 24 20 2e 20 33 35 33 36 39 29 5d 29 0a 23 40 39 32 20 54 68	l].1]].10.(#$...35369)]).#@92.Th
8f60	69 73 20 68 61 6e 64 6c 65 73 20 69 6e 70 75 74 20 70 72 6f 63 65 73 73 69 6e 67 20 66 6f 72 20	is.handles.input.processing.for.
8f80	62 6f 74 68 20 74 68 65 20 63 6c 69 65 6e 74 20 61 6e 64 20 73 65 72 76 65 72 20 66 69 6c 74 65	both.the.client.and.server.filte
8fa0	72 73 2e 0a 0a 28 66 6e 20 57 45 42 53 4f 43 4b 45 54 20 54 45 58 54 29 1f 0a 28 64 65 66 61 6c	rs...(fn.WEBSOCKET.TEXT)..(defal
8fc0	69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 70 72 6f 63 65 73 73 2d 69 6e 70 75 74 2d 6f 6e 2d	ias.'websocket-process-input-on-
8fe0	6f 70 65 6e 2d 77 73 20 23 5b 35 31 34 20 22 5c 33 30 32 5c 32 31 31 5c 33 30 33 5c 33 30 34 04	open-ws.#[514."\302\211\303\304.
9000	02 5c 33 30 32 4f 21 5c 32 31 31 5c 32 36 32 04 5c 32 30 33 31 00 5c 33 30 35 05 04 5c 22 02 42	.\302O!\211\262.\2031.\305..\".B
9020	5c 32 36 32 02 5c 32 31 31 03 5c 33 30 33 48 08 3e 5c 32 30 34 28 00 5c 33 30 36 5c 33 30 37 5c	\262.\211.\303H.>\204(.\306\307\
9040	33 31 30 06 06 44 5c 22 5c 32 31 30 03 5c 33 31 31 48 5c 5c 5c 32 36 32 01 5c 32 30 32 03 00 03	310..D\"\210.\311H\\\262.\202...
9060	47 01 56 5c 32 30 33 53 00 04 5c 33 30 33 48 09 3e 5c 32 30 34 48 00 5c 33 30 36 5c 33 30 37 5c	G.V\203S..\303H.>\204H.\306\307\
9080	33 31 32 06 07 44 5c 22 5c 32 31 30 04 5c 32 31 31 5c 33 31 33 06 06 04 5c 33 30 32 4f 49 5c 32	312..D\"\210.\211\313...\302OI\2
90a0	36 36 02 01 5c 32 33 37 5c 32 31 31 5c 32 30 35 65 00 5c 32 31 31 40 5c 32 31 31 20 5c 32 31 30	66..\237\211\205e.\211@\211.\210
90c0	01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 55 00 5c 32 36 32 01 5c 32 30 37 22 20 5b 63 6c 2d 73	.A\266\202\202U.\262.\207".[cl-s
90e0	74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 74 61 67 73 20 63 6c 2d 73 74	truct-websocket-frame-tags.cl-st
9100	72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 20 6e 69 6c 20 30 20 77 65 62 73 6f 63	ruct-websocket-tags.nil.0.websoc
9120	6b 65 74 2d 72 65 61 64 2d 66 72 61 6d 65 20 77 65 62 73 6f 63 6b 65 74 2d 70 72 6f 63 65 73 73	ket-read-frame.websocket-process
9140	2d 66 72 61 6d 65 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	-frame.signal.wrong-type-argumen
9160	74 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 33 20 77 65 62 73 6f 63 6b 65 74 20 31 36	t.websocket-frame.3.websocket.16
9180	5d 20 31 31 20 28 23 24 20 2e 20 33 36 37 30 32 29 5d 29 0a 23 40 37 31 20 54 6f 20 74 68 65 20	].11.(#$...36702)]).#@71.To.the.
91a0	57 45 42 53 4f 43 4b 45 54 2c 20 73 65 6e 64 20 54 45 58 54 20 61 73 20 61 20 63 6f 6d 70 6c 65	WEBSOCKET,.send.TEXT.as.a.comple
91c0	74 65 20 66 72 61 6d 65 2e 0a 0a 28 66 6e 20 57 45 42 53 4f 43 4b 45 54 20 54 45 58 54 29 1f 0a	te.frame...(fn.WEBSOCKET.TEXT)..
91e0	28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 73 65 6e 64 2d 74 65 78 74 20 23	(defalias.'websocket-send-text.#
9200	5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06	[514."\300.\301\302\303\304\305.
9220	07 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 26 06 5c 22 5c 32 30 37 22 20 5b 77 65 62 73 6f 63	.\306\"\307\310&.\"\207".[websoc
9240	6b 65 74 2d 73 65 6e 64 20 6d 61 6b 65 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 3a 6f	ket-send.make-websocket-frame.:o
9260	70 63 6f 64 65 20 74 65 78 74 20 3a 70 61 79 6c 6f 61 64 20 65 6e 63 6f 64 65 2d 63 6f 64 69 6e	pcode.text.:payload.encode-codin
9280	67 2d 73 74 72 69 6e 67 20 72 61 77 2d 74 65 78 74 20 3a 63 6f 6d 70 6c 65 74 65 70 20 74 5d 20	g-string.raw-text.:completep.t].
92a0	31 31 20 28 23 24 20 2e 20 33 37 32 37 33 29 5d 29 0a 23 40 36 39 20 43 68 65 63 6b 20 46 52 41	11.(#$...37273)]).#@69.Check.FRA
92c0	4d 45 20 66 6f 72 20 63 6f 72 72 65 63 74 6e 65 73 73 2c 20 72 65 74 75 72 6e 69 6e 67 20 74 72	ME.for.correctness,.returning.tr
92e0	75 65 20 69 66 20 63 6f 72 72 65 63 74 2e 0a 0a 28 66 6e 20 46 52 41 4d 45 29 1f 0a 28 64 65 66	ue.if.correct...(fn.FRAME)..(def
9300	61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 63 68 65 63 6b 20 23 5b 32 35 37 20 22 5c 32	alias.'websocket-check.#[257."\2
9320	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\"\
9340	32 31 30 5c 32 31 31 5c 33 30 35 48 5c 33 30 36 3e 5c 32 30 33 2c 00 5c 32 31 31 5c 33 30 31 48	210\211\305H\306>\203,.\211\301H
9360	08 3e 5c 32 30 34 26 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31	.>\204&.\302\303\304.D\"\210\211
9380	5c 33 30 37 48 5c 32 30 36 5c 32 30 32 00 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 3b 00 5c	\307H\206\202.\211\301H.>\204;.\
93a0	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 33 31 30	302\303\304.D\"\210\211\305H\310
93c0	3e 5c 32 30 36 5c 32 30 32 00 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 52 00 5c 33 30 32 5c	>\206\202.\211\301H.>\204R.\302\
93e0	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 33 31 31 3d 5c 32 30	303\304.D\"\210\211\305H\311=\20
9400	35 5c 32 30 32 00 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 69 00 5c 33 30 32 5c 33 30 33 5c	5\202.\211\301H.>\204i.\302\303\
9420	33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 37 48 3f 5c 32 30 35 5c 32 30 32 00 5c 32	304.D\"\210\211\307H?\205\202.\2
9440	31 31 5c 33 30 31 48 08 3e 5c 32 30 34 7f 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\"\
9460	32 31 30 5c 32 31 31 5c 33 31 32 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62	210\211\312H\207".[cl-struct-web
9480	73 6f 63 6b 65 74 2d 66 72 61 6d 65 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67	socket-frame-tags.0.signal.wrong
94a0	2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 31	-type-argument.websocket-frame.1
94c0	20 28 74 65 78 74 20 62 69 6e 61 72 79 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 20 32 20 28 70	.(text.binary.continuation).2.(p
94e0	69 6e 67 20 70 6f 6e 67 29 20 63 6c 6f 73 65 20 34 5d 20 35 20 28 23 24 20 2e 20 33 37 35 35 39	ing.pong).close.4].5.(#$...37559
9500	29 5d 29 0a 23 40 37 30 32 20 54 6f 20 74 68 65 20 57 45 42 53 4f 43 4b 45 54 20 73 65 72 76 65	)]).#@702.To.the.WEBSOCKET.serve
9520	72 2c 20 73 65 6e 64 20 74 68 65 20 46 52 41 4d 45 2e 0a 54 68 69 73 20 77 69 6c 6c 20 72 61 69	r,.send.the.FRAME..This.will.rai
9540	73 65 20 61 6e 20 65 72 72 6f 72 20 69 66 20 74 68 65 20 66 72 61 6d 65 20 69 73 20 69 6c 6c 65	se.an.error.if.the.frame.is.ille
9560	67 61 6c 2e 0a 0a 54 68 65 20 65 72 72 6f 72 20 73 69 67 6e 61 6c 65 64 20 6d 61 79 20 62 65 20	gal...The.error.signaled.may.be.
9580	6f 66 20 74 79 70 65 20 60 77 65 62 73 6f 63 6b 65 74 2d 69 6c 6c 65 67 61 6c 2d 66 72 61 6d 65	of.type.`websocket-illegal-frame
95a0	27 20 69 66 0a 74 68 65 20 66 72 61 6d 65 20 69 73 20 6d 61 6c 66 6f 72 6d 65 64 20 69 6e 20 73	'.if.the.frame.is.malformed.in.s
95c0	6f 6d 65 20 77 61 79 2c 20 61 6c 73 6f 20 68 61 76 69 6e 67 20 74 68 65 20 63 6f 6e 64 69 74 69	ome.way,.also.having.the.conditi
95e0	6f 6e 0a 74 79 70 65 20 6f 66 20 60 77 65 62 73 6f 63 6b 65 74 2d 65 72 72 6f 72 27 2e 20 20 54	on.type.of.`websocket-error'...T
9600	68 65 20 64 61 74 61 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 65 20 73 69 67 6e	he.data.associated.with.the.sign
9620	61 6c 0a 69 73 20 74 68 65 20 66 72 61 6d 65 20 62 65 69 6e 67 20 73 65 6e 74 2e 0a 0a 49 66 20	al.is.the.frame.being.sent...If.
9640	74 68 65 20 77 65 62 73 6f 63 6b 65 74 20 69 73 20 63 6c 6f 73 65 64 20 61 20 73 69 67 6e 61 6c	the.websocket.is.closed.a.signal
9660	20 60 77 65 62 73 6f 63 6b 65 74 2d 63 6c 6f 73 65 64 27 20 69 73 20 73 65 6e 74 2c 0a 61 6c 73	.`websocket-closed'.is.sent,.als
9680	6f 20 77 69 74 68 20 60 77 65 62 73 6f 63 6b 65 74 2d 65 72 72 6f 72 27 20 63 6f 6e 64 69 74 69	o.with.`websocket-error'.conditi
96a0	6f 6e 2e 20 20 54 68 65 20 64 61 74 61 20 69 6e 20 74 68 65 20 73 69 67 6e 61 6c 20 69 73 0a 61	on...The.data.in.the.signal.is.a
96c0	6c 73 6f 20 74 68 65 20 66 72 61 6d 65 2e 0a 0a 54 68 65 20 66 72 61 6d 65 20 6d 61 79 20 62 65	lso.the.frame...The.frame.may.be
96e0	20 74 6f 6f 20 6c 61 72 67 65 20 66 6f 72 20 74 68 69 73 20 62 75 69 64 20 6f 66 20 45 6d 61 63	.too.large.for.this.buid.of.Emac
9700	73 2c 20 69 6e 20 77 68 69 63 68 20 63 61 73 65 0a 60 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d	s,.in.which.case.`websocket-fram
9720	65 2d 74 6f 6f 2d 6c 61 72 67 65 27 20 69 73 20 72 65 74 75 72 6e 65 64 2c 20 77 69 74 68 20 74	e-too-large'.is.returned,.with.t
9740	68 65 20 64 61 74 61 20 6f 66 20 74 68 65 0a 73 69 7a 65 20 6f 66 20 74 68 65 20 66 72 61 6d 65	he.data.of.the.size.of.the.frame
9760	20 77 68 69 63 68 20 77 61 73 20 74 6f 6f 20 6c 61 72 67 65 20 74 6f 20 70 72 6f 63 65 73 73 2e	.which.was.too.large.to.process.
9780	20 20 54 68 69 73 20 61 6c 73 6f 20 68 61 73 0a 74 68 65 20 60 77 65 62 73 6f 63 6b 65 74 2d 65	..This.also.has.the.`websocket-e
97a0	72 72 6f 72 27 20 63 6f 6e 64 69 74 69 6f 6e 2e 0a 0a 28 66 6e 20 57 45 42 53 4f 43 4b 45 54 20	rror'.condition...(fn.WEBSOCKET.
97c0	46 52 41 4d 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 73 65 6e	FRAME)..(defalias.'websocket-sen
97e0	64 20 23 5b 35 31 34 20 22 5c 33 30 32 01 21 5c 32 30 34 0b 00 5c 33 30 33 5c 33 30 34 02 5c 22	d.#[514."\302.!\204..\303\304.\"
9800	5c 32 31 30 5c 33 30 35 02 5c 33 30 36 03 5c 33 30 37 48 08 3e 5c 32 30 34 1e 00 5c 33 30 33 5c	\210\305.\306.\307H.>\204..\303\
9820	33 31 30 5c 33 31 31 06 06 44 5c 22 5c 32 31 30 03 5c 33 31 32 48 04 5c 33 30 37 48 08 3e 5c 32	310\311..D\"\210.\312H.\307H.>\2
9840	30 34 31 00 5c 33 30 33 5c 33 31 30 5c 33 31 31 06 07 44 5c 22 5c 32 31 30 04 5c 33 31 33 48 24	041.\303\310\311..D\"\210.\313H$
9860	5c 32 31 30 5c 33 31 34 02 21 5c 32 31 30 5c 33 31 35 02 21 5c 32 30 34 45 00 5c 33 30 33 5c 33	\210\314.!\210\315.!\204E.\303\3
9880	31 36 02 5c 22 5c 32 31 30 5c 33 31 37 02 5c 33 30 37 48 09 3e 5c 32 30 34 55 00 5c 33 30 33 5c	16.\"\210\317.\307H.>\204U.\303\
98a0	33 31 30 5c 33 32 30 05 44 5c 22 5c 32 31 30 02 5c 33 32 31 48 5c 33 32 32 03 05 5c 33 30 37 48	310\320.D\"\210.\321H\322..\307H
98c0	09 3e 5c 32 30 34 6a 00 5c 33 30 33 5c 33 31 30 5c 33 32 30 06 08 44 5c 22 5c 32 31 30 05 5c 33	.>\204j.\303\310\320..D\"\210.\3
98e0	32 33 48 3f 5c 22 5c 22 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b	23H?\"\"\207".[cl-struct-websock
9900	65 74 2d 66 72 61 6d 65 2d 74 61 67 73 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65	et-frame-tags.cl-struct-websocke
9920	74 2d 74 61 67 73 20 77 65 62 73 6f 63 6b 65 74 2d 63 68 65 63 6b 20 73 69 67 6e 61 6c 20 77 65	t-tags.websocket-check.signal.we
9940	62 73 6f 63 6b 65 74 2d 69 6c 6c 65 67 61 6c 2d 66 72 61 6d 65 20 77 65 62 73 6f 63 6b 65 74 2d	bsocket-illegal-frame.websocket-
9960	64 65 62 75 67 20 22 53 65 6e 64 69 6e 67 20 66 72 61 6d 65 2c 20 6f 70 63 6f 64 65 3a 20 25 73	debug."Sending.frame,.opcode:.%s
9980	20 70 61 79 6c 6f 61 64 3a 20 25 73 22 20 30 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d	.payload:.%s".0.wrong-type-argum
99a0	65 6e 74 20 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 31 20 32 20 77 65 62 73 6f 63 6b 65	ent.websocket-frame.1.2.websocke
99c0	74 2d 65 6e 73 75 72 65 2d 63 6f 6e 6e 65 63 74 65 64 20 77 65 62 73 6f 63 6b 65 74 2d 6f 70 65	t-ensure-connected.websocket-ope
99e0	6e 70 20 77 65 62 73 6f 63 6b 65 74 2d 63 6c 6f 73 65 64 20 70 72 6f 63 65 73 73 2d 73 65 6e 64	np.websocket-closed.process-send
9a00	2d 73 74 72 69 6e 67 20 77 65 62 73 6f 63 6b 65 74 20 31 33 20 77 65 62 73 6f 63 6b 65 74 2d 65	-string.websocket.13.websocket-e
9a20	6e 63 6f 64 65 2d 66 72 61 6d 65 20 39 5d 20 31 30 20 28 23 24 20 2e 20 33 38 31 35 34 29 5d 29	ncode-frame.9].10.(#$...38154)])
9a40	0a 23 40 39 38 20 43 68 65 63 6b 20 57 45 42 53 4f 43 4b 45 54 20 61 6e 64 20 72 65 74 75 72 6e	.#@98.Check.WEBSOCKET.and.return
9a60	20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 69 74 20 69 73 20 6f 70 65 6e 2c 20 61 6e 64 20 65 69 74 68	.non-nil.if.it.is.open,.and.eith
9a80	65 72 0a 63 6f 6e 6e 65 63 74 69 6e 67 20 6f 72 20 6f 70 65 6e 2e 0a 0a 28 66 6e 20 57 45 42 53	er.connecting.or.open...(fn.WEBS
9aa0	4f 43 4b 45 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 6f 70 65	OCKET)..(defalias.'websocket-ope
9ac0	6e 70 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 35 32 00 5c 32 31 31 5c 33 30 31 48 08 3e 5c	np.#[257."\211\2052.\211\301H.>\
9ae0	32 30 34 13 00 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	204..\302\303\304.D\"\210\211\30
9b00	35 48 5c 33 30 36 3d 3f 5c 32 30 35 32 00 5c 33 30 37 01 5c 33 30 31 48 08 3e 5c 32 30 34 2c 00	5H\306=?\2052.\307.\301H.>\204,.
9b20	5c 33 30 32 5c 33 30 33 5c 33 30 34 04 44 5c 22 5c 32 31 30 01 5c 33 31 30 48 21 5c 33 31 31 5c	\302\303\304.D\"\210.\310H!\311\
9b40	32 33 35 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61	235\207".[cl-struct-websocket-ta
9b60	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 75 6d 65 6e 74 20	gs.0.signal.wrong-type-argument.
9b80	77 65 62 73 6f 63 6b 65 74 20 31 20 63 6c 6f 73 65 20 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73	websocket.1.close.process-status
9ba0	20 31 33 20 28 6f 70 65 6e 20 72 75 6e 29 5d 20 36 20 28 23 24 20 2e 20 33 39 34 39 34 29 5d 29	.13.(open.run)].6.(#$...39494)])
9bc0	0a 23 40 37 31 20 43 6c 6f 73 65 20 57 45 42 53 4f 43 4b 45 54 20 61 6e 64 20 65 72 61 73 65 20	.#@71.Close.WEBSOCKET.and.erase.
9be0	61 6c 6c 20 74 68 65 20 6f 6c 64 20 77 65 62 73 6f 63 6b 65 74 20 64 61 74 61 2e 0a 0a 28 66 6e	all.the.old.websocket.data...(fn
9c00	20 57 45 42 53 4f 43 4b 45 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65	.WEBSOCKET)..(defalias.'websocke
9c20	74 2d 63 6c 6f 73 65 20 23 5b 32 35 37 20 22 5c 33 30 31 01 5c 33 30 32 5c 22 5c 32 31 30 5c 33	t-close.#[257."\301.\302\"\210\3
9c40	30 33 5c 33 30 34 5c 33 30 35 03 23 5c 32 31 30 5c 33 30 36 01 21 5c 32 30 33 32 00 5c 33 30 37	03\304\305.#\210\306.!\2032.\307
9c60	01 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 32 31 31 5c 33 31 34 25 5c 22 5c 32 31 30	.\310\311\312\313\211\314%\"\210
9c80	5c 32 31 31 5c 33 31 35 48 08 3e 5c 32 30 34 2b 00 5c 33 31 36 5c 33 31 37 5c 33 32 30 03 44 5c	\211\315H.>\204+.\316\317\320.D\
9ca0	22 5c 32 31 30 5c 32 31 31 5c 32 31 31 5c 33 32 31 5c 33 32 32 49 5c 32 36 36 02 5c 33 32 33 01	"\210\211\211\321\322I\266.\323.
9cc0	5c 33 31 35 48 08 3e 5c 32 30 34 42 00 5c 33 31 36 5c 33 31 37 5c 33 32 30 04 44 5c 22 5c 32 31	\315H.>\204B.\316\317\320.D\"\21
9ce0	30 01 5c 33 32 34 48 21 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b	0.\324H!\207".[cl-struct-websock
9d00	65 74 2d 74 61 67 73 20 77 65 62 73 6f 63 6b 65 74 2d 64 65 62 75 67 20 22 43 6c 6f 73 69 6e 67	et-tags.websocket-debug."Closing
9d20	20 77 65 62 73 6f 63 6b 65 74 22 20 77 65 62 73 6f 63 6b 65 74 2d 74 72 79 2d 63 61 6c 6c 62 61	.websocket".websocket-try-callba
9d40	63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 63 6c 6f 73 65 20 6f 6e 2d 63 6c 6f 73 65 20 77	ck.websocket-on-close.on-close.w
9d60	65 62 73 6f 63 6b 65 74 2d 6f 70 65 6e 70 20 77 65 62 73 6f 63 6b 65 74 2d 73 65 6e 64 20 76 65	ebsocket-openp.websocket-send.ve
9d80	63 74 6f 72 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 20 63	ctor.cl-struct-websocket-frame.c
9da0	6c 6f 73 65 20 6e 69 6c 20 74 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61	lose.nil.t.0.signal.wrong-type-a
9dc0	72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 31 20 63 6c 6f 73 65 64 20 64 65 6c 65 74	rgument.websocket.1.closed.delet
9de0	65 2d 70 72 6f 63 65 73 73 20 31 33 5d 20 39 20 28 23 24 20 2e 20 33 39 38 37 38 29 5d 29 0a 23	e-process.13].9.(#$...39878)]).#
9e00	40 36 35 20 49 66 20 74 68 65 20 57 45 42 53 4f 43 4b 45 54 20 63 6f 6e 6e 65 63 74 69 6f 6e 20	@65.If.the.WEBSOCKET.connection.
9e20	69 73 20 63 6c 6f 73 65 64 2c 20 6f 70 65 6e 20 69 74 2e 0a 0a 28 66 6e 20 57 45 42 53 4f 43 4b	is.closed,.open.it...(fn.WEBSOCK
9e40	45 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 65 6e 73 75 72 65	ET)..(defalias.'websocket-ensure
9e60	2d 63 6f 6e 6e 65 63 74 65 64 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30	-connected.#[257."\211\301H.>\20
9e80	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 31 5c 33 30 35 48	4..\302\303\304.D\"\210\211\305H
9ea0	5c 32 30 35 4a 00 5c 33 30 36 01 5c 33 30 31 48 08 3e 5c 32 30 34 25 00 5c 33 30 32 5c 33 30 33	\205J.\306.\301H.>\204%.\302\303
9ec0	5c 33 30 34 04 44 5c 22 5c 32 31 30 01 5c 33 30 35 48 21 5c 33 30 37 01 5c 33 31 30 5c 22 5c 32	\304.D\"\210.\305H!\307.\310\"\2
9ee0	30 33 34 00 5c 33 31 31 5c 32 30 32 48 00 5c 33 30 37 01 5c 33 31 32 5c 22 5c 32 30 33 3f 00 5c	034.\311\202H.\307.\312\"\203?.\
9f00	33 31 33 5c 32 30 32 48 00 5c 33 31 34 5c 33 31 35 02 5c 33 31 36 23 5c 32 30 35 48 00 5c 33 31	313\202H.\314\315.\316#\205H.\31
9f20	33 5c 32 36 32 01 3f 5c 32 30 35 5c 33 34 37 00 5c 33 31 37 01 21 5c 32 31 30 5c 33 32 30 01 5c	3\262.?\205\347.\317.!\210\320.\
9f40	33 30 31 48 08 3e 5c 32 30 34 62 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 44 5c 22 5c 32 31 30	301H.>\204b.\302\303\304.D\"\210
9f60	01 5c 33 32 31 48 5c 33 32 32 03 5c 33 30 31 48 08 3e 5c 32 30 34 76 00 5c 33 30 32 5c 33 30 33	.\321H\322.\301H.>\204v.\302\303
9f80	5c 33 30 34 06 06 44 5c 22 5c 32 31 30 03 5c 33 32 33 48 5c 33 32 34 05 5c 33 30 31 48 08 3e 5c	\304..D\"\210.\323H\324.\301H.>\
9fa0	32 30 34 5c 32 31 32 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 08 44 5c 22 5c 32 31 30 05 5c 33	204\212.\302\303\304..D\"\210.\3
9fc0	32 35 48 5c 33 32 36 06 07 5c 33 30 31 48 08 3e 5c 32 30 34 5c 32 33 37 00 5c 33 30 32 5c 33 30	25H\326..\301H.>\204\237.\302\30
9fe0	33 5c 33 30 34 06 5c 6e 44 5c 22 5c 32 31 30 06 07 5c 33 32 37 48 5c 33 33 30 06 09 5c 33 30 31	3\304.\nD\"\210..\327H\330..\301
a000	48 08 3e 5c 32 30 34 5c 32 36 35 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 5c 66 44 5c 22 5c 32	H.>\204\265.\302\303\304.\fD\"\2
a020	31 30 06 09 5c 33 33 31 48 5c 33 33 32 06 0b 5c 33 30 31 48 08 3e 5c 32 30 34 5c 33 31 33 00 5c	10..\331H\332..\301H.>\204\313.\
a040	33 30 32 5c 33 30 33 5c 33 30 34 06 0e 44 5c 22 5c 32 31 30 06 0b 5c 33 33 33 48 5c 33 33 34 06	302\303\304..D\"\210..\333H\334.
a060	0d 5c 33 30 31 48 08 3e 5c 32 30 34 5c 33 34 31 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 10 44	.\301H.>\204\341.\302\303\304..D
a080	5c 22 5c 32 31 30 06 0d 5c 33 33 35 48 26 0d 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d	\"\210..\335H&.\207".[cl-struct-
a0a0	77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79	websocket-tags.0.signal.wrong-ty
a0c0	70 65 2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 31 33 20 70 72 6f 63 65 73 73	pe-argument.websocket.13.process
a0e0	2d 73 74 61 74 75 73 20 6d 65 6d 71 6c 20 28 72 75 6e 20 6f 70 65 6e 20 6c 69 73 74 65 6e 29 20	-status.memql.(run.open.listen).
a100	74 20 28 73 74 6f 70 20 65 78 69 74 20 73 69 67 6e 61 6c 20 63 6c 6f 73 65 64 20 63 6f 6e 6e 65	t.(stop.exit.signal.closed.conne
a120	63 74 20 66 61 69 6c 65 64 20 6e 69 6c 29 20 6e 69 6c 20 65 72 72 6f 72 20 22 63 6c 2d 65 63 61	ct.failed.nil).nil.error."cl-eca
a140	73 65 20 66 61 69 6c 65 64 3a 20 25 73 2c 20 25 73 22 20 28 6c 69 73 74 65 6e 20 6f 70 65 6e 20	se.failed:.%s,.%s".(listen.open.
a160	72 75 6e 20 6e 69 6c 20 66 61 69 6c 65 64 20 63 6f 6e 6e 65 63 74 20 63 6c 6f 73 65 64 20 73 69	run.nil.failed.connect.closed.si
a180	67 6e 61 6c 20 65 78 69 74 20 73 74 6f 70 29 20 77 65 62 73 6f 63 6b 65 74 2d 63 6c 6f 73 65 20	gnal.exit.stop).websocket-close.
a1a0	77 65 62 73 6f 63 6b 65 74 2d 6f 70 65 6e 20 31 30 20 3a 70 72 6f 74 6f 63 6f 6c 73 20 31 31 20	websocket-open.10.:protocols.11.
a1c0	3a 65 78 74 65 6e 73 69 6f 6e 73 20 31 32 20 3a 6f 6e 2d 6f 70 65 6e 20 33 20 3a 6f 6e 2d 6d 65	:extensions.12.:on-open.3.:on-me
a1e0	73 73 61 67 65 20 34 20 3a 6f 6e 2d 63 6c 6f 73 65 20 35 20 3a 6f 6e 2d 65 72 72 6f 72 20 36 5d	ssage.4.:on-close.5.:on-error.6]
a200	20 31 38 20 28 23 24 20 2e 20 34 30 34 35 32 29 5d 29 0a 23 40 33 34 38 33 20 4f 70 65 6e 20 61	.18.(#$...40452)]).#@3483.Open.a
a220	20 77 65 62 73 6f 63 6b 65 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 55 52 4c 2c 20 72 65	.websocket.connection.to.URL,.re
a240	74 75 72 6e 69 6e 67 20 74 68 65 20 60 77 65 62 73 6f 63 6b 65 74 27 20 73 74 72 75 63 74 2e 0a	turning.the.`websocket'.struct..
a260	54 68 65 20 50 52 4f 54 4f 43 4f 4c 20 61 72 67 75 6d 65 6e 74 20 69 73 20 6f 70 74 69 6f 6e 61	The.PROTOCOL.argument.is.optiona
a280	6c 2c 20 61 6e 64 20 73 65 74 74 69 6e 67 20 69 74 20 77 69 6c 6c 20 64 65 63 6c 61 72 65 20 74	l,.and.setting.it.will.declare.t
a2a0	6f 0a 74 68 65 20 73 65 72 76 65 72 20 74 68 61 74 20 74 68 69 73 20 63 6c 69 65 6e 74 20 73 75	o.the.server.that.this.client.su
a2c0	70 70 6f 72 74 73 20 74 68 65 20 70 72 6f 74 6f 63 6f 6c 73 20 69 6e 20 74 68 65 20 6c 69 73 74	pports.the.protocols.in.the.list
a2e0	0a 67 69 76 65 6e 2e 20 20 57 65 20 77 69 6c 6c 20 72 65 71 75 69 72 65 20 74 68 61 74 20 74 68	.given...We.will.require.that.th
a300	65 20 73 65 72 76 65 72 20 61 6c 73 6f 20 68 61 73 20 74 6f 20 73 75 70 70 6f 72 74 20 74 68 61	e.server.also.has.to.support.tha
a320	74 0a 70 72 6f 74 6f 63 6f 6c 73 2e 0a 0a 53 69 6d 69 6c 61 72 20 6c 6f 67 69 63 20 61 70 70 6c	t.protocols...Similar.logic.appl
a340	69 65 73 20 74 6f 20 45 58 54 45 4e 53 49 4f 4e 53 2c 20 77 68 69 63 68 20 69 73 20 61 20 6c 69	ies.to.EXTENSIONS,.which.is.a.li
a360	73 74 20 6f 66 20 63 6f 6e 73 65 73 2c 0a 74 68 65 20 63 61 72 20 6f 66 20 77 68 69 63 68 20 69	st.of.conses,.the.car.of.which.i
a380	73 20 61 20 73 74 72 69 6e 67 20 6e 61 6d 69 6e 67 20 74 68 65 20 65 78 74 65 6e 73 69 6f 6e 2c	s.a.string.naming.the.extension,
a3a0	20 61 6e 64 20 74 68 65 20 63 64 72 20 6f 66 0a 77 68 69 63 68 20 69 73 20 74 68 65 20 6c 69 73	.and.the.cdr.of.which.is.the.lis
a3c0	74 20 6f 66 20 70 61 72 61 6d 65 74 65 72 20 73 74 72 69 6e 67 73 20 74 6f 20 75 73 65 20 66 6f	t.of.parameter.strings.to.use.fo
a3e0	72 20 74 68 61 74 20 65 78 74 65 6e 73 69 6f 6e 2e 0a 54 68 65 20 70 61 72 61 6d 65 74 65 72 20	r.that.extension..The.parameter.
a400	73 74 72 69 6e 67 73 20 61 72 65 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 22 6b 65 79 3d 76 61 6c	strings.are.of.the.form."key=val
a420	75 65 22 20 6f 72 20 22 76 61 6c 75 65 22 2e 0a 45 58 54 45 4e 53 49 4f 4e 53 20 63 61 6e 20 62	ue".or."value"..EXTENSIONS.can.b
a440	65 20 4e 49 4c 20 69 66 20 6e 6f 6e 65 20 61 72 65 20 69 6e 20 75 73 65 2e 20 20 41 6e 20 65 78	e.NIL.if.none.are.in.use...An.ex
a460	61 6d 70 6c 65 20 76 61 6c 75 65 20 77 6f 75 6c 64 0a 62 65 20 28 22 64 65 66 6c 61 74 65 2d 73	ample.value.would.be.("deflate-s
a480	74 72 65 61 6d 22 20 2e 20 28 22 6d 75 78 22 20 22 6d 61 78 2d 63 68 61 6e 6e 65 6c 73 3d 34 22	tream"...("mux"."max-channels=4"
a4a0	29 29 2e 0a 0a 43 6f 6f 6b 69 65 73 20 74 68 61 74 20 61 72 65 20 73 65 74 20 76 69 61 20 60 75	))...Cookies.that.are.set.via.`u
a4c0	72 6c 2d 63 6f 6f 6b 69 65 2d 73 74 6f 72 65 27 20 77 69 6c 6c 20 62 65 20 75 73 65 64 20 64 75	rl-cookie-store'.will.be.used.du
a4e0	72 69 6e 67 0a 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 77 69 74 68 20 74 68 65 20 73 65 72 76	ring.communication.with.the.serv
a500	65 72 2c 20 61 6e 64 20 63 6f 6f 6b 69 65 73 20 72 65 63 65 69 76 65 64 20 66 72 6f 6d 20 74 68	er,.and.cookies.received.from.th
a520	65 0a 73 65 72 76 65 72 20 77 69 6c 6c 20 62 65 20 73 74 6f 72 65 64 20 69 6e 20 74 68 65 20 73	e.server.will.be.stored.in.the.s
a540	61 6d 65 20 63 6f 6f 6b 69 65 20 73 74 6f 72 61 67 65 20 74 68 61 74 20 74 68 65 0a 60 75 72 6c	ame.cookie.storage.that.the.`url
a560	2d 63 6f 6f 6b 69 65 27 20 70 61 63 6b 61 67 65 20 75 73 65 73 2e 0a 0a 4f 70 74 69 6f 6e 61 6c	-cookie'.package.uses...Optional
a580	6c 79 20 79 6f 75 20 63 61 6e 20 73 70 65 63 69 66 79 0a 4f 4e 2d 4f 50 45 4e 2c 20 4f 4e 2d 4d	ly.you.can.specify.ON-OPEN,.ON-M
a5a0	45 53 53 41 47 45 20 61 6e 64 20 4f 4e 2d 43 4c 4f 53 45 20 63 61 6c 6c 62 61 63 6b 73 20 61 73	ESSAGE.and.ON-CLOSE.callbacks.as
a5c0	20 77 65 6c 6c 2e 0a 0a 54 68 65 20 4f 4e 2d 4f 50 45 4e 20 63 61 6c 6c 62 61 63 6b 20 69 73 20	.well...The.ON-OPEN.callback.is.
a5e0	63 61 6c 6c 65 64 20 61 66 74 65 72 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 0a 65	called.after.the.connection.is.e
a600	73 74 61 62 6c 69 73 68 65 64 20 77 69 74 68 20 74 68 65 20 77 65 62 73 6f 63 6b 65 74 20 61 73	stablished.with.the.websocket.as
a620	20 74 68 65 20 6f 6e 6c 79 20 61 72 67 75 6d 65 6e 74 2e 20 20 54 68 65 20 72 65 74 75 72 6e 0a	.the.only.argument...The.return.
a640	76 61 6c 75 65 20 69 73 20 75 6e 75 73 65 64 2e 0a 0a 54 68 65 20 4f 4e 2d 4d 45 53 53 41 47 45	value.is.unused...The.ON-MESSAGE
a660	20 63 61 6c 6c 62 61 63 6b 20 69 73 20 63 61 6c 6c 65 64 20 61 66 74 65 72 20 72 65 63 65 69 76	.callback.is.called.after.receiv
a680	69 6e 67 20 61 20 66 72 61 6d 65 2c 20 61 6e 64 20 69 73 0a 63 61 6c 6c 65 64 20 77 69 74 68 20	ing.a.frame,.and.is.called.with.
a6a0	74 68 65 20 77 65 62 73 6f 63 6b 65 74 20 61 73 20 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d	the.websocket.as.the.first.argum
a6c0	65 6e 74 20 61 6e 64 0a 60 77 65 62 73 6f 63 6b 65 74 2d 66 72 61 6d 65 27 20 73 74 72 75 63 74	ent.and.`websocket-frame'.struct
a6e0	20 61 73 20 74 68 65 20 73 65 63 6f 6e 64 2e 20 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75	.as.the.second...The.return.valu
a700	65 20 69 73 0a 75 6e 75 73 65 64 2e 0a 0a 54 68 65 20 4f 4e 2d 43 4c 4f 53 45 20 63 61 6c 6c 62	e.is.unused...The.ON-CLOSE.callb
a720	61 63 6b 20 69 73 20 63 61 6c 6c 65 64 20 61 66 74 65 72 20 74 68 65 20 63 6f 6e 6e 65 63 74 69	ack.is.called.after.the.connecti
a740	6f 6e 20 69 73 20 63 6c 6f 73 65 64 2c 20 6f 72 0a 66 61 69 6c 65 64 20 74 6f 20 6f 70 65 6e 2e	on.is.closed,.or.failed.to.open.
a760	20 20 49 74 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20 77 65 62 73 6f 63 6b 65	..It.is.called.with.the.websocke
a780	74 20 61 73 20 74 68 65 20 6f 6e 6c 79 0a 61 72 67 75 6d 65 6e 74 2c 20 61 6e 64 20 74 68 65 20	t.as.the.only.argument,.and.the.
a7a0	72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 75 6e 75 73 65 64 2e 0a 0a 54 68 65 20 4f 4e 2d	return.value.is.unused...The.ON-
a7c0	45 52 52 4f 52 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 63 61 6c 6c 65 64 20 77 68 65 6e 20 61 6e	ERROR.callback.is.called.when.an
a7e0	79 20 6f 66 20 74 68 65 20 6f 74 68 65 72 20 63 61 6c 6c 62 61 63 6b 73 0a 68 61 76 65 20 61 6e	y.of.the.other.callbacks.have.an
a800	20 65 72 72 6f 72 2e 20 20 49 74 20 74 61 6b 65 73 20 74 68 65 20 77 65 62 73 6f 63 6b 65 74 20	.error...It.takes.the.websocket.
a820	61 73 20 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 2c 20 61 6e 64 0a 61 20 73 79 6d	as.the.first.argument,.and.a.sym
a840	62 6f 6c 20 61 73 20 74 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 65 69 74 68 65	bol.as.the.second.argument.eithe
a860	72 20 60 6f 6e 2d 6f 70 65 6e 27 2c 20 60 6f 6e 2d 6d 65 73 73 61 67 65 27 2c 0a 6f 72 20 60 6f	r.`on-open',.`on-message',.or.`o
a880	6e 2d 63 6c 6f 73 65 27 2c 20 61 6e 64 20 74 68 65 20 65 72 72 6f 72 20 61 73 20 74 68 65 20 74	n-close',.and.the.error.as.the.t
a8a0	68 69 72 64 20 61 72 67 75 6d 65 6e 74 2e 20 44 6f 20 4e 4f 54 0a 72 65 74 68 72 6f 77 20 74 68	hird.argument..Do.NOT.rethrow.th
a8c0	65 20 65 72 72 6f 72 2c 20 6f 72 20 65 6c 73 65 20 79 6f 75 20 6d 61 79 20 6d 69 73 73 20 73 6f	e.error,.or.else.you.may.miss.so
a8e0	6d 65 20 77 65 62 73 6f 63 6b 65 74 20 6d 65 73 73 61 67 65 73 2e 0a 59 6f 75 20 73 69 6d 69 6c	me.websocket.messages..You.simil
a900	61 72 6c 79 20 6d 75 73 74 20 6e 6f 74 20 67 65 6e 65 72 61 74 65 20 61 6e 79 20 6f 74 68 65 72	arly.must.not.generate.any.other
a920	20 65 72 72 6f 72 73 20 69 6e 20 74 68 69 73 20 6d 65 74 68 6f 64 2e 0a 49 66 20 79 6f 75 20 77	.errors.in.this.method..If.you.w
a940	61 6e 74 20 74 6f 20 64 65 62 75 67 20 65 72 72 6f 72 73 2c 20 73 65 74 0a 60 77 65 62 73 6f 63	ant.to.debug.errors,.set.`websoc
a960	6b 65 74 2d 63 61 6c 6c 62 61 63 6b 2d 64 65 62 75 67 2d 6f 6e 2d 65 72 72 6f 72 27 20 74 6f 20	ket-callback-debug-on-error'.to.
a980	74 2c 20 62 75 74 20 74 68 69 73 20 61 6c 73 6f 20 63 61 6e 20 62 65 0a 64 61 6e 67 65 72 6f 75	t,.but.this.also.can.be.dangerou
a9a0	73 20 69 73 20 74 68 65 20 64 65 62 75 67 67 65 72 20 69 73 20 71 75 69 74 20 6f 75 74 20 6f 66	s.is.the.debugger.is.quit.out.of
a9c0	2e 20 20 49 66 20 6e 6f 74 20 73 70 65 63 69 66 69 65 64 2c 0a 60 77 65 62 73 6f 63 6b 65 74 2d	...If.not.specified,.`websocket-
a9e0	64 65 66 61 75 6c 74 2d 65 72 72 6f 72 2d 68 61 6e 64 6c 65 72 27 20 69 73 20 75 73 65 64 2e 0a	default-error-handler'.is.used..
aa00	0a 46 6f 72 20 65 61 63 68 20 6f 66 20 74 68 65 73 65 20 65 76 65 6e 74 20 68 61 6e 64 6c 65 72	.For.each.of.these.event.handler
aa20	73 2c 20 74 68 65 20 63 6c 69 65 6e 74 20 63 6f 64 65 20 63 61 6e 20 73 74 6f 72 65 0a 61 72 62	s,.the.client.code.can.store.arb
aa40	69 74 72 61 72 79 20 64 61 74 61 20 69 6e 20 74 68 65 20 60 63 6c 69 65 6e 74 2d 64 61 74 61 27	itrary.data.in.the.`client-data'
aa60	20 73 6c 6f 74 20 69 6e 20 74 68 65 20 72 65 74 75 72 6e 65 64 0a 77 65 62 73 6f 63 6b 65 74 2e	.slot.in.the.returned.websocket.
aa80	0a 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 72 72 6f 72 73 20 6d 69 67 68 74 20 62 65 20	..The.following.errors.might.be.
aaa0	74 68 72 6f 77 6e 20 69 6e 20 74 68 69 73 20 6d 65 74 68 6f 64 20 6f 72 20 69 6e 0a 77 65 62 73	thrown.in.this.method.or.in.webs
aac0	6f 63 6b 65 74 20 70 72 6f 63 65 73 73 69 6e 67 2c 20 61 6c 6c 20 6f 66 20 74 68 65 6d 20 68 61	ocket.processing,.all.of.them.ha
aae0	76 69 6e 67 20 74 68 65 20 65 72 72 6f 72 2d 63 6f 6e 64 69 74 69 6f 6e 0a 60 77 65 62 73 6f 63	ving.the.error-condition.`websoc
ab00	6b 65 74 2d 65 72 72 6f 72 27 20 69 6e 20 61 64 64 69 74 69 6f 6e 20 74 6f 20 74 68 65 69 72 20	ket-error'.in.addition.to.their.
ab20	6f 77 6e 20 73 79 6d 62 6f 6c 3a 0a 0a 60 77 65 62 73 6f 63 6b 65 74 2d 75 6e 73 75 70 70 6f 72	own.symbol:..`websocket-unsuppor
ab40	74 65 64 2d 70 72 6f 74 6f 63 6f 6c 27 3a 20 44 61 74 61 20 69 6e 20 74 68 65 20 65 72 72 6f 72	ted-protocol':.Data.in.the.error
ab60	20 73 69 67 6e 61 6c 20 69 73 20 74 68 65 0a 70 72 6f 74 6f 63 6f 6c 20 74 68 61 74 20 69 73 20	.signal.is.the.protocol.that.is.
ab80	75 6e 73 75 70 70 6f 72 74 65 64 2e 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 67 69 76 69 6e	unsupported...For.example,.givin
aba0	67 20 61 20 55 52 4c 20 73 74 61 72 74 69 6e 67 0a 77 69 74 68 20 68 74 74 70 20 62 79 20 6d 69	g.a.URL.starting.with.http.by.mi
abc0	73 74 61 6b 65 20 72 61 69 73 65 73 20 74 68 69 73 20 65 72 72 6f 72 2e 0a 0a 60 77 65 62 73 6f	stake.raises.this.error...`webso
abe0	63 6b 65 74 2d 77 73 73 2d 6e 65 65 64 73 2d 65 6d 61 63 73 2d 32 34 27 3a 20 54 72 79 69 6e 67	cket-wss-needs-emacs-24':.Trying
ac00	20 74 6f 20 63 6f 6e 6e 65 63 74 20 77 73 73 20 70 72 6f 74 6f 63 6f 6c 0a 75 73 69 6e 67 20 45	.to.connect.wss.protocol.using.E
ac20	6d 61 63 73 20 3c 20 32 34 20 72 61 69 73 65 73 20 74 68 69 73 20 65 72 72 6f 72 2e 20 20 59 6f	macs.<.24.raises.this.error...Yo
ac40	75 20 63 61 6e 20 63 61 74 63 68 20 74 68 69 73 20 65 72 72 6f 72 0a 61 6c 73 6f 20 62 79 20 60	u.can.catch.this.error.also.by.`
ac60	77 65 62 73 6f 63 6b 65 74 2d 75 6e 73 75 70 70 6f 72 74 65 64 2d 70 72 6f 74 6f 63 6f 6c 27 2e	websocket-unsupported-protocol'.
ac80	0a 0a 60 77 65 62 73 6f 63 6b 65 74 2d 72 65 63 65 69 76 65 64 2d 65 72 72 6f 72 2d 68 74 74 70	..`websocket-received-error-http
aca0	2d 72 65 73 70 6f 6e 73 65 27 3a 20 44 61 74 61 20 69 6e 20 74 68 65 20 65 72 72 6f 72 0a 73 69	-response':.Data.in.the.error.si
acc0	67 6e 61 6c 20 69 73 20 74 68 65 20 69 6e 74 65 67 65 72 20 65 72 72 6f 72 20 6e 75 6d 62 65 72	gnal.is.the.integer.error.number
ace0	2e 0a 0a 60 77 65 62 73 6f 63 6b 65 74 2d 69 6e 76 61 6c 69 64 2d 68 65 61 64 65 72 27 3a 20 44	...`websocket-invalid-header':.D
ad00	61 74 61 20 69 6e 20 74 68 65 20 65 72 72 6f 72 20 69 73 20 61 20 73 74 72 69 6e 67 0a 64 65 73	ata.in.the.error.is.a.string.des
ad20	63 72 69 62 69 6e 67 20 74 68 65 20 69 6e 76 61 6c 69 64 20 68 65 61 64 65 72 20 72 65 63 65 69	cribing.the.invalid.header.recei
ad40	76 65 64 20 66 72 6f 6d 20 74 68 65 20 73 65 72 76 65 72 2e 0a 0a 60 77 65 62 73 6f 63 6b 65 74	ved.from.the.server...`websocket
ad60	2d 75 6e 70 61 72 73 65 61 62 6c 65 2d 66 72 61 6d 65 27 3a 20 44 61 74 61 20 69 6e 20 74 68 65	-unparseable-frame':.Data.in.the
ad80	20 65 72 72 6f 72 20 69 73 20 61 20 73 74 72 69 6e 67 0a 64 65 73 63 72 69 62 69 6e 67 20 74 68	.error.is.a.string.describing.th
ada0	65 20 70 72 6f 62 6c 65 6d 20 77 69 74 68 20 74 68 65 20 66 72 61 6d 65 2e 0a 0a 60 6e 6f 77 61	e.problem.with.the.frame...`nowa
adc0	69 74 27 3a 20 49 66 20 4e 4f 57 41 49 54 20 69 73 20 74 72 75 65 2c 20 72 65 74 75 72 6e 20 77	it':.If.NOWAIT.is.true,.return.w
ade0	69 74 68 6f 75 74 20 77 61 69 74 69 6e 67 20 66 6f 72 20 74 68 65 0a 63 6f 6e 6e 65 63 74 69 6f	ithout.waiting.for.the.connectio
ae00	6e 20 74 6f 20 63 6f 6d 70 6c 65 74 65 2e 0a 0a 60 63 75 73 74 6f 6d 2d 68 65 61 64 65 72 73 2d	n.to.complete...`custom-headers-
ae20	61 6c 69 73 74 27 3a 20 41 6e 20 61 6c 69 73 74 20 6f 66 20 63 75 73 74 6f 6d 20 68 65 61 64 65	alist':.An.alist.of.custom.heade
ae40	72 73 20 74 6f 20 70 61 73 73 20 74 6f 20 74 68 65 0a 73 65 72 76 65 72 2e 20 54 68 65 20 63 61	rs.to.pass.to.the.server..The.ca
ae60	72 20 69 73 20 74 68 65 20 68 65 61 64 65 72 20 6e 61 6d 65 2c 20 74 68 65 20 63 64 72 20 69 73	r.is.the.header.name,.the.cdr.is
ae80	20 74 68 65 20 68 65 61 64 65 72 20 76 61 6c 75 65 2e 0a 54 68 65 73 65 20 61 72 65 20 64 69 66	.the.header.value..These.are.dif
aea0	66 65 72 65 6e 74 20 66 72 6f 6d 20 74 68 65 20 65 78 74 65 6e 73 69 6f 6e 73 20 62 65 63 61 75	ferent.from.the.extensions.becau
aec0	73 65 20 69 74 20 69 73 20 6e 6f 74 20 72 65 6c 61 74 65 64 0a 74 6f 20 74 68 65 20 77 65 62 73	se.it.is.not.related.to.the.webs
aee0	6f 63 6b 65 74 20 70 72 6f 74 6f 63 6f 6c 2e 0a 0a 28 66 6e 20 55 52 4c 20 26 6b 65 79 20 50 52	ocket.protocol...(fn.URL.&key.PR
af00	4f 54 4f 43 4f 4c 53 20 45 58 54 45 4e 53 49 4f 4e 53 20 28 4f 4e 2d 4f 50 45 4e 20 5c 3d 27 69	OTOCOLS.EXTENSIONS.(ON-OPEN.\='i
af20	64 65 6e 74 69 74 79 29 20 28 4f 4e 2d 4d 45 53 53 41 47 45 20 28 6c 61 6d 62 64 61 20 28 5f 77	dentity).(ON-MESSAGE.(lambda.(_w
af40	20 5f 66 29 29 29 20 28 4f 4e 2d 43 4c 4f 53 45 20 5c 3d 27 69 64 65 6e 74 69 74 79 29 20 28 4f	._f))).(ON-CLOSE.\='identity).(O
af60	4e 2d 45 52 52 4f 52 20 5c 3d 27 77 65 62 73 6f 63 6b 65 74 2d 64 65 66 61 75 6c 74 2d 65 72 72	N-ERROR.\='websocket-default-err
af80	6f 72 2d 68 61 6e 64 6c 65 72 29 20 28 4e 4f 57 41 49 54 20 6e 69 6c 29 20 28 43 55 53 54 4f 4d	or-handler).(NOWAIT.nil).(CUSTOM
afa0	2d 48 45 41 44 45 52 2d 41 4c 49 53 54 20 6e 69 6c 29 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	-HEADER-ALIST.nil))..(defalias.'
afc0	77 65 62 73 6f 63 6b 65 74 2d 6f 70 65 6e 20 23 5b 33 38 35 20 22 5c 33 30 34 01 5c 33 30 35 5c	websocket-open.#[385."\304.\305\
afe0	22 41 40 5c 33 30 34 02 5c 33 30 36 5c 22 41 40 5c 33 30 34 03 5c 33 30 37 5c 22 5c 32 30 36 14	"A@\304.\306\"A@\304.\307\"\206.
b000	00 5c 33 31 30 41 40 5c 33 30 34 04 5c 33 31 31 5c 22 5c 32 30 36 20 00 5c 33 31 32 5c 33 31 33	.\310A@\304.\311\"\206..\312\313
b020	44 41 40 5c 33 30 34 05 5c 33 31 34 5c 22 5c 32 30 36 2a 00 5c 33 31 35 41 40 5c 33 30 34 06 06	DA@\304.\314\"\206*.\315A@\304..
b040	5c 33 31 36 5c 22 5c 32 30 36 35 00 5c 33 31 37 41 40 5c 33 30 34 06 07 5c 33 32 30 5c 22 41 40	\316\"\2065.\317A@\304..\320\"A@
b060	5c 33 30 34 06 08 5c 33 32 31 5c 22 41 40 06 08 5c 32 31 31 5c 32 30 33 72 00 5c 32 31 31 40 5c	\304..\321\"A@..\211\203r.\211@\
b080	33 32 32 3e 5c 32 30 33 5a 00 5c 32 31 31 41 41 5c 32 36 32 01 5c 32 30 32 47 00 5c 33 32 33 06	322>\203Z.\211AA\262.\202G.\323.
b0a0	5c 6e 3e 41 40 5c 32 30 33 69 00 5c 33 31 32 5c 32 36 32 01 5c 32 30 32 47 00 5c 33 32 34 5c 33	\n>A@\203i.\312\262.\202G.\324\3
b0c0	32 35 02 40 5c 22 5c 32 31 30 5c 32 30 32 47 00 5c 32 31 30 5c 33 32 36 5c 33 32 37 06 0b 5c 22	25.@\"\210\202G.\210\326\327..\"
b0e0	5c 33 33 30 06 0b 21 5c 33 33 31 20 5c 33 33 32 5c 32 31 31 18 19 01 5c 33 33 33 48 5c 6e 3e 5c	\330..!\331.\332\211...\333H\n>\
b100	32 30 34 5c 32 32 31 00 5c 33 33 34 5c 33 33 35 5c 33 33 36 04 44 5c 22 5c 32 31 30 01 5c 33 33	204\221.\334\335\336.D\"\210.\33
b120	37 48 5c 33 34 30 5c 32 33 35 5c 32 30 33 5c 32 33 31 01 01 5c 33 33 33 48 5c 6e 3e 5c 32 30 34	7H\340\235\203\231..\333H\n>\204
b140	5c 32 35 30 00 5c 33 33 34 5c 33 33 35 5c 33 33 36 04 44 5c 22 5c 32 31 30 01 5c 33 33 37 48 5c	\250.\334\335\336.D\"\210.\337H\
b160	33 34 31 5c 32 33 32 5c 32 30 33 5c 32 36 34 00 5c 33 34 32 5c 32 30 32 5c 32 36 35 00 5c 33 34	341\232\203\264.\342\202\265.\34
b180	33 02 5c 32 31 31 1b 5c 33 33 33 48 5c 6e 3e 5c 32 30 34 5c 33 30 36 00 5c 33 33 34 5c 33 33 35	3.\211.\333H\n>\204\306.\334\335
b1a0	5c 33 33 36 0b 44 5c 22 5c 32 31 30 0b 5c 33 34 34 48 5c 32 30 36 5c 33 36 36 00 0b 5c 33 33 33	\336.D\"\210.\344H\206\366..\333
b1c0	48 5c 6e 3e 5c 32 30 34 5c 33 33 33 00 5c 33 33 34 5c 33 33 35 5c 33 33 36 0b 44 5c 22 5c 32 31	H\n>\204\333.\334\335\336.D\"\21
b1e0	30 0b 5c 33 33 37 48 5c 32 30 35 5c 33 36 36 00 5c 33 34 35 0b 5c 33 33 33 48 5c 6e 3e 5c 32 30	0.\337H\205\366.\345.\333H\n>\20
b200	34 5c 33 36 31 00 5c 33 33 34 5c 33 33 35 5c 33 33 36 0b 44 5c 22 5c 32 31 30 0b 5c 33 33 37 48	4\361.\334\335\336.D\"\210.\337H
b220	5c 33 34 36 5c 22 29 5c 33 33 33 55 5c 32 30 33 5c 6e 01 5c 32 31 31 5c 33 34 33 3d 5c 32 30 33	\346\")\333U\203\n.\211\343=\203
b240	06 01 5c 33 34 37 5c 32 30 32 4c 01 5c 33 35 30 5c 32 30 32 4c 01 02 5c 32 31 31 1b 5c 33 33 33	..\347\202L.\350\202L..\211.\333
b260	48 5c 6e 3e 5c 32 30 34 1b 01 5c 33 33 34 5c 33 33 35 5c 33 33 36 0b 44 5c 22 5c 32 31 30 0b 5c	H\n>\204..\334\335\336.D\"\210.\
b280	33 34 34 48 5c 32 30 36 4b 01 0b 5c 33 33 33 48 5c 6e 3e 5c 32 30 34 30 01 5c 33 33 34 5c 33 33	344H\206K..\333H\n>\2040.\334\33
b2a0	35 5c 33 33 36 0b 44 5c 22 5c 32 31 30 0b 5c 33 33 37 48 5c 32 30 35 4b 01 5c 33 34 35 0b 5c 33	5\336.D\"\210.\337H\205K.\345.\3
b2c0	33 33 48 5c 6e 3e 5c 32 30 34 46 01 5c 33 33 34 5c 33 33 35 5c 33 33 36 0b 44 5c 22 5c 32 31 30	33H\n>\204F.\334\335\336.D\"\210
b2e0	0b 5c 33 33 37 48 5c 33 34 36 5c 22 29 03 5c 33 33 33 48 5c 6e 3e 5c 32 30 34 5c 5c 01 5c 33 33	.\337H\346\").\333H\n>\204\\.\33
b300	34 5c 33 33 35 5c 33 33 36 06 06 44 5c 22 5c 32 31 30 03 5c 33 35 31 48 02 5c 33 34 32 3d 5c 32	4\335\336..D\"\210.\351H.\342=\2
b320	30 33 79 01 5c 33 35 32 5c 33 35 33 06 07 5c 33 35 34 5c 33 31 32 5c 33 35 35 06 06 5c 33 35 36	03y.\352\353..\354\312\355..\356
b340	06 09 5c 33 32 30 06 11 26 5c 6e 5c 32 30 32 5c 32 32 34 01 5c 33 35 37 31 5c 32 31 37 01 5c 33	..\320..&\n\202\224.\3571\217.\3
b360	36 30 06 06 5c 33 31 32 03 05 5c 33 36 31 06 08 5c 33 32 30 06 0f 26 08 30 5c 32 30 32 5c 32 32	60..\312..\361..\320..&.0\202\22
b380	34 01 5c 32 31 30 5c 33 33 34 5c 33 36 32 5c 33 36 33 5c 22 5c 32 36 36 5c 32 30 33 5c 32 30 32	4.\210\334\362\363\"\266\203\202
b3a0	5c 32 35 37 01 5c 33 33 34 5c 33 36 34 03 5c 33 33 33 48 5c 6e 3e 5c 32 30 34 5c 32 35 33 01 5c	\257.\334\364.\333H\n>\204\253.\
b3c0	33 33 34 5c 33 33 35 5c 33 33 36 06 06 44 5c 22 5c 32 31 30 03 5c 33 33 37 48 5c 22 5c 33 36 35	334\335\336..D\"\210.\337H\"\365
b3e0	5c 33 36 36 02 5c 33 36 37 06 11 5c 33 30 37 06 0f 5c 33 31 31 06 10 5c 33 31 34 06 11 5c 33 31	\366.\367..\307..\311..\314..\31
b400	36 06 12 5c 33 30 35 06 19 5c 33 30 36 5c 33 37 30 5c 33 37 31 06 1c 5c 22 5c 33 37 32 5c 33 37	6..\305..\306\370\371..\"\372\37
b420	33 06 14 21 26 12 01 5c 32 30 34 5c 33 33 33 01 5c 33 32 34 5c 33 37 34 06 10 5c 22 5c 32 31 30	3..!&..\204\333.\324\374..\"\210
b440	5c 33 37 35 02 5c 33 37 36 03 23 5c 32 31 30 5c 33 37 37 02 5c 32 30 31 40 00 5c 22 5c 32 31 30	\375.\376.#\210\377.\201@.\"\210
b460	5c 32 30 31 41 00 02 5c 32 30 31 42 00 06 11 05 06 07 06 12 06 12 06 0d 06 0f 26 07 5c 22 5c 32	\201A..\201B..............&.\"\2
b480	31 30 5c 32 30 31 43 00 02 5c 33 31 32 5c 22 5c 32 31 30 5c 32 30 31 44 00 06 0f 03 05 06 10 06	10\201C..\312\"\210\201D........
b4a0	10 06 0b 26 06 5c 32 31 30 2a 5c 32 36 36 5c 32 30 34 5c 32 30 37 22 20 5b 63 6f 64 69 6e 67 2d	...&.\210*\266\204\207".[coding-
b4c0	73 79 73 74 65 6d 2d 66 6f 72 2d 72 65 61 64 20 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2d 66 6f	system-for-read.coding-system-fo
b4e0	72 2d 77 72 69 74 65 20 63 6c 2d 73 74 72 75 63 74 2d 75 72 6c 2d 74 61 67 73 20 75 72 6c 6f 62	r-write.cl-struct-url-tags.urlob
b500	6a 20 70 6c 69 73 74 2d 6d 65 6d 62 65 72 20 3a 70 72 6f 74 6f 63 6f 6c 73 20 3a 65 78 74 65 6e	j.plist-member.:protocols.:exten
b520	73 69 6f 6e 73 20 3a 6f 6e 2d 6f 70 65 6e 20 28 6e 69 6c 20 69 64 65 6e 74 69 74 79 29 20 3a 6f	sions.:on-open.(nil.identity).:o
b540	6e 2d 6d 65 73 73 61 67 65 20 6e 69 6c 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 30 37 22 20 5b	n-message.nil.#[514."\300\207".[
b560	6e 69 6c 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 57 20 46 29 22 5d 20 3a 6f 6e 2d 63 6c 6f 73 65	nil].3."\n\n(fn.W.F)"].:on-close
b580	20 28 6e 69 6c 20 69 64 65 6e 74 69 74 79 29 20 3a 6f 6e 2d 65 72 72 6f 72 20 28 6e 69 6c 20 77	.(nil.identity).:on-error.(nil.w
b5a0	65 62 73 6f 63 6b 65 74 2d 64 65 66 61 75 6c 74 2d 65 72 72 6f 72 2d 68 61 6e 64 6c 65 72 29 20	ebsocket-default-error-handler).
b5c0	3a 6e 6f 77 61 69 74 20 3a 63 75 73 74 6f 6d 2d 68 65 61 64 65 72 2d 61 6c 69 73 74 20 28 3a 70	:nowait.:custom-header-alist.(:p
b5e0	72 6f 74 6f 63 6f 6c 73 20 3a 65 78 74 65 6e 73 69 6f 6e 73 20 3a 6f 6e 2d 6f 70 65 6e 20 3a 6f	rotocols.:extensions.:on-open.:o
b600	6e 2d 6d 65 73 73 61 67 65 20 3a 6f 6e 2d 63 6c 6f 73 65 20 3a 6f 6e 2d 65 72 72 6f 72 20 3a 6e	n-message.:on-close.:on-error.:n
b620	6f 77 61 69 74 20 3a 63 75 73 74 6f 6d 2d 68 65 61 64 65 72 2d 61 6c 69 73 74 20 3a 61 6c 6c 6f	owait.:custom-header-alist.:allo
b640	77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20	w-other-keys).:allow-other-keys.
b660	65 72 72 6f 72 20 22 4b 65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 20 25 73 20 6e 6f 74 20 6f	error."Keyword.argument.%s.not.o
b680	6e 65 20 6f 66 20 28 3a 70 72 6f 74 6f 63 6f 6c 73 20 3a 65 78 74 65 6e 73 69 6f 6e 73 20 3a 6f	ne.of.(:protocols.:extensions.:o
b6a0	6e 2d 6f 70 65 6e 20 3a 6f 6e 2d 6d 65 73 73 61 67 65 20 3a 6f 6e 2d 63 6c 6f 73 65 20 3a 6f 6e	n-open.:on-message.:on-close.:on
b6c0	2d 65 72 72 6f 72 20 3a 6e 6f 77 61 69 74 20 3a 63 75 73 74 6f 6d 2d 68 65 61 64 65 72 2d 61 6c	-error.:nowait.:custom-header-al
b6e0	69 73 74 29 22 20 66 6f 72 6d 61 74 20 22 77 65 62 73 6f 63 6b 65 74 20 74 6f 20 25 73 22 20 75	ist)".format."websocket.to.%s".u
b700	72 6c 2d 67 65 6e 65 72 69 63 2d 70 61 72 73 65 2d 75 72 6c 20 77 65 62 73 6f 63 6b 65 74 2d 67	rl-generic-parse-url.websocket-g
b720	65 6e 6b 65 79 20 62 69 6e 61 72 79 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65	enkey.binary.0.signal.wrong-type
b740	2d 61 72 67 75 6d 65 6e 74 20 75 72 6c 20 31 20 28 22 77 73 22 20 22 77 73 73 22 29 20 22 77 73	-argument.url.1.("ws"."wss")."ws
b760	22 20 70 6c 61 69 6e 20 74 6c 73 20 35 20 75 72 6c 2d 73 63 68 65 6d 65 2d 67 65 74 2d 70 72 6f	".plain.tls.5.url-scheme-get-pro
b780	70 65 72 74 79 20 64 65 66 61 75 6c 74 2d 70 6f 72 74 20 34 34 33 20 38 30 20 34 20 6d 61 6b 65	perty.default-port.443.80.4.make
b7a0	2d 6e 65 74 77 6f 72 6b 2d 70 72 6f 63 65 73 73 20 3a 6e 61 6d 65 20 3a 62 75 66 66 65 72 20 3a	-network-process.:name.:buffer.:
b7c0	68 6f 73 74 20 3a 73 65 72 76 69 63 65 20 28 64 65 62 75 67 20 77 72 6f 6e 67 2d 6e 75 6d 62 65	host.:service.(debug.wrong-numbe
b7e0	72 2d 6f 66 2d 61 72 67 75 6d 65 6e 74 73 29 20 6f 70 65 6e 2d 6e 65 74 77 6f 72 6b 2d 73 74 72	r-of-arguments).open-network-str
b800	65 61 6d 20 3a 74 79 70 65 20 77 65 62 73 6f 63 6b 65 74 2d 77 73 73 2d 6e 65 65 64 73 2d 65 6d	eam.:type.websocket-wss-needs-em
b820	61 63 73 2d 32 34 20 22 77 73 73 22 20 77 65 62 73 6f 63 6b 65 74 2d 75 6e 73 75 70 70 6f 72 74	acs-24."wss".websocket-unsupport
b840	65 64 2d 70 72 6f 74 6f 63 6f 6c 20 77 65 62 73 6f 63 6b 65 74 2d 69 6e 6e 65 72 2d 63 72 65 61	ed-protocol.websocket-inner-crea
b860	74 65 20 3a 63 6f 6e 6e 20 3a 75 72 6c 20 6d 61 70 63 61 72 20 63 61 72 20 3a 61 63 63 65 70 74	te.:conn.:url.mapcar.car.:accept
b880	2d 73 74 72 69 6e 67 20 77 65 62 73 6f 63 6b 65 74 2d 63 61 6c 63 75 6c 61 74 65 2d 61 63 63 65	-string.websocket-calculate-acce
b8a0	70 74 20 22 43 6f 75 6c 64 20 6e 6f 74 20 65 73 74 61 62 6c 69 73 68 20 74 68 65 20 77 65 62 73	pt."Could.not.establish.the.webs
b8c0	6f 63 6b 65 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 25 73 22 20 70 72 6f 63 65 73 73 2d	ocket.connection.to.%s".process-
b8e0	70 75 74 20 3a 77 65 62 73 6f 63 6b 65 74 20 73 65 74 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65	put.:websocket.set-process-filte
b900	72 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 22 5c 33 30 32 01 03 5c 22 5c 32 30 37	r.#[514."\300.\301\"\302..\"\207
b920	22 20 5b 70 72 6f 63 65 73 73 2d 67 65 74 20 3a 77 65 62 73 6f 63 6b 65 74 20 77 65 62 73 6f 63	".[process-get.:websocket.websoc
b940	6b 65 74 2d 6f 75 74 65 72 2d 66 69 6c 74 65 72 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 50 52 4f	ket-outer-filter].6."\n\n(fn.PRO
b960	43 45 53 53 20 4f 55 54 50 55 54 29 22 5d 20 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 69	CESS.OUTPUT)"].set-process-senti
b980	6e 65 6c 20 77 65 62 73 6f 63 6b 65 74 2d 73 65 6e 74 69 6e 65 6c 20 73 65 74 2d 70 72 6f 63 65	nel.websocket-sentinel.set-proce
b9a0	73 73 2d 71 75 65 72 79 2d 6f 6e 2d 65 78 69 74 2d 66 6c 61 67 20 77 65 62 73 6f 63 6b 65 74 2d	ss-query-on-exit-flag.websocket-
b9c0	65 6e 73 75 72 65 2d 68 61 6e 64 73 68 61 6b 65 5d 20 33 35 20 28 23 24 20 2e 20 34 31 34 39 38	ensure-handshake].35.(#$...41498
b9e0	29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 73 65 6e 74 69 6e 65	)]).(defalias.'websocket-sentine
ba00	6c 20 23 5b 31 37 39 39 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 0b	l.#[1799."\300\301\302\303\304..
ba20	06 0b 06 0b 06 0b 06 0b 06 0b 06 0b 26 07 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30	............&.\305\"\306\307%\20
ba40	37 22 20 5b 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33 30 37 02 5c 33 31	7".[make-byte-code.514."\307.\31
ba60	30 5c 22 5c 33 31 31 01 5c 33 31 32 04 23 5c 32 31 30 5c 33 31 33 03 21 5c 33 30 36 5c 32 30 33	0\"\311.\312.#\210\313.!\306\203
ba80	21 00 5c 32 31 31 5c 33 31 34 3d 5c 32 30 33 21 00 5c 33 31 35 5c 33 30 30 5c 33 30 31 5c 33 30	!.\211\314=\203!.\315\300\301\30
baa0	32 5c 33 30 33 5c 33 30 34 5c 33 30 35 26 06 5c 32 31 30 5c 32 31 31 5c 33 31 36 5c 32 33 35 5c	2\303\304\305&.\210\211\316\235\
bac0	32 30 35 45 00 01 5c 33 31 37 48 0e 18 3e 5c 32 30 34 37 00 5c 33 32 30 5c 33 32 31 5c 33 32 32	205E..\317H..>\2047.\320\321\322
bae0	04 44 5c 22 5c 32 31 30 01 5c 33 32 33 48 5c 33 32 34 3d 3f 5c 32 30 35 45 00 5c 33 32 35 5c 33	.D\"\210.\323H\324=?\205E.\325\3
bb00	32 36 5c 33 32 37 04 23 5c 32 36 32 01 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f	26\327.#\262.\207".vconcat.vecto
bb20	72 20 5b 70 72 6f 63 65 73 73 2d 67 65 74 20 3a 77 65 62 73 6f 63 6b 65 74 20 77 65 62 73 6f 63	r.[process-get.:websocket.websoc
bb40	6b 65 74 2d 64 65 62 75 67 20 22 53 74 61 74 65 20 63 68 61 6e 67 65 20 74 6f 20 25 73 22 20 70	ket-debug."State.change.to.%s".p
bb60	72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 6f 70 65 6e 20 77 65 62 73 6f 63 6b 65 74 2d 65 6e 73	rocess-status.open.websocket-ens
bb80	75 72 65 2d 68 61 6e 64 73 68 61 6b 65 20 28 63 6c 6f 73 65 64 20 66 61 69 6c 65 64 20 65 78 69	ure-handshake.(closed.failed.exi
bba0	74 20 73 69 67 6e 61 6c 29 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72	t.signal).0.signal.wrong-type-ar
bbc0	67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 31 20 63 6c 6f 73 65 64 20 77 65 62 73 6f 63	gument.websocket.1.closed.websoc
bbe0	6b 65 74 2d 74 72 79 2d 63 61 6c 6c 62 61 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 63 6c	ket-try-callback.websocket-on-cl
bc00	6f 73 65 20 6f 6e 2d 63 6c 6f 73 65 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74	ose.on-close.cl-struct-websocket
bc20	2d 74 61 67 73 5d 20 31 31 20 22 5c 6e 5c 6e 28 66 6e 20 50 52 4f 43 45 53 53 20 43 48 41 4e 47	-tags].11."\n\n(fn.PROCESS.CHANG
bc40	45 29 22 5d 20 31 39 20 22 5c 6e 5c 6e 28 66 6e 20 55 52 4c 20 43 4f 4e 4e 20 4b 45 59 20 50 52	E)"].19."\n\n(fn.URL.CONN.KEY.PR
bc60	4f 54 4f 43 4f 4c 53 20 45 58 54 45 4e 53 49 4f 4e 53 20 43 55 53 54 4f 4d 2d 48 45 41 44 45 52	OTOCOLS.EXTENSIONS.CUSTOM-HEADER
bc80	2d 41 4c 49 53 54 20 4e 4f 57 41 49 54 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62	-ALIST.NOWAIT)"]).(defalias.'web
bca0	73 6f 63 6b 65 74 2d 65 6e 73 75 72 65 2d 68 61 6e 64 73 68 61 6b 65 20 23 5b 31 35 34 32 20 22	socket-ensure-handshake.#[1542."
bcc0	5c 33 30 32 06 06 21 5c 33 30 33 06 06 5c 33 30 34 5c 22 5c 32 31 31 5c 33 30 35 48 08 3e 5c 32	\302..!\303..\304\"\211\305H.>\2
bce0	30 34 18 00 5c 33 30 36 5c 33 30 37 5c 33 31 30 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 31 31	04..\306\307\310.D\"\210\211\311
bd00	48 5c 33 31 32 3d 5c 32 30 35 7c 00 5c 33 31 33 06 07 21 5c 33 31 34 3d 5c 32 30 35 7c 00 5c 33	H\312=\205|.\313..!\314=\205|.\3
bd20	31 35 06 07 5c 33 31 36 5c 33 31 37 05 5c 33 30 35 48 09 3e 5c 32 30 34 3e 00 5c 33 30 36 5c 33	15..\316\317.\305H.>\204>.\306\3
bd40	30 37 5c 33 32 30 06 08 44 5c 22 5c 32 31 30 05 5c 33 32 31 48 5c 32 31 31 47 5c 33 30 35 56 5c	07\320..D\"\210.\321H\211G\305V\
bd60	32 30 33 4c 00 5c 32 31 31 5c 32 30 32 4d 00 5c 33 32 32 5c 32 36 32 01 5c 22 5c 22 5c 32 31 30	203L.\211\202M.\322\262.\"\"\210
bd80	5c 33 32 33 01 5c 33 32 34 06 08 04 5c 33 30 35 48 08 3e 5c 32 30 34 67 00 5c 33 30 36 5c 33 30	\323.\324...\305H.>\204g.\306\30
bda0	37 5c 33 31 30 06 07 44 5c 22 5c 32 31 30 04 5c 33 32 35 48 24 5c 32 31 30 5c 33 31 35 06 07 5c	7\310..D\"\210.\325H$\210\315..\
bdc0	33 32 36 06 5c 6e 06 09 06 09 06 09 06 09 25 5c 22 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63	326.\n........%\"\207".[cl-struc
bde0	74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 20 63 6c 2d 73 74 72 75 63 74 2d 75 72 6c 2d 74	t-websocket-tags.cl-struct-url-t
be00	61 67 73 20 75 72 6c 2d 67 65 6e 65 72 69 63 2d 70 61 72 73 65 2d 75 72 6c 20 70 72 6f 63 65 73	ags.url-generic-parse-url.proces
be20	73 2d 67 65 74 20 3a 77 65 62 73 6f 63 6b 65 74 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d	s-get.:websocket.0.signal.wrong-
be40	74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 31 20 63 6f 6e 6e 65 63	type-argument.websocket.1.connec
be60	74 69 6e 67 20 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 6f 70 65 6e 20 70 72 6f 63 65 73 73	ting.process-status.open.process
be80	2d 73 65 6e 64 2d 73 74 72 69 6e 67 20 66 6f 72 6d 61 74 20 22 47 45 54 20 25 73 20 48 54 54 50	-send-string.format."GET.%s.HTTP
bea0	2f 31 2e 31 0d 5c 6e 22 20 75 72 6c 20 36 20 22 2f 22 20 77 65 62 73 6f 63 6b 65 74 2d 64 65 62	/1.1.\n".url.6."/".websocket-deb
bec0	75 67 20 22 53 65 6e 64 69 6e 67 20 68 61 6e 64 73 68 61 6b 65 2c 20 6b 65 79 3a 20 25 73 2c 20	ug."Sending.handshake,.key:.%s,.
bee0	61 63 63 65 70 74 61 6e 63 65 3a 20 25 73 22 20 31 35 20 77 65 62 73 6f 63 6b 65 74 2d 63 72 65	acceptance:.%s".15.websocket-cre
bf00	61 74 65 2d 68 65 61 64 65 72 73 5d 20 31 36 20 22 5c 6e 5c 6e 28 66 6e 20 55 52 4c 20 43 4f 4e	ate-headers].16."\n\n(fn.URL.CON
bf20	4e 20 4b 45 59 20 50 52 4f 54 4f 43 4f 4c 53 20 45 58 54 45 4e 53 49 4f 4e 53 20 43 55 53 54 4f	N.KEY.PROTOCOLS.EXTENSIONS.CUSTO
bf40	4d 2d 48 45 41 44 45 52 2d 41 4c 49 53 54 29 22 5d 29 0a 23 40 37 37 20 4f 6e 20 6f 70 65 6e 69	M-HEADER-ALIST)"]).#@77.On.openi
bf60	6e 67 20 55 52 4c 2c 20 70 72 6f 63 65 73 73 20 74 68 65 20 48 45 41 44 45 52 53 20 73 65 6e 74	ng.URL,.process.the.HEADERS.sent
bf80	20 66 72 6f 6d 20 74 68 65 20 73 65 72 76 65 72 2e 0a 0a 28 66 6e 20 55 52 4c 20 48 45 41 44 45	.from.the.server...(fn.URL.HEADE
bfa0	52 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 70 72 6f 63 65 73	RS)..(defalias.'websocket-proces
bfc0	73 2d 68 65 61 64 65 72 73 20 23 5b 35 31 34 20 22 5c 33 30 31 5c 33 30 32 02 5c 22 5c 32 30 35	s-headers.#[514."\301\302.\"\205
bfe0	12 00 5c 33 30 33 02 21 18 5c 33 30 34 5c 33 30 35 5c 33 30 36 03 5c 22 21 29 5c 32 30 37 22 20	..\303.!.\304\305\306.\"!)\207".
c000	5b 75 72 6c 2d 63 75 72 72 65 6e 74 2d 6f 62 6a 65 63 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68	[url-current-object.string-match
c020	20 22 53 65 74 2d 43 6f 6f 6b 69 65 3a 20 28 2e 2a 29 0d 5c 6e 22 20 75 72 6c 2d 67 65 6e 65 72	."Set-Cookie:.(.*).\n".url-gener
c040	69 63 2d 70 61 72 73 65 2d 75 72 6c 20 75 72 6c 2d 63 6f 6f 6b 69 65 2d 68 61 6e 64 6c 65 2d 73	ic-parse-url.url-cookie-handle-s
c060	65 74 2d 63 6f 6f 6b 69 65 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 5d 20 36 20 28 23 24 20	et-cookie.match-string.1].6.(#$.
c080	2e 20 34 38 39 38 34 29 5d 29 0a 23 40 32 34 34 20 46 69 6c 74 65 72 20 74 68 65 20 57 45 42 53	..48984)]).#@244.Filter.the.WEBS
c0a0	4f 43 4b 45 54 20 73 65 72 76 65 72 27 73 20 4f 55 54 50 55 54 2e 0a 54 68 69 73 20 77 69 6c 6c	OCKET.server's.OUTPUT..This.will
c0c0	20 70 61 72 73 65 20 68 65 61 64 65 72 73 20 61 6e 64 20 70 72 6f 63 65 73 73 20 66 72 61 6d 65	.parse.headers.and.process.frame
c0e0	73 20 72 65 70 65 61 74 65 64 6c 79 20 75 6e 74 69 6c 20 74 68 65 72 65 0a 69 73 20 6e 6f 20 6d	s.repeatedly.until.there.is.no.m
c100	6f 72 65 20 6f 75 74 70 75 74 20 6f 72 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6c 6f	ore.output.or.the.connection.clo
c120	73 65 73 2e 20 20 49 66 20 74 68 65 20 77 65 62 73 6f 63 6b 65 74 0a 63 6f 6e 6e 65 63 74 69 6f	ses...If.the.websocket.connectio
c140	6e 20 69 73 20 69 6e 76 61 6c 69 64 2c 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 77 69 6c	n.is.invalid,.the.connection.wil
c160	6c 20 62 65 20 63 6c 6f 73 65 64 2e 0a 0a 28 66 6e 20 57 45 42 53 4f 43 4b 45 54 20 4f 55 54 50	l.be.closed...(fn.WEBSOCKET.OUTP
c180	55 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 6f 75 74 65 72 2d	UT)..(defalias.'websocket-outer-
c1a0	66 69 6c 74 65 72 20 23 5b 35 31 34 20 22 5c 33 30 31 02 5c 33 30 32 03 23 5c 32 31 30 5c 33 30	filter.#[514."\301.\302.#\210\30
c1c0	33 02 5c 33 30 34 48 08 3e 5c 32 30 34 16 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 05 44 5c 22 5c	3.\304H.>\204..\305\306\307.D\"\
c1e0	32 31 30 02 5c 33 31 30 48 02 50 5c 33 30 33 04 5c 33 30 34 48 08 3e 5c 32 30 34 2c 00 5c 33 30	210.\310H.P\303.\304H.>\204,.\30
c200	35 5c 33 30 36 5c 33 30 37 06 07 44 5c 22 5c 32 31 30 04 5c 32 31 31 5c 33 31 30 5c 33 30 33 49	5\306\307..D\"\210.\211\310\303I
c220	5c 32 36 36 02 04 5c 33 30 34 48 08 3e 5c 32 30 34 43 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 06	\266..\304H.>\204C.\305\306\307.
c240	07 44 5c 22 5c 32 31 30 04 5c 33 31 31 48 5c 33 31 32 3d 5c 32 30 33 5c 33 31 33 00 5c 33 31 33	.D\"\210.\311H\312=\203\313.\313
c260	5c 33 31 34 03 5c 22 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 5c 32 36 34 00 5c 33 31 35 01 5c 5c	\314.\"\211\262.\203\264.\315.\\
c280	5c 32 31 31 5c 32 36 32 04 5c 32 30 33 5c 32 36 34 00 5c 33 31 36 31 5c 32 30 35 00 5c 33 31 37	\211\262.\203\264.\3161\205.\317
c2a0	02 21 5c 32 31 30 5c 33 32 30 05 03 5c 22 5c 32 31 30 5c 33 32 31 05 5c 33 30 34 48 08 3e 5c 32	.!\210\320..\"\210\321.\304H.>\2
c2c0	30 34 7c 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 08 44 5c 22 5c 32 31 30 05 5c 33 32 32 48 03	04|.\305\306\307..D\"\210.\322H.
c2e0	5c 22 30 5c 32 30 32 5c 32 32 32 00 5c 33 32 33 06 06 21 5c 32 31 30 5c 33 30 35 01 40 02 41 5c	\"0\202\222.\323..!\210\305.@.A\
c300	22 5c 32 36 32 01 5c 32 31 30 04 5c 33 30 34 48 08 3e 5c 32 30 34 5c 32 34 33 00 5c 33 30 35 5c	"\262.\210.\304H.>\204\243.\305\
c320	33 30 36 5c 33 30 37 06 07 44 5c 22 5c 32 31 30 04 5c 32 31 31 5c 33 31 31 5c 33 32 34 49 5c 32	306\307..D\"\210.\211\311\324I\2
c340	36 36 02 5c 33 32 35 5c 33 32 36 5c 33 32 37 06 07 23 5c 32 31 30 5c 32 30 32 5c 33 31 33 00 04	66.\325\326\327..#\210\202\313..
c360	5c 33 30 34 48 08 3e 5c 32 30 34 5c 33 30 34 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 07 44 5c	\304H.>\204\304.\305\306\307..D\
c380	22 5c 32 31 30 04 5c 32 31 31 5c 33 31 30 04 49 5c 32 36 36 02 04 5c 33 30 34 48 08 3e 5c 32 30	"\210.\211\310.I\266..\304H.>\20
c3a0	34 5c 33 33 33 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 07 44 5c 22 5c 32 31 30 04 5c 33 31 31	4\333.\305\306\307..D\"\210.\311
c3c0	48 5c 33 32 34 3d 5c 32 30 35 5c 33 35 36 00 5c 33 33 30 05 03 05 5c 32 30 36 5c 33 35 33 00 5c	H\324=\205\356.\330...\206\353.\
c3e0	33 30 34 5c 33 30 33 4f 5c 22 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f	304\303O\"\207".[cl-struct-webso
c400	63 6b 65 74 2d 74 61 67 73 20 77 65 62 73 6f 63 6b 65 74 2d 64 65 62 75 67 20 22 52 65 63 65 69	cket-tags.websocket-debug."Recei
c420	76 65 64 3a 20 25 73 22 20 6e 69 6c 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65	ved:.%s".nil.0.signal.wrong-type
c440	2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 31 36 20 31 20 63 6f 6e 6e 65 63 74	-argument.websocket.16.1.connect
c460	69 6e 67 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 0d 5c 6e 0d 5c 6e 22 20 34 20 28 65 72 72	ing.string-match.".\n.\n".4.(err
c480	6f 72 29 20 77 65 62 73 6f 63 6b 65 74 2d 76 65 72 69 66 79 2d 72 65 73 70 6f 6e 73 65 2d 63 6f	or).websocket-verify-response-co
c4a0	64 65 20 77 65 62 73 6f 63 6b 65 74 2d 76 65 72 69 66 79 2d 68 65 61 64 65 72 73 20 77 65 62 73	de.websocket-verify-headers.webs
c4c0	6f 63 6b 65 74 2d 70 72 6f 63 65 73 73 2d 68 65 61 64 65 72 73 20 31 30 20 77 65 62 73 6f 63 6b	ocket-process-headers.10.websock
c4e0	65 74 2d 63 6c 6f 73 65 20 6f 70 65 6e 20 77 65 62 73 6f 63 6b 65 74 2d 74 72 79 2d 63 61 6c 6c	et-close.open.websocket-try-call
c500	62 61 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 6f 70 65 6e 20 6f 6e 2d 6f 70 65 6e 20 77	back.websocket-on-open.on-open.w
c520	65 62 73 6f 63 6b 65 74 2d 70 72 6f 63 65 73 73 2d 69 6e 70 75 74 2d 6f 6e 2d 6f 70 65 6e 2d 77	ebsocket-process-input-on-open-w
c540	73 5d 20 31 30 20 28 23 24 20 2e 20 34 39 32 39 37 29 5d 29 0a 23 40 32 37 36 20 42 61 73 65 64	s].10.(#$...49297)]).#@276.Based
c560	20 6f 6e 20 57 45 42 53 4f 43 4b 45 54 27 73 20 64 61 74 61 2c 20 65 6e 73 75 72 65 20 74 68 65	.on.WEBSOCKET's.data,.ensure.the
c580	20 68 65 61 64 65 72 73 20 69 6e 20 4f 55 54 50 55 54 20 61 72 65 20 76 61 6c 69 64 2e 0a 54 68	.headers.in.OUTPUT.are.valid..Th
c5a0	65 20 6f 75 74 70 75 74 20 69 73 20 61 73 73 75 6d 65 64 20 74 6f 20 68 61 76 65 20 63 6f 6d 70	e.output.is.assumed.to.have.comp
c5c0	6c 65 74 65 20 68 65 61 64 65 72 73 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 0a 77 69 6c	lete.headers...This.function.wil
c5e0	6c 20 65 69 74 68 65 72 20 72 65 74 75 72 6e 20 74 20 6f 72 20 63 61 6c 6c 20 60 65 72 72 6f 72	l.either.return.t.or.call.`error
c600	27 2e 20 20 54 68 69 73 20 68 61 73 20 74 68 65 20 73 69 64 65 2d 65 66 66 65 63 74 0a 6f 66 20	'...This.has.the.side-effect.of.
c620	70 6f 70 75 6c 61 74 69 6e 67 20 74 68 65 20 6c 69 73 74 20 6f 66 20 73 65 72 76 65 72 20 65 78	populating.the.list.of.server.ex
c640	74 65 6e 73 69 6f 6e 73 20 74 6f 20 57 45 42 53 4f 43 4b 45 54 2e 0a 0a 28 66 6e 20 57 45 42 53	tensions.to.WEBSOCKET...(fn.WEBS
c660	4f 43 4b 45 54 20 4f 55 54 50 55 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63	OCKET.OUTPUT)..(defalias.'websoc
c680	6b 65 74 2d 76 65 72 69 66 79 2d 68 65 61 64 65 72 73 20 23 5b 35 31 34 20 22 5c 33 30 32 02 5c	ket-verify-headers.#[514."\302.\
c6a0	33 30 33 48 08 3e 5c 32 30 34 10 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 05 44 5c 22 5c 32 31 30	303H.>\204..\304\305\306.D\"\210
c6c0	02 5c 33 30 37 48 50 5c 33 31 30 03 5c 33 31 31 03 23 5c 32 31 30 5c 33 31 32 5c 33 31 33 02 21	.\307HP\310.\311.#\210\312\313.!
c6e0	03 5c 22 5c 32 30 34 28 00 5c 33 30 34 5c 33 31 34 5c 33 31 35 5c 22 5c 32 31 30 5c 32 31 30 5c	.\"\204(.\304\314\315\"\210\210\
c700	33 31 36 19 5c 33 31 30 02 5c 33 31 37 5c 22 5c 32 31 30 5c 33 31 32 5c 33 32 30 02 5c 22 5c 32	316.\310.\317\"\210\312\320.\"\2
c720	30 34 3c 00 5c 33 30 34 5c 33 31 34 5c 33 32 31 5c 22 5c 32 31 30 5c 33 31 30 02 5c 33 32 32 5c	04<.\304\314\321\"\210\310.\322\
c740	22 5c 32 31 30 5c 33 31 32 5c 33 32 33 02 5c 22 5c 32 30 34 4d 00 5c 33 30 34 5c 33 31 34 5c 33	"\210\312\323.\"\204M.\304\314\3
c760	32 34 5c 22 5c 32 31 30 01 5c 33 30 33 48 08 3e 5c 32 30 34 5c 5c 00 5c 33 30 34 5c 33 30 35 5c	24\"\210.\303H.>\204\\.\304\305\
c780	33 30 36 04 44 5c 22 5c 32 31 30 01 5c 33 32 35 48 5c 32 30 33 5c 32 36 32 00 01 5c 33 30 33 48	306.D\"\210.\325H\203\262..\303H
c7a0	08 3e 5c 32 30 34 71 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 04 44 5c 22 5c 32 31 30 01 5c 33 32	.>\204q.\304\305\306.D\"\210.\32
c7c0	35 48 5c 32 31 31 5c 32 30 33 5c 32 36 31 00 5c 32 31 31 40 5c 33 31 30 04 5c 33 32 36 03 23 5c	5H\211\203\261.\211@\310.\326.#\
c7e0	32 31 30 5c 33 31 32 5c 33 32 37 5c 33 33 30 03 5c 22 04 5c 22 5c 32 30 33 5c 32 31 37 00 5c 32	210\312\327\330.\".\"\203\217.\2
c800	31 31 43 5c 32 30 32 5c 32 32 33 00 5c 33 30 34 5c 33 31 34 5c 33 33 31 5c 22 04 5c 33 30 33 48	11C\202\223.\304\314\331\".\303H
c820	08 3e 5c 32 30 34 5c 32 34 33 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 07 44 5c 22 5c 32 31 30	.>\204\243.\304\305\306..D\"\210
c840	04 5c 32 31 31 5c 33 33 32 03 49 5c 32 36 36 03 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 74 00	.\211\332.I\266..A\266\202\202t.
c860	5c 32 31 30 5c 33 33 33 01 5c 33 33 34 5c 22 5c 33 33 35 01 5c 32 31 31 5c 32 30 33 5c 33 36 30	\210\333.\334\"\335.\211\203\360
c880	00 5c 32 31 31 40 5c 33 33 36 01 5c 33 33 37 5c 22 40 5c 32 31 31 06 07 5c 33 30 33 48 08 3e 5c	.\211@\336.\337\"@\211..\303H.>\
c8a0	32 30 34 5c 33 32 35 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 5c 6e 44 5c 22 5c 32 31 30 06 07	204\325.\304\305\306.\nD\"\210..
c8c0	5c 33 34 30 48 5c 32 33 35 5c 32 30 34 5c 33 35 30 00 5c 32 31 31 04 5c 32 33 35 5c 32 30 34 5c	\340H\235\204\350.\211.\235\204\
c8e0	33 35 30 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 01 41 5c 32 36 36 5c 32 30 32 5c 32 30	350.\211.B\262.\210.A\266\202\20
c900	32 5c 32 37 30 00 5c 32 31 30 5c 32 31 31 5c 32 30 33 5c 33 37 35 00 5c 33 30 34 5c 33 31 34 5c	2\270.\210\211\203\375.\304\314\
c920	33 32 37 5c 33 34 31 04 5c 22 5c 22 5c 32 31 30 03 5c 33 30 33 48 08 3e 5c 32 30 34 0d 01 5c 33	327\341.\"\"\210.\303H.>\204..\3
c940	30 34 5c 33 30 35 5c 33 30 36 06 06 44 5c 22 5c 32 31 30 03 5c 32 31 31 5c 33 34 32 04 49 5c 32	04\305\306..D\"\210.\211\342.I\2
c960	36 36 04 29 5c 33 31 36 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b	66.)\316\207".[cl-struct-websock
c980	65 74 2d 74 61 67 73 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 22 53 65 63 2d 57 65	et-tags.case-fold-search."Sec-We
c9a0	62 53 6f 63 6b 65 74 2d 41 63 63 65 70 74 3a 20 22 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67	bSocket-Accept:.".0.signal.wrong
c9c0	2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 20 31 35 20 77 65 62 73	-type-argument.websocket.15.webs
c9e0	6f 63 6b 65 74 2d 64 65 62 75 67 20 22 43 68 65 63 6b 69 6e 67 20 66 6f 72 20 61 63 63 65 70 74	ocket-debug."Checking.for.accept
ca00	20 68 65 61 64 65 72 3a 20 25 73 22 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 72 65 67 65 78 70	.header:.%s".string-match.regexp
ca20	2d 71 75 6f 74 65 20 77 65 62 73 6f 63 6b 65 74 2d 69 6e 76 61 6c 69 64 2d 68 65 61 64 65 72 20	-quote.websocket-invalid-header.
ca40	22 49 6e 63 6f 72 72 65 63 74 20 68 61 6e 64 73 68 61 6b 65 20 66 72 6f 6d 20 77 65 62 73 6f 63	"Incorrect.handshake.from.websoc
ca60	6b 65 74 3a 20 69 73 20 74 68 69 73 20 72 65 61 6c 6c 79 20 61 20 77 65 62 73 6f 63 6b 65 74 20	ket:.is.this.really.a.websocket.
ca80	63 6f 6e 6e 65 63 74 69 6f 6e 3f 22 20 74 20 22 43 68 65 63 6b 69 6e 67 20 66 6f 72 20 75 70 67	connection?".t."Checking.for.upg
caa0	72 61 64 65 20 68 65 61 64 65 72 22 20 22 0d 5c 6e 55 70 67 72 61 64 65 3a 20 77 65 62 73 6f 63	rade.header".".\nUpgrade:.websoc
cac0	6b 65 74 0d 5c 6e 22 20 22 4e 6f 20 27 55 70 67 72 61 64 65 3a 20 77 65 62 73 6f 63 6b 65 74 27	ket.\n"."No.'Upgrade:.websocket'
cae0	20 68 65 61 64 65 72 20 66 6f 75 6e 64 22 20 22 43 68 65 63 6b 69 6e 67 20 66 6f 72 20 63 6f 6e	.header.found"."Checking.for.con
cb00	6e 65 63 74 69 6f 6e 20 68 65 61 64 65 72 22 20 22 0d 5c 6e 43 6f 6e 6e 65 63 74 69 6f 6e 3a 20	nection.header".".\nConnection:.
cb20	75 70 67 72 61 64 65 0d 5c 6e 22 20 22 4e 6f 20 27 43 6f 6e 6e 65 63 74 69 6f 6e 3a 20 75 70 67	upgrade.\n"."No.'Connection:.upg
cb40	72 61 64 65 27 20 68 65 61 64 65 72 20 66 6f 75 6e 64 22 20 31 31 20 22 43 68 65 63 6b 69 6e 67	rade'.header.found".11."Checking
cb60	20 66 6f 72 20 70 72 6f 74 6f 63 6f 6c 20 6d 61 74 63 68 3a 20 25 73 22 20 66 6f 72 6d 61 74 20	.for.protocol.match:.%s".format.
cb80	22 0d 5c 6e 53 65 63 2d 57 65 62 73 6f 63 6b 65 74 2d 50 72 6f 74 6f 63 6f 6c 3a 20 25 73 0d 5c	".\nSec-Websocket-Protocol:.%s.\
cba0	6e 22 20 22 49 6e 63 6f 72 72 65 63 74 20 6f 72 20 6d 69 73 73 69 6e 67 20 70 72 6f 74 6f 63 6f	n"."Incorrect.or.missing.protoco
cbc0	6c 20 72 65 74 75 72 6e 65 64 20 62 79 20 74 68 65 20 73 65 72 76 65 72 2e 22 20 37 20 77 65 62	l.returned.by.the.server.".7.web
cbe0	73 6f 63 6b 65 74 2d 70 61 72 73 65 2d 72 65 70 65 61 74 65 64 2d 66 69 65 6c 64 20 22 53 65 63	socket-parse-repeated-field."Sec
cc00	2d 57 65 62 53 6f 63 6b 65 74 2d 45 78 74 65 6e 73 69 6f 6e 73 22 20 6e 69 6c 20 73 70 6c 69 74	-WebSocket-Extensions".nil.split
cc20	2d 73 74 72 69 6e 67 20 22 3b 20 3f 22 20 31 32 20 22 4e 6f 6e 2d 72 65 71 75 65 73 74 65 64 20	-string.";.?".12."Non-requested.
cc40	65 78 74 65 6e 73 69 6f 6e 73 20 72 65 74 75 72 6e 65 64 20 62 79 20 73 65 72 76 65 72 3a 20 25	extensions.returned.by.server:.%
cc60	53 22 20 38 5d 20 31 32 20 28 23 24 20 2e 20 35 30 35 32 33 29 5d 29 0a 23 40 35 30 20 41 20 6c	S".8].12.(#$...50523)]).#@50.A.l
cc80	69 73 74 20 6f 66 20 63 75 72 72 65 6e 74 20 77 65 62 73 6f 63 6b 65 74 73 20 6c 69 76 65 20 6f	ist.of.current.websockets.live.o
cca0	6e 20 61 6e 79 20 73 65 72 76 65 72 2e 1f 0a 28 64 65 66 76 61 72 20 77 65 62 73 6f 63 6b 65 74	n.any.server...(defvar.websocket
ccc0	2d 73 65 72 76 65 72 2d 77 65 62 73 6f 63 6b 65 74 73 20 6e 69 6c 20 28 23 24 20 2e 20 35 32 33	-server-websockets.nil.(#$...523
cce0	34 39 29 29 0a 23 40 35 35 37 20 4f 70 65 6e 20 61 20 77 65 62 73 6f 63 6b 65 74 20 73 65 72 76	49)).#@557.Open.a.websocket.serv
cd00	65 72 20 6f 6e 20 50 4f 52 54 2e 0a 49 66 20 74 68 65 20 70 6c 69 73 74 20 63 6f 6e 74 61 69 6e	er.on.PORT..If.the.plist.contain
cd20	73 20 61 20 60 3a 68 6f 73 74 27 20 48 4f 53 54 20 70 61 69 72 2c 20 74 68 69 73 20 76 61 6c 75	s.a.`:host'.HOST.pair,.this.valu
cd40	65 20 77 69 6c 6c 20 62 65 0a 75 73 65 64 20 74 6f 20 63 6f 6e 66 69 67 75 72 65 20 74 68 65 20	e.will.be.used.to.configure.the.
cd60	61 64 64 72 65 73 73 65 73 20 74 68 65 20 73 6f 63 6b 65 74 20 6c 69 73 74 65 6e 73 20 6f 6e 2e	addresses.the.socket.listens.on.
cd80	20 54 68 65 20 73 79 6d 62 6f 6c 0a 60 6c 6f 63 61 6c 27 20 73 70 65 63 69 66 69 65 73 20 74 68	.The.symbol.`local'.specifies.th
cda0	65 20 6c 6f 63 61 6c 20 68 6f 73 74 2e 20 49 66 20 75 6e 73 70 65 63 69 66 69 65 64 20 6f 72 20	e.local.host..If.unspecified.or.
cdc0	6e 69 6c 2c 20 74 68 65 0a 73 6f 63 6b 65 74 20 77 69 6c 6c 20 6c 69 73 74 65 6e 20 6f 6e 20 61	nil,.the.socket.will.listen.on.a
cde0	6c 6c 20 61 64 64 72 65 73 73 65 73 2e 0a 0a 54 68 69 73 20 61 6c 73 6f 20 74 61 6b 65 73 20 61	ll.addresses...This.also.takes.a
ce00	20 70 6c 69 73 74 20 6f 66 20 63 61 6c 6c 62 61 63 6b 73 3a 20 60 3a 6f 6e 2d 6f 70 65 6e 27 2c	.plist.of.callbacks:.`:on-open',
ce20	20 60 3a 6f 6e 2d 6d 65 73 73 61 67 65 27 2c 0a 60 3a 6f 6e 2d 63 6c 6f 73 65 27 20 61 6e 64 20	.`:on-message',.`:on-close'.and.
ce40	60 3a 6f 6e 2d 65 72 72 6f 72 27 2c 20 77 68 69 63 68 20 6f 70 65 72 61 74 65 20 65 78 61 63 74	`:on-error',.which.operate.exact
ce60	6c 79 20 61 73 20 64 6f 63 75 6d 65 6e 74 65 64 0a 69 6e 20 74 68 65 20 77 65 62 73 6f 63 6b 65	ly.as.documented.in.the.websocke
ce80	74 20 63 6c 69 65 6e 74 20 66 75 6e 63 74 69 6f 6e 20 60 77 65 62 73 6f 63 6b 65 74 2d 6f 70 65	t.client.function.`websocket-ope
cea0	6e 27 2e 20 20 52 65 74 75 72 6e 73 20 74 68 65 0a 63 6f 6e 6e 65 63 74 69 6f 6e 2c 20 77 68 69	n'...Returns.the.connection,.whi
cec0	63 68 20 73 68 6f 75 6c 64 20 62 65 20 6b 65 70 74 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 70 61	ch.should.be.kept.in.order.to.pa
cee0	73 73 20 74 6f 0a 60 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 63 6c 6f 73 65 27 2e 0a	ss.to.`websocket-server-close'..
cf00	0a 28 66 6e 20 50 4f 52 54 20 26 72 65 73 74 20 50 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61	.(fn.PORT.&rest.PLIST)..(defalia
cf20	73 20 27 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 20 23 5b 33 38 35 20 22 5c 33 30 30 5c	s.'websocket-server.#[385."\300\
cf40	33 30 31 5c 33 30 32 5c 33 30 33 05 5c 22 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33	301\302\303.\"\304\305\306\307\3
cf60	31 30 5c 33 30 35 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 33 31 36 5c 33	10\305\311\312\313\314\315\316\3
cf80	31 37 06 10 5c 33 32 30 5c 33 32 31 06 13 5c 33 32 30 5c 22 5c 33 32 32 06 15 26 14 5c 32 31 31	17..\320\321..\320\"\322..&.\211
cfa0	5c 32 30 37 22 20 5b 6d 61 6b 65 2d 6e 65 74 77 6f 72 6b 2d 70 72 6f 63 65 73 73 20 3a 6e 61 6d	\207".[make-network-process.:nam
cfc0	65 20 66 6f 72 6d 61 74 20 22 77 65 62 73 6f 63 6b 65 74 20 73 65 72 76 65 72 20 6f 6e 20 70 6f	e.format."websocket.server.on.po
cfe0	72 74 20 25 73 22 20 3a 73 65 72 76 65 72 20 74 20 3a 66 61 6d 69 6c 79 20 69 70 76 34 20 3a 6e	rt.%s".:server.t.:family.ipv4.:n
d000	6f 71 75 65 72 79 20 3a 66 69 6c 74 65 72 20 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d	oquery.:filter.websocket-server-
d020	66 69 6c 74 65 72 20 3a 6c 6f 67 20 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 61 63 63	filter.:log.websocket-server-acc
d040	65 70 74 20 3a 66 69 6c 74 65 72 2d 6d 75 6c 74 69 62 79 74 65 20 6e 69 6c 20 3a 70 6c 69 73 74	ept.:filter-multibyte.nil.:plist
d060	20 3a 68 6f 73 74 20 70 6c 69 73 74 2d 67 65 74 20 3a 73 65 72 76 69 63 65 5d 20 32 33 20 28 23	.:host.plist-get.:service].23.(#
d080	24 20 2e 20 35 32 34 35 39 29 5d 29 0a 23 40 38 32 20 43 6c 6f 73 65 73 20 74 68 65 20 77 65 62	$...52459)]).#@82.Closes.the.web
d0a0	73 6f 63 6b 65 74 2c 20 61 73 20 77 65 6c 6c 20 61 73 20 61 6c 6c 20 6f 70 65 6e 20 77 65 62 73	socket,.as.well.as.all.open.webs
d0c0	6f 63 6b 65 74 73 20 66 6f 72 20 74 68 69 73 20 73 65 72 76 65 72 2e 0a 0a 28 66 6e 20 43 4f 4e	ockets.for.this.server...(fn.CON
d0e0	4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d	N)..(defalias.'websocket-server-
d100	63 6c 6f 73 65 20 23 5b 32 35 37 20 22 5c 33 30 32 08 5c 32 31 31 5c 32 30 33 4f 00 5c 32 31 31	close.#[257."\302.\211\203O.\211
d120	40 5c 32 31 31 5c 33 30 33 48 09 3e 5c 32 30 34 17 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 03 44	@\211\303H.>\204..\304\305\306.D
d140	5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 37 48 04 3d 5c 32 30 33 48 00 5c 32 31 31 5c 33 30 33 48	\"\210\211\307H.=\203H.\211\303H
d160	09 3e 5c 32 30 34 2e 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 03 44 5c 22 5c 32 31 30 5c 32 31 31	.>\204..\304\305\306.D\"\210\211
d180	5c 33 31 30 48 5c 33 31 31 3d 5c 32 30 33 44 00 5c 32 31 31 03 5c 32 33 35 5c 32 30 34 48 00 5c	\310H\311=\203D.\211.\235\204H.\
d1a0	32 31 31 03 42 5c 32 36 32 03 5c 32 30 32 48 00 5c 33 31 32 01 21 5c 32 31 30 01 41 5c 32 36 36	211.B\262.\202H.\312.!\210.A\266
d1c0	5c 32 30 32 5c 32 30 32 02 00 5c 32 31 30 5c 32 31 31 5c 32 31 31 5c 32 30 33 63 00 5c 32 31 31	\202\202..\210\211\211\203c.\211
d1e0	40 5c 33 31 33 01 08 5c 22 10 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 51 00 5c 32 36 36 02 5c	@\313..\"..A\266\202\202Q.\266.\
d200	33 31 34 01 21 5c 32 30 37 22 20 5b 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 77 65 62	314.!\207".[websocket-server-web
d220	73 6f 63 6b 65 74 73 20 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73	sockets.cl-struct-websocket-tags
d240	20 6e 69 6c 20 30 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	.nil.0.signal.wrong-type-argumen
d260	74 20 77 65 62 73 6f 63 6b 65 74 20 31 34 20 31 20 63 6c 6f 73 65 64 20 77 65 62 73 6f 63 6b 65	t.websocket.14.1.closed.websocke
d280	74 2d 63 6c 6f 73 65 20 72 65 6d 6f 76 65 20 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 5d 20 38	t-close.remove.delete-process].8
d2a0	20 28 23 24 20 2e 20 35 33 33 39 34 29 5d 29 0a 23 40 37 38 20 41 63 63 65 70 74 20 61 20 6e 65	.(#$...53394)]).#@78.Accept.a.ne
d2c0	77 20 77 65 62 73 6f 63 6b 65 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 72 6f 6d 20 61 20 63 6c	w.websocket.connection.from.a.cl
d2e0	69 65 6e 74 2e 0a 0a 28 66 6e 20 53 45 52 56 45 52 20 43 4c 49 45 4e 54 20 4d 45 53 53 41 47 45	ient...(fn.SERVER.CLIENT.MESSAGE
d300	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 61	)..(defalias.'websocket-server-a
d320	63 63 65 70 74 20 23 5b 37 37 31 20 22 5c 33 30 31 5c 33 30 32 04 5c 33 30 33 05 5c 33 30 34 06	ccept.#[771."\301\302.\303.\304.
d340	07 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 0d 5c 33 30 37 5c 22 5c 32 30 36 14 00 5c	.\305\306\307\310..\307\"\206..\
d360	33 31 31 5c 33 31 32 5c 33 31 30 06 0f 5c 33 31 32 5c 22 5c 32 30 36 1e 00 5c 33 31 33 5c 33 31	311\312\310..\312\"\206..\313\31
d380	34 5c 33 31 30 06 11 5c 33 31 34 5c 22 5c 32 30 36 28 00 5c 33 31 31 5c 33 31 35 5c 33 31 36 5c	4\310..\314\"\206(.\311\315\316\
d3a0	33 31 37 5c 33 32 30 5c 33 32 31 05 21 5c 33 32 32 5c 22 5c 33 32 33 5c 33 32 34 25 5c 32 36 32	317\320\321.!\322\"\323\324%\262
d3c0	01 5c 33 32 35 5c 33 31 30 06 13 5c 33 32 35 5c 22 5c 32 30 36 40 00 5c 33 32 36 5c 33 32 37 5c	.\325\310..\325\"\206@.\326\327\
d3e0	33 31 30 06 15 5c 33 33 30 5c 22 5c 33 33 31 5c 33 33 32 5c 33 33 33 5c 33 31 30 06 19 5c 33 33	310..\330\"\331\332\333\310..\33
d400	31 5c 22 5c 22 26 14 5c 32 31 31 08 5c 32 33 35 5c 32 30 34 5b 00 5c 32 31 31 08 42 10 5c 33 33	1\"\"&.\211.\235\204[.\211.B.\33
d420	34 03 5c 33 33 35 03 23 5c 32 31 30 5c 33 33 36 03 5c 33 33 37 5c 32 31 31 23 5c 32 31 30 5c 33	4.\335.#\210\336.\337\211#\210\3
d440	34 30 03 5c 33 34 31 5c 22 5c 32 30 37 22 20 5b 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72	40.\341\"\207".[websocket-server
d460	2d 77 65 62 73 6f 63 6b 65 74 73 20 77 65 62 73 6f 63 6b 65 74 2d 69 6e 6e 65 72 2d 63 72 65 61	-websockets.websocket-inner-crea
d480	74 65 20 3a 73 65 72 76 65 72 2d 63 6f 6e 6e 20 3a 63 6f 6e 6e 20 3a 75 72 6c 20 3a 73 65 72 76	te.:server-conn.:conn.:url.:serv
d4a0	65 72 2d 70 20 74 20 3a 6f 6e 2d 6f 70 65 6e 20 70 72 6f 63 65 73 73 2d 67 65 74 20 69 64 65 6e	er-p.t.:on-open.process-get.iden
d4c0	74 69 74 79 20 3a 6f 6e 2d 6d 65 73 73 61 67 65 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 30 37	tity.:on-message.#[514."\300\207
d4e0	22 20 5b 6e 69 6c 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 57 53 20 46 52 41 4d 45 29 22 5d 20 3a	".[nil].3."\n\n(fn.WS.FRAME)"].:
d500	6f 6e 2d 63 6c 6f 73 65 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30	on-close.make-byte-code.257."\30
d520	32 01 09 5c 22 11 5c 33 30 30 01 21 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72	2..\".\300.!\207".vconcat.vector
d540	20 5b 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 77 65 62 73 6f 63 6b 65 74 73 20 72 65	.[websocket-server-websockets.re
d560	6d 6f 76 65 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 57 53 29 22 20 3a 6f 6e 2d 65 72 72 6f 72 20	move].4."\n\n(fn.WS)".:on-error.
d580	77 65 62 73 6f 63 6b 65 74 2d 64 65 66 61 75 6c 74 2d 65 72 72 6f 72 2d 68 61 6e 64 6c 65 72 20	websocket-default-error-handler.
d5a0	3a 70 72 6f 74 6f 63 6f 6c 73 20 3a 70 72 6f 74 6f 63 6f 6c 20 3a 65 78 74 65 6e 73 69 6f 6e 73	:protocols.:protocol.:extensions
d5c0	20 6d 61 70 63 61 72 20 63 61 72 20 70 72 6f 63 65 73 73 2d 70 75 74 20 3a 77 65 62 73 6f 63 6b	.mapcar.car.process-put.:websock
d5e0	65 74 20 73 65 74 2d 70 72 6f 63 65 73 73 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 20 62 69 6e	et.set-process-coding-system.bin
d600	61 72 79 20 73 65 74 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	ary.set-process-sentinel.#[514."
d620	5c 33 30 31 02 5c 33 30 32 5c 22 5c 33 30 33 01 5c 33 30 34 04 23 5c 32 31 30 5c 33 30 35 03 21	\301.\302\"\303.\304.#\210\305.!
d640	5c 33 30 36 5c 32 33 35 5c 32 30 35 2f 00 5c 32 31 31 5c 33 30 37 48 08 3e 5c 32 30 34 21 00 5c	\306\235\205/.\211\307H.>\204!.\
d660	33 31 30 5c 33 31 31 5c 33 31 32 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 31 33 48 5c 33 31 34	310\311\312.D\"\210\211\313H\314
d680	3d 3f 5c 32 30 35 2f 00 5c 33 31 35 5c 33 31 36 5c 33 31 37 03 23 5c 32 30 37 22 20 5b 63 6c 2d	=?\205/.\315\316\317.#\207".[cl-
d6a0	73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 20 70 72 6f 63 65 73 73 2d 67 65	struct-websocket-tags.process-ge
d6c0	74 20 3a 77 65 62 73 6f 63 6b 65 74 20 77 65 62 73 6f 63 6b 65 74 2d 64 65 62 75 67 20 22 53 74	t.:websocket.websocket-debug."St
d6e0	61 74 65 20 63 68 61 6e 67 65 20 74 6f 20 25 73 22 20 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73	ate.change.to.%s".process-status
d700	20 28 63 6c 6f 73 65 64 20 66 61 69 6c 65 64 20 65 78 69 74 20 73 69 67 6e 61 6c 29 20 30 20 73	.(closed.failed.exit.signal).0.s
d720	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 77 65 62 73 6f 63	ignal.wrong-type-argument.websoc
d740	6b 65 74 20 31 20 63 6c 6f 73 65 64 20 77 65 62 73 6f 63 6b 65 74 2d 74 72 79 2d 63 61 6c 6c 62	ket.1.closed.websocket-try-callb
d760	61 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 63 6c 6f 73 65 20 6f 6e 2d 63 6c 6f 73 65 5d	ack.websocket-on-close.on-close]
d780	20 37 20 22 5c 6e 5c 6e 28 66 6e 20 50 52 4f 43 45 53 53 20 43 48 41 4e 47 45 29 22 5d 5d 20 32	.7."\n\n(fn.PROCESS.CHANGE)"]].2
d7a0	38 20 28 23 24 20 2e 20 35 33 39 34 31 29 5d 29 0a 23 40 32 35 36 20 43 72 65 61 74 65 20 63 6f	8.(#$...53941)]).#@256.Create.co
d7c0	6e 6e 65 63 74 69 6f 6e 73 20 68 65 61 64 65 72 73 20 66 6f 72 20 74 68 65 20 67 69 76 65 6e 20	nnections.headers.for.the.given.
d7e0	55 52 4c 2c 20 4b 45 59 2c 20 50 52 4f 54 4f 43 4f 4c 2c 20 61 6e 64 20 45 58 54 45 4e 53 49 4f	URL,.KEY,.PROTOCOL,.and.EXTENSIO
d800	4e 53 2e 0a 41 64 64 69 74 69 6f 6e 61 6c 6c 79 2c 20 74 68 65 20 43 55 53 54 4f 4d 2d 48 45 41	NS..Additionally,.the.CUSTOM-HEA
d820	44 45 52 53 2d 41 4c 49 53 54 20 69 73 20 70 61 73 73 65 64 20 66 72 6f 6d 20 74 68 65 20 63 6c	DERS-ALIST.is.passed.from.the.cl
d840	69 65 6e 74 2e 0a 41 6c 6c 20 74 68 65 73 65 20 70 61 72 61 6d 65 74 65 72 73 20 61 72 65 20 64	ient..All.these.parameters.are.d
d860	65 66 69 6e 65 64 20 61 73 20 69 6e 20 60 77 65 62 73 6f 63 6b 65 74 2d 6f 70 65 6e 27 2e 0a 0a	efined.as.in.`websocket-open'...
d880	28 66 6e 20 55 52 4c 20 4b 45 59 20 50 52 4f 54 4f 43 4f 4c 20 45 58 54 45 4e 53 49 4f 4e 53 20	(fn.URL.KEY.PROTOCOL.EXTENSIONS.
d8a0	43 55 53 54 4f 4d 2d 48 45 41 44 45 52 53 2d 41 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73	CUSTOM-HEADERS-ALIST)..(defalias
d8c0	20 27 77 65 62 73 6f 63 6b 65 74 2d 63 72 65 61 74 65 2d 68 65 61 64 65 72 73 20 23 5b 31 32 38	.'websocket-create-headers.#[128
d8e0	35 20 22 5c 33 30 32 05 21 5c 33 30 33 01 21 5c 32 30 33 63 00 5c 33 30 34 5c 33 30 35 02 5c 33	5."\302.!\303.!\203c.\304\305.\3
d900	30 36 48 08 3e 5c 32 30 34 1a 00 5c 33 30 37 5c 33 31 30 5c 33 31 31 05 44 5c 22 5c 32 31 30 02	06H.>\204..\307\310\311.D\"\210.
d920	5c 33 31 32 48 03 5c 32 31 31 19 5c 33 30 36 48 08 3e 5c 32 30 34 2e 00 5c 33 30 37 5c 33 31 30	\312H.\211.\306H.>\204..\307\310
d940	5c 33 31 31 09 44 5c 22 5c 32 31 30 09 5c 33 31 33 48 5c 32 30 36 5e 00 09 5c 33 30 36 48 08 3e	\311.D\"\210.\313H\206^..\306H.>
d960	5c 32 30 34 43 00 5c 33 30 37 5c 33 31 30 5c 33 31 31 09 44 5c 22 5c 32 31 30 09 5c 33 31 34 48	\204C.\307\310\311.D\"\210.\314H
d980	5c 32 30 35 5e 00 5c 33 31 35 09 5c 33 30 36 48 08 3e 5c 32 30 34 59 00 5c 33 30 37 5c 33 31 30	\205^.\315.\306H.>\204Y.\307\310
d9a0	5c 33 31 31 09 44 5c 22 5c 32 31 30 09 5c 33 31 34 48 5c 33 31 36 5c 22 29 23 5c 32 30 32 75 00	\311.D\"\210.\314H\316\")#\202u.
d9c0	5c 32 31 31 5c 33 30 36 48 08 3e 5c 32 30 34 72 00 5c 33 30 37 5c 33 31 30 5c 33 31 31 03 44 5c	\211\306H.>\204r.\307\310\311.D\
d9e0	22 5c 32 31 30 5c 32 31 31 5c 33 31 32 48 5c 33 31 37 01 5c 33 32 30 04 21 40 04 5c 33 30 36 48	"\210\211\312H\317.\320.!@.\306H
da00	08 3e 5c 32 30 34 5c 32 31 33 00 5c 33 30 37 5c 33 31 30 5c 33 31 31 06 07 44 5c 22 5c 32 31 30	.>\204\213.\307\310\311..D\"\210
da20	04 5c 33 31 34 48 5c 33 32 31 5c 32 33 32 23 5c 33 30 34 5c 33 32 32 5c 33 32 33 5c 33 32 34 5c	.\314H\321\232#\304\322\323\324\
da40	33 32 35 5c 33 32 36 06 0b 5c 32 30 35 5c 32 34 34 00 5c 33 32 37 5c 33 33 30 06 0d 5c 33 33 31	325\326..\205\244.\327\330..\331
da60	23 5c 33 33 31 50 06 0b 5c 32 30 35 5c 32 36 32 00 5c 33 30 34 5c 33 33 32 5c 33 32 37 5c 33 33	#\331P..\205\262.\304\332\327\33
da80	33 06 0f 5c 33 33 34 23 5c 22 06 08 5c 32 30 35 5c 32 37 31 00 06 08 5c 33 32 37 5c 33 33 35 06	3..\334#\"..\205\271...\327\335.
daa0	0e 5c 33 33 31 23 06 0d 5c 32 30 35 5c 33 30 35 00 5c 33 33 31 50 5c 33 33 31 5c 32 36 30 5c 6e	.\331#..\205\305.\331P\331\260\n
dac0	03 06 09 06 09 24 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 75 72 6c 2d 74 61 67 73 20	.....$\207".[cl-struct-url-tags.
dae0	75 72 6c 6f 62 6a 20 75 72 6c 2d 67 65 6e 65 72 69 63 2d 70 61 72 73 65 2d 75 72 6c 20 75 72 6c	urlobj.url-generic-parse-url.url
db00	2d 70 6f 72 74 2d 69 66 2d 6e 6f 6e 2d 64 65 66 61 75 6c 74 20 66 6f 72 6d 61 74 20 22 25 73 3a	-port-if-non-default.format."%s:
db20	25 73 22 20 30 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	%s".0.signal.wrong-type-argument
db40	20 75 72 6c 20 34 20 35 20 31 20 75 72 6c 2d 73 63 68 65 6d 65 2d 67 65 74 2d 70 72 6f 70 65 72	.url.4.5.1.url-scheme-get-proper
db60	74 79 20 64 65 66 61 75 6c 74 2d 70 6f 72 74 20 75 72 6c 2d 63 6f 6f 6b 69 65 2d 67 65 6e 65 72	ty.default-port.url-cookie-gener
db80	61 74 65 2d 68 65 61 64 65 72 2d 6c 69 6e 65 73 20 75 72 6c 2d 70 61 74 68 2d 61 6e 64 2d 71 75	ate-header-lines.url-path-and-qu
dba0	65 72 79 20 22 77 73 73 22 20 22 48 6f 73 74 3a 20 25 73 0d 5c 6e 22 20 22 55 70 67 72 61 64 65	ery."wss"."Host:.%s.\n"."Upgrade
dbc0	3a 20 77 65 62 73 6f 63 6b 65 74 0d 5c 6e 22 20 22 43 6f 6e 6e 65 63 74 69 6f 6e 3a 20 55 70 67	:.websocket.\n"."Connection:.Upg
dbe0	72 61 64 65 0d 5c 6e 22 20 22 53 65 63 2d 57 65 62 53 6f 63 6b 65 74 2d 4b 65 79 3a 20 25 73 0d	rade.\n"."Sec-WebSocket-Key:.%s.
dc00	5c 6e 22 20 22 53 65 63 2d 57 65 62 53 6f 63 6b 65 74 2d 56 65 72 73 69 6f 6e 3a 20 31 33 0d 5c	\n"."Sec-WebSocket-Version:.13.\
dc20	6e 22 20 6d 61 70 63 6f 6e 63 61 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c	n".mapconcat.#[257."\300\301.\"\
dc40	32 30 37 22 20 5b 66 6f 72 6d 61 74 20 22 53 65 63 2d 57 65 62 53 6f 63 6b 65 74 2d 50 72 6f 74	207".[format."Sec-WebSocket-Prot
dc60	6f 63 6f 6c 3a 20 25 73 22 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 50 52 4f 54 4f 43 4f 4c 29 22	ocol:.%s"].4."\n\n(fn.PROTOCOL)"
dc80	5d 20 22 0d 5c 6e 22 20 22 53 65 63 2d 57 65 62 53 6f 63 6b 65 74 2d 45 78 74 65 6e 73 69 6f 6e	].".\n"."Sec-WebSocket-Extension
dca0	73 3a 20 25 73 0d 5c 6e 22 20 23 5b 32 35 37 20 22 5c 32 31 31 40 01 41 5c 32 30 35 08 00 5c 33	s:.%s.\n".#[257."\211@.A\205..\3
dcc0	30 30 02 41 5c 32 30 35 13 00 5c 33 30 31 5c 33 30 32 04 41 5c 33 30 30 23 51 5c 32 30 37 22 20	00.A\205..\301\302.A\300#Q\207".
dce0	5b 22 3b 20 22 20 6d 61 70 63 6f 6e 63 61 74 20 69 64 65 6e 74 69 74 79 5d 20 37 20 22 5c 6e 5c	[";.".mapconcat.identity].7."\n\
dd00	6e 28 66 6e 20 45 58 54 29 22 5d 20 22 2c 20 22 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31	n(fn.EXT)"].",.".#[257."\300\301
dd20	02 40 03 41 23 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 20 22 25 73 3a 20 25 73 22 5d 20 35 20 22	.@.A#\207".[format."%s:.%s"].5."
dd40	5c 6e 5c 6e 28 66 6e 20 43 4f 4e 53 29 22 5d 5d 20 32 32 20 28 23 24 20 2e 20 35 35 32 32 33 29	\n\n(fn.CONS)"]].22.(#$...55223)
dd60	5d 29 0a 23 40 31 30 32 20 47 65 74 20 74 68 65 20 77 65 62 73 6f 63 6b 65 74 20 72 65 73 70 6f	]).#@102.Get.the.websocket.respo
dd80	6e 73 65 20 66 72 6f 6d 20 63 6c 69 65 6e 74 20 57 45 42 53 4f 43 4b 45 54 2e 0a 0a 28 66 6e 20	nse.from.client.WEBSOCKET...(fn.
dda0	57 45 42 53 4f 43 4b 45 54 20 43 4c 49 45 4e 54 2d 50 52 4f 54 4f 43 4f 4c 53 20 43 4c 49 45 4e	WEBSOCKET.CLIENT-PROTOCOLS.CLIEN
ddc0	54 2d 45 58 54 45 4e 53 49 4f 4e 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63	T-EXTENSIONS)..(defalias.'websoc
dde0	6b 65 74 2d 67 65 74 2d 73 65 72 76 65 72 2d 72 65 73 70 6f 6e 73 65 20 23 5b 37 37 31 20 22 5c	ket-get-server-response.#[771."\
de00	33 30 31 5c 33 30 32 01 5c 33 30 33 03 5c 33 30 34 05 5c 33 30 35 06 5c 6e 5c 33 30 36 48 08 3e	301\302.\303.\304.\305.\n\306H.>
de20	5c 32 30 34 19 00 5c 33 30 37 5c 33 31 30 5c 33 31 31 06 0d 44 5c 22 5c 32 31 30 06 5c 6e 5c 33	\204..\307\310\311..D\"\210.\n\3
de40	31 32 48 06 08 5c 33 31 33 06 5c 66 06 0e 5c 33 30 36 48 08 3e 5c 32 30 34 33 00 5c 33 30 37 5c	12H..\313.\f..\306H.>\2043.\307\
de60	33 31 30 5c 33 31 31 06 11 44 5c 22 5c 32 31 30 06 0e 5c 33 31 34 48 5c 22 5c 32 31 31 5c 32 30	310\311..D\"\210..\314H\"\211\20
de80	35 45 00 5c 33 31 35 5c 33 31 36 02 06 0d 23 06 0b 50 5c 32 36 32 01 5c 33 31 33 06 5c 66 06 0f	5E.\315\316...#..P\262.\313.\f..
dea0	5c 33 30 36 48 08 3e 5c 32 30 34 5b 00 5c 33 30 37 5c 33 31 30 5c 33 31 31 06 12 44 5c 22 5c 32	\306H.>\204[.\307\310\311..D\"\2
dec0	31 30 06 0f 5c 33 31 37 48 5c 22 5c 32 31 31 5c 32 30 35 6d 00 5c 33 31 35 5c 33 32 30 02 06 0e	10..\317H\"\211\205m.\315\320...
dee0	23 06 5c 66 50 5c 32 36 32 01 06 0b 5c 32 36 30 5c 66 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75	#.\fP\262...\260\f\207".[cl-stru
df00	63 74 2d 77 65 62 73 6f 63 6b 65 74 2d 74 61 67 73 20 22 0d 5c 6e 22 20 22 48 54 54 50 2f 31 2e	ct-websocket-tags.".\n"."HTTP/1.
df20	31 20 31 30 31 20 53 77 69 74 63 68 69 6e 67 20 50 72 6f 74 6f 63 6f 6c 73 22 20 22 55 70 67 72	1.101.Switching.Protocols"."Upgr
df40	61 64 65 3a 20 77 65 62 73 6f 63 6b 65 74 22 20 22 43 6f 6e 6e 65 63 74 69 6f 6e 3a 20 55 70 67	ade:.websocket"."Connection:.Upg
df60	72 61 64 65 22 20 22 53 65 63 2d 57 65 62 53 6f 63 6b 65 74 2d 41 63 63 65 70 74 3a 20 22 20 30	rade"."Sec-WebSocket-Accept:.".0
df80	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 77 65 62 73	.signal.wrong-type-argument.webs
dfa0	6f 63 6b 65 74 20 31 35 20 77 65 62 73 6f 63 6b 65 74 2d 69 6e 74 65 72 73 65 63 74 20 31 31 20	ocket.15.websocket-intersect.11.
dfc0	6d 61 70 63 6f 6e 63 61 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37	mapconcat.#[257."\300\301.\"\207
dfe0	22 20 5b 66 6f 72 6d 61 74 20 22 53 65 63 2d 57 65 62 53 6f 63 6b 65 74 2d 50 72 6f 74 6f 63 6f	".[format."Sec-WebSocket-Protoco
e000	6c 3a 20 25 73 22 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 50 52 4f 54 4f 43 4f 4c 29 22 5d 20 31	l:.%s"].4."\n\n(fn.PROTOCOL)"].1
e020	32 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 66 6f 72 6d 61	2.#[257."\300\301.\"\207".[forma
e040	74 20 22 53 65 63 2d 57 65 62 73 6f 63 6b 65 74 2d 45 78 74 65 6e 73 69 6f 6e 73 3a 20 25 73 22	t."Sec-Websocket-Extensions:.%s"
e060	5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 45 58 54 45 4e 53 49 4f 4e 29 22 5d 5d 20 32 30 20 28 23	].4."\n\n(fn.EXTENSION)"]].20.(#
e080	24 20 2e 20 35 36 36 38 31 29 5d 29 0a 23 40 37 38 20 54 68 69 73 20 61 63 74 73 20 6f 6e 20 61	$...56681)]).#@78.This.acts.on.a
e0a0	6c 6c 20 4f 55 54 50 55 54 20 66 72 6f 6d 20 77 65 62 73 6f 63 6b 65 74 20 63 6c 69 65 6e 74 73	ll.OUTPUT.from.websocket.clients
e0c0	20 50 52 4f 43 45 53 53 2e 0a 0a 28 66 6e 20 50 52 4f 43 45 53 53 20 4f 55 54 50 55 54 29 1f 0a	.PROCESS...(fn.PROCESS.OUTPUT)..
e0e0	28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 66 69 6c 74	(defalias.'websocket-server-filt
e100	65 72 20 23 5b 35 31 34 20 22 5c 33 30 31 02 5c 33 30 32 5c 22 5c 32 31 31 5c 33 30 33 48 08 3e	er.#[514."\301.\302\"\211\303H.>
e120	5c 32 30 34 13 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33	\204..\304\305\306.D\"\210\211\3
e140	30 37 48 02 50 01 5c 33 30 33 48 08 3e 5c 32 30 34 27 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 04	07H.P.\303H.>\204'.\304\305\306.
e160	44 5c 22 5c 32 31 30 01 5c 32 31 31 5c 33 30 37 5c 33 31 30 49 5c 32 36 36 02 01 5c 33 30 33 48	D\"\210.\211\307\310I\266..\303H
e180	08 3e 5c 32 30 34 3d 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 04 44 5c 22 5c 32 31 30 01 5c 33 31	.>\204=.\304\305\306.D\"\210.\31
e1a0	31 48 5c 33 31 32 3d 5c 32 30 33 5c 33 35 32 00 5c 33 31 33 5c 33 31 34 02 5c 22 5c 32 31 31 5c	1H\312=\203\352.\313\314.\"\211\
e1c0	32 30 35 50 00 5c 33 31 35 01 5c 5c 5c 32 36 32 01 5c 32 31 31 5c 32 30 33 5c 33 31 37 00 5c 33	205P.\315.\\\262.\211\203\317.\3
e1e0	31 36 02 21 5c 32 31 31 5c 32 30 33 5c 32 35 34 00 03 5c 33 30 33 48 08 3e 5c 32 30 34 6d 00 5c	16.!\211\203\254..\303H.>\204m.\
e200	33 30 34 5c 33 30 35 5c 33 30 36 06 06 44 5c 22 5c 32 31 30 03 5c 32 31 31 5c 33 31 37 5c 33 32	304\305\306..D\"\210.\211\317\32
e220	30 5c 33 32 31 05 5c 33 32 32 5c 22 21 49 5c 32 36 36 02 5c 33 32 33 06 06 5c 33 32 34 06 06 5c	0\321.\322\"!I\266.\323..\324..\
e240	33 32 31 05 5c 33 32 35 5c 22 5c 33 32 31 06 06 5c 33 32 36 5c 22 23 5c 22 5c 32 31 30 03 5c 33	321.\325\"\321..\326\"#\"\210.\3
e260	30 33 48 08 3e 5c 32 30 34 5c 32 33 33 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 44 5c 22 5c	03H.>\204\233.\304\305\306..D\"\
e280	32 31 30 03 5c 32 31 31 5c 33 31 31 5c 33 32 37 49 5c 32 36 36 02 5c 33 33 30 5c 33 33 31 5c 33	210.\211\311\327I\266.\330\331\3
e2a0	33 32 06 06 23 5c 32 31 30 5c 32 30 32 5c 32 37 34 00 5c 33 33 33 5c 33 33 34 06 06 5c 22 5c 32	32..#\210\202\274.\333\334..\"\2
e2c0	31 30 5c 33 32 33 06 06 5c 33 33 35 5c 22 5c 32 31 30 5c 33 33 36 04 21 5c 32 31 30 5c 32 31 30	10\323..\335\"\210\336.!\210\210
e2e0	01 47 01 54 56 5c 32 30 35 5c 33 34 35 00 5c 33 33 37 05 03 03 5c 33 31 30 4f 5c 22 5c 32 30 32	.G.TV\205\345.\337...\310O\"\202
e300	5c 33 34 35 00 02 5c 33 30 33 48 08 3e 5c 32 30 34 5c 33 33 36 00 5c 33 30 34 5c 33 30 35 5c 33	\345..\303H.>\204\336.\304\305\3
e320	30 36 05 44 5c 22 5c 32 31 30 02 5c 32 31 31 5c 33 30 37 04 49 5c 32 36 32 01 5c 32 36 32 01 5c	06.D\"\210.\211\307.I\262.\262.\
e340	32 30 32 5c 22 01 01 5c 33 30 33 48 08 3e 5c 32 30 34 5c 33 37 31 00 5c 33 30 34 5c 33 30 35 5c	202\"..\303H.>\204\371.\304\305\
e360	33 30 36 04 44 5c 22 5c 32 31 30 01 5c 33 31 31 48 5c 33 32 37 3d 5c 32 30 33 08 01 5c 33 34 30	306.D\"\210.\311H\327=\203..\340
e380	02 02 5c 22 5c 32 30 32 5c 22 01 01 5c 33 30 33 48 08 3e 5c 32 30 34 17 01 5c 33 30 34 5c 33 30	..\"\202\"..\303H.>\204..\304\30
e3a0	35 5c 33 30 36 04 44 5c 22 5c 32 31 30 01 5c 33 31 31 48 5c 33 34 31 3d 5c 32 30 35 5c 22 01 5c	5\306.D\"\210.\311H\341=\205\".\
e3c0	33 33 33 5c 33 34 32 21 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 77 65 62 73 6f 63 6b	333\342!\207".[cl-struct-websock
e3e0	65 74 2d 74 61 67 73 20 70 72 6f 63 65 73 73 2d 67 65 74 20 3a 77 65 62 73 6f 63 6b 65 74 20 30	et-tags.process-get.:websocket.0
e400	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 77 65 62 73	.signal.wrong-type-argument.webs
e420	6f 63 6b 65 74 20 31 36 20 6e 69 6c 20 31 20 63 6f 6e 6e 65 63 74 69 6e 67 20 73 74 72 69 6e 67	ocket.16.nil.1.connecting.string
e440	2d 6d 61 74 63 68 20 22 0d 5c 6e 0d 5c 6e 22 20 34 20 77 65 62 73 6f 63 6b 65 74 2d 76 65 72 69	-match.".\n.\n".4.websocket-veri
e460	66 79 2d 63 6c 69 65 6e 74 2d 68 65 61 64 65 72 73 20 31 35 20 77 65 62 73 6f 63 6b 65 74 2d 63	fy-client-headers.15.websocket-c
e480	61 6c 63 75 6c 61 74 65 2d 61 63 63 65 70 74 20 70 6c 69 73 74 2d 67 65 74 20 3a 6b 65 79 20 70	alculate-accept.plist-get.:key.p
e4a0	72 6f 63 65 73 73 2d 73 65 6e 64 2d 73 74 72 69 6e 67 20 77 65 62 73 6f 63 6b 65 74 2d 67 65 74	rocess-send-string.websocket-get
e4c0	2d 73 65 72 76 65 72 2d 72 65 73 70 6f 6e 73 65 20 3a 70 72 6f 74 6f 63 6f 6c 73 20 3a 65 78 74	-server-response.:protocols.:ext
e4e0	65 6e 73 69 6f 6e 73 20 6f 70 65 6e 20 77 65 62 73 6f 63 6b 65 74 2d 74 72 79 2d 63 61 6c 6c 62	ensions.open.websocket-try-callb
e500	61 63 6b 20 77 65 62 73 6f 63 6b 65 74 2d 6f 6e 2d 6f 70 65 6e 20 6f 6e 2d 6f 70 65 6e 20 6d 65	ack.websocket-on-open.on-open.me
e520	73 73 61 67 65 20 22 49 6e 76 61 6c 69 64 20 63 6c 69 65 6e 74 20 68 65 61 64 65 72 73 20 66 6f	ssage."Invalid.client.headers.fo
e540	75 6e 64 20 69 6e 3a 20 25 73 22 20 22 48 54 54 50 2f 31 2e 31 20 34 30 30 20 42 61 64 20 52 65	und.in:.%s"."HTTP/1.1.400.Bad.Re
e560	71 75 65 73 74 0d 5c 6e 0d 5c 6e 22 20 77 65 62 73 6f 63 6b 65 74 2d 63 6c 6f 73 65 20 77 65 62	quest.\n.\n".websocket-close.web
e580	73 6f 63 6b 65 74 2d 73 65 72 76 65 72 2d 66 69 6c 74 65 72 20 77 65 62 73 6f 63 6b 65 74 2d 70	socket-server-filter.websocket-p
e5a0	72 6f 63 65 73 73 2d 69 6e 70 75 74 2d 6f 6e 2d 6f 70 65 6e 2d 77 73 20 63 6c 6f 73 65 64 20 22	rocess-input-on-open-ws.closed."
e5c0	57 41 52 4e 49 4e 47 3a 20 53 68 6f 75 6c 64 20 6e 6f 74 20 68 61 76 65 20 72 65 63 65 69 76 65	WARNING:.Should.not.have.receive
e5e0	64 20 66 75 72 74 68 65 72 20 69 6e 70 75 74 20 6f 6e 20 63 6c 6f 73 65 64 20 77 65 62 73 6f 63	d.further.input.on.closed.websoc
e600	6b 65 74 22 5d 20 31 34 20 28 23 24 20 2e 20 35 37 34 39 30 29 5d 29 0a 23 40 33 30 30 20 56 65	ket"].14.(#$...57490)]).#@300.Ve
e620	72 69 66 79 20 74 68 65 20 68 65 61 64 65 72 73 20 66 72 6f 6d 20 74 68 65 20 57 45 42 53 4f 43	rify.the.headers.from.the.WEBSOC
e640	4b 45 54 20 63 6c 69 65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 6e 20 4f 55 54 50 55 54 2e	KET.client.connection.in.OUTPUT.
e660	0a 55 6e 6c 69 6b 65 20 60 77 65 62 73 6f 63 6b 65 74 2d 76 65 72 69 66 79 2d 68 65 61 64 65 72	.Unlike.`websocket-verify-header
e680	73 27 2c 20 74 68 69 73 20 69 73 20 61 20 71 75 69 65 74 65 72 20 72 6f 75 74 69 6e 65 2e 20 20	s',.this.is.a.quieter.routine...
e6a0	57 65 0a 64 6f 6e 27 74 20 77 61 6e 74 20 74 6f 20 65 72 72 6f 72 20 64 75 65 20 74 6f 20 61 20	We.don't.want.to.error.due.to.a.
e6c0	62 61 64 20 63 6c 69 65 6e 74 2c 20 73 6f 20 77 65 20 6a 75 73 74 20 70 72 69 6e 74 20 6f 75 74	bad.client,.so.we.just.print.out
e6e0	0a 6d 65 73 73 61 67 65 73 20 61 6e 64 20 61 20 70 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67	.messages.and.a.plist.containing
e700	20 60 3a 6b 65 79 27 2c 20 74 68 65 20 77 65 62 73 6f 63 6b 65 74 20 6b 65 79 2c 0a 60 3a 70 72	.`:key',.the.websocket.key,.`:pr
e720	6f 74 6f 63 6f 6c 73 27 20 61 6e 64 20 60 3a 65 78 74 65 6e 73 69 6f 6e 73 27 2e 0a 0a 28 66 6e	otocols'.and.`:extensions'...(fn
e740	20 4f 55 54 50 55 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 65 62 73 6f 63 6b 65 74 2d 76	.OUTPUT)..(defalias.'websocket-v
e760	65 72 69 66 79 2d 63 6c 69 65 6e 74 2d 68 65 61 64 65 72 73 20 23 5b 32 35 37 20 22 5c 33 30 31	erify-client-headers.#[257."\301
e780	32 5c 32 31 36 00 5c 33 30 32 5c 33 30 33 01 18 5c 33 30 34 5c 33 30 35 04 5c 22 5c 32 30 34 18	2\216.\302\303..\304\305.\"\204.
e7a0	00 5c 33 30 36 5c 33 30 37 21 5c 32 31 30 5c 33 31 30 5c 33 30 31 5c 33 30 33 5c 22 5c 32 31 30	.\306\307!\210\310\301\303\"\210
e7c0	5c 33 30 34 5c 33 31 31 04 5c 22 5c 32 30 34 28 00 5c 33 30 36 5c 33 31 32 21 5c 32 31 30 5c 33	\304\311.\"\204(.\306\312!\210\3
e7e0	31 30 5c 33 30 31 5c 33 30 33 5c 22 5c 32 31 30 5c 33 30 34 5c 33 31 33 04 5c 22 5c 32 30 34 38	10\301\303\"\210\304\313.\"\2048
e800	00 5c 33 30 36 5c 33 31 34 21 5c 32 31 30 5c 33 31 30 5c 33 30 31 5c 33 30 33 5c 22 5c 32 31 30	.\306\314!\210\310\301\303\"\210
e820	5c 33 30 34 5c 33 31 35 04 5c 22 5c 32 30 33 4d 00 5c 33 31 36 01 5c 33 31 37 5c 33 32 30 5c 33	\304\315.\"\203M.\316.\317\320\3
e840	32 31 06 07 5c 22 23 5c 32 36 32 01 5c 32 30 32 56 00 5c 33 30 36 5c 33 32 32 21 5c 32 31 30 5c	21..\"#\262.\202V.\306\322!\210\
e860	33 31 30 5c 33 30 31 5c 33 30 33 5c 22 5c 32 31 30 5c 33 30 34 5c 33 32 33 04 5c 22 5c 32 30 34	310\301\303\"\210\304\323.\"\204
e880	66 00 5c 33 30 36 5c 33 32 34 21 5c 32 31 30 5c 33 31 30 5c 33 30 31 5c 33 30 33 5c 22 5c 32 31	f.\306\324!\210\310\301\303\"\21
e8a0	30 5c 33 30 34 5c 33 32 35 04 5c 22 5c 32 30 33 78 00 5c 33 31 36 01 5c 33 32 36 5c 33 32 37 06	0\304\325.\"\203x.\316.\326\327.
e8c0	06 5c 33 33 30 5c 22 23 5c 32 36 32 01 5c 33 30 34 5c 33 33 31 04 5c 22 5c 32 30 33 5c 32 31 32	.\330\"#\262.\304\331.\"\203\212
e8e0	00 5c 33 31 36 01 5c 33 33 32 5c 33 32 37 06 06 5c 33 33 33 5c 22 23 5c 32 36 32 01 29 5c 32 36	.\316.\332\327..\333\"#\262.)\26
e900	32 01 30 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 2d 2d 63 6c 2d	2.0\207".[case-fold-search.--cl-
e920	62 6c 6f 63 6b 2d 6e 69 6c 2d 2d 20 74 20 6e 69 6c 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22	block-nil--.t.nil.string-match."
e940	48 54 54 50 2f 31 2e 31 22 20 6d 65 73 73 61 67 65 20 22 57 65 62 73 6f 63 6b 65 74 20 63 6c 69	HTTP/1.1".message."Websocket.cli
e960	65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 3a 20 48 54 54 50 2f 31 2e 31 20 6e 6f 74 20 66 6f 75	ent.connection:.HTTP/1.1.not.fou
e980	6e 64 22 20 74 68 72 6f 77 20 22 5e 48 6f 73 74 3a 20 22 20 22 57 65 62 73 6f 63 6b 65 74 20 63	nd".throw."^Host:."."Websocket.c
e9a0	6c 69 65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 3a 20 48 6f 73 74 20 68 65 61 64 65 72 20 6e 6f	lient.connection:.Host.header.no
e9c0	74 20 66 6f 75 6e 64 22 20 22 5e 55 70 67 72 61 64 65 3a 20 77 65 62 73 6f 63 6b 65 74 0d 5c 6e	t.found"."^Upgrade:.websocket.\n
e9e0	22 20 22 57 65 62 73 6f 63 6b 65 74 20 63 6c 69 65 6e 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 3a 20	"."Websocket.client.connection:.
ea00	55 70 67 72 61 64 65 3a 20 77 65 62 73 6f 63 6b 65 74 20 6e 6f 74 20 66 6f 75 6e 64 22 20 22 5e	Upgrade:.websocket.not.found"."^
ea20	53 65 63 2d 57 65 62 53 6f 63 6b 65 74 2d 4b 65 79 3a 20 5c 5c 28 5b 5b 3a 67 72 61 70 68 3a 5d	Sec-WebSocket-Key:.\\([[:graph:]
ea40	5d 2b 5c 5c 29 0d 5c 6e 22 20 70 6c 69 73 74 2d 70 75 74 20 3a 6b 65 79 20 6d 61 74 63 68 2d 73	]+\\).\n".plist-put.:key.match-s
ea60	74 72 69 6e 67 20 31 20 22 57 65 62 73 6f 63 6b 65 74 20 63 6c 69 65 6e 74 20 63 6f 6e 6e 65 63	tring.1."Websocket.client.connec
ea80	74 3a 20 4e 6f 20 6b 65 79 20 73 65 6e 74 22 20 22 5e 53 65 63 2d 57 65 62 53 6f 63 6b 65 74 2d	t:.No.key.sent"."^Sec-WebSocket-
eaa0	56 65 72 73 69 6f 6e 3a 20 31 33 22 20 22 57 65 62 73 6f 63 6b 65 74 20 63 6c 69 65 6e 74 20 63	Version:.13"."Websocket.client.c
eac0	6f 6e 6e 65 63 74 3a 20 57 65 62 73 6f 63 6b 65 74 20 76 65 72 73 69 6f 6e 20 31 33 20 6e 6f 74	onnect:.Websocket.version.13.not
eae0	20 66 6f 75 6e 64 22 20 22 5e 53 65 63 2d 57 65 62 53 6f 63 6b 65 74 2d 50 72 6f 74 6f 63 6f 6c	.found"."^Sec-WebSocket-Protocol
eb00	3a 22 20 3a 70 72 6f 74 6f 63 6f 6c 73 20 77 65 62 73 6f 63 6b 65 74 2d 70 61 72 73 65 2d 72 65	:".:protocols.websocket-parse-re
eb20	70 65 61 74 65 64 2d 66 69 65 6c 64 20 22 53 65 63 2d 57 65 62 73 6f 63 6b 65 74 2d 50 72 6f 74	peated-field."Sec-Websocket-Prot
eb40	6f 63 6f 6c 22 20 22 5e 53 65 63 2d 57 65 62 53 6f 63 6b 65 74 2d 45 78 74 65 6e 73 69 6f 6e 73	ocol"."^Sec-WebSocket-Extensions
eb60	3a 22 20 3a 65 78 74 65 6e 73 69 6f 6e 73 20 22 53 65 63 2d 57 65 62 73 6f 63 6b 65 74 2d 45 78	:".:extensions."Sec-Websocket-Ex
eb80	74 65 6e 73 69 6f 6e 73 22 5d 20 39 20 28 23 24 20 2e 20 35 38 39 31 30 29 5d 29 0a 28 70 72 6f	tensions"].9.(#$...58910)]).(pro
eba0	76 69 64 65 20 27 77 65 62 73 6f 63 6b 65 74 29 0a	vide.'websocket).