clean-ns

code.clj

(defn clean-ns [ns]
  (let [vs (keys (ns-interns ns))]
  	(doseq [v vs] (ns-unmap ns v))
  	vs))

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