Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv12512 Modified Files: protocol.lisp Log Message: move below irc-message.... *sigh* Date: Mon Nov 3 15:57:52 2003 Author: eenge Index: net-nittin-irc/protocol.lisp diff -u net-nittin-irc/protocol.lisp:1.3 net-nittin-irc/protocol.lisp:1.4 --- net-nittin-irc/protocol.lisp:1.3 Mon Nov 3 15:55:00 2003 +++ net-nittin-irc/protocol.lisp Mon Nov 3 15:57:52 2003 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.3 2003/11/03 20:55:00 eenge Exp $ +;;;; $Id: protocol.lisp,v 1.4 2003/11/03 20:57:52 eenge Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $ ;;;; See LICENSE for licensing information. @@ -151,11 +151,6 @@ (setf (gethash class (hooks connection)) (delete hook (gethash class (hooks connection))))) -(defmethod apply-to-hooks ((message irc-message)) - (let ((connection (connection message))) - (dolist (hook (get-hooks connection (class-name (class-of message)))) - (funcall hook message)))) - ;; ;; Channel ;; @@ -373,6 +368,11 @@ (arguments message) (trailing-argument message)) (force-output stream))) + +(defmethod apply-to-hooks ((message irc-message)) + (let ((connection (connection message))) + (dolist (hook (get-hooks connection (class-name (class-of message)))) + (funcall hook message)))) ;; ;; CTCP Message