Merge branch 'release'

This commit is contained in:
SANO Masatoshi 2018-01-21 16:30:03 +09:00
commit 75017b08af

View file

@ -166,10 +166,10 @@ char* lispdir(void) {
ros_bin[strlen(ros_bin)-1]='\0';
ros_bin=pathname_directory(ros_bin);
/* $(bindir)/../etc/roswell/ */
LISPDIR_CANDIDATE(cat(ros_bin,"etc"SLASH PACKAGE_NAME SLASH,NULL));
/* $(bindir)/../lisp/ */
LISPDIR_CANDIDATE(cat(ros_bin,"lisp",SLASH,NULL));
/* $(bindir)/../etc/roswell/ */
LISPDIR_CANDIDATE(cat(ros_bin,"etc"SLASH PACKAGE_STRING SLASH,NULL));
s(ros_bin);
result=append_trail_slash(q(LISP_PATH));
return q(result);