From f1cdc293b33b673de4813c71dc4a38337edff12e Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 11 Mar 2022 14:57:29 -0700 Subject: replace uses of CALL-WITH-OS & drop the function Signed-off-by: Sean Whitton --- src/property.lisp | 3 --- 1 file changed, 3 deletions(-) (limited to 'src/property.lisp') 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)) -- cgit v1.2.3