[cl-irc-cvs] r157 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue May 16 16:23:04 2006
New Revision: 157

Modified:
   trunk/package.lisp
   trunk/protocol.lisp
Log:
Fix issue #6: insufficient data to reconnect.

Modified: trunk/package.lisp
==============================================================================
--- trunk/package.lisp	(original)
+++ trunk/package.lisp	Tue May 16 16:23:04 2006
@@ -18,6 +18,7 @@
              :destructuring-arguments
              :socket-connect
              :server-name
+             :server-port
              :no-such-reply
              :irc-mode
              :boolean-value-mode
@@ -61,6 +62,7 @@
              :irc-message
              :source
              :user
+             :password
              :host
              :command
              :arguments

Modified: trunk/protocol.lisp
==============================================================================
--- trunk/protocol.lisp	(original)
+++ trunk/protocol.lisp	Tue May 16 16:23:04 2006
@@ -110,10 +110,18 @@
   ((user
     :initarg :user
     :accessor user)
+   (password
+    :initarg :password
+    :accessor password
+    :initform nil)
    (server-name
     :initarg :server-name
     :accessor server-name
     :initform "Unknown server")
+   (server-port
+    :initarg :server-port
+    :accessor server-port
+    :initform *default-irc-server-port*)
    (network-stream
     :initarg :network-stream
     :accessor network-stream
@@ -188,7 +196,9 @@
 
 (defun make-connection (&key (connection-type 'connection)
                              (user nil)
+                             (password nil)
                              (server-name "")
+                             (server-port nil)
                              (network-stream nil)
                              (outgoing-external-format *default-outgoing-external-format*)
                              (client-stream t)
@@ -199,7 +209,9 @@
                          :external-format (external-format-fixup outgoing-external-format)))
          (connection (make-instance connection-type
                                    :user user
+                                   :password password
                                    :server-name server-name
+                                   :server-port server-port
                                    :network-stream network-stream
                                    :output-stream output-stream
                                    :client-stream client-stream)))