Skip to content
Snippets Groups Projects
Commit dd7e591c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

concatenate to a temporary file for more robustness.

parent 81438c48
No related branches found
No related tags found
No related merge requests found
...@@ -77,9 +77,11 @@ ...@@ -77,9 +77,11 @@
(lisp-compilation-output-files o s)) (lisp-compilation-output-files o s))
(defmethod perform ((o basic-concatenate-source-op) (s system)) (defmethod perform ((o basic-concatenate-source-op) (s system))
(let ((inputs (input-files o s)) (let* ((ins (input-files o s))
(output (output-file o s))) (out (output-file o s))
(concatenate-files inputs output))) (tmp (tmpize-pathname out)))
(concatenate-files ins tmp)
(rename-file-overwriting-target tmp out)))
(defmethod perform ((o basic-load-concatenated-source-op) (s system)) (defmethod perform ((o basic-load-concatenated-source-op) (s system))
(perform-lisp-load-source o s)) (perform-lisp-load-source o s))
(defmethod perform ((o basic-compile-concatenated-source-op) (s system)) (defmethod perform ((o basic-compile-concatenated-source-op) (s system))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment