(ns clojure.stacktrace)
(require 'clj-stacktrace.repl)

(defn print-cause-trace [& args]
  (if (or (ns-resolve 'clojure.test 'old-report)
          (System/getenv "LESS_MAGIC"))
    (apply clj-stacktrace.repl/pst args)
    (apply clj-stacktrace.repl/pst+ args)))

Generated by Phil Hagelberg using scpaste at Thu Sep 2 15:18:58 2010. PDT. (raw)