Added :buffered t option to socket-accept.

Pascal J. Bourguignon [2015-08-07 06:51]
Added :buffered t option to socket-accept.
Filename
ddns/server.lisp
diff --git a/ddns/server.lisp b/ddns/server.lisp
index 60ded8f..5bc514a 100644
--- a/ddns/server.lisp
+++ b/ddns/server.lisp
@@ -121,7 +121,7 @@ quit
     (unwind-protect
          ;; infinite loop, terminate with Control+C
          (loop
-           (with-open-stream (socket (socket:socket-accept server  :external-format :dos))
+           (with-open-stream (socket (socket:socket-accept server  :external-format :dos :buffered t))
              (handler-case
                  (multiple-value-bind (local-host local-port) (socket:socket-stream-local socket t)
                    (multiple-value-bind (remote-host remote-port) (socket:socket-stream-peer socket t)
ViewGit