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