scratch.clj

(do
  
  (clojure.core.server/start-server
   {:port 4567
    :name "my-prepl"
    :accept 'clojure.core.server/io-prepl})


  (with-open [s (java.net.Socket. "localhost" 4567)
              i (-> (.getInputStream s)
                    (java.io.InputStreamReader.)
                    (clojure.lang.LineNumberingPushbackReader.))
              o (.getOutputStream s)]
    (.write o (.getBytes "(.getId (Thread/currentThread))\n"))
    (let [tid (:val (read i))
          f (future
              (Thread/sleep 1000)
              (with-open [s (java.net.Socket. "localhost" 4567)
                          i (-> (.getInputStream s)
                                (java.io.InputStreamReader.)
                                (clojure.lang.LineNumberingPushbackReader.))
                          o (.getOutputStream s)]
                (.write o (.getBytes
                           (prn-str
                            `(doseq [[t# _#] (Thread/getAllStackTraces)
                                     :when (= (.getId t#)  ~(Long/parseLong tid))]
                               (.stop t#)))))
                (prn (read i))))]
      (.write o (.getBytes "@(promise)\n"))
      (read i))))