int installed_p(struct install_options* param) { int ret; char *i,*impl; impl=q(param->impl); //TBD for util. i=s_cat(configdir(),q("impls"),q(SLASH),q(param->arch),q(SLASH),q(param->os),q(SLASH), q(impl),q(param->version?SLASH:""),q(param->version?param->version:""),q(SLASH),NULL); ret=directory_exist_p(i); cond_printf(1,"directory_exist_p(%s)=%d\n",i,ret); s(i),s(impl); return ret; }
char* lispdir(void) { char *w=which(argv_orig[0]); char *ros_bin=pathname_directory(truename(w)); char* ros_bin_lisp=cat(ros_bin,"lisp",SLASH,NULL); char* lisp_path=NULL; s(ros_bin),s(w); if(directory_exist_p(ros_bin_lisp)) { lisp_path=ros_bin_lisp; }else { s(ros_bin_lisp); #if defined(WIN_LISP_PATH) if(lisp_path==NULL) lisp_path=q(WIN_LISP_PATH); #endif if(lisp_path==NULL) lisp_path=q(LISP_PATH); lisp_path=append_trail_slash(lisp_path); } return lisp_path; }