          (println (str (seq nonexistent-paths))))})))
 
 
+(defn handle-errwarn [info]
+  (when (:warn info)
+    (print (:warn-msg info))
+    (flush))
+  (when (:err info)
+    (print (:err-msg info))
+    (flush)
+    (System/exit 1)))
+
+
 (defn calc-ns-opts
   [project cmd-opts]
   (let [paths (or (:paths cmd-opts) [:source-paths])]

       (or
        (non-string-paths paths)
        (nonexistent-paths paths)
        (merge
         {:namespace-show-opts [{:exclude ns/clojure-core-namespaces}]}
         cmd-opts
         {:err nil, :paths paths}))))))


(defn handle-errwarn [info]
  (when (:warn info)
    (print (:warn-msg info))
    (flush))
  (when (:err info)
    (print (:err-msg info))
    (flush)
    (System/exit 1)))


(defn dolly

      (dolly-help args)
      
      ("ns" "namespaces")
      (dolly-ns project args)
      
      ("ls" "list-clones")
      (println "list-clones not implemented yet")
