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

[Kevin Rosenberg]

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

Modified Files:
	protocol.lisp 
Log Message:
add more messages
Date: Sun Jan  4 06:22:51 2004
Author: krosenberg

Index: net-nittin-irc/protocol.lisp
diff -u net-nittin-irc/protocol.lisp:1.34 net-nittin-irc/protocol.lisp:1.35
--- net-nittin-irc/protocol.lisp:1.34	Thu Jan  1 14:46:17 2004
+++ net-nittin-irc/protocol.lisp	Sun Jan  4 06:22:50 2004
@@ -1,4 +1,4 @@
-;;;; $Id: protocol.lisp,v 1.34 2004/01/01 19:46:17 krosenberg Exp $
+;;;; $Id: protocol.lisp,v 1.35 2004/01/04 11:22:50 krosenberg Exp $
 ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -537,7 +537,7 @@
 (create-irc-message-classes (mapcar #'second *reply-names*))
 (create-irc-message-classes '(:privmsg :notice :kick :topic :error
                               :mode :ping :nick :join :part :quit :kill
-			      :pong))
+			      :pong :invite))
 
 (defmethod find-irc-message-class (type)
   (find-class 'irc-message))