[Cl-irc-cvs] CVS update: cl-irc/command.lisp - cl-irc-cvs@common-lisp.net - mailman3.common-lisp.net

18 Sep 2005

Update of /project/cl-irc/cvsroot/cl-irc
In directory common-lisp.net:/tmp/cvs-serv5595
Modified Files:
    command.lisp 
Log Message:
Add antifuchs' pass-on-connect support
Date: Sun Sep 18 16:24:50 2005
Author: bmastenbrook
Index: cl-irc/command.lisp
diff -u cl-irc/command.lisp:1.10 cl-irc/command.lisp:1.11

--- cl-irc/command.lisp:1.10	Sun Apr 17 21:45:42 2005
+++ cl-irc/command.lisp	Sun Sep 18 16:24:45 2005
@@ -1,4 +1,4 @@
-;;;; $Id: command.lisp,v 1.10 2005/04/17 19:45:42 ehuelsmann Exp $
+;;;; $Id: command.lisp,v 1.11 2005/09/18 14:24:45 bmastenbrook Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/command.lisp,v $
;;;; See LICENSE for licensing information.
@@ -241,6 +241,7 @@
 (defun connect (&key (nickname *default-nickname*)
                      (username nil)
                      (realname nil)
+                     (password nil)
                      (mode 0)
                      (server *default-irc-server*)
                      (port *default-irc-server-port*)
@@ -255,6 +256,8 @@
                           :username username
                           :realname realname)))
     (setf (user connection) user)
+    (unless (null password)
+      (pass connection password))
     (nick connection nickname)
     (user- connection (or username nickname) mode (or realname nickname))
     (add-default-hooks connection)

    