[cl-irc-cvs] r215 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Aug 18 14:22:58 2012
New Revision: 215

Log:
Add sockets keep alive on SBCL.

Patch submitted by Daniel Lowe.

Modified:
   trunk/command.lisp

Modified: trunk/command.lisp
==============================================================================
--- trunk/command.lisp	Sat Aug 18 14:21:02 2012	(r214)
+++ trunk/command.lisp	Sat Aug 18 14:22:58 2012	(r215)
@@ -300,6 +300,7 @@
                           :nickname nickname
                           :username username
                           :realname realname)))
+    #+sbcl (setf (sb-bsd-sockets::sockopt-keep-alive (usocket:socket socket)) t)
     (setf (user connection) user)
     (unless (null password)
       (pass connection password))