[cl-irc-cvs] r200 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Apr 24 18:23:39 2007
New Revision: 200

Modified:
   trunk/event.lisp
   trunk/package.lisp
Log:
r199 followup: read-message calls dcc-message-event. Provide it.

Modified: trunk/event.lisp
==============================================================================
--- trunk/event.lisp	(original)
+++ trunk/event.lisp	Tue Apr 24 18:23:39 2007
@@ -15,6 +15,16 @@
   (unless (apply-to-hooks message)
     (client-log (connection message) message "UNHANDLED-EVENT:")))
 
+(defgeneric dcc-message-event (connection message)
+  (:documentation "Upon receipt of an IRC message from the
+connection's stream, irc-message-event will be called with the
+message."))
+
+(defmethod dcc-message-event (connection (message dcc-message))
+  (declare (ignore connection))
+  (unless (apply-to-hooks message)
+    (client-log (connection message) message "UNHANDLED-EVENT:")))
+
 
 (defgeneric default-hook (message)
   (:documentation "Minimum action to be executed upon reception

Modified: trunk/package.lisp
==============================================================================
--- trunk/package.lisp	(original)
+++ trunk/package.lisp	Tue Apr 24 18:23:39 2007
@@ -146,6 +146,7 @@
              :close-on-main
              :remote-user
              :dcc-close
+             :dcc-message-event
              :make-dcc-chat-connection
              )))