clojure/jmx with-connection потеряет соединение

Question

Я пытаюсь вызвать несколько удаленных операций JMX, используя то же соединение из clojure. Я использую

[org.clojure/java.jmx "0.3.3"] 

Однако я обнаружил, что соединение с нетерпением заменено локальным соединением JMX. В качестве иллюстрации:

Дано:

(ns test.core 
    (:require 
    [clojure.java.jmx :as jmx])) 

Если у меня есть что-то вроде:

(defn caller [col host port] 
    (println jmx/*connection*) 
    (jmx/with-connection {:host host, :port port :environment 
         {"jmx.remote.credentials" (into-array String ["tomcat" "tomcat"])}} 
    (do 
    (println jmx/*connection*) 
    (map called col)))) 

(defn called [line] 
    (println jmx/*connection*) 
) 

Calling

 (caller [1] "host" 8000) 

я получаю:

#object[com.sun.jmx.mbeanserver.JmxMBeanServer 0x2c914364 com.sun.jmx.mbeanserver.JmxMBeanServer@2c914364] 
#object[javax.management.remote.rmi.RMIConnector$RemoteMBeanServerConnection 0x2b4bbf01 javax.management.remote.rmi.RMIConnector$RemoteMBeanServerConnection@2b4bbf01] 
#object[com.sun.jmx.mbeanserver.JmxMBeanServer 0x2c914364 com.sun.jmx.mbeanserver.JmxMBeanServer@2c914364] 

Таким образом, удаленное соединение сохраняется только для первого оператора, который обращается к соединению, прежде чем устанавливать его обратно на локальный сервер. Как сохранить удаленное соединение?

Answer 1

попробуйте заменить (map called col) на (run! called col), и я уверен, что это сработает. Это связано с ленинностью коллекций clojure: когда вы вызываете map, он немедленно возвращается, не реализуя элементы, и когда дело доходит до реализации элементов, поток уже вышел из блока with-connection, что означает, что функция called вызывается в контекст, где соединение уже закрыто.