[cl-irc-cvs] r237 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Jan 13 10:46:20 2013
New Revision: 237

Log:
Patch by Julien Danjou: Add mode to the channel instead of the target.

Modified:
   trunk/event.lisp

Modified: trunk/event.lisp
==============================================================================
--- trunk/event.lisp	Sun Jan 13 10:43:28 2013	(r236)
+++ trunk/event.lisp	Sun Jan 13 10:46:20 2013	(r237)
@@ -289,7 +289,7 @@
             (op mode-name value)
             change
           (unless (has-mode-p channel mode-name)
-            (add-mode target mode-name
+            (add-mode channel mode-name
                       (make-mode connection channel mode-name)))
           (funcall (if (char= #\+ op) #'set-mode #'unset-mode)
                    channel mode-name value)))))))