Common Lispでechoサーバ

環境

処理系

• SBCL

ライブラリ

• usocket

コード

(ql:quickload "usocket")

(defun echo-server (port)
    (let* ((server-socket (usocket:socket-listen "localhost" port :reuseaddress t))
           (stream (usocket:socket-stream (usocket:socket-accept server-socket))))
          (labels ((rec ()
                        (princ (read-line stream) stream)
                        (force-output stream)
                        (rec)))
                  (rec))))

sbclなら末尾再帰最適化してくれるでしょうという信頼

参考

t-cool.hateblo.jp