Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

1.0.31.10: run-sbcl.sh to support --core

 Thanks to Attila Lendvai.
  • Loading branch information...
commit bfd759c5fbfba4e1799cf4d06de0a0f349f06abd 1 parent 1ca4f69
Nikodemus Siivola nikodemus authored

Showing 2 changed files with 27 additions and 14 deletions. Show diff stats Hide diff stats

  1. +26 13 run-sbcl.sh
  2. +1 1  version.lisp-expr
39 run-sbcl.sh
@@ -13,22 +13,35 @@
13 13
14 14 set -e
15 15
16   -if [ "$1" = "--help" ]; then
17   - echo "usage: run-sbcl.sh sbcl-options*"
18   - echo
19   - echo "Runs SBCL from the build directory or binary tarball without need for"
20   - echo "installation. Except for --help and --core, accepts all the same"
21   - echo "command-line options as SBCL does."
22   - echo
23   - exit 1
24   -fi
25   -
26 16 BASE=`dirname "$0"`
  17 +CORE_DEFINED=no
  18 +
  19 +for arg in $*; do
  20 + case $arg in
  21 + (--core)
  22 + CORE_DEFINED=yes
  23 + ;;
  24 + (--help)
  25 + echo "usage: run-sbcl.sh sbcl-options*"
  26 + echo
  27 + echo "Runs SBCL from the build directory or binary tarball without need for"
  28 + echo "installation. Except for --help, accepts all the same command-line options"
  29 + echo "as SBCL does."
  30 + echo
  31 + exit 1
  32 + ;;
  33 + esac
  34 +done
  35 +
  36 +ARGUMENTS=""
  37 +
  38 +if [ "$CORE_DEFINED" = "no" ]; then
  39 + ARGUMENTS="--core "$BASE"/output/sbcl.core"
  40 +fi
27 41
28 42 if [ -x "$BASE"/src/runtime/sbcl -a -f "$BASE"/output/sbcl.core ]; then
29   - echo "(running SBCL from: $BASE)"
30   - SBCL_HOME="$BASE"/contrib \
31   - "$BASE"/src/runtime/sbcl --core "$BASE"/output/sbcl.core "$@"
  43 + echo "(running SBCL from: `pwd`)"
  44 + SBCL_HOME="$BASE"/contrib "$BASE"/src/runtime/sbcl $ARGUMENTS "$@"
32 45 else
33 46 echo "No built SBCL here ($BASE): run 'sh make.sh' first!"
34 47 exit 1
2  version.lisp-expr
@@ -17,4 +17,4 @@
17 17 ;;; checkins which aren't released. (And occasionally for internal
18 18 ;;; versions, especially for internal versions off the main CVS
19 19 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
20   -"1.0.31.9"
  20 +"1.0.31.10"

0 comments on commit bfd759c

Please sign in to comment.
Something went wrong with that request. Please try again.