Commit d966b77c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

tweaks to the test infrastructure

parent 9f2228ef
Loading
Loading
Loading
Loading
+5 −1
Original line number Diff line number Diff line
@@ -140,6 +140,10 @@ case "$lisp" in
    eval="-eval" ;;
  lispworks)
    command="${LISPWORKS:-lispworks}"
    # If you have a licensed copy of lispworks,
    # you can obtain the "lispworks" binary with, e.g.
    # echo '(hcl:save-image "/lispworks" :environment nil)' > /tmp/build.lisp ;
    # ./lispworks-6-0-0-x86-linux -siteinit - -init - -build /tmp/build.lisp
    flags="-siteinit - -init -"
    eval="-eval" ;;
  gclcvs)
@@ -163,7 +167,7 @@ fi

asdfdir="$(cd .. ; /bin/pwd)"
export CL_SOURCE_REGISTRY="${asdfdir}"
export ASDF_OUTPUT_TRANSLATIONS="${asdfdir}:${asdfdir}/tmp/fasls/$(basename $command)"
export ASDF_OUTPUT_TRANSLATIONS="${asdfdir}:${asdfdir}/tmp/fasls/$(basename $command):"
env | grep asdf

command="$command $flags"
+15 −13
Original line number Diff line number Diff line
@@ -47,17 +47,19 @@
  #+clisp
  (ext:quit return)
  #+(or cmu scl)
  (unix:unix-exit code)
  (unix:unix-exit return)
  #+ecl
  (si:quit return)
  #+gcl
  (lisp:quit code)
  (lisp:quit return)
  #+lispworks
  (lispworks:quit :status return :confirm nil :return nil :ignore-errors-p t)
  #+(or openmcl mcl)
  (ccl::quit return)
  #+sbcl
  (sb-ext:quit :unix-status return)
  #+abcl
  (ext:quit :status return)
  (error "Don't know how to quit Lisp; wanting to use exit code ~a" return))