common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

delete duplicated 'git fetch' for install clasp.

Browse source
This commit is contained in:
SANO Masatoshi 2017-02-26 23:21:16 +09:00
parent 8a237a0a31
commit 3001e318be
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/install-clasp.lisp
View file

@ -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))