jkk · May 29, 2010 04:17
diff --git a/.emacs b/.emacs
 (setq swank-clojure-init-files (list "/Users/tin/src/clj/user.clj"))
diff --git a/repl_example b/repl_example
 user> (def x 1)
 #'user/x
 user> x
 1
 user> (clear-ns)
 user> x
 ; Unable to resolve symbol: x in this context
diff --git a/user.clj b/user.clj
 (defn clear-ns []
  (let [n (ns-name *ns*) temp (gensym)]
    (in-ns temp)
    (clojure.core/remove-ns n)
    (clojure.core/in-ns n)
    (clojure.core/refer-clojure)
    (remove-ns temp)
    (load-file "/Users/tin/src/clj/user.clj")))
	user> (def x 1)
	#'user/x
	user> x
	1
	user> (clear-ns)
	user> x
	; Unable to resolve symbol: x in this context
	(defn clear-ns []
	(let [n (ns-name ns) temp (gensym)]
	(in-ns temp)
	(clojure.core/remove-ns n)
	(clojure.core/in-ns n)
	(clojure.core/refer-clojure)
	(remove-ns temp)
	(load-file "/Users/tin/src/clj/user.clj")))