[Cl-irc-cvs] CVS update: cl-irc/protocol.lisp

[Erik Huelsmann]

Update of /project/cl-irc/cvsroot/cl-irc
In directory common-lisp.net:/tmp/cvs-serv9455

Modified Files:
	protocol.lisp 
Log Message:
Remove *all* references to 'socket'. Close the stream the same way 'quit' does.
Date: Sun Apr 17 23:14:30 2005
Author: ehuelsmann

Index: cl-irc/protocol.lisp
diff -u cl-irc/protocol.lisp:1.23 cl-irc/protocol.lisp:1.24
--- cl-irc/protocol.lisp:1.23	Sun Apr 17 21:45:41 2005
+++ cl-irc/protocol.lisp	Sun Apr 17 23:14:30 2005
@@ -1,4 +1,4 @@
-;;;; $Id: protocol.lisp,v 1.23 2005/04/17 19:45:41 ehuelsmann Exp $
+;;;; $Id: protocol.lisp,v 1.24 2005/04/17 21:14:30 ehuelsmann Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/protocol.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -432,10 +432,11 @@
 ;; argh.  I want to name this quit but that gives me issues with
 ;; generic functions.  need to resolve.
 (defmethod dcc-close ((connection dcc-connection))
+  #+(and sbcl (not sb-thread))
+  (sb-sys:invalidate-descriptor (sb-sys:fd-stream-fd (stream connection)))
   (close (dcc-stream connection))
   (setf (user connection) nil)
   (setf *dcc-connections* (remove connection *dcc-connections*))
-  #+sbcl (sb-bsd-sockets:socket-close (socket connection))
   )
 
 (defmethod connectedp ((connection dcc-connection))