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

'ros version' to show sbcl-bin-variant

Browse source
This commit is contained in:
SANO Masatoshi 2021-05-17 09:01:45 +09:00
parent ed1f7c6eda
commit 83a37a257b
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/version.ros
View file

@ -18,6 +18,7 @@ exec ros -Q -m roswell -N roswell -- $0 "$@"
(curl (version "curl"))
(asdf (version "asdf"))
(conf (version "confdir"))
(variant (version "sbcl-bin-variant"))
(home (roswell.util:homedir)))
(unless (zerop (length revision))
(setf revision (format nil "(~A)" revision)))
@ -34,5 +35,6 @@ exec ros -Q -m roswell -N roswell -- $0 "$@"
(format *error-output* "lispdir='~A'~%" (opt "lispdir"))
(format *error-output* "homedir='~A'~%" home)
(unless (or (zerop (length conf)) (equal home conf))
(format *error-output* "configdir='~A'~%" conf))))
(format *error-output* "configdir='~A'~%" conf))
(format *error-output* "sbcl-bin-variant='~A'~%" variant)))
;;; vim: set ft=lisp lisp:

2
src/cmd-internal.c
View file

@ -102,6 +102,8 @@ DEF_SUBCMD(cmd_internal_version) {
printf("%s\n",ROS_REVISION);
}else if(strcmp(arg1,"sbcl-bin-version-uri")==0) {
printf("%s\n",PLATFORM_TSV_URI);
}else if (strcmp(arg1,"sbcl-bin-variant")==0) {
printf("%s\n",SBCL_BIN_VARIANT);
}else if(strcmp(arg1,"sbcl-bin-uri")==0) {
printf("%s\n",SBCL_BIN_URI);
}else if(strcmp(arg1,"glibc")==0) {