Commit f4735a88 authored by Daniel Kochmański's avatar Daniel Kochmański Committed by Francois-Rene Rideau
Browse files

bundle: make-build: be smart on move-here

Add a convenience mechanism to avoid problems with cross-device links.
parent 7ee04bd1
......@@ -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)
Markdown is supported
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