From 838d7aac806e2ebd8f2971c8774598f688191a9a Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 27 Feb 2021 09:40:51 -0700 Subject: ensure we pass a quoted list to DEPLOY* 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 96ef6a6..cd840a7 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -404,7 +404,7 @@ Called by connections which start up remote Lisp images." (require "asdf") (let ((*standard-output* *error-output*)) ,(wrap load-forms)) - ,(wrap `((deploy* ,(or remaining :local) ,*host*))))))))) + ,(wrap `((deploy* ',(or remaining :local) ,*host*))))))))) (defun request-lisp-systems () "Request that all Lisp systems required by the host currently being deployed -- cgit v1.2.3