diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-05-14 14:37:28 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-05-14 15:06:55 -0700 |
| commit | 00614063348421ca2fcce85404fd74a68f12b200 (patch) | |
| tree | 6d6da3abc46c4a353377a6270505fa0f1d826a82 | |
| parent | 6b21f4de103f426645322d541c7a205616163b5c (diff) | |
| download | consfigurator-00614063348421ca2fcce85404fd74a68f12b200.tar.gz | |
RECONNECTS :HOSTATTRS: simplify
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/deployment.lisp | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 20a79ee..effb0e9 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -326,12 +326,9 @@ Connection attributes, by contrast, are propagated as usual." (setf (getf (slot-value host 'hostattrs) :data) nil) (setq host (preprocess-host host)) (doplist (k v (hostattrs host)) - (loop with root = (get-hostattrs k) - for cell on v until (eq cell root) - collect (car cell) into accum - finally (if (eql k :data) - (pushnew-hostattrs :data (nreverse accum)) - (push-hostattrs k (nreverse accum))))) + (case k + (:data (pushnew-hostattrs :data v)) + (t (setf (getf (slot-value *host* 'hostattrs) k) v)))) (dolist (system (propspec-systems (host-propspec host))) (pushnew system (slot-value (host-propspec *host*) 'systems))) (setf (getf properties :host) host))) |