如何让clojure编写对套接字的响应？

(ns my-namespace
  (:require [clojure.java.io :as io]
            [clojure.java.net :as net]))

(defn handle-socket [socket]
  (let [in (io/reader socket)
        out (io/writer socket)]
    ; 在这里编写对套接字的响应逻辑
    (println "收到来自客户端的消息：" (slurp in))
    (println "发送响应给客户端")
    (flush out)
    (close socket)))

(defn start-server [port]
  (let [server-socket (net/server-socket port)]
    (while true
      (let [socket (.accept server-socket)]
        (Thread. #(handle-socket socket))))))

(start-server 8080)