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

[Erik Enge]

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

Modified Files:
	command.lisp 
Log Message:
calling add-default-hooks in connect

Date: Sun Nov 23 18:21:59 2003
Author: eenge

Index: net-nittin-irc/command.lisp
diff -u net-nittin-irc/command.lisp:1.7 net-nittin-irc/command.lisp:1.8
--- net-nittin-irc/command.lisp:1.7	Sun Nov 23 17:39:15 2003
+++ net-nittin-irc/command.lisp	Sun Nov 23 18:21:57 2003
@@ -1,4 +1,4 @@
-;;;; $Id: command.lisp,v 1.7 2003/11/23 22:39:15 eenge Exp $
+;;;; $Id: command.lisp,v 1.8 2003/11/23 23:21:57 eenge Exp $
 ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/command.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -222,6 +222,7 @@
                                       :server-name server)))
     (nick connection nickname)
     (user- connection (or username nickname) mode (or realname nickname))
+    (add-default-hooks connection)
     connection))
 
 (defmethod trace- ((connection connection) &optional (target ""))