[Cl-irc-cvs] CVS update: cl-irc/command.lisp - cl-irc-cvs@common-lisp.net - mailman3.common-lisp.net

8 Feb 2004

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

    