Author: ehuelsmann Date: Sat Apr 28 10:14:23 2007 New Revision: 202
Modified: trunk/command.lisp Log: Add missing CTCP primitive: ctcp-reply.
Modified: trunk/command.lisp ============================================================================== --- trunk/command.lisp (original) +++ trunk/command.lisp Sat Apr 28 10:14:23 2007 @@ -58,6 +58,7 @@ (defgeneric userhost (connection nickname)) (defgeneric ison (connection user)) (defgeneric ctcp (connection target message)) +(defgeneric ctcp-reply (connection target message)) (defgeneric ctcp-chat-initiate (connection nickname))
@@ -348,6 +349,9 @@ (defmethod ctcp ((connection connection) target message) (send-irc-message connection :privmsg target (make-ctcp-message message)))
+(defmethod ctcp-reply ((connection connection) target message) + (send-irc-message connection :notice target (make-ctcp-message message))) + #| There's too much wrong with this method to fix it now.