debug version of eval-in-subprocess

tmp.clj

(defn eval-in-subprocess [project form-string]
  (let [command `(~(or (System/getenv "JAVA_CMD") "java")
                  "-cp" ~(get-classpath-string project)
                  ~@(get-jvm-args project)
                  "clojure.main" "-e" ~form-string)]
    (let [cp (get-classpath-string project)]
      (println (type cp) ": " cp))
    (println "---")
    (let [args (get-jvm-args project)]
      (println (type args) ": " args))
    (println "---")
    (println (type form-string) form-string)
    (println "---")
    (apply sh command)))