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

[Kevin Rosenberg]

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

Modified Files:
	command.lisp 
Log Message:
add patch from cl-irc-devel 2004-02-07
Date: Sat Feb  7 18:32:43 2004
Author: krosenberg

Index: cl-irc/command.lisp
diff -u cl-irc/command.lisp:1.1.1.1 cl-irc/command.lisp:1.2
--- cl-irc/command.lisp:1.1.1.1	Mon Jan  5 09:13:03 2004
+++ cl-irc/command.lisp	Sat Feb  7 18:32:43 2004
@@ -1,4 +1,4 @@
-;;;; $Id: command.lisp,v 1.1.1.1 2004/01/05 14:13:03 eenge Exp $
+;;;; $Id: command.lisp,v 1.2 2004/02/07 23:32:43 krosenberg Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/command.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -82,6 +82,9 @@
   (remove-all-channels connection)
   (remove-all-users connection)
   (send-irc-message connection :quit message)
+  #+(and sbcl (not sb-thread))
+  (sb-sys:invalidate-descriptor (sb-bsd-sockets:socket-file-descriptor
+                               (server-socket connection)))
   (close (server-stream connection)))
 
 (defmethod squit ((connection connection) (server string) (comment string))