码头线程被阻塞和死锁

Question

我在服务器上使用码头“7.6.8.v20121106”作为https://github.com/ring-clojure/ring/tree/master/ring-jetty-adapter 的一部分。

我正在使用http://http-kit.org/ 使用以下代码拨打电话。本质上，我正在进行服务器调用，但忽略了响应。我发现在那之后所有服务器线程都被阻塞/死锁。这似乎是一种非常简单的方法来关闭服务器并想了解这里发生了什么。

来自客户端的代码是：

(require '[org.httpkit.client :as hk-client])

 (defn hget [id]
   (hk-client/get (str "http://localhost:5000/v1/pubapis/auth/ping?ping=" id)))

(doall (map hget (take 100 (range))))) ; Gives problem
(doall (map deref (map hget (take 100 (range)))))) ; Doesn't give problem

线程阻塞在

sun.nio.cs.StreamEncoder.write(StreamEncoder.java:118)

并在

处陷入僵局

java.io.PrintStream.write(PrintStream.java:479)

如果有人能帮助解决这里发生的事情，我将不胜感激。

Answer 1

终于找到问题所在了。花了很多时间挖掘并从一个示例项目开始找到这个。 当我开始学习 clojure 并从某处复制以下内容进行日志记录时：

(defn log [msg & vals]
  (let [line (apply format msg vals)]
    (locking System/out (println line))))

在某些情况下，那里的线路锁定导致死锁。对并发了解不够，无法解决这个问题。将为此创建一个单独的问题。

删除此行可以解决问题。