Hello ASDF-devs,
After pulling all latest commits from ASDF master and thus having a ASDF
3.1.7.19
that git describes as "debian/2%3.1.5-1-514-g7b7b9f0",
and patching it with the two attached patches,
and using an mkcl from its latest github master head, I then get the
following result:
-#---------------------------------------
Using
/home/jean-claude/CL/MKCL/dev/releases/mkcl-1.1/git/mkcl.git/src/test/asdf/../../bin/mkcl
Ran 61 tests:
61 passing and 0 failing
all tests apparently successful
-#---------------------------------------
./test/run-tests.sh -c mkcl
GOOD: Loading ASDF on mkcl produces no message
./test/run-tests.sh -l mkcl
Loading all these systems:
;;; Loading
"/home/jean-claude/CL/MKCL/dev/releases/mkcl-1.1/git/mkcl.git/src/test/asdf/build/asdf.lisp"
Done!
Script succeeded
From 699776d948d50e73b061ccf92702b37d4137bfd1 Mon Sep 17 00:00:00 2001
From: Jean-Claude Beaudoin <jean.claude.beaud...@gmail.com>
Date: Wed, 14 Sep 2016 03:14:49 -0400
Subject: [PATCH 1/2] Remove unnecessary bug work-around for MKCL.
---
bundle.lisp | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/bundle.lisp b/bundle.lisp
index b5621bb..fdedce4 100644
--- a/bundle.lisp
+++ b/bundle.lisp
@@ -552,10 +552,7 @@ for all the linkable object files associated with the system or its dependencies
(unless (has-it-p x)
(list
(if (and (system-source-directory x)
- #+mkcl ;; avoid bug in mkcl 1.1.10
- (let ((s (find-system x)))
- (or (not (typep s 'prebuilt-system))
- (file-exists-p (prebuilt-system-static-library s)))))
+ )
(find-system x)
(make-library-system x))))))
`((,lib-op
--
1.9.1
From 736c938e5ee5dbd80e76f01da8353c5a5a3eaba8 Mon Sep 17 00:00:00 2001
From: Jean-Claude Beaudoin <jean.claude.beaud...@gmail.com>
Date: Wed, 14 Sep 2016 03:17:33 -0400
Subject: [PATCH 2/2] Adjust default source-registry search path for MKCL.
---
source-registry.lisp | 1 +
1 file changed, 1 insertion(+)
diff --git a/source-registry.lisp b/source-registry.lisp
index ff474e7..e1c7471 100644
--- a/source-registry.lisp
+++ b/source-registry.lisp
@@ -184,6 +184,7 @@ after having found a .asd file? True by default.")
`(:source-registry
#+(or clasp ecl sbcl) (:tree ,(resolve-symlinks* (lisp-implementation-directory)))
:inherit-configuration
+ #+mkcl (:directory ,(translate-logical-pathname "SYS:"))
#+mkcl (:tree ,(translate-logical-pathname "CONTRIB:"))
#+cmucl (:tree #p"modules:")
#+scl (:tree #p"file://modules/")))
--
1.9.1
