<div dir="ltr">Hi Julien,<div><br></div><div style>Thanks! Committed as r236. You missed a second socket in command.lisp, actually. Removed that as well.</div><div style><br></div><div style>Bye,</div><div style><br></div>
<div style>Erik.</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Sun, Jan 13, 2013 at 3:04 PM, Julien Danjou <span dir="ltr"><<a href="mailto:julien@danjou.info" target="_blank">julien@danjou.info</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">This is actually unused, so let's remove it.<br>
<br>
Signed-off-by: Julien Danjou <<a href="mailto:julien@danjou.info">julien@danjou.info</a>><br>
---<br>
command.lisp | 1 -<br>
protocol.lisp | 13 -------------<br>
2 files changed, 14 deletions(-)<br>
<br>
diff --git a/command.lisp b/command.lisp<br>
index c167561..5b84a60 100644<br>
--- a/command.lisp<br>
+++ b/command.lisp<br>
@@ -552,7 +552,6 @@ for `connection'."))<br>
(make-dcc-chat-connection<br>
:irc-connection irc-connection<br>
:remote-user (find-user irc-connection (source message))<br>
- :socket socket<br>
:network-stream (usocket:socket-stream socket))))))))<br>
<br>
(defmethod dcc-request-accept ((message dcc-ctcp-dcc-chat-request-message))<br>
diff --git a/protocol.lisp b/protocol.lisp<br>
index 7d89530..e7caaaa 100644<br>
--- a/protocol.lisp<br>
+++ b/protocol.lisp<br>
@@ -122,10 +122,6 @@ user class.")))<br>
:initarg :server-port<br>
:accessor server-port<br>
:initform *default-irc-server-port*)<br>
- (socket<br>
- :initarg :socket<br>
- :reader socket<br>
- :documentation "Slot to store socket (for internal use only).")<br>
(network-stream<br>
:initarg :network-stream<br>
:accessor network-stream<br>
@@ -212,7 +208,6 @@ connection.")<br>
(password nil)<br>
(server-name "")<br>
(server-port nil)<br>
- (socket nil)<br>
(network-stream nil)<br>
(outgoing-external-format *default-outgoing-external-format*)<br>
(client-stream t)<br>
@@ -226,7 +221,6 @@ connection.")<br>
:password password<br>
:server-name server-name<br>
:server-port server-port<br>
- :socket socket<br>
:network-stream network-stream<br>
:output-stream output-stream<br>
:client-stream client-stream)))<br>
@@ -461,11 +455,6 @@ a lost connection is detected.")<br>
:accessor remote-user<br>
:documentation "The user at the other end of this connection. The<br>
user at this end can be reached via your normal connection object.")<br>
- (socket<br>
- :initarg :socket<br>
- :accessor socket<br>
- :initform nil<br>
- :documentation "Socket used to do the remote client.")<br>
(network-stream<br>
:initarg :network-stream<br>
:accessor network-stream)<br>
@@ -554,7 +543,6 @@ of the network pipe.")<br>
(client-stream nil)<br>
(irc-connection nil)<br>
(close-on-main t)<br>
- (socket nil)<br>
(network-stream nil)<br>
(outgoing-external-format *default-outgoing-external-format*)<br>
(hooks nil))<br>
@@ -569,7 +557,6 @@ of the network pipe.")<br>
:output-stream output-stream<br>
:irc-connection irc-connection<br>
:close-on-main close-on-main<br>
- :socket socket<br>
:network-stream network-stream)))<br>
(dolist (hook hooks)<br>
(add-hook connection (car hook) (cdar hook)))<br>
<span class="HOEnZb"><font color="#888888">--<br>
1.8.1<br>
<br>
<br>
_______________________________________________<br>
cl-irc-devel site list<br>
<a href="mailto:cl-irc-devel@common-lisp.net">cl-irc-devel@common-lisp.net</a><br>
<a href="http://common-lisp.net/mailman/listinfo/cl-irc-devel" target="_blank">http://common-lisp.net/mailman/listinfo/cl-irc-devel</a><br>
</font></span></blockquote></div><br></div>