common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Fixup pathname quoting in run-sbcl.sh.

Browse source
This commit is contained in:
Richard M Kreuter 2021-05-02 16:35:25 -04:00
parent 57b39145d7
commit 546416b34d
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
run-sbcl.sh
View file

@ -28,22 +28,22 @@ while [ -h "$this" ]; do
break
fi
# [ -h should guarantee that readlink output will be non-null
link=`readlink -n "$this"`
link="`readlink -n "$this"`"
# if absolute path
if expr "$link" : '^/.*' > /dev/null; then
this="$link"
else
this=`dirname "$this"`/"$link"
this="`dirname "$this"`"/"$link"
fi
done
BASE=`dirname "$this"`
BASE="`dirname "$this"`"
# BASE can still be relative if $0 is a relative pathname naming a
# non-symlink, or if the last symlink visited in that loop has a
# relative target. We need BASE to be an absolute pathname in order to
# make MODULE-PROVIDE-CONTRIB work throughout the Lisp session, even
# after frobbing *DEFAULT-PATHNAME-DEFAULTS*.
if ! expr "$BASE" : '^/.*' > /dev/null; then
BASE=`cd ./"$BASE" && pwd`
BASE="`cd ./"$BASE" && pwd`"
fi
CORE_DEFINED=no
@ -68,12 +68,12 @@ done
ARGUMENTS=""
if [ "$CORE_DEFINED" = "no" ]; then
ARGUMENTS="--core "$BASE"/output/sbcl.core"
CORE="$BASE"/output/sbcl.core
fi
if build_directory_p "$BASE"; then
export SBCL_HOME
SBCL_HOME="$BASE/obj/sbcl-home" exec "$BASE"/src/runtime/sbcl $ARGUMENTS "$@"
SBCL_HOME="$BASE/obj/sbcl-home" exec "$BASE"/src/runtime/sbcl ${CORE:+--core "$CORE"} "$@"
else
echo "No built SBCL here ($BASE): run 'sh make.sh' first!"
exit 1