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

Modified select externals clasp version

Browse source
This commit is contained in:
gos-k 2017-10-14 00:51:55 +09:00
parent 9c31a2d736
commit accfb527fc
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/install-clasp.lisp
View file

@ -32,12 +32,15 @@
(set-opt "src" (merge-pathnames (format nil "src/clasp/~A/" (getf argv :version)) (homedir)))
(cons t argv))
(defun clasp-get-externals-clasp-version (argv)
(or (third (assoc (getf argv :version) *clasp-version* :test 'equal))
(config "externals.clasp.version")))
(defun clasp-lib (argv)
(let* ((externals-clasp-version (third (assoc (getf argv :version) *clasp-version* :test 'equal)))
(arg (format nil "/~a" (or externals-clasp-version
(third (car *clasp-version*))))))
(roswell:roswell (list (format nil "install externals-clasp+~a" arg)) :interactive nil)
(cons t argv)))
(roswell:roswell (list (format nil "install externals-clasp+/~a"
(clasp-get-externals-clasp-version argv)))
:interactive nil)
(cons t argv))
(defun clasp-expand (argv)
(let ((output (namestring (opt "src"))))
@ -68,7 +71,7 @@
:direction :output :if-exists :supersede)
(format out "EXTERNALS_CLASP_DIR = '~A'~%" (namestring (merge-pathnames (format nil "lib/~A/~A/externals-clasp/~A"
(uname-m) (uname)
(config "externals.clasp.version"))
(clasp-get-externals-clasp-version argv))
(homedir))))
(format out "SBCL = '~A'~%" (namestring (merge-pathnames "bin/sbcl" sbcl-base))))
(setenv "SBCL_HOME" (namestring (merge-pathnames "lib/sbcl" sbcl-base)))