Commit 70a00e36 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Have package-inferred-system use component-pathname as top

rather than system-source-directory. Fixes lp#1485276
parent e47f48c6
......@@ -1926,6 +1926,12 @@ and has many options that prove useful in this context,
such as @code{:use-reexport} and @code{:mix-reexport}
that allow for ``inheritance'' of symbols being exported.
Note that starting with ASDF only, ASDF will look for source files under
the @code{component-pathname} as specified via the @code{:pathname} option,
whereas earlier versions ignore this option and use the @code{system-source-directory}
where the @file{.asd} file resides.
@node The object model of ASDF, Controlling where ASDF searches for systems, Defining systems with defsystem, Top
@comment node-name, next, previous, up
@chapter The Object model of ASDF
......@@ -111,7 +111,7 @@ otherwise return a default system name computed from PACKAGE-NAME."
(unless (equal primary system)
(let ((top (find-system primary nil)))
(when (typep top 'package-inferred-system)
(if-let (dir (system-source-directory top))
(if-let (dir (component-pathname top))
(let* ((sub (subseq system (1+ (length primary))))
(f (probe-file* (subpathname dir sub :type "lisp")
:truename *resolve-symlinks*)))
Supports Markdown
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