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

enable recursive ros install.

Browse source
This commit is contained in:
SANO Masatoshi 2017-06-17 16:31:39 +09:00
parent 61f87cde64
commit 2eed7aa84c
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/install.ros
View file

@ -15,8 +15,6 @@ exec ros -Q +R -L sbcl-bin -- $0 "$@"
(in-package :ros.script.install.3671936092)
(defun main (&rest argv)
(let ((asdf:*system-definition-search-functions*
(remove 'roswell-installable-searcher asdf:*system-definition-search-functions*)))
(install argv)))
(install argv))
;;; vim: set ft=lisp lisp:

9
lisp/patch-quicklisp.lisp
View file

@ -35,6 +35,7 @@
(defun roswell-installable-searcher (system-name)
(let ((name (roswell-installed-system-name system-name))
(env "ROSINSTALL")
pname)
(and
name
@ -42,7 +43,13 @@
(asdf:find-system pname nil)))
(prog1
(or (quicklisp-client:local-projects-searcher name)
(progn
(unless (find system-name (loop for ar = (ros:getenv env) then (subseq ar (1+ p))
for p = (position #\, ar)
for arg = (if p (subseq ar 0 p) ar)
collect arg
while p)
:test 'equal)
(roswell.util:setenv env (format nil "~A,~A" system-name (ros:getenv env)))
(roswell:roswell `("install" ,system-name))
(quicklisp-client:register-local-projects)
(quicklisp-client:local-projects-searcher name))