This is actually unused, so let's remove it.
Signed-off-by: Julien Danjou julien@danjou.info --- command.lisp | 1 - protocol.lisp | 13 ------------- 2 files changed, 14 deletions(-)
diff --git a/command.lisp b/command.lisp index c167561..5b84a60 100644 --- a/command.lisp +++ b/command.lisp @@ -552,7 +552,6 @@ for `connection'.")) (make-dcc-chat-connection :irc-connection irc-connection :remote-user (find-user irc-connection (source message)) - :socket socket :network-stream (usocket:socket-stream socket))))))))
(defmethod dcc-request-accept ((message dcc-ctcp-dcc-chat-request-message)) diff --git a/protocol.lisp b/protocol.lisp index 7d89530..e7caaaa 100644 --- a/protocol.lisp +++ b/protocol.lisp @@ -122,10 +122,6 @@ user class."))) :initarg :server-port :accessor server-port :initform *default-irc-server-port*) - (socket - :initarg :socket - :reader socket - :documentation "Slot to store socket (for internal use only).") (network-stream :initarg :network-stream :accessor network-stream @@ -212,7 +208,6 @@ connection.") (password nil) (server-name "") (server-port nil) - (socket nil) (network-stream nil) (outgoing-external-format *default-outgoing-external-format*) (client-stream t) @@ -226,7 +221,6 @@ connection.") :password password :server-name server-name :server-port server-port - :socket socket :network-stream network-stream :output-stream output-stream :client-stream client-stream))) @@ -461,11 +455,6 @@ a lost connection is detected.") :accessor remote-user :documentation "The user at the other end of this connection. The user at this end can be reached via your normal connection object.") - (socket - :initarg :socket - :accessor socket - :initform nil - :documentation "Socket used to do the remote client.") (network-stream :initarg :network-stream :accessor network-stream) @@ -554,7 +543,6 @@ of the network pipe.") (client-stream nil) (irc-connection nil) (close-on-main t) - (socket nil) (network-stream nil) (outgoing-external-format *default-outgoing-external-format*) (hooks nil)) @@ -569,7 +557,6 @@ of the network pipe.") :output-stream output-stream :irc-connection irc-connection :close-on-main close-on-main - :socket socket :network-stream network-stream))) (dolist (hook hooks) (add-hook connection (car hook) (cdar hook)))