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

tweaks to the test infrastructure

parent 9f2228ef
......@@ -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"
......
......@@ -12,17 +12,17 @@
(compile-file-pathname
(let ((impl (string-downcase
(or #+allegro (format nil "~Alisp" excl:*current-case-mode*)
#+armedbear :abcl
#+clisp :clisp
#+clozure :ccl
#+cmu :cmucl
#+corman :cormanlisp
#+digitool :mcl
#+ecl :ecl
#+gcl :gcl
#+lispworks :lispworks
#+sbcl :sbcl
#+scl scl))))
#+armedbear :abcl
#+clisp :clisp
#+clozure :ccl
#+cmu :cmucl
#+corman :cormanlisp
#+digitool :mcl
#+ecl :ecl
#+gcl :gcl
#+lispworks :lispworks
#+sbcl :sbcl
#+scl scl))))
(merge-pathnames
(make-pathname :directory `(:relative "tmp" "fasls" ,impl)
:defaults *asdf-lisp*)
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment