Loading test/run-tests.sh +5 −1 Original line number Diff line number Diff line Loading @@ -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) Loading @@ -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" Loading test/script-support.lisp +15 −13 Original line number Diff line number Diff line Loading @@ -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)) Loading Loading
test/run-tests.sh +5 −1 Original line number Diff line number Diff line Loading @@ -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) Loading @@ -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" Loading
test/script-support.lisp +15 −13 Original line number Diff line number Diff line Loading @@ -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)) Loading