usocketおよび、force-outputについて質問させてください。
usocketの勉強のために簡単なEchoサーバを作りました。 echo1とecho2です。 echo1に対してtelnetでの接続を試みたところ、正常に動作いたしました。 しかしecho2に対してtelnet接続を試みたところ、文字列をサーバに送信したにも関わらず、サーバからレスポンスが戻ってきませんでした。
(defun echo1 (host port)
(usocket:with-socket-listener (socket host port)
(do () (nil nil)
(usocket:with-server-socket (socket (usocket:socket-accept socket :element-type '(unsigned-byte 8)))
(let ((stream (usocket:socket-stream socket)))
(do ((byte (read-byte stream nil)
(read-byte stream nil)))
((null byte) nil)
(write-byte byte stream)
(force-output stream)))))))
(defun echo2 (host port)
(usocket:with-socket-listener (socket host port)
(do () (nil nil)
(usocket:with-server-socket (socket (usocket:socket-accept socket :element-type '(unsigned-byte 8)))
(let ((stream (usocket:socket-stream socket)))
(do ((byte (read-byte stream nil)
(read-byte stream nil)))
((null byte) nil)
(write-byte byte stream))
(force-output stream))))))
echo1とecho2の違いは、むろん、force-outputの位置です。 そこで、伺いたのですが、どうしてforce-outputの位置の違いによって、このような違いが生まれるのでしょうか。なお、当方の使用処理系はSBCLです。