fogus · July 27, 2010 18:45
diff --git a/double-secret-magic.clj b/double-secret-magic.clj
 (ns a)
 (defn ^{:private true} foo [] 42)

 (ns b)
 (a/foo)
 ; explosion

 (def n (find-ns 'a))
 (((ns-map n) 'foo))
 ;=> 42
	(ns a)
	(defn ^{:private true} foo [] 42)

	(ns b)
	(a/foo)
	; explosion

	(def n (find-ns 'a))
	(((ns-map n) 'foo))
	;=> 42