Changeset 202 for trunk

Timestamp:

04/28/07 14:14:23 (18 years ago)

Author:

Erik Huelsmann

Message:

Add missing CTCP primitive: ctcp-reply.

File:

• trunk/command.lisp (modified) (2 diffs)

trunk/command.lisp ¶

@@ -59 +59 @@
 (defgeneric ison (connection user))
 (defgeneric ctcp (connection target message))
+(defgeneric ctcp-reply (connection target message))
 (defgeneric ctcp-chat-initiate (connection nickname))
 
@@ -349 +350 @@
   (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.