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 ros dump

Browse source
This commit is contained in:
SANO Masatoshi 2019-04-28 16:47:31 +00:00
parent c497945480
commit 3554afb84a
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/util-dump.lisp
View file

@ -51,7 +51,13 @@ Notably, it must include all nicknames.")
conf :test 'equal))))
(and lisp version
(format nil "~A/~A" lisp version))))
(opt "*lisp")
(when (opt "*lisp")
(let ((lisp (opt "*lisp")))
(if (find #\/ lisp)
lisp
(let ((version (opt (format nil "~a.version" lisp))))
(and version
(format nil "~A/~A" lisp version))))))
(opt "impl")))
(homedir))))