From f86c1ec4e8782fd24c758c9775c8592a16768215 Mon Sep 17 00:00:00 2001
From: Gabor Melis <mega@hotpop.com>
Date: Fri, 31 Oct 2008 09:56:15 +0000
Subject: [PATCH] 1.0.22.1: run-sbcl.sh improvements

- make run-sbcl.sh executable
- don't require it to be started from the top of the source dir

... so that "~/sbcl/run-sbcl.sh" is a drop in replacement for "sbcl".
---
 run-sbcl.sh       |   26 +++++++++-----------------
 version.lisp-expr |    2 +-
 2 files changed, 10 insertions(+), 18 deletions(-)

diff --git a/run-sbcl.sh b/run-sbcl.sh
index 1f74680..d14b202 100644
--- a/run-sbcl.sh
+++ b/run-sbcl.sh
@@ -1,6 +1,6 @@
+#!/bin/sh
 # A simple shell-script to run the freshly build SBCL without
-# installing it. Expects to be run from the top of the SBCL source
-# tree.
+# installing it.
 
 # This software is part of the SBCL system. See the README file for
 # more information.
@@ -20,24 +20,16 @@ if [ "$1" = "--help" ]; then
     echo "installation. Except for --help and --core, accepts all the same"
     echo "command-line options as SBCL does."
     echo
-    echo "Expects the current directory to be the topmost directory of the SBCL"
-    echo "source tree or binary tarball."
-    echo
     exit 1
 fi
 
-if [ -f sbcl-pwd.sh -a -x src/runtime/sbcl -a -f output/sbcl.core ]; then
-    . ./sbcl-pwd.sh
-    sbcl_pwd
-    echo "(running SBCL from: $SBCL_PWD)"
-    SBCL_HOME=$SBCL_PWD/contrib src/runtime/sbcl --core output/sbcl.core "$@"
-elif [ -f run-sbcl.sh -a -f version.lisp-expr ]; then
-    echo "No built SBCL here ($(pwd)): run 'sh make.sh' first!"
-    exit 1
+BASE=`dirname "$0"`
+
+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 --core "$BASE"/output/sbcl.core "$@"
 else
-    echo "No SBCL here ($(pwd))!"
-    echo
-    echo "run-sbcl.sh needs to be run from the top of the SBCL source tree or"
-    echo "binary tarball."
+    echo "No built SBCL here ($BASE): run 'sh make.sh' first!"
     exit 1
 fi
diff --git a/version.lisp-expr b/version.lisp-expr
index 15b6fd9..17514c0 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.22"
+"1.0.22.1"
-- 
1.7.10.4