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

refactor.

Browse source
This commit is contained in:
SANO Masatoshi 2016-12-13 02:36:49 +09:00
parent 5c6eec81ef
commit ef211edf8f
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/cmd-run-sbcl.c
View file

@ -11,6 +11,7 @@ char** cmd_run_sbcl(int argc,char** argv,struct sub_command* cmd) {
--no-sysinit --no-userinit [terminating NULL] that total 9 are default. */
int i;
char* impl_path= cat(home,"impls",SLASH,arch,SLASH,os,SLASH,impl,SLASH,version,NULL);
char *path=NULL;
char* help=get_opt("help",0);
char* script=get_opt("script",0);
char* image=get_opt("image",0);
@ -32,21 +33,19 @@ char** cmd_run_sbcl(int argc,char** argv,struct sub_command* cmd) {
ret=conss(bin,ret);
/* runtime options from here */
if(image||!issystem)
ret=conss(q("--core"),ret);
if(!image) {
if(!issystem)
ret=conss(cat(impl_path,SLASH,"lib",SLASH,"sbcl",SLASH,"sbcl.core",NULL),ret);
if(image)
path=cat(impl_path,SLASH,"dump",SLASH,image,".core",NULL);
if(path&&file_exist_p(path)) {
/* TBD dump system if script is newer than current image */
ret=conss(path,conss(q("--core"),ret));
}else {
char *path=cat(impl_path,SLASH,"dump",SLASH,image,".core",NULL);
if(file_exist_p(path))
ret=conss(path,ret);
else {
if(image)
cond_printf(1,"core not found:%s\n",path);
ret=conss(cat(impl_path,SLASH,"lib",SLASH,"sbcl",SLASH,"sbcl.core",NULL),ret);
s(path);
}
if(!issystem)
ret=conss(cat(impl_path,SLASH,"lib",SLASH,"sbcl",SLASH,"sbcl.core",NULL),
conss(q("--core"),ret));
}
s(path);
s(impl_path);
if(help)
ret=conss(q("--help"),ret);