Commit ea907f01cd7b48ec941c4f2ed22857c99802bf84

Thomas de Grivel 2018-07-10T12:48:19

directory

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
diff --git a/unix/defs.lisp b/unix/defs.lisp
index e3d4815..dd7fa5c 100644
--- a/unix/defs.lisp
+++ b/unix/defs.lisp
@@ -96,9 +96,12 @@
 
 (define-resource-class directory (vnode)
   ()
-  ((probe-directory-content :properties (:content))))
+  ((probe-directory-content :properties (:content)))
+  ((op-directory-ensure :properties (:ensure)))
+  ((:op-properties (:ensure :mode :uid :gid :owner :group))))
 
 (defgeneric probe-directory-content (resource os))
+(defgeneric op-directory-ensure (resource os &key ensure))
 
 ;;  Mounted filesystems