(defn do-something [x]
  (throw (Exception.)))

(defn clear-locals [x]
  (delay (try (do-something x)
              (catch Exception e
                (println "argument value:" x)))))

(force (clear-locals :argument))
;; => argument value: nil

Generated by Phil Hagelberg using scpaste at Wed Dec 30 20:48:24 2009. PST. (raw)