              (mapcat (fn [a-ns] (map g (f a-ns)))
                      ns-coll))))))
 
+
 (defn filter-key [keyfn pred amap]
   (loop [ret {} es (seq amap)]
     (if es

  (apply sorted-set
    (clojure.set/difference (all-ns-classpath) (all-ns-loaded))))

(defn all-ns-loaded-unloaded
  "Returns a sorted set of the name-strings of all unloaded namespaces."
  []

                           (not (.isPublic v))))
                (ns-map ns))))


(defn all-ns-classpath
  "Returns a sorted set of the name-strings of all namespaces found on class-path."
  []
