[cl-irc-cvs] r238 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Jan 13 10:50:37 2013
New Revision: 238

Log:
Patch by Julien Danjou: MODE argument to mode command should be optional.

Modified:
   trunk/command.lisp

Modified: trunk/command.lisp
==============================================================================
--- trunk/command.lisp	Sun Jan 13 10:46:20 2013	(r237)
+++ trunk/command.lisp	Sun Jan 13 10:50:37 2013	(r238)
@@ -9,7 +9,7 @@
 (defgeneric nick (connection new-nickname))
 (defgeneric user- (connection username mode &optional realname))
 (defgeneric oper (connection name password))
-(defgeneric mode (connection nickname mode))
+(defgeneric mode (connection nickname &optional mode))
 (defgeneric op (connection channel nickname))
 (defgeneric deop (connection channel nickname))
 (defgeneric voice (connection channel user))
@@ -103,7 +103,7 @@
 (defmethod oper ((connection connection) (name string) (password string))
   (send-irc-message connection :oper name password))
 
-(defmethod mode ((connection connection) (nickname string) (mode string))
+(defmethod mode ((connection connection) (nickname string) &optional mode)
   (send-irc-message connection :mode nickname mode))
 
 ;; utility functions not part of the RFCs