From 2331e35dc720332490933a70f81dba5249d3eda2 Mon Sep 17 00:00:00 2001 From: Jean-Claude Beaudoin <jean.claude.beaudoin@gmail.com> Date: Mon, 30 Jul 2012 23:59:49 -0400 Subject: [PATCH] Integrated MKCL into test suite. --- Makefile | 2 ++ asdf.lisp | 2 +- test/compile-asdf.lisp | 3 +++ test/run-tests.sh | 4 ++++ test/script-support.lisp | 3 +++ 5 files changed, 13 insertions(+), 1 deletion(-) diff --git a/Makefile b/Makefile index c33dcfb61..9732f5137 100644 --- a/Makefile +++ b/Makefile @@ -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" ; } ; \ diff --git a/asdf.lisp b/asdf.lisp index cdf4ca006..5146b2c97 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -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") diff --git a/test/compile-asdf.lisp b/test/compile-asdf.lisp index ee977f76e..8dc651f04 100644 --- a/test/compile-asdf.lisp +++ b/test/compile-asdf.lisp @@ -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) diff --git a/test/run-tests.sh b/test/run-tests.sh index d93967cca..296bab2f6 100755 --- a/test/run-tests.sh +++ b/test/run-tests.sh @@ -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" diff --git a/test/script-support.lisp b/test/script-support.lisp index 6ad9a094c..2b3a17721 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -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 -- GitLab