From 8f2ad7b1b8e87c8d3300c5fae7ba8d8ae23c764b Mon Sep 17 00:00:00 2001 From: SANO Masatoshi Date: Sat, 21 Mar 2020 21:27:27 +0800 Subject: [PATCH] fix git clone failure when alias is set --- lisp/util.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/util.lisp b/lisp/util.lisp index a80455f..8951c2e 100644 --- a/lisp/util.lisp +++ b/lisp/util.lisp @@ -242,9 +242,9 @@ ccl-bin -> (\"ccl-bin\" nil) (if (funcall (intern (string :probe-file*) :uiop) dir) () (funcall (intern (string :run-program) :uiop) - (format nil "git clone ~A https://github.com/~A.git ~A" + (format nil "git clone ~A https://github.com/~A/~A.git ~A" branch - alias + owner name (namestring (ensure-directories-exist dir)))))) (let* ((path/ (merge-pathnames (format nil "~A/~A.tgz" path alias) home)) (dir (merge-pathnames ".expand/" (make-pathname :defaults path/ :name nil :type nil))) @@ -262,7 +262,7 @@ ccl-bin -> (\"ccl-bin\" nil) (return-from clone-github t)))) (funcall dtree dir :if-does-not-exist :ignore :validate t) (setq branch (or branch "master")) - (download (format nil "https://github.com/~A/archive/~A.tar.gz" alias branch) path/) + (download (format nil "https://github.com/~A/~A/archive/~A.tar.gz" owner name branch) path/) (expand path/ (ensure-directories-exist dir)) (when clean-dest (funcall dtree dest :validate t))