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
Jan Moringen
asdf
Commits
f4735a88
Commit
f4735a88
authored
Sep 09, 2016
by
Daniel Kochmański
Committed by
Francois-Rene Rideau
Sep 09, 2016
Browse files
bundle: make-build: be smart on move-here
Add a convenience mechanism to avoid problems with cross-device links.
parent
7ee04bd1
Changes
1
Hide whitespace changes
Inline
Side-by-side
bundle.lisp
View file @
f4735a88
...
...
@@ -348,7 +348,10 @@ for all the linkable object files associated with the system or its dependencies
:for
new-f
=
(
make-pathname
:name
(
pathname-name
f
)
:type
(
pathname-type
f
)
:defaults
dest-path
)
:do
(
rename-file-overwriting-target
f
new-f
)
:do
(
handler-case
(
rename-file-overwriting-target
f
new-f
)
(
file-error
(
c
)
(
copy-file
f
new-f
)
(
delete-file-if-exists
f
)))
:collect
new-f
)
files
))))
...
...
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