         (leiningen.droid/execute-subtask project cmd [])))
     (ios-project? path)
     (leiningen.fruit/fruit project "doall")
-    (:clr project)
+    (clr-project? path)
     (leiningen.clr/clr project "run")
     :else
     (leiningen.run/run 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)))

  [path]
  (-> path read-project-clj :gwt some?))

(defn clr-project?
  [path]
  (-> path read-project-clj :clr some?))

(defn valid-project?
  [path]
  (or (not (sandbox/get-dir))
