diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-11-14 14:20:24 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-11-14 14:20:24 -0700 |
| commit | 44d0a7db88048627f115521485ebdfad9dfdd575 (patch) | |
| tree | da4e1c6a0296d459235489e7f82c2f4e4459cf07 | |
| parent | a69deb5a8cb438ffe2bce70feac3ded3b4125b3b (diff) | |
| download | consfigurator-44d0a7db88048627f115521485ebdfad9dfdd575.tar.gz | |
add HAS-HOSTATTRS
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -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 |