diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-24 11:25:14 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-24 11:25:14 -0700 |
| commit | 595023766d1e45eaa92c612e1f959e781c7d878a (patch) | |
| tree | 567eb2bb2f9141571a1982e3b7b27c05a7dfdc2d | |
| parent | 8a27847e215df22503f70a9bffc368154cc03ed9 (diff) | |
| download | consfigurator-595023766d1e45eaa92c612e1f959e781c7d878a.tar.gz | |
note about the WHEN-LET in DEPLOY*
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/deployment.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 6cebee3..18a747d 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -128,6 +128,8 @@ used by implementations of ESTABLISH-CONNECTION.") ((connect (connections) (destructuring-bind ((type . args) . remaining) connections (let ((*last-hop-info* *this-hop-info*) *this-hop-info*) + ;; implementations of ESTABLISH-CONNECTION return nil if they + ;; have handed off to a remote Lisp image (when-let ((*connection* (apply #'establish-connection type remaining args))) (if remaining |