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

debug on env

Browse source
This commit is contained in:
SANO Masatoshi 2018-02-11 17:11:22 +09:00
parent 396bc466d7
commit 0b6b3445ca
2 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/setup.ros
View file

@ -86,7 +86,7 @@ exec ros -Q -N roswell -- $0 "$@"
(if (and env*
(not (equal env* "-")))
(format nil " -N ~A " env*)
(format nil " -L ~A " (opt "impl"))))
(format nil " -L ~A " (or (opt "*lisp") (opt "impl")))))
,@(loop for i in dir
collect "--load "
collect (format nil "~A " i))

9
lisp/util-dump.lisp
View file

@ -34,6 +34,8 @@ Notably, it must include all nicknames.")
(defun dump-dir (&optional env)
(let ((env (or env (opt "*roswellenv"))))
(setf env (if (equal env "-") nil
env))
(merge-pathnames (format nil "~Aimpls/~A/~A/~A/dump/"
(if env
(format nil "env/~A/" env)
@ -41,14 +43,15 @@ Notably, it must include all nicknames.")
(uname-m) (uname)
(or (when env
(let* ((conf
(roswell.util.config:load-config
(merge-pathnames (format nil "env/~A/config" env)
(homedir))))
(roswell.util.config:load-config
(merge-pathnames (format nil "env/~A/config" env)
(homedir))))
(lisp (third (assoc "default.lisp" conf :test 'equal)))
(version (third (assoc (format nil "~a.version" lisp)
conf :test 'equal))))
(and lisp version
(format nil "~A/~A" lisp version))))
(opt "*lisp")
(opt "impl")))
(homedir))))