Błąd Clojure w wątku: java.lang.IllegalArgumentException: Klucz musi być liczbą całkowitą
Jestem zaskoczony przez dwie rzeczy. Po pierwsze, sam komunikat o błędzie. I po drugie, fakt, że ten kod obraca tak wiele wątków. Pomyślałem, że w odpowiedzi na pojedyncze żądanie rozwinie się 2 lub 3 wątki, ale gdy uruchomię to na localhost i wskażę na niego przeglądarkę (tylko raz), obróci się o 40 wątków. Wprawdzie korzystałem z Chrome, który wysyła 3 żądania w tle, z różnych skomplikowanych powodów, których Google broni jako „funkcja” (szybkość).
Co oznacza ten błąd?
Exception in thread "Thread-39" java.lang.IllegalArgumentException: Key must be integer
at clojure.lang.APersistentVector.invoke(APersistentVector.java:250)
at serve_pages_from_memory.core$listen_and_respond$fn__51.invoke(core.clj:30)
at clojure.lang.AFn.run(AFn.java:24)
at java.lang.Thread.run(Thread.java:680)
Widzę podobne błędy omówione wcześniej w StackOverflow, ale nie widzę, w jaki sposób wiążą się one z moim problemem:
mapa filtra clojure według kluczy
Próbuję zbudować prostą aplikację, która obsługuje stronę. Robię to głównie w celu sprawdzenia własnej wiedzy o Clojure. Oto większość kodu:
(defn start-thread [f]
(doto (new Thread f) (.start)))
(defn serve-page [wrt]
(let [content-length (count page-string)]
(. wrt println "HTTP/1.1 200 OK")
(. wrt println "Content-Type: text/html; charset=UTF-8")
(. wrt println "Connection: Keep-Alive")
(. wrt println (str "Content-Length: " content-length))
(. wrt print "\r\n")
(. wrt print page-string)
(. wrt flush)
(. wrt close)))
(defn listen-and-respond [ss]
(let [client (. ss accept)]
(start-thread #([client]
(let [wrt (new PrintWriter (new BufferedWriter (new OutputStreamWriter (. client (getOutputStream)))))]
(serve-page wrt))))))
(defn create-server [port]
(let [ss (new ServerSocket port)]
(start-thread #(when-not (. ss (isClosed))
(try (listen-and-respond ss)
(catch SocketException e))
(recur)))
ss))
(defn -main [& args]
(println "Server is starting")
(let [port (Integer/parseInt (first args))]
(create-server port)))
Błąd wydaje się narzekać na tę linię:
(serve-page wrt))))))
Ale to jest nazwa funkcji i obiekt PrintWriter. Komunikat o błędzie sugeruje, że chodziło o mapę z kluczami. Błąd nie ma sensu.
Jakieś sugestie?