[net-nittin-irc-cvs] CVS update: net-nittin-irc/event.lisp net-nittin-irc/protocol.lisp

[Kevin Rosenberg]

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc
In directory common-lisp.net:/tmp/cvs-serv8257

Modified Files:
	event.lisp protocol.lisp 
Log Message:
add :kill, :error, and :pong message classes
Date: Thu Jan  1 14:46:17 2004
Author: krosenberg

Index: net-nittin-irc/event.lisp
diff -u net-nittin-irc/event.lisp:1.14 net-nittin-irc/event.lisp:1.15
--- net-nittin-irc/event.lisp:1.14	Tue Nov 25 08:04:33 2003
+++ net-nittin-irc/event.lisp	Thu Jan  1 14:46:17 2004
@@ -1,4 +1,4 @@
-;;;; $Id: event.lisp,v 1.14 2003/11/25 13:04:33 eenge Exp $
+;;;; $Id: event.lisp,v 1.15 2004/01/01 19:46:17 krosenberg Exp $
 ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/event.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -12,7 +12,7 @@
 
 (defmethod irc-message-event ((message irc-message))
   (apply-to-hooks message)
-  (client-log (connection message) message "UNHANLDED-EVENT:"))
+  (client-log (connection message) message "UNHANDLED-EVENT:"))
 
 (defmethod default-hook ((message irc-rpl_whoisuser-message))
   (let ((user (find-user (connection message)


Index: net-nittin-irc/protocol.lisp
diff -u net-nittin-irc/protocol.lisp:1.33 net-nittin-irc/protocol.lisp:1.34
--- net-nittin-irc/protocol.lisp:1.33	Thu Jan  1 03:09:15 2004
+++ net-nittin-irc/protocol.lisp	Thu Jan  1 14:46:17 2004
@@ -1,4 +1,4 @@
-;;;; $Id: protocol.lisp,v 1.33 2004/01/01 08:09:15 krosenberg Exp $
+;;;; $Id: protocol.lisp,v 1.34 2004/01/01 19:46:17 krosenberg Exp $
 ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -536,7 +536,8 @@
 ;; should perhaps wrap this in an eval-when?
 (create-irc-message-classes (mapcar #'second *reply-names*))
 (create-irc-message-classes '(:privmsg :notice :kick :topic :error
-                              :mode :ping :nick :join :part :quit))
+                              :mode :ping :nick :join :part :quit :kill
+			      :pong))
 
 (defmethod find-irc-message-class (type)
   (find-class 'irc-message))