zcaudate · June 29, 2012 22:04
diff --git a/code.clj b/code.clj

 (defn clean-ns [ns]
  (let [vs (keys (ns-interns ns))]
  	(doseq [v vs] (ns-unmap ns v))
  	vs))
diff --git a/usage.clj b/usage.clj
 ;; In REPL

 (ns testing)
 (use '[<util>.core :as <util>]) ;;load in clean-ns

 (ns-interns *ns*)
 ; => {}

 (defn a [] 9)
 (ns-interns *ns*)
 ; => {a #'testing/a} - We have put 'a' in the interns

 (<util>/clean-ns *ns*)
 ;=> (a)

 (ns-interns *ns*)
 ; => {} - 'a' is now gone
	;; In REPL

	(ns testing)
	(use '[<util>.core :as <util>]) ;;load in clean-ns

	(ns-interns ns)
	; => {}

	(defn a [] 9)
	(ns-interns ns)
	; => {a #'testing/a} - We have put 'a' in the interns

	(<util>/clean-ns ns)
	;=> (a)

	(ns-interns ns)
	; => {} - 'a' is now gone