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 sbcl-bin.version=system setup' to setup using system installed sbcl.

Browse source
This commit is contained in:
SANO Masatoshi 2020-01-07 03:34:31 +08:00
parent 0e64959b0b
commit cf75793eae
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/cmd-run.c
View file

@ -1,5 +1,6 @@
#include "opt.h"
#include "cmd-run.h"
#include "cmd-install.h"
DEF_SUBCMD(cmd_script_frontend);
struct run_impl_t impls_to_run[]={
@ -47,12 +48,14 @@ int setup(char* target,char* env,char* impl) {
lock_apply("setup",0);
cond_printf(1,"verbose-option:'%s'\n",v);
char* version=get_opt(DEFAULT_IMPL".version",0);
char* path=s_cat(configdir(),q("config"),NULL);
if(!version) {
char* path=s_cat(configdir(),q("config"),NULL);
SETUP_SYSTEM(cat(argv_orig[0]," ",v,"install "DEFAULT_IMPL,NULL),"Installing "DEFAULT_IMPL"...\n");
global_opt=load_opts(path),s(path);
version=get_opt(DEFAULT_IMPL".version",0);
}else if(strcmp(version,"system")==0) {
set_defaultlisp(DEFAULT_IMPL,"system");
}
global_opt=load_opts(path),s(path);
version=get_opt(DEFAULT_IMPL".version",0);
if(strcmp(env,"-")!=0) {
char *cmd =cat(argv_orig[0]," init env ",env,NULL);
System(cmd);