Given a seq of namespaces that are both compilable and that have missing or
out-of-date class files.
(defn stale-namespaces
"Given a seq of namespaces that are both compilable and that have missing or
out-of-date class files."
[project]
(filter
(fn [n]
(let [clj-path (ns->path n)]
(> (.lastModified (file (:source-path project) clj-path))
(.lastModified (file (:compile-path project)
(.replace clj-path "\\.clj" "__init.class"))))))
(compilable-namespaces project)))
Comments top
No comments for stale-namespaces. Log in to add a comment.