diff options
-rw-r--r-- | src/host.lisp | 5 | ||||
-rw-r--r-- | src/package.lisp | 1 |
2 files changed, 6 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))) diff --git a/src/package.lisp b/src/package.lisp index 6bd14e9..051bfab 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -277,6 +277,7 @@ #:ensure-host #:with-preserve-hostattrs #:with-replace-hostattrs + #:has-hostattrs ;; deployment.lisp #:at-end |