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

bundle.lisp

+4 −1
Original line number Diff line number Diff line
@@ -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))))