Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Hugo Ishimaru
asdf
Commits
70a00e36
Commit
70a00e36
authored
Aug 30, 2015
by
Francois-Rene Rideau
Browse files
Have package-inferred-system use component-pathname as top
rather than system-source-directory. Fixes lp#1485276
parent
e47f48c6
Changes
2
Hide whitespace changes
Inline
Side-by-side
doc/asdf.texinfo
View file @
70a00e36
...
...
@@ -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 3.1.5.6 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
...
...
package-inferred-system.lisp
View file @
70a00e36
...
...
@@ -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*
)))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment