From 3001e318bebdc3e66ea285246b968e0e5f30805a Mon Sep 17 00:00:00 2001 From: SANO Masatoshi Date: Sun, 26 Feb 2017 23:21:16 +0900 Subject: [PATCH] delete duplicated 'git fetch' for install clasp. --- lisp/install-clasp.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/install-clasp.lisp b/lisp/install-clasp.lisp index 4a7aa6b..1b614a9 100644 --- a/lisp/install-clasp.lisp +++ b/lisp/install-clasp.lisp @@ -29,12 +29,10 @@ :output t :ignore-error-status nil)) (chdir (opt "src")) (format t "git fetch~%") - (uiop/run-program:run-program - (list "git" "fetch") :output t :ignore-error-status nil) - (format t "git checkout ~A" (getf argv :version)) (uiop/run-program:run-program (list "git" "fetch" "origin") :output t :ignore-error-status nil) + (format t "git checkout ~A~%" (getf argv :version)) (uiop/run-program:run-program (list "git" "checkout" (getf argv :version)) :output t :ignore-error-status nil)) @@ -54,7 +52,8 @@ (config "externals.clasp.version")) (homedir)))) (format out "SBCL = '~A'~%" (namestring (merge-pathnames "bin/sbcl" sbcl-base)))) - (setenv "SBCL_HOME" (namestring (merge-pathnames "lib/sbcl" sbcl-base)))) + (setenv "SBCL_HOME" (namestring (merge-pathnames "lib/sbcl" sbcl-base))) + (format t "with sbcl-bin(~A) build clasp" sbcl-base)) (with-open-file (out (ensure-directories-exist (merge-pathnames (format nil "log/clasp/~A/make.log" (getf argv :version))