diff options
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/property.lisp b/src/property.lisp index 9ee9393..a4ae9a0 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -274,3 +274,6 @@ Called by property subroutines." ((text :initarg :text :reader failed-change-text)) (:report (lambda (condition stream) (format stream "~A" (failed-change-text condition))))) + +(defun call-with-os (f &rest args) + (apply (ensure-function f) (get-hostattrs-car :os) args)) |