Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv31463
Modified Files: protocol.lisp Log Message: adding add-default-hooks
Date: Sun Nov 23 18:22:19 2003 Author: eenge
Index: net-nittin-irc/protocol.lisp diff -u net-nittin-irc/protocol.lisp:1.14 net-nittin-irc/protocol.lisp:1.15 --- net-nittin-irc/protocol.lisp:1.14 Sun Nov 23 17:39:16 2003 +++ net-nittin-irc/protocol.lisp Sun Nov 23 18:22:19 2003 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.14 2003/11/23 22:39:16 eenge Exp $ +;;;; $Id: protocol.lisp,v 1.15 2003/11/23 23:22:19 eenge Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $
;;;; See LICENSE for licensing information. @@ -90,6 +90,25 @@ (dolist (hook hooks) (add-hook connection (car hook) (cadr hook))) connection)) + +(defmethod add-default-hooks ((connection connection)) + (dolist (message '(irc-rpl_whoisuser-message + irc-rpl_list-message + irc-rpl_topic-message + irc-rpl_namreply-message + irc-ping-message + irc-join-message + irc-topic-message + irc-ping-message + irc-quit-message + irc-kick-message + irc-nick-message + ctcp-time-message + ctcp-source-message + ctcp-finger-message + ctcp-version-message + ctcp-ping-message)) + (add-hook connection message #'default-hook)))
(defmethod client-raw-log ((connection connection) message) (let ((stream (client-stream connection)))