diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-11 14:57:29 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-11 16:25:36 -0700 |
| commit | f1cdc293b33b673de4813c71dc4a38337edff12e (patch) | |
| tree | 94a43d6c26f5bbf299fa295d984d91839b397c18 /src/property.lisp | |
| parent | f7aea946fad9ff801f9a7507a6afce000228507c (diff) | |
| download | consfigurator-f1cdc293b33b673de4813c71dc4a38337edff12e.tar.gz | |
replace uses of CALL-WITH-OS & drop the function
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/src/property.lisp b/src/property.lisp index 7467ef6..a0e95c1 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -588,9 +588,6 @@ PATH already has the specified CONTENT and MODE." (apply #'writefile path content (and mode-supplied-p `(:mode ,mode))))) -(defun call-with-os (f &rest args) - (apply (ensure-function f) (get-hostattrs-car :os) args)) - (defun assert-euid-root () "Assert that the remote user has uid 0 (root)" (unless (zerop (get-connattr :remote-uid)) |