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

patch for #405

Browse source
This commit is contained in:
SANO Masatoshi 2019-12-19 14:55:54 +08:00
parent 35870fd747
commit 6cda17cf42
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/install-ccl-bin.lisp
View file

@ -28,9 +28,10 @@
(let ((uname (uname))
(ccl-uname-m (ccl-uname-m)))
(set-opt "as" (getf argv :version))
(set-opt "download.uri" (format nil "~@{~A~}" (ccl-bin-uri)
(getf argv :version) "/ccl-" (getf argv :version) "-" uname ccl-uname-m (if (equal uname "windows")
".zip"".tar.gz")))
(set-opt "download.uri" (or (opt "download.uri")
(format nil "~@{~A~}" (ccl-bin-uri)
(getf argv :version) "/ccl-" (getf argv :version) "-" uname ccl-uname-m (if (equal uname "windows")
".zip"".tar.gz"))))
(set-opt "download.archive" (let ((pos (position #\/ (opt "download.uri") :from-end t)))
(when pos
(merge-pathnames (format nil "archives/~A" (subseq (opt "download.uri") (1+ pos))) (homedir)))))