Commit 94644aeabd702382ea508d812363b425b19ad1c8

Thomas de Grivel 2020-03-24T19:38:33

quick hack to sync users and groups before files

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
diff --git a/unix/operations.lisp b/unix/operations.lisp
index 9c833c7..25f291a 100644
--- a/unix/operations.lisp
+++ b/unix/operations.lisp
@@ -74,6 +74,10 @@
     (assert (= uid (get-probed owner :uid))))
   (when (and gid group)
     (assert (= gid (get-probed group :gid))))
+  (when owner
+    (sync owner))
+  (when group
+    (sync group))
   (let ((u (or (when owner (resource-id owner))
                uid))
         (g (or (when group (resource-id group))