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)))