Hi,<div><br></div><div>I found that with-accept-connection is no call shutdown on the socket, </div><div>but without this FIN will be sent to the client.</div><div><br></div><div><div>diff --git a/src/sockets/make-socket.lisp b/src/sockets/make-socket.lisp</div>
<div>index b87a214..e4e1d06 100644</div><div>--- a/src/sockets/make-socket.lisp</div><div>+++ b/src/sockets/make-socket.lisp</div><div>@@ -274,7 +274,10 @@ The socket is automatically closed upon exit."</div><div> (defmacro with-accept-connection ((var passive-socket &rest args) &body body)</div>
<div>   "Bind VAR to a socket created by passing PASSIVE-SOCKET and ARGS to ACCEPT-CONNECTION and execute BODY as implicit PROGN.</div><div> The socket is automatically closed upon exit."</div><div>-  `(with-open-stream (,var (accept-connection ,passive-socket ,@args)) ,@body))</div>
<div>+  `(with-open-stream (,var (accept-connection ,passive-socket ,@args))</div><div>+     (unwind-protect</div><div>+          (progn ,@body)</div><div>+       (shutdown ,var :write t :read t))))</div><div> </div><div>
 ;;; MAKE-SOCKET-FROM-FD</div><div> </div><div><br></div></div><div>Andrey</div>