X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=run-sbcl.sh;h=3788bd9798bb9fc6a42ca7fc642f5c7b38915bb8;hb=a129450e9b56cee8e307fc5c320105fe00ba45b7;hp=f1876c3757ddc1c8ef6b80836c97a816e6f1a2f4;hpb=0cfd289365b37a66fd4108054f0d99e95d396a8a;p=sbcl.git

diff --git a/run-sbcl.sh b/run-sbcl.sh
old mode 100644
new mode 100755
index f1876c3..3788bd9
--- a/run-sbcl.sh
+++ b/run-sbcl.sh
@@ -13,15 +13,29 @@
 
 set -e
 
-BASE=`dirname "$0"`
+this="$0"
+
+# OSX 10.8 readlink doesn't have -f
+while [ -h "$this" ]; do
+    # [ -h should guarantee that readlink output will be non-null
+    link=`readlink -n "$this"`
+    # if absolute path
+    if expr "$link" : '^/.*' > /dev/null; then
+        this="$link"
+    else
+        this=`dirname "$this"`/"$link"
+    fi
+done
+BASE=`dirname "$this"`
+
 CORE_DEFINED=no
 
-for arg in $*; do
-    case $arg in
-        (--core)
+for arg in "$@"; do
+    case "$arg" in
+        --core)
           CORE_DEFINED=yes
           ;;
-        (--help)
+        --help)
           echo "usage: run-sbcl.sh sbcl-options*"
           echo
           echo "Runs SBCL from the build directory or binary tarball without need for"
@@ -40,8 +54,8 @@ if [ "$CORE_DEFINED" = "no" ]; then
 fi
 
 if [ -x "$BASE"/src/runtime/sbcl -a -f "$BASE"/output/sbcl.core ]; then
-    echo "(running SBCL from: $BASE)"
-    SBCL_HOME="$BASE"/contrib "$BASE"/src/runtime/sbcl $ARGUMENTS "$@"
+    echo "(running SBCL from: $BASE)" 1>&2
+    SBCL_HOME="$BASE/obj/sbcl-home" "$BASE"/src/runtime/sbcl $ARGUMENTS "$@"
 else
     echo "No built SBCL here ($BASE): run 'sh make.sh' first!"
     exit 1