From 0a540d0374f85773181896b731f2f373d28e21ae Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 1 Mar 2021 12:17:16 -0700 Subject: attempt to implement DEPLOYS and DEPLOYS-THESE Signed-off-by: Sean Whitton --- src/data.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/data.lisp') diff --git a/src/data.lisp b/src/data.lisp index a264030..0b68cd9 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -409,7 +409,7 @@ achieved by sending the return value of this function into a REPL's stdin." (require "asdf") (let ((*standard-output* *error-output*)) ,(wrap load-forms)) - ,(wrap `((deploy* ',remaining-connections ,*host*))))))))) + ,(wrap `((%consfigure ',remaining-connections ,*host*))))))))) (defun request-lisp-systems () "Request that all Lisp systems required by the host currently being deployed -- cgit v1.2.3