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

local-projects to support env

Browse source
This commit is contained in:
SANO Masatoshi 2017-09-18 04:45:29 +09:00
parent ad0ecbc540
commit ee80ddccc9
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/init.lisp
View file

@ -180,7 +180,9 @@ have the latest asdf, and this file has a workaround for this.
(cl:load path :verbose (verbose))
(loop with symbol = (read-from-string "ql:*local-project-directories*")
for path in `(,local ,@(and (or path (and environment (getenv environment)))
`(,(merge-pathnames "local-projects/" (opt "homedir")))))
`(,(merge-pathnames (format nil "env/~A/local-projects/" (opt "roswellenv"))
(opt "homedir"))
,(merge-pathnames "local-projects/" (opt "homedir")))))
for probe = (and path (or (ignore-errors (probe-file path))
#+clisp(ext:probe-directory path)))
when probe