From c85b361044c1621b2d48597da36e427618aabc67 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 3 Apr 2022 09:41:01 -0700 Subject: add PUSH-HOSTATTR, don't use &rest in PUSH-HOSTATTRS & fix docstring Signed-off-by: Sean Whitton --- src/deployment.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/deployment.lisp') 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))) -- cgit v1.2.3