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

[Erik Enge]

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