Skip to content
Snippets Groups Projects
Commit d966b77c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

tweaks to the test infrastructure

parent 9f2228ef
No related branches found
No related tags found
No related merge requests found
...@@ -140,6 +140,10 @@ case "$lisp" in ...@@ -140,6 +140,10 @@ case "$lisp" in
eval="-eval" ;; eval="-eval" ;;
lispworks) lispworks)
command="${LISPWORKS:-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 -" flags="-siteinit - -init -"
eval="-eval" ;; eval="-eval" ;;
gclcvs) gclcvs)
...@@ -163,7 +167,7 @@ fi ...@@ -163,7 +167,7 @@ fi
asdfdir="$(cd .. ; /bin/pwd)" asdfdir="$(cd .. ; /bin/pwd)"
export CL_SOURCE_REGISTRY="${asdfdir}" 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 env | grep asdf
command="$command $flags" command="$command $flags"
......
...@@ -12,17 +12,17 @@ ...@@ -12,17 +12,17 @@
(compile-file-pathname (compile-file-pathname
(let ((impl (string-downcase (let ((impl (string-downcase
(or #+allegro (format nil "~Alisp" excl:*current-case-mode*) (or #+allegro (format nil "~Alisp" excl:*current-case-mode*)
#+armedbear :abcl #+armedbear :abcl
#+clisp :clisp #+clisp :clisp
#+clozure :ccl #+clozure :ccl
#+cmu :cmucl #+cmu :cmucl
#+corman :cormanlisp #+corman :cormanlisp
#+digitool :mcl #+digitool :mcl
#+ecl :ecl #+ecl :ecl
#+gcl :gcl #+gcl :gcl
#+lispworks :lispworks #+lispworks :lispworks
#+sbcl :sbcl #+sbcl :sbcl
#+scl scl)))) #+scl scl))))
(merge-pathnames (merge-pathnames
(make-pathname :directory `(:relative "tmp" "fasls" ,impl) (make-pathname :directory `(:relative "tmp" "fasls" ,impl)
:defaults *asdf-lisp*) :defaults *asdf-lisp*)
...@@ -47,17 +47,19 @@ ...@@ -47,17 +47,19 @@
#+clisp #+clisp
(ext:quit return) (ext:quit return)
#+(or cmu scl) #+(or cmu scl)
(unix:unix-exit code) (unix:unix-exit return)
#+ecl #+ecl
(si:quit return) (si:quit return)
#+gcl #+gcl
(lisp:quit code) (lisp:quit return)
#+lispworks #+lispworks
(lispworks:quit :status return :confirm nil :return nil :ignore-errors-p t) (lispworks:quit :status return :confirm nil :return nil :ignore-errors-p t)
#+(or openmcl mcl) #+(or openmcl mcl)
(ccl::quit return) (ccl::quit return)
#+sbcl #+sbcl
(sb-ext:quit :unix-status return) (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)) (error "Don't know how to quit Lisp; wanting to use exit code ~a" return))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment