Commit 2331e35d authored by Jean-Claude Beaudoin's avatar Jean-Claude Beaudoin Committed by Francois-Rene Rideau

Integrated MKCL into test suite.

parent a0895136
......@@ -22,6 +22,7 @@ CCL ?= ccl
CLISP ?= clisp
SBCL ?= sbcl
ECL ?= ecl
MKCL ?= mkcl
CMUCL ?= cmucl
ABCL ?= abcl
SCL ?= scl
......@@ -87,6 +88,7 @@ test-upgrade:
use_clisp () { li="${CLISP} -norc -ansi --quiet --quiet" ; ev="-x" ; } ; \
use_sbcl () { li="${SBCL} --noinform --no-userinit" ; ev="--eval" ; } ; \
use_ecl () { li="${ECL} -norc" ; ev="-eval" ; } ; \
use_mkcl () { li="${MKCL} -norc" ; ev="-eval" ; } ; \
use_cmucl () { li="${CMUCL} -noinit" ; ev="-eval" ; } ; \
use_abcl () { li="${ABCL} --noinit --nosystem --noinform" ; ev="--eval" ; } ; \
use_scl () { li="${SCL} -noinit" ; ev="-eval" ; } ; \
......
......@@ -4223,7 +4223,7 @@ with a different configuration, so the configuration would be re-read then."
(defun* default-source-registry ()
`(:source-registry
#+sbcl (:directory ,(subpathname (user-homedir) ".sbcl/systems/"))
#-mkcl (:directory ,(default-directory))
(:directory ,(default-directory))
,@(loop :for dir :in
`(,@(when (os-unix-p)
`(,(or (getenv-absolute-directory "XDG_DATA_HOME")
......
......@@ -29,6 +29,9 @@
((or c:compiler-note c::compiler-debug-note
c:compiler-warning) ;; ECL emits more serious warnings than it should.
#'muffle-warning)
#+mkcl
((or compiler:compiler-note)
#'muffle-warning)
#-(or cmu scl)
(style-warning
#'(lambda (w)
......
......@@ -154,6 +154,10 @@ case "$lisp" in
# ./lispworks-6-0-0-x86-linux -siteinit - -init - -build /tmp/build.lisp
flags="-siteinit - -init -"
eval="-eval" ;;
mkcl)
command="${MKCL:-mkcl}"
flags="-norc"
eval="-eval" ;;
sbcl)
command="${SBCL:-sbcl}"
flags="--noinform --userinit /dev/null --sysinit /dev/null"
......
......@@ -34,6 +34,7 @@
#+ecl :ecl
#+gcl :gcl
#+lispworks :lispworks
#+mkcl :mkcl
#+sbcl :sbcl
#+scl :scl
#+xcl :xcl))))
......@@ -76,6 +77,8 @@
(lispworks:quit :status return :confirm nil :return nil :ignore-errors-p t)
#+(or openmcl mcl)
(ccl::quit return)
#+mkcl
(mk-ext:quit :exit-code return)
#+sbcl #.(let ((exit (find-symbol "EXIT" :sb-ext))
(quit (find-symbol "QUIT" :sb-ext)))
(cond
......
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