diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-03 09:41:01 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-04 14:47:03 -0700 |
| commit | c85b361044c1621b2d48597da36e427618aabc67 (patch) | |
| tree | 07bacb6bb2967af73c77bd4e6e0ab37556fa6782 /src/deployment.lisp | |
| parent | 006d3969bad1f84c0133a36ed9a623b59bd01c0e (diff) | |
| download | consfigurator-c85b361044c1621b2d48597da36e427618aabc67.tar.gz | |
add PUSH-HOSTATTR, don't use &rest in PUSH-HOSTATTRS & fix docstring
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/deployment.lisp')
| -rw-r--r-- | src/deployment.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index b28fc69..52e0eda 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -331,7 +331,7 @@ Connection attributes, by contrast, are propagated as usual." collect (car cell) into accum finally (if (eql k :data) (pushnew-hostattrs :data (nreverse accum)) - (apply #'push-hostattrs k (nreverse accum))))) + (push-hostattrs k (nreverse accum))))) (dolist (system (propspec-systems (host-propspec host))) (pushnew system (slot-value (host-propspec *host*) 'systems))) (setf (getf properties :host) host))) |