make-socket を使用していた実装から、with-open-socket へ書き換えたもの。 (defun open-echo-server () (format t "> Start OpenEchoServer...~%") (with-open-socket (server :type :stream :connect :passive :local-host "localhost" :local-port 8080 …