[cl-irc-cvs] r202 - trunk

[ehuelsmann at common-lisp.net]

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.