diff -uNr a/ircbot/ircbot.lisp b/ircbot/ircbot.lisp --- a/ircbot/ircbot.lisp a591af341ff436f6a3391aa5163f6bc366358b719427154f88815d87213798c92eae4923e6be147b92c04562619564d7a64ad9ac51ca08e5165b0b4b3da9813a +++ b/ircbot/ircbot.lisp 6ed286aa5d94e22e9087abb55e14f7bb7eb0b098e490b0d4d6b6118bb72665c220910d24f957ac0e096a035e59a5ba3bb81ab63552010727d40ac7b8b4a2d8bb @@ -6,7 +6,7 @@ (defclass ircbot () ((connection :accessor ircbot-connection :initform nil) - (channel :reader ircbot-channel :initarg :channel) + (channels :reader ircbot-channels :initarg :channels) (server :reader ircbot-server :initarg :server) (port :reader ircbot-port :initarg :port) (nick :reader ircbot-nick :initarg :nick) @@ -42,8 +42,9 @@ (ircbot-randomize-nick bot))) (add-hook conn 'irc-kick-message (lambda (message) (declare (ignore message)) - (join (ircbot-connection bot) - (ircbot-channel bot)))) + (map nil + (lambda (c) (join (ircbot-connection bot) c)) + (ircbot-channels bot)))) (add-hook conn 'irc-notice-message (lambda (message) (ircbot-handle-nickserv bot message))) (add-hook conn 'irc-pong-message (lambda (message) @@ -85,7 +86,7 @@ ((string= msgtext (format nil "~A is not online." (ircbot-nick bot))) (ircbot-nickserv-auth bot)) ((string= msgtext (format nil "You are now identified for ~A." (ircbot-nick bot))) - (join conn (ircbot-channel bot)))))))) + (map nil (lambda (c) (join conn c)) (ircbot-channels bot)))))))) (defmethod ircbot-handle-pong ((bot ircbot) message) (destructuring-bind (server ping) (arguments message) diff -uNr a/ircbot/package.lisp b/ircbot/package.lisp --- a/ircbot/package.lisp 0399ee3f6cfff1dc2c8e3ca17095499543356e440307d88e5d555ec981eb6d95a3c0003543039d0602fdb17ff843d9b8a6b7637d5239f2f1da001a12f8efda8d +++ b/ircbot/package.lisp 4c9b31d1d8daade63be9fbcf0c4c2fce64792792a61d1671c9ecaf8f9c061e0074c6d9b17982412044eda34d62655bed3b03591bc5722c01fa43e7fe165f6f77 @@ -10,10 +10,9 @@ :ircbot-disconnect :ircbot-reconnect :ircbot-connection - :ircbot-channel + :ircbot-channels :ircbot-send-message :ircbot-server :ircbot-port :ircbot-nick :ircbot-lag)) -