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))