[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/acceptor.lisp

[BKNR Commits]

Revision: 4662
Author: hans
URL: http://bknr.net/trac/changeset/4662

Patch to allow restarting an acceptor after it has been stopped, by Desmond O. Chang.

U   trunk/thirdparty/hunchentoot/acceptor.lisp

Modified: trunk/thirdparty/hunchentoot/acceptor.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/acceptor.lisp	2011-03-15 05:44:16 UTC (rev 4661)
+++ trunk/thirdparty/hunchentoot/acceptor.lisp	2011-03-21 05:17:30 UTC (rev 4662)
@@ -120,7 +120,7 @@
 		   :documentation "Number of pending connections
           allowed in the listen socket before the kernel rejects
           further incoming connections.")
-   (acceptor-shutdown-p :initform nil
+   (acceptor-shutdown-p :initform t
                         :accessor acceptor-shutdown-p
                         :documentation "A flag that makes the acceptor
 shutdown itself when set to something other than NIL.")
@@ -266,6 +266,7 @@
 ;; general implementation
 
 (defmethod start ((acceptor acceptor))
+  (setf (acceptor-shutdown-p acceptor) nil)
   (start-listening acceptor)
   (let ((taskmaster (acceptor-taskmaster acceptor)))
     (setf (taskmaster-acceptor taskmaster) acceptor)