gistfile1.clj

(defn all-functions
  ([root-n] (all-functions root-n []))
  ([cur fns]
     (if (= java.util.ArrayList (class cur))
       (if (empty? cur)
         fns
         (map #(all-functions % fns) cur))
       (if (= org.jruby.ast.DefnNode (class cur))
         (all-functions (.childNodes cur) (conj fns cur))
         (all-functions (.childNodes cur) fns)))))