Cross platform .emacs file to load configuration from repository

.emacs.el

(require 'cl)
(defun load-init-file ()
  (let* (
        (user (getenv "USER"))
        (repo "/git/home")
        (locations 
         (list 
          (concat "/Users/" user repo)
          (concat "/home/" user repo)
          (concat "C:/cygwin/home/" user repo )
          ))
  (path nil)
        )
    (catch 'break
      (loop for location in locations
	    do
	    (setq path (concat location "/emacs/init.el"))
            (add-to-list 'load-path path)
	    (if (load path t) 
		(throw 'break path)
              (message (concat "Load failed " path))
	      )
	    )
      )
    )
)
          
(message (concat "load-init-file:" (if (load-init-file) "Succeeded" "Failed")))