gistfile1.clj

(defn threads []
  (let [tg (-> (Thread/currentThread) .getThreadGroup .getParent)
        enum (into-array Thread (repeat (.activeCount tg) nil))]
    (.enumerate tg enum)
    (seq enum)))

;; example:
;; user> (threads)
;; (#<ReferenceHandler Thread[Reference Handler,10,system]> #<FinalizerThread Thread[Finalizer,8,system]> #<Thread Thread[Signal Dispatcher,9,system]> #<Thread Thread[main,5,main]> #<Thread Thread[Server 0 [12],5,main]> #<Thread Thread[Call-on-write Stream,5,main]> #<Thread Thread[Swank Control Thread,5,main]> #<Thread Thread[Read Loop Thread,5,main]> #<Thread Thread[Swank REPL Thread,5,main]>)

;; from Chouser:

(defn threads []
  (keys (Thread/getAllStackTraces)))

;; example:
;; (#<ReferenceHandler Thread[Reference Handler,10,system]> #<FinalizerThread Thread[Finalizer,8,system]> #<Thread Thread[Signal Dispatcher,9,system]> #<Thread Thread[main,5,main]> #<Thread Thread[Swank Control Thread,5,main]> #<Thread Thread[Server 0 [12],5,main]> #<Thread Thread[Call-on-write Stream,5,main]> #<Thread Thread[Read Loop Thread,5,main]> #<Thread Thread[Swank REPL Thread,5,main]>)