threads.clj

(defn get-thread-states []
  (->> (Thread/getAllStackTraces)
      (.keySet)
      (into [] )
      (mapv #(.getState %))
      frequencies))


(defn futures-quit [n ms] 
  ;; Start a bunch of threads
  (doseq [_ (range n)] 
    (future (Thread/sleep ms) (println "Finished"))) 
  (println "Exiting...") 
  ;; Print the statuses of all the threads:
  (println (get-thread-states)) 
  (System/exit 1))

(futures-quit 10 1000)