From 44d0a7db88048627f115521485ebdfad9dfdd575 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 14 Nov 2021 14:20:24 -0700 Subject: add HAS-HOSTATTRS Signed-off-by: Sean Whitton --- src/host.lisp | 5 +++++ src/package.lisp | 1 + 2 files changed, 6 insertions(+) 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 -- cgit v1.2.3