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