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

change '*checkout-default*'. I'll change it further.

Browse source
This commit is contained in:
SANO Masatoshi 2016-11-10 23:53:03 +09:00
parent 61cf8c76ed
commit 7282ece7f3
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/util-install.lisp
View file

@ -117,13 +117,8 @@ ARGV2 contains a (possibly modified) ARGV.")
when (eql (aref href 0) #\/)
collect (funcall filter href)))))
(defun checkout-github (impl version tag argv)
(clone-github impl version :path "local-projects" :branch tag)
(read-call "quicklisp-client:register-local-projects")
(values (or (and (install-impl-if-probed version nil argv)
(or (setf argv nil) t))
(install-system-if-probed version))
argv))
(defun checkout-github (impl version tag)
(clone-github impl version :path "local-projects" :branch tag))
(defun install (argv)
(read-call "quicklisp-client:register-local-projects")
@ -150,7 +145,11 @@ ARGV2 contains a (possibly modified) ARGV.")
((install-localpath-if-probed impl/version/tag))
;;github registerd system like "fukamachi/sblint" checkout
(version
(setf (values _ argv) (funcall *checkout-default* impl version tag argv)))
(funcall *checkout-default* impl version tag)
(read-call "quicklisp-client:register-local-projects")
(or (and (install-impl-if-probed version nil argv)
(or (setf argv nil) t))
(install-system-if-probed version)))
(t (format *error-output* "'~A' is not a valid target for 'install' -- It should be a name of either:
+ a quicklisp-installable system
+ a common lisp installation ~%" impl)