Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
b17f9827
Commit
b17f9827
authored
Apr 08, 2010
by
Francois-Rene Rideau
Browse files
Don't truenamize relative source locations.
parent
a06f9f7f
Changes
1
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
b17f9827
...
...
@@ -2550,7 +2550,9 @@ with a different configuration, so the configuration would be re-read then."
(
when
dst
(
process-output-translations
(
pathname
dst
)
:inherit
nil
:collect
collect
))
(
when
src
(
let
((
trusrc
(
or
(
eql
src
t
)
(
truenamize
(
resolve-location
src
t
)))))
(
let
((
trusrc
(
or
(
eql
src
t
)
(
let
((
loc
(
resolve-location
src
t
)))
(
if
(
absolute-pathname-p
loc
)
(
truenamize
loc
)
loc
)))))
(
cond
((
location-function-p
dst
)
(
funcall
collect
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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