diff options
Diffstat (limited to 'src/host.lisp')
-rw-r--r-- | src/host.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/host.lisp b/src/host.lisp index 1b6ff8f..395728b 100644 --- a/src/host.lisp +++ b/src/host.lisp @@ -191,3 +191,8 @@ entries." ,(car (getf attrs :desc))) ,@(and deploy `((defdeploy ,hostname-sym (,deploy ,hostname-sym))))))) + +(defprop has-hostattrs :posix (k &rest vs) + "Push hostattrs VS of type K." + (:desc (format nil "Has hostattr~P ~A ~{~A~^, ~}" (length vs) k vs)) + (:hostattrs (apply #'push-hostattrs k vs))) |