Don't be afraid to split your work across multiple functions. Not only is this clearer, but you can then test the functions independently. So something like this:
(defn access-map-add-users [access-map users path] (apply merge-with into access-map (for [user users] {user [path]}))) (defn access-map-add-line [access-map line] (let [[avail user-string path] (split line #"\|"), users (split user-string #"\,")] (cond (not= avail "avail") access-map ; no change to access-map :else (access-map-add-users access-map users path)))) (defn get-acl-access-data [file] (let [acl-lines (split (slurp file) #"\n")] (reduce access-map-add-line {} acl-lines))) -- You received this message because you are subscribed to the Google Groups "Clojure" group. To post to this group, send email to clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en