From 83a37a257b16bd9a5e11c042aaed3ce9edc70ef5 Mon Sep 17 00:00:00 2001 From: SANO Masatoshi Date: Mon, 17 May 2021 09:01:45 +0900 Subject: [PATCH] 'ros version' to show sbcl-bin-variant --- lisp/version.ros | 4 +++- src/cmd-internal.c | 2 ++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/version.ros b/lisp/version.ros index 141da0f..a472ac6 100644 --- a/lisp/version.ros +++ b/lisp/version.ros @@ -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: diff --git a/src/cmd-internal.c b/src/cmd-internal.c index 2dd0b11..987b965 100644 --- a/src/cmd-internal.c +++ b/src/cmd-internal.c @@ -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) {