Integrated MKCL into test suite.

diff --git a/Makefile b/Makefile
index c33dcfb..9732f51 100644 (file)
--- 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 cdf4ca0..5146b2c 100644 (file)
--- 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 ee977f7..8dc651f 100644 (file)
--- 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 d93967c..296bab2 100755 (executable)
--- 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 6ad9a09..2b3a177 100644 (file)
--- 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