 
 ;;TODO: give meaningful names to the let variables
 
-(def xmxm java.io.File)
+;(def xmxm java.io.File);well this blows
 
 (declare transform-flatfiles-to-symlinks)
 

          rel-symlink (get_all_symlinks_from_repo repo-path)
          ]
    (let [;TODO: move this as :let inside doseq
          ^xmxm abs-symlink (new xmxm (str repo-path (java.io.File/separator) rel-symlink))
          ]
      (if (.isFile abs-symlink);when core.symlinks=false  all symlinks are just files after checkout
        (transform-flatfile-to-symlink abs-symlink)


(defn transform-flatfile-to-symlink [flat-file]
  (let [
        ^{:tag java.io.File} ffull (.getAbsoluteFile (clojure.java.io/as-file flat-file))
        ^String full-path (.getAbsolutePath ffull)
        zmap (parse-flatfile-wannabe-symlink full-path)
        ;TODO: handle case when symlink is invalid
