diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-28 16:41:15 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-28 16:42:46 -0700 |
| commit | d50a65bd7adf5e4983c1f41b6bbe76b4a9d4e058 (patch) | |
| tree | 8b624664ec48d944471345be4d1cc4ddc39173bc /src/data.lisp | |
| parent | fe9117e0bcaf65db50930e6320ff7012cee541e3 (diff) | |
| download | consfigurator-d50a65bd7adf5e4983c1f41b6bbe76b4a9d4e058.tar.gz | |
eliminate global value for *CONNECTION*
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
| -rw-r--r-- | src/data.lisp | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/data.lisp b/src/data.lisp index 63d5e2d..a264030 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -345,9 +345,6 @@ of the current connection, where each entry is of the form "-type" "f" "-printf" "%P\\n") (and (zerop exit) (lines out))))) -;; we can't just default REMAINING to :LOCAL in the lambda list because it is -;; legitimate for callers to explicitly pass nil. -;; ;; TODO on remote side, catch read errors and signal our own which says ;; something more specific -- "This has probably been caused by an attempt to ;; use a property application specification or set of static informational @@ -412,8 +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* ',(or remaining-connections :local) - ,*host*))))))))) + ,(wrap `((deploy* ',remaining-connections ,*host*))))))))) (defun request-lisp-systems () "Request that all Lisp systems required by the host currently being deployed |