 (defn clean-project-task
   [path project]
   (cond
-    (:clr project)
+    (clr-project? path)
     (leiningen.clr/clr project "clean")
     :else
     (leiningen.clean/clean project)))

            leiningen.droid/execute-release-routine)
    (ios-project? path)
    (leiningen.fruit/fruit project "release")
    (:clr project)
    (leiningen.clr/clr project "compile")
    (:gwt project)
    (leiningen.gwt/gwt project "compile")
    :else
    (leiningen.uberjar/uberjar project)))

                             (if (:cljsbuild project) "check-cljs" "check"))
      (catch Exception _)))
  (cond
    (clr-project? path)
    (leiningen.clr/clr project "test")
    :else
    (leiningen.test/test project)))
