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)))))))