blob: 9c9cd1508ce899d64e813348611bec143745dd72 (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 30 37 22 20 5b 72 65	"\300\301!\210\300\302!\207".[re
01c0	71 75 69 72 65 20 63 6c 2d 6c 69 62 20 6d 61 6b 65 2d 74 6c 73 2d 70 72 6f 63 65 73 73 5d 20 32	quire.cl-lib.make-tls-process].2
01e0	29 0a 23 40 34 36 20 45 6d 69 74 20 70 72 6f 74 6f 63 6f 6c 20 64 65 62 75 67 20 69 6e 66 6f 20	).#@46.Emit.protocol.debug.info.
0200	69 66 20 74 68 69 73 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 1f 0a 28 64 65 66 76 61 72 20 69 72 63	if.this.is.non-nil...(defvar.irc
0220	2d 64 65 62 75 67 2d 6c 6f 67 20 6e 69 6c 20 28 23 24 20 2e 20 34 38 37 29 29 0a 23 40 37 31 35	-debug-log.nil.(#$...487)).#@715
0240	20 43 6f 6e 6e 65 63 74 20 74 6f 20 61 6e 20 49 52 43 20 73 65 72 76 65 72 2e 0a 0a 53 75 70 70	.Connect.to.an.IRC.server...Supp
0260	6f 72 74 65 64 20 6b 65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 73 3a 0a 0a 3a 6e 61 6d 65 20	orted.keyword.arguments:..:name.
0280	4e 41 4d 45 20 2d 2d 20 54 68 65 20 6e 61 6d 65 20 66 6f 72 20 74 68 65 20 70 72 6f 63 65 73 73	NAME.--.The.name.for.the.process
02a0	0a 3a 68 6f 73 74 20 48 4f 53 54 20 2d 2d 20 54 68 65 20 68 6f 73 74 20 74 6f 20 63 6f 6e 6e 65	.:host.HOST.--.The.host.to.conne
02c0	63 74 20 74 6f 0a 3a 73 65 72 76 69 63 65 20 53 45 52 56 49 43 45 20 2d 2d 20 54 68 65 20 73 65	ct.to.:service.SERVICE.--.The.se
02e0	72 76 69 63 65 20 6f 72 20 70 6f 72 74 20 74 6f 20 63 6f 6e 6e 65 63 74 20 74 6f 0a 3a 74 6c 73	rvice.or.port.to.connect.to.:tls
0300	20 42 4f 4f 4c 20 2d 2d 20 57 68 65 74 68 65 72 20 74 6f 20 75 73 65 20 54 4c 53 0a 3a 66 61 6d	.BOOL.--.Whether.to.use.TLS.:fam
0320	69 6c 79 20 49 50 2d 46 41 4d 49 4c 59 20 2d 2d 20 46 6f 72 63 65 20 75 73 69 6e 67 20 6f 66 20	ily.IP-FAMILY.--.Force.using.of.
0340	69 70 76 34 20 6f 72 20 69 70 76 36 0a 3a 68 61 6e 64 6c 65 72 2d 74 61 62 6c 65 20 48 41 4e 44	ipv4.or.ipv6.:handler-table.HAND
0360	4c 45 52 20 2d 2d 20 54 68 65 20 65 76 65 6e 74 20 68 61 6e 64 6c 65 72 20 74 61 62 6c 65 20 74	LER.--.The.event.handler.table.t
0380	6f 20 73 65 6e 64 20 65 76 65 6e 74 73 20 74 6f 2e 0a 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67	o.send.events.to...The.following
03a0	20 65 76 65 6e 74 73 20 61 72 65 20 73 75 70 70 6f 72 74 65 64 3a 0a 0a 63 6f 6e 6e 2e 63 6f 6e	.events.are.supported:..conn.con
03c0	6e 65 63 74 65 64 20 63 6f 6e 6e 20 2d 2d 20 54 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 77 61	nected.conn.--.The.connection.wa
03e0	73 20 65 73 74 61 62 6c 69 73 68 65 64 0a 63 6f 6e 6e 2e 66 61 69 6c 65 64 20 63 6f 6e 6e 20 2d	s.established.conn.failed.conn.-
0400	2d 20 54 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 75 6c 64 20 6e 6f 74 20 62 65 20 65 73	-.The.connection.could.not.be.es
0420	74 61 62 6c 69 73 68 65 64 0a 63 6f 6e 6e 2e 64 69 73 63 6f 6e 6e 65 63 74 65 64 20 63 6f 6e 6e	tablished.conn.disconnected.conn
0440	20 2d 2d 20 41 20 70 72 65 76 69 6f 75 73 6c 79 20 65 73 74 61 62 6c 69 73 68 65 64 20 63 6f 6e	.--.A.previously.established.con
0460	6e 65 63 74 69 6f 6e 20 77 61 73 20 6c 6f 73 74 0a 0a 4e 4e 4e 20 63 6f 6e 6e 20 73 65 6e 64 65	nection.was.lost..NNN.conn.sende
0480	72 20 61 72 67 73 2e 2e 2e 20 2d 2d 20 41 20 6e 75 6d 65 72 69 63 20 72 65 70 6c 79 20 66 72 6f	r.args....--.A.numeric.reply.fro
04a0	6d 20 49 52 43 20 77 61 73 20 72 65 63 65 69 76 65 64 0a 43 4f 4d 4d 41 4e 44 20 63 6f 6e 6e 20	m.IRC.was.received.COMMAND.conn.
04c0	73 65 6e 64 65 72 20 61 72 67 73 2e 2e 2e 20 2d 2d 20 41 6e 20 49 52 43 20 63 6f 6d 6d 61 6e 64	sender.args....--.An.IRC.command
04e0	20 6d 65 73 73 61 67 65 20 77 61 73 20 72 65 63 65 69 76 65 64 0a 0a 28 66 6e 20 26 72 65 73 74	.message.was.received..(fn.&rest
0500	20 4b 45 59 57 4f 52 44 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 6f 6e 6e 65	.KEYWORDS)..(defalias.'irc-conne
0520	63 74 20 23 5b 31 32 38 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 33 0b 00 5c 33 30 32 5c	ct.#[128."\300.\301\"\203..\302\
0540	32 30 32 5c 66 00 5c 33 30 33 5c 33 30 34 5c 33 30 30 03 5c 33 30 34 5c 22 5c 32 30 36 18 00 5c	202\f.\303\304\300.\304\"\206..\
0560	33 30 30 03 5c 33 30 35 5c 22 5c 33 30 35 5c 33 30 30 05 5c 33 30 35 5c 22 5c 32 30 36 23 00 5c	300.\305\"\305\300.\305\"\206#.\
0580	33 30 36 5c 33 30 37 21 5c 33 31 30 5c 33 30 30 06 07 5c 33 31 30 5c 22 5c 32 30 36 2f 00 5c 33	306\307!\310\300..\310\"\206/.\3
05a0	30 36 5c 33 31 31 21 5c 33 31 32 5c 33 30 30 06 09 5c 33 31 32 5c 22 5c 33 31 33 5c 33 31 34 5c	06\311!\312\300..\312\"\313\314\
05c0	33 31 35 5c 33 31 36 5c 33 30 33 5c 33 31 37 5c 22 5c 33 32 30 5c 33 32 31 5c 33 32 32 5c 33 32	315\316\303\317\"\320\321\322\32
05e0	33 5c 33 32 34 5c 33 32 35 5c 33 32 36 06 14 5c 33 32 37 5c 33 32 31 26 16 5c 33 33 30 01 21 5c	3\324\325\326..\327\321&.\330.!\
0600	33 33 31 3d 5c 32 30 33 56 00 5c 33 32 35 01 5c 33 33 32 5c 22 5c 32 31 30 5c 32 31 31 5c 32 30	331=\203V.\325.\332\"\210\211\20
0620	37 22 20 5b 70 6c 69 73 74 2d 67 65 74 20 3a 74 6c 73 20 6d 61 6b 65 2d 74 6c 73 2d 70 72 6f 63	7".[plist-get.:tls.make-tls-proc
0640	65 73 73 20 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 65 20 3a	ess.make-network-process.:name.:
0660	68 6f 73 74 20 65 72 72 6f 72 20 22 4d 75 73 74 20 73 70 65 63 69 66 79 20 61 20 3a 68 6f 73 74	host.error."Must.specify.a.:host
0680	20 74 6f 20 63 6f 6e 6e 65 63 74 20 74 6f 22 20 3a 73 65 72 76 69 63 65 20 22 4d 75 73 74 20 73	.to.connect.to".:service."Must.s
06a0	70 65 63 69 66 79 20 61 20 3a 73 65 72 76 69 63 65 20 74 6f 20 63 6f 6e 6e 65 63 74 20 74 6f 22	pecify.a.:service.to.connect.to"
06c0	20 3a 66 61 6d 69 6c 79 20 3a 63 6f 64 69 6e 67 20 6e 6f 2d 63 6f 6e 76 65 72 73 69 6f 6e 20 3a	.:family.:coding.no-conversion.:
06e0	6e 6f 77 61 69 74 20 66 65 61 74 75 72 65 70 20 28 3a 6e 6f 77 61 69 74 20 74 29 20 3a 6e 6f 71	nowait.featurep.(:nowait.t).:noq
0700	75 65 72 79 20 74 20 3a 66 69 6c 74 65 72 20 69 72 63 2d 2d 66 69 6c 74 65 72 20 3a 73 65 6e 74	uery.t.:filter.irc--filter.:sent
0720	69 6e 65 6c 20 69 72 63 2d 2d 73 65 6e 74 69 6e 65 6c 20 3a 70 6c 69 73 74 20 3a 6b 65 65 70 61	inel.irc--sentinel.:plist.:keepa
0740	6c 69 76 65 20 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 6f 70 65 6e 20 22 6f 70 65 6e 20 6d	live.process-status.open."open.m
0760	61 6e 75 61 6c 6c 79 22 5d 20 32 34 20 28 23 24 20 2e 20 35 37 37 29 5d 29 0a 23 40 36 37 20 52	anually"].24.(#$...577)]).#@67.R
0780	65 74 75 72 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 43 4f 4e 4e 27 73 20 50 52 4f 50 4e 41	eturn.the.value.of.CONN's.PROPNA
07a0	4d 45 20 70 72 6f 70 65 72 74 79 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 50 52 4f 50 4e 41 4d 45 29	ME.property...(fn.CONN.PROPNAME)
07c0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20	..(defalias.'irc-connection-get.
07e0	23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 5c 32 30 37 22 20 5b 70 72 6f 63 65 73 73 2d 67 65	#[514."\300..\"\207".[process-ge
0800	74 5d 20 35 20 28 23 24 20 2e 20 31 39 31 39 29 5d 29 0a 23 40 36 39 20 43 68 61 6e 67 65 20 43	t].5.(#$...1919)]).#@69.Change.C
0820	4f 4e 4e 27 73 20 50 52 4f 50 4e 41 4d 45 20 70 72 6f 70 65 72 74 79 20 74 6f 20 56 41 4c 55 45	ONN's.PROPNAME.property.to.VALUE
0840	2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 50 52 4f 50 4e 41 4d 45 20 56 41 4c 55 45 29 1f 0a 28 64 65	...(fn.CONN.PROPNAME.VALUE)..(de
0860	66 61 6c 69 61 73 20 27 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 70 75 74 20 23 5b 37 37 31	falias.'irc-connection-put.#[771
0880	20 22 5c 33 30 30 03 03 03 23 5c 32 30 37 22 20 5b 70 72 6f 63 65 73 73 2d 70 75 74 5d 20 37 20	."\300...#\207".[process-put].7.
08a0	28 23 24 20 2e 20 32 30 37 32 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 2d 73 65	(#$...2072)]).(defalias.'irc--se
08c0	6e 74 69 6e 65 6c 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 33 5c 66 00	ntinel.#[514."\300\301.\"\203\f.
08e0	5c 33 30 32 02 5c 33 30 33 5c 22 5c 32 30 37 5c 33 30 30 5c 33 30 34 02 5c 22 5c 32 30 33 18 00	\302.\303\"\207\300\304.\"\203..
0900	5c 33 30 32 02 5c 33 30 35 5c 22 5c 32 30 37 5c 33 30 30 5c 33 30 36 02 5c 22 5c 32 30 33 24 00	\302.\305\"\207\300\306.\"\203$.
0920	5c 33 30 32 02 5c 33 30 37 5c 22 5c 32 30 37 5c 33 30 30 5c 33 31 30 02 5c 22 5c 32 30 33 2d 00	\302.\307\"\207\300\310.\"\203-.
0940	5c 33 31 31 5c 32 30 37 5c 33 31 32 5c 33 31 33 02 5c 22 5c 32 30 37 22 20 5b 73 74 72 69 6e 67	\311\207\312\313.\"\207".[string
0960	2d 6d 61 74 63 68 20 22 5c 5c 60 66 61 69 6c 65 64 22 20 69 72 63 2d 65 76 65 6e 74 2d 65 6d 69	-match."\\`failed".irc-event-emi
0980	74 20 22 63 6f 6e 6e 2e 66 61 69 6c 65 64 22 20 22 5c 5c 60 6f 70 65 6e 22 20 22 63 6f 6e 6e 2e	t."conn.failed"."\\`open"."conn.
09a0	63 6f 6e 6e 65 63 74 65 64 22 20 22 5c 5c 60 5c 5c 28 63 6f 6e 6e 65 63 74 69 6f 6e 20 62 72 6f	connected"."\\`\\(connection.bro
09c0	6b 65 6e 5c 5c 7c 66 69 6e 69 73 68 65 64 5c 5c 7c 65 78 69 74 65 64 20 61 62 6e 6f 72 6d 61 6c	ken\\|finished\\|exited.abnormal
09e0	6c 79 5c 5c 29 22 20 22 63 6f 6e 6e 2e 64 69 73 63 6f 6e 6e 65 63 74 65 64 22 20 22 5c 5c 60 5c	ly\\)"."conn.disconnected"."\\`\
0a00	5c 28 64 65 6c 65 74 65 64 5c 5c 7c 6b 69 6c 6c 65 64 5c 5c 29 22 20 6e 69 6c 20 65 72 72 6f 72	\(deleted\\|killed\\)".nil.error
0a20	20 22 55 6e 6b 6e 6f 77 6e 20 65 76 65 6e 74 20 69 6e 20 49 52 43 20 73 65 6e 74 69 6e 65 6c 3a	."Unknown.event.in.IRC.sentinel:
0a40	20 25 53 22 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 50 52 4f 43 20 45 56 45 4e 54 29 22 5d 29 0a	.%S"].5."\n\n(fn.PROC.EVENT)"]).
0a60	23 40 35 39 34 20 4e 6f 6e 2d 6e 69 6c 20 77 68 65 6e 20 77 65 27 72 65 20 63 75 72 72 65 6e 74	#@594.Non-nil.when.we're.current
0a80	6c 79 20 70 72 6f 63 65 73 73 69 6e 67 20 61 20 6d 65 73 73 61 67 65 2e 0a 0a 59 65 70 2c 20 74	ly.processing.a.message...Yep,.t
0aa0	68 69 73 20 69 73 20 61 20 6d 75 74 65 78 2e 20 57 68 79 20 77 6f 75 6c 64 20 6f 6e 65 20 6e 65	his.is.a.mutex..Why.would.one.ne
0ac0	65 64 20 61 20 6d 75 74 65 78 20 69 6e 20 45 6d 61 63 73 2c 20 61 0a 73 69 6e 67 6c 65 2d 74 68	ed.a.mutex.in.Emacs,.a.single-th
0ae0	72 65 61 64 65 64 20 61 70 70 6c 69 63 61 74 69 6f 6e 2c 20 79 6f 75 20 61 73 6b 3f 20 45 61 73	readed.application,.you.ask?.Eas
0b00	79 21 0a 0a 57 68 65 6e 2c 20 64 75 72 69 6e 67 20 74 68 65 20 65 78 65 63 75 74 69 6f 6e 20 6f	y!..When,.during.the.execution.o
0b20	66 20 61 20 70 72 6f 63 65 73 73 20 66 69 6c 74 65 72 2c 20 61 6e 79 20 70 69 65 63 65 20 6f 66	f.a.process.filter,.any.piece.of
0b40	20 63 6f 64 65 0a 77 61 69 74 73 20 66 6f 72 20 70 72 6f 63 65 73 73 20 6f 75 74 70 75 74 20 2d	.code.waits.for.process.output.-
0b60	20 65 2e 67 2e 20 62 65 63 61 75 73 65 20 74 68 65 79 20 73 74 61 72 74 65 64 20 61 20 73 6f 6d	.e.g..because.they.started.a.som
0b80	65 0a 65 78 74 65 72 6e 61 6c 20 70 72 6f 67 72 61 6d 20 2d 20 45 6d 61 63 73 20 77 69 6c 6c 20	e.external.program.-.Emacs.will.
0ba0	70 72 6f 63 65 73 73 20 61 6e 79 20 69 6e 70 75 74 20 66 72 6f 6d 20 65 78 74 65 72 6e 61 6c 0a	process.any.input.from.external.
0bc0	70 72 6f 63 65 73 73 65 73 2e 20 49 6e 63 6c 75 64 69 6e 67 20 74 68 65 20 6f 6e 65 20 66 6f 72	processes..Including.the.one.for
0be0	20 74 68 65 20 66 69 6c 74 65 72 20 74 68 61 74 20 69 73 20 63 75 72 72 65 6e 74 6c 79 0a 72 75	.the.filter.that.is.currently.ru
0c00	6e 6e 69 6e 67 2e 0a 0a 49 66 20 74 68 61 74 20 70 72 6f 63 65 73 73 20 64 6f 65 73 20 65 6d 69	nning...If.that.process.does.emi
0c20	74 20 6f 75 74 70 75 74 2c 20 74 68 65 20 66 69 6c 74 65 72 20 69 73 20 72 75 6e 20 61 67 61 69	t.output,.the.filter.is.run.agai
0c40	6e 2c 20 77 68 69 6c 65 0a 69 74 20 69 73 20 61 6c 72 65 61 64 79 20 72 75 6e 6e 69 6e 67 2e 20	n,.while.it.is.already.running..
0c60	49 66 20 74 68 65 20 66 69 6c 74 65 72 20 69 73 20 6e 6f 74 20 63 61 72 65 66 75 6c 2c 20 74 68	If.the.filter.is.not.careful,.th
0c80	69 73 20 63 61 6e 0a 63 61 75 73 65 20 64 61 74 61 20 74 6f 20 61 72 72 69 76 65 20 6f 75 74 20	is.can.cause.data.to.arrive.out.
0ca0	6f 66 20 6f 72 64 65 72 2c 20 6f 72 20 67 65 74 20 6c 6f 73 74 2e 1f 0a 28 64 65 66 76 61 72 20	of.order,.or.get.lost...(defvar.
0cc0	69 72 63 2d 2d 66 69 6c 74 65 72 2d 72 75 6e 6e 69 6e 67 2d 70 20 6e 69 6c 20 28 23 24 20 2e 20	irc--filter-running-p.nil.(#$...
0ce0	32 36 36 32 29 29 0a 23 40 34 37 20 48 61 6e 64 6c 65 20 64 61 74 61 20 66 72 6f 6d 20 74 68 65	2662)).#@47.Handle.data.from.the
0d00	20 70 72 6f 63 65 73 73 2e 0a 0a 28 66 6e 20 50 52 4f 43 20 44 41 54 41 29 1f 0a 28 64 65 66 61	.process...(fn.PROC.DATA)..(defa
0d20	6c 69 61 73 20 27 69 72 63 2d 2d 66 69 6c 74 65 72 20 23 5b 35 31 34 20 22 5c 33 30 31 02 5c 33	lias.'irc--filter.#[514."\301.\3
0d40	30 32 5c 33 30 33 05 5c 33 30 32 5c 22 5c 32 30 36 0b 00 5c 33 30 34 04 50 23 5c 32 31 30 08 3f	02\303.\302\"\206..\304.P#\210.?
0d60	5c 32 30 35 45 00 5c 33 30 35 5c 33 30 33 03 5c 33 30 32 5c 22 01 18 5c 33 30 36 5c 33 30 37 02	\205E.\305\303.\302\"..\306\307.
0d80	5c 22 5c 32 30 35 42 00 5c 32 31 31 5c 33 31 30 5c 32 31 31 5c 32 32 34 4f 01 5c 33 31 30 5c 32	\"\205B.\211\310\211\224O.\310\2
0da0	32 35 5c 33 31 31 4f 5c 32 36 32 02 5c 33 30 31 05 5c 33 30 32 04 23 5c 32 31 30 5c 33 31 32 05	25\311O\262.\301.\302.#\210\312.
0dc0	02 5c 22 5c 32 31 30 5c 33 30 33 05 5c 33 30 32 5c 22 5c 32 36 36 5c 32 30 32 5c 32 30 32 1b 00	.\"\210\303.\302\"\266\202\202..
0de0	29 5c 32 36 36 5c 32 30 32 5c 32 30 37 22 20 5b 69 72 63 2d 2d 66 69 6c 74 65 72 2d 72 75 6e 6e	)\266\202\207".[irc--filter-runn
0e00	69 6e 67 2d 70 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 70 75 74 20 3a 63 6f 6e 6e 2d 64	ing-p.irc-connection-put.:conn-d
0e20	61 74 61 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 22 22 20 74 20 73 74 72 69	ata.irc-connection-get."".t.stri
0e40	6e 67 2d 6d 61 74 63 68 20 22 0d 3f 5c 6e 22 20 30 20 6e 69 6c 20 69 72 63 2d 2d 68 61 6e 64 6c	ng-match.".?\n".0.nil.irc--handl
0e60	65 2d 6c 69 6e 65 5d 20 39 20 28 23 24 20 2e 20 33 33 30 38 29 5d 29 0a 23 40 31 33 33 20 48 61	e-line].9.(#$...3308)]).#@133.Ha
0e80	6e 64 6c 65 20 61 20 73 69 6e 67 6c 65 20 6c 69 6e 65 20 66 72 6f 6d 20 74 68 65 20 49 52 43 20	ndle.a.single.line.from.the.IRC.
0ea0	73 65 72 76 65 72 2e 0a 0a 54 68 65 20 63 6f 6d 6d 61 6e 64 20 69 73 20 73 69 6d 70 6c 79 20 70	server...The.command.is.simply.p
0ec0	61 73 73 65 64 20 74 6f 20 74 68 65 20 65 76 65 6e 74 20 68 61 6e 64 6c 65 72 20 6f 66 20 74 68	assed.to.the.event.handler.of.th
0ee0	65 20 49 52 43 0a 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 0a 28 66 6e 20 50 52 4f 43 20 4c 49 4e 45	e.IRC.connection...(fn.PROC.LINE
0f00	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 2d 68 61 6e 64 6c 65 2d 6c 69 6e 65 20 23	)..(defalias.'irc--handle-line.#
0f20	5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 23 5c 32 31 30 5c 33 30 32 01 21 5c 32 31 31 40	[514."\300.\301.#\210\302.!\211@
0f40	01 41 40 02 41 41 5c 33 30 33 5c 33 30 34 06 07 04 06 06 05 25 5c 32 30 37 22 20 5b 69 72 63 2d	.A@.AA\303\304......%\207".[irc-
0f60	64 65 62 75 67 2d 6f 75 74 20 22 53 3a 20 25 73 22 20 69 72 63 2d 2d 70 61 72 73 65 20 61 70 70	debug-out."S:.%s".irc--parse.app
0f80	6c 79 20 69 72 63 2d 65 76 65 6e 74 2d 65 6d 69 74 5d 20 31 32 20 28 23 24 20 2e 20 33 37 31 30	ly.irc-event-emit].12.(#$...3710
0fa0	29 5d 29 0a 23 40 34 35 35 20 50 61 72 73 65 20 61 20 6c 69 6e 65 20 66 72 6f 6d 20 49 52 43 2e	)]).#@455.Parse.a.line.from.IRC.
0fc0	0a 0a 52 65 74 75 72 6e 73 20 61 20 6c 69 73 74 3a 20 28 73 65 6e 64 65 72 20 63 6f 6d 6d 61 6e	..Returns.a.list:.(sender.comman
0fe0	64 20 61 72 67 73 2e 2e 2e 29 0a 0a 41 20 6c 69 6e 65 20 66 72 6f 6d 20 49 52 43 20 69 73 20 61	d.args...)..A.line.from.IRC.is.a
1000	20 73 70 61 63 65 2d 73 65 70 61 72 61 74 65 64 20 6c 69 73 74 20 6f 66 20 61 72 67 75 6d 65 6e	.space-separated.list.of.argumen
1020	74 73 2e 20 49 66 20 74 68 65 0a 66 69 72 73 74 20 77 6f 72 64 20 73 74 61 72 74 73 20 77 69 74	ts..If.the.first.word.starts.wit
1040	68 20 61 20 63 6f 6c 6f 6e 2c 20 74 68 61 74 27 73 20 74 68 65 20 73 65 6e 64 65 72 2e 20 54 68	h.a.colon,.that's.the.sender..Th
1060	65 20 66 69 72 73 74 20 6f 72 0a 73 65 63 6f 6e 64 20 77 6f 72 64 20 69 73 20 74 68 65 20 63 6f	e.first.or.second.word.is.the.co
1080	6d 6d 61 6e 64 2e 20 41 6c 6c 20 66 75 72 74 68 65 72 20 77 6f 72 64 73 20 61 72 65 20 61 72 67	mmand..All.further.words.are.arg
10a0	75 6d 65 6e 74 73 2e 20 54 68 65 0a 66 69 72 73 74 20 77 6f 72 64 20 74 6f 20 73 74 61 72 74 20	uments..The.first.word.to.start.
10c0	77 69 74 68 20 61 20 63 6f 6c 6f 6e 20 65 6e 64 73 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 6c	with.a.colon.ends.the.argument.l
10e0	69 73 74 2e 0a 0a 45 78 61 6d 70 6c 65 73 3a 0a 0a 43 4f 4d 4d 41 4e 44 0a 43 4f 4d 4d 41 4e 44	ist...Examples:..COMMAND.COMMAND
1100	20 61 72 67 0a 43 4f 4d 4d 41 4e 44 20 61 72 67 31 20 61 72 67 32 0a 43 4f 4d 4d 41 4e 44 20 61	.arg.COMMAND.arg1.arg2.COMMAND.a
1120	72 67 31 20 61 72 67 32 20 3a 61 72 67 33 20 73 74 69 6c 6c 20 61 72 67 33 0a 3a 73 65 6e 64 65	rg1.arg2.:arg3.still.arg3.:sende
1140	72 20 43 4f 4d 4d 41 4e 44 20 61 72 67 31 20 61 72 67 32 20 3a 61 72 67 33 20 73 74 69 6c 6c 20	r.COMMAND.arg1.arg2.:arg3.still.
1160	61 72 67 33 0a 0a 28 66 6e 20 4c 49 4e 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d	arg3..(fn.LINE)..(defalias.'irc-
1180	2d 70 61 72 73 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 21 72 5c 32 31 31 71 5c 32 31	-parse.#[257."\300\301!r\211q\21
11a0	30 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 05 21 5c 33 30 37 5c 22 5c 33 31	0\302\303\304\305\306.!\307\"\31
11c0	30 24 5c 32 31 36 01 63 5c 32 31 30 65 62 5c 32 31 30 5c 33 31 31 5c 32 31 31 5c 33 31 32 5c 33	0$\216.c\210eb\210\311\211\312\3
11e0	31 33 21 5c 32 30 33 2d 00 5c 33 31 34 5c 33 31 35 5c 33 31 36 21 5c 33 31 37 5c 22 5c 32 36 32	13!\203-.\314\315\316!\317\"\262
1200	02 5c 33 30 33 5c 32 32 35 62 5c 32 31 30 5c 33 31 32 5c 33 32 30 21 5c 32 30 34 38 00 5c 33 32	.\303\225b\210\312\320!\2048.\32
1220	31 5c 33 32 32 05 5c 22 5c 32 31 30 5c 33 31 34 5c 33 31 35 5c 33 31 36 21 5c 33 31 37 5c 22 01	1\322.\"\210\314\315\316!\317\".
1240	42 5c 32 36 32 01 5c 33 30 33 5c 32 32 35 62 5c 32 31 30 5c 33 32 33 5c 33 32 34 5c 33 31 31 5c	B\262.\303\225b\210\323\324\311\
1260	33 32 35 23 5c 32 30 33 61 00 5c 33 31 34 5c 33 31 35 5c 33 31 36 21 5c 32 30 36 58 00 5c 33 31	325#\203a.\314\315\316!\206X.\31
1280	35 5c 33 31 30 21 5c 33 31 37 5c 22 01 42 5c 32 36 32 01 5c 32 30 32 46 00 01 01 5c 32 33 37 42	5\310!\317\".B\262.\202F...\237B
12a0	5c 32 36 36 5c 32 30 32 2a 5c 32 30 37 22 20 5b 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66	\266\202*\207".[generate-new-buf
12c0	66 65 72 20 22 20 2a 74 65 6d 70 2a 22 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 30 20 22	fer.".*temp*".make-byte-code.0."
12e0	5c 33 30 31 5c 33 30 30 21 5c 32 30 35 09 00 5c 33 30 32 5c 33 30 30 21 5c 32 30 37 22 20 76 63	\301\300!\205..\302\300!\207".vc
1300	6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62	oncat.vector.[buffer-name.kill-b
1320	75 66 66 65 72 5d 20 32 20 6e 69 6c 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 3a 5c 5c 28 5b 5e 20	uffer].2.nil.looking-at.":\\([^.
1340	5d 2b 5c 5c 29 20 22 20 64 65 63 6f 64 65 2d 63 6f 64 69 6e 67 2d 73 74 72 69 6e 67 20 6d 61 74	]+\\).".decode-coding-string.mat
1360	63 68 2d 73 74 72 69 6e 67 20 31 20 75 6e 64 65 63 69 64 65 64 20 22 5c 5c 28 5b 5e 20 5d 2b 5c	ch-string.1.undecided."\\([^.]+\
1380	5c 29 22 20 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 6d 65 73 73 61 67 65 3a 20 25 73 22 20	\)".error."Invalid.message:.%s".
13a0	72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 20 3a 5c 5c 28 2e 2a 5c 5c 29 5c 5c 7c	re-search-forward.".:\\(.*\\)\\|
13c0	20 5c 5c 28 5b 5e 20 5d 2a 5c 5c 29 22 20 74 5d 20 38 20 28 23 24 20 2e 20 34 30 31 30 29 5d 29	.\\([^.]*\\)".t].8.(#$...4010)])
13e0	0a 23 40 31 32 30 20 52 65 74 75 72 6e 20 74 68 65 20 6e 69 63 6b 20 69 6e 20 61 20 67 69 76 65	.#@120.Return.the.nick.in.a.give
1400	6e 20 55 53 45 52 53 54 52 49 4e 47 2e 0a 0a 55 53 45 52 53 54 52 49 4e 47 20 69 73 20 61 20 74	n.USERSTRING...USERSTRING.is.a.t
1420	79 70 69 63 61 6c 20 6e 69 63 6b 21 75 73 65 72 40 68 6f 73 74 20 70 72 65 66 69 78 20 61 73 20	ypical.nick!user@host.prefix.as.
1440	75 73 65 64 20 62 79 20 49 52 43 2e 0a 0a 28 66 6e 20 55 53 45 52 53 54 52 49 4e 47 29 1f 0a 28	used.by.IRC...(fn.USERSTRING)..(
1460	64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 75 73 65 72 73 74 72 69 6e 67 2d 6e 69 63 6b 20 23 5b	defalias.'irc-userstring-nick.#[
1480	32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 33 5c 66 00 5c 33 30 32 5c 33 30 33 02	257."\300\301.\"\203\f.\302\303.
14a0	5c 22 5c 32 30 37 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5c 5c	\"\207\207".[string-match."\\`\\
14c0	28 5b 5e 21 5d 2b 5c 5c 29 21 5c 5c 28 5b 5e 40 5d 2b 5c 5c 29 40 5c 5c 28 2e 2a 5c 5c 29 5c 5c	([^!]+\\)!\\([^@]+\\)@\\(.*\\)\\
14e0	27 22 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 5d 20 34 20 28 23 24 20 2e 20 35 30 39 35 29	'".match-string.1].4.(#$...5095)
1500	5d 29 0a 23 40 31 32 30 20 52 65 74 75 72 6e 20 74 68 65 20 6e 69 63 6b 20 69 6e 20 61 20 67 69	]).#@120.Return.the.nick.in.a.gi
1520	76 65 6e 20 55 53 45 52 53 54 52 49 4e 47 2e 0a 0a 55 53 45 52 53 54 52 49 4e 47 20 69 73 20 61	ven.USERSTRING...USERSTRING.is.a
1540	20 74 79 70 69 63 61 6c 20 6e 69 63 6b 21 75 73 65 72 40 68 6f 73 74 20 70 72 65 66 69 78 20 61	.typical.nick!user@host.prefix.a
1560	73 20 75 73 65 64 20 62 79 20 49 52 43 2e 0a 0a 28 66 6e 20 55 53 45 52 53 54 52 49 4e 47 29 1f	s.used.by.IRC...(fn.USERSTRING).
1580	0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 75 73 65 72 73 74 72 69 6e 67 2d 75 73 65 72 68	.(defalias.'irc-userstring-userh
15a0	6f 73 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 35 0b 00 5c 33 30 32	ost.#[257."\300\301.\"\205..\302
15c0	5c 33 30 33 02 5c 22 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5c	\303.\"\207".[string-match."\\`\
15e0	5c 28 5b 5e 21 5d 2b 5c 5c 29 21 5c 5c 28 5b 5e 40 5d 2b 40 2e 2a 5c 5c 29 5c 5c 27 22 20 6d 61	\([^!]+\\)!\\([^@]+@.*\\)\\'".ma
1600	74 63 68 2d 73 74 72 69 6e 67 20 32 5d 20 34 20 28 23 24 20 2e 20 35 33 38 35 29 5d 29 0a 23 40	tch-string.2].4.(#$...5385)]).#@
1620	38 31 20 52 75 6e 20 74 68 65 20 65 76 65 6e 74 20 68 61 6e 64 6c 65 72 73 20 66 6f 72 20 45 56	81.Run.the.event.handlers.for.EV
1640	45 4e 54 20 69 6e 20 43 4f 4e 4e 20 77 69 74 68 20 41 52 47 53 2e 0a 0a 28 66 6e 20 43 4f 4e 4e	ENT.in.CONN.with.ARGS...(fn.CONN
1660	20 45 56 45 4e 54 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69	.EVENT.&rest.ARGS)..(defalias.'i
1680	72 63 2d 65 76 65 6e 74 2d 65 6d 69 74 20 23 5b 36 34 32 20 22 5c 33 30 30 03 5c 33 30 31 04 5c	rc-event-emit.#[642."\300.\301.\
16a0	33 30 32 5c 33 30 33 06 06 5c 33 30 34 23 24 5c 32 31 30 5c 33 30 35 03 5c 33 30 36 5c 22 5c 32	302\303..\304#$\210\305.\306\"\2
16c0	31 31 5c 32 30 35 2d 00 5c 33 30 37 5c 33 31 30 02 05 06 07 06 07 06 07 26 06 5c 32 31 30 5c 33	11\205-.\307\310........&.\210\3
16e0	30 37 5c 33 31 30 02 5c 33 31 31 06 07 06 07 06 07 26 06 5c 32 30 37 22 20 5b 69 72 63 2d 64 65	07\310.\311......&.\207".[irc-de
1700	62 75 67 2d 6f 75 74 20 22 45 3a 20 25 53 20 25 73 22 20 6d 61 70 63 6f 6e 63 61 74 20 23 5b 32	bug-out."E:.%S.%s".mapconcat.#[2
1720	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 74 20 22 25 53	57."\300\301.\"\207".[format."%S
1740	22 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 54 29 22 5d 20 22 20 22 20 69 72 63 2d 63 6f 6e	"].4."\n\n(fn.ELT)"].".".irc-con
1760	6e 65 63 74 69 6f 6e 2d 67 65 74 20 3a 68 61 6e 64 6c 65 72 2d 74 61 62 6c 65 20 61 70 70 6c 79	nection-get.:handler-table.apply
1780	20 69 72 63 2d 68 61 6e 64 6c 65 72 2d 72 75 6e 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 35	.irc-handler-run.nil].11.(#$...5
17a0	36 36 37 29 5d 29 0a 23 40 33 35 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 65 76 65 6e 74 20 68	667)]).#@35.Return.a.new.event.h
17c0	61 6e 64 6c 65 72 20 74 61 62 6c 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61	andler.table...(defalias.'irc-ha
17e0	6e 64 6c 65 72 2d 74 61 62 6c 65 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c	ndler-table.#[0."\300\301\302\"\
1800	32 30 37 22 20 5b 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 65 71 75 61	207".[make-hash-table.:test.equa
1820	6c 5d 20 33 20 28 23 24 20 2e 20 36 30 36 30 29 5d 29 0a 23 40 38 33 20 41 64 64 20 48 41 4e 44	l].3.(#$...6060)]).#@83.Add.HAND
1840	4c 45 52 20 66 6f 72 20 45 56 45 4e 54 20 74 6f 20 74 68 65 20 65 76 65 6e 74 20 68 61 6e 64 6c	LER.for.EVENT.to.the.event.handl
1860	65 72 20 74 61 62 6c 65 20 54 41 42 4c 45 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 20 45 56 45 4e 54	er.table.TABLE...(fn.TABLE.EVENT
1880	20 48 41 4e 44 4c 45 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65	.HANDLER)..(defalias.'irc-handle
18a0	72 2d 61 64 64 20 23 5b 37 37 31 20 22 5c 33 30 30 02 5c 33 30 31 5c 33 30 32 05 06 07 5c 22 04	r-add.#[771."\300.\301\302...\".
18c0	43 5c 22 05 23 5c 32 30 37 22 20 5b 70 75 74 68 61 73 68 20 61 70 70 65 6e 64 20 67 65 74 68 61	C\".#\207".[puthash.append.getha
18e0	73 68 5d 20 39 20 28 23 24 20 2e 20 36 32 30 30 29 5d 29 0a 23 40 38 36 20 52 65 6d 6f 76 65 20	sh].9.(#$...6200)]).#@86.Remove.
1900	48 41 4e 44 4c 45 52 20 66 6f 72 20 45 56 45 4e 54 20 74 6f 20 74 68 65 20 65 76 65 6e 74 20 68	HANDLER.for.EVENT.to.the.event.h
1920	61 6e 64 6c 65 72 20 74 61 62 6c 65 20 54 41 42 4c 45 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 20 45	andler.table.TABLE...(fn.TABLE.E
1940	56 45 4e 54 20 48 41 4e 44 4c 45 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61	VENT.HANDLER)..(defalias.'irc-ha
1960	6e 64 6c 65 72 2d 72 65 6d 6f 76 65 20 23 5b 37 37 31 20 22 5c 33 30 30 02 5c 33 30 31 03 5c 33	ndler-remove.#[771."\300.\301.\3
1980	30 32 06 06 06 08 5c 22 5c 22 05 23 5c 32 30 37 22 20 5b 70 75 74 68 61 73 68 20 64 65 6c 65 74	02....\"\".#\207".[puthash.delet
19a0	65 20 67 65 74 68 61 73 68 5d 20 31 30 20 28 23 24 20 2e 20 36 33 39 33 29 5d 29 0a 23 40 38 39	e.gethash].10.(#$...6393)]).#@89
19c0	20 52 75 6e 20 74 68 65 20 68 61 6e 64 6c 65 72 73 20 66 6f 72 20 45 56 45 4e 54 20 69 6e 20 54	.Run.the.handlers.for.EVENT.in.T
19e0	41 42 4c 45 2c 20 70 61 73 73 69 6e 67 20 41 52 47 53 20 74 6f 20 65 61 63 68 2e 0a 0a 28 66 6e	ABLE,.passing.ARGS.to.each...(fn
1a00	20 54 41 42 4c 45 20 45 56 45 4e 54 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c	.TABLE.EVENT.&rest.ARGS)..(defal
1a20	69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 72 2d 72 75 6e 20 23 5b 36 34 32 20 22 5c 33 30 31	ias.'irc-handler-run.#[642."\301
1a40	02 04 5c 22 5c 32 31 31 5c 32 30 35 35 00 5c 32 31 31 40 08 5c 32 30 33 16 00 5c 33 30 32 01 04	..\"\211\2055.\211@.\203..\302..
1a60	5c 22 5c 32 31 30 5c 32 30 32 2e 00 5c 33 30 33 31 5c 22 00 5c 33 30 32 01 04 5c 22 30 5c 32 30	\"\210\202..\3031\".\302..\"0\20
1a80	32 2d 00 5c 33 30 34 5c 33 30 35 06 06 04 04 06 08 25 5c 32 36 32 01 5c 32 31 30 01 41 5c 32 36	2-.\304\305......%\262.\210.A\26
1aa0	36 5c 32 30 32 5c 32 30 32 04 00 5c 32 30 37 22 20 5b 64 65 62 75 67 2d 6f 6e 2d 65 72 72 6f 72	6\202\202..\207".[debug-on-error
1ac0	20 67 65 74 68 61 73 68 20 61 70 70 6c 79 20 28 65 72 72 6f 72 29 20 6d 65 73 73 61 67 65 20 22	.gethash.apply.(error).message."
1ae0	45 72 72 6f 72 20 72 75 6e 6e 69 6e 67 20 65 76 65 6e 74 20 25 53 20 68 61 6e 64 6c 65 72 20 25	Error.running.event.%S.handler.%
1b00	53 3a 20 25 53 20 28 61 72 67 73 20 77 65 72 65 20 25 53 29 22 5d 20 31 32 20 28 23 24 20 2e 20	S:.%S.(args.were.%S)"].12.(#$...
1b20	36 35 39 33 29 5d 29 0a 23 40 38 33 37 20 53 65 6e 64 20 61 20 6c 69 6e 65 20 4c 49 4e 45 20 74	6593)]).#@837.Send.a.line.LINE.t
1b40	6f 20 74 68 65 20 49 52 43 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 43 4f 4e 4e 2e 0a 0a 4c 49 4e 45	o.the.IRC.connection.CONN...LINE
1b60	20 73 68 6f 75 6c 64 20 6e 6f 74 20 69 6e 63 6c 75 64 65 20 74 68 65 20 74 72 61 69 6c 69 6e 67	.should.not.include.the.trailing
1b80	20 6e 65 77 6c 69 6e 65 2e 0a 0a 46 4c 4f 4f 44 2d 48 41 4e 44 4c 49 4e 47 20 64 65 66 69 6e 65	.newline...FLOOD-HANDLING.define
1ba0	73 20 68 6f 77 20 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 20 73 69 74 75 61 74 69 6f 6e 20 77 68	s.how.to.handle.the.situation.wh
1bc0	65 6e 20 77 65 20 61 72 65 0a 73 65 6e 64 69 6e 67 20 74 6f 6f 20 20 6d 75 63 68 20 64 61 74 61	en.we.are.sending.too..much.data
1be0	2e 20 49 74 20 63 61 6e 20 68 61 76 65 20 74 68 72 65 65 20 76 61 6c 75 65 73 3a 0a 0a 6e 69 6c	..It.can.have.three.values:..nil
1c00	20 2d 2d 20 41 64 64 20 74 68 65 20 6d 65 73 73 61 67 65 20 74 6f 20 61 20 71 75 65 75 65 20 61	.--.Add.the.message.to.a.queue.a
1c20	6e 64 20 73 65 6e 64 20 69 74 20 6c 61 74 65 72 0a 3a 6e 6f 77 61 69 74 20 2d 2d 20 53 65 6e 64	nd.send.it.later.:nowait.--.Send
1c40	20 74 68 65 20 6d 65 73 73 61 67 65 20 69 6d 6d 65 64 69 61 74 65 6c 79 2c 20 63 69 72 63 75 6d	.the.message.immediately,.circum
1c60	76 65 6e 74 69 6e 67 20 66 6c 6f 6f 64 20 70 72 6f 74 65 63 74 69 6f 6e 0a 3a 64 72 6f 70 20 2d	venting.flood.protection.:drop.-
1c80	2d 20 53 65 6e 64 20 74 68 65 20 6d 65 73 73 61 67 65 20 6f 6e 6c 79 20 69 66 20 77 65 20 61 72	-.Send.the.message.only.if.we.ar
1ca0	65 20 6e 6f 74 20 66 6c 6f 6f 64 69 6e 67 2c 20 61 6e 64 20 64 72 6f 70 20 69 74 20 69 66 0a 20	e.not.flooding,.and.drop.it.if..
1cc0	20 20 77 65 20 68 61 76 65 20 71 75 65 75 65 64 20 75 70 20 6d 65 73 73 61 67 65 73 2e 0a 0a 54	..we.have.queued.up.messages...T
1ce0	68 65 20 66 6c 6f 6f 64 20 70 72 6f 74 65 63 74 69 6f 6e 20 61 6c 67 6f 72 69 74 68 6d 20 77 6f	he.flood.protection.algorithm.wo
1d00	72 6b 73 20 6c 69 6b 65 20 74 68 65 20 6f 6e 65 20 64 65 74 61 69 6c 65 64 20 69 6e 20 52 46 43	rks.like.the.one.detailed.in.RFC
1d20	0a 32 38 31 33 2c 20 73 65 63 74 69 6f 6e 20 35 2e 38 20 22 46 6c 6f 6f 64 20 63 6f 6e 74 72 6f	.2813,.section.5.8."Flood.contro
1d40	6c 20 6f 66 20 63 6c 69 65 6e 74 73 22 2e 0a 0a 20 20 2a 20 49 66 20 60 66 6c 6f 6f 64 2d 6c 61	l.of.clients".....*.If.`flood-la
1d60	73 74 2d 6d 65 73 73 61 67 65 27 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 74 68 65 20 63 75 72	st-message'.is.less.than.the.cur
1d80	72 65 6e 74 0a 20 20 20 20 74 69 6d 65 2c 20 73 65 74 20 69 74 20 65 71 75 61 6c 2e 0a 20 20 2a	rent.....time,.set.it.equal....*
1da0	20 57 68 69 6c 65 20 60 66 6c 6f 6f 64 2d 6c 61 73 74 2d 6d 65 73 73 61 67 65 27 20 69 73 20 6c	.While.`flood-last-message'.is.l
1dc0	65 73 73 20 74 68 61 6e 20 60 66 6c 6f 6f 64 2d 6d 61 72 67 69 6e 27 0a 20 20 20 20 73 65 63 6f	ess.than.`flood-margin'.....seco
1de0	6e 64 73 20 61 68 65 61 64 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 69 6d 65 2c 20 73	nds.ahead.of.the.current.time,.s
1e00	65 6e 64 20 61 20 6d 65 73 73 61 67 65 2c 20 61 6e 64 0a 20 20 20 20 69 6e 63 72 65 61 73 65 20	end.a.message,.and.....increase.
1e20	60 66 6c 6f 6f 64 2d 6c 61 73 74 2d 6d 65 73 73 61 67 65 27 20 62 79 20 60 66 6c 6f 6f 64 2d 70	`flood-last-message'.by.`flood-p
1e40	65 6e 61 6c 74 79 27 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 4c 49 4e 45 20 26 6f 70 74 69 6f 6e 61	enalty'...(fn.CONN.LINE.&optiona
1e60	6c 20 46 4c 4f 4f 44 2d 48 41 4e 44 4c 49 4e 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72	l.FLOOD-HANDLING)..(defalias.'ir
1e80	63 2d 73 65 6e 64 2d 72 61 77 20 23 5b 37 37 30 20 22 5c 32 31 31 5c 32 30 34 17 00 5c 33 30 30	c-send-raw.#[770."\211\204..\300
1ea0	03 5c 33 30 31 5c 33 30 32 5c 33 30 33 06 07 5c 33 30 31 5c 22 06 06 43 5c 22 23 5c 32 31 30 5c	.\301\302\303..\301\"..C\"#\210\
1ec0	33 30 34 03 21 5c 32 30 37 5c 32 31 31 5c 33 30 35 3d 5c 32 30 33 5c 22 00 5c 33 30 36 03 03 5c	304.!\207\211\305=\203\".\306..\
1ee0	22 5c 32 30 37 5c 32 31 31 5c 33 30 37 3d 5c 32 30 35 3d 00 5c 33 30 33 03 5c 33 30 31 5c 22 5c	"\207\211\307=\205=.\303.\301\"\
1f00	32 31 31 3f 5c 32 30 35 3b 00 5c 33 30 30 04 5c 33 30 31 05 43 23 5c 32 31 30 5c 33 30 34 04 21	211?\205;.\300.\301.C#\210\304.!
1f20	5c 32 36 32 01 5c 32 30 37 22 20 5b 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 70 75 74 20 3a	\262.\207".[irc-connection-put.:
1f40	66 6c 6f 6f 64 2d 71 75 65 75 65 20 61 70 70 65 6e 64 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f	flood-queue.append.irc-connectio
1f60	6e 2d 67 65 74 20 69 72 63 2d 73 65 6e 64 2d 2d 71 75 65 75 65 20 3a 6e 6f 77 61 69 74 20 69 72	n-get.irc-send--queue.:nowait.ir
1f80	63 2d 73 65 6e 64 2d 2d 69 6e 74 65 72 6e 61 6c 20 3a 64 72 6f 70 5d 20 31 30 20 28 23 24 20 2e	c-send--internal.:drop].10.(#$..
1fa0	20 36 39 35 38 29 5d 29 0a 23 40 39 35 20 53 65 6e 64 20 6d 65 73 73 61 67 65 73 20 66 72 6f 6d	.6958)]).#@95.Send.messages.from
1fc0	20 74 68 65 20 66 6c 6f 6f 64 20 71 75 65 75 65 20 69 6e 20 43 4f 4e 4e 2e 0a 0a 53 65 65 20 60	.the.flood.queue.in.CONN...See.`
1fe0	69 72 63 2d 73 65 6e 64 2d 72 61 77 27 20 66 6f 72 20 74 68 65 20 61 6c 67 6f 72 69 74 68 6d 2e	irc-send-raw'.for.the.algorithm.
2000	0a 0a 28 66 6e 20 43 4f 4e 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64	..(fn.CONN)..(defalias.'irc-send
2020	2d 2d 71 75 65 75 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 33 30 30 02 5c	--queue.#[257."\300.\301\"\300.\
2040	33 30 32 5c 22 5c 32 30 36 5c 66 00 5c 33 30 33 5c 33 30 30 03 5c 33 30 34 5c 22 5c 32 30 36 14	302\"\206\f.\303\300.\304\"\206.
2060	00 5c 33 30 35 5c 33 30 30 04 5c 33 30 36 5c 22 5c 32 30 36 1c 00 5c 33 30 37 5c 33 31 30 20 03	.\305\300.\306\"\206..\307\310..
2080	01 57 5c 32 30 33 27 00 5c 32 31 31 5c 32 36 32 04 04 5c 32 30 33 47 00 03 01 04 5c 5c 57 5c 32	.W\203'.\211\262..\203G....\\W\2
20a0	30 33 47 00 5c 33 31 31 06 06 06 06 40 5c 22 5c 32 31 30 04 41 5c 32 36 32 05 03 02 5c 5c 5c 32	03G.\311....@\"\210.A\262...\\\2
20c0	36 32 04 5c 32 30 32 27 00 5c 33 31 32 06 06 5c 33 30 31 06 07 23 5c 32 31 30 5c 33 31 32 06 06	62.\202'.\312..\301..#\210\312..
20e0	5c 33 30 32 06 06 23 5c 32 31 30 5c 33 30 30 06 06 5c 33 31 33 5c 22 5c 32 31 31 5c 32 30 33 6b	\302..#\210\300..\313\"\211\203k
2100	00 5c 33 31 34 01 21 5c 32 31 30 5c 33 31 32 06 07 5c 33 31 33 5c 33 31 35 23 5c 32 31 30 05 5c	.\314.!\210\312..\313\315#\210.\
2120	32 30 35 7b 00 5c 33 31 32 06 07 5c 33 31 33 5c 33 31 36 5c 33 31 37 5c 33 31 35 5c 33 32 30 06	205{.\312..\313\316\317\315\320.
2140	0d 24 23 5c 32 36 32 01 5c 32 30 37 22 20 5b 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 67 65	.$#\262.\207".[irc-connection-ge
2160	74 20 3a 66 6c 6f 6f 64 2d 71 75 65 75 65 20 3a 66 6c 6f 6f 64 2d 6c 61 73 74 2d 6d 65 73 73 61	t.:flood-queue.:flood-last-messa
2180	67 65 20 30 20 3a 66 6c 6f 6f 64 2d 6d 61 72 67 69 6e 20 31 30 20 3a 66 6c 6f 6f 64 2d 70 65 6e	ge.0.:flood-margin.10.:flood-pen
21a0	61 6c 74 79 20 33 20 66 6c 6f 61 74 2d 74 69 6d 65 20 69 72 63 2d 73 65 6e 64 2d 2d 69 6e 74 65	alty.3.float-time.irc-send--inte
21c0	72 6e 61 6c 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 70 75 74 20 3a 66 6c 6f 6f 64 2d 74	rnal.irc-connection-put.:flood-t
21e0	69 6d 65 72 20 63 61 6e 63 65 6c 2d 74 69 6d 65 72 20 6e 69 6c 20 72 75 6e 2d 61 74 2d 74 69 6d	imer.cancel-timer.nil.run-at-tim
2200	65 20 31 20 69 72 63 2d 73 65 6e 64 2d 2d 71 75 65 75 65 5d 20 31 35 20 28 23 24 20 2e 20 38 31	e.1.irc-send--queue].15.(#$...81
2220	31 30 29 5d 29 0a 23 40 33 36 20 53 65 6e 64 20 4c 49 4e 45 20 74 6f 20 43 4f 4e 4e 2e 0a 0a 28	10)]).#@36.Send.LINE.to.CONN...(
2240	66 6e 20 43 4f 4e 4e 20 4c 49 4e 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65	fn.CONN.LINE)..(defalias.'irc-se
2260	6e 64 2d 2d 69 6e 74 65 72 6e 61 6c 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 23 5c	nd--internal.#[514."\300.\301.#\
2280	32 31 30 5c 33 30 32 02 5c 33 30 33 03 5c 33 30 34 5c 22 5c 33 30 35 50 5c 22 5c 32 30 37 22 20	210\302.\303.\304\"\305P\"\207".
22a0	5b 69 72 63 2d 64 65 62 75 67 2d 6f 75 74 20 22 43 3a 20 25 73 22 20 70 72 6f 63 65 73 73 2d 73	[irc-debug-out."C:.%s".process-s
22c0	65 6e 64 2d 73 74 72 69 6e 67 20 65 6e 63 6f 64 65 2d 63 6f 64 69 6e 67 2d 73 74 72 69 6e 67 20	end-string.encode-coding-string.
22e0	75 74 66 2d 38 20 22 0d 5c 6e 22 5d 20 37 20 28 23 24 20 2e 20 38 37 34 37 29 5d 29 0a 23 40 37	utf-8.".\n"].7.(#$...8747)]).#@7
2300	38 20 53 65 6e 64 20 43 4f 4d 4d 41 4e 44 20 77 69 74 68 20 41 52 47 53 20 74 6f 20 49 52 43 20	8.Send.COMMAND.with.ARGS.to.IRC.
2320	63 6f 6e 6e 65 63 74 69 6f 6e 20 43 4f 4e 4e 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 43 4f 4d 4d 41	connection.CONN...(fn.CONN.COMMA
2340	4e 44 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73	ND.&rest.ARGS)..(defalias.'irc-s
2360	65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 23 5b 36 34 32 20 22 5c 33 30 30 03 5c 33 30 31 5c 33 30 32	end-command.#[642."\300.\301\302
2380	05 05 23 5c 22 5c 32 30 37 22 20 5b 69 72 63 2d 73 65 6e 64 2d 72 61 77 20 61 70 70 6c 79 20 69	..#\"\207".[irc-send-raw.apply.i
23a0	72 63 2d 2d 66 6f 72 6d 61 74 2d 63 6f 6d 6d 61 6e 64 5d 20 39 20 28 23 24 20 2e 20 38 39 36 32	rc--format-command].9.(#$...8962
23c0	29 5d 29 0a 23 40 32 31 38 20 46 6f 72 6d 61 74 20 43 4f 4d 4d 41 4e 44 20 61 6e 64 20 41 52 47	)]).#@218.Format.COMMAND.and.ARG
23e0	53 20 66 6f 72 20 49 52 43 2e 0a 0a 54 68 65 20 6c 61 73 74 20 76 61 6c 75 65 20 69 6e 20 41 52	S.for.IRC...The.last.value.in.AR
2400	47 53 20 77 69 6c 6c 20 62 65 20 65 73 63 61 70 65 64 20 77 69 74 68 20 61 20 6c 65 61 64 69 6e	GS.will.be.escaped.with.a.leadin
2420	67 20 63 6f 6c 6f 6e 20 69 66 20 69 74 0a 63 6f 6e 74 61 69 6e 73 20 61 20 73 70 61 63 65 2e 20	g.colon.if.it.contains.a.space..
2440	41 6c 6c 20 6f 74 68 65 72 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 63 68 65 63 6b 65 64 20	All.other.arguments.are.checked.
2460	74 6f 20 6d 61 6b 65 20 73 75 72 65 0a 74 68 65 79 20 64 6f 20 6e 6f 74 20 63 6f 6e 74 61 69 6e	to.make.sure.they.do.not.contain
2480	20 61 20 73 70 61 63 65 2e 0a 0a 28 66 6e 20 43 4f 4d 4d 41 4e 44 20 26 72 65 73 74 20 41 52 47	.a.space...(fn.COMMAND.&rest.ARG
24a0	53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 2d 66 6f 72 6d 61 74 2d 63 6f 6d 6d 61	S)..(defalias.'irc--format-comma
24c0	6e 64 20 23 5b 33 38 35 20 22 01 01 42 5c 32 31 31 5c 32 30 33 19 00 5c 32 31 31 40 5c 32 31 31	nd.#[385."..B\211\203..\211@\211
24e0	3b 5c 32 30 34 12 00 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 01 41 5c 32 36 36 5c 32 30 32 5c 32	;\204..\300\301!\210.A\266\202\2
2500	30 32 03 00 5c 32 31 30 01 5c 33 30 32 02 21 42 5c 33 30 33 02 21 01 5c 32 31 31 5c 32 30 33 3c	02..\210.\302.!B\303.!.\211\203<
2520	00 5c 32 31 31 40 5c 33 30 34 5c 33 30 35 02 5c 22 5c 32 30 33 35 00 5c 33 30 30 5c 33 30 36 02	.\211@\304\305.\"\2035.\300\306.
2540	5c 22 5c 32 31 30 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 23 00 5c 32 31 30 5c 32 31 31 5c 32	\"\210.A\266\202\202#.\210\211\2
2560	30 33 5f 00 5c 33 30 34 5c 33 30 35 02 40 5c 22 5c 32 30 34 58 00 5c 33 30 34 5c 33 30 37 02 40	03_.\304\305.@\"\204X.\304\307.@
2580	5c 22 5c 32 30 34 58 00 5c 32 31 31 40 5c 33 31 30 5c 32 33 32 5c 32 30 33 5f 00 5c 32 31 31 5c	\"\204X.\211@\310\232\203_.\211\
25a0	33 31 31 02 40 50 5c 32 34 30 5c 32 31 30 5c 33 31 32 5c 33 31 33 5c 33 31 34 04 04 5c 22 5c 33	311.@P\240\210\312\313\314..\"\3
25c0	30 35 23 5c 32 30 37 22 20 5b 65 72 72 6f 72 20 22 41 72 67 75 6d 65 6e 74 20 6d 75 73 74 20 62	05#\207".[error."Argument.must.b
25e0	65 20 61 20 73 74 72 69 6e 67 22 20 62 75 74 6c 61 73 74 20 6c 61 73 74 20 73 74 72 69 6e 67 2d	e.a.string".butlast.last.string-
2600	6d 61 74 63 68 20 22 20 22 20 22 49 52 43 20 70 72 6f 74 6f 63 6f 6c 20 65 72 72 6f 72 3a 20 41	match."."."IRC.protocol.error:.A
2620	72 67 75 6d 65 6e 74 20 25 53 20 6d 75 73 74 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 73 70 61 63	rgument.%S.must.not.contain.spac
2640	65 22 20 22 5e 3a 22 20 22 22 20 22 3a 22 20 6d 61 70 63 6f 6e 63 61 74 20 69 64 65 6e 74 69 74	e"."^:"."".":".mapconcat.identit
2660	79 20 61 70 70 65 6e 64 5d 20 39 20 28 23 24 20 2e 20 39 31 36 32 29 5d 29 0a 23 40 31 33 34 20	y.append].9.(#$...9162)]).#@134.
2680	53 65 6e 64 20 61 6e 20 41 55 54 48 45 4e 54 49 43 41 54 45 20 6d 65 73 73 61 67 65 20 77 69 74	Send.an.AUTHENTICATE.message.wit
26a0	68 20 41 52 47 2e 0a 0a 53 65 65 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61	h.ARG...See.https://github.com/a
26c0	74 68 65 6d 65 2f 63 68 61 72 79 62 64 69 73 2f 62 6c 6f 62 2f 6d 61 73 74 65 72 2f 64 6f 63 2f	theme/charybdis/blob/master/doc/
26e0	73 61 73 6c 2e 74 78 74 0a 66 6f 72 20 64 65 74 61 69 6c 73 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20	sasl.txt.for.details...(fn.CONN.
2700	41 52 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 41 55 54 48 45 4e	ARG)..(defalias.'irc-send-AUTHEN
2720	54 49 43 41 54 45 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 23 5c 32 30 37 22 20 5b	TICATE.#[514."\300.\301.#\207".[
2740	69 72 63 2d 73 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 22 41 55 54 48 45 4e 54 49 43 41 54 45 22 5d	irc-send-command."AUTHENTICATE"]
2760	20 36 20 28 23 24 20 2e 20 39 38 35 36 29 5d 29 0a 23 40 39 37 20 4d 61 72 6b 20 79 6f 75 72 73	.6.(#$...9856)]).#@97.Mark.yours
2780	65 6c 66 20 61 73 20 41 57 41 59 20 77 69 74 68 20 72 65 61 73 6f 6e 20 52 45 41 53 4f 4e 2c 20	elf.as.AWAY.with.reason.REASON,.
27a0	6f 72 20 62 61 63 6b 20 69 66 20 72 65 61 73 6f 6e 20 69 73 20 6e 69 6c 2e 0a 0a 28 66 6e 20 43	or.back.if.reason.is.nil...(fn.C
27c0	4f 4e 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 52 45 41 53 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73	ONN.&optional.REASON)..(defalias
27e0	20 27 69 72 63 2d 73 65 6e 64 2d 41 57 41 59 20 23 5b 35 31 33 20 22 5c 32 31 31 5c 32 30 33 5c	.'irc-send-AWAY.#[513."\211\203\
2800	6e 00 5c 33 30 30 02 5c 33 30 31 03 23 5c 32 30 37 5c 33 30 30 02 5c 33 30 31 5c 22 5c 32 30 37	n.\300.\301.#\207\300.\301\"\207
2820	22 20 5b 69 72 63 2d 73 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 22 41 57 41 59 22 5d 20 36 20 28 23	".[irc-send-command."AWAY"].6.(#
2840	24 20 2e 20 31 30 31 30 32 29 5d 29 0a 23 40 31 32 34 20 53 65 6e 64 20 61 20 43 41 50 20 6d 65	$...10102)]).#@124.Send.a.CAP.me
2860	73 73 61 67 65 2e 0a 0a 53 65 65 20 68 74 74 70 73 3a 2f 2f 74 6f 6f 6c 73 2e 69 65 74 66 2e 6f	ssage...See.https://tools.ietf.o
2880	72 67 2f 68 74 6d 6c 2f 64 72 61 66 74 2d 6d 69 74 63 68 65 6c 6c 2d 69 72 63 2d 63 61 70 61 62	rg/html/draft-mitchell-irc-capab
28a0	69 6c 69 74 69 65 73 2d 30 31 0a 66 6f 72 20 64 65 74 61 69 6c 73 2e 0a 0a 28 66 6e 20 43 4f 4e	ilities-01.for.details...(fn.CON
28c0	4e 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65	N.&rest.ARGS)..(defalias.'irc-se
28e0	6e 64 2d 43 41 50 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 03 5c 33 30 32 04 24 5c 32 30	nd-CAP.#[385."\300\301.\302.$\20
2900	37 22 20 5b 61 70 70 6c 79 20 69 72 63 2d 73 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 22 43 41 50 22	7".[apply.irc-send-command."CAP"
2920	5d 20 37 20 28 23 24 20 2e 20 31 30 33 32 33 29 5d 29 0a 23 40 34 39 20 49 6e 76 69 74 65 20 4e	].7.(#$...10323)]).#@49.Invite.N
2940	49 43 4b 20 74 6f 20 43 48 41 4e 4e 45 4c 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 4e 49 43 4b 20 43	ICK.to.CHANNEL...(fn.CONN.NICK.C
2960	48 41 4e 4e 45 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 49 4e 56	HANNEL)..(defalias.'irc-send-INV
2980	49 54 45 20 23 5b 37 37 31 20 22 5c 33 30 30 03 5c 33 30 31 04 04 24 5c 32 30 37 22 20 5b 69 72	ITE.#[771."\300.\301..$\207".[ir
29a0	63 2d 73 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 22 49 4e 56 49 54 45 22 5d 20 38 20 28 23 24 20 2e	c-send-command."INVITE"].8.(#$..
29c0	20 31 30 35 35 32 29 5d 29 0a 23 40 31 31 33 20 4a 6f 69 6e 20 43 48 41 4e 4e 45 4c 2e 0a 0a 49	.10552)]).#@113.Join.CHANNEL...I
29e0	66 20 4b 45 59 20 69 73 20 67 69 76 65 6e 2c 20 75 73 65 20 69 74 20 74 6f 20 6a 6f 69 6e 20 74	f.KEY.is.given,.use.it.to.join.t
2a00	68 65 20 70 61 73 73 77 6f 72 64 2d 70 72 6f 74 65 63 74 65 64 20 63 68 61 6e 6e 65 6c 2e 0a 0a	he.password-protected.channel...
2a20	28 66 6e 20 43 4f 4e 4e 20 43 48 41 4e 4e 45 4c 20 26 6f 70 74 69 6f 6e 61 6c 20 4b 45 59 29 1f	(fn.CONN.CHANNEL.&optional.KEY).
2a40	0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 4a 4f 49 4e 20 23 5b 37 37 30 20	.(defalias.'irc-send-JOIN.#[770.
2a60	22 5c 32 31 31 5c 32 30 33 0b 00 5c 33 30 30 03 5c 33 30 31 04 04 24 5c 32 30 37 5c 33 30 30 03	"\211\203..\300.\301..$\207\300.
2a80	5c 33 30 31 04 23 5c 32 30 37 22 20 5b 69 72 63 2d 73 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 22 4a	\301.#\207".[irc-send-command."J
2aa0	4f 49 4e 22 5d 20 38 20 28 23 24 20 2e 20 31 30 37 30 34 29 5d 29 0a 23 40 39 38 20 52 65 74 72	OIN"].8.(#$...10704)]).#@98.Retr
2ac0	69 65 76 65 20 75 73 65 72 20 6e 61 6d 65 73 20 66 72 6f 6d 20 74 68 65 20 73 65 72 76 65 72 2c	ieve.user.names.from.the.server,
2ae0	20 6f 70 74 69 6f 6e 61 6c 6c 79 20 6c 69 6d 69 74 65 64 20 74 6f 20 43 48 41 4e 4e 45 4c 2e 0a	.optionally.limited.to.CHANNEL..
2b00	0a 28 66 6e 20 43 4f 4e 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 43 48 41 4e 4e 45 4c 29 1f 0a 28 64	.(fn.CONN.&optional.CHANNEL)..(d
2b20	65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 4e 41 4d 45 53 20 23 5b 35 31 33 20 22 5c	efalias.'irc-send-NAMES.#[513."\
2b40	32 31 31 5c 32 30 33 5c 6e 00 5c 33 30 30 02 5c 33 30 31 03 23 5c 32 30 37 5c 33 30 30 02 5c 33	211\203\n.\300.\301.#\207\300.\3
2b60	30 31 5c 22 5c 32 30 37 22 20 5b 69 72 63 2d 73 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 22 4e 41 4d	01\"\207".[irc-send-command."NAM
2b80	45 53 22 5d 20 36 20 28 23 24 20 2e 20 31 30 39 34 30 29 5d 29 0a 23 40 34 37 20 43 68 61 6e 67	ES"].6.(#$...10940)]).#@47.Chang
2ba0	65 20 79 6f 75 72 20 6f 77 6e 20 6e 69 63 6b 20 74 6f 20 4e 49 43 4b 2e 0a 0a 28 66 6e 20 43 4f	e.your.own.nick.to.NICK...(fn.CO
2bc0	4e 4e 20 4e 49 43 4b 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 4e 49	NN.NICK)..(defalias.'irc-send-NI
2be0	43 4b 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 23 5c 32 30 37 22 20 5b 69 72 63 2d	CK.#[514."\300.\301.#\207".[irc-
2c00	73 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 22 4e 49 43 4b 22 5d 20 36 20 28 23 24 20 2e 20 31 31 31	send-command."NICK"].6.(#$...111
2c20	36 33 29 5d 29 0a 23 40 31 34 37 20 53 65 6e 64 20 61 20 70 72 69 76 61 74 65 20 6e 6f 74 69 63	63)]).#@147.Send.a.private.notic
2c40	65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 54 45 58 54 2d 54 4f 2d 42 45 2d 53 45 4e 54 20 74 6f 20	e.containing.TEXT-TO-BE-SENT.to.
2c60	4d 53 47 54 41 52 47 45 54 2e 0a 0a 4d 53 47 54 41 52 47 45 54 20 63 61 6e 20 62 65 20 65 69 74	MSGTARGET...MSGTARGET.can.be.eit
2c80	68 65 72 20 61 20 6e 69 63 6b 20 6f 72 20 61 20 63 68 61 6e 6e 65 6c 2e 0a 0a 28 66 6e 20 43 4f	her.a.nick.or.a.channel...(fn.CO
2ca0	4e 4e 20 4d 53 47 54 41 52 47 45 54 20 54 45 58 54 2d 54 4f 2d 42 45 2d 53 45 4e 54 29 1f 0a 28	NN.MSGTARGET.TEXT-TO-BE-SENT)..(
2cc0	64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 4e 4f 54 49 43 45 20 23 5b 37 37 31 20	defalias.'irc-send-NOTICE.#[771.
2ce0	22 5c 33 30 30 03 5c 33 30 31 04 04 24 5c 32 30 37 22 20 5b 69 72 63 2d 73 65 6e 64 2d 63 6f 6d	"\300.\301..$\207".[irc-send-com
2d00	6d 61 6e 64 20 22 4e 4f 54 49 43 45 22 5d 20 38 20 28 23 24 20 2e 20 31 31 33 30 38 29 5d 29 0a	mand."NOTICE"].8.(#$...11308)]).
2d20	23 40 36 31 20 4c 65 61 76 65 20 43 48 41 4e 4e 45 4c 20 77 69 74 68 20 72 65 61 73 6f 6e 20 52	#@61.Leave.CHANNEL.with.reason.R
2d40	45 41 53 4f 4e 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 43 48 41 4e 4e 45 4c 20 52 45 41 53 4f 4e 29	EASON...(fn.CONN.CHANNEL.REASON)
2d60	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 50 41 52 54 20 23 5b 37 37 31	..(defalias.'irc-send-PART.#[771
2d80	20 22 5c 33 30 30 03 5c 33 30 31 04 04 24 5c 32 30 37 22 20 5b 69 72 63 2d 73 65 6e 64 2d 63 6f	."\300.\301..$\207".[irc-send-co
2da0	6d 6d 61 6e 64 20 22 50 41 52 54 22 5d 20 38 20 28 23 24 20 2e 20 31 31 35 35 37 29 5d 29 0a 23	mmand."PART"].8.(#$...11557)]).#
2dc0	40 36 34 20 41 75 74 68 65 6e 74 69 63 61 74 65 20 74 6f 20 74 68 65 20 73 65 72 76 65 72 20 75	@64.Authenticate.to.the.server.u
2de0	73 69 6e 67 20 50 41 53 53 57 4f 52 44 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 50 41 53 53 57 4f 52	sing.PASSWORD...(fn.CONN.PASSWOR
2e00	44 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 50 41 53 53 20 23 5b 35	D)..(defalias.'irc-send-PASS.#[5
2e20	31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 23 5c 32 30 37 22 20 5b 69 72 63 2d 73 65 6e 64 2d 63	14."\300.\301.#\207".[irc-send-c
2e40	6f 6d 6d 61 6e 64 20 22 50 41 53 53 22 5d 20 36 20 28 23 24 20 2e 20 31 31 37 31 36 29 5d 29 0a	ommand."PASS"].6.(#$...11716)]).
2e60	23 40 34 36 20 52 65 73 70 6f 6e 64 20 74 6f 20 61 20 50 49 4e 47 20 6d 65 73 73 61 67 65 2e 0a	#@46.Respond.to.a.PING.message..
2e80	0a 28 66 6e 20 43 4f 4e 4e 20 53 45 52 56 45 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72	.(fn.CONN.SERVER)..(defalias.'ir
2ea0	63 2d 73 65 6e 64 2d 50 4f 4e 47 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 33 30 32	c-send-PONG.#[514."\300.\301\302
2ec0	04 5c 22 5c 33 30 33 23 5c 32 30 37 22 20 5b 69 72 63 2d 73 65 6e 64 2d 72 61 77 20 69 72 63 2d	.\"\303#\207".[irc-send-raw.irc-
2ee0	2d 66 6f 72 6d 61 74 2d 63 6f 6d 6d 61 6e 64 20 22 50 4f 4e 47 22 20 3a 6e 6f 77 61 69 74 5d 20	-format-command."PONG".:nowait].
2f00	37 20 28 23 24 20 2e 20 31 31 38 37 37 29 5d 29 0a 23 40 31 34 38 20 53 65 6e 64 20 61 20 70 72	7.(#$...11877)]).#@148.Send.a.pr
2f20	69 76 61 74 65 20 6d 65 73 73 61 67 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 54 45 58 54 2d 54 4f	ivate.message.containing.TEXT-TO
2f40	2d 42 45 2d 53 45 4e 54 20 74 6f 20 4d 53 47 54 41 52 47 45 54 2e 0a 0a 4d 53 47 54 41 52 47 45	-BE-SENT.to.MSGTARGET...MSGTARGE
2f60	54 20 63 61 6e 20 62 65 20 65 69 74 68 65 72 20 61 20 6e 69 63 6b 20 6f 72 20 61 20 63 68 61 6e	T.can.be.either.a.nick.or.a.chan
2f80	6e 65 6c 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 4d 53 47 54 41 52 47 45 54 20 54 45 58 54 2d 54 4f	nel...(fn.CONN.MSGTARGET.TEXT-TO
2fa0	2d 42 45 2d 53 45 4e 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 50	-BE-SENT)..(defalias.'irc-send-P
2fc0	52 49 56 4d 53 47 20 23 5b 37 37 31 20 22 5c 33 30 30 03 5c 33 30 31 04 04 24 5c 32 30 37 22 20	RIVMSG.#[771."\300.\301..$\207".
2fe0	5b 69 72 63 2d 73 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 22 50 52 49 56 4d 53 47 22 5d 20 38 20 28	[irc-send-command."PRIVMSG"].8.(
3000	23 24 20 2e 20 31 32 30 35 35 29 5d 29 0a 23 40 34 39 20 4c 65 61 76 65 20 49 52 43 20 77 69 74	#$...12055)]).#@49.Leave.IRC.wit
3020	68 20 72 65 61 73 6f 6e 20 52 45 41 53 4f 4e 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 52 45 41 53 4f	h.reason.REASON...(fn.CONN.REASO
3040	4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 51 55 49 54 20 23 5b 35	N)..(defalias.'irc-send-QUIT.#[5
3060	31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 23 5c 32 30 37 22 20 5b 69 72 63 2d 73 65 6e 64 2d 63	14."\300.\301.#\207".[irc-send-c
3080	6f 6d 6d 61 6e 64 20 22 51 55 49 54 22 5d 20 36 20 28 23 24 20 2e 20 31 32 33 30 37 29 5d 29 0a	ommand."QUIT"].6.(#$...12307)]).
30a0	23 40 31 37 34 20 52 65 74 72 69 65 76 65 20 6f 72 20 73 65 74 20 74 68 65 20 74 6f 70 69 63 20	#@174.Retrieve.or.set.the.topic.
30c0	6f 66 20 43 48 41 4e 4e 45 4c 0a 0a 49 66 20 4e 45 57 2d 54 4f 50 49 43 20 69 73 20 67 69 76 65	of.CHANNEL..If.NEW-TOPIC.is.give
30e0	6e 2c 20 73 65 74 20 74 68 69 73 20 61 73 20 74 68 65 20 6e 65 77 20 74 6f 70 69 63 2e 20 49 66	n,.set.this.as.the.new.topic..If
3100	20 69 74 20 69 73 0a 6f 6d 69 74 74 65 64 2c 20 72 65 74 72 69 65 76 65 20 74 68 65 20 63 75 72	.it.is.omitted,.retrieve.the.cur
3120	72 65 6e 74 20 74 6f 70 69 63 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 43 48 41 4e 4e 45 4c 20 26 6f	rent.topic...(fn.CONN.CHANNEL.&o
3140	70 74 69 6f 6e 61 6c 20 4e 45 57 2d 54 4f 50 49 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69	ptional.NEW-TOPIC)..(defalias.'i
3160	72 63 2d 73 65 6e 64 2d 54 4f 50 49 43 20 23 5b 37 37 30 20 22 5c 32 31 31 5c 32 30 33 0b 00 5c	rc-send-TOPIC.#[770."\211\203..\
3180	33 30 30 03 5c 33 30 31 04 04 24 5c 32 30 37 5c 33 30 30 03 5c 33 30 31 04 23 5c 32 30 37 22 20	300.\301..$\207\300.\301.#\207".
31a0	5b 69 72 63 2d 73 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 22 54 4f 50 49 43 22 5d 20 38 20 28 23 24	[irc-send-command."TOPIC"].8.(#$
31c0	20 2e 20 31 32 34 35 34 29 5d 29 0a 23 40 31 31 32 20 53 65 6e 64 20 61 20 55 53 45 52 20 6d 65	...12454)]).#@112.Send.a.USER.me
31e0	73 73 61 67 65 20 66 6f 72 20 72 65 67 69 73 74 72 61 74 69 6f 6e 2e 0a 0a 4d 4f 44 45 20 73 68	ssage.for.registration...MODE.sh
3200	6f 75 6c 64 20 62 65 20 61 6e 20 69 6e 74 65 67 65 72 20 61 73 20 70 65 72 20 52 46 43 20 32 38	ould.be.an.integer.as.per.RFC.28
3220	31 32 0a 0a 28 66 6e 20 43 4f 4e 4e 20 55 53 45 52 20 4d 4f 44 45 20 52 45 41 4c 4e 41 4d 45 29	12..(fn.CONN.USER.MODE.REALNAME)
3240	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 55 53 45 52 20 23 5b 31 30 32	..(defalias.'irc-send-USER.#[102
3260	38 20 22 5c 33 30 30 04 5c 33 30 31 05 5c 33 30 32 5c 33 30 33 06 07 5c 22 5c 33 30 34 06 06 26	8."\300.\301.\302\303..\"\304..&
3280	06 5c 32 30 37 22 20 5b 69 72 63 2d 73 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 22 55 53 45 52 22 20	.\207".[irc-send-command."USER".
32a0	66 6f 72 6d 61 74 20 22 25 73 22 20 22 2a 22 5d 20 31 31 20 28 23 24 20 2e 20 31 32 37 35 34 29	format."%s"."*"].11.(#$...12754)
32c0	5d 29 0a 23 40 39 30 20 52 65 74 72 69 65 76 65 20 63 75 72 72 65 6e 74 20 77 68 6f 69 73 20 69	]).#@90.Retrieve.current.whois.i
32e0	6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 54 41 52 47 45 54 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20	nformation.on.TARGET...(fn.CONN.
3300	54 41 52 47 45 54 20 26 6f 70 74 69 6f 6e 61 6c 20 53 45 52 56 45 52 2d 4f 52 2d 4e 41 4d 45 29	TARGET.&optional.SERVER-OR-NAME)
3320	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 57 48 4f 49 53 20 23 5b 37 37	..(defalias.'irc-send-WHOIS.#[77
3340	30 20 22 5c 32 31 31 5c 32 30 33 0b 00 5c 33 30 30 03 5c 33 30 31 04 04 24 5c 32 30 37 5c 33 30	0."\211\203..\300.\301..$\207\30
3360	30 03 5c 33 30 31 04 23 5c 32 30 37 22 20 5b 69 72 63 2d 73 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20	0.\301.#\207".[irc-send-command.
3380	22 57 48 4f 49 53 22 5d 20 38 20 28 23 24 20 2e 20 31 33 30 30 30 29 5d 29 0a 23 40 36 32 20 52	"WHOIS"].8.(#$...13000)]).#@62.R
33a0	65 74 72 69 65 76 65 20 70 61 73 74 20 77 68 6f 69 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f	etrieve.past.whois.information.o
33c0	6e 20 54 41 52 47 45 54 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 54 41 52 47 45 54 29 1f 0a 28 64 65	n.TARGET...(fn.CONN.TARGET)..(de
33e0	66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 57 48 4f 57 41 53 20 23 5b 35 31 34 20 22 5c	falias.'irc-send-WHOWAS.#[514."\
3400	33 30 30 02 5c 33 30 31 03 23 5c 32 30 37 22 20 5b 69 72 63 2d 73 65 6e 64 2d 63 6f 6d 6d 61 6e	300.\301.#\207".[irc-send-comman
3420	64 20 22 57 48 4f 57 41 53 22 5d 20 36 20 28 23 24 20 2e 20 31 33 32 31 35 29 5d 29 0a 23 40 31	d."WHOWAS"].6.(#$...13215)]).#@1
3440	30 32 20 52 65 74 75 72 6e 20 73 74 61 74 69 73 74 69 63 73 20 6f 6e 20 63 75 72 72 65 6e 74 20	02.Return.statistics.on.current.
3460	73 65 72 76 65 72 2c 20 6f 72 20 53 45 52 56 45 52 20 69 66 20 69 74 20 69 73 20 73 70 65 63 69	server,.or.SERVER.if.it.is.speci
3480	66 69 65 64 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 51 55 45 52 59 20 26 6f 70 74 69 6f 6e 61 6c 20	fied...(fn.CONN.QUERY.&optional.
34a0	53 45 52 56 45 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 53 54 41	SERVER)..(defalias.'irc-send-STA
34c0	54 53 20 23 5b 37 37 30 20 22 5c 32 31 31 5c 32 30 33 0b 00 5c 33 30 30 03 5c 33 30 31 04 04 24	TS.#[770."\211\203..\300.\301..$
34e0	5c 32 30 37 5c 33 30 30 03 5c 33 30 31 04 23 5c 32 30 37 22 20 5b 69 72 63 2d 73 65 6e 64 2d 63	\207\300.\301.#\207".[irc-send-c
3500	6f 6d 6d 61 6e 64 20 22 53 54 41 54 53 22 5d 20 38 20 28 23 24 20 2e 20 31 33 33 37 39 29 5d 29	ommand."STATS"].8.(#$...13379)])
3520	0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 64 65 62 75 67 2d 6f 75 74 20 23 5b 36 34 32 20	.(defalias.'irc-debug-out.#[642.
3540	22 08 5c 32 30 35 25 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 05 5c 33 30 34 5c 22 5c 33 30 33 06	".\205%.\301\302\303.\304\"\303.
3560	06 5c 33 30 35 5c 22 23 72 5c 33 30 36 01 21 71 5c 32 31 30 5c 32 31 32 64 62 5c 32 31 30 5c 33	.\305\"#r\306.!q\210\212db\210\3
3580	30 37 5c 33 30 31 04 04 23 5c 33 31 30 5c 32 36 31 02 2a 5c 32 36 32 01 5c 32 30 37 22 20 5b 69	07\301..#\310\261.*\262.\207".[i
35a0	72 63 2d 64 65 62 75 67 2d 6c 6f 67 20 66 6f 72 6d 61 74 20 22 2a 49 52 43 20 50 72 6f 74 6f 63	rc-debug-log.format."*IRC.Protoc
35c0	6f 6c 20 25 73 3a 25 73 2a 22 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 3a 68	ol.%s:%s*".irc-connection-get.:h
35e0	6f 73 74 20 3a 73 65 72 76 69 63 65 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 61	ost.:service.get-buffer-create.a
3600	70 70 6c 79 20 22 5c 6e 22 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 46 4d 54 20 26	pply."\n"].9."\n\n(fn.CONN.FMT.&
3620	72 65 73 74 20 41 52 47 53 29 22 5d 29 0a 23 40 31 31 36 31 20 41 64 64 20 63 6f 6d 6d 61 6e 64	rest.ARGS)"]).#@1161.Add.command
3640	20 68 61 6e 64 6c 65 72 73 20 74 6f 20 54 41 42 4c 45 20 74 6f 20 68 61 6e 64 6c 65 20 72 65 67	.handlers.to.TABLE.to.handle.reg
3660	69 73 74 72 61 74 69 6f 6e 2e 0a 0a 54 68 69 73 20 77 69 6c 6c 20 73 65 6e 64 20 74 68 65 20 75	istration...This.will.send.the.u
3680	73 75 61 6c 20 73 74 61 72 74 75 70 20 6d 65 73 73 61 67 65 73 20 61 66 74 65 72 20 77 65 20 61	sual.startup.messages.after.we.a
36a0	72 65 20 63 6f 6e 6e 65 63 74 65 64 2e 0a 0a 45 76 65 6e 74 73 20 65 6d 69 74 74 65 64 3a 0a 0a	re.connected...Events.emitted:..
36c0	22 69 72 63 2e 72 65 67 69 73 74 65 72 65 64 22 20 63 75 72 72 65 6e 74 2d 6e 69 63 6b 20 2d 2d	"irc.registered".current-nick.--
36e0	20 57 65 20 68 61 76 65 20 73 75 63 63 65 73 73 66 75 6c 6c 79 0a 20 20 72 65 67 69 73 74 65 72	.We.have.successfully...register
3700	65 64 20 77 69 74 68 20 74 68 65 20 49 52 43 20 73 65 72 76 65 72 2e 20 4d 6f 73 74 20 63 6f 6d	ed.with.the.IRC.server..Most.com
3720	6d 61 6e 64 73 20 63 61 6e 20 62 65 20 75 73 65 64 20 6e 6f 77 2e 0a 20 20 49 6e 20 70 61 72 74	mands.can.be.used.now....In.part
3740	69 63 75 6c 61 72 2c 20 6a 6f 69 6e 69 6e 67 20 63 68 61 6e 6e 65 6c 73 20 69 73 20 6f 6e 6c 79	icular,.joining.channels.is.only
3760	20 70 6f 73 73 69 62 6c 65 20 6e 6f 77 2e 0a 0a 22 73 61 73 6c 2e 6c 6f 67 69 6e 22 20 6e 69 63	.possible.now..."sasl.login".nic
3780	6b 21 75 73 65 72 40 68 6f 73 74 20 61 63 63 6f 75 6e 74 20 2d 2d 20 53 41 53 4c 20 6c 6f 67 20	k!user@host.account.--.SASL.log.
37a0	69 6e 20 77 61 73 0a 20 20 73 75 63 63 65 73 73 66 75 6c 2e 0a 0a 43 6f 6e 6e 65 63 74 69 6f 6e	in.was...successful...Connection
37c0	20 6f 70 74 69 6f 6e 73 20 75 73 65 64 3a 0a 0a 3a 6e 69 63 6b 20 2d 2d 20 54 68 65 20 6e 69 63	.options.used:..:nick.--.The.nic
37e0	6b 20 74 6f 20 75 73 65 20 74 6f 20 72 65 67 69 73 74 65 72 20 77 69 74 68 20 74 68 65 20 73 65	k.to.use.to.register.with.the.se
3800	72 76 65 72 0a 3a 75 73 65 72 20 2d 2d 20 54 68 65 20 75 73 65 72 20 6e 61 6d 65 20 74 6f 20 75	rver.:user.--.The.user.name.to.u
3820	73 65 0a 3a 6d 6f 64 65 20 2d 2d 20 54 68 65 20 69 6e 69 74 69 61 6c 20 6d 6f 64 65 20 74 6f 20	se.:mode.--.The.initial.mode.to.
3840	75 73 65 3b 20 61 6e 20 69 6e 74 65 67 65 72 2e 20 53 65 65 20 52 46 43 20 32 38 31 32 20 66 6f	use;.an.integer..See.RFC.2812.fo
3860	72 0a 20 20 20 74 68 65 20 6d 65 61 6e 69 6e 67 2e 0a 3a 72 65 61 6c 6e 61 6d 65 20 2d 2d 20 54	r....the.meaning..:realname.--.T
3880	68 65 20 72 65 61 6c 6e 61 6d 65 20 74 6f 20 75 73 65 20 66 6f 72 20 74 68 65 20 72 65 67 69 73	he.realname.to.use.for.the.regis
38a0	74 72 61 74 69 6f 6e 0a 3a 70 61 73 73 20 2d 2d 20 54 68 65 20 73 65 72 76 65 72 20 70 61 73 73	tration.:pass.--.The.server.pass
38c0	77 6f 72 64 20 74 6f 20 73 65 6e 64 0a 3a 63 61 70 2d 72 65 71 20 2d 2d 20 43 41 50 20 70 72 6f	word.to.send.:cap-req.--.CAP.pro
38e0	74 6f 63 6f 6c 20 63 61 70 61 62 69 6c 69 74 69 65 73 20 74 6f 20 72 65 71 75 65 73 74 2c 20 69	tocol.capabilities.to.request,.i
3900	66 20 61 76 61 69 6c 61 62 6c 65 0a 3a 73 61 73 6c 2d 75 73 65 72 6e 61 6d 65 20 2d 2d 20 54 68	f.available.:sasl-username.--.Th
3920	65 20 53 41 53 4c 20 75 73 65 72 6e 61 6d 65 20 74 6f 20 73 65 6e 64 2c 20 69 66 20 73 61 73 6c	e.SASL.username.to.send,.if.sasl
3940	20 69 73 20 61 76 61 69 6c 61 62 6c 65 0a 3a 73 61 73 6c 2d 70 61 73 73 77 6f 72 64 20 2d 2d 20	.is.available.:sasl-password.--.
3960	54 68 65 20 53 41 53 4c 20 70 61 73 73 77 6f 72 64 20 74 6f 20 73 65 6e 64 2c 20 69 66 20 73 61	The.SASL.password.to.send,.if.sa
3980	73 6c 20 69 73 20 61 76 61 69 6c 61 62 6c 65 0a 0a 43 6f 6e 6e 65 63 74 69 6f 6e 20 6f 70 74 69	sl.is.available..Connection.opti
39a0	6f 6e 73 20 73 65 74 3a 0a 0a 3a 63 6f 6e 6e 65 63 74 69 6f 6e 2d 73 74 61 74 65 20 2d 2d 20 4f	ons.set:..:connection-state.--.O
39c0	6e 65 20 6f 66 20 6e 69 6c 2c 20 63 6f 6e 6e 65 63 74 65 64 2c 20 72 65 67 69 73 74 65 72 65 64	ne.of.nil,.connected,.registered
39e0	2c 20 64 69 73 63 6f 6e 6e 65 63 74 65 64 0a 20 20 53 65 65 20 60 69 72 63 2d 63 6f 6e 6e 65 63	,.disconnected...See.`irc-connec
3a00	74 69 6f 6e 2d 73 74 61 74 65 27 20 66 6f 72 20 61 6e 20 69 6e 74 65 72 66 61 63 65 20 74 6f 20	tion-state'.for.an.interface.to.
3a20	74 68 69 73 2e 0a 3a 63 61 70 2d 73 75 70 70 6f 72 74 65 64 2d 70 20 2d 2d 20 4e 6f 6e 2d 6e 69	this..:cap-supported-p.--.Non-ni
3a40	6c 20 69 66 20 74 68 65 20 73 65 72 76 65 72 20 73 75 70 70 6f 72 74 73 20 74 68 65 20 43 41 50	l.if.the.server.supports.the.CAP
3a60	20 70 72 6f 74 6f 63 6f 6c 0a 3a 63 61 70 2d 61 63 6b 20 2d 2d 20 54 68 65 20 6c 69 73 74 20 6f	.protocol.:cap-ack.--.The.list.o
3a80	66 20 61 63 74 69 76 65 20 63 61 70 61 62 69 6c 69 74 69 65 73 20 6e 65 67 6f 74 69 61 74 65 64	f.active.capabilities.negotiated
3aa0	20 77 69 74 68 20 74 68 65 20 73 65 72 76 65 72 0a 0a 28 66 6e 20 54 41 42 4c 45 29 1f 0a 28 64	.with.the.server..(fn.TABLE)..(d
3ac0	65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 72 65 67 69 73 74 72 61 74 69 6f 6e	efalias.'irc-handle-registration
3ae0	20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 23 5c 32 31 30 5c 33 30 30 01 5c	.#[257."\300.\301\302#\210\300.\
3b00	33 30 33 5c 33 30 34 23 5c 32 31 30 5c 33 30 30 01 5c 33 30 35 5c 33 30 36 23 5c 32 31 30 5c 33	303\304#\210\300.\305\306#\210\3
3b20	30 30 01 5c 33 30 37 5c 33 31 30 23 5c 32 31 30 5c 33 30 30 01 5c 33 31 31 5c 33 31 32 23 5c 32	00.\307\310#\210\300.\311\312#\2
3b40	31 30 5c 33 30 30 01 5c 33 31 33 5c 33 31 34 23 5c 32 30 37 22 20 5b 69 72 63 2d 68 61 6e 64 6c	10\300.\313\314#\207".[irc-handl
3b60	65 72 2d 61 64 64 20 22 63 6f 6e 6e 2e 63 6f 6e 6e 65 63 74 65 64 22 20 69 72 63 2d 68 61 6e 64	er-add."conn.connected".irc-hand
3b80	6c 65 2d 72 65 67 69 73 74 72 61 74 69 6f 6e 2d 2d 63 6f 6e 6e 65 63 74 65 64 20 22 63 6f 6e 6e	le-registration--connected."conn
3ba0	2e 64 69 73 63 6f 6e 6e 65 63 74 65 64 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 72 65 67 69 73 74	.disconnected".irc-handle-regist
3bc0	72 61 74 69 6f 6e 2d 2d 64 69 73 63 6f 6e 6e 65 63 74 65 64 20 22 30 30 31 22 20 69 72 63 2d 68	ration--disconnected."001".irc-h
3be0	61 6e 64 6c 65 2d 72 65 67 69 73 74 72 61 74 69 6f 6e 2d 2d 72 70 6c 2d 77 65 6c 63 6f 6d 65 20	andle-registration--rpl-welcome.
3c00	22 43 41 50 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 72 65 67 69 73 74 72 61 74 69 6f 6e 2d 2d 63	"CAP".irc-handle-registration--c
3c20	61 70 20 22 41 55 54 48 45 4e 54 49 43 41 54 45 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 72 65 67	ap."AUTHENTICATE".irc-handle-reg
3c40	69 73 74 72 61 74 69 6f 6e 2d 2d 61 75 74 68 65 6e 74 69 63 61 74 65 20 22 39 30 30 22 20 69 72	istration--authenticate."900".ir
3c60	63 2d 68 61 6e 64 6c 65 2d 72 65 67 69 73 74 72 61 74 69 6f 6e 2d 2d 6c 6f 67 67 65 64 2d 69 6e	c-handle-registration--logged-in
3c80	5d 20 35 20 28 23 24 20 2e 20 31 33 38 37 37 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72	].5.(#$...13877)]).(defalias.'ir
3ca0	63 2d 68 61 6e 64 6c 65 2d 72 65 67 69 73 74 72 61 74 69 6f 6e 2d 2d 63 6f 6e 6e 65 63 74 65 64	c-handle-registration--connected
3cc0	20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 33 30 32 23 5c 32 31 30 5c 33 30 33 02 5c	.#[514."\300.\301\302#\210\303.\
3ce0	33 30 34 5c 22 5c 32 30 33 12 00 5c 33 30 35 02 5c 33 30 36 5c 22 5c 32 31 30 5c 33 30 33 02 5c	304\"\203..\305.\306\"\210\303.\
3d00	33 30 37 5c 22 5c 32 31 31 5c 32 30 33 1f 00 5c 33 31 30 03 02 5c 22 5c 32 31 30 5c 32 31 30 5c	307\"\211\203..\310..\"\210\210\
3d20	33 31 31 02 5c 33 30 33 04 5c 33 31 32 5c 22 5c 22 5c 32 31 30 5c 33 31 33 02 5c 33 30 33 04 5c	311.\303.\312\"\"\210\313.\303.\
3d40	33 31 34 5c 22 5c 33 30 33 05 5c 33 31 35 5c 22 5c 33 30 33 06 06 5c 33 31 36 5c 22 24 5c 32 30	314\"\303.\315\"\303..\316\"$\20
3d60	37 22 20 5b 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 70 75 74 20 3a 63 6f 6e 6e 65 63 74 69	7".[irc-connection-put.:connecti
3d80	6f 6e 2d 73 74 61 74 65 20 63 6f 6e 6e 65 63 74 65 64 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f	on-state.connected.irc-connectio
3da0	6e 2d 67 65 74 20 3a 63 61 70 2d 72 65 71 20 69 72 63 2d 73 65 6e 64 2d 43 41 50 20 22 4c 53 22	n-get.:cap-req.irc-send-CAP."LS"
3dc0	20 3a 70 61 73 73 20 69 72 63 2d 73 65 6e 64 2d 50 41 53 53 20 69 72 63 2d 73 65 6e 64 2d 4e 49	.:pass.irc-send-PASS.irc-send-NI
3de0	43 4b 20 3a 6e 69 63 6b 20 69 72 63 2d 73 65 6e 64 2d 55 53 45 52 20 3a 75 73 65 72 20 3a 6d 6f	CK.:nick.irc-send-USER.:user.:mo
3e00	64 65 20 3a 72 65 61 6c 6e 61 6d 65 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56	de.:realname].9."\n\n(fn.CONN.EV
3e20	45 4e 54 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 72 65	ENT)"]).(defalias.'irc-handle-re
3e40	67 69 73 74 72 61 74 69 6f 6e 2d 2d 64 69 73 63 6f 6e 6e 65 63 74 65 64 20 23 5b 35 31 34 20 22	gistration--disconnected.#[514."
3e60	5c 33 30 30 02 5c 33 30 31 5c 33 30 32 23 5c 32 30 37 22 20 5b 69 72 63 2d 63 6f 6e 6e 65 63 74	\300.\301\302#\207".[irc-connect
3e80	69 6f 6e 2d 70 75 74 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 2d 73 74 61 74 65 20 64 69 73 63 6f 6e	ion-put.:connection-state.discon
3ea0	6e 65 63 74 65 64 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 29 22 5d	nected].6."\n\n(fn.CONN.EVENT)"]
3ec0	29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 72 65 67 69 73 74 72 61	).(defalias.'irc-handle-registra
3ee0	74 69 6f 6e 2d 2d 72 70 6c 2d 77 65 6c 63 6f 6d 65 20 23 5b 31 31 35 36 20 22 5c 33 30 30 05 5c	tion--rpl-welcome.#[1156."\300.\
3f00	33 30 31 5c 33 30 32 23 5c 32 31 30 5c 33 30 33 05 5c 33 30 34 04 23 5c 32 30 37 22 20 5b 69 72	301\302#\210\303.\304.#\207".[ir
3f20	63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 70 75 74 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 2d 73 74 61	c-connection-put.:connection-sta
3f40	74 65 20 72 65 67 69 73 74 65 72 65 64 20 69 72 63 2d 65 76 65 6e 74 2d 65 6d 69 74 20 22 69 72	te.registered.irc-event-emit."ir
3f60	63 2e 72 65 67 69 73 74 65 72 65 64 22 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45	c.registered"].9."\n\n(fn.CONN.E
3f80	56 45 4e 54 20 53 45 4e 44 45 52 20 54 41 52 47 45 54 20 26 72 65 73 74 20 49 47 4e 4f 52 45 44	VENT.SENDER.TARGET.&rest.IGNORED
3fa0	29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 72 65 67 69 73	)"]).(defalias.'irc-handle-regis
3fc0	74 72 61 74 69 6f 6e 2d 2d 63 61 70 20 23 5b 31 35 34 32 20 22 01 5c 33 30 30 5c 32 33 32 5c 32	tration--cap.#[1542.".\300\232\2
3fe0	30 33 41 00 5c 33 30 31 01 21 5c 33 30 32 5c 33 30 33 06 08 5c 33 30 34 5c 22 5c 32 31 31 5c 32	03A.\301.!\302\303..\304\"\211\2
4000	30 33 29 00 5c 32 31 31 40 5c 32 31 31 04 5c 32 33 35 5c 32 30 33 5c 22 00 5c 33 30 35 03 02 43	03).\211@\211.\235\203\".\305..C
4020	5c 22 5c 32 36 32 03 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 0f 00 5c 32 31 30 5c 32 31 31 5c	\"\262..A\266\202\202..\210\211\
4040	32 30 33 3b 00 5c 33 30 36 06 08 5c 33 30 37 5c 33 31 30 5c 33 31 31 05 5c 33 31 32 23 23 5c 32	203;.\306..\307\310\311.\312##\2
4060	30 32 40 00 5c 33 30 36 06 08 5c 33 31 33 5c 22 5c 32 30 37 01 5c 33 31 34 5c 32 33 32 5c 32 30	02@.\306..\313\"\207.\314\232\20
4080	33 75 00 5c 33 30 31 01 21 5c 33 31 35 06 07 5c 33 31 36 03 23 5c 32 31 30 5c 33 31 37 01 5c 32	3u.\301.!\315..\316.#\210\317.\2
40a0	33 35 5c 32 30 33 6f 00 5c 33 30 33 06 07 5c 33 32 30 5c 22 5c 32 30 33 6f 00 5c 33 30 33 06 07	35\203o.\303..\320\"\203o.\303..
40c0	5c 33 32 31 5c 22 5c 32 30 33 6f 00 5c 33 32 32 06 07 5c 33 32 33 5c 22 5c 32 30 32 74 00 5c 33	\321\"\203o.\322..\323\"\202t.\3
40e0	30 36 06 07 5c 33 31 33 5c 22 5c 32 30 37 5c 33 32 34 5c 33 32 35 03 03 23 5c 32 30 37 22 20 5b	06..\313\"\207\324\325..#\207".[
4100	22 4c 53 22 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 6e 69 6c 20 69 72 63 2d 63 6f 6e 6e 65 63	"LS".split-string.nil.irc-connec
4120	74 69 6f 6e 2d 67 65 74 20 3a 63 61 70 2d 72 65 71 20 61 70 70 65 6e 64 20 69 72 63 2d 73 65 6e	tion-get.:cap-req.append.irc-sen
4140	64 2d 43 41 50 20 22 52 45 51 22 20 6d 61 70 63 6f 6e 63 61 74 20 69 64 65 6e 74 69 74 79 20 22	d-CAP."REQ".mapconcat.identity."
4160	20 22 20 22 45 4e 44 22 20 22 41 43 4b 22 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 70 75	."."END"."ACK".irc-connection-pu
4180	74 20 3a 63 61 70 2d 61 63 6b 20 22 73 61 73 6c 22 20 3a 73 61 73 6c 2d 75 73 65 72 6e 61 6d 65	t.:cap-ack."sasl".:sasl-username
41a0	20 3a 73 61 73 6c 2d 70 61 73 73 77 6f 72 64 20 69 72 63 2d 73 65 6e 64 2d 41 55 54 48 45 4e 54	.:sasl-password.irc-send-AUTHENT
41c0	49 43 41 54 45 20 22 50 4c 41 49 4e 22 20 6d 65 73 73 61 67 65 20 22 55 6e 6b 6e 6f 77 6e 20 43	ICATE."PLAIN".message."Unknown.C
41e0	41 50 20 72 65 73 70 6f 6e 73 65 20 66 72 6f 6d 20 73 65 72 76 65 72 3a 20 25 73 20 25 73 22 5d	AP.response.from.server:.%s.%s"]
4200	20 31 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 54	.15."\n\n(fn.CONN.EVENT.SENDER.T
4220	41 52 47 45 54 20 53 55 42 43 4f 4d 4d 41 4e 44 20 41 52 47 29 22 5d 29 0a 28 64 65 66 61 6c 69	ARGET.SUBCOMMAND.ARG)"]).(defali
4240	61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 72 65 67 69 73 74 72 61 74 69 6f 6e 2d 2d 61 75 74	as.'irc-handle-registration--aut
4260	68 65 6e 74 69 63 61 74 65 20 23 5b 31 30 32 38 20 22 5c 32 31 31 5c 33 30 30 5c 32 33 32 5c 32	henticate.#[1028."\211\300\232\2
4280	30 33 23 00 5c 33 30 31 04 5c 33 30 32 5c 22 5c 33 30 31 05 5c 33 30 33 5c 22 5c 33 30 34 06 06	03#.\301.\302\"\301.\303\"\304..
42a0	5c 33 30 35 5c 33 30 36 5c 33 30 37 06 06 5c 32 31 31 06 07 24 21 5c 22 5c 32 31 30 5c 33 31 30	\305\306\307..\211..$!\"\210\310
42c0	06 06 5c 33 31 31 5c 22 5c 32 30 37 5c 33 31 32 5c 33 31 33 02 5c 22 5c 32 30 37 22 20 5b 22 2b	..\311\"\207\312\313.\"\207".["+
42e0	22 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 3a 73 61 73 6c 2d 75 73 65 72 6e	".irc-connection-get.:sasl-usern
4300	61 6d 65 20 3a 73 61 73 6c 2d 70 61 73 73 77 6f 72 64 20 69 72 63 2d 73 65 6e 64 2d 41 55 54 48	ame.:sasl-password.irc-send-AUTH
4320	45 4e 54 49 43 41 54 45 20 62 61 73 65 36 34 2d 65 6e 63 6f 64 65 2d 73 74 72 69 6e 67 20 66 6f	ENTICATE.base64-encode-string.fo
4340	72 6d 61 74 20 22 25 73 00 25 73 00 25 73 22 20 69 72 63 2d 73 65 6e 64 2d 43 41 50 20 22 45 4e	rmat."%s.%s.%s".irc-send-CAP."EN
4360	44 22 20 6d 65 73 73 61 67 65 20 22 55 6e 6b 6e 6f 77 6e 20 41 55 54 48 45 4e 54 49 43 41 54 45	D".message."Unknown.AUTHENTICATE
4380	20 72 65 73 70 6f 6e 73 65 20 66 72 6f 6d 20 73 65 72 76 65 72 3a 20 25 73 22 5d 20 31 34 20 22	.response.from.server:.%s"].14."
43a0	5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 41 52 47 29 22 5d	\n\n(fn.CONN.EVENT.SENDER.ARG)"]
43c0	29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 72 65 67 69 73 74 72 61	).(defalias.'irc-handle-registra
43e0	74 69 6f 6e 2d 2d 6c 6f 67 67 65 64 2d 69 6e 20 23 5b 31 37 39 39 20 22 5c 33 30 30 06 07 5c 33	tion--logged-in.#[1799."\300..\3
4400	30 31 05 05 24 5c 32 30 37 22 20 5b 69 72 63 2d 65 76 65 6e 74 2d 65 6d 69 74 20 22 73 61 73 6c	01..$\207".[irc-event-emit."sasl
4420	2e 6c 6f 67 69 6e 22 5d 20 31 32 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20	.login"].12."\n\n(fn.CONN.EVENT.
4440	53 45 4e 44 45 52 20 54 41 52 47 45 54 20 55 53 45 52 48 4f 53 54 20 41 43 43 4f 55 4e 54 20 4d	SENDER.TARGET.USERHOST.ACCOUNT.M
4460	45 53 53 41 47 45 29 22 5d 29 0a 23 40 35 37 20 63 6f 6e 6e 65 63 74 69 6e 67 20 63 6f 6e 6e 65	ESSAGE)"]).#@57.connecting.conne
4480	63 74 65 64 20 72 65 67 69 73 74 65 72 65 64 20 64 69 73 63 6f 6e 6e 65 63 74 65 64 0a 0a 28 66	cted.registered.disconnected..(f
44a0	6e 20 43 4f 4e 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 6f 6e 6e 65 63 74 69	n.CONN)..(defalias.'irc-connecti
44c0	6f 6e 2d 73 74 61 74 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 31 31 5c	on-state.#[257."\300.\301\"\211\
44e0	32 30 34 5c 66 00 5c 33 30 32 5c 32 30 32 0d 00 5c 32 31 31 5c 32 30 37 22 20 5b 69 72 63 2d 63	204\f.\302\202..\211\207".[irc-c
4500	6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 2d 73 74 61 74 65 20	onnection-get.:connection-state.
4520	63 6f 6e 6e 65 63 74 69 6e 67 5d 20 34 20 28 23 24 20 2e 20 31 37 35 32 30 29 5d 29 0a 23 40 36	connecting].4.(#$...17520)]).#@6
4540	33 20 41 64 64 20 63 6f 6d 6d 61 6e 64 20 68 61 6e 64 6c 65 72 73 20 74 6f 20 72 65 73 70 6f 6e	3.Add.command.handlers.to.respon
4560	64 20 74 6f 20 50 49 4e 47 20 72 65 71 75 65 73 74 73 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 29 1f	d.to.PING.requests...(fn.TABLE).
4580	0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 70 69 6e 67 2d 70 6f 6e 67	.(defalias.'irc-handle-ping-pong
45a0	20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 23 5c 32 30 37 22 20 5b 69 72 63	.#[257."\300.\301\302#\207".[irc
45c0	2d 68 61 6e 64 6c 65 72 2d 61 64 64 20 22 50 49 4e 47 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 70	-handler-add."PING".irc-handle-p
45e0	69 6e 67 2d 70 6f 6e 67 2d 2d 70 69 6e 67 5d 20 35 20 28 23 24 20 2e 20 31 37 37 33 30 29 5d 29	ing-pong--ping].5.(#$...17730)])
4600	0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 70 69 6e 67 2d 70 6f 6e 67	.(defalias.'irc-handle-ping-pong
4620	2d 2d 70 69 6e 67 20 23 5b 31 30 32 38 20 22 5c 33 30 30 04 02 5c 22 5c 32 30 37 22 20 5b 69 72	--ping.#[1028."\300..\"\207".[ir
4640	63 2d 73 65 6e 64 2d 50 4f 4e 47 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45	c-send-PONG].7."\n\n(fn.CONN.EVE
4660	4e 54 20 53 45 4e 44 45 52 20 41 52 47 55 4d 45 4e 54 29 22 5d 29 0a 23 40 37 34 20 41 64 64 20	NT.SENDER.ARGUMENT)"]).#@74.Add.
4680	63 6f 6d 6d 61 6e 64 20 68 61 6e 64 6c 65 72 73 20 74 6f 20 74 72 61 63 6b 20 30 30 35 20 52 50	command.handlers.to.track.005.RP
46a0	4c 5f 49 53 55 50 50 4f 52 54 20 63 61 70 61 62 69 6c 69 74 69 65 73 2e 0a 0a 28 66 6e 20 54 41	L_ISUPPORT.capabilities...(fn.TA
46c0	42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 69 73 75 70	BLE)..(defalias.'irc-handle-isup
46e0	70 6f 72 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 23 5c 32 30 37 22 20	port.#[257."\300.\301\302#\207".
4700	5b 69 72 63 2d 68 61 6e 64 6c 65 72 2d 61 64 64 20 22 30 30 35 22 20 69 72 63 2d 68 61 6e 64 6c	[irc-handler-add."005".irc-handl
4720	65 2d 69 73 75 70 70 6f 72 74 2d 2d 30 30 35 5d 20 35 20 28 23 24 20 2e 20 31 38 30 34 34 29 5d	e-isupport--005].5.(#$...18044)]
4740	29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 69 73 75 70 70 6f 72 74	).(defalias.'irc-handle-isupport
4760	2d 2d 30 30 35 20 23 5b 31 31 35 36 20 22 5c 33 30 30 05 5c 33 30 31 5c 33 30 32 5c 33 30 33 06	--005.#[1156."\300.\301\302\303.
4780	09 5c 33 30 31 5c 22 5c 33 30 34 06 06 21 5c 22 23 5c 32 30 37 22 20 5b 69 72 63 2d 63 6f 6e 6e	.\301\"\304..!\"#\207".[irc-conn
47a0	65 63 74 69 6f 6e 2d 70 75 74 20 3a 69 73 75 70 70 6f 72 74 20 61 70 70 65 6e 64 20 69 72 63 2d	ection-put.:isupport.append.irc-
47c0	63 6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 69 72 63 2d 68 61 6e 64 6c 65 2d 69 73 75 70 70 6f	connection-get.irc-handle-isuppo
47e0	72 74 2d 2d 63 61 70 61 62 69 6c 69 74 69 65 73 2d 74 6f 2d 61 6c 69 73 74 5d 20 31 32 20 22 5c	rt--capabilities-to-alist].12."\
4800	6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 54 41 52 47 45 54 20	n\n(fn.CONN.EVENT.SENDER.TARGET.
4820	26 72 65 73 74 20 41 52 47 53 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61	&rest.ARGS)"]).(defalias.'irc-ha
4840	6e 64 6c 65 2d 69 73 75 70 70 6f 72 74 2d 2d 63 61 70 61 62 69 6c 69 74 69 65 73 2d 74 6f 2d 61	ndle-isupport--capabilities-to-a
4860	6c 69 73 74 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 6d 61	list.#[257."\300\301.\"\207".[ma
4880	70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 33 11 00 5c 33 30	pcar.#[257."\300\301.\"\203..\30
48a0	32 5c 33 30 33 02 5c 22 5c 33 30 32 5c 33 30 34 03 5c 22 42 5c 32 30 37 5c 32 31 31 5c 33 30 35	2\303.\"\302\304.\"B\207\211\305
48c0	42 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5c 5c 28 5b 5e 3d 5d	B\207".[string-match."\\`\\([^=]
48e0	2b 5c 5c 29 3d 5c 5c 28 2e 2a 5c 5c 29 5c 5c 27 22 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31	+\\)=\\(.*\\)\\'".match-string.1
4900	20 32 20 74 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 41 50 29 22 5d 5d 20 34 20 22 5c 6e 5c 6e	.2.t].5."\n\n(fn.CAP)"]].4."\n\n
4920	28 66 6e 20 43 41 50 41 42 49 4c 49 54 49 45 53 29 22 5d 29 0a 23 40 33 30 38 20 52 65 74 75 72	(fn.CAPABILITIES)"]).#@308.Retur
4940	6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 43 41 50 41 42 49 4c 49 54 59 20 6f 66 20 43 4f 4e	n.the.value.of.CAPABILITY.of.CON
4960	4e 2e 0a 0a 54 68 65 73 65 20 63 61 70 61 62 69 6c 69 74 69 65 73 20 61 72 65 20 73 65 74 20 77	N...These.capabilities.are.set.w
4980	68 65 6e 20 74 68 65 20 73 65 72 76 65 72 20 73 65 6e 64 73 20 61 20 30 30 35 0a 52 50 4c 5f 49	hen.the.server.sends.a.005.RPL_I
49a0	53 55 50 50 4f 52 54 20 6d 65 73 73 61 67 65 2e 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75	SUPPORT.message..The.return.valu
49c0	65 20 69 73 20 65 69 74 68 65 72 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 0a 63 61 70	e.is.either.the.value.of.the.cap
49e0	61 62 69 6c 69 74 79 2c 20 6f 72 20 74 20 69 66 20 69 74 20 69 73 20 61 20 62 6f 6f 6c 65 61 6e	ability,.or.t.if.it.is.a.boolean
4a00	20 63 61 70 61 62 69 6c 69 74 79 20 74 68 61 74 20 69 73 20 70 72 65 73 65 6e 74 2e 0a 49 66 20	.capability.that.is.present..If.
4a20	74 68 65 20 63 61 70 61 62 69 6c 69 74 79 20 69 73 20 6e 6f 74 20 70 72 65 73 65 6e 74 2c 20 74	the.capability.is.not.present,.t
4a40	68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 6e 69 6c 2e 0a 0a 28 66 6e 20 43 4f 4e	he.return.value.is.nil...(fn.CON
4a60	4e 20 43 41 50 41 42 49 4c 49 54 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 69 73	N.CAPABILITY)..(defalias.'irc-is
4a80	75 70 70 6f 72 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 04 5c 33 30 32 5c 22 5c 22	upport.#[514."\300.\301.\302\"\"
4aa0	41 5c 32 30 37 22 20 5b 61 73 73 6f 63 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74	A\207".[assoc.irc-connection-get
4ac0	20 3a 69 73 75 70 70 6f 72 74 5d 20 37 20 28 23 24 20 2e 20 31 38 37 34 37 29 5d 29 0a 23 40 31	.:isupport].7.(#$...18747)]).#@1
4ae0	30 36 20 43 6f 6d 70 61 72 65 20 53 31 20 74 6f 20 53 32 20 63 61 73 65 2d 69 6e 73 65 6e 73 69	06.Compare.S1.to.S2.case-insensi
4b00	74 69 76 65 6c 79 2e 0a 0a 57 68 61 74 20 63 61 73 65 20 6d 65 61 6e 73 20 69 73 20 64 65 66 69	tively...What.case.means.is.defi
4b20	6e 65 64 20 62 79 20 74 68 65 20 73 65 72 76 65 72 20 6f 66 20 43 4f 4e 4e 2e 0a 0a 28 66 6e 20	ned.by.the.server.of.CONN...(fn.
4b40	43 4f 4e 4e 20 53 31 20 53 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 74 72 69	CONN.S1.S2)..(defalias.'irc-stri
4b60	6e 67 2d 65 71 75 61 6c 2d 70 20 23 5b 37 37 31 20 22 5c 33 30 30 03 03 5c 22 5c 33 30 30 04 03	ng-equal-p.#[771."\300..\"\300..
4b80	5c 22 5c 32 33 32 5c 32 30 37 22 20 5b 69 72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 63 61 73 65 2d	\"\232\207".[irc-isupport--case-
4ba0	66 6f 6c 64 5d 20 37 20 28 23 24 20 2e 20 31 39 31 37 31 29 5d 29 0a 23 40 34 39 20 41 20 63 61	fold].7.(#$...19171)]).#@49.A.ca
4bc0	73 65 20 6d 61 70 70 69 6e 67 20 74 61 62 6c 65 20 66 6f 72 20 74 68 65 20 61 73 63 69 69 20 43	se.mapping.table.for.the.ascii.C
4be0	41 53 45 4d 41 50 50 49 4e 47 2e 1f 0a 28 64 65 66 76 61 72 20 69 72 63 2d 69 73 75 70 70 6f 72	ASEMAPPING...(defvar.irc-isuppor
4c00	74 2d 2d 61 73 63 69 69 2d 74 61 62 6c 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	t--ascii-table.(byte-code."\300\
4c20	33 30 31 5c 33 30 32 5c 22 5c 33 30 32 5c 32 31 31 5c 33 30 33 58 5c 32 30 33 2d 00 5c 33 30 34	301\302\"\302\211\303X\203-.\304
4c40	01 58 5c 32 30 33 21 00 5c 32 31 31 5c 33 30 35 58 5c 32 30 33 21 00 01 01 5c 32 31 31 5c 33 30	.X\203!.\211\305X\203!...\211\30
4c60	36 5c 5c 49 5c 32 31 30 5c 32 30 32 26 00 01 01 5c 32 31 31 49 5c 32 31 30 5c 32 31 31 54 5c 32	6\\I\210\202&...\211I\210\211T\2
4c80	36 32 01 5c 32 30 32 05 00 01 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 74 72 69 6e 67 20 31 32 38	62.\202...\207".[make-string.128
4ca0	20 30 20 31 32 37 20 36 35 20 39 30 20 33 32 5d 20 36 29 20 28 23 24 20 2e 20 31 39 33 38 38 29	.0.127.65.90.32].6).(#$...19388)
4cc0	29 0a 23 40 35 31 20 41 20 63 61 73 65 20 6d 61 70 70 69 6e 67 20 74 61 62 6c 65 20 66 6f 72 20	).#@51.A.case.mapping.table.for.
4ce0	74 68 65 20 72 66 63 31 34 35 39 20 43 41 53 45 4d 41 50 50 49 4e 47 2e 1f 0a 28 64 65 66 76 61	the.rfc1459.CASEMAPPING...(defva
4d00	72 20 69 72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 72 66 63 31 34 35 39 2d 74 61 62 6c 65 20 28 62	r.irc-isupport--rfc1459-table.(b
4d20	79 74 65 2d 63 6f 64 65 20 22 08 5c 32 36 30 01 5c 32 31 31 5c 33 30 31 5c 33 30 32 49 5c 32 31	yte-code.".\260.\211\301\302I\21
4d40	30 5c 32 31 31 5c 33 30 33 5c 33 30 34 49 5c 32 31 30 5c 32 31 31 5c 33 30 35 5c 33 30 36 49 5c	0\211\303\304I\210\211\305\306I\
4d60	32 31 30 5c 32 31 31 5c 33 30 37 5c 33 31 30 49 5c 32 31 30 5c 32 31 31 5c 32 30 37 22 20 5b 69	210\211\307\310I\210\211\207".[i
4d80	72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 61 73 63 69 69 2d 74 61 62 6c 65 20 39 31 20 31 32 33 20	rc-isupport--ascii-table.91.123.
4da0	39 33 20 31 32 35 20 39 32 20 31 32 34 20 39 34 20 31 32 36 5d 20 34 29 20 28 23 24 20 2e 20 31	93.125.92.124.94.126].4).(#$...1
4dc0	39 36 35 35 29 29 0a 23 40 35 38 20 41 20 63 61 73 65 20 6d 61 70 70 69 6e 67 20 74 61 62 6c 65	9655)).#@58.A.case.mapping.table
4de0	20 66 6f 72 20 74 68 65 20 72 66 63 31 34 35 39 2d 73 74 72 69 63 74 20 43 41 53 45 4d 41 50 50	.for.the.rfc1459-strict.CASEMAPP
4e00	49 4e 47 2e 1f 0a 28 64 65 66 76 61 72 20 69 72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 72 66 63 31	ING...(defvar.irc-isupport--rfc1
4e20	34 35 39 2d 73 74 72 69 63 74 2d 74 61 62 6c 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 5c 32	459-strict-table.(byte-code.".\2
4e40	36 30 01 5c 32 31 31 5c 33 30 31 5c 33 30 32 49 5c 32 31 30 5c 32 31 31 5c 33 30 33 5c 33 30 34	60.\211\301\302I\210\211\303\304
4e60	49 5c 32 31 30 5c 32 31 31 5c 33 30 35 5c 33 30 36 49 5c 32 31 30 5c 32 31 31 5c 32 30 37 22 20	I\210\211\305\306I\210\211\207".
4e80	5b 69 72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 61 73 63 69 69 2d 74 61 62 6c 65 20 39 31 20 31 32	[irc-isupport--ascii-table.91.12
4ea0	33 20 39 33 20 31 32 35 20 39 32 20 31 32 34 5d 20 34 29 20 28 23 24 20 2e 20 31 39 39 31 36 29	3.93.125.92.124].4).(#$...19916)
4ec0	29 0a 23 40 31 31 30 20 54 72 61 6e 73 6c 61 74 65 20 53 20 74 6f 20 62 65 20 61 20 6c 6f 77 65	).#@110.Translate.S.to.be.a.lowe
4ee0	72 2d 63 61 73 65 2e 0a 0a 54 68 69 73 20 75 73 65 73 20 74 68 65 20 63 61 73 65 20 6d 61 70 70	r-case...This.uses.the.case.mapp
4f00	69 6e 67 20 64 65 66 69 6e 65 64 20 62 79 20 74 68 65 20 49 52 43 20 73 65 72 76 65 72 20 66 6f	ing.defined.by.the.IRC.server.fo
4f20	72 20 43 4f 4e 4e 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	r.CONN...(fn.CONN.S)..(defalias.
4f40	27 69 72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 63 61 73 65 2d 66 6f 6c 64 20 23 5b 35 31 34 20 22	'irc-isupport--case-fold.#[514."
4f60	5c 33 30 33 5c 33 30 34 21 72 5c 32 31 31 71 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c	\303\304!r\211q\210\305\306\307\
4f80	33 31 30 5c 33 31 31 05 21 5c 33 31 32 5c 22 5c 33 31 33 24 5c 32 31 36 01 63 5c 32 31 30 5c 33	310\311.!\312\"\313$\216.c\210\3
4fa0	31 34 03 5c 33 31 35 5c 22 5c 32 30 36 1e 00 5c 33 31 36 5c 32 31 31 5c 33 31 36 5c 32 33 32 5c	14.\315\"\206..\316\211\316\232\
4fc0	32 30 33 2d 00 5c 33 31 37 65 64 08 23 5c 32 31 30 5c 32 30 32 48 00 5c 32 31 31 5c 33 32 30 5c	203-.\317ed.#\210\202H.\211\320\
4fe0	32 33 32 5c 32 30 33 3c 00 5c 33 31 37 65 64 09 23 5c 32 31 30 5c 32 30 32 48 00 5c 32 31 31 5c	232\203<.\317ed.#\210\202H.\211\
5000	33 32 31 5c 32 33 32 5c 32 30 33 48 00 5c 33 31 37 65 64 5c 6e 23 5c 32 31 30 5c 32 31 30 5c 33	321\232\203H.\317ed\n#\210\210\3
5020	32 32 20 2a 5c 32 30 37 22 20 5b 69 72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 72 66 63 31 34 35 39	22.*\207".[irc-isupport--rfc1459
5040	2d 74 61 62 6c 65 20 69 72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 61 73 63 69 69 2d 74 61 62 6c 65	-table.irc-isupport--ascii-table
5060	20 69 72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 72 66 63 31 34 35 39 2d 73 74 72 69 63 74 2d 74 61	.irc-isupport--rfc1459-strict-ta
5080	62 6c 65 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22 20 2a 74 65 6d 70 2a	ble.generate-new-buffer.".*temp*
50a0	22 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 30 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 30	".make-byte-code.0."\301\300!\20
50c0	35 09 00 5c 33 30 32 5c 33 30 30 21 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72	5..\302\300!\207".vconcat.vector
50e0	20 5b 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 32 20 69 72 63	.[buffer-name.kill-buffer].2.irc
5100	2d 69 73 75 70 70 6f 72 74 20 22 43 41 53 45 4d 41 50 50 49 4e 47 22 20 22 72 66 63 31 34 35 39	-isupport."CASEMAPPING"."rfc1459
5120	22 20 74 72 61 6e 73 6c 61 74 65 2d 72 65 67 69 6f 6e 20 22 61 73 63 69 69 22 20 22 72 66 63 31	".translate-region."ascii"."rfc1
5140	34 35 39 2d 73 74 72 69 63 74 22 20 62 75 66 66 65 72 2d 73 74 72 69 6e 67 5d 20 39 20 28 23 24	459-strict".buffer-string].9.(#$
5160	20 2e 20 32 30 31 36 38 29 5d 29 0a 23 40 31 33 35 20 54 72 75 65 20 69 66 66 20 53 54 52 49 4e	...20168)]).#@135.True.iff.STRIN
5180	47 20 69 73 20 61 20 76 61 6c 69 64 20 63 68 61 6e 6e 65 6c 20 6e 61 6d 65 20 66 6f 72 20 43 4f	G.is.a.valid.channel.name.for.CO
51a0	4e 4e 2e 0a 0a 54 68 69 73 20 64 65 70 65 6e 64 73 20 6f 6e 20 74 68 65 20 43 48 41 4e 54 59 50	NN...This.depends.on.the.CHANTYP
51c0	45 53 20 73 65 74 74 69 6e 67 20 73 65 74 20 62 79 20 74 68 65 20 73 65 72 76 65 72 20 6f 66 20	ES.setting.set.by.the.server.of.
51e0	43 4f 4e 4e 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 53 54 52 49 4e 47 29 1f 0a 28 64 65 66 61 6c 69	CONN...(fn.CONN.STRING)..(defali
5200	61 73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 6e 61 6d 65 2d 70 20 23 5b 35 31 34 20 22 5c 33	as.'irc-channel-name-p.#[514."\3
5220	30 30 02 5c 33 30 31 5c 22 5c 32 30 36 08 00 5c 33 30 32 5c 33 30 33 01 5c 33 30 34 5c 22 5c 32	00.\301\"\206..\302\303.\304\"\2
5240	36 32 01 01 47 5c 33 30 35 56 5c 32 30 35 1e 00 01 5c 33 30 35 48 01 5c 32 33 35 5c 32 30 35 1e	62..G\305V\205...\305H.\235\205.
5260	00 5c 33 30 36 5c 32 30 37 22 20 5b 69 72 63 2d 69 73 75 70 70 6f 72 74 20 22 43 48 41 4e 54 59	.\306\207".[irc-isupport."CHANTY
5280	50 45 53 22 20 22 23 22 20 61 70 70 65 6e 64 20 6e 69 6c 20 30 20 74 5d 20 36 20 28 23 24 20 2e	PES"."#".append.nil.0.t].6.(#$..
52a0	20 32 30 38 35 30 29 5d 29 0a 23 40 32 35 30 20 52 65 74 75 72 6e 20 4e 49 43 4b 20 77 69 74 68	.20850)]).#@250.Return.NICK.with
52c0	6f 75 74 20 61 6e 79 20 6d 6f 64 65 20 70 72 65 66 69 78 65 73 2e 0a 0a 46 6f 72 20 65 78 61 6d	out.any.mode.prefixes...For.exam
52e0	70 6c 65 2c 20 61 20 75 73 65 72 20 77 69 74 68 20 6f 70 20 73 74 61 74 75 73 20 6d 69 67 68 74	ple,.a.user.with.op.status.might
5300	20 62 65 20 73 68 6f 77 6e 20 61 73 20 40 4e 69 63 6b 2e 20 54 68 69 73 0a 66 75 6e 63 74 69 6f	.be.shown.as.@Nick..This.functio
5320	6e 20 77 6f 75 6c 64 20 72 65 74 75 72 6e 20 4e 69 63 6b 20 77 69 74 68 6f 75 74 20 74 68 65 20	n.would.return.Nick.without.the.
5340	70 72 65 66 69 78 2e 20 54 68 69 73 20 75 73 65 73 20 74 68 65 20 30 30 35 0a 52 50 4c 5f 49 53	prefix..This.uses.the.005.RPL_IS
5360	55 50 50 4f 52 54 20 73 65 74 74 69 6e 67 20 6f 66 20 50 52 45 46 49 58 20 73 65 74 20 62 79 20	UPPORT.setting.of.PREFIX.set.by.
5380	74 68 65 20 49 52 43 20 73 65 72 76 65 72 20 66 6f 72 20 43 4f 4e 4e 2e 0a 0a 28 66 6e 20 43 4f	the.IRC.server.for.CONN...(fn.CO
53a0	4e 4e 20 4e 49 43 4b 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 6e 69 63 6b 2d 77 69	NN.NICK)..(defalias.'irc-nick-wi
53c0	74 68 6f 75 74 2d 70 72 65 66 69 78 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 22 5c	thout-prefix.#[514."\300.\301\"\
53e0	32 31 31 5c 32 30 34 2e 00 5c 33 30 32 03 5c 33 30 33 5c 22 5c 32 30 36 10 00 5c 33 30 34 5c 33	211\204..\302.\303\"\206..\304\3
5400	30 35 5c 33 30 36 02 5c 22 5c 32 30 33 1e 00 5c 33 30 37 5c 33 31 30 02 5c 22 5c 32 30 32 1f 00	05\306.\"\203..\307\310.\"\202..
5420	5c 33 31 31 5c 33 31 32 01 5c 33 31 33 5c 22 5c 32 36 32 01 5c 32 36 32 02 5c 33 31 34 04 5c 33	\311\312.\313\"\262.\262.\314.\3
5440	30 31 04 23 5c 32 36 36 02 01 47 5c 33 31 35 56 5c 32 30 33 46 00 01 5c 33 31 35 48 01 5c 32 33	01.#\266..G\315V\203F..\315H.\23
5460	35 5c 32 30 33 46 00 01 5c 33 31 30 5c 33 31 33 4f 5c 32 36 32 02 5c 32 30 32 2e 00 01 5c 32 30	5\203F..\310\313O\262.\202...\20
5480	37 22 20 5b 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 3a 6e 69 63 6b 2d 70 72 65	7".[irc-connection-get.:nick-pre
54a0	66 69 78 65 73 20 69 72 63 2d 69 73 75 70 70 6f 72 74 20 22 50 52 45 46 49 58 22 20 22 28 71 61	fixes.irc-isupport."PREFIX"."(qa
54c0	6f 68 76 29 7e 26 40 25 2b 22 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 28 2e 2a 29 5c 5c 28	ohv)~&@%+".string-match."(.*)\\(
54e0	2e 2a 5c 5c 29 22 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 22 7e 26 40 25 2b 22 20 61 70	.*\\)".match-string.1."~&@%+".ap
5500	70 65 6e 64 20 6e 69 6c 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 70 75 74 20 30 5d 20 38	pend.nil.irc-connection-put.0].8
5520	20 28 23 24 20 2e 20 32 31 31 36 38 29 5d 29 0a 23 40 31 36 32 20 54 72 61 63 6b 20 74 68 65 20	.(#$...21168)]).#@162.Track.the.
5540	63 75 72 72 65 6e 74 20 6e 69 63 6b 20 6f 66 20 74 68 65 20 75 73 65 72 2e 0a 0a 43 6f 6e 6e 65	current.nick.of.the.user...Conne
5560	63 74 69 6f 6e 20 6f 70 74 69 6f 6e 73 20 75 73 65 64 3a 0a 0a 3a 6e 69 63 6b 2d 61 6c 74 65 72	ction.options.used:..:nick-alter
5580	6e 61 74 69 76 65 73 20 2d 2d 20 41 20 6c 69 73 74 20 6f 66 20 6e 69 63 6b 73 20 74 6f 20 74 72	natives.--.A.list.of.nicks.to.tr
55a0	79 20 69 66 20 74 68 65 20 66 69 72 73 74 20 61 74 74 65 6d 70 74 0a 20 20 64 6f 65 73 20 6e 6f	y.if.the.first.attempt...does.no
55c0	74 20 73 75 63 63 65 65 64 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61	t.succeed...(fn.TABLE)..(defalia
55e0	73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 69 6e 69 74 69 61 6c 2d 6e 69 63 6b 2d 61 63 71 75 69	s.'irc-handle-initial-nick-acqui
5600	73 69 74 69 6f 6e 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 23 5c 32 31 30	sition.#[257."\300.\301\302#\210
5620	5c 33 30 30 01 5c 33 30 33 5c 33 30 32 23 5c 32 31 30 5c 33 30 30 01 5c 33 30 34 5c 33 30 32 23	\300.\303\302#\210\300.\304\302#
5640	5c 32 30 37 22 20 5b 69 72 63 2d 68 61 6e 64 6c 65 72 2d 61 64 64 20 22 34 33 32 22 20 69 72 63	\207".[irc-handler-add."432".irc
5660	2d 68 61 6e 64 6c 65 2d 69 6e 69 74 69 61 6c 2d 6e 69 63 6b 2d 61 63 71 75 69 73 69 74 69 6f 6e	-handle-initial-nick-acquisition
5680	2d 2d 67 65 74 2d 69 6e 69 74 69 61 6c 2d 6e 69 63 6b 20 22 34 33 33 22 20 22 34 33 37 22 5d 20	--get-initial-nick."433"."437"].
56a0	35 20 28 23 24 20 2e 20 32 31 38 31 34 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d	5.(#$...21814)]).(defalias.'irc-
56c0	68 61 6e 64 6c 65 2d 69 6e 69 74 69 61 6c 2d 6e 69 63 6b 2d 61 63 71 75 69 73 69 74 69 6f 6e 2d	handle-initial-nick-acquisition-
56e0	2d 67 65 74 2d 69 6e 69 74 69 61 6c 2d 6e 69 63 6b 20 23 5b 31 35 34 32 20 22 02 5c 33 30 30 5c	-get-initial-nick.#[1542.".\300\
5700	32 33 32 5c 32 30 35 28 00 5c 33 30 31 06 06 5c 33 30 32 5c 22 5c 32 31 31 5c 32 30 34 18 00 5c	232\205(.\301..\302\"\211\204..\
5720	33 30 33 06 07 5c 33 30 34 20 5c 22 5c 32 30 32 26 00 5c 33 30 35 06 07 5c 33 30 32 03 41 23 5c	303..\304.\"\202&.\305..\302.A#\
5740	32 31 30 5c 33 30 33 06 07 02 40 5c 22 5c 32 36 32 01 5c 32 30 37 22 20 5b 22 2a 22 20 69 72 63	210\303...@\"\262.\207".["*".irc
5760	2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 3a 6e 69 63 6b 2d 61 6c 74 65 72 6e 61 74 69 76	-connection-get.:nick-alternativ
5780	65 73 20 69 72 63 2d 73 65 6e 64 2d 4e 49 43 4b 20 69 72 63 2d 67 65 6e 65 72 61 74 65 2d 6e 69	es.irc-send-NICK.irc-generate-ni
57a0	63 6b 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 70 75 74 5d 20 31 31 20 22 5c 6e 5c 6e 28	ck.irc-connection-put].11."\n\n(
57c0	66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 43 55 52 52 45 4e 54 2d 4e 49 43	fn.CONN.EVENT.SENDER.CURRENT-NIC
57e0	4b 20 41 54 54 45 4d 50 54 45 44 2d 4e 49 43 4b 20 52 45 41 53 4f 4e 29 22 5d 29 0a 23 40 32 30	K.ATTEMPTED-NICK.REASON)"]).#@20
5800	37 20 52 65 74 75 72 6e 20 61 20 72 61 6e 64 6f 6d 2c 20 76 61 6c 69 64 20 49 52 43 20 6e 69 63	7.Return.a.random,.valid.IRC.nic
5820	6b 20 6e 61 6d 65 2e 0a 0a 56 61 6c 69 64 20 6e 69 63 6b 20 6e 61 6d 65 73 20 61 72 65 20 61 74	k.name...Valid.nick.names.are.at
5840	20 6c 65 61 73 74 20 28 52 46 43 20 31 34 35 39 29 3a 0a 0a 3c 6e 69 63 6b 3e 20 20 20 20 20 20	.least.(RFC.1459):..<nick>......
5860	20 3a 3a 3d 20 3c 6c 65 74 74 65 72 3e 20 7b 20 3c 6c 65 74 74 65 72 3e 20 7c 20 3c 6e 75 6d 62	.::=.<letter>.{.<letter>.|.<numb
5880	65 72 3e 20 7c 20 3c 73 70 65 63 69 61 6c 3e 20 7d 0a 3c 73 70 65 63 69 61 6c 3e 20 20 20 20 3a	er>.|.<special>.}.<special>....:
58a0	3a 3d 20 27 2d 27 20 7c 20 27 5b 27 20 7c 20 27 5d 27 20 7c 20 27 27 20 7c 20 27 60 27 20 7c 20	:=.'-'.|.'['.|.']'.|.''.|.'`'.|.
58c0	27 5e 27 20 7c 20 27 7b 27 20 7c 20 27 7d 27 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d	'^'.|.'{'.|.'}'..(defalias.'irc-
58e0	67 65 6e 65 72 61 74 65 2d 6e 69 63 6b 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	generate-nick.#[0."\300\301\302\
5900	33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 21 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31	303\304\305\306..!\307\"\310\311
5920	25 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 22 5c 33 31 35 23 5c 32 30 37 22 20 5b 22 61 62 63 64	%\312\313\314\"\315#\207".["abcd
5940	65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 22 20 6d 61 70 63 6f 6e 63 61	efghijklmnopqrstuvwxyz".mapconca
5960	74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c 33 30 32 5c 33	t.make-byte-code.257."\301\302\3
5980	30 30 5c 33 30 33 5c 33 30 30 47 21 48 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63	00\303\300G!H\"\207".vconcat.vec
59a0	74 6f 72 20 5b 6d 61 6b 65 2d 73 74 72 69 6e 67 20 31 20 72 61 6e 64 6f 6d 5d 20 36 20 22 5c 6e	tor.[make-string.1.random].6."\n
59c0	5c 6e 28 66 6e 20 5f 29 22 20 6d 61 6b 65 2d 73 74 72 69 6e 67 20 39 20 30 20 22 22 5d 20 38 20	\n(fn._)".make-string.9.0.""].8.
59e0	28 23 24 20 2e 20 32 32 35 33 30 29 5d 29 0a 23 40 38 31 35 20 41 64 64 20 63 6f 6d 6d 61 6e 64	(#$...22530)]).#@815.Add.command
5a00	20 68 61 6e 64 6c 65 72 73 20 74 6f 20 54 41 42 4c 45 20 74 6f 20 68 61 6e 64 6c 65 20 74 68 65	.handlers.to.TABLE.to.handle.the
5a20	20 43 54 43 50 20 70 72 6f 74 6f 63 6f 6c 2e 0a 0a 43 6f 6e 6e 65 63 74 69 6f 6e 20 6f 70 74 69	.CTCP.protocol...Connection.opti
5a40	6f 6e 73 20 75 73 65 64 3a 0a 0a 3a 63 74 63 70 2d 76 65 72 73 69 6f 6e 20 2d 2d 20 54 68 65 20	ons.used:..:ctcp-version.--.The.
5a60	72 65 73 70 6f 6e 73 65 20 74 6f 20 61 20 43 54 43 50 20 56 45 52 53 49 4f 4e 20 72 65 71 75 65	response.to.a.CTCP.VERSION.reque
5a80	73 74 2e 0a 3a 63 74 63 70 2d 63 6c 69 65 6e 74 69 6e 66 6f 20 2d 2d 20 54 68 65 20 72 65 73 70	st..:ctcp-clientinfo.--.The.resp
5aa0	6f 6e 73 65 20 74 6f 20 61 20 43 54 43 50 20 43 4c 49 45 4e 54 49 4e 46 4f 20 72 65 71 75 65 73	onse.to.a.CTCP.CLIENTINFO.reques
5ac0	74 2e 0a 3a 63 74 63 70 2d 73 6f 75 72 63 65 20 2d 2d 20 54 68 65 20 72 65 73 70 6f 6e 73 65 20	t..:ctcp-source.--.The.response.
5ae0	74 6f 20 61 20 43 54 43 50 20 53 4f 55 52 43 45 20 72 65 71 75 65 73 74 2e 0a 0a 45 76 65 6e 74	to.a.CTCP.SOURCE.request...Event
5b00	73 20 65 6d 69 74 74 65 64 3a 0a 0a 22 69 72 63 2e 6d 65 73 73 61 67 65 22 20 73 65 6e 64 65 72	s.emitted:.."irc.message".sender
5b20	20 74 61 72 67 65 74 20 62 6f 64 79 20 2d 2d 20 41 20 6e 6f 6e 2d 43 54 43 50 20 50 52 49 56 4d	.target.body.--.A.non-CTCP.PRIVM
5b40	53 47 0a 22 69 72 63 2e 6e 6f 74 69 63 65 22 20 73 65 6e 64 65 72 20 74 61 72 67 65 74 20 62 6f	SG."irc.notice".sender.target.bo
5b60	64 79 20 2d 2d 20 41 20 6e 6f 6e 2d 43 54 43 50 20 4e 4f 54 49 43 45 0a 22 69 72 63 2e 63 74 63	dy.--.A.non-CTCP.NOTICE."irc.ctc
5b80	70 22 20 73 65 6e 64 65 72 20 74 61 72 67 65 74 20 76 65 72 62 20 61 72 67 75 6d 65 6e 74 20 2d	p".sender.target.verb.argument.-
5ba0	2d 20 41 20 43 54 43 50 20 72 65 71 75 65 73 74 2e 20 41 52 47 55 4d 45 4e 54 0a 20 20 63 61 6e	-.A.CTCP.request..ARGUMENT...can
5bc0	20 62 65 20 6e 69 6c 20 69 66 20 74 68 65 72 65 20 77 61 73 20 6e 6f 20 61 72 67 75 6d 65 6e 74	.be.nil.if.there.was.no.argument
5be0	2c 20 6f 72 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 20 69 66 20 74 68 65 0a 20 20 61	,.or.the.empty.string.if.the...a
5c00	72 67 75 6d 65 6e 74 20 77 61 73 20 65 6d 70 74 79 2e 0a 22 69 72 63 2e 63 74 63 70 72 65 70 6c	rgument.was.empty.."irc.ctcprepl
5c20	79 22 20 73 65 6e 64 65 72 20 74 61 72 67 65 74 20 76 65 72 62 20 61 72 67 75 6d 65 6e 74 20 2d	y".sender.target.verb.argument.-
5c40	2d 20 41 20 43 54 43 50 20 72 65 70 6c 79 2e 0a 20 20 41 52 47 55 4d 45 4e 54 20 69 73 20 73 69	-.A.CTCP.reply....ARGUMENT.is.si
5c60	6d 69 6c 61 72 20 74 6f 20 61 62 6f 76 65 2e 0a 22 69 72 63 2e 63 74 63 70 2e 56 45 52 42 22 20	milar.to.above.."irc.ctcp.VERB".
5c80	73 65 6e 64 65 72 20 74 61 72 67 65 74 20 61 72 67 75 6d 65 6e 74 20 2d 2d 20 41 20 43 54 43 50	sender.target.argument.--.A.CTCP
5ca0	20 72 65 71 75 65 73 74 20 6f 66 0a 20 20 74 68 69 73 20 73 70 65 63 69 66 69 63 20 74 79 70 65	.request.of...this.specific.type
5cc0	2e 0a 22 69 72 63 2e 63 74 63 70 72 65 70 6c 79 2e 56 45 52 42 22 20 73 65 6e 64 65 72 20 74 61	.."irc.ctcpreply.VERB".sender.ta
5ce0	72 67 65 74 20 61 72 67 75 6d 65 6e 74 20 2d 2d 20 41 20 43 54 43 50 20 72 65 70 6c 79 20 6f 66	rget.argument.--.A.CTCP.reply.of
5d00	0a 20 20 74 68 69 73 20 73 70 65 63 69 66 69 63 20 74 79 70 65 2e 0a 0a 28 66 6e 20 54 41 42 4c	...this.specific.type...(fn.TABL
5d20	45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 63 74 63 70 20 23	E)..(defalias.'irc-handle-ctcp.#
5d40	5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 23 5c 32 31 30 5c 33 30 30 01 5c 33 30	[257."\300.\301\302#\210\300.\30
5d60	33 5c 33 30 34 23 5c 32 31 30 5c 33 30 30 01 5c 33 30 35 5c 33 30 36 23 5c 32 31 30 5c 33 30 30	3\304#\210\300.\305\306#\210\300
5d80	01 5c 33 30 37 5c 33 31 30 23 5c 32 31 30 5c 33 30 30 01 5c 33 31 31 5c 33 31 32 23 5c 32 31 30	.\307\310#\210\300.\311\312#\210
5da0	5c 33 30 30 01 5c 33 31 33 5c 33 31 34 23 5c 32 31 30 5c 33 30 30 01 5c 33 31 35 5c 33 31 36 23	\300.\313\314#\210\300.\315\316#
5dc0	5c 32 31 30 5c 33 30 30 01 5c 33 31 37 5c 33 32 30 23 5c 32 31 30 5c 33 30 30 01 5c 33 32 31 5c	\210\300.\317\320#\210\300.\321\
5de0	33 32 32 23 5c 32 30 37 22 20 5b 69 72 63 2d 68 61 6e 64 6c 65 72 2d 61 64 64 20 22 50 52 49 56	322#\207".[irc-handler-add."PRIV
5e00	4d 53 47 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 63 74 63 70 2d 2d 70 72 69 76 6d 73 67 20 22 69	MSG".irc-handle-ctcp--privmsg."i
5e20	72 63 2e 63 74 63 70 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 63 74 63 70 2d 2d 63 74 63 70 20 22	rc.ctcp".irc-handle-ctcp--ctcp."
5e40	4e 4f 54 49 43 45 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 63 74 63 70 2d 2d 6e 6f 74 69 63 65 20	NOTICE".irc-handle-ctcp--notice.
5e60	22 69 72 63 2e 63 74 63 70 72 65 70 6c 79 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 63 74 63 70 2d	"irc.ctcpreply".irc-handle-ctcp-
5e80	2d 63 74 63 70 72 65 70 6c 79 20 22 69 72 63 2e 63 74 63 70 2e 56 45 52 53 49 4f 4e 22 20 69 72	-ctcpreply."irc.ctcp.VERSION".ir
5ea0	63 2d 68 61 6e 64 6c 65 2d 63 74 63 70 2d 2d 63 74 63 70 2d 76 65 72 73 69 6f 6e 20 22 69 72 63	c-handle-ctcp--ctcp-version."irc
5ec0	2e 63 74 63 70 2e 43 4c 49 45 4e 54 49 4e 46 4f 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 63 74 63	.ctcp.CLIENTINFO".irc-handle-ctc
5ee0	70 2d 2d 63 74 63 70 2d 63 6c 69 65 6e 74 69 6e 66 6f 20 22 69 72 63 2e 63 74 63 70 2e 53 4f 55	p--ctcp-clientinfo."irc.ctcp.SOU
5f00	52 43 45 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 63 74 63 70 2d 2d 63 74 63 70 2d 73 6f 75 72 63	RCE".irc-handle-ctcp--ctcp-sourc
5f20	65 20 22 69 72 63 2e 63 74 63 70 2e 50 49 4e 47 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 63 74 63	e."irc.ctcp.PING".irc-handle-ctc
5f40	70 2d 2d 63 74 63 70 2d 70 69 6e 67 20 22 69 72 63 2e 63 74 63 70 2e 54 49 4d 45 22 20 69 72 63	p--ctcp-ping."irc.ctcp.TIME".irc
5f60	2d 68 61 6e 64 6c 65 2d 63 74 63 70 2d 2d 63 74 63 70 2d 74 69 6d 65 5d 20 35 20 28 23 24 20 2e	-handle-ctcp--ctcp-time].5.(#$..
5f80	20 32 33 30 32 39 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d	.23029)]).(defalias.'irc-handle-
5fa0	63 74 63 70 2d 2d 70 72 69 76 6d 73 67 20 23 5b 31 32 38 35 20 22 5c 33 30 30 5c 33 30 31 02 5c	ctcp--privmsg.#[1285."\300\301.\
5fc0	22 5c 32 30 33 19 00 5c 33 30 32 05 5c 33 30 33 05 05 5c 33 30 34 5c 33 30 35 06 07 5c 22 5c 33	"\203..\302.\303..\304\305..\"\3
5fe0	30 34 5c 33 30 36 06 08 5c 22 26 06 5c 32 30 37 5c 33 30 32 05 5c 33 30 37 05 05 05 25 5c 32 30	04\306..\"&.\207\302.\307...%\20
6000	37 22 20 5b 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 01 5c 5c 28 5b 5e 20 5d 2b 5c 5c	7".[string-match."\\`.\\([^.]+\\
6020	29 5c 5c 28 3f 3a 20 5c 5c 28 2e 2a 5c 5c 29 5c 5c 29 3f 01 5c 5c 27 22 20 69 72 63 2d 65 76 65	)\\(?:.\\(.*\\)\\)?.\\'".irc-eve
6040	6e 74 2d 65 6d 69 74 20 22 69 72 63 2e 63 74 63 70 22 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20	nt-emit."irc.ctcp".match-string.
6060	31 20 32 20 22 69 72 63 2e 6d 65 73 73 61 67 65 22 5d 20 31 34 20 22 5c 6e 5c 6e 28 66 6e 20 43	1.2."irc.message"].14."\n\n(fn.C
6080	4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 54 41 52 47 45 54 20 42 4f 44 59 29 22 5d 29	ONN.EVENT.SENDER.TARGET.BODY)"])
60a0	0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 63 74 63 70 2d 2d 63 74 63	.(defalias.'irc-handle-ctcp--ctc
60c0	70 20 23 5b 31 35 34 32 20 22 5c 33 30 30 06 06 5c 33 30 31 5c 33 30 32 05 5c 32 32 36 5c 22 06	p.#[1542."\300..\301\302.\226\".
60e0	06 06 06 05 25 5c 32 30 37 22 20 5b 69 72 63 2d 65 76 65 6e 74 2d 65 6d 69 74 20 66 6f 72 6d 61	....%\207".[irc-event-emit.forma
6100	74 20 22 69 72 63 2e 63 74 63 70 2e 25 73 22 5d 20 31 32 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e	t."irc.ctcp.%s"].12."\n\n(fn.CON
6120	4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 54 41 52 47 45 54 20 56 45 52 42 20 41 52 47 55 4d	N.EVENT.SENDER.TARGET.VERB.ARGUM
6140	45 4e 54 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 63 74	ENT)"]).(defalias.'irc-handle-ct
6160	63 70 2d 2d 6e 6f 74 69 63 65 20 23 5b 31 32 38 35 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32	cp--notice.#[1285."\300\301.\"\2
6180	30 33 19 00 5c 33 30 32 05 5c 33 30 33 05 05 5c 33 30 34 5c 33 30 35 06 07 5c 22 5c 33 30 34 5c	03..\302.\303..\304\305..\"\304\
61a0	33 30 36 06 08 5c 22 26 06 5c 32 30 37 5c 33 30 32 05 5c 33 30 37 05 05 05 25 5c 32 30 37 22 20	306..\"&.\207\302.\307...%\207".
61c0	5b 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 01 5c 5c 28 5b 5e 20 5d 2b 5c 5c 29 5c 5c	[string-match."\\`.\\([^.]+\\)\\
61e0	28 3f 3a 20 5c 5c 28 2e 2a 5c 5c 29 5c 5c 29 3f 01 5c 5c 27 22 20 69 72 63 2d 65 76 65 6e 74 2d	(?:.\\(.*\\)\\)?.\\'".irc-event-
6200	65 6d 69 74 20 22 69 72 63 2e 63 74 63 70 72 65 70 6c 79 22 20 6d 61 74 63 68 2d 73 74 72 69 6e	emit."irc.ctcpreply".match-strin
6220	67 20 31 20 32 20 22 69 72 63 2e 6e 6f 74 69 63 65 22 5d 20 31 34 20 22 5c 6e 5c 6e 28 66 6e 20	g.1.2."irc.notice"].14."\n\n(fn.
6240	43 4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 54 41 52 47 45 54 20 42 4f 44 59 29 22 5d	CONN.EVENT.SENDER.TARGET.BODY)"]
6260	29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 63 74 63 70 2d 2d 63 74	).(defalias.'irc-handle-ctcp--ct
6280	63 70 72 65 70 6c 79 20 23 5b 31 35 34 32 20 22 5c 33 30 30 06 06 5c 33 30 31 5c 33 30 32 05 5c	cpreply.#[1542."\300..\301\302.\
62a0	32 32 36 5c 22 06 06 06 06 05 25 5c 32 30 37 22 20 5b 69 72 63 2d 65 76 65 6e 74 2d 65 6d 69 74	226\".....%\207".[irc-event-emit
62c0	20 66 6f 72 6d 61 74 20 22 69 72 63 2e 63 74 63 70 72 65 70 6c 79 2e 25 73 22 5d 20 31 32 20 22	.format."irc.ctcpreply.%s"].12."
62e0	5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 54 41 52 47 45 54	\n\n(fn.CONN.EVENT.SENDER.TARGET
6300	20 56 45 52 42 20 41 52 47 55 4d 45 4e 54 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72	.VERB.ARGUMENT)"]).(defalias.'ir
6320	63 2d 68 61 6e 64 6c 65 2d 63 74 63 70 2d 2d 63 74 63 70 2d 76 65 72 73 69 6f 6e 20 23 5b 31 32	c-handle-ctcp--ctcp-version.#[12
6340	38 35 20 22 5c 33 30 30 05 5c 33 30 31 5c 22 5c 32 31 31 5c 32 30 35 12 00 5c 33 30 32 06 06 5c	85."\300.\301\"\211\205..\302..\
6360	33 30 33 06 06 21 5c 33 30 34 04 24 5c 32 30 37 22 20 5b 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f	303..!\304.$\207".[irc-connectio
6380	6e 2d 67 65 74 20 3a 63 74 63 70 2d 76 65 72 73 69 6f 6e 20 69 72 63 2d 73 65 6e 64 2d 63 74 63	n-get.:ctcp-version.irc-send-ctc
63a0	70 72 65 70 6c 79 20 69 72 63 2d 75 73 65 72 73 74 72 69 6e 67 2d 6e 69 63 6b 20 22 56 45 52 53	preply.irc-userstring-nick."VERS
63c0	49 4f 4e 22 5d 20 31 31 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e	ION"].11."\n\n(fn.CONN.EVENT.SEN
63e0	44 45 52 20 54 41 52 47 45 54 20 41 52 47 55 4d 45 4e 54 29 22 5d 29 0a 28 64 65 66 61 6c 69 61	DER.TARGET.ARGUMENT)"]).(defalia
6400	73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 63 74 63 70 2d 2d 63 74 63 70 2d 63 6c 69 65 6e 74 69	s.'irc-handle-ctcp--ctcp-clienti
6420	6e 66 6f 20 23 5b 31 32 38 35 20 22 5c 33 30 30 05 5c 33 30 31 5c 22 5c 32 31 31 5c 32 30 35 12	nfo.#[1285."\300.\301\"\211\205.
6440	00 5c 33 30 32 06 06 5c 33 30 33 06 06 21 5c 33 30 34 04 24 5c 32 30 37 22 20 5b 69 72 63 2d 63	.\302..\303..!\304.$\207".[irc-c
6460	6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 3a 63 74 63 70 2d 63 6c 69 65 6e 74 69 6e 66 6f 20 69	onnection-get.:ctcp-clientinfo.i
6480	72 63 2d 73 65 6e 64 2d 63 74 63 70 72 65 70 6c 79 20 69 72 63 2d 75 73 65 72 73 74 72 69 6e 67	rc-send-ctcpreply.irc-userstring
64a0	2d 6e 69 63 6b 20 22 43 4c 49 45 4e 54 49 4e 46 4f 22 5d 20 31 31 20 22 5c 6e 5c 6e 28 66 6e 20	-nick."CLIENTINFO"].11."\n\n(fn.
64c0	43 4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 54 41 52 47 45 54 20 41 52 47 55 4d 45 4e	CONN.EVENT.SENDER.TARGET.ARGUMEN
64e0	54 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 63 74 63 70	T)"]).(defalias.'irc-handle-ctcp
6500	2d 2d 63 74 63 70 2d 73 6f 75 72 63 65 20 23 5b 31 32 38 35 20 22 5c 33 30 30 05 5c 33 30 31 5c	--ctcp-source.#[1285."\300.\301\
6520	22 5c 32 31 31 5c 32 30 35 12 00 5c 33 30 32 06 06 5c 33 30 33 06 06 21 5c 33 30 34 04 24 5c 32	"\211\205..\302..\303..!\304.$\2
6540	30 37 22 20 5b 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 3a 63 74 63 70 2d 73 6f	07".[irc-connection-get.:ctcp-so
6560	75 72 63 65 20 69 72 63 2d 73 65 6e 64 2d 63 74 63 70 72 65 70 6c 79 20 69 72 63 2d 75 73 65 72	urce.irc-send-ctcpreply.irc-user
6580	73 74 72 69 6e 67 2d 6e 69 63 6b 20 22 53 4f 55 52 43 45 22 5d 20 31 31 20 22 5c 6e 5c 6e 28 66	string-nick."SOURCE"].11."\n\n(f
65a0	6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 54 41 52 47 45 54 20 41 52 47 55 4d	n.CONN.EVENT.SENDER.TARGET.ARGUM
65c0	45 4e 54 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 63 74	ENT)"]).(defalias.'irc-handle-ct
65e0	63 70 2d 2d 63 74 63 70 2d 70 69 6e 67 20 23 5b 31 32 38 35 20 22 5c 32 31 31 5c 32 30 35 5c 66	cp--ctcp-ping.#[1285."\211\205\f
6600	00 5c 33 30 30 05 5c 33 30 31 05 21 5c 33 30 32 04 24 5c 32 30 37 22 20 5b 69 72 63 2d 73 65 6e	.\300.\301.!\302.$\207".[irc-sen
6620	64 2d 63 74 63 70 72 65 70 6c 79 20 69 72 63 2d 75 73 65 72 73 74 72 69 6e 67 2d 6e 69 63 6b 20	d-ctcpreply.irc-userstring-nick.
6640	22 50 49 4e 47 22 5d 20 31 30 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53	"PING"].10."\n\n(fn.CONN.EVENT.S
6660	45 4e 44 45 52 20 54 41 52 47 45 54 20 41 52 47 55 4d 45 4e 54 29 22 5d 29 0a 28 64 65 66 61 6c	ENDER.TARGET.ARGUMENT)"]).(defal
6680	69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 63 74 63 70 2d 2d 63 74 63 70 2d 74 69 6d 65 20	ias.'irc-handle-ctcp--ctcp-time.
66a0	23 5b 31 32 38 35 20 22 5c 33 30 30 05 5c 33 30 31 05 21 5c 33 30 32 5c 33 30 33 20 24 5c 32 30	#[1285."\300.\301.!\302\303.$\20
66c0	37 22 20 5b 69 72 63 2d 73 65 6e 64 2d 63 74 63 70 72 65 70 6c 79 20 69 72 63 2d 75 73 65 72 73	7".[irc-send-ctcpreply.irc-users
66e0	74 72 69 6e 67 2d 6e 69 63 6b 20 22 54 49 4d 45 22 20 63 75 72 72 65 6e 74 2d 74 69 6d 65 2d 73	tring-nick."TIME".current-time-s
6700	74 72 69 6e 67 5d 20 31 30 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53 45	tring].10."\n\n(fn.CONN.EVENT.SE
6720	4e 44 45 52 20 54 41 52 47 45 54 20 41 52 47 55 4d 45 4e 54 29 22 5d 29 0a 23 40 31 30 35 20 53	NDER.TARGET.ARGUMENT)"]).#@105.S
6740	65 6e 64 20 61 20 43 54 43 50 20 56 45 52 42 20 72 65 71 75 65 73 74 20 74 6f 20 54 41 52 47 45	end.a.CTCP.VERB.request.to.TARGE
6760	54 2c 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 77 69 74 68 20 41 52 47 55 4d 45 4e 54 2e 0a 0a 28 66	T,.optionally.with.ARGUMENT...(f
6780	6e 20 43 4f 4e 4e 20 54 41 52 47 45 54 20 56 45 52 42 20 26 6f 70 74 69 6f 6e 61 6c 20 41 52 47	n.CONN.TARGET.VERB.&optional.ARG
67a0	55 4d 45 4e 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 63 74 63 70	UMENT)..(defalias.'irc-send-ctcp
67c0	20 23 5b 31 30 32 37 20 22 5c 33 30 30 04 04 5c 33 30 31 5c 33 30 32 06 06 06 06 5c 32 30 33 13	.#[1027."\300..\301\302....\203.
67e0	00 5c 33 30 33 06 07 50 5c 32 30 32 14 00 5c 33 30 34 23 23 5c 32 30 37 22 20 5b 69 72 63 2d 73	.\303..P\202..\304##\207".[irc-s
6800	65 6e 64 2d 50 52 49 56 4d 53 47 20 66 6f 72 6d 61 74 20 22 01 25 73 25 73 01 22 20 22 20 22 20	end-PRIVMSG.format.".%s%s.".".".
6820	22 22 5d 20 31 32 20 28 23 24 20 2e 20 32 36 34 33 31 29 5d 29 0a 23 40 31 30 33 20 53 65 6e 64	""].12.(#$...26431)]).#@103.Send
6840	20 61 20 43 54 43 50 20 56 45 52 42 20 72 65 70 6c 79 20 74 6f 20 54 41 52 47 45 54 2c 20 6f 70	.a.CTCP.VERB.reply.to.TARGET,.op
6860	74 69 6f 6e 61 6c 6c 79 20 77 69 74 68 20 41 52 47 55 4d 45 4e 54 2e 0a 0a 28 66 6e 20 43 4f 4e	tionally.with.ARGUMENT...(fn.CON
6880	4e 20 54 41 52 47 45 54 20 56 45 52 42 20 26 6f 70 74 69 6f 6e 61 6c 20 41 52 47 55 4d 45 4e 54	N.TARGET.VERB.&optional.ARGUMENT
68a0	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 73 65 6e 64 2d 63 74 63 70 72 65 70 6c 79	)..(defalias.'irc-send-ctcpreply
68c0	20 23 5b 31 30 32 37 20 22 5c 33 30 30 04 5c 33 30 31 5c 33 30 32 06 06 5c 33 30 33 5c 33 30 34	.#[1027."\300.\301\302..\303\304
68e0	06 08 06 08 5c 32 30 33 16 00 5c 33 30 35 06 09 50 5c 32 30 32 17 00 5c 33 30 36 23 23 5c 33 30	....\203..\305..P\202..\306##\30
6900	37 23 5c 32 30 37 22 20 5b 69 72 63 2d 73 65 6e 64 2d 72 61 77 20 69 72 63 2d 2d 66 6f 72 6d 61	7#\207".[irc-send-raw.irc--forma
6920	74 2d 63 6f 6d 6d 61 6e 64 20 22 4e 4f 54 49 43 45 22 20 66 6f 72 6d 61 74 20 22 01 25 73 25 73	t-command."NOTICE".format.".%s%s
6940	01 22 20 22 20 22 20 22 22 20 3a 64 72 6f 70 5d 20 31 34 20 28 23 24 20 2e 20 32 36 36 38 34 29	."."."."".:drop].14.(#$...26684)
6960	5d 29 0a 23 40 33 38 36 20 41 64 64 20 63 6f 6d 6d 61 6e 64 20 68 61 6e 64 6c 65 72 73 20 74 6f	]).#@386.Add.command.handlers.to
6980	20 54 41 42 4c 45 20 74 6f 20 74 72 61 63 6b 20 74 68 65 20 49 52 43 20 73 74 61 74 65 2e 0a 0a	.TABLE.to.track.the.IRC.state...
69a0	43 6f 6e 6e 65 63 74 69 6f 6e 20 6f 70 74 69 6f 6e 73 20 75 73 65 64 3a 0a 0a 3a 63 75 72 72 65	Connection.options.used:..:curre
69c0	6e 74 2d 6e 69 63 6b 20 2d 2d 20 54 68 65 20 63 75 72 72 65 6e 74 20 6e 69 63 6b 2c 20 6f 72 20	nt-nick.--.The.current.nick,.or.
69e0	6e 69 6c 20 69 66 20 6e 6f 74 20 6b 6e 6f 77 6e 2f 73 65 74 20 79 65 74 2e 0a 0a 55 73 65 20 68	nil.if.not.known/set.yet...Use.h
6a00	65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 20 61 63 63 65 73 73 20 74 68 65 20 69 6e	elper.functions.to.access.the.in
6a20	66 6f 72 6d 61 74 69 6f 6e 20 74 72 61 63 6b 65 64 20 62 79 20 74 68 69 73 0a 68 61 6e 64 6c 65	formation.tracked.by.this.handle
6a40	72 3a 0a 0a 2d 20 60 69 72 63 2d 63 75 72 72 65 6e 74 2d 6e 69 63 6b 27 0a 2d 20 60 69 72 63 2d	r:..-.`irc-current-nick'.-.`irc-
6a60	63 75 72 72 65 6e 74 2d 6e 69 63 6b 2d 70 27 0a 0a 45 76 65 6e 74 73 20 65 6d 69 74 74 65 64 3a	current-nick-p'..Events.emitted:
6a80	0a 0a 22 63 68 61 6e 6e 65 6c 2e 71 75 69 74 22 20 73 65 6e 64 65 72 20 63 68 61 6e 6e 65 6c 20	.."channel.quit".sender.channel.
6aa0	72 65 61 73 6f 6e 20 2d 2d 20 41 20 75 73 65 72 20 71 75 69 74 20 49 52 43 20 61 6e 64 0a 20 20	reason.--.A.user.quit.IRC.and...
6ac0	20 20 6c 65 66 74 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 20 74 68 61 74 20 77 61 79 2e 0a 0a 28	..left.this.channel.that.way...(
6ae0	66 6e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65	fn.TABLE)..(defalias.'irc-handle
6b00	2d 73 74 61 74 65 2d 74 72 61 63 6b 69 6e 67 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31	-state-tracking.#[257."\300.\301
6b20	5c 33 30 32 23 5c 32 31 30 5c 33 30 30 01 5c 33 30 33 5c 33 30 34 23 5c 32 31 30 5c 33 30 30 01	\302#\210\300.\303\304#\210\300.
6b40	5c 33 30 35 5c 33 30 36 23 5c 32 31 30 5c 33 30 30 01 5c 33 30 37 5c 33 31 30 23 5c 32 31 30 5c	\305\306#\210\300.\307\310#\210\
6b60	33 30 30 01 5c 33 31 31 5c 33 31 32 23 5c 32 31 30 5c 33 30 30 01 5c 33 31 33 5c 33 31 34 23 5c	300.\311\312#\210\300.\313\314#\
6b80	32 31 30 5c 33 30 30 01 5c 33 31 35 5c 33 31 36 23 5c 32 31 30 5c 33 30 30 01 5c 33 31 37 5c 33	210\300.\315\316#\210\300.\317\3
6ba0	32 30 23 5c 32 31 30 5c 33 30 30 01 5c 33 32 31 5c 33 32 32 23 5c 32 31 30 5c 33 30 30 01 5c 33	20#\210\300.\321\322#\210\300.\3
6bc0	32 33 5c 33 32 34 23 5c 32 31 30 5c 33 30 30 01 5c 33 32 35 5c 33 32 36 23 5c 32 31 30 5c 33 30	23\324#\210\300.\325\326#\210\30
6be0	30 01 5c 33 32 37 5c 33 33 30 23 5c 32 30 37 22 20 5b 69 72 63 2d 68 61 6e 64 6c 65 72 2d 61 64	0.\327\330#\207".[irc-handler-ad
6c00	64 20 22 30 30 31 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74 61 74 65 2d 74 72 61 63 6b 69 6e	d."001".irc-handle-state-trackin
6c20	67 2d 2d 72 70 6c 2d 77 65 6c 63 6f 6d 65 20 22 4a 4f 49 4e 22 20 69 72 63 2d 68 61 6e 64 6c 65	g--rpl-welcome."JOIN".irc-handle
6c40	2d 73 74 61 74 65 2d 74 72 61 63 6b 69 6e 67 2d 2d 4a 4f 49 4e 20 22 50 41 52 54 22 20 69 72 63	-state-tracking--JOIN."PART".irc
6c60	2d 68 61 6e 64 6c 65 2d 73 74 61 74 65 2d 74 72 61 63 6b 69 6e 67 2d 2d 50 41 52 54 20 22 4b 49	-handle-state-tracking--PART."KI
6c80	43 4b 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74 61 74 65 2d 74 72 61 63 6b 69 6e 67 2d 2d 4b	CK".irc-handle-state-tracking--K
6ca0	49 43 4b 20 22 51 55 49 54 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74 61 74 65 2d 74 72 61 63	ICK."QUIT".irc-handle-state-trac
6cc0	6b 69 6e 67 2d 2d 51 55 49 54 20 22 4e 49 43 4b 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74 61	king--QUIT."NICK".irc-handle-sta
6ce0	74 65 2d 74 72 61 63 6b 69 6e 67 2d 2d 4e 49 43 4b 20 22 50 52 49 56 4d 53 47 22 20 69 72 63 2d	te-tracking--NICK."PRIVMSG".irc-
6d00	68 61 6e 64 6c 65 2d 73 74 61 74 65 2d 74 72 61 63 6b 69 6e 67 2d 2d 50 52 49 56 4d 53 47 20 22	handle-state-tracking--PRIVMSG."
6d20	33 35 33 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74 61 74 65 2d 74 72 61 63 6b 69 6e 67 2d 2d	353".irc-handle-state-tracking--
6d40	72 70 6c 2d 6e 61 6d 72 65 70 6c 79 20 22 33 36 36 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74	rpl-namreply."366".irc-handle-st
6d60	61 74 65 2d 74 72 61 63 6b 69 6e 67 2d 2d 72 70 6c 2d 65 6e 64 6f 66 6e 61 6d 65 73 20 22 54 4f	ate-tracking--rpl-endofnames."TO
6d80	50 49 43 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74 61 74 65 2d 74 72 61 63 6b 69 6e 67 2d 2d	PIC".irc-handle-state-tracking--
6da0	54 4f 50 49 43 20 22 33 33 31 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74 61 74 65 2d 74 72 61	TOPIC."331".irc-handle-state-tra
6dc0	63 6b 69 6e 67 2d 2d 72 70 6c 2d 6e 6f 74 6f 70 69 63 20 22 33 33 32 22 20 69 72 63 2d 68 61 6e	cking--rpl-notopic."332".irc-han
6de0	64 6c 65 2d 73 74 61 74 65 2d 74 72 61 63 6b 69 6e 67 2d 2d 72 70 6c 2d 74 6f 70 69 63 5d 20 35	dle-state-tracking--rpl-topic].5
6e00	20 28 23 24 20 2e 20 32 36 39 38 35 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63	.(#$...26985)]).(defalias.'irc-c
6e20	68 61 6e 6e 65 6c 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 31	hannel-p--cmacro.#[514."\300\301
6e40	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 64	\302\303\211\211..&.\207".[cl--d
6e60	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 20	efsubst-expand.(cl-x).(cl-block.
6e80	69 72 63 2d 63 68 61 6e 6e 65 6c 2d 70 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66	irc-channel-p.(declare.(side-eff
6ea0	65 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	ect-free.error-free)).(and.(vect
6ec0	6f 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 39 29 20 28	orp.cl-x).(>=.(length.cl-x).9).(
6ee0	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 69 72 63	memq.(aref.cl-x.0).cl-struct-irc
6f00	2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 29 20 74 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28	-channel-tags).t)).nil].9."\n\n(
6f20	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 69	fn.CL-WHOLE-ARG.CL-X)"]).(put.'i
6f40	72 63 2d 63 68 61 6e 6e 65 6c 2d 70 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 69 72	rc-channel-p.'compiler-macro.'ir
6f60	63 2d 63 68 61 6e 6e 65 6c 2d 70 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27	c-channel-p--cmacro).(defalias.'
6f80	69 72 63 2d 63 68 61 6e 6e 65 6c 2d 70 20 23 5b 32 35 37 20 22 5c 33 30 31 01 21 5c 32 30 35 16	irc-channel-p.#[257."\301.!\205.
6fa0	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 48 08 3e 5c 32 30 35	.\211G\302Y\205..\211\303H.>\205
6fc0	16 00 5c 33 30 34 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e	..\304\207".[cl-struct-irc-chann
6fe0	65 6c 2d 74 61 67 73 20 76 65 63 74 6f 72 70 20 39 20 30 20 74 5d 20 33 20 22 5c 6e 5c 6e 28 66	el-tags.vectorp.9.0.t].3."\n\n(f
7000	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 5c 33 30 31 5c	n.CL-X)"]).(byte-code."\300\301\
7020	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 33 30 31 23 5c 32 30	302\303#\210\304\305\306\301#\20
7040	37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 70 20 73	7".[function-put.irc-channel-p.s
7060	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 20 70 75 74 20 69	ide-effect-free.error-free.put.i
7080	72 63 2d 63 68 61 6e 6e 65 6c 20 63 6c 2d 64 65 66 74 79 70 65 2d 73 61 74 69 73 66 69 65 73 5d	rc-channel.cl-deftype-satisfies]
70a0	20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 6e 61 6d 65 2d	.4).(defalias.'irc-channel-name-
70c0	2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c	-cmacro.#[514."\300\301\302\303\
70e0	32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65	211\211..&.\207".[cl--defsubst-e
7100	78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 69 72 63 2d 63 68 61 6e 6e	xpand.(cl-x).(cl-block.irc-chann
7120	65 6c 2d 6e 61 6d 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	el-name.(declare.(side-effect-fr
7140	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 78	ee.t)).(or.(and.(memq.(aref.cl-x
7160	20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 29 29	.0).cl-struct-irc-channel-tags))
7180	20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c	.(signal.'wrong-type-argument.(l
71a0	69 73 74 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63	ist.'irc-channel.cl-x))).(aref.c
71c0	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 4c 2d 57 48 4f 4c 45	l-x.1)).nil].9."\n\n(fn.CL-WHOLE
71e0	2d 41 52 47 20 43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d	-ARG.CL-X)"]).(put.'irc-channel-
7200	6e 61 6d 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 69 72 63 2d 63 68 61 6e 6e 65	name.'compiler-macro.'irc-channe
7220	6c 2d 6e 61 6d 65 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63	l-name--cmacro).(defalias.'irc-c
7240	68 61 6e 6e 65 6c 2d 6e 61 6d 65 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32	hannel-name.#[257."\211\301H.>\2
7260	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 30 35	04..\302\303\304.D\"\210\211\305
7280	48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61	H\207".[cl-struct-irc-channel-ta
72a0	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.
72c0	69 72 63 2d 63 68 61 6e 6e 65 6c 20 31 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22	irc-channel.1].5."\n\n(fn.CL-X)"
72e0	5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 6e 61	]).(function-put.'irc-channel-na
7300	6d 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 61	me.'side-effect-free.t).(defalia
7320	73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 6f 70 69 63 2d 2d 63 6d 61 63 72 6f 20 23 5b 35	s.'irc-channel-topic--cmacro.#[5
7340	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..&.
7360	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
7380	29 20 28 63 6c 2d 62 6c 6f 63 6b 20 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 6f 70 69 63 20 28 64	).(cl-block.irc-channel-topic.(d
73a0	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
73c0	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
73e0	75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27	uct-irc-channel-tags)).(signal.'
7400	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 69 72 63 2d 63	wrong-type-argument.(list.'irc-c
7420	68 61 6e 6e 65 6c 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	hannel.cl-x))).(aref.cl-x.2)).ni
7440	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 2d 58 29	l].9."\n\n(fn.CL-WHOLE-ARG.CL-X)
7460	22 5d 29 0a 28 70 75 74 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 6f 70 69 63 20 27 63 6f 6d	"]).(put.'irc-channel-topic.'com
7480	70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 6f 70 69 63 2d 2d	piler-macro.'irc-channel-topic--
74a0	63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74	cmacro).(defalias.'irc-channel-t
74c0	6f 70 69 63 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	opic.#[257."\211\301H.>\204..\30
74e0	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".
7500	5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 20 30 20 73 69	[cl-struct-irc-channel-tags.0.si
7520	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 69 72 63 2d 63 68 61	gnal.wrong-type-argument.irc-cha
7540	6e 6e 65 6c 20 32 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	nnel.2].5."\n\n(fn.CL-X)"]).(fun
7560	63 74 69 6f 6e 2d 70 75 74 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 6f 70 69 63 20 27 73 69	ction-put.'irc-channel-topic.'si
7580	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 69 72 63	de-effect-free.t).(defalias.'irc
75a0	2d 63 68 61 6e 6e 65 6c 2d 6c 61 73 74 2d 74 6f 70 69 63 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31	-channel-last-topic--cmacro.#[51
75c0	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 5c	4."\300\301\302\303\211\211..&.\
75e0	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 29	207".[cl--defsubst-expand.(cl-x)
7600	20 28 63 6c 2d 62 6c 6f 63 6b 20 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 6c 61 73 74 2d 74 6f 70 69	.(cl-block.irc-channel-last-topi
7620	63 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	c.(declare.(side-effect-free.t))
7640	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 20 63 6c	.(or.(and.(memq.(aref.cl-x.0).cl
7660	2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 29 29 20 28 73 69 67 6e	-struct-irc-channel-tags)).(sign
7680	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 69	al.'wrong-type-argument.(list.'i
76a0	72 63 2d 63 68 61 6e 6e 65 6c 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 33 29	rc-channel.cl-x))).(aref.cl-x.3)
76c0	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 43	).nil].9."\n\n(fn.CL-WHOLE-ARG.C
76e0	4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 6c 61 73 74 2d 74	L-X)"]).(put.'irc-channel-last-t
7700	6f 70 69 63 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 69 72 63 2d 63 68 61 6e 6e 65	opic.'compiler-macro.'irc-channe
7720	6c 2d 6c 61 73 74 2d 74 6f 70 69 63 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20	l-last-topic--cmacro).(defalias.
7740	27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 6c 61 73 74 2d 74 6f 70 69 63 20 23 5b 32 35 37 20 22 5c	'irc-channel-last-topic.#[257."\
7760	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 44 5c 22	211\301H.>\204..\302\303\304.D\"
7780	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 2d 69 72	\210\211\305H\207".[cl-struct-ir
77a0	63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79	c-channel-tags.0.signal.wrong-ty
77c0	70 65 2d 61 72 67 75 6d 65 6e 74 20 69 72 63 2d 63 68 61 6e 6e 65 6c 20 33 5d 20 35 20 22 5c 6e	pe-argument.irc-channel.3].5."\n
77e0	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 69 72	\n(fn.CL-X)"]).(function-put.'ir
7800	63 2d 63 68 61 6e 6e 65 6c 2d 6c 61 73 74 2d 74 6f 70 69 63 20 27 73 69 64 65 2d 65 66 66 65 63	c-channel-last-topic.'side-effec
7820	74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c	t-free.t).(defalias.'irc-channel
7840	2d 66 6f 6c 64 65 64 2d 6e 61 6d 65 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30	-folded-name--cmacro.#[514."\300
7860	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
7880	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
78a0	6f 63 6b 20 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 66 6f 6c 64 65 64 2d 6e 61 6d 65 20 28 64 65 63	ock.irc-channel-folded-name.(dec
78c0	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 28	lare.(side-effect-free.t)).(or.(
78e0	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 63	and.(memq.(aref.cl-x.0).cl-struc
7900	74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77 72	t-irc-channel-tags)).(signal.'wr
7920	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 69 72 63 2d 63 68 61	ong-type-argument.(list.'irc-cha
7940	6e 6e 65 6c 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 34 29 29 20 6e 69 6c 5d	nnel.cl-x))).(aref.cl-x.4)).nil]
7960	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 5d	.9."\n\n(fn.CL-WHOLE-ARG.CL-X)"]
7980	29 0a 28 70 75 74 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 66 6f 6c 64 65 64 2d 6e 61 6d 65 20	).(put.'irc-channel-folded-name.
79a0	27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 66 6f 6c	'compiler-macro.'irc-channel-fol
79c0	64 65 64 2d 6e 61 6d 65 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63	ded-name--cmacro).(defalias.'irc
79e0	2d 63 68 61 6e 6e 65 6c 2d 66 6f 6c 64 65 64 2d 6e 61 6d 65 20 23 5b 32 35 37 20 22 5c 32 31 31	-channel-folded-name.#[257."\211
7a00	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
7a20	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 69 72 63 2d 63	0\211\305H\207".[cl-struct-irc-c
7a40	68 61 6e 6e 65 6c 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	hannel-tags.0.signal.wrong-type-
7a60	61 72 67 75 6d 65 6e 74 20 69 72 63 2d 63 68 61 6e 6e 65 6c 20 34 5d 20 35 20 22 5c 6e 5c 6e 28	argument.irc-channel.4].5."\n\n(
7a80	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 69 72 63 2d 63	fn.CL-X)"]).(function-put.'irc-c
7aa0	68 61 6e 6e 65 6c 2d 66 6f 6c 64 65 64 2d 6e 61 6d 65 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d	hannel-folded-name.'side-effect-
7ac0	66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 75	free.t).(defalias.'irc-channel-u
7ae0	73 65 72 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 30 32	sers--cmacro.#[514."\300\301\302
7b00	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 73 75	\303\211\211..&.\207".[cl--defsu
7b20	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 69 72 63 2d	bst-expand.(cl-x).(cl-block.irc-
7b40	63 68 61 6e 6e 65 6c 2d 75 73 65 72 73 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66	channel-users.(declare.(side-eff
7b60	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 65	ect-free.t)).(or.(and.(memq.(are
7b80	66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d	f.cl-x.0).cl-struct-irc-channel-
7ba0	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
7bc0	65 6e 74 20 28 6c 69 73 74 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 20 63 6c 2d 78 29 29 29 20 28	ent.(list.'irc-channel.cl-x))).(
7be0	61 72 65 66 20 63 6c 2d 78 20 35 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c	aref.cl-x.5)).nil].9."\n\n(fn.CL
7c00	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 69 72 63 2d 63 68	-WHOLE-ARG.CL-X)"]).(put.'irc-ch
7c20	61 6e 6e 65 6c 2d 75 73 65 72 73 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 69 72 63	annel-users.'compiler-macro.'irc
7c40	2d 63 68 61 6e 6e 65 6c 2d 75 73 65 72 73 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61	-channel-users--cmacro).(defalia
7c60	73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 75 73 65 72 73 20 23 5b 32 35 37 20 22 5c 32 31 31	s.'irc-channel-users.#[257."\211
7c80	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
7ca0	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 69 72 63 2d 63	0\211\305H\207".[cl-struct-irc-c
7cc0	68 61 6e 6e 65 6c 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	hannel-tags.0.signal.wrong-type-
7ce0	61 72 67 75 6d 65 6e 74 20 69 72 63 2d 63 68 61 6e 6e 65 6c 20 35 5d 20 35 20 22 5c 6e 5c 6e 28	argument.irc-channel.5].5."\n\n(
7d00	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 69 72 63 2d 63	fn.CL-X)"]).(function-put.'irc-c
7d20	68 61 6e 6e 65 6c 2d 75 73 65 72 73 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74	hannel-users.'side-effect-free.t
7d40	29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 72 65 63 65 6e 74 2d	).(defalias.'irc-channel-recent-
7d60	75 73 65 72 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 30	users--cmacro.#[514."\300\301\30
7d80	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 73	2\303\211\211..&.\207".[cl--defs
7da0	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 69 72 63	ubst-expand.(cl-x).(cl-block.irc
7dc0	2d 63 68 61 6e 6e 65 6c 2d 72 65 63 65 6e 74 2d 75 73 65 72 73 20 28 64 65 63 6c 61 72 65 20 28	-channel-recent-users.(declare.(
7de0	73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 20 28 6d	side-effect-free.t)).(or.(and.(m
7e00	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 69 72 63 2d	emq.(aref.cl-x.0).cl-struct-irc-
7e20	63 68 61 6e 6e 65 6c 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	channel-tags)).(signal.'wrong-ty
7e40	70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 20 63	pe-argument.(list.'irc-channel.c
7e60	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 5d 20 39 20 22 5c 6e	l-x))).(aref.cl-x.6)).nil].9."\n
7e80	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 74	\n(fn.CL-WHOLE-ARG.CL-X)"]).(put
7ea0	20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 72 65 63 65 6e 74 2d 75 73 65 72 73 20 27 63 6f 6d 70	.'irc-channel-recent-users.'comp
7ec0	69 6c 65 72 2d 6d 61 63 72 6f 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 72 65 63 65 6e 74 2d 75	iler-macro.'irc-channel-recent-u
7ee0	73 65 72 73 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 68 61	sers--cmacro).(defalias.'irc-cha
7f00	6e 6e 65 6c 2d 72 65 63 65 6e 74 2d 75 73 65 72 73 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30	nnel-recent-users.#[257."\211\30
7f20	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
7f40	31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e	11\305H\207".[cl-struct-irc-chan
7f60	6e 65 6c 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	nel-tags.0.signal.wrong-type-arg
7f80	75 6d 65 6e 74 20 69 72 63 2d 63 68 61 6e 6e 65 6c 20 36 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20	ument.irc-channel.6].5."\n\n(fn.
7fa0	43 4c 2d 58 29 22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 69 72 63 2d 63 68 61 6e	CL-X)"]).(function-put.'irc-chan
7fc0	6e 65 6c 2d 72 65 63 65 6e 74 2d 75 73 65 72 73 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72	nel-recent-users.'side-effect-fr
7fe0	65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 72 65 63	ee.t).(defalias.'irc-channel-rec
8000	65 69 76 69 6e 67 2d 6e 61 6d 65 73 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30	eiving-names--cmacro.#[514."\300
8020	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
8040	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
8060	6f 63 6b 20 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 72 65 63 65 69 76 69 6e 67 2d 6e 61 6d 65 73 20	ock.irc-channel-receiving-names.
8080	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)).(
80a0	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
80c0	74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c	truct-irc-channel-tags)).(signal
80e0	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 69 72 63	.'wrong-type-argument.(list.'irc
8100	2d 63 68 61 6e 6e 65 6c 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 37 29 29 20	-channel.cl-x))).(aref.cl-x.7)).
8120	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 2d	nil].9."\n\n(fn.CL-WHOLE-ARG.CL-
8140	58 29 22 5d 29 0a 28 70 75 74 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 72 65 63 65 69 76 69 6e	X)"]).(put.'irc-channel-receivin
8160	67 2d 6e 61 6d 65 73 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 69 72 63 2d 63 68 61	g-names.'compiler-macro.'irc-cha
8180	6e 6e 65 6c 2d 72 65 63 65 69 76 69 6e 67 2d 6e 61 6d 65 73 2d 2d 63 6d 61 63 72 6f 29 0a 28 64	nnel-receiving-names--cmacro).(d
81a0	65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 72 65 63 65 69 76 69 6e 67 2d 6e	efalias.'irc-channel-receiving-n
81c0	61 6d 65 73 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	ames.#[257."\211\301H.>\204..\30
81e0	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".
8200	5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 20 30 20 73 69	[cl-struct-irc-channel-tags.0.si
8220	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 69 72 63 2d 63 68 61	gnal.wrong-type-argument.irc-cha
8240	6e 6e 65 6c 20 37 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	nnel.7].5."\n\n(fn.CL-X)"]).(fun
8260	63 74 69 6f 6e 2d 70 75 74 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 72 65 63 65 69 76 69 6e 67	ction-put.'irc-channel-receiving
8280	2d 6e 61 6d 65 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	-names.'side-effect-free.t).(def
82a0	61 6c 69 61 73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 2d 63	alias.'irc-channel-connection--c
82c0	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 31	macro.#[514."\300\301\302\303\21
82e0	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 70	1\211..&.\207".[cl--defsubst-exp
8300	61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 69 72 63 2d 63 68 61 6e 6e 65 6c	and.(cl-x).(cl-block.irc-channel
8320	2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63	-connection.(declare.(side-effec
8340	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 65 66 20	t-free.t)).(or.(and.(memq.(aref.
8360	63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61	cl-x.0).cl-struct-irc-channel-ta
8380	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 6e	gs)).(signal.'wrong-type-argumen
83a0	74 20 28 6c 69 73 74 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 20 63 6c 2d 78 29 29 29 20 28 61 72	t.(list.'irc-channel.cl-x))).(ar
83c0	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 4c 2d 57	ef.cl-x.8)).nil].9."\n\n(fn.CL-W
83e0	48 4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27 69 72 63 2d 63 68 61 6e	HOLE-ARG.CL-X)"]).(put.'irc-chan
8400	6e 65 6c 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27	nel-connection.'compiler-macro.'
8420	69 72 63 2d 63 68 61 6e 6e 65 6c 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 2d 63 6d 61 63 72 6f 29 0a	irc-channel-connection--cmacro).
8440	28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 63 6f 6e 6e 65 63 74 69 6f	(defalias.'irc-channel-connectio
8460	6e 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33	n.#[257."\211\301H.>\204..\302\3
8480	30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c	03\304.D\"\210\211\305H\207".[cl
84a0	2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 20 30 20 73 69 67 6e 61	-struct-irc-channel-tags.0.signa
84c0	6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 69 72 63 2d 63 68 61 6e 6e 65	l.wrong-type-argument.irc-channe
84e0	6c 20 38 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	l.8].5."\n\n(fn.CL-X)"]).(byte-c
8500	6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33	ode."\300\301\302\303#\210\304\3
8520	30 35 5c 33 30 36 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 69 72 63 2d	05\306\"\207".[function-put.irc-
8540	63 68 61 6e 6e 65 6c 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66	channel-connection.side-effect-f
8560	72 65 65 20 74 20 64 65 66 61 6c 69 61 73 20 63 6f 70 79 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 20	ree.t.defalias.copy-irc-channel.
8580	63 6f 70 79 2d 73 65 71 75 65 6e 63 65 5d 20 34 29 0a 23 40 31 31 32 20 0a 0a 28 66 6e 20 43 4c	copy-sequence].4).#@112...(fn.CL
85a0	2d 57 48 4f 4c 45 20 26 63 6c 2d 71 75 6f 74 65 20 26 6b 65 79 20 4e 41 4d 45 20 54 4f 50 49 43	-WHOLE.&cl-quote.&key.NAME.TOPIC
85c0	20 4c 41 53 54 2d 54 4f 50 49 43 20 46 4f 4c 44 45 44 2d 4e 41 4d 45 20 55 53 45 52 53 20 52 45	.LAST-TOPIC.FOLDED-NAME.USERS.RE
85e0	43 45 4e 54 2d 55 53 45 52 53 20 52 45 43 45 49 56 49 4e 47 2d 4e 41 4d 45 53 20 43 4f 4e 4e 45	CENT-USERS.RECEIVING-NAMES.CONNE
8600	43 54 49 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6d 61 6b 65 2d 69 72 63 2d 63 68 61 6e	CTION)..(defalias.'make-irc-chan
8620	6e 65 6c 2d 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 41 40	nel--cmacro.#[385."\300.\301\"A@
8640	5c 33 30 30 02 5c 33 30 32 5c 22 41 40 5c 33 30 30 03 5c 33 30 33 5c 22 41 40 5c 33 30 30 04 5c	\300.\302\"A@\300.\303\"A@\300.\
8660	33 30 34 5c 22 41 40 5c 33 30 30 05 5c 33 30 35 5c 22 41 40 5c 33 30 30 06 06 5c 33 30 36 5c 22	304\"A@\300.\305\"A@\300..\306\"
8680	41 40 5c 33 30 30 06 07 5c 33 30 37 5c 22 41 40 5c 33 30 30 06 08 5c 33 31 30 5c 22 41 40 06 08	A@\300..\307\"A@\300..\310\"A@..
86a0	5c 32 31 31 5c 32 30 33 60 00 5c 32 31 31 40 5c 33 31 31 3e 5c 32 30 33 48 00 5c 32 31 31 41 41	\211\203`.\211@\311>\203H.\211AA
86c0	5c 32 36 32 01 5c 32 30 32 35 00 5c 33 31 32 06 5c 6e 3e 41 40 5c 32 30 33 57 00 5c 33 31 33 5c	\262.\2025.\312.\n>A@\203W.\313\
86e0	32 36 32 01 5c 32 30 32 35 00 5c 33 31 34 5c 33 31 35 02 40 5c 22 5c 32 31 30 5c 32 30 32 35 00	262.\2025.\314\315.@\"\210\2025.
8700	5c 32 31 30 5c 33 31 36 5c 33 31 37 5c 33 32 30 5c 33 31 33 06 0d 5c 33 31 33 06 0d 06 0d 06 0d	\210\316\317\320\313..\313......
8720	06 0d 06 0d 06 0d 06 0d 06 0d 26 0d 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 6d 65 6d 62 65 72 20	..........&.\207".[plist-member.
8740	3a 6e 61 6d 65 20 3a 74 6f 70 69 63 20 3a 6c 61 73 74 2d 74 6f 70 69 63 20 3a 66 6f 6c 64 65 64	:name.:topic.:last-topic.:folded
8760	2d 6e 61 6d 65 20 3a 75 73 65 72 73 20 3a 72 65 63 65 6e 74 2d 75 73 65 72 73 20 3a 72 65 63 65	-name.:users.:recent-users.:rece
8780	69 76 69 6e 67 2d 6e 61 6d 65 73 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 3a 6e 61 6d 65 20 3a	iving-names.:connection.(:name.:
87a0	74 6f 70 69 63 20 3a 6c 61 73 74 2d 74 6f 70 69 63 20 3a 66 6f 6c 64 65 64 2d 6e 61 6d 65 20 3a	topic.:last-topic.:folded-name.:
87c0	75 73 65 72 73 20 3a 72 65 63 65 6e 74 2d 75 73 65 72 73 20 3a 72 65 63 65 69 76 69 6e 67 2d 6e	users.:recent-users.:receiving-n
87e0	61 6d 65 73 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65	ames.:connection.:allow-other-ke
8800	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 72 20	ys).:allow-other-keys.nil.error.
8820	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 66 20	"Keyword.argument.%s.not.one.of.
8840	28 3a 6e 61 6d 65 20 3a 74 6f 70 69 63 20 3a 6c 61 73 74 2d 74 6f 70 69 63 20 3a 66 6f 6c 64 65	(:name.:topic.:last-topic.:folde
8860	64 2d 6e 61 6d 65 20 3a 75 73 65 72 73 20 3a 72 65 63 65 6e 74 2d 75 73 65 72 73 20 3a 72 65 63	d-name.:users.:recent-users.:rec
8880	65 69 76 69 6e 67 2d 6e 61 6d 65 73 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 29 22 20 63 6c 2d 2d 64	eiving-names.:connection)".cl--d
88a0	65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 6e 61 6d 65 20 74 6f 70 69 63 20 6c 61 73 74 2d	efsubst-expand.(name.topic.last-
88c0	74 6f 70 69 63 20 66 6f 6c 64 65 64 2d 6e 61 6d 65 20 75 73 65 72 73 20 72 65 63 65 6e 74 2d 75	topic.folded-name.users.recent-u
88e0	73 65 72 73 20 72 65 63 65 69 76 69 6e 67 2d 6e 61 6d 65 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 29	sers.receiving-names.connection)
8900	20 28 63 6c 2d 62 6c 6f 63 6b 20 6d 61 6b 65 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 20 22 43 6f 6e	.(cl-block.make-irc-channel."Con
8920	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 69 72	structor.for.objects.of.type.`ir
8940	63 2d 63 68 61 6e 6e 65 6c 27 2e 22 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65	c-channel'.".(declare.(side-effe
8960	63 74 2d 66 72 65 65 20 74 29 29 20 28 76 65 63 74 6f 72 20 27 63 6c 2d 73 74 72 75 63 74 2d 69	ct-free.t)).(vector.'cl-struct-i
8980	72 63 2d 63 68 61 6e 6e 65 6c 20 6e 61 6d 65 20 74 6f 70 69 63 20 6c 61 73 74 2d 74 6f 70 69 63	rc-channel.name.topic.last-topic
89a0	20 66 6f 6c 64 65 64 2d 6e 61 6d 65 20 75 73 65 72 73 20 72 65 63 65 6e 74 2d 75 73 65 72 73 20	.folded-name.users.recent-users.
89c0	72 65 63 65 69 76 69 6e 67 2d 6e 61 6d 65 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 5d 20 32 34	receiving-names.connection))].24
89e0	20 28 23 24 20 2e 20 33 34 32 30 30 29 5d 29 0a 28 70 75 74 20 27 6d 61 6b 65 2d 69 72 63 2d 63	.(#$...34200)]).(put.'make-irc-c
8a00	68 61 6e 6e 65 6c 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 6d 61 6b 65 2d 69 72 63	hannel.'compiler-macro.'make-irc
8a20	2d 63 68 61 6e 6e 65 6c 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 31 33 39 20 43 6f 6e 73 74 72 75 63	-channel--cmacro).#@139.Construc
8a40	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 69 72 63 2d 63 68 61	tor.for.objects.of.type.`irc-cha
8a60	6e 6e 65 6c 27 2e 0a 0a 28 66 6e 20 26 6b 65 79 20 4e 41 4d 45 20 54 4f 50 49 43 20 4c 41 53 54	nnel'...(fn.&key.NAME.TOPIC.LAST
8a80	2d 54 4f 50 49 43 20 46 4f 4c 44 45 44 2d 4e 41 4d 45 20 55 53 45 52 53 20 52 45 43 45 4e 54 2d	-TOPIC.FOLDED-NAME.USERS.RECENT-
8aa0	55 53 45 52 53 20 52 45 43 45 49 56 49 4e 47 2d 4e 41 4d 45 53 20 43 4f 4e 4e 45 43 54 49 4f 4e	USERS.RECEIVING-NAMES.CONNECTION
8ac0	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6d 61 6b 65 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 20 23	)..(defalias.'make-irc-channel.#
8ae0	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@
8b00	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 5c 33 30 30 05 5c	\300.\303\"A@\300.\304\"A@\300.\
8b20	33 30 35 5c 22 41 40 5c 33 30 30 06 06 5c 33 30 36 5c 22 41 40 5c 33 30 30 06 07 5c 33 30 37 5c	305\"A@\300..\306\"A@\300..\307\
8b40	22 41 40 5c 33 30 30 06 08 5c 33 31 30 5c 22 41 40 06 08 5c 32 31 31 5c 32 30 33 60 00 5c 32 31	"A@\300..\310\"A@..\211\203`.\21
8b60	31 40 5c 33 31 31 3e 5c 32 30 33 48 00 5c 32 31 31 41 41 5c 32 36 32 01 5c 32 30 32 35 00 5c 33	1@\311>\203H.\211AA\262.\2025.\3
8b80	31 32 06 5c 6e 3e 41 40 5c 32 30 33 57 00 5c 33 31 33 5c 32 36 32 01 5c 32 30 32 35 00 5c 33 31	12.\n>A@\203W.\313\262.\2025.\31
8ba0	34 5c 33 31 35 02 40 5c 22 5c 32 31 30 5c 32 30 32 35 00 5c 32 31 30 5c 33 31 36 5c 33 31 37 06	4\315.@\"\210\2025.\210\316\317.
8bc0	09 06 09 06 09 06 09 06 09 06 09 06 09 06 09 26 09 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 6d 65	...............&.\207".[plist-me
8be0	6d 62 65 72 20 3a 6e 61 6d 65 20 3a 74 6f 70 69 63 20 3a 6c 61 73 74 2d 74 6f 70 69 63 20 3a 66	mber.:name.:topic.:last-topic.:f
8c00	6f 6c 64 65 64 2d 6e 61 6d 65 20 3a 75 73 65 72 73 20 3a 72 65 63 65 6e 74 2d 75 73 65 72 73 20	olded-name.:users.:recent-users.
8c20	3a 72 65 63 65 69 76 69 6e 67 2d 6e 61 6d 65 73 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 3a 6e	:receiving-names.:connection.(:n
8c40	61 6d 65 20 3a 74 6f 70 69 63 20 3a 6c 61 73 74 2d 74 6f 70 69 63 20 3a 66 6f 6c 64 65 64 2d 6e	ame.:topic.:last-topic.:folded-n
8c60	61 6d 65 20 3a 75 73 65 72 73 20 3a 72 65 63 65 6e 74 2d 75 73 65 72 73 20 3a 72 65 63 65 69 76	ame.:users.:recent-users.:receiv
8c80	69 6e 67 2d 6e 61 6d 65 73 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 20 3a 61 6c 6c 6f 77 2d 6f 74 68	ing-names.:connection.:allow-oth
8ca0	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 69 6c 20 65	er-keys).:allow-other-keys.nil.e
8cc0	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 6e	rror."Keyword.argument.%s.not.on
8ce0	65 20 6f 66 20 28 3a 6e 61 6d 65 20 3a 74 6f 70 69 63 20 3a 6c 61 73 74 2d 74 6f 70 69 63 20 3a	e.of.(:name.:topic.:last-topic.:
8d00	66 6f 6c 64 65 64 2d 6e 61 6d 65 20 3a 75 73 65 72 73 20 3a 72 65 63 65 6e 74 2d 75 73 65 72 73	folded-name.:users.:recent-users
8d20	20 3a 72 65 63 65 69 76 69 6e 67 2d 6e 61 6d 65 73 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 29 22 20	.:receiving-names.:connection)".
8d40	76 65 63 74 6f 72 20 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 5d 20 31 39	vector.cl-struct-irc-channel].19
8d60	20 28 23 24 20 2e 20 33 35 33 38 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	.(#$...35384)]).(byte-code."\300
8d80	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 33 30	\301\302\303#\210\304\305\306\30
8da0	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 37 22	7\306\211\310\311\312\303&.\207"
8dc0	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6d 61 6b 65 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 20	.[function-put.make-irc-channel.
8de0	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 63 74 2d 64 65 66	side-effect-free.t.cl-struct-def
8e00	69 6e 65 20 69 72 63 2d 63 68 61 6e 6e 65 6c 20 6e 69 6c 20 63 6c 2d 73 74 72 75 63 74 75 72 65	ine.irc-channel.nil.cl-structure
8e20	2d 6f 62 6a 65 63 74 20 28 28 63 6c 2d 74 61 67 2d 73 6c 6f 74 29 20 28 6e 61 6d 65 29 20 28 74	-object.((cl-tag-slot).(name).(t
8e40	6f 70 69 63 29 20 28 6c 61 73 74 2d 74 6f 70 69 63 29 20 28 66 6f 6c 64 65 64 2d 6e 61 6d 65 29	opic).(last-topic).(folded-name)
8e60	20 28 75 73 65 72 73 29 20 28 72 65 63 65 6e 74 2d 75 73 65 72 73 29 20 28 72 65 63 65 69 76 69	.(users).(recent-users).(receivi
8e80	6e 67 2d 6e 61 6d 65 73 29 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 20 63 6c 2d 73 74 72 75 63	ng-names).(connection)).cl-struc
8ea0	74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 20 63 6c 2d 73 74 72 75 63 74 2d 69 72 63	t-irc-channel-tags.cl-struct-irc
8ec0	2d 63 68 61 6e 6e 65 6c 5d 20 31 30 29 0a 23 40 37 30 20 43 72 65 61 74 65 20 61 20 6e 65 77 20	-channel].10).#@70.Create.a.new.
8ee0	49 52 43 20 63 68 61 6e 6e 65 6c 20 6f 62 6a 65 63 74 20 6f 6e 20 43 4f 4e 4e 2c 20 6e 61 6d 65	IRC.channel.object.on.CONN,.name
8f00	64 20 4e 41 4d 45 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 4e 41 4d 45 29 1f 0a 28 64 65 66 61 6c 69	d.NAME...(fn.CONN.NAME)..(defali
8f20	61 73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 66 72 6f 6d 2d 6e 61 6d 65 20 23 5b 35 31 34 20	as.'irc-channel-from-name.#[514.
8f40	22 5c 33 30 30 5c 33 30 31 02 5c 33 30 32 5c 33 30 33 06 06 06 06 5c 22 5c 33 30 34 5c 33 30 35	"\300\301.\302\303....\"\304\305
8f60	5c 33 30 36 5c 33 30 37 5c 22 5c 33 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 22 5c 33 31 31	\306\307\"\310\305\306\307\"\311
8f80	06 0b 26 5c 6e 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 20 3a 6e 61	..&\n\207".[make-irc-channel.:na
8fa0	6d 65 20 3a 66 6f 6c 64 65 64 2d 6e 61 6d 65 20 69 72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 63 61	me.:folded-name.irc-isupport--ca
8fc0	73 65 2d 66 6f 6c 64 20 3a 75 73 65 72 73 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a	se-fold.:users.make-hash-table.:
8fe0	74 65 73 74 20 65 71 75 61 6c 20 3a 72 65 63 65 6e 74 2d 75 73 65 72 73 20 3a 63 6f 6e 6e 65 63	test.equal.:recent-users.:connec
9000	74 69 6f 6e 5d 20 31 33 20 28 23 24 20 2e 20 33 36 35 36 33 29 5d 29 0a 23 40 37 37 20 52 65 74	tion].13.(#$...36563)]).#@77.Ret
9020	75 72 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 6f 62 6a 65 63 74 20 66 6f 72 20 43 48 41 4e 4e	urn.the.channel.object.for.CHANN
9040	45 4c 2d 4e 41 4d 45 20 6f 6e 20 43 4f 4e 4e 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 43 48 41 4e 4e	EL-NAME.on.CONN...(fn.CONN.CHANN
9060	45 4c 2d 4e 41 4d 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 6f 6e 6e 65 63 74	EL-NAME)..(defalias.'irc-connect
9080	69 6f 6e 2d 63 68 61 6e 6e 65 6c 20 23 5b 35 31 34 20 22 5c 33 30 30 02 21 5c 33 30 31 03 03 5c	ion-channel.#[514."\300.!\301..\
90a0	22 5c 33 30 32 01 03 5c 22 5c 32 30 37 22 20 5b 69 72 63 2d 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d	"\302..\"\207".[irc--connection-
90c0	63 68 61 6e 6e 65 6c 2d 74 61 62 6c 65 20 69 72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 63 61 73 65	channel-table.irc-isupport--case
90e0	2d 66 6f 6c 64 20 67 65 74 68 61 73 68 5d 20 37 20 28 23 24 20 2e 20 33 36 38 39 33 29 5d 29 0a	-fold.gethash].7.(#$...36893)]).
9100	23 40 35 35 20 52 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20	#@55.Return.the.list.of.channel.
9120	6f 62 6a 65 63 74 20 6f 6e 20 43 4f 4e 4e 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 29 1f 0a 28 64 65 66	object.on.CONN...(fn.CONN)..(def
9140	61 6c 69 61 73 20 27 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 68 61 6e 6e 65 6c 2d 6c 69	alias.'irc-connection-channel-li
9160	73 74 20 23 5b 32 35 37 20 22 5c 33 30 30 43 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c	st.#[257."\300C\301\302\303\304\
9180	33 30 35 5c 33 30 36 06 06 21 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 5c 33 31 32 04 21 5c	305\306..!\307\"\310\311%\312.!\
91a0	22 5c 32 31 30 5c 32 31 31 5c 32 34 32 5c 32 30 37 22 20 5b 6e 69 6c 20 6d 61 70 68 61 73 68 20	"\210\211\242\207".[nil.maphash.
91c0	6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33 30 30 01 5c 33 30 30 5c 32 34	make-byte-code.514."\300.\300\24
91e0	32 42 5c 32 34 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 35 20	2B\240\207".vconcat.vector.[].5.
9200	22 5c 6e 5c 6e 28 66 6e 20 46 4f 4c 44 45 44 2d 4e 41 4d 45 20 43 48 41 4e 4e 45 4c 29 22 20 69	"\n\n(fn.FOLDED-NAME.CHANNEL)".i
9220	72 63 2d 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 68 61 6e 6e 65 6c 2d 74 61 62 6c 65 5d 20 39 20	rc--connection-channel-table].9.
9240	28 23 24 20 2e 20 33 37 31 32 35 29 5d 29 0a 23 40 37 32 20 41 64 64 20 43 48 41 4e 4e 45 4c 2d	(#$...37125)]).#@72.Add.CHANNEL-
9260	4e 41 4d 45 20 74 6f 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 74 61 62 6c 65 20 6f 66 20 43 4f 4e	NAME.to.the.channel.table.of.CON
9280	4e 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 43 48 41 4e 4e 45 4c 2d 4e 41 4d 45 29 1f 0a 28 64 65 66	N...(fn.CONN.CHANNEL-NAME)..(def
92a0	61 6c 69 61 73 20 27 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 61 64 64 2d 63 68 61 6e 6e 65	alias.'irc-connection-add-channe
92c0	6c 20 23 5b 35 31 34 20 22 5c 33 30 31 02 21 5c 33 30 32 03 03 5c 22 5c 32 31 31 5c 33 30 33 48	l.#[514."\301.!\302..\"\211\303H
92e0	08 3e 5c 32 30 34 16 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
9300	5c 33 30 37 48 5c 33 31 30 01 04 5c 22 3f 5c 32 30 35 26 00 5c 33 31 31 01 03 05 23 5c 32 30 37	\307H\310..\"?\205&.\311...#\207
9320	22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 20 69 72	".[cl-struct-irc-channel-tags.ir
9340	63 2d 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 68 61 6e 6e 65 6c 2d 74 61 62 6c 65 20 69 72 63 2d	c--connection-channel-table.irc-
9360	63 68 61 6e 6e 65 6c 2d 66 72 6f 6d 2d 6e 61 6d 65 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67	channel-from-name.0.signal.wrong
9380	2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 69 72 63 2d 63 68 61 6e 6e 65 6c 20 34 20 67 65 74	-type-argument.irc-channel.4.get
93a0	68 61 73 68 20 70 75 74 68 61 73 68 5d 20 39 20 28 23 24 20 2e 20 33 37 34 36 30 29 5d 29 0a 23	hash.puthash].9.(#$...37460)]).#
93c0	40 37 37 20 52 65 6d 6f 76 65 20 43 48 41 4e 4e 45 4c 2d 4e 41 4d 45 20 66 72 6f 6d 20 74 68 65	@77.Remove.CHANNEL-NAME.from.the
93e0	20 63 68 61 6e 6e 65 6c 20 74 61 62 6c 65 20 6f 66 20 43 4f 4e 4e 2e 0a 0a 28 66 6e 20 43 4f 4e	.channel.table.of.CONN...(fn.CON
9400	4e 20 43 48 41 4e 4e 45 4c 2d 4e 41 4d 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d	N.CHANNEL-NAME)..(defalias.'irc-
9420	63 6f 6e 6e 65 63 74 69 6f 6e 2d 72 65 6d 6f 76 65 2d 63 68 61 6e 6e 65 6c 20 23 5b 35 31 34 20	connection-remove-channel.#[514.
9440	22 5c 33 30 30 02 21 5c 33 30 31 03 03 5c 22 5c 33 30 32 01 03 5c 22 5c 32 30 37 22 20 5b 69 72	"\300.!\301..\"\302..\"\207".[ir
9460	63 2d 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 68 61 6e 6e 65 6c 2d 74 61 62 6c 65 20 69 72 63 2d	c--connection-channel-table.irc-
9480	69 73 75 70 70 6f 72 74 2d 2d 63 61 73 65 2d 66 6f 6c 64 20 72 65 6d 68 61 73 68 5d 20 37 20 28	isupport--case-fold.remhash].7.(
94a0	23 24 20 2e 20 33 37 38 32 38 29 5d 29 0a 23 40 38 33 20 52 65 74 75 72 6e 20 74 68 65 20 63 75	#$...37828)]).#@83.Return.the.cu
94c0	72 72 65 6e 74 20 6e 69 63 6b 20 6f 6e 20 49 52 43 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 43 4f 4e	rrent.nick.on.IRC.connection.CON
94e0	4e 2c 20 6f 72 20 6e 69 6c 20 69 66 20 6e 6f 74 20 73 65 74 20 79 65 74 2e 0a 0a 28 66 6e 20 43	N,.or.nil.if.not.set.yet...(fn.C
9500	4f 4e 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 75 72 72 65 6e 74 2d 6e 69 63	ONN)..(defalias.'irc-current-nic
9520	6b 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 69 72 63 2d 63	k.#[257."\300.\301\"\207".[irc-c
9540	6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 3a 63 75 72 72 65 6e 74 2d 6e 69 63 6b 5d 20 34 20 28	onnection-get.:current-nick].4.(
9560	23 24 20 2e 20 33 38 30 36 37 29 5d 29 0a 23 40 37 38 20 52 65 74 75 72 6e 20 74 20 69 66 20 4e	#$...38067)]).#@78.Return.t.if.N
9580	49 43 4b 20 69 73 20 6f 75 72 20 63 75 72 72 65 6e 74 20 6e 69 63 6b 20 6f 6e 20 49 52 43 20 63	ICK.is.our.current.nick.on.IRC.c
95a0	6f 6e 6e 65 63 74 69 6f 6e 20 43 4f 4e 4e 2e 0a 0a 28 66 6e 20 43 4f 4e 4e 20 4e 49 43 4b 29 1f	onnection.CONN...(fn.CONN.NICK).
95c0	0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 75 72 72 65 6e 74 2d 6e 69 63 6b 2d 70 20 23	.(defalias.'irc-current-nick-p.#
95e0	5b 35 31 34 20 22 5c 33 30 30 02 21 01 3b 5c 32 30 35 12 00 5c 32 31 31 3b 5c 32 30 35 12 00 5c	[514."\300.!.;\205..\211;\205..\
9600	33 30 31 03 02 04 23 5c 32 30 37 22 20 5b 69 72 63 2d 63 75 72 72 65 6e 74 2d 6e 69 63 6b 20 69	301...#\207".[irc-current-nick.i
9620	72 63 2d 73 74 72 69 6e 67 2d 65 71 75 61 6c 2d 70 5d 20 37 20 28 23 24 20 2e 20 33 38 32 35 39	rc-string-equal-p].7.(#$...38259
9640	29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63	)]).(defalias.'irc--connection-c
9660	68 61 6e 6e 65 6c 2d 74 61 62 6c 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c	hannel-table.#[257."\300.\301\"\
9680	32 31 31 5c 32 30 34 14 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 22 5c 32 36 32 01 5c 33 30 35	211\204..\302\303\304\"\262.\305
96a0	02 5c 33 30 31 03 23 5c 32 31 30 5c 32 31 31 5c 32 30 37 22 20 5b 69 72 63 2d 63 6f 6e 6e 65 63	.\301.#\210\211\207".[irc-connec
96c0	74 69 6f 6e 2d 67 65 74 20 3a 63 68 61 6e 6e 65 6c 2d 74 61 62 6c 65 20 6d 61 6b 65 2d 68 61 73	tion-get.:channel-table.make-has
96e0	68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 65 71 75 61 6c 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69	h-table.:test.equal.irc-connecti
9700	6f 6e 2d 70 75 74 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 29 22 5d 29 0a 28 64 65 66	on-put].6."\n\n(fn.CONN)"]).(def
9720	61 6c 69 61 73 20 27 69 72 63 2d 75 73 65 72 2d 70 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20	alias.'irc-user-p--cmacro.#[514.
9740	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 5c 32 30	"\300\301\302\303\211\211..&.\20
9760	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 29 20 28	7".[cl--defsubst-expand.(cl-x).(
9780	63 6c 2d 62 6c 6f 63 6b 20 69 72 63 2d 75 73 65 72 2d 70 20 28 64 65 63 6c 61 72 65 20 28 73 69	cl-block.irc-user-p.(declare.(si
97a0	64 65 2d 65 66 66 65 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	de-effect-free.error-free)).(and
97c0	20 28 76 65 63 74 6f 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	.(vectorp.cl-x).(>=.(length.cl-x
97e0	29 20 38 29 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	).8).(memq.(aref.cl-x.0).cl-stru
9800	63 74 2d 69 72 63 2d 75 73 65 72 2d 74 61 67 73 29 20 74 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e	ct-irc-user-tags).t)).nil].9."\n
9820	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 74	\n(fn.CL-WHOLE-ARG.CL-X)"]).(put
9840	20 27 69 72 63 2d 75 73 65 72 2d 70 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 69 72	.'irc-user-p.'compiler-macro.'ir
9860	63 2d 75 73 65 72 2d 70 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63	c-user-p--cmacro).(defalias.'irc
9880	2d 75 73 65 72 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	-user-p.#[257."\301.!\205..\211G
98a0	5c 33 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	\302Y\205..\211\303H.>\205..\304
98c0	5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 75 73 65 72 2d 74 61 67 73 20 76	\207".[cl-struct-irc-user-tags.v
98e0	65 63 74 6f 72 70 20 38 20 30 20 74 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d	ectorp.8.0.t].3."\n\n(fn.CL-X)"]
9900	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#\
9920	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
9940	69 6f 6e 2d 70 75 74 20 69 72 63 2d 75 73 65 72 2d 70 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66	ion-put.irc-user-p.side-effect-f
9960	72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 20 70 75 74 20 69 72 63 2d 75 73 65 72 20 63 6c 2d 64	ree.error-free.put.irc-user.cl-d
9980	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 20 27	eftype-satisfies].4).(defalias.'
99a0	69 72 63 2d 75 73 65 72 2d 6e 69 63 6b 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30	irc-user-nick--cmacro.#[514."\30
99c0	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 5b	0\301\302\303\211\211..&.\207".[
99e0	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 62	cl--defsubst-expand.(cl-x).(cl-b
9a00	6c 6f 63 6b 20 69 72 63 2d 75 73 65 72 2d 6e 69 63 6b 20 28 64 65 63 6c 61 72 65 20 28 73 69 64	lock.irc-user-nick.(declare.(sid
9a20	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
9a40	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 69 72 63 2d 75 73 65	.(aref.cl-x.0).cl-struct-irc-use
9a60	72 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	r-tags)).(signal.'wrong-type-arg
9a80	75 6d 65 6e 74 20 28 6c 69 73 74 20 27 69 72 63 2d 75 73 65 72 20 63 6c 2d 78 29 29 29 20 28 61	ument.(list.'irc-user.cl-x))).(a
9aa0	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 4c 2d	ref.cl-x.1)).nil].9."\n\n(fn.CL-
9ac0	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 69 72 63 2d 75 73 65	WHOLE-ARG.CL-X)"]).(put.'irc-use
9ae0	72 2d 6e 69 63 6b 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 69 72 63 2d 75 73 65 72	r-nick.'compiler-macro.'irc-user
9b00	2d 6e 69 63 6b 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 75 73	-nick--cmacro).(defalias.'irc-us
9b20	65 72 2d 6e 69 63 6b 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	er-nick.#[257."\211\301H.>\204..
9b40	5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30	\302\303\304.D\"\210\211\305H\20
9b60	37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 75 73 65 72 2d 74 61 67 73 20 30 20 73 69	7".[cl-struct-irc-user-tags.0.si
9b80	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 69 72 63 2d 75 73 65	gnal.wrong-type-argument.irc-use
9ba0	72 20 31 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d 29 0a 28 66 75 6e 63 74 69	r.1].5."\n\n(fn.CL-X)"]).(functi
9bc0	6f 6e 2d 70 75 74 20 27 69 72 63 2d 75 73 65 72 2d 6e 69 63 6b 20 27 73 69 64 65 2d 65 66 66 65	on-put.'irc-user-nick.'side-effe
9be0	63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 75 73 65 72 2d 66	ct-free.t).(defalias.'irc-user-f
9c00	6f 6c 64 65 64 2d 6e 69 63 6b 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33	olded-nick--cmacro.#[514."\300\3
9c20	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 6c 2d	01\302\303\211\211..&.\207".[cl-
9c40	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 6f 63	-defsubst-expand.(cl-x).(cl-bloc
9c60	6b 20 69 72 63 2d 75 73 65 72 2d 66 6f 6c 64 65 64 2d 6e 69 63 6b 20 28 64 65 63 6c 61 72 65 20	k.irc-user-folded-nick.(declare.
9c80	28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 20 28	(side-effect-free.t)).(or.(and.(
9ca0	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 69 72 63	memq.(aref.cl-x.0).cl-struct-irc
9cc0	2d 75 73 65 72 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	-user-tags)).(signal.'wrong-type
9ce0	2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 69 72 63 2d 75 73 65 72 20 63 6c 2d 78 29 29	-argument.(list.'irc-user.cl-x))
9d00	29 20 28 61 72 65 66 20 63 6c 2d 78 20 32 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e	).(aref.cl-x.2)).nil].9."\n\n(fn
9d20	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 69 72 63	.CL-WHOLE-ARG.CL-X)"]).(put.'irc
9d40	2d 75 73 65 72 2d 66 6f 6c 64 65 64 2d 6e 69 63 6b 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72	-user-folded-nick.'compiler-macr
9d60	6f 20 27 69 72 63 2d 75 73 65 72 2d 66 6f 6c 64 65 64 2d 6e 69 63 6b 2d 2d 63 6d 61 63 72 6f 29	o.'irc-user-folded-nick--cmacro)
9d80	0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 75 73 65 72 2d 66 6f 6c 64 65 64 2d 6e 69 63 6b	.(defalias.'irc-user-folded-nick
9da0	20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30	.#[257."\211\301H.>\204..\302\30
9dc0	33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d	3\304.D\"\210\211\305H\207".[cl-
9de0	73 74 72 75 63 74 2d 69 72 63 2d 75 73 65 72 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72	struct-irc-user-tags.0.signal.wr
9e00	6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 69 72 63 2d 75 73 65 72 20 32 5d 20 35 20	ong-type-argument.irc-user.2].5.
9e20	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 20	"\n\n(fn.CL-X)"]).(function-put.
9e40	27 69 72 63 2d 75 73 65 72 2d 66 6f 6c 64 65 64 2d 6e 69 63 6b 20 27 73 69 64 65 2d 65 66 66 65	'irc-user-folded-nick.'side-effe
9e60	63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 75 73 65 72 2d 75	ct-free.t).(defalias.'irc-user-u
9e80	73 65 72 68 6f 73 74 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	serhost--cmacro.#[514."\300\301\
9ea0	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
9ec0	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 69	fsubst-expand.(cl-x).(cl-block.i
9ee0	72 63 2d 75 73 65 72 2d 75 73 65 72 68 6f 73 74 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d	rc-user-userhost.(declare.(side-
9f00	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.(
9f20	61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 75 73 65 72 2d	aref.cl-x.0).cl-struct-irc-user-
9f40	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
9f60	65 6e 74 20 28 6c 69 73 74 20 27 69 72 63 2d 75 73 65 72 20 63 6c 2d 78 29 29 29 20 28 61 72 65	ent.(list.'irc-user.cl-x))).(are
9f80	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 57 48	f.cl-x.3)).nil].9."\n\n(fn.CL-WH
9fa0	4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27 69 72 63 2d 75 73 65 72 2d	OLE-ARG.CL-X)"]).(put.'irc-user-
9fc0	75 73 65 72 68 6f 73 74 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 69 72 63 2d 75 73	userhost.'compiler-macro.'irc-us
9fe0	65 72 2d 75 73 65 72 68 6f 73 74 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27	er-userhost--cmacro).(defalias.'
a000	69 72 63 2d 75 73 65 72 2d 75 73 65 72 68 6f 73 74 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30	irc-user-userhost.#[257."\211\30
a020	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
a040	31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 75 73 65 72	11\305H\207".[cl-struct-irc-user
a060	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 6d 65	-tags.0.signal.wrong-type-argume
a080	6e 74 20 69 72 63 2d 75 73 65 72 20 33 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22	nt.irc-user.3].5."\n\n(fn.CL-X)"
a0a0	5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 69 72 63 2d 75 73 65 72 2d 75 73 65 72 68	]).(function-put.'irc-user-userh
a0c0	6f 73 74 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	ost.'side-effect-free.t).(defali
a0e0	61 73 20 27 69 72 63 2d 75 73 65 72 2d 6a 6f 69 6e 2d 74 69 6d 65 2d 2d 63 6d 61 63 72 6f 20 23	as.'irc-user-join-time--cmacro.#
a100	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..
a120	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
a140	2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 69 72 63 2d 75 73 65 72 2d 6a 6f 69 6e 2d 74 69 6d 65	-x).(cl-block.irc-user-join-time
a160	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)).
a180	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-
a1a0	73 74 72 75 63 74 2d 69 72 63 2d 75 73 65 72 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27	struct-irc-user-tags)).(signal.'
a1c0	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 69 72 63 2d 75	wrong-type-argument.(list.'irc-u
a1e0	73 65 72 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 34 29 29 20 6e 69 6c 5d 20	ser.cl-x))).(aref.cl-x.4)).nil].
a200	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)"])
a220	0a 28 70 75 74 20 27 69 72 63 2d 75 73 65 72 2d 6a 6f 69 6e 2d 74 69 6d 65 20 27 63 6f 6d 70 69	.(put.'irc-user-join-time.'compi
a240	6c 65 72 2d 6d 61 63 72 6f 20 27 69 72 63 2d 75 73 65 72 2d 6a 6f 69 6e 2d 74 69 6d 65 2d 2d 63	ler-macro.'irc-user-join-time--c
a260	6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 75 73 65 72 2d 6a 6f 69 6e 2d	macro).(defalias.'irc-user-join-
a280	74 69 6d 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	time.#[257."\211\301H.>\204..\30
a2a0	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".
a2c0	5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 75 73 65 72 2d 74 61 67 73 20 30 20 73 69 67 6e 61	[cl-struct-irc-user-tags.0.signa
a2e0	6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 69 72 63 2d 75 73 65 72 20 34	l.wrong-type-argument.irc-user.4
a300	5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d	].5."\n\n(fn.CL-X)"]).(function-
a320	70 75 74 20 27 69 72 63 2d 75 73 65 72 2d 6a 6f 69 6e 2d 74 69 6d 65 20 27 73 69 64 65 2d 65 66	put.'irc-user-join-time.'side-ef
a340	66 65 63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 75 73 65 72	fect-free.t).(defalias.'irc-user
a360	2d 6c 61 73 74 2d 61 63 74 69 76 69 74 79 2d 74 69 6d 65 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31	-last-activity-time--cmacro.#[51
a380	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 5c	4."\300\301\302\303\211\211..&.\
a3a0	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 29	207".[cl--defsubst-expand.(cl-x)
a3c0	20 28 63 6c 2d 62 6c 6f 63 6b 20 69 72 63 2d 75 73 65 72 2d 6c 61 73 74 2d 61 63 74 69 76 69 74	.(cl-block.irc-user-last-activit
a3e0	79 2d 74 69 6d 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	y-time.(declare.(side-effect-fre
a400	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.
a420	30 29 20 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 75 73 65 72 2d 74 61 67 73 29 29 20 28 73 69	0).cl-struct-irc-user-tags)).(si
a440	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.
a460	27 69 72 63 2d 75 73 65 72 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 35 29 29	'irc-user.cl-x))).(aref.cl-x.5))
a480	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
a4a0	2d 58 29 22 5d 29 0a 28 70 75 74 20 27 69 72 63 2d 75 73 65 72 2d 6c 61 73 74 2d 61 63 74 69 76	-X)"]).(put.'irc-user-last-activ
a4c0	69 74 79 2d 74 69 6d 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 69 72 63 2d 75 73	ity-time.'compiler-macro.'irc-us
a4e0	65 72 2d 6c 61 73 74 2d 61 63 74 69 76 69 74 79 2d 74 69 6d 65 2d 2d 63 6d 61 63 72 6f 29 0a 28	er-last-activity-time--cmacro).(
a500	64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 75 73 65 72 2d 6c 61 73 74 2d 61 63 74 69 76 69 74 79	defalias.'irc-user-last-activity
a520	2d 74 69 6d 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	-time.#[257."\211\301H.>\204..\3
a540	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 22	02\303\304.D\"\210\211\305H\207"
a560	20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 75 73 65 72 2d 74 61 67 73 20 30 20 73 69 67 6e	.[cl-struct-irc-user-tags.0.sign
a580	61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 69 72 63 2d 75 73 65 72 20	al.wrong-type-argument.irc-user.
a5a0	35 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e	5].5."\n\n(fn.CL-X)"]).(function
a5c0	2d 70 75 74 20 27 69 72 63 2d 75 73 65 72 2d 6c 61 73 74 2d 61 63 74 69 76 69 74 79 2d 74 69 6d	-put.'irc-user-last-activity-tim
a5e0	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 61 73	e.'side-effect-free.t).(defalias
a600	20 27 69 72 63 2d 75 73 65 72 2d 70 61 72 74 2d 74 69 6d 65 2d 2d 63 6d 61 63 72 6f 20 23 5b 35	.'irc-user-part-time--cmacro.#[5
a620	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..&.
a640	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
a660	29 20 28 63 6c 2d 62 6c 6f 63 6b 20 69 72 63 2d 75 73 65 72 2d 70 61 72 74 2d 74 69 6d 65 20 28	).(cl-block.irc-user-part-time.(
a680	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
a6a0	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
a6c0	72 75 63 74 2d 69 72 63 2d 75 73 65 72 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77 72	ruct-irc-user-tags)).(signal.'wr
a6e0	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 69 72 63 2d 75 73 65	ong-type-argument.(list.'irc-use
a700	72 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 5d 20 39 20	r.cl-x))).(aref.cl-x.6)).nil].9.
a720	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)"]).(
a740	70 75 74 20 27 69 72 63 2d 75 73 65 72 2d 70 61 72 74 2d 74 69 6d 65 20 27 63 6f 6d 70 69 6c 65	put.'irc-user-part-time.'compile
a760	72 2d 6d 61 63 72 6f 20 27 69 72 63 2d 75 73 65 72 2d 70 61 72 74 2d 74 69 6d 65 2d 2d 63 6d 61	r-macro.'irc-user-part-time--cma
a780	63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 75 73 65 72 2d 70 61 72 74 2d 74 69	cro).(defalias.'irc-user-part-ti
a7a0	6d 65 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c	me.#[257."\211\301H.>\204..\302\
a7c0	33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63	303\304.D\"\210\211\305H\207".[c
a7e0	6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 75 73 65 72 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20	l-struct-irc-user-tags.0.signal.
a800	77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 69 72 63 2d 75 73 65 72 20 36 5d 20	wrong-type-argument.irc-user.6].
a820	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
a840	74 20 27 69 72 63 2d 75 73 65 72 2d 70 61 72 74 2d 74 69 6d 65 20 27 73 69 64 65 2d 65 66 66 65	t.'irc-user-part-time.'side-effe
a860	63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 75 73 65 72 2d 63	ct-free.t).(defalias.'irc-user-c
a880	6f 6e 6e 65 63 74 69 6f 6e 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30	onnection--cmacro.#[514."\300\30
a8a0	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--
a8c0	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
a8e0	20 69 72 63 2d 75 73 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 64 65 63 6c 61 72 65 20 28 73	.irc-user-connection.(declare.(s
a900	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 20 28 6d 65	ide-effect-free.t)).(or.(and.(me
a920	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 69 72 63 2d 75	mq.(aref.cl-x.0).cl-struct-irc-u
a940	73 65 72 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	ser-tags)).(signal.'wrong-type-a
a960	72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 69 72 63 2d 75 73 65 72 20 63 6c 2d 78 29 29 29 20	rgument.(list.'irc-user.cl-x))).
a980	28 61 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	(aref.cl-x.7)).nil].9."\n\n(fn.C
a9a0	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 69 72 63 2d 75	L-WHOLE-ARG.CL-X)"]).(put.'irc-u
a9c0	73 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27	ser-connection.'compiler-macro.'
a9e0	69 72 63 2d 75 73 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65	irc-user-connection--cmacro).(de
aa00	66 61 6c 69 61 73 20 27 69 72 63 2d 75 73 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 20 23 5b 32 35	falias.'irc-user-connection.#[25
aa20	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
aa40	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
aa60	74 2d 69 72 63 2d 75 73 65 72 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74	t-irc-user-tags.0.signal.wrong-t
aa80	79 70 65 2d 61 72 67 75 6d 65 6e 74 20 69 72 63 2d 75 73 65 72 20 37 5d 20 35 20 22 5c 6e 5c 6e	ype-argument.irc-user.7].5."\n\n
aaa0	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 5c 33 30	(fn.CL-X)"]).(byte-code."\300\30
aac0	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 5c 32 30 37	1\302\303#\210\304\305\306\"\207
aae0	22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 69 72 63 2d 75 73 65 72 2d 63 6f 6e 6e 65 63 74	".[function-put.irc-user-connect
ab00	69 6f 6e 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	ion.side-effect-free.t.defalias.
ab20	63 6f 70 79 2d 69 72 63 2d 75 73 65 72 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 5d 20 34 29 0a	copy-irc-user.copy-sequence].4).
ab40	23 40 31 30 38 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	#@108...(fn.CL-WHOLE.&cl-quote.&
ab60	6b 65 79 20 4e 49 43 4b 20 46 4f 4c 44 45 44 2d 4e 49 43 4b 20 55 53 45 52 48 4f 53 54 20 4a 4f	key.NICK.FOLDED-NICK.USERHOST.JO
ab80	49 4e 2d 54 49 4d 45 20 4c 41 53 54 2d 41 43 54 49 56 49 54 59 2d 54 49 4d 45 20 50 41 52 54 2d	IN-TIME.LAST-ACTIVITY-TIME.PART-
aba0	54 49 4d 45 20 43 4f 4e 4e 45 43 54 49 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6d 61 6b	TIME.CONNECTION)..(defalias.'mak
abc0	65 2d 69 72 63 2d 75 73 65 72 2d 2d 63 6d 61 63 72 6f 20 23 5b 33 38 35 20 22 5c 33 30 30 01 5c	e-irc-user--cmacro.#[385."\300.\
abe0	33 30 31 5c 22 41 40 5c 33 30 30 02 5c 33 30 32 5c 22 41 40 5c 33 30 30 03 5c 33 30 33 5c 22 41	301\"A@\300.\302\"A@\300.\303\"A
ac00	40 5c 33 30 30 04 5c 33 30 34 5c 22 41 40 5c 33 30 30 05 5c 33 30 35 5c 22 41 40 5c 33 30 30 06	@\300.\304\"A@\300.\305\"A@\300.
ac20	06 5c 33 30 36 5c 22 41 40 5c 33 30 30 06 07 5c 33 30 37 5c 22 41 40 06 07 5c 32 31 31 5c 32 30	.\306\"A@\300..\307\"A@..\211\20
ac40	33 59 00 5c 32 31 31 40 5c 33 31 30 3e 5c 32 30 33 41 00 5c 32 31 31 41 41 5c 32 36 32 01 5c 32	3Y.\211@\310>\203A.\211AA\262.\2
ac60	30 32 2e 00 5c 33 31 31 06 09 3e 41 40 5c 32 30 33 50 00 5c 33 31 32 5c 32 36 32 01 5c 32 30 32	02..\311..>A@\203P.\312\262.\202
ac80	2e 00 5c 33 31 33 5c 33 31 34 02 40 5c 22 5c 32 31 30 5c 32 30 32 2e 00 5c 32 31 30 5c 33 31 35	..\313\314.@\"\210\202..\210\315
aca0	5c 33 31 36 5c 33 31 37 5c 33 31 32 06 5c 66 5c 33 31 32 06 5c 66 06 5c 66 06 5c 66 06 5c 66 06	\316\317\312.\f\312.\f.\f.\f.\f.
acc0	5c 66 06 5c 66 06 5c 66 26 5c 66 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 6d 65 6d 62 65 72 20 3a	\f.\f.\f&\f\207".[plist-member.:
ace0	6e 69 63 6b 20 3a 66 6f 6c 64 65 64 2d 6e 69 63 6b 20 3a 75 73 65 72 68 6f 73 74 20 3a 6a 6f 69	nick.:folded-nick.:userhost.:joi
ad00	6e 2d 74 69 6d 65 20 3a 6c 61 73 74 2d 61 63 74 69 76 69 74 79 2d 74 69 6d 65 20 3a 70 61 72 74	n-time.:last-activity-time.:part
ad20	2d 74 69 6d 65 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 3a 6e 69 63 6b 20 3a 66 6f 6c 64 65 64	-time.:connection.(:nick.:folded
ad40	2d 6e 69 63 6b 20 3a 75 73 65 72 68 6f 73 74 20 3a 6a 6f 69 6e 2d 74 69 6d 65 20 3a 6c 61 73 74	-nick.:userhost.:join-time.:last
ad60	2d 61 63 74 69 76 69 74 79 2d 74 69 6d 65 20 3a 70 61 72 74 2d 74 69 6d 65 20 3a 63 6f 6e 6e 65	-activity-time.:part-time.:conne
ad80	63 74 69 6f 6e 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 20 3a 61 6c 6c 6f 77 2d	ction.:allow-other-keys).:allow-
ada0	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 61 72	other-keys.nil.error."Keyword.ar
adc0	67 75 6d 65 6e 74 20 25 73 20 6e 6f 74 20 6f 6e 65 20 6f 66 20 28 3a 6e 69 63 6b 20 3a 66 6f 6c	gument.%s.not.one.of.(:nick.:fol
ade0	64 65 64 2d 6e 69 63 6b 20 3a 75 73 65 72 68 6f 73 74 20 3a 6a 6f 69 6e 2d 74 69 6d 65 20 3a 6c	ded-nick.:userhost.:join-time.:l
ae00	61 73 74 2d 61 63 74 69 76 69 74 79 2d 74 69 6d 65 20 3a 70 61 72 74 2d 74 69 6d 65 20 3a 63 6f	ast-activity-time.:part-time.:co
ae20	6e 6e 65 63 74 69 6f 6e 29 22 20 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28	nnection)".cl--defsubst-expand.(
ae40	6e 69 63 6b 20 66 6f 6c 64 65 64 2d 6e 69 63 6b 20 75 73 65 72 68 6f 73 74 20 6a 6f 69 6e 2d 74	nick.folded-nick.userhost.join-t
ae60	69 6d 65 20 6c 61 73 74 2d 61 63 74 69 76 69 74 79 2d 74 69 6d 65 20 70 61 72 74 2d 74 69 6d 65	ime.last-activity-time.part-time
ae80	20 63 6f 6e 6e 65 63 74 69 6f 6e 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 6d 61 6b 65 2d 69 72 63 2d	.connection).(cl-block.make-irc-
aea0	75 73 65 72 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	user."Constructor.for.objects.of
aec0	20 74 79 70 65 20 60 69 72 63 2d 75 73 65 72 27 2e 22 20 28 64 65 63 6c 61 72 65 20 28 73 69 64	.type.`irc-user'.".(declare.(sid
aee0	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 20 27 63 6c 2d 73 74	e-effect-free.t)).(vector.'cl-st
af00	72 75 63 74 2d 69 72 63 2d 75 73 65 72 20 6e 69 63 6b 20 66 6f 6c 64 65 64 2d 6e 69 63 6b 20 75	ruct-irc-user.nick.folded-nick.u
af20	73 65 72 68 6f 73 74 20 6a 6f 69 6e 2d 74 69 6d 65 20 6c 61 73 74 2d 61 63 74 69 76 69 74 79 2d	serhost.join-time.last-activity-
af40	74 69 6d 65 20 70 61 72 74 2d 74 69 6d 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 5d 20 32 32 20	time.part-time.connection))].22.
af60	28 23 24 20 2e 20 34 33 38 34 36 29 5d 29 0a 28 70 75 74 20 27 6d 61 6b 65 2d 69 72 63 2d 75 73	(#$...43846)]).(put.'make-irc-us
af80	65 72 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 6d 61 6b 65 2d 69 72 63 2d 75 73 65	er.'compiler-macro.'make-irc-use
afa0	72 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 31 33 32 20 43 6f 6e 73 74 72 75 63 74 6f 72 20 66 6f 72	r--cmacro).#@132.Constructor.for
afc0	20 6f 62 6a 65 63 74 73 20 6f 66 20 74 79 70 65 20 60 69 72 63 2d 75 73 65 72 27 2e 0a 0a 28 66	.objects.of.type.`irc-user'...(f
afe0	6e 20 26 6b 65 79 20 4e 49 43 4b 20 46 4f 4c 44 45 44 2d 4e 49 43 4b 20 55 53 45 52 48 4f 53 54	n.&key.NICK.FOLDED-NICK.USERHOST
b000	20 4a 4f 49 4e 2d 54 49 4d 45 20 4c 41 53 54 2d 41 43 54 49 56 49 54 59 2d 54 49 4d 45 20 50 41	.JOIN-TIME.LAST-ACTIVITY-TIME.PA
b020	52 54 2d 54 49 4d 45 20 43 4f 4e 4e 45 43 54 49 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	RT-TIME.CONNECTION)..(defalias.'
b040	6d 61 6b 65 2d 69 72 63 2d 75 73 65 72 20 23 5b 31 32 38 20 22 5c 33 30 30 01 5c 33 30 31 5c 22	make-irc-user.#[128."\300.\301\"
b060	41 40 5c 33 30 30 02 5c 33 30 32 5c 22 41 40 5c 33 30 30 03 5c 33 30 33 5c 22 41 40 5c 33 30 30	A@\300.\302\"A@\300.\303\"A@\300
b080	04 5c 33 30 34 5c 22 41 40 5c 33 30 30 05 5c 33 30 35 5c 22 41 40 5c 33 30 30 06 06 5c 33 30 36	.\304\"A@\300.\305\"A@\300..\306
b0a0	5c 22 41 40 5c 33 30 30 06 07 5c 33 30 37 5c 22 41 40 06 07 5c 32 31 31 5c 32 30 33 59 00 5c 32	\"A@\300..\307\"A@..\211\203Y.\2
b0c0	31 31 40 5c 33 31 30 3e 5c 32 30 33 41 00 5c 32 31 31 41 41 5c 32 36 32 01 5c 32 30 32 2e 00 5c	11@\310>\203A.\211AA\262.\202..\
b0e0	33 31 31 06 09 3e 41 40 5c 32 30 33 50 00 5c 33 31 32 5c 32 36 32 01 5c 32 30 32 2e 00 5c 33 31	311..>A@\203P.\312\262.\202..\31
b100	33 5c 33 31 34 02 40 5c 22 5c 32 31 30 5c 32 30 32 2e 00 5c 32 31 30 5c 33 31 35 5c 33 31 36 06	3\314.@\"\210\202..\210\315\316.
b120	08 06 08 06 08 06 08 06 08 06 08 06 08 26 08 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 6d 65 6d 62	.............&.\207".[plist-memb
b140	65 72 20 3a 6e 69 63 6b 20 3a 66 6f 6c 64 65 64 2d 6e 69 63 6b 20 3a 75 73 65 72 68 6f 73 74 20	er.:nick.:folded-nick.:userhost.
b160	3a 6a 6f 69 6e 2d 74 69 6d 65 20 3a 6c 61 73 74 2d 61 63 74 69 76 69 74 79 2d 74 69 6d 65 20 3a	:join-time.:last-activity-time.:
b180	70 61 72 74 2d 74 69 6d 65 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 20 28 3a 6e 69 63 6b 20 3a 66 6f	part-time.:connection.(:nick.:fo
b1a0	6c 64 65 64 2d 6e 69 63 6b 20 3a 75 73 65 72 68 6f 73 74 20 3a 6a 6f 69 6e 2d 74 69 6d 65 20 3a	lded-nick.:userhost.:join-time.:
b1c0	6c 61 73 74 2d 61 63 74 69 76 69 74 79 2d 74 69 6d 65 20 3a 70 61 72 74 2d 74 69 6d 65 20 3a 63	last-activity-time.:part-time.:c
b1e0	6f 6e 6e 65 63 74 69 6f 6e 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 20 3a 61 6c	onnection.:allow-other-keys).:al
b200	6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 6e 69 6c 20 65 72 72 6f 72 20 22 4b 65 79 77 6f 72	low-other-keys.nil.error."Keywor
b220	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 6e 69 63 6b 20	d.argument.%s.not.one.of.(:nick.
b240	3a 66 6f 6c 64 65 64 2d 6e 69 63 6b 20 3a 75 73 65 72 68 6f 73 74 20 3a 6a 6f 69 6e 2d 74 69 6d	:folded-nick.:userhost.:join-tim
b260	65 20 3a 6c 61 73 74 2d 61 63 74 69 76 69 74 79 2d 74 69 6d 65 20 3a 70 61 72 74 2d 74 69 6d 65	e.:last-activity-time.:part-time
b280	20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 29 22 20 76 65 63 74 6f 72 20 63 6c 2d 73 74 72 75 63 74 2d	.:connection)".vector.cl-struct-
b2a0	69 72 63 2d 75 73 65 72 5d 20 31 37 20 28 23 24 20 2e 20 34 34 39 37 37 29 5d 29 0a 28 62 79 74	irc-user].17.(#$...44977)]).(byt
b2c0	65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30	e-code."\300\301\302\303#\210\30
b2e0	34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 30 36 5c 32 31 31 5c 33 31 30 5c 33 31 31 5c 33 31	4\305\306\307\306\211\310\311\31
b300	32 5c 33 30 33 26 09 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6d 61 6b 65 2d	2\303&.\207".[function-put.make-
b320	69 72 63 2d 75 73 65 72 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 20 63 6c 2d 73	irc-user.side-effect-free.t.cl-s
b340	74 72 75 63 74 2d 64 65 66 69 6e 65 20 69 72 63 2d 75 73 65 72 20 6e 69 6c 20 63 6c 2d 73 74 72	truct-define.irc-user.nil.cl-str
b360	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 20 28 6e 69	ucture-object.((cl-tag-slot).(ni
b380	63 6b 29 20 28 66 6f 6c 64 65 64 2d 6e 69 63 6b 29 20 28 75 73 65 72 68 6f 73 74 29 20 28 6a 6f	ck).(folded-nick).(userhost).(jo
b3a0	69 6e 2d 74 69 6d 65 29 20 28 6c 61 73 74 2d 61 63 74 69 76 69 74 79 2d 74 69 6d 65 29 20 28 70	in-time).(last-activity-time).(p
b3c0	61 72 74 2d 74 69 6d 65 29 20 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 29 20 63 6c 2d 73 74 72 75 63	art-time).(connection)).cl-struc
b3e0	74 2d 69 72 63 2d 75 73 65 72 2d 74 61 67 73 20 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 75 73	t-irc-user-tags.cl-struct-irc-us
b400	65 72 5d 20 31 30 29 0a 23 40 31 33 36 20 43 72 65 61 74 65 20 61 6e 20 69 72 63 2d 75 73 65 72	er].10).#@136.Create.an.irc-user
b420	20 73 74 72 75 63 74 20 6f 6e 20 43 4f 4e 4e 20 66 72 6f 6d 20 55 53 45 52 53 54 52 49 4e 47 2e	.struct.on.CONN.from.USERSTRING.
b440	0a 0a 55 53 45 52 53 54 52 49 4e 47 20 73 68 6f 75 6c 64 20 62 65 20 61 20 73 20 74 72 69 6e 67	..USERSTRING.should.be.a.s.tring
b460	20 6f 66 20 74 68 65 20 66 6f 72 6d 20 22 6e 69 63 6b 21 75 73 65 72 40 68 6f 73 74 22 2e 0a 0a	.of.the.form."nick!user@host"...
b480	28 66 6e 20 43 4f 4e 4e 20 55 53 45 52 53 54 52 49 4e 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	(fn.CONN.USERSTRING)..(defalias.
b4a0	27 69 72 63 2d 75 73 65 72 2d 66 72 6f 6d 2d 75 73 65 72 73 74 72 69 6e 67 20 23 5b 35 31 34 20	'irc-user-from-userstring.#[514.
b4c0	22 5c 33 30 30 01 21 5c 33 30 31 5c 33 30 32 02 5c 33 30 33 5c 33 30 34 06 07 06 06 5c 22 5c 33	"\300.!\301\302.\303\304....\"\3
b4e0	30 35 06 06 47 5c 32 31 31 06 09 47 59 3f 5c 32 30 35 20 00 06 08 01 54 5c 33 30 36 4f 5c 32 36	05..G\211..GY?\205.....T\306O\26
b500	32 01 5c 33 30 37 06 5c 6e 26 08 5c 32 30 37 22 20 5b 69 72 63 2d 75 73 65 72 73 74 72 69 6e 67	2.\307.\n&.\207".[irc-userstring
b520	2d 6e 69 63 6b 20 6d 61 6b 65 2d 69 72 63 2d 75 73 65 72 20 3a 6e 69 63 6b 20 3a 66 6f 6c 64 65	-nick.make-irc-user.:nick.:folde
b540	64 2d 6e 69 63 6b 20 69 72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 63 61 73 65 2d 66 6f 6c 64 20 3a	d-nick.irc-isupport--case-fold.:
b560	75 73 65 72 68 6f 73 74 20 6e 69 6c 20 3a 63 6f 6e 6e 65 63 74 69 6f 6e 5d 20 31 33 20 28 23 24	userhost.nil.:connection].13.(#$
b580	20 2e 20 34 36 30 39 34 29 5d 29 0a 23 40 36 35 20 52 65 74 75 72 6e 20 61 20 75 73 65 72 20 6e	...46094)]).#@65.Return.a.user.n
b5a0	61 6d 65 64 20 4e 49 43 4b 20 6f 6e 20 63 68 61 6e 6e 65 6c 20 43 48 41 4e 4e 45 4c 2e 0a 0a 28	amed.NICK.on.channel.CHANNEL...(
b5c0	66 6e 20 43 48 41 4e 4e 45 4c 20 4e 49 43 4b 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63	fn.CHANNEL.NICK)..(defalias.'irc
b5e0	2d 63 68 61 6e 6e 65 6c 2d 75 73 65 72 20 23 5b 35 31 34 20 22 01 5c 33 30 31 48 08 3e 5c 32 30	-channel-user.#[514.".\301H.>\20
b600	34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 44 5c 22 5c 32 31 30 01 5c 33 30 35 48 5c 33 30	4..\302\303\304.D\"\210.\305H\30
b620	36 03 5c 33 30 31 48 08 3e 5c 32 30 34 23 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 44 5c 22	6.\301H.>\204#.\302\303\304..D\"
b640	5c 32 31 30 03 5c 33 30 37 48 03 5c 22 5c 33 31 30 01 03 5c 22 5c 32 30 37 22 20 5b 63 6c 2d 73	\210.\307H.\"\310..\"\207".[cl-s
b660	74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20	truct-irc-channel-tags.0.signal.
b680	77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 69 72 63 2d 63 68 61 6e 6e 65 6c 20	wrong-type-argument.irc-channel.
b6a0	35 20 69 72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 63 61 73 65 2d 66 6f 6c 64 20 38 20 67 65 74 68	5.irc-isupport--case-fold.8.geth
b6c0	61 73 68 5d 20 38 20 28 23 24 20 2e 20 34 36 34 38 31 29 5d 29 0a 23 40 37 32 20 52 65 74 75 72	ash].8.(#$...46481)]).#@72.Retur
b6e0	6e 20 61 20 72 65 63 65 6e 74 20 75 73 65 72 20 6e 61 6d 65 64 20 4e 49 43 4b 20 6f 6e 20 63 68	n.a.recent.user.named.NICK.on.ch
b700	61 6e 6e 65 6c 20 43 48 41 4e 4e 45 4c 2e 0a 0a 28 66 6e 20 43 48 41 4e 4e 45 4c 20 4e 49 43 4b	annel.CHANNEL...(fn.CHANNEL.NICK
b720	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 72 65 63 65 6e 74	)..(defalias.'irc-channel-recent
b740	2d 75 73 65 72 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	-user.#[514.".\301H.>\204..\302\
b760	33 30 33 5c 33 30 34 04 44 5c 22 5c 32 31 30 01 5c 33 30 35 48 5c 33 30 36 03 5c 33 30 31 48 08	303\304.D\"\210.\305H\306.\301H.
b780	3e 5c 32 30 34 23 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 44 5c 22 5c 32 31 30 03 5c 33 30	>\204#.\302\303\304..D\"\210.\30
b7a0	37 48 03 5c 22 5c 33 31 30 01 03 5c 22 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72	7H.\"\310..\"\207".[cl-struct-ir
b7c0	63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79	c-channel-tags.0.signal.wrong-ty
b7e0	70 65 2d 61 72 67 75 6d 65 6e 74 20 69 72 63 2d 63 68 61 6e 6e 65 6c 20 36 20 69 72 63 2d 69 73	pe-argument.irc-channel.6.irc-is
b800	75 70 70 6f 72 74 2d 2d 63 61 73 65 2d 66 6f 6c 64 20 38 20 67 65 74 68 61 73 68 5d 20 38 20 28	upport--case-fold.8.gethash].8.(
b820	23 24 20 2e 20 34 36 38 31 31 29 5d 29 0a 23 40 34 37 20 41 64 64 20 55 53 45 52 20 74 6f 20 43	#$...46811)]).#@47.Add.USER.to.C
b840	48 41 4e 4e 45 4c 2e 0a 0a 28 66 6e 20 43 48 41 4e 4e 45 4c 20 55 53 45 52 53 54 52 49 4e 47 29	HANNEL...(fn.CHANNEL.USERSTRING)
b860	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 61 64 64 2d 75 73 65	..(defalias.'irc-channel-add-use
b880	72 20 23 5b 35 31 34 20 22 01 5c 33 30 32 48 08 3e 5c 32 30 34 0f 00 5c 33 30 33 5c 33 30 34 5c	r.#[514.".\302H.>\204..\303\304\
b8a0	33 30 35 04 44 5c 22 5c 32 31 30 01 5c 33 30 36 48 5c 33 30 37 03 5c 33 30 32 48 08 3e 5c 32 30	305.D\"\210.\306H\307.\302H.>\20
b8c0	34 23 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 06 44 5c 22 5c 32 31 30 03 5c 33 31 30 48 03 5c	4#.\303\304\305..D\"\210.\310H.\
b8e0	22 5c 32 31 31 5c 33 30 32 48 09 3e 5c 32 30 34 37 00 5c 33 30 33 5c 33 30 34 5c 33 31 31 03 44	"\211\302H.>\2047.\303\304\311.D
b900	5c 22 5c 32 31 30 5c 32 31 31 5c 33 31 32 48 5c 33 31 33 05 03 5c 33 30 32 48 09 3e 5c 32 30 34	\"\210\211\312H\313..\302H.>\204
b920	4c 00 5c 33 30 33 5c 33 30 34 5c 33 31 31 06 06 44 5c 22 5c 32 31 30 03 5c 33 31 34 48 5c 22 5c	L.\303\304\311..D\"\210.\314H\"\
b940	33 31 35 02 05 5c 22 3f 5c 32 30 35 5c 32 36 35 00 5c 32 31 31 5c 32 30 33 5c 32 35 35 00 5c 32	315..\"?\205\265.\211\203\255.\2
b960	31 31 5c 33 30 32 48 09 3e 5c 32 30 34 6b 00 5c 33 30 33 5c 33 30 34 5c 33 31 31 03 44 5c 22 5c	11\302H.>\204k.\303\304\311.D\"\
b980	32 31 30 5c 32 31 31 5c 33 31 36 48 03 5c 33 30 32 48 09 3e 5c 32 30 34 7e 00 5c 33 30 33 5c 33	210\211\316H.\302H.>\204~.\303\3
b9a0	30 34 5c 33 31 31 06 06 44 5c 22 5c 32 31 30 03 5c 33 31 36 48 5c 32 33 32 5c 32 30 33 5c 32 35	04\311..D\"\210.\316H\232\203\25
b9c0	35 00 02 5c 33 30 32 48 09 3e 5c 32 30 34 5c 32 32 34 00 5c 33 30 33 5c 33 30 34 5c 33 31 31 05	5..\302H.>\204\224.\303\304\311.
b9e0	44 5c 22 5c 32 31 30 02 5c 32 31 31 5c 33 30 36 03 5c 33 30 32 48 09 3e 5c 32 30 34 5c 32 34 37	D\"\210.\211\306.\302H.>\204\247
ba00	00 5c 33 30 33 5c 33 30 34 5c 33 31 31 06 06 44 5c 22 5c 32 31 30 03 5c 33 30 36 48 49 5c 32 36	.\303\304\311..D\"\210.\306HI\26
ba20	36 02 5c 33 31 37 02 04 06 06 23 5c 32 31 30 02 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74	6.\317....#\210.\207".[cl-struct
ba40	2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 20 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d	-irc-channel-tags.cl-struct-irc-
ba60	75 73 65 72 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	user-tags.0.signal.wrong-type-ar
ba80	67 75 6d 65 6e 74 20 69 72 63 2d 63 68 61 6e 6e 65 6c 20 35 20 69 72 63 2d 75 73 65 72 2d 66 72	gument.irc-channel.5.irc-user-fr
baa0	6f 6d 2d 75 73 65 72 73 74 72 69 6e 67 20 38 20 69 72 63 2d 75 73 65 72 20 32 20 69 72 63 2d 63	om-userstring.8.irc-user.2.irc-c
bac0	68 61 6e 6e 65 6c 2d 72 65 63 65 6e 74 2d 75 73 65 72 20 31 20 67 65 74 68 61 73 68 20 33 20 70	hannel-recent-user.1.gethash.3.p
bae0	75 74 68 61 73 68 5d 20 31 33 20 28 23 24 20 2e 20 34 37 31 35 35 29 5d 29 0a 23 40 34 36 20 52	uthash].13.(#$...47155)]).#@46.R
bb00	65 6d 6f 76 65 20 4e 49 43 4b 20 66 72 6f 6d 20 43 48 41 4e 4e 45 4c 2e 0a 0a 28 66 6e 20 43 48	emove.NICK.from.CHANNEL...(fn.CH
bb20	41 4e 4e 45 4c 20 4e 49 43 4b 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 68 61 6e	ANNEL.NICK)..(defalias.'irc-chan
bb40	6e 65 6c 2d 72 65 6d 6f 76 65 2d 75 73 65 72 20 23 5b 35 31 34 20 22 01 5c 33 30 32 48 08 3e 5c	nel-remove-user.#[514.".\302H.>\
bb60	32 30 34 0f 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 04 44 5c 22 5c 32 31 30 01 5c 33 30 36 48 02	204..\303\304\305.D\"\210.\306H.
bb80	5c 33 30 32 48 08 3e 5c 32 30 34 21 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 05 44 5c 22 5c 32 31	\302H.>\204!.\303\304\305.D\"\21
bba0	30 02 5c 33 30 37 48 5c 33 31 30 04 5c 33 30 32 48 08 3e 5c 32 30 34 35 00 5c 33 30 33 5c 33 30	0.\307H\310.\302H.>\2045.\303\30
bbc0	34 5c 33 30 35 06 07 44 5c 22 5c 32 31 30 04 5c 33 31 31 48 04 5c 22 5c 33 31 32 01 04 5c 22 5c	4\305..D\"\210.\311H.\"\312..\"\
bbe0	33 31 33 02 05 5c 22 5c 32 31 30 5c 32 31 31 5c 32 30 35 74 00 5c 32 31 31 5c 33 30 32 48 09 3e	313..\"\210\211\205t.\211\302H.>
bc00	5c 32 30 34 56 00 5c 33 30 33 5c 33 30 34 5c 33 31 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 32	\204V.\303\304\314.D\"\210\211\2
bc20	31 31 5c 33 30 37 5c 33 31 35 20 49 5c 32 36 36 02 5c 33 31 36 02 02 05 23 5c 32 31 30 5c 33 31	11\307\315.I\266.\316...#\210\31
bc40	37 5c 33 32 30 5c 33 32 31 5c 33 32 32 5c 33 32 33 5c 33 32 34 06 08 21 5c 33 32 35 5c 22 5c 33	7\320\321\322\323\324..!\325\"\3
bc60	30 37 5c 33 32 36 25 04 5c 22 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63	07\326%.\"\207".[cl-struct-irc-c
bc80	68 61 6e 6e 65 6c 2d 74 61 67 73 20 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 75 73 65 72 2d 74	hannel-tags.cl-struct-irc-user-t
bca0	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
bcc0	20 69 72 63 2d 63 68 61 6e 6e 65 6c 20 35 20 36 20 69 72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 63	.irc-channel.5.6.irc-isupport--c
bce0	61 73 65 2d 66 6f 6c 64 20 38 20 67 65 74 68 61 73 68 20 72 65 6d 68 61 73 68 20 69 72 63 2d 75	ase-fold.8.gethash.remhash.irc-u
bd00	73 65 72 20 66 6c 6f 61 74 2d 74 69 6d 65 20 70 75 74 68 61 73 68 20 6d 61 70 68 61 73 68 20 6d	ser.float-time.puthash.maphash.m
bd20	61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 32 31 31 5c 33 30 32 48 09 3e 5c 32	ake-byte-code.514."\211\302H.>\2
bd40	30 34 0f 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 36	04..\303\304\305.D\"\210\211\306
bd60	48 5c 33 30 37 20 5c 33 31 30 5a 57 5c 32 30 35 1e 00 5c 33 31 31 02 5c 33 30 30 5c 22 5c 32 30	H\307.\310ZW\205..\311.\300\"\20
bd80	37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63	7".vconcat.vector.[cl-struct-irc
bda0	2d 75 73 65 72 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	-user-tags.0.signal.wrong-type-a
bdc0	72 67 75 6d 65 6e 74 20 69 72 63 2d 75 73 65 72 20 36 20 66 6c 6f 61 74 2d 74 69 6d 65 20 33 36	rgument.irc-user.6.float-time.36
bde0	30 30 20 72 65 6d 68 61 73 68 5d 20 22 5c 6e 5c 6e 28 66 6e 20 46 4f 4c 44 45 44 2d 4e 49 43 4b	00.remhash]."\n\n(fn.FOLDED-NICK
be00	20 55 53 45 52 29 22 5d 20 31 33 20 28 23 24 20 2e 20 34 37 38 37 31 29 5d 29 0a 23 40 31 30 33	.USER)"].13.(#$...47871)]).#@103
be20	20 55 70 64 61 74 65 20 43 48 41 4e 4e 45 4c 20 73 6f 20 74 68 61 74 20 74 68 65 20 75 73 65 72	.Update.CHANNEL.so.that.the.user
be40	20 77 69 74 68 20 6e 69 63 6b 20 4f 4c 44 4e 49 43 4b 20 6e 6f 77 20 68 61 73 20 6e 69 63 6b 20	.with.nick.OLDNICK.now.has.nick.
be60	4e 45 57 4e 49 43 4b 2e 0a 0a 28 66 6e 20 43 48 41 4e 4e 45 4c 20 4f 4c 44 4e 49 43 4b 20 4e 45	NEWNICK...(fn.CHANNEL.OLDNICK.NE
be80	57 4e 49 43 4b 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 72	WNICK)..(defalias.'irc-channel-r
bea0	65 6e 61 6d 65 2d 75 73 65 72 20 23 5b 37 37 31 20 22 02 5c 33 30 32 48 08 3e 5c 32 30 34 0f 00	ename-user.#[771.".\302H.>\204..
bec0	5c 33 30 33 5c 33 30 34 5c 33 30 35 05 44 5c 22 5c 32 31 30 02 5c 33 30 36 48 5c 33 30 37 04 04	\303\304\305.D\"\210.\306H\307..
bee0	5c 22 5c 33 31 30 05 5c 33 30 32 48 08 3e 5c 32 30 34 27 00 5c 33 30 33 5c 33 30 34 5c 33 30 35	\"\310.\302H.>\204'.\303\304\305
bf00	06 08 44 5c 22 5c 32 31 30 05 5c 33 31 31 48 04 5c 22 5c 33 31 32 06 06 05 5c 22 02 5c 32 30 35	..D\"\210.\311H.\"\312...\".\205
bf20	5c 33 34 36 00 5c 32 31 31 5c 32 30 33 5c 32 31 32 00 5c 32 31 31 5c 33 30 32 48 09 3e 5c 32 30	\346.\211\203\212.\211\302H.>\20
bf40	34 48 00 5c 33 30 33 5c 33 30 34 5c 33 31 33 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 31 34 48	4H.\303\304\313.D\"\210\211\314H
bf60	03 5c 33 30 32 48 09 3e 5c 32 30 34 5b 00 5c 33 30 33 5c 33 30 34 5c 33 31 33 06 06 44 5c 22 5c	.\302H.>\204[.\303\304\313..D\"\
bf80	32 31 30 03 5c 33 31 34 48 5c 32 33 32 5c 32 30 33 5c 32 31 32 00 02 5c 33 30 32 48 09 3e 5c 32	210.\314H\232\203\212..\302H.>\2
bfa0	30 34 71 00 5c 33 30 33 5c 33 30 34 5c 33 31 33 05 44 5c 22 5c 32 31 30 02 5c 32 31 31 5c 33 30	04q.\303\304\313.D\"\210.\211\30
bfc0	36 03 5c 33 30 32 48 09 3e 5c 32 30 34 5c 32 30 34 00 5c 33 30 33 5c 33 30 34 5c 33 31 33 06 06	6.\302H.>\204\204.\303\304\313..
bfe0	44 5c 22 5c 32 31 30 03 5c 33 30 36 48 49 5c 32 36 36 02 5c 33 31 35 03 5c 33 30 32 48 09 3e 5c	D\"\210.\306HI\266.\315.\302H.>\
c000	32 30 34 5c 32 33 33 00 5c 33 30 33 5c 33 30 34 5c 33 31 33 06 06 44 5c 22 5c 32 31 30 03 5c 33	204\233.\303\304\313..D\"\210.\3
c020	31 36 48 05 5c 22 5c 32 31 30 02 5c 33 30 32 48 09 3e 5c 32 30 34 5c 32 36 30 00 5c 33 30 33 5c	16H.\"\210.\302H.>\204\260.\303\
c040	33 30 34 5c 33 31 33 05 44 5c 22 5c 32 31 30 02 5c 32 31 31 5c 33 31 37 06 07 49 5c 32 36 36 02	304\313.D\"\210.\211\317..I\266.
c060	02 5c 33 30 32 48 09 3e 5c 32 30 34 5c 33 30 37 00 5c 33 30 33 5c 33 30 34 5c 33 31 33 05 44 5c	.\302H.>\204\307.\303\304\313.D\
c080	22 5c 32 31 30 02 5c 32 31 31 5c 33 31 36 04 49 5c 32 36 36 02 5c 33 32 30 03 5c 33 30 32 48 09	"\210.\211\316.I\266.\320.\302H.
c0a0	3e 5c 32 30 34 5c 33 33 37 00 5c 33 30 33 5c 33 30 34 5c 33 31 33 06 06 44 5c 22 5c 32 31 30 03	>\204\337.\303\304\313..D\"\210.
c0c0	5c 33 31 36 48 04 06 06 23 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68	\316H...#\207".[cl-struct-irc-ch
c0e0	61 6e 6e 65 6c 2d 74 61 67 73 20 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 75 73 65 72 2d 74 61	annel-tags.cl-struct-irc-user-ta
c100	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.
c120	69 72 63 2d 63 68 61 6e 6e 65 6c 20 35 20 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 75 73 65 72 20 69	irc-channel.5.irc-channel-user.i
c140	72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 63 61 73 65 2d 66 6f 6c 64 20 38 20 69 72 63 2d 63 68 61	rc-isupport--case-fold.8.irc-cha
c160	6e 6e 65 6c 2d 72 65 63 65 6e 74 2d 75 73 65 72 20 69 72 63 2d 75 73 65 72 20 33 20 72 65 6d 68	nnel-recent-user.irc-user.3.remh
c180	61 73 68 20 32 20 31 20 70 75 74 68 61 73 68 5d 20 31 34 20 28 23 24 20 2e 20 34 38 36 37 33 29	ash.2.1.puthash].14.(#$...48673)
c1a0	5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74 61 74 65 2d 74	]).(defalias.'irc-handle-state-t
c1c0	72 61 63 6b 69 6e 67 2d 2d 72 70 6c 2d 77 65 6c 63 6f 6d 65 20 23 5b 31 31 35 36 20 22 5c 33 30	racking--rpl-welcome.#[1156."\30
c1e0	30 05 5c 33 30 31 04 23 5c 32 30 37 22 20 5b 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 70 75	0.\301.#\207".[irc-connection-pu
c200	74 20 3a 63 75 72 72 65 6e 74 2d 6e 69 63 6b 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e	t.:current-nick].9."\n\n(fn.CONN
c220	20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 54 41 52 47 45 54 20 26 72 65 73 74 20 49 47 4e 4f 52	.EVENT.SENDER.TARGET.&rest.IGNOR
c240	45 44 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74 61	ED)"]).(defalias.'irc-handle-sta
c260	74 65 2d 74 72 61 63 6b 69 6e 67 2d 2d 4a 4f 49 4e 20 23 5b 31 35 34 30 20 22 5c 33 30 31 04 21	te-tracking--JOIN.#[1540."\301.!
c280	5c 33 30 32 06 07 02 5c 22 5c 32 30 33 13 00 5c 33 30 33 06 07 05 5c 22 5c 32 30 32 40 00 5c 33	\302...\"\203..\303...\"\202@.\3
c2a0	30 34 06 07 05 5c 22 5c 32 31 31 5c 32 30 35 3e 00 5c 33 30 35 01 06 07 5c 22 5c 32 31 31 5c 32	04...\"\211\205>.\305...\"\211\2
c2c0	30 35 3c 00 5c 32 31 31 5c 33 30 36 48 08 3e 5c 32 30 34 34 00 5c 33 30 37 5c 33 31 30 5c 33 31	05<.\211\306H.>\2044.\307\310\31
c2e0	31 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 32 31 31 5c 33 31 32 5c 33 31 33 20 49 5c 32 36 32 01	1.D\"\210\211\211\312\313.I\262.
c300	5c 32 36 32 01 5c 32 36 32 01 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 75	\262.\262.\207".[cl-struct-irc-u
c320	73 65 72 2d 74 61 67 73 20 69 72 63 2d 75 73 65 72 73 74 72 69 6e 67 2d 6e 69 63 6b 20 69 72 63	ser-tags.irc-userstring-nick.irc
c340	2d 63 75 72 72 65 6e 74 2d 6e 69 63 6b 2d 70 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 61	-current-nick-p.irc-connection-a
c360	64 64 2d 63 68 61 6e 6e 65 6c 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 68 61 6e 6e 65	dd-channel.irc-connection-channe
c380	6c 20 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 61 64 64 2d 75 73 65 72 20 30 20 73 69 67 6e 61 6c 20	l.irc-channel-add-user.0.signal.
c3a0	77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 69 72 63 2d 75 73 65 72 20 34 20 66	wrong-type-argument.irc-user.4.f
c3c0	6c 6f 61 74 2d 74 69 6d 65 5d 20 31 33 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e	loat-time].13."\n\n(fn.CONN.EVEN
c3e0	54 20 53 45 4e 44 45 52 20 54 41 52 47 45 54 20 26 6f 70 74 69 6f 6e 61 6c 20 41 43 43 4f 55 4e	T.SENDER.TARGET.&optional.ACCOUN
c400	54 20 52 45 41 4c 4e 41 4d 45 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61	T.REALNAME)"]).(defalias.'irc-ha
c420	6e 64 6c 65 2d 73 74 61 74 65 2d 74 72 61 63 6b 69 6e 67 2d 2d 50 41 52 54 20 23 5b 31 32 38 34	ndle-state-tracking--PART.#[1284
c440	20 22 5c 33 30 30 03 21 5c 33 30 31 06 06 02 5c 22 5c 32 30 33 13 00 5c 33 30 32 06 06 04 5c 22	."\300.!\301...\"\203..\302...\"
c460	5c 32 30 32 5c 22 00 5c 33 30 33 06 06 04 5c 22 5c 32 31 31 5c 32 30 35 20 00 5c 33 30 34 01 03	\202\".\303...\"\211\205..\304..
c480	5c 22 5c 32 36 32 01 5c 32 30 37 22 20 5b 69 72 63 2d 75 73 65 72 73 74 72 69 6e 67 2d 6e 69 63	\"\262.\207".[irc-userstring-nic
c4a0	6b 20 69 72 63 2d 63 75 72 72 65 6e 74 2d 6e 69 63 6b 2d 70 20 69 72 63 2d 63 6f 6e 6e 65 63 74	k.irc-current-nick-p.irc-connect
c4c0	69 6f 6e 2d 72 65 6d 6f 76 65 2d 63 68 61 6e 6e 65 6c 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f	ion-remove-channel.irc-connectio
c4e0	6e 2d 63 68 61 6e 6e 65 6c 20 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 72 65 6d 6f 76 65 2d 75 73 65	n-channel.irc-channel-remove-use
c500	72 5d 20 31 30 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52	r].10."\n\n(fn.CONN.EVENT.SENDER
c520	20 54 41 52 47 45 54 20 26 6f 70 74 69 6f 6e 61 6c 20 52 45 41 53 4f 4e 29 22 5d 29 0a 28 64 65	.TARGET.&optional.REASON)"]).(de
c540	66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74 61 74 65 2d 74 72 61 63 6b 69 6e	falias.'irc-handle-state-trackin
c560	67 2d 2d 4b 49 43 4b 20 23 5b 31 35 34 31 20 22 5c 33 30 30 06 06 03 5c 22 5c 32 30 33 0e 00 5c	g--KICK.#[1541."\300...\"\203..\
c580	33 30 31 06 06 04 5c 22 5c 32 30 37 5c 33 30 32 06 06 04 5c 22 5c 32 31 31 5c 32 30 35 1b 00 5c	301...\"\207\302...\"\211\205..\
c5a0	33 30 33 01 04 5c 22 5c 32 30 37 22 20 5b 69 72 63 2d 63 75 72 72 65 6e 74 2d 6e 69 63 6b 2d 70	303..\"\207".[irc-current-nick-p
c5c0	20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 72 65 6d 6f 76 65 2d 63 68 61 6e 6e 65 6c 20 69	.irc-connection-remove-channel.i
c5e0	72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 68 61 6e 6e 65 6c 20 69 72 63 2d 63 68 61 6e 6e 65	rc-connection-channel.irc-channe
c600	6c 2d 72 65 6d 6f 76 65 2d 75 73 65 72 5d 20 31 30 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20	l-remove-user].10."\n\n(fn.CONN.
c620	45 56 45 4e 54 20 53 45 4e 44 45 52 20 54 41 52 47 45 54 20 4e 49 43 4b 20 26 6f 70 74 69 6f 6e	EVENT.SENDER.TARGET.NICK.&option
c640	61 6c 20 52 45 41 53 4f 4e 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e	al.REASON)"]).(defalias.'irc-han
c660	64 6c 65 2d 73 74 61 74 65 2d 74 72 61 63 6b 69 6e 67 2d 2d 51 55 49 54 20 23 5b 31 30 32 37 20	dle-state-tracking--QUIT.#[1027.
c680	22 5c 33 30 31 02 21 5c 33 30 32 05 02 5c 22 5c 32 30 33 36 00 5c 33 30 33 05 21 5c 32 31 31 5c	"\301.!\302..\"\2036.\303.!\211\
c6a0	32 30 35 31 00 5c 32 31 31 40 5c 33 30 34 06 07 02 5c 33 30 35 48 08 3e 5c 32 30 34 25 00 5c 33	2051.\211@\304...\305H.>\204%.\3
c6c0	30 36 5c 33 30 37 5c 33 31 30 05 44 5c 22 5c 32 31 30 02 5c 33 31 31 48 5c 22 5c 32 31 30 01 41	06\307\310.D\"\210.\311H\"\210.A
c6e0	5c 32 36 36 5c 32 30 32 5c 32 30 32 0d 00 5c 32 36 32 01 5c 32 30 32 71 00 5c 33 30 33 05 21 5c	\266\202\202..\262.\202q.\303.!\
c700	32 31 31 5c 32 30 35 6f 00 5c 32 31 31 40 5c 33 31 32 01 04 5c 22 5c 32 30 33 63 00 5c 33 31 33	211\205o.\211@\312..\"\203c.\313
c720	06 07 5c 33 31 34 06 07 04 5c 33 30 35 48 08 3e 5c 32 30 34 5c 5c 00 5c 33 30 36 5c 33 30 37 5c	..\314...\305H.>\204\\.\306\307\
c740	33 31 30 06 07 44 5c 22 5c 32 31 30 04 5c 33 31 35 48 06 08 25 5c 32 31 30 5c 33 31 36 01 04 5c	310..D\"\210.\315H..%\210\316..\
c760	22 5c 32 31 30 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 39 00 5c 32 36 32 01 5c 32 30 37 22 20	"\210.A\266\202\2029.\262.\207".
c780	5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 20 69 72 63 2d	[cl-struct-irc-channel-tags.irc-
c7a0	75 73 65 72 73 74 72 69 6e 67 2d 6e 69 63 6b 20 69 72 63 2d 63 75 72 72 65 6e 74 2d 6e 69 63 6b	userstring-nick.irc-current-nick
c7c0	2d 70 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 68 61 6e 6e 65 6c 2d 6c 69 73 74 20 69	-p.irc-connection-channel-list.i
c7e0	72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 72 65 6d 6f 76 65 2d 63 68 61 6e 6e 65 6c 20 30 20 73	rc-connection-remove-channel.0.s
c800	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 69 72 63 2d 63 68	ignal.wrong-type-argument.irc-ch
c820	61 6e 6e 65 6c 20 34 20 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 75 73 65 72 20 69 72 63 2d 65 76 65	annel.4.irc-channel-user.irc-eve
c840	6e 74 2d 65 6d 69 74 20 22 63 68 61 6e 6e 65 6c 2e 71 75 69 74 22 20 31 20 69 72 63 2d 63 68 61	nt-emit."channel.quit".1.irc-cha
c860	6e 6e 65 6c 2d 72 65 6d 6f 76 65 2d 75 73 65 72 5d 20 31 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f	nnel-remove-user].15."\n\n(fn.CO
c880	4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 26 6f 70 74 69 6f 6e 61 6c 20 52 45 41 53 4f 4e	NN.EVENT.SENDER.&optional.REASON
c8a0	29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74 61 74 65	)"]).(defalias.'irc-handle-state
c8c0	2d 74 72 61 63 6b 69 6e 67 2d 2d 4e 49 43 4b 20 23 5b 31 30 32 38 20 22 5c 33 30 30 02 21 5c 33	-tracking--NICK.#[1028."\300.!\3
c8e0	30 31 05 21 5c 32 31 31 5c 32 30 33 1a 00 5c 32 31 31 40 5c 33 30 32 01 04 06 06 23 5c 32 31 30	01.!\211\203..\211@\302....#\210
c900	01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 06 00 5c 32 36 36 02 5c 33 30 33 04 5c 33 30 30 04 21	.A\266\202\202..\266.\303.\300.!
c920	5c 22 5c 32 30 35 2a 00 5c 33 30 34 04 5c 33 30 35 03 23 5c 32 30 37 22 20 5b 69 72 63 2d 75 73	\"\205*.\304.\305.#\207".[irc-us
c940	65 72 73 74 72 69 6e 67 2d 6e 69 63 6b 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 68 61	erstring-nick.irc-connection-cha
c960	6e 6e 65 6c 2d 6c 69 73 74 20 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 72 65 6e 61 6d 65 2d 75 73 65	nnel-list.irc-channel-rename-use
c980	72 20 69 72 63 2d 63 75 72 72 65 6e 74 2d 6e 69 63 6b 2d 70 20 69 72 63 2d 63 6f 6e 6e 65 63 74	r.irc-current-nick-p.irc-connect
c9a0	69 6f 6e 2d 70 75 74 20 3a 63 75 72 72 65 6e 74 2d 6e 69 63 6b 5d 20 31 31 20 22 5c 6e 5c 6e 28	ion-put.:current-nick].11."\n\n(
c9c0	66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 4e 45 57 2d 4e 49 43 4b 29 22 5d	fn.CONN.EVENT.SENDER.NEW-NICK)"]
c9e0	29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74 61 74 65 2d 74 72	).(defalias.'irc-handle-state-tr
ca00	61 63 6b 69 6e 67 2d 2d 50 52 49 56 4d 53 47 20 23 5b 31 32 38 35 20 22 5c 33 30 31 05 03 5c 22	acking--PRIVMSG.#[1285."\301..\"
ca20	5c 33 30 32 04 21 01 5c 32 30 35 2c 00 5c 33 30 33 02 02 5c 22 5c 32 31 31 5c 32 30 35 2a 00 5c	\302.!.\205,.\303..\"\211\205*.\
ca40	32 31 31 5c 33 30 34 48 08 3e 5c 32 30 34 5c 22 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 03 44 5c	211\304H.>\204\".\305\306\307.D\
ca60	22 5c 32 31 30 5c 32 31 31 5c 32 31 31 5c 33 31 30 5c 33 31 31 20 49 5c 32 36 32 01 5c 32 36 32	"\210\211\211\310\311.I\262.\262
ca80	01 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 75 73 65 72 2d 74 61 67 73 20	.\207".[cl-struct-irc-user-tags.
caa0	69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 68 61 6e 6e 65 6c 20 69 72 63 2d 75 73 65 72 73	irc-connection-channel.irc-users
cac0	74 72 69 6e 67 2d 6e 69 63 6b 20 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 75 73 65 72 20 30 20 73 69	tring-nick.irc-channel-user.0.si
cae0	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 69 72 63 2d 75 73 65	gnal.wrong-type-argument.irc-use
cb00	72 20 35 20 66 6c 6f 61 74 2d 74 69 6d 65 5d 20 31 32 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e	r.5.float-time].12."\n\n(fn.CONN
cb20	20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 54 41 52 47 45 54 20 4d 45 53 53 41 47 45 29 22 5d 29	.EVENT.SENDER.TARGET.MESSAGE)"])
cb40	0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74 61 74 65 2d 74 72 61	.(defalias.'irc-handle-state-tra
cb60	63 6b 69 6e 67 2d 2d 72 70 6c 2d 6e 61 6d 72 65 70 6c 79 20 23 5b 31 37 39 39 20 22 5c 33 30 31	cking--rpl-namreply.#[1799."\301
cb80	06 07 03 5c 22 5c 32 31 31 5c 32 30 35 46 00 5c 32 31 31 5c 33 30 32 48 08 3e 5c 32 30 34 18 00	...\"\211\205F.\211\302H.>\204..
cba0	5c 33 30 33 5c 33 30 34 5c 33 30 35 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 32 31 31 5c 33 30 36	\303\304\305.D\"\210\211\211\306
cbc0	5c 33 30 37 04 5c 33 30 32 48 08 3e 5c 32 30 34 2c 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07	\307.\302H.>\204,.\303\304\305..
cbe0	44 5c 22 5c 32 31 30 04 5c 33 30 36 48 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31	D\"\210.\306H\310\311\312\313\31
cc00	34 5c 33 31 35 06 12 21 5c 33 31 36 5c 22 5c 33 31 37 5c 33 32 30 25 5c 33 32 31 06 09 21 5c 22	4\315..!\316\"\317\320%\321..!\"
cc20	5c 22 49 5c 32 36 32 01 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61	\"I\262.\207".[cl-struct-irc-cha
cc40	6e 6e 65 6c 2d 74 61 67 73 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 68 61 6e 6e 65 6c	nnel-tags.irc-connection-channel
cc60	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 69 72	.0.signal.wrong-type-argument.ir
cc80	63 2d 63 68 61 6e 6e 65 6c 20 37 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62	c-channel.7.append.mapcar.make-b
cca0	79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c 33 30 30 02 5c 32 31 31 5c 33 30 32 5c	yte-code.257."\301\300.\211\302\
ccc0	33 30 33 02 5c 22 5c 32 30 33 13 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 32 31 31 04 24 5c 32	303.\"\203..\304\305\306\211.$\2
cce0	36 32 01 5c 33 30 32 5c 33 30 37 02 5c 22 5c 32 30 33 25 00 5c 33 30 34 5c 33 30 35 5c 33 30 36	62.\302\307.\"\203%.\304\305\306
cd00	5c 32 31 31 04 24 5c 32 36 36 5c 32 30 32 5c 32 30 32 27 00 5c 32 36 32 01 5c 22 5c 32 30 37 22	\211.$\266\202\202'.\262.\"\207"
cd20	20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 69 72 63 2d 6e 69 63 6b 2d 77 69 74 68 6f 75	.vconcat.vector.[irc-nick-withou
cd40	74 2d 70 72 65 66 69 78 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5b 20 09 5c 6e 0d 5d 2b 5c	t-prefix.string-match."[..\n.]+\
cd60	5c 27 22 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 22 22 20 74 20 22 5c 5c 60 5b 20 09 5c 6e	\'".replace-match."".t."\\`[..\n
cd80	0d 5d 2b 22 5d 20 31 30 20 22 5c 6e 5c 6e 28 66 6e 20 4e 49 43 4b 29 22 20 73 70 6c 69 74 2d 73	.]+"].10."\n\n(fn.NICK)".split-s
cda0	74 72 69 6e 67 5d 20 32 30 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53 45	tring].20."\n\n(fn.CONN.EVENT.SE
cdc0	4e 44 45 52 20 43 55 52 52 45 4e 54 2d 4e 49 43 4b 20 43 48 41 4e 4e 45 4c 2d 54 59 50 45 20 43	NDER.CURRENT-NICK.CHANNEL-TYPE.C
cde0	48 41 4e 4e 45 4c 2d 4e 41 4d 45 20 4e 49 43 4b 53 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20	HANNEL-NAME.NICKS)"]).(defalias.
ce00	27 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74 61 74 65 2d 74 72 61 63 6b 69 6e 67 2d 2d 72 70 6c 2d	'irc-handle-state-tracking--rpl-
ce20	65 6e 64 6f 66 6e 61 6d 65 73 20 23 5b 31 35 34 32 20 22 5c 33 30 31 06 06 03 5c 22 5c 32 31 31	endofnames.#[1542."\301...\"\211
ce40	5c 32 30 35 35 00 5c 33 30 32 01 5c 32 31 31 5c 33 30 33 48 08 3e 5c 32 30 34 1a 00 5c 33 30 34	\2055.\302.\211\303H.>\204..\304
ce60	5c 33 30 35 5c 33 30 36 05 44 5c 22 5c 32 31 30 02 5c 33 30 37 48 5c 22 5c 32 31 30 5c 32 31 31	\305\306.D\"\210.\307H\"\210\211
ce80	5c 33 30 33 48 08 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	\303H.>\204..\304\305\306.D\"\21
cea0	30 5c 32 31 31 5c 32 31 31 5c 33 30 37 5c 33 31 30 49 5c 32 36 32 01 5c 32 30 37 22 20 5b 63 6c	0\211\211\307\310I\262.\207".[cl
cec0	2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 20 69 72 63 2d 63 6f 6e	-struct-irc-channel-tags.irc-con
cee0	6e 65 63 74 69 6f 6e 2d 63 68 61 6e 6e 65 6c 20 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 2d 73 79 6e	nection-channel.irc-channel--syn
cf00	63 68 72 6f 6e 69 7a 65 2d 6e 69 63 6b 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79	chronize-nicks.0.signal.wrong-ty
cf20	70 65 2d 61 72 67 75 6d 65 6e 74 20 69 72 63 2d 63 68 61 6e 6e 65 6c 20 37 20 6e 69 6c 5d 20 31	pe-argument.irc-channel.7.nil].1
cf40	33 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 43 55 52	3."\n\n(fn.CONN.EVENT.SENDER.CUR
cf60	52 45 4e 54 2d 4e 49 43 4b 20 43 48 41 4e 4e 45 4c 2d 4e 41 4d 45 20 44 45 53 43 52 49 50 54 49	RENT-NICK.CHANNEL-NAME.DESCRIPTI
cf80	4f 4e 29 22 5d 29 0a 23 40 36 39 20 55 70 64 61 74 65 20 74 68 65 20 75 73 65 72 20 6c 69 73 74	ON)"]).#@69.Update.the.user.list
cfa0	20 6f 66 20 43 48 41 4e 4e 45 4c 20 74 6f 20 6d 61 74 63 68 20 4e 49 43 4b 53 2e 0a 0a 28 66 6e	.of.CHANNEL.to.match.NICKS...(fn
cfc0	20 43 48 41 4e 4e 45 4c 20 4e 49 43 4b 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d	.CHANNEL.NICKS)..(defalias.'irc-
cfe0	63 68 61 6e 6e 65 6c 2d 2d 73 79 6e 63 68 72 6f 6e 69 7a 65 2d 6e 69 63 6b 73 20 23 5b 35 31 34	channel--synchronize-nicks.#[514
d000	20 22 01 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 44 5c 22	.".\301H.>\204..\302\303\304.D\"
d020	5c 32 31 30 01 5c 33 30 35 48 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 22 02 5c 32 31 31 5c 32 30	\210.\305H\306\307\310\".\211\20
d040	33 41 00 5c 32 31 31 40 5c 33 31 31 5c 33 31 32 06 07 5c 33 30 31 48 08 3e 5c 32 30 34 30 00 5c	3A.\211@\311\312..\301H.>\2040.\
d060	33 30 32 5c 33 30 33 5c 33 30 34 06 5c 6e 44 5c 22 5c 32 31 30 06 07 5c 33 31 33 48 03 5c 22 02	302\303\304.\nD\"\210..\313H.\".
d080	05 23 5c 32 31 30 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 17 00 5c 32 31 30 5c 33 31 34 5c 33	.#\210.A\266\202\202..\210\314\3
d0a0	31 35 5c 33 31 36 5c 33 31 37 5c 33 32 30 5c 33 32 31 06 09 06 07 5c 22 5c 33 32 32 5c 22 5c 33	15\316\317\320\321....\"\322\"\3
d0c0	31 33 5c 33 32 33 25 03 5c 22 5c 32 31 30 5c 33 31 34 5c 33 31 35 5c 33 31 36 5c 33 32 34 5c 33	13\323%.\"\210\314\315\316\324\3
d0e0	32 30 5c 33 32 31 06 09 21 5c 33 32 35 5c 22 5c 33 30 35 5c 33 32 36 25 02 5c 22 5c 32 30 37 22	20\321..!\325\"\305\326%.\"\207"
d100	20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 20 30 20 73	.[cl-struct-irc-channel-tags.0.s
d120	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 69 72 63 2d 63 68	ignal.wrong-type-argument.irc-ch
d140	61 6e 6e 65 6c 20 35 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 65 71	annel.5.make-hash-table.:test.eq
d160	75 61 6c 20 70 75 74 68 61 73 68 20 69 72 63 2d 69 73 75 70 70 6f 72 74 2d 2d 63 61 73 65 2d 66	ual.puthash.irc-isupport--case-f
d180	6f 6c 64 20 38 20 6d 61 70 68 61 73 68 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34	old.8.maphash.make-byte-code.514
d1a0	20 22 5c 33 30 33 02 5c 33 30 31 5c 22 3f 5c 32 30 35 1d 00 5c 33 30 34 5c 33 30 30 02 5c 33 30	."\303.\301\"?\205..\304\300.\30
d1c0	35 48 5c 6e 3e 5c 32 30 34 19 00 5c 33 30 36 5c 33 30 37 5c 33 31 30 05 44 5c 22 5c 32 31 30 02	5H\n>\204..\306\307\310.D\"\210.
d1e0	5c 33 31 31 48 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 63 6c 2d	\311H\"\207".vconcat.vector.[cl-
d200	73 74 72 75 63 74 2d 69 72 63 2d 75 73 65 72 2d 74 61 67 73 20 67 65 74 68 61 73 68 20 69 72 63	struct-irc-user-tags.gethash.irc
d220	2d 63 68 61 6e 6e 65 6c 2d 72 65 6d 6f 76 65 2d 75 73 65 72 20 30 20 73 69 67 6e 61 6c 20 77 72	-channel-remove-user.0.signal.wr
d240	6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 69 72 63 2d 75 73 65 72 20 31 5d 20 22 5c	ong-type-argument.irc-user.1]."\
d260	6e 5c 6e 28 66 6e 20 4e 49 43 4b 2d 46 4f 4c 44 45 44 20 55 53 45 52 29 22 20 22 5c 33 30 31 5c	n\n(fn.NICK-FOLDED.USER)"."\301\
d280	33 30 30 02 5c 22 5c 32 30 37 22 20 5b 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 61 64 64 2d 75 73 65	300.\"\207".[irc-channel-add-use
d2a0	72 5d 20 22 5c 6e 5c 6e 28 66 6e 20 4e 49 43 4b 2d 46 4f 4c 44 45 44 20 4e 49 43 4b 29 22 5d 20	r]."\n\n(fn.NICK-FOLDED.NICK)"].
d2c0	31 32 20 28 23 24 20 2e 20 35 33 31 33 32 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63	12.(#$...53132)]).(defalias.'irc
d2e0	2d 68 61 6e 64 6c 65 2d 73 74 61 74 65 2d 74 72 61 63 6b 69 6e 67 2d 2d 54 4f 50 49 43 20 23 5b	-handle-state-tracking--TOPIC.#[
d300	31 32 38 35 20 22 5c 33 30 31 05 03 5c 22 5c 32 31 31 5c 32 30 35 46 00 5c 32 31 31 5c 33 30 32	1285."\301..\"\211\205F.\211\302
d320	48 08 3e 5c 32 30 34 17 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 03 44 5c 22 5c 32 31 30 5c 32 31	H.>\204..\303\304\305.D\"\210\21
d340	31 5c 32 31 31 5c 33 30 36 03 5c 33 30 32 48 08 3e 5c 32 30 34 2a 00 5c 33 30 33 5c 33 30 34 5c	1\211\306.\302H.>\204*.\303\304\
d360	33 30 35 06 06 44 5c 22 5c 32 31 30 03 5c 33 30 37 48 49 5c 32 36 36 02 5c 32 31 31 5c 33 30 32	305..D\"\210.\307HI\266.\211\302
d380	48 08 3e 5c 32 30 34 3f 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 03 44 5c 22 5c 32 31 30 5c 32 31	H.>\204?.\303\304\305.D\"\210\21
d3a0	31 5c 32 31 31 5c 33 30 37 04 49 5c 32 36 32 01 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74	1\211\307.I\262.\207".[cl-struct
d3c0	2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e	-irc-channel-tags.irc-connection
d3e0	2d 63 68 61 6e 6e 65 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	-channel.0.signal.wrong-type-arg
d400	75 6d 65 6e 74 20 69 72 63 2d 63 68 61 6e 6e 65 6c 20 33 20 32 5d 20 31 33 20 22 5c 6e 5c 6e 28	ument.irc-channel.3.2].13."\n\n(
d420	66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 43 48 41 4e 4e 45 4c 20 4e 45 57	fn.CONN.EVENT.SENDER.CHANNEL.NEW
d440	2d 54 4f 50 49 43 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65	-TOPIC)"]).(defalias.'irc-handle
d460	2d 73 74 61 74 65 2d 74 72 61 63 6b 69 6e 67 2d 2d 72 70 6c 2d 6e 6f 74 6f 70 69 63 20 23 5b 31	-state-tracking--rpl-notopic.#[1
d480	35 34 32 20 22 5c 33 30 31 06 06 03 5c 22 5c 32 31 31 5c 32 30 35 1f 00 5c 32 31 31 5c 33 30 32	542."\301...\"\211\205..\211\302
d4a0	48 08 3e 5c 32 30 34 18 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 03 44 5c 22 5c 32 31 30 5c 32 31	H.>\204..\303\304\305.D\"\210\21
d4c0	31 5c 32 31 31 5c 33 30 36 5c 33 30 37 49 5c 32 36 32 01 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72	1\211\306\307I\262.\207".[cl-str
d4e0	75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c 2d 74 61 67 73 20 69 72 63 2d 63 6f 6e 6e 65 63 74	uct-irc-channel-tags.irc-connect
d500	69 6f 6e 2d 63 68 61 6e 6e 65 6c 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d	ion-channel.0.signal.wrong-type-
d520	61 72 67 75 6d 65 6e 74 20 69 72 63 2d 63 68 61 6e 6e 65 6c 20 32 20 6e 69 6c 5d 20 31 31 20 22	argument.irc-channel.2.nil].11."
d540	5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 43 55 52 52 45 4e	\n\n(fn.CONN.EVENT.SENDER.CURREN
d560	54 2d 4e 49 43 4b 20 43 48 41 4e 4e 45 4c 20 4e 4f 2d 54 4f 50 49 43 2d 44 45 53 43 29 22 5d 29	T-NICK.CHANNEL.NO-TOPIC-DESC)"])
d580	0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 73 74 61 74 65 2d 74 72 61	.(defalias.'irc-handle-state-tra
d5a0	63 6b 69 6e 67 2d 2d 72 70 6c 2d 74 6f 70 69 63 20 23 5b 31 35 34 32 20 22 5c 33 30 31 06 06 03	cking--rpl-topic.#[1542."\301...
d5c0	5c 22 5c 32 31 31 5c 32 30 35 1f 00 5c 32 31 31 5c 33 30 32 48 08 3e 5c 32 30 34 18 00 5c 33 30	\"\211\205..\211\302H.>\204..\30
d5e0	33 5c 33 30 34 5c 33 30 35 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 32 31 31 5c 33 30 36 04 49 5c	3\304\305.D\"\210\211\211\306.I\
d600	32 36 32 01 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 69 72 63 2d 63 68 61 6e 6e 65 6c	262.\207".[cl-struct-irc-channel
d620	2d 74 61 67 73 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 68 61 6e 6e 65 6c 20 30 20 73	-tags.irc-connection-channel.0.s
d640	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 69 72 63 2d 63 68	ignal.wrong-type-argument.irc-ch
d660	61 6e 6e 65 6c 20 32 5d 20 31 31 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20	annel.2].11."\n\n(fn.CONN.EVENT.
d680	53 45 4e 44 45 52 20 43 55 52 52 45 4e 54 2d 4e 49 43 4b 20 43 48 41 4e 4e 45 4c 20 54 4f 50 49	SENDER.CURRENT-NICK.CHANNEL.TOPI
d6a0	43 29 22 5d 29 0a 23 40 31 31 37 39 20 41 64 64 20 63 6f 6d 6d 61 6e 64 20 68 61 6e 64 6c 65 72	C)"]).#@1179.Add.command.handler
d6c0	73 20 74 6f 20 54 41 42 4c 45 20 74 6f 20 64 65 61 6c 20 77 69 74 68 20 4e 69 63 6b 53 65 72 76	s.to.TABLE.to.deal.with.NickServ
d6e0	2e 0a 0a 43 6f 6e 6e 65 63 74 69 6f 6e 20 6f 70 74 69 6f 6e 73 20 75 73 65 64 3a 0a 0a 3a 6e 69	...Connection.options.used:..:ni
d700	63 6b 73 65 72 76 2d 6e 69 63 6b 20 2d 2d 20 54 68 65 20 6e 69 63 6b 20 74 6f 20 72 65 67 69 73	ckserv-nick.--.The.nick.to.regis
d720	74 65 72 20 61 73 0a 0a 3a 6e 69 63 6b 73 65 72 76 2d 70 61 73 73 77 6f 72 64 20 2d 2d 20 54 68	ter.as..:nickserv-password.--.Th
d740	65 20 70 61 73 73 77 6f 72 64 20 66 6f 72 20 6e 69 63 6b 73 65 72 76 3b 20 63 61 6e 20 62 65 20	e.password.for.nickserv;.can.be.
d760	61 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 0a 20 20 69 73 20 74 68 65 6e 20 63 61 6c 6c 65 64 20	a.function.and...is.then.called.
d780	77 69 74 68 20 74 68 65 20 49 52 43 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 61 73 20 69 74 73 20 73	with.the.IRC.connection.as.its.s
d7a0	6f 6c 65 20 61 72 67 75 6d 65 6e 74 0a 0a 3a 6e 69 63 6b 73 65 72 76 2d 6d 61 73 6b 20 2d 2d 20	ole.argument..:nickserv-mask.--.
d7c0	41 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20 6d 61 74 63 68 69 6e 67 20 74 68	A.regular.expression.matching.th
d7e0	65 20 63 6f 72 72 65 63 74 20 4e 69 63 6b 53 65 72 76 27 73 0a 20 20 6e 69 63 6b 21 75 73 65 72	e.correct.NickServ's...nick!user
d800	40 68 6f 73 74 20 73 74 72 69 6e 67 20 74 6f 20 61 76 6f 69 64 20 66 61 6b 65 73 0a 0a 3a 6e 69	@host.string.to.avoid.fakes..:ni
d820	63 6b 73 65 72 76 2d 69 64 65 6e 74 69 66 79 2d 63 68 61 6c 6c 65 6e 67 65 20 2d 2d 20 41 20 72	ckserv-identify-challenge.--.A.r
d840	65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20 6d 61 74 63 68 69 6e 67 20 74 68 65 0a 20	egular.expression.matching.the..
d860	20 63 68 61 6c 6c 65 6e 67 65 20 73 65 6e 74 20 62 79 20 4e 69 63 6b 53 65 72 76 20 74 6f 20 72	.challenge.sent.by.NickServ.to.r
d880	65 71 75 65 73 74 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 0a 0a 3a 6e 69 63 6b 73 65 72 76	equest.identification..:nickserv
d8a0	2d 69 64 65 6e 74 69 66 79 2d 63 6f 6d 6d 61 6e 64 20 2d 2d 20 54 68 65 20 72 61 77 20 49 52 43	-identify-command.--.The.raw.IRC
d8c0	20 63 6f 6d 6d 61 6e 64 20 74 6f 20 73 65 6e 64 20 74 6f 20 69 64 65 6e 74 69 66 79 3b 0a 20 20	.command.to.send.to.identify;...
d8e0	65 78 70 61 6e 64 73 20 7b 6e 69 63 6b 7d 20 61 6e 64 20 7b 70 61 73 73 77 6f 72 64 7d 20 77 68	expands.{nick}.and.{password}.wh
d900	65 6e 20 70 72 65 73 65 6e 74 0a 0a 3a 6e 69 63 6b 73 65 72 76 2d 69 64 65 6e 74 69 66 79 2d 63	en.present..:nickserv-identify-c
d920	6f 6e 66 69 72 6d 61 74 69 6f 6e 20 2d 2d 20 41 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 73	onfirmation.--.A.regular.express
d940	69 6f 6e 20 6d 61 74 63 68 69 6e 67 20 74 68 65 0a 20 20 63 6f 6e 66 69 72 6d 61 74 69 6f 6e 20	ion.matching.the...confirmation.
d960	6d 65 73 73 61 67 65 20 66 72 6f 6d 20 4e 69 63 6b 53 65 72 76 20 61 66 74 65 72 20 73 75 63 63	message.from.NickServ.after.succ
d980	65 73 73 66 75 6c 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 0a 0a 3a 6e 69 63 6b 73 65 72 76	essful.identification..:nickserv
d9a0	2d 67 68 6f 73 74 2d 63 6f 6d 6d 61 6e 64 20 2d 2d 20 54 68 65 20 72 61 77 20 49 52 43 20 63 6f	-ghost-command.--.The.raw.IRC.co
d9c0	6d 6d 65 6e 74 20 74 6f 20 67 68 6f 73 74 20 79 6f 75 72 0a 20 20 6f 72 69 67 69 6e 61 6c 20 6e	mment.to.ghost.your...original.n
d9e0	69 63 6b 3b 20 65 78 70 61 6e 64 73 20 7b 6e 69 63 6b 7d 20 61 6e 64 20 7b 70 61 73 73 77 6f 72	ick;.expands.{nick}.and.{passwor
da00	64 7d 2e 20 53 65 74 20 74 68 69 73 20 74 6f 20 6e 69 6c 0a 20 20 74 6f 20 64 69 73 61 62 6c 65	d}..Set.this.to.nil...to.disable
da20	20 67 68 6f 73 74 69 6e 67 20 61 6e 64 20 6e 69 63 6b 20 72 65 67 61 69 6e 69 6e 67 2e 0a 0a 3a	.ghosting.and.nick.regaining...:
da40	6e 69 63 6b 73 65 72 76 2d 67 68 6f 73 74 2d 63 6f 6e 66 69 72 6d 61 74 69 6f 6e 20 2d 2d 20 41	nickserv-ghost-confirmation.--.A
da60	20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20 6d 61 74 63 68 69 6e 67 20 74 68 65	.regular.expression.matching.the
da80	0a 20 20 63 6f 6e 66 69 72 6d 61 74 69 6f 6e 20 6d 65 73 73 61 67 65 20 74 68 61 74 20 74 68 65	...confirmation.message.that.the
daa0	20 6e 69 63 6b 20 77 61 73 20 67 68 6f 73 74 65 64 0a 0a 45 76 65 6e 74 73 20 65 6d 69 74 74 65	.nick.was.ghosted..Events.emitte
dac0	64 3a 0a 0a 22 6e 69 63 6b 73 65 72 76 2e 69 64 65 6e 74 69 66 69 65 64 22 20 2d 2d 20 57 65 20	d:.."nickserv.identified".--.We.
dae0	68 61 76 65 20 73 75 63 63 65 73 73 66 75 6c 6c 79 20 69 64 65 6e 74 69 66 69 65 64 20 77 69 74	have.successfully.identified.wit
db00	68 20 6e 69 63 6b 73 65 72 76 2e 0a 0a 22 6e 69 63 6b 73 65 72 76 2e 67 68 6f 73 74 65 64 22 20	h.nickserv..."nickserv.ghosted".
db20	2d 2d 20 57 65 20 68 61 76 65 20 67 68 6f 73 74 65 64 20 61 20 6e 69 63 6b 2e 0a 0a 28 66 6e 20	--.We.have.ghosted.a.nick...(fn.
db40	54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 6e 69	TABLE)..(defalias.'irc-handle-ni
db60	63 6b 73 65 72 76 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 23 5c 32 31 30	ckserv.#[257."\300.\301\302#\210
db80	5c 33 30 30 01 5c 33 30 33 5c 33 30 34 23 5c 32 31 30 5c 33 30 30 01 5c 33 30 35 5c 33 30 34 23	\300.\303\304#\210\300.\305\304#
dba0	5c 32 31 30 5c 33 30 30 01 5c 33 30 36 5c 33 30 37 23 5c 32 30 37 22 20 5b 69 72 63 2d 68 61 6e	\210\300.\306\307#\207".[irc-han
dbc0	64 6c 65 72 2d 61 64 64 20 22 69 72 63 2e 72 65 67 69 73 74 65 72 65 64 22 20 69 72 63 2d 68 61	dler-add."irc.registered".irc-ha
dbe0	6e 64 6c 65 2d 6e 69 63 6b 73 65 72 76 2d 2d 72 65 67 69 73 74 65 72 65 64 20 22 4e 4f 54 49 43	ndle-nickserv--registered."NOTIC
dc00	45 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 6e 69 63 6b 73 65 72 76 2d 2d 4e 4f 54 49 43 45 20 22	E".irc-handle-nickserv--NOTICE."
dc20	50 52 49 56 4d 53 47 22 20 22 4e 49 43 4b 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 6e 69 63 6b 73	PRIVMSG"."NICK".irc-handle-nicks
dc40	65 72 76 2d 2d 4e 49 43 4b 5d 20 35 20 28 23 24 20 2e 20 35 34 39 35 37 29 5d 29 0a 28 64 65 66	erv--NICK].5.(#$...54957)]).(def
dc60	61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 6e 69 63 6b 73 65 72 76 2d 2d 70 61 73 73	alias.'irc-handle-nickserv--pass
dc80	77 6f 72 64 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 33 30 32 01 21 5c 32 30	word.#[257."\300.\301\"\302.!\20
dca0	33 10 00 5c 32 31 31 02 21 5c 32 30 32 11 00 5c 32 31 31 5c 32 30 37 22 20 5b 69 72 63 2d 63 6f	3..\211.!\202..\211\207".[irc-co
dcc0	6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 3a 6e 69 63 6b 73 65 72 76 2d 70 61 73 73 77 6f 72 64 20	nnection-get.:nickserv-password.
dce0	66 75 6e 63 74 69 6f 6e 70 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 29 22 5d 29 0a 28	functionp].4."\n\n(fn.CONN)"]).(
dd00	64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 6e 69 63 6b 73 65 72 76 2d 2d 72	defalias.'irc-handle-nickserv--r
dd20	65 67 69 73 74 65 72 65 64 20 23 5b 37 37 31 20 22 5c 33 30 30 03 5c 33 30 31 5c 22 5c 33 30 30	egistered.#[771."\300.\301\"\300
dd40	04 5c 33 30 32 5c 22 5c 33 30 33 05 21 02 5c 32 30 35 2e 00 01 5c 32 30 35 2e 00 5c 32 31 31 5c	.\302\"\303.!.\205...\205..\211\
dd60	32 30 35 2e 00 5c 33 30 34 06 06 05 04 23 3f 5c 32 30 35 2e 00 5c 33 30 35 06 06 5c 33 30 36 05	205..\304....#?\205..\305..\306.
dd80	5c 33 30 37 06 06 5c 33 31 30 06 07 25 5c 22 5c 32 30 37 22 20 5b 69 72 63 2d 63 6f 6e 6e 65 63	\307..\310..%\"\207".[irc-connec
dda0	74 69 6f 6e 2d 67 65 74 20 3a 6e 69 63 6b 73 65 72 76 2d 67 68 6f 73 74 2d 63 6f 6d 6d 61 6e 64	tion-get.:nickserv-ghost-command
ddc0	20 3a 6e 69 63 6b 73 65 72 76 2d 6e 69 63 6b 20 69 72 63 2d 68 61 6e 64 6c 65 2d 6e 69 63 6b 73	.:nickserv-nick.irc-handle-nicks
dde0	65 72 76 2d 2d 70 61 73 73 77 6f 72 64 20 69 72 63 2d 73 74 72 69 6e 67 2d 65 71 75 61 6c 2d 70	erv--password.irc-string-equal-p
de00	20 69 72 63 2d 73 65 6e 64 2d 72 61 77 20 69 72 63 2d 66 6f 72 6d 61 74 20 6e 69 63 6b 20 70 61	.irc-send-raw.irc-format.nick.pa
de20	73 73 77 6f 72 64 5d 20 31 34 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 43	ssword].14."\n\n(fn.CONN.EVENT.C
de40	55 52 52 45 4e 54 2d 4e 49 43 4b 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68	URRENT-NICK)"]).(defalias.'irc-h
de60	61 6e 64 6c 65 2d 6e 69 63 6b 73 65 72 76 2d 2d 4e 4f 54 49 43 45 20 23 5b 31 32 38 35 20 22 5c	andle-nickserv--NOTICE.#[1285."\
de80	33 30 30 05 5c 33 30 31 5c 22 5c 33 30 32 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32	300.\301\"\302\211\211\211\211\2
dea0	31 31 06 06 5c 32 30 35 5c 32 34 31 00 5c 33 30 33 06 07 06 0b 5c 22 5c 32 30 35 5c 32 34 31 00	11..\205\241.\303....\"\205\241.
dec0	5c 33 30 30 06 5c 66 5c 33 30 34 5c 22 5c 32 36 32 06 5c 33 30 30 06 5c 66 5c 33 30 35 5c 22 5c	\300.\f\304\"\262.\300.\f\305\"\
dee0	32 36 32 05 5c 33 30 30 06 5c 66 5c 33 30 36 5c 22 5c 32 36 32 04 5c 33 30 30 06 5c 66 5c 33 30	262.\300.\f\306\"\262.\300.\f\30
df00	37 5c 22 5c 32 36 32 03 5c 33 30 30 06 5c 66 5c 33 31 30 5c 22 5c 32 36 32 02 5c 33 31 31 06 5c	7\"\262.\300.\f\310\"\262.\311.\
df20	66 21 5c 32 36 32 01 05 5c 32 30 33 6b 00 04 5c 32 30 33 6b 00 01 5c 32 30 33 6b 00 5c 32 31 31	f!\262..\203k..\203k..\203k.\211
df40	5c 32 30 33 6b 00 5c 33 30 33 06 06 06 09 5c 22 5c 32 30 33 6b 00 5c 33 31 32 06 5c 66 5c 33 31	\203k.\303....\"\203k.\312.\f\31
df60	33 06 07 5c 33 31 34 06 06 5c 33 31 35 06 07 25 5c 22 5c 32 30 32 5c 32 34 31 00 03 5c 32 30 33	3..\314..\315..%\"\202\241..\203
df80	7f 00 5c 33 30 33 04 06 09 5c 22 5c 32 30 33 7f 00 5c 33 31 36 06 5c 66 5c 33 31 37 5c 22 5c 32	..\303...\"\203..\316.\f\317\"\2
dfa0	30 32 5c 32 34 31 00 02 5c 32 30 35 5c 32 34 31 00 5c 33 30 33 03 06 09 5c 22 5c 32 30 35 5c 32	02\241..\205\241.\303...\"\205\2
dfc0	34 31 00 5c 33 31 36 06 5c 66 5c 33 32 30 5c 22 5c 32 31 30 5c 33 32 31 06 5c 66 5c 33 32 32 5c	41.\316.\f\320\"\210\321.\f\322\
dfe0	33 32 33 23 5c 32 31 30 01 5c 32 30 35 5c 32 34 31 00 5c 33 32 34 06 5c 66 03 5c 22 5c 32 30 37	323#\210.\205\241.\324.\f.\"\207
e000	22 20 5b 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 3a 6e 69 63 6b 73 65 72 76 2d	".[irc-connection-get.:nickserv-
e020	6d 61 73 6b 20 6e 69 6c 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 3a 6e 69 63 6b 73 65 72 76 2d	mask.nil.string-match.:nickserv-
e040	69 64 65 6e 74 69 66 79 2d 63 68 61 6c 6c 65 6e 67 65 20 3a 6e 69 63 6b 73 65 72 76 2d 69 64 65	identify-challenge.:nickserv-ide
e060	6e 74 69 66 79 2d 63 6f 6d 6d 61 6e 64 20 3a 6e 69 63 6b 73 65 72 76 2d 69 64 65 6e 74 69 66 79	ntify-command.:nickserv-identify
e080	2d 63 6f 6e 66 69 72 6d 61 74 69 6f 6e 20 3a 6e 69 63 6b 73 65 72 76 2d 67 68 6f 73 74 2d 63 6f	-confirmation.:nickserv-ghost-co
e0a0	6e 66 69 72 6d 61 74 69 6f 6e 20 3a 6e 69 63 6b 73 65 72 76 2d 6e 69 63 6b 20 69 72 63 2d 68 61	nfirmation.:nickserv-nick.irc-ha
e0c0	6e 64 6c 65 2d 6e 69 63 6b 73 65 72 76 2d 2d 70 61 73 73 77 6f 72 64 20 69 72 63 2d 73 65 6e 64	ndle-nickserv--password.irc-send
e0e0	2d 72 61 77 20 69 72 63 2d 66 6f 72 6d 61 74 20 6e 69 63 6b 20 70 61 73 73 77 6f 72 64 20 69 72	-raw.irc-format.nick.password.ir
e100	63 2d 65 76 65 6e 74 2d 65 6d 69 74 20 22 6e 69 63 6b 73 65 72 76 2e 69 64 65 6e 74 69 66 69 65	c-event-emit."nickserv.identifie
e120	64 22 20 22 6e 69 63 6b 73 65 72 76 2e 67 68 6f 73 74 65 64 22 20 69 72 63 2d 63 6f 6e 6e 65 63	d"."nickserv.ghosted".irc-connec
e140	74 69 6f 6e 2d 70 75 74 20 3a 6e 69 63 6b 73 65 72 76 2d 72 65 67 61 69 6e 69 6e 67 2d 6e 69 63	tion-put.:nickserv-regaining-nic
e160	6b 20 74 20 69 72 63 2d 73 65 6e 64 2d 4e 49 43 4b 5d 20 32 30 20 22 5c 6e 5c 6e 28 66 6e 20 43	k.t.irc-send-NICK].20."\n\n(fn.C
e180	4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 54 41 52 47 45 54 20 4d 45 53 53 41 47 45 29	ONN.EVENT.SENDER.TARGET.MESSAGE)
e1a0	22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 6e 69 63 6b 73 65	"]).(defalias.'irc-handle-nickse
e1c0	72 76 2d 2d 4e 49 43 4b 20 23 5b 31 30 32 38 20 22 5c 33 30 30 04 5c 33 30 31 5c 22 5c 32 30 35	rv--NICK.#[1028."\300.\301\"\205
e1e0	1d 00 5c 33 30 32 04 02 5c 33 30 30 06 07 5c 33 30 33 5c 22 23 5c 32 30 35 1d 00 5c 33 30 34 04	..\302..\300..\303\"#\205..\304.
e200	5c 33 30 31 5c 33 30 35 23 5c 32 31 30 5c 33 30 36 04 5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 69	\301\305#\210\306.\307\"\207".[i
e220	72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 3a 6e 69 63 6b 73 65 72 76 2d 72 65 67 61	rc-connection-get.:nickserv-rega
e240	69 6e 69 6e 67 2d 6e 69 63 6b 20 69 72 63 2d 73 74 72 69 6e 67 2d 65 71 75 61 6c 2d 70 20 3a 6e	ining-nick.irc-string-equal-p.:n
e260	69 63 6b 73 65 72 76 2d 6e 69 63 6b 20 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 70 75 74 20	ickserv-nick.irc-connection-put.
e280	6e 69 6c 20 69 72 63 2d 65 76 65 6e 74 2d 65 6d 69 74 20 22 6e 69 63 6b 73 65 72 76 2e 72 65 67	nil.irc-event-emit."nickserv.reg
e2a0	61 69 6e 65 64 22 5d 20 31 30 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53	ained"].10."\n\n(fn.CONN.EVENT.S
e2c0	45 4e 44 45 52 20 4e 45 57 2d 4e 49 43 4b 29 22 5d 29 0a 23 40 31 35 33 20 52 65 74 75 72 6e 20	ENDER.NEW-NICK)"]).#@153.Return.
e2e0	61 20 66 6f 72 6d 61 74 74 65 64 20 76 65 72 73 69 6f 6e 20 6f 66 20 46 4f 52 4d 41 54 2c 20 75	a.formatted.version.of.FORMAT,.u
e300	73 69 6e 67 20 73 75 62 73 74 69 74 75 74 69 6f 6e 73 20 66 72 6f 6d 20 41 52 47 53 2e 0a 0a 54	sing.substitutions.from.ARGS...T
e320	68 65 20 73 75 62 73 74 69 74 75 74 69 6f 6e 73 20 61 72 65 20 69 64 65 6e 74 69 66 69 65 64 20	he.substitutions.are.identified.
e340	62 79 20 62 72 61 63 65 73 20 28 27 7b 27 20 61 6e 64 20 27 7d 27 29 2e 0a 0a 28 66 6e 20 46 4f	by.braces.('{'.and.'}')...(fn.FO
e360	52 4d 41 54 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63	RMAT.&rest.ARGS)..(defalias.'irc
e380	2d 66 6f 72 6d 61 74 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 21 72 5c 32 31 31 71 5c 32	-format.#[385."\300\301!r\211q\2
e3a0	31 30 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 05 21 5c 33 30 37 5c 22 5c 33	10\302\303\304\305\306.!\307\"\3
e3c0	31 30 24 5c 32 31 36 02 63 5c 32 31 30 65 62 5c 32 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c	10$\216.c\210eb\210\311\312\313\
e3e0	33 31 34 23 5c 32 30 33 34 00 5c 33 31 35 5c 33 31 36 5c 33 31 37 5c 33 32 30 05 5c 33 32 31 5c	314#\2034.\315\316\317\320.\321\
e400	33 32 32 5c 33 32 33 21 21 5c 22 5c 22 5c 33 31 34 5c 32 31 31 23 5c 32 31 30 5c 32 30 32 19 00	322\323!!\"\"\314\211#\210\202..
e420	5c 33 32 34 20 2a 5c 32 30 37 22 20 5b 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72	\324.*\207".[generate-new-buffer
e440	20 22 20 2a 74 65 6d 70 2a 22 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 30 20 22 5c 33 30	.".*temp*".make-byte-code.0."\30
e460	31 5c 33 30 30 21 5c 32 30 35 09 00 5c 33 30 32 5c 33 30 30 21 5c 32 30 37 22 20 76 63 6f 6e 63	1\300!\205..\302\300!\207".vconc
e480	61 74 20 76 65 63 74 6f 72 20 5b 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62 75 66 66	at.vector.[buffer-name.kill-buff
e4a0	65 72 5d 20 32 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 7b 5c 5c 28 5b 5e 7d	er].2.re-search-forward."{\\([^}
e4c0	5d 2a 5c 5c 29 7d 22 20 6e 69 6c 20 74 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 66 6f 72 6d	]*\\)}".nil.t.replace-match.form
e4e0	61 74 20 22 25 73 22 20 70 6c 69 73 74 2d 67 65 74 20 69 6e 74 65 72 6e 20 6d 61 74 63 68 2d 73	at."%s".plist-get.intern.match-s
e500	74 72 69 6e 67 20 31 20 62 75 66 66 65 72 2d 73 74 72 69 6e 67 5d 20 31 31 20 28 23 24 20 2e 20	tring.1.buffer-string].11.(#$...
e520	35 38 30 37 33 29 5d 29 0a 23 40 35 30 33 20 41 64 64 20 63 6f 6d 6d 61 6e 64 20 68 61 6e 64 6c	58073)]).#@503.Add.command.handl
e540	65 72 73 20 74 6f 20 54 41 42 4c 45 20 74 6f 20 64 65 61 6c 20 77 69 74 68 20 4e 69 63 6b 53 65	ers.to.TABLE.to.deal.with.NickSe
e560	72 76 2e 0a 0a 43 6f 6e 6e 65 63 74 69 6f 6e 20 6f 70 74 69 6f 6e 73 20 75 73 65 64 3a 0a 0a 3a	rv...Connection.options.used:..:
e580	61 75 74 6f 2d 6a 6f 69 6e 2d 61 66 74 65 72 2d 72 65 67 69 73 74 72 61 74 69 6f 6e 20 2d 2d 20	auto-join-after-registration.--.
e5a0	4c 69 73 74 20 6f 66 20 63 68 61 6e 6e 65 6c 73 20 74 6f 20 6a 6f 69 6e 0a 20 20 69 6d 6d 65 64	List.of.channels.to.join...immed
e5c0	69 61 74 65 6c 79 20 61 66 74 65 72 20 72 65 67 69 73 74 72 61 74 69 6f 6e 20 77 69 74 68 20 74	iately.after.registration.with.t
e5e0	68 65 20 73 65 72 76 65 72 0a 0a 3a 61 75 74 6f 2d 6a 6f 69 6e 2d 61 66 74 65 72 2d 68 6f 73 74	he.server..:auto-join-after-host
e600	2d 68 69 64 69 6e 67 20 2d 2d 20 4c 69 73 74 20 6f 66 20 63 68 61 6e 6e 65 6c 73 20 74 6f 20 6a	-hiding.--.List.of.channels.to.j
e620	6f 69 6e 0a 20 20 61 66 74 65 72 20 6f 75 72 20 68 6f 73 74 20 77 61 73 20 68 69 64 64 65 6e 0a	oin...after.our.host.was.hidden.
e640	0a 3a 61 75 74 6f 2d 6a 6f 69 6e 2d 61 66 74 65 72 2d 6e 69 63 6b 2d 61 63 71 75 69 73 69 74 69	.:auto-join-after-nick-acquisiti
e660	6f 6e 20 2d 2d 20 4c 69 73 74 20 6f 66 20 63 68 61 6e 6e 65 6c 73 20 74 6f 20 6a 6f 69 6e 0a 20	on.--.List.of.channels.to.join..
e680	20 61 66 74 65 72 20 77 65 20 67 61 69 6e 65 64 20 6f 75 72 20 64 65 73 69 72 65 64 20 6e 69 63	.after.we.gained.our.desired.nic
e6a0	6b 0a 0a 3a 61 75 74 6f 2d 6a 6f 69 6e 2d 61 66 74 65 72 2d 6e 69 63 6b 73 65 72 76 2d 69 64 65	k..:auto-join-after-nickserv-ide
e6c0	6e 74 69 66 69 63 61 74 69 6f 6e 20 2d 2d 20 4c 69 73 74 20 6f 66 20 63 68 61 6e 6e 65 6c 73 0a	ntification.--.List.of.channels.
e6e0	20 20 74 6f 20 6a 6f 69 6e 20 61 66 74 65 72 20 77 65 20 69 64 65 6e 74 69 66 69 65 64 20 73 75	..to.join.after.we.identified.su
e700	63 63 65 73 73 66 75 6c 6c 79 20 77 69 74 68 20 4e 69 63 6b 53 65 72 76 0a 0a 28 66 6e 20 54 41	ccessfully.with.NickServ..(fn.TA
e720	42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 61 75 74 6f	BLE)..(defalias.'irc-handle-auto
e740	2d 6a 6f 69 6e 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 23 5c 32 31 30 5c	-join.#[257."\300.\301\302#\210\
e760	33 30 30 01 5c 33 30 33 5c 33 30 34 23 5c 32 31 30 5c 33 30 30 01 5c 33 30 35 5c 33 30 36 23 5c	300.\303\304#\210\300.\305\306#\
e780	32 31 30 5c 33 30 30 01 5c 33 30 37 5c 33 31 30 23 5c 32 31 30 5c 33 30 30 01 5c 33 31 31 5c 33	210\300.\307\310#\210\300.\311\3
e7a0	31 32 23 5c 32 30 37 22 20 5b 69 72 63 2d 68 61 6e 64 6c 65 72 2d 61 64 64 20 22 69 72 63 2e 72	12#\207".[irc-handler-add."irc.r
e7c0	65 67 69 73 74 65 72 65 64 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 61 75 74 6f 2d 6a 6f 69 6e 2d	egistered".irc-handle-auto-join-
e7e0	2d 72 65 67 69 73 74 65 72 65 64 20 22 33 39 36 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 61 75 74	-registered."396".irc-handle-aut
e800	6f 2d 6a 6f 69 6e 2d 2d 72 70 6c 2d 68 6f 73 74 68 69 64 64 65 6e 20 22 6e 69 63 6b 73 65 72 76	o-join--rpl-hosthidden."nickserv
e820	2e 72 65 67 61 69 6e 65 64 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 61 75 74 6f 2d 6a 6f 69 6e 2d	.regained".irc-handle-auto-join-
e840	2d 6e 69 63 6b 73 65 72 76 2d 72 65 67 61 69 6e 65 64 20 22 6e 69 63 6b 73 65 72 76 2e 69 64 65	-nickserv-regained."nickserv.ide
e860	6e 74 69 66 69 65 64 22 20 69 72 63 2d 68 61 6e 64 6c 65 2d 61 75 74 6f 2d 6a 6f 69 6e 2d 2d 6e	ntified".irc-handle-auto-join--n
e880	69 63 6b 73 65 72 76 2d 69 64 65 6e 74 69 66 69 65 64 20 22 73 61 73 6c 2e 6c 6f 67 69 6e 22 20	ickserv-identified."sasl.login".
e8a0	69 72 63 2d 68 61 6e 64 6c 65 2d 61 75 74 6f 2d 6a 6f 69 6e 2d 2d 73 61 73 6c 2d 6c 6f 67 69 6e	irc-handle-auto-join--sasl-login
e8c0	5d 20 35 20 28 23 24 20 2e 20 35 38 36 37 31 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72	].5.(#$...58671)]).(defalias.'ir
e8e0	63 2d 68 61 6e 64 6c 65 2d 61 75 74 6f 2d 6a 6f 69 6e 2d 2d 72 65 67 69 73 74 65 72 65 64 20 23	c-handle-auto-join--registered.#
e900	5b 37 37 31 20 22 5c 33 30 30 03 5c 33 30 31 5c 22 5c 32 31 31 5c 32 30 35 16 00 5c 32 31 31 40	[771."\300.\301\"\211\205..\211@
e920	5c 33 30 32 05 02 5c 22 5c 32 31 30 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 04 00 5c 32 30 37	\302..\"\210.A\266\202\202..\207
e940	22 20 5b 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 3a 61 75 74 6f 2d 6a 6f 69 6e	".[irc-connection-get.:auto-join
e960	2d 61 66 74 65 72 2d 72 65 67 69 73 74 72 61 74 69 6f 6e 20 69 72 63 2d 73 65 6e 64 2d 4a 4f 49	-after-registration.irc-send-JOI
e980	4e 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 43 55 52 52 45 4e 54	N].8."\n\n(fn.CONN.EVENT.CURRENT
e9a0	2d 4e 49 43 4b 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d	-NICK)"]).(defalias.'irc-handle-
e9c0	61 75 74 6f 2d 6a 6f 69 6e 2d 2d 72 70 6c 2d 68 6f 73 74 68 69 64 64 65 6e 20 23 5b 31 35 34 32	auto-join--rpl-hosthidden.#[1542
e9e0	20 22 5c 33 30 30 06 06 5c 33 30 31 5c 22 5c 32 31 31 5c 32 30 35 18 00 5c 32 31 31 40 5c 33 30	."\300..\301\"\211\205..\211@\30
ea00	32 06 08 02 5c 22 5c 32 31 30 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 05 00 5c 32 30 37 22 20	2...\"\210.A\266\202\202..\207".
ea20	5b 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 3a 61 75 74 6f 2d 6a 6f 69 6e 2d 61	[irc-connection-get.:auto-join-a
ea40	66 74 65 72 2d 68 6f 73 74 2d 68 69 64 69 6e 67 20 69 72 63 2d 73 65 6e 64 2d 4a 4f 49 4e 5d 20	fter-host-hiding.irc-send-JOIN].
ea60	31 31 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 53 45 4e 44 45 52 20 54 41	11."\n\n(fn.CONN.EVENT.SENDER.TA
ea80	52 47 45 54 20 48 4f 53 54 20 44 45 53 43 52 49 50 54 49 4f 4e 29 22 5d 29 0a 28 64 65 66 61 6c	RGET.HOST.DESCRIPTION)"]).(defal
eaa0	69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65 2d 61 75 74 6f 2d 6a 6f 69 6e 2d 2d 6e 69 63 6b 73	ias.'irc-handle-auto-join--nicks
eac0	65 72 76 2d 72 65 67 61 69 6e 65 64 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 22 5c	erv-regained.#[514."\300.\301\"\
eae0	32 31 31 5c 32 30 35 16 00 5c 32 31 31 40 5c 33 30 32 04 02 5c 22 5c 32 31 30 01 41 5c 32 36 36	211\205..\211@\302..\"\210.A\266
eb00	5c 32 30 32 5c 32 30 32 04 00 5c 32 30 37 22 20 5b 69 72 63 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d	\202\202..\207".[irc-connection-
eb20	67 65 74 20 3a 61 75 74 6f 2d 6a 6f 69 6e 2d 61 66 74 65 72 2d 6e 69 63 6b 2d 61 63 71 75 69 73	get.:auto-join-after-nick-acquis
eb40	69 74 69 6f 6e 20 69 72 63 2d 73 65 6e 64 2d 4a 4f 49 4e 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20	ition.irc-send-JOIN].7."\n\n(fn.
eb60	43 4f 4e 4e 20 45 56 45 4e 54 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61	CONN.EVENT)"]).(defalias.'irc-ha
eb80	6e 64 6c 65 2d 61 75 74 6f 2d 6a 6f 69 6e 2d 2d 6e 69 63 6b 73 65 72 76 2d 69 64 65 6e 74 69 66	ndle-auto-join--nickserv-identif
eba0	69 65 64 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 22 5c 32 31 31 5c 32 30 33 16 00	ied.#[514."\300.\301\"\211\203..
ebc0	5c 32 31 31 40 5c 33 30 32 04 02 5c 22 5c 32 31 30 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 04	\211@\302..\"\210.A\266\202\202.
ebe0	00 5c 32 31 30 5c 33 30 33 02 5c 33 30 30 04 5c 33 30 34 5c 22 5c 33 30 30 05 5c 33 30 35 5c 22	.\210\303.\300.\304\"\300.\305\"
ec00	23 5c 32 30 35 29 00 5c 33 30 36 02 02 5c 22 5c 32 30 37 22 20 5b 69 72 63 2d 63 6f 6e 6e 65 63	#\205).\306..\"\207".[irc-connec
ec20	74 69 6f 6e 2d 67 65 74 20 3a 61 75 74 6f 2d 6a 6f 69 6e 2d 61 66 74 65 72 2d 6e 69 63 6b 73 65	tion-get.:auto-join-after-nickse
ec40	72 76 2d 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 20 69 72 63 2d 73 65 6e 64 2d 4a 4f 49 4e 20	rv-identification.irc-send-JOIN.
ec60	69 72 63 2d 73 74 72 69 6e 67 2d 65 71 75 61 6c 2d 70 20 3a 6e 69 63 6b 20 3a 6e 69 63 6b 73 65	irc-string-equal-p.:nick.:nickse
ec80	72 76 2d 6e 69 63 6b 20 69 72 63 2d 68 61 6e 64 6c 65 2d 61 75 74 6f 2d 6a 6f 69 6e 2d 2d 6e 69	rv-nick.irc-handle-auto-join--ni
eca0	63 6b 73 65 72 76 2d 72 65 67 61 69 6e 65 64 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 43 4f 4e 4e	ckserv-regained].8."\n\n(fn.CONN
ecc0	20 45 56 45 4e 54 29 22 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 69 72 63 2d 68 61 6e 64 6c 65	.EVENT)"]).(defalias.'irc-handle
ece0	2d 61 75 74 6f 2d 6a 6f 69 6e 2d 2d 73 61 73 6c 2d 6c 6f 67 69 6e 20 23 5b 36 34 32 20 22 5c 33	-auto-join--sasl-login.#[642."\3
ed00	30 30 03 5c 33 30 31 5c 22 5c 32 31 31 5c 32 30 35 16 00 5c 32 31 31 40 5c 33 30 32 05 02 5c 22	00.\301\"\211\205..\211@\302..\"
ed20	5c 32 31 30 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 04 00 5c 32 30 37 22 20 5b 69 72 63 2d 63	\210.A\266\202\202..\207".[irc-c
ed40	6f 6e 6e 65 63 74 69 6f 6e 2d 67 65 74 20 3a 61 75 74 6f 2d 6a 6f 69 6e 2d 61 66 74 65 72 2d 73	onnection-get.:auto-join-after-s
ed60	61 73 6c 2d 6c 6f 67 69 6e 20 69 72 63 2d 73 65 6e 64 2d 4a 4f 49 4e 5d 20 38 20 22 5c 6e 5c 6e	asl-login.irc-send-JOIN].8."\n\n
ed80	28 66 6e 20 43 4f 4e 4e 20 45 56 45 4e 54 20 26 72 65 73 74 20 49 47 4e 4f 52 45 44 29 22 5d 29	(fn.CONN.EVENT.&rest.IGNORED)"])
eda0	0a 28 70 72 6f 76 69 64 65 20 27 69 72 63 29 0a	.(provide.'irc).