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