     (first (string/split (-> tis
                              .getNextEntry
                              .getName)
-                         "/"))))
+                         #"/"))))
 
 
 (defn repo-handler

    subdir :subdir
    configurations :configurations
    autoconf-version :autoconf-version}]
  (println "autotools handler")
  (when (= type "autotools") (println "autotools")))

(defn shell-out [& args]

(defn download
  "Download a file, and save it to a known filename"
  [remote-file local-file]
 ; (shell-out "curl" remote-file "-o" local-file "-s")
  (shell-out "cp" "scratch/saved.tar.bz2" local-file))

(defn untar
  "Untar a file, into directory"
