about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/circe-20180525.1231/irc.elc
blob: 9c9cd1508ce899d64e813348611bec143745dd72 (plain)
ofshex dumpascii
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).